.ENABLE SUBSTITUTION
MAC HPPCHA=LB:[1,1]EXEMC/ML,SY:'<UIC>'HPPCHA
PIP HPP.OLB/NV=LB:[1,24]RMD.OLB
LBR HPP/RP=HPPCHA