Re: ALTSEQ

[boldt@xxxxxxxxxx]

Jerry wrote:
>I need to create a alternate collating sequence table to use with the
>ALTSEQ keyword in a logical file.  The DDS manual talks about a CRTTBL
>command to create the table.  When I try the CRTTBL command it needs a
>source member.  I have no idea what to put in the source member.
>
>I basically want to treat lower case characters as upper case for
>purposes of creating a logical view of a physical file with some fields
>which contains lowercase characters.
>
>Please tell me where to look for this information.  I can't seem to find
>anything on the AS/400 bookshelf on the web.

Here's a sample translate table that you can start with.
This table actually does nothing, though.  To translate
lower case to upper case, I believe you change entry 81
to C1, 82 to C2, etc.

000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F
202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F
404142434445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F
606162636465666768696A6B6C6D6E6F707172737475767778797A7B7C7D7E7F
808182838485868788898A8B8C8D8E8F909192939495969798999A9B9C9D9E9F
A0A1A2A3A4A5A6A7A8A9AAABACADAEAFB0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF
C0C1C2C3C4C5C6C7C8C9CACBCCCDCECFD0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF
E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEFF0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF

Cheers!  Hans

Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---