在IBM i（OS/400）上使用RPG编写REST API

本示例展示了如何在IBM i (OS/400)上使用RPG编写REST API。这个示例将使用IBMi的集成web服务来处理REST请求和响应，并使用IREST（IBM的RPG扩展，用于处理REST）来构建REST API。RPG程序没有改动现有系统，而是将新的功能添加到现有的RPG程序中。

H NOMAIN                                                                                   
H DFTACTGRP(*NO)  

** Use IREST (IBM's RPG extension for handling REST)
I IREST

** Define input parameter
D get_my_data PR O EXTENDS(RESTRequest)
D  Req                          LIKE(RESTRequest)
D  r                            LIKE(Rectangle)

D MyREST        PI              Like(RESTRequest)                              
D                                 Extpgm('MY_PG'):                              
D                                REST                                     

D MyResponse    S               Like(RESTResponse)
D MyRectangle   S               Like(Rectangle)

 /Free
     // Get my data
     MyRectangle = get_my_data(MyREST);

     // Convert data to JSON
     MyResponse = %json(MyRectangle);

     // Return response
     Return MyResponse;
 /End-Free

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