如何在IBM i（OS/400）上使用RPG编写RESTful API

本示例代码演示如何使用IBM i（OS/400）上的RPG编写RESTful API。通过该示例代码，您可以了解到RPG如何通过数据结构和列表定义请求和响应，并使用IBM i上的HTTP服务来支持RESTful API请求。

**Free
      /define free( t ) with %str( ' ' ): resulting( t )
      *=================================================================
      * Data Structures
      *=================================================================

      // Division to access JSON data
      dcl-ds Division qualified;
        value character(25);
      end-ds;

      // Data to retrieve
      dcl-ds Data qualified;
        division Division(10) dim(10);
      end-ds;

      // Response
      dcl-ds Response qualified;
        status char(3);
        data Data;
      end-ds;

      // Error Response
      dcl-ds ErrorResponse qualified;
        status char(3);
        message char(125);
      end-ds;

      *===================================================================
      * Procedure prototypes
      *===================================================================

      // Retrieve Data
      dcl-pr GetData extpgm( 'GETDATA' );
        FROM char(10);
        TO char(10);
        DIV char(10) dim(10);
      end-pr;

      // Return JSON Data
      dcl-pr ReturnJson;
        response likeds( Response );
      end-pr;

      // Return Error
      dcl-pr ReturnError;
        error likeds( ErrorResponse );
      end-pr;

      // JSON Data to DS
      dcl-pr JSON2DS extpgm( 'JSON2DS' );
        jsonString char(32767) varying;
        structure * value like( Data );
      end-pr;

      // DS to JSON Data
      dcl-pr DS2JSON extpgm( 'DS2JSON' );
        structure * value like( Data );
        jsonString char(32767) varying;
      end-pr;

      *===================================================================
      * Subroutines
      *===================================================================

      // GET Request to retrieve Data
      Begsr DataRequest;

        // Retrieve query params
        qs = %trim( http_query_string );
        qsDec = JSON2DS(qs: Division);

        if (result = GetData(FROM: qsDec.division(1).value : qsDec.division(2).value :
                             divDS) <> *blanks);

          errResp.status = '500';
          errResp.message = 'Internal server error';
          ReturnError(rpError);

          return;

        else;

          Response.status = '200';
          Response.data = divDS;
          ReturnJson(Response);

        endif;

      endsr;

      *===================================================================

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