MACRO , 00001000
&LABEL $SF &PROTECT=NO,&MDT=NO,&HILIGHT=NO,&SELECT=NO, X00002000
&SKIP=NO,&NUMERIC=NO,&DISPLAY=YES 00003000
LCLA &ATTR 00004000
LCLC &CHAR 00005000
GBLC &INDEXES,&INIT 00006000
AIF ('&INIT' EQ 'YES').NOINIT 00007000
$INIT 00008000
.NOINIT ANOP 00009000
AIF ( '&SKIP' EQ 'NO' ).NOSKIP 00010000
AIF ( '&SKIP' NE 'YES').NOATTR 00011000
&ATTR SETA &ATTR+X'30' 00012000
AGO .OKALPHA 00013000
.NOSKIP ANOP , 00014000
AIF ( '&PROTECT' EQ 'NO' ).OKPROT 00015000
AIF ( '&PROTECT' NE 'YES').NOATTR 00016000
&ATTR SETA &ATTR+X'20' 00017000
.OKPROT ANOP , 00018000
AIF ( '&NUMERIC' EQ 'NO' ).OKALPHA 00019000
AIF ( '&NUMERIC' NE 'YES').OKALPHA 00020000
&ATTR SETA &ATTR+X'10' 00021000
.OKALPHA ANOP , 00022000
AIF ( '&MDT' EQ 'NO' ).OKMDT 00023000
AIF ( '&MDT' NE 'YES').NOATTR 00024000
&ATTR SETA &ATTR+X'01' 00025000
.OKMDT ANOP , 00026000
AIF ( '&HILIGHT' EQ 'NO' ).OKLITE 00027000
AIF ( '&HILIGHT' NE 'YES').NOATTR 00028000
&ATTR SETA &ATTR+X'08' 00029000
.OKLITE ANOP , 00030000
AIF ( '&DISPLAY' EQ 'YES').OKDISP 00031000
AIF ( '&DISPLAY' NE 'NO' ).NOATTR 00032000
&ATTR SETA &ATTR+X'0C' 00033000
.OKDISP ANOP , 00034000
&LABEL DC X'1D' ORDER CODE 00035000
&ATTR SETA &ATTR+&ATTR+1 00036000
&CHAR SETC '&INDEXES'(&ATTR,2) 00037000
DC X'&CHAR' 00038000
MEXIT , 00039000
.NOATTR MNOTE 8,'INVALID ATTRIBUTE(S) SPECIFIED' 00040000
MEND , 00041000