UNIT 입력시 TIME 디맨젼인지 확인할 수 있습니다.

     CALL FUNCTION 'DIMENSIONCHECK_TIME'
      EXPORTING
        meinh              = :단위
      EXCEPTIONS
        dimension_not_time = 01.

    IF NOT sy-subrc IS INITIAL.
      MESSAGE e809(cn).                                   "Enter a time unit, since you have entered either work or actual work

그외 SE37 에서 DIMENSIONCHECK*  찾아보시면 length, mass, volume, without dimension 등 check 함수도 참고하시기 바랍니다.

도움이 되었으면 합니다.