被调程序中的COMMIT操作会影响调用程序中的文件吗

发布: 2007-6-08 22:43 | 作者: seanhe | 来源: | 查看: 23次 | 进入软件测试论坛讨论

怪怪的问题.
程序流程大致如下:
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

高手啊.做斑竹吧.