【AS/400】RPG中使用DDMF例子

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