ユーザー属性の読み込みと設定を行う。
call x"A7" using function-code user-attribute returning status-code
呼び出しプロトタイプ使用時 ( 説明の読み方) | PIC (32 ビット システム) | |
---|---|---|
function-code | cblt-x1-compx | pic x comp-x. |
user-attribute | cblt-x1-compx | pic x comp-x. |
status-code | 説明の読み方 参照 |
function-code | 以下のように動作を定義する。
|
||||
user-attribute | function 7で、ユーザー属性の設定値 |
user-attribute | function 6で、現行のユーザー属性値 |
本ルーチンを使用する場合は、他のルーチン使用時に通常のCOBOL構文だけを使用する場合と同じ警告を使用すること。