Lib eines Programms ermitteln

[malzusrex]

Hallo Birgitta,

wollte natürlich das gleich einmal aus probieren. Beim Erstellen der Funktion kann erst eine Meldung, das er mit "LENGTH" nichts anfangen kann. Also habe ich den Code etwas abgewandelt.

Declare CLCmd VarChar(256) Not Null Default '';                
Declare CLCmdL DEC(15, 5) Not Null Default 0,0;                
Set CLCmd = 'DSPOBJD OBJ(*ALL/' concat Trim(ParPGM) concat ') '
             Concat  ' OBJTYPE(*PGM) '                         
             Concat  ' OUTPUT(*OUTFILE) '                      
             Concat  ' OUTFILE(QTEMP/TMPOBJD) '                
             Concat  ' OUTMBR(*FIRST *REPLACE) ';              
Set CLCmdL = Length(CLCmd);                                    
Call QCMDEXC(CLCmd, CLCmd);
Return Select ODLBNM, ODOBNM, ODOBTX     
       From QTEMP/TMPOBJD;               
End 

Damit konnte ich die Funktion erstellen. Führe ich den SELECT aus kommt
"Abfrage kann nicht ausgeführt werden".
Und eine Ebene tiffer in der Meldung
"Zeichen in CAST-Argument ungültig"

Hast du eventuell noch einmal Zeit dir diese Function anzuschauen?
Gruß
Ronald