!*** MODULE CIADEF IDENT x-4 ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER CIA$K_SCAN = '00000001'X
	PARAMETER CIA$K_DELETE = '00000002'X
	PARAMETER CIA$K_SHOW = '00000003'X
	PARAMETER CIA$K_PERFORMANCE = '00000004'X
	PARAMETER CIA$K_ZERO_PERFORMANCE = '00000005'X
	PARAMETER CIA$K_SCAN_EXTENDED = '00000006'X
	PARAMETER CIA$K_DELETE_EXTENDED = '00000007'X
	PARAMETER CIA$K_SHOW_EXTENDED = '00000008'X
	PARAMETER CIA$K_MAX_CIA_CODE = '00000009'X
	PARAMETER CIA$K_PERFORMANCE_LENGTH = '00000028'X
	STRUCTURE /PERFORMANCE/
	    INTEGER*4 CIA$L_TOTAL_MESSAGES
	    INTEGER*4 CIA$L_TOTAL_EXCEPTIONS
	    INTEGER*4 CIA$L_SHOWS
	    INTEGER*4 CIA$L_SCANS
	    INTEGER*4 CIA$L_DELETES
	    INTEGER*4 CIA$L_PERFORMANCE
	    INTEGER*4 CIA$L_AUDITS
	    INTEGER*4 CIA$L_INVALID_MESSAGES
	    INTEGER*4 CIA$L_INTRUDERS
	    INTEGER*4 CIA$L_SUSPECTS
	END STRUCTURE	! PERFORMANCE
	PARAMETER CIA$K_SOURCE_TERMINAL_LENGTH = '00000040'X
	PARAMETER CIA$K_SOURCE_NODE_MAX_LENGTH = '00000400'X
	PARAMETER CIA$K_USER_SPEC_MAX_LENGTH = '00000422'X
	PARAMETER CIA$K_USER_STRING_MAX_LENGTH = '00000020'X
	PARAMETER CIA$K_PASSWORD_MAX_LENGTH = '00000020'X
	PARAMETER CIA$K_SOURCE_ADDRESS_MAX_LENGTH = '00000080'X
	PARAMETER CIA$K_SCSNODE_LENGTH = '00000008'X
	PARAMETER CIA$K_SCSNODE_REPLY_LENGTH = '0000000C'X
	PARAMETER CIA$K_USERDATA_LENGTH = '00000100'X
	STRUCTURE /CIA$GENERIC_DESC/
	    INTEGER*2 CIA$W_DESC_LENGTH
	    INTEGER*2 %FILL
	    CHARACTER*1 CIA$T_DESC_DATA
	END STRUCTURE	! CIA$GENERIC_DESC
	PARAMETER CIAEXT$S_PACKET = '00000004'X
	STRUCTURE /EXTENSION_PACKET/
	    INTEGER*2 CIAEXT$W_TYPE			 !  packet type
	    INTEGER*2 CIAEXT$W_LENGTH		 !  packet length NOT including T/L words
	    ! unsupported type CHARACTER*0 CIAEXT$R_VALUE  !  start of data
	END STRUCTURE	! EXTENSION_PACKET
	PARAMETER CIAEXT$_USER_DATA = '00000064'X
	PARAMETER CIAEXT$_SCSNODE = '00000065'X
	PARAMETER CIAEXT$_SCSNODE_REPLY = '00000066'X
	PARAMETER CIAEXT$_IMAGE_NAME = '00000067'X
	PARAMETER CIAEXT$_MAX_CIAEXT_CODE = '00000068'X
	PARAMETER CIA$_SCSNODE_LIST = '000000C8'X  !  List of nodes for which to act
	PARAMETER CIA$_SCSNODE = '000000C9'X	 !  Single node for SCAN
	PARAMETER CIA$_OUTPUT_LIST = '000000CA'X  !  List of nodes records occured on
	PARAMETER CIA$_USER_DATA = '000000CB'X	 !  Opaque Data.  We don't use it.
	PARAMETER CIA$_USER_CRITERIAL = '000000CC'X  !  Existing argument passed by item list
	PARAMETER CIA$_FAILED_USERNAME = '000000CD'X  !  Existing argument passsed by item list
	PARAMETER CIA$_IMAGE_NAME = '000000CE'X	 !  Image name performing scan
	PARAMETER CIA$_MAX_CIA_ITEM = '000000CF'X
	PARAMETER CIA$K_IMAGE_NAME_MAX_SIZE = '00001000'X
	STRUCTURE /IMAGE_NAME/
	    INTEGER*2 CIA$W_IMAGE_LENGTH
	    INTEGER*2 %FILL
	    CHARACTER*4096 CIA$T_IMAGE_STRING
	END STRUCTURE	! IMAGE_NAME
	PARAMETER CIA$M_IGNORE_RETURN = '00000001'X
	PARAMETER CIA$M_RESERVED_1 = '000000FE'X
	PARAMETER CIA$M_SUSPECTS = '00000100'X
	PARAMETER CIA$M_INTRUDERS = '00000200'X
	PARAMETER CIA$M_SECONDARY_PASSWORD = '00000400'X
	PARAMETER CIA$M_NOAUDIT = '00000800'X
	PARAMETER CIA$M_REAL_USERNAME = '00001000'X
	PARAMETER CIA$M_SHOW_NODE = '00002000'X
	PARAMETER CIA$M_ITEMLIST = '00004000'X
	PARAMETER CIA$M_FILL_1 = 'FFFF8000'X
	PARAMETER CIA$K_HEADER_LENGTH = '00000008'X
	STRUCTURE /HEADER/
	    INTEGER*4 CIA$L_CONTEXT
	    UNION
	        MAP
	        INTEGER*4 CIA$L_HEADER_FLAGS
	        END MAP
	        MAP
	            PARAMETER CIA$S_IGNORE_RETURN = 1
	            PARAMETER CIA$V_IGNORE_RETURN = 0
	            PARAMETER CIA$S_RESERVED_1 = 7
	            PARAMETER CIA$V_RESERVED_1 = 1
	            PARAMETER CIA$S_SUSPECTS = 1
	            PARAMETER CIA$V_SUSPECTS = 8
	            PARAMETER CIA$S_INTRUDERS = 1
	            PARAMETER CIA$V_INTRUDERS = 9
	            PARAMETER CIA$S_SECONDARY_PASSWORD = 1
	            PARAMETER CIA$V_SECONDARY_PASSWORD = 10
	            PARAMETER CIA$S_NOAUDIT = 1
	            PARAMETER CIA$V_NOAUDIT = 11
	            PARAMETER CIA$S_REAL_USERNAME = 1
	            PARAMETER CIA$V_REAL_USERNAME = 12
	            PARAMETER CIA$S_SHOW_NODE = 1
	            PARAMETER CIA$V_SHOW_NODE = 13
	            PARAMETER CIA$S_ITEMLIST = 1
	            PARAMETER CIA$V_ITEMLIST = 14
	            PARAMETER CIA$S_FILL_1 = 17
	            PARAMETER CIA$V_FILL_1 = 15
	            BYTE %FILL (4)
	        END MAP
	    END UNION
	END STRUCTURE	! HEADER
	PARAMETER CIA$K_SHOW_INPUT_LENGTH = '00000426'X
	PARAMETER CIA$K_DELETE_INPUT_LENGTH = '00000426'X
	STRUCTURE /CONTENTS/
	    INTEGER*2 CIA$W_LENGTH
	    INTEGER*2 %FILL
	    CHARACTER*1058 CIA$T_NAME
	END STRUCTURE	! CONTENTS
	PARAMETER CIA$K_SCAN_CONTENTS_LENGTH = '0000056A'X
	STRUCTURE /SCAN_CONTENTS/
	    INTEGER*4 CIA$L_PARENT_ID
	    INTEGER*4 CIA$L_JOB_TYPE
	    INTEGER*4 CIA$L_LOGIN_STATUS
	    UNION
	        MAP
	        CHARACTER*68 CIA$T_SOURCE_TERMINAL
	        END MAP
	        MAP
	            INTEGER*2 CIA$W_SOURCE_TERM_LENGTH
	            INTEGER*2 %FILL
	            CHARACTER*64 CIA$T_SOURCE_TERM_NAME
	        END MAP
	    END UNION
	    UNION
	        MAP
	        CHARACTER*36 CIA$T_SOURCE_USER
	        END MAP
	        MAP
	            INTEGER*2 CIA$W_SOURCE_USER_LENGTH
	            INTEGER*2 %FILL
	            CHARACTER*32 CIA$T_SOURCE_USER_NAME
	        END MAP
	    END UNION
	    UNION
	        MAP
	        CHARACTER*132 CIA$T_SOURCE_ADDRESS
	        END MAP
	        MAP
	            INTEGER*2 CIA$W_SOURCE_ADDR_LENGTH
	            INTEGER*2 %FILL
	            CHARACTER*128 CIA$T_SOURCE_ADDRESS_NAME
	        END MAP
	    END UNION
	    INTEGER*2 %FILL
	        INTEGER*2 CIA$W_FAILED_USER_LENGTH
	        INTEGER*2 %FILL
	        CHARACTER*32 CIA$T_FAILED_USER_NAME
	    UNION
	        MAP
	        CHARACTER*36 CIA$T_FAILED_PASSWORD
	        END MAP
	        MAP
	            INTEGER*2 CIA$W_FAILED_PASS_LENGTH
	            INTEGER*2 %FILL
	            CHARACTER*32 CIA$T_FAILED_PASS_NAME
	        END MAP
	    END UNION
	    UNION
	        MAP
	        CHARACTER*36 CIA$T_PARENT_USER
	        END MAP
	        MAP
	            INTEGER*2 CIA$W_PARENT_USER_LENGTH
	            INTEGER*2 %FILL
	            CHARACTER*32 CIA$T_PARENT_USER_NAME
	        END MAP
	    END UNION
	    UNION
	        MAP
	        CHARACTER*1028 CIA$T_SOURCE_NODE
	        END MAP
	        MAP
	            INTEGER*2 CIA$W_SOURCE_NODE_LENGTH
	            INTEGER*2 %FILL
	            CHARACTER*1024 CIA$T_SOURCE_NODE_NAME
	        END MAP
	    END UNION
	END STRUCTURE	! SCAN_CONTENTS
	PARAMETER CIA$M_INTRUDER = '00000001'X
	PARAMETER CIA$M_SUSPECT = '00000002'X
	PARAMETER CIA$M_NETWORK = '00000004'X
	PARAMETER CIA$M_TERM_USER = '00000008'X
	PARAMETER CIA$M_TERMINAL = '00000010'X
	PARAMETER CIA$M_USERNAME = '00000020'X
	PARAMETER CIA$M_FILL_2 = 'FFFFFFC0'X
	PARAMETER CIA$K_SHOW_OUTPUT_LENGTH = '0000043E'X
	STRUCTURE /SHOW_OUTPUT/
	    INTEGER*4 CIA$L_STATUS
	    INTEGER*4 CIA$L_RETURNED_CONTEXT
	    INTEGER*4 CIA$Q_EXPIRATION_TIME(2)
	    UNION
	        MAP
	        INTEGER*4 CIA$L_FLAGS
	        END MAP
	        MAP
	            PARAMETER CIA$S_INTRUDER = 1
	            PARAMETER CIA$V_INTRUDER = 0
	            PARAMETER CIA$S_SUSPECT = 1
	            PARAMETER CIA$V_SUSPECT = 1
	            PARAMETER CIA$S_NETWORK = 1
	            PARAMETER CIA$V_NETWORK = 2
	            PARAMETER CIA$S_TERM_USER = 1
	            PARAMETER CIA$V_TERM_USER = 3
	            PARAMETER CIA$S_TERMINAL = 1
	            PARAMETER CIA$V_TERMINAL = 4
	            PARAMETER CIA$S_USERNAME = 1
	            PARAMETER CIA$V_USERNAME = 5
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    INTEGER*4 CIA$L_ATTEMPT_COUNT
	    UNION
	        MAP
	        CHARACTER*1062 CIA$T_USER_SPEC
	        END MAP
	        MAP
	            INTEGER*2 CIA$W_USER_SPEC_LENGTH
	            INTEGER*2 %FILL
	            CHARACTER*1058 CIA$T_USER_SPEC_NAME
	        END MAP
	    END UNION
	END STRUCTURE	! SHOW_OUTPUT
	STRUCTURE /BREAKIN_BLOCK/
	    INTEGER*4 CIA$L_BREAK_FLAGS
	    INTEGER*4 CIA$L_BREAK_COUNT
	    INTEGER*4 CIA$Q_BREAK_TIME(2)
	END STRUCTURE	! BREAKIN_BLOCK
	STRUCTURE /CIA$GENERIC_REPLY/
	    INTEGER*4 CIA$L_REPLY_STATUS		 !  status of request
	END STRUCTURE	! CIA$GENERIC_REPLY
!DEC$ END OPTIONS