Re: Printing Every Other Friday

A simple way is to set up a data area. Retrieve the value, if 1, set to 0 and run reports. If 0, add 1. Then save the data area contents.

A little more involved is to look at the date in a range.

Here is code from a CL I wrote:

0829.00 /* If the current day is a Tuesday, check if weekly job */
0830.00 /* needs to be run. */
0831.00
0832.00 IF COND(&QDAYOFWEEK *EQ '*TUE') THEN(DO)
0836.00 /* ONLY RUN ON SECOND AND FOURTH WEEK OF THE MONTH */
0837.00 CHGVAR VAR(&RUNWEEKLY) VALUE('N')
0838.00 /* TEST FOR TUESDAY IN THE SECOND WEEK */
0839.00 IF COND(%SST(&QDATE 3 2) *GE '08' *AND +
0840.00 %SST(&QDATE 3 2) *LE '14') THEN(DO)
0841.00 CHGVAR VAR(&RUNWEEKLY) VALUE('Y')
0842.00 ENDDO
0843.00 /* TEST FOR TUESDAY IN THE FOURTH WEEK */
0844.00 IF COND(%SST(&QDATE 3 2) *GE '22' *AND +
0845.00 %SST(&QDATE 3 2) *LE '28') THEN(DO)
0846.00 CHGVAR VAR(&RUNWEEKLY) VALUE('Y')
0847.00 ENDDO


John McKee

Otherwise, you are looking at determining the week of the year.
-----Original message-----
From: "Robert Ostrowski" Bob.Ostrowski@xxxxxxxxxxxxxxxx
Date: Fri, 18 Sep 2009 10:25:51 -0500
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.



--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.