Report giving runtime error

Question

hi,
i HAD MADE A REPORET IN which i havce to display the bolck stock ,it is giving runtime error as i had added 1 more table,plzz help me out as it is really urgent to me. here is d code:-
*& Report  ZDEMO_SMARTFORM_COPY
REPORT  ZDEMO_SMARTFORM_COPY.
TABLES: MCHB,MARA,T001W.
DATA: BEGIN OF ITAB OCCURS 0,
      ITEMID LIKE MARD-MATNR,
      SPEME LIKE MARD-SPEME,
      WERKS LIKE MARD-SPEME,
      LGORT LIKE MARD-LGORT,
      NTGEW LIKE MARA-NTGEW,
      MEINS LIKE MARA-MEINS,
      GEWEI LIKE MARA-GEWEI,
      CHARG LIKE MCHB-CHARG,
      WTKG LIKE MARA-NTGEW,
      STOCK TYPE P LENGTH 10 DECIMALS 3,
      DESC LIKE MAKT-MAKTX,
      TOTWT LIKE MARD-SPEME,
      WT TYPE P LENGTH 12 DECIMALS 3,
      END OF ITAB.
     ITEMID LIKE MCHB-MATNR,
     CSPEM LIKE MCHB-CSPEM,
     CHARG LIKE MCHB-CHARG,
     WERKS LIKE MCHB-WERKS,
*PARAMETERS : PLANT LIKE MCHB-WERKS OBLIGATORY.
PARAMETERS : PLANT LIKE MARD-WERKS OBLIGATORY.
DATA : DESC LIKE MAKT-MAKTX.
  SELECT AMATNR ASPEME AWERKS ALGORT BNTGEW BMEINS BGEWEI CCHARG FROM MARD AS A
    INNER JOIN MARA AS B ON BMATNR = AMATNR
      INNER JOIN MCHB AS C ON CMATNR = AMATNR
        INTO TABLE ITAB WHERE AWERKS = PLANT AND ASPEME > 0.
SELECT AMATNR ACSPEM ACHARG AWERKS  BNTGEW BMEINS B~GEWEI FROM MCHB AS A
   INNER JOIN MARA AS B ON BMATNR = AMATNR
     INTO TABLE ITAB WHERE AWERKS = PLANT AND ACSPEM > 0.
WRITE: / 'ITEMID           DESCRIPTION                              STOCK.QTY  BATCH NO.           NETWT          TOTAL.WEIGHT '.
ULINE.
LOOP AT ITAB.
      IF ITAB-NTGEW <> 0 .
        CALL FUNCTION 'ZGET_ITEM_WEIGHT'
         EXPORTING
           P_BUID         = ITAB-WERKS
           P_ITEMID       = ITAB-ITEMID
           P_QTY          = ITAB-NTGEW
           P_UOM          = ITAB-GEWEI
           P_UOM1         = 'KG'
         IMPORTING
           P_RETVAL       = ITAB-WTKG.
      ENDIF.
   CONVERTING ITEM QTY IN KG
      ITAB-WT = ITAB-STOCK.
      IF ITAB-MEINS = 'G'.
        ITAB-WT = ITAB-STOCK / 1000000.
      ELSEIF ITAB-MEINS = 'KG'.
        ITAB-WT = ITAB-STOCK / 1000.
      ELSEIF ITAB-MEINS = 'TO'.
        ITAB-WT = ITAB-STOCK * ITAB-WTKG / 1000.
     ENDIF.
   ITAB-TOTWT = ITAB-WTKG * ITAB-CSPEM.
   ITAB-TOTWT = ITAB-WTKG * ITAB-SPEME.
   SELECT SINGLE MAKTX FROM MAKT INTO DESC WHERE MATNR = ITAB-ITEMID.
     WRITE:/ ITAB-ITEMID,15 DESC,50 ITAB-SPEME,ITAB-CHARG,ITAB-WTKG,ITAB-TOTWT.
   MODIFY ITAB.
   ENDLOOP.

Answer 1

HI,
i had tried to ftech data from mard and it isgiving runtime error. dis is the code:-
TABLES: MCHB,MARA,MARD.
DATA: BEGIN OF ITAB OCCURS 0,
      MATNR LIKE MARD-MATNR,
      SPEME LIKE MARD-SPEME,
      WERKS LIKE MARD-SPEME,
      LGORT LIKE MARD-LGORT,
      END OF ITAB.
      SELECT MATNR SPEME WERKS LGORT FROM MARD INTO CORRESPONDING FIELDS OF TABLE ITAB.
      LOOP AT ITAB.
      WRITE:/ ITAB-MATNR,ITAB-SPEME,ITAB-WERKS,ITAB-LGORT.
      ENDLOOP.