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