3.43 M-I - Mit dem Datum rechnen
| |  | |  | | |
Format:
CALL M-I USING Datum Idatum [Wochentag] [Kalenderwoche]
| |
|  | |  |
Das Datumsfeld Datum der Form TTMMJJ oder TTMMJJJJ wird umgewandelt in die Form JJnnn bzw. JJJJnnn, wobei nnn der laufende Tag des Jahres ist (mit 1 beginnend), und in dem Feld Idatum abgestellt.
Idatum muß mit mindestens 5-stellig beschrieben sein.
In Wochentag wird die Nummer des Wochentages (1-7) abgestellt, wobei 1 dem Sonntag entspricht.
In Kalenderwoche wird die Kalenderwoche des angegebenen Datums zurückge- geben.
Mit dem Industriedatum können einfache Rechnungen durchgeführt werden.
Beispiel:
Berechnung des Fälligkeitsdatums in 30 Tagen
* 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: I-M
Beispielprogramm: cmi.cob
 Zurück zu I-M Industriedatum
 Hoch zu Funktionslibrary
 Weiter zu MAKEGRAPH: Grafik erzeugen
|
Home