400下c/c++程序咋调用400命令等

as400 学友

400下c/c++程序咋调用cl/as400 command 等

qingzhou

在RPGIV中调用CL命令是采用应用程序接口API：QCMDEXC来实现，如下例，编译完RPGIV后在命令行CALL一下，就会执行WRKSPLF等效的功能。
C、C++语句在大学时有接触过，不过都快忘记了， 现在自己也没有使用过C语言在OS/400平台上开发，用RPGIV+CL会多些。看看C、C++是否也有类似的API接口提供调用，或者是否也是使用API：QCMDEXC来实现。
LIU/QRPGLESRC(QCMDEXC1)

1. 
   
2.      **
   
3.      D Cmd             S            300    INZ('WRKSPLF')
   
4.      D CmdLen          S             15  5
   
5.      **
   
6.      C                   EVAL      CmdLen=%LEN(%TRIMR(Cmd))
   
7.      **
   
8.      C                   CALL      'QCMDEXC'
   
9.      C                   PARM                    Cmd
   
10.      C                   PARM                    CmdLen
    
11.      **
    
12.      **
    
13.      C                   EVAL      *INLR=*ON
    
14.      C                   RETURN
    
15.      **
    
16. 

复制代码

===>; CALL QCMDEXC1

1. 
   
2.                               使用所有假脱机文件                                
   
3.                                                                                 
   
4. 输入选项，按“执行”键。                                                      
   
5.    1= 发送   2= 更改   3= 挂起   4= 删除   5= 显示   6= 释放   7= 信息         
   
6.    8= 属性   9= 使用打印状态                                                   
   
7.                                                                                 
   
8.                                                                                 
   
9.                                设备或                        总       Cur      
   
10. Opt   文件        用户        队列        用户数据   Sts    页数    Page  Cpy  
    
11.       MIPOCP      LIU         TRFSCN                  RDY       8            1  
    
12.       MIPOCL1     LIU         TRFSCN                  RDY       3            1  
    
13.       MIRPHP      LIU         TRFSCN                  RDY       8            1  
    
14.       MIRPHL1     LIU         TRFSCN                  RDY       3            1  
    
15.       MIRSHL1S    LIU         TRFSCN                  RDY       3            1  
    
16.       MIRSHL2     LIU         TRFSCN                  RDY       3            1  
    
17.       MI020P      LIU         TRFSCN                  RDY       8            1  
    
18.       MI020P1     LIU         TRFSCN                  RDY       8            1  
    
19.       MI021L1     LIU         TRFSCN                  RDY       3            1  
    
20.                                                                        尚有 ...
    
21. 选项 1, 2, 3 或命令的参数                                                      
    
22. ===>;                                                                           
    
23. F3= 退出   F10= 视图 4   F11= 视图 2   F12= 取消   F22= 打印机   F24= 其余键   
    
24.                                                                                 
    
25.                                                                                 
    

复制代码

layyf

system()

qingzhou

[quote]原帖由 "layyf"]system()[/quote 发表：

能说明清楚一点吗？

span1024

system(cmd) -- cmd 指定你要调用的程序/命令串就可以了,某种程度上来说,比CL或RPG里调用呀方便一些,因为不需要指出命令串的长度.

下面是一个简单的说明:

#define CMD_SBMJOB "SBMJOB CMD( CALL TRS001 ('%S') ) JOBD(%s/%s) JOB(%s)"


char cmd[200];

sprintf(cmd, CMD_SBMJOB, In_ID, jd_Lib, jd_Nam, rj_Nam);

system(cmd);

span1024

当然在C语言中也可以象 "qingzhou" 说的那样,通过使用系统APICMDEXC()来做.

qingzhou

原帖由 "span1024" 发表：

sprintf(cmd, CMD_SBMJOB, In_ID, jd_Lib, jd_Nam, rj_Nam);

system(cmd);

很好。。。

设为精彩帖子备用，日后有需要的朋友可以参考。

wjywhl

1、先用预处理命令将rpg程序映射成C/C++API。
2、直接调用映射后的api即可

我在400上用C/C++作过实际项目的

Eagle_wolf

400 提供了很多类unix的api
system 就是一个
其他如sleep usleep 等等

yoyoage

原帖由 "wjywhl" 发表：
1、先用预处理命令将rpg程序映射成C/C++API。
2、直接调用映射后的api即可

我在400上用C/C++作过实际项目的

怎么把rpg程序映射成c/c++ 的api？可不可以详细点解释一下？谢谢先。