An Easier Way of displaying and editing data using Table Control

Recently I came across a couple of interesting function modules in SAP R/3 which can be used to display and edit data via a table control.These functions provide almost all the functionalities available in a table control and can be used for doing moderate editing operations.In this blog I would like to demonstrate a small example using these function modules.

Function modules :
STC1_POPUP_WITH_TABLE_CONTROL
STC1_FULLSCREEN_TABLE_CONTROL

REPORT  ztesting_table_control.DATA header(50) VALUE ‘Material Maintainance Screen’.DATA fielddif LIKE  field_dif OCCURS 0.DATA wa_fielddif LIKE LINE  OF fielddif.DATA tabname LIKE  dd02l-tabname.DATA okcode LIKE sy-ucomm.DATA gt_makt LIKE makt OCCURS 0 WITH HEADER LINE.DATA gt_makt_mod LIKE makt OCCURS 0 WITH HEADER LINE.DATA display_only VALUE space.DATA: no_button VALUE space,     wa_zmakt LIKE zmakt,     fcode TYPE sy-ucomm,     ok_code TYPE sy-ucomm,     show    TYPE sy-ucomm.START-OF-SELECTION.  CALL SCREEN 9900.*&———————————————————————**&      Form  ZF_TABLE_CONTROL_POPUP*&———————————————————————*FORM zf_table_control_popup .  CLEAR : gt_makt,gt_makt_mod,fielddif,wa_fielddif.  SELECT * FROM zmakt INTO TABLE gt_makt    WHERE spras = sy-langu.*Fill the field structure  tabname = ‘ZMAKT’.  wa_fielddif-tabname    = ‘ZMAKT’.  wa_fielddif-fieldname  = ‘MATNR’.  wa_fielddif-keyflag    = ‘X’.  wa_fielddif-modify_key = ‘ ‘.  wa_fielddif-difftext   = ‘Material number’.  APPEND wa_fielddif TO fielddif.  CLEAR wa_fielddif.  wa_fielddif-tabname    = ‘ZMAKT’.  wa_fielddif-fieldname  = ‘SPRAS’.  wa_fielddif-keyflag    = ‘X’.  wa_fielddif-modify_key = ‘ ‘.  wa_fielddif-listbox    = ‘X’.  wa_fielddif-difftext   = ‘Language’.  APPEND wa_fielddif TO fielddif.  CLEAR wa_fielddif.  wa_fielddif-tabname    = ‘ZMAKT’.  wa_fielddif-fieldname  = ‘MAKTX’.  wa_fielddif-keyflag    = ”.  wa_fielddif-modify_key = ‘ ‘.  wa_fielddif-difftext   = ‘Material Description’.  APPEND wa_fielddif TO fielddif.  CLEAR wa_fielddif.  wa_fielddif-tabname    = ‘ZMAKT’.  wa_fielddif-fieldname  = ‘MAKTG’.  wa_fielddif-no_display = ‘X’.  wa_fielddif-keyflag    = ”.  wa_fielddif-modify_key = ‘ ‘.  wa_fielddif-difftext   = ‘Material Description’.  APPEND wa_fielddif TO fielddif.  CALL FUNCTION ‘STC1_FULLSCREEN_TABLE_CONTROL’    EXPORTING      header            = header      tabname           = tabname      display_only      = display_only      endless           = ‘X’      display_toggle    = ‘X’      no_button         = no_button      x_start           = 5      y_start           = 5      x_end             = 90      y_end             = 25    IMPORTING      okcode            = okcode    TABLES      table             = gt_makt      fielddif          = fielddif      modif_table       = gt_makt_mod    EXCEPTIONS      no_more_tables    = 1      too_many_fields   = 2      nametab_not_valid = 3      handle_not_valid  = 4      OTHERS            = 5.  IF okcode = ‘SAVE’ AND display_only = space.    LOOP AT gt_makt.      SELECT SINGLE * FROM zmakt INTO wa_zmakt      WHERE matnr = gt_makt-matnr.      IF sy-subrc NE 0.        INSERT INTO zmakt VALUES gt_makt.        IF sy-subrc EQ 0.          COMMIT WORK.        ENDIF.      ELSE.*Update the entry*Read the modified rows from the table        READ TABLE gt_makt_mod WITH KEY        matnr = gt_makt-matnr.        IF sy-subrc EQ 0.          UPDATE zmakt SET maktx = gt_makt_mod-maktx          WHERE matnr = gt_makt_mod-matnr.          IF sy-subrc EQ 0.            COMMIT WORK.          ENDIF.        ENDIF.      ENDIF.    ENDLOOP.  ENDIF.ENDFORM.                    ” ZF_TABLE_CONTROL_POPUP*&———————————————————————**&      Module  status_0100  OUTPUT*&———————————————————————**       text*———————————————————————-*MODULE status_0100 OUTPUT.  SET PF-STATUS ‘BASIC’.ENDMODULE.                 ” status_0100  OUTPUT*&———————————————————————**&      Module  exit-processing  INPUT*&———————————————————————**       text*———————————————————————-*MODULE exit-processing INPUT.  fcode = ok_code.  CLEAR ok_code.  CASE fcode.    WHEN ‘BACK’ OR ‘EXIT’ OR ‘CANC’.      SET SCREEN 0.      LEAVE SCREEN.  ENDCASE.ENDMODULE.                 ” exit-processing  INPUT*&———————————————————————**&      Module  user_command_0100  INPUT*&———————————————————————**       text*———————————————————————-*MODULE user_command_0100 INPUT.  fcode = ok_code.  CLEAR ok_code.  CASE fcode.    WHEN ‘TOG’.      IF display_only = space.        display_only = ‘X’.      ELSE.        display_only = space.      ENDIF.    WHEN ‘SHOW’.      PERFORM zf_table_control_popup.  ENDCASE.ENDMODULE.                 ” user_command_0100  INPUT

Note : I found these functions very useful while creating editable popups for my applications.