CBL_GET_OS_INFO

オペレーティングシステム環境についての情報を返す。

構文:
call "CBL_GET_OS_INFO" using     parameter-block
                       returning status-code
パラメタ:
呼び出しプロトタイプ使用時 ( 説明の読み方) PIC (32bitシステム)
parameter-block Group predefined as cblt-os-info-params containing: 以下を含む集団項目:
  cblte-osi-length   cblt-x2-compx value 28   pic x(2) comp-x value 28.
  cblte-osi-os-type   cblt-x1-compx   pic x comp-x.
  cblte-osi-os-version   cblt-x4-compx   pic x(4) comp-x.
  cblte-osi-dbcs-support   cblt-x1-compx   pic x comp-x.
  cblte-osi-char-coding   cblt-x1-compx   pic x comp-x.
  cblte-osi-country-id   cblt-x2-compx   pic x(2) comp-x.
  cblte-osi-code-page   cblt-x2-compx   pic x(2) comp-x.
  cblte-osi-process-type   cblt-x1-compx   pic x comp-x.
  cblte-osi-rts-capabilities   cblt-x4-compx   pic x(4) comp-x.
  cblte-osi-product   cblt-x2-compx   pic x(2) comp-x.
  cblte-osi-product-version   cblt-x2-compx   pic x(2) comp-x.
  cblte-osi-product-revision   cblt-x2-compx   pic x(2) comp-x.
  cblte-osi-product-sp   cblt-x2-compx   pic x(2) comp-x.
  cblte-osi-fixpack   cblt-x2-compx   pic x(2) comp-x.
status-code 説明の読み方 参照
入力パラメタ:
cblte-osi-os-length 返される情報の長さ
出力パラメタ:
cblte-osi-os-length 返される情報の長さ。エントリの長さ以下でもよい。
cblte-osi-os-type Windowsの場合は131、UNIXのCOBOLの場合は128
cblte-osi-os-version 用途はオペレーティングシステムに固有。チップ種類やオペレーティングシステムバージョン番号などの情報を含むこともある。Windowsの場合、第3および第4バイトには、副および主リリースのオペレーティングシステムバージョン番号がそれぞれ入る。
cblte-osi-dbcs-support DBCSサポートフラグ:
ビット0
0 DBCS妥当性検査がサポートされていない場合
1 DBCS妥当性検査がサポートされている場合
ビット1
0 PIC Nデータ型がサポートされていない場合
1 PIC Nデータ型がサポートされている場合
cblte-osi-char-coding 文字コード:
0 ASCII
1 Shift-JIS
2 EUC 日本語
3 BIG-5 (繁体字中国語)
4 5550 (繁体字中国語)
5 GB (簡体字中国語)
6 KS-CODE (韓国語)
7 PC-CODE (韓国語)
8 EUC 台湾語
9 EUC その他の言語
cblte-osi-country-id

国番号。国番号の詳細は、オペレーティングシステムのマニュアルを参照のこと。

cblte-osi-code-page

コードページ。コードページの詳細は、オペレーティングシステムのマニュアルを参照のこと。

cblte-osi-process-type

処理の種類:

0 全画面セッションで実行する処理
3 実際の図形アプリケーションとして実行する処理
cblte-osi-rts-capabilities 実行時システムの種類は以下のとおり。
0 マルチスレッディング
1 機能を解除するメインフレーム。メインフレームポインタエミュレーション。
2 64ビット機能。実行時システムは64ビットオペレーションシステム上で動作する。

3

プログラムがエンタープライズサーバの制御下で動作するかを示す。

4-31

保留

cblte-osi-product 製品ID:
0 Unknown (backward compatibility)
1 Visual COBOL
2 Net Express
3 Mainframe Express
cblte-osi-product-version 製品バージョン。Net Express4.0の場合、本フィールドは4になる。
cblte-osi-product-revision 製品バージョン。Net Express4.5の場合、本フィールドは5になる。
cblte-osi-product-sp 製品サービスパックレベル。Visual COBOL 4.0サービスパック1の場合、本フィールドは1になる。
cblte-osi-fixpack Windowsの場合、本フィールドはRTSフィックスパックバージョンを示す。Net Express 4.0 RTSS09N40フィックスパックの場合、本フィールドは9になる。UNIXの場合、個々のフィックスパックは供与されないので、本フィールドは製品フィックスパックバージョンになる。
他参照:

関連項目