在IBM i (OS/400)上使用RPG制作RESTful API

这是一篇介绍如何在IBM i (OS/400)上使用RPG制作RESTful API的文章，其中包含示例代码以及解释。

dcl-pr MyApp get export;                  
      parm in payload pointer;                 
      parm out payload pointer;                
      parm out payload_len int(10);            
    end-pr;                                    

    //定义一个结构体来作为输入参数
    dcl-ds InputData;                          
      name char(20);                           
    end-ds;                                    

    //定义一个结构体来作为输出参数
    dcl-ds OutputData;                         
      message char(1000);                      
      count int(5);                            
    end-ds;                                    

    //定义函数流程
    dcl-proc MyApp;                             
      dcl-pr BuildJsonChar;                     
        like(payload) const;                    
      end-pr;                                  

      dcl-ds ResponseData qualified;            
        message char(1000);                     
        count int(5);                           
      end-ds;                                   

      dcl-ds JsonParts qualified dim(2);         
        jsonChar char(100000);                  
        jsonLength int(10);                     
      end-ds;                                   

      //处理输入参数
      InputData = %Json(%Addr(BuildJsonChar()));  

      //处理输出参数
      OutputData.count = InputData.count + 1;
      OutputData.message = 'Hello ' + InputData.name + '!';

      //将输出参数转为JSON格式
      JsonParts.jsonLength = %size(ResponseData);
      JsonParts.jsonChar = %ptr(ResponseData);

      //将JSON格式的数据返回给调用者
      out = JsonParts.jsonChar;
      out_len = JsonParts.jsonLength;

    end-proc;

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