3.10 DATUM: Tagesdatum und Uhrzeit holen
| | | | | |
Format:
CALL DATUM USING Tag [Zeit]
| |
| | | |
Datum stellt das aktuelle Datum in das Feld Tagb und die Uhrzeit in das Feld Zeit (falls angegeben) ab.
Das übertragene Format ist:
|
Feldlänge | Datum | Uhrzeit | 2-stellig | JJ | hh | 4-stellig | MMJJ | hhmm | 5-stellig | MM.JJ | hh:mm | 6-stellig | TTMMJJ | hhmmss | 7-stellig | MM.JJJJ | hhmmss | 8-stellig | TT.MM.JJ | hh:mm:ss | 0-stellig | TT.MM.JJJJ | hh:mm:ss |
|
Die Punkte können durch einen MOVE auf ein 6-stelliges numerisches Feld entfernt werden.
identification division.
environment division.
data division.
working-storage section.
01 tag1 pic x(2).
01 tag2 pic x(4).
01 tag3 pic x(5).
01 tag4 pic x(6).
01 tag5 pic x(7).
01 tag6 pic x(8).
01 tag7 pic x(10).
01 tag8 pic x(20).
01 zeit1 pic x(2).
01 zeit2 pic x(4).
01 zeit3 pic x(5).
01 zeit4 pic x(6).
01 zeit5 pic x(7).
01 zeit6 pic x(8).
01 zeit7 pic x(10).
01 zeit8 pic x(20).
procedure division.
display 'Ergebnisse von Call Datum: '
call datum using tag1 zeit1.
display '2-stellig: Tag: ' tag1 ' Uhrzeit: ' zeit1.
call datum using tag2 zeit2.
display '4-stellig: Tag: ' tag2 ' Uhrzeit: ' zeit2.
call datum using tag3 zeit3.
display '5-stellig: Tag: ' tag3 ' Uhrzeit: ' zeit3.
call datum using tag4 zeit4.
display '6-stellig: Tag: ' tag4 ' Uhrzeit: ' zeit4.
call datum using tag5 zeit5.
display '7-stellig: Tag: ' tag5 ' Uhrzeit: ' zeit5.
call datum using tag6 zeit6.
display '8-stellig: Tag: ' tag6 ' Uhrzeit: ' zeit6.
call datum using tag7 zeit7.
display '10-stellig: Tag: ' tag7 ' Uhrzeit: ' zeit7.
call datum using tag8 zeit8.
display '> 10 Stellen: Tag: ' tag8 ' Uhrzeit: ' zeit8.
call getchar.
Beispiel: calldatum.cob
Zurück zu CREATEDIR Directory anlegen
Hoch zu Funktionslibrary
Weiter zu DELAY: Warten
|