*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