CBL_GET_OS_INFO

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

構文:

call "CBL_GET_OS_INFO" using     parameter-block
                       returning status-code

パラメーター

parameter-block
cblt-os-info-params として定義されている集団。次のものを含む。
01 cblt-os-info-params typedef.03 cblte-osi-length cblt-x2-compx.*> pic x(2) comp-x value 28.03 cblte-osi-os-type cblt-x1-compx.*> pic x comp-x.03 cblte-osi-os-version cblt-x4-compx.*> pic x(4) comp-x.03 cblte-osi-dbcs-support cblt-x1-compx.*> pic x comp-x.03 cblte-osi-char-coding cblt-x1-compx.*> pic x comp-x.03 cblte-osi-country-id cblt-x2-compx.*> pic x(2) comp-x.03 cblte-osi-code-page cblt-x2-compx.*> pic x(2) comp-x.03 cblte-osi-process-type cblt-x1-compx.*> pic x comp-x.03 cblte-osi-rts-capabilities cblt-x4-compx.*> pic x(4) comp-x.03 cblte-osi-product cblt-x2-compx.*> pic x(2) comp-x.03 cblte-osi-product-version cblt-x2-compx.*> pic x(2) comp-x.03 cblte-osi-product-revision cblt-x2-compx.*> pic x(2) comp-x.03 cblte-osi-product-sp cblt-x2-compx.*> pic x(2) comp-x.03 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 シフト JIS
2 EUC 日本語
3 BIG-5 (繁体字中国語)
4 5550 (繁体字中国語)
5 GB (簡体字中国語)
6 KS-CODE (韓国語)
7 PC-CODE (韓国語)
8 EUC 台湾語
9 EUC その他の言語
cblte-osi-country-id

UNIX: 予備。値は常に 0。

Windows: 国別コード。国別コードの詳細については、オペレーティング システムのマニュアルを参照。

cblte-osi-code-page

UNIX: 予備。値は常に 0。

Windows: コード ページ。コード ページ コードの詳細については、オペレーティング システムのマニュアルを参照。

cblte-osi-process-type

UNIX: 予備。値は未定義。

Windows: プロセス タイプ:
0 全画面セッションで実行するプロセス
3 実際のグラフィック アプリケーションとして実行するプロセス
cblte-osi-rts-capabilities
ランタイム システムの特性。次のように設定される。
ビット 説明
0

マルチスレッド マルチスレッドの RTS

1 メインフレームの負荷軽減 (メインフレームのポインターをエミュレート)
2 64 ビット対応。ランタイム システムが 64 ビット アプリケーションの実行をサポートしている。
3 プログラムが Enterprise Server の制御下で実行されているかを示す。
4 ランタイム システムが Enterprise Server モードで実行されていることを示す。
5 プログラムが CLR (Common Language Runtime) で実行されているかを示す。
6 プログラムが JVM (Java 仮想マシン) で実行されているかを示す。
7 プログラムが Docker コンテナー内で実行されているかを示す。
制約事項: マネージ COBOL プログラムには適用されない。
8-31 予備。このルーチンによって 0 に設定される。
cblte-osi-product
製品 ID:
0 不明 (下位互換性)
1 Server Express
2 Net Express
3 Mainframe Express (V3.0 以前)
4 Mainframe Express (V3.01 以降)
5 Visual COBOL
cblte-osi-product-version
製品バージョン。COBOL 開発システム 4.0 の場合、本フィールドは 4 になる。
cblte-osi-product-revision
製品リビジョン。COBOL 開発システム 4.5 の場合、本フィールドは 5 になる。
cblte-osi-product-sp
製品サービス パック レベル。Server Express 4.0 Service Pack 1 の場合、本フィールドは 1 になる。
cblte-osi-fixpack
Windows の場合、本フィールドは RTS フィックスパック バージョンを示す。COBOL 開発システム 4.0 RTS09N40 FixPack の場合、本フィールドは 9 になる。UNIX の場合、個々のコンポーネントのフィックスパックは供与されないので、本フィールドは製品フィックスパック バージョンになる。