Re: Incrementing Character Fields

[boldt@xxxxxxxxxx]

Dean wrote:
>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?

Here's yet another approach using ILE RPG V4R4:

--------------------------------------------------------------
D ctr             s             10i 0
D x1              s             10i 0
D x2              s             10i 0
D x3              s             10i 0
D alpha           s             26a   inz('abcdefghijklmnopqrstuvwxyz')
D id              s              3a
C                   for       ctr = 12745 to 12856
C                   eval      x3 = %rem(ctr:26)
C                   eval      x2 = %rem(%div(ctr:26):26)
C                   eval      x1 = %div(ctr:26*26)
C                   eval      id = %subst(alpha:x1+1:1)
C                                + %subst(alpha:x2+1:1)
C                                + %subst(alpha:x3+1:1)
C     id            dsply
C                   endfor
C                   eval      *inlr = *on
--------------------------------------------------------------

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
+---