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