MACRO 00050000 ISTERMAC &A,&B,&C,&D,&E @ZA34940 00100000 .* @ZA34940 00150000 .* CHANGE LEVEL = 0 @ZA34940 00200000 .* DATE OF LAST CHANGE = 5 OCT 78 ( 78*278) @ZA34940 00250000 .* @ZA34940 00300000 .* CHANGE ACTIVITY @ZA34940 00350000 .* CBMM SPLIT SUPPORT @ZA34940 00400000 .* @ZA34940 00450000 .* D826000 @XM07073 00500000 AIF (&A EQ 1).L1 00550000 AIF (&A EQ 2).L2 00600000 AIF (&A EQ 3).L3 00650000 AIF (&A EQ 4).L4 00700000 AIF (&A EQ 5).L5 00750000 AIF (&A EQ 6).L6 00800000 AIF (&A EQ 7).L7 00850000 AIF (&A EQ 8).L8 00900000 AIF (&A EQ 9).L9 00950000 AIF (&A EQ 10).L10 01000000 AIF (&A EQ 11).L11 01050000 AIF (&A EQ 18).L18 X03004 01100000 AIF (&A EQ 19).L19 X03004 01150000 AIF (&A EQ 20).L20 X03004 01200000 AIF (&A EQ 21).L21 @XA02684 01250000 AIF (&A EQ 22).L22 X3004BS 01300000 AIF (&A EQ 24).L24 X04SVHS 01350000 AIF (&A EQ 25).L25 X04SVHS 01400000 MNOTE 12,'***IDA999 INVALID MESSAGE CODE, &A' 01450000 MEXIT 01500000 .L1 MNOTE 4,'***IDA001 INVALID POSITIONAL PARAMETER, &B - IGNORED' 01550000 MEXIT 01600000 .L2 MNOTE 12,'***IDA002 &B KEYWORD REQUIRED - NOT SPECIFIED' 01650000 MEXIT 01700000 .L3 MNOTE 12,'***IDA003 INVALID VALUE, &C, SPECIFIED FOR &B KEYWOR*01750000 D' 01800000 MEXIT 01850000 .L4 MNOTE 4,'***IDA004 &B KEYWORD NOT VALID FOR EXECUTE FORM - IGN*01900000 ORED' 01950000 MEXIT 02000000 .L5 MNOTE 8,'***IDA005 INVALID OR DUPLICATE SUBLIST ITEM FOR &B KE*02050000 YWORD, &C' X04SVHS 02100000 MEXIT 02150000 .L6 MNOTE 8,'***IDA006 &B VALUE, &C, NOT VALID FOR LIST FORM' 02200000 MEXIT 02250000 .L7 MNOTE 12,'***IDA007 LOGIC ERROR IN MACRO &B' 02300000 MEXIT 02350000 .L8 MNOTE 12,'***IDA008 INCOMPATIBLE SUBLIST ITEMS, &C AND &D, FOR*02400000 &B KEYWORD' 02450000 MEXIT 02500000 .L9 MNOTE 12,'***IDA009 &B CONTROL BLOCK KEYWORDS SPECIFIED - ONLY*02550000 ONE ALLOWED' 02600000 MEXIT 02650000 .L10 MNOTE 8,'***IDA010 EXIT ADDRESS REQUIRED FOR &B KEYWORD - NOT *02700000 SPECIFIED' 02750000 MEXIT 02800000 .L11 MNOTE 4,'***IDA011 &B IS NOT A VALID &C KEYWORD - IGNORED' 02850000 MEXIT X03004 02900000 .L18 MNOTE 12,'***IDA018 VTAM KEYWORD, &B, SPECIFIED WITHOUT SPECIF*02950000 YING AM=VTAM' X03004 03000000 MEXIT X03004 03050000 .L19 MNOTE 8,'***IDA019 KEYWORDS &B AND &C ARE INCOMPATIBLE' X03004 03100000 MEXIT X03004 03150000 .L20 MNOTE 12,'***IDA020 VTAM SUBLIST ITEM, &B, SPECIFIED FOR &C KE*03200000 YWORD WITHOUT SPECIFYING AM=VTAM' X03004 03250000 MEXIT @XA02684 03300000 .L21 MNOTE 8,'***IDA021 &B AND &C KEYWORDS MUST BE SPECIFIED TOGETH*03350000 ER BUT ONE IS MISSING' @XA02684 03400000 MEXIT X3004BS 03450000 .L22 MNOTE 12,'***IDA022 CONFLICTING SUBLIST ITEMS WERE SPECIFIED F*03500000 0R &B KEYWORD' X3004BS 03550000 MEXIT X04SVHS 03600000 .L24 MNOTE 12,'***IDA024 &B, A VSAM KEYWORD SPECIFIED FOR A NON-VSA*03650000 M CONTROL BLOCK' X04SVHS 03700000 MEXIT X04SVHS 03750000 .L25 MNOTE 12,'***IDA025 &C, &D, &E CONFLICTING SUBPARAMETERS IN &B*03800000 KEYWORD, &C ASSUMED' X04SVHS 03850000 MEND 03900000