Purpose : Design and code a Cobol program and to utilize edit patterns, condition names, and the SCREEN SECTION for output definitions. Problem: The report should display the customer's number, name, purchase date, purchase price, and satisfaction rating. Define condition names associated with the satisfaction field. Test the condition names in the program. Then display an appropriate message to correspond to a customer's satisfaction rating. Insert slashes in the purchase date. Use a floating dollar sign on the purchase price. Save this program as EX3-2R

Below is the customer data sales Please include CODE TYPED: SCREEN SHOT OF OUTPUT: USE NAME RICKY

Thank you,

Input Data: Use the Customer Sales file listed in Appendix A as input. This file is named CUSTSALE.DAT and is found on the Data Disk. See the inside back cover of this book for instructions for downloading the Data Disk or see your instructor. The record layout for the customer records is as follows: Record Length 76 Output Results: A report should be displayed listing the customer number, customer name, purchase date, purchase price, and satisfaction rating. Single-space detail lines and display a count of the number of customers listed at the end of the report. The report should have a format similar to the following: DATE: Z9/99/9999 EZ AUTO SALES PAGE ZZ9 TOTAL NUMBER OF CUSTOMERS LISTED =ZZ9 END OF REPORT IDENTIFICATION DIVISION. DATE-COMPILED. PROGRAM NARRATIVE * this PROGRAM READS ALL RECORDS IN the CUStOMER SALES file * FOR EZ AUTO SALES. ONE DETAIL LINE CONTAINING THE CUSTOMER * * NUMBER, Customer NAME, PURCHASE DATE, PURCHASE PRICES, AND * * SATISFACTION RATING IS DISPLAYED FOR EACH CUSTOMER ON THE * * FILE. A COUNT OF THE RECORDS PROCESSED IS DISPLAYED AT THE * * END OF THE REPORT. * INPUT: CUSTSALE.DAT - CUSTOMER SALES FILE * OUTPUT : SCREEN - CUSTOMER SALES REPORT ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION . FILE-CONTROL. SELECT CUSTOMER-SALES-FILE ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT CUSTOMER-SALES-FILE FILE SECTION. INPUT-FILE - CUSTOMER SALES FILE FD CUSTOMER-SALES - FILE. 01 CUSTOMER-SALES-RECORD. WORKING-STORAGE SECTION . SWITCHES 01 SWITCHES. 02 SW-END-OF-FILE PIC X. 88 END-OF-FILE VALUE "Y". ACCUMULATORS 01 ACCUMULATORS. 020202AC-LINE-COUNTAC-PAGE-COUNTAC-RECORD-COUNTPIC999.PIC999.PIC9(5). 03 WA-TODAYS-DATE. 04 WA-TODAYS-YEAR PIC 9(4). 04WA-TODAYS-MONTH04WA-TODAYS-DAYPIC99.PIC99. 03 WA-TODAYS-TIME. 04 WA-TODAYS-HOUR PIC 99. 02 WA-DATE. 03 WA-MONTH PIC 99. 03 WA-DAY PIC 99. 03 WA-YEAR PIC 9(4). 02 WA-RUN-DATE REDEFINES WA-DATE PIC 9(8). 02 WA-SCREEN-HOLD PIC X. 02 WA-HYPHENS PIC X(20) VALUE ALL " -". 02 WA-SATISFACTION-RATING PIC X(12). SCREEN SECTION. Report Headings for the Customer Sales Report 01 HEADING-LINES. 02 BLANK SCREEN. LINE 1 COLUMN 1 VALUE "DATE: ". COLUMN 7 PIC Z9/99/9999 FROM WA-RUN-DATE. COLUMN 25 VALUE "EZ AUTO SALES". COLUMN 58 VALUE "PAGE ". COLUMN 63 PIC ZZ9 FROM AC-PAGE-COUNT. LINE 2 COLUMN 1 VALUE "DEB FLASKERUD". COLUMN 21 VALUE "CUSTOMER SALES REPORT". LINE 4 COLUMN 1 VALUE "CUSTOMER". COLUMN 11 VALUE "CUSTOMER". COLUMN 32 VALUE "PURCHASE". COLUMN 43 VALUE "PURCHASE". COLUMN 54 VALUE "SATISFACTION". LINE 5 COLUMN 1 VALUE "NUMBER". COLUMN 11 VALUE "NAME". COLUMN 32 VALUE "DATE". COLUMN 43 VALUE "PRICE". COLUMN 54 VALUE "RATING". LINE 6 COLUMN 1 PIC X(8) FROM WA-HYPHENS. COLUMN 11 PIC X(20) FROM WA-HYPHENS. COLUMN 32 PIC X(10) FROM WA-HYPHENS. COLUMN 43 PIC X(10) FROM WA-HYPHENS. COLUMN 54 PIC X(12) FROM WA-HYPHENS. Detail Line for the Customer Sales Report 01 DETAIL-LINE. 02 LINE AC-LINE-COUNT. 02 COLUMN 3 PIC X(4) FROM SR-CUSTOMER-NUMBER. 02020202COLUMN11PICX(20)COLUMN32PICZ9/99/9999FROMSR-PURCHASE-DATE.COLUMN43PIC$$$.99FROMSR-PURCHASE-PRICE.COLUMN54PICX(12)FROMWA-SATISFACTION-RATING.FROMSR-CUSTOMER-NAME. **************************************************************** * Summary Lines for the Customer Sales COLUMN 32 PIC Z9/99/9999 FROM SR-PURCHASE-DATE. COLUMN 43 PIC $$$.99 FROM SR-PURCHASE-PRICE. COLUMN 54 PIC X(12) FROM WA-SATISFACTION-RATING. Summary Lines for the Customer Sales Report 01 SUMMARY-LINES. 02 SL-LINE-1. 03 LINE AC-LINE-COUNT. 03 COLUMN 21 VALUE "TOTAL NUMBER OF CUSTOMERS LISTED =" " 03 COLUMN 55 PIC ZZZZ9 FROM AC-RECORD-COUNT. 02 SL-LINE-2. 03 LINE AC-LINE-COUNT. 03 COLUMN 34 VALUE "END OF REPORT". PROCEDURE DIVISION. MAIN - PROGRAM. PERFORM A-100-INITIALIZATION. PERFORM B-100-PROCESS-FILE. PERFORM C-100-WRAP-UP. STOP RUN. THE INITIALIZATION PARAGRAPH FOLLOWS A-100-INITIALIZATION . MOVE ZERO TO AC-PAGE-COUNT AC-LINE-COUNT AC-RECORD-COUNT. MOVE FUNCTION CURRENT-DATE TO WA-TODAYS-DATE-TIME. MOVE WA-TODAYS-MONTH TO WA-MONTH. MOVE WA-TODAYS-DAY TO WA-DAY. MOVE WA-TODAYS-YEAR TO WA-YEAR. OPEN INPUT CUSTOMER-SALES-FILE. FILE PROCESSING CONTROL PARAGRAPH B-100-PROCESS-FILE. MOVE "N" TO SW-END-OF-FILE. READ CUSTOMER-SALES-FILE AT END MOVE "Y" TO SW-END-OF-FILE. PERFORM B-200-PROCESS-RECORD UNTIL END-OF-FILE. ADD 1 TO AC-LINE-COUNT. DISPLAY SL-LINE-1. ADD 1 TO AC-LINE-COUNT. DISPLAY SL-LINE-2. MOVE "N" TO SW-END-OF-FILE. READ CUSTOMER-SALES-FILE AT END MOVE "Y" TO SW-END-OF-FILE. PERFORM B-200-PROCESS-RECORD UNTIL END-OF-FILE. ADD 1 TO AC-LINE-COUNT. DISPLAY SL-LINE-1. ADD 1 TO AC-LINE-COUNT. DISPLAY SL-LINE-2. / B-200-PROCESS-RECORD. IF AC-LINE-COUNT =0 ADD 1 TO AC-PAGE-COUNT DISPLAY HEADING-LINES MOVE 7 TO AC-LINE-COUNT. IF DISSATISFIED MOVE "DISSATISFIED" TO WA-SATISFACTION-RATING. IF UNDECIDED MOVE "UNDECIDED" TO WA-SATISFACTION-RATING. IF SATISFIED MOVE "SATISFIED" TO WA-SATISFACTION-RATING. DISPLAY DETAIL-LINE. ADD 1 TO AC-LINE-COUNT. ADD 1 TO AC-RECORD-COUNT. IF AC-LINE-COUNT >20 DISPLAY " " DISPLAY "PLEASE PRESS THE ENTER KEY TO CONTINUE" ACCEPT WA-SCREEN-HOLD MOVE ZERO TO AC-LINE-COUNT. READ CUSTOMER-SALES - FILE AT END MOVE "Y" TO SW-END-OF-FILE. / ****************************************************************** * END OF JOB PARAGRAPH * **************************************************************************** C-100-WRAP - UP. DISPLAY " " " DISPLAY " " " DISPLAY "PLEASE PRESS THE ENTER KEY TO CONTINUE". ACCEPT WA-SCREEN-HOLD . CLOSE CUSTOMER-SALES - FILE. DISPLAY " " " DISPLAY "CUSTOMER SALES REPORT PROGRAM HAS TERMINATED". DISPLAY " " " CUSTSALE.DAT