RE: [EXTERNAL] Re: Is a string numeric

Alan,

This may be the RPG enhancement you were thinking about. Check out this article by Jon Paris.

https://www.itjungle.com/2021/01/18/guru-fall-brings-new-rpg-features-part-3/

It has to do with 2 new H Specs keywords that help with the conversion of character data to numeric.

Ctl-Opt ExprOpts(*AlwBlankNum : *UseDecEdit);

Rob

-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Alan Shore via MIDRANGE-L
Sent: Thursday, December 22, 2022 7:03 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Cc: Alan Shore <ashore@xxxxxxxx>
Subject: RE: [EXTERNAL] Re: Is a string numeric

Thanks for your reply Javier
I did not know about this (I am sad to say) Let me see what I can make of this

Alan Shore
Solutions Architect
IT Supply Chain Execution

[cid:image001.png@01D915EC.A36942B0]

60 Orville Drive
Bohemia, NY 11716
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
E-mail : ASHORE@xxxxxxxxxxxxxxxxxxxx

‘If you're going through hell, keep going.’
Winston Churchill

From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Javier Sanchez
Sent: Thursday, December 22, 2022 10:00 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: [EXTERNAL] Re: Is a string numeric

Allan,

Why don't you try a Regular Expression?

SELECT REGEXP_SUBSTR(searchString', '\D+') FROM SYSIBM.SYSDUMMY1

will get you back at least a one-char non-empty string of anything that is NOT a digit in searchString. This result is NOT a number.
If searchString has only digits, this query will return NULL so this way you know it is a number. The "pattern" to search for '\D+' will match at least one non-digit character.

This query will detect only integer numeric expressions. If you want to detect a decimal point or comma, you would have to try another search pattern, and that makes it a little more complicated, but not impossible.

HTH.

Javier Sanchez.



El jue, 22 dic 2022 a las 8:05, Alan Shore via MIDRANGE-L (<
midrange-l@xxxxxxxxxxxxxxxxxx<mailto:midrange-l@xxxxxxxxxxxxxxxxxx>>) escribió:

We are trying to NOT go backwards - plus - I could have sworn there
was something new released just recently I was told about te SQL
TRY_CAST - but that looks to be available from
V7r4 - and we are on V7r3

Alan Shore
Solutions Architect
IT Supply Chain Execution

[cid:image001.png@01D915E4.59035E20]

60 Orville Drive
Bohemia, NY 11716
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
E-mail :
ASHORE@xxxxxxxxxxxxxxxxxxxx<mailto:ASHORE@xxxxxxxxxxxxxxxxxxxx>

'If you're going through hell, keep going.'
Winston Churchill

From: MIDRANGE-L
<midrange-l-bounces@xxxxxxxxxxxxxxxxxx<mailto:midrange-l-bounces@lists
.midrange.com>> On Behalf Of dr2@xxxxxxxx<mailto:dr2@xxxxxxxx>
Sent: Thursday, December 22, 2022 8:54 AM
To: Midrange Systems Technical Discussion
<midrange-l@xxxxxxxxxxxxxxxxxx<mailto:midrange-l@xxxxxxxxxxxxxxxxxx>>
Subject: Re: [EXTERNAL] Re: Is a string numeric

SO?

end free

TESTN

Free

????? I doubt the compiler will care either way....

On 2022-12-22 08:12, Alan Shore via MIDRANGE-L wrote:

Hi
Thanks for your reply - but TESTN is not available in free form
TESTN (Test Numeric) - IBM Documentation<

https://www.ibm.com/docs/en/i/7.3?topic=codes-testn-test-numeric<https
://www.ibm.com/docs/en/i/7.3?topic=codes-testn-test-numeric><
https://www.ibm.com/docs/en/i/7.3?topic=codes-testn-test-numeric<https
://www.ibm.com/docs/en/i/7.3?topic=codes-testn-test-numeric>>>

Alan Shore
Solutions Architect
IT Supply Chain Execution

[cid:image001.png@01D915DD.12E3B950]

60 Orville Drive
Bohemia, NY 11716
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
E-mail :
ASHORE@xxxxxxxxxxxxxxxxxxxx<mailto:ASHORE@xxxxxxxxxxxxxxxxxxxx<mailt
o:ASHORE@xxxxxxxxxxxxxxxxxxxx%3cmailto:ASHORE@xxxxxxxxxxxxxxxxxxxx>>

'If you're going through hell, keep going.'
Winston Churchill

From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx<mailto:

<mailto:midrange-l-bounces@xxxxxxxxxxxxxxxxxx%3cmailto:%0b>> midrange-l-bounces@xxxxxxxxxxxxxxxxxx<mailto:midrange-l-bounces@xxxxxxxxxxxxxxxxxx>>> On Behalf Of dr2@xxxxxxxx<mailto<mailto:dr2@xxxxxxxx%3cmailto>:

dr2@xxxxxxxx<mailto:dr2@xxxxxxxx>>

Sent: Wednesday, December 21, 2022 6:15 PM
To: Midrange Systems Technical Discussion
<midrange-l@xxxxxxxxxxxxxxxxxx

<mailto:midrange-l@xxxxxxxxxxxxxxxxxx%0b>> <mailto:midrange-l@xxxxxxxxxxxxxxxxxx>>

Subject: [EXTERNAL] Re: Is a string numeric

For RPG ... TESTN I think is what you're looking for.....

On 2022-12-21 14:48, Alan Shore via MIDRANGE-L wrote:

Hi everyone
We are on V7r3
Current on all ptf's and TFR's(?)
I may not be remembering this correctly - but wasn't there
something

recently released , for SQL and/or RPG, that could be used to
determine if a string is numeric?

I do already have a method but if my memory is correct, would like
to

use that new bif/command

If my memory is failing me (no surprise there), then I will resort
to

what I have used in the past

As always - all replies gratefully accepted

Alan Shore
Solutions Architect
IT Supply Chain Execution

[cid:image001.png@01D9154B.515FBEA0]

60 Orville Drive
Bohemia, NY 11716
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
E-mail :
ASHORE@xxxxxxxxxxxxxxxxxxxx<mailto:ASHORE@xxxxxxxxxxxxxxxxxxxx<mail
to:ASHORE@xxxxxxxxxxxxxxxxxxxx%3cmailto:ASHORE@xxxxxxxxxxxxxxxxxxxx

<mailto:ASHORE@xxxxxxxxxxxxxxxxxxxx%3cmailto:ASHORE@BountifulCompany.c
om>>

'If you're going through hell, keep going.'
Winston Churchill

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L)
mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx<mailto<mailto:MIDRANGE-L@xxxxxxxxxxxxxxxxxx%3cmailto>:

