在IBM i上使用RPG编写HTTP RESTful Web服务

本示例展示了如何在IBM i上使用RPG编写HTTP RESTful Web服务。通过该示例，可以了解到使用IBMI工具箱提供的HTTP服务程序以及RPG编译器，从而将IBM i变成一台Web服务主机。

h dftactgrp(*no) bnddir('QC2LE')

 /copy QCOPINC,HTTPAPI

d myModule        s               * 
d MyHandler       pr
d                 pi                  like(HTTPRPCH)
d                               const like(HTTPRPCC)*
d MyHandler       endp

d bdy             s              65535A   varying
d parm            s             1024A     varying
d response        s             1024A     varying
d httpMethod      s              100A      

c                   *entry        plist                 
c                   parm                    myModule

c                   if        %parms > 0 
c                   eval      parm = %addr(%parm)     
c                   endif

c                   callp     MyHandler(parm:response)

c                   select
c                   when      response  <> '' 
c                   exsr      SendResponse                               
c                   endsl                                                   

 /end-free

d MyHandler       pr
d                 pi                  like(HTTPRPCH)
d                               const like(HTTPRPCC)*
d 

d bdy             s              65535A   varying
d httpMethod      s              100A 

 /free
   HTTPRequest_GetMethod(httpMethod);
   HTTPRequest_ReadBody(bdy);

   if %trim(httpMethod) = 'GET';
      setll ...
      ...
      ...
      response = 'GET Request received.';
   elseif %trim(httpMethod) = 'POST';
      response = 'POST Request received.';
   else;
      response = 'Unsupported HTTP Method received.';
   endif;

   *inlr = *on;

   return HTTPrpch(response);
 /end-free 

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com