"Caleb Ng" <[EMAIL PROTECTED]> wrote on 12/08/2005 02:10:32 PM:
> IF P(2)-AR(12)<=28 THEN CC=CC+1; INS 0 BEFORE AR(14)<1,1>; DEL
> AR(14)<1,9>; ELSE IF AR(13)=DATE() THEN CC=CC ELSE INS 1 BEFORE
> AR(14)<1,1>; DEL AR(14)<1,9>
OK, this is some kind of test, right? Nobody actually put that mess in
production code, did they? Actually, it's unfortunately not the worst thing
I've ever seen. Anyway, here's my take on it.
IF P(2)-AR(12) LE 28 THEN
CC = CC+1
INS 0 BEFORE AR(14)<1,1>
DEL AR(14)<1,9>
END ELSE
IF AR(13) NE DATE() THEN
INS 1 BEFORE AR(14)<1,1>
DEL AR(14)<1,9>
END
END
I changed the second compare to not equal, since the equal condition is
just assigning CC to itself. The only time I've seen that do anything
useful was when playing with REMOVE variables, which doesn't seem to be the
case here.
Tim Snyder
Consulting I/T Specialist , U2 Professional Services
North American Lab Services
DB2 Information Management, IBM Software Group
717-545-6403
[EMAIL PROTECTED]
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
