Retrieve Day using CL command

[keanhoo168]

What command should i use to retrieve the current day (Example: Monday) by using CL command?

Thank you.

[gcraill]

Re: Retrieve Day using CL command

             PGM                                                   
             DCL        VAR(&ShortDay) TYPE(*CHAR) LEN(4)          
             DCL        VAR(&LongDay)  TYPE(*CHAR) LEN(9)          
             RTVSYSVAL  SYSVAL(QDAYOFWEEK) RTNVAR(&ShortDay)       
             SELECT                                                
             WHEN       COND(&ShortDay = '*SAT') THEN(CHGVAR +     
                          VAR(&LongDay) VALUE('Saturday'))         
             WHEN       COND(&ShortDay = '*SUN') THEN(CHGVAR +     
                          VAR(&LongDay) VALUE('Sunday'))           
             WHEN       COND(&ShortDay = '*MON') THEN(CHGVAR +     
                          VAR(&LongDay) VALUE('Monday'))           
             WHEN       COND(&ShortDay = '*TUE') THEN(CHGVAR +     
                          VAR(&LongDay) VALUE('Tuesday'))          
             WHEN       COND(&ShortDay = '*WED') THEN(CHGVAR +     
                          VAR(&LongDay) VALUE('Wednesday'))        
             WHEN       COND(&ShortDay = '*THU') THEN(CHGVAR +     
                          VAR(&LongDay) VALUE('Thursday'))         
             WHEN       COND(&ShortDay = '*FRI') THEN(CHGVAR +     
                          VAR(&LongDay) VALUE('Friday'))           
             ENDSELECT                                             
             SNDPGMMSG  MSG('Today is' *BCAT &LongDaY *TCAT '. +   
                          (QDAYOFWEEK =' *BCAT &ShortDaY *TCAT ')')
             ENDPGM

[sai400]

Re: Retrieve Day using CL command

Define a variable say &day *char 4 then use the following CL command
RTVSYSVAL SYSVAL(QDAYOFWEEK) RTNVAR(&DAY)

Gcraill's answer is more explanatory you follow that

[abhishek_ec002]

Re: Retrieve Day using CL command

i think QDAY can also be used.

[Billw]

Re: Retrieve Day using CL command

qday is day of the month. Like today qday = 29

[gcraill]

Re: Retrieve Day using CL command

qday is day of the month. Like today qday = 29

Hmmm it was 30 when I checked it

[abhishek_ec002]

Re: Retrieve Day using CL command

Hmmm it was 30 when I checked it

.....ohoo....it means qday is not fixed.....