SAP ABAP

hi facing one issue after error your screen not able to give any input for this purpose we have to write below code IF   xvttp - lgort  IS  INITIAL .      MESSAGE  I000 ( messagesclass )  WITH   c_xvttp - tpnum DISPLAY  LIKE  'E' .      SET  SCREEN  SY - dynnr .          LEAVE  SCREEN .    ENDIF . Please support my work

DATA: lt_mailrecipients  TYPE STANDARD TABLE OF somlrec90 WITH HEADER LINE,       lt_mailtxt         TYPE STANDARD TABLE OF soli      WITH HEADER LINE,       lt_attachment      TYPE STANDARD TABLE OF solisti1  WITH HEADER LINE,       lt_mailsubject     TYPE sodocchgi1,       lt_packing_list    TYPE STANDARD TABLE OF sopcklsti1 WITH HEADER LINE,       gv_cnt             TYPE i. Add Recipients lt_mailrecipients-rec_type  = 'U'. lt_mailrecipients-com_type  = 'INT'. lt_mailrecipients-RECEIVER  = 'someone@erpdb.info'. APPEND lt_mailrecipients . CLEAR lt_mailrecipients . Put in the Mail Contents lt_mailtxt = 'Hi How are you'.      APPEND lt_mailtxt. CLEAR lt_mailtxt. lt_mailtxt = 'Here is a test mail'. APPEND lt_mailtxt. CLEAR lt_mailtxt. lt_mailtxt = 'Thanks'.              APPEND lt_mailtxt. CLEAR lt_mailtxt. Create the attachment   DATA: BEGIN OF lt_po_data_cons OCCURS 0,          ebeln LIKE ekpo-ebeln,          ebel