*FML #MAC REOPEN
*G7= #MEN IPBINB
*GLW #TRA K50IPBINB
*H6G #STR OFF,%A
*HL6 #SKI
*J5Q #03600002 [%A=OFF, EXCLUDE CALL TO REOPEN S/R
*JKB #STR OFF,%A
*K52 #03600001 [%A NOT=OFF,INCLUDE CALL TO REOPEN
*KJL #END
*L4= #NOR