Bonjour,
j'ai un pb avec un rexx qui fait un accès DB2, voici le code:
db2id = "DBXX"
sqlid = "XXXYYY00"
planid = "XXXPLAN"
* ouvre le caf db2 */
call dsnali 'open', db2id, planid
if rc <> 0 then do
say "pb DSNALI open" rc
exit 0
end
/* déclare l'environnement sql (rexxtools) à rexx */
call rxsubcom 'ADD', 'SQL', 'RXTASQL2'
if rc > 4 then do
say "pb RXSUBCOM add sql rxtasql2" rc
exit 0
end
/* récup zones SQLCA SQLDA */
address sql
"exec sql options sqlca sqlda;"
if rc <> 0 then do
say "pb options sqlca sqlda" sqlca.sqlcode
exit 0
end
Call Lister
call dsnali 'close', 'sync'
exit 0
Lister:
/* lecture table DB2 */
"exec sql select TOTO, TITI " ,
"from XXYYY00.TBCOCO"
return 0
et voici le résultat :
RXT0615I DSNT408I SQLCODE = -805, ERROR: DBRM OR PACKAGE NAME MACHDBXX..RXYYYSQA.0D9E7E3C05E7E2D8 NOT FOUND IN PLAN XXXPLAN. REASON 03
RXT0600I EXEC SQL SELECT TOTO, TATA FROM XXXYYY00.TBCOCO
j'ai besoin d'aide, merci d'avance
Partager