MACRO 00050004 &NAME MRKBFR &RPL=,&MARK= 00100004 LCLA &CODE CODE ACCUMULATOR 00150004 LCLA &I WORK VARIABLE 00160004 LCLB &ERR ERROR INDICATOR 00200004 AIF (N'&SYSLIST EQ 0).NOPOS GO IF NO POSITIONAL OPERANDS 00250004 .POSLOOP ANOP 00260004 &I SETA &I+1 POINT TO NEXT POS OPERAND 00270004 IDAERMAC 1,&SYSLIST(&I) ISSUE WARNING MNOTE 00300004 AIF (&I LT N'&SYSLIST).POSLOOP GO IF MORE OPERANDS 00310004 .NOPOS ANOP 00350004 AIF ('&RPL' NE '').ROKY GO IF RPL SPECIFIED 00400004 IDAERMAC 2,RPL ISSUE ERROR MNOTE 00450004 &ERR SETB 1 INDICATE ERROR 00500004 .ROKY ANOP 00550004 AIF ('&MARK' NE '').MOKY GO IF MARK SPECIFIED 00600004 IDAERMAC 2,MARK ISSUE ERROR MNOTE 00650004 &ERR SETB 1 INDICATE ERROR 00700004 AGO .MARKB GO AROUND MARK ANALYSIS 00750004 .MOKY ANOP 00800004 AIF ('&MARK' NE 'OUT').MOUTB GO IF NOT MARKING FOR OUTPUT 00850004 &CODE SETA 0*256 INDICATE MARK FOR OUTPUT 00900004 AGO .MARKB GO AROUND MARK ANALYSIS 00950004 .MOUTB ANOP 01000004 AIF ('&MARK' NE 'RLS').MRLSB GO IF NOT MARKING FOR RELEASE 01050004 &CODE SETA 4*256 INDICATE MARK FOR RELEASE 01100004 AGO .MARKB GO AROUND MARK ANALYSIS 01150004 .MRLSB ANOP 01200004 IDAERMAC 3,MARK,&MARK ISSUE ERROR MNOTE 01250004 &ERR SETB 1 INDICATE ERROR 01300004 .MARKB ANOP 01350004 AIF (&ERR).END GO IF ANY ERRORS 01400004 AIF ('&NAME' EQ '').NAMEB GO IF NO NAME 01410004 &NAME DS 0H 01450004 .NAMEB ANOP 01460004 AIF ('&RPL'(1,1) EQ '(').RPLR GO IF RPL SPECIFIED AS REG 01500004 LA 1,&RPL LOAD RPL ADDRESS 01550004 AGO .AREG GO AROUND REG CODE 01600004 .RPLR ANOP 01650004 AIF ('&RPL' EQ '(1)').AREG GO IF RPL ADDRESS ALREADY IN 1 01700004 LR 1,&RPL(1) LOAD RPL ADDRESS 01750004 .AREG ANOP 01800004 &CODE SETA &CODE+14 INDICATE MARK BUFFER 01850004 LA 0,&CODE LOAD CODES 01900004 L 15,24(,1) LOAD ACB ADDRESS FROM RPL 01950004 L 15,8(,15) LOAD VSAM INTERFACE RTN ADDR 02000004 BALR 14,15 LINK TO INTERFACE ROUTINE 02050004 .END ANOP 02100004 MEND 02150004