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