*> cobol-read-sequential-file.cpy — customer record layout, 60 bytes
*> Used by: cobol-read-sequential-file.cob (COPY inside the FD)
*> Positions: 1-6 id, 7-31 name, 32-46 city, 47-55 balance 9(7)V99
*>            (no sign, no decimal point in the file), 56 D/C flag,
*>            57-60 filler
01 Customer-Record.
   05 Cust-Id           PIC 9(6).
   05 Cust-Name         PIC X(25).
   05 Cust-City         PIC X(15).
   05 Cust-Balance      PIC 9(7)V99.
   05 Cust-DC           PIC X.
   05 FILLER            PIC X(4).