isCOBOL Evolve : Appendices : Library Routines : WIN$VERSION
WIN$VERSION
The WIN$VERSION library routine retrieves extended information about the Windows operating system where the isCOBOL framework is running. See the ACCEPT FROM SYSTEM INFO statement for additional information about the host operating system.
Note - If your current JVM was released before the current operating system, then values returned by this routine may not be accurate.
Syntax:
 CALL "WIN$VERSION" USING WINVERSION-DATA
Parameters:
WINVERSION-DATA
Group Item
This group data item should have the following structure:
 
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.
win-major-version
Receives the operating system's major version.
win-minor-version
Receives the operating system's major version.
 
win-major-version and win-minor-version should be evaluated together, referring to the following table:
Operating system
Major version
Minor version
Windows 10
10
0
Windows 8.1
6
3
Windows 8
6
2
Windows Server 2012
6
2
Windows 7
6
1
Windows Server 2008 R2
6
1
Windows Server 2008
6
0
Windows Vista
6
0
Windows Server 2003 R2
5
2
Windows Server 2003
5
2
Windows XP 64-bit
5
2
Windows XP
5
1
Windows 2000
5
0
win-platform
Receives the operating system's major platform.
win-wordsize
Receives the runtime's word size.
Examples:
Example - Get Windows version information
*> on working-storage copy "iswinvers.def"
 
call "win$version" using winversion-data
display message "Win major version : " win-major-version x"0d0a"
                "Win minor version : " win-minor-version x"0d0a"
                "Win platform      : " win-platform.