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.