      * ACTIVEX.DEF - useful definitions for ActiveX and COM.
      * Last modified: 06-Feb-03 - DL

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

      * Error information structure for use with C$EXCEPINFO:
       01  ERROR-INFO.
           03  ERROR-INFO-RESULT   USAGE UNSIGNED-INT.
           03  ERROR-INFO-FACILITY USAGE UNSIGNED-SHORT.
      * Facilities
               88  FACILITY-ACU                      VALUE 4.
               88  FACILITY-ACTIVE-X                 VALUE 10.
           03  ERROR-INFO-CODE     USAGE UNSIGNED-SHORT.
      * FACILITY-ACU error codes
      * Class not registered
               88  ACU-E-CLASSNOTREGISTERED          VALUE 340.
      * Unexpected error
               88  ACU-E-UNEXPECTED                  VALUE 8192.
      * Invalid parameter name
               88  ACU-E-INVALIDPARAMNAME            VALUE 8193.
      * Invalid handle
               88  ACU-E-INVALIDHANDLE               VALUE 8194.
      * Error loading INITIAL-STATE from resource file
               88  ACU-E-INITIALSTATE                VALUE 8195.
      * No exception information available
               88  ACU-E-NOEXCEPINFO                 VALUE 8196.
      * Invalid property number
               88  ACU-E-INVALIDPROPNUM              VALUE 8197.
      * Too many parameters
               88  ACU-E-TOOMANYPARAMS               VALUE 8198.
      * Too few parameters
               88  ACU-E-TOOFEWPARAMS                VALUE 8199.
      * Property can be modified but not inquired
               88  ACU-E-NOTPROPERTYGET              VALUE 8200.
      * Property can be inquired but not modified
               88  ACU-E-NOTPROPERTYPUT              VALUE 8201.
      * Error creating ActiveX control
               88  ACU-E-CREATE                      VALUE 8202.


      * FACILITY-ACTIVE-X error codes:
               88  AX-E-ILLEGALFUNCTIONCALL          VALUE 5.
               88  AX-E-OVERFLOW                     VALUE 6.
               88  AX-E-OUTOFMEMORY                  VALUE 7.
               88  AX-E-DIVISIONBYZERO               VALUE 11.
               88  AX-E-OUTOFSTRINGSPACE             VALUE 14.
               88  AX-E-OUTOFSTACKSPACE              VALUE 28.
               88  AX-E-BADFILENAMEORNUMBER          VALUE 52.
               88  AX-E-FILENOTFOUND                 VALUE 53.
               88  AX-E-BADFILEMODE                  VALUE 54.
               88  AX-E-FILEALREADYOPEN              VALUE 55.
               88  AX-E-DEVICEIOERROR                VALUE 57.
               88  AX-E-FILEALREADYEXISTS            VALUE 58.
               88  AX-E-BADRECORDLENGTH              VALUE 59.
               88  AX-E-DISKFULL                     VALUE 61.
               88  AX-E-BADRECORDNUMBER              VALUE 63.
               88  AX-E-BADFILENAME                  VALUE 64.
               88  AX-E-TOOMANYFILES                 VALUE 67.
               88  AX-E-DEVICEUNAVAILABLE            VALUE 68.
               88  AX-E-PERMISSIONDENIED             VALUE 70.
               88  AX-E-DISKNOTREADY                 VALUE 71.
               88  AX-E-PATHFILEACCESSERROR          VALUE 75.
               88  AX-E-PATHNOTFOUND                 VALUE 76.
               88  AX-E-INVALIDPATTERNSTRING         VALUE 93.
               88  AX-E-INVALIDUSEOFNULL             VALUE 94.
               88  AX-E-INVALIDFILEFORMAT            VALUE 321.
               88  AX-E-INVALIDPROPERTYVALUE         VALUE 380.
               88  AX-E-INVALIDPROPERTYARRAYINDEX    VALUE 381.
               88  AX-E-SETNOTSUPPORTEDATRUNTIME     VALUE 382.
               88  AX-E-SETNOTSUPPORTED              VALUE 383.
               88  AX-E-NEEDPROPERTYARRAYINDEX       VALUE 385.
               88  AX-E-SETNOTPERMITTED              VALUE 387.
               88  AX-E-GETNOTSUPPORTEDATRUNTIME     VALUE 393.
               88  AX-E-GETNOTSUPPORTED              VALUE 394.
               88  AX-E-PROPERTYNOTFOUND             VALUE 422.
               88  AX-E-INVALIDCLIPBOARDFORMAT       VALUE 460.
               88  AX-E-INVALIDPICTURE               VALUE 481.
               88  AX-E-PRINTERERROR                 VALUE 482.
               88  AX-E-CANTSAVEFILETOTEMP           VALUE 735.
               88  AX-E-SEARCHTEXTNOTFOUND           VALUE 744.
               88  AX-E-REPLACEMENTSTOOLONG          VALUE 746.

      *  Standard OLE-COLOR Values:
       78  OLE-BLACK               VALUE X#000000.
       78  OLE-RED                 VALUE X#0000FF.
       78  OLE-GREEN               VALUE X#00FF00.
       78  OLE-YELLOW              VALUE X#00FFFF.
       78  OLE-BLUE                VALUE X#FF0000.
       78  OLE-MAGENTA             VALUE X#FF00FF.
       78  OLE-CYAN                VALUE X#FFFF00.
       78  OLE-WHITE               VALUE X#FFFFFF.

      * C$RESOURCE opcodes

       78  CRESOURCE-LOAD          VALUE 1.
       78  CRESOURCE-DESTROY       VALUE 2.

      * VARIANT types
       78  VT-NULL                 VALUE 1.
       78  VT-I2                   VALUE 2.
       78  VT-I4                   VALUE 3.
       78  VT-R4                   VALUE 4.
       78  VT-R8                   VALUE 5.
       78  VT-CY                   VALUE 6.
       78  VT-DATE                 VALUE 7.
       78  VT-BSTR                 VALUE 8.
       78  VT-DISPATCH             VALUE 9.
       78  VT-ERROR                VALUE 10.
       78  VT-BOOL                 VALUE 11.
       78  VT-VARIANT              VALUE 12.
       78  VT-UNKNOWN              VALUE 13.
       78  VT-DECIMAL              VALUE 14.
       78  VT-I1                   VALUE 16.
       78  VT-UI1                  VALUE 17.
       78  VT-UI2                  VALUE 18.
       78  VT-UI4                  VALUE 19.
       78  VT-I8                   VALUE 20.
       78  VT-UI8                  VALUE 21.
       78  VT-INT                  VALUE 22.
       78  VT-UINT                 VALUE 23.
       78  VT-VOID                 VALUE 24.
       78  VT-HRESULT              VALUE 25.
       78  VT-PTR                  VALUE 26.
       78  VT-SAFEARRAY            VALUE 27.
       78  VT-CARRAY               VALUE 28.
       78  VT-USERDEFINED          VALUE 29.
       78  VT-LPSTR                VALUE 30.
       78  VT-LPWSTR               VALUE 31.
       78  VT-RECORD               VALUE 36.
       78  VT-FILETIME             VALUE 64.
       78  VT-BLOB                 VALUE 65.
       78  VT-STREAM               VALUE 66.
       78  VT-STORAGE              VALUE 67.
       78  VT-STREAMED-OBJECT      VALUE 68.
       78  VT-STORED-OBJECT        VALUE 69.
       78  VT-BLOB-OBJECT          VALUE 70.
       78  VT-CF                   VALUE 71.
       78  VT-CLSID                VALUE 72.

