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