CBL_GET_SCR_GRAPHICS

オペレーティング システムに依存しないグラフィック文字のコードを返します。

制約事項: このルーチンはネイティブ COBOL でのみサポートされます。

構文

        call "CBL_GET_SCR_GRAPHICS" using     graphics-params
        returning status-code
      

パラメーター

graphics-params
cblt-get-scr-graphics-buffer として定義されている集団 (以下を含む)
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.
status-code
説明の読み方」を参照。

入力パラメーター

cblte-gsgb-flag
取得する文字コードのタイプ。
コード 説明
0 ホスト環境に応じて、1 バイト文字セットまたは 2 バイト文字セットのいずれか
1 1 バイト文字セット (SBCS) のみ
2 2 バイト文字セット (DBCS) のみ
cblte-gsgb-buf-size
cblte-gsgb-buf の長さ (バイト単位)。cblte-gsgb-buf-size の通常の値は 30 ですが、より小さい値を指定することで、必要なグラフィック値のみを要求できます。

cblte-gsgb-buf-sizecblte-gsgb-buf の長さよりも大きい値に設定しないでください。cblte-gsgb-buf-sizecblte-gsgb-buf の長さを上回っている場合、ランタイム システムがバッファーを超えてメモリに書き込み続けるため、他のデータが破損する可能性があります。

出力パラメーター

cblte-gsgb-buf-size
格納されたバイト数。
cblte-gsgb-buf
cblte-gsgb-buf-size のバイト数に完全に含まれている各エントリの文字コード。バイト数に部分的にしか含まれていない文字コードの内容は不定になります。バイト数にまったく含まれていない文字コードは無視されます。

DBCS が要求されていない場合や、予期されていない場合でも、すべての DBCS 文字部分がバイト数に完全に含まれている必要があります。

cblte-gsgb-*-dbflg データ項目の場合、ゼロは、1 バイト文字コードが返されたことを示します。ゼロ以外の値は、返された 2 バイト文字の先頭バイトです。

status-code
戻り状態。
コード 説明
0 成功
1 要求されたコードの一部が使用できませんでした。cblte-gsgb-buf-size には、返されたバイト数が格納されています。
2 指定された文字コード (SBCS または DBCS) を cblte-gsgb-buf に格納できませんでした。この場合、使用できなかった文字は、cblte-gsgb-flag が 0 に設定されているかのように格納されます。
3 status-code 1 と 2 で示される両方のエラーが発生しました。