Programmeren in COBOL/Statements/SUBTRACT

Programmeren in COBOL

Inhoudsopgave




SUBTRACT is een statement van COBOL. Deze statement dient om getallen af te trekken. Hier wordt de vorm en de betekenis uitgelegd samen met voorbeelden.

SUBTRACT veld/constante...

{FROM {veld [ROUNDED]}...} of {FROM veld GIVING {veld [ROUNDED]...}
[ON SIZE ERROR code]
[NOT ON SIZE ERROR code]

[END-SUBTRACT]

[]: geeft aan dat het optioneel is.
{}: geeft aan dat dit één stuk is die samen hoort.
onderstreept: geeft aan dat het verplicht is dit te schrijven. 
Als het tussen [] staat betekent dat je dit minstens moet schrijven,
als je dat deel van de statement wilt gebruiken.
niet-onderstreept: betekent dat je het mag schrijven maar is niet verplicht.
...: Geeft aan dat je nog velden of constanten mag bijschrijven
of stukjes

SUBTRACT

bewerken

Met SUBTRACT wordt afgetrokken en er mogen zowel numerieke velden als constanten achter staan. De som van alles wat na SUBTRACT staat wordt afgetroken van het veld dat achter FROM staat.

Van het veld dat hierachter komt wordt afgetrokken. Wanneer er geen GIVING wordt gebruikt mag er na FROM meerdere velden staan. Wordt het wel gebruikt, dan mag er maar één staan.

GIVING(optioneel)

bewerken

Als GIVING gebruikt wordt komt de uitkomst in de velden dat erachter komen. Wanneer het niet wordt gebruikt komt de uitkomst terecht in de velden achter FROM.

ROUNDED(optioneel)

bewerken

Zorg ervoor dat er wordt afgerond op basis van de wiskundige regel. In COBOL wordt er niet automatisch afgerond. Stel je hebt een veld met een PICTURE van 9999 en je wilt daarin het getal 1234,56 in opslaan. Dan zullen de getallen na de komma gewoon weg vallen zodat er alleen 1234 wordt opgeslagen wordt. Volgens de wiskunde is dit niet correct als je wilt afronden moet je eerst kijken wat er na de komma komt. Is dit gelijk aan of groter dan 5, dan moet je naar boven afronden. Is dit kleiner, dan naar beneden. Dus er moet 1235 worden opgeslagen in dat veld. Dit doet ROUNDED voor u.

SIZE ERROR(optioneel)

bewerken

Als de uitkomst te groot is om in het veld te worden gekopieerd gebeurt er een SIZE ERROR. Bijvoorbeeld: het getal 123 geraakt niet in een veld met een PICTURE van 99. Dit geldt echter niet voor kommagetallen. Als je het getal 12.3 erin wilt zetten, zal hij geen fout geven. Hierachter kun je een code schrijven, zoals bijvoorbeeld een fout bericht tonen.

NOT SIZE ERROR(optioneel)

bewerken

Doet het omgekeerde van SIZE ERROR.

END-SUBTRACT(optioneel)

bewerken

Sluit de statement af.

Voorbeelden

bewerken

Simpel voorbeeld

bewerken

COBOL-code: SUBTRACT - simpel voorbeeld

           SUBTRACT 1 FROM uitkomst

Complex voorbeeld

bewerken

COBOL-code: SUBTRACT - complex voorbeeld

           SUBTRACT getal1 getal2 123
             FROM getal3 GIVING uitkomst uitkomstafgerond ROUNDED
             ON SIZE ERROR DISPLAY "Getal is te groot"
             NOT ON SIZE ERROR DISPLAY uitkomst " " uitkomstafgerond
           END-SUBTRACT

Zie ook

bewerken


COBOL statements

ACCEPT | ADD | CALL | CLOSE | COMPUTE | DELETE | DISPLAY | DIVIDE | EVALUATE | IF | INSPECT | MOVE | MULTIPLY | OPEN | PERFORM | READ | REWRITE | START | STOP | STRING | SUBTRACT | UNSTRING | WRITE


 

Informatie afkomstig van https://nl.wikibooks.org Wikibooks NL.
Wikibooks NL is onderdeel van de wikimediafoundation.