Note that you also want to raise when the
position is -1 ( retreiving the entire record lowered ).
And when we're at it we can remove the restriction
that TRANS only handles positions not attribute names:
FUNCTION ATRANS( F,K,P,X )
L = ( IF NOT(NUM(P) THEN L = TRANS("DICT ":F,P,2,"X") ELSE P)
K = K ; * What me paranoid ? Reset rmv ptr.
REMOVE DUM FROM K SETTING MORE ; check for any delimiters
K = K ; * reset rmv ptr in case calling pgm cares.
T = TRANS(F,K,L,X)
RETURN (IF (DUM AND L # -1) THEN T ELSE RAISE(T) )
END
But don't use this with names in the call inside deep loops!
-- mats
Andrea Charles wrote:
We are doing a conversion from PI/Open v3.5.r3 on a Prime EXL (mips) to
universe 10.1.4 on AIX 5.3, All the occurrences of the TRANS function return
the "wrong" answer, and appear to be lowered. Simple testing indicates that
using the RAISE function in front of the TRANS expression returns the
correct result. However, we have thousands of occurrences of such in
dictionary I-descriptors. Do you know of any "global" way to tell uv to not
require the use of RAISE to produce the correct answer in this
case. Or, do you know of a replacement function that will work the way
needed? I have searched the archives and found one homegrown subroutine but
I can't seem to get it work reliably.
Thanks for any help.
Andrea Charles
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
