Problem in output

Question

REPORT  zmm_matl_desc
LINE-COUNT 40
LINE-SIZE 80
NO STANDARD PAGE HEADING.
***************************DATA DECLARATION**************************
TYPE-POOLS: slis.
TABLES: mseg, mkpf.
DATA: BEGIN OF t_mseg OCCURS 0,
      mblnr LIKE mseg-mblnr,
      mjahr LIKE mseg-mjahr,
      zeile LIKE mseg-zeile,
      matnr LIKE mseg-matnr,
      lsmng LIKE mseg-lsmng,
      menge LIKE mseg-menge,
      ebeln LIKE mseg-ebeln,
      werks LIKE mseg-werks,
      ebelp LIKE mseg-ebelp,
      budat LIKE mkpf-budat,
      shortage type f,
      delflag TYPE c,
     END OF t_mseg.
DATA: l_mseg LIKE t_mseg OCCURS 0 with header line.
DATA: BEGIN OF t_mkpf OCCURS 0,
      mblnr LIKE mkpf-mblnr,
      mjahr LIKE mkpf-mjahr,
      budat LIKE mkpf-budat,
    END OF t_mkpf.
DATA:   it_fieldcat TYPE slis_t_fieldcat_alv,
        wa_fieldcat TYPE slis_fieldcat_alv,
        loc_cnt TYPE i.
DATA: l_tabix TYPE sytabix.
DATA: BEGIN OF t_ekko OCCURS 0,
      ebeln LIKE ekko-ebeln,
      bsart LIKE ekko-bsart,
     END OF t_ekko.
DATA: BEGIN OF t_ekpo OCCURS 0,
        ebeln LIKE ekpo-ebeln,
        ebelp LIKE ekpo-ebeln,
        konnr LIKE ekpo-konnr,
     END OF t_ekpo.
**************************SELECTION SCREEN***************************
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_plant    FOR t_mseg-werks OBLIGATORY,
                s_matnr    FOR t_mseg-matnr,
                s_datum    FOR t_mseg-budat .
SELECTION-SCREEN: END OF BLOCK b1.
START-OF-SELECTION.
  PERFORM sub_selection.
  PERFORM sub_getdata.
  PERFORM sub_updt_ebeln.
END-OF-SELECTION.
CONSTANTS CTNM(6) TYPE C VALUE 't_mseg'.
  PERFORM sub_write USING:
COL_POS          FIELDNM      TABNAME     SEL-TEXT   DO-SUM  NO-ZERO
      ' ' loc_cnt     'MBLNR'     CTNM      text-011   space    space ' ',
      ' ' loc_cnt     'ZEILE'     CTNM      text-012   space    space ' ',
      ' ' loc_cnt     'BUDAT'     CTNM      text-013   space    space ' ',
      ' ' loc_cnt     'MATNR'     CTNM      text-014   space    space ' ',
      ' ' loc_cnt     'LSMNG'     CTNM      text-015   space    space ' ',
      ' ' loc_cnt     'MENGE'     CTNM      text-016   space    space ' ',
      ' ' loc_cnt     'shortage'  CTNM      TEXT-017   space    space ' ',
      ' ' loc_cnt     'EBELN'     CTNM      text-018   space    space ' '.
  PERFORM sub_print_data.
*&      Form  SUB_WRITE
      text
     -->:             text
     -->P_CHECK       text
     -->P_CNT         text
     -->P_FIELD_NAME  text
     -->P_TAB_NAME    text
     -->P_SEL_TEXT    text
     -->P_DO_SUM      text
     -->P_NO_ZERO     text
     -->P_INPUT       text
FORM sub_write USING:
                   p_check       TYPE any
                   p_cnt         TYPE any
                   p_field_name  TYPE any
                   p_tab_name    TYPE any
                   p_sel_text    TYPE any
                   p_do_sum      TYPE any
                   p_no_zero     TYPE any
                   p_input       TYPE any.
  CLEAR: wa_fieldcat.
  P_CNT = P_CNT + 1.
  wa_fieldcat-col_pos   =   p_cnt.
  wa_fieldcat-fieldname =   p_field_name.
  wa_fieldcat-tabname   =   p_tab_name .
  wa_fieldcat-seltext_l =   p_sel_text.
  wa_fieldcat-do_sum    =   p_do_sum .
  wa_fieldcat-no_zero   =   p_no_zero.
  wa_fieldcat-input     =   p_input.
  wa_fieldcat-checkbox  =   p_check.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
ENDFORM.                    "SUB_WRITE
*&      Form  SUB_SELECTION
      selection from screen & condition checking                     *
