Thanks Ron,

This looks to be close to what I need.  I'll have to see if I can fit
this into my needs.  You're right about maintainability but the trade
off is I don't have to worry about a detached subroutine getting changed
to generalize it for reuse.  There's something to be said for specific
use programming in a non-OOP environment. <smile>

Charles' comments are good, too, and I've told myself much of what he
said.  I really want to avoid the subroutine method, though,
specifically to force a single use of the function.  The choice of a
bunch of very small, specific use, subroutines verses a general purpose
subroutine is always a dilemma. In this case, I'm wanting to avoid the
general purpose option.  While waiting for replies, I went ahead and did
the subroutine but that's only if we're not able to come up with an
I-DESC only solution.
 

BobW
 

-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Pingilley, Ron
Sent: Friday, February 03, 2006 2:27 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] UV I-descriptor - slight correction

Bob,

        Went brain dead on the <5> and <9> in your FILE2.  The corrected
I-descr should read:

0001 I
0002
SUM(MULS(EQS(RAISE(TRANS("FILE2",OCONV(@ID,"G1*1"),5,"X")),REUSE(OCONV(@
ID,"G3*1"))),RAISE(TRANS("FILE2",OCONV(@ID,"G1*1"),9,"X"))))
0003
0004
0005 10L
0006 M

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

Reply via email to