Skip to Content
0
Former Member
Dec 04, 2006 at 08:50 PM

Select statement

31 Views

Hi all ,

In this code i have 2 fields pbpino ,pbpapino . Instead of hitting same table somany times(with single select statement) is there any other way so that i can hit the table once and get the values .

SELECT PBPINO PBPAPINO FROM ZWPBPH INTO TABLE T_ZWPBPH FOR ALL ENTRIES

IN T_MARA WHERE PBPINO = T_MARA-MATNR.

ENDIF.

IF SY-SUBRC = 0.

LOOP AT T_ZWPBPH.

SELECT SINGLE PBPINO PBPAPINO FROM ZWPBPH INTO T_MODEL WHERE

PBPINO = T_ZWPBPH-PBPAPINO.

IF SY-SUBRC = 0.

SELECT SINGLE PBPINO PBPAPINO FROM ZWPBPH INTO T_PRODUCT WHERE

PBPINO = T_MODEL-PBPAPINO.

ENDIF.

IF SY-SUBRC = 0.

SELECT SINGLE PBPINO PBPAPINO FROM ZWPBPH INTO T_FAMILY WHERE

PBPINO = T_PRODUCT-PBPAPINO.

ENDIF.

IF SY-SUBRC = 0.

SELECT SINGLE PBPINO PBPAPINO FROM ZWPBPH INTO T_LINE WHERE

PBPINO = T_FAMILY-PBPAPINO.

ENDIF.

IF SY-SUBRC = 0.

SELECT SINGLE PBPINO PBPAPINO FROM ZWPBPH INTO T_TYPE WHERE

PBPINO = T_LINE-PBPAPINO.

ENDIF.

IF SY-SUBRC = 0.

READ TABLE T_MARA WITH KEY MATNR = T_ZWPBPH-PBPINO.

IF SY-SUBRC = 0.

IF T_MARA-SPART <> T_TYPE-PBPAPINO+1(2).

MOVE-CORRESPONDING T_MARA TO T_ALV.

IF SY-SUBRC = 0.

MOVE T_ZWPBPH-PBPINO TO T_ALV-MATNR.

MOVE T_TYPE-PBPAPINO+1(2) TO T_ALV-SPART1.

APPEND T_ALV.

CLEAR T_ALV.

ENDIF.