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).