MACRO ,                                                        00001000
&LABEL   $WCC  &ALARM=NO,&RESTORE=YES,&RESET=YES                        00002000
         GBLC  &INDEXES,&INIT                                           00003000
         LCLA  &FLAG                                                    00004000
         LCLC  &CHAR                                                    00005000
         AIF   ( '&INIT' EQ 'YES').NOINIT                               00006000
         $INIT                                                          00007000
.NOINIT  ANOP                                                           00008000
         AIF   ( '&ALARM' EQ 'NO' ).OKBUZZ                              00009000
         AIF   ( '&ALARM' NE 'YES').BADPARM                             00010000
&FLAG    SETA  &FLAG+X'04'                                              00011000
.OKBUZZ  ANOP  ,                                                        00012000
         AIF   ( '&RESTORE' EQ 'NO' ).OKKEY                             00013000
         AIF   ( '&RESTORE' NE 'YES').BADPARM                           00014000
&FLAG    SETA  &FLAG+X'02'                                              00015000
.OKKEY   ANOP  ,                                                        00016000
         AIF   ( '&RESET' EQ 'NO' ).OKRESET                             00017000
         AIF   ( '&RESET' NE 'YES').BADPARM                             00018000
&FLAG    SETA  &FLAG+X'01'                                              00019000
.OKRESET ANOP  ,                                                        00020000
&FLAG    SETA  &FLAG+&FLAG+1                                            00021000
&CHAR    SETC  '&INDEXES'(&FLAG,2)                                      00022000
&LABEL   DC    X'&CHAR'                                                 00023000
         MEXIT ,                                                        00024000
.BADPARM MNOTE 8,'INVALID PARAMETER, NOT ''YES'' OR ''NO'''             00025000
         MEND  ,                                                        00026000