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