MACRO                                                          00001000
&NM      GETADT &PLIST,&ERR=,&MODE=                                     00002000
&NM      LA    1,&PLIST                                                 00003000
         AIF   ('&MODE' EQ 'W').W                                       00004000
         SYSLOAD 15,ADTLKP                                              00005000
         AGO   .B                                                       00006000
.W       SYSLOAD 15,ADTLKW                                              00007000
.B       BALR  14,15                                                    00008000
         AIF   ('&ERR' EQ '').MEND                                      00009000
         LTR   15,15                                                    00010000
         BNZ   &ERR                                                     00011000
.MEND    MEND                                                           00012000