How to display a table data on Screen having a Table control

Question

Hi ,
I am new to ABAP.I would like to display a table data (Eg: ZDemo) on a screen at run time.I have defined a Table control in screen. Now I want to populate data from ZDemo to table control.How can I do that?Please help moving forward in this regard.

Answer 1

Hi Gayatri,
  After creating table control do the following steps.
1. In the flow logic section write the following code:
PROCESS BEFORE OUTPUT.
MODULE STATUS_0200.
LOOP AT I_LIKP WITH CONTROL LIKP_DATA CURSOR LIKP_DATA-CURRENT_LINE.
  MODULE ASSIGN_DATA.
ENDLOOP.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0200.
LOOP AT I_LIKP.
ENDLOOP.
I_LIKP is the internal table which is used to display table data in the table control.
2. In Process Before Output, in the module STATUS_0200 write the following code:
  DESCRIBE TABLE I_LIKP LINES FILL.
  LIKP_DATA-LINES = FILL.
  In Process After Input, in the module USER_COMMAND_0200 write the following code:
  CASE SY-UCOMM.
   WHEN 'LIPS'.
    READ TABLE I_LIKP WITH KEY MARK = 'X'.
    SELECT VBELN
           POSNR
           WERKS
           LGORT
           FROM LIPS
           INTO TABLE I_LIPS
           WHERE VBELN = I_LIKP-VBELN.
    IF SY-SUBRC = 0.
     CALL SCREEN 200.
    ENDIF.
   WHEN 'BACK'.
    SET SCREEN 200.
  ENDCASE.
In Process Before Output and in the module ASSIGN_DATA which is there inside the loop write the following code:
MOVE-CORRESPONDING I_LIKP TO LIKP.
So, Totally your flow logic code should be like this.
TABLES: LIKP, LIPS.
DATA: BEGIN OF I_LIKP OCCURS 0,
       VBELN LIKE LIKP-VBELN,
       ERNAM LIKE LIKP-ERNAM,
       ERZET LIKE LIKP-ERZET,
       ERDAT LIKE LIKP-ERDAT,
       MARK  TYPE C VALUE 'X',
      END OF I_LIKP,
      BEGIN OF I_LIPS OCCURS 0,
       VBELN LIKE LIPS-VBELN,
       POSNR LIKE LIPS-POSNR,
       WERKS LIKE LIPS-WERKS,
       LGORT LIKE LIPS-LGORT,
      END OF I_LIPS,
      FILL TYPE I.
CONTROLS: LIKP_DATA TYPE TABLEVIEW USING SCREEN 200,
          LIPS_DATA TYPE TABLEVIEW USING SCREEN 300.
DATA: COLS LIKE LINE OF LIKP_DATA-COLS.
*&      Module  USER_COMMAND_0100  INPUT
      text
MODULE USER_COMMAND_0100 INPUT.
CASE SY-UCOMM.
  WHEN 'LIKP'.
   SELECT VBELN
          ERNAM
          ERZET
          ERDAT
          FROM LIKP
          INTO TABLE I_LIKP
          WHERE VBELN = LIKP-VBELN.
   IF I_LIKP[] IS INITIAL.
     CALL SCREEN 200.
   ENDIF.
  WHEN 'EXIT'.
   LEAVE PROGRAM.
ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT
*&      Module  assign_data  OUTPUT
      text
MODULE ASSIGN_DATA OUTPUT.
MOVE-CORRESPONDING I_LIKP TO LIKP.
ENDMODULE.                 " assign_data  OUTPUT
*&      Module  STATUS_0200  OUTPUT
      text
MODULE STATUS_0200 OUTPUT.
  DESCRIBE TABLE I_LIKP LINES FILL.
  LIKP_DATA-LINES = FILL.
ENDMODULE.                 " STATUS_0200  OUTPUT
*&      Module  USER_COMMAND_0200  INPUT
      text
MODULE USER_COMMAND_0200 INPUT.
  CASE SY-UCOMM.
   WHEN 'LIPS'.
    READ TABLE I_LIKP WITH KEY MARK = 'X'.
    SELECT VBELN
           POSNR
           WERKS
           LGORT
           FROM LIPS
           INTO TABLE I_LIPS
           WHERE VBELN = I_LIKP-VBELN.
    IF SY-SUBRC = 0.
     CALL SCREEN 200.
    ENDIF.
   WHEN 'BACK'.
    SET SCREEN 200.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0200  INPUT
Save and Activate the program along with the screen in which you have included table control.
Hope this will help you.
Regards
Haritha.