紧急 ， 在线等啊。给过程传递参数问题

wyd1003

D  CZQ09001       PR             1A
     D  A                            15A   VALUE
     P  CZQ09001       B                   EXPORT
     D*
     D  CZQ09001       PI             1A
     D  UKNO                         15A   VALUE

把上面的编译成服务程序，然后连接到一个程序中
请问怎么调用过程CZQ09001，怎么给他传递参数，怎么获得他的返回值？
谢谢大家了 ，，着急啊。

simonshen

讲的不清不楚的，怎么回答

wyd1003

回复 2# simonshen
就是把 过程都写在一个程序中，，然后编译成模块，在编译成服务程序，这样别的程序不就可以调用这个程序中的过程了么，，

然后建立一个应用程序，要用到上面的过程，把应用程序和过程建立联系用下面的命令
       CRTPGM PGM(MYLIB/MYPGM)
                 BNDSRVPGM(MYLIB/MYP)
我在调用的时候是用的 callb（d）

但是参数没传进去啊，用callb也得不到返回值啊，请问怎么解决啊？？ 谢谢了

passthru

D  CZQ09001       PR             1A
     D  A                            15A   VALUE
     P  CZQ09 ...
wyd1003 发表于 2010-02-24 12:12

前两行是编译下面procedure CZQ09001需要的匹配原型：
     D  CZQ09001       PR             1A
     D  A                            15A   VALUE

下面代码是CZQ09001的代码：
     P  CZQ09001       B                   EXPORT
     D*
     D  CZQ09001       PI             1A
     D  UKNO                         15A   VALUE

这里定义的CZQ09001 procedure是一位输出值，15位字符的输入值。不能使用callp，直接对CZQ09001进行调用，如下：

d c@Value                 s          15    inz
d Rc                           s           1     inz

    ......
      c@value = 'A23456' ;
      Rc = CZQ09001(c@value);
     .......