Table of Contents

GETADT Source

References

Source Listing

GETADT.MACRO.txt 
  1.          MACRO                                                          00001000
  2. &NM      GETADT &PLIST,&ERR=,&MODE=                                     00002000
  3. &NM      LA    1,&PLIST                                                 00003000
  4.          AIF   ('&MODE' EQ 'W').W                                       00004000
  5.          SYSLOAD 15,ADTLKP                                              00005000
  6.          AGO   .B                                                       00006000
  7. .W       SYSLOAD 15,ADTLKW                                              00007000
  8. .B       BALR  14,15                                                    00008000
  9.          AIF   ('&ERR' EQ '').MEND                                      00009000
  10.          LTR   15,15                                                    00010000
  11.          BNZ   &ERR                                                     00011000
  12. .MEND    MEND                                                           00012000