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