Re: RPG Web Service Program -- RPG400-L

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

On Thu, 2020-04-16 at 08:35 -0500, Steve M via RPG400-L wrote:

I found an older thread (2015) with someone having my same issue and they

said, "Thank goodness for Jon Paris and Barbara Morris for their write-up on

this" but of course, the links are broken now.

Here is the error, maybe someone will remember an article on this or can

guide me to what correction I need to make to the code. Here is the

information from the stream file on the module create and the source in my

program.

<pcml version="6.0">









<program name="NEWSTRING" entrypoint="NEWSTRING" returnvalue=" ">



<data name="PSTRING" type="char" length="32767" usage="input" />

</program>



<program name="SLLIMWFWSR" entrypoint="SLLIMWFWSR">

<data name="INSUNDAYDATE" type="char" length="8" usage="input" />

<data name="INSATURDAYDATE" type="char" length="8" usage="input" />

<data name="INFINALFLAG" type="char" length="1" usage="input" />

<data name="OUTRESULTS" type="char" length="1000" usage="inputoutput"

/>

</program>

</pcml>

My source declares the procedure as such:

D newString PR O Class(*java:jStrConst)

D pString 32767A Const

Here is the procedure itself and the actual two lines of code it executes:

Dcl-Proc newString Export;

D newString PI O Class(*java: jStrConst)

D pString 32767A Const

D string S O Class(*java: jStrConst)

D newJavaString PR O ExtProc(*java: jStrConst:

D *Constructor)

D Class(*java: jStrConst)

D parm 32767A Const

D trimString PR O ExtProc(*java: jStrConst: 'trim')

D Class(*java: jStrConst)

Monitor;

string = newJavaString(%Trim(pString));

Return trimString(string);

Again, this works fine compiled as a regular RPG program, it's only when I

try to change to *PCML that it errors out.

To be honest, I'm not even sure what the "fix" is to make this work, based

upon the error above.

Steve

-----Original Message-----

From: RPG400-L <

<mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx>

rpg400-l-bounces@xxxxxxxxxxxxxxxxxx

On Behalf Of Jon Paris

Sent: Wednesday, April 15, 2020 15:28

To: RPG programming on IBM i <

<mailto:rpg400-l@xxxxxxxxxxxxxxxxxx>

rpg400-l@xxxxxxxxxxxxxxxxxx

Subject: Re: RPG Web Service Program

Steve - are you sure this program is not using any parameter types that are

not supported by PCML?

I can't see how the JNI stuff could have any impact as the PCML is only

generated for the program's call interface.

On Apr 15, 2020, at 4:21 PM, Steve M via RPG400-L

<

<mailto:rpg400-l@xxxxxxxxxxxxxxxxxx>

rpg400-l@xxxxxxxxxxxxxxxxxx

wrote:

All,

I write RPG (and SQLRPGLE) programs all of the time that I then attach to

be used as Web Services. No issues there.

However, I now have a need for the web service program to call a Java

process. When I compile the program as a "regular" program I receive no

errors. However, when I change the Ctl-Opt to read PgmInfo(*PCML:*Module),

as I do for all of my other web service's programs, I receive a RNF0302,

Errors were found while generating the program information to be placed in

the module.

That's the entire extent of the information. No more. Unlike my previous

RPG service programs that were "pure RPG", this does have prototypes for the

Java, Java class declarations, creation of Java objects, and such, but that

is all needed for RPG to make the call to the Java class.

Has anyone successfully created an RPG program, as a web service, where

that web service then directly calls a Java class in the IFS? This must be

possible, right? I feel like I am missing something very obvious inside of

my RPG program but can't figure out what.

Any and all thoughts and ideas, as always, are very welcomed. I really

don't want to have to add another layer: an RPG program as a web service,

calling another RPG program that call the Java process - that seems really

silly, but at this point it also seems like the only possible way to succeed

in this process.

Hope that everyone is staying safe and healthy.

Thanks,

Steve Meisinger

--

This is the RPG programming on IBM i (RPG400-L) mailing list To post a

message email:

<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx>

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:

<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>

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

<mailto:support@xxxxxxxxxxxxxxxxxxxx>

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:

<mailto:RPG400-L@xxxxxxxxxxxxxxxxxx>

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:

<mailto:RPG400-L-request@xxxxxxxxxxxxxxxxxx>

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

<mailto:support@xxxxxxxxxxxxxxxxxxxx>

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

[https://www.medtronsoftware.com/img/MedtronMinilogo.bmp] Kevin Bucknum
Senior Programmer Analyst
MEDDATA / MEDTRON
120 Innwood Drive
Covington LA 70433
Local: 985-893-2550
Toll Free: 877-893-2550
https://www.medtronsoftware.com

CONFIDENTIALITY NOTICE

This document and any accompanying this email transmission contain confidential information, belonging to the sender that is legally privileged. This information is intended only for the use of the individual or entity named above. The authorized recipient of this information is prohibited from disclosing this information to any other party and is required to destroy the information after its stated need has been fulfilled. If you are not the intended recipient, or the employee of agent responsible to deliver it to the intended recipient, you are hereby notified that any disclosure, copying, distribution or action taken in reliance on the contents of these documents is STRICTLY PROHIBITED. If you have received this email in error, please notify the sender immediately to arrange for return or destruction of these documents.