Billing Date should not be less than delivery date

TYPES: BEGIN OF ty_likp,
       vbeln TYPE vbeln_vl,
       wadat TYPE wadak,
       END OF ty_likp.
DATA: it_likp TYPE STANDARD TABLE OF ty_likp,
      wa_likp TYPE ty_likp.

      SELECT SINGLE vbeln wadat
        FROM likp
        INTO wa_likp
        WHERE vbeln = vbrp-vgbel.

      IF VBRK-FKDAT < wa_likp-wadat.
        MESSAGE 'Billing Date should not be less than delivery date' TYPE 'I' DISPLAY LIKE 'E'.
        fcode = 'ENT1'.
        SET SCREEN syst-dynnr.
        LEAVE SCREEN.
      ENDIF.