Re: Increment an alpha field by "1"

I pulled this from an old pgm and modified to fit your example:
D FrAlp C 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
D ToAlp C 'BCDEFGHIJKLMNOPQRSTUVWXYZZ'
D FrNum C '0123456789'
D ToNum C '1234567899'
D char1 S 1
D newchar S 1
D orig S 7
D target S 7
*Original value: MTAA010
*Target value: MTZZ990
c eval orig = 'MTAA010'
c do 250 - this is for testing....
c eval target = orig
c if %subst(target:6:1) <> '9'
c eval char1 = %subst(target:6:1)
c FrNum:ToNum xlate char1:1 newchar
c eval %subst(target:6:1) = newchar
c else
c if %subst(target:5:1) <> '9'
c eval char1 = %subst(target:5:1)
c FrNum:ToNum xlate char1:1 newchar
c eval %subst(target:5:1) = newchar
c eval %subst(target:6:1) = '0'
c else
c if %subst(target:4:1) <> 'Z'
c eval char1 = %subst(target:4:1)
c FrAlp:ToAlp xlate char1:1 newchar
c eval %subst(target:4:1) = newchar
c eval %subst(target:5:2) = '00'
c else
c if %subst(target:3:1) <> 'Z'
c eval char1 = %subst(target:3:1)
c FrAlp:ToAlp xlate char1:1 newchar
c eval %subst(target:3:1) = newchar
c eval %subst(target:4:3) = 'A00'
c else
* what to do when MTZZ990 reached ?
c endif
c endif
c endif
c endif
*
c eval orig = target - this is for testing
c enddo - this is for testing

jim franz

----- Original Message ----- From: "Peter Vidal" <Peter_Vidal@xxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Thursday, May 22, 2008 2:02 PM
Subject: Increment an alpha field by "1"

Hi list:

I have a field (7/A) that has a combination of letters and numbers. How
will the code look so I can go from, ie.:

Original value: MTAA010
Target value: MTZZ990

The first character (M) and the last one (0) will never change. Just
positions 2-6

All recommended strategies are welcome,

TIA!


PETER VIDAL
MAPICS IT TECHNICAL SUPPORT TEAM / SR SYSTEM ANALYST
10540 Ridge Rd., Suite 203, New Port Richey, FL 34654-5111
Tel:727-849-9999, x2414 Fax:727-815-3120
WWW.PALL.COM

"Use what talents you possess: the woods would be very silent if no birds
sang there except those that sang best."
Henry Van Dyke

--------------------------------------------------------------------------------

Attention:

This communication may contain information that is confidential,
privileged and/or exempt from disclosure under applicable law.
If you are not the intended recipient, please notify the sender
immediately and delete the original, all attachments, and all
copies of this communication.


--------------------------------------------------------------------------------

--------------------------------------------------------------------------------

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.