Datum berechnen mit CL

[Fuerchau]

Dazu müsste aber ggf. jedes CLP (da gibts ggf. mehrere) angepasst werden.

Alternativ kann man ja auch ein "Master-CLP" jeden Sonntag laufen lassen. Dieses braucht nur den Monat abzufragen und wenn es der letzte Sonntag im März/Oktober ist, das gewünschte original CLP aufrufen. Ansonsten beendet es sich sofort wieder.

[j.k.]

Danke euch für eure zahlreichen Antworten!
Gibt es dann da keine Möglichkeit, dass ich über eine "Schleife" den letzten Sonntag im März des Folgejahres bzw den letzten Sonntag im Oktober errechnen lassen kann dies dann in den Scheduljob eintrage??
Leider hab ich RPG noch keinerlei Kenntnisse...
Ich bekomme einfach nicht die Logik zusammen wie ich dieses Datum abfragen/berechnen kann.
Es ist zum Mäuse melken!

[Fuerchau]

Mit CLP definitiv nicht möglich.
Was kannst du ausser CLP denn noch ?
Wie wärs mit REXX oder COBOL ?

[j.k.]

In COBOL hab ich ein bisschen Erfahrung...

[malzusrex]

Hier mal ein CL was täglich oder eben jeden Sonntag im SCD laufen soll/kann.

PGM                                                                      
             DCL        VAR(&MONAT) TYPE(*CHAR) LEN(2)                   
             DCL        VAR(&DATUM) TYPE(*CHAR) LEN(6)                   
             DCL        VAR(&WOTAG) TYPE(*CHAR) LEN(4)                   
             DCL        VAR(&TAG) TYPE(*CHAR) LEN(2)                     
             DCL        VAR(&TAG_NUM) TYPE(*DEC) LEN(2 0)                
                                                                         
             RTVJOBA    DATE(&DATUM) DAYOFWEEK(&WOTAG)                   
             CHGVAR     VAR(&MONAT) VALUE(%SST(&DATUM 3 2))              
             CHGVAR     VAR(&TAG  ) VALUE(%SST(&DATUM 1 2))              
             CHGVAR     VAR(&TAG_NUM) VALUE(&TAG)                        
                                                                         
             IF         COND(&WOTAG *NE '*SUN') THEN(GOTO CMDLBL(ENDE))  
             IF         COND(&MONAT *EQ '03') THEN(GOTO CMDLBL(MAERZ))   
             IF         COND(&MONAT *EQ '10') THEN(GOTO CMDLBL(OKTOBER)) 
             GOTO       CMDLBL(ENDE)                                     
MAERZ:                                                                   
             IF         COND(&TAG_NUM > 24) THEN(DO)                     
             CALL       PGM(CL_MAERZ)               
             ENDDO                                  
             GOTO       CMDLBL(ENDE)                
OKTOBER:                                            
             IF         COND(&TAG_NUM > 24) THEN(DO)
             CALL       PGM(CL_OKTOBER)             
             ENDDO                                  
             GOTO       CMDLBL(ENDE)                
ENDE:                                               
                                                    
ENDPGM 

Nicht schön und nur teilweise getestet. Ist aber vielleicht ein denkanstoß.

Gruß
Ronald

[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.