home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol079 / report.pli < prev    next >
Text File  |  1984-04-29  |  626b  |  37 lines
  1. report:
  2.     proc;
  3.     %replace
  4.         true  by '1'b,
  5.         false by '0'b;
  6.     %include 'attrib.dcl';
  7.     dcl
  8.         rec char(max_siz),
  9.         rec_no fixed;
  10.     dcl
  11.         data  file,
  12.         sysin file;
  13.     dcl
  14.         display entry(char(max_siz));
  15.  
  16.     on undefinedfile(data)
  17.         begin;
  18.         put skip list('No Data Base, Use Create(c)');
  19.         go to end_report;
  20.         end;
  21.  
  22.     on endfile(data)
  23.         go to end_report;
  24.  
  25.     open file(data) record;
  26.  
  27.         do rec_no = 0 repeat(rec_no+1);
  28.         read file(data) into (rec);
  29.         put edit('Record',Rec_no,'') (skip,a,f(4));
  30.         call display(rec);
  31.         end;
  32.  
  33.     end_report:
  34.     close file(data);
  35.     put skip(2) list('End of Report');
  36.     end report;
  37.