MACRO                                                          00020000
         TAS   &A,&B,&C,&D                                              00040000
         LCLC  &Y                                                       00060000
         AIF   ('&B' EQ 'DDWA').L1                                      00080000
         AIF   ('&B' EQ 'JCT').L2                                       00100000
         AIF   ('&B' EQ 'SCT').L3                                       00120000
         AIF   ('&B' EQ 'SIOT').L4                                      00140000
         AIF   ('&B' EQ 'JFCB').L5                                      00160000
         AIF   ('&B' EQ 'JFCX').L6                                      00180002
.*             JFCBE INSERTED.....                             @Z40MPTH 00200003
.*             MERGE SU4,10,16 CODE TO REL 037 BASE PTF        @ZA28955 00203003
         AIF   ('&B' EQ 'JFCE').L7                             @Z40MPTH 00206003
         AIF   ('&B' EQ 'DSN').L8                                       00220000
         AIF   ('&B' EQ 'DICT').L9                                      00240000
         AIF   ('&B' EQ 'IWA').L10                                      00260000
.L1      ANOP                                                           00280000
&Y       SETC  'INAM'                                                   00300000
         AGO   .LA                                                      00320000
.L2      ANOP                                                           00340000
&Y       SETC  'INJM'                                                   00360000
         AGO   .LA                                                      00380000
.L3      ANOP                                                           00400000
&Y       SETC  'INSM'                                                   00420000
         AGO   .LA                                                      00440000
.L4      ANOP                                                           00460000
&Y       SETC  'INDM'                                                   00480000
         AGO   .LA                                                      00500000
.L5      ANOP                                                           00520000
&Y       SETC  'INFM'                                                   00540000
         AGO   .LA                                                      00560000
.L6      ANOP                                                           00580000
&Y       SETC  'INEM'                                                   00600000
         AGO   .LA                                                      00620000
.L7      ANOP                                                           00640000
.*             INGM INSERTED FOR JFCBE....                     @Z40MPTH 00660003
&Y       SETC  'INGM'                                          @Z40MPTH 00666003
         AGO   .LA                                                      00680000
.L8      ANOP                                                           00700000
&Y       SETC  'INNM'                                                   00720000
         AGO   .LA                                                      00740000
.L9      ANOP                                                           00760000
&Y       SETC  'INTM'                                                   00780000
         AGO   .LA                                                      00800000
.L10     ANOP                                                           00820000
&Y       SETC  'INIM'                                                   00840000
.LA      ANOP                                                           00860000
         DC    AL1(&A*HEX+&Y) FUNCTION AND TABLE BYTE.                  00880000
         DC    AL1(&C-&Y&B)     OFF SET IN PROPER TABLE.                00900000
         AIF   ('&A' EQ 'MVCN' OR '&A' EQ 'AMVCN').LE                   00920000
         AIF   ('&A' EQ 'AMVCN1' OR '&A' EQ 'AMVCN2').LE       @ZA20550 00930003
         AIF   ('&A' EQ 'CVB1').LB                                      00940000
         AIF   ('&A' EQ 'CVB2').LC                                      00960000
         AIF   ('&A' EQ 'CVB3').LD                                      00980000
         DC    AL1(&D)      BIT PATTERN.                                01000000
         AGO   .LE                                                      01020000
.LB      ANOP                                                           01040000
         DC    AL1(&D)      MAXIMUM CONVERSION NUMBER.                  01060000
         AGO   .LE                                                      01080000
.LC      ANOP                                                           01100000
         DC    AL2(&D)      MAXIMUM CONVERSION NUMBER.                  01120000
         AGO   .LE                                                      01140000
.LD      ANOP                                                           01160000
         DC    AL3(&D)      MAXIMUN CONVERSION NUMBER.                  01180000
.LE      ANOP                                                           01200000
         MEND                                                           01220000