Check whether the given value is DECIMAL or not

thala_ds · New User Joined: 05 Jun 2012 Posts: 18 Location: India

Hi,

I need to check whether the given value is DECIMAL or not ?.

Is there a way to identify from the file like we do it for numeric validation (IS NUMERIC) ?

Your thoughts on this is much appreciated.

Thanks.

Nic Clouston · Posted: Fri Oct 05, 2012 4:56 pm

If it is decimal it is numeric - I do not know of any decimal letters.

Robert Sample · Posted: Fri Oct 05, 2012 5:18 pm

What does "DECIMAL" mean to you? Numbers only, as Nic said, means it is NUMERIC. Numbers and a decimal point, or numbers with a sign, may require checking each byte, one by one, to validate they all have appropriate values.

thala_ds · New User Joined: 05 Jun 2012 Posts: 18 Location: India

Thanks Nic and Robert.

I agree decimal is also a number. I need to find out number with decimal values.

For example in file,

Pandora-Box · Posted: Fri Oct 05, 2012 5:49 pm

Sounds to be a very strange requirement to me atleast

or you are missing to share some key details

thala_ds · New User Joined: 05 Jun 2012 Posts: 18 Location: India

Hi Pandora-Box,

That's what my requirement is. I will receive an input file which has account number and amount field associated to it. I have to check for decimals in the amount field and i need to process further on those accounts.

Thanks.

Robert Sample · Posted: Fri Oct 05, 2012 5:53 pm

Use INSPECT to count the decimal points in the data. The count will be 0 if the value is nothing but numeric digits, and 1 (or more) if not. Note that the count can ber zero when you have non-numeric data, as well.

haimzeevi · New User Joined: 01 Mar 2010 Posts: 27 Location: Israel

Hi Thala,
Very simple: suppose you issue a READ into an s9(8)v999 variable, copy it to an s9(8) variable and compare them: if there is something to th right of the decimal point, they are not equal, otherwise they are aqual.
Good Luck,
Haim Zeevi

Bill Woodger · Posted: Mon Oct 15, 2012 5:34 pm

What type of READ would that be?

On top of that, the data is shown in variable positions with an actual decimal place.

haimzeevi · New User Joined: 01 Mar 2010 Posts: 27 Location: Israel

Well Bill,
Like Pandora-Box pointed, we still miss some details...
How this READ is issued? (your point)
Into an PIC X(nn) Variable? then requires INSPECT, etc.
Haim Zeevi

Robert Sample · Posted: Mon Oct 15, 2012 6:26 pm

haimzeevi, there has been nothing posted to date to indicate that the variable value is coming from a READ. If you have suggested a MOVE, then your comment could be constructive, but as it is you are merely introducing complexity (and potentially wrong results) into the process. The sample data posted includes a value with an actual decimal point, so your suggestion to do the MOVE could cause an S0C7 abend in the code. Furthermore, the TS has not indicated whether the data is fixed position or floating, nor how long the variable can be, so it is entirely possible that your suggestion could not be used at all - in which case some form of INSPECT or reference modification becomes the ONLY way to do what was requested.

Anuj Dhawan · Posted: Wed Oct 17, 2012 7:12 pm

thala_ds -- your problem description is indeed confusing. As we are in COBOL part of the Forum - can the decimal be implied or the input is always follow the rules as you show?

dick scherrer · Posted: Wed Oct 17, 2012 9:28 pm

Hello,

Just curious . . .

What design criteria caused appearingly un-like data to be stored in the same field?

haimzeevi · New User Joined: 01 Mar 2010 Posts: 27 Location: Israel

Robert, you're right.
Anyway, using 'ÍF NUMERIC' followed by ÇOMPUTE var = FUNCTION NUMVAL(original value)' prevents 0C7 and may answer the question (if I understood it...)
Haim Zeevi

Bill Woodger · Posted: Wed Oct 17, 2012 10:46 pm

You'd need IF NUMERIC on the stuff to the left of the "." and the stuff to the right.

For me, better just to redefine it and put the number back together with an implied decimal.

enrico-sorichetti · Posted: Wed Oct 17, 2012 11:10 pm

if it was a banking application dealing only with integer amounts
it would be nice to stuff away the <cents> an siphon them to a Cayman Island numbered account