🚀 go-pugleaf

GoldenWing wrote:
> Im haveing some trouble with this program  after the SSN is written for the
> person,  it attempts to write part of the first name in what should be blank
> space.  Im not sure how to fix this.  I realize i am quite new to cobol but
> im trying to learn as best I can. Please Help.  Thanks

I've distilled this for you...

>        FD TAX-FILE-I.
>        01  TAX-REPORT.
>            02  I-SSN                PIC X(09).
>            02  I-NAME.
>                03  I-FIRST-NAME         PIC X(10).
>                03  I-LAST-NAME          PIC X(10).
>            02  I-TAX-INCOME         PIC 9(8)V9(2).
>            02  I-TAX-REFUND         PIC 9(8)V9(2).
>            02  FILLER               PIC X(31).

...

>        01  TAX-RECORD-O.
>           02  O-SSN                PIC X(11).
>           02  FILLER               PIC 9(04).
>           02  O-NAME               PIC X(20).
>           02  FILLER               PIC X(02) VALUE SPACES.
>           02  O-TAX-INCOME         PIC $$$,$$$,$$9.9(02).
>           02  FILLER               PIC X(04) VALUE SPACES.
>           02  O-TAX-REFUND         PIC $$$,$$$,$$9.9(02).
>           02  FILLER               PIC X(03) VALUE SPACES.
>           02  O-PERCENT            PIC Z9.99.
>           02  FILLER               PIC X     VALUE '%'.

...

>        300-PROCESS-REPORT.
>            READ    TAX-FILE-I   INTO TAX-RECORD-O
>                AT END MOVE 'Y'  TO EOF
>                    NOT AT END
>                    PERFORM 310-REPORT
>            END-READ.

...

>            WRITE PRINT-RECORD     FROM    TAX-RECORD-O.

When you Read .. Into (at least with my implementation), your FD does 
not get filled.  And, since you have a mismatch in how the file is 
described and how the working-storage variable is defined, you're 
getting the extra stuff from your read...into.  I would just do the 
"Read", then move the data from the I- record to the -O record (which 
looks like what you're doing anyway - just take the into clause off and 
see what happens.)


-- 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~   /   \  /                Live from Montgomery, AL!     ~
~  /     \/       o                                       ~
~ /      /\   -   |       AIM:  LXi0007                   ~
~ _____ /  \      |    E-mail:  DanielJS "at" Knology.net ~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Remove NOSPAM to e-mail me...