GIVEN THE IF BELOW DO A SETUP ANY 88 LEVELS NEEDED B SETUP T

GIVEN THE IF BELOW, DO A) SETUP ANY 88 LEVELS NEEDED. B) SETUP THE PROPER AREAS FOR ACCUM. AND CONSTANTS. C) REWRITE THE IF SO THAT THE COMPUTATIONS AND MOVES ARE DONE IN MODULES (SEE LINES MARKED BY \'*\'). IF AUTHOR IF BOOK-SO IS GREATER THAN MIN-CONSTANT COMPUTE R WORK = BOOK-RATE * H A PCT CONS ADD R WORK TO H-AUT-ACCUM MOVE R WORK TO E-WORK ELSE COMPUTE R WORK = BOOK-SO * L-APCT-CONS ADD R-WORK TO L AUT ACCUM MOVE R WORK TO E WORK ELSE IF PUBLISHER ADD SAL IN TO P SAL ACCUM MOVE SAL IN TO E WORK ELSE ADD SAL IN TO N SAL ACCUM MOVE SAL IN TO E WORK. ADD E WORK TO TOTAL PAY ACCUM.

Solution

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-STRING PIC A(30).
01 PERSON PIC A(15) VALUE \'AUTHOR\'.
01 BOOK-SO PIC 99 VALUE 2.
01 MIN-CONSTANT PIC 99 VALUE 1.
01 BOOK-RATE PIC 99 VALUE 1.
01 R-WORK PIC 99 VALUE 0.
01 E-WORK PIC 99 VALUE 0 .
01 H-A-PCT-CONS PIC 99 VALUE 4 .
01 L-A-PCT-CONS PIC 99 VALUE 5 .
01 H-AUT-ACCUM PIC 99 VALUE 6.
01 L-AUT-ACCUM PIC 99 VALUE 6.
01 SAL-IN PIC 99 VALUE 7.
01 P-SAL-ACCUM PIC 99 VALUE 8.
01 N-SAL-ACCUM PIC 99 VALUE 9.
01 TOTAL-PAY-ACCUM PIC 99 VALUE 0.
PROCEDURE DIVISION.
IF PERSON=\'AUTHOR\' THEN
DISPLAY \'PERSON IS AUTHOR \'
IF BOOK-SO>MIN-CONSTANT THEN
MULTIPLY BOOK-RATE BY H-A-PCT-CONS GIVING R-WORK
ADD R-WORK,H-AUT-ACCUM GIVING E-WORK
ELSE
MULTIPLY BOOK-RATE BY L-A-PCT-CONS GIVING R-WORK
ADD R-WORK,L-AUT-ACCUM GIVING E-WORK
END-IF
ELSE
IF PERSON=\'PUBLISHER\' THEN
DISPLAY \'PERSON IS PUBLISHER\'
ADD SAL-IN,P-SAL-ACCUM GIVING E-WORK
ELSE
DISPLAY \'PERSON IS NOT AUTHOR OR PUBLISHER\'
ADD SAL-IN,N-SAL-ACCUM GIVING E-WORK
END-IF
END-IF.
ADD E-WORK,TOTAL-PAY-ACCUM GIVING TOTAL-PAY-ACCUM.
DISPLAY \'Total payment accumulated is \'
DISPLAY TOTAL-PAY-ACCUM
STOP RUN.