How to validated screen field(Age) at PA30 transaction

Question

Hi SAP Technical Guru,
i'm working with PA30 transaction, i have to validate the sceen field i.e. Birth Date.it should not consider less than 18 years,
eg:the person who has <18 yrs it should raise a message like min age invalid for employement
so ple

Answer 1

Hi SAP Techinical Guru,
please see code below, which i written to raise a message for filed date of birth,when the entere date if lessthan the 18 yrs it should raise message,
data: dyears   like P0347-SCRYY,
      ddays  TYPE i,
      fromdate TYPE d,
      todate   TYPE d,
      temp TYPE string.
CASE innnn-infty.
WHEN '0002'.
    IF sy-tcode = 'PA30'.
      todate = sy-datum.
      temp = innnn-data3.
      CONDENSE temp NO-GAPS.
      fromdate = temp.
      CALL FUNCTION 'HR_HK_DIFF_BT_2_DATES'
        EXPORTING
         date1                   = todate
         date2                   = fromdate
         output_format           = '01'
        IMPORTING
          years                   = dyears
        EXCEPTIONS
          invalid_dates_specified = 1
          OTHERS                  = 2.
      IF sy-subrc <> 0.
         MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
       IF dyears < 18.
           MESSAGE ID sy-msgid TYPE 'E' NUMBER sy-msgno
                   WITH 'EMPLOYEE AGE IS LESS THAN 18 YEARS'.
           RAISE error_occured.
       ENDIF.
please give where iam getting wrong.
regards,