RE: DLTOLDSPLF and Y2K

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
+---