zdb_validate_editor_Exit.abap

DATA lt_sval TYPE STANDARD TABLE OF sval.
DATA ls_sval TYPE sval.
DATA:
  lv_ret     TYPE char1,
  lv_buffer  TYPE LINE OF rswsourcet.

"Get tablename using Popup.
ls_sval-tabname     = 'DD02L'.
ls_sval-fieldname   = 'TABNAME'.
ls_sval-field_attr  = '00'.
APPEND ls_sval TO lt_sval.

CALL FUNCTION 'POPUP_GET_VALUES_DB_CHECKED'
    EXPORTING popup_title = 'Table Name'
    IMPORTING returncode  = lv_ret
       TABLES fields      = lt_sval
   EXCEPTIONS OTHERS      = 2.
IF sy-subrc <> 0.
  RETURN.
ENDIF.

READ TABLE lt_sval INTO ls_sval INDEX 1.
IF syst-subrc <> 0.
  RETURN.
ENDIF.

"Create COde..
lv_buffer = '"Validate Input against Table:' && ` ` && ls_sval-value.
APPEND lv_buffer TO buffer.

APPEND 'Select COUNT(*)' TO buffer.
APPEND '       UPTO 1 ROWS' TO buffer.

lv_buffer = |  FROM { to_upper( ls_sval-value ) } |.
APPEND  lv_buffer TO buffer.

APPEND ' WHERE col_name = p_inp.' TO buffer.
APPEND '"Error Handling.' TO buffer.
APPEND 'IF  SYST-DBCNT <> 1.' TO buffer.
APPEND '  MESSAGE E000(DB) WITH ''No data fround for input.''.' TO buffer.
APPEND 'ENDIF.' TO buffer.