I am getting abap dump,
pls let me know what code is to be changed.
004150 AND LOEKZ = ' '.
004160 * AND ANLN1 NE ' '.
004170 IF SY-SUBRC = 0.
004180 ITAB_MAIN-aufnr = EBKN-AUFNR.
004190 if EBKN-KOSTL is initial.
004200 select single * from coas
004210 where aufnr = ebkn-aufnr.
004220 if sy-subrc = 0.
004230 ITAB_MAIN-KOSTL = coas-kostv.
004240 endif.
004250 else.
004260 IF IT_EBAN-PSTYP = '9'.
004270
004280 else.
004290 ITAB_MAIN-KOSTL = EBKN-KOSTL.
004300 endif.
004310 endif.
004320 ITAB_MAIN-SAKTO = EBKN-SAKTO.
004330 ENDIF.
004340
004350 * IF IT_EBAN-PSTYP = '9'.
004360 * ITAB_MAIN-SAKTO = IT_EBAN-PREIS.
004370 * eNDIF.
004380
004390 IF IT_EBAN-PSTYP <> '9'.
004400
004410 ITAB_MAIN-PREIS = IT_EBAN-PREIS.
004420 ITAB_MAIN-SUBTOT = ( ITAB_MAIN-PREIS * ITAB_MAIN-MENGE ) /
004430 IT_EBAN-PEINH.
004440
-
> totcost = totcost + ITAB_MAIN-SUBTOT.
004460
004470 ENDIF.
004480
004490 DO.
004500 ITAB_MAIN-BANFN = IT_EBAN-BANFN.
004510 ITAB_MAIN-BNFPO = IT_EBAN-BNFPO.