Re: Amazing....!!! -- RPG400-L

Hello everybody,

     As earlier said by some one you cannot access a database field 
variable in the program unless and untill U refer it by a program 
field. If, for what U thought was possible then just try out and see 
the value of  any other database variables which are not referenced 
in the program, I'm sure that U will not be able to get it.

That's all,
Have a nice day... 


>From: Praveen Marath <PraveenM@alfuttaim.co.ae>
>Reply-To: RPG400-L@midrange.com
>To: rpg400-l@midrange.com
>Subject: Amazing....!!!
>Date: Wed, 28 Apr 1999 10:22:18 +0400
>
>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          *
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
* * *


______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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          *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *