Re: Fwd: Question on %scan

If you want to use %scan


pos = %scan('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz':yourfield);

If pos > 0;
Number = %subst(yourfield:1:pos-1);
Alpha = %subst(yourfield:pos);
EndIf;

That has a problem if you don't have any numbers.
________________________________
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxx> on behalf of Thomas Burrows <thomas.burrows.1957@xxxxxxxxx>
Sent: Wednesday, October 10, 2018 5:04 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Re: Fwd: Question on %scan

I want to put the ALPHA part in one field and the number part in another
field. The end result will be pushed back into an EXCEL file.

On Wed, Oct 10, 2018 at 4:36 PM Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>
wrote:

Solution to what? What problem are you trying to solve?


On 10/10/2018 4:13 PM, Thomas Burrows wrote:

If one has a field with values like
10QT
100QT
100 QT

The number part can be any length - okay something reasonable like less
than 10K.

Can and/or cannot have a space in the field.

Then the start of alpha characters. Only the American 26 character
alphabet. Upper or lower case.

Can I solve the problem of taking the numeric part and putting into

another

field by itself AND then putting the character part into an additional
field. At the moment I do not think we need to convert the CASE on the
alpha part.

=================================================

Or would this problem better be solved in COBOL using the INSPECT

statement?

Open to sending a Home Depot Card of a reasonable amount of $$$ "say $40"
to anyone who can give me a quick solution.

The COBOL Kid - Actually Thomas

--
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: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

--
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: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD



[https://www.medtronsoftware.com/img/MedtronMinilogo.bmp] Kevin Bucknum
Senior Programmer Analyst
MEDDATA / MEDTRON
120 Innwood Drive
Covington LA 70433
Local: 985-893-2550
Toll Free: 877-893-2550
https://www.medtronsoftware.com



CONFIDENTIALITY NOTICE

This document and any accompanying this email transmission contain confidential information, belonging to the sender that is legally privileged. This information is intended only for the use of the individual or entity named above. The authorized recipient of this information is prohibited from disclosing this information to any other party and is required to destroy the information after its stated need has been fulfilled. If you are not the intended recipient, or the employee of agent responsible to deliver it to the intended recipient, you are hereby notified that any disclosure, copying, distribution or action taken in reliance on the contents of these documents is STRICTLY PROHIBITED. If you have received this email in error, please notify the sender immediately to arrange for return or destruction of these documents.