You can use it to replace funtion of SM30/SM31 with additional benefit.
1. Because it is written in as customer program we can add additional feature, for example change history.
2. There is no need to create screen maintenance for all table because screen will automatically generated.

But, remember, this is only a demonstration of how to use STC1_FULLSCREEN_TABLE_CONTROL. Use it carefully and only for customer table (Z*).

You can also curtail the output by entering the conditions in ‘Filter Records’ button press.

Program Code

*&---------------------------------------------------------------------*
*& Report  ZTABLEMAINTAIN
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZTABLEMAINTAIN.

TYPE-POOLS: rsds.

DATA: is_x030l TYPE x030l,
it_dfies TYPE TABLE OF dfies,
is_dfies TYPE dfies,
it_fdiff TYPE TABLE OF field_dif,
is_fdiff TYPE field_dif.

DATA: w_selid TYPE rsdynsel-selid,
it_tables TYPE TABLE OF rsdstabs,
is_tables TYPE rsdstabs,
it_fields TYPE TABLE OF rsdsfields,
it_expr TYPE rsds_texpr,
it_ranges TYPE rsds_trange,
it_where TYPE rsds_twhere,
is_where TYPE rsds_where,
w_active TYPE i.

DATA: it_content TYPE REF TO data,
it_modif TYPE REF TO data,
it_fcat TYPE lvc_t_fcat.

DATA: w_okcode TYPE sy-ucomm.

FIELD-SYMBOLS:  TYPE STANDARD TABLE,
TYPE STANDARD TABLE.

* Macros
DEFINE table_error.
message e398(00) with 'Table' p_table &1.
END-OF-DEFINITION.

DEFINE fixed_val.
is_fdiff-fieldname = is_dfies-fieldname.
is_fdiff-fixed_val = &1.
is_fdiff-no_input = 'X'.
append is_fdiff to it_fdiff.
END-OF-DEFINITION.

* Selection screen
SELECTION-SCREEN: BEGIN OF BLOCK b01 WITH FRAME.
PARAMETERS: p_table TYPE tabname OBLIGATORY "table
MEMORY ID dtb
MATCHCODE OBJECT dd_dbtb_16.
SELECTION-SCREEN: BEGIN OF LINE,
PUSHBUTTON 33(20) selopt USER-COMMAND sel,
COMMENT 55(15) selcnt,
END OF LINE.
SELECTION-SCREEN: SKIP.
PARAMETERS: p_rows TYPE i. "rows
SELECTION-SCREEN: END OF BLOCK b01,
SKIP,
BEGIN OF BLOCK b02 WITH FRAME.
PARAMETERS: p_displ TYPE c AS CHECKBOX. "display
SELECTION-SCREEN: END OF BLOCK b02.

* Initialization
INITIALIZATION.
MOVE '@4G@ Filter records' TO selopt.

* PBO
AT SELECTION-SCREEN OUTPUT.
IF w_active IS INITIAL.
CLEAR: selcnt.
ELSE.
WRITE w_active TO selcnt LEFT-JUSTIFIED.
ENDIF.

* PAI
AT SELECTION-SCREEN.
IF p_table NE is_x030l-tabname.
CALL FUNCTION 'DDIF_NAMETAB_GET'
EXPORTING
tabname = p_table
IMPORTING
x030l_wa = is_x030l
TABLES
dfies_tab = it_dfies
EXCEPTIONS
OTHERS = 1.
IF is_x030l IS INITIAL.
table_error 'does not exist or is not active'.
ELSEIF is_x030l-tabtype NE 'T'.
table_error 'is not selectable'.
ELSEIF is_x030l-align NE 0.
table_error 'has alignment - cannot continue'.
ENDIF.

* Default values for system fields
REFRESH: it_fdiff.
is_fdiff-tabname = p_table.
LOOP AT it_dfies INTO is_dfies.
IF is_dfies-datatype = 'CLNT'.
fixed_val sy-mandt.
ELSEIF is_dfies-rollname = 'ERDAT'
OR is_dfies-rollname = 'ERSDA'
OR is_dfies-rollname = 'AEDAT'
OR is_dfies-rollname = 'LAEDA'.
fixed_val sy-datum.
ELSEIF is_dfies-rollname = 'ERTIM'
OR is_dfies-rollname = 'AETIM'.
fixed_val sy-uzeit.
ELSEIF is_dfies-rollname = 'ERNAM'
OR is_dfies-rollname = 'AENAM'.
fixed_val sy-uname.
ENDIF.
ENDLOOP.

* Prepare free selection on table
REFRESH it_tables.
is_tables-prim_tab = p_table.
APPEND is_tables TO it_tables.

CLEAR: w_selid.
ENDIF.

