           IF NOT EMPLOYEE-JOBHIST MEMBER
               CONNECT JOBHIST TO EMPLOYEE-JOBHIST
               PERFORM IDMS-STATUS
           END-IF
