MACRO                                                          00001000
&NAME    ABEND &CODE                                                    00002000
         GBLB  &LOCK                                           @V407510 00002100
         LCLC  &MODNAM                                                  00003000
         AIF   ('&LOCK' EQ '0').NORM                           @V407510 00003100
&MODNAM  SETC  'LOK'                                           @V407510 00003200
&MODNAM&SYSNDX  EQU   *                                        @V407510 00003300
         AGO   .GEN                                            @V407510 00003400
.NORM    ANOP                                                  @V407510 00003500
&MODNAM  SETC  '&SYSECT'(4,3)                                           00004000
&MODNAM&CODE   EQU  *                                                   00005000
.GEN     ANOP                                                  @V407510 00005100
&NAME    SVC   0 -            TERMINATE VM/370                          00006000
         DC    CL3'&MODNAM',AL1(&CODE)                                  00007000
         MEND                                                           00008000