3.42 I-M - Mit Datum rechnen
| | | | | |
Format:
CALL I-M USING Datum Idatum
| |
| | | |
Das Feld Idatum beinhaltet ein Datum der Form JJnnn, wobei nnn der laufende Tag des Jahres ist (mit 1 beginnend) und wird in dem Feld Datum in der Form TTMMJJ abgestellt.
Wenn nnn größer ist, als das Jahr Tage besitzt, wird JJ ent- sprechend berichtigt.
* c32 cmi.cob;slink cmi
identification division.
data division.
Working-Storage Section.
01 cdatum pic 9(8).
01 zdatum pic z9.99.9999.
01 cidatum pic 9(7).
01 tag pic 9.
01 kw pic 99.
01 tage.
02 filler pic x(10) value 'Sonntag'.
02 filler pic x(10) value 'Montag'.
02 filler pic x(10) value 'Dienstag'.
02 filler pic x(10) value 'Mittwoch'.
02 filler pic x(10) value 'Donnerstag'.
02 filler pic x(10) value 'Freitag'.
02 filler pic x(10) value 'Samstag'.
02 filler pic x(10) value 'Sonntag'.
01 filler redefines tage.
02 wtag pic x(10) occurs 7.
Procedure Division.
* Datum 10 stellig --> Format TT.MM.JJJJ
call datum using zdatum.
move zdatum to cdatum.
display 'Heute: ' cdatum ' ' zdatum.
call m-i using cdatum cidatum tag kw.
display wtag (tag) ' Kw ' kw.
display 'Idatum(heute): ' cidatum.
add 30 to cidatum.
display 'Idatum(fällig): ' cidatum.
call i-m using cdatum cidatum.
move cdatum to zdatum.
display 'Fälligkeitsdatum: ' zdatum.
*
* Ermittlung des Tages und der Kw
*
call m-i using cdatum cidatum tag kw.
display wtag (tag) ' Kw ' kw.
accept omitted.
Siehe auch: M-I
Beispielprogramm: cmi.cob
Zurück zu INSSTRING
Hoch zu Funktionslibrary
Weiter zu M-I - Mit dem Datum rechnen
|