‎2008 Aug 06 4:00 PM
TYPES : BEGIN OF type_repstruc,
ccode TYPE bukrs,
docnum TYPE belnr_d,
docs TYPE dbzhl,
fyear TYPE gjahr,
fir_run TYPE dbbdt,
nex_run TYPE dbatr,
las_run TYPE dbedt,
dbakz TYPE dbakz_t054,
del_ind TYPE c,
lifnr TYPE lifnr,
hkont TYPE hkont,
ttl_docamt TYPE wert, " Total Doc. Amount
ttl_pstamt TYPE wert, " Total Post Amount
*----
UHDK932263
LIFNR TYPE LIFNR,
DBMON TYPE DBMON,
BELNR TYPE BELNR_D,
BUDAT TYPE BUDAT,
WRBTR TYPE WRBTR,
AUGBL TYPE AUGBL,
AUGDT TYPE AUGDT,
WRBTR TYPE WRBTR,
*----
UHDK932263
END OF type_repstruc.
TYPES : BEGIN OF type_detail,
bukrs TYPE bukrs,
lifnr TYPE lifnr,
hkont TYPE hkont,
belnr TYPE belnr_d,
dmbtr TYPE dmbtr,
koart TYPE koart,
shkzg TYPE shkzg,
ttl_docamt TYPE wert, " Total Doc. Amount
ttl_pstamt TYPE wert, " Total Post Amount
*----
UHDK932263
WRBTR TYPE WRBTR,
AUGBL TYPE AUGBL,
AUGDT TYPE AUGDT,
*----
UHDK932263
END OF type_detail.
DATA : gt_detail TYPE TABLE OF type_detail,
gt_detail1 TYPE TABLE OF type_detail,
gt_reptab TYPE TABLE OF type_repstruc,
gt_doc_detail TYPE TABLE OF type_doc_detail.
DATA : gw_reptab TYPE type_repstruc,
gw_detail TYPE type_detail,
gw_doc_detail TYPE type_doc_detail.
SELECT bukrs belnr dbzhl gjahr dbbdt dbatr dbedt dbakz xdelt
FROM bkdf
INTO TABLE gt_reptab
WHERE bukrs IN so_code
AND dbbdt IN so_date
AND bukrs IN so_code
AND belnr IN so_docn.
SORT gt_reptab BY docnum.
SELECT bukrs lifnr hkont belnr dmbtr koart shkzg WRBTR AUGBL AUGDT
FROM bseg
INTO TABLE gt_detail
FOR ALL ENTRIES IN gt_reptab
WHERE belnr EQ gt_reptab-docnum
AND bukrs EQ gt_reptab-ccode.
I AM GETTING DUMP IN SECOND SELECT STATEMENT...
‎2008 Aug 06 4:01 PM
in the second select statement use into corresponding fields of table
SELECT bukrs lifnr hkont belnr dmbtr koart shkzg WRBTR AUGBL AUGDT
FROM bseg
INTO into corresponding fields of table gt_detail
FOR ALL ENTRIES IN gt_reptab
WHERE belnr EQ gt_reptab-docnum
AND bukrs EQ gt_reptab-ccode.
‎2008 Aug 06 4:01 PM
in the second select statement use into corresponding fields of table
SELECT bukrs lifnr hkont belnr dmbtr koart shkzg WRBTR AUGBL AUGDT
FROM bseg
INTO into corresponding fields of table gt_detail
FOR ALL ENTRIES IN gt_reptab
WHERE belnr EQ gt_reptab-docnum
AND bukrs EQ gt_reptab-ccode.
‎2008 Aug 06 4:02 PM
hi,
WHERE belnr EQ gt_reptab-docnum
AND bukrs EQ gt_reptab-ccode.
here is docnum same as belnr?
check for the filed names
‎2008 Aug 06 4:02 PM
Hi Ravi,
Before using 'FOR ALL ENTRIES' , you need to check that internal table is iniital or not.
What is the error message(Error Analysis) you got in that runtime error.
Thanks,
Pranav
‎2008 Aug 06 4:04 PM