IBM Mainframe Forum

[bobbysiddu]

Hi all,
I want to write a PL/I program on how to find the "day of the date".
I know how to fetch the date from the system date.
But I want to know is there any function to convert the date's day(number) into day of the week.
Please guide me on building the logic.

Any help would be appreciated.

Thank you,
Siddu

[Stefan]

Select all

SELECT                                                   
  CASE                                                   
    WHEN DAYOFWEEK(CURRENT TIMESTAMP) = 1 THEN 'SUNDAY'   
    WHEN DAYOFWEEK(CURRENT TIMESTAMP) = 2 THEN 'MONDAY'   
    WHEN DAYOFWEEK(CURRENT TIMESTAMP) = 3 THEN 'TUESDAY' 
    WHEN DAYOFWEEK(CURRENT TIMESTAMP) = 4 THEN 'WEDNESDAY'
    WHEN DAYOFWEEK(CURRENT TIMESTAMP) = 5 THEN 'THURSDAY'
    WHEN DAYOFWEEK(CURRENT TIMESTAMP) = 6 THEN 'FRIDAY'   
    ELSE                                       'SATURDAY'
  END                                                     
FROM SYSIBM.SYSDUMMY1;                                   

[bobbysiddu]

Thank you Stefan...

[Akatsukami]

Select all

SELECT                                                   
  CASE                                                   
    WHEN DAYOFWEEK(CURRENT TIMESTAMP) = 1 THEN 'SUNDAY'   
    WHEN DAYOFWEEK(CURRENT TIMESTAMP) = 2 THEN 'MONDAY'   
    WHEN DAYOFWEEK(CURRENT TIMESTAMP) = 3 THEN 'TUESDAY' 
    WHEN DAYOFWEEK(CURRENT TIMESTAMP) = 4 THEN 'WEDNESDAY'
    WHEN DAYOFWEEK(CURRENT TIMESTAMP) = 5 THEN 'THURSDAY'
    WHEN DAYOFWEEK(CURRENT TIMESTAMP) = 6 THEN 'FRIDAY'   
    ELSE                                       'SATURDAY'
  END                                                     
FROM SYSIBM.SYSDUMMY1;                                   

Is that not rather a SQL solution than a PL/I one?

Select all

dcl dayofweek char (90;
select (weekday());
  when (1) dayofweek = 'Sunday';
  when (2) dayofweek = 'Monday';
  when (3) dayofweek = 'Tuesday';
  when (4) dayofweek = 'Wednesday';
  when (5) dayofweek = 'Thursday';
  when (6) dayofweek = 'Friday';
  when (7) dayofweek = 'Saturday';
end

[bobbysiddu]

Yes.
I executed the code..
It does look like a SQL code.
Will try with other logic(mentioned by Akatsukami) and reply..
Thank you.