Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1059563
  • 博文数量: 106
  • 博客积分: 9093
  • 博客等级: 中将
  • 技术积分: 2770
  • 用 户 组: 普通用户
  • 注册时间: 2006-06-01 17:22
文章分类

全部博文(106)

文章存档

2014年(1)

2012年(29)

2011年(32)

2010年(20)

2008年(24)

分类:

2010-08-30 14:23:51

有两台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’

阅读(2169) | 评论(1) | 转发(2) |
给主人留下些什么吧!~~

chinaunix网友2010-12-31 20:46:46

很好的, 收藏了 推荐一个博客,提供很多免费软件编程电子书下载: http://free-ebooks.appspot.com