Table of Contents

WCC Source

References

Source Listing

WCC.MACRO.txt
  1. MACRO , 00001000
  2. &LABEL $WCC &ALARM=NO,&RESTORE=YES,&RESET=YES 00002000
  3. GBLC &INDEXES,&INIT 00003000
  4. LCLA &FLAG 00004000
  5. LCLC &CHAR 00005000
  6. AIF ( '&INIT' EQ 'YES').NOINIT 00006000
  7. $INIT 00007000
  8. .NOINIT ANOP 00008000
  9. AIF ( '&ALARM' EQ 'NO' ).OKBUZZ 00009000
  10. AIF ( '&ALARM' NE 'YES').BADPARM 00010000
  11. &FLAG SETA &FLAG+X'04' 00011000
  12. .OKBUZZ ANOP , 00012000
  13. AIF ( '&RESTORE' EQ 'NO' ).OKKEY 00013000
  14. AIF ( '&RESTORE' NE 'YES').BADPARM 00014000
  15. &FLAG SETA &FLAG+X'02' 00015000
  16. .OKKEY ANOP , 00016000
  17. AIF ( '&RESET' EQ 'NO' ).OKRESET 00017000
  18. AIF ( '&RESET' NE 'YES').BADPARM 00018000
  19. &FLAG SETA &FLAG+X'01' 00019000
  20. .OKRESET ANOP , 00020000
  21. &FLAG SETA &FLAG+&FLAG+1 00021000
  22. &CHAR SETC '&INDEXES'(&FLAG,2) 00022000
  23. &LABEL DC X'&CHAR' 00023000
  24. MEXIT , 00024000
  25. .BADPARM MNOTE 8,'INVALID PARAMETER, NOT ''YES'' OR ''NO''' 00025000
  26. MEND , 00026000