how to retrieve data from database table to table control

[Former Member]

hi experts,

please tell how to retrieve data from database table to table control,

its urgent.

thanks

[Former Member]

Hi,

As per my understanding you need to fecth data in an internal table from Database table.

Then loop you internal table and fill your table control with records which you have.

Hope this will help!

regards,

Lalit Kabra

[Former Member]

check the below programs.

DEMO_DYNPRO_TABCONT_LOOP

demo_dynpro_tabcont_loop_at

[Former Member]

i hav created table control, when i give values there and press save button,the data is going to data base table,

now i want get data from data base table to table control

[GauthamV]

hi,

check these standard programs in se51.

DEMO_DYNPRO_TABLE_CONTROL_1 Table Control with LOOP Statement

DEMO_DYNPRO_TABLE_CONTROL_2 Table Control with LOOP AT ITAB

RSDEMO_TABLE_CONTROL Program RSDEMO_TABLE_CONTROL

SAPLTABLECONTROL_WZ Table Control Wizard

SAPMTABLECONTROL_TEMPLATE Framework for table control generation (gen.)

reward points if hlpful.

[Former Member]

FOR UR UNDERSTANDING I AM SENDING U TMP CODE,

&----

---

*& Report ZINTRPT004

*&

&----

---

REPORT ztmp.

**Joining of Three Tables.

Tables: Equi, Ihpa.

TYPE-POOLS: slis.

DATA: BEGIN OF it_Equi OCCURS 0,

EQUNR TYPE Equi-EQUNR,

ERDAT TYPE Equi-ERDAT,

HERST TYPE Equi-HERST,

KUNDE TYPE Equi-KUNDE,

OBJNR TYPE Equi-OBJNR,

SERNR TYPE Equi-SERNR,

END OF it_Equi.

DATA: BEGIN OF it_Ihpa OCCURS 0,

OBJNR TYPE Ihpa-OBJNR,

PARVW TYPE Ihpa-PARVW,

OBTYP TYPE Ihpa-OBTYP,

PARNR TYPE Ihpa-PARNR,

END OF it_Ihpa.

DATA: BEGIN OF it_FINAL OCCURS 0,

ERDAT TYPE Equi-ERDAT,

EQUNR TYPE Equi-EQUNR,

HERST TYPE Equi-HERST,

SERNR TYPE Equi-SERNR,

OBJNR TYPE Ihpa-OBJNR,

PARVW TYPE Ihpa-PARVW,

OBTYP TYPE Ihpa-OBTYP,

PARNR TYPE Ihpa-PARNR,

KUNDE TYPE Equi-KUNDE,

END OF it_FINAL.

DATA: w_index LIKE sy-index,

WA_EQUI LIKE IT_EQUI,

WA_IHPA LIKE IT_IHPA,

WA_FINAL LIKE IT_FINAL.

• ALV data initialiazation

DATA: fieldcat TYPE slis_fieldcat_alv OCCURS 0 WITH HEADER LINE,

header TYPE slis_listheader OCCURS 0 WITH HEADER LINE,

g_repid TYPE sy-repid,

a LIKE sy-ucomm.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS : S_ERDAT FOR Equi-ERDAT Obligatory.

SELECTION-SCREEN END OF BLOCK b1.

SELECT EQUNR ERDAT HERST KUNDE OBJNR SERNR

FROM Equi

INTO TABLE it_Equi

WHERE ERDAT in S_ERDAT.

IF NOT IT_EQUI[] IS INITIAL.

SELECT OBJNR PARVW OBTYP PARNR

FROM Ihpa

INTO TABLE it_Ihpa

FOR ALL ENTRIES IN it_Equi

WHERE PARVW = 'AG' and

OBJNR = it_Equi-OBJNR.

ENDIF.

LOOP AT IT_EQUI INTO WA_EQUI.

WA_FINAL-EQUNR = WA_EQUI-EQUNR.

WA_FINAL-ERDAT = WA_EQUI-ERDAT.

WA_FINAL-HERST = WA_EQUI-HERST.

