|
Sorry, but I did not make any modification marks next to the code I changed!! So I'm not sure exactly how I changed the lines of code below. Ooooops. I figured I'd NEVER have to go back to this again... So, to fix the bug make sure your lines of code in the RPG program are as mine below: -------------------------------------------------------- ITGTDAT DS I 1 1 TGTCEN I 2 3 TGTMTH I 4 5 TGTDAY I 6 7 TGTYR -------------------------------------------------------- IDATSTR DS I 201 201 DATCEN I 202 203 DATYR I 204 205 DATMTH I 206 207 DATDAY -------------------------------------------------------- C CALL 'QUSRSPLA' 99 -------------------------------------------------------- C *IN99 IFNE *ON C MOVE QUSFX7 DATSTR C DATCEN IFLT TGTCEN C EXSR CLDLT C ELSE C DATCEN IFEQ TGTCEN C DATYR IFLT TGTYR C EXSR CLDLT C ELSE C DATYR IFEQ TGTYR C DATMTH IFLT TGTMTH C EXSR CLDLT C ELSE C DATMTH IFEQ TGTMTH C DATDAY IFLE TGTDAY C EXSR CLDLT C END C END C END C END C END C END C END C END Roger Boucher Standard Pacific Corp. rboucher@stanpac.com 714-668-4326 -----Original Message----- From: McLain, Tracy [mailto:tracy_mclain@rocor.com] Sent: Monday, January 03, 2000 10:55 AM To: MIDRANGE-L@midrange.com Subject: RE: DLTOLDSPLF and Y2K Roger, We are having the problem here with the dltoldsplf. What fix do you have for it. Tracy McLain Manager of Programming ROCOR Transportation P. O. Box 75367 Oklahoma City, OK 73147-0367 Phone: 405-945-2647 Fax: 405-945-2088 -----Original Message----- From: owner-midrange-l@midrange.com [mailto:owner-midrange-l@midrange.com]On Behalf Of Roger Boucher Sent: Monday, January 03, 2000 11:33 AM To: 'MIDRANGE-L@midrange.com' Subject: RE: DLTOLDSPLF and Y2K I believe there was a known bug with the DLTOLDSPLF command (the one that used to come with the AS/400). I know it was NOT Y2K ready... although I can't say for sure the same exact bug caused your problem (but it seems likely). Fixing the bug is very easy and if anyone is having a problem I can offer the fix. Roger Boucher Standard Pacific Corp. rboucher@stanpac.com 714-668-4326 -----Original Message----- From: Henrik Krebs [mailto:hkrebs@hkrebs.dk] Sent: Monday, January 03, 2000 3:16 AM To: MIDRANGE-L@midrange.com Subject: DLTOLDSPLF and Y2K Nedenfor er resultatet af din e-mail formular. Indsendt af hkrebs@hkrebs.dk message: Here is a report on my first serious Y2K problem found too late (today): The V3R1M0 TAA-tool command DLTOLDSPLF will delete (in addition to all old spoolfiles created in 1999) _ALL_ spoolfile (no matter how 'old' or new) created in 2000. The test at my major customer has missed this part, causing serious loss of spoolfiles. Pls. note that I am not aware of any problems with the commands with the same name from http://www.taatool.com/ or http://hkrebs.dk/dltoldsplf.html Regards Henrik http://hkrebs.dk/ realname: Henrik Krebs email: hkrebs@hkrebs.dk REMOTE_HOST: 134.146.0.33 +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +--- +--- | This is the Midrange System Mailing List! | To submit a new message, send your mail to MIDRANGE-L@midrange.com. | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com. | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com. | Questions should be directed to the list owner/operator: david@midrange.com +---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 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.
midrange.com
