{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: SPRIVTEST)}}
====== SPRIVTEST ======
(GIN Macro)

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

**Used in:** [[george:source:FINISH867|FINISH867]], [[george:source:INMOP867|INMOP867]], [[george:source:LISTFILE867|LISTFILE867]], [[george:source:REALTIME867|REALTIME867]], [[george:source:TRAPCHEC867|TRAPCHEC867]]

<code - SPRIVTEST.mac.txt>
 692# ...[??? SPRIVTES SECT CENT FGN 2 DOC   
 69=6    #   
 69PQ    #MAC  SPRIVTEST                [MACRO TO TEST THE PROGRAM PRIVILEGE 
 6=9B          LDN   0  %A              [SPECIFIED BY %A IN THE JOB BLOCK TO 
 6=P2          ANDX  0  JPRIV(%B)       [WHICH %B POINTS.IF THE PROGRAM IS   
 6?8L          BZE   0  %C              [NOT HELD,CONTROL PASSES TO %C   
 6?N=    #NOR
</code>