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