求助：系统api过程QjoRetrieveJournalEntries调用后，运行问题

hornit

前两天因为要优化个程序，取日志的Entries，应用到系统api过程QjoRetrieveJournalEntries
具体做法如下：
rpgle程序pgm1大概内容如下
D QJORJE                   PR               EXTPROC('QjoRetrieveJournalEntries')
D                                   32767A    OPTIONS(*VARSIZE)
D                                        10I      CONST
D                                        20A     CONST
D                                          8A     CONST
D                                   32767A     CONST  OPTIONS(*OMIT:*VARSIZE)
D                                   32767A     OPTIONS(*OMIT:*VARSIZE)

采用callp调用

编译方法如下：
1.通过CRTRPGMOD  把pgm1编译成MODULE
2.通过CRTPGM  把模块pgm1，服务程序QJOURNAL编译成程序pgm1
  以上编译都可行，并且通过dsppgm可以看到程序已经连接了服务程序

但是调用的时候出现了错误，具体如下：
1.Tried to refer to all or part of an object that no longer exists.
2.Error occurred while calling program or procedure QjovRetriev (C G D F).

感觉好像在程序调用过程中，引用的外部过程joRetrieveJournalEntries没有生效
高手帮忙分析一下
谢谢了

hornit

补充：以前也这么用过，都好用

hornit

人呢？？

hornit

hornit 发表于 2012-04-29 10:29
补充：以前也这么用过，都好用

虽然不是这个api，同类的，也好用

hornit

我郁闷，同一个服务程序包里面的QjoRetrieveJournalInformation就可以调用
有用过的么?

passthru

hornit 发表于 2012-04-29 10:22
前两天因为要优化个程序，取日志的Entries，应用到系统api过程QjoRetrieveJournalEntries
具体做法如下：
...

建议debug跟踪一下。

hornit

passthru 发表于 2012-04-29 23:29
建议debug跟踪一下。

跟踪了，到callp位置就报如上的错误

passthru

hornit 发表于 2012-04-30 08:45
跟踪了，到callp位置就报如上的错误

debug状态下，每个pr参数的值是什么？继续后，出错msgid又是什么？

我怀疑，你用的pr参数中一个参数的类型有问题。

“Tried to refer to all or part of an object that no longer exists.”，这样的msg，我的经验，通常就是prototype 参数有不匹配问题。如果按照IBM文档用RPGLE编程，在有些情况下是不行的。因为，IBM这方面文档通常用于C编程的。如果要用RPGLE做这个QAPI的编程，prototype 参数类型要调整。

方便的话，请把你的prototype 定义和D表相关的变量和DS代码，以及H表中定义的bnddir值，一同贴出来。

passthru

D QJORJE                   PR               EXTPROC('QjoRetrieveJournalEntries')
D                                   32767A    OPTIONS(*VARSIZE)
D                                        10I     CONST
D                                        20A     CONST
D                                          8A     CONST
D                                   32767A     CONST  OPTIONS(*OMIT:*VARSIZE)
D                                   32767A     OPTIONS(*OMIT:*VARSIZE)

你把这个参数改为下面所示，再试试：

D QJORJE                   PR                 EXTPROC('QjoRetrieveJournalEntries')
D  RevData                    32767A      OPTIONS(*VARSIZE)
D  RevDataSize                    10I  0  OPTIONS(%size(RevData))
D                                        20A     CONST
D                                          8A     CONST
D                                   32767A     CONST  OPTIONS(*OMIT:*VARSIZE)
D                                   32767A     OPTIONS(*OMIT:*VARSIZE)