Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Protection Exception - 8094 - ASRA - CICS-PL1-DB2

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

New User


Joined: 08 Dec 2007
Posts: 4
Location: HYDERABAD

PostPosted: Mon Dec 10, 2007 1:43 pm    Post subject: Protection Exception - 8094 - ASRA - CICS-PL1-DB2
Reply with quote

Hi,

Could some one help me on this please.

I have written a basic program for updating a database in COBOL-DB2-CICS. The same program has been translated with PL1-DB2-CICS. The cobol program is working fine and able to update the database but the pl1 program is not working. we are encountering ASRA abend. It is not able to interact the datbase in PL/1.

The following error message got dumped in the CEEMSG:
Condition Information for Active Routines
Condition Information for K205 (DSA address 0A708FB0)
CIB Address: 0A70C530
Current Condition:
CEE3204S The system detected a protection exception (System System Completion Code=0C4).

Could some one help me on this please.

If you want i can provide you every thing...like the copybooks, code which i have used.

I think there is some entry which is needed in the code for interacting with the database. The same code is working fine when i try to update the VSAM file. The problem is with the interaction of the datbase.


In the Online Screen after entering the details for update, the following message got displayed.
CICS1 Transaction K205 failed with abend ASRA.
Back to top
View user's profile Send private message

Earl

Active User


Joined: 17 Jun 2007
Posts: 148
Location: oklahoma

PostPosted: Tue Dec 11, 2007 9:40 am    Post subject:
Reply with quote

0C4 normally indicates you are referencing data, or moving data to
storage area outside the boundary for your program.

use a debug tool (if you have one), or the IBM supplied CEDF
transaction to determine where the PLI program is having problems.
Back to top
View user's profile Send private message
SRINIVAS TADIMALLA

New User


Joined: 08 Dec 2007
Posts: 4
Location: HYDERABAD

PostPosted: Tue Dec 11, 2007 9:57 am    Post subject: Reply to: Protection Exception - 8094 - ASRA - CICS-PL1-DB2
Reply with quote

First of all i would like to thank you for your response.

Yes, i have tracked the problem thru CEDF only.
The problem is the moment it is encountering the SQL statements for update or read, it is throwing protection exception with 8094 / ASRA.

The below one is the code for your reference:

K205: PROCEDURE OPTIONS(MAIN);
%INCLUDE KGCM205;
%INCLUDE DFHAID;
%INCLUDE DFHBMSCA;
EXEC SQL INCLUDE EMPLOY;
EXEC SQL INCLUDE SQLCA;
DCL DSNALI ENTRY;
/****************************************
CALL INITIALIZE_MAP;
CALL EMPMAP_DISP;
INITIALIZE_MAP: PROC;
EMPIDO = '';
END INITIALIZE_MAP;
EMPMAP_DISP: PROC;
EXEC CICS SEND MAP('EMPMAP')
MAPSET('KGCM205');
EXEC CICS RECEIVE MAP('EMPMAP')
MAPSET('KGCM205');
CALL MOVE_EMP;
SELECT(EIBAID);
WHEN(DFHPF4) CALL ADD_MAP;
WHEN(DFHPF5) DO;
EMPID = EMPIDI;
CALL READ_MAP;
END;
END;
END EMPMAP_DISP;
MOVE_EMP: PROC;
EMPID = EMPIDI;
EMPNAME = NAMEI;
TECHNOLOGY = TECHI;
SKILLSET = SKILLI;
END MOVE_EMP;
ADD_MAP: PROC;
EXEC CICS ENTER TRACEID(1);
EXEC SQL
INSERT INTO EMPLOY
VALUES(:EMPID,:EMPNAME,:TECHNOLOGY,:SKILLSET);
EXEC CICS ENTER TRACEID(2);
EXEC CICS SYNCPOINT;
END ADD_MAP;
READ_MAP: PROC;
EXEC CICS ENTER TRACEID(3);
EXEC SQL
SELECT EMPID, EMPNAME, TECHNOLOGY, SKILLSET INTO
:EMPID,:EMPNAME,:TECHNOLOGY,:SKILLSET
FROM EMPLOY
WHERE EMPID = :EMPID;
EXEC CICS ENTER TRACEID(4);
IF (SQLCODE = 0) THEN DO;
EMPIDO = EMPID;
NAMEO = EMPNAME;
TECHO = TECHNOLOGY;
SKILLO = SKILLSET;
EXEC CICS SEND MAP('EMPMAP')
MAPSET('KGCM205')
FROM(EMPMAPO);
END;
END READ_MAP;
END K205;


The moment it is encountering the SQL statetment for either update or read, it is throwing the ASRA abend.

Do we need to make any entries for this...because it is failing to connect to the database for update. But the same code is working fine with COBOL as the host language.

If you need the CEDF screenshots, i could send that as well.
Back to top
View user's profile Send private message
SRINIVAS TADIMALLA

New User


Joined: 08 Dec 2007
Posts: 4
Location: HYDERABAD

PostPosted: Tue Dec 11, 2007 10:00 am    Post subject:
Reply with quote

LOCATION WHERE IT IS ABENDING:

A. AFTER TRACE ID(1);
B. AFTER TRACE ID(3);

At these two points it is abending.
Back to top
View user's profile Send private message
Earl

Active User


Joined: 17 Jun 2007
Posts: 148
Location: oklahoma

PostPosted: Tue Dec 11, 2007 10:09 am    Post subject:
Reply with quote

are you trying to update these fields ?
(:EMPID,:EMPNAME,:TECHNOLOGY,:SKILLSET);


Why not contact your technical support people ?
Back to top
View user's profile Send private message
SRINIVAS TADIMALLA

New User


Joined: 08 Dec 2007
Posts: 4
Location: HYDERABAD

PostPosted: Tue Dec 11, 2007 2:54 pm    Post subject: Reply to: Protection Exception - 8094 - ASRA - CICS-PL1-DB2
Reply with quote

I am just adding the values to the columns of the DB2.

I could'nt be able to get any support from any one for this problem.

Could some one help me on this.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10326
Location: italy

PostPosted: Tue Dec 11, 2007 4:35 pm    Post subject: Reply to: Protection Exception - 8094 - ASRA - CICS-PL1-DB2
Reply with quote

The variable names SHOULD not be the same as columns names
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 Identifying Interfaces in CICS/mainframe Ashishpanpaliya CICS 5 Fri Oct 13, 2017 3:21 pm
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Partial color change of a field in CI... waseem0424 CICS 5 Fri Sep 29, 2017 7:56 pm
No new posts FUSE - IBM MQ - CICS integration error Kevin Vaz CICS 1 Mon Sep 18, 2017 4:31 pm
No new posts Julian Date to CICS ABSTTIME blayek CICS 3 Wed Aug 30, 2017 11:15 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us