MACRO                                                          00001000
&LABEL   WAITD &ERROR=*+4                                               00002000
         LCLA  &NUM                                                     00003000
         CNOP  0,4                                                      00004000
         AIF   (N'&SYSLIST EQ 0).ERR1                                   00005000
&LABEL   BAL   1,DMS&SYSNDX.B                                           00006000
         DC    CL8'WAIT'                                                00007000
.LOOP    ANOP                                                           00008000
&NUM     SETA  &NUM+1                                                   00009000
         AIF   (&NUM GT N'&SYSLIST).CONT                                00010000
         AIF   (K'&SYSLIST(&NUM) EQ 0).LOOP                             00011000
         AIF   (K'&SYSLIST(&NUM) LE 4).NAME                             00012000
         MNOTE 4,'DEVICE NAME TRUNCATED TO 4 CHARACTERS'                00013000
.NAME    ANOP                                                           00014000
         DC    CL4'&SYSLIST(&NUM)'                                      00015000
         AGO   .LOOP                                                    00016000
.CONT    ANOP                                                           00017000
         DC    F'0'                                                     00018000
DMS&SYSNDX.A DC F'0'                                                    00019000
DMS&SYSNDX.B SVC 202                                                    00020000
         DC    AL4(&ERROR)                                              00021000
         L     1,DMS&SYSNDX.A                                           00022000
         MEXIT                                                          00023000
.ERR1    MNOTE 8,'NO DEVICE NAME SPECIFIED'                             00024000
         MEND                                                           00025000