Re: Getting a PF to resemble a SAVF

["David Shea" <dshea@xxxxxxxxxxxx>]

I saw someone post a method to use RPG to convert a PF to a savf.  There's
an easier way - REXX.  Check out this link:

http://www.tnt400.com/bo400ng/AS400savf.htm

for the details.  Those of you familiar with REXX, here's the code:

'OVRDBF FILE(STDIN) TOFILE(MYLIB/MYSAVF)'
'OVRDBF FILE(STDOUT) TOFILE(MYLIB/SAVFPF)'
DO 99999999
   PARSE LINEIN INLINE
   IF INLINE == '' THEN LEAVE
   SAY INLINE
END
EXIT

This will convert the savf to the pf.  The single quotes on the first two
lines are required, and the 'if inline' line reads as follows:

IF INLINE EQUAL EQUAL SINGLE QUOTE SINGLE QUOTE  THEN LEAVE

To run the above, go to a command line and do the following:

STRREXPRC SRCMBR(CPY2PF) SRCFILE(MYLIB/MYFILE)

No compiling, no F specs, etc.  Piece of cake.

+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Time share a current model AS/400 over the internet!
Individual developers, company development and testing, or full outsourcing.
Get access to RPG, Cobol, C, SQL, Java and more for a low monthly fee.
http://www.timeshare400.com
mailto:timeshare400@arctools.com
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---