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

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

高手啊.做斑竹吧.

原文转自：http://www.ltesting.net