MACRO 00050002 &NAME WAITR &CNT,&ECB=,&ECBLIST= 00100002 AIF ('&ECB&ECBLIST' EQ '').E1 00150002 AIF (T'&ECB NE 'O' AND T'&ECBLIST NE 'O').E2 00200002 AIF ('&ECB' NE '').CHECK 00250002 AIF ('&ECBLIST'(1,1) EQ '(').REG 00300002 AGO .CONTD 00350002 .CHECK AIF ('&ECB'(1,1) NE '(').CONTD 00400002 .REG ANOP 00450002 &NAME LA 1,0(0,&ECB(1)&ECBLIST(1)) CLEAR HIGH BYTE OF REG 00500002 AIF ('&CNT' EQ '').CONTF 00550002 AIF ('&CNT'(1,1) EQ '(').CONTG 00600002 LA 0,&CNT.(0,0) LOAD PARAMETER REG 0 YM1995 00650002 AGO .CONTA 00700002 .CONTD ANOP 00750002 AIF ('&CNT' EQ '&CNT(1)' AND '&CNT' NE '').CONTC 00800002 &NAME IHBINNRA &ECB&ECBLIST,&CNT LOAD REG 0 AND REG 1 00850002 AIF ('&CNT' NE '').CONTA 00900002 .CONTF LA 0,1(0,0) COUNT OMITTED,1 USED 00950002 AGO .CONTA 01000002 .CONTG ANOP 01050002 LR 0,&CNT(1) 01100002 AGO .CONTA 01150002 .CONTC ANOP 01200002 &NAME IHBINNRA &ECB&ECBLIST,&CNT.(0,0) 01250002 .CONTA AIF ('&ECBLIST' EQ '').CONTB 01300002 LCR 1,1 INDICATE ECBLIST USED 01350002 .CONTB LCR 0,0 INDICATE WAITR MACRO 01400002 SVC 1 LINK TO WAIT ROUTINE 01450002 MEXIT 01500002 .E1 IHBERMAC 11 ECB AND ECBLIST MISSING 01550002 MEXIT 01600002 .E2 IHBERMAC 1003,ECB,ECBLIST ECB AND ECBLIST BOTH SPEC. 01650002 MEND 01700002