WHY THE FOLLOWING CODE IS NOT RETURNING VALUES?

[Former Member]

Hello ppl.....this a simple ALV but is not returning values and i cant figure out myself whats the reason...so plz the smartian souls help me.

&----

---

*& Report ZFANZ_ALV_REPORT_WHV

*&

&----

---

*&

*&

&----

---

REPORT zfanz_alv_report_whv.

TYPE-POOLS: slis.

TYPES: BEGIN OF tp_data,

kunnr LIKE kna1-kunnr,

ort01 LIKE kna1-ort01,

pstlz LIKE kna1-pstlz,

regio LIKE kna1-regio,

bukrs LIKE knb1-bukrs,

zterm LIKE knb1-zterm,

vkorg LIKE knvp-vkorg,

vtweg LIKE knvp-vtweg,

spart LIKE knvp-spart,

parvw LIKE knvp-parvw,

kunn2 LIKE knvp-kunn2,

lifnr LIKE knvp-lifnr,

*mark,

END OF tp_data,

tp_tbl_data TYPE STANDARD TABLE OF tp_data.

• Report data to be shown.

DATA: it_data TYPE STANDARD TABLE OF tp_data.

• Heading of the report.

DATA: t_heading TYPE slis_t_listheader.

DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE.

DATA: wa_fcat TYPE slis_fieldcat_alv.

======================= Selection Screen ==========================

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

DATA: w_aux_kunnr LIKE kna1-kunnr.

SELECT-OPTIONS s_kunnr FOR w_aux_kunnr OBLIGATORY .

PARAMETER p_bukrs LIKE knb1-bukrs .

PARAMETER p_vkorg LIKE knvp-vkorg .

PARAMETER p_vtweg LIKE knvp-vtweg .

PARAMETER p_spart LIKE knvp-spart .

PARAMETER p_parvw LIKE knvp-parvw .

SELECTION-SCREEN: END OF BLOCK b1.

AT SELECTION-SCREEN.

START-OF-SELECTION.

PERFORM get_data USING it_data.

PERFORM build_fieldcatalog.

END-OF-SELECTION.

PERFORM grid_display.

&----

---

*& Form get_data

&----

---

• Gets the information to be shown in the report.

----

---

FORM get_data USING t_data TYPE tp_tbl_data.

SELECT kna1~kunnr

kna1~ort01

kna1~pstlz

kna1~regio

knb1~bukrs

knb1~zterm

knvp~vkorg

knvp~vtweg

knvp~spart

knvp~parvw

knvp~kunn2

knvp~lifnr

INTO CORRESPONDING FIELDS OF TABLE t_data

FROM kna1 AS kna1

INNER JOIN knb1 AS knb1 ON kna1_{kunnr = knb1}kunnr

INNER JOIN knvp AS knvp ON kna1_{kunnr = knvp}kunnr

WHERE kna1~kunnr IN s_kunnr

AND knb1~bukrs = p_bukrs

AND knvp~vkorg = p_vkorg

AND knvp~vtweg = p_vtweg

AND knvp~spart = p_spart

AND knvp~parvw = p_parvw

.

ENDFORM. " get_data

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

&----

---

*& Form BUILD_FIELDCATALOG

&----

---

• Build Fieldcatalog for ALV Report

----

---

FORM build_fieldcatalog.

fieldcatalog-fieldname = 'KUNNR'.

fieldcatalog-seltext_m = 'Cust. number'.

fieldcatalog-col_pos = 1.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'ORT01'.

fieldcatalog-seltext_m = 'city'.

fieldcatalog-col_pos = 2.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'PSTLZ'.

fieldcatalog-seltext_m = 'postal code'.

fieldcatalog-col_pos = 3.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'REGIO'.

fieldcatalog-seltext_m = 'region'.

fieldcatalog-col_pos = 4.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'BUKRS'.

fieldcatalog-seltext_m = 'Company code'.

fieldcatalog-col_pos = 5.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'ZTERM'.

fieldcatalog-seltext_m = 'Terms of payment'.

fieldcatalog-col_pos = 6.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'VKORG'.

fieldcatalog-seltext_m = 'Sales Organization'.

fieldcatalog-col_pos = 7.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'VTWEG'.

