Re: Weird SQL Problem

[Daniel Gross <daniel@xxxxxxxx>]

Hi Birgitta,

the problem seems to be exactly that

	SQL BOOLEAN <-> RPG IND
	SQL CHAR <-> RPG CHAR

But Jon is using a SQL CHAR column with a RPG IND variable/value - and because IND = BOOLEAN

	IND -> BOOLEAN -> CHAR(1)
	*ON -> "TRUE" -> "T"

But this also works the other way around - a CHAR with value "T" is correctly converted to *ON - but only for newly compiled programs.

Regards,
Daniel


> Am 03.05.2026 um 12:25 schrieb Birgitta Hauser <Hauser@xxxxxxxxxxxxxxx>:
>
> It must be a bug!
> According to the documentation the equivalent for the BOOLEAN data type in SQL is the IND data type in (embedded) RPG.
> I'd report it to IBM
>
> 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 Jon Paris
> Sent: Saturday, 2 May 2026 20:14
> To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxxxxxxxx>
> Subject: Weird SQL Problem
>
> Apologies if this is a dup but my original was rejected (I think) and I can’t see anything for May in the archives.
>
> I have a table defined as:
>
> REGISTERTIME TIMESTAMP NOT NULL DEFAULT CURRENT_TIMESTAMP, WEBINARID DECIMAL(11, 0) NOT NULL DEFAULT 0 , RESULT CHAR(1) NOT NULL DEFAULT '0' , REGISTERDATA VARCHAR(1000) ALLOCATE(300) CCSID 37 NOT NULL
>
> The SQL statement to insert the data is:
>
> Insert into table ( webinarId, result, registerData )
>             values( :webinarId, :result, :request );
>
> Where the columns are all defined as per the table definition - except that “result” in the RPG code is an indicator.
>
> This code has been running for a couple of years but since our move to 7.6 has started to sometimes throw SQLCODE -404 against the “result" column claiming that its length of 4 exceeds the capacity of the column. But it isn’t 4 long it is 1. Running in debug, I can see that the temp variable for “result” created by the pre-processor is char(1).
>
> Not sure where else to look.
>
> I have googled for PTFs or reported errors but am not seeing anything.
>
> Anyone got any ideas on where to look next?
>
> I have a work around - if I face the cast of the indicator to char(1) it works.  Guess there is a bug in the code generated by the pre-compiler.
>
> Insert into partner400/sqlregtest ( result, webinarId,  regData )
>             values(  cast (:result as char(1)), :webinarId, :request );
>
>
> Jon Paris
>
> --
> 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.