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

轉載于:https://www.cnblogs.com/etsdpt/archive/2012/01/09/2316840.html

總結

以上是生活随笔為你收集整理的A→CALL→B时防止B程序COMMIT掉A程序文件的方法的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。