RE: RPG Web Service Program

Thanks, Maria.

The best part of threads like this is the ability for us all to ask for
help, share our experiences, and learn from each other.

I'm going to take note of your solution, as well, for the future.

Steve


-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Maria
Lucia Stoppa
Sent: Friday, April 17, 2020 02:28
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: RPG Web Service Program

Hi Steve,
I saw you already found a solution.
Anyway, if it may be of interest to you, supposing this is your case too,
yesterday I had the same issue with a service program: same error using "
ctl-opt pgminfo(*PCML: *MODULE: *DCLCASE);" trying to export a method with
this interface:
dcl-proc getListaAgenti export;
//--------------------------------------
dcl-pi *N;
i_codice char(3) const;
errore ind;
messaggio varchar(250);
totaleAgenti zoned(5: 0);
agenti likeds(dsAgente) dim(999);
end-pi;
(some code here)
end-proc
Pretty much simple compared to your code.
I assume that in my case the problem is the array.
After surfing the Internet and reading a lot I finally found a sentence in
"ILE RPG Reference" pdf for V7R2 stating *V6 and *V7 options exist for PCML
to manage new updates in PCML behaviour.
So, I solved the issue by:
- adding QIBM_RPG_PCML_VERSION environment variable with '7.0' value
- changing pmginfo control specification to "ctl-opt pgminfo(*PCML: *MODULE:
*DCLCASE: *V7);"

Again, maybe it's not your case and mine are only empty words or maybe it
helps.




Il giorno gio 16 apr 2020 alle ore 21:52 Steve M via RPG400-L <
rpg400-l@xxxxxxxxxxxxxxxxxx> ha scritto:

Thank you, Barbara. Fortunately, there are only two procedures with
PI associated to them (the main one and the one in question), so
adding the
PGMINFO(*NO) on the one was a perfect solution.

Steve

-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of
Barbara Morris
Sent: Thursday, April 16, 2020 14:02
To: rpg400-l@xxxxxxxxxxxxxxxxxx
Subject: Re: RPG Web Service Program

On 2020-04-16 9:39 a.m., Kevin Bucknum wrote:

On the PI for newstring try adding PGMINFO(*NO)

The PGMINFO(*NO) keyword actually goes on the procedure itself. The
DCL-PROC or the P-spec Begin statement.

You can also specify PGMINFO(*YES) on the ones you want PCML generated

for.

Sometimes that's easier than specifying PGMINFO(*NO) on the ones you
don't want.

--
Barbara

--
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.

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