* READ THROUGH FILE (BASICTBL) * UPDATING COUNT FOR ANY ROWS WERE CODE = 'NICK' FBASICTBL UF E DISK C 1 SETLL BASICTBL C DO *HIVAL C READ BASICTBL 9095 * If file error C *IN90 IFEQ *ON * notify *SYSOPR that a file lock happened C LEAVE C ELSE * If end of file then leave the DO loop C *IN95 IFEQ *ON C LEAVE C ELSE * if it look good then do the logic C KEY IFEQ 'NICK' C ADD 1 COUNT C ELSE C SUB 1 COUNT C ENDIF C UPDATE RCDFMT C ENDIF C ENDIF C ENDDO C MOVE *ON *INLR C RETURN