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.