Apple stores would like to keep track of sales product and i
Apple stores would like to keep track of sales, product, and inventory information. Assume you have been asked to design a database to achieve this goal. Additionally, consider what potential sales reports an executive may want from this database and write one example of the report.1. List all possible entities.
2. Explain why you selected these entities.
3. Draw an EER diagram and their relationships. Make sure you pay attention to ERD notations and naming conventions.
4. Describe the report the sales executive may want to see. Make sure these additional entities and attributes are included in your diagram.
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



