cQZJREAD ; Read Caché journalspace ;cQZJREAD;  [ 01/03/01   6:50 PM ]
 ;
 ;This is a sample %ZJREAD file. If will look for transactions which
 ;contain updates to %SYS("JOURNAL", and will keep these transactions
 ;from being applied.
 ;The following variables are defined here and can be modified
 ;as needed before the transaction gets applied
 ;
 ;       type - Transaction type
 ;       gref - Global reference
 ;       value - Global value
 ;       %ZJREAD - 1:Apply transaction, 0:Don't apply transaction
 ;
 ;i gref["SYS(""JOURNAL""" s %ZJREAD=0
 ;
 i gref="^" s %ZJREAD=0 q
 s ref="^%" q:$$test
 s ref="^SYS(" q:$$test
 s ref="^mtemp(" q:$$test
 s ref="^DOC(" q:$$test
 s ref="^ROUTINE(" q:$$test
 s ref="^TMP(" q:$$test
 s ref="^UTILITY(" q:$$test
 q
 ;
test() i $e(gref,1,$l(ref))=ref s %ZJREAD=0 q 1
 q 0
 ;
ZZ ; 24.08.01 -  9 u 19 * Cache-r3.1.8