**free
// READ THROUGH FILE (BASICTBL)
// UPDATING COUNT FOR ANY ROWS WERE CODE = 'NICK'

dcl-f basictbl usage(*update);

dcl-c constantnicholas 'NICK';

setll 1 basictbl;

dou %error();

  read(e) basictbl;

  // if file error
  if %error();
    //  notify *sysopr that a file lock happened or something!
    leave;

  // if end of file
  elseif %eof();
    // leave the do loop
    leave;

  else;
    // if it look good then do the logic
    if key = constantnicholas;
      count += 1;
    else;
      count -= 1;
    endif;
    update rcdfmt;

  endif;

enddo;

inlr = *on;
return;