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