MIDRANGE-L@xxxxxxxxxxxxxxxxxx<mailto:MIDRANGE-L@xxxxxxxxxxxxxxxxxx%<ma
ilto:MIDRANGE-L@xxxxxxxxxxxxxxxxxx%3cmailto:MIDRANGE-L@lists.midrange.
com%25> 3cmailto:MIDRANGE-L@xxxxxxxxxxxxxxxxxx>>

To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l<https://lists
.midrange.com/mailman/listinfo/midrange-l><

https://lists.midrange.com/mailman/listinfo/midrange-l<https://lists.m
idrange.com/mailman/listinfo/midrange-l>><
https://lists.midrange.com/mailman/listinfo/midrange-l<https://lists.m
idrange.com/mailman/listinfo/midrange-l><
https://lists.midrange.com/mailman/listinfo/midrange-l<https://lists.m
idrange.com/mailman/listinfo/midrange-l>>>

or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx<mailto<mailto:MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx%3cmailto>:

MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx<mailto<mailto:MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx%3cmailto>:
MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx%<mailto:MIDRANGE-L-request@lists
.midrange.com%25> 3cmailto:MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx>>

Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l<https://archive.midrange.com
/midrange-l><

https://archive.midrange.com/midrange-l<https://archive.midrange.com/m
idrange-l>><
https://archive.midrange.com/midrange-l<https://archive.midrange.com/m
idrange-l><
https://archive.midrange.com/midrange-l<https://archive.midrange.com/midrange-l>>>.

Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto<mailto:support@xxxxxxxxxxxxxxxxxxxx%3cmailto>:

support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx%<mail
to:support@xxxxxxxxxxxxxxxxxxxx%3cmailto:support@xxxxxxxxxxxxxxxxxxxx%
25> 3cmailto:support@xxxxxxxxxxxxxxxxxxxx>> for any subscription
related questions.

Help support midrange.com by shopping at amazon.com with our
affiliate

link:
https://amazon.midrange.com<https://amazon.midrange.com><https://amazo
n.midrange.com<https://amazon.midrange.com>><
https://amazon.midrange.com<https://amazon.midrange.com><https://amazo
n.midrange.com<https://amazon.midrange.com>>>
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx<mailto<mailto:MIDRANGE-L@xxxxxxxxxxxxxxxxxx%3cmailto>:
MIDRANGE-L@xxxxxxxxxxxxxxxxxx<mailto:MIDRANGE-L@xxxxxxxxxxxxxxxxxx>>
To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l<https://lists.m
idrange.com/mailman/listinfo/midrange-l><
https://lists.midrange.com/mailman/listinfo/midrange-l<https://lists.m
idrange.com/mailman/listinfo/midrange-l>>
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx<mailto<mailto:MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx%3cmailto>:
MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx<mailto:MIDRANGE-L-request@lists.
midrange.com>> Before posting, please take a moment to review the
archives at
https://archive.midrange.com/midrange-l<https://archive.midrange.com/m
idrange-l><
https://archive.midrange.com/midrange-l<https://archive.midrange.com/midrange-l>>.

Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto<mailto:support@xxxxxxxxxxxxxxxxxxxx%3cmailto>:
support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx>> for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:
https://amazon.midrange.com<https://amazon.midrange.com><https://amazo
n.midrange.com<https://amazon.midrange.com>>
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list To post a message email:
MIDRANGE-L@xxxxxxxxxxxxxxxxxx<mailto:MIDRANGE-L@xxxxxxxxxxxxxxxxxx>
To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l<https://lists.m
idrange.com/mailman/listinfo/midrange-l>
or email:
MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx<mailto:MIDRANGE-L-request@lists.
midrange.com> Before posting, please take a moment to review the
archives at
https://archive.midrange.com/midrange-l<https://archive.midrange.com/midrange-l>.

Please contact
support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com<https://amazon.midrange.com>

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx<mailto:MIDRANGE-L@xxxxxxxxxxxxxxxxxx>
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l<https://lists.midrange.com/mailman/listinfo/midrange-l>
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx<mailto:MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx>
Before posting, please take a moment to review the archives at https://archive.midrange.com/midrange-l<https://archive.midrange.com/midrange-l>.

Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: https://amazon.midrange.com<https://amazon.midrange.com>
--
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