Versuche mal folgendes

PHP-Code:
h dftactgrp(*no) bnddir('QC2LE')  Option( *NoDebugIO )                
h datfmt(*dmy.) timfmt(*hms:) datedit(*dmy.) decedit('0,') debug(*yes)
                                                                      
fxxwork    if   F  255        Disk    UsrOpn                          
                                                                      
 * Prozedurn-Def. extern für C-Api "system"                           
d System          pr            10i 0 extproc('system')               
d                                 *   value options(*string)          
d                                                                     
d Eingabe         s            255                                    
d File_Name       s            255                                    
d Befehl          s            255                                    
                                                                      
ixxwork    kf                                                         
i                                  1  255  Daten                      
                                                                      
 /Free                                                                
                                                                 
   System('crtpf mylib/xxwork rcdlen(255)' );                    
   Eingabe = '/temp/xyz.jpg';                                                              
   Befehl = 'qsh cmd(''ls ' + %Trim( Eingabe ) + ' >/qsys.lib/' +
            'mylib.lib/xxwork.file/xxwork.mbr 2>/dev/null'')' ;  
                                                                 
   SysTem( Befehl );                                             
                                                                 
   Open xxwork;                                                  
   Read xxwork;                                                  
   File_Name = Daten;                                            
                                                                 
   *InLr = *on;                                                 
 /end-free 
MyLib darf nicht die QTEMP !!! Sein

Gruß
Ronald

nicht schön, sollte aber funktioniren!