キーボードから文字を取得します。
構文：
call x"AF" using function-code
key-status
パラメーター：
- function-code
- 呼び出しプロトタイプ：cblt-x1-compx
- ピクチャ：pic x comp-x
- key-status
- 次を含むグループ：
01 key-status
03 key-type pic x. *> pic x.
03 key-code-1 cblt-x1-compx *> pic x comp-x.
03 key-code-2 cblt-x1-compx *> pic x comp-x.
入力パラメーター：
- function-code
- 値は 26 です。
出力パラメーター：
- key-type
- 読み込まれるキー タイプは、次のとおりです。
| 1 |
ユーザー定義のファンクション キー |
| 2 |
Adis ファンクション キー |
| 3 |
データ キー |
| 9 |
エラー |
- key-code-1
- key-type が 1 または 2 の場合には、ユーザー定義キーには 0 ～ 127、Adis キーには 0 ～ 39 のキー番号が設定されます。ファンクション キーの詳細は、『Programmer's Guide to Creating User Interfaces』の「Adis 構成ユーティリティ (Adiscf)」の章を参照してください。
key-type が 3 の場合は、押されたキーの ASCII コードです。
key-type が 9 の場合は、エラー コードです。
| 8 |
使用不能な文字が入力された場合は、key-code-2 にはその文字が格納されます。 |
| 9 |
無効なキーストローク (2 バイト以上) が発生しました。 |
コメント：
このルーチンにより、COBOL 画面操作システムも呼び出されます。