IBM SC33-1683-02 - Manual (Page 360)

RESPONSE REASON
EXCEPTION PROGRAM_NOT_DEFINED
PROGRAM_NOT_IN_USE
DISASTER None
INVALID None
KERNERROR None
PURGED None
Notes:
1. For more detail, refer to the explanation of RESPONSE and REASON in
“General form of an XPI call” on page 286.
2. ‘PROGRAM_NOT_DEFINED’ is returned if the program that you name is not
known to the system.
3. ‘PROGRAM_NOT_IN_USE’ is returned when the use count for the named
program is already zero.
The DELETE_PROGRAM call
DELETE_PROGRAM removes the definition of a named program from the catalog
and from the list of current programs. When this request executes successfully,
subsequent ACQUIRE_PROGRAM requests fail with a REASON value of
‘PROGRAM_NOT_DEFINED’.
DELETE_PROGRAM
DFHLDLDX [CALL,]
[CLEAR,]
[IN,
FUNCTION(DELETE_PROGRAM),
PROGRAM_NAME(name8 | string | 'string' ),]
[OUT,
RESPONSE(name1 | *),
REASON(name1 | *)]
PROGRAM_NAME(name8 | string | "string")
specifies the name of the program to be deleted.
name8
The name of a location containing an 8-byte program name.
string A string of characters naming the program.
"string"
A string in quotation marks. The string length is set to 8 by padding with
blanks or truncating.
RESPONSE and REASON values for DELETE_PROGRAM:
RESPONSE REASON
OK None
EXCEPTION PROGRAM_NOT_DEFINED
DISASTER None
INVALID None
KERNERROR None
PURGED None
Note: For more detail, refer to the explanation of RESPONSE and REASON in
“General form of an XPI call” on page 286.
loader functions
328 CICS TS for OS/390: CICS Customization Guide