RPGLE 如何call c程序

 

写一个c函数取0-100之间的随机数，然后在rpg中调用该c函数

c函数（RANDTST）源代码：

----------------------------------------------

#include <stdlib.h>

#include <time.h>

void RANDTST (int Len)

{

int J ;

srand((unsigned) time(NULL)) ;

J = rand() % 100 ;

Len = J ;

}

----------------------------------------------

该c函数成功编译成*MODULE

rpg程序（USROPNE）源代码：

-----------------------------------------------

D RANDTST         Pr                  ExtProc('RANDTST')

D Pr_Len                              Like(I)

D I               S              2  0 Inz

/Free

Callp RANDTST(I) ;

*inlr = *on ;

return ;

/End-Free

---------------------------------------------

USROPNE成功编译成*MODULE

命令如下：

CRTPGM PGM(LIJLIB/RANDTST) MODULE(LIJLIB/RANDTST LIJLIB/USROPNE)

void LIJCCV (int Len) 名改为RANDTST。相当于Pi定义中Pi与P B的名一样。

另外一个问题，用一个crtpgm把这两个*modules bind在一起，失去了RANDTST proc的通用性。建议用一个*srvpgm把RANDTST作为一个service挂起，这样通用性较好些。如果用*srvpgm挂起，需用一个binddir把这个*srvpgm挂起，然后在USROPNE rpgle程序中的H表加入H bnddir（binddir名），这样就可以使用了。

另外，用void定义的C 函数，在rpgle自由格式下调用，可以无需callp键字，直接

i = RANDTST() ;

相当于rpgle的procedure定义：

p RANDTST         b          export

d RANDTST         pi         i

.....

rpgle固定格式不能直接调用。