RE: [EXTERNAL] RE: Compile error question -- RPG400-L

Birgitta,

You beat me to the punch. Yes, I want %ERROR to be set so that I can check it after the call.

Dean Eshleman
Software Development Architect
Everence

1110 North Main Street
PO Box 483
Goshen, IN 46527
(800) 348-7468 ext. 3528
(574) 533-9515 ext. 3528
[Join our Talent Network]<http://www.everence.com/careers>

From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Birgitta Hauser
Sent: Thursday, June 16, 2022 1:08 PM
To: 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: [EXTERNAL] RE: Compile error question

This email originated outside of Everence. Do not click links or attachments unless you recognize the sender.

He needs the CALLP because he added the extention (E) for avoiding a crash
if an error occurs and he can check %ERROR

Mit freundlichen Grüßen / Best regards

Birgitta Hauser
Modernization - Education - Consulting on IBM i

"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<mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx>> On Behalf Of
smith5646midrange@xxxxxxxxx<mailto:smith5646midrange@xxxxxxxxx>
Sent: Donnerstag, 16. Juni 2022 18:02
To: 'RPG programming on IBM i' <rpg400-l@xxxxxxxxxxxxxxxxxx<mailto:rpg400-l@xxxxxxxxxxxxxxxxxx>>
Subject: RE: Compile error question

This might be a stupid question because I'm overlooking something (or I am
not thinking straight) but why are you doing a CALLP when you have
prototyped the program? Can't you just do

PVW002(d_output.s_rtnStatus
:PVW002Input
:PVW002Output
:d_output.s_planTypeList);

Does that make it any happier?

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx<mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx>> On Behalf Of Dean
Eshleman via RPG400-L
Sent: Thursday, June 16, 2022 10:57 AM
To: rpg400-l@xxxxxxxxxxxxxxxxxx<mailto:rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: Dean Eshleman <Dean.Eshleman@xxxxxxxxxxxx<mailto:Dean.Eshleman@xxxxxxxxxxxx>>
Subject: Compile error question

I have an SQLPPGLE program that is failing to compile. We are 7.3.

I have the following prototype definition:

Dcl-Pr PVW002 extpgm('PVW002');
ReturningStatus_ Like(ReturningSts);
PVW002Input_ LikeDS(PVW002Input);
PVW002Output_ LikeDS(PVW002Output);
PVW002FetchedData_ LikeDS(PVW002FetchedData)
dim(52);
End-Pr;

Dcl-Ds PVAPTPDS ExtName('PVAPTP') Qualified Template;
End-Ds;

Dcl-Ds PVW002FetchedData Qualified Dim(52);
Annuity_plan_type_code like(pvaptpds.ANNPLNTP);
Annuity_plan_type_external_desc like(pvaptpds.DESCAPTEXT);
End-Ds;

In my program, I have the following data structure defined.

d d_output ds qualified inz
d s_rtnStatus 7A
d s_rowsFetched 9p 0
d s_planTypeList likeds(d_plantypelist) dim(52)

d d_plantypelist ds qualified inz
d s_planType 1A
d s_planTypeDesc 70A

I'm trying to call the program using
Callp(E) PVW002(d_output.s_rtnStatus
:PVW002Input
:PVW002Output
:d_output.s_planTypeList);

The compile is failing with RNF5343. Array s_PLANTYPELIST has too many
omitted indexes.

I do have *LVL2 specified on the compile options for RPGPPOPT. When I look
at the outline in RDi, the definition of d_output.s_planTypeList looks
identical to PVW002FetchedData. They both show dim(52) with 2 subfields.
So why is it complaining? Is it because s_planTypeList is inside another
data structure?

Dean Eshleman
Software Development Architect
Everence

1110 North Main Street
PO Box 483
Goshen, IN 46527
(800) 348-7468 ext. 3528
(574) 533-9515 ext. 3528
[Join our Talent Network]<http://www.everence.com/careers>

Confidentiality Notice: This information is intended only for the individual
or entity named. If you are not the intended recipient, do not use or
disclose this information. If you received this e-mail in error, please
delete or otherwise destroy it and contact us at (800) 348-7468 so we can
take steps to avoid such transmission errors in the future. Thank you.
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx> To subscribe, unsubscribe, or
change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l<https://lists.midrange.com/mailman/listinfo/rpg400-l>
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l<https://archive.midrange.com/rpg400-l>.

Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related
questions.

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

--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx> To subscribe, unsubscribe, or
change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l<https://lists.midrange.com/mailman/listinfo/rpg400-l>
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l<https://archive.midrange.com/rpg400-l>.

Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related
questions.

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

--
This is the RPG programming on IBM i (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx>
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l<https://lists.midrange.com/mailman/listinfo/rpg400-l>
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l<https://archive.midrange.com/rpg400-l>.

Please contact support@xxxxxxxxxxxxxxxxxxxx<mailto:support@xxxxxxxxxxxxxxxxxxxx> for any subscription related questions.

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

Confidentiality Notice: This information is intended only for the individual or entity named. If you are not the intended recipient, do not use or disclose this information. If you received this e-mail in error, please delete or otherwise destroy it and contact us at (800) 348-7468 so we can take steps to avoid such transmission errors in the future. Thank you.