program without inner join..

[Former Member]

hi frds...

i need help in the programming without using the inner join and views,

i want to take data from 2 different table without join and views, give some sample codes or links

it will help to us.

by

pari..

Edited by: Alvaro Tejada Galindo on Feb 22, 2008 12:18 PM

[Former Member]

using 'all entries' also we can do the programmig with two tables.

[Former Member]

using 'all entries' also we can do the programming for two or more tables.

[Former Member]

hi krishna,

give me some sample codes for that.

by

pari

[Former Member]

HI,

Please refer to the below code:

  SELECT bukrs saknr FROM skb1 INTO TABLE gt_skb1
                              WHERE bukrs IN so_bukrs
                              AND saknr IN so_hkont
                              AND  ( bewgp EQ space OR
                                     bewgp EQ 'NCTA' )
                              AND xopvw = 'X'.

  IF NOT gt_skb1[] IS INITIAL.

    SELECT bukrs hkont augdt augbl gjahr belnr buzei waers budat
                                  monat FROM bsas INTO
                                  TABLE gt_bsas FOR ALL ENTRIES IN
                                   gt_skb1
                                   WHERE bukrs = gt_skb1-bukrs
                                   AND   hkont = gt_skb1-saknr
                                   AND   augdt IN gr_augdt
                                   AND   augbl IN so_augbl  
                                   AND   gjahr = sp_gjahr
                                   AND   waers IN so_waers.
  ENDIF.

Thanks,

Sriram Ponna.

[Former Member]

Hi pari,

This is the sample code 'for all entries'

in alv report.

TYPE-POOLS:SLIS.

DATA:BODY TYPE SLIS_T_FIELDCAT_ALV,

HEADER TYPE SLIS_FIELDCAT_ALV.

DATA:BEGIN OF ITAB OCCURS 0,

MATNR LIKE MARA-MATNR,

ERSDA LIKE MARA-ERSDA,

MEINS LIKE MARA-MEINS,

END OF ITAB.

DATA:BEGIN OF ITAB1 OCCURS 0,

MATNR LIKE MAKT-MATNR,

MAKTX LIKE MAKT-MAKTX,

END OF ITAB1.

DATA:BEGIN OF ITAB2 OCCURS 0,

MATNR LIKE MARA-MATNR,

ERSDA LIKE MARA-ERSDA,

MEINS LIKE MARA-MEINS,

MAKTX LIKE MAKT-MAKTX,

END OF ITAB2.

SELECT-OPTIONS:SMATNR FOR ITAB-MATNR.

PERFORM FETCH_MARA.

PERFORM FETCH_MAKT.

PERFORM READ.

PERFORM FIELDCATALOG.

PERFORM ALVDISPLAY.

&----

---

*& Form FETCH_MARA

&----

---

form FETCH_MARA .

SELECT MATNR ERSDA MEINS FROM MARA INTO TABLE ITAB WHERE MATNR IN SMATNR

.

endform. " FETCH_MARA

&----

---

*& Form FETCH_MAKT

&----

---

form FETCH_MAKT .

IF ITAB[] IS NOT INITIAL.

SELECT MATNR MAKTX FROM MAKT INTO TABLE ITAB1 FOR ALL ENTRIES IN ITAB

WHERE MATNR = ITAB-MATNR.

ENDIF.

endform. " FETCH_MAKT

FORM READ.

LOOP AT ITAB.

READ TABLE ITAB1 WITH KEY MATNR = ITAB-MATNR.

IF SY-SUBRC = 0.

MOVE ITAB-MATNR TO ITAB2-MATNR.

MOVE ITAB-ERSDA TO ITAB2-ERSDA.

MOVE ITAB-MEINS TO ITAB2-MEINS.

MOVE ITAB1-MAKTX TO ITAB2-MAKTX.

ENDIF.

APPEND ITAB2.

ENDLOOP.

ENDFORM.

&----

---

*& Form FIELDCATALOG

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

form FIELDCATALOG .

HEADER-COL_POS = '1'.

HEADER-SELTEXT_L = 'MATNR1'.

HEADER-TABNAME = 'ITAB2'.

HEADER-FIELDNAME = 'MATNR'.

APPEND HEADER TO BODY.

CLEAR HEADER.

HEADER-COL_POS = '2'.

HEADER-SELTEXT_L = 'ERSDA'.

HEADER-TABNAME = 'ITAB2'.

HEADER-FIELDNAME = 'ERSDA'.

APPEND HEADER TO BODY.

CLEAR HEADER.

HEADER-COL_POS = '3'.

HEADER-SELTEXT_L = 'MEINS'.

HEADER-TABNAME = 'ITAB2'.

HEADER-FIELDNAME = 'MEINS'.

APPEND HEADER TO BODY.

CLEAR HEADER.

HEADER-COL_POS = '4'.

HEADER-SELTEXT_L = 'MAKTX'.

HEADER-TABNAME = 'ITAB2'.

HEADER-FIELDNAME = 'MAKTX'.

APPEND HEADER TO BODY.

CLEAR HEADER.

endform. " FIELDCATALOG

&----

---

*& Form ALVDISPLAY

&----

---

form ALVDISPLAY .

CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER =

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = 'ZALVREPORT'

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

• I_STRUCTURE_NAME =

• IS_LAYOUT =

IT_FIELDCAT = BODY

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

• IT_EVENTS =

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

t_outtab = ITAB2

• EXCEPTIONS

• PROGRAM_ERROR = 1

• OTHERS = 2

.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM.