取り込んだ文字を大文字に変更

次の呼び出しを使用します。

   call x"AF" using adis-function
                    adis-parameter 

詳細は次のとおりです。

   01  adis-function        pic x comp-x value 1.
   01  adis-parameter
       03  bitpair-setting  pic x comp-x value 1.
       03  bitpair-section  pic x value "2".
       03  bitpair-index    pic x comp-x value 85.
       03  bitpair-count    pic x comp-x value 1.

キーボードから入力された大文字と小文字を取り込めるように Adis を復元するには、bitpair-setting を 0 に設定します。