Hier mal die wichtigsten Stellen aus unserem Programm:

Code:
     
D IFSFile         S                   SQLTYPE(BLOB_FILE)                   File Ref Var
D FILE_OVERWRITE  C                   CONST(16)
D FILE_APPEND     C                   CONST(32)


      * Die in den D-Anweisungen definierte FileReference-Variable wird vom
      * Pre-Compiler in eine Struktur umgesetzt. Diese Struktur enthält die
      * notwendigen Angaben zur Blob-Verarbeitung:
     C                   EVAL      IFSFile_name = %trim(file)
     C                   EVAL      IFSFile_NL = %len(%trim(IFSFIle_name))       NameLength
     C                   EVAL      IFSFile_DL = 0                               DataLength
     C                   EVAL      IFSFile_FO = FILE_APPEND                     FileOption


            exec sql select bl_blob into :IFSFile from myLib/myFile
                         where bl_rec_id = :Record_ID;
Dieter