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

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

%ScanR would be better Carel - just in causer the /- also occurs earlier in the string.



> On Jul 29, 2020, at 3:45 PM, Carel <coteijgeler@xxxxxxxxx> wrote:
>
> Try (top of my head):
>
> Found = %scan('/-':Field:1)
> Start = Found + 2
> Found = %scan('~':Field:Start)
> Length = Found - Start
> Result = %trim(%subst(Field:Start:Length))
>
> I would put it in a *SRVPGM
>
> Kind regards,
> Carel Teijgeler
>
>
> Op 29-7-2020 om 19:16 schreef Art Tostaine, Jr.:
> > Here are some samples. need to extract 1.23 here.  I was thinking of
> > reading backwards looking for a space.  Any better ideas?  Thank you.
> >
> > NTE*OTH*#F7- PST/SALES TAX GAZE9H01/MNT/   /  6/- 1.23~
> >
> > NTE*OTH*#F7- PST/SALES TAX GSYE9R03/WHT/   / 4T/- 1.22~
> >
> > NTE*OTH*#OH- HANDLING CHARGES GAZE9H01/MNT/   /  6/- 3.36~
> >
> > NTE*OTH*#OH- HANDLING CHARGES GSYE9R03/WHT/   / 4T/- 2.29~
>
> -- 
> 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