BADI ME_PROCESS_PO_CUST.abap

METHOD if_ex_me_process_po_cust~check.

  DATA: lv_tdid        TYPE tdid,
        lv_texttype    TYPE mmpur_texttypes,
        lt_text_lines  TYPE mmpur_t_textlines,
        lt_text_format TYPE mmpur_bool,
        lv_header      TYPE mepoheader,
        lv_lines       TYPE i.

* Macro for messages
  INCLUDE mm_messages_mac. "useful macros for message handling

  lv_tdid = 'F01'.

* Get the Header data
  lv_header = im_header->get_data( ).

  im_header->if_longtexts_mm~get_text(
      EXPORTING
         im_tdid  = lv_tdid
         im_texttype = lv_texttype
       IMPORTING
         ex_textlines = lt_text_lines
         ex_text_formatted = lt_text_format  ).

  DESCRIBE TABLE lt_text_lines LINES lv_lines.

  IF lv_lines = 0.
    ch_failed = 'X'.
    mmpur_message_forced 'E' 'ME' '083' 'Enter a rejection reason' ' in the long text' '' ''.
  ENDIF.

ENDMETHOD.