MACRO                                                          00001000
&LABEL OPENR &OP1,&OP2,&OP3,&OP4,&OP5,&OP6,&OP7,&OP8,&OP9,&OP10,&OP11,&X00002000
               OP12,&OP13,&OP14,&OP15,&OP16,&OP17                       00003000
 LCLA &A1,&A2                                                           00004000
         AIF   ('&OP1' NE '').CO                                        00005000
         MNOTE 0,' NO FILENAME SPECIFIED'                               00006000
         MEXIT                                                          00007000
.CO      ANOP                                                           00008000
         CNOP  0,4                                                      00009000
&LABEL   DC    0F'0'                                                    00010000
&A1      SETA  1                                                        00011000
.LOOP1   ANOP                                                           00012000
         AIF   ('&SYSLIST(&A1)'(1,1) EQ '(').A                          00013000
         AIF   (&A2 EQ 1).A                                             00014000
         LA    1,IJJO&SYSNDX+4     PUT ACTUAL LOCATION ADDR. IN REG.    00015000
         MVI   *-4,X'58'               DISABLE SUBSEQUENT RELOCATION    00016000
         L     0,IJJO&SYSNDX+4         PUT RELOCATION FACTOR IN REG     00017000
         SR    1,0                     FIND DISPLACEMENT FACTOR         00018000
&A2      SETA  1                                                        00019000
.A       ANOP                                                           00020000
         AIF   (&A1 LT 17).B                                            00021000
         AGO   .OPMAX                                                   00022000
.B       ANOP                                                           00023000
         AIF   ('&SYSLIST(&A1)'(1,1) NE '(').CONT1                      00024000
         ST    &SYSLIST(&A1,1),IJJO&SYSNDX+4+4*&A1                      00025000
         AGO   .CONT2                                                   00026000
.CONT1   ANOP                                                           00027000
         L     0,IJJO&SYSNDX+4+4*&A1   PUT FILENANE ADDR. IN REG. 0     00028000
         AR    0,1                     ADD DISPLACEMENT FACTOR TO ADDR. 00029000
         ST    0,IJJO&SYSNDX+4+4*&A1   STORE NEW ADDR. BACK INTO ADCON  00030000
.CONT2   ANOP                                                           00031000
&A1      SETA  &A1+1                                                    00032000
         AIF   (&A1 LE 17).TEST1                                        00033000
.OPMAX   ANOP                                                           00034000
&A1      SETA  17                                                       00035000
         MNOTE 0,'MORE THAN 16 FILES SPECIFIED'                         00036000
         MNOTE *,'16 FILES GENERATED ONLY'                              00037000
         AGO   .OUT1                                                    00038000
.TEST1   ANOP                                                           00039000
         AIF   (&A1 LE N'&SYSLIST).LOOP1                                00040000
.OUT1    ANOP                                                           00041000
         LA    1,=C'$$BOPENR'          FETCH OPENR TRANSIENT PHASE      00042000
         CNOP  0,4                                                      00043000
IJJO&SYSNDX  BAL  0,*+8+4*(&A1-1)      TO RELOCATE DTF ADCONS           00044000
         DC    A(*)      ADDRESS USED BY OPENR FOR RELOCATION           00045000
&A1      SETA  1                                                        00046000
.LOOP2   ANOP                                                           00047000
         DC    A(&SYSLIST(&A1))        FILENAME ADDRESS                 00048000
&A1      SETA  &A1+1                                                    00049000
         AIF   (&A1 EQ 17).OUT2                                         00050000
         AIF   (&A1 LE N'&SYSLIST).LOOP2                                00051000
.OUT2    ANOP                                                           00052000
         SVC   2                                                        00053000
         MEND                                                           00054000