SECHECK

(GIN Macro)

Defined in: MACROS RJH

Used in: ATTACHC867, CONNECT867, INITJOB867, LIST867, PREPREAD867

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