IBM Mainframe Forum

Hi All,

I am facing a Odd problem in a CICS transaction.
I have a Comp-3 Variable from a file. Lets say it as

File1-Comp-3 pic s9(5) comp-3.

This is a part of a record variable File1-record with 1000 length.
Now I read a file File1 into this File1-record. The File1-Comp-3 variable is populated with value 0.

After this , I read File2. This File2 doesn’t have any relation with File1 fields. The only relation is I am reading File1 and File2 with same Value as Key (not same variable but their value). Now once this read is done, some invalid values are moved into the File1-Comp-3 variable. Not only that but all the Comp-3 variable in File1 becomes invalid.

Hence, if I try to move this File1-Comp-3 to any other variable, it throws an ASRA abend. This ASRA happens only after the second File (File2) is read. Until that the File1-Comp-3 didn’t have invalid data.

Please help.

Are you reading both files into the same group level variable? If so, that is your problem -- you need a separate varaible for each file you read.

If not, post the two read statements and associated variable defintiions.