1 | Device name | Input | Char(10) |
2 | Install success | Ouptut | Char(1) |
The QLPUSER user-defined exit program will be called during the automatic installation process. It can be used to restore products that are not listed on the Licensed Program menu or perform any other post install functions required on the target system. QLPUSER, if it exists in QGPL, will be called in the following situations:
Note: If QGPL or QUSRSYS fail to install, QLPUSER will not be called.
More information about the QLPUSER user-defined exit program can be found in Optional: Writing a user-defined installation program for the target systems.
None.
The device name that identifies the media device to be used for any user-defined restore operations.
This parameter will let you know whether or not the install was successful.
0 | The install was unsuccessful. One or more licensed programs failed to install. QGPL and QUSRSYS, however, were installed successfully. |
1 | The install was successful. |
The following control language (CL) program is an example of a user-defined installation program that:
The &DEVICE parameter in the example is the name of your media device. The &SUCCESS parameter is used as an indication of whether all licensed programs installed successfully.
Note: By using the code examples, you agree to the terms of the Code license and disclaimer information.
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('Load the media into ' *CAT &DEVICE *CAT 'and press the Enter key.') RSTLIB SAVLIB(APP1) DEV(&DEVICE) CRTDUPOBJ OBJ(STRAPP1) FROMLIB(APP1) OBJTYPE(*CMD) TOLIB(QGPL) ENDDO ELSE SNDUSRMSG MSG('One or more licensed programs failed to install.') ENDPGM