X"AF" function 81

SCREEN SECTION ACCEPT および DISPLAY 文が CBL_ 呼び出しの前に記述された罫線属性を継承できるようにします。

SCREEN SECTION ACCEPT および DISPLAY 文が CBL_ 呼び出しの前に記述された罫線属性を継承できるようにします。

構文：

call x"AF" using function-code
                 parameter

パラメーター：

function-code: 呼び出しプロトタイプ：cblt-x1-compx; PIC：pic x comp-x
parameter: 呼び出しプロトタイプ：cblt-x1-compx; PIC：pic x comp-x

入力パラメーター：

function-code

値 81

parameter

実行する動作

0	罫線属性を継承しません。
1	罫線属性を継承します。

出力パラメーター：

なし

コメント：

この機能を使用するには、プログラムに次のコードを追加する必要があります。

作業場所節に次のコードを追加します。

78 Inherit-Keisen value 81.
01 adis-function  pic 99 comp-x.
01 adis-flag-on   pic 99 comp-x value 1.
01 adis-flag-off  pic 99 comp-x value 0.

手続き部に次のコードを追加します。

MOVE Inherit-Keisen TO adis-function
CALL X"AF" USING adis-function adis-flag-on