Datum berechnen mit CL

[Fuerchau]

Erstelle ein SQLCBL-Programm.
Das Datum muss in ISO-Format (JJJJ-MM-TT) oder EUR-Format (TT.MM.JJJJ)
übergeben werden


77 MYDATE PIC X(10).
PROCEDURE DIVISION USING MYDATE.

EXEC SQL
SET OPTION COMMIT=*NONE
END-EXEC

EXEC SQL
SET :MYDATE = DATE(:MYDATE) - (DAYOFWEEK(DATE(:MYDATE)) - 1) DAYS
END-EXEC

GOBACK

Wenn du nun z.B. den 31.03.2011 übergibst erhältst du den 27.03.2011 zurück.

[j.k.]

Hallo zusammen!

Jetz muss ich nochmal schreiben bzgl. diesem Thema mit der Zeitumstellung und CL.

Ich habe es mit einem CLLE, meinem Ausbilder und dieser folgenden Seite als Lösungsansatz hinbekommen.

IBM servers - Time on a AS400 server

Viele Grüße und Danke nochmal für eure zahlreichen Antworten!

[Fuerchau]

Wenn du schon die Systemzeit selber anpasst, denke auch daran den Systemwert QUTCOFFSET entsprechend auf "+01:00" bzw. "+02:00" anzupassen.
Sonst stimmen z.B. IFS-Zeitangaben nicht mehr.