MACRO 00020000 &NAME GETPOOL &DCB,&NO,<H,&HIARCHY= 00030017 LCLA &HX 00040017 AIF ('&DCB' EQ '').E1 00060000 AIF ('&NO' EQ '').E2 00080000 AIF ('&HIARCHY' EQ '0' OR '&HIARCHY' EQ '1').HIARCHY 00084017 AIF ('&HIARCHY' NE '').E4 00088017 &HX SETA 0 NO HIARCHY SPEC'D. 00092017 AGO .TESTNO 00096017 .HIARCHY ANOP 00100017 &HX SETA &HIARCHY+1 HX IS 0,1, OR 2 FOR HIARCHY NONE,0, OR 1. 00104017 .TESTNO ANOP 00104617 &NAME IHBINNRA &DCB LOAD DCB INTO REG 1 00104917 AIF ('&NO' NE '(0)').LOADR 00105217 STH &NO(1),24(0,1) STORE LENGTH IN DCB 00105917 SRL &NO(1),16(0) MOVE BUFFER NUMBER 00106617 STH &NO(1),22(0,1) STORE BUFFER NUMBER 00107317 .LOADR ANOP 00108017 IHBINNRA ,&HX LOAD HX INTO REG 0 00114017 AIF ('<H' EQ '<H(1)' AND '&NO' EQ '&NO(1)').CONT 00120000 AIF ('&NO' EQ '&NO(1)').NUMB 00140000 AIF ('&NO' EQ '(0)').LINK 00160017 STH &NO(1),22(0,1) STORE BUFFER NUMBER 00180000 AGO .CHKLTH 00200000 .NUMB AIF (T'&NO NE 'N').USEDC 00300000 AIF (&NO GT 4095).USEDC 00320000 LA 14,&NO.(0,0) GET BUFFER NUMBER 00340000 STH 14,22(0,1) STORE INTO DCB 00360000 AGO .CHKLTH 00380000 .USEDC B *+6 BRANCH AROUND VALUE 00400000 DC AL2(&NO) NUMBER OF BUFFERS 00420000 MVC 22(2,1),*-2 STORE INTO DCB 00440000 .CHKLTH AIF ('&NO' EQ '(0)').LINK 00460000 AIF ('<H' EQ '').E3 00480000 AIF ('<H' EQ '<H(1)').NUMBL 00500000 STH <H(1),24(0,1) STORE BUFFER LENGTH 00520000 AGO .LINK 00540000 .NUMBL AIF (T'<H NE 'N').USEDCL 00560000 AIF (<H GT 4095).USEDCL 00580000 LA 14,<H.(0,0) GET BUFFER LENGTH 00600000 STH 14,24(0,1) STORE INTO DCB 00620000 AGO .LINK 00640000 .USEDCL B *+6 BRANCH AROUND VALUE 00660000 DC AL2(<H) LENGTH OF BUFFERS 00680000 MVC 24(2,1),*-2 STORE INTO DCB 00700000 AGO .LINK 00720000 .CONT AIF ('<H' EQ '').E3 00740000 B *+8 BRANCH AROUND VALUES 00760000 DC AL2(&NO) NUMBER OF BUFFERS 00780000 DC AL2(<H) LENGTH OF BUFFERS 00800000 MVC 22(4,1),*-4 MOVE INTO DCB 00820000 .LINK ANOP 00830017 LCR 1,1 00840017 LINK EP=IECQBFG1 00850017 MEXIT 00860000 .E1 IHBERMAC 6 DCB MISSING 00880018 MEXIT 00900000 .E2 IHBERMAC 3 NO MISSING 00920018 MEXIT 00940000 .E3 IHBERMAC 4 LTH MISSING 00950018 MEXIT 00964017 .E4 IHBERMAC 195 00968017 &HX SETA 1 00972017 AGO .TESTNO 00976017 MEND 00980000