MACRO                                                          00010000
         SYSUSR                                                         00020000
.*  THIS MACRO GENERATES THE LIST OF CP SYSTEM VOLUMES                  00030000
         GBLC  &SY$USR                                                  00040000
&SY$USR  SETC  'HERE'         ANNOUNCE PRESENCE TO SYSLOCS              00050000
         GBLA  &USRCNT                                                  00060000
         GBLB  &USRTEMP                                                 00070000
         GBLC  &USRLST(255)                                             00080000
         LCLA  &INDEX1,&INDEX2,&N                                       00090000
         LCLB  &BIT1,&BIT2                                              00100000
         LCLC  &VOLSER                                                  00110000
&INDEX1  SETA  1                                                        00120000
&USRCNT  SETA  N'&SYSLIST                                               00130000
         SPACE                                                          00140000
         ENTRY DMKSYSUS,DMKSYSUC                                        00150000
DMKSYSUC DC    F'&USRCNT'                                               00160000
DMKSYSUS DS    0F                                                       00170000
.LOOP1   AIF   (&INDEX1 GT &USRCNT).EXIT                                00180000
         ACTR  4096                                                     00190000
&VOLSER  SETC  '&SYSLIST(&INDEX1,1)'                                    00200000
&INDEX2  SETA  1                                                        00210000
.LOOP2   AIF   (&INDEX2 GE &INDEX1).CONT                                00220000
         AIF   ('&USRLST(&INDEX2)' EQ '&VOLSER').ERR3                   00230000
&INDEX2  SETA  &INDEX2+1                                                00240000
         AGO   .LOOP2                                                   00250000
.CONT    AIF   (&INDEX1 GT 255).ERR2                                    00260000
         AIF   (N'&SYSLIST(&INDEX1) GT 1).ERR1                          00270000
&USRLST(&INDEX1) SETC '&VOLSER'                                         00280000
         DC    CL6'&VOLSER',H'-1'                                       00290000
&INDEX1  SETA  &INDEX1+1                                                00300000
         AGO   .LOOP1                                                   00310000
.EXIT    AIF   (&USRCNT LE 0).ERR4                                      00320000
         SPACE 3                                                        00330000
         MEXIT                                                          00340000
.ERR1    MNOTE 8,'INVALID PREFERENCE OPTION'                            00350000
         MEXIT                                                          00360000
.ERR2    MNOTE 8,'MORE THAN 255 VOLUMES SPECIFIED'                      00370000
         MEXIT                                                          00380000
.ERR3    MNOTE 8,'DUPLICATE VOLUME SERIAL SPECIFIED'                    00390000
         MEXIT                                                          00400000
.ERR4    MNOTE 0,'NO VOLUMES SPECIFIED'                                 00410000
         MEND                                                           00420000