MVSFORUMS.com

[Meena_ramanathan]

Hi,

I have a variable
Ws-PRICE S9(6)V999
i want to check if this variable is numeric.
If i give WS_PRICE as ABCDE and When i use the "IS NUMERIC" class to test i donot error the record whereas it is accpeting ABCDE value.

I already tried searching the various posts , but could not get a solution.
Can someone help?

Thanks.

[kolusu]

[Meena_ramanathan]

Hi,

this is the how the field is shown in fileaid.
This is the display when the field has a numeric data

AFLT-PRICE-AMT 00001200}
-12.000

This is the display when i give a alphanumeric data

AFLT-PRICE-AMT S999999V999
X'C1C2C3C4C5C6C7C8C0'

here i had given ABCDEFG and it got translated to X'C1C2C3C4C5C6C7C8C0'

I know that a decimal value when gets checked for numeric , the compiler will check for X'0' thru X'9'.

I understand that Since ABCDEFGH gets translated into X'C1C2C3C4C5C6C7C8C0' , the record is does not error out.

Pls explain if my understanding is not correct or if they is a way to check if a signed variable is numeric?

[kolusu]

Meena_ramanathan,

[Meena_ramanathan]

The AFLT-PRICE-AMT is defined as S9(6)V999

and the check made is

IF AFLT-PRICE-AMT is numeric.

I'm trying to give some alphanumeric values and i assume the check should capture it , but it is not happening like that.
And i read that

"The numeric class test checks the contents of a data item against a set of
| values that are valid for the particular PICTURE and USAGE of the data
| item. For example, a packed decimal item would be checked for hexadecimal
| values X'0' through X'9' in the digit positions "

so the Hexadeciaml equivalent of the alphabets are checked in "IF numeric" check.

Please correct me if iam wrong.

[vst]

Meena_ramanathan,

look at the following funny code

Hopefully it will elucidate the matter.

(I used free hercules/MVS 3.8/COBOL compiler)