AW: Remove dashes from phone number in RPGIII

Yet a 4. Option (if allowed) is embed an SQL-Statement.

C/EXEC SQL SET :YOURVAR = REPLACE(:YOURVAR, '-', '')
C/END-EXEC

Remember the source type must be changed to SQLRPG.

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"
?Train people well enough so they can leave, treat them well enough so they
don't want to.? (Richard Branson)



-----Ursprüngliche Nachricht-----
Von: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im Auftrag von Jon
Paris
Gesendet: Thursday, 10.11 2016 22:18
An: Rpg400 Rpg400-L
Betreff: Re: Remove dashes from phone number in RPGIII

Option 1: Convert it to RPG IV

I mean seriously - why not? Unless it is a very unusual program it will
convert without issue. %ScanRpl will do the job in a single operation.

Option 2: Code a simple routine in RPG IV and call it.

Option 3: Move the string to a DS which has the three components that you
want defined then concatenate the three bits into a new field.


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

On Nov 10, 2016, at 3:27 PM, Bill Howie <blhowie66@xxxxxxxxx> wrote:

Hello all,

Quick and probably easy question for the group.....what's the easiest
way to remove dashes from a phone number in RPGIII? Using the XLATE
op code doesn't allow a use like this:

'-':'' XLATE NUM1 NUM2

In other words, translating a dash to nothing. I know there's a bunch
of ways to do this in RPGIV and later but alas, it's an RPGIII program I'm
messing with. Any help is as always appreciated. Thanks!

Bill
--
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.