Quickest way to get PF to save file, and back

In this tip you'll learn a simple way to extract data from a save file into a database file.

This tool is a replacement for TAATOOL'S product of CPYFRMSAVF & CPYTOSAVF. The TAATOOL forces you to write CL

& RPG to convert the save information. This tool allows for a simple way of extracting data from a save file into a database file (i.e. Copy SAVF to PF) without having to write a CL & RPG. This facility is useful when transferring (e.g. via FTP) the save information via database into your PC, and into a save media (e.g. CD or diskette). And when you are ready to restore it back to your iSeries, you transfer the PC file into your iSeries and use the reverse methodology (i.e. Copy PF to SAVF).

Copy SAVF to PF (SAVF2PF)

_____________________________________________

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

Copy PF to SAVF (PF2SAVF)

_____________________________________________

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

How does this work?

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)

==================================
MORE INFORMATION ON THIS TOPIC
==================================

The Best Web Links: tips, tutorials and more.

Ask your programming questions--or help out your peers by answering them--in our live discussion forums.

Ask the Experts yourself: Our application development gurus are waiting to answer your programming questions.


This was first published in October 2002

Dig deeper on iSeries CL programming

0 comments

Oldest 

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to:

SearchEnterpriseLinux

SearchDataCenter

Close