Precision Fields Oversize Themselves in Copybooks

Problem

Signed precision fields use several adjacent fields and oversize themselves in copybooks.

Cause

Copybooks don't correctly parse and identify the end of a decimal length string if the copybooks have leading line numbers, as in the following examples:

000001 01 STARR-SPECIFIC-DATA.
000002 03 PDS-FIXED-PORTION.
000003 05 PDS-SPECIMEN-NUM.
000004 10 PDS-SPEC-YEAR-PREFIX PIC X(01).
000005 10 PDS-SPEC-JULIAN-DATE PIC X(03).
000006 10 PDS-SPEC-ACCESSION-CODE PIC X(03).
000007 10 PDS-SPEC-SEQUENCE PIC X(04).
000008 10 PDS-SPEC-SUFFIX PIC X(01).
000009 05 PDS-PTD-DATA.
 

Solution

Remove leading line numbers from copybooks. The above examples should instead appear as:

01 STARR-SPECIFIC-DATA.
03 PDS-FIXED-PORTION.
05 PDS-SPECIMEN-NUM.
10 PDS-SPEC-YEAR-PREFIX PIC X(01).
10 PDS-SPEC-JULIAN-DATE PIC X(03).
10 PDS-SPEC-ACCESSION-CODE PIC X(03).
10 PDS-SPEC-SEQUENCE PIC X(04).
10 PDS-SPEC-SUFFIX PIC X(01).
05 PDS-PTD-DATA.