RE: SAVF info to Physical

Bryan:

Here's a kind of psuedo-code CL program that gets the process started:

PGM

CRTUSRSPC USRSPC( QTEMP/MYUSRSPC ) INLSIZE( 1000000 )

CALL  QSRLSAVF  ( +
                  'MYUSRSPC  QTEMP' +
                  SAVF0200 +
                  'MYSAVF    MYLIB' +
                  *ALL +
                  *ALL +
                  '                                     ' +
                  X'0000000000000000' +
                )

DMPOBJ  QTEMP/MYUSRSPC  *USRSPC

ENDPGM

The CRTUSRSPC command is a wrapper for the QUSCRTUS (Create user space) API. 
That can be ignored for now. The main point is the CALL to QSRLSAVF which lists 
the savf into the user space. From there, the elements of the list could be 
read and put into a file or whatever you wanted. The DMPOBJ merely dumps the 
space for viewing and is otherwise extraneous.

In some ways, it's as easy as that. If this had some kind of file output in 
place of the DMPOBJ, is there any reason it wouldn't be essentially sufficient? 
(Obviously, lack of error-checking, variables for savf name and libraries, 
etc., notwithstanding.)

Tom Liotta

rpg400-l-request@xxxxxxxxxxxx wrote:

>   7. RE: SAVF info to Physical (Bryan Merrell)
>
>Right now neither of these things are possible.
>We create these save files on a dev sys and right now without programmer
>intervention there is not the ability for other employees to create save
>files within another save file.
>We also have no ability on the other systems (again without programmer
>intervention) for users to send us a save file (via this system) that is not
>on our company wide VRM.
>I agree that these things may play a factor in future needs.
>
>Bryan:
>
>Do you have a plan for when the savefile contains nested savefiles? Listing
>the content of a savefile is fairly easy; doing it "recursively" would be a
>bit more tricky.
>
>And is there any chance a savefile could be created on another system and
>then moved here before being FTPd out? This could cause very tricky problems
>if two systems are at different VRMs.

-- 
Tom Liotta
The PowerTech Group, Inc.
19426 68th Avenue South
Kent, WA 98032
Phone  253-872-7788 x313
Fax    253-872-7904
http://www.powertech.com



__________________________________________________________________
Switch to Netscape Internet Service.
As low as $9.95 a month -- Sign up today at http://isp.netscape.com/register

Netscape. Just the Net You Need.

New! Netscape Toolbar for Internet Explorer
Search from anywhere on the Web and block those annoying pop-ups.
Download now at http://channels.netscape.com/ns/search/install.jsp