I need to send a *SAVF save file from a V5R1 machine to a V4R2 machine. V3R2 used to be the common denominator, but V5R1 no longer allows it. How do I get around this?

I would convert the save file to a flat-file format using REXX, then FTP it to the save file on V4R2. Create a physical using the following:

 
CRTPF FILE(QTEMP/ISWRKF) RCDLEN(528)
Create a source member and enter the following:
'OVRSAVF    FILE(STDIN)  TOFILE(qtemp/issavf) '  
'OVRDBF     FILE(STDOUT) TOFILE(qtemp/iswrkf) '                                                  
DO FOREVER                                       
  PARSE LINEIN SaveFileData                      
  IF SaveFileData == '' THEN LEAVE 
  SAY SaveFileData                               
END                                              
'DLTOVR     FILE(STDIN)'                         
'DLTOVR     FILE(STDOUT)'                        
'RCLRSC'                                         
Run the REXX procedure.
Then FTP using:
quote rcmd CRTSAVF FILE(QGPL/ISSAVF)
BINARY
PUT /qsys.lib/qtemp.lib/iswrkf.file/iswrkf.mbr /qsys.lib/qgpl.lib/issavf.file/issavf.mbr

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

The Best Web Links: tips, tutorials and more.

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

Ask the Experts yourself: Our OS/400 gurus are waiting to answer your questions.

Check out this Search400.com Featured Topic: Top 10 expert tips for OS/400


This was first published in October 2003

Back to top