You need to create a new source PF and then copy all the members to the
   new file.
   Finally, delete the old file rename the new file to the old name.

   CRTSRCPF FILE(LIB/NEWFILE)                  
            RCDLEN(112)                        
            TEXT('Example for ILE RPG source')
    
   CPYF FROMFILE(LIB/OLDFILE)  
        TOFILE(NEW/NEWFILE)    
        FROMMBR(*ALL)          
        TOMBR(*FROMMBR)        
        MBROPT(*REPLACE)      

   DLTF FILE(LIB/OLDFILE)

   RNMOBJ OBJ(LIB/NEWFILE)      
          OBJTYPE(*FILE)        
          NEWOBJ(OLDFILE)        
   ----------------------

   Scott A. Schollenberger
   Director, R&D
   TENEX Systems, a division of Harris Computer Systems
   2011 Renaissance Blvd., Suite 100
   King of Prussia, PA  19406
   Phone: 610-239-9988  Ext. 305
   Fax: 610-239-9995
   E-mail: saschollenberger@xxxxxxxxxxxx
   Web: www.tenexsys.com

   IBM Certified Specialist - eServer i5 iSeries Technical Solutions
   Implementer V5R3

   CONFIDENTIALITY NOTICE:  This email message, including any attachments, is
   for the sole use of the intended recipient(s) and contains confidential
   and privileged information.  Any unauthorized review, use, disclosure or
   distribution is prohibited.  If you are not the intended recipient, please
   contact the sender by reply email and destroy all copies of the original
   message.

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.