Forum
20. Oktober 2006 um 9:09 #3125
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