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