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:

1. Install was successful.
2. 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 the information center topic: Write 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

See Code disclaimer information for information pertaining to code examples.

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.

Note: 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.

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