Forum

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