data retrieving code plz modify according to req

Former Member · ‎2007 Jan 19

i have two tables zfm_handy and pa0002

field in zfm_handy is pernr(personal number length 8 numeric )

pa002 is vorna nachn

i want to display the data for each pernr correspondig vorna nachn

in my pa0002 table has 990 records (vorna nachn) but i m getting output only 10 records

like this 00009856

00003544

00006585

but all the 980 has data like this 56760000

65830000

65750000

plz send the code for this logic how to get all the 990 records.

i m getting all the pernr but i m not getting vorna nachn because of above problem

code :

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 : BEGIN OF IT_MOBLIST OCCURS 0,

TELNUM TYPE ZFM_HANDY-TELNUM,

KARTNR TYPE ZFM_HANDY-KARTNR,

ZUTART TYPE ZFM_HANDY-ZUTART,

PERNR TYPE ZFM_HANDY-PERNR,

nachn TYPE pa0002-nachn,

VORNA TYPE pa0002-vorna,

ZDATE TYPE ZFM_HANDY-ZDATE,

PINNR TYPE ZFM_HANDY-PINNR,

PUKNR TYPE ZFM_HANDY-PUKNR,

TARIF1 TYPE ZFM_HANDY-TARIF1,

TARIF2 TYPE ZFM_HANDY-TARIF2,

TARIF3 TYPE ZFM_HANDY-TARIF3,

GTYPE TYPE ZFM_HANDY-GTYPE,

IMEI TYPE ZFM_HANDY-TARIF1,

twincard type zfm_handy-twincard,

twinbill type zfm_handy-twinbill,

einbau type zfm_handy-einbau,

beschr type zfm_handy-beschr,

text1 type zfm_handy-text1,

text2 type zfm_handy-text2,

text3 type zfm_handy-text3,

end of it_moblist.

DATA : BEGIN OF IT_zfm_handy OCCURS 0,

TELNUM TYPE ZFM_HANDY-TELNUM,

KARTNR TYPE ZFM_HANDY-KARTNR,

ZUTART TYPE ZFM_HANDY-ZUTART,

PERNR TYPE ZFM_HANDY-PERNR,

ZDATE TYPE ZFM_HANDY-ZDATE,

PINNR TYPE ZFM_HANDY-PINNR,

PUKNR TYPE ZFM_HANDY-PUKNR,

TARIF1 TYPE ZFM_HANDY-TARIF1,

TARIF2 TYPE ZFM_HANDY-TARIF2,

TARIF3 TYPE ZFM_HANDY-TARIF3,

GTYPE TYPE ZFM_HANDY-GTYPE,

IMEI TYPE ZFM_HANDY-TARIF1,

twincard type zfm_handy-twincard,

twinbill type zfm_handy-twinbill,

einbau type zfm_handy-einbau,

beschr type zfm_handy-beschr,

text1 type zfm_handy-text1,

text2 type zfm_handy-text2,

text3 type zfm_handy-text3,

end of it_zfm_handy.

*

*DATA : BEGIN OF it_zfm_handy OCCURS 0.

INCLUDE STRUCTURE zfm_handy.

*DATA END OF it_zfm_handy.

*

DATA : BEGIN OF it_pa0002 OCCURS 0,

pernr TYPE pa0002-pernr,

nachn TYPE pa0002-nachn,

vorna TYPE pa0002-vorna,

pernr TYPE pa0002-pernr,

END OF it_pa0002.

*

*data : zutart like zfm_handy.

INITIALIZATION.

g_repid = sy-repid.

PERFORM print_build USING gs_print. "Print PARAMETERS

START-OF-SELECTION.

PERFORM data_selection.

PERFORM build_fieldcat.

PERFORM eventtab_build CHANGING gt_events.

PERFORM comment_build CHANGING gt_list_top_of_page.

PERFORM call_alv.

&----

*& Form TOP_OF_PAGE

&----

FORM top_of_page.

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

it_list_commentary = gt_list_top_of_page.

WRITE: sy-datum, 'Page No', sy-pagno RIGHT-JUSTIFIED.

ENDFORM. "TOP_OF_PAGE

&----

*& Form END_OF_PAGE

&----

FORM end_of_page.

WRITE: /.

WRITE AT (sy-linsz) sy-pagno CENTERED.

ENDFORM. "END_OF_PAGE

### PRINT SETTINGS

FORM print_build USING ls_print TYPE slis_print_alv.

ls_print-print = ' '. "PRINT IMMEDIATE

ls_print-no_print_selinfos = 'X'. "NO SELECTION INFO

ls_print-no_coverpage = ' '. "NO COVER PAGE

ls_print-no_new_page = ' '. "NO NEW PAGE

ls_print-no_print_listinfos = 'X'. "NO PRINT LIST INFO

ls_print-reserve_lines = 2. " FOOTERLINE

ENDFORM. "PRINT_BUILD

&----

*& Form data_selection

&----

text

----

--> p1 text
<-- p2 text

----

FORM data_selection .

SELECT * FROM

zfm_handy

INTO CORRESPONDING FIELDS OF TABLE it_zfm_handy where pernr ne space and pernr ne '00000000'.

IF NOT it_zfm_handy[] IS INITIAL.

delete it_zfm_handy where pernr = '00000000'.

SELECT pernr 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.

MOVE-CORRESPONDING it_zfm_handy TO it_moblist.

clear it_pa0002.

READ TABLE it_pa0002 WITH KEY pernr = it_zfm_handy-pernr.

if sy-subrc = 0.

move it_pa0002-nachn to it_moblist-nachn.

move it_pa0002-vorna to it_moblist-vorna.

move it_pa0002-pernr to it_moblist-pernr.

endif.

APPEND it_moblist .

clear it_moblist.

*endif.

ENDLOOP.

ENDFORM. " data_selection

&----

*& Form BUILD

&----

text

----

--> p1 text
<-- p2 text

----

FORM build_fieldcat .

Explain Field Description to ALV

DATA: fieldcat_in TYPE slis_fieldcat_alv.

CLEAR fieldcat_in.

fieldcat_ln-fieldname = 'TELNUM'.

fieldcat_ln-tabname = 'IT_MOBLIST'.

fieldcat_ln-no_out = ' '.

fieldcat_ln-seltext_l = 'TELNUM'.