X"A7" functions 6 and 7

Syntax:

call x"A7" using     function-code
                     user-attribute
           returning status-code

Parameters:

  Using call prototype (see Key) Picture
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.