オペレーティング システムに依存しないグラフィック文字のコードを返します。
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.
cblte-gsgb-buf-size を cblte-gsgb-buf の長さよりも大きい値に設定しないでください。cblte-gsgb-buf-size が cblte-gsgb-buf の長さを上回っている場合、ランタイム システムがバッファーを超えてメモリに書き込み続けるため、他のデータが破損する可能性があります。
DBCS が要求されていない場合や、予期されていない場合でも、すべての DBCS 文字部分がバイト数に完全に含まれている必要があります。
cblte-gsgb-*-dbflg データ項目の場合、ゼロは、1 バイト文字コードが返されたことを示します。ゼロ以外の値は、返された 2 バイト文字の先頭バイトです。