Oncode = 8091

quest2008 · New User Joined: 12 Jun 2008 Posts: 22 Location: bangalore

Hello guys,

Greetings to all.

I am running a Pl/1 with Db2 and encountered a oncode 8091. Also i tried to run a sample prog and got same oncode. This seems the problem due to JCL. Ths JCL has been customized by me. so if any one has Pl/1 Db2 precompile and bind jcl. Please pass it to me.

Gnanas N · Posted: Tue Jan 27, 2009 4:12 pm

Hi,

ONCODE 8091 says this, "An operation exception has been encountered."

Please post complete error message so that someone here would help you.

Please ask your peers or support for PL/1 and DB2 JCL which is customized for your shop. Sorry, my JCL won't work at your end.

quest2008 · New User Joined: 12 Jun 2008 Posts: 22 Location: bangalore

HI,

I have posted below. I kept some PUT statement .Please see the program below. I am able to see the PUT contents before SELECT statement but not able to see the second PUT statement, so its getting interrupted at SQL statement which is SELECT statement.

EADY
DSN S(DB1A)
DSN
RUN PROGRAM(PROGM2) PLAN(SAMPLE1)
IKJ56641I DSN ENDED DUE TO ERROR+
IKJ56641I SYSTEM ABEND CODE 0C1 REASON CODE 00000001

ONCODE=8091 Operation exception
From entry point PROGM2 at compile unit offset -2AF01470 at entry offset -2AF01470 at address 00000000.
Possible Bad Branch: Statement: 195 Offset: +0000099E

000100 PROGM2:PROC OPTIONS(MAIN);
000110 DCL WKSQLCODE PIC'(9)9';
000200 EXEC SQL
000300 INCLUDE SQLCA;
000400 EXEC SQL
000500 INCLUDE EMPLTB;
000600
000700 WSENUM = 10478623;
000710 PUT SKIP LIST('HI1');
000800 EXEC SQL
000900 SELECT ENUM,ENAME,ESAL,POS,EPROJ
001000 INTO :WSENUM,:WSENAME,:WSESAL,:WSPOS,:WSEPROJ
001100 FROM APLT95.EMPLTB
001200 WHERE ENUM = :WSENUM;
001210 WKSQLCODE = SQLCODE;
001221 PUT SKIP LIST('SQL CODE:',WKSQLCODE);
001230 SELECT(SQLCODE);
001240 WHEN (0) PUT SKIP LIST('READ SUCESSFUL');
001250 WHEN (100) PUT SKIP LIST('EOF');
001260 OTHERWISE PUT SKIP LIST('DB2 ERROR');
001270 END;
001280 PUT SKIP LIST('SQL CODE:',WKSQLCODE);
001300 PUT SKIP LIST('HI2');
001400 END PROGM2;

enrico-sorichetti · Posted: Tue Jan 27, 2009 6:26 pm

Check Your linkage editor, looks You have some unresolved external address
( called subroutine not found )
most probably the db2 interface stub

the symptom at run time is a branch to location 00000000 see Your messages

quest2008 · New User Joined: 12 Jun 2008 Posts: 22 Location: bangalore

Hi enrico-sorichetti,

Thank you so much for finding out. Now i am able to ran successfully.

Thanks.