TESTPRIV [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: TESTPRIV)}}
====== TESTPRIV ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_MACB|MACROS MACB]]

**Used in:** [[george:source:BEXTRA83|BEXTRA83]], [[george:source:BMJLSLAV864|BMJLSLAV864]], [[george:source:BQUERY84|BQUERY84]], [[george:source:CHEKPRIV867|CHEKPRIV867]], [[george:source:INITJOB867|INITJOB867]], [[george:source:PRIVLEG84|PRIVLEG84]]

<code - TESTPRIV.mac.txt>
 56SJ ...[??? TESTPRIV SECT CENT FGN 2 DOC   
 574B    #   
 57J2    #MAC  TESTPRIV         [SETS X0 =0 IF PRIVILEGE NOT HELD;   
 583L          LDN   0  1               [OTHERWISE X0 IS NOT ZERO
 58H=          SMO      %A              [%A CONTAINS PRIVILEGE TYPE  
 592W          SRC   0  1               [%B IS A MODIFIER POINTING TO THE
 59GG          ANDX  0  CPRIV(%B)       [RELEVANT FILE,ADICTENT  
 5=26    #NOR
</code>