Re: Extracting all BLOB's from table

["Art Tostaine, Jr." <atostaine@xxxxxxxxx>]

I'm able to get one BLOB correct by doing EXEC SQL SELECT, but whenever I
do a cursor to get multiple images for an ID, it doesn't write the BLOB.
When is SQL supposed to create the IFS file? After the FETCH NEXT?

On Mon, May 16, 2022 at 3:54 PM Art Tostaine, Jr. <atostaine@xxxxxxxxx>
wrote:

> I have code like this that gets one blob. While debugging it looks like
> the blob isn't written to my IFS directory until the 2nd fetch happens,
> IOW, you have to setup the blob name before you do the fetch.
>
> The file name needs to contain the value of AUDFID.  How can I just read
> through all of the rows and export the blob with the correct name?
>
> Code:::
> EXEC SQL  Declare C1 Cursor for
>   Select  lwiimage, audfid
>   from    lwimages
>
> EXEC SQL  Open      C1;
> BLOB_NAME = '/IASP/PublicAS400/Images/' +
>               %trim(audfid) +
>               '.jpg';
> blob_nl = %len(%trim(blob_name));
> blob_fo = SQFOVR;
>
> EXEC SQL Fetch Next from C1 into :blob, :audfid;
>
> dow sqlstt = '00000';
>
> BLOB_NAME = '/IASP/PublicAS400/Images/' +
>               %trim(audfid) +
>               '.jpg';
> blob_nl = %len(%trim(blob_name));
> blob_fo = SQFOVR;
>
> EXEC SQL          Fetch Next from C1 into :blob, :audfid;
> enddo;
>
>  return;