Re: Getting lic keys for 4.5

[Jeff Crosby <jlcrosby@xxxxxxxxxxxxxxxx>]

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.