TESTPRIV

(GIN Macro)

Defined in: MACROS MACB

Used in: BEXTRA83, BMJLSLAV864, BQUERY84, CHEKPRIV867, INITJOB867, PRIVLEG84

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