RE: Save a BLOB only with SQL

Not sure why you do not want to use RPG?
The following example generates an XML document and writes it directly into the IFS (nothing else is needed).
You need to define a CLOB-File, and then fill the File Name (MYXMLDOC_Name) with your IFS File Name, the Name Length (MYXMLDOC_NL) with the length of the name (without Blanks) and finally set the Operation (MYXMLDOC_FO) to either SQFRD (=Read), SQFCRT (create a new file), SQFOVR (create a new file or replace a existing one) or SQFAPP (create a new file or add the data at the end of an existing file).
The data is directly written into the IFS with the SELECT ... INTO Statement.

DCL-S MyXMLDoc SQLTYPE(XML_CLOB_File);

Clear MyXMLDoc;
MyXMLDoc_Name = '/home/Hauser/Examples/WriteXMLStaff.xml';
MyXMLDoc_NL = %Len(%Trim(MyXMLDoc_Name));
MyXMLDoc_FO = SQFOVR; //Replace if exists

Exec SQL
Select XmlDocument
(xmlgroup(EmployeeNo as "PersNo",
Trim(Trim (FirstName) concat ' ' concat
Trim(Name)) as "PersName",
Address as "Street",
ZipCode as "ZipCode",
City as "City"
Order By City Desc, Name
Option Row "Employee"
Root "Staff"))
into :MyXMLDoc
From LobStaff;

If SQLCODE < *Zeros;
Dsply 'Error occured';
else;
Dsply 'XML Document generated';
EndIf;

*InLR = *On;

Mit freundlichen Grüßen / Best regards

Birgitta Hauser
Modernization – Education – Consulting on IBM i
Database and Software Architect
IBM Champion since 2020

"Shoot for the moon, even if you miss, you'll land among the stars." (Les Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them and keeping them!"
"Train people well enough so they can leave, treat them well enough so they don't want to. " (Richard Branson)
"Learning is experience … everything else is only information!" (Albert Einstein)

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of datil400
Sent: Monday, 6 January 2025 14:11
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Save a BLOB only with SQL

Hello Daniel,

IFS_WRITE_BINARY is a stored procedure that cannot be called directily from a SELECT statement, as in the case of 'get_blob_from_file'.

Will I have to create a user-defined function for this purpose?

Thanks

Javier Mora

El dom, 5 ene 2025 a las 22:07, Daniel Gross (<daniel@xxxxxxxx>) escribió:

Hi Javier,

i would try IFS_WRITE_BINARY.

->
https://www.ibm.com/docs/en/i/7.5?topic=is-ifs-write-ifs-write-binary-
ifs-write-utf8-procedures

HTH
Daniel

Am 05.01.2025 um 21:51 schrieb datil400 <datil400@xxxxxxxxx>:

Hi guys,

Is there any way to save a BLOB type in the IFS without having to
use

RPG?

To load a BLOB you can use the function 'get_blob_from_file' but I
can't find the complementary one. Does this exist?

Best regards

--
Javier Mora
https://github.com/datil400
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post
a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription

related questions.

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe,
or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.