fieldcatalog-seltext_m = 'Distribution Channel'.

fieldcatalog-col_pos = 8.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'SPART'.

fieldcatalog-seltext_m = 'Division'.

fieldcatalog-col_pos = 9.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'PARVW'.

fieldcatalog-seltext_m = 'Partner function'.

fieldcatalog-col_pos = 10.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'KUNN2'.

fieldcatalog-seltext_m = 'Customer number of partner'.

fieldcatalog-col_pos = 11.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'LIFNR'.

fieldcatalog-seltext_m = 'Account Number of Vendor'.

fieldcatalog-col_pos = 12.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

ENDFORM. " BUILD_FIELDCATALOG

&----

---

*& Form GRID_DISPLAY

&----

---

• text

----

---

FORM grid_display. "using t_data type tp_tbl_data.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

• IS_LAYOUT = wa_layout

it_fieldcat = fieldcatalog[]

TABLES

t_outtab = it_data

.

IF sy-subrc <> 0.

ENDIF.

ENDFORM. "GRID_DISPLAY

[Former Member]

You need to pass internal table to fieldcatalog structure.

ex:

PERFORM sub_init_fieldcat USING g_fieldcat[] 'ERZEIT'

'IT_FINAL'

'Sent Time'.

ENDFORM. " SUB_BUILD_FIELDCAT

&----

---

*& Form SUB_INIT_FIELDCAT

&----

---

• text

----

---

• -->P_G_FIELDCAT[] text

• -->P_0817 text

• -->P_0818 text

• -->P_0819 text

----

---

FORM sub_init_fieldcat USING p_g_fieldcat TYPE slis_t_fieldcat_alv

value(p_0817)

value(p_0818)

value(p_0819).

DATA: l_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.

CLEAR l_fieldcat.

l_fieldcat-fieldname = p_0817.

l_fieldcat-tabname = p_0818.

l_fieldcat-seltext_l = p_0819.

APPEND l_fieldcat TO p_g_fieldcat.

ENDFORM. " SUB_INIT_FIELDCAT

[Former Member]

You need to pass internal table to fieldcatalog structure.

ex:

PERFORM sub_init_fieldcat USING g_fieldcat[] 'ERZEIT'

'IT_FINAL'

'Sent Time'.

ENDFORM. " SUB_BUILD_FIELDCAT

&----

---

*& Form SUB_INIT_FIELDCAT

&----

---

• text

----

---

• -->P_G_FIELDCAT[] text

• -->P_0817 text

• -->P_0818 text

• -->P_0819 text

----

---

FORM sub_init_fieldcat USING p_g_fieldcat TYPE slis_t_fieldcat_alv

value(p_0817)

value(p_0818)

value(p_0819).

DATA: l_fieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.

CLEAR l_fieldcat.

l_fieldcat-fieldname = p_0817.

l_fieldcat-tabname = p_0818.

l_fieldcat-seltext_l = p_0819.

APPEND l_fieldcat TO p_g_fieldcat.

ENDFORM. " SUB_INIT_FIELDCAT

[Former Member]

Hi

the code was not written properly

I changed the code

*REPORT zfanz_alv_report_whv.

TYPE-POOLS: slis.

TYPES: BEGIN OF tp_data,

kunnr LIKE kna1-kunnr,

ort01 LIKE kna1-ort01,

pstlz LIKE kna1-pstlz,

regio LIKE kna1-regio,

bukrs LIKE knb1-bukrs,

zterm LIKE knb1-zterm,

vkorg LIKE knvp-vkorg,

vtweg LIKE knvp-vtweg,

spart LIKE knvp-spart,

parvw LIKE knvp-parvw,

kunn2 LIKE knvp-kunn2,

lifnr LIKE knvp-lifnr,

*mark,

END OF tp_data,

tp_tbl_data TYPE STANDARD TABLE OF tp_data.

*Report data to be shown.

DATA: it_data TYPE STANDARD TABLE OF tp_data.

*Heading of the report.

DATA: t_heading TYPE slis_t_listheader.

DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE.

DATA: wa_fcat TYPE slis_fieldcat_alv.

*======================= Selection Screen ==========================

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

