%DEFINE CIA$GENERIC_REPLY LONG

      ! *** 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
    
    
      DECLARE LONG CONSTANT CIA$K_SCAN = 1
      DECLARE LONG CONSTANT CIA$K_DELETE = 2
      DECLARE LONG CONSTANT CIA$K_SHOW = 3
      DECLARE LONG CONSTANT CIA$K_PERFORMANCE = 4
      DECLARE LONG CONSTANT CIA$K_ZERO_PERFORMANCE = 5
      DECLARE LONG CONSTANT CIA$K_SCAN_EXTENDED = 6
      DECLARE LONG CONSTANT CIA$K_DELETE_EXTENDED = 7
      DECLARE LONG CONSTANT CIA$K_SHOW_EXTENDED = 8
      DECLARE LONG CONSTANT CIA$K_MAX_CIA_CODE = 9
      DECLARE LONG CONSTANT CIA$K_PERFORMANCE_LENGTH = 40
      DECLARE LONG CONSTANT CIA$S_PERFORMANCE = 40
      record PERFORMANCE
         LONG CIA$L_TOTAL_MESSAGES
         LONG CIA$L_TOTAL_EXCEPTIONS
         LONG CIA$L_SHOWS
         LONG CIA$L_SCANS
         LONG CIA$L_DELETES
         LONG CIA$L_PERFORMANCE
         LONG CIA$L_AUDITS
         LONG CIA$L_INVALID_MESSAGES
         LONG CIA$L_INTRUDERS
         LONG CIA$L_SUSPECTS
      end record PERFORMANCE
    
      DECLARE LONG CONSTANT CIA$K_SOURCE_TERMINAL_LENGTH = 64
      DECLARE LONG CONSTANT CIA$K_SOURCE_NODE_MAX_LENGTH = 1024
      DECLARE LONG CONSTANT CIA$K_USER_SPEC_MAX_LENGTH = 1058
      DECLARE LONG CONSTANT CIA$K_USER_STRING_MAX_LENGTH = 32
      DECLARE LONG CONSTANT CIA$K_PASSWORD_MAX_LENGTH = 32
      DECLARE LONG CONSTANT CIA$K_SOURCE_ADDRESS_MAX_LENGTH = 128
      DECLARE LONG CONSTANT CIA$K_SCSNODE_LENGTH = 8
      DECLARE LONG CONSTANT CIA$K_SCSNODE_REPLY_LENGTH = 12
      DECLARE LONG CONSTANT CIA$K_USERDATA_LENGTH = 256
      DECLARE LONG CONSTANT CIA$S_CIA$GENERIC_DESC = 5
      record CIA$GENERIC_DESC
         WORD CIA$W_DESC_LENGTH
         WORD CIA$W_FILL1
         STRING CIA$T_DESC_DATA = 1
      end record CIA$GENERIC_DESC
    
      DECLARE LONG CONSTANT CIAEXT$S_PACKET = 4
      DECLARE LONG CONSTANT CIAEXT$S_EXTENSION_PACKET = 4
      record EXTENSION_PACKET
         WORD CIAEXT$W_TYPE                 !  packet type
         WORD CIAEXT$W_LENGTH               !  packet length NOT including T/L words
         STRING CIAEXT$R_VALUE = 0          !  start of data
      end record EXTENSION_PACKET
    
      DECLARE LONG CONSTANT CIAEXT$_USER_DATA = 100
      DECLARE LONG CONSTANT CIAEXT$_SCSNODE = 101
      DECLARE LONG CONSTANT CIAEXT$_SCSNODE_REPLY = 102
      DECLARE LONG CONSTANT CIAEXT$_IMAGE_NAME = 103
      DECLARE LONG CONSTANT CIAEXT$_MAX_CIAEXT_CODE = 104
      DECLARE LONG CONSTANT CIA$_SCSNODE_LIST = 200  !  List of nodes for which to act
      DECLARE LONG CONSTANT CIA$_SCSNODE = 201  !  Single node for SCAN
      DECLARE LONG CONSTANT CIA$_OUTPUT_LIST = 202  !  List of nodes records occured on
      DECLARE LONG CONSTANT CIA$_USER_DATA = 203  !  Opaque Data.  We don't use it.
      DECLARE LONG CONSTANT CIA$_USER_CRITERIAL = 204  !  Existing argument passed by item list
      DECLARE LONG CONSTANT CIA$_FAILED_USERNAME = 205  !  Existing argument passsed by item list
      DECLARE LONG CONSTANT CIA$_IMAGE_NAME = 206  !  Image name performing scan
      DECLARE LONG CONSTANT CIA$_MAX_CIA_ITEM = 207
      DECLARE LONG CONSTANT CIA$K_IMAGE_NAME_MAX_SIZE = 4096
      DECLARE LONG CONSTANT CIA$S_IMAGE_NAME = 4100
      record IMAGE_NAME
         WORD CIA$W_IMAGE_LENGTH
         WORD CIA$W_IMAGE_UNUSED
         STRING CIA$T_IMAGE_STRING = 4096
      end record IMAGE_NAME
    
      DECLARE LONG CONSTANT CIA$M_IGNORE_RETURN = x'00000001'
      DECLARE LONG CONSTANT CIA$M_RESERVED_1 = x'000000FE'
      DECLARE LONG CONSTANT CIA$M_SUSPECTS = x'00000100'
      DECLARE LONG CONSTANT CIA$M_INTRUDERS = x'00000200'
      DECLARE LONG CONSTANT CIA$M_SECONDARY_PASSWORD = x'00000400'
      DECLARE LONG CONSTANT CIA$M_NOAUDIT = x'00000800'
      DECLARE LONG CONSTANT CIA$M_REAL_USERNAME = x'00001000'
      DECLARE LONG CONSTANT CIA$M_SHOW_NODE = x'00002000'
      DECLARE LONG CONSTANT CIA$M_ITEMLIST = x'00004000'
      DECLARE LONG CONSTANT CIA$M_FILL_1 = x'FFFF8000'
      DECLARE LONG CONSTANT CIA$K_HEADER_LENGTH = 8
      DECLARE LONG CONSTANT CIA$S_HEADER = 8
      record HEADER
         LONG CIA$L_CONTEXT
         group CIA$R_FILL_82_
            variant
               case
                  LONG CIA$L_HEADER_FLAGS
               case
                  group CIA$R_FILL_83_
                     LONG IGNORE_RETURN_bits   ! COMMENT ADDED BY SDL - IGNORE_RETURN_bits contains bits IGNORE_RETURN through  &
 ! FILL_1
                  end group CIA$R_FILL_83_
            end variant
         end group CIA$R_FILL_82_
      end record HEADER
    
      DECLARE LONG CONSTANT CIA$K_SHOW_INPUT_LENGTH = 1062
      DECLARE LONG CONSTANT CIA$K_DELETE_INPUT_LENGTH = 1062
      DECLARE LONG CONSTANT CIA$S_CONTENTS = 1062
      record CONTENTS
         WORD CIA$W_LENGTH
         WORD CIA$W_UNUSED
         STRING CIA$T_NAME = 1058
      end record CONTENTS
    
      DECLARE LONG CONSTANT CIA$K_SCAN_CONTENTS_LENGTH = 1386
      DECLARE LONG CONSTANT CIA$S_SCAN_CONTENTS = 1386
      record SCAN_CONTENTS
         LONG CIA$L_PARENT_ID
         LONG CIA$L_JOB_TYPE
         LONG CIA$L_LOGIN_STATUS
         group CIA$R_FILL_84_
            variant
               case
                  STRING CIA$T_SOURCE_TERMINAL = 68
               case
                  group CIA$R_FILL_85_
                     WORD CIA$W_SOURCE_TERM_LENGTH
                     WORD CIA$W_UNUSED_1
                     STRING CIA$T_SOURCE_TERM_NAME = 64
                  end group CIA$R_FILL_85_
            end variant
         end group CIA$R_FILL_84_
         group CIA$R_FILL_86_
            variant
               case
                  STRING CIA$T_SOURCE_USER = 36
               case
                  group CIA$R_FILL_87_
                     WORD CIA$W_SOURCE_USER_LENGTH
                     WORD CIA$W_UNUSED_2
                     STRING CIA$T_SOURCE_USER_NAME = 32
                  end group CIA$R_FILL_87_
            end variant
         end group CIA$R_FILL_86_
         group CIA$R_FILL_88_
            variant
               case
                  STRING CIA$T_SOURCE_ADDRESS = 132
               case
                  group CIA$R_FILL_89_
                     WORD CIA$W_SOURCE_ADDR_LENGTH
                     WORD CIA$W_UNUSED_3
                     STRING CIA$T_SOURCE_ADDRESS_NAME = 128
                  end group CIA$R_FILL_89_
            end variant
         end group CIA$R_FILL_88_
         WORD CIA$W_UNUSED_4
         group CIA$R_FAILED_USER
            WORD CIA$W_FAILED_USER_LENGTH
            WORD CIA$W_UNUSED_5
            STRING CIA$T_FAILED_USER_NAME = 32
         end group CIA$R_FAILED_USER
         group CIA$R_FILL_90_
            variant
               case
                  STRING CIA$T_FAILED_PASSWORD = 36
               case
                  group CIA$R_FILL_91_
                     WORD CIA$W_FAILED_PASS_LENGTH
                     WORD CIA$W_UNUSED_6
                     STRING CIA$T_FAILED_PASS_NAME = 32
                  end group CIA$R_FILL_91_
            end variant
         end group CIA$R_FILL_90_
         group CIA$R_FILL_92_
            variant
               case
                  STRING CIA$T_PARENT_USER = 36
               case
                  group CIA$R_FILL_93_
                     WORD CIA$W_PARENT_USER_LENGTH
                     WORD CIA$W_UNUSED_7
                     STRING CIA$T_PARENT_USER_NAME = 32
                  end group CIA$R_FILL_93_
            end variant
         end group CIA$R_FILL_92_
         group CIA$R_FILL_94_
            variant
               case
                  STRING CIA$T_SOURCE_NODE = 1028
               case
                  group CIA$R_FILL_95_
                     WORD CIA$W_SOURCE_NODE_LENGTH
                     WORD CIA$W_UNUSED_8
                     STRING CIA$T_SOURCE_NODE_NAME = 1024
                  end group CIA$R_FILL_95_
            end variant
         end group CIA$R_FILL_94_
      end record SCAN_CONTENTS
    
      DECLARE LONG CONSTANT CIA$M_INTRUDER = x'00000001'
      DECLARE LONG CONSTANT CIA$M_SUSPECT = x'00000002'
      DECLARE LONG CONSTANT CIA$M_NETWORK = x'00000004'
      DECLARE LONG CONSTANT CIA$M_TERM_USER = x'00000008'
      DECLARE LONG CONSTANT CIA$M_TERMINAL = x'00000010'
      DECLARE LONG CONSTANT CIA$M_USERNAME = x'00000020'
      DECLARE LONG CONSTANT CIA$M_FILL_2 = x'FFFFFFC0'
      DECLARE LONG CONSTANT CIA$K_SHOW_OUTPUT_LENGTH = 1086
      DECLARE LONG CONSTANT CIA$S_SHOW_OUTPUT = 1086
      record SHOW_OUTPUT
         LONG CIA$L_STATUS
         LONG CIA$L_RETURNED_CONTEXT
         BASIC$QUADWORD CIA$Q_EXPIRATION_TIME
         group CIA$R_FILL_96_
            variant
               case
                  LONG CIA$L_FLAGS
               case
                  group CIA$R_FILL_97_
                     LONG INTRUDER_bits   ! COMMENT ADDED BY SDL - INTRUDER_bits contains bits INTRUDER through FILL_2
                  end group CIA$R_FILL_97_
            end variant
         end group CIA$R_FILL_96_
         LONG CIA$L_ATTEMPT_COUNT
         group CIA$R_FILL_98_
            variant
               case
                  STRING CIA$T_USER_SPEC = 1062
               case
                  group CIA$R_FILL_99_
                     WORD CIA$W_USER_SPEC_LENGTH
                     WORD CIA$W_UNUSED_8
                     STRING CIA$T_USER_SPEC_NAME = 1058
                  end group CIA$R_FILL_99_
            end variant
         end group CIA$R_FILL_98_
      end record SHOW_OUTPUT
    
      DECLARE LONG CONSTANT CIA$S_BREAKIN_BLOCK = 16
      record BREAKIN_BLOCK
         LONG CIA$L_BREAK_FLAGS
         LONG CIA$L_BREAK_COUNT
         BASIC$QUADWORD CIA$Q_BREAK_TIME
      end record BREAKIN_BLOCK
    
      DECLARE LONG CONSTANT CIA$S_CIA$GENERIC_REPLY = 4