Programmeren in COBOL/Statements/ACCEPT
ACCEPT is een statement van COBOL. Dit statement dient om gegevens van de gebruiker in te lezen en ook om een aantal systeemvariabelen in te lezen. Hier worden de vorm en de betekenis uitgelegd samen met voorbeelden.
VormenBewerken
Vorm 1: Gewone ACCEPTBewerken
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 het statement wilt gebruiken. niet-onderstreept: betekent dat je het mag schrijven, maar dat is niet verplicht. ...: Geeft aan dat je nog velden of constanten mag bijschrijven of stukjes die tussen [] of {} staan herhalen.
Vorm 2: ACCEPT met systeemvariabelenBewerken
ACCEPT veld FROM {DATE/DAY/DAY-OF-WEEK/TIME}
UitlegBewerken
Uitleg vorm 1Bewerken
ACCEPTBewerken
ACCEPT leest dus gegevens in van een toetsenbord. Er mag slecht één veld tegelijkertijd worden gebruikt.
FROM(optioneel)Bewerken
Dit laat toe om gegevens in te lezen van andere randapparatuur. Deze randapparatuur wordt beschreven in de ENVIRONMENT DIVISION.
Uitleg vorm 2Bewerken
ACCEPTBewerken
ACCEPT leest dus een systeemvariabele in. Er mag slecht één veld tegelijkertijd worden gebruikt.
FROMBewerken
Hierachter moet één van de volgende systeemvariabelen worden geschreven: DATE, DAY, DAY-OF-WEEK of TIME.
DATEBewerken
Geeft de huidige datum met een JJMMDD-formaat. Het aantal tekens dat hij teruggeeft is dus zes.
DAYBewerken
Geeft de dag van het jaar terug met een JJDDD-formaat. Het aantal tekens dat hij teruggeeft is dus vijf.
DAY-OF-WEEKBewerken
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 teruggeeft is dus één.
TIMEBewerken
Geeft het huidig tijdstip terug met een UUMMSSss-formaat(s = S/100). Het aantal tekens dat hij teruggeeft is dus acht.
VoorbeeldenBewerken
Gewone ACCEPTBewerken
COBOL-code: Gewone ACCEPT
ACCEPT invoer
ACCEPT met systeemvariabelenBewerken
COBOL-code: ACCEPT met systeemvariabelen
ACCEPT datum FROM DATE
Zie ookBewerken
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 |