オペレーティング システムに依存しないグラフィック文字のコードを返します。
call "CBL_GET_SCR_GRAPHICS" using graphics-params returning status-code
01 cblt-get-scr-graphics-buffer typedef. 03 cblte-gsgb-flag cblt-x1-compx. *> pic x comp-x. 03 cblte-gsgb-buf-size cblt-x2-compx. *> pic x(2) comp-x. 03 cblte-gsgb-buf. 04 cblte-gsgb-up-arrow. 05 cblte-gsgb-up-arrow-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-up-arrow-arrow cblt-x1-compx. *> pic x. 04 cblte-gsgb-down-arrow. 05 cblte-gsgb-down-arrow-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-down-arrow-arrow cblt-x1-compx. *> pic x 04 cblte-gsgb-right-arrow. 05 cblte-gsgb-right-arrow-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-right-arrow-arrow cblt-x1-compx. *> pic x. 04 cblte-gsgb-left-arrow. 05 cblte-gsgb-left-arrow-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-left-arrow-arrow cblt-x1-compx. *> pic x. 04 cblte-gsgb-maximize. 05 cblte-gsgb-maximize-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-maximize-char cblt-x1-compx. *> pic x. 04 cblte-gsgb-minimize. 05 cblte-gsgb-minimize-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-minimize-char cblt-x1-compx. *> pic x. 04 cblte-gsgb-check. 05 cblte-gsgb-check-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-check-char cblt-x1-compx. *> pic x. 04 cblte-gsgb-restore. 05 cblte-gsgb-restore-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-restore-char cblt-x1-compx. *> pic x. 04 cblte-gsgb-radio. 05 cblte-gsgb-radio-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-radio-char cblt-x1-compx. *> pic x. 04 cblte-gsgb-scroll. 05 cblte-gsgb-scroll-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-scroll-char cblt-x1-compx. *> pic x. 04 cblte-gsgb-rubber-band. 05 cblte-gsgb-rubber-band-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-rubber-band-char cblt-x1-compx. *> pic x. 04 cblte-gsgb-sysmenu. 05 cblte-gsgb-sysmenu-char-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-sysmenu-char-char cblt-x1-compx. *> pic x. 04 cblte-gsgb-editor-char. 05 cblte-gsgb-editor-char-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-editor-char-char cblt-x1-compx. *> pic x. 04 cblte-gsgb-hyhelp-tab. 05 cblte-gsgb-hyhelp-tab-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-hyhelp-tab-char cblt-x1-compx. *> pic x. 04 cblte-gsgb-hyhelp-btab. 05 cblte-gsgb-hyhelp-btab-dbflag cblt-x1-compx. *> pic x comp-x. 05 cblte-gsgb-hyhelp-btab-char cblt-x1-compx. *> pic x.
コード | 説明 |
---|---|
0 | ホスト環境に応じて、1 バイト文字セットまたは 2 バイト文字セットのいずれか |
1 | 1 バイト文字セット (SBCS) のみ |
2 | 2 バイト文字セット (DBCS) のみ |
cblte-gsgb-buf-size を cblte-gsgb-buf の長さよりも大きい値に設定しないでください。cblte-gsgb-buf-size が cblte-gsgb-buf の長さを上回っている場合、ランタイム システムがバッファーを超えてメモリに書き込み続けるため、他のデータが破損する可能性があります。
DBCS が要求されていない場合や、予期されていない場合でも、すべての DBCS 文字部分がバイト数に完全に含まれている必要があります。
cblte-gsgb-*-dbflg データ項目の場合、ゼロは、1 バイト文字コードが返されたことを示します。ゼロ以外の値は、返された 2 バイト文字の先頭バイトです。
コード | 説明 |
---|---|
0 | 成功 |
1 | 要求されたコードの一部が使用できませんでした。cblte-gsgb-buf-size には、返されたバイト数が格納されています。 |
2 | 指定された文字コード (SBCS または DBCS) を cblte-gsgb-buf に格納できませんでした。この場合、使用できなかった文字は、cblte-gsgb-flag が 0 に設定されているかのように格納されます。 |
3 | status-code 1 と 2 で示される両方のエラーが発生しました。 |