MACRO 00050004 &NAME SCHBFR &RPL=,&BFRNO=1 00100004 LCLA &I WORK VARIABLE 00110004 LCLB &ERR ERROR INDICATOR 00150004 AIF (N'&SYSLIST EQ 0).NOPOS GO IF NO POSITIONAL OPERANDS 00200004 .POSLOOP ANOP 00210004 &I SETA &I+1 POINT TO NEXT POS OPERAND 00220004 IDAERMAC 1,&SYSLIST(&I) ISSUE WARNING MNOTE 00250004 AIF (&I LT N'&SYSLIST).POSLOOP GO IF MORE POS OPERANDS 00260004 .NOPOS ANOP 00300004 AIF ('&RPL' NE '').ROKY GO IF RPL IS SPECIFIED 00350004 IDAERMAC 2,RPL ISSUE ERROR MNOTE 00400004 &ERR SETB 1 INDICATE ERROR 00450004 .ROKY ANOP 00500004 AIF ('&BFRNO' NE '').BOKY GO IF BFRNO NOT SPECIFIED NULL 00550004 IDAERMAC 2,BFRNO ISSUE ERROR MNOTE 00600004 &ERR SETB 1 INDICATE ERROR 00650004 AGO .BFRNOB GO AROUND BUFFER NO ANALYSIS 00660004 .BOKY ANOP 00700004 AIF ('&BFRNO' EQ '(1)').BFRNOE GO IF BUFFER NO IN REG 1 00710004 AIF ('&BFRNO' EQ '0').BFRNOE GO IF BUFFER NO EQ ZERO 00712004 AIF ('&BFRNO' NE '(13)').BFRNOB GO IF BUFFER NO NOT IN 13 00720004 .BFRNOE ANOP 00740004 IDAERMAC 3,BFRNO,&BFRNO ISSUE ERROR MNOTE 00742004 &ERR SETB 1 INDICATE ERROR 00744004 .BFRNOB ANOP 00746004 AIF (&ERR).END GO IF ANY ERRORS 00750004 AIF ('&NAME' EQ '').NAMEB GO IF NO NAME 00760004 &NAME DS 0H 00800004 .NAMEB ANOP 00810004 AIF ('&RPL'(1,1) EQ '(').RPLR GO IF RPL SPECIFIED AS REG 00850004 LA 1,&RPL LOAD RPL ADDRESS 00900004 AGO .ARREG GO AROUND RPL REG CODE 00950004 .RPLR ANOP 01000004 AIF ('&RPL' EQ '(1)').ARREG GO IF RPL ADDRESS ALREADY IN 1 01050004 LR 1,&RPL(1) LOAD RPL ADDRESS 01100004 .ARREG ANOP 01150004 AIF ('&BFRNO'(1,1) EQ '(').BFRNR GO IF BFRNO SPECD AS REG 01200004 LA 0,&BFRNO LOAD BUFFER NUMBER 01250004 AGO .ABREG GO AROUND BFRNO REG CODE 01300004 .BFRNR ANOP 01350004 AIF ('&BFRNO' EQ '(0)').ABREG GO IF BUFFER NO ALREADY IN 0 01400004 LR 0,&BFRNO(1) LOAD BUFFER NUMBER 01450004 .ABREG ANOP 01500004 SLL 0,8 SHIFT BUFFER NUMBER 01550004 IC 0,*+19 INDICATE SEARCH BUFFER 01600004 L 15,24(,1) LOAD ACB ADDRESS FROM RPL 01650004 L 15,8(,15) LOAD VSAM INTERFACE RTN ADDR 01700004 LA 14,*+8 LOAD RETURN ADDRESS 01750004 BR 15 BRANCH TO INTERFACE ROUTINE 01800004 DC H'13' SEARCH BUFFER CODE 01850004 .END ANOP 01900004 MEND 01950004