Columns	Contents
1 – 2	A record number.  This is provided to help you to determine if the page breaks are occurring at the right location.
3	Nothing
4 - 13	A signed number with 2 decimal places.  
Use PIC S9(7)V99 SIGN LEADING SEPARATE
14	Nothing
15 - 22	An 8-character name

       FD  INPUT-FILE.
       01  INPUT-RECORDS.
           05  RECORD-IR               PIC 99.
           05                          PIC X.
           05  NUMBER-IR               PIC S99999999V99.
           05                          PIC X.
           05  NAME-IR                 PIC X.
 
#
  *-----------------------------------------------------------------
#
       DATA DIVISION.
#
      *-----------------------------------------------------------------
#
FILE SECTION.
FD   INPUT-FILE.
01    INPUT-RECORDS.
       05  RECORD-IR     PIC 99.
       05  FILLER        PIC X.
       05  NUMBER-ID     PIC S9(7)V99.
       05  FILLER        PIC x.
       05  NAME-IR       PIC X(8).