!*** MODULE CIADEF IDENT x-6 ***
CDEC$ OPTIONS /NOALIGN
	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_MAX_CIA_CODE = '00000006'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
	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 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_FILL_1 = 'FFFFE000'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_FILL_1 = 19
	            PARAMETER CIA$V_FILL_1 = 13
	            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
CDEC$ END OPTIONS