      * WINVERS.DEF - definitions for the WIN$VERSION library routine.
      * Last modified: 18-May-2010 - SJL.

      * Copyright (c) 1996-2014 by Micro Focus.  Users of ACUCOBOL
      * may freely include this file in their COBOL source code.

       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.
               
      * WIN-SUITEMASK is a bit mask that identifies the product suites 
      * available on the system. This can be a combination of the following values
      
       78 WIN-SUITE-BACKOFFICE                 VALUE 4.
       78 WIN-SUITE-BLADE                      VALUE 1024.
       78 WIN-SUITE-COMPUTE-SERVER             VALUE 16384.
       78 WIN-SUITE-DATACENTER                 VALUE 128.
       78 WIN-SUITE-ENTERPRISE                 VALUE 2.
       78 WIN-SUITE-EMBEDDEDNT                 VALUE 64.
       78 WIN-SUITE-PERSONAL                   VALUE 512.
       78 WIN-SUITE-SINGLEUSERTS               VALUE 256.
       78 WIN-SUITE-SMALLBUSINESS              VALUE 1.
       78 WIN-SUITE-SMALLBUSINESS-RESTRICTED   VALUE 32.
       78 WIN-SUITE-STORAGE-SERVER             VALUE 8192.
       78 WIN-SUITE-TERMINAL                   VALUE 16.
       78 WIN-SUITE-WH-SERVER                  VALUE 32768.
       
      * End of WINVERS.DEF.
