Question: Redo these WORKING-STORAGE fields and subsequent code to make use of 88-level condition names. FD STUDENT-FILE. 01 STUDENT-RECORD. 03 SR-NAME PIC X(20). 03 SR-YEAR-CODE PIC

Redo these WORKING-STORAGE fields and subsequent code to make use of 88-level condition names.

FD STUDENT-FILE.

01 STUDENT-RECORD.

03 SR-NAME PIC X(20).

03 SR-YEAR-CODE PIC 9.

03 SR-TOTAL-CREDITS PIC 999V9.

. . .

WORKING-STORAGE SECTION.

01 WS-SWITCHES.

03 WS-EOF-SWITCH PIC X(3) VALUE 'NO'.

. . .

000-MAIN-LOOP.

READ STUDENT-FILE AT END

MOVE 'YES' TO WS-EOF-SWITCH

END-READ

* Check if code is valid

IF SR-YEAR-CODE > 0 AND < 9

PERFORM 100-PROCESS-STUDENT-RECORD

UNTIL WS-EOF-SWITCH = 'YES'

END-IF

. . .

STOP RUN

.

100-PROCESS-STUDENT-RECORD.

IF SR-YEAR-CODE = 1

PERFORM 200-WELCOME-NEW-STUDENTS

END-IF

IF SR-YEAR-CODE = 1 OR 2

PERFORM 210-WELCOME-UNDER-CLASSMAN

END-IF

.

Paragraph name

5 8

Code the processing of the YEAR-CODE value using

a.IF statements

b.EVALUATE statement

(For both, use the paragraph names mentioned in the chart. Use the DISPLAY statement to display an error message if the code isnt valid.)

Step by Step Solution

There are 3 Steps involved in it

1 Expert Approved Answer
Step: 1 Unlock blur-text-image
Question Has Been Solved by an Expert!

Get step-by-step solutions from verified subject matter experts

Step: 2 Unlock
Step: 3 Unlock

Students Have Also Explored These Related Databases Questions!