QLPUSER Exit Program
Optional Parameter Group:
| 1 | Device name | Input | Char(10) |
| 2 | Install success | Ouptut | Char(1) |
Threadsafe: No
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:
- Install was successful.
- Install was unsuccessful, however, QGPL and QUSRSYS were successfully installed, and the QLPUSER program was created with both optional parameters.
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.
Authorities and Locks
None.
Optional Parameter Group
- Device name
- INPUT; CHAR(10)
The device name that identifies the media device to be used for any user-defined restore operations.
- Install success
- OUTPUT; CHAR(1)
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.
QLPUSER Exit Program Example
The following control language (CL) program is an example of a user-defined installation program that:
- Sends an instruction to the operator at the target site system.
- Restores a library that contains an application.
- Copies the command to start the application in the QGPL library.
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
Exit program introduced: V2R3