Forum
20. Oktober 2006 um 9:09 Uhr
#3125
Anonym
Inaktiv
Falls das noch jemand interessiert  – ich hab die Lösung (glaube ich zumindest)
Man liest die 9.Stelle der sysibm.syspackstmt
Man muß allerdings in der Where-bedingung auch auf die Stmt-Nr,Package-.name,collid usw
abfragen. Dann sortiert man die Ergebnismenge nach dem feld SEQNO und in der ersten gelesenen ROW
muß man die 9-.Stelle abfragen: HEX(SUBSTR(STMT , 9 , 1 ))
wenn daas Feld folgende Werte enthält:
IF FELD >= ‚C1‘ & FELD <= ‚E9‘ THEN CODE = ‚E‘ Â
IF FELD >= ‚F0‘ & FELD <= ‚F9‘ THEN CODE = ‚E‘ Â
IF FELD >= ’81‘ & FELD <= ‚A9‘ THEN CODE = ‚E‘ Â
dann handelt es sich um ein Package mit EBCDIC-Code andernfalls um Unicode.
Nun kann mann bei Unicode-packages mit dem CAST-befehl die syspackstmt lesen
Lets rock
Zefrim