Maybe your email Nazi isn't releasing your email until he's read it all?
:-) 

> -----Original Message-----
> From: MAJ Programming [mailto:[EMAIL PROTECTED]
> Sent: Monday, November 26, 2007 5:21 PM
> To: [email protected]
> Subject: Re: [U2] Good Practice?
> 
> Again, your response is out of sequence as so is mine. I see the back
> slashes today but replied yesterday.
> Maybe the forum is a better idea.
> Mark Johnson
> ----- Original Message -----
> From: "Jerry Banker" <[EMAIL PROTECTED]>
> To: <[email protected]>
> Sent: Monday, November 26, 2007 8:40 AM
> Subject: RE: [U2] Good Practice?
> 
> 
> > In the case he used it will not show a false positive because he
> > enclosed the F200.SCHEME.CODE in "\".
> >
> > > -----Original Message-----
> > > From: MAJ Programming [mailto:[EMAIL PROTECTED]
> > > Sent: Sunday, November 25, 2007 10:03 PM
> > > To: [email protected]
> > > Subject: Re: [U2] Good Practice?
> > >
> > > I find this kind of evolved junk a lot. There's one caveat that
you
> > should
> > > include:
> > >
> > > TEST = '\AF1\CK1\CK2\H\LHC\MP\NU1\NU2\TK1\TK2\'
> > > CONVERT "\" TO CHAR(254) IN TEST
> > > LOCATE F200.SCHEME.CODE IN TEST SETTING FOUND THEN
> ELSE............
> > >
> > > While actual mileage may differ, when having a lookup table and
using
> > INDEX,
> > > the value of F200.SCHEME.CODE of CK will trigger a false positive.
> > >
> > > I like to boil down complex boolean expressions into readable
words as
> > well.
> > > Somehow causes clarity, especially with very verbose variable
names.
> > >
> > > MJ
> > > ----- Original Message -----
> > > From: "Keith Johnson (DSLWN)" <[EMAIL PROTECTED]>
> > > To: <[email protected]>
> > > Sent: Sunday, November 25, 2007 3:52 PM
> > > Subject: [U2] Good Practice?
> > >
> > >
> > > > Here's an example of how I rewrote some code.
> > > >
> > > > Old version
> > > > 284: *         IF F200.SCHEME.CODE = "CK1" OR F200.SCHEME.CODE =
> > "CK2"
> > > > OR F200.SCHEME.CODE = "NU1" OR F200.SCHEME.CODE = "NU2" OR
> > > > F200.SCHEME.CODE = "TK1" OR F200.SCHEME.CODE = "TK2" OR
> > > F200.SCHEME.CODE
> > > > = "GS1" OR F200.SCHEME.CODE = "JM" OR F200.SCHEME.CODE = "MP3"
> OR
> > > > F200.SCHEME.CODE = "LHC" OR F200.CALC.CODE = "H" OR
> > > F500.S91.ANNUITY.SEQ
> > > > + 0 >= 2 OR F500.S48.ANNUITY.SEQ + 0 >= 2 OR F200.SCHEME.CODE =
> > "AF1"
> > > OR
> > > > F200.SCHEME.CODE = "MP" THEN    ; *002
> > > > 285:          IF F200.SCHEME.CODE = "CK1" OR F200.SCHEME.CODE =
> > "CK2" OR
> > > > F200.SCHEME.CODE = "NU1" OR F200.SCHEME.CODE = "NU2" OR
> > > F200.SCHEME.CODE
> > > > = "TK1" OR F200.SCHEME.CODE = "TK2" OR F200.SCHEME.CODE = "LHC"
> OR
> > > > F200.CALC.CODE = "H" OR F500.S91.ANNUITY.SEQ + 0 >= 2 OR
> > > > F500.S48.ANNUITY.SEQ + 0 >= 2 OR F200.SCHEME.CODE = "MP" OR
> > > > F200.SCHEME.CODE = "AF1" THEN     ; *002*003
> > > >
> > > > New version
> > > > 261:          THAT = @TRUE
> > > > 262: *        TEST =
> > > '\AF1\CK1\CK2\GS1\H\JM\LHC\MP\MP3\NU1\NU2\TK1\TK2\'
> > > > 263:          TEST = '\AF1\CK1\CK2\H\LHC\MP\NU1\NU2\TK1\TK2\'
> > > > 264:          IF INDEX(TEST,'\':F200.SCHEME.CODE:'\',1) THEN
THAT =
> > > > @FALSE
> > > > 265:
> > > > 266:          IF F500.S91.ANNUITY.SEQ + 0 GE 2 THEN THAT =
@FALSE
> > > > 267:          IF F500.S48.ANNUITY.SEQ + 0 GE 2 THEN THAT =
@FALSE
> > > >
> > > > I think the new version is easier to maintain (well I would say
> > that),
> > > > but the code itself is more complex; which is rather
interesting.
> > > >
> > > >
> > > > Regards, Keith
> > > > -------
> > > > 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/
> > -------
> > 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/
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to