Program LSTREP(rtrn:string) [menu];

{ This program reports all records that are deleted to file 'DELETED.LST'
  in the CDS/ISIS work directory. }


var mfn, gone, marked: real;
var filename:          string;

Begin
  if dbn = '' then open(''); { open a database if necessary };
  if dbn <> ''
    then begin
      filename := path('SYS', 4) | 'DELETED.LST';
      assign('OUT', filename);
      writeln(out, 'Log of deleted records for database ', dbn, '   ',
              datestamp);
      writeln(out);

      gone   := 0;
      marked := 0;

      for mfn := 1 to maxmfn - 1 do begin
        cursor(22, 1);
        clearln;
        write('MFN: ', mfn:1);
        case record(mfn) of
          1: begin
               writeln(out, mfn:8, ' Marked for deletion.');
               marked := marked + 1;
               end;
          2: begin
               writeln(out, mfn:8, ' Physically deleted.');
               gone := gone + 1;
               end;
          end;
        end;
      writeln(out);
      writeln(out, marked:8, ' Records are marked for deletion.');
      writeln(out, gone:8, ' Records are physically deleted.');
      writeln(out, ((maxmfn-1)-(marked+gone)):8, ' Active records.');
      assign('OUT', '');
      cursor(23, 1);
      clearln;
      write('Report file ', filename, ' created. ---> ');
      rtrn := inkey;
      end
    else rtrn := ' ';
  end.