Code Working-Storage and Linkage data structures using section keywords.
IO INPUT-FILE ASSIGN TO UT-S-INPUT FD INPUT-FILE LABEL RECORDS ARE STANDARD BLOCK CONTAINS 0 RECORDS 01 INPUT-REC PIC X(80). WS REC WS-INPUT-REC. WS-IN-PART-NO N8 WS-IN-DESC X50 WS-IN-BASE-PRICE N6V2 LK REC LK-INPUT-REC LK-IN-PART-NO N8 LK-IN-DESC X50 LK-IN-BASE-PRICE N6V2 01 LK-OUT-REC. DS05 LK-OUT-REC