PARAMETER TPA$B_MCOUNT		='00000007'X
	PARAMETER TPA$C_LENGTH0		='00000024'X
	PARAMETER TPA$K_COUNT0		='00000008'X
	PARAMETER TPA$K_LENGTH0		='00000024'X
	PARAMETER TPA$L_CHAR		='00000018'X
	PARAMETER TPA$L_COUNT		='00000000'X
	PARAMETER TPA$L_NUMBER		='0000001C'X
	PARAMETER TPA$L_OPTIONS		='00000004'X
	PARAMETER TPA$L_PARAM		='00000020'X
	PARAMETER TPA$L_STRINGCNT	='00000008'X
	PARAMETER TPA$L_STRINGPTR	='0000000C'X
	PARAMETER TPA$L_TOKENCNT	='00000010'X
	PARAMETER TPA$L_TOKENPTR	='00000014'X
	PARAMETER TPA$M_ABBREV		='00000002'X
	PARAMETER TPA$M_ABBRFM		='00000004'X
	PARAMETER TPA$M_AMBIG		='00010000'X
	PARAMETER TPA$M_BLANKS		='00000001'X
	LOGICAL*1 TPARSE(0:TPA$C_LENGTH0-1)