亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

^{<blockquote id="nv1cz"></blockquote>}

Chinaunix

標(biāo)題: 求助：系統(tǒng)api過程QjoRetrieveJournalEntries調(diào)用后，運行問題 [打印本頁]

作者: hornit 時間: 2012-04-29 10:22
標(biāo)題: 求助：系統(tǒng)api過程QjoRetrieveJournalEntries調(diào)用后，運行問題
前兩天因為要優(yōu)化個程序，取日志的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)用的時候出現(xiàn)了錯誤，具體如下：
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 時間: 2012-04-29 10:29
補充：以前也這么用過，都好用

作者: hornit 時間: 2012-04-29 13:42
人呢？？

作者: hornit 時間: 2012-04-29 13:43

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

雖然不是這個api，同類的，也好用

作者: hornit 時間: 2012-04-29 15:27
我郁悶，同一個服務(wù)程序包里面的QjoRetrieveJournalInformation就可以調(diào)用
有用過的么?

作者: passthru 時間: 2012-04-29 23:29
本帖最后由 passthru 于 2012-04-30 00:56 編輯

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

建議debug跟蹤一下。

作者: hornit 時間: 2012-04-30 08:45

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

跟蹤了，到callp位置就報如上的錯誤

作者: sherrylee0316 時間: 2012-04-30 09:44
提示: 作者被禁止或刪除內(nèi)容自動屏蔽

作者: passthru 時間: 2012-04-30 11:29
本帖最后由 passthru 于 2012-04-30 11:44 編輯

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

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

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

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

方便的話，請把你的prototype 定義和D表相關(guān)的變量和DS代碼，以及H表中定義的bnddir值，一同貼出來。

作者: passthru 時間: 2012-04-30 16:42
本帖最后由 passthru 于 2012-04-30 16:56 編輯

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)

你把這個參數(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)

歡迎光臨 Chinaunix (http://72891.cn/)