!*** MODULE $FSCNDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !         Descriptor codes for SYS$FILESCAN
 ! 
	PARAMETER FSCN$M_NODE = '00000001'X
	PARAMETER FSCN$M_DEVICE = '00000002'X
	PARAMETER FSCN$M_ROOT = '00000004'X
	PARAMETER FSCN$M_DIRECTORY = '00000008'X
	PARAMETER FSCN$M_NAME = '00000010'X
	PARAMETER FSCN$M_TYPE = '00000020'X
	PARAMETER FSCN$M_VERSION = '00000040'X
	PARAMETER FSCN$M_NODE_PRIMARY = '00000080'X
	PARAMETER FSCN$M_NODE_ACS = '00000100'X
	PARAMETER FSCN$M_NODE_SECONDARY = '00000200'X
	STRUCTURE /FLDFLAGS/
	    PARAMETER FSCN$S_NODE = 1
	    PARAMETER FSCN$V_NODE = 0		 !  Node name present
	    PARAMETER FSCN$S_DEVICE = 1
	    PARAMETER FSCN$V_DEVICE = 1		 !  Device name present
	    PARAMETER FSCN$S_ROOT = 1
	    PARAMETER FSCN$V_ROOT = 2		 !  Root directory present
	    PARAMETER FSCN$S_DIRECTORY = 1
	    PARAMETER FSCN$V_DIRECTORY = 3		 !  Directory present
	    PARAMETER FSCN$S_NAME = 1
	    PARAMETER FSCN$V_NAME = 4		 !  File name present
	    PARAMETER FSCN$S_TYPE = 1
	    PARAMETER FSCN$V_TYPE = 5		 !  File type present
	    PARAMETER FSCN$S_VERSION = 1
	    PARAMETER FSCN$V_VERSION = 6		 !  File version present
	    PARAMETER FSCN$S_NODE_PRIMARY = 1
	    PARAMETER FSCN$V_NODE_PRIMARY = 7	 !  Primary (first) node present
	    PARAMETER FSCN$S_NODE_ACS = 1
	    PARAMETER FSCN$V_NODE_ACS = 8		 !  Primary ACS present
	    PARAMETER FSCN$S_NODE_SECONDARY = 1
	    PARAMETER FSCN$V_NODE_SECONDARY = 9	 !  Secondary node present
	BYTE %FILL (2)
	END STRUCTURE	! FLDFLAGS
	PARAMETER FSCN$_FILESPEC = '00000001'X	 !  complete filespec
	PARAMETER FSCN$_NODE = '00000002'X	 !  node:: field
	PARAMETER FSCN$_DEVICE = '00000003'X	 !  device: field
	PARAMETER FSCN$_ROOT = '00000004'X	 !  [root.] field
	PARAMETER FSCN$_DIRECTORY = '00000005'X	 !  [directory] field
	PARAMETER FSCN$_NAME = '00000006'X	 !  name field
	PARAMETER FSCN$_TYPE = '00000007'X	 !  .typ field
	PARAMETER FSCN$_VERSION = '00000008'X	 !  ;version field
	PARAMETER FSCN$_NODE_PRIMARY = '00000009'X  !  primary node field
	PARAMETER FSCN$_NODE_ACS = '0000000A'X	 !  acc. cont. str. fld.
	PARAMETER FSCN$_NODE_SECONDARY = '0000000B'X  !  secondary node field
	PARAMETER FSCN$S_ITEM_LEN = '00000008'X
	STRUCTURE /FSCNDEF/
	    INTEGER*2 FSCN$W_LENGTH			 !  return length word
	    INTEGER*2 FSCN$W_ITEM_CODE		 !  item code value
	    INTEGER*4 FSCN$L_ADDR			 !  component address
	END STRUCTURE	! FSCNDEF
!DEC$ END OPTIONS