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

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

**Used in:** [[george:source:CHCH865|CHCH865]], [[george:source:CHTAB|CHTAB]], [[george:source:COMPS_JSR|COMPS JSR]], [[george:source:COOR865|COOR865]], [[george:source:INKS|INKS]], [[george:source:PM|PM]]

<code - ENTRUST.mac.txt>
 SNFQ ...[??? ENTRUST SECT CENT FGN 1 DOC
 SN^B ...#MAC ENTRUST
 SPF2 ...#STR %A 
 SPYL ...(   
 SQD= ...      MODE     #70                [ STOP G3 & EXEC AT SAME TIME REPLY IN
 SQXW ...      BNG   0  %A                 [ JIF REPLY IS OK 
 SRCG ...      BRN      %B                 [ ELSE JIF EXEC IS RUNNING
 SRX6 ...)   
 SSBQ ...#STR %A 
 SSWB ...#SKI
 STB2 ...      MODE     #60                [ STOP G3 IF EXEC RUNNING ELSE MAKE TR
 STTL ...#NOR
</code>