DATA: w_aux_kunnr LIKE kna1-kunnr.

SELECT-OPTIONS s_kunnr FOR w_aux_kunnr OBLIGATORY .

PARAMETER p_bukrs LIKE knb1-bukrs .

PARAMETER p_vkorg LIKE knvp-vkorg .

PARAMETER p_vtweg LIKE knvp-vtweg .

PARAMETER p_spart LIKE knvp-spart .

PARAMETER p_parvw LIKE knvp-parvw .

SELECTION-SCREEN: END OF BLOCK b1.

AT SELECTION-SCREEN.

START-OF-SELECTION.

PERFORM get_data USING it_data.

PERFORM build_fieldcatalog.

END-OF-SELECTION.

PERFORM grid_display.

*&----

---

**& Form get_data

*&----

---

*Gets the information to be shown in the report.

*----

---

FORM get_data USING t_data TYPE tp_tbl_data.

SELECT kna1~kunnr

kna1~ort01

kna1~pstlz

kna1~regio

knb1~bukrs

knb1~zterm

knvp~vkorg

knvp~vtweg

knvp~spart

knvp~parvw

knvp~kunn2

knvp~lifnr

INTO CORRESPONDING FIELDS OF TABLE it_data

FROM kna1 AS kna1

INNER JOIN knb1 AS knb1 ON kna1_{kunnr = knb1}kunnr

INNER JOIN knvp AS knvp ON kna1_{kunnr = knvp}kunnr

WHERE kna1~kunnr IN s_kunnr

AND knb1~bukrs = p_bukrs

AND knvp~vkorg = p_vkorg

AND knvp~vtweg = p_vtweg

AND knvp~spart = p_spart

AND knvp~parvw = p_parvw

.

ENDFORM. " get_data

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

*&----

---

**& Form BUILD_FIELDCATALOG

*&----

---

*

*

*Build Fieldcatalog for ALV Report

*----

---

FORM build_fieldcatalog.

fieldcatalog-fieldname = 'KUNNR'.

fieldcatalog-seltext_m = 'Cust. number'.

fieldcatalog-col_pos = 1.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'ORT01'.

fieldcatalog-seltext_m = 'city'.

fieldcatalog-col_pos = 2.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'PSTLZ'.

fieldcatalog-seltext_m = 'postal code'.

fieldcatalog-col_pos = 3.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'REGIO'.

fieldcatalog-seltext_m = 'region'.

fieldcatalog-col_pos = 4.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'BUKRS'.

fieldcatalog-seltext_m = 'Company code'.

fieldcatalog-col_pos = 5.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'ZTERM'.

fieldcatalog-seltext_m = 'Terms of payment'.

fieldcatalog-col_pos = 6.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'VKORG'.

fieldcatalog-seltext_m = 'Sales Organization'.

fieldcatalog-col_pos = 7.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'VTWEG'.

fieldcatalog-seltext_m = 'Distribution Channel'.

fieldcatalog-col_pos = 8.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'SPART'.

fieldcatalog-seltext_m = 'Division'.

fieldcatalog-col_pos = 9.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'PARVW'.

fieldcatalog-seltext_m = 'Partner function'.

fieldcatalog-col_pos = 10.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'KUNN2'.

fieldcatalog-seltext_m = 'Customer number of partner'.

fieldcatalog-col_pos = 11.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

fieldcatalog-fieldname = 'LIFNR'.

fieldcatalog-seltext_m = 'Account Number of Vendor'.

fieldcatalog-col_pos = 12.

APPEND fieldcatalog TO fieldcatalog.

CLEAR fieldcatalog.

ENDFORM. " BUILD_FIELDCATALOG

*&----

---

**& Form GRID_DISPLAY

*&----

---

*

*

*text

*----

---

FORM grid_display. "using t_data type tp_tbl_data.

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

i_callback_program = sy-repid

*IS_LAYOUT = wa_layout

it_fieldcat = fieldcatalog[]

TABLES

t_outtab = it_data

.

IF sy-subrc = 0.

ENDIF.

ENDFORM. "GRID_DISPLAY

Regards

Shiva

[Former Member]

I figured out something for myself and got it done but information provided is grasped and hope it will come handy in future.