Re: Extract some numeric fields from a string

I think parsing would be your friend here. Using %Scan perhaps, and
find the position of each of the literals. Add the length of the
literal plus 1 (equals sign), and you have the start of the numeric
value. Loop until you get the next non-numeric (may have to play with
the decimal), and now you know the end of the number. Use %SubSt and
Bob's yer uncle!

On Tue, Sep 11, 2012 at 1:04 PM, Carel Teijgeler <coteijgeler@xxxxxxxxx> wrote:

Jeff,

With SQL you could a combination of LOCATE, CAST nested in a rather complex
SQL statement.
Perhaps some layers of CTE may also be used (perhaps used recursively).

But I have some questions:

How do you make the selection to search for a value?
Is the length for each value known?

Regards,
Carel Teijgeler

*********** REPLY SEPARATOR ***********

On 11-9-2012 at 12:56 Jeff Crosby wrote:

Given a 60 character string that looks like this (and there will be

trailing blanks):

L=19.3000A=19.43M=21.7700LS=19.93AS=19.93CB=19.1600

How would I extract the numeric data behind one of these character

interludes into a decimal field?

For example, one time I may want to know what's behind the "M=", another

time what's behind the "AS=", etc.

Wanting to know what's behind the "M=" means I want the value (in this

instance) of 21.7700 put into a decimal field.

Wanting to know what's behind the "AS=" means I want the value (in this

instance) of 19.93 put into a decimal field.

At one time or another I will want to know any one of the 6 "fields" in

that string. The fields are optional in the string, ie, the "CB=" may not

be there, in which case I want that field to default to 0.

V7R1. I have the SQL Development Kit if there is some slick way with SQL

to get one or all of these fields out of the string in one fell swoop.

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