View previous topic :: View next topic
|
Author |
Message |
SRINIVAS TADIMALLA
New User
Joined: 08 Dec 2007 Posts: 4 Location: HYDERABAD
|
|
|
|
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 |
|
|
Earl
Active User
Joined: 17 Jun 2007 Posts: 148 Location: oklahoma
|
|
|
|
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 |
|
|
SRINIVAS TADIMALLA
New User
Joined: 08 Dec 2007 Posts: 4 Location: HYDERABAD
|
|
|
|
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 |
|
|
SRINIVAS TADIMALLA
New User
Joined: 08 Dec 2007 Posts: 4 Location: HYDERABAD
|
|
|
|
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 |
|
|
Earl
Active User
Joined: 17 Jun 2007 Posts: 148 Location: oklahoma
|
|
|
|
are you trying to update these fields ?
(:EMPID,:EMPNAME,:TECHNOLOGY,:SKILLSET);
Why not contact your technical support people ? |
|
Back to top |
|
|
SRINIVAS TADIMALLA
New User
Joined: 08 Dec 2007 Posts: 4 Location: HYDERABAD
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10872 Location: italy
|
|
|
|
The variable names SHOULD not be the same as columns names |
|
Back to top |
|
|
|