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

smile-wz

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

PGMB中的COMMIT是对FILEA操作的吧。
能不能提供PGMB的代码？

smile-wz

"经确认,PGMB及其相关调用程序并没有对FILEA进行任何操作."
如果PGMB中的COMMIT对FILEA进行了操作,此问题就好理解了.
事实上PGMB中根本就没用到FILEA. PGMB调用的子程序,包括可能触发的TRIGGER也都没有用到FILEA.

dave2004

Try modify your program like this:
PGMA:
FFILEA UF K E DISK COMMIT(Switch)
*LOVAL SETLL RECFILEA
KEY READE RECFILEA 50
eval Switch='2'
CALL PGMB
eval Switch='1'
EVAL FIELD1='S'
UPDATE RECFILEA 20

smile-wz

高手啊.做斑竹吧.