Hi Experts
any one tell me whats wrong in the following coding. Sy-subrc is always 4 for IT_VBFA select statement, even data is in vbfa table
DATA: BEGIN OF it_lips OCCURS 0,
vbeln LIKE lips-vbeln,
werks LIKE lips-werks,
posnr LIKE lips-posnr,
matnr LIKE lips-matnr,
lfimg LIKE lips-lfimg,
erdat LIKE lips-erdat,
ernam LIKE lips-ernam,
END OF it_lips.
DATA: BEGIN OF it_likp OCCURS 0,
vkorg LIKE likp-vkorg,
kunag LIKE likp-kunag,
kunnr LIKE likp-kunnr,
lfdat LIKE LIKP-LFDAT,
WADAT LIKE LIKP-WADAT,
END OF it_likp.
DATA: BEGIN OF it_VBFA OCCURS 0,
vbeln LIKE VBFA-vbeln,
END OF it_VBFA.
DATA: BEGIN OF it_VBAK OCCURS 0,
BSTNK LIKE VBAK-BSTNK,
END OF it_VBAK.
DATA: BEGIN OF it_kna1 OCCURS 0,
name1 LIKE kna1-name1,
name2 LIKE kna1-name2,
STRAS like kna1-STRAS,
ORT02 like kna1-ort02,
PSTLZ like kna1-PSTLZ,
ORT01 like kna1-ORT01,
END OF it_kna1.
FORM get_delivery_note_data .
SELECT vbeln werks posnr matnr lfimg erdat ernam
FROM lips INTO TABLE it_lips
WHERE werks = p_werks
AND vbeln IN s_vbeln
AND erdat IN s_erdat
AND ernam IN s_ernam.
IF NOT it_lips[] IS INITIAL.
SELECT vkorg kunag kunnr LFDAT WADAT
FROM likp INTO TABLE it_likp
FOR ALL ENTRIES IN it_lips
WHERE vbeln = it_lips-vbeln
AND vkorg IN s_vkorg
AND WADAT IN S_WADAT.
SELECT VBELN FROM VBFA
INTO TABLE IT_VBFA
FOR ALL ENTRIES IN IT_LIPS
WHERE VBELV = IT_LIPS-VBELN
AND MATNR = IT_LIPS-MATNR.
AND VBTYP_N = 'C'.
IF IT_VBFA[] IS NOT INITIAL.
SELECT BSTNK FROM VBAK
INTO TABLE IT_VBAK
FOR ALL ENTRIES IN IT_VBFA
WHERE VBELN = IT_VBFA-VBELN.
ENDIF.
select name1 name2 STRAS ORT02 PSTLZ ORT01
from kna1 into table it_kna1
for all entries in it_likp
where kunnr = it_likp-kunnr.
ENDIF.
ENDFORM. " GET_DELIVERY_NOTE_DATA