FORM sub_selection.
    SELECT mblnr mjahr zeile matnr lsmng menge  ebeln ebelp
    INTO CORRESPONDING FIELDS OF TABLE t_mseg
      FROM mseg
    WHERE ( bwart = '105' ) OR ( bwart = '101' )
    AND    werks  IN s_plant
    AND    matnr  IN s_matnr.
    l_mseg-shortage = l_mseg-lsmng - l_mseg-menge.
   modify shortage l_mseg-shortage shortage from l_mseg-shortage.
   TRY.
   update t_mseg set t_mseg-shortage = l_mseg-shortage
   where t_mseg-mblnr= l_mseg-mblnr
   CATCH cx_sy_dynamic_osql_error.
   MESSAGE `Error in update!` TYPE 'I'.
   ENDTRY.
  IF NOT s_datum[] IS INITIAL.
    SELECT mblnr mjahr budat
    FROM mkpf
    INTO TABLE t_mkpf
    WHERE budat IN s_datum.
  ENDIF.
  IF NOT t_mkpf[] IS  INITIAL.
   LOOP AT  t_mseg.
      CLEAR l_tabix.
      l_tabix = sy-tabix.
      CLEAR t_mkpf.
      READ TABLE t_mkpf WITH KEY mblnr = t_mseg-mblnr
                                 mjahr = t_mseg-mjahr.
      IF sy-subrc <> 0.
        CLEAR t_mseg-delflag.
        t_mseg-delflag = 'X'.
        MODIFY t_mseg INDEX l_tabix.
        CLEAR  t_mseg.
      Else.
        t_mseg-budat = t_mkpf-budat.
       t_mseg-shortage = t_mseg-lsmng - t_mseg-menge.
        MODIFY t_mseg INDEX l_tabix.
        CLEAR  t_mseg.
      ENDIF.
    ENDLOOP.
    DELETE t_mseg WHERE delflag = 'X'.
  ENDIF.
ENDFORM.                    "SUB_SELECTION
*&      Form  SUB_GETDATA
      obtain values from database
FORM sub_getdata.
  l_mseg[] = t_mseg[].
  IF NOT l_mseg IS INITIAL.
    SORT   l_mseg BY ebeln ebelp.
    DELETE ADJACENT DUPLICATES FROM l_mseg COMPARING  ebeln ebelp.
  ENDIF.
  IF NOT l_mseg[] IS INITIAL.
    SELECT ebeln ebelp konnr
    INTO TABLE t_ekpo
    FROM ekpo
    FOR ALL ENTRIES IN l_mseg
    WHERE ebeln = l_mseg-ebeln.
  ENDIF.
  IF NOT l_mseg IS INITIAL.
    SORT   l_mseg BY ebeln.
    DELETE ADJACENT DUPLICATES FROM l_mseg COMPARING  ebeln.
  ENDIF.
  IF NOT l_mseg[] IS INITIAL.
    SELECT ebeln bsart
    INTO TABLE t_ekko
    FROM ekko
    FOR ALL ENTRIES IN l_mseg
    WHERE ebeln = l_mseg-ebeln.
  ENDIF.
ENDFORM.                    "SUB_GETDATA
&      Form  SUB_PRINT_DATA                                          &
&      Print Data                                                    &
FORM sub_print_data .
  IF NOT t_mseg[] IS INITIAL.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
                   EXPORTING
                I_INTERFACE_CHECK                 = ' '
                I_BYPASSING_BUFFER                = ' '
                I_BUFFER_ACTIVE                   = ' '
                I_CALLBACK_PROGRAM                = ' '
                I_CALLBACK_PF_STATUS_SET          = ' '
                I_CALLBACK_USER_COMMAND           = ' '
                I_CALLBACK_TOP_OF_PAGE            = ' '
                I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
                I_CALLBACK_HTML_END_OF_LIST       = ' '
                I_STRUCTURE_NAME                  =
                I_BACKGROUND_ID                   = ' '
                I_GRID_TITLE                      =
                I_GRID_SETTINGS                   =
                IS_LAYOUT                         =
                  it_fieldcat                       = it_fieldcat
                IT_EXCLUDING                      =
                IT_SPECIAL_GROUPS                 =
                IT_SORT                           =
                IT_FILTER                         =
                IS_SEL_HIDE                       =
                I_DEFAULT                         = 'X'
                I_SAVE                            = ' '
                IS_VARIANT                        =
                IT_EVENTS                         =
                IT_EVENT_EXIT                     =
                IS_PRINT                          =
                IS_REPREP_ID                      =
                I_SCREEN_START_COLUMN             = 0
                I_SCREEN_START_LINE               = 0
                I_SCREEN_END_COLUMN               = 0
                I_SCREEN_END_LINE                 = 0
                I_HTML_HEIGHT_TOP                 = 0
                I_HTML_HEIGHT_END                 = 0
                IT_ALV_GRAPHICS                   =
                IT_HYPERLINK                      =
                IT_ADD_FIELDCAT                   =
                IT_EXCEPT_QINFO                   =
                IR_SALV_FULLSCREEN_ADAPTER        =
              IMPORTING
                E_EXIT_CAUSED_BY_CALLER           =
                ES_EXIT_CAUSED_BY_USER            =
                    TABLES
                      t_outtab                          = t_mseg
              EXCEPTIONS
                PROGRAM_ERROR                     = 1
                OTHERS                            = 2
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    CLEAR: wa_fieldcat.
  ELSE.
    MESSAGE text-019 TYPE 'S'.
  ENDIF.
