Calling a DB2 program from a Pure Cobol Program

surya71 · Posted: Mon Mar 12, 2007 10:27 am

i have a pure cobol program which has a static call to a cobol-Db2 program.I am not able to run the cobol program with IKJEFT01 as it is giving me a S0c6 abend. when it encounters the first SQL.Please help me how to run these program

vini_srcna · Posted: Mon Mar 12, 2007 12:02 pm

What is the SQL code ..?

dick scherrer · Posted: Mon Mar 12, 2007 7:11 pm

Hello,

Please post the abend information.

Might the abend be 806?

surya71 · Posted: Mon Mar 12, 2007 8:25 pm

There is no SQL code coming.When it encounters the first SQL Statement ie, in this case an open cursor statement before it comes out of the SQL itself it gives a S0c6.Is there any jcl changes to be made? The Calling Program is a Cobol only program and the sub program is a cobol-DB2 program.How will i compile the main program when the call is static or dynamic.When will i use the IKJEFT01

Thanks
Surya

anjankumar_r · New User Joined: 22 May 2008 Posts: 7 Location: India

Hello,

I'm also encountering exactly the same problem now. When i tried searching for the solution, i found this forum. But i couldn't see any solution posted for this. :roll:

Do anyone have a solution to this?

dbzTHEdinosauer · Posted: Thu May 22, 2008 9:32 pm

we have two people that have an identical problem. isn't it odd, that neither of them provided anything else except the usual 'Oh help me!. I have a problem.'.

Unless you perform your own db2 connect, you will have to invoke your run unit via IKJEFtnn.

sri_mf · Active User Joined: 31 Aug 2006 Posts: 218 Location: India

Can u post the Bind and Run Jcl pls

anjankumar_r · New User Joined: 22 May 2008 Posts: 7 Location: India

Here is the abend information..
the program PG0G254A is the calling cobol program and the pgm PG0RZ480 is the I/O module. Pls let me know if you need any more information.

READY
DSN SYSTEM (GT2T)
DSN
RUN PROG (PG0G254A) PLAN (PL0G254A)
DSN ENDED DUE TO ERROR+
SYSTEM ABEND CODE 0C6 REASON CODE 00000006

CEE3206S THE SYSTEM DETECTED A SPECIFICATION EXCEPTION (SYSTEM COMPLETION CODE=0C6).
FROM COMPILE UNIT PG0RZ480 AT ENTRY POINT PG0RZ480 AT COMPILE UNIT OFFSET +00012560 AT ENTRY OFFSET +00012560 AT ADDRESS 1809D9C8.

Srihari Gonugunta · Posted: Fri May 23, 2008 1:19 pm

I suppose this should be a problem with link-edit. Proper DSNHLI interface module hasn't been included while link-editing your program.

Any suggestions are welcome.

anjankumar_r · New User Joined: 22 May 2008 Posts: 7 Location: India

Hi

I use mainframe express to compile the cobol-db2 code in the mainframe. we dont specify anything during the link-edit.

Thanks
Anjan

dick scherrer · Posted: Fri May 23, 2008 11:04 pm

Hello,

Are there other programs being successfully compiled/run via mainframe express or is this the first attempt?

If others work, compare what is different now.

If this is the first attempt, you should work with your db2 & compiler support people to resolve.

anjankumar_r · New User Joined: 22 May 2008 Posts: 7 Location: India

Hi,

I'm using it for quite a long time. But, the problem is, I'm using the utility IKJEFT01 utility for running the cobol-db2 program for the first time.
Earlier I used to use some other PROC to run the program and it works still fine using that PROC jcl. But the problem occurs when i try to run using the IKJEFT01 utility.

Thanks
Anjan

dick scherrer · Posted: Mon May 26, 2008 6:57 pm

Hello,

I believe you need to talk with your db2 or system support people to make sure that all of the system datasets used are the correct ones.

Is there any IKJEFT01/db2 code that is working when prepared outside of Mainframe Express?

Are any warnings generated by the compile/link or the actual run prior to the abend?

ggogate · New User Joined: 21 Jan 2009 Posts: 1 Location: Mumbai

I had the same problem. I removed DB2-IMS attach and changed the route card from

/*ROUTE XEQ DB2XSHR to
/*ROUTE XEQ DB2X

(where DB2X is the DB2 Region in which I want to run my program)

It worked.

denisvenis · New User Joined: 11 Jan 2009 Posts: 1 Location: London

i think you not provioded the libraary from from where load module will get picked up

MEntion like below

LIB('YOUR-LIBRARY-NAME')

shan007 · New User Joined: 28 Jun 2009 Posts: 3 Location: bangalore

hi,

U need to have a DSNPRAMS in the run jcl of the pure cobol program. It will take care of the COBOL-DB2 program you are calling. DSNPRAM actually substitued by IKJEFT01

e.g
//Job card
//step1 EXEC PGM= pure cobol prog
//steplib .....
//sysout dd *
//dsnparms dd dsn= PDS(member)

in the PDS member u need to specify the below

open fetch close DSNsync(cobol-db2 prog name)

Correct me if I am wrong.
thanks,
shan007

dick scherrer · Posted: Thu Mar 18, 2010 2:15 am

Hello and welcome to the forum,

I suspect more is needed to connect to the db2 subsystem. . .