DCL 1 CUSTOMER_REC BASED(CUST_PTR),
3 CUSTOMER_FIRST CHAR(10),
3 CUSTOMER_SECOND CHAR(10),
3 ADDRESS,
5 LINE1 CHAR(20),
5 LINE2 CHAR(20),
5 LINE3 CHAR(20),
3 BALANCE PIC ‘(5)9V9’;
3 CUSTOMER_FIRST CHAR(10),
3 CUSTOMER_SECOND CHAR(10),
3 ADDRESS,
5 LINE1 CHAR(20),
5 LINE2 CHAR(20),
5 LINE3 CHAR(20),
3 BALANCE PIC ‘(5)9V9’;
I want to read a file which contains x number of records and carry out some conditional operations on the records.
I think i have an idea how to read one record into the program, but how can i code it that all records are recorded regardless of how many are in the file?