ENDFORM.                    " SUB_PRINT_DATA
&      Form  sub_updt_ebeln                                          &
&      Update PO data                                                &
FORM sub_updt_ebeln .
DATA: l_tabix type sytabix.
  CLEAR t_mseg.
  LOOP AT t_mseg.
    clear l_tabix.
    l_tabix = sy-tabix.
    CLEAR t_ekko.
    READ TABLE t_ekko WITH KEY ebeln = t_mseg-ebeln
                               bsart = 'ZDS'.
    IF sy-subrc = 0.
      clear t_ekpo.
      READ TABLE t_ekpo WITH KEY ebeln = t_mseg-ebeln
                                 ebelp = t_mseg-ebelp.
      IF sy-subrc <> 0.
         t_mseg-ebeln = t_ekpo-konnr.
      Endif.
    Endif.
   t_mseg-shortage = t_mseg-lsmng - t_mseg-menge.
    MODIFY t_mseg index l_tabix.
    clear  t_mseg.
  ENDLOOP.
ENDFORM.                    " sub_updt_ebeln
Now in the output there is a field shortage which is being calculated using the formula l_mseg-shortage = l_mseg-lsmng - l_mseg-menge.
But I am unable to update it to the t_mseg table......
Can anybody help me out?
Regards
Sobhan

Answer 1

REPORT  zmm_matl_desc
LINE-COUNT 40
LINE-SIZE 80
NO STANDARD PAGE HEADING.
***************************DATA DECLARATION**************************
TYPE-POOLS: slis.
TABLES: mseg, mkpf.
DATA: BEGIN OF t_mseg OCCURS 0,
      mblnr LIKE mseg-mblnr,
      mjahr LIKE mseg-mjahr,
      zeile LIKE mseg-zeile,
      matnr LIKE mseg-matnr,
      lsmng LIKE mseg-lsmng,
      menge LIKE mseg-menge,
      ebeln LIKE mseg-ebeln,
      werks LIKE mseg-werks,
      ebelp LIKE mseg-ebelp,
      budat LIKE mkpf-budat,
      shortage type f,
      delflag TYPE c,
     END OF t_mseg.
DATA: l_mseg LIKE t_mseg OCCURS 0 with header line.
data: mseg_wa like t_mseg.
DATA: BEGIN OF t_mkpf OCCURS 0,
      mblnr LIKE mkpf-mblnr,
      mjahr LIKE mkpf-mjahr,
      budat LIKE mkpf-budat,
    END OF t_mkpf.
DATA:   it_fieldcat TYPE slis_t_fieldcat_alv,
        wa_fieldcat TYPE slis_fieldcat_alv,
        loc_cnt TYPE i.
DATA: l_tabix TYPE sytabix.
DATA: BEGIN OF t_ekko OCCURS 0,
      ebeln LIKE ekko-ebeln,
      bsart LIKE ekko-bsart,
     END OF t_ekko.
DATA: BEGIN OF t_ekpo OCCURS 0,
        ebeln LIKE ekpo-ebeln,
        ebelp LIKE ekpo-ebeln,
        konnr LIKE ekpo-konnr,
     END OF t_ekpo.
**************************SELECTION SCREEN***************************
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_plant    FOR t_mseg-werks OBLIGATORY,
                s_matnr    FOR t_mseg-matnr,
                s_datum    FOR t_mseg-budat .
SELECTION-SCREEN: END OF BLOCK b1.
START-OF-SELECTION.
  PERFORM sub_selection.
  PERFORM sub_getdata.
  PERFORM sub_updt_ebeln.
