inner joins

Former Member — Thu, 14 Dec 2006 21:31:06 GMT

i got struck up at the below code. i want to move all my data into strans table.

FORM RETRIEVE_DATA .

CLEAR: WA_MKPF.

SELECT CPUDT CPUTM XBLNR FROM MKPF INTO ZMKPF WHERE CPUDT IN

S_DATE.

CLEAR: WA_LIPS.

If Zmkpf-cpudt = s_date-low.

check Zmkpf-cputm GE p_time1.

endif.

If Zmkpf-cpudt = s_date-high.

check Zmkpf-cputm lE p_time2.

endif.

APPEND ZMKPF.

ENDSELECT.

CLEAR WA_LIKP.
SELECT SINGLE VBELN ERDAT ERZET KUNNR FROM LIKP INTO WA_LIKP
WHERE VBELN = WA_MKPF-XBLNR.
check: s_LFART.
SELECT POSNR CHARG LFIMG MATNR VGBEL FROM LIPS INTO WA_LIPS
WHERE VBELN = WA_MKPF-XBLNR.
CLEAR WA_VBAK.

*LOOP AT ZMKPF into wa_zmkpf.

SELECT LIKP_{VBELN LIKP}ERDAT LIKP_{ERZET LIKP}KUNNR LIPS~POSNR

LIPS_{CHARG LIPS}LFIMG LIPS_{MATNR LIPS}VGBEL INTO CORRESPONDING FIELDS

OF TABLE ZLIKP FROM LIKP INNER JOIN LIPS ON LIKP_{VBELN = LIPS}VBELN.

INNER JOIN ZMKPF ON LIKP_{VBELN = ZMKPF}XBLNR.
WHERE LIKP~VBELN = WA_ZMKPF-XBLNR.

*ENDLOOP.

BREAK-POINT.

IF NOT ZLIKP[] IS INITIAL.

SELECT VBELN AUGRU FROM VBAK INTO TABLE ZVBAK

FOR ALL ENTRIES IN ZLIKP

WHERE VBELN = ZLIKP-VGBEL.

ENDIF.

CHECK: S_AUART.

REFRESH STRANS.

CLEAR STRANS.

LOOP AT ZLIKP.

W_TABIX = SY-TABIX.

SHIFT ZLIKP-VBELN LEFT DELETING LEADING '0'.

SHIFT ZLIKP-CHARG LEFT DELETING LEADING '0'.

SHIFT ZLIKP-KUNNR LEFT DELETING LEADING '0'.

SHIFT ZLIKP-POSNR LEFT DELETING LEADING '0'.

CLEAR RTAB.

MOVE ZLIKP-VBELN TO STRANS-VBELN.

CONCATENATE ZLIKP-ERDAT(4) '-' ZLIKP-ERDAT+4(2) '-'

ZLIKP-ERDAT+6(2) INTO V_DATE.

CONCATENATE ZLIKP-ERZET(2) ':' ZLIKP-ERZET+2(2) ':'

ZLIKP-ERZET+4(2) INTO V_TIME.

CONCATENATE V_DATE V_TIME INTO STRANS-ERDAT SEPARATED BY SPACE.

MOVE ZVBAK-AUGRU TO STRANS-AUGRU.

MOVE ZVBAK-VBELN TO STRANS-VBELN.

select single a~sort2 from kna1 as k

inner join adrc as a

on k_{adrnr = a}addrnumber

into g_zcorp_id

where k~kunnr = ZLIKP-KUNNR.

if sy-subrc = 0.

concatenate 'U' g_zcorp_id into g_zcorp_id.

condense g_zcorp_id no-gaps.

endif.

MOVE G_ZCORP_ID TO STRANS-KUNNR.

CONCATENATE ZLIKP-VBELN '-' ZLIKP-POSNR INTO VTRANS.

MOVE VTRANS TO STRANS-STRANS.

MOVE ZLIKP-MATNR TO STRANS-MATNR.

MOVE ZLIKP-CHARG TO STRANS-CHARG.

MOVE ZLIKP-LFIMG TO STRANS-LFIMG.

APPEND strans.

ENDLOOP.

ENDFORM. " RETRIEVE_DATA

Re: inner joins

Former Member — Fri, 15 Dec 2006 11:28:47 GMT

where the problem raises?

topic Re: inner joins in Application Development and Automation Discussions

inner joins

Re: inner joins