IBM iSeries - Manual (Page 31)

The following example is a control language (CL) program that sends an instruction to the operator at the
target site system. It also restores a library that contains an application and copies the command to start
the application in the QGPL library:
Note: The &DEVICE parameter in the example is the name of
your media device. The &SUCCESS parameter is used as an
indication of whether or not all licensed programs installed
successfully.
PGM PARM(&DEVICE &SUCCESS)
DCL VAR(&DEVICE) TYPE(*CHAR) LEN(10)
DCL VAR(&SUCCESS) TYPE(*CHAR) LEN(1)
IF COND(&SUCCESS *EQ '1') THEN(DO)
SNDUSRMSG MSG('Loadthe tape in ' *CAT &DEVICE *CAT +
'andpress the Enter key.')
RSTLIB SAVLIB(APP1) DEV(&DEVICE)
CRTDUPOBJ OBJ(STRAPP1) FROMLIB(APP1) +
OBJTYPE(*CMD) TOLIB(QGPL)
ENDDO
ELSE
SNDUSRMSG MSG('One or more licensedprograms failedto +
install.')
ENDPGM
Note: All program objects need to be converted to be compatible
with PowerPC Technology before distributing them to the
target site system. If program objects have not been
converted, you can force the conversion of observable
programs by using the Force object conversion
(FRCOBJCVN) parameter on the RSTLIB command.
You should keep a copy of your QLPUSER program in one of your user libraries. If you have several
target site systems that need unique processing, you should create a separate program for each target
site system.
You should test your user-defined installation program to make sure that it works as expected before
creating the distribution media.
Verifying the operation of the QLPUSER program at the target site
system
After the target site system has completed installation of distribution media, the operator at the target site
system should verify that the installation was successful. Selecting option 50 (Display log for messages)
on the GO LICPGM menu does this. For more information about option 50 on the GO LICPGM menu, see
Software Installation .
If you used the QLPUSER program in the QGPL library, the system may display the following messages.
These messages appear when the target site system uses Option 50 (Display log for messages) to verify
the installation:
v CPI3D80: User installation processing started
v CPC3D85: User installation processing completed
v CPI3D8B: User installation processing failed
You should instruct the target site system to verify that they received the ″User install processing
completed
″ message. If the target site system received the ″User install processing failed″ message, this
indicates that the system did run the QLPUSER program in the QGPL library. However, one or more errors
occurred. None of these messages may have appeared. If so, this indicates that the QLPUSER program in
Using central site distribution to install multiple iSeries servers 25