Lib eines Programms ermitteln

[andreaspr@aon.at]

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 

Kann es sein dass du im 2. Parameter die Falsche Variable angiebst?

Call QCMDEXC(CLCmd, CLCmdL);

statt

Call QCMDEXC(CLCmd, CLCmd);


lg Andreas

[B.Hauser]

Ich hatte die Funktion gestern Abend auf einem System mit 7.1 erstellt. Dabei hatte ich wohl einiges verwendet, das erst mit Release 7.1 und PTFs dazugekommen ist (Or Replace und Übergabe von Ausdrücken beim Aufruf von Stored Procedures.

Die folgende Version habe ich gerade auf einem System mit V5R4 erstellt und ausgeführt.

Create Function WrkBHA/FindLibPGM           
       (ParPGM        VarChar(10))                  
       Returns Table (ObjLib       Char(10)     ,   
                      Obj          Char(10)     ,   
                      ObjDescr     Char(50)      )  
                        
       Language SQL                                 
       Modifies SQL Data                            
       Called On NULL Input                         
       Disallow Parallel                            
       Not Fenced                                   
 Begin                                                           
    Declare CLCmd VarChar(256) Not Null Default '';
    Declare CmdLen Dec(15, 0) Not Null Default 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 CmdLen = Length(CLCmd);               
    Call QCMDEXC(CLCmd, CmdLen);                         
                                                                
    Return Select ODLBNM, ODOBNM, ODOBTX
           From QTEMP/TMPOBJD;                                
End  ;

Aufruf: Ermittelt alle Programme in allen Bibliotheken, die mit HS anfangen. (unter System Naming und IBM i Navigator - Eine SQL Prozedur ausführen - die Bibliothek in der die UDTF erstellt wurde sollte in der Bibliotheksliste sein)

Select * from Table(FindLibPGM('HS*')) x;;

STRSQL macht allerdings auch bei mir Probleme. (ist ja stabilized!!!)

Einbindung in embedded SQL wiederum sollte problemlos funktionieren, da ich jede Menge von diesen UDTFs in meinen Programmen und Prozeduren (auch unter V5R4) verwende.

Birgitta

[malzusrex]

Jo, so geht es.

Hatte da 2 mal die gleiche Variable drin

Danke Euch

Ronald