RE: urgent -- RPG400-L

Here is a piece of code that shows you how I find the RRN number of a 
record:


     FGCKFM     CF   E             WORKSTN 
     F                                     SFILE(SFLA:RRNA) 
     FGCKF      UF A E             DISK    INFDS(INFDS) 
     FGCKFL1    IF   E           K DISK    Rename(RGCKF:RGCKF1) 
     F                                     INFDS(DB1) BLOCK(*NO) 
     FGCKFL2    IF   E           K DISK    Rename(RGCKF:RGCKF2) 
     F                                     INFDS(DB2) BLOCK(*NO) 
     FGCKFL3    IF   E           K DISK    Rename(RGCKF:RGCKF3) 
     F                                     INFDS(DB3) BLOCK(*NO) 
      *  .................................................. 
      * Get the record Number, to know which record to update/process: 
     D DB1             DS 
     D DB1RRN                397    400B 0 
     D DB2             DS 
     D DB2RRN                397    400B 0 
     D DB3             DS 
     D DB3RRN                397    400B 0 
      *  .................................................. 
      * INFDS for database file. FileSize will contain the number 
      * of records in the file when the file is opened. 
     DINFDS            DS 
     D FILESIZE              156    159B 0  
_______________________
Booth Martin
booth@martinvt.com
http://www.MartinVT.com
_______________________




"rajan tangri" <rajantangri@hotmail.com>
Sent by: owner-rpg400-l@midrange.com
05/16/2000 08:28 AM
Please respond to RPG400-L

 
        To:     RPG400-L@midrange.com
        cc: 
        Subject:        RE: urgent


Am I getting it right ?
So to read/chain  a non keyed file by RRN ,I have to use a subfile ?
If yes ,I feel it is better to use SQL or OPNQRYF.

Rajan

>From: Chris Bipes <rpg@cross-check.com>
>Reply-To: RPG400-L@midrange.com
>To: "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
>Subject: RE: urgent
>Date: Mon, 15 May 2000 14:49:08 -0700
>
>I've chained to a non-keyed PF by RRN when the file is not unique keyed 
and
>an update/delete option was chosen as a subfile option.  (We hide the RRN 

>in
>the subfile record when we load it. hee hee hee.)
>
>
>
>Hi
>
>I need to chain a field in a file(non-keyed) with a field in another
>file(multiple keyed), but having different keyed sequence. Creating a new
>logical file is not allowed.  Can you help me out?
>_______________________________________________________________________
________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: 
david@midrange.com
+---




+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---