在IBM i（OS/400）上使用RPG编写调用API的代码

介绍如何使用RPG编写调用API的代码，以调用IBM i操作系统中的函数和服务。

//PASE API调用示例 
     ctl-opt dftactgrp(*no) actgrp('MYACTGRP') bnddir('QC2LE');  
     dcl-proc MyTest;  
        dcl-pr qshell extpgm('QSHCMD' : *proc);  
           cmdstr char(5000) const;  
           rtnval uns(10);  
        end-pr;  
        dcl-ds ReturnData qualified;  
           ReturnCode uns(10);  
           ReturnMessage char(100) dim(10);  
        end-ds;  
        dcl-s cmd char(5000);  
        cmd = 'ls -1 ' + %trim(FilePath) + ' > /tmp/directorylist.txt';  
        rtnval = qshell(cmd);  
        if (rtnval <> 0);  
           ReturnData.ReturnCode = %char(rtnval);  
           ReturnData.ReturnMessage(1) = 'Error! QSHCMD returned '+%char(rtnval);  
        endif;  
        *inlr = *on;  
     end-proc;

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