Re: Getting lic keys for 4.5

[rob@xxxxxxxxx]

Good suggestion.  May I suggest RTVCFGSRC?

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 




Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>
Sent by: midrange-l-bounces@xxxxxxxxxxxx
04/29/2003 12:43 PM
Please respond to Midrange Systems Technical Discussion
 
        To:     Midrange Systems Technical Discussion 
<midrange-l@xxxxxxxxxxxx>
        cc: 
        Fax to: 
        Subject:        Re: Getting lic keys for 4.5


Joe Pluta wrote:

> I agree, Rob.  In fact, I just did it.  The nice thing is that it 
includes
> third party licenses as well, so you have one simple sheet for all of 
it.
> Not only that, but there is an option to dump everything to a license 
key
> file for backup.

As part of our daily backup, I run a program, GETSYSINF, that does a 
RTVSYSINF into a library that then immediately gets backed up.

I just added a DSPLICKEY statement at the end to add license information 
to the same library.

This is the code:

/* GET KEY SYSTEM INFORMATION INTO A LIBRARY */
/* MUST BE OWNED BY QSECOFR AND USRPRF(*OWNER) */

              PGM

              DCL        VAR(&LIB) TYPE(*CHAR) LEN(10) +
                           VALUE('SYSTEMINFO') /* Library to contain +
                           system info */

              CLRLIB     LIB(&LIB)
              MONMSG     MSGID(CPF0000) EXEC(DO)
              CRTLIB     LIB(&LIB) TEXT('Output of RTVSYSINF (Key +
                           system information)')
              ENDDO

              RTVSYSINF  LIB(&LIB)

              DSPLICKEY  OUTPUT(*LICKEYFILE) LICKEYFILE(&LIB/LICKEYINFO)

              ENDPGM

-- 
Jeff Crosby
Dilgard Frozen Foods, Inc.
P.O. Box 13369
Ft. Wayne, IN 46868-3369
260-422-7531

The opinions expressed are my own and not necessarily
the opinion of my company.  Unless I say so.



_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing 
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo.cgi/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.