Re: Weird IWS Bug (?)

[Booth Martin <booth@xxxxxxxxxxxx>]

Jon, you just made my day.  If the docs are confusing for you then what 
chance does an average RPG programmer have of getting it done?  This 
product needs you.

(As a point of information:  perhaps try, as a Hello World exercise, a 
simple Web Service like converting Celsius/Fahrenheit?  Here is a 
service program I used.)

     h nomain pgminfo(*PCML:*MODULE:*DCLCASE)

      * -- Procedures included in this Service Program  -----
     d f2c             pr
     d  tempIn                       10    const
     d  tempOut                      10

     d c2f             pr
     d  tempIn                       10    const
     d  tempOut                      10

      * == Procedures  =========================================================
      // --  Fahrenheit to Celsius  --------------------------------------------
     p f2c             b                   export
     d f2c             pi
     d  tempIn                       10    const
     d  tempOut                      10

     d wTemp           s              7p 2

      /free
       monitor;
         wTemp = %dec(TempIn:7:2);
         wTemp  = ((wTemp - 32) * 100) / 180;
         tempOut = %char(wTemp);
       on-error;
         tempOut = 'n/a';
       endmon;
     p f2c             e

      // --  Celsius to Fahrenheit  --------------------------------------------
     p c2f             b                   export
     d c2f             pi
     d  tempIn                       10    const
     d  tempOut                      10
     d wTemp           s              7p 2

      /free
       monitor;
         wTemp = %dec(TempIn:7:2);
         wTemp  = (wTemp * (180/100)) + 32;
         tempOut = %char(wTemp);
       on-error;
         tempOut = 'n/a';
       endmon;
     p c2f             e


On 7/16/2019 7:41 AM, Jon Paris wrote:
> ... Must look at those docs again as they are really confusing.
>
>
> Jon Paris
>
> www.partner400.com
> www.SystemiDeveloper.com