Re: Copy BLOB to IFS

DCL-S MyImage SQLTYPE(BLOB_FILE);

DCL-s YourAUDFID ....;

EXEC SQL Declare C1 Cursor for
Select LWIIMAGE_F , audfid
from lwimages;

EXEC SQL Open C1;
MyImage_Name = '/home/Hauser/MyImageWhatever.jpc';
MyImage_NL = %Len(%Trim(MyImage_Name';
MyImage_FO = SQFOVR; //Constant included by the precompiler = write the
IFS file if not exists, otherwise replace an existing one

EXEC SQL Fetch Next from C1 into :MyImage, :Youraudfid;