RE: Incrementing Character Fields

Here's a little something I whipped up in RPG/IV V4R3 (run under debug to
see increments). That was an interesting question..

Loyd

START OF CODE

     d abclist         s             26    inz('ABCDEFGHIJKLMNOPQRSTUVWXYZ')
     d abcmax          s              2  0 inz(26)
     d carry           s              1  0 inz(0)
     d datastructure   ds
     d  abc                           3    inz('AAA')
     d   abcovl                       1    dim(3) overlay(abc)
     d myabc           s              1
     d mypos           s              2  0 inz(0)
     d x               s              1  0 inz(3)
     c                   dow       abc <> 'ZZZ'
     c                   exsr      process
     c                   enddo
     c                   eval      *inlr = *on
     c     process       begsr
     c                   reset                   x
     c                   reset                   carry
     c                   dou       x = 0
     c                   eval      myabc = abcovl(x)
     c                   eval      mypos = %scan(myabc:abclist)
     c                   if        mypos = abcmax
     c                   eval      abcovl(x) = %subst(abclist:1:1)
     c                   eval      carry = 1
     c                   else
     c                   eval      abcovl(x) = %subst(abclist:mypos+1:1)
     c                   eval      carry = 0
     c                   endif
     c                   eval      x = x - 1
     c                   if        carry = 0
     c                   eval      x = 0
     c                   endif
     c                   enddo
     c                   endsr

END OF CODE

> -----Original Message-----
> From: DAsmussen@aol.com [SMTP:DAsmussen@aol.com]
> Sent: Thursday, April 15, 1999 1:24 PM
> To:   midrange-l@midrange.com
> Subject:      Incrementing Character Fields
> 
> 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
> +---
+---
| 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
+---