!*** MODULE $IDCDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  IDC - Random entity ident consistency check
 ! 
	PARAMETER IDC$C_LEQ = '00000000'X
	PARAMETER IDC$C_EQUAL = '00000001'X
	STRUCTURE /IDCDEF/
	    BYTE      IDC$B_GSDTYP			 ! Type field 
	    UNION
	        MAP
	        INTEGER*2 IDC$W_FLAGS			 ! Flags 
	        END MAP
	        MAP
	            PARAMETER IDC$S_BINIDENT = 1
	            PARAMETER IDC$V_BINIDENT = 0		 ! Ident is binary longword rather than ASCIC 
	            PARAMETER IDC$S_IDMATCH = 2
	            PARAMETER IDC$V_IDMATCH = 1		 ! Field for ident match control if binary ident 
	            PARAMETER IDC$S_ERRSEV = 3
	            PARAMETER IDC$V_ERRSEV = 3		 ! Error severity (default is warning-0) 
	        BYTE %FILL (1)
	        END MAP
 ! Match control values 
	    END UNION
	    UNION
	        MAP
	        BYTE      IDC$B_NAMLNG			 ! Length of entity name 
	        END MAP
	        MAP
	            BYTE      %FILL
	            ! unsupported type CHARACTER*0 IDC$T_NAME  !  
 !  Followed by entity name
 !  Followed by
 !         byte of ident length
 !                 ident string (length = string length)
 !                         or
 !                 ident binary value (length = 4)
 !  Followed by byte of length of name of object
 !  Followed by the object name
	        END MAP
	    END UNION
	END STRUCTURE	! IDCDEF
!DEC$ END OPTIONS