X"A7" functions 6 and 7

Reads and sets user attribute.

Syntax:
call x"A7" using     function-code
                     user-attribute
           returning status-code
Parameters:
Using call prototype (see Library Routines - Key) Picture (32-bit systems)
function-code cblt-x1-compx pic x comp-x.
user-attribute cblt-x1-compx pic x comp-x.
status-code See Library Routines - Key
On Entry:
function-code Defines the action:
6 Read user attribute
7 Set user attribute
user-attribute For function 7, the value to set the user attribute.
On Exit:
user-attribute For function 6, the value of the current user attribute.
Comments:

You should use the same caution when using this routine as when using any other, using only regular COBOL syntax wherever possible.

See Also: