Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

AEIV abend when debugging in XPED

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
Sangeetha Chelliah

New User


Joined: 03 Oct 2008
Posts: 9
Location: chennai

PostPosted: Thu Mar 19, 2009 7:28 pm    Post subject: AEIV abend when debugging in XPED
Reply with quote

Hi,

When I am debugging the below code in XPED, i m getting AEIV abend. Please help me to resolve this.
*EXEC CICS WRITE DATASET(SEGNAME-DBENQTBL)
* FROM(DBENQTBL-SEG)
* RIDFLD(DBENQTBL-VSAM-KEY)
* END-EXEC.
Move length of DBENQTBL-SEG to dfhb0020
Call 'DFHEI1' using by content x'0604f0004628004400' by
reference SEGNAME-DBENQTBL by reference DBENQTBL-SEG by
reference dfhb0020 by reference DBENQTBL-VSAM-KEY end-call.
--In this place i m getting AEIV abend.
Back to top
View user's profile Send private message

CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Thu Mar 19, 2009 7:36 pm    Post subject:
Reply with quote

AEIV
Explanation:
LENGERR condition not handled.
This is one of a number of abends issued by the EXEC interface program. Because of their similar characteristics these abends are described as a group.
See the description of abend AEIA for further details.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1228
Location: Israel

PostPosted: Thu Mar 19, 2009 7:40 pm    Post subject: Reply to: AEIV abend
Reply with quote

Abend AEIV in a WRITE DATASET means a LENGERR occurred.

Check the RESP2 value:
12: The length specified for the write operation exceeds the maximum record size; the record is truncated.
10: LENGTH is omitted for a WRITE to a file with variable-length records or to a BDAM file with undefined format records.
14: An incorrect length is specified for a write operation involving fixed-length records.

Check everything that has to do with the record length.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1228
Location: Israel

PostPosted: Thu Mar 19, 2009 8:18 pm    Post subject:
Reply with quote

If RESP2 is 14, I would do a LISTCAT on the file to get the actual LRECL, and check if the record definition (DBENQTBL-SEG) in the cobol program has the same size.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1228
Location: Israel

PostPosted: Sun Mar 22, 2009 8:31 pm    Post subject:
Reply with quote

Quote:
*EXEC CICS WRITE DATASET(SEGNAME-DBENQTBL)
* FROM(DBENQTBL-SEG)
* RIDFLD(DBENQTBL-VSAM-KEY)
* END-EXEC.
Move length of DBENQTBL-SEG to dfhb0020
Call 'DFHEI1' using by content x'0604f0004628004400' by
reference SEGNAME-DBENQTBL by reference DBENQTBL-SEG by
reference dfhb0020 by reference DBENQTBL-VSAM-KEY end-call.

While executing this statement for the first time, I did not face any problem. When the control is coming here for the second time, I m getting AEIV abend.

I have checked the RESP2 value as suggested by you. The value for this is 14.

The layout for DBENQTBL-SEG and SEGNAME-DBENQTBL is same. Please find the below for more details.

05 SEGMENT-NAME-TABLE.
10 FILLER PIC X(8) VALUE 'SEGNAMES'.
10 SEGNAME-DBENQTBL PIC X(8) VALUE 'DBENQTBL'.

01 DBENQTBL-SEG.(| COPY DBENQTBL)
05 DBENQTBL-DATA-DEF.
10 DBENQTBL-VSAM-KEY.
15 DBENQTBL-DBID PIC X(8).
15 DBENQTBL-RKEY PIC X(20).
10 DBENQTBL-STAT PIC X(2).
10 DBENQTBL-DATE PIC 9(7) COMP-3.
10 DBENQTBL-TIME PIC 9(7) COMP-3.
10 DBENQTBL-TRAN PIC X(4).
10 DBENQTBL-PROG PIC X(8).
10 DBENQTBL-TERM PIC X(4).

So from above, the length is same for SEGNAME-DBENQTBL and DBENQTBL-SEG. So still i dont know how to solve this error? Can you suggest me to resolve this error?

Please do not use private messages to post questions.
Maybe somebody else could have answered your question two days ago...

AEIV means LENGERR, resp2 of 14 means "An incorrect length is specified for a write operation involving fixed-length records."

1. Make sure you have a level 01 after the COPY DBENQTBL. If not, the "length of DBENQTBL-SEG" will be incorrectly calculated by the program.

2. Check (with CEMT) which file is allocated to DBENQTBL in this specific CICS.

3. Using LISTCAT, collect the actual file format (check values: KEYLEN, RKP, AVGLRECL and MAXLRECL).

4. According to program, KEYLEN=28, RKP=0, AVGLRECL and MAXLRECL both =54.

5. Are these values correct ?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm
No new posts S213-14 ABEND explantion Apurva Mehta JCL & VSAM 5 Thu Jul 07, 2016 10:56 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us