MACRO 00020000 &NAME IHB02 &DSORG,&MACRF,&DDNAME,&EXLST,&GNCP,&POLST,>YPE 00040000 .* A013600 ADD DEFAULT FOR GTYPE @ZA74583 00050000 .* 00060000 .* SET SYMBOL DECLARATIONS 00080000 .* 00100000 GBLA &A0 00120000 GBLB &DSORG8,&MACRF0,&MACRF1,&MACRF2,&MACRF3,&MACRF4,&MACRF5 00140000 GBLB &MACRF6,&MACRF7,&MACRF8,&MACRF9,&MACRFA,&MACRFB,&MACRFC 00160000 GBLB &MACRFD,&MACRFE,&MACRFF 00180000 LCLA &A1,&A2 00200000 LCLB &IFLGS4,&IFLGS5,&IFLGS6,&IFLGS7 00220000 LCLB &B0,&B1,&B2,&B3 00240000 LCLC &C0,&C1,&C2,&C3 00260000 .* 00280000 .* ANALYZE MACRF PARAMETER RESULTS 00300000 .* 00320000 AIF (&MACRF2 OR &MACRFA).M1 00340000 .M2 ANOP 00360000 IHBERMAC 171 00380000 MEXIT 00400000 .M1 AIF (&MACRF2).M3 00420000 AIF (&MACRF6).M2 00440000 .M3 AIF (&MACRFA).M4 00460000 AIF (&MACRFE).M2 00480000 .M4 AIF (&MACRF0 OR &MACRF1 OR &MACRF3 OR &MACRF4 OR &MACRF5).M2 00500000 AIF (&MACRF7 OR &MACRF8 OR &MACRF9 OR &MACRFB OR &MACRFC).M2 00520000 AIF (&MACRFD OR &MACRFF).M2 00540000 .* 00560000 .* ANALYZE GNCP PARAMETER 00580000 .* 00600000 AIF ('&GNCP' GE '0').M7 00620000 IHBERMAC 147,GNCP 00640000 &A1 SETA 1 00660000 AGO .M9 00680000 .M7 AIF ('&GNCP' LE '99').M8 00700000 IHBERMAC 147,GNCP 00720000 &A1 SETA 99 00740000 AGO .M9 00760000 .M8 ANOP 00780000 &B3 SETB 1 00800000 .* ANALYZE POLST-EXLST-DDNAME 00820000 .M9 ANOP 00840000 &B1 SETB 0 00860000 AIF ('&POLST' NE '0').M10 00880000 AIF ('>YPE' EQ 'BASIC').M10 00900000 IHBERMAC 178,POLST,0 00920000 .M10 AIF ('&EXLST' NE '0').M11 00940000 IHBERMAC 178,EXLST,0 00960000 &A2 SETA 1 00980000 &B1 SETB 1 01000000 .M11 AIF ('&DDNAME' NE '0').M12 01020000 IHBERMAC 167 01040000 AGO .M14 01060000 .M12 AIF (K'&DDNAME LE 8).M13 01080000 IHBERMAC 168 01100000 .M13 AIF (K'&DDNAME GE 8).M14 01120000 IHBERMAC 169 01140000 .M14 ANOP 01160000 .* 01180000 .* GENERATE DCB ORIGIN 01200000 .* 01220000 ORG *-&A0 ELIMINATE UNUSED SPACE 01240000 &NAME DS 0F ORIGIN ON FULL WORD BOUNDRY 01260000 ORG *+&A0 ORIGIN GENERATION 01280000 .* GENERATE GRAPHIC DEVICE INTERFACE 01300000 DC 14XL1'00' 01320000 AIF ('>YPE' EQ 'BASIC').ADD1 01340000 AIF ('>YPE' EQ 'EXPRESS').ADD3 01360000 AIF ('>YPE' EQ 'DEFAULT').ADD3 @ZA74583 01370000 IHBERMAC 183,GTYPE,EXPRESS 01380000 .ADD3 DC AL1(0) GTYPE 01400000 AGO .ADD2 01420000 .ADD1 DC AL1(1) GTYPE 01440000 AIF ('&POLST' EQ '0').ADD2 01460000 IHBERMAC 147,POLST 01480000 .ADD2 ANOP 01500000 DC 5XL1'00' 01520000 .* GENERATE COMMON 01540000 DC 6XL1'00' 01560000 DC BL2'0000000010000000' DSORG 01580000 DC 4XL1'00' 01600000 .* GENERATE FOUNDATION EXTENSION 01620000 AIF ('&B3' EQ '1').K10 01640000 DC AL1(&A1) GNCP 01660000 AGO .K11 01680000 .K10 DC AL1(&GNCP) GNCP 01700000 .K11 ANOP 01720000 DC AL3(&POLST) POLST 01740000 DC 1XL1'00' 01760000 DC AL3(&EXLST) EXLST 01780000 .* GENERATE FOUNDATION 01800000 DC CL8'&DDNAME' DDNAME 01820000 DC BL1'00000010' OFLGS 01840000 DC X'00' IFLG 01860000 DC BL2'&MACRF0&MACRF1&MACRF2&MACRF3&MACRF4&MACRF5&MACRF6&MA*01880000 CRF7&MACRF8&MACRF9&MACRFA&MACRFB&MACRFC&MACRFD&MACRFE&MA*01900000 CRFF' MACRF 01920000 .END ANOP 01940000 MEND 01960000