Re: So I tried to CPYTOPCD a *SAVF

["David Shea, DCSoftware, Inc." <dcsoft@xxxxxxxxxxx>]

Check out the QUSRTOOL utility called CPYFRMSAVF.  It will convert a SAVF
to a PF, which can be downloaded.  Here are some instructions for compiling
the utility:

DCSoftware, Inc.
Instructions for Creating CPYFRMSAVF Command

This procedure can be used if your AS/400 does not already have the
CPYFRMSAVF and CPYTOSAVF commands compiled on it.  This procedure has been
tested on v3r1 of the operating system.  Your particular installation may
be different.  If this procedure does not work, contact your IBM support
representative.

Overview

The QUSRTOOL (aka TAATOOL) utilities are a collection of programs
distributed with various releases of OS/400, but not officially supported
by IBM.  They are commands that must be compiled on each machine.  The
CPYFRMSAVF and CPYTOSAVF commands are useful in that they allow AS/400
objects to be distributed on PC diskettes.  To do this, the objects are
saved to a save file (SAVF), then the SAVF is converted to a physical file
using CPYFRMSAVF.  This physical file can then be downloaded using PC
Support or Client Access (save files can not be downloaded nor uploaded).
The downloaded file can then be distributed on diskette (perhaps using
PKZIP, or some other familiar PC software distribution technique).  The
process can then be reversed at the other end - the file is ‘unzipped’,
uploaded to the AS/400, then converted to a save file using the CPYTOSAVF
command.  The objects can then be restored normally using RSTOBJ.  This
eliminates many tape format problems where two machines do not have
compatible tape drives.  It also makes use of inexpensive diskettes instead
of very expensive data cartridges.

How to Create the CPYFRMSAVF Command

The CPYFRMSAVF and CPYTOSAVF commands are a ‘matched pair’, so to speak,
and created using this one procedure.

1. Start the source edit utility and print the source code for the
following files and members:  member CRTTAATOOL in file QATTINFO in library
QUSRTOOL; member CPYFRMSAVF in file QATTINFO in library QUSRTOOL.  These
source members will give you instructions on how to create the tools.  If
this library or the source file doesn’t exist, see your system
administrator for more information, or call your IBM support rep.
2. Determine if library TAATOOL already exists on your system.  If it
doesn’t, create the library as described in the instructions for CRTTAATOOL.
3. Determine if file QATTCL in library QUSRTOOL is a physical file or a
save file.  In  v3r1, IBM distributed the QUSRTOOL source code in save file
format.  If it is a save file, move the save file to another library (or
perhaps create a temporary library name, like QUSRSAVF).  After the file is
moved, restore the original source code using the command:              RSTOBJ
OBJ(*ALL) SAVLIB(QUSRTOOL) DEV(*SAVF)           SAVF(QUSRSAVF/QATTCL)
4. Repeat step 3 for save files QATTCMD, QATTRPG and QATTDDS.
5. Follow the instructions listed in member CRTTAATOOL printed in step 1.
6. Follow the instructions listed in member CPYFRMSAVF printed in step 1.
7. Test the command by entering the following on the command line:
TAATOOL/CPYFRMSAVF <F4>.

If the last step brought up the CPYFRMSAVF command screen, your procedure
has been successful.

Disclaimer

This procedure is being distributed as a convenience only.  No warranties
can be made regarding this procedure, since IBM has changed their QUSRTOOL
distribution methods often over the life of OS/400.  If this procedure does
not work, or if any of the steps do not work as described, please contact
your IBM support rep.

At 05:43 PM 6/15/97 -0700, Manikandan V wrote:
>Al:
>
>You can try copying the contents of the savefile to a PF and then CPYTOPCD
>the PF. 
>
>You can contact me off-line for more details, if needed.
>
>Regards,
>Mani
>
>At 06:59 PM 6/15/97 -0400, you 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
>>
>>
>>
>>Al Barsa, Jr.
>>Barsa Consulting, LLC
>>400 > 390
>>
>>Phone:        914-251-9400
>>Fax:  914-251-9406
>>
>>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>>* 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   *
>>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>>
>>
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>* 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   *
>* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
>
>
DCSoftware, Inc.  P.O. Box 473  Ashland, MA  01721
Phone: (508)435-8243   Fax: (508) 435-4498
mailto:dcsoft@ziplink.net
http://www.ziplink.net/~dcsoft
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* 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   *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *