Mixed Case Keys

[peteh@xxxxxxxxxxxxxxxx (Pete Hall)]

In message <m0xC5yQ-000I7rC@Uucp1.mcs.net>, From "Bill Phelps" 
<phelpswr@alpha.obu.edu>, the following was written:
> upper/lower case to position the list correctly.  What are some ways 
> to design a logical file or the application to ignore the case and 
> position the list correctly.

OK, start with the DDS:

                      ALTSEQ(QSYSTRNTBL)     
    R MYRCD           PFILE(MYPFILE)
    K NAMEFLD
    K OTHERKEY        NOALTSEQ

NAMEFLD is your problem key. OTHERKEY would be a subordinate key that is
included only to illustrate how to avoid applying the alternate sequence
table to all key fields.

In RPG, you would use an input field which only allows upper case input
(no LC). From there, it's straight-forward. Use SETLL to position to the
required key. If you need to check values programatically though, you
need to convert the input value to upper case yourself, since the
program will still receive mixed case. You can do this with the XLATE op
code:

   D Lo      C      'abcdefghijkl...
   D Hi      C      'ABCDEFGHIJKL...

   C   Lo:Hi     XLATE    NAMEFLD      UCASEFLD

hth
Pete

              


--
 - Pete Hall peteh@earth.inwave.com
http://www.inwave.com/~peteh/

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---