Here are 2 source members you can use to replace the utility
that Jim Sloan created.  Move these members to a source file (e.g.
QGPL/QTXTSRC).

Copy SAVF to PF (SAVF2PF)_____________________________________________

        	*************** Beginning of data ************************************* 
0001.00 	'OVRDBF FILE(STDIN) TOFILE(QTEMP/SAVF)'                                 
0002.00 	'OVRDBF FILE(STDOUT) TOFILE(QTEMP/F528) MBR(*FIRST)'                    
0003.00 	                                                                        
0004.00 	Do Forever                                                              
0005.00 	  Parse Linein Record                                                   
0006.00 	  If Record == '' then Leave                                            
0007.00 	    Say Record                                                          
0008.00 	End                                                                     
        	****************** End of data **************************************** 


Copy PF to SAVF (PF2SAVF)_____________________________________________

        	*************** Beginning of data ************************************* 
0001.00 	'OVRDBF FILE(STDIN) TOFILE(QTEMP/F528) MBR(*FIRST)'                     
0002.00 	'OVRDBF FILE(STDOUT) TOFILE(QTEMP/SAVF)'                                
0003.00 	                                                                        
0004.00 	Do Forever                                                              
0005.00 	  Parse Linein Record                                                   
0006.00 	  If Record == '' then Leave                                            
0007.00 	    Say Record                                                          
0008.00 	End                                                                     
        	****************** End of data **************************************** 



H O W     D O E S     T H I S     W O R K_____________________________________

First, you create the save file QTEMP/SAVF and save all your objects (or save library)
using the device *SAVF - QTEMP/SAVF.

Then you would create the physical file using the command:

	CRTPF  QTEMP/F528  RCDLEN(528)  SIZE(*NOMAX)

To copy from save file to the physical file, you execute the command:

	STRREXPRC  SRCMBR(SAVF2PF)  SRCFILE(QGPL/QTXTSRC)


To restore the physical file back to the save file, all you do is use the other member:

	STRREXPRC  SRCMBR(PF2SAVF)  SRCFILE(QGPL/QTXTSRC)

_______________________________________________________________________


If you like this tip, make sure you forward it to all your AS/400 friends.  But tell
them you found this trick in the AS/400 Journal Web-site

http://www.geocities.com/SiliconValley/Pines/5581

_______________________________________________________________________

    Source: geocities.com/siliconvalley/Pines/5581

               ( geocities.com/siliconvalley/Pines)                   ( geocities.com/siliconvalley)