2012-02-05 11:35:58 -05:00
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
; ;
|
2012-10-29 18:54:31 -04:00
|
|
|
; Copyright 2001, 2012 Fidelity Information Services, Inc ;
|
2012-02-05 11:35:58 -05:00
|
|
|
; ;
|
|
|
|
|
; 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. ;
|
|
|
|
|
; ;
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
|
%lclcol ; ; ; Local Variable Collation Control
|
|
|
|
|
;
|
2012-10-29 18:54:31 -04:00
|
|
|
get() q $v("YLCT")
|
2012-02-05 11:35:58 -05:00
|
|
|
getncol() q $v("YLCT","ncol") ; return null collation order
|
|
|
|
|
;
|
2012-10-29 18:54:31 -04:00
|
|
|
getnct() q $v("YLCT","nct") ; return numeric collation type
|
|
|
|
|
;
|
|
|
|
|
set(lct,ncol,nct)
|
2012-02-05 11:35:58 -05:00
|
|
|
n ok,$et
|
|
|
|
|
s $et="s $ec="""" s ok=0",ok=1
|
2012-10-29 18:54:31 -04:00
|
|
|
s:'$data(lct) lct=-1
|
|
|
|
|
s:'$data(ncol) ncol=-1
|
|
|
|
|
s:'$data(nct) nct=-1
|
|
|
|
|
v:ok "YLCT":lct:ncol:nct
|
2012-02-05 11:35:58 -05:00
|
|
|
q ok
|
