Inhalt
Index
Support Über uns
Home

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ängeDatumUhrzeit
2-stelligJJhh
4-stelligMMJJhhmm
5-stelligMM.JJhh:mm
6-stelligTTMMJJhhmmss
7-stelligMM.JJJJhhmmss
8-stelligTT.MM.JJhh:mm:ss
0-stelligTT.MM.JJJJhh: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
Entwickler Portal Impressum AGB Kontakt


© 1980-2017 Acc Computertechnik GmbH All rights reserved.