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

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

**Used in:** [[george:source:COMHOOK867|COMHOOK867]], [[george:source:ERASE867|ERASE867]], [[george:source:EXPRESS864|EXPRESS864]], [[george:source:FINISH867|FINISH867]], [[george:source:INCRCUBX860|INCRCUBX860]], [[george:source:LISTFILE867|LISTFILE867]], [[george:source:LOADPROG865|LOADPROG865]], [[george:source:ONLINEC867|ONLINEC867]], [[george:source:SAVEJOB865|SAVEJOB865]], [[george:source:SCHEDJOB867|SCHEDJOB867]], [[george:source:SCHEDULE867|SCHEDULE867]], [[george:source:USEREXCP860|USEREXCP860]]

<code - SPRIVJUMP.mac.txt>
 6?Y4 ...[??? SPRIVJUM SECT CENT FGN 2 DOC   
 6#7W    #   
 6#MG    #     THIS MACRO JUMPS IF JOB HAS THE SPECIFIED PRIVILEGE   
 6*76    #     %A IS THE PRIV,%B IS PTR TO JOB BLOCK 
 6*LQ    #     %C IS LABEL   
 6B6B    #   
 6BL2    #MAC  SPRIVJUMP 
 6C5L          LDN   0  %A   
 6CK=          ANDX  0  JPRIV(%B)
 6D4W          BNZ   0  %C   
 6DJG    #NOR
</code>