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