Modification in Tcode f.19

Question

Hi Experts,
I am doing modification on f.19 ( just to add vendor name ).
Note: I have copied the entire program and doing it in zprogram with out disturbing the original
Please advice.
Thanks
Karthik

Answer 1

1..
* narrow table, because it may be a lot of items
DATA: BEGIN OF list_item OCCURS 100,
      bukrs  LIKE bseg-bukrs,
      hkont  LIKE bsis-hkont,
      ebeln  LIKE bseg-ebeln,
* Log 001
      ernam  LIKE  ekko-ernam,
* Log 001
      ebelp  LIKE bseg-ebelp,
      ktosl LIKE t030u-ktosl,   "used for posting
* hier kommen die Belege
      waers LIKE ekko-waers,    "bestellwaerhugn
      blart LIKE bkpf-blart,
      belnr LIKE bseg-belnr,
* Log 001
      usnam  LIKE bkpf-usnam,
* Log 001
      buzei LIKE bseg-buzei,
      wrbtr(12) TYPE p,
      dmbtr(12) TYPE p,
      mwsts(12) TYPE p,
      mwskz LIKE bseg-mwskz,
      gjahr LIKE bkpf-gjahr,
      vbund  LIKE lfa1-vbund,
      lifnr LIKE bseg-lifnr,
* Log 001
      name1 LIKE lfa1-name1,
* Log 001
      akont LIKE lfb1-akont,
      budat LIKE bkpf-budat,
      gsber LIKE bseg-gsber.
* variabler teil
*       INCLUDE STRUCTURE RFSBEW_INCL.
        INCLUDE STRUCTURE sl_incl.
DATA:
      hwaer      LIKE tcurd-hwaer,
      dmbe2(12) TYPE p,
      hwae2   LIKE x001-hwae2,
      dmbe3(12) TYPE p,
      hwae3   LIKE x001-hwae3,
      selkey      LIKE sy-tabix,
  END OF list_item.
2..
END-OF-SELECTION.
* perform log_time using text-004.
  IF p_aqtax = 'X'.
    PERFORM aqtax00.
  ENDIF.
  PERFORM gr_ir_main.
* Log 001
  PERFORM fetch_reqd.
* Log 001
  PERFORM posting.
* perform log_time using text-005.
  PERFORM schedman_start_stop USING 'STOP'.
  PERFORM liste.
*  perform log_time using 'LISTE'.
  SET PF-STATUS '     '.
3..
*&      Form  FETCH_REQD
*       text
*  -->  p1        text
*  <--  p2        text
FORM fetch_reqd .
  SORT list_item BY ebeln.
  LOOP AT list_item.
    ON CHANGE OF list_item-ebeln.
      SELECT SINGLE * FROM ekko WHERE ebeln = list_item-ebeln.
      IF sy-subrc EQ 0.
        list_item-ernam = ekko-ernam.
      ENDIF.
      SELECT SINGLE * FROM lfa1 WHERE lifnr = list_item-lifnr.
      IF sy-subrc EQ 0.
        list_item-name1 = lfa1-name1.
      ENDIF.
    ENDON.
    list_item-ernam = ekko-ernam.
    list_item-name1 = lfa1-name1.
    SELECT SINGLE * FROM bkpf WHERE bukrs = list_item-bukrs
                                AND belnr = list_item-belnr
                                AND gjahr = list_item-gjahr.
    IF sy-subrc EQ 0.
      list_item-usnam = bkpf-usnam.
    ENDIF.
    MODIFY list_item.
  ENDLOOP.
ENDFORM.                    " FETCH_REQD