Re: Printing Every Other Friday

["Raul A. Jager W." <raul@xxxxxxxxxx>]

If you can get the "week number", print when odd (or when even)

You can convert to Julian,take the "day in year" and look for the 
remaider by 14 one week will be less than 7, the next week will be 
between 7 and 13.

Terry Nonamaker wrote:

> 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?
>
> Thanks.
>
>
>
>