identification division.
       program-id. testing.

       environment division.
       input-output section.
       file-control.
          select emp assign to disk
               organization is relative
               access mode is random
               relative key is empno.


       data division.
       file section.
       fd emp
          value of file-id is"emp.txt".
          01 emp-rec.
               05 empname pic x(10).
               05 empaddr pic x(10).
               05 empphne pic 9(8).


       working-storage section.
          01 empno pic 9(3).
          01 emp-rec1.
               05 empname1 pic x(10).
               05 empaddr1 pic x(10).
               05 empphne1 pic 9(8).

       procedure division.
       para1.
          open i-o emp.
          display "Enter EmpNo.: " with no advancing.
          accept empno.
          display "Name: " with no advancing.
          accept empname1.
          display "Address: " with no advancing.
          accept empaddr1.
          display "Phone no: " with no advancing.
          accept empphne1.
          write emp-rec from emp-rec1 invalid key perform para2.

          close emp.

          open input emp.
               display "Enter the number: " with no advancing.
               accept empno.
               read emp.
               display emp-rec.
          close emp.
          stop run.

       para2.
          display " Invalid Key . . .".