*> cobol-indexed-file-start-read-key-rewrite.cpy — parts master record, 48 bytes
*> Used by: cobol-indexed-file.cob (COPY inside the
*>          FD of the indexed file; the same 48 bytes arrive from the load file)
*> Positions: 1-8 part number (prime RECORD KEY, unique), 9-32 description,
*>            33-36 bin (ALTERNATE RECORD KEY WITH DUPLICATES),
*>            37-41 on hand 9(5), 42-48 unit cost 9(5)V99 (no sign, no point)
01 Part-Record.
   05 Part-No           PIC X(8).
   05 Part-Desc         PIC X(24).
   05 Part-Bin          PIC X(4).
   05 Part-On-Hand      PIC 9(5).
   05 Part-Unit-Cost    PIC 9(5)V99.