MACRO 00050040 IDAVSERR &A,&B,&C,&D,&E @ZA34940 00100040 .* @ZA34940 00120040 .* CHANGE LEVEL = 0 @ZA34940 00140040 .* DATE OF LAST CHANGE = 5 OCT 78 ( 78*278 ) @ZA34940 00160040 .* @ZA34940 00180040 .* CHANGE ACTIVITY @ZA34940 00200040 .* CBMM SPLIT SUPPORT @ZA34940 00220040 .* @ZA34940 00240040 .* D826000 @XM07073 00350040 AIF (&A EQ 1).L1 00400040 AIF (&A EQ 2).L2 00450040 AIF (&A EQ 3).L3 00500040 AIF (&A EQ 4).L4 00550040 AIF (&A EQ 5).L5 00600040 AIF (&A EQ 6).L6 00650040 AIF (&A EQ 7).L7 00700040 AIF (&A EQ 8).L8 00750040 AIF (&A EQ 9).L9 00800040 AIF (&A EQ 10).L10 00850040 AIF (&A EQ 11).L11 00900040 AIF (&A EQ 18).L18 X03004 00950040 AIF (&A EQ 19).L19 X03004 01000040 AIF (&A EQ 20).L20 X03004 01050040 AIF (&A EQ 21).L21 @XA02684 01100040 AIF (&A EQ 22).L22 X3004BS 01150040 AIF (&A EQ 24).L24 X04SVHS 01200040 AIF (&A EQ 25).L25 X04SVHS 01250040 MNOTE 12,'***IDA999 INVALID MESSAGE CODE, &A' 01300040 MEXIT 01350040 .L1 MNOTE 4,'***IDA001 INVALID POSITIONAL PARAMETER, &B - IGNORED' 01400040 MEXIT 01450040 .L2 MNOTE 12,'***IDA002 &B KEYWORD REQUIRED - NOT SPECIFIED' 01500040 MEXIT 01550040 .L3 MNOTE 12,'***IDA003 INVALID VALUE, &C, SPECIFIED FOR &B KEYWOR*01600040 D' 01650040 MEXIT 01700040 .L4 MNOTE 4,'***IDA004 &B KEYWORD NOT VALID FOR EXECUTE FORM - IGN*01750040 ORED' 01800040 MEXIT 01850040 .L5 MNOTE 8,'***IDA005 INVALID OR DUPLICATE SUBLIST ITEM FOR &B KE*01900040 YWORD, &C' X04SVHS 01950040 MEXIT 02000040 .L6 MNOTE 8,'***IDA006 &B VALUE, &C, NOT VALID FOR LIST FORM' 02050040 MEXIT 02100040 .L7 MNOTE 12,'***IDA007 LOGIC ERROR IN MACRO &B' 02150040 MEXIT 02200040 .L8 MNOTE 12,'***IDA008 INCOMPATIBLE SUBLIST ITEMS, &C AND &D, FOR*02250040 &B KEYWORD' 02300040 MEXIT 02350040 .L9 MNOTE 12,'***IDA009 &B CONTROL BLOCK KEYWORDS SPECIFIED - ONLY*02400040 ONE ALLOWED' 02450040 MEXIT 02500040 .L10 MNOTE 8,'***IDA010 EXIT ADDRESS REQUIRED FOR &B KEYWORD - NOT *02550040 SPECIFIED' 02600040 MEXIT 02650040 .L11 MNOTE 4,'***IDA011 &B IS NOT A VALID &C KEYWORD - IGNORED' 02700040 MEXIT X03004 02750040 .L18 MNOTE 12,'***IDA018 VTAM KEYWORD, &B, SPECIFIED WITHOUT SPECIF*02800040 YING AM=VTAM' X03004 02850040 MEXIT X03004 02900040 .L19 MNOTE 8,'***IDA019 KEYWORDS &B AND &C ARE INCOMPATIBLE' X03004 02950040 MEXIT X03004 03000040 .L20 MNOTE 12,'***IDA020 VTAM SUBLIST ITEM, &B, SPECIFIED FOR &C KE*03050040 YWORD WITHOUT SPECIFYING AM=VTAM' X03004 03100040 MEXIT @XA02684 03150040 .L21 MNOTE 8,'***IDA021 &B AND &C KEYWORDS MUST BE SPECIFIED TOGETH*03200040 ER BUT ONE IS MISSING' @XA02684 03250040 MEXIT X3004BS 03300040 .L22 MNOTE 12,'***IDA022 CONFLICTING SUBLIST ITEMS WERE SPECIFIED F*03350040 0R &B KEYWORD' X3004BS 03400040 MEXIT X04SVHS 03450040 .L24 MNOTE 12,'***IDA024 &B, A VSAM KEYWORD SPECIFIED FOR A NON-VSA*03500040 M CONTROL BLOCK' X04SVHS 03550040 MEXIT X04SVHS 03600040 .L25 MNOTE 12,'***IDA025 &C, &D, &E CONFLICTING SUBPARAMETERS IN &B*03650040 KEYWORD, &C ASSUMED' X04SVHS 03700040 MEND 03750040