Employee Database

Store employee records and display them.
FILE handling, WRITE/READ, PERFORM.

       IDENTIFICATION DIVISION.
   PROGRAM-ID. EMPLOYEE-DB.
   ENVIRONMENT DIVISION.
   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
       SELECT EMP-FILE ASSIGN TO 'EMPLOYEE.DAT'
       ORGANIZATION IS LINE SEQUENTIAL.
   DATA DIVISION.
   FILE SECTION.
   FD EMP-FILE.
   01 EMP-REC.
      05 EMP-ID     PIC 9(4).
      05 EMP-NAME   PIC A(20).
      05 EMP-SAL    PIC 9(6).
   WORKING-STORAGE SECTION.
   01 WS-EOF PIC X VALUE "N".
   PROCEDURE DIVISION.
       OPEN OUTPUT EMP-FILE
           MOVE 1001 TO EMP-ID
           MOVE "ALICE" TO EMP-NAME
           MOVE 50000 TO EMP-SAL
           WRITE EMP-REC
           MOVE 1002 TO EMP-ID
           MOVE "BOB" TO EMP-NAME
           MOVE 60000 TO EMP-SAL
           WRITE EMP-REC
       CLOSE EMP-FILE
       OPEN INPUT EMP-FILE
       PERFORM UNTIL WS-EOF = "Y"
           READ EMP-FILE
               AT END MOVE "Y" TO WS-EOF
               NOT AT END DISPLAY EMP-REC
           END-READ
       END-PERFORM
       CLOSE EMP-FILE
       STOP RUN.

Explanation:

• Writes employee data into a file EMPLOYEE.DAT.
• Then reads back and displays the stored records.
• Simulates a small HR employee database.