How about this?
FQSYSPRT O F 328 Printer OflInd( *InOf )
D ds
D Field 7 Inz('MTAA010')
D ArFld 1 Dim(7) Overlay(Field:1)
D Pos1 1 Overlay(Field:1)
D Pos7 1 Overlay(Field:7)
D ds
D Num 10 Inz('0123456789')
D ArNum 1 Dim(10) Overlay(Num:1)
D Alf 26 Inz('ABCDEFGHIJKLMNOPQRSTUVWXYZ')
D ArAlf 1 Dim(26) Overlay(Alf:1)
D I2 10i 0 Inz(0)
D I3 10i 0 Inz(0)
D I4 10i 0 Inz(0)
D I5 10i 0 Inz(0)
D I6 10i 0 Inz(0)
D OutFld 7
**
/FREE
*InLr = *ON;
for I2 = 1 to 26;
for I3 = 1 to 26;
for I4 = 1 to 26;
for I5 = 1 to 10;
for I6 = 1 to 10;
OutFld = Pos1 + ArAlf(I2) + ArAlf(I3) + ArAlf(I4) +
ArNum(I5) + ArNum(I6) + Pos7;
except;
endfor;
endfor;
endfor;
endfor;
endfor;
Return;
/END-FREE
OQSYSPRT EF 1
O 'OutFld = '
O OutFld
Saludos,
Leonel Mejía Chinchilla
Ingeniero en Software
Gerencia Regional de Tecnología y Operaciones
BAC | Credomatic Network
Tel: (506) 2527-9000 ext.1576 Fax: (506) 2295-9407
email: lmejia@xxxxxxxxxxxxxx
AVISO DE CONFIDENCIALIDAD: La información contenida en este mensaje es
confidencial y solamente dirigido a la(s) persona(s) mencionadas arriba.
Si el lector de este mensaje no es el interesado, favor de regresarlo al
remitente quedando estrictamente prohibido la difusión, distribución o
reproducción de este comunicado.
CONFIDENTIALITY NOTICE: The information contained in this electronic
message is privileged and confidential and is intended for the use of the
individual(s) named above and others who have been specifically authorized
to receive it. If you are not the intended recipient, you are hereby
notified that any dissemination, distribution or copying of this message
is strictly prohibited. If you have received this message by mistake,
please destroy it immediately, and notify the sender.
Peter Vidal <Peter_Vidal@xxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/22/2008 12:02 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To
rpg400-l@xxxxxxxxxxxx
cc
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.
--------------------------------------------------------------------------------
midrange.com
