Skip to Content
0
Former Member
Feb 11, 2008 at 06:46 AM

problem in linking tables: lfa1 and adrc.

465 Views

hi all,

i couldnt find out wat the mistake in this progarm .can anyone pl tel me where i did mistake.

Actualy the requirement i, display the full address of vendor by using lifnr.

REPORT YTESTPROG2.

tables: lfa1,adrc.

parameters: KD_LIFNR type lfa1-lifnr.

DATA: BEGIN OF ITAB OCCURS 0,

LIFNR LIKE LFA1-LIFNR,

ANRED LIKE LFA1-ANRED,

NAME1 LIKE LFA1-NAME1,

NAME2 LIKE LFA1-NAME2,

NAME3 LIKE LFA1-NAME3,

NAME4 LIKE LFA1-NAME4,

stras like lfa1-stras,

ADRNR like lfa1-ADRNR,

ORT01 LIKE LFA1-ORT01,

ORT02 LIKE LFA1-ORT02,

PSTLZ LIKE LFA1-PSTLZ,

ADDRNUMBER LIKE ADRC-ADDRNUMBER,

HOUSE_NUM1 LIKE ADRC-HOUSE_NUM1,

  • STR_SUPPL1 like adrc-STR_SUPPL1,

STREET2 LIKE ADRC-STR_SUPPL1,

STREET3 LIKE ADRC-STR_SUPPL2,

STREET4 LIKE ADRC-STR_SUPPL3,

STREET5 LIKE ADRC-LOCATION,

REGION LIKE ADRC-REGION,

COUNTRY LIKE ADRC-COUNTRY,

end of itab.

SELECT LIFNR ANRED NAME1 NAME2 NAME3 NAME4 stras ort01 adrnr

ORT02 PSTLZ FROM LFA1"ADRCREGION ADRCCOUNTRY

INTO CORRESPONDING FIELDS OF TABLE ITAB

"FROM LFA1 "INNER JOIN ADRC

"LFA1ADRNR = ADRCADDRNUMBER

WHERE LIFNR eq KD_LIFNR.

select single adrc~STR_SUPPL1

"adrcSTR_SUPPL2 adrcSTR_SUPPL3 adrc~LOCATION

into itab-street2 from lfa1

inner join adrc on

lfa1adrnr = adrcaddrnumber

WHERE lfa1~lifnr = kd_lifnr.

loop at itab.

write:/ itab-lifnr,itab-ANRED,itab-NAME1,itab-ORT01,itab-ort02,itab-pstlz,itab-ADRNR,

itab-STREET2.

endloop.