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

**Defined in:** [[george:source:BUDGMAC|BUDGMAC]]

**Used in:** [[george:source:ACCESS867|ACCESS867]], [[george:source:ARCHIVE867|ARCHIVE867]], [[george:source:BEXTSJ84|BEXTSJ84]], [[george:source:CAFSPERI867|CAFSPERI867]], [[george:source:CHTAB|CHTAB]], [[george:source:ENTRUST|ENTRUST]], [[george:source:FREEZE864|FREEZE864]], [[george:source:INKS|INKS]], [[george:source:IPCOPENA83|IPCOPENA83]], [[george:source:IPCOPENB83|IPCOPENB83]], [[george:source:LOADPROG865|LOADPROG865]], [[george:source:MACRALAS864|MACRALAS864]], [[george:source:MEXTSJ70|MEXTSJ70]], [[george:source:NEWDIR867|NEWDIR867]], [[george:source:OLMTC85|OLMTC85]], [[george:source:ONLINEC867|ONLINEC867]], [[george:source:OPERATOR867|OPERATOR867]], [[george:source:OWNERCHE84|OWNERCHE84]], [[george:source:RETRIEVE864|RETRIEVE864]], [[george:source:SJMESS867|SJMESS867]], [[george:source:USEREXCP860|USEREXCP860]], [[george:source:USERONE867|USERONE867]]

<code - CHEKPRIV.mac.txt>
 229S ...[??? CHEKPRIV SECT FILE FGN 1 DOC   
 22FL    #MAC  CHEKPRIV  
 22^=    #STR  JOB,%A
 23DW    (   
 23YG          SMO      FX1  
 24D6          LDN   1  %B   
 24XQ          SMO      FX2  
 25CB          LDN   2  ACOMMUNE1
 25X2          MOVE  1  2
 26BL          DOWN     CHEKPRIV,1%A 
 26W=          BRN      %C   
 27*W    )   
 27TG    #STR  JOB,%A
 28*6    #SKI
 28SQ    (   
 29#B          SMO      FX2  
 29S2          STOZ     ACOMMUNE1
 2=?L          LDN   0  %B   
 2=R=          SMO      FX2  
 2?=W          LDN   1  ACOMMUNE5
 2?QG          MOVE  0  2
 2#=6    #STR  OPEN,%D   
 2#PQ          LDCT  0  #200 
 2*9B    #STR  OPEN,%D   
 2*P2    #SKI
 2B8L          LDN   0  0
 2BN=          SMO      FX2  
 2C7W          STO   0  ACOMMUNE4
 2CMG          DOWN     CHEKPRIV,2   
 2D76          BRN      %C   
 2DLQ    )   
 2F6B    #NOR
</code>