Re: Sample CL Program to Retain System Date

This is an interesting approach but I have better sudgestion.    Use the
Job Date instead of the system Date in your year end procedures.   That way
the date would be guarented to be 12/31/01 even though the job doesn't
execute until 01/01/02.    Remember that the job date is the date that is
accociated with the job when it appears in the job queue either scheduled
or immed, not when it starts executing.

You can also put the jobq on hold, submit your year procedures on 01/01/02
and  then use the CHGJOB to set the job date for all jobs in the job queue
to 12/31/01.

It is only when an program deliberately retrieves the system date is when
your program is necessary.   Normally the default date retrieve is JOB DATE
which in the vast majority of programs that I have seen is the case.