RE: Getting last Friday's date

The easiest Way would be to use SQL. Then wrap it as RPG procedure and call
it from CL:

Something like this:

Exec SQL Set Option DatFmt = *ISO;

DCL-Proc PastFriday Export;
DCL-PI *N Date(*ISO);
ParStartDate Date(*ISO) Const;
End-PI;

RtnDate Date(*ISO);

If ParDate = *Loval;
Return ParDate;
EndIf;

Exec SQL Set :RtnDate = Next_Day(:ParDate - 6 Days: 'FRIDAY');
If SQLCODE < *Zeros or SQLCODE = 100;
Return *Loval;
Else
Return :RtnDate;
EndIf;

End-Proc;

Note: Procedure is not tested ... and I only subtracted 6 days. When
subtracting 7 days and the starting date is a Friday the Friday in the next
week (start date) would be returned.

Mit freundlichen Grüßen / Best regards

Birgitta Hauser
Modernization ? Education ? Consulting on IBM i

IBM Champion since 2020

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
"Train people well enough so they can leave, treat them well enough so they
don't want to. " (Richard Branson)
"Learning is experience ? everything else is only information!" (Albert
Einstein)

-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Jim
Oberholtzer
Sent: Thursday, 3 August 2023 21:30
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Getting last Friday?s date

I need to retrieve the date from last Friday. If it is Friday, I want the
current date. Anyone have a routine that does that before I start
developing one? Seem like a good SQL problem but the program using it
would be in CLLE.

Thoughts?