Letzter Tag eines Monats ermitteln

[jobra]

Hallo Fuerchau,

auf die Vorstellung mit dem Systemkalender bin ich durch die Option *MONTHEND beim Parameter SCDDATE des ADDJOBSCDE gekommen. Zumindest muß hier eine Kalenderroutine dahinterstehen, die ich gerne genutzt hätte, um nicht das Rad neu zu erfinden. Nun muß ich es eben halt doch über eine eigene Routine regeln.

Danke
Jobra

[Fuerchau]

Die Kalenderroutinen, die du suchst, sind doch genau die oben erwähnten !
Du kannst alles mit diesen Routinen errechnen. Das System verwendet genau diese Funktionen auch !
Mit den MI-Befehlen ging das alles auch schon früher und sind nun auch in RPG verfügbar.
Die Befehle SUBDUR/ADDDUR stehen seit V3 zur Verfügung, die nun bei ILE per Builtin nachgereicht bzw. verbessert wurden.

[FrEEk]

              BEGSR

              SELEC
Monat         WHEQ        1
Monat         OREQ         3
Monat         OREQ         5
Monat         OREQ         7
Monat         OREQ         8
Moant         OREQ        10
Monat         OREQ        12
              Z-ADD       31          LetzterTag
Monat         WHEQ         4
Monat         OREQ          6
Monat         OREQ          9
Monat         OREQ         11
              Z-ADD        30         LetzterTag
Monat         WHEQ          2
Jahr          DIV             4         ZwischenResultat
              MVR                       Rest
Rest          IFEQ            0
              Z-ADD         29        LetzterTag
 * Schaltjahr im Februar 29 Tage!!
              ELSE
              Z-ADD         28        LetzterTag
              ENDIF
              ENDSL

              ENDSR

So hab ich das mal ausprogrammiert

Als Input-Parameter habe ich Jahr, Monat und als Output habe ich den LetztenTag