Is I have to create different enhancement implementation for diff. code are

Question

Hi,
   I want to modify standard program in 3 different part  through enhancement framework.
Is I ave to create 3 different enhancement implementation or i can use only one?.
Regards,
Himanshu

Answer 1

Hi,
              Below is given code which i have added in copy of stranded program at diff. code ares and its running fine.
             Now i want to write in stranded code through enhancement framework.
             I dont think we can write it in 1 place.? what you say.
Internal tables
******Added By Himanshu*****
         BDMNG               LIKE  RESB-BDMNG,
******Himanshu*****
***Himanshu modification*****
   DATA: BEGIN OF xtab1 OCCURS 10,        "Tabelle der Reservierungen
         werks LIKE resb-werks,
         lgort LIKE resb-lgort,
         charg LIKE resb-charg,
         matnr LIKE resb-matnr,
         bdmng LIKE resb-bdmng,
         bdmns LIKE resb-bdmng,
         erfme LIKE resb-erfme,                      "ALRK014884 SW
         erfmg LIKE resb-erfmg,                      "ALRK014884 SW
       END OF xtab1.
  DATA: kzwso LIKE mara-kzwsm,
        ytab1 like xtab1 occurs 0 with header line.
RANGES: xbdart FOR resb-bdart,
        MS_WERKS FOR MARC-WERKS.
REFRESH XBDART.
  CLEAR   XBDART.
  XBDART-SIGN   = 'I'.
  XBDART-OPTION = 'EQ'.
  XBDART-LOW    = 'AR' .
  APPEND XBDART.
  XBDART-LOW    = 'MR' .
  APPEND XBDART.
  REFRESH MS_WERKS.
  CLEAR   MS_WERKS.
  XBDART-SIGN   = 'I'.
  XBDART-OPTION = 'EQ'.
  XBDART-LOW    = 1010.
  APPEND XBDART.
end Himanshu********
FORM data_selection.
****Himanshu*****
  data :  begin of it_mat occurs 0,
            matnr like mara-matnr,
            end of it_mat.
  select matnr  into corresponding fields of table it_mat
                      from mara
                    where matnr in matnr.
    CLEAR: XTAB1  . REFRESH XTAB1 .
    loop at it_mat .
  CALL FUNCTION 'MB_ADD_RESERVATION_QUANTITIES'
    EXPORTING
      X_MATNR = it_mat-matnr
      X_XLOEK = SPACE
      X_KZEAR = SPACE
      X_KZWSO = KZWSO          "ALRK014884 SW
    TABLES
      XTAB1   = XTAB1
      XWERKS  = MS_WERKS
      XBDART  = XBDART.
      ytab1 = xtab1.
      append ytab1.
      endloop.
****end himanshu*****
FORM fieldcatalog.
*****Himanshu Modification******
    loop at ytab1.
    read table bestand  with key matnr = ytab1-matnr.
    if sy-subrc = 0.
     bestand-bdmng = ytab1-bdmng.
     MODIFY TABLE bestand .
    endif.
    endloop.
******end Himanshu *******
*****Himanshu Modification******
     CLEAR fieldcat.
  fieldcat-fieldname     = 'BDMNG'.
  fieldcat-tabname       = 'BESTAND'.
  fieldcat-ref_tabname   = 'YTAB1'.
  FIELDCAT-SELTEXT_S = 'Reserved'.
  fieldcat-outputlen     = 8.
  APPEND fieldcat.
*****end Himanshu******