My main problems are at the end starting with 200-PROCESS-REMINDER AND IN-DATE-O

Question

My main problems are at the end starting with 200-PROCESS-REMINDER AND IN-DATE-OF-LAST-ENROLLMENT it is saying that these are undefined. Help would be greatly appreciated. Thanks

My program that I have so far:

IDENTIFICATION DIVISION.
PROGRAM-ID. JohnsonBA2.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT REGISTRATION-MASTER ASSIGN TO 'registrations.dat'
ORGANIZATION IS LINE SEQUENTIAL.
SELECT REMINDER-NOTICES ASSIGN TO 'JohnsonBA2.RPT'
ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.
FILE SECTION.
FD REGISTRATION-MASTER.
01 IN-STUDENT-REC.
05 IN-STUDENT-ID PIC X(9).
05 IN-STUDENT-NAME.
10 IN-FIRST-NAME PIC X(15).
10 IN-MIDDLE-INITIAL-NAME PIC X(1).
10 IN-LAST-NAME PIC X(15).
05 DATE-OF-BIRTH.
10 DOB-YEAR PIC 9(4).
10 DOB-MONTH PIC 9(2).
10 DOB-DAY PIC 9(2).
05 IN-MAILING-ADDRESS.
10 IN-ADDRESS1 PIC X(20).
10 IN-ADDRESS2 PIC X(20).
10 IN-CITY PIC X(15).
10 IN-STATE PIC X(2).
10 IN-ZIP PIC X(9).
05 IN-ACADEMIC-PROGRAM PIC X(20).
05 IN-ACADEMIC-LEVEL PIC X(20).
05 IN-CLASS PIC X(10).
05 IN-CREDITS-COMPLETED PIC X(5).
05 IN-DATE-LAST-ENROLLMENT.
10 IN-DOLE-YEAR PIC 9(4).
10 IN-DOLE-MONTH PIC 9(2).
10 IN-DOLE-DAY PIC 9(2).
05 SEND-NOTICE PIC 9(1).

FD REMINDER-NOTICES.
01 OUT-NOTICES.
05 OUT-STUDENT-ID PIC X(9).
05 OUT-STUDENT-NAME.
10 OUT-FIRST-NAME PIC X(15).
10 OUT-MIDDLE-INITIAL-NAME PIC X(1).
10 OUT-LAST-NAME PIC X(15).
05 OUT-MAILING-ADDRESS.
10 OUT-ADDRESS1 PIC X(20).
10 OUT-ADDRESS2 PIC X(20).
10 OUT-CITY PIC X(15).
10 OUT-STATE PIC X(2).
10 OUT-ZIP PIC X(9).
05 OUT-DATE-LAST-ENROLLMENT.
10 OUT-DOLE-YEAR PIC X(4).
10 OUT-DOLE-MONTH PIC X(2).
10 OUT-DOLE-DAY PIC X(2).

WORKING-STORAGE SECTION.
01 WS-WORK-AREAS.
05 MORE-RECORDS PIC X(1) VALUE "Y".

PROCEDURE DIVISION.
*100-MAIN-MODULE - CONTROLS OPENING AND CLOSING FILES
*AND DIRECTION OF THE PROGRAM LOGIC; RETURNS CONTROL TO THE
*OPERATING SYSTEM.
100-MAIN-MODULE.
OPEN INPUT REGISTRATION-MASTER
OUTPUT REMINDER-NOTICES

PERFORM UNTIL MORE-RECORDS = "N"
READ REGISTRATION-MASTER
AT END
MOVE "N" TO MORE-RECORDS
NOT AT END
PERFORM 200-PROCESS-REMINDERS
END-READ
END-PERFORM
CLOSE REGISTRATION-MASTER
REMINDER-NOTICES
STOP RUN.
*200-PROCESS-REMINDER - PERFORMED FROM 100-MAIN-MODULE
*CHECKS THE VALUE OF THE FIELD SEND-NOTICE AND WHEN IT IS "Y"
*MOVES THAT REGISTRATION RECORD TO NOTICES AND WRITES RECORD.
200-PROCESS-REMINDER.
* IF SEND-NOTICE = "Y"
MOVE IN-STUDENT-ID TO OUT-STUDENT-ID
MOVE IN-STUDENT-NAME TO OUT-STUDENT-NAME
MOVE IN-MAILING-ADDRESS TO OUT-MAILING-ADDRESS
MOVE IN-DATE-LAST-ENROLLMENT TO OUT-DATE-LAST-ENROLLMENT
WRITE OUT-NOTICES.
* END-IF.