WA_FINAL-KUNDE = WA_EQUI-KUNDE.

READ TABLE IT_IHPA INTO WA_IHPA WITH KEY PARVW = 'AG'

OBJNR = WA_Equi-OBJNR.

WA_FINAL-OBJNR = WA_IHPA-OBJNR.

WA_FINAL-PARVW = WA_IHPA-PARVW.

WA_FINAL-OBTYP = WA_IHPA-OBTYP.

WA_FINAL-PARNR = WA_IHPA-PARNR.

APPEND WA_FINAL TO IT_FINAL.

IF SY-SUBRC = 0.

ENDIF.

ENDLOOP.

Sort IT_FINAL descending BY ERDAT.

PERFORM build_catlog.

PERFORM display_alv_report .

&----

---

*& Form build_catlog

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM build_catlog .

DATA: col_pos TYPE i VALUE IS INITIAL.

ADD 1 TO col_pos.

fieldcat-col_pos = col_pos.

fieldcat-fieldname = 'EQUNR'.

fieldcat-tabname = 'IT_FINAL'.

fieldcat-seltext_l = 'Vehicle Obj number'.

fieldcat-fix_column = 'X'.

fieldcat-outputlen = 18.

APPEND fieldcat.

CLEAR fieldcat.

ADD 1 TO col_pos.

fieldcat-col_pos = col_pos.

fieldcat-fieldname = 'ERDAT'.

fieldcat-tabname = 'IT_FINAL'.

fieldcat-seltext_l = 'created Date'.

fieldcat-fix_column = 'X'.

fieldcat-outputlen = 10.

APPEND fieldcat.

CLEAR fieldcat.

ADD 1 TO col_pos.

fieldcat-col_pos = col_pos.

fieldcat-fieldname = 'HERST'.

fieldcat-tabname = 'IT_FINAL'.

fieldcat-seltext_l = 'Registration Num'.

fieldcat-fix_column = 'X'.

fieldcat-outputlen = 32.

APPEND fieldcat.

CLEAR fieldcat.

ADD 1 TO col_pos.

fieldcat-col_pos = col_pos.

fieldcat-fieldname = 'OBJNR'.

fieldcat-tabname = 'IT_FINAL'.

fieldcat-seltext_l = 'Object number'.

fieldcat-fix_column = 'X'.

fieldcat-outputlen = 23.

APPEND fieldcat.

CLEAR fieldcat.

ADD 1 TO col_pos.

fieldcat-col_pos = col_pos.

fieldcat-fieldname = 'PARVW'.

fieldcat-tabname = 'IT_FINAL'.

fieldcat-seltext_l = 'Type'.

fieldcat-fix_column = 'X'.

fieldcat-outputlen = 5.

APPEND fieldcat.

CLEAR fieldcat.

Endform. "build_catlog

&----

---

*& Form display_alv_report

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM display_alv_report .

DATA: prnt TYPE slis_print_alv,

layt TYPE slis_layout_alv.

layt-zebra = 'X'.

• layt-colwidth_optimize = 'X'.

*

• layt-window_titlebar = 'Service Report'.

• layt-no_uline_hs = 'X'.

• layt-detail_initial_lines = 'X'.

• layt-detail_titlebar = 'Item Details'.

• layt-confirmation_prompt = 'X'.

• layt-key_hotspot = 'X'.

• layt-group_buttons = 'X'.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

it_fieldcat = fieldcat[]

i_save = 'A'

i_grid_title = 'Service Report'

is_layout = layt

TABLES

t_outtab = it_final[]

EXCEPTIONS

program_error = 1

OTHERS = 2.

ENDFORM. " display_alv_report

*top-of-page.

*

*CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

• EXPORTING

• IT_LIST_COMMENTARY = 'TRIAL'

• I_LOGO = 'SAPLOGO'

• I_END_OF_LIST_GRID =

• I_ALV_FORM =

• .

*end-of-page.

************************************************************************

REWARD IF IT IS HELPFUL

REGARDS,

MEHUL