3.11 Datum en tijd
De accept-opdracht heeft een handige variant waarmee het mogelijk is om gegevens over de huidige datum en tijd op te vragen. Die gegevens komen niet van een invoerapparaat, maar vanuit de computer-hardware. Uiteraard moet de betrokken computer een interne klok hebben, wil hij de juiste gegevens kunnen verschaffen.
De huidige datum kunnen we in een veld vandaag plaatsen met:
accept vandaag from date
Het veld vandaag zou bijvoorbeeld als volgt benoemd kunnen zijn:
01 vandaag.
03 dit-jaar picture 99.
03 deze-maand picture 99.
03 deze-dag picture 99.
Het woord date is een gereserveerd woord. De computer houdt er als het ware de datum in bij. De andere woorden die na from mogen volgen zijn: day, day-of-week en time. Hun lengte, opbouw en een voorbeeld staan in de volgende tabel.
Date, day, day-of-week en time zijn te beschouwen als elementaire numerieke velden. Bij de accept-opdracht waarin deze namen voorkomen gelden de regels van de move-opdracht. Het ontvangende veld (het veld waarin de waarde komt te staan) bepaalt of de move-opdracht verloopt volgens de numerieke of volgens de alfanumerieke regels. Voor een voorbeeld gaan we uit van twee velden van elk vier posities.
01 datum-numeriek pic 9(4). 01 datum-alfanum pic x(4).
Het ene veld is numeriek, het tweede veld is alfanumeriek. Deze velden geven een verschillend resultaat bij het opvragen van de datum.
accept datum-numeriek from date
accept datum-alfanum from date.
Stel dat het vandaag 29 augustus 1999 is, 'date' is dan 990829. Het veld datum-numeriek krijgt door het uitvoeren van de eerste accept-opdracht de inhoud 0829. De cijfers die niet meer in het veld pasten, zijn vooraf afgevallen. Het veld datum-alfanum krijgt als inhoud 9908. De overdracht verliep volgens de regels van de alfanumerieke overdracht: links beginnen en wat niet meer past, valt aan de rechterkant weg.
Let erop dat het jaartal als twee cijfers wordt gegeven. Er is geen eeuwaanduiding. Daar moet het programma zelf voor zorgen.
