Parse a whole name field

RPG code to extract first and last name from an "entire name" field.

I have a field that has clients' entire name.   Last name is always first, followed by a space.  I need to get all the characters until a space is found and put those chars into a last name field. Then, grab all the chars after the space and put those in the first name.


NAME
SMITH TED B.
SMITH RANDY
SMITH TOMMY R JR
JONES BRETT

to

LASTNAMEFLD                 FIRSTNAMEFLD
SMITH                                TED B.
SMITH                                RANDY
SMITH                                TOMMY R JR
JONES                                 BRETT
LVL 1
roosterupAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Gary PattersonVP Technology / Senior Consultant Commented:
One simple approach:

dcl-s firstSpacePos int(5);
dcl-s fullName  char(35) inz('PATTERSON GARY R.');
dcl-s lastName char(35);
dcl-s restOfName char(35);

// Find the first space in the name
firstSpacePos = %scan(' ' ; fullname);

// Extract the last name
lastName = %left(fullName : firstSpacePos-1);

// Extract rest of the name
restOfName = %right(fullName : %len(fullName) - firstSpacePos);
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
roosterupAuthor Commented:
is %left valid?
0
Gary PattersonVP Technology / Senior Consultant Commented:
Lol.  No SQL brain.  Just use %subst.
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
RPG

From novice to tech pro — start learning today.