Re: Increment an alpha field by "1"

Peter,

So it's the AA01 - ZZ99 bit that will change? What happens if you try to
exceed that limit? Can the first two characters (i.e. characters 3 and 4 in
the field name) ever be numeric? Can the last two ever be alpha? If the
answer to both questions is no, then the following would work (I think):


D Field DS
D Char 1A Dim(7)
D Chars C 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
D Nums C '0123456789'
D Check S 26A Varying

for x = 6 downto 3;
if x > 4;
Check = Nums;
else;
Check = Chars;
endif;
p = %scan( Char(x) : Check );
if p < %len( Check );
Char(x) = %subst( Check : p + 1 : 1 );
leave;
else;
Char(x) = %subst( Check : 1 : 1 );
endif;
endfor;

On Fri, May 23, 2008 at 9:29 AM, Peter Vidal <Peter_Vidal@xxxxxxxx> wrote:

"Basically, you'd start off with MAAAAAA0 and then it would go to MAAAAAB0
and so on. When it gets to MAAAAA90, it then goes to MAAAABA0, then
MAAAABB0 and so on."

I have this program version ready to test but I need to restate the range
of numbers that I want to focus on. First thing is that I specified
before that my concerned positions were 2-6 but it should be 3-6 and I
apologize for that. Second, my issue is that I am trying to deal with the
creation of new order numbers and the position of the characters is
important (in my case). I HAVE to start in MTAA010 and HAVE to end with
MTZZ990. The configuration of my order number is as follows:

* First char (M) means that this is a manufacturing order
* Second char (T) means the plant location I want to focus on
* Positions 3-6 are the positions I need to increment the sequence in
* Last position (Pos 7) will always be zero (0).