MODIFY with Where

Question

Hi Gurus,
Could you please give me the code, on how can I use the modify with where statement to update dictionary table from an internal table. In this case, I don't want to use update with set statement as I have many fields.
Thanks,
David.

Answer 1

hi,
TABLES : mkpf,
         mseg,
         zamatdoc,
         mara.
DATA :BEGIN OF gi_mkpf OCCURS 100,
      mblnr LIKE mkpf-mblnr,
      mjahr LIKE mkpf-mjahr,
      END OF gi_mkpf.
  data gi_mseg like zamatdoc occurs 100 with header line.
DATA: BEGIN OF gi_mseg OCCURS 0.
        INCLUDE STRUCTURE zamatdoc.
DATA: END OF gi_mseg.
DATA: gv_date(11)," LIKE ekpo-aedat,
      gv_date1(11),
      year(4),
      month(2),
      day(2),
      flag(1),
      read_flag(1).
DATA :char TYPE i,
      count TYPE i.
*select-options : s_mtart for mara-mtart obligatory.
SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-110.
SELECT-OPTIONS : records FOR char. " OBLIGATORY.
SELECTION-SCREEN : END OF BLOCK b1.
START-OF-SELECTION.
  gv_date1 = sy-datum.
  year = gv_date1+0(4).
  month = gv_date1+4(2).
  day = gv_date1+6(2).
  year = year - 3.
  CLEAR gv_date1.
  CONCATENATE year month day INTO gv_date1.
CONCATENATE day month year INTO gv_date1.
  SELECT mblnr
         mjahr
         FROM mkpf
         INTO TABLE gi_mkpf
         WHERE  budat <= gv_date1.">" and BUDAT >=  ).
  IF sy-subrc = 0.
    SORT gi_mkpf BY mblnr.
    DELETE ADJACENT DUPLICATES FROM gi_mkpf.
    CLEAR count.
    IF NOT gi_mkpf[] IS INITIAL.
      IF NOT records-low IS INITIAL .
        IF NOT records-high IS INITIAL.
          DESCRIBE TABLE gi_mkpf LINES count.
          IF records-high < count.
            DELETE gi_mkpf FROM records-high TO count.
          ENDIF.
          IF records-low <> 1.
            IF records-low <> 0.
              DELETE gi_mkpf FROM 1 TO records-low.
            ENDIF.
          ENDIF.
        ENDIF.
      ENDIF.
    ENDIF.
SELECT matnr werks FROM mseg INTO CORRESPONDING FIELDS OF TABLE gi_mseg
    PACKAGE SIZE 100  FOR ALL ENTRIES IN gi_mkpf
           WHERE mblnr = gi_mkpf-mblnr
             AND mjahr = gi_mkpf-mjahr.
      MODIFY zamatdoc FROM TABLE gi_mseg.
      COMMIT WORK.
    ENDSELECT.
regards
siva