END-OF-SELECTION.
CONSTANTS CTNM(6) TYPE C VALUE 't_mseg'.
  PERFORM sub_write USING:
COL_POS          FIELDNM      TABNAME     SEL-TEXT   DO-SUM  NO-ZERO
      ' ' loc_cnt     'MBLNR'     CTNM      text-011   space    space ' ',
      ' ' loc_cnt     'ZEILE'     CTNM      text-012   space    space ' ',
      ' ' loc_cnt     'BUDAT'     CTNM      text-013   space    space ' ',
      ' ' loc_cnt     'MATNR'     CTNM      text-014   space    space ' ',
      ' ' loc_cnt     'LSMNG'     CTNM      text-015   space    space ' ',
      ' ' loc_cnt     'MENGE'     CTNM      text-016   space    space ' ',
      ' ' loc_cnt     'shortage'  CTNM      TEXT-017   space    space ' ',
      ' ' loc_cnt     'EBELN'     CTNM      text-018   space    space ' '.
  PERFORM sub_print_data.
*&      Form  SUB_WRITE
      text
     -->:             text
     -->P_CHECK       text
     -->P_CNT         text
     -->P_FIELD_NAME  text
     -->P_TAB_NAME    text
     -->P_SEL_TEXT    text
     -->P_DO_SUM      text
     -->P_NO_ZERO     text
     -->P_INPUT       text
FORM sub_write USING:
                   p_check       TYPE any
                   p_cnt         TYPE any
                   p_field_name  TYPE any
                   p_tab_name    TYPE any
                   p_sel_text    TYPE any
                   p_do_sum      TYPE any
                   p_no_zero     TYPE any
                   p_input       TYPE any.
  CLEAR: wa_fieldcat.
  P_CNT = P_CNT + 1.
  wa_fieldcat-col_pos   =   p_cnt.
  wa_fieldcat-fieldname =   p_field_name.
  wa_fieldcat-tabname   =   p_tab_name .
  wa_fieldcat-seltext_l =   p_sel_text.
  wa_fieldcat-do_sum    =   p_do_sum .
  wa_fieldcat-no_zero   =   p_no_zero.
  wa_fieldcat-input     =   p_input.
  wa_fieldcat-checkbox  =   p_check.
  APPEND WA_FIELDCAT TO IT_FIELDCAT.
ENDFORM.                    "SUB_WRITE
*&      Form  SUB_SELECTION
      selection from screen & condition checking                     *
FORM sub_selection.
    SELECT mblnr mjahr zeile matnr lsmng menge  ebeln ebelp
    INTO CORRESPONDING FIELDS OF TABLE t_mseg
      FROM mseg
    WHERE ( bwart = '105' ) OR ( bwart = '101' )
    AND    werks  IN s_plant
    AND    matnr  IN s_matnr.
*********************************Calculation of shortage****************************************
    LOOP at t_mseg.
    mseg_wa-shortage = t_mseg-lsmng - t_mseg-menge.
    ENDLOOP.
    modify t_mseg from mseg_wa TRANSPORTING shortage where t_mseg-mblnr = mblnr.
    CLEAR mseg_wa.
  IF NOT s_datum[] IS INITIAL.
    SELECT mblnr mjahr budat
    FROM mkpf
    INTO TABLE t_mkpf
    WHERE budat IN s_datum.
  ENDIF.
  IF NOT t_mkpf[] IS  INITIAL.
   LOOP AT  t_mseg.
      CLEAR l_tabix.
      l_tabix = sy-tabix.
      CLEAR t_mkpf.
      READ TABLE t_mkpf WITH KEY mblnr = t_mseg-mblnr
                                 mjahr = t_mseg-mjahr.
      IF sy-subrc <> 0.
        CLEAR t_mseg-delflag.
        t_mseg-delflag = 'X'.
        MODIFY t_mseg INDEX l_tabix.
        CLEAR  t_mseg.
      Else.
        t_mseg-budat = t_mkpf-budat.
       t_mseg-shortage = t_mseg-lsmng - t_mseg-menge.
        MODIFY t_mseg INDEX l_tabix.
        CLEAR  t_mseg.
      ENDIF.
    ENDLOOP.
    DELETE t_mseg WHERE delflag = 'X'.
  ENDIF.
ENDFORM.                    "SUB_SELECTION
*&      Form  SUB_GETDATA
      obtain values from database
