WIN$VERSION

注: This ACUCOBOL-GT library routine is available in this COBOL version. Any compatibility issues in this COBOL system are in the Compatibility Issues section at the end of the topic.

使用方法

CALL "WIN$VERSION" 
    USING WINVERSION-DATA

パラメーター

WINVERSION-DATA のグループ項目は次のとおりです。

01  WINVERSION-DATA. 
    03  WIN-MAJOR-VERSION     PIC X COMP-X. 
    03  WIN-MINOR-VERSION     PIC X COMP-X. 
    03  WIN-PLATFORM          PIC X COMP-X. 
        88  PLATFORM-WIN-31   VALUE 1. 
        88  PLATFORM-WIN-95   VALUE 2. 
        88  PLATFORM-WIN-9X   VALUE 2. 
        88  PLATFORM-WIN-NT   VALUE 3. 
    03  WIN-WORDSIZE          PIC X COMP-X. 
        88  WIN-WORDSIZE-16   VALUE 1. 
        88  WIN-WORDSIZE-32   VALUE 2. 
        88  WIN-WORDSIZE-64   VALUE 3. 
    03  WIN-BUILDNUMBER                 PIC X(4) COMP-X. 
    03  WIN-CSDVERSION                  PIC X(128). 
    03  WIN-SERVICEPACK-MAJOR           PIC X COMP-X. 
    03  WIN-SERVICEPACK-MINOR           PIC X COMP-X. 
    03  WIN-SUITEMASK                   PIC X(4) COMP-X. 
    03  WIN-PRODUCTTYPE                 PIC X COMP-X. 
        88 WIN-NT-WORKSTATION           VALUE 1. 
        88 WIN-NT-DOMAIN-CONTROLLER     VALUE 2. 
        88 WIN-NT-SERVER                VALUE 3.

WINVERSION-DATA は COPY ライブラリ winvers.def にあります。

WIN-MAJOR-VERSION - Windows でレポートされるメジャーバージョン番号。可能な値については、次の表を参照してください。
WIN-MINOR-VERSION - Windows でレポートされるマイナーバージョン番号。可能な値については、次の表を参照してください。

Windows バージョン	WIN-MAJOR-VERSION	WIN-MINOR-VERSION	その他
Windows XP	5	1	該当なし
Windows XP Professional x64 Edition	5	2	OSVERSIONINFOEX.wProductType == VER_NT_WORKSTATION) && (SYSTEM_INFO.wProcessorArchitecture==PROCESSOR_ARCHITECTURE_AMD64
Windows Vista	6	0	OSVERSIONINFOEX.wProductType == VER_NT_WORKSTATION
Windows 7	6	1	OSVERSIONINFOEX.wProductType == VER_NT_WORKSTATION
Windows Server 2012	6	2	OSVERSIONINFOEX.wProductType == VER_NT_WORKSTATION
Windows Server 2008 R2	6	1	OSVERSIONINFOEX.wProductType != VER_NT_WORKSTATION
Windows Server 2008	6	0	OSVERSIONINFOEX.wProductType != VER_NT_WORKSTATION
Windows Server 2003 R2	5	2	GetSystemMetrics(SM_SERVERR2) != 0
Windows Home Sever	5	2	OSVERSIONINFOEX.wSuiteMask & VER_SUITE_WH_SERVER
Windows Server 2003	5	2	GetSystemMetrics(SM_SERVERR2) == 0

WIN-PLATFORM - ホストシステムの全般的な説明を提供します。ホストが Windows NT/Windows 2000 の場合、値は PLATFORM-WIN-NT に設定されます。ホストが Windows 98 の場合、値は PLATFORM-WIN-9X に設定されます。
WIN-WORDSIZE - この項目は、32 ビットオペレーティングシステムの場合は WIN-WORDSIZE-32、64 ビットオペレーティングシステムの場合は WIN-WORDSIZE-64 に設定されます。
WIN-BUILDNUMBER - オペレーティングシステムのビルド番号を識別します。
WIN-CSDVERSION - システムにインストールされている最新のサービスパックを示します。サービスパックがインストールされていない場合、文字列は空になります。
WIN-SERVICEPACK-MAJOR - システムにインストールされている最新のサービスパックのメジャーバージョン番号を示します。サービスパックがインストールされていない場合、値は 0 になります。
WIN-SERVICEPACK-MINOR - システムにインストールされている最新のサービスパックのマイナーバージョン番号を示します。サービスパックがインストールされていない場合、値は 0 になります。
WIN-SUITEMASK - システムで利用可能な製品スイートを識別するビットマスクです。可能な値については、オペレーティングシステムのドキュメントを参照してください。
WIN-PRODUCTTTYPE - システムに関するその他の情報を識別します。

互換性の問題

コピーブック winvers.def はこの COBOL システムでは使用できません。

次のフィールドは、この COBOL システムでサポートされていません。

WIN-BUILDNUMBER
WIN-CSDVERSION
WIN-SERVICEPACK-MAJOR
WIN-SERVICEPACK-MINOR
WIN-SUITEMASK
WIN-PRODUCTTTYPE

これらのフィールドは、必要に応じて空白またはゼロを返します。

WIN$VERSION

使用方法

パラメーター

コメント

互換性の問題