AS400

In Subfile control record format: A                                                   SFLCSRRRN(&CSRRN) A            SRRN            4S 0H      SFLRCDNBR(CURSOR) A            CSRRN          5S 0H                         Before exformatting the subfile move CSRRN to SRRN

Save the files FILE1 and FILE2 from Library SLIB to the save file SAVF in TSAVLIBin the source system. SAVOBJ OBJ(FILE1 FILE2) LIB(SLIB) DEV(*SAVF) SAVF(TSAVLIB/SAVF) Then in the Source system Use FTP to put the Content of Save File (TSAVLIB/SAVF) to a save file (TSAVLIB2/SAVF) in the destination system. FTP SYSTEM1 PUT TSAVLIB/SAVF TSAVLIB2/SAVF (Get in Destination System wont run sometimes hence always used PUT) Once FTP is complete. Restore Objects RSTOBJ OBJ(*ALL) SAVLIB(SLIB) DEV(*SAVF) SAVF(TSAVLIB2/SAVF) MBROPT(*ALL) RSTLIB(DESTLIB) When restoring make sure the library is a separate library (Create a New)because this restore will clear and restore the object so you will lose whatever in the restoring library. It is safe clear the library first so that you dont let the system clear it and you can backup whatever you want to keep. --------------------------------------------------------------------------- Save 2 members (/More than 2) from 2 files into save