Get Day name in peoplesoft

Local string &Get_DT  =    (IOBM_ATTEND_WRK.DT_ARRIVE.Value);


rem &GRD_SQL2 = SQLExec("select to_char(sysdate, 'DY') FROM DUAL ", &getday);

&GRD_SQL2 = SQLExec("select to_char(to_date(:1,'yyyy/mm/dd'), 'DY') FROM DUAL ", &Get_DT, &getday);

Evaluate &getday

When "THU"
   IOBM_ATTEND_WRK.THURS.Value = "Y";

   When "FRI"
   IOBM_ATTEND_WRK.FRI.Value = "Y";
    
When "SAT"
   IOBM_ATTEND_WRK.SAT.Value = "Y";

  When "SUN"
   IOBM_ATTEND_WRK.SUN.Value = "Y";

  When "MON"
   IOBM_ATTEND_WRK.MON.Value = "Y";

  When "TUE"
   IOBM_ATTEND_WRK.TUES.Value = "Y";

  When "WED"
   IOBM_ATTEND_WRK.WED.Value = "Y";

End-Evaluate;