Unicode / UTF-8 Streamfile lesen

[dschroeder]

Du kannst auch mit SQL gezielt auf Daten zugreifen und dir nur das rausholen, was Du brauchst.
File-Referenz-Variablen kannst Du mit SQL-Funktionen genau wie alphanumerische Felder behandeln, d.h. mit POSSTR oder LOCATE kannst Du positionieren und suchen, mit SUBSTR kannst Du Daten gezielt herauslesen und dann in eine (kürzere) Host-Variable ausgeben.
... und Du bist auch nicht auf 16MB beschränkt, sondern kannst die ganzen (möglichen) 2GB verarbeiten. (Die Daten werden überigens nicht kopiert)

Beispiel:

 DCL-S MyClobFile  SQLTYPE(CLOBFILE) CCSID(1208);
...
 MyCLOBFile_Name = %Trim(ParIFSFile);                               
 MyCLOBFile_NL   = %Len(%Trim(MyCLOBFile_Name));                    
 MyCLOBFile_FO   = SQFRD;                            //Read Only    
                                                                    
 For Index =  1 to 15;                                              
     Start = (Index-1) * RowLen + 1;                                
     Exec SQL Set :MyText = Substr(:MyCLOBFile, :Start, :RowLen);   
     Dsply MyText;                                                  
     If    SQLCODE = 100 or SQLCODE < *Zeros                        
        or %Len(%Trim(MyText)) = *Zeros;                            
        Leave;                                                      
     EndIf;                                                         
 EndFor;

Birgitta

Hinweis für alle, die sich für dieses Thema interessieren: Das Programmbeispiel von Birgitta ist fast korrekt. Der SQLTYPE muss allerdings mit Unterstrich getrennt werden: CLOB_FILE.

Aber mit einer anderen Sache haben wir ganz schön gekämpft: Im obigen Beispiel greift man mit substr auf den Clob zu. Das funktioniert nicht korrekt, wenn es sich um Mixed Data Strings handelt ! Das ist bei UTF-8 der Fall, wo ja die einzelnen Zeichen durch unterschiedliche viele Bytes ausgedrückt werden. Substr akzeptiert zwar einen UTF-8 String, interpretiert die Positionsangaben aber als Byte, nicht als Zeichen!

(Steht in der SQL Referenz "im Kleingedruckten").

Die Lösung ist aber einfach: Es gibt zusätzlich die Funktion "substring" (also alles ausgeschrieben). Die Funktion kann mit echten Zeichenzählungen umgeben!

Aber nochmals Danke an Birgitta für das Programmbeispiel. Hat uns sehr weitergeholfen!

Dieter