I have several jobs that I want to run only on December 31 each year. IBM's job scheduler only allows *Monthly not *Annually. So I set up the job to run Dec. 31, 2002 *Monthly & in the CL of the job I change the scheduled job date to to 12/31/xx of the next year.
PGM DCL VAR(&YEAR ) TYPE(*CHAR) LEN(2) DCL VAR(&YEAR#) TYPE(*DEC) LEN(2 0) DCL VAR(&DATE) TYPE(*CHAR) LEN(6) RTVSYSVAL SYSVAL(QYEAR) RTNVAR(&YEAR) (your code here) CHGVAR VAR(&YEAR#) VALUE(&YEAR) CHGVAR VAR(&YEAR#) VALUE(&YEAR# + 1) CHGVAR VAR(&YEAR) VALUE(&YEAR#) CHGVAR VAR(&DATE ) VALUE('1231' *CAT &YEAR) CHGJOBSCDE JOB(your job name) SCDDATE(&DATE) ENDPGM
MORE INFORMATION ON THIS TOPIC
The Best Web Links: tips, tutorials and more.
Ask your programming questions--or help out your peers by answering them--in our live discussion forums.
Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.