           MOVE 123456789 TO EMPLOYEE-NUM
           OBTAIN CALC EMPLOYEE-REC 
           IF DB-REC-NOT-FOUND 
              DISPLAY  EMPLOYEE-NUM= EMPLOYEE-NUM  WAS NOT FOUND
           ELSE 
              PERFORM IDMS-STATUS 
              DISPLAY  EMPLOYEE-NUM= EMPLOYEE-NUM 
                       EMPLOYEE-NAME= EMPLOYEE-NAME
           END-IF 
