Re: Why a data structure subfield with the same name of a file field does not keep the same data type?

This is my code:
**free
ctl-opt dftactgrp(*no);
exec sql set option commit = *none;
dcl-f tblstr disk usage(*input) keyed;

dcl-s tmp_count zoned(5:0) template;

dcl-ds test;
STRNUM;
STRNAM;
end-ds;

dcl-s message char(50);
dcl-s count like(tmp_count);

dcl-pr UpdFile like(tmp_count);
*n like(STRNUM);
*n like(STRNAM);
end-pr;

read RTBLSTR;
if not %eof;
message = '1-' + %char(STRNUM) + %trim(STRNAM);
dsply message ' ';
count = UpdFile(STRNUM:STRNAM);
message = 'select rows: ' + %char(count);
dsply message ' ';
endif;
*inlr = *on;

dcl-proc UpdFile;
dcl-pi *n like(tmp_count);
pSTRNUM like(STRNUM);
pSTRNAM like(STRNAM);
end-pi;
dcl-s count like(tmp_count) inz(0);

message = '4-' + %char(pSTRNUM) + %trim(pSTRNAM);
dsply message ' ';
exec sql
select count(*)
into :count
from tblstr
where STRNUM = :pSTRNUM and STRNAM = :pSTRNAM
;

return count;
end-proc;

When the SQL statement inside UpdFile procedure is commented, then the
compiles and works (returning 0 of course).
When the SQL statement is active, then this is the error I got:
DIAGNOSTIC MESSAGES
3 exec sql set option commit = *none;
000300 12/28/22
44 where STRNUM = :pSTRNUM and STRNAM = :pSTRNAM
004400 12/28/22
5770ST1 V7R3M0 160422 Create SQL ILE RPG Object
TEST0009NO 12/28/22 07:24:46 Page 3
DIAGNOSTIC MESSAGES
MSG ID SEV RECORD TEXT
SQL5066 0 3 Precompile option COMMIT changed by SET OPTION
statement.
SQL0312 30 44 Position 21 Variable PSTRNUM not defined or not
usable.
Reason: No declaration for the variable exists, the
declaration is not within the current scope, or the
variable does not have an equivalent SQL data type.
SQL0312 30 44 Position 43 Variable PSTRNAM not defined or not
usable.
Reason: No declaration for the variable exists, the
declaration is not within the current scope, or the
variable does not have an equivalent SQL data type.
Message Summary
Total Info Warning Error Severe Terminal
3 1 0 0 2 0
30 level severity errors found in source
49 Source records processed

Il giorno mer 28 dic 2022 alle ore 16:21 Raul Alberto Jager Weiler <
raul.jager@xxxxxxxxx> ha scritto:

I think SQL is global and the parameters are local to the procedure.

El mié, 28 de dic. de 2022 08:19, Maria Lucia Stoppa <mlstoppa@xxxxxxxxx>
escribió:

Hi all,
I am struggling with a subfield definition issue which I haven't

understood

yet, and it's driving me crazy!

In a program, an update keyed physical file is defined with a packed (5,

0)

key field.
The file definition is global, like this:
dcl-f tblstr disk usage(*input) keyed;
The program passes that key field plus a second field to a procedure, and
the procedure uses those fields in an embedded SQL, like this:
dcl-proc UpdFile;
dcl-pi *n zoned(5:0);
x_STRNUM like(STRNUM) value;
x_STRNAM like(STRNAM) value;
end-pi;
dcl-s count zoned(5:0) inz(0);
message = '4-' + %char(x_STRNUM) + %trim(x_STRNAM);
dsply message ' ';
exec sql
select count(*)
into :count
from tblstr
where STRNUM = :x_STRNUM and STRNAM = :x_STRNAM
;
return count;
end-proc;


Well, the program doesn't compile, because both x_STRNUM and x_STRNAM are
not usable by the SQL statement:
Position 21 Variable X_STRNUM not defined or not usable.
Reason: No declaration for the variable exists, the
declaration is not within the current scope, or the
variable does not have an equivalent SQL data type.

The same for x_STRNAM.

When the SQL 'where' clause is commented, the program compiles and it
works, meaning the 'dsply' operation code is correctly executed.

I tried different options, like adding value to the parameters passed and
casting the rpg variables used within the SQL statement, but I can't get
rid of the issue.

The idea I get from all the tries is that file's fields used to define

the

input parameters of the procedure are not recognized by SQL, so the
variables inside the procedure are for some reason unusable.

What am I missing? Does any of you have any idea about it?

Any hint or suggestion is greatly appreciated as converting fixed RPG
programs to free format includes many of these situation.

Thanks!
Lucia

--

Maria Lucia Stoppa
mlstoppa@xxxxxxxxx
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-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

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/midrange-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