关于动态调用RPGLE程序的问题

xml1988

逻辑：
       A程序循环动态生成并调用B程序。每次生成B程序前会删除B程序，并执行DLCOBJ命令。
运行：
       B程序每次都正常创建，但运行结果始终为第一次生成的B程序的运行结果。




     

xml1988

好吧，现在运行都不行了，第二次CALL B程序时报错：
tried to refer to all or part of an object that no longer exists

xml1988

怀疑问题可能在这几个地方：
1)编译时的参数问题。
2）激活组的问题。

问题原因可能是可执行程序没有在内存中释放。

xml1988

总结下测试结果：
1）动态生成B程序，生成前执行删除B程序操作，运行时报错tried to refer to all or part of an object that no longer exists。
2）不执行删除B程序操作，程序正常执行，但B程序始终执行的是第一次创建并加载的B程序（即无法动态加载B程序）
考虑可能是B程序在第一次执行时加载到内存，此时如果执行了删除B程序操作，后续继续调用B程序时将报错找不到程序（即使重新生成B程序也没用）。但如果不删除B程序，采用替换B程序目标方式的话，程序不会报错，但由于B程序已经加载到内存，不会继续加载替换的程序，因此执行的始终是第一次加载到内存的B程序。
尝试使用DLCOBJ、RCLRSC清理都无效。
尝试使用SETOBJACC ALCOBJ命令手动加载也无效。

xml1988

考虑一个新的方案：在A与B之间加一个C程序，A—》C—》B。

xml1988

新方案问题解决。

pacman2000

把B程序编译成新的激活组试试。

xml1988

回复 7# pacman2000
怎么操作？

   

pacman2000

xml1988 发表于 2013-09-23 17:28
回复 7# pacman2000
怎么操作？

编译B程序的时候，Activation group选择*NEW，如果有Default activation group，选择*NO。

xml1988

回复 9# pacman2000


    谢谢，测试去。