hi experts,
m sendin u the code...its not workin..plz help me out.
REPORT ZFI_R_RAMAN .
DATA: BEGIN OF ITAB OCCURS 0,
ORDER TYPE C,
MAT TYPE C,
CD TYPE C,
QTY TYPE C,
CQUAN TYPE C,
DQUAN TYPE C,
CRATE TYPE C,
DRATE TYPE C,
SUM TYPE P DECIMALS 2,
RATE TYPE P DECIMALS 3,
END OF ITAB.
DATA: WCREDIT LIKE ITAB-QTY,
WDEBIT LIKE ITAB-QTY,
WACREDIT LIKE ITAB-RATE,
WADEBIT LIKE ITAB-RATE.
ITAB-ORDER = '01'.
ITAB-MAT = 'MA'.
ITAB-CD = 'H'.
ITAB-QTY = '2'.
ITAB-RATE = '1.8'.
APPEND ITAB.
ITAB-ORDER = '02'.
ITAB-MAT = 'MA'.
ITAB-CD = 'S'.
ITAB-QTY = '1'.
ITAB-RATE = '1.7'.
APPEND ITAB.
ITAB-ORDER = '03'.
ITAB-MAT = 'MA'.
ITAB-CD = 'H'.
ITAB-QTY = '3'.
ITAB-RATE = '1.8'.
APPEND ITAB.
ITAB-ORDER = '04'.
ITAB-MAT = 'SA'.
ITAB-CD = 'H'.
ITAB-QTY = '4'.
ITAB-RATE = '1.9'.
APPEND ITAB.
ITAB-ORDER = '05'.
ITAB-MAT = 'SA'.
ITAB-CD = 'S'.
ITAB-QTY = '4'.
ITAB-RATE = '20.0'.
APPEND ITAB.
ITAB-ORDER = '06'.
ITAB-MAT = 'MA'.
ITAB-CD = 'S'.
ITAB-QTY = '2'.
ITAB-RATE = '4.0'.
APPEND ITAB.
ITAB-ORDER = '07'.
ITAB-MAT = 'SA'.
ITAB-CD = 'H'.
ITAB-QTY = '3'.
ITAB-RATE = '5.0'.
APPEND ITAB.
ITAB-ORDER = '08'.
ITAB-MAT = 'JA'.
ITAB-CD = 'H'.
ITAB-QTY = '2'.
ITAB-RATE = '1.8'.
APPEND ITAB.
ITAB-ORDER = '09'.
ITAB-MAT = 'JA'.
ITAB-CD = 'S'.
ITAB-QTY = '2'.
ITAB-RATE = '1.8'.
APPEND ITAB.
LOOP AT ITAB.
IF ITAB-CD = 'H'.
WCREDIT = WCREDIT + ITAB-QTY.
WACREDIT = WACREDIT + ITAB-RATE.
ELSEIF ITAB-CD = 'S'.
WDEBIT = WDEBIT + ITAB-QTY.
WADEBIT = WADEBIT + ITAB-RATE.
ENDIF.
ITAB-CQUAN = WCREDIT.
ITAB-DQUAN = WDEBIT.
ITAB-CRATE = WACREDIT.
ITAB-DRATE = WADEBIT.
ITAB-SUM = ITAB-CRATE - ITAB-DRATE.
APPEND ITAB.
CLEAR: WACREDIT,WADEBIT,WCREDIT,WDEBIT.
ENDLOOP.
LOOP AT ITAB.
WRITE:/ ITAB-ORDER,ITAB-CQUAN,ITAB-DQUAN,ITAB-CRATE,ITAB-DRATE,ITAB-SUM.