IDENTIFICATION DIVISION.
       PROGRAM-ID. INVENTORY-PROJECT-1.
       AUTHOR. Mel Sanschagrin Professor Computer Studies.

       ENVIRONMENT DIVISION.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT INVENT-FILE-OUT
               ASSIGN TO "C:\INVENT.TXT"
                  ORGANIZATION IS LINE SEQUENTIAL.

       DATA DIVISION.
       FD  INVENT-FILE-OUT.
       01  INVENT-RECORD-OUT.
           05  INVENTORY-PART-NUMBER  PIC 9(9).
           05  INVENTORY-QUANTITY      PIC 9(4).

       WORKING-STORAGE SECTION.
       01  PROMPTS.
           05  PROMPT-FOR-RECORD            PIC X(22)
               VALUE "RECORD TO ENTER Y or N".
           05  PROMPT-FOR-INVENTORY-NUMBER  PIC X(22)
               VALUE "ENTER INVENTORY NUMBER".
           05  PROMPT-FOR-INVENTORY-QUANTITY PIC X(24)
               VALUE  "ENTER INVENTORY QUANTITY".

       01  RESPONES.
           05  RECORD-RESPONSE  PIC X(1).
       PROCEDURE DIVISION.
       100-PRODUCE-INVENTORY-FILE.
           PERFORM  201-INIT-CREATE-INVENTORY-FILE.
           PERFORM  202-PRODUCE-INVENTORY-RECORD
                    UNTIL RECORD-RESPONSE = "N".
           PERFORM  203-TERMINATE-INVENTORY-CREATE.
           STOP RUN.

       201-INIT-CREATE-INVENTORY-FILE.
           PERFORM  701-OPEN-INVENT-FILES.
           PERFORM  702-PROMPT-FOR-RECORD.

       202-PRODUCE-INVENTORY-RECORD.
           PERFORM  703-ACCEPT-INVENT-DATA.
           PERFORM  704-WRITE-INVENT-RECORD.
           PERFORM  702-PROMPT-FOR-RECORD.

       203-TERMINATE-INVENTORY-CREATE.
           CLOSE  INVENT-FILE-OUT.

       701-OPEN-INVENT-FILES.
           OPEN OUTPUT INVENT-FILE-OUT.

       702-PROMPT-FOR-RECORD.
           DISPLAY PROMPT-FOR-RECORD
               LINE 2 COLUMN 2.
           ACCEPT  RECORD-RESPONSE
               LINE 3 COLUMN 2.

       703-ACCEPT-INVENT-DATA.
           DISPLAY " " WITH BLANK SCREEN.
           DISPLAY  PROMPT-FOR-INVENTORY-NUMBER
               LINE 6  COLUMN 4.
           ACCEPT   INVENTORY-PART-NUMBER
               LINE 7 COLUMN 4.
           DISPLAY  PROMPT-FOR-INVENTORY-QUANTITY
               LINE 9 COLUMN 4.
           ACCEPT  INVENTORY-QUANTITY
               LINE 10  COLUMN 4.

       704-WRITE-INVENT-RECORD.
               WRITE INVENT-RECORD-OUT.