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

SET_SYSTEM
DFHSAIQX [CALL,]
[CLEAR,]
[IN,
FUNCTION(SET_SYSTEM),
[DTRPRGRM(name8 | string | 'string'),]
[GMMLENGTH(name2 | (Rn) | expression),]
[GMMTEXT(name8 | (Rn)),]]
[OUT,
RESPONSE (name1 | * ),
REASON (name1 | * )]
DTRPRGRM(name8 | string | ’string’)
specifies the name of the dynamic routing program.
name8
The name of an 8-byte area that contains the name of the dynamic
routing program.
string A string of character, without intervening blanks, that defines the name
of the dynamic routing program being set.
‘string’
A string of character without intervening blanks. If you want to
document a name (label) in your program, use this form.
GMMLENGTH(name2 | (Rn))
specifies the length of the new “good morning” message supplied by the
GMMTEXT parameter.
name2
The name of a 2-byte area that contains, as a half-word binary value,
the length of the new good morning message.
(Rn) A register that contains the length of the new good morning message.
GMMTEXT(name4 | (Rn))
specifies the new good morning message.
name4
The name of a 4-byte location that contains the address of a storage
area (up to a maximum of 246 bytes long) that contains the good
morning message.
(Rn) A register that contains the address of a storage area (up to a
maximum of 246 bytes long) that contains the good morning message.
RESPONSE and REASON values for SET_SYSTEM:
RESPONSE REASON
OK None
INVALID INVALID_FUNCTION
EXCEPTION AKP_SIZE_ERROR
NO_KEYPOINT
DISASTER SET_FAILED
PURGED None
state data access functions
360 CICS TS for OS/390: CICS Customization Guide