F4P STOHMS,STOHMS/-SP=STOHMS
.IF <EXSTAT> NE 1	.EXIT
TKB @STOHMSBLD
PIP STOHMS.*/PU