MACRO -- $DOM -- DELETE OPERATOR MESSAGE                       CP002000
&N       $DOM  &CMB=(R1)                                                CP004000
&N       $DECODE &CMB                                                   CP006000
         L     R15,$DOM            POINT TO $DOM ROUTINE                CP008000
         BALR  LINK,R15            ENTER IT                             CP010000
         MEND                                                           CP012000