This routine changes active/inactive information of Termination Key that can be acquired in the CRT STATUS clause.
Specification
01 crt-status-key-1 PIC X. 01 start-crt-status-key-2 PIC X(3). 01 end-crt-status-key-2 PIC X(3). 01 flag PIC X. 01 status-code PIC S9(4) COMP-5.
CALL "CBL_SET_SCR_TERMKEY" USING crt-status-key-1 start-crt-status-key-2 end-crt-status-key-2 flag RETURNING status-code.
Interface
crt-status-key-1 is the first status of a termination key set to activated or deactivated.
"1": crt-status-key-1 is "1".
"2": crt-status-key-1 is "2".
The beginning value of crt-status-key-2 of the termination key that sets activated/deactivated is specified by a number from "000" to "999".
The end value of crt-status-key-2 of termination key which sets activated/deactivated is specified by a number from "000" to "999". If the value of specified crt-status-key-2 is one, the same value as the beginning value and the end value is set.
Whether specified termination key is activated or it is deactivated is specified.
"0": Deactivated is assumed.
"1": Activated is assumed.
Return code
The return code is set in the status-code specified in the RETURNING clause.
0: Successful
Other than 0: Failure
Note
When this routine executes, it is necessary to specify execution environment information @CBR_SCR_KEYDEFFILE beforehand.