Abend ASRA Error

ap_mainframes · Posted: Thu Jan 05, 2006 1:02 pm

Hi,

My program is reading a dataset twice.
Once a normal read . The command used is

EXEC CICS
READ DATASET ('abFILE')
INTO (abRT-abRT)
LENGTH (LENGTH OF abRT-abRT)
RIDFLD (WS-ACCT-KEY)
RESP (RESPONSE-CODE)
END-EXEC.

And then with the 'Update' clause.
the command used is

EXEC CICS
READ DATASET ('ABFILE')
INTO (ABRT-ABRT)
LENGTH (LENGTH OF ABRT-ABRT)
RIDFLD (WS-ACCT-KEY)
UPDATE
RESP (RESPONSE-CODE)
END-EXEC.

I am tracking a field, and it fetches the correct data when Normal read is performed.But immediately after that when I am reading that with update mode, I am getting the invalid data in that field.

Please help.

Thanks

khamarutheen · Active Member Joined: 23 Aug 2005 Posts: 677 Location: NJ

Hi ap,

May b the file needs the refresh.. so i think if u refresh the file pointer then u may avoid such error.

rajesh_1183 · Posted: Thu Jan 05, 2006 3:21 pm

Hi,

I think we can read a record in cics only once..So next time if we try to read the same record again means it will show invalid data...so to avoid that, just move the record at the normal read time to a TDQ or TSQ..

Lets wait for a better answer...from any one...

Correct me if i am wrong...........

Thanks,
Rajesh

ranjitbhingare · New User Joined: 30 Nov 2005 Posts: 94 Location: PUNE

Hi,

READ with UPDATE opetion should be used to REWRITE or DELETE From a Dataset and not just to READ the Record.
So I would suggest that just check the logic.........

THanks & Regads,

Ranjit....

ramk · New User Joined: 01 Apr 2005 Posts: 2

Dear,

I thing this data exception error. wrong input data you updating VSAM dataset.
By
K.Ramanathan