MVSFORUMS.com

[tempuser]

Hi,
I am having a flat file with length 80.The amount position is defined as length 10.

The file is built by some non techie people and we need to upload this to our files.For this we need to do a valudation on the fields.Can some one tell me the procedure for validation in COBOL.

The valid values are 123456.89
12,456.80
$12345.66
.66

the invalid value are .666.

Thanks
Tempuser

[vivek1983]

tempuser,


Please provide the pic value for the field you are validating for? Or is it for multiple fields? ".666" is invalid meaning precision you are lookiing for is 2 digits right?

This can be done using a combination of inspect and tallying. But Inspect works only for alphanumeric fields.

Vivek G
_________________
Vivek G
--------------------------------------
A dream is just a dream. A goal is a dream with a plan and a deadline. (Harvey Mackay)

[vivek1983]

tempuser,

Forgot one thing. You are also make use of EDIT fields in COBOL.

Check the below link :

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/IGY3PG10/1.3.2?SHELF=&DT=20020923143836&CASE=
_________________
Vivek G
--------------------------------------
A dream is just a dream. A goal is a dream with a plan and a deadline. (Harvey Mackay)

[tempuser]

Vivek,
Thanks for the reply.As I informed the file is being provided by some Non Technical people.So there is a need to do the validation of the amount field.The PIC value is for the valid amount field is 9(8)v9(2).Means if they provide the value other than this ,We need to reject that value.

But they might enter the values some thing like

123456.89
12,456.80
$12345.66
.66

Thease to be considered as valid one.If they supply the value more than 10 in length or with 3 decimal fields,that need to be rejected.

The other thing is ,we need to use only INDEX and PERFORM .The INSPECT verb is not allowed.

Thanks
tempuser

[Terry_Heinze]

See the NUMVAL and NUMVAL-C intrinsic functions in the Programming Guide.
_________________
....Terry

[CICS Guy]