*COMDECK HASPFWD
PROCEDURE PTSETSST (T6XRCB : CHAR; T6STATE : INTEGER); FORWARD; 
