/usr/lib/x86_64-linux-gnu/fis-gtm/V6.3-000A_x86_64/_UCASE.m is in fis-gtm-6.3-000a 6.3-000A-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; ;
; Copyright 1989, 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. ;
; ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
%UCASE ;GT.M %UCASE utility - convert a string to all upper case
;invoke with string in %S to return upper case string in %S
;invoke at INT to execute interactively
;invoke at FUNC as an extrinsic function
;if you make heavy use of this routine, consider $ZCALL
;
s %S=$$FUNC(%S)
q
INT n %S
r !,"String: ",%S w !,"Upper: ",$$FUNC(%S),!
q
FUNC(s)
new returnM,returnUTF8,ret,index
i ($zver["VMS")!($ZCHSET="M") do quit ret
. s returnM="set ret=$tr(s,""abcdefghijklmnopqrstuvwxyz"
. for index=224:1:239,241:1:253 s returnM=returnM_$char(index)
. s returnM=returnM_""","
. s returnM=returnM_"""ABCDEFGHIJKLMNOPQRSTUVWXYZ"
. for index=192:1:207,209:1:221 s returnM=returnM_$char(index)
. s returnM=returnM_""")"
. xecute returnM
s returnUTF8="set ret=$zconvert(s,""U"")"
xecute returnUTF8
q ret
|