           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 
