!*** MODULE $FDLDEF ***
CDEC$ OPTIONS /NOALIGN
! +
!  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
	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)
	    BYTE %FILL (1)
	    END MAP
	END UNION
	END STRUCTURE	! FDLDEF
CDEC$ END OPTIONS