IDENTIFICATION DIVISION.
       PROGRAM-ID. JOURNAL-FILE-CREATION.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.
       OBJECT-COMPUTER.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT JOURNAL-FILE ASSIGN TO DISK
           ORGANIZATION IS LINE SEQUENTIAL.
       DATA DIVISION.
       FILE SECTION.
       FD  JOURNAL-FILE
           LABEL RECORDS ARE STANDARD
           VALUE OF FILE-ID IS "JOURNAL.TXT"
           DATA RECORD IS JOUR-REC.
       01  JOUR-REC.
           02 TRAN-DATE     PIC 99/99/99.
           02 DEBIT-AC      PIC X(20).
           02 CREDIT-AC     PIC X(20).
           02 TRAN-AMOUNT   PIC 9(10)V99.
       WORKING-STORAGE SECTION.
       01  EDITED-JOUR-REC.
           02 FILLER        PIC X(3).
           02 TRAN-DATE     PIC X(8).
           02 FILLER        PIC X(3).
           02 DEBIT-AC      PIC X(20).
           02 FILLER        PIC X(3).
           02 CREDIT-AC     PIC X(20).
           02 FILLER        PIC X(3).
           02 TRAN-AMOUNT   PIC Z(9)9.99.
       77  OPTION           PIC X VALUE IS "Y".
       PROCEDURE DIVISION.
       MAIN-PARA.
           PERFORM OPEN-PARA.
           PERFORM WRITE-PARA UNTIL OPTION NOT = "Y".
           PERFORM SECOND-OPEN-PARA.
           PERFORM READ-PARA.
           STOP RUN.
       OPEN-PARA.
           OPEN OUTPUT JOURNAL-FILE.
       WRITE-PARA.
           DISPLAY (01 01) ERASE.
           DISPLAY (02 10) "Enter the Transaction details".
           DISPLAY (03 10) "-----------------------------".
           DISPLAY (04 10) "Date of Transaction :         (DDMMYY)".
           ACCEPT (04 32) TRAN-DATE OF JOUR-REC.
           DISPLAY (05 10) "     Debit A/C Name : ".
           ACCEPT (05 32) DEBIT-AC OF JOUR-REC.
           DISPLAY (06 10) "    Credit A/C Name : ".
           ACCEPT (06 32) CREDIT-AC OF JOUR-REC.
           DISPLAY (07 10) "    Amount (in Rs.) : ".
           ACCEPT (07 32) TRAN-AMOUNT OF JOUR-REC.
           WRITE JOUR-REC.
           DISPLAY (10 10) "Press Y/y to enter next Transaction : ".
           ACCEPT (10 48) OPTION.
           IF OPTION = "y"
              MOVE "Y" TO OPTION.
       SECOND-OPEN-PARA.
           CLOSE JOURNAL-FILE.
           OPEN INPUT JOURNAL-FILE.
           DISPLAY (01 01) ERASE.
           DISPLAY "----------------------------------------------------
      -    "---------------------".
           DISPLAY "     DATE     DEBIT A/C              CREDIT A/C
      -    "           AMOUNT(Rs)".
           DISPLAY "----------------------------------------------------
      -    "---------------------".
       READ-PARA.
           READ JOURNAL-FILE RECORD AT END GO TO CLOSE-PARA.
           MOVE CORRESPONDING JOUR-REC TO EDITED-JOUR-REC.
           DISPLAY EDITED-JOUR-REC.
           GO TO READ-PARA.
       CLOSE-PARA.
           DISPLAY "====================================================
      -    "=====================".
           CLOSE JOURNAL-FILE.