IF sy-ucomm = 'SEL'.
IF w_selid IS INITIAL.
* Init free selection dialog
CALL FUNCTION 'FREE_SELECTIONS_INIT'
EXPORTING
expressions = it_expr
IMPORTING
selection_id = w_selid
expressions = it_expr
TABLES
tables_tab = it_tables
EXCEPTIONS
OTHERS = 1.
ENDIF.

* Display free selection dialog
CALL FUNCTION 'FREE_SELECTIONS_DIALOG'
EXPORTING
selection_id = w_selid
title = 'Selection'
status = 1
as_window = 'X'
IMPORTING
expressions = it_expr
field_ranges = it_ranges
number_of_active_fields = w_active
TABLES
fields_tab = it_fields
EXCEPTIONS
OTHERS = 1.
ENDIF.

* Start of processing
START-OF-SELECTION.

PERFORM f_create_table USING p_table.

PERFORM f_select_table.

PERFORM f_display_table.

*---------------------------------------------------------------------*
* FORM f_create_table *
*---------------------------------------------------------------------*
FORM f_create_table USING in_tabname.

FIELD-SYMBOLS:  TYPE lvc_s_fcat.

CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
EXPORTING
i_structure_name = in_tabname
CHANGING
ct_fieldcat = it_fcat
EXCEPTIONS
OTHERS = 1.
IF sy-subrc = 0.
* Complete field catalog
LOOP AT it_fcat ASSIGNING .
-tabname = in_tabname.
ENDLOOP.
CALL FUNCTION 'LVC_FIELDCAT_COMPLETE'
CHANGING
ct_fieldcat = it_fcat
EXCEPTIONS
OTHERS = 1.
ELSE.
WRITE: 'Error building field catalog'.
STOP.
ENDIF.

* Create dynamic table for data
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = it_fcat
IMPORTING
ep_table = it_content.
IF sy-subrc = 0.
ASSIGN it_content->* TO .
ELSE.
WRITE: 'Error creating internal table'.
STOP.
ENDIF.

* Create dynamic table for modif
CALL METHOD cl_alv_table_create=>create_dynamic_table
EXPORTING
it_fieldcatalog = it_fcat
IMPORTING
ep_table = it_modif.
IF sy-subrc = 0.
ASSIGN it_modif->* TO .
ELSE.
WRITE: 'Error creating internal table'.
STOP.
ENDIF.

ENDFORM.

*---------------------------------------------------------------------*
* FORM f_select_table *
*---------------------------------------------------------------------*
FORM f_select_table.

IF w_active = 0.
SELECT * FROM (p_table)
INTO CORRESPONDING FIELDS OF TABLE
UP TO p_rows ROWS.
ELSE.
* Selection with parameters
CALL FUNCTION 'FREE_SELECTIONS_RANGE_2_WHERE'
EXPORTING
field_ranges = it_ranges
IMPORTING
where_clauses = it_where.
READ TABLE it_where INTO is_where WITH KEY tablename = p_table.

SELECT * FROM (p_table)
INTO CORRESPONDING FIELDS OF TABLE
UP TO p_rows ROWS
WHERE (is_where-where_tab).
ENDIF.

IF sy-dbcnt = 0.
WRITE: 'No record selected'.
STOP.
ENDIF.
ENDFORM.

*---------------------------------------------------------------------*
* FORM f_display_table *
*---------------------------------------------------------------------*
FORM f_display_table.
DATA: l_answer TYPE c,
l_eflag TYPE c.

CLEAR: w_okcode.
REFRESH: .
* Display table contents
CALL FUNCTION 'STC1_FULLSCREEN_TABLE_CONTROL'
EXPORTING
header = p_table
tabname = p_table
display_only = p_displ
endless = 'X'
no_button = space
IMPORTING
okcode = w_okcode
TABLES
*nametab = it_dfies
table =
*fielddif = it_fdiff
modif_table =
EXCEPTIONS
OTHERS = 1.
IF sy-subrc = 0.
IF p_displ IS INITIAL AND w_okcode = 'SAVE'.
* Confirm update
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
titlebar = p_table
text_question = 'Do you want to update table ?'
default_button = '2'
display_cancel_button = ' '
IMPORTING
answer = l_answer
EXCEPTIONS
OTHERS = 1.
IF l_answer = '1'.
* Apply modifications
IF NOT [] IS INITIAL.
PERFORM f_add_system USING space.
MODIFY (p_table) FROM TABLE .
IF sy-subrc NE 0.
l_eflag = 'X'.
ENDIF.
ENDIF.
* Apply deletions
IF l_eflag IS INITIAL.
REFRESH: .
CALL FUNCTION 'STC1_GET_DATA'
TABLES
deleted_data =
EXCEPTIONS
OTHERS = 1.
IF NOT [] IS INITIAL.
DELETE (p_table) FROM TABLE .
IF sy-subrc NE 0.
ROLLBACK WORK.
l_eflag = 'X'.
ENDIF.
ENDIF.
ENDIF.
* Apply creations
IF l_eflag IS INITIAL.
REFRESH: .
CALL FUNCTION 'STC1_GET_DATA'
TABLES
new_data =
EXCEPTIONS
OTHERS = 1.
IF NOT [] IS INITIAL.
PERFORM f_add_system USING 'X'.
INSERT (p_table) FROM TABLE .
IF sy-subrc NE 0.
ROLLBACK WORK.
l_eflag = 'X'.
ENDIF.
ENDIF.
ENDIF.
IF l_eflag IS INITIAL.
COMMIT WORK.
MESSAGE s261(53).
ELSE.
MESSAGE s075(3i).
PERFORM f_select_table.
ENDIF.
ENDIF.
* Display table again
PERFORM f_display_table.
ENDIF.
ENDIF.

