RE: So I tried to CPYTOPCD a *SAVF

Bob & AL & Neil,
Just a few feet away from Al Barsia is Jim Slone, and in the User tools Jim
has (Al Maybe you can get a deal on it???) two useful tools, and (sorry to
say this) are API free, and will work from earlier version of the tools in
later versions of OS/400 if you have earlier versions of these tools. 

CPYFRMSAVF <- Copies from a save file, to a file of (coincidentally!!) 528
in width.
CPTTOSAVF <-- Copies to a save file.

The neat side of this, is code can be transported using the file created
from this using the following media...
DDM File across systems <- Laying waste to SNADS for object distribution...
Any PC Media <-- Laying waste to 1/2". 1/4" etc systems with nothing in
common with other systems with 8" drives....

Imagine transporting all program updates on a CD-ROM that was FTP'd From an
AS/400, then FTP'd back up to the AS/400. (FYI Best results uses the binary
transfer method...)

If I am telling you guys anything you already knew, please forgive....
-Andrew Borts

p.s
SMART   "Waiting outside is the entire fifth Army"
CRAW            "I Don't Berieve you SMART!"
SMART   "Would you believe three Dogs with Rabid tendencies???"
p.p.s. Not Craw CRAW!

>"...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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *