From:  Mats Carlid

What's wrong with

FUNCTION  ATRANS( F,K,P,X )
 RETURN (RAISE(TRANS(F,K,P,X))
END
?
--------------------------

looks good, except how about something like:

 FUNCTION  ATRANS( F,K,P,X )
 REMOVE DUM FROM K SETTING MORE ; check for any delimiters
 K = K ; * reset rmv ptr in case calling pgm cares.
 T = TRANS(F,K,P,X)
 RETURN (IF MORE THEN T ELSE RAISE(T) )

or did I get the then-else backwards . . .

cds
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to