ibm:vm370-lib:macro:wcc.macro_src
Table of Contents
WCC Source
References
- Fixes Applied : 1
- This Source Date : Wednesday, March 8, 2006
- Last Fix ID : [HRC101DK]
Source Listing
- WCC.MACRO.txt
- 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
ibm/vm370-lib/macro/wcc.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator