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

[Alan Shore <ashore@xxxxxxxx>]

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

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