Finally found an example where someone was populating the BLOB datatype in RPG. It appears that I'm supposed to use DFTBLOB_DATA, instead of DFTBLOB. By stuffing the raw data into the DFTBLOB structure, I was corrupting the length portion of the datastructure created by the compiler.
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Darren Strong
Sent: Wednesday, April 14, 2021 2:33 PM
To: midrange-RPG RPG message board (rpg400-l@xxxxxxxxxxxxxxxxxx) <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: SQL BLOB and embedded RPG
I have the following table definition and program snippet. I get an error SQL0311 in my joblog when executing and the following detail text. I can't seem to guess at the correct combination of definitions to make the fields compatible. The goal is to store a variable sized data structure of screen defaults for various programs, so, it doesn't need to be huge (more than 10K) really.
SQL0311
Message . . . . : Length in varying-length, LOB, or XML host variable not
valid.
Cause . . . . . : Host variable DFTBLOB was specified. The value in the
length portion of the variable length, LOB, or XML host variable is either
negative or greater than the declared length. If the host variable is
graphic the length should be the number of DBCS characters. The host
variable number is 2. The specified length is 51373800. The variable is
declared to have length 10000.
Recovery . . . : Change the length portion of the varying-length, LOB, or
XML host variable to a valid positive number or zero. Try the request again
create table APUD
(USRPRF char(10) not null with default,
APPKEY char(30) not null with default,
VERLVL int not null with default,
LSTUSE timestamp not null with default,
APPDTA BLOB(10000)
)
dcl-s DFTBLOB SQLTYPE(BLOB:10000);
DFTBLOB=oUD;
exec sql insert into APUD
(USRPRF, APPDTA)
values(:JobUsr,:DFTBLOB);
--
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.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
