Who's On?

	Membership:
	Latest: Chris Radcliffe
	Past 24 Hours: 0
	Prev. 24 Hours: 1
	Overall: 5187

	People Online:
	Visitors: 178
	Members: 0
	Total: 178

Name	Points
Greg Moeller	4184
David Williams	3349
JonA	3288
Kat V	2984
Woozy	1973
Jimmy Chiu	1883
Kwane McNeal	1437
Ragu Raghavan	1348
Roger French	1311
mark.cook	1244

How to determine if string is numeric?

Sort:

You are not authorized to post a reply.

Author

Messages

Woozy

Veteran Member

Posts: 709

9/11/2015 3:10 PM

Hi All,

It seems like I've done this before, but I can't remember how to do it. I have a string field that may or may not be numeric. How do I determine if it is numeric so I can redefine it and output the numeric value? When I try just redefining the string as numeric in the WS, it returns the numeric as empty and throws the "Illegal character in numeric field" error when I try to reference it.

Thanks! Kelly

Woozy

Veteran Member

Posts: 709

9/11/2015 3:25 PM

Never Mind! Of course, as soon as I posted this, I found an acceptable answer.

First, I created a redefine in the WS:

02 ZJ302-VAL-IN-STR PIC X(9) VALUE SPACES.
02 ZJ302-VAL-OUT-NBR REDEFINES ZJ302-VAL-IN-STR.

Then I used the 2000-JUSTIFY-OBJECT

MOVE INPUT-STRING TO JSTWS-STR.
MOVE 9 TO JSTWS-STR-LEN.
MOVE 9 TO JSTWS-STR-OUT-LEN.
SET JSTWS-NUMERIC TO TRUE.
PERFORM 2000-JUSTIFY-OBJECT.

This returns JSTWS-STR-OUT and either JSTWS-ERROR (if it is not numeric) or JRTWS-NO-ERROR (if it is numeric), so I can then go:

IF (JRTWS-NO-ERROR)
MOVE JSTWS-STR-OUT TO ZJ302-VAL-IN-STR
MOVE ZJ302-VAL-OUT-NBR TO OUTPUT-NUMBER

Thanks to my old friend Jim Herb and his post on a similar issue in this thread: https://www.lawsonguru.co...-lawson-api-listing/

jaherb

Veteran Member

Posts: 164

9/11/2015 3:39 PM

Happy Friday, Kelly !

Vijay S

Veteran Member

Posts: 174

9/15/2015 10:09 AM

Here is something I got from my previous codes.

Attachments

Sample.txt

You are not authorized to post a reply.