RPG IV 编程问题百解（1）Procedure问题

RPG IV 编程问题百解（1）

Procedure问题

问：我使用callp时老是有问题

  ：错误信息

Cannot resolve to object ITYICMCKBK. Type and Subtype X'0201' Authority X'0000'.

  Error occurred while calling program or procedure

 *LIBL/ITYICMCKBK（C G D F).                  

  Error occurred while calling program or procedure *LIBL/ITYICMCKBK (C G D F).

 

程序代码1）

DITYICMCKBK       PR                  EXTPGM('ITYICMCKBK')     

D R@                              *                            

D O@                              *                            

D RONO@           S             10    BASED(R@)                

D OONO@           S             10    BASED(O@)

 

程序代码2）

而ityicmckbk的程序为

P ITYICMCK        B                   EXPORT     

D ITYICMCK        PI                             

DRTTYNO@                         *              

DOTTYNO@                         *

 

解答：

ityicmckbk程序中的

DRTTYNO@                         *              

DOTTYNO@                         * 

不能定义指针型

 

问：定义成字符？

答：可以，具体要看你要做什么。

 

问：调用程序定义指针，而被调用程序使用变量是吗

答：调用程序(PR)可以是指针，或与原型一样；被调用程序(PI)要具体说明原型接口

 

文章小结：

   被调用procedure 原型变量接口BI不能是指针型变量，必须详细定义原型变量接口。