topic WHY THE FOLLOWING CODE IS NOT RETURNING VALUES? in Application Development and Automation Discussions

WHY THE FOLLOWING CODE IS NOT RETURNING VALUES?

Former Member — Wed, 19 Mar 2008 08:44:23 GMT

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

Re: WHY THE FOLLOWING CODE IS NOT RETURNING VALUES?

Former Member — Wed, 19 Mar 2008 08:47:43 GMT

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

Re: WHY THE FOLLOWING CODE IS NOT RETURNING VALUES?

Former Member — Wed, 19 Mar 2008 09:03:41 GMT

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

Re: WHY THE FOLLOWING CODE IS NOT RETURNING VALUES?

Former Member — Wed, 19 Mar 2008 11:21:37 GMT

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