|
|
|
关键字:操作系统
|
来源:8844软件服务
pqspqs创建于
2006-12-26 06:39 阅读
29次
网友评论
条 |
怪怪的问题.
程序流程大致如下:
PGMA:
FFILEA UF K E DISK COMMIT
*LOVAL SETLL RECFILEA
KEY READE RECFILEA 50
CALL PGMB
EVAL FIELD1='S'
UPDATE RECFILEA 20
因为PGMB中有一个COMMIT操作,返回时对FILEA的更新操作失败.
出错信息为找不到FILEA之前定位的指针.
去掉PGMB中的COMMIT操作,则返回后更新成功.
经确认,PGMB及其相关调用程序并没有对FILEA进行任何操作.
请问各位大侠为什么会这样呢?
下级程序的COMMIT操作怎么会影响上级程序的文件指针呢.
tianyi 回复于:2004-04-20 18:00:47
PGMB中的COMMIT是对FILEA操作的吧。
能不能提供PGMB的代码?
smile-wz 回复于:2004-04-21 11:55:13
"经确认,PGMB及其相关调用程序并没有对FILEA进行任何操作."
如果PGMB中的COMMIT对FILEA进行了操作,此问题就好理解了.
事实上PGMB中根本就没用到FILEA. PGMB调用的子程序,包括可能触发的TRIGGER也都没有用到FILEA.
dave2004 回复于:2004-04-21 14:31:43
Try modify your program like this:
PGMA:
FFILEA UF K E DISK COMMIT[color=red:ee7c8fbf62](Switch)[/color:ee7c8fbf62]
*LOVAL SETLL RECFILEA
KEY READE RECFILEA 50
[color=red:ee7c8fbf62]eval Switch='2'[/color:ee7c8fbf62]
CALL PGMB
[color=red:ee7c8fbf62]eval Switch='1'[/color:ee7c8fbf62]
EVAL FIELD1='S'
UPDATE RECFILEA 20
smile-wz 回复于:2004-04-21 16:04:28
高手啊.做斑竹吧.
|
|
|
『打印』
『收藏』
『导出Word』
|