Homework SourseCobol Error Its states that my patronline wasnt defined as a
Cobol Error? Its states that my patron-line wasnt defined as a data name and none of my header, column and footers are not defined as data name could you see the error?
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG-ONE.
AUTHOR. MARKIED JONES.
FD PATRON-LIST.
01 PATRON-LINE PIC X(80).
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT PATRON-FILE ASSIGN TO INFILE.
SELECT PATRON-LIST ASSIGN TO OUTFILE.
DATA DIVISION.
FILE SECTION.
FD PATRON-FILE.
01 PATRON-RECORD.
03 PR-NAME PIC X(18).
03 PR-ADDRESS PIC X(18).
03 PR-CITY-STATE-ZIP PIC X(24).
03 PR-TARGET-CONTR PIC 9(4).
03 PR-ACTUAL-CONTR PIC 9(4).
03 PR-CONTR-DATE.
05 PR-CONTR-MONTH PIC XX.
05 PR-CONTR-DAY PIC XX.
05 PR-CONTR-YEAR PIC XX.
03 FILLER PIC X(6).
03 FILLER PIC X.
WORKING-STORAGE SECTION.
01 PATRON-LINE-1.
03 FILLER PIC X.
03 PL-NAME PIC X(18) .
03 FILLER PIC X.
03 PL-ADDRESS PIC X(18).
03 FILLER PIC XX.
03 PL-CITY-STATE-ZIP PIC X(24).
01 WS-HEADER-LINE-1.
03 FILLER PIC X(18) VALUE SPACES.
03 FILLER PIC X(7) VALUE \"INDIANA\".
03 FILLER PIC X VALUE SPACE.
03 FILLER PIC X(10) VALUE \"UNIVERSITY\".
03 FILLER PIC X VALUE SPACE.
03 FILLER PIC X(2) VALUE \"OF\".
03 FILLER PIC X VALUE SPACE.
03 FILLER PIC X(12) VALUE \"PENNSYLVANIA\".
01 WS-HEADER-LINE-1-UL.
03 FILLER PIC X(18) VALUE SPACES.
03 FILLER PIC X(7) VALUE \"-\".
03 FILLER PIC X VALUE SPACE.
03 FILLER PIC X(10) VALUE \"-\".
03 FILLER PIC X VALUE SPACE.
03 FILLER PIC X VALUE \"-\".
01 HEADER-LINE-2.
03 FILLER PIC X(20) VALUE SPACES.
03 FILLER PIC X(8) VALUE \"COMPUTER\".
03 FILLER PIC X VALUE SPACE.
03 FILLER PIC X(7) VALUE \"SCIENCE\".
03 FILLER PIC X VALUE SPACE.
03 FILLER PIC X(10) VALUE \"DEPARTMENT\".
01 HEADER-LINE-2-UL.
03 FILLER PIC X(20) VALUE SPACES.
03 FILLER PIC X(8) VALUE ALL \"-\".
03 FILLER PIC X VALUE SPACE.
03 FILLER PIC X(7) VALUE ALL \"=\".
03 FILLER PIC X VALUE SPACE.
03 FILLER PIC X(10) VALUE ALL \"-\".
01 HEADER-LINE-3.
03 FILLER PIC X(22) VALUE SPACES.
03 FILLER PIC X(7) VALUE \"LISTING\".
03 FILLER PIC X VALUE SPACE.
03 FILLER PIC X(2) VALUE \"OF\".
03 FILLER PIC X VALUE SPACE.
03 FILLER PIC X(7) VALUE \"PATRONS\".
01 HEADER-LINE-3-UL.
03 FILLER PIC X(22) VALUE SPACES.
03 FILLER PIC X(7) VALUE \"-\".
03 FILLER PIC X VALUE SPACE.
03 FILLER PIC X(6) VALUE \"-\".
03 FILLER PIC X(15) VALUE SPACES.
03 FILLER PIC X(6) VALUE \"-\".
01 WS-COLUMN-HEADER-2.
03 FILLER PIC X(4) VALUE SPACES.
03 FILLER PIC X(4) VALUE \"NAME\".
03 FILLER PIC X(8) VALUE SPACES.
03 FILLER PIC X(7) VALUE \"ADDRESS\".
03 FILLER PIC X(12) VALUE SPACES.
03 FILLER PIC X(14) VALUE \"CITY-STATE-ZIP\".
01 WS-COLUMN-HEADER-2UL.
03 FILLER PIC X(4) VALUE SPACES.
03 FILLER PIC X(4) VALUE \"-\".
03 FILLER PIC X(8) VALUE SPACES.
03 FILLER PIC X(7) VALUE \"-\".
03 FILLER PIC X(12) VALUE SPACES.
03 FILLER PIC X(14) VALUE \"-\".
01 WS-FOOTER-LINE-1.
03 FILLER PIC X(24) VALUE
\"TOTAL # OF PATRONS:\".
03 WS-NUM-PATRONS PIC Z9.
01 WS-FOOTER-LINE-2.
03 FILLER PIC X(32) VALUE
\"PROGRAMMED BY A COSC 220 STUDENT\".
01 WS-EOF-SWITCH PIC X(80).
PROCEDURE DIVISION.
000-PRINT-PATRON-LIST.
OPEN INPUT PATRON-FILE
OUTPUT PATRON-LIST
MOVE \"NO\" TO WS-EOF-SWITCH
READ PATRON-FILE
AT END MOVE \"YES\" TO WS-EOF-SWITCH
END-READ
PERFORM 100-PROCESS-PATRON-RECORD
UNTIL WS-EOF-SWITCH IS EQUAL TO \"YES\"
CLOSE PATRON-FILE PATRON-LIST
STOP RUN
.
050-WRITE-HEADERS-PARA.
WRITE PATRON-LINE FROM WS-HEADER-LINE-1
WRITE PATRON-LINE FROM WS-HEADER-LINE-1-UL
WRITE PATRON-LINE FROM WS-HEADER-LINE-2-UL
WRITE PATRON-LINE FROM WS-HEADER-LINE-3
WRITE PATRON-LINE FROM WS-HEADER-LINE-3-UL
MOVE SPACES TO PATRON RECORD
WRITE PATRON-LINE FROM COLUM-HEADER-1
WRITE PATRON-LINE FROM COLUM-HEADER-1-UL
WRITE PATRON-LINE FROM WS-COLUM-HEADER-2
WRITE PATRON-LINE FROM WS-COLUM-HEADER-2-UL
WRITE PATRON-LINE FROM WS-FOOTER-LINE-1
WRITE PATRON-LINE FROM WS-FOOTER-LINE-2
MOVE SPACES TO PATRON RECORD
WRITE PATRON RECORD
.
100-PROCESS-PATRON-RECORD.
MOVE PR-NAME TO PL-NAME
MOVE PR-ADDRESS TO PL-ADDRESS
MOVE PR-CITY-STATE-ZIP TO PL-CITY-STATE-ZIP
WRITE PATRON-LINE
READ PATRON-FILE
AT END MOVE \"YES\" TO WS-EOF-SWITCH
END-READ
.
Errors:
144 IGYPS2121-S \"PATRON-LINE\" was not defined as a data-name. The stateme
Same message on line: 145 146 147 148 149
146 IGYPS2121-S \"WS-HEADER-LINE-2\" was not defined as a data-name. The st
147 IGYPS2121-S \"WS-HEADER-LINE-2-UL\" was not defined as a data-name. The
148 IGYPS2121-S \"WS-HEADER-LINE-3\" was not defined as a data-name. The st
149 IGYPS2121-S \"WS-HEADER-LINE-3-UL\" was not defined as a data-name. The
150 IGYPS2121-S \"PATRON\" was not defined as a data-name. The statement wa
Same message on line: 159 160
150 IGYPS2072-S \"RECORD\" was invalid. Skipped to the next verb, period or
Same message on line: 159 160
152 IGYPS2121-S \"COLUM-HEADER-1\" was not defined as a data-name. The stat
153 IGYPS2121-S \"COLUM-HEADER-1-UL\" was not defined as a data-name. The s
154 IGYPS2121-S \"WS-COLUM-HEADER-2\" was not defined as a data-name. The s
155 IGYPS2121-S \"WS-COLUM-HEADER-2-UL\" was not defined as a data-name. Th
Solution
IDENTIFICATION DIVISION.
PROGRAM-ID. PROG-ONE.
AUTHOR. MARKIED JONES.
FD PATRON-LIST.
01 PATRON-LINE PIC X(80).
surroundings DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
choose PATRON-FILE ASSIGN TO INFILE.
choose PATRON-LIST ASSIGN TO OUTFILE.
knowledge DIVISION.
FILE SECTION.
FD PATRON-FILE.
01 PATRON-RECORD.
03 PR-NAME PIC X(18).
03 PR-ADDRESS PIC X(18).
03 PR-CITY-STATE-ZIP PIC X(24).
03 PR-TARGET-CONTR PIC 9(4).
03 PR-ACTUAL-CONTR PIC 9(4).
03 PR-CONTR-DATE.
05 PR-CONTR-MONTH PIC XX.
05 PR-CONTR-DAY PIC XX.
05 PR-CONTR-YEAR PIC XX.
03 FILLER PIC X(6).
03 FILLER PIC X.
WORKING-STORAGE SECTION.
01 PATRON-LINE-1.
03 FILLER PIC X.
03 PL-NAME PIC X(18) .
03 FILLER PIC X.
03 PL-ADDRESS PIC X(18).
03 FILLER PIC XX.
03 PL-CITY-STATE-ZIP PIC X(24).
01 WS-HEADER-LINE-1.
03 FILLER PIC X(18) price areas.
03 FILLER PIC X(7) price \"INDIANA\".
03 FILLER PIC X price area.
03 FILLER PIC X(10) price \"UNIVERSITY\".
03 FILLER PIC X price area.
03 FILLER PIC X(2) price \"OF\".
03 FILLER PIC X price area.
03 FILLER PIC X(12) price \"PENNSYLVANIA\".
01 WS-HEADER-LINE-1-UL.
03 FILLER PIC X(18) price areas.
03 FILLER PIC X(7) price \"-\".
03 FILLER PIC X price area.
03 FILLER PIC X(10) price \"-\".
03 FILLER PIC X price area.
03 FILLER PIC X price \"-\".
01 HEADER-LINE-2.
03 FILLER PIC X(20) price areas.
03 FILLER PIC X(8) price \"COMPUTER\".
03 FILLER PIC X price area.
03 FILLER PIC X(7) price \"SCIENCE\".
03 FILLER PIC X price area.
03 FILLER PIC X(10) price \"DEPARTMENT\".
01 HEADER-LINE-2-UL.
03 FILLER PIC X(20) price areas.
03 FILLER PIC X(8) price ALL \"-\".
03 FILLER PIC X price area.
03 FILLER PIC X(7) price ALL \"=\".
03 FILLER PIC X price area.
03 FILLER PIC X(10) price ALL \"-\".
01 HEADER-LINE-3.
03 FILLER PIC X(22) price areas.
03 FILLER PIC X(7) price \"LISTING\".
03 FILLER PIC X price area.
03 FILLER PIC X(2) price \"OF\".
03 FILLER PIC X price area.
03 FILLER PIC X(7) price \"PATRONS\".
01 HEADER-LINE-3-UL.
03 FILLER PIC X(22) price areas.
03 FILLER PIC X(7) price \"-\".
03 FILLER PIC X price area.
03 FILLER PIC X(6) price \"-\".
03 FILLER PIC X(15) price areas.
03 FILLER PIC X(6) price \"-\".
01 WS-COLUMN-HEADER-2.
03 FILLER PIC X(4) price areas.
03 FILLER PIC X(4) price \"NAME\".
03 FILLER PIC X(8) price areas.
03 FILLER PIC X(7) price \"ADDRESS\".
03 FILLER PIC X(12) price areas.
03 FILLER PIC X(14) price \"CITY-STATE-ZIP\".
01 WS-COLUMN-HEADER-2UL.
03 FILLER PIC X(4) price areas.
03 FILLER PIC X(4) price \"-\".
03 FILLER PIC X(8) price areas.
03 FILLER PIC X(7) price \"-\".
03 FILLER PIC X(12) price areas.
03 FILLER PIC X(14) price \"-\".
01 WS-FOOTER-LINE-1.
03 FILLER PIC X(24) price
\"TOTAL # OF PATRONS:\".
03 WS-NUM-PATRONS PIC Z9.
01 WS-FOOTER-LINE-2.
03 FILLER PIC X(32) price
\"PROGRAMMED BY A COSC 220 STUDENT\".
01 WS-EOF-SWITCH PIC X(80).
PROCEDURE DIVISION.
000-PRINT-PATRON-LIST.
OPEN INPUT PATRON-FILE
OUTPUT PATRON-LIST
MOVE \"NO\" TO WS-EOF-SWITCH
scan PATRON-FILE
AT finish MOVE \"YES\" TO WS-EOF-SWITCH
END-READ
PERFORM 100-PROCESS-PATRON-RECORD
till WS-EOF-SWITCH IS adequate to \"YES\"
shut PATRON-FILE PATRON-LIST
STOP RUN
.
050-WRITE-HEADERS-PARA.
WRITE PATRON-LINE FROM WS-HEADER-LINE-1
WRITE PATRON-LINE FROM WS-HEADER-LINE-1-UL
WRITE PATRON-LINE FROM WS-HEADER-LINE-2-UL
WRITE PATRON-LINE FROM WS-HEADER-LINE-3
WRITE PATRON-LINE FROM WS-HEADER-LINE-3-UL
MOVE areas TO PATRON RECORD
WRITE PATRON-LINE FROM COLUM-HEADER-1
WRITE PATRON-LINE FROM COLUM-HEADER-1-UL
WRITE PATRON-LINE FROM WS-COLUM-HEADER-2
WRITE PATRON-LINE FROM WS-COLUM-HEADER-2-UL
WRITE PATRON-LINE FROM WS-FOOTER-LINE-1
WRITE PATRON-LINE FROM WS-FOOTER-LINE-2
MOVE areas TO PATRON RECORD
WRITE PATRON RECORD
.
100-PROCESS-PATRON-RECORD.
MOVE PR-NAME TO PL-NAME
MOVE PR-ADDRESS TO PL-ADDRESS
MOVE PR-CITY-STATE-ZIP TO PL-CITY-STATE-ZIP
WRITE PATRON-LINE
scan PATRON-FILE
AT finish MOVE \"YES\" TO WS-EOF-SWITCH
END-READ
.
Errors:
144 IGYPS2121-S \"PATRON-LINE\" wasn\'t outlined as a data-name. The stateme
Same message on line: a hundred forty five 146 147 148 149
146 IGYPS2121-S \"WS-HEADER-LINE-2\" wasn\'t outlined as a data-name. The st
147 IGYPS2121-S \"WS-HEADER-LINE-2-UL\" wasn\'t outlined as a data-name. The
148 IGYPS2121-S \"WS-HEADER-LINE-3\" wasn\'t outlined as a data-name. The st
149 IGYPS2121-S \"WS-HEADER-LINE-3-UL\" wasn\'t outlined as a data-name. The
150 IGYPS2121-S \"PATRON\" wasn\'t outlined as a data-name. The statement American state
Same message on line: 159 a hundred and sixty
150 IGYPS2072-S \"RECORD\" was invalid. Skipped to succeeding verb, period or
Same message on line: 159 a hundred and sixty
152 IGYPS2121-S \"COLUM-HEADER-1\" wasn\'t outlined as a data-name. The stat
153 IGYPS2121-S \"COLUM-HEADER-1-UL\" wasn\'t outlined as a data-name. The s
154 IGYPS2121-S \"WS-COLUM-HEADER-2\" wasn\'t outlined as a data-name. The s
155 IGYPS2121-S \"WS-COLUM-HEADER-2-UL\" wasn\'t outlined as a data-name. Th
