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

**Defined in:** [[george:source:MACROS_RJH|MACROS RJH]]

**Used in:** [[george:source:ATTACHC867|ATTACHC867]], [[george:source:CONNECT867|CONNECT867]], [[george:source:INITJOB867|INITJOB867]], [[george:source:LIST867|LIST867]], [[george:source:PREPREAD867|PREPREAD867]]

<code - SECHECK.mac.txt>
 65JY ...[??? SECHECK SECT CENT FGN 71 DOC   
 65SQ    #              THIS MACRO CHECKS THE SECURITY STATUS OF THE USER WHOSE  
 66#B    #              DICTIONARY ENTRY IS IN THE FILE/ADICTENT BLOCK SPECIFIED.
 66S2    #              IF THE SECURITY IS LOW OR NORMAL,CONTROL IS PASSED TO A  
 67?L    #              SPECIFIED POINT.IF HIGH,THE INSTRUCTION AFTER THE MACRO  
 67R=    #              IS OBEYED.   
 68=W    #MAC           SECHECK  
 68QG          LDX   0  CINDIC(%A)   
 69=6          ANDN  0  3
 69PQ          BZE   0  %C   
 6=9B          ANDN  0  GHIGH
 6=P2          BZE   0  %B   
 6?8L    #NOR
</code>