Chinaunix首页 | 论坛 | 博客
  • 博客访问: 6593
  • 博文数量: 2
  • 博客积分: 131
  • 博客等级: 入伍新兵
  • 技术积分: 11
  • 用 户 组: 普通用户
  • 注册时间: 2010-05-12 08:54
文章分类
文章存档

2013年(2)

我的朋友

分类:

2013-10-21 13:13:55

有两台AS/400,一个为ServerA,一个为ServerB。现在想在ServerA上写一个rpg程序来操作ServerB上的一个表。实现的方法如下。
ServerA上的操作如下:
①创建DDMF
CRTDDMF FILE(PTRLIB/TESTDDMF) RMTFILE(PTRLIB/CUSTFILE) RMTLOCNAME(SERVERB *IP)
②添加服务器权限项
ADDSVRAUTE USRPRF(*CURRENT) SERVER(QDDMSERVER) USRID(ServerB的user) PASSWORD(ServerB的user密码)
③编写RPG程序
     FTESTDDMFUF  E           K        DISK
     C*
     C                     Z-ADD123456    CUSTID  90
     C           CUSTID    CHAINTESTDDMF             90
     C           *IN90     IFEQ *OFF
     C           CUSTNM    DSPLY
     C                     MOVEL'AAAA'    CUSAD     P
     C                     UPDATCUSTR
     C                     ENDIF
     C*
     C                     SETON                     LR
     C                     RETRN

ServerB上的操作如下:
①创建custfile
     A                                      UNIQUE       
     A          R CUSTR                                  
     A            CUSTNO         9S 0                    
     A            CUSTNM        20A                      
     A            CUSAD         30A                      
     A            CUSCT         30A                      
     A            CUSST          2A                      
     A            CUSCP          9A                      
     A            CUSPH         10S 0                    
     A*                                                  
     A          K CUSTNO                                 
②确定系统值QRETSVRSEC为‘1’

阅读(341) | 评论(0) | 转发(0) |
0

上一篇:RPG编程技巧2_Chain、Setll、Read的作用与区别

下一篇:没有了

给主人留下些什么吧!~~