program without inner join..

Former Member — Fri, 22 Feb 2008 16:59:23 GMT

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.

pari..

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

Re: program without inner join..

Former Member — Fri, 22 Feb 2008 17:17:06 GMT

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

Re: program without inner join..

Former Member — Fri, 22 Feb 2008 17:19:39 GMT

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

Re: program without inner join..

Former Member — Fri, 22 Feb 2008 17:21:15 GMT

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.

Re: program without inner join..

Former Member — Fri, 22 Feb 2008 17:22:59 GMT

hi krishna,

give me some sample codes for that.

pari

Re: program without inner join..

Former Member — Fri, 22 Feb 2008 17:23:09 GMT

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.

topic Re: program without inner join.. in Application Development and Automation Discussions

program without inner join..

Re: program without inner join..

Re: program without inner join..

Re: program without inner join..

Re: program without inner join..

Re: program without inner join..