Reads and sets user attribute.
Note: This routine is supported for native COBOL only.
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.