Hi ,
You most likely have NULL content so you must either catch this with
NULL-Indicators on each select into variable or
use the scalar function COALESCE to set NULL to a default value
Mit freundlichen Grüßen / Kind regards / Bien à vous,
Seán
Confidentiality Notice:
This message and any attachments may contain confidential and privileged
information. The information contained herein is transmitted for the sole
use of the intended recipient(s). If you are not the intended recipient or
designated agent of the recipient of such information, please notify the
sender immediately and permanently delete this email. Thank You
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of gio.cot
via RPG400-L
Sent: Wednesday, 12 June 2024 12:44
To: 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: gio.cot <gio.cot@xxxxxxxxxxx>
Subject: Error SQL 22002
Hi all
In a RPG program execute SQL : below what i do:
when i run the program i receive SQL Error 22002 An indicator variable is
required.
Where am i wrong ? how can solve this error ?
Dcl-Ds MainDs;
xAnnoc Char(2);
xMesec Char(2);
xImpo Packed(30:9);
End-Ds;
mainStatement = ' SELECT '
+ ' Substr(xdtr, 1, 2), '
+ ' Substr(xdtr, 3, 2), '
+ ' SUM((xqty * (prc - xsc) ) * §CSEG ) AS impo '
+ ' FROM myfile m '
+ ' left join myile 2 t '
+ ' on xcax = §cax '
+ ' Group by substr(xdtr, 1, 2) , substr(xdtr, 3, 2)'
+ ' order by substr(xdtr, 1, 2) , substr(xdtr, 3,2)';
ExEC SQL
FETCH NEXT FROM mainCursor INTO :MAINDS ;
--
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.
midrange.com
