MVSFORUMS.com

[maverick05]

Hi,

I have a variable X declared as 9(02). and it has 88 variable Y value 02.

I'm getting ASRA exception at the following statement.

IF Y( Here X is stored as space/any garbage value),

.......
End-if.

I'm not getting ASRA exception in another mainframe/CICS environment
for the same values and same code.

I believe their is a compiler option which ignores this data type mismatch
comparision. Here it only checks If Y = 02 is TRUE or FALSE,it doesn't compare data types with this option.

Any idea on this is appreciated.

Thanks

[kolusu]

maverick05,

Take a look at NUMPROC compiler option

Kolusu

[maverick05]

Thanks Kolusu. I also suspected the same
NUMPROC(NOPFD) is the override option and NUMPROC(MIG) is the defau

[haatvedt]

Maverick05,

I'm not sure that the NUMPROC compiler option would save you if your variable contained X'FFFF'. If I remember correctly the NUMPROC(NOPFD) option is used to do "sign" cleanup if the sign portion of the field is incorrect.

It would be an easy thing to test with a simple batch program.
_________________
Chuck Haatvedt

email --> clastnameatcharterdotnet

(replace lastname, at, dot with appropriate
characters)

[slade]

Hi Mav,

Why not change the pic 99 to pic xx? You won't even have to put quotes around the 02 if your compiler is Enterprise COBOL.

I always use X if I don't plan on using math on the field, to avoid the problem you're facing.
_________________
Regards, Jack.

"A problem well stated is a problem half solved" -- Charles F. Kettering