|
Hi Tim I think what your colleague is trying to do is to get around the fact that UDATE picks up the value of the Job Date (which doesn't actually change for the duration of the job). So, if your job started at 23:50 on November 1st and then ran for half an hour the job date would still show as November 1st. I think your colleague is trying to retrieve the current date and reset the job date to reflect it in case midnight has passed since the job started. What he should be doing is retrieving the system value QDATE and then using that for his CHGJOB operation. All the best Jonathan www.astradyne-uk.com -----Original Message----- From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx]On Behalf Of Tim Kredlo Sent: 18 November 2004 17:04 To: MIDRANGE-L@xxxxxxxxxxxx Subject: ChgJob List, I was including some CL lines from a co-workers' code and encountered the following lines: Dcl Var(&Date) Type(*Char) Len(6) ... ... Some other variable declarations here, but no reference to "&Date" ... RtvJobA Date(&Date) ChgJob Date(&Date) It did not appear to me that the ChgJob command really did anything in this situation. I thought that it was just getting the job date and then setting the job date to what had been retrieved (itself). I asked my co-worker if the ChgJob statement was necessary in this situation, since it was just setting the date to what it already had been. He insisted it was absolutely necessary if I wanted 'UDATE' to reflect the job date, rather than the system date. I ran a couple of tests and got the same expected results with or without the ChgJob statement. (UDATE reflected the job date) I again went to my co-worker. He said that he couldn't explain it to me, but he insisted it was necessary. He said he had proven it to himself a number of times, and I should just accept it as being required. Call me stubborn, but I can't 'just accept' his belief without some evidence. Can anyone explain to me why/how/when the combination of: RtvJobA Date(&Date) ChgJob Date(&Date), WITH NO INTERMEDIATE LINES, would be required, or would even 'do anything'. TIA Tim Kredlo Exterior Wood, Inc. -- 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.
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.