Get Day of the Week or Get the previous Weekday or Get previous Friday in RPGLE
//Identify the Previous Friday Date
DayOfWeek = %rem(%diff(%date(): d'0001-01-01': *days): 7);
//Get Current DOW
// 0=Mon, 1=Tue, 2=Wed, 3=Thu, 4=Fri, 5=Sat, 6=Sun
Select;
When DayOfWeek = 0;
Weekdays_Arr = %list('6':'5':'4':'3':'2':'1');
When lv_DayOfWeek = 1;
Weekdays_Arr = %list('0':'6':'5':'4':'3':'2');
When lv_DayOfWeek = 2;
Weekdays_Arr = %list('1':'0':'6':'5':'4':'3');
When lv_DayOfWeek = 3;
Weekdays_Arr = %list('2':'1':'0':'6':'5':'4');
When lv_DayOfWeek = 4;
Weekdays_Arr = %list('3':'2':'1':'0':'6':'5');
When lv_DayOfWeek = 5;
Weekdays_Arr = %list('4':'3':'2':'1':'0':'6');
When lv_DayOfWeek = 6;
Weekdays_Arr = %list('5':'4':'3':'2':'1':'0');
EndSl;
Jobrun_Weekday = '4'; //Friday
days_diff = %Lookup(Jobrun_Weekday:Weekdays_Arr:1);
WEEK = %dec(%Date() - %Days(days_diff):*ISO);