Gross-/Kleinschreibung bei Dateien im IFS

[Fuerchau]

Hierzu musst du wohl die IFS-API's verwenden.

[malzusrex]

Versuche mal folgendes

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!

[Fuerchau]

Das Problem bei der QSH ist, dass der Name der Datei und/oder des Pfades genau so wiedergegeben wird wie ich ihn eingebe.
Mache ich ein "ls FileName" ist die Ausgabe eben "FileName". Mache ich ein "ls filename" ist die Ausgabe "filename". Das selbe gilt auch für den "find".

[malzusrex]

hhm,

Baldur hat leider recht!

Dann siehe das als Fingerübung ;-)

[Fuerchau]

Da helfen dann leider wirklich nur die C-API's, hier die Directory-Funktionen.
Allerdings gilt ja hier das selbe wie für die QSH.
Also musst du den Namen erst mal in die einzelnen Teile, getrennt durch "/" zerlegen.
Dann jeden Pfadteil mittels der OpenDir()/ReadDir()/CloseDir()-Funktion durchlesen bis du den richtigen Teil gefunden hast.
Der Vergleich muss natürlich dabei caseinsensitive erfolgen wobei hier die korrekte CCSID für die Konvertierung (upper->Lower o.ä.) wegen der Sonderzeichen berücksichtigt werden muss.