求助：关于QTEMP的问题

www607

我在RPG中CALL TTEMP
                FREE TTEMP
然后在TTEMP这个CL程序中建立了一个TEMP FILE到QTEMP中：
RTVOBJD    OBJ(DTEMP) OBJTYPE(*FILE) RTNLIB(&FILLIB)   
CRTDUPOBJ  OBJ(DTEMP*) FROMLIB(&FILLIB) OBJTYPE(*FILE) +
             TOLIB(QTEMP)                                
OVRDBF     FILE(DTEMP)   TOFILE(QTEMP/DTEMP)           
OVRDBF     FILE(DTEMPL0) TOFILE(QTEMP/DTEMPL0)   
程序运行完成后应该QTEMP中的库自动释放吧。
但是当程序运行完成后再次运行发生错误，说DTEMP，DTEMPL0在QTEMP已经存在，当上次程序完成后他并没有释放，不知道是什么原因，该如何解决呢？
望大家指教！

hanyu

作业结束后，会自动清空，程序退出不自动清，可以在程序内部清

xuguopeng

你的QTEMP是针对你登陆到系统的那个JOB的 只有在你退出系统的时候才会释放

如果你把程序SBMJOB的话应该就可以了

www607

可是在RPG的时候已经FREE了还是不行么？

www607

原帖由 hanyu 于 2006-3-3 09:35 发表
作业结束后，会自动清空，程序退出不自动清，可以在程序内部清

在CL中如何清？

xuguopeng

原帖由 www607 于 2006-3-3 09:36 发表
可是在RPG的时候已经FREE了还是不行么？

你还是没明白我说的话，你的QTEMP是针对你登陆到系统后的作业，而不是针对于哪个程序，在你没注销以前系统都会认为你这个作业还没有结束，所以就不会释放QTEMP。

www607

原帖由 xuguopeng 于 2006-3-3 09:56 发表



你还是没明白我说的话，你的QTEMP是针对你登陆到系统后的作业，而不是针对于哪个程序，在你没注销以前系统都会认为你这个作业还没有结束，所以就不会释放QTEMP。

哦，知道了，谢谢你的提醒。
那该如何解决呢？

sunokla

你程序中打开了覆盖，试下在程序中写 DLTOVR FILE(文件 名  ) 删除覆盖

sunokla

LZ,问题如果能解决，请发个帖子回复一下解决方法行吗？

www607

现在已经解决了，我在CRTDUPOBJ的前面清除QTEMP中的文件并判断是否存在
如果不存在则进行CRTDUPOBJ，否则就不在建立了，这样系统就不会报错了。
不知道还有没有其他方法呢？