! *** PREDECLARED TYPES
     
      %IF %DECLARED ( %BASIC$QUADWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$QUADWORD
            LONG FILL ( 2 )
         END RECORD
         %LET %BASIC$QUADWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$OCTAWORD_DECLARED ) = 0 %THEN
         RECORD BASIC$OCTAWORD
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$OCTAWORD_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$HFLOAT_AXP_DECLARED ) = 0 %THEN
         RECORD BASIC$HFLOAT_AXP
            LONG FILL ( 4 )
         END RECORD
         %LET %BASIC$HFLOAT_AXP_DECLARED = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$F_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$F_FLOATING_COMPLEX
            SINGLE REAL_PART
            SINGLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$F_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$D_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$D_FLOATING_COMPLEX
            DOUBLE REAL_PART
            DOUBLE IMAGINARY_PART
         END RECORD
         %LET %BASIC$D_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$G_FLOATING_COMPLEX_DECL ) = 0 %THEN
         RECORD BASIC$G_FLOATING_COMPLEX
            GFLOAT REAL_PART
            GFLOAT IMAGINARY_PART
         END RECORD
         %LET %BASIC$G_FLOATING_COMPLEX_DECL = 1
      %END %IF
     
      %IF %DECLARED ( %BASIC$H_FLOAT_AXP_CMPLX_DCL ) = 0 %THEN
         RECORD BASIC$H_FLOATING_COMPLEX_AXP
            BASIC$HFLOAT_AXP REAL_PART
            BASIC$HFLOAT_AXP IMAGINARY_PART
         END RECORD
         %LET %BASIC$H_FLOAT_AXP_CMPLX_DCL = 1
      %END %IF
    
    
    !  EVSB - Event Status Block
    !  The Event Status Block receives $EVENT service VMS and NT completion status 
      DECLARE LONG CONSTANT EVT$S_EVSB = 8
      record EVSB
         LONG EVT$L_VMS_STATUS              !  VMS completion status
         LONG EVT$L_NT_STATUS               !  NT completion status
      end record EVSB
    
      DECLARE LONG CONSTANT EVSB$K_LENGTH = 8  !  Length of EVSB
      DECLARE LONG CONSTANT EVSB$C_LENGTH = 8  !  Length of EVSB
    ! 
    !   +-------------------------------------------------------------------+
    !   | function codes
    !   +-------------------------------------------------------------------+
    ! 
      DECLARE LONG CONSTANT EVT$FC_REGISTER_EVENT_SOURCE = 1  !  register event source
      DECLARE LONG CONSTANT EVT$FC_REPORT_EVENT = 2  !  report event
      DECLARE LONG CONSTANT EVT$FC_DEREGISTER_EVENT_SOURCE = 3  !  deregister event source
      DECLARE LONG CONSTANT EVT$FC_FUNCTION_CODE_TOO_BIG = 4  !  Always keep as last function code
    !                                                              
    !   +-------------------------------------------------------------------+
    !   | item codes
    !   +-------------------------------------------------------------------+
    ! 
      DECLARE LONG CONSTANT EVT$_SERVER_NAME = 1  !  PW server name - currently ignored
      DECLARE LONG CONSTANT EVT$_SOURCE = 2  !  Event source id
      DECLARE LONG CONSTANT EVT$_HANDLE = 3  !  handle of registered event channel
      DECLARE LONG CONSTANT EVT$_EVENT_TYPE = 4  !  info, warning or error
      DECLARE LONG CONSTANT EVT$_EVENT_CATEGORY = 5  !  Event category
      DECLARE LONG CONSTANT EVT$_EVENT_ID = 6  !  Event ID
      DECLARE LONG CONSTANT EVT$_USER_SID = 7  !  NT security ID
      DECLARE LONG CONSTANT EVT$_NUMSTRINGS = 8  !  # counted strings in STRING_ARRAY
      DECLARE LONG CONSTANT EVT$_DATASIZE = 9  !  # bytes in RAW_DATA
      DECLARE LONG CONSTANT EVT$_STRING_ARRAY = 10  !  event log string data
      DECLARE LONG CONSTANT EVT$_RAW_DATA = 11  !  event log non-string data
      DECLARE LONG CONSTANT EVT$_ITEM_CODE_TOO_BIG = 12  !  Always keep as last item code
    ! 
    !  max length of SERVER_NAME string is 8 wchars, 32 bytes (4 * 8)
    ! 
      DECLARE LONG CONSTANT EVT$_MAX_SERVER_NAME_LEN = 32
    ! 
    !  Values for EVT$_EVENT_TYPE.  NOTE? These values must be kept in sync with
    !  the corresponding values in Microsoft's winnt.h
    ! 
      DECLARE LONG CONSTANT EVT$_SUCCESS = 0  !  MS EVENTLOG_SUCCESS
      DECLARE LONG CONSTANT EVT$_ERROR = 1  !  MS EVENTLOG_ERROR_TYPE
      DECLARE LONG CONSTANT EVT$_WARNING = 2  !  MS EVENTLOG_WARNING_TYPE
      DECLARE LONG CONSTANT EVT$_INFO = 4   !  MS EVENTLOG_INFORMATION_TYPE
      DECLARE LONG CONSTANT EVT$_AUDIT_SUCCESS = 8  !  MS EVENTLOG_AUDIT_SUCCESS
      DECLARE LONG CONSTANT EVT$_AUDIT_FAILURE = 16  !  MS EVENTLOG_AUDIT_FAILURE