× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



According to this from documentation on LIKEREC - A data structure defined with LIKEREC is a QUALIFIED data structure.

That's as much as i know - I don't know why the generated code is the way it is.

Cheers
Vern

On 12/12/2021 12:38 PM, Art Tostaine, Jr. wrote:
Yes. Sorry it is not qualified.

D DoBarCount PR N
D locrec LIKEDS(locmst_iu)
D VALUE
d p likerec(genhdr00r)
D VALUE
d c likerec(genhdr07r)
D VALUE

p DoBarCount b
d DoBarCount pi n
d locrec LIKEDS(locmst_iu)
d VALUE
d p likerec(genhdr00r)
d VALUE
d c likerec(genhdr07r)
d VALUE

exec sql select plt into :plt
from locplt00
where rid = :c.ghrid
and bld=:locrec.bld
and sec=:locrec.sec
and ais=:locrec.ais and slt=:locrec.slt and lvl=:locrec.lvl;

On Sun, Dec 12, 2021 at 6:49 AM Birgitta Hauser<Hauser@xxxxxxxxxxxxxxx>
wrote:

Can you show the definition of the c datastructure?

Mit freundlichen Grüßen / Best regards

Birgitta Hauser


"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)


-----Original Message-----
From: RPG400-L<rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Art
Tostaine, Jr.
Sent: Sonntag, 12. Dezember 2021 03:13
To: RPG programming on IBM i<rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: David Gibbs<david@xxxxxxxxxxxx>
Subject: Re: SQL precompiler problem?

Yes.

On Sat, Dec 11, 2021 at 6:48 PM David Gibbs via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> wrote:

Is the c data structure qualified?

On Sat, Dec 11, 2021 at 2:14 PM Art Tostaine, Jr.
<atostaine@xxxxxxxxx>
wrote:

This is from the DBGVIEW of a SQLRPGLE. The embedded SQL Statement
is
shown
commented out and then the generated code. You can see that the SQL
Statement has :C.GHRID but the generated SQL shows only GHRID. This
really
screws up the program as you can imagine. Anyone seen this before?

145000 //* exec sql select plt into :plt

145100 //* from locplt00

145200 //* where rid=:c.ghrid and bld=:locrec.bld and
sec=:locrec.sec
145300 //* and ais=:locrec.ais and slt=:locrec.slt and
lvl=:locrec.lvl;
145300 SQL_00005 = GHRID;

145300 SQL_00006 = LOCREC.BLD;

145300 SQL_00007 = LOCREC.SEC;

145300 SQL_00008 = LOCREC.AIS;

145300 SQL_00009 = LOCREC.SLT;

145300 SQL_00010 = LOCREC.LVL;
--
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 contactsupport@xxxxxxxxxxxxxxxxxxxx for any subscription
related questions.

Help support midrange.com by shopping at amazon.com with our
affiliate
link:https://amazon.midrange.com

--
IBM i on Power Systems: For when you can't afford to be out of business!

I'm riding in the American Diabetes Association's Tour de Cure to
raise money for diabetes research, education, advocacy, and awareness.
You can make a tax-deductible donation to my ride by visiting
https://mideml.diabetessucks.net.

You can see where my donations come from by visiting my interactive
donation map ...https://mideml.diabetessucks.net/map (it's a geeky
thing).

I may have diabetes, but diabetes doesn't have me!
--
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 contactsupport@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 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 contactsupport@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 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
athttps://archive.midrange.com/rpg400-l.

Please contactsupport@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:https://amazon.midrange.com


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.