!*** MODULE $USGDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  Disk usage accounting file produced by ANALYZE/DISK_STRUCTURE utility.
 ! -
	PARAMETER USG$K_IDENT = '00000001'X	 !  Identification record 
	PARAMETER USG$K_FILE = '00000002'X	 !  File record 
	PARAMETER USG$K_IDENT_LEN = '0000003D'X	 !  Length of IDENT record 
	PARAMETER USG$C_IDENT_LEN = '0000003D'X	 !  Length of IDENT record 
	STRUCTURE /USGDEF/
	    BYTE      USG$B_TYPE			 !  Record type 
	    INTEGER*4 USG$L_SERIALNUM		 !  Pack serial number 
	    CHARACTER*12 USG$T_STRUCNAME		 !  Volume set name 
	    CHARACTER*12 USG$T_VOLNAME		 !  Volume name 
	    CHARACTER*12 USG$T_OWNERNAME		 !  Volume owner name 
	    CHARACTER*12 USG$T_FORMAT		 !  Volume format type 
 !  *** Preceding same as home block ***
	    INTEGER*4 USG$Q_TIME(2)			 !  Time usage file created 
	END STRUCTURE	! USGDEF
	PARAMETER USG$K_FILE_LEN = '000001A7'X	 !  Maximum length of FILE record 
	PARAMETER USG$C_FILE_LEN = '000001A7'X	 !  Maximum length of FILE record 
	STRUCTURE /USGDEF1/
	    BYTE      %FILL
	    UNION
	        MAP
	        INTEGER*4 USG$L_FILEOWNER		 !  File owner UIC 
	        END MAP
	        MAP
	            INTEGER*2 USG$W_UICMEMBER		 !  UIC member number 
	            INTEGER*2 USG$W_UICGROUP		 !  UIC group number 
	        END MAP
	    END UNION
	    INTEGER*4 USG$L_ALLOCATED		 !  Blocks allocated, including headers 
	    INTEGER*4 USG$L_USED			 !  Blocks used 
	    INTEGER*2 USG$W_DIR_LEN			 !  Length of directory string 
	    INTEGER*2 USG$W_SPEC_LEN		 !  Length of complete file specification 
	    CHARACTER*406 USG$T_FILESPEC		 !  File spec "[dir]nam.typ;ver" 
	END STRUCTURE	! USGDEF1
!DEC$ END OPTIONS