          IDENT  MLMACU
          ENTRY  MLPACU
          TITLE  MLMACU - MLI SUBSYSTEM ABORT CLEANUP.
*
* ISSUE MLI FUNCTION MLFKA TO KILL ALL 170 SIGNONS IN THE NOS/VE MLI.
*
MLPACU    BSS    0
          SB1    1
          MESSAGE (=C*$MLI SUBSYSTEM ABORTED*),0,R
          RJ     =XMLPKILA
          ENDRUN
          END    MLPACU
