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
_______________________________________________________________________
               (
geocities.com/siliconvalley/Pines)                   (
geocities.com/siliconvalley)