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

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Robert Ostrowski
Sent: Friday, September 18, 2009 8:26 AM
To: midrange-L@xxxxxxxxxxxx
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?


This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2020 by and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].