RE: Extracting all BLOB's from table

The file will be loaded by the Fetch operation.

You wouldn't expect the value of your "audfid" field to be loaded before you actually fetched into it would you?
The same will be true for the blob.
You are giving the Blob a name prior to executing the fetch.
Then, when the fetch occurs the system should load the data into the blob.


So setting the name before the fetch will do you no good, as the AUDFID field will probably not be loaded with any meaningful data yet.


I suggest you select into a generically named blob, then rename after the fetch, and see if that solves the issue.


Dcl-Pr unlink Int(10) ExtProc('unlink');
path Pointer Value options(*string);
End-Pr;

BLOB_NAME = '/IASP/PublicAS400/Images/tempblobname';

// remove the file before you start so you cleanup from any prior load.
Unlink(blob_name);


Then rename the blob after you have "Fetched" the record

Dcl-Pr rename Int(10) ExtProc('Qp0lRenameKeep');
old Pointer Value options(*string);
new Pointer Value options(*string);
End-Pr;

Dow...;

Fetch into :blob :audfid;

Newname = '/IASP/PublicAS400/Images/images/' + %trim(audfid) + '.jpg'

Rename( blob_name : newName );

Enddo;


Chris Hiebert
Senior Programmer/Analyst
Disclaimer: Any views or opinions presented are solely those of the author and do not necessarily represent those of the company.

From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Art Tostaine, Jr.
Sent: Tuesday, May 17, 2022 11:19 AM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Extracting all BLOB's from table

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?