RE: [EXTERNAL] Re: Question concerning Integrated Web Services

Hi everyone
We are on V7r3
I now have a couple of minutes to test the REST server that I created
Using Soap UI - my initial test failed, with the Soap UI responding that I did not have permission to run - but after digging around - and with some help from a couple of people - I realized that I was using the wrong port (don’t ask - once I realized what I was doing wrong - I was lining up to slap myself)

Anyway - now that I believe I am using the correct port - I am getting no response whatsoever in Soap UI
Looking at this
ftp://public.dhe.ibm.com/systems/support/i/iws/systems_i_software_iws_pdf_WebServicesServer_new.pdf

It suggests that I look in the QUSRWRK subsystem, but in their example, the job is running under the default web service user profile QWSERVICE, whereas mine is running under the profile name that I gave it in the creation of the REST server
Looking inside this job - I see that it started this morning at the time I tried my test, but I see the following
Client request - run program QSYS/QZRUCLSP.
Client request - run program QSYS/QWCRTVCA.
Client request - run program QSYS/QSZRTVPR.
Product information not found.

These are repeated 11 times - the last one at 8:24:51
When I prompt Product information not found
The message ID is CPF0C1F - severity 30
Message . . . . : Product information not found.
Cause . . . . . : Product information requested was not found for reason 07:
With
07 - Information was not found for the requested product.
With
Recovery . . . : The product ID 5733WQX, release , product option 0000,load
ID *CODE and format PRDR0100, requested is not valid. Specify valid product
and format information then try the request again.

When I do a google search on 5733WQX and found this web page
https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_73/rzaq9/rzaq9lpp5733WQX.htm

which tells me
IBM® DB2® Web Query for i V2.1 and earlier versions are not supported and will not function on IBM i 7.3. Upgrade to Web Query version 2.2.0 or later. Web Query version 2.2.0 is supported on IBM i 7.3, 7.2, or 7.1. It requires IBM Technology for Java™ 7.1 32 bit (JV1 option 14).

For more information on DB2 Web Query for i, refer to the product wiki at http://ibm.co/db2wqwiki.

The IBM DB2 Web Query for i (5733-WQX) libraries QWQREPOS and QWQCENT will be treated as user libraries. For example, they will be saved with SAVLIB LIB(*ALLUSR) and no longer will be saved by SAVLIB LIB(*IBM).


Is this telling me I need Web Query version 2.2.0 or later for IWS?

As always - all answers gratefully accepted

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
‘If you're going through hell, keep going.’
Winston Churchill

-----Original Message-----
From: Alan Shore
Sent: Wednesday, February 06, 2019 3:15 PM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Subject: RE: [EXTERNAL] Re: Question concerning Integrated Web Services

Hi everyone
This is a continuation of a thread from (yeesh) almost 2 months ago Well we applied all the outstanding PTF's to our development system a couple of weeks ago and I was FINALLY able to get myself a couple of minutes to try and build something for Integrated Web Services
If you remember I was using the following 2 web pages

http://ibmsystemsmag.com/ibmi/developer/general/using_iws/ by Jon Paris and https://scottklement.com/presentations/Providing%20RPG%20Web%20Services%20on%20IBM%20i.pdf by Scott Klement

Once I had blown the cobwebs off - YIPPEE - I was able to get past the point where I was failing at before - and was able to complete the creation of a REST web service So - thanks Nadir - for pointing out that ptf's needed to be applied

Anyway - I now need to test what I have just created - but sadly - that will have to wait until tomorrow Work is calling

p.s. - if anyone is interested - I came across the command DSPPCML created by Barbara Morris It can be found here https://www.ibm.com/developerworks/community/wikis/home?lang=en#!/wiki/We13116a562db_467e_bcd4_882013aec57a/page/See+the+PCML+that+is+embedded+in+a+program+or+service+program


Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
‘If you're going through hell, keep going.’
Winston Churchill

-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Nadir Amra
Sent: Tuesday, December 11, 2018 11:38 PM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Subject: Re: [EXTERNAL] Re: Question concerning Integrated Web Services

The PTF I gave is the latest superceding PTF. If you have latest HTTP group I believe the fix is there.




"MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx> wrote on 12/11/2018
03:39:27 PM:

From: Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
Date: 12/11/2018 03:40 PM
Subject: Re: [EXTERNAL] Re: Question concerning Integrated Web
Services Sent by: "MIDRANGE-L" <midrange-l-bounces@xxxxxxxxxxxx>

Alan,

We're running 7.2 on this box, so I checked for PTF SI68555 (SI68556
is the 7.3 equivalent) and I do not have it installed.

-SK


On 12/11/2018 1:36 PM, Alan Shore wrote:

Hi Scott
From an e-mail that Nadir Amrar sent Has your system had the ptf
SI68556 applied?

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
‘If you're going through hell, keep going.’
Winston Churchill


-----Original Message-----
From: Alan Shore
Sent: Tuesday, December 11, 2018 2:30 PM
To: 'Midrange Systems Technical Discussion'
<midrange-l@xxxxxxxxxxxx>
Subject: RE: [EXTERNAL] Re: Question concerning Integrated Web

Services

Hi
Those drumbeats you are hearing - are NOT drumbeats Its me banging

my head on the desk I pulled back my service module and my service
program Removed the RTNPARM

It was
dcl-pr GetCustInf LikeDS(CustInfo)
RTNPARM;
inCstDiv packed(2:0) const;
inCstNbr packed(9:0) const;
end-pr;
and

dcl-pi GetCustInf LikeDS(CustInfo)
RTNPARM;
inCstDiv packed(2:0) const;
inCstNbr packed(9:0) const;
end-pi;

changed to
dcl-pr GetCustInf LikeDS(CustInfo);
inCstDiv packed(2:0) const;
inCstNbr packed(9:0) const;
end-pr;
and

dcl-pi GetCustInf LikeDS(CustInfo);
inCstDiv packed(2:0) const;
inCstNbr packed(9:0) const;
end-pi;

NOW it wont compile
I put the RTNPARM back in
It compiles

When it doesn’t compile - the error is
*RNF0320 30 1 Errors were found while generating the program

information to

be placed in the module.

But no actual errors in the listing
So I run DSPJOBLOG to see if anything is there and all I see is

Compilation stopped. Severity 30 errors found in program.

When I place the cursor on that and press F1 This is all I get
Additional Message Information

Message ID . . . . . . : RNS9308 Severity . . . . . . . : 50
Message type . . . . . : Completion
Date sent . . . . . . : 12/11/18 Time sent . . . . . .

: 14:15:49

Message . . . . : Compilation stopped. Severity 30 errors

found in program.

Cause . . . . . : The RPG compiler found at least one error in

the program

of severity greater than that specified in the GENLVL option on

the

CRTRPGMOD or CRTBNDRPG command.
Recovery . . . : Correct the errors in the program. Compile

again.

But I have no idea what the error is




Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
‘If you're going through hell, keep going.’
Winston Churchill


-----Original Message-----
From: Alan Shore
Sent: Tuesday, December 11, 2018 2:05 PM
To: midrange-l@xxxxxxxxxxxx
Subject: RE: [EXTERNAL] Re: Question concerning Integrated Web

Services

Hi Scott
Thanks for the reply

Let me give that a go and see what happens

All of this is brand new to me - exciting - but being the

pathfinder in our company - exasperating when I come across such
problems and there no one to bounce ideas off, in the next cubicle

Now I know how Lewis and Clark felt
If they got lost - they couldn’t walk into the nearest deli and

ask for directions

Wait a minute - they were men
Men don’t ask for directions



Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
‘If you're going through hell, keep going.’
Winston Churchill


-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On

Behalf Of Scott Klement

Sent: Tuesday, December 11, 2018 1:51 PM
To: midrange-l@xxxxxxxxxxxx
Subject: Re: [EXTERNAL] Re: Question concerning Integrated Web

Services

Alan,

I don't see why the identifier name matters?

To test this, I put together a quick program like this (I know the

return values aren't useful in a business context, it was just to see
if the web service worked)

**free

ctl-opt nomain option(*srcstmt) pgminfo(*pcml:*module);

dcl-proc GetStringForDivCust export;

dcl-pi *n;
division packed(2: 0) const;
customer packed(9: 0) const;
Result char(100);
end-pi;

select;
when division=1 and customer=1000;
result = 'Data to test result here';
when division=2 and customer=2000;
result = 'Other test data here';
other;
result = 'Customer/Division not found';
endsl;

end-proc;

Then, I deployed this web service by setting "division" and "customer"
as input, and "result" as output.

resource name: divcust
path template: /{incstdiv:\d+}/{incstnbr:\d+}

