怎么在RPG里面call 一个command

JustinCaribe

如题。

hsiang_wang

可以调用系统API,好象是QCMD??

fairyboy

在实际应用中,经常需要在RPG中实现一些 CL命令的工程  如 WRKSPLF\ STRSEU 等.

     这时候可以通过  CALL --QCMDEXC 来实现.  如下实现一个 在RPGLE中 执行 WRKSPLF 的简单功能.
   
     其他复杂的一点CL命令一样可以如此.  只是 续行时 需 主要 把整个 命令 写在字符窜里(即' ')


  CODIND:

DCONSTRING        S            256                                      
DCONSTLENT        S             15P 5                                   
C                   EVAL      CONSTRING='WRKSPLF'                       
C                   EVAL      CONSTLENT=%LEN(%trim(CONSTRING))         
C                   CALL      'QCMDEXC'                                 
C                   PARM                    CONSTRING                  
C                   PARM                    CONSTLENT                  
C                   SETON                                        LR     
C                   RETURN                                             

运行结果:跟在 命令行 运行  WRKSPLF 一样


上面是我用BAIDU搜索到的.

只想说明一点,有时候用BAIDU真的不错.还有一点,自己要学会通过自己努力获得,不管用什么途径,能快速解决自己的问题，就是好方法.

PS:今天喝了点酒,说话有点过.有什么得罪之处,还请谅解!