Prob. accessibilité à DB2 [Résolu]

[phdevp49]

Bonjour,

J'ai un souci lors de l'accès à une table DB2 sous CICS, lors d'une lecture par SELECT. J'obtiens d'emblée le message : "DFHAC2206 11:19:23 CICS Transaction TAR2 failed with abend ????. Updates to local recoverable resources backed out."

Les définitions saisies sous CEDA sont les suivantes avec JLECTART (Prog.) TAR2 (Transaction) JLECTART (Plan) :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
I DB2E
  RESULT - OVERTYPE TO MODIFY
    Db2entry(DB2ETAR2)
    Accountrec( Txid )
    Authtype( Userid )
    Enablestatus( Enabled )
    Disabledact( Pool )
    Priority( High )
    Protectnum( 0000 )
    Pthreads(0000)
    Threadlimit( 0003 )
    Threads(0000)
    Threadwait( Twait )
    Plan( JLECTART )
    Planexitname(          )
    Authid(          )
    Drollback(Rollback)

Code :

1
2
3
4
5
6
7
I DB2T
  RESULT - OVERTYPE TO MODIFY
    Db2tran(DFHTAR2)
    Db2entry( DB2ETAR2 )
    Transid( TAR2 )
    Plan(JLECTART)
    Planexitname()

Ai-je oublié quelque chose ?


Merci.

[Luc Orient]

Envoyé par phdevp49

...

J'ai un souci lors de l'accès à une table DB2 sous CICS, lors d'une lecture par SELECT.

Si c'est un problème avec DB2, ça devrait se traduire par un SQLCODE négatif renvoyé immédiatement après l'ordre SQL, et, si nécessaire un libéllé complémentaire dans le champ SQLERRMC de la SQLCA.

[phdevp49]

Bonjour,

Effectivement, j'ai un code SQL égal à -927.

Je n'utiliserai pas le bon module d'interface de langage. Actuellement mon ordre SELECT est traduit pas un CALL "DSNHLI" USING SQL-PLIST2. Dans ma doc. il est dit qu'il faudrait utiliser sous CICS le DSNCLI.

Est-ce correct ?

Mon JCL au niveau de la précompilation :

Code :

1
2
3
4
5
6
7
8
9
//PC EXEC PGM=DSNHPC,PARM='HOST(IBMCOB)',REGION=4096K
//*
//DBRMLIB  DD DSN=PG8997.DBRM.SOURCE(JLECTART),DISP=SHR
//STEPLIB  DD DSN=PG8997.BATCH.LOADLIB,DISP=SHR
//         DD DSN=DSN810.SDSNLOAD,DISP=SHR
//SYSIN    DD DSN=PG8997.COB.SOURCE(JLECTART),DISP=SHR

//SYSCIN   DD DSN=&&DSNHOUT,DISP=(MOD,PASS),UNIT=SYSDA,
//            SPACE=(800,(500,500))

[Luc Orient]

Avez vous un plan DB2 valide associé à la transaction ?

[phdevp49]

Oui, je pense. Le BIND du Plan JLECTART s'est terminé normalement.

J'ai sous CEMT : Db2t(DFHTAR2 ) Db2e( DB2ETAR2 ) Tra( TAR2 ) Plan(JLECTART)

et Db2e(DB2ETAR2) Use Ena Poo Hig Pro( 0000 ) Pth(0000)
Threadl( 0000 ) Threads(0000) Twa Plan( JLECTART )

[xfanx]

bonjour,

c'est au Linkedit qu'il faut que tu interviennes,
il faut que tu ajoutes cette carte en sysin de Linkedit

INCLUDE DB2LIB(DSNCLI)
NAME nom de ton module(R)

//DB2LIB DD DISP=SHR,DSN=la SDFHLOAD du CICS

[phdevp49]

Merci, c'était bien un problème au Linkedit ! J'ai à présent mon accès DB2.

Encore merci.