You could also do
/* Declare Day of week */
Dcl Var(&DOW) Type(*Char) Len(4)
/* Get dow system Value */
RtvSysVal SysVal(QDAYOFWEEK) RtnVar(&Dow)
For Friday, the value w/b ... *FRI
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Robert Ostrowski
Sent: Friday, September 18, 2009 8:26 AM
Subject: Printing Every Other Friday
We have a series of reports that now print every Friday. We print them
based on the day of the week determined in a CL program.
IF COND(&DAY *EQ '5') etc....
They now want these reports to print every other Friday. Anybody know
of a way to do this?