求助：系統(tǒng)api過程QjoRetrieveJournalEntries調(diào)用后，運(yùn)行問題

hornit

前兩天因?yàn)橐獌?yōu)化個(gè)程序，取日志的Entries，應(yīng)用到系統(tǒng)api過程QjoRetrieveJournalEntries
具體做法如下：
rpgle程序pgm1大概內(nèi)容如下
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調(diào)用

編譯方法如下：
1.通過CRTRPGMOD  把pgm1編譯成MODULE
2.通過CRTPGM  把模塊pgm1，服務(wù)程序QJOURNAL編譯成程序pgm1
  以上編譯都可行，并且通過dsppgm可以看到程序已經(jīng)連接了服務(wù)程序

但是調(diào)用的時(shí)候出現(xiàn)了錯(cuò)誤，具體如下：
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).

感覺好像在程序調(diào)用過程中，引用的外部過程joRetrieveJournalEntries沒有生效
高手幫忙分析一下
謝謝了

hornit

補(bǔ)充：以前也這么用過，都好用

hornit

人呢？？

hornit

hornit 發(fā)表于 2012-04-29 10:29
補(bǔ)充：以前也這么用過，都好用

雖然不是這個(gè)api，同類的，也好用

hornit

我郁悶，同一個(gè)服務(wù)程序包里面的QjoRetrieveJournalInformation就可以調(diào)用
有用過的么?

passthru

hornit 發(fā)表于 2012-04-29 10:22
前兩天因?yàn)橐獌?yōu)化個(gè)程序，取日志的Entries，應(yīng)用到系統(tǒng)api過程QjoRetrieveJournalEntries
具體做法如下：
...

建議debug跟蹤一下。

hornit

passthru 發(fā)表于 2012-04-29 23:29
建議debug跟蹤一下。

跟蹤了，到callp位置就報(bào)如上的錯(cuò)誤

passthru

hornit 發(fā)表于 2012-04-30 08:45
跟蹤了，到callp位置就報(bào)如上的錯(cuò)誤

debug狀態(tài)下，每個(gè)pr參數(shù)的值是什么？繼續(xù)后，出錯(cuò)msgid又是什么？

我懷疑，你用的pr參數(shù)中一個(gè)參數(shù)的類型有問題。

“Tried to refer to all or part of an object that no longer exists.”，這樣的msg，我的經(jīng)驗(yàn)，通常就是prototype 參數(shù)有不匹配問題。如果按照IBM文檔用RPGLE編程，在有些情況下是不行的。因?yàn)椋琁BM這方面文檔通常用于C編程的。如果要用RPGLE做這個(gè)QAPI的編程，prototype 參數(shù)類型要調(diào)整。

方便的話，請把你的prototype 定義和D表相關(guān)的變量和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)

你把這個(gè)參數(shù)改為下面所示，再試試：

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)