RE: So I tried to CPYTOPCD a *SAVF

[Neil Palmer <neil@xxxxxxxxxxxxxx>]

"...20 lines of RPG code", would you believe 7 !
Missed it by THAT much !
...Maxwell Smart
...Shoe Phones 'r Us
...Kaos, New Mexico


On Sun, 15 Jun 1997, Bob Cozzi wrote:

> Al,
> 
> You need my cool "Copy SaveFile" command. However, if you just write a 
> simple little RPG program to read a 528 byte record ("RecIn"), and write a 
> 528 record ("RecOut"), then override them at runtime to a *SAVF object and 
> a 528-byte database file created with something like CRTPF mySaveFile 
>  RCDLEN(528) SRCFILE(*NONE) LVLCHK(*NO)
> 
> Then call the program with the save file overridden to the RecIn file, and 
> your database file overridden to the RecOut file. All in all about 20 lines 
> of RPG code.
> 
> Then you can download it to the PC, but be sure to use NO CONVERSION on the 
> transfer. That seems to work best.
> 
> Bob Cozzi
> 
> 
> On Sunday, June 15, 1997 5:59 PM, Al Barsa, Jr. [SMTP:barsa@IBM.NET] wrote:
> > Hello All,
> >
> > In response to the request to download the COMMON library, I tried an
> > experiment to save the library to a save file, so I could ZIP it and get 
> a
> > possible size to download.  Given the fact that the internal size of 
> AS/400
> > objects is in 4 K blocks, and the fact that there is a lot of source 
> here,
> > this thing ought to ZIP up famously.
> >
> > It turns out that you can't CPYTOPCD a save file.  How else can I handle
> > this???
> >
> >
> > Al
> >
> 
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> * This is the Midrange System Mailing List!  To submit a new message,   *
> * send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
> * this list send email to MAJORDOMO@midrange.com and specify            *
> * 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
> * should be directed to the list owner / operator: david@midrange.com   *
> * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
> umidr
> 
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the Midrange System Mailing List!  To submit a new message,   *
* send your mail to "MIDRANGE-L@midrange.com".  To unsubscribe from     *
* this list send email to MAJORDOMO@midrange.com and specify            *
* 'unsubscribe MIDRANGE-L' in the body of your message.  Questions      *
* should be directed to the list owner / operator: david@midrange.com   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *