ALV GRID OUTPUT PROBLEM.

Former Member · ‎2007 Jan 17

here i m sending code for u r reviews.

i have two tables: pa0002, zfm_handy

i have to display alv grid by using these tables, i m getting output but the fields in the table pa0002(nachn,vorna) r not populated i m getting output for the fields those which r in the table zfm_handy only.

plz modify this code and suggest according to my requirement...

&----

*& Report ZFM_MOBLIST *

*& *

&----

*& *

&----

REPORT ZFM_MOBLIST.

TABLES: ZFM_HANDY , PA0002.

TYPE-POOLS : SLIS.

DATA: G_REPID LIKE SY-REPID,

GS_PRINT TYPE SLIS_PRINT_ALV,

GT_LIST_TOP_OF_PAGE TYPE SLIS_T_LISTHEADER,

GT_LIST_END_OF_PAGE TYPE SLIS_T_LISTHEADER,

GT_EVENTS TYPE SLIS_T_EVENT,

GT_SORT TYPE SLIS_T_SORTINFO_ALV,

GS_LAYOUT TYPE SLIS_LAYOUT_ALV,

GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

FIELDCAT_LN LIKE LINE OF GT_FIELDCAT,

COL_POS TYPE I.

*DATA:

t_HANDY LIKE TABLE OF ZFM_HANDY,
t_pa0002 like table of PA0002,
f_handy like line of t_handy.

*DATA : BEGIN OF I_ZFM OCCURS 0.

*INCLUDE STRUCTURE ZFM_HANDY.

*DATA : NACHN LIKE PA0002-NACHN,

VORNA LIKE PA0002-VORNA,
END OF I_ZFM.

DATA : BEGIN OF ty_MOBLIST.

include structure zfm_handy.

data: NACHN like pa0002-nachn,

VORNA like pa0002-vorna,

END OF ty_MOBLIST.

DATA : BEGIN OF ty_zfm_handy.

include structure zfm_handy.

data : END OF ty_zfm_handy.

DATA : BEGIN OF ty_pa0002,

NACHN type pa0002-nachn,

VORNA type pa0002-vorna,

pernr type pa0002-pernr,

END OF ty_pa0002.

data : it_MOBLIST LIKE table of ty_MOBLIST,

wa_MOBLIST LIKE ty_MOBLIST ,

it_zfm_handy LIKE table of ty_zfm_handy,

wa_zfm_handy LIKE ty_zfm_handy ,

it_pa0002 LIKE table of ty_pa0002,

wa_pa0002 LIKE ty_pa0002 .

*DATA : BEGIN OF IT_ZFM_MOBLIST OCCURS 0.

include structure zfm_handy.
data: NACHN like pa0002-nachn,
VORNA like pa0002-vorna,
END OF IT_ZFM_MOBLIST.

*

DATA : BEGIN OF IT_ZFM_HANDY OCCURS 0.
include structure zfm_handy.
END OF IT_ZFM_HANDY.

*

*DATA : BEGIN OF IT_ZFM_PA0002 OCCURS 0,

NACHN type pa0002-nachn,
VORNA type pa0002-vorna,
pernr type pa0002-pernr,
END OF IT_ZFM_PA0002.

*

INITIALIZATION.

G_REPID = SY-REPID.

PERFORM PRINT_BUILD USING GS_PRINT. "Print PARAMETERS

START-OF-SELECTION.

SELECT * from

zfm_handy

into corresponding fields of table it_zfm_handy.

if not it_zfm_handy[] is initial.

select NACHN

VORNA

from pa0002

into table it_pa0002

for all entries in it_zfm_handy

where pernr = it_zfm_handy-pernr.

endif. " not it_zfm_handy

loop at it_zfm_handy into wa_zfm_handy.

read table it_pa0002 into wa_pa0002 with key pernr = ty_zfm_handy-pernr.

if sy-subrc = 0.

clear wa_MOBLIST.

move wa_zfm_handy to wa_MOBLIST.

move wa_pa0002 to wa_MOBLIST.

append wa_MOBLIST to it_MOBLIST .

endif. " sy-subrc

endloop.

*SELECT * from

zfm_handy
into corresponding fields of table it_zfm_handy.

*

if not it_zfm_handy[] is initial.
select NACHN
VORNA
from pa0002
into table it_pa0002
for all entries in it_zfm_handy
where pernr = it_zfm_handy-pernr.

*

endif. " not it_zfm_handy

*

loop at it_zfm_handy.
read table it_pa0002 FROM PA0002 with key pernr = ty_zfm_handy-pernr.
if sy-subrc = 0.

clear wa_MOBLIST.
move wa_zfm_handy to wa_MOBLIST.
move wa_pa0002 to wa_MOBLIST.
append wa_MOBLIST to it_MOBLIST .

APPEND IT_ZFM_MOBLIST.
endif. " sy-subrc
endloop.

*

SELECT *
FROM zfm_handy
INTO TABLE t_handy.

*SELECT ZFM_HANDY~TELNUM ZFM_HANDY~KARTNR ZFM_HANDY~ZUTART ZFM_HANDY~PERNR

ZFM_HANDY_{ZDATE ZFM_HANDY}PINNR ZFM_HANDY_{PUKNR ZFM_HANDY}TARIF1
ZFM_HANDY_{TARIF2 ZFM_HANDY}TARIF3 ZFM_HANDY_{GTYPE ZFM_HANDY}IMEI ZFM_HANDY~TWINCARD
ZFM_HANDY_{TWINBILL ZFM_HANDY}EINBAU ZFM_HANDY_{BESCHR ZFM_HANDY}TEXT1 ZFM_HANDY~TEXT2
ZFM_HANDY_{TEXT3 PA0002}NACHN PA0002~VORNA INTO TABLE I_ZFM FROM ZFM_HANDY INNER JOIN PA0002
ON ZFM_HANDY_{PERNR = PA0002}PERNR.

select a_{telnum a}kartnr a_{zutart a}pernr a_{zdate a}pinnr a_{puknr a}tarif1 a_{tarif2 a}tarif3 a_{gtype a}imei a~twincard
a_{twinbill a}einbau a_{beschr a}text1 a_{text2 a}text3 b_{nachn b}vorna into table i_zfm from zfm_handy as a inner join pa0002
as b on a_{pernr = b}pernr where a_{pernr = b}pernr.

*

*telnum , kartnr , zutart , pernr , zdate , pinnr , puknr ,

tarif1 , tarif2 , tarif3 , gtye , imei , twincard , twinbill , einbau , beschr , text1 , text2 , text3 , nachn , vorna) from
zfm_handy as a inner join pa0002 as b on a_{pernr = b}pernr where a_{pernr = b}pernr.

PERFORM BUILD.

PERFORM EVENTTAB_BUILD CHANGING GT_EVENTS.

PERFORM COMMENT_BUILD CHANGING GT_LIST_TOP_OF_PAGE.

PERFORM CALL_ALV.

&----

*& Form BUILD

&----

FORM BUILD.

DATA FIELD CATALOG
Explain Field Description to ALV

DATA: FIELDCAT_IN TYPE SLIS_FIELDCAT_ALV.

CLEAR FIELDCAT_IN.

FIELDCAT_LN-FIELDNAME = 'TELNUM'.