24 lines
846 B
Plaintext
24 lines
846 B
Plaintext
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
; ;
|
|
; Copyright 2001, 2004 Sanchez Computer Associates, 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. ;
|
|
; ;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
%lclcol ; ; ; Local Variable Collation Control
|
|
;
|
|
get() q $v("YLCT")
|
|
getncol() q $v("YLCT","ncol") ; return null collation order
|
|
;
|
|
set(lct,ncol)
|
|
n ok,$et
|
|
s $et="s $ec="""" s ok=0",ok=1
|
|
if ok&$data(lct)&$data(ncol) v "YLCT":lct:ncol q ok
|
|
if ok&$data(lct)&'$data(ncol) v "YLCT":lct:-1 q ok
|
|
if ok&'$data(lct)&$data(ncol) v "YLCT":-1:ncol q ok
|
|
if ok&'$data(lct)&'$data(ncol) v "YLCT":-1:-1 q ok
|
|
q ok
|