The SET_SYSTEM call
The SET_SYSTEM call allows you to set CICS® system data values in the AP domain.
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 | * )]This command is threadsafe.
- 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 |