how to solve ABENDU3003 error?

[sathyasri]

hi,
I got the below error in IIEMMSGS in spool.how to fix the code.


IIEM - PROGRAM STANDARD MESSAGE REPORT - ISSUE 030
**6220-PROG03-AG4ARRAY OVERFLOW
PROGRAM ALLOWS ONLY 40 SECTIONS PER POLICY; 41ENCOUNTERED

IIEM - PROGRAM STANDARD MESSAGE REPORT - ISSUE 030
**0003-PROG03-AG*ABNORMAL END

[CICS Guy]

I got the below error in IIEMMSGS in spool.how to fix the code.

I do not know what an IIEM is, but that program/system/whatever said it all....
'ARRAY OVERFLOW' and 'PROGRAM ALLOWS ONLY 40 SECTIONS PER POLICY' and '41ENCOUNTERED'.....
I'd guess that you have to reduce the number of 'SECTIONS' for that 'POLICY'......

[MrSpock]

IIEM - Indian Institute of Export Management (maybe??)

[dick scherrer]

Hello,

I'd guess that you have to reduce the number of 'SECTIONS' for that 'POLICY'......

A couple more thoughts. . .

Due to changing business might more than 40 sections now be needed?

What created the 40+ sections? Should that code be checked to see if it allows more than 40?

The "problem" is completely within the code or the data (or possibly both). The error shown is not a standard IBM message and does not appear to come from any of the common products (like the sort).

[sathyasri]

This is the code...
SECSUB = SECSUB + 1;
IF SECSUB > 40
THEN DO;
W_PIC2 = SECSUB;
PAEM.DETAILS = 'PROGRAM ALLOWS ONLY 40 ' ||
'SECTIONS PER POLICY; ' ||
W_PIC2 || 'ENCOUNTERED';
CALL IIEM('#AG','6220',PAEM,'4');
END;
how to modify...

[dick scherrer]

Hello,

Before anyone can suggest a code modification, you need to find and post the "business rule" associated with the number of sections.

Is this a data problem (i.e. is more than 40 invalid?)?

Is there a new max sections? If so, what is it?

We can help with program code, but we can't help with establishing the rules that are to be implemented. That will come from within your organization.