Re: How to get the dollar value from this text string?

["Art Tostaine, Jr." <atostaine@xxxxxxxxx>]

This worked perfectly. Thank you

On Wed, Jul 29, 2020 at 2:04 PM Kevin Bucknum <Kevin@xxxxxxxxxxxxxxxxxxx>
wrote:

> If you do have regex setup and working from sql on your box, then this
> little quick and dirty program extracts everything after the last space.
> That includes that ~ but you can remove that.
>
> **Free
>   Dcl-s V1 Char(100);
>   Dcl-s Result Char(10);
>   V1 = 'NTE*OTH*#OH- HANDLING CHARGES GAZE9H01/MNT/   /  6/- 3.36~';
>
>   Exec Sql Select Regexp_Substr(
>     Trim(:V1),
>     '[\S]+$')
>     Into :Result
>     From sysibm.sysdummy1;
>
>   Dsply Result;
>   *Inlr = *On;
>   Return;
>
>
> On Wed, 2020-07-29 at 11:48 -0600, Jack Woehr wrote:
>
> the regex for that is something like
>
>
> .*(\d*\.\d\d).*
>
>
> when $1 will be your dollar figure.
>
>
> --
>
> Jack Woehr
>
> Absolute Performance, Inc.
>
> 12303 Airport Way, Suite 100
>
> Broomfield, CO 80021
>
>
> NON-DISCLOSURE NOTICE:  This communication including any and all
>
> attachments is for the intended recipient(s) only and may contain
>
> confidential and privileged information.  If you are not the intended
>
> recipient of this communication, any disclosure, copying further
>
> distribution or use of this communication is prohibited.  If you received
>
> this communication in error, please contact the sender and delete/destroy
>
> all copies of this communication immediately.
>
>
>
> [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.
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: https://amazon.midrange.com