關(guān)于動(dòng)態(tài)調(diào)用RPGLE程序的問題

xml1988

邏輯：
       A程序循環(huán)動(dòng)態(tài)生成并調(diào)用B程序。每次生成B程序前會(huì)刪除B程序，并執(zhí)行DLCOBJ命令。
運(yùn)行：
       B程序每次都正常創(chuàng)建，但運(yùn)行結(jié)果始終為第一次生成的B程序的運(yùn)行結(jié)果。




     

xml1988

好吧，現(xiàn)在運(yùn)行都不行了，第二次CALL B程序時(shí)報(bào)錯(cuò)：
tried to refer to all or part of an object that no longer exists

xml1988

懷疑問題可能在這幾個(gè)地方：
1)編譯時(shí)的參數(shù)問題。
2）激活組的問題。

問題原因可能是可執(zhí)行程序沒有在內(nèi)存中釋放。

xml1988

總結(jié)下測(cè)試結(jié)果：
1）動(dòng)態(tài)生成B程序，生成前執(zhí)行刪除B程序操作，運(yùn)行時(shí)報(bào)錯(cuò)tried to refer to all or part of an object that no longer exists。
2）不執(zhí)行刪除B程序操作，程序正常執(zhí)行，但B程序始終執(zhí)行的是第一次創(chuàng)建并加載的B程序（即無法動(dòng)態(tài)加載B程序）
考慮可能是B程序在第一次執(zhí)行時(shí)加載到內(nèi)存，此時(shí)如果執(zhí)行了刪除B程序操作，后續(xù)繼續(xù)調(diào)用B程序時(shí)將報(bào)錯(cuò)找不到程序（即使重新生成B程序也沒用）。但如果不刪除B程序，采用替換B程序目標(biāo)方式的話，程序不會(huì)報(bào)錯(cuò)，但由于B程序已經(jīng)加載到內(nèi)存，不會(huì)繼續(xù)加載替換的程序，因此執(zhí)行的始終是第一次加載到內(nèi)存的B程序。
嘗試使用DLCOBJ、RCLRSC清理都無效。
嘗試使用SETOBJACC ALCOBJ命令手動(dòng)加載也無效。

xml1988

考慮一個(gè)新的方案：在A與B之間加一個(gè)C程序，A—》C—》B。

xml1988

新方案問題解決。

pacman2000

把B程序編譯成新的激活組試試。

xml1988

回復(fù) 7# pacman2000
怎么操作？

   

pacman2000

xml1988 發(fā)表于 2013-09-23 17:28
回復(fù) 7# pacman2000
怎么操作？

編譯B程序的時(shí)候，Activation group選擇*NEW，如果有Default activation group，選擇*NO。

xml1988

回復(fù) 9# pacman2000


    謝謝，測(cè)試去。