1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ;
; Copyright 2001, 2006 Fidelity Information Services, Inc ;
; ;
; This source code contains the intellectual property ;
; of its copyright holder(s), and is made available ;
; under a license. If you do not know the terms of ;
; the license, please stop and do not read further. ;
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
%patcode ; ; ; Pattern Code Control
;
get() q $v("PATCODE")
;
set(tab)
n ok,$et
s $et="s $ec="""" s ok=0",ok=1
i $ZCHSET="UTF-8" s ok=0 ; user defined pattern code not supported in UTF-8. No error message given. Simply returns 0
i ok v "PATCODE":tab
q ok
|
