This routine provides more information about the system than is returned by the ACCEPT FROM SYSTEM-INFO statement.
CALL "WIN$VERSION" USING WINVERSION-DATA
WINVERSION-DATA Group item as follows: |
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 is found in the COPY library winvers.def. |
Upon return from WIN$VERSION, all of the data elements contained in WINVERSION-DATA are filled in. If you call WIN$VERSION and the host machine is not a Windows or Windows NT system, the fields are set to zero.
The following list provides a description of each WINVERSION-DATA field. For a list of possible values for any given field, see the Microsoft operating-system-version Web page.