Datum berechnen mit CL

[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