Problem with Internal table

Question

HI,
I need to DMBE2 value as with respective of Month, Year and Inception date.
I need the output to be like
HKONT  BLART PRCTR DMBE2(Month) DMBE2 (Year) DMBE3 (Year)
Below is my code
DATA : BEGIN OF gt_lkorr OCCURS 0,
          hkont LIKE bsis-hkont,
          prctr LIKE bsis-prctr,
          bewar LIKE bsis-bewar,
          dmbe2 LIKE bsis-dmbe2,
          belnr LIKE bsis-belnr,
          budat LIKE bsis-budat,
          monat LIKE bsis-monat,
          gjahr LIKE bsis-gjahr,
          blart LIKE bsis-blart,
          shkzg like bsis-shkzg,
       END OF gt_lkorr.
*DATA : wa_lkorr LIKE gt_lkorr OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF wa_lkorr OCCURS 0,
          hkont LIKE bsis-hkont,
          prctr LIKE bsis-prctr,
          bewar LIKE bsis-bewar,
          dmbe2 LIKE bsis-dmbe2,
          belnr LIKE bsis-belnr,
          budat LIKE bsis-budat,
          monat LIKE bsis-monat,
          gjahr LIKE bsis-gjahr,
          blart LIKE bsis-blart,
         dmbe2_2 LIKE bsis-dmbe2,
         dmbe2_3 LIKE bsis-dmbe2,
       END OF wa_lkorr.
DATA : gt_final_lkorr LIKE wa_lkorr OCCURS 0 WITH HEADER LINE.
FORM f_get_t030hb_tr.
  SELECT hkont lkorr FROM t030hb INTO CORRESPONDING FIELDS OF
                      TABLE gt_tr_t030hb
                      WHERE ktopl = 'KCOA'
                      AND   bwber = 'TR'
                      AND hkont IN so_hkont.
  IF gp_pprct IS INITIAL.
    SELECT hkont prctr bewar dmbe2 belnr budat monat gjahr blart
                       FROM bsis INTO CORRESPONDING
                       FIELDS OF TABLE gt_lkorr FOR ALL ENTRIES
                       IN gt_tr_t030hb
                       WHERE bukrs IN so_bukrs
                       AND gjahr IN so_gjahr
                       AND prctr IN so_prctr
                       AND hkont = gt_tr_t030hb-lkorr
                       AND vbund IN so_vbund.
  ELSE.
    LOOP AT gt_prctr.
      SELECT hkont prctr bewar dmbe2 belnr budat monat gjahr blart
                         FROM bsis INTO CORRESPONDING
                         FIELDS OF TABLE gt_lkorr FOR ALL ENTRIES
                         IN gt_tr_t030hb
                         WHERE bukrs IN so_bukrs
                         AND gjahr   IN so_gjahr
                         AND prctr = gt_prctr-prctr
                         AND hkont = gt_tr_t030hb-lkorr
                         AND vbund IN so_vbund.
    ENDLOOP.
  ENDIF.
  DELETE ADJACENT DUPLICATES FROM gt_lkorr COMPARING ALL FIELDS.
ENDFORM.                    "f_get_t030hb_tr
*&      Form  f_get_yearwise_data
      text
FORM f_get_yearwise_data.
  DATA : lv_period LIKE t009b-poper.
  DATA : lv_year LIKE bsis-gjahr,
         lv_dmbe2 LIKE bsis-dmbe2.
  LOOP AT gt_lkorr.
    CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
      EXPORTING
        i_date               = sy-datum
         I_MONMIT             = 00
        i_periv              = 'K4'
     IMPORTING
       e_buper              = lv_period
         E_GJAHR              =
    EXCEPTIONS
      input_false          = 1
      t009_notfound        = 2
      t009b_notfound       = 3
      OTHERS               = 4
    IF gt_lkorr-monat EQ lv_period.
        wa_lkorr-hkont = gt_lkorr-hkont.
        wa_lkorr-prctr = gt_lkorr-prctr.
        wa_lkorr-bewar = gt_lkorr-bewar.
        wa_lkorr-dmbe2 = gt_lkorr-dmbe2.
        wa_lkorr-blart = gt_lkorr-blart.
        if gt_lkorr-shkzg = 'H'.
          wa_lkorr-dmbe2 = - wa_lkorr-dmbe2.
        endif.
      COLLECT wa_lkorr.
    endif.
ENDLOOP.
      LOOP AT wa_lkorr INTO gt_final_lkorr.
        write  : / gt_final_lkorr-hkont,
                 gt_final_lkorr-prctr,
                 gt_final_lkorr-bewar,
                 gt_final_lkorr-dmbe2,
                 gt_final_lkorr-blart.
      ENDLOOP.
write : ' Inception to date'.
  LOOP AT gt_lkorr.
    CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
      EXPORTING
        i_date               = sy-datum
         I_MONMIT             = 00
        i_periv              = 'K4'
     IMPORTING
      e_buper              = lv_period
          e_gjahr              = lv_year
    EXCEPTIONS
      input_false          = 1
      t009_notfound        = 2
      t009b_notfound       = 3
      OTHERS               = 4
    IF gt_lkorr-gjahr EQ lv_year.
        wa_lkorr-hkont = gt_lkorr-hkont.
        wa_lkorr-prctr = gt_lkorr-prctr.
        wa_lkorr-bewar = gt_lkorr-bewar.
        wa_lkorr-dmbe2 = gt_lkorr-dmbe2.
        wa_lkorr-blart = gt_lkorr-blart.
        if gt_lkorr-shkzg = 'H'.
          wa_lkorr-dmbe2 = - wa_lkorr-dmbe2.
        endif.
      COLLECT wa_lkorr.
    endif.
ENDLOOP.
      LOOP AT wa_lkorr into gt_final_lkorr.
        WRITE : / gt_final_lkorr-hkont,
                  gt_final_lkorr-prctr,
                  gt_final_lkorr-bewar,
                  gt_final_lkorr-dmbe2,
                  gt_final_lkorr-blart.
         move : wa_lkorr-dmbe2_2 to gt_final_lkorr-dmbe2_2.
         modify gt_final_lkorr.
         clear gt_final_lkorr.
      ENDLOOP.
loop at gt_lkorr.
        wa_lkorr-hkont = gt_lkorr-hkont.
        wa_lkorr-prctr = gt_lkorr-prctr.
        wa_lkorr-bewar = gt_lkorr-bewar.
        wa_lkorr-dmbe2 = gt_lkorr-dmbe2.
        wa_lkorr-blart = gt_lkorr-blart.
        if gt_lkorr-shkzg = 'H'.
          wa_lkorr-dmbe2 = - wa_lkorr-dmbe2.
        endif.
      COLLECT wa_lkorr.
ENDLOOP.
      LOOP AT wa_lkorr into gt_final_lkorr.
        WRITE : / gt_final_lkorr-hkont,
                  gt_final_lkorr-prctr,
                  gt_final_lkorr-bewar,
                  gt_final_lkorr-dmbe2,
                  gt_final_lkorr-blart.
      ENDLOOP.
Please let me know how to do it?
Thanks,
Pavan.

Answer 1

I think you need to insert a field in your wa_lkorr internal table for key which you should populate as M for month data, Y2 for Year data and Y3 for dmbe3 data.
So when you want to display they are three different records.