report: proc; %replace true by '1'b, false by '0'b; %include 'attrib.dcl'; dcl rec char(max_siz), rec_no fixed; dcl data file, sysin file; dcl display entry(char(max_siz)); on undefinedfile(data) begin; put skip list('No Data Base, Use Create(c)'); go to end_report; end; on endfile(data) go to end_report; open file(data) record; do rec_no = 0 repeat(rec_no+1); read file(data) into (rec); put edit('Record',Rec_no,'') (skip,a,f(4)); call display(rec); end; end_report: close file(data); put skip(2) list('End of Report'); end report;