Hi Experts,
I am writing the below SQL script , I am having an issue with SQL SCRIPT Writing for all entries please suggest
CLASS zbalu_amdp3 DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
INTERFACES if_amdp_marker_hdb.
TYPES:BEGIN OF t_vbakap,
vbeln type vbak-vbeln,
vkorg type vbak-vkorg,
vtweg type vbak-vtweg,
spart type vbak-spart,
kunnr type vbak-kunnr,
posnr type vbap-posnr,
matnr type vbap-matnr,
matwa type vbap-matwa,
END OF t_vbakap.
types: begin of t_kna1,
kunnr type kna1-kunnr,
name1 TYPE kna1-name1,
land1 type kna1-land1,
land2 type kna1-land2,
ort01 TYPE kna1-ort01,
END OF t_kna1.
TYPES: begin of t_final,
vbeln type vbak-vbeln,
vkorg type vbak-vkorg,
vtweg type vbak-vtweg,
spart type vbak-spart,
kunnr type vbak-kunnr,
posnr type vbap-posnr,
matnr type vbap-matnr,
matwa type vbap-matwa,
name1 TYPE kna1-name1,
land1 type kna1-land1,
land2 type kna1-land2,
ort01 TYPE kna1-ort01,
END OF t_final.
data: w_kna1 TYPE t_kna1,
i_kna1 TYPE STANDARD TABLE OF t_kna1.
TYPES: tt_final TYPE STANDARD TABLE OF t_final,
tt_kna1 TYPE STANDARD TABLE OF t_kna1,
tt_vbakap TYPE STANDARD TABLE OF t_vbakap.
METHODS: get_data IMPORTING
VALUE(iv_vbeln) type vbak-vbeln
exporting value(et_final) type tt_final
VALUE(et_vbakap) type tt_vbakap
VALUE(et_kna1) TYPE tt_kna1.
PROTECTED SECTION.
PRIVATE SECTION.
ENDCLASS.
CLASS zbalu_amdp3 IMPLEMENTATION.
METHOD get_data BY DATABASE PROCEDURE FOR HDB LANGUAGE SQLSCRIPT using vbak vbap kna1.
TYPES: BEGIN OF t_vbakap,
vbeln type vbak-vbeln,
vkorg type vbak-vkorg,
vtweg type vbak-vtweg,
spart type vbak-spart,
kunnr type vbak-kunnr,
posnr type vbap-posnr,
matnr type vbap-matnr,
matwa type vbap-matwa,
END OF t_vbakap.
types: begin of t_kna1,
kunnr type kna1-kunnr,
name1 TYPE kna1-name1,
land1 type kna1-land1,
land2 type kna1-land2,
ort01 TYPE kna1-ort01,
END OF t_kna1.
data: w_kna1 type t_kna1, w_vbakap type t_vbakap.
et_vbakap = SELECT a.vbeln , a.vkorg , a.vtweg , a.spart , a.kunnr
b.posnr , b.matnr , b.matwa
from vbak as a
inner join vbap as b
on a.vbeln = b.vbeln ;
LOOP at et_vbakap into w_vbakap.
exec sql.
select kunnr name1 land1 land2 ort01 into :w_kna1 where kunnr eq w_vbakap-kunnr.
if sy-subrc is initial.
append w_kna1 to et_kna1.
endif.
endloop.
I am having error at loop.. please suggest how to get enrtries from KNA1 table based on entries in VBAK / VBAP tables ie from internal table et_vbakap table.
Thanks,
RG
ENDMETHOD..