Re: Incrementing Character Fields

[Pete Massiello <pmassiello@xxxxxxxxxxxxxxxx>]

Create a table of 26 elements (A to Z), and using a pattern match of one
character then find the value, increment the subscript by one and read the next
value.  If the subscript is greater than table, then increment the next position
value( AAZ becomes ABA).

    Pete

DAsmussen@aol.com wrote:

> Hey Folks,
>
> Here's an interesting exercise!  I'd swear that I've seen this done in RPG
> many moons ago, but the only practical example I can recall is from a long
> dead platform using an equally long dead version of BASIC.  Say you have a
> three character alpha field that needs to be incremented progressively like a
> number (e.g., AAA, AAB, AAC...ABA, ABB, ABC...ZZX, ZZY, ZZZ).  Any ideas on
> how this could be done in either RPG or RPGLE?
>
> TIA,
>
> Dean Asmussen
> Enterprise Systems Consulting, Inc.
> Fuquay-Varina, NC  USA
> E-mail:  DAsmussen@aol.com
>
> "The brain is a wonderful organ.  It starts the moment you get up and doesn't
> stop until you get into the office." -- Robert Frost
> +---
> | 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
> +---

--
Pete Massiello
OS Solutions International
Phone: (203)-744-7854  Ext 11.
http://www.os-solutions.com
mailto:pmassiello@os-solutions.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
+---