!*** MODULE $FDLDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  Define the version level of the FDL file structure
 ! -
	PARAMETER FDL$C_VERSION = '00000002'X
	PARAMETER FDL$K_VERSION = '00000002'X
 ! +
 !  FDL CALL INTERFACE CONTROL FLAGS
 ! -
	PARAMETER FDL$M_SIGNAL = '00000001'X
	PARAMETER FDL$M_FDL_STRING = '00000002'X
	PARAMETER FDL$M_DEFAULT_STRING = '00000004'X
	PARAMETER FDL$M_FULL_OUTPUT = '00000008'X
	PARAMETER FDL$M_$CALLBACK = '00000010'X
	PARAMETER FDL$M_LONG_NAMES = '00000020'X
	STRUCTURE /FDLDEF/
	UNION
	    MAP
	        PARAMETER FDL$S_SIGNAL = 1
	        PARAMETER FDL$V_SIGNAL = 0		 !  SIGNAL ERRORS, DON'T RETURN
	        PARAMETER FDL$S_FDL_STRING = 1
	        PARAMETER FDL$V_FDL_STRING = 1		 !  MAIN FDL SPEC IS A CHAR STRING
	        PARAMETER FDL$S_DEFAULT_STRING = 1
	        PARAMETER FDL$V_DEFAULT_STRING = 2	 !  DEFAULT FDL SPEC IS A CHAR STRING
	        PARAMETER FDL$S_FULL_OUTPUT = 1
	        PARAMETER FDL$V_FULL_OUTPUT = 3		 !  PRODUCE A 'COMPLETE' FDL SPEC
	        PARAMETER FDL$S_$CALLBACK = 1
	        PARAMETER FDL$V_$CALLBACK = 4		 !  USED BY EDF ON INPUT (DEC ONLY)
	        PARAMETER FDL$S_LONG_NAMES = 1
	        PARAMETER FDL$V_LONG_NAMES = 5		 !  Allocate and use NAML for FDL$PARSE
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! FDLDEF
!DEC$ END OPTIONS