A→CALL→B时防止B程序COMMIT掉A程序文件的方法

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/p/2316840.html