Re: Weird IWS Bug (?)

[Jon Paris <jon.paris@xxxxxxxxxxxxxx>]

Thanks Booth - but I'm well past that.  I have it all working - just not as IBM documented it!


Jon Paris

www.partner400.com
www.SystemiDeveloper.com

> On Jul 16, 2019, at 5:41 PM, Booth Martin <booth@xxxxxxxxxxxx> wrote:
>
> 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
> -- 
> This is the Web Enabling the IBM i (AS/400 and iSeries) (WEB400) mailing list
> To post a message email: WEB400@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/web400
> or email: WEB400-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/web400.