Problem in modifying the code using work area concept

Question

Hi,
I am working on a code in which i am on the code in which i am using the modify statement but it is not giving the right output.
here's d code:-
LOOP AT T_ITPO5 INTO W_ITPO5.
        LOOP AT T_ITPO4 INTO W_ITPO4 WHERE AUFNR = W_ITPO5-AUFNR.
       LOOP AT T_ITPO4 INTO W_ITPO4 FROM WV_INDEX.
         IF W_ITPO4-AUFNR EQ W_ITPO5-AUFNR.
         IF ITPO4-NTGEW <> 0 .
            CALL FUNCTION 'ZGET_ITEM_WEIGHT'
              EXPORTING
                P_BUID   = W_ITPO4-WERKS
                P_ITEMID = W_ITPO4-MATNR
                P_QTY    = 1
                P_UOM    = W_ITPO4-MEINS
                P_UOM1   = 'KG'
              IMPORTING
                P_RETVAL = W_ITPO4-WTKG.
            TOTWT1 = W_ITPO4-WTKG * W_ITPO4-MENGE.
         IF W_ITPO4-BWART = '261'.
          W_ITPO5-I_QTY = W_ITPO5-I_QTY + TOTWT1.
         ELSEIF W_ITPO4-BWART = '101' OR W_ITPO4-BWART = '531'.
          W_ITPO5-I_QTY = W_ITPO5-I_QTY - TOTWT1.
         ENDIF.
       ENDLOOP.
         MODIFY T_ITPO5 INDEX SY-TABIX FROM W_ITPO5.
       MODIFY T_ITPO5 FROM W_ITPO5 TRANSPORTING AUFNR.
   ENDLOOP.
     WRITE: / 'PRD.NO       ITEM DESCRIPTION                               WIP(KGS)'.
    ULINE.
    LOOP AT T_ITPO5 INTO W_ITPO5.
      READ TABLE T_ITPO1 INTO W_ITPO1 WITH KEY AUFNR = W_ITPO5-AUFNR.
      SELECT SINGLE MAKTG FROM MAKT INTO W_ITPO5-ITEMDESC WHERE MATNR = W_ITPO1-MATNR.
      if sy-subrc = 0 .
      WRITE: / W_ITPO5-AUFNR,W_ITPO5-ITEMDESC,W_ITPO5-I_QTY.
      TOT_QTY = TOT_QTY + W_ITPO5-I_QTY.
      else.
      write 'Unsuccessful'.
      endif.
    ENDLOOP.
    ULINE.
    FORMAT COLOR 3.
    WRITE: / 'GTOTAL',55 TOT_QTY.
    FORMAT COLOR OFF.
plzz provide me guidelines to solve this problem.

Answer 1

here's d code;-
TYPES: BEGIN OF ITPO1,
       AUFNR TYPE AFPO-AUFNR,      "Order Number
       PSMNG TYPE AFPO-PSMNG,      "Order item quantity
       WEMNG TYPE AFPO-WEMNG,      "Quantity of goods received for the order item
       DWERK TYPE AFPO-DWERK,      "Plant
       MATNR LIKE AFPO-MATNR,      "Item Id
       END OF ITPO1.
DECLARATION FOR AUFM TABLE
TYPES: BEGIN OF ITPO4,
       AUFNR TYPE AUFM-AUFNR,      "Order Number
       BWART TYPE AUFM-BWART,      "Movement Type (Inventory Management)
       MENGE TYPE AUFM-MENGE,      "Quantity
       MEINS TYPE AUFM-MEINS,      "Base Unit of Measure
       BLDAT TYPE AUFM-BLDAT,      "Document Date in Document
       WERKS TYPE AUFM-WERKS,      "Plant
       MATNR TYPE AUFM-MATNR,      "Material Number
       NTGEW TYPE MARA-NTGEW,      "Net Weight
       WTKG  TYPE MARA-NTGEW,
       END OF ITPO4,
       BEGIN OF ITPO5 ,
       AUFNR TYPE AUFM-AUFNR,
       MENGE TYPE AUFM-MENGE,
       I_QTY TYPE AUFM-MENGE,
       ITEMDESC LIKE MAKT-MAKTG,
       END OF ITPO5.
    WORK AREA AND INTERNAL TABLE DECLARATION
DATA : W_ITPO1 TYPE ITPO1,
       W_ITPO4 TYPE ITPO4,
       W_ITPO5 TYPE ITPO5,
       T_ITPO1 TYPE ITPO1 OCCURS 0,
       T_ITPO4 TYPE ITPO4 OCCURS 0,
       T_ITPO5 TYPE ITPO5 OCCURS 0.
VARIABLES
DATA: TOTWT1 LIKE AUFM-MENGE,
      TOT_QTY LIKE AUFM-MENGE.
PARAMETERS N SELECT-OPTIONS
PARAMETERS: PLANT LIKE AFPO-DWERK.
SELECT-OPTIONS: PO_DATE FOR AFKO-GSTRP.
    LOOP AT T_ITPO5 INTO W_ITPO5.
        LOOP AT T_ITPO4 INTO W_ITPO4 WHERE AUFNR = W_ITPO5-AUFNR.
            CALL FUNCTION 'ZGET_ITEM_WEIGHT'
              EXPORTING
                P_BUID   = W_ITPO4-WERKS
                P_ITEMID = W_ITPO4-MATNR
                P_QTY    = 1
                P_UOM    = W_ITPO4-MEINS
                P_UOM1   = 'KG'
              IMPORTING
                P_RETVAL = W_ITPO4-WTKG.
            TOTWT1 = W_ITPO4-WTKG * W_ITPO4-MENGE.
         IF W_ITPO4-BWART = '261'.
          W_ITPO5-I_QTY = W_ITPO5-I_QTY + TOTWT1.
         ELSEIF W_ITPO4-BWART = '101' OR W_ITPO4-BWART = '531'.
          W_ITPO5-I_QTY = W_ITPO5-I_QTY - TOTWT1.
         ENDIF.
       ENDLOOP.
         MODIFY T_ITPO5 INDEX SY-TABIX FROM W_ITPO5.
       MODIFY T_ITPO5 FROM W_ITPO5 TRANSPORTING AUFNR.
   ENDLOOP.
     WRITE: / 'PRD.NO       ITEM DESCRIPTION                               WIP(KGS)'.
    ULINE.
    LOOP AT T_ITPO5 INTO W_ITPO5.
      READ TABLE T_ITPO1 INTO W_ITPO1 WITH KEY AUFNR = W_ITPO5-AUFNR.
      SELECT SINGLE MAKTG FROM MAKT INTO W_ITPO5-ITEMDESC WHERE MATNR = W_ITPO1-MATNR.
      if sy-subrc = 0 .
      WRITE: / W_ITPO5-AUFNR,W_ITPO5-ITEMDESC,W_ITPO5-I_QTY.
      TOT_QTY = TOT_QTY + W_ITPO5-I_QTY.
      else.
      write 'Unsuccessful'.
      endif.
    ENDLOOP.
    ULINE.
    FORMAT COLOR 3.
    WRITE: / 'GTOTAL',55 TOT_QTY.
    FORMAT COLOR OFF.
I want to have output that the production order is displayed along with the deficit quantity. but using this concept it shows only production order no. and qty 0.