IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Protection Exception - 8094 - ASRA - CICS-PL1-DB2


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
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
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
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
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
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
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
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

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Tue Dec 11, 2007 4:35 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts Check data with Exception Table DB2 0
No new posts Calling an Open C library function in... CICS 1
No new posts How to 'Ping' a CICS region in JCL CICS 2
No new posts Parallelization in CICS to reduce res... CICS 4
Search our Forums:

Back to Top