MACRO 00050002 &NAME IHBINNRA &A,&B,&C,&D,&E LC0A 00100002 .*0000000360 LC0A 00150002 LCLA &ASUM 19015 00200002 LCLB &BIT(2) 19015 00250002 LCLC &GVALU LC0A 00300002 &GVALU SETC 'IHB'.'&SYSNDX' LC0A 00350002 AIF ('&E' EQ '').NOPT 19015 00400002 &BIT(1) SETB ('&E' EQ 'REWIND') 19015 00450002 &BIT(2) SETB ('&E' EQ 'LEAVE') 19015 00500002 &ASUM SETA &BIT(1)*32+&BIT(2)*48 19015 00550002 AIF ('&A' EQ '(1)' OR '&A'(1,1) EQ '(').LDREG 19015 00600002 CNOP 0,4 19015 00650002 &NAME BAL 1,*+8 BR AROUND LIST 19015 00700002 DC AL1(&ASUM) OPTION BYTE 19015 00750002 DC AL3(&A(1)) 19015 00800002 L 1,0(1,0) LOAD REG 1 YM1995 00850002 AGO .END 19015 00900002 .LDREG ANOP 19015 00950002 AIF ('&A' EQ '(1)').ORIT 19015 01000002 CNOP 0,4 19015 01050002 &NAME BAL 1,*+8 BR AROUND LIST 19015 01100002 DC AL1(&ASUM) OPTION BYTE 19015 01150002 DC AL3(0) 19015 01200002 L 1,0(1,0) LOAD R 1 WITH OPTION BYTEYM1995 01250002 OR 1,&A(1) OR IN DCB ADDRESS 19015 01300002 AGO .END 19015 01350002 .ORIT ANOP 19015 01400002 CNOP 0,4 19015 01450002 &NAME O 1,*+8 SET OPTION BYTE IN REG 1 19015 01500002 B *+8 19015 01550002 DC AL1(&ASUM) OPTION BYTE 19015 01600002 DC AL3(0) 19015 01650002 AGO .END 19015 01700002 .NOPT AIF ('&A' EQ '' OR '&A' EQ '(1)').NAMEIT 19015 01750002 AIF ('&A'(1,1) EQ '(').REGA 01800002 AIF ('&C' NE '').HOH1 LC0A 01850002 &NAME LA 1,&A LOAD PARAMETER REG 1 01900002 AGO .CHKB 01950002 .REGA ANOP 02000002 &NAME LR 1,&A(1) LOAD PARAMETER REG 1 02050002 AGO .CHKB 02100002 .NAMEIT AIF ('&NAME' EQ '').CHKB 02150002 &NAME DS 0H 02200002 .CHKB AIF ('&B' EQ '' OR '&B' EQ '(0)').END 02250002 AIF ('&B'(1,1) EQ '(').REGB 02300002 AIF ('&A' EQ '').GEN LC0A 02350002 AIF ('&D' EQ '1').END LC0A 02400002 .GEN ANOP LC0A 02450002 LA 0,&B LOAD PARAMETER REG 0 02500002 AGO .END 02550002 .HOH1 ANOP LC0A 02600002 AIF ('&C' EQ '1').H1 LC0A 02650002 &NAME L 0,&GVALU LOAD FOR HIARCHY ZERO LC0A 02700002 AGO .HCHK LC0A 02750002 .H1 ANOP LC0A 02800002 &NAME L 0,&GVALU.A LOAD FOR HIARCHY ONE LC0A 02850002 .HCHK ANOP LC0A 02900002 CNOP 2,4 LCOA 02950002 LA 1,&A LC0A 03000002 OR 1,0 LC0A 03050002 AIF ('&D' NE '1').TTT LC0A 03100002 LA 0,*+8 LC0A 03150002 B *+16 LC0A 03200002 DC CL8'&B' LC0A 03250002 AGO .SSS LC0A 03300002 .TTT ANOP LC0A 03350002 B *+8 LC0A 03400002 .SSS AIF ('&C' EQ '1').L1 LC0A 03450002 &GVALU EQU * LC0A 03500002 DC X'01000000' LC0A 03550002 AGO .CHKB LC0A 03600002 .L1 ANOP LC0A 03650002 &GVALU.A EQU * LC0A 03700002 DC X'02000000' LC0A 03750002 AGO .CHKB LC0A 03800002 .REGB LR 0,&B(1) LOAD PARAMETER REG 0 03850002 .END MEND 03900002