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