|
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.
¤ Dauer der Verarbeitung: 0.13 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
