Amazing....!!!

[Praveen Marath <PraveenM@xxxxxxxxxxxxxxx>]

I encountered a typical problem. I will describe it detail.
Before Y2K conversion my code in a program looks like this
This is a datastructure to manipulate date. All except SINDT is from File.
  * DS for Invoice Date                     
 I            DS                                        
 I                                       1   60SINDT  
 I                                       1   20SINYY  
 I                                       3   40SINMM  
 I                                       5   60SINDD  

SINDT is used to move another file field.  After Y2K Conversion the dates
coming from here were not correct. Code after Y2K conversion looks like
this.

             * DS for Invoice Date

            I            DS

 Y2CHGI*                                       1   60SINDT               
 Y2CHGI                                        1   80SINDT               
 Y2CHGI*                                       1   20SINYY               
 Y2BCVI*                                       1   40SINYY               
 Y2BRVI                                        1   40PGINYY              
 Y2BRV * 'SINYY' IS RENAMED & EXPANDED AS 'PGINYY'.                      
 Y2CHGI*                                       3   40SINMM               
 Y2CHGI                                        5   60SINMM               
 Y2CHGI*                                       5   60SINDD               
 Y2CHGI                                        7   80SINDD               

In short SINYY is removed from data structure and replaced by PGINYY. while
reading from file SINYY is passed on to a conversion routine and passed on
to PGINYY as 4 digit.

I did'nt felt anything wrong on this, So I used ISDB to debug it. When I am
trying to check the value of SINYY it says that variable not available in
the program. Remember that SINYY is a file field and the file is declared in
the program. Why is it so ? 
(My description seems to be very long....? Pardon me..!! )


Regards,

Praveen Marath
praveenm@alfuttaim.co.ae

Phone 

Off. (Direct) : 3027232 
Off. (Ext.)    : 599966 - 232 
Res             : 221919 - 504  


* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List!  To submit a new         *
* message, send your mail to "RPG400-L@midrange.com".  To unsubscribe   *
* from this list send email to MAJORDOMO@midrange.com and specify       *
* 'unsubscribe RPG400-L' in the body of your message.  Questions should *
* be directed to the list owner / operator: david@midrange.com          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *