MACRO 00050037 &NAME TERMRPL &RPL= 00100037 .* 00150037 .* MACRO NAME = TERMRPL 00200037 .* 00250037 .* DESCRIPTIVE NAME = TERMINATE RPL 00300037 .* 00350037 .* FUNCTION = THE TERMRPL MACRO IS USED BY AN ESTAE ROUTINE 00400037 .* TO RELEASE THE VSAM RESOURCES OF A TERMINATED 00450037 .* RPL. 00500037 .* 00550037 .* COPYWRITE = NONE 00600037 .* 00650037 .* STATUS = RELEASE 2, VERSION 0 (CHANGE FLAG @ZA32757) 00700037 .* 00730037 .* DATE OF LAST CHANGE = 14 MARCH 78 00760037 .* 00850037 LCLA &I WORK VARIABLE 00900037 AIF (N'&SYSLIST EQ 0).NOPOS GO IF NO POSITIONAL OPERANDS 00950037 .POSLOOP ANOP 01000037 &I SETA &I+1 POINT TO NEXT POS OPERAND 01050037 IDAERMAC 1,&SYSLIST(&I) ISSUE WARNING MNOTE 01100037 AIF (&I LT N'&SYSLIST).POSLOOP GO IF MORE POS OPERANDS 01150037 .NOPOS ANOP 01200037 AIF ('&RPL' NE '').OKY GO IF RPL IS SPECIFIED 01250037 IDAERMAC 2,RPL ISSUE ERROR MNOTE 01300037 MEXIT ..AND TERMINATE 01350037 .OKY ANOP 01400037 AIF ('&NAME' EQ '').NAMEB GO IF NO NAME 01450037 &NAME DS 0H 01500037 .NAMEB ANOP 01550037 AIF ('&RPL'(1,1) EQ '(').RPLR GO IF RPL SPECIFIED AS REG 01600037 LA 1,&RPL LOAD RPL ADDRESS 01650037 AGO .AREG GO AROUND REG CODE 01700037 .RPLR ANOP 01750037 AIF ('&RPL' EQ '(1)').AREG GO IF RPL ADDRESS ALREADY IN 1 01800037 LR 1,&RPL(1) LOAD RPL ADDRESS 01850037 .AREG ANOP 01900037 LA 0,19 INDICATE TERMINATE RPL 01950037 L 15,24(,1) LOAD ACB ADDRESS FROM RPL 02000037 L 15,8(,15) LOAD VSAM INTERFACE RTN ADDR 02050037 BALR 14,15 LINK TO INTERFACE ROUTINE 02100037 MEND 02150037