Inhalt
Index
Support Über uns
Home

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
Entwickler Portal Impressum AGB Kontakt


© 1980-2017 Acc Computertechnik GmbH All rights reserved.