* READ THROUGH FILE (BASICTBL) UPDATING COUNT FOR ANY ROWS WERE CODE = 'NICK' FBASICTBLUP E DISK * THIS IS THE MAINLINE C KEY COMP 'NICK' 67 C 67 ADD 1 COUNT C N67 SUB 1 COUNT C UPDATRCDFMT