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
 

 

ASRA Abend when returning from a calling program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
pkarthik@email.com

New User


Joined: 29 Aug 2005
Posts: 2

PostPosted: Thu Apr 06, 2006 9:13 pm    Post subject: ASRA Abend when returning from a calling program
Reply with quote

Hi,
My Program calls this program AMS3094 by using the bellow statement

CALL 'AMS3094' USING
WS-AMSPX094-PARM-LIST
AMSTWACB-TRANSACTION-WORK-AREA

My screen abended with ASRA ABEND

When i changed the code to
CALL 'AMS3094' USING
DFHEIBLK
DFHCOMMAREA
WS
-AMSPX094-PARM-LIST
AMSTWACB-TRANSACTION-WORK-AREA

My Program worked fine.

Called Program
******************************************************************
LINKAGE SECTION.
*======= COBOL 2 REQUIRES THE EIB & COMMAREA IN CALLS
COPY DFHEIBLK.
01 DFHCOMMAREA.
05 FILLER OCCURS 1 TO 4095 DEPENDING ON EIBCALEN PIC X.

01 LS-PARAMETER-LIST.
COPY AMSPZ094.
EJECT
01 LS-TRANSACTION-WORK-AREA.
COPY AMSTWACB.

EJECT
******************************************************************
*======= COBOL 2 REQUIRES THE EIB & COMMAREA IN CALLS
PROCEDURE DIVISION USING
EIBLK
DFHCOMMAREA
LS-PARAMETER-LIST
LS-TRANSACTION-WORK-AREA.

MOVE +0 TO AMSPZ094-NUM-EDIT-RETURN-CODE.

This code exists for a long period of time

We experienced this error When we made an attempt to convert normal cobol to Enterprise cobol this both the programs.
Can any one please tell me the significance of this EIBLK and why i received this abend when this two parameters are not available.
Back to top
View user's profile Send private message

acp_ajay1

New User


Joined: 13 Mar 2006
Posts: 9

PostPosted: Fri Apr 07, 2006 9:36 am    Post subject: Re: ASRA Abend when returning from a calling program
Reply with quote

Hi pkarthik,

Basically ASRA code indicates a Program Check Exception, roughly equivalent to having an S0C7 in a batch program. Check for spaces in a packed decimal numeric field and changes to the file and record layouts.


While the DFHEIB is a set of file definitions of Execute Interface Block. When cics activates the program, it places proper values into corresponding EIB fields and the values will be updated as the program is executed. Therefore these values can be easily used by the application program.

When u call the program using the statement

CALL 'AMS3094' USING
WS-AMSPX094-PARM-LIST
AMSTWACB-TRANSACTION-WORK-AREA

u may be moving spaces into some numeric field.

I hope this would prove useful to u.

Regards,
Ajay
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 -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm
No new posts pre-compiler for program in an HFS Pedro DB2 0 Fri Jun 23, 2017 11:13 pm
No new posts Compiling program in endeavor for tra... RALAKKAL Compuware & Other Tools 4 Mon Jun 05, 2017 8:27 pm
No new posts C03 ABEND sjiraga PL/I & Assembler 1 Thu Jun 01, 2017 4:51 pm
No new posts COBOL DB2 program - zIIP eligible vasanthz COBOL Programming 7 Wed May 31, 2017 5:12 am


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