Re: eval from numeric to alpha?

I do not have access to the manuals any more (unlike the OP *cough**cough))

Can there not be made a LF that changed the character field to a zoned field?

Cave-ats:
- Not all digits in the field.
- Field length have to be sized to the length so it can be used as a key field.
- The field to chain/read the date is also ZONED,
Otherwise there have to be a move from the one field to the key field, then a %dec could have been used in stead.

Just wondering.

Regards,
Carel Teijgeler

Op 23-2-2016 om 23:34 schreef Hoteltravelfundotcom:

right so we can remove the leading zeros but then we are stuck in cases
where the batch number actually has a zero like 012345.

So what I want to do is create alternate searches, if the chain does not
return on 12345 try 012345 etc. I can't see any other way to do this.

On Tue, Feb 23, 2016 at 5:17 PM, Denis Robitaille <
denis_robitaille@xxxxxxxxxxxx> wrote:

This is how I understand the situation:

- there is a data entry program where a 12 digit number can be entered.
- We want to use this number to access a file for which the key is alpha
of length 10
- We can not remove all leading 0 from the number converted to character.
- I suppose that the length of the converted number must always be the same

Ex: Assume that the alpha number length = 8
So the number 123456 must be translated as ' bb00123456' and the number
23 must be translated to 'bb00000023' if right adjusted.

If I understand the requirement correctly, here is a working solution:

Key_len = 8

Eval(r) key_alpha =
%subst(%editc(key_nbr:'X'):%len(%editc(key_nbr:'X'))+1-Key_len:Key_len)

If you want the result left adjusted, just remove the eval(r)


Hope this help

Denis Robitaille
Chef de service TI - Solution Entreprise
Infrastructure et Opérations
Cascades Centre des technologies,
412 Marie Victorin
Kingsey falls(Québec) Canada J0A 1B0
T : 819 363 6130



-----Message d'origine-----
De : RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de
Hoteltravelfundotcom
Envoyé : 23 février 2016 17:01
À : RPG programming on the IBM i (AS/400 and iSeries) <
rpg400-l@xxxxxxxxxxxx>
Objet : Re: eval from numeric to alpha?

I don't want to add a entry field if possible. This is in IBS and then
would require updating their XT Java screens. As this is a fix, I wanted to
minimize my involvement. The one field gets order# for 2 other files that
get user locks and it clears it. But ours is an alpha field on the key.

On Tue, Feb 23, 2016 at 4:57 PM, Buck Calabro <kc2hiz@xxxxxxxxx> wrote:

On 2/23/2016 3:55 PM, Hoteltravelfundotcom wrote:

Buck, because this new table going against the key there is alpha.

I'll ask the same question from a different angle and maybe we'll

connect.

Why use a numeric field when the user must type in an alpha value?

--
--buck

Visit wiki.midrange.com and register for an account. Edit a page that
helps you, and because it's public, you'll help someone else, too!

--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.
--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.