NUMERIC check in COBOL

ksk · Posted: Wed Jun 11, 2008 1:46 pm Post subject: NUMERIC check in COBOL

Hi,

I have a DATE field in FILE with declaration X(10). While moving va alue into this field, 6 digit date was moved (in YYMMDD format) and after move I have to perform NUMERIC check.

I have given following condition.

IF WS-DATE(1:10) IS NUMERIC.

DATE field has 6 digit value in YYMMDD format like 080611 and 7 to 10 positions have spaces. My question is, if I do NUMERIC check on 10 digits, the total 10 digit value will be considered as NUMERIC or Non-NUMERIC as 7 to 10 digits have spaces?

I checked with both 6 and 10 digits but I was not able to see any difference in the final result. Just I want to confirm on this.

Regards,
KSK

dbzTHEdinosauer · Posted: Wed Jun 11, 2008 2:14 pm Post subject:

take a look in the manual. the numeric class check is only valid on pic 9 display and packed-decimal type fields.

anytime you use reference modification, the field type is automatically x - alphanumeric.

Robert Sample · Posted: Wed Jun 11, 2008 8:52 pm Post subject: Reply to: NUMERIC check in COBOL

Enterprise COBOL 3.4 Language Reference states that identifier-1 must be

DISPLAY, NATIONAL, COMPUTATIONAL-3, or PACKED-DECIMAL when NUMERIC is specified

DISPLAY fields can be PIC X or PIC 9. Further, per the manual (6.1.6.2):

│ An alphanumeric group item can be used in a class condition
│ where an elementary alphanumeric item can be used, except that
│ the NUMERIC class condition cannot be used if the group contains
│ one or more signed elementary items.

so you can do NUMERIC test on a group as long as none of the elementary items are defined as S9...

ksk · Posted: Thu Jun 12, 2008 6:16 pm Post subject:

Dick/Robert,

Thanks for your responses. I could do NUMERIC check on alphanumeric item.

But my question is

"As 1 to 6 positions have numeric value and 7 to 10 have spaces, how this 10 digit value would be considered (As NUMERC or Non-NUMERIC)"?

I hope I could explain my question.

Aji · Active User Joined: 03 Feb 2006 Posts: 53 Location: Mumbai

Hi

Redefines gives error ???

Aji

Manuneedhi K · Posted: Thu Jun 12, 2008 7:18 pm Post subject:

Max Payne · New User Joined: 13 Dec 2007 Posts: 12 Location: Shanghai

In your sample, it will be considered as NOT NUMERIC.