MACRO 00001000
SYSOWN 00002000
.* THIS MACRO GENERATES THE LIST OF OWNED VOLUMES 00003000
GBLC &SY$OWN @V60BBBC 00003300
&SY$OWN SETC 'HERE' ANNOUNCE PRESENCE TO SYSLOCS @V60BBBC 00003600
GBLA &OWNCNT 00004000
GBLB &OWNTEMP 00005000
GBLC &OWNLST(255) 00006000
LCLA &INDEX1,&INDEX2,&N 00007000
LCLB &BIT1,&BIT2 00008000
LCLC &VOLSER 00009000
&INDEX1 SETA 1 00010000
&OWNCNT SETA N'&SYSLIST 00011000
SPACE 00012000
ENTRY DMKSYSOW,DMKSYSOC 00013000
DMKSYSOC DC F'&OWNCNT' 00014000
DMKSYSOW DS 0F 00015000
.LOOP1 AIF (&INDEX1 GT &OWNCNT).EXIT 00016000
ACTR 4096 @VA10012 00016010
&VOLSER SETC '&SYSLIST(&INDEX1,1)' 00017000
&INDEX2 SETA 1 00018000
.LOOP2 AIF (&INDEX2 GE &INDEX1).CONT 00019000
AIF ('&OWNLST(&INDEX2)' EQ '&VOLSER').ERR3 00020000
&INDEX2 SETA &INDEX2+1 00021000
AGO .LOOP2 00022000
.CONT AIF (&INDEX1 GT 255).ERR2 00023000
AIF (N'&SYSLIST(&INDEX1) GT 2).ERR1 00024000
&BIT1 SETB ('&SYSLIST(&INDEX1,2)' EQ 'PAGE') 00025000
&BIT2 SETB ('&SYSLIST(&INDEX1,2)' EQ 'TEMP' OR '&SYSLIST(&INDEX1,2)*00026000
' EQ '') 00027000
AIF (NOT (&BIT1 OR &BIT2)).ERR1 00028000
AIF (NOT &BIT2).NOTEMP 00029000
&OWNTEMP SETB 1 00030000
.NOTEMP ANOP 00031000
&N SETA &BIT1+&BIT2*2 00032000
&OWNLST(&INDEX1) SETC '&VOLSER' 00033000
DC CL6'&VOLSER',H'-&N' 00034000
&INDEX1 SETA &INDEX1+1 00035000
AGO .LOOP1 00036000
.EXIT AIF (&OWNCNT LE 0).ERR4 00037000
AIF (&OWNTEMP).TEMPOK 00038000
MNOTE 4,'WARNING - NO TEMP SPACE SPECIFIED' 00039000
.TEMPOK ANOP 00040000
SPACE 3 00041000
MEXIT 00042000
.ERR1 MNOTE 8,'INVALID PREFERENCE OPTION' 00043000
MEXIT 00044000
.ERR2 MNOTE 8,'MORE THAN 255 VOLUMES SPECIFIED' 00045000
MEXIT 00046000
.ERR3 MNOTE 8,'DUPLICATE VOLUME SERIAL SPECIFIED' 00047000
MEXIT 00048000
.ERR4 MNOTE 8,'NO VOLUMES SPECIFIED' 00049000
MEND 00050000