ENDFORM.

*---------------------------------------------------------------------*
* FORM f_add_system *
*---------------------------------------------------------------------*
FORM f_add_system USING new TYPE c.

FIELD-SYMBOLS:  TYPE ANY,
TYPE ANY.

LOOP AT it_fdiff INTO is_fdiff.
READ TABLE it_dfies INTO is_dfies
WITH KEY fieldname = is_fdiff-fieldname.
LOOP AT  ASSIGNING .
ASSIGN COMPONENT is_fdiff-fieldname OF STRUCTURE  TO .
IF is_dfies-datatype = 'CLNT'.
= sy-mandt.
ELSE.
CASE is_dfies-rollname.
WHEN 'AENAM'.
= sy-uname.
WHEN 'AEDAT' OR 'LAEDA'.
= sy-datum.
WHEN 'AETIM'.
= sy-uzeit.
WHEN OTHERS.
ENDCASE.
ENDIF.
ENDLOOP.
ENDLOOP.

ENDFORM.

Output

You might also be interested in these posts:

1. Embed SAP View in an ABAP Program
2. Assign a T-code to Maintenance View in SAP
3. Date formatting for Display in ABAP Program

In this example, we will use the function module SE16N_INTERFACE to call the new standard table display.

Program code:

*&———————————————————————*
*& Call the SE16n with the Selection from report                             *
*&                                                                                                                   *
*&———————————————————————*

REPORT ztest_tmp.

START-OF-SELECTION.

* data declaration for the FM
DATA: l_tab TYPE se16n_tab,
t_sel TYPE se16n_or_t,
la_sel LIKE LINE OF t_sel,
t_sel_tab TYPE se16n_or_seltab_t,
la_sel_tab LIKE LINE OF t_sel_tab.

* Table name
l_tab = ‘VBAK’.

* Selection for VBELN
la_sel_tab-field = ‘VBELN’.
la_sel_tab-sign = ‘I’.
la_sel_tab-option = ‘BT’.
la_sel_tab-low = ’0000001000′.
la_sel_tab-high = ’0000002000 ‘.
APPEND la_sel_tab TO t_sel_tab.

* Selection for ERDAT
la_sel_tab-field = ‘ERDAT’.
la_sel_tab-sign = ‘I’.
la_sel_tab-option = ‘BT’.
la_sel_tab-low = ’20081001′.
la_sel_tab-high = sy-datum.
APPEND la_sel_tab TO t_sel_tab.

* Fill the main selection table
la_sel-pos = 1.
la_sel-seltab = t_sel_tab.
APPEND la_sel TO t_sel.

* Function module for the SE16N

CALL FUNCTION ‘SE16N_INTERFACE’

EXPORTING
i_tab = l_tab
i_clnt_dep = ‘X’

TABLES
* IT_OUTPUT_FIELDS =
it_or_selfields = t_sel

EXCEPTIONS
no_values = 1
OTHERS = 2

.

IF sy-subrc <> 0.

MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno

WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

ENDIF.

You might also be interested in these posts:

1. ABAP Program for Table Maintenance in SAP
2. Assign a T-code to Maintenance View in SAP
3. ABAP Program to display SAP Data in 3-Dimension

In this case you have to assign a T-Code to the Maintenance View you created. (Note: User should have the authorization for SM30).

Follow these steps for the assignment:

1) Go to transaction SE93 , give your own transaction code say ZTC_ZVDA_KNGRP, for maintaining your Z-Table.

2) Click on create button and check the radio button Transaction with parameters (PARAMETER TRANSACTION) and click on the tick button.

3) In the next screen enter default values:
        transaction : SM30
        check the check box skip initial screen

4) Scroll down you will find a table control for default values

Name of the screen field | value

VIEWNAME                      | your ztable name

SHOW                                 | X

Save your work.

Thats it ! You can now call the Maintenance View from this T-Code.

You might also be interested in these posts:

1. ABAP Program for Table Maintenance in SAP
2. Assign/Create Authorization Group for a Table in SAP
3. Embed SAP View in an ABAP Program