QLPUSER Exit Program

The QLPUSER exit program is called during the automatic installation process. It can be used to restore products that are not listed on the Licensed Program menu. More information about the QLPUSER program is available in the Distributed Data Management book.

Parameters Required Parameter: 1 Tape device name Input Char(10) Threadsafe: No

Required Parameter

Tape device name

INPUT; CHAR(10)

The tape device name that identifies the tape device to be used.

QLPUSER Exit Program Example

The following example is a control language (CL) program that:

• Sends an instruction to the operator at the target site system.

• Restores a library containing an application.

• Copies the command to start the application into the QGPL library.

Note: The &DEVICE parameter in the example is the name of your tape device.

PGM PARM(&DEVICE)
DCL VAR(&DEVICE) TYPE(*CHAR) LEN(10)
SNDUSRMSG MSG('Load the tape containing Application 1, then press Enter.')
RSTLIB SAVLIB(APP1) DEV(&DEVICE)
CRTDUPOBJ OBJ(STRAPP1) FROMLIB(APP1) OBJTYPE(*CMD) TOLIB(QGPL)
ENDPGM