RE: Question on what date is used in CL procedure

[michael@xxxxxxxxxxxxxxxxxx]

QDATE is the system date, so it will change after midnight. You could do
a RTVJOBA DATE(&DATE) to get the job date - the date when the job is
started.

> -------- Original Message --------
> Subject: Question on what date is used in CL procedure
> From: "Willie J. Moore" <WJMoore@xxxxxxxxxxxxxxx>
> Date: Wed, February 02, 2005 10:09 am
> To: midrange-l@xxxxxxxxxxxx
> 
> We have a nightly procedure that is started about 11:30pm.  In it, there is a 
> call to another procedure. This second procedure is usually called before 
> mid-night. We will be adding some more file saves it could run after 
> mid-night. 
> If it is called after mid-night, which date will the second CL have, the date 
> from the first CL or when the second CL is called?
> 
> DCL        VAR(&DATE) TYPE(*CHAR) LEN(6) 
> RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DATE) 
> 
> Thanks for you help in advance,
> Willie Moore
> 
> 
> -- 
> 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.