MACRO                                                          00001000
&NAME    EXCP &CCB,&KEYW                                                00002000
 LCLC &CL                                                               00003000
         AIF   ('&CCB' EQ '').L6                                        00004000
         AIF   (T'&KEYW EQ 'O').L2                                      00005000
         AIF   ('&KEYW'(1,5) EQ 'REAL').XCPR                            00006000
         AIF   ('&KEYW'(1,5) EQ 'BTAM').BTM                             00007000
         MNOTE 5,'WRONG KEYWORD,MACRO IGNORED'                          00008000
         MEXIT                                                          00009000
.XCPR    ANOP                                                           00010000
&CL      SETC  '80'                                                     00011000
         AGO   .L2                                                      00012000
.BTM     ANOP                                                           00013000
&CL      SETC  '40'                                                     00014000
.L2      ANOP                                                           00015000
         AIF   ('&CCB'(1,1) EQ '(').L1                                  00016000
&NAME    L     1,=A(&CCB)                                               00017000
         AGO   .L4                                                      00018000
.L1      ANOP                                                           00019000
         AIF   ('&CCB'(2,2) EQ '1)').L5                                 00020000
&NAME    LR    1,&CCB(1)                                                00021000
.L4      ANOP                                                           00022000
         AIF   ('&CL' EQ '').L3                                         00023000
         OI    6(1),X'&CL'        SET ON KEYWORD INDICATOR              00024000
.L3      ANOP                                                           00025000
         SVC   0                                                        00026000
         MEXIT                                                          00027000
.L6      ANOP                                                           00028000
         MNOTE 5,'NO CCB SPECIFIED - MACRO IGNORED'                     00029000
         MEXIT                                                          00030000
.L5      ANOP                                                           00031000
         AIF   ('&CL' EQ '').L7                                         00032000
&NAME    OI    6(1),X'&CL'        SET ON KEYWORD INDICATOR              00033000
         AGO   .L3                                                      00034000
.L7      ANOP                                                           00035000
&NAME    SVC   0                                                        00036000
         MEND                                                           00037000