Field Size Type
STUDENT ID 9 Alphanumeric
STUDENT NAME
FIRST NAME 15 Alphanumeric
MIDDLE INITIAL 1 Alphanumeric
LAST NAME 15 Alphanumeric
DATE OF BIRTH
YEAR 4 Numeric
MONTH 2 Numeric
DAY 2 Numeric
MAILING ADDRESS
ADDRESS LINE 1 20 Alphanumeric
ADDRESS LINE 2 20 Alphanumeric
CITY 15 Alphanumeric
STATE 2 Alphanumeric
ZIPCODE 9 Alphanumeric
ACADEMIC PROGRAM 20 Alphanumeric
ACADEMIC LEVEL 20 Alphanumeric
CLASS 10 Alphanumeric
CREDITS COMPLETED 5 Alphanumeric
DATE OF LAST ENROLLMENT
YEAR 4 Numeric
MONTH 2 Numeric
DAY 2 Numeric
SEND NOTICE 1 Alphanumeric
REGISTRATION-MASTER Record Layout
Figure 1: REGISTRATION-MASTER Record
LayoutFigure 1: REMINDER-NOTICES Record Layout
1. Add a comment describing the purpose of the program.
2. The PROGRAM-ID section of the ENVIRONMENT DIVISION must be written as
LastnameFirstinitialA2 (e.g., BasilioEA2).
3. Add comments to provide the required class identification information.
Note: The checklist that will be used to evaluate this assignment can be found in the Course
Documents section (A2Feedback.pdf).
Field Size Type
STUDENT ID 9 Alphanumeric
STUDENT NAME
FIRST NAME 15 Alphanumeric
MIDDLE INITIAL 1 Alphanumeric
LAST NAME 15 Alphanumeric
MAILING ADDRESS
ADDRESS LINE 1 20 Alphanumeric
ADDRESS LINE 2 20 Alphanumeric
CITY 15 Alphanumeric
STATE 2 Alphanumeric
ZIPCODE 9 Alphanumeric
DATE OF LAST ENROLLMENT
YEAR 4 Numeric
MONTH 2 Numeric
DAY 2 Numeric
REMINDER-NOTICES Record Layout

dat registrati 914785236 MICHAEL 2 974125836 ERIC 3 951357456 PATRICIA 915935725 RYAN 94562583 2DANIEL 6 936925814 JOSHUA 7 931312526 BILLY 8 914151213 THOMAS 924265875CHRISTOPHER 998765418 SHIRLEY 10 AWILLIAMS P JOHNSON CSTEVENSON PDANIELS KKIRPATRICK LEWIS WAYNE BUILDER ACOLUMBUS WINSTON 197101151521 14TH STREET 196805024125 HAMILTON ROAD APT 65 19820712315 SOUTH HOPE 198709211200 MACK AVE #215 196511183000 12TH AVE 19780423300 NE 2ND AVE APT B-316 197506141100 US 231 19850805750 UNION AVE 1ST FLOOR 19921024750 COMMERCE DR 198909111400 ROSWELL RD COLUMBUS GA31901 BUSINESS UNDERGRADUATE COLUMBUS OH43230 ECONOMICS GRADUATE LOS ANGELES CA90071 MINAL JUSTICE UNDERGRADUATE MI48207 INFORMATION SYSTEMS UNDERGRADUATE DETROIT BIRMINGHAM AL35234 COMPUTER SCIENCE GRADUATE MIAM FL 33132 BUSINESS UNDERGRADUATE AL36081 INFORMATION SYSTEMS UNDERGRADUATE TROY MEMPHIS TN38103 BUSINESS GRADUATE GA 30030 COMPUTER SCIENCE UNDERGRADUATE DECATUR RIETTA GA30062 ECONOMICS UNDERGRADUATE JUNIOR 06050201201 10Y 1ST YEAR 0200020120801N SOPHN MORE 04500201207 15N JUNIOR 0955020100814 Y 2ND YEAR 04075201112 15Y SENIOR 13200 20120630N JUNIOR 085002012081 1N 1ST YEAR 0090020121 601N JUNIOR 10500201 20105Y SENIOR 1400020111115Y

Explanation / Answer

It is mainly because of Error in the names of Procedure when it is defined and when it is called.

In 100-MAIN-MODULE the procedure name specified with PERFORM statement is 200-PROCESS-REMINDERS.

But the procedure is actually defined and created with the name 200-PROCESS-REMINDER. There is a difference of letter ‘S’ between the Procedure Name with PERFORM and Procedure Name where it is actually defined.

Because of this difference error is coming as for COBOL compiler both are different Procedures. With PERFORM statement, COBOL compiler could not find the specified Procedure Name (because of the ‘S’) and hence give the error.

Related Questions

Navigate

• Browse (All)
• Browse M
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.