topic Re: For all entries example ! in Application Development and Automation Discussions

For all entries example !

Former Member — Wed, 02 Jan 2008 10:05:21 GMT

Please gimme an example of for all entries for three tables with out using join statement !

Re: For all entries example !

Former Member — Wed, 02 Jan 2008 10:11:14 GMT

Hi,

Check out this code.

FIELD-SYMBOLS: <fs_cont> TYPE ty_cont,

<fs_contract> TYPE ty_contract.

REFRESH: lt_contract,lt_cont,lt_project1,lt_veda.

CHECK lt_project[] IS NOT INITIAL.

lt_project1[] = lt_project[].

DELETE lt_project1 WHERE aufnr IS INITIAL.

SELECT vbeln posnr netwr aufnr waerk

FROM vbap

INTO TABLE lt_contract

FOR ALL ENTRIES IN lt_project1

WHERE aufnr = lt_project1-aufnr.

IF sy-subrc = 0.

SORT lt_contract BY vbeln posnr.

SELECT vbeln kunnr vsbed auart

FROM vbak

INTO TABLE lt_cont

FOR ALL ENTRIES IN lt_contract

WHERE vbeln = lt_contract-vbeln.

IF sy-subrc = 0.

SELECT kunnr name1

FROM kna1

INTO TABLE lt_kna1

FOR ALL ENTRIES IN lt_cont

WHERE kunnr = lt_cont-kunnr.

SELECT vbeln vbegdat venddat

FROM veda

INTO TABLE lt_veda

FOR ALL ENTRIES IN lt_cont

WHERE vbeln = lt_cont-vbeln.

IF sy-subrc = 0.

LOOP AT lt_cont ASSIGNING <fs_cont>.

CLEAR lw_veda.

READ TABLE lt_veda INTO lw_veda WITH KEY

vbeln = <fs_cont>-vbeln.

IF sy-subrc = 0.

<fs_cont>-vbegdat = lw_veda-vbegdat.

<fs_cont>-venddat = lw_veda-venddat.

ENDIF.

CLEAR lw_kna1.

READ TABLE lt_kna1 INTO lw_kna1 WITH KEY

kunnr = <fs_cont>-kunnr.

IF sy-subrc = 0.

<fs_cont>-name1 = lw_kna1-name1.

ENDIF.

ENDLOOP.

LOOP AT lt_contract ASSIGNING <fs_contract>.

CLEAR lw_cont.

READ TABLE lt_cont INTO lw_cont WITH KEY

vbeln = <fs_contract>-vbeln.

IF sy-subrc = 0.

<fs_contract>-kunnr = lw_cont-kunnr.

<fs_contract>-vsbed = lw_cont-vsbed.

<fs_contract>-vbegdat = lw_cont-vbegdat.

<fs_contract>-venddat = lw_cont-venddat.

<fs_contract>-name1 = lw_cont-name1.

<fs_contract>-auart = lw_cont-auart.

ENDIF.

ENDLOOP.

ENDIF.

ENDIF.

Re: For all entries example !

Former Member — Wed, 02 Jan 2008 10:12:12 GMT

hi jyotir,

try this one.

&----

*& Report ZSURINNERJOIN

&----

REPORT ZSURINNERJOIN message-id z_message.

TYPES: BEGIN OF TYP_STU,

Z_STUDID TYPE I,

Z_STUDENTNAME TYPE ZSTUD2-Z_STUDENTNAME,

ZADDRESS TYPE ZEMPDETAIL-ZADDRESS,

END OF TYP_STU.

TYPE-POOLS SLIS.

DATA: IT_STU TYPE STANDARD TABLE OF TYP_STU,

WA_STU TYPE TYP_STU.

DATA: IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

GT_SORT TYPE SLIS_T_SORTINFO_ALV,

GW_SORT TYPE SLIS_SORTINFO_ALV,

GT_LAYOUT TYPE SLIS_LAYOUT_ALV,

GT_HEADING TYPE SLIS_T_LISTHEADER,

GT_COLOR TYPE SLIS_SPECIALCOL_ALV,

GT_EVENT TYPE SLIS_T_EVENT.

TABLES: ZSTUD1, ZSTUD2, ZEMPDETAIL.

PARAMETER: STUDENT TYPE ZSTUD1-Z_STUDID.

INITIALIZATION.

select-options STUDENT for zstud1-z_studid.

START-OF-SELECTION.

PERFORM DISPLAY.

PERFORM SETHEADER USING GT_HEADING GT_EVENT.

perform get_data.

PERFORM GETSORT.

PERFORM GETLAYOUT.

perform get_fieldcatlog.

perform display_list.

TOP-OF-PAGE .

WRITE / 'STUDENT DETAILS'.

ULINE.

FORM DISPLAY.

SELECT A_{Z_STUDID B}Z_STUDENTNAME C~ZADDRESS

INTO TABLE IT_STU

FROM ( ( ZSTUD1 AS A

INNER JOIN ZSTUD2 AS B

ON A_{Z_STUDID = B}Z_STUDID )

INNER JOIN ZEMPDETAIL AS C

ON A_{Z_STUDID = C}ZEMPID

AND C_{ZEMPID = B}Z_STUDID )

WHERE A~Z_STUDID IN STUDENT.

IF SY-SUBRC <> 0.

MESSAGE E001.

ELSE.

LOOP AT IT_STU INTO WA_STU.

WRITE : / WA_STU-Z_STUDID, WA_STU-Z_STUDENTNAME, WA_STU-ZADDRESS.

ENDLOOP.

ENDIF.

ENDFORM.

END-OF-PAGE.

&----

*& Form SETHEADER

&----

text

----

-->P_GT_HEADING text
-->P_GT_EVENT text

----

FORM SETHEADER USING P_GT_HEADING

P_GT_EVENT.

DATA : GW_HEADING TYPE SLIS_LISTHEADER,

GW_EVENT TYPE SLIS_ALV_EVENT.

CLEAR : GW_HEADING,

GW_EVENT.

GW_HEADING-TYP = 'H'.

GW_HEADING-INFO = 'A SIMPLE GRID DISPLAY'.