RE: Chaining ussing RRN#

Suppose u need to chain a file FILE1 and u need to work with a RRN of
750(FLD1 is a field in it), u can try this! Similarly u can get the RRN
value in @rrn variable at any particular time of your operation

Ffile1     if   e             disk    recno(@rrn)                   
C*                                                                  
C                   move      750           @rrn              3 0   
C     @rrn          chain     file1                                 
C     fld1            dsply                                           
C                      eval      *inlr = *on                           
C*                                   

Hope this will serve your purpose! :-)                               

Regards,
Sanjib 
 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Stiju Easo
Sent: Wednesday, April 12, 2006 4:23 PM
To: RPG programming on the AS400 / iSeries
Subject: Chaining ussing RRN#

Hi Friends,

  How can i chain a record ussing RRN no,
  I want to know how i could retrive RRN no of a pirticular Record,
  I didnt use this metord before,

My problem is
 My ordinary chain fails even though it points to correct record
   (I verified by checking values in debug mode)
   I cant redesign the PF bcoz its created by SQL from some other
application
     I need to carry on with it

   Plse guide me in running by RRN way.
    If any other idea is possible please suggest.