MVSFORUMS.com

abracadabra · Posted: Tue Jun 20, 2006 10:50 am Post subject: ASRA Abend

Hi,

I am facing an online ASRA abend in the code below.

PERFORM A000-CALC-LEN THRU
A000-CALC-LEN-EXIT

If I XPED, the message thrown just before the abend is INVALID VALUE IN OCCURS DEPENDING ON FIELD and then it abends in the code below.

CALL 'ZZZZZADR' USING AAAWK0, K7777W-I07-COMMAREA.
CALL 'ZZZZZADR' USING AAAWK1, END-OF-I07-COMM.

The only change I made in the I07 copybook was as follows:

25 X-PMT-CELLS.
30 B-CELLS PIC S9(03) COMP-3.

30 WS-A OCCURS 422 TIMES. ----commented out

30 WS-A OCCURS 0 TO 422 TIMES
DEPENDING ON B-CELLS.

35.....
35.....

Any help is appreciated.
_________________
Cheers!

kolusu · Posted: Tue Jun 20, 2006 11:00 am Post subject:

abracadabra,

Make sure that you initialize the B-cells value to the max occurance you want. Also check if the table has overflowed.

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

abracadabra · Posted: Sun Jun 25, 2006 11:50 pm Post subject:

Thanks Kolusu. It worked
_________________
Cheers!