FORM sub_getdata.
  l_mseg[] = t_mseg[].
  IF NOT l_mseg IS INITIAL.
    SORT   l_mseg BY ebeln ebelp.
    DELETE ADJACENT DUPLICATES FROM l_mseg COMPARING  ebeln ebelp.
  ENDIF.
  IF NOT l_mseg[] IS INITIAL.
    SELECT ebeln ebelp konnr
    INTO TABLE t_ekpo
    FROM ekpo
    FOR ALL ENTRIES IN l_mseg
    WHERE ebeln = l_mseg-ebeln.
  ENDIF.
  IF NOT l_mseg IS INITIAL.
    SORT   l_mseg BY ebeln.
    DELETE ADJACENT DUPLICATES FROM l_mseg COMPARING  ebeln.
  ENDIF.
  IF NOT l_mseg[] IS INITIAL.
    SELECT ebeln bsart
    INTO TABLE t_ekko
    FROM ekko
    FOR ALL ENTRIES IN l_mseg
    WHERE ebeln = l_mseg-ebeln.
  ENDIF.
ENDFORM.                    "SUB_GETDATA
&      Form  SUB_PRINT_DATA                                          &
&      Print Data                                                    &
FORM sub_print_data .
  IF NOT t_mseg[] IS INITIAL.
    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
                   EXPORTING
                I_INTERFACE_CHECK                 = ' '
                I_BYPASSING_BUFFER                = ' '
                I_BUFFER_ACTIVE                   = ' '
                I_CALLBACK_PROGRAM                = ' '
                I_CALLBACK_PF_STATUS_SET          = ' '
                I_CALLBACK_USER_COMMAND           = ' '
                I_CALLBACK_TOP_OF_PAGE            = ' '
                I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
                I_CALLBACK_HTML_END_OF_LIST       = ' '
                I_STRUCTURE_NAME                  =
                I_BACKGROUND_ID                   = ' '
                I_GRID_TITLE                      =
                I_GRID_SETTINGS                   =
                IS_LAYOUT                         =
                  it_fieldcat                       = it_fieldcat
                IT_EXCLUDING                      =
                IT_SPECIAL_GROUPS                 =
                IT_SORT                           =
                IT_FILTER                         =
                IS_SEL_HIDE                       =
                I_DEFAULT                         = 'X'
                I_SAVE                            = ' '
                IS_VARIANT                        =
                IT_EVENTS                         =
                IT_EVENT_EXIT                     =
                IS_PRINT                          =
                IS_REPREP_ID                      =
                I_SCREEN_START_COLUMN             = 0
                I_SCREEN_START_LINE               = 0
                I_SCREEN_END_COLUMN               = 0
                I_SCREEN_END_LINE                 = 0
                I_HTML_HEIGHT_TOP                 = 0
                I_HTML_HEIGHT_END                 = 0
                IT_ALV_GRAPHICS                   =
                IT_HYPERLINK                      =
                IT_ADD_FIELDCAT                   =
                IT_EXCEPT_QINFO                   =
                IR_SALV_FULLSCREEN_ADAPTER        =
              IMPORTING
                E_EXIT_CAUSED_BY_CALLER           =
                ES_EXIT_CAUSED_BY_USER            =
                    TABLES
                      t_outtab                          = t_mseg
              EXCEPTIONS
                PROGRAM_ERROR                     = 1
                OTHERS                            = 2
    IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
    CLEAR: wa_fieldcat.
  ELSE.
    MESSAGE text-019 TYPE 'S'.
  ENDIF.
ENDFORM.                    " SUB_PRINT_DATA
&      Form  sub_updt_ebeln                                          &
&      Update PO data                                                &
FORM sub_updt_ebeln .
DATA: l_tabix type sytabix.
  CLEAR t_mseg.
  LOOP AT t_mseg.
    clear l_tabix.
    l_tabix = sy-tabix.
    CLEAR t_ekko.
    READ TABLE t_ekko WITH KEY ebeln = t_mseg-ebeln
                               bsart = 'ZDS'.
    IF sy-subrc = 0.
      clear t_ekpo.
      READ TABLE t_ekpo WITH KEY ebeln = t_mseg-ebeln
                                 ebelp = t_mseg-ebelp.
      IF sy-subrc <> 0.
         t_mseg-ebeln = t_ekpo-konnr.
      Endif.
    Endif.
   t_mseg-shortage = t_mseg-lsmng - t_mseg-menge.
    MODIFY t_mseg index l_tabix.
    clear  t_mseg.
  ENDLOOP.
ENDFORM.                    " sub_updt_ebeln
Hi........
Check the section 'Calcualtion of Shortage' and help me out whether this is the right code or not.........
Regards
Sobhan