带有选择条件的CALL_SM30

REPORT zfir075.
TABLES: ztfi0007i.
CONSTANTS: c_view TYPE   char30  VALUE 'Ztfi0007i',
           c_u    TYPE   char1   VALUE 'U',
           c_and  TYPE   char3   VALUE 'AND'.
DATA: gt_seltab    TYPE STANDARD TABLE OF vimsellist.
DATA: g_fieldname  TYPE vimsellist-viewfield.
DATA: gt_exclude  TYPE TABLE OF vimexclfun,
      gwa_exclude TYPE vimexclfun.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: s_belfsc   FOR ztfi0007i-belnr_fsc,
                s_docln    FOR ztfi0007i-docln_fsc,
                s_bukrs    FOR ztfi0007i-bukrs,
                s_gjahr    FOR ztfi0007i-gjahr,
                s_belnr    FOR ztfi0007i-belnr,
                s_buzei    FOR ztfi0007i-buzei.
SELECTION-SCREEN END OF BLOCK B1.
*Add ID column to selection criteria of Table maintenanace view
g_fieldname = 'BELNR_FSC'.

CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'
  EXPORTING
    fieldname          = g_fieldname
    append_conjunction = c_and
  TABLES
    sellist            = gt_seltab
    rangetab           = s_belfsc.

*Add Name column to selection criteria of Table maintenanace view
g_fieldname = 'DOCLN_FSC'.

CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'
  EXPORTING
    fieldname          = g_fieldname
    append_conjunction = c_and
  TABLES
    sellist            = gt_seltab
    rangetab           = s_docln.
*Add Name column to selection criteria of Table maintenanace view
g_fieldname = 'BUKRS'.

CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'
  EXPORTING
    fieldname          = g_fieldname
    append_conjunction = c_and
  TABLES
    sellist            = gt_seltab
    rangetab           = s_bukrs.
*Add Name column to selection criteria of Table maintenanace view
g_fieldname = 'GJAHR'.

CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'
  EXPORTING
    fieldname          = g_fieldname
    append_conjunction = c_and
  TABLES
    sellist            = gt_seltab
    rangetab           = s_gjahr.
*Add Name column to selection criteria of Table maintenanace view
g_fieldname = 'BELNR'.

CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'
  EXPORTING
    fieldname          = g_fieldname
    append_conjunction = c_and
  TABLES
    sellist            = gt_seltab
    rangetab           = s_belnr.
*Add Name column to selection criteria of Table maintenanace view
g_fieldname = 'BUZEI'.

CALL FUNCTION 'VIEW_RANGETAB_TO_SELLIST'
  EXPORTING
    fieldname          = g_fieldname
    append_conjunction = c_and
  TABLES
    sellist            = gt_seltab
    rangetab           = s_buzei.

* Call to the 'VIEW_MAINTENANCE_CALL' function module
CALL FUNCTION 'VIEW_MAINTENANCE_CALL'
  EXPORTING
    action      = c_u
    view_name   = c_view
  TABLES
    dba_sellist = gt_seltab.