* READ THROUGH FILE (BASICTBL) * UPDATING COUNT FOR ANY ROWS WERE CODE = 'NICK' FBASICTBL UP E DISK C KEY COMP 'NICK' 67 C 67 ADD 1 COUNT C N67 SUB 1 COUNT C UPDATE RCDFMT