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
相关文章：
相似解决方案
热门标签
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
相关文章：