Re: receive web order from another server

[Henrik Rützou <hr@xxxxxxxxxxxx>]

If the other server can send a HTTP/POST with either the order as FORM data
or
as an XML string/document it is very easy to do a webservice that consumes
it
in plain RPGLE

// Process Data From a Form
getExtInput();
orderno = getExtVar('orderNo');
name = getExtVar('name');
....

When you say many detail records it is easier to send in the order as a
simple XML string/document.

<order>
  <header>
    <custname>acme corp</custname>
  </header>
  <details>
    <line>
      <item>123456</item>
      <qty>12</qty>
    </line>
  </details>
</order>

// Process Data From an INPUT String
dow xmlReader = 0;
  select;
    when xmlGetNode = 'custname' and xmlGetAttr = '';
      cuname = xmlGetData;
    when xmlGetNode = '/header';
      // create order header
    when xmlGetNode = 'item' and xmlGetAttr = '';
      oritem = xmlGetData;
    when xmlGetNode = 'qty' and xmlGetAttr = '';
      orqty = xmlGetData;
    when xmlGetNode = '/line' and xmlGetAttr = '';
      // create orderline
    when xmlGetNode = '/order' and xmlGetAttr = '';
      // process order
  endsl;
enddo;

Or If you prefer to use RPG build in XML-INTO, you can just recieve and
store the
xml in a steamfile:

inpStore = getExtInputRaw();
storeToStmf(inpStore:'myxmlfile.xml':1208);

The only thing you need to do is to setup an apache server and download
powerEXT Core
(completely free) and then include the Core service program in your
RPGLE program.



On Thu, May 5, 2011 at 3:30 AM, Jim Franz <franz400@xxxxxxxxxxxx> wrote:

> Need to receive orders produced from a shopping cart on another server.
> Each will have name/address order & shipto info, plus 1 to many detail
> records.
> No CC stuff. No $$ for edi software.
> I'd like to sound halfway intelligent talking to a php developer on the
> other end as
> to how we could handle this (web service pgm?) or simple ftp...
> Many orders a day but we a not talking huge volumes. Currently getting it
> via email.
> This then will feed into an inhouse entry system, v6r1 & strictly a RPG
> shop.
> Jim Franz
> --
> This is the Web Enabling the AS400 / iSeries (WEB400) mailing list
> To post a message email: WEB400@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/web400
> or email: WEB400-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/web400.