RE: Processes two members of the same file in a RPG program.

if you are using RPGIV/RPGLE and it support extmbr keyword, you can do it 
without CL. (note: haven't tested.  hopefully it work :))

 * read from file
FMYFILE    IF   E           K DISK    extmbr(mbr1)       
 * output to file (program decribe file)
FMYFILEOUT OF   F 1024        DISK    extfile('MYFILE')      
F                                     extmbr(mbr2) 

 * declare a temp file that is the same length as the output file
 * (notice the pointer point back to the MYFILEDS)
D MYFILEOUTDS     DS          1024        based(pMYFILEOUTDS)
D pMYFILEOUTDS    S               *   inz(%addr(MYFILEDS))
                                                            
D MYFILEDS      E DS                  extname(MYFILE)

C                   read      MYFILEFmt                         
C                   write     MYFILEOUT     MYFILEOUTDS
C                       delete    MYFILE



  -----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
venkateshwar.raman@xxxxxxxxx
Sent: Thursday, November 11, 2004 5:42 AM
To: RPG400-L@xxxxxxxxxxxx
Subject: Processes two members of the same file in a RPG program.
Importance: High



Hi All,
 
I have a requirement where I need to read records from one member of a file, 
then write the record to another member of the same file and then once written 
to the other member, remove the records from the first member.
 
Can somebody tell me how this can be done from a RPG program. How do I process 
the Overrides from the calling CL so that this requirements is satisfied.
 
Regards,
Venky



Confidentiality Notice 

The information contained in this electronic message and any attachments to 
this message are intended
for the exclusive use of the addressee(s) and may contain confidential or 
privileged information. If
you are not the intended recipient, please notify the sender at Wipro or 
Mailadmin@xxxxxxxxx immediately
and destroy all copies of this message and any attachments.