Programmeren in COBOL/Statements/ACCEPT

Uit Wikibooks

ACCEPT is een statement van COBOL. Deze statement dient om gegevens van de gebruiker in te lezen en ook om een aantal systeemvariabelen in te lezen. Hier wordt de vorm en de betekenis uitgelegd samen met voorbeelden.

[bewerk] Vormen

[bewerk] Vorm 1: Gewone ACCEPT

ACCEPT veld [FROM randapparatuur]

[]: 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 die tussen [] of {} staan herhalen.

[bewerk] Vorm 2: ACCEPT met systeemvariabelen

ACCEPT veld FROM {DATE/DAY/DAY-OF-WEEK/TIME}

[bewerk] Uitleg

[bewerk] Uitleg vorm 1

[bewerk] ACCEPT

ACCEPT leest dus gegevens in van een toetsenbord. Er mag slecht één veld tegelijkertijd worden gebruikt.

[bewerk] FROM(optioneel)

Dit laat toe om gegevens in te lezen van andere randapparatuur. Deze randapparatuur word beschreven in de ENVIRONMENT DIVISION.

[bewerk] Uitleg vorm 2

[bewerk] ACCEPT

ACCEPT leest dus een systeemvariabele in. Er mag slecht één veld tegelijkertijd worden gebruikt.

[bewerk] FROM

Hierachter moeten één van de volgendesysteem variabelen worden geschreven DATE, DAY, DAY-OF-WEEK of TIME.

[bewerk] DATE

Geeft de huidige datum met een JJMMDD-formaat. Het aantal tekens dat hij terug geeft is dus zes.

[bewerk] DAY

Geeft de dag van het jaar terug met een JJDDD-formaat. Het aantal tekens dat hij terug geeft is dus vijf.

[bewerk] DAY-OF-WEEK

Geeft de dag van de week terug met een D-formaat maandag is dagnummer 1 en zondag is dan 7. Het aantal tekens dat hij terug geeft is dus één.

[bewerk] TIME

Geeft het huidig tijdstip terug met een UUMMSSss-formaat(s = S/100). Het aantal tekens dat hij terug geef is dus acht.

[bewerk] Voorbeelden

[bewerk] Gewone ACCEPT

           ACCEPT invoer

[bewerk] ACCEPT met systeemvariabelen

           ACCEPT datum FROM DATE

[bewerk] Zie ook

• Hoofdstuk inleiding
• Statement DISPLAY