intrinsic function which conforms the PIC clause

phdraju · New User Joined: 30 Aug 2010 Posts: 2 Location: pune

Hi,

Please help me if theirs any intrinsic function which conforms the PIC clause of the varaible and give returns boolean type 0 if variable does not conforms to the PIC clause and 1 if it confroms to the PIC clause.

01 new-var pic -9(5).99

Eg: Value in new-var is -12345.31 it should return 1 and
Value of new-var is invalid value is should return 0.

Thanks in advance.

Anuj Dhawan · Posted: Mon Aug 30, 2010 7:34 pm

AFAIK, there is no such COBOL Intrinsic Function. On the other hand, I'm not sure if "LENGTH OF" will fit to what you're wanting to do.

May be a little more explanation of what exactly you want to do can help us to help you.

Ronald Burr · Posted: Mon Aug 30, 2010 7:45 pm

Are you looking for an intrinsic function that will test ANY type of data for conformation to ANY type of PICTURE clause? Or just the one you posted?

If just the one you posted, no intrinsic function is required - a simple IF statement will do what you want:

dick scherrer · Posted: Mon Aug 30, 2010 7:48 pm

Hello and welcome to the forum,

There is no intrinsic function that i'm aware of. . .

How might you get a value into this field that does not conform? The field definition would typically be an output field. When a pic s(5)v99 comp-3 field is moved to new-var, new-var will conform. . . If the comp-3 field is not valid, look for an abend.

Kjeld · Posted: Wed Sep 01, 2010 4:44 am

The numeric test can only be applied to numerical edited items or packed decimal items. Character items (PIC X) or binary (PIC 9 COMP) items can not be tested by any built-in conditions.