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