Re: Restore A Library From A CD

["Mark Waterbury" <mark.s.waterbury@xxxxxxxxxxxxxxxx>]

What did you specify as the value for the DEV parameter,
when you prompted and ran the LODRUN command?

----- Original Message -----
From: "Rusty Luse" <rluse@cronus.cc>
To: <midrange-l@midrange.com>
Sent: Thursday, October 10, 2002 8:15 AM
Subject: Restore A Library From A CD


> I am trying to create a CD that automatically restores libraries when the
> user runs the LODRUN command.  I used the article in the April 2001
News/400
> as my guide.  I followed the steps and used FTP to send my QINSTAPP
program
> and my libraries to the PC.  I then copied the files to a CD.  When I run
> the LODRUN command it begins to run the install program but stops when it
> tries to do the first restore library command.  Here is the code:
>
>             PGM        PARM(&DEVICE)
>
>             DCL        VAR(&DEVICE) TYPE(*CHAR) LEN(10)
>             DCLF       FILE(SI0020D)
>
>             RSTLIB     SAVLIB(TCGCGSINS) DEV(&DEVICE) RSTLIB(QTEMP)
>
> There is additional code but the program is ending at the first RSTLIB
> command with the following message:
>
>  Message ID . . . . . . :   CPA0701       Severity . . . . . . . :   99
>  Message type . . . . . :   Inquiry
>  Date sent  . . . . . . :   10/10/02      Time sent  . . . . . . :
> 09:05:21
>
>  Message . . . . :   CPF3780 received by QINSTAPP at 4700. (C D I R)
>  Cause . . . . . :   Control language (CL) program QINSTAPP in library
QTEMP
>    detected an error at statement number 4700. Message text for CPF3780
is:
>    Specified file for library TCGCGSINS not found.
>  Recovery  . . . :   This inquiry message can be avoided by changing the
>    program. Monitor for the error (MONMSG command) and perform error
> recovery
>    within the program. To continue, choose a reply value.
>  Possible choices for replying to message . . . . . . . . . . . . . . . :
>
>
> The install program runs fine when I test it by restoring from a tape.
What
> have I missed when creating my CD?
>
> Thanks,
> Rusty
>
> _______________________________________________
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>