ENTRUST

(GIN Macro)

Used in: CHCH865, CHTAB, COMPS JSR, COOR865, INKS, PM

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