Nochmal zum Mitschreiben!

Wenn man im embedded SQL LOB-File-Referenz-Variablen (z.B. SQLTYPE(CLOB_FILE)) verwendet und nur mit SQL darauf zugreift kann man bis zu 2 GB große IFS-Dateien verarbeiten und braucht KEINE Commit-Steuerung!

Code:
DCL-S MyCLOBFile SQLType(CLOB_File);                                 
  DCL-S MyText     Char(50);                                           
 //********************************************************************
  Exec SQL   Set Option  Commit=*NONE, DatFmt=*ISO, TimFmt=*ISO,       
                         Naming=*SYS,  CloSQLCsr=*EndActGrp;           
                                                                       
    MyCLOBFile_Name = '/home/Dir1/Dir2/YourIFSFile.txt';               
    MyCLOBFile_NL   = %Len(%Trim(MyCLOBFile_Name));                    
    MyCLOBFile_FO   = SQFRD;                            //Read Only    
                                                                       
    Exec SQL Set :MyText = Substr(:MyCLOBFILE, 1, 50);       
    //Check SQLCODE or SQLSTATE

    Dsply MyText;      
    *InLR       = *On;
Birgitta