Quelle  FileRead.cbl   Sprache: Cobol

DATA DIVISION. 
FILE SECTION. 
FD CUSTOMERFile 
LABEL RECORDS ARE STANDARD. 
01 CUSTOMER-DETAILS. 
02 ID-CUSTOMER PIC 9(3). 
02 CUSTOMER-NAME. 
03 LAST-NAME PIC X(20). 
03 FIRST-NAME PIC X(20). 
02 ADDRESS-1. 
03 TOWN PIC X(20). 
03 STREET PIC X(20). 
03 NUMBER-HOUSE PIC 9(3). 
03 NIP PIC X(13). 
... 
... 
GENERATE-REPORT. 
PERFORM READ-NEXT-RECORD. 
PERFORM DISPLAY-RECORDS-FROM-CUSTOMERS 
UNTIL END-OF-FILE-CUSTOMER = "Y". 
READ-NEXT-RECORD. 
READ CUSTOMERFile NEXT RECORD 
AT END 
MOVE "Y" TO END-OF-FILE-CUSTOMER. 
*---------------------------------------------------------------- 
DISPLAY-RECORDS-FROM-CUSTOMERS. 
DISPLAY LAST-NAME. 
PERFORM READ-NEXT-RECORD.