C	Common blocks and parameters for WPE.FOR
C
	Implicit Integer*4 (a-z)
	
C -----------------------------------------------------------------------------

	Logical*1 	Have_Input_File_Name,
	1		Have_Recover,
	2		Need_Recover_Qualifier,
	3		Recover,
	4		Have_CLI_Start_Position,
	5		Have_TPU_Start_Position,
	6		Have_WPE_Lastfile
	
	Integer*2	The_Line_Length,
	1		Input_File_Name_Length,
	2		Start_Position_Length,
	3		WPE_Lastfile_Length
	
	COMMON /WPE_Numeric/ 	The_Line_Length,
	1		Input_File_Name_Length,
	2		Start_Position_Length,
	3		WPE_Lastfile_Length,
	4	 	Have_Input_File_Name,
	5		Have_Recover,
	6		Need_Recover_Qualifier,
	7		Recover,
	8		Have_CLI_Start_Position,
	9		Have_TPU_Start_Position,
	1		Have_WPE_Lastfile


C -----------------------------------------------------------------------------
	
	Character*256 	The_Line, WPE_Lastfile
	Character*128 	Input_File_Name
	Character*30	Start_Position
	
	COMMON /WPE_Char/ The_Line, 
	1		WPE_Lastfile, 
	2		Input_File_Name, 
	3		Start_Position

	
C -----------------------------------------------------------------------------
	
	
	parameter	( CLI$_COMMA	 = '0003FD39'X )
	parameter	( CLI$_CONCAT	 = '0003FD29'X )
	parameter	( CLI$_NORMAL	 = '00030001'X )
	parameter	( CLI$_ABSENT	 = '000381F0'X )
	parameter	( CLI$_PRESENT	 = '0003FD19'X )
	parameter	( CLI$_NEGATED	 = '000381F8'X )
	parameter	( CLI$_LOCPRES	 = '0003FD31'X )
	parameter	( CLI$_LOCNEG	 = '00038230'X )
	parameter	( CLI$_DEFAULTED = '0003FD21'X )
	parameter	( CLI$_NOCOMD	 = '000380B0'X )
	parameter	( CLI$_INVROUT	 = '00038912'X )