fis-gtm/sr_port/lclcol.mpt

24 lines
846 B
Plaintext
Raw Permalink Normal View History

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ;
; 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