MACRO                                                          02000000
         IDAERMAC &A,&B,&C,&D,&E                                X04SVHS 04000000
.*  CHANGE ACTIVITY                                                     04050003
.*   D826000                                                   @XM07073 04100003
         AIF   (&A EQ 1).L1                                             06000000
         AIF   (&A EQ 2).L2                                             08000000
         AIF   (&A EQ 3).L3                                             10000000
         AIF   (&A EQ 4).L4                                             12000000
         AIF   (&A EQ 5).L5                                             14000000
         AIF   (&A EQ 6).L6                                             16000000
         AIF   (&A EQ 7).L7                                             18000000
         AIF   (&A EQ 8).L8                                             20000000
         AIF   (&A EQ 9).L9                                             22000000
         AIF   (&A EQ 10).L10                                           24000000
         AIF   (&A EQ 11).L11                                           26000000
         AIF   (&A EQ 18).L18                                    X03004 26050003
         AIF   (&A EQ 19).L19                                    X03004 26100003
         AIF   (&A EQ 20).L20                                    X03004 26150003
         AIF   (&A EQ 21).L21                                  @XA02684 26200003
         AIF   (&A EQ 22).L22                                   X3004BS 26250003
         AIF   (&A EQ 24).L24                                   X04SVHS 26350000
         AIF   (&A EQ 25).L25                                   X04SVHS 26400000
         MNOTE 12,'***IDA999 INVALID MESSAGE CODE, &A'                  28000000
         MEXIT                                                          30000000
.L1      MNOTE 4,'***IDA001 INVALID POSITIONAL PARAMETER, &B - IGNORED' 32000000
         MEXIT                                                          34000000
.L2      MNOTE 12,'***IDA002 &B KEYWORD REQUIRED - NOT SPECIFIED'       36000000
         MEXIT                                                          38000000
.L3      MNOTE 12,'***IDA003 INVALID VALUE, &C, SPECIFIED FOR &B KEYWOR*40000000
               D'                                                       42000000
         MEXIT                                                          44000000
.L4      MNOTE 4,'***IDA004 &B KEYWORD NOT VALID FOR EXECUTE FORM - IGN*46000000
               ORED'                                                    48000000
         MEXIT                                                          50000000
.L5      MNOTE 8,'***IDA005 INVALID OR DUPLICATE SUBLIST ITEM FOR &B KE*52000000
               YWORD, &C'                                       X04SVHS 52050000
         MEXIT                                                          54000000
.L6      MNOTE 8,'***IDA006 &B VALUE, &C, NOT VALID FOR LIST FORM'      56000000
         MEXIT                                                          58000000
.L7      MNOTE 12,'***IDA007 LOGIC ERROR IN MACRO &B'                   60000000
         MEXIT                                                          62000000
.L8      MNOTE 12,'***IDA008 INCOMPATIBLE SUBLIST ITEMS, &C AND &D, FOR*64000000
                &B KEYWORD'                                             66000000
         MEXIT                                                          68000000
.L9      MNOTE 12,'***IDA009 &B CONTROL BLOCK KEYWORDS SPECIFIED - ONLY*70000000
                ONE ALLOWED'                                            72000000
         MEXIT                                                          74000000
.L10     MNOTE 8,'***IDA010 EXIT ADDRESS REQUIRED FOR &B KEYWORD - NOT *76000000
               SPECIFIED'                                               78000000
         MEXIT                                                          80000000
.L11     MNOTE 4,'***IDA011 &B IS NOT A VALID &C KEYWORD - IGNORED'     82000000
         MEXIT                                                   X03004 82050003
.L18     MNOTE 12,'***IDA018 VTAM KEYWORD, &B, SPECIFIED WITHOUT SPECIF*82150003
               YING AM=VTAM'                                     X03004 82200003
         MEXIT                                                   X03004 82250003
.L19     MNOTE 8,'***IDA019 KEYWORDS &B AND &C ARE INCOMPATIBLE' X03004 82260003
         MEXIT                                                   X03004 82270003
.L20     MNOTE 12,'***IDA020 VTAM SUBLIST ITEM, &B, SPECIFIED FOR &C KE*82300003
               YWORD WITHOUT SPECIFYING AM=VTAM'                 X03004 82350003
         MEXIT                                                 @XA02684 82400003
.L21     MNOTE 8,'***IDA021 &B AND &C KEYWORDS MUST BE SPECIFIED TOGETH*82450003
               ER BUT ONE IS MISSING'                          @XA02684 82500003
         MEXIT                                                  X3004BS 82510003
.L22     MNOTE 12,'***IDA022 CONFLICTING SUBLIST ITEMS WERE SPECIFIED F*82550003
               0R &B KEYWORD'                                   X3004BS 82560003
         MEXIT                                                  X04SVHS 82600000
.L24     MNOTE 12,'***IDA024 &B, A VSAM KEYWORD SPECIFIED FOR A NON-VSA*82800000
               M CONTROL BLOCK'                                 X04SVHS 82850000
         MEXIT                                                  X04SVHS 82860000
.L25     MNOTE 12,'***IDA025 &C, &D, &E CONFLICTING SUBPARAMETERS IN &B*82900000
                KEYWORD, &C ASSUMED'                            X04SVHS 82950000
         MEND                                                           84000000