ZERRORX [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: ZERRORX)}}
====== ZERRORX ======
(GIN Macro)

**Defined in:** [[george:source:MACS_MISW|MACS MISW]]

**Used in:** [[george:source:ASSOC867|ASSOC867]], [[george:source:ATTACHA8|ATTACHA8]], [[george:source:ATTACHB866|ATTACHB866]], [[george:source:ATTACHC867|ATTACHC867]], [[george:source:ATTJOUNL861|ATTJOUNL861]], [[george:source:DETACH867|DETACH867]], [[george:source:HARDWARA8|HARDWARA8]], [[george:source:HOLDCOM867|HOLDCOM867]], [[george:source:HOWBIG867|HOWBIG867]], [[george:source:LINECTRL864|LINECTRL864]], [[george:source:LIST867|LIST867]], [[george:source:LISTFILE867|LISTFILE867]], [[george:source:LISTFREE867|LISTFREE867]], [[george:source:LISTPARS867|LISTPARS867]], [[george:source:MAKEVCC867|MAKEVCC867]], [[george:source:ONLINCL864|ONLINCL864]], [[george:source:ONLINEA867|ONLINEA867]], [[george:source:ONLINEB867|ONLINEB867]], [[george:source:ONLINEC867|ONLINEC867]], [[george:source:PARSORT867|PARSORT867]], [[george:source:PERFPASS864|PERFPASS864]]

<code - ZERRORX.mac.txt>
 CJ4L    #MAC  ZERRORX   
 CJJ=    #STR  %B
 CK3W          CALL  %B MZERR%B  
 CKHG    #STR  %B
 CL36    #SKI
 CLGQ          CALL  1  MZERR
 CM2B                   +%A  
 CMG2    #STR  %B
 CM^L    (   
 CNF=    #OPT  MZERR%B=0?
 CNYW    #SKI  0?-MZERR%B
 CPDG    #SKI
 CPY6          COMERRX  0(%B)
 CQCQ    )   
 CQXB    #NOR
</code>