Division is *PATH_PARAM and identifier INCSTDIV Customer is

*PATH_PARAM and identifier INCSTNBR

Worked perfectly for me, no errors. The only thing I can think

of is that you're using RTNPARM and a return value rather than
parameters, which seems like an odd thing to do. Remember, the
input/output of a web service comes via the URL or from a document
such as JSON or XML. Why would you use a feature like RTNPARM saying
"use a return value but make it really be a parameter under the
covers". That's really confusing, and there's no real notion of that
concept in other programming languages, which makes this a

realheadache.

Just use parameters, as I have above, and this should work fine.

It did for me.

On 12/11/2018 12:33 PM, Alan Shore wrote:

Hi Scott
Apologies - first of all - misspelt it - it should be RTNPARM Which
has nothing to do with IWS I was just having an exasperated moment
trying to go past the problem I was having where the identifier
name being swapped out

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L)

mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To
subscribe, unsubscribe, or change list options,

visit: INVALID URI REMOVED

u=https-3A__lists.midrange.com_mailman_listinfo_midrange-2Dl&d=DwIGaQ&c=jf_iaSHvJObTbx-

siA1ZOg&r=1i-jGlz0-JTK1aLHcsU-ew&m=DSA_lWItV-
Gc3H2kfHVrX8k7TnuUrD3FsPKWZqZYKes&s=dmrowbOumhjFu11q158RqC-
FdCDrGf-5W2t-mHwiNVQ&e=

or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please

take a moment to review the archives at https://
urldefense.proofpoint.com/v2/url?
u=https-3A__archive.midrange.com_midrange-2Dl&d=DwIGaQ&c=jf_iaSHvJObTb
x-
siA1ZOg&r=1i-jGlz0-JTK1aLHcsU-ew&m=DSA_lWItV-
Gc3H2kfHVrX8k7TnuUrD3FsPKWZqZYKes&s=XqnmU_k5_Pe1vlY3cD0Pf-
VqAeG6Xl9W_-zPf1j7pAc&e=.

Please contact support@xxxxxxxxxxxx for any subscription related

questions.

Help support midrange.com by shopping at amazon.com with our

affiliate link: INVALID URI REMOVED
u=https-3A__amazon.midrange.com&d=DwIGaQ&c=jf_iaSHvJObTbx-
siA1ZOg&r=1i-jGlz0-JTK1aLHcsU-ew&m=DSA_lWItV-

Gc3H2kfHVrX8k7TnuUrD3FsPKWZqZYKes&s=NLSgll2d_cSDLDmoUVrTvvZuNfX57FZY9AtsEx3e-4s&e=

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: INVALID URI REMOVED

u=https-3A__lists.midrange.com_mailman_listinfo_midrange-2Dl&d=DwIGaQ&c=jf_iaSHvJObTbx-

siA1ZOg&r=1i-jGlz0-JTK1aLHcsU-ew&m=DSA_lWItV-
Gc3H2kfHVrX8k7TnuUrD3FsPKWZqZYKes&s=dmrowbOumhjFu11q158RqC-
FdCDrGf-5W2t-mHwiNVQ&e=
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take
a moment to review the archives at INVALID URI REMOVED
u=https-3A__archive.midrange.com_midrange-2Dl&d=DwIGaQ&c=jf_iaSHvJObTb
x-
siA1ZOg&r=1i-jGlz0-JTK1aLHcsU-ew&m=DSA_lWItV-
Gc3H2kfHVrX8k7TnuUrD3FsPKWZqZYKes&s=XqnmU_k5_Pe1vlY3cD0Pf-
VqAeG6Xl9W_-zPf1j7pAc&e=.

Please contact support@xxxxxxxxxxxx for any subscription related

questions.

Help support midrange.com by shopping at amazon.com with our affiliate

link:

INVALID URI REMOVED
u=https-3A__amazon.midrange.com&d=DwIGaQ&c=jf_iaSHvJObTbx-
siA1ZOg&r=1i-jGlz0-JTK1aLHcsU-ew&m=DSA_lWItV-

Gc3H2kfHVrX8k7TnuUrD3FsPKWZqZYKes&s=NLSgll2d_cSDLDmoUVrTvvZuNfX57FZY9AtsEx3e-4s&e=

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx Before posting, please take a moment to review the archives at https://archive.midrange.com/midrange-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

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