Contol events

Question

hi all,
this is my interbal table ....
     DATA: begin of t_ekpo1 occurs 0,
      banfn like eban-banfn,
      ebeln like ekpo-ebeln,
      ebelp like ekpo-ebelp,
      werks like ekpo-werks,
      matnr like ekpo-matnr,
      menge like ekpo-menge,
      txz01 like ekpo-txz01,
      meins like ekpo-meins,
      zzissue_date like ekpo-zzissue_date,
      s_menge(13) type c,
      quan(13) type c,
      end of t_ekpo1.
i am using control break event at the field...
at new banfn.
write:/ t_ekpo1-banfn.
endat.
write: t_ekpo1-ebeln.
if i am doing so then it writes only one item if there are 4 0r 5 0r 6.
but if i write
at new banfn.
write:/ t_ekpo1-banfn.
endat.
write:/ t_ekpo1-ebeln.
the diffrence betwee the two statement is of '/' . if i removw this it is not writting the value...but if it is there it writes...
so plz help on this...
regards
parul

Answer 1

Program ID   : ZHIPMENT                                              *
Author       :                                                       *
Date         :                                                       *
Run Mode     : Online \ Background                                   *
Frequency    : ANY TIME                                              *
Special run  ]                                                       *
instructions ]                                                       *
Issue #      : ?                                                     *
Copied From  :                                                       *
Called From  :                                                       *
Transaction  :                                                       *
Input        :                                                       *
Output       :                                                       *
Description  :                                                       *
                 M O D I F I C A T I O N    L O G                    *
User ID|Date    |Issue #   |Transport |Description of change         *
USER ID|DD/MM/YY|????-???? |CCDK9A1???|Initial Development           *
REPORT ZHIPMENT NO STANDARD PAGE HEADING LINE-SIZE 175
tables: eban,
        ekko,
        ekpo,
        eket,
        ekbe.
                     Data Declaration                               *
*Internal table for purchase requistion
Data: begin of itab occurs 0,
         ekgrp like eban-ekgrp,  "purchasing group
         werks like eban-werks,  "plant
         flief like eban-flief,  "vendor#
         reswk like eban-reswk,  "supplying plant
         meins like eban-meins,  "Sku#
         TXZ01 like eban-TXZ01,  "product name
         banfn like eban-banfn,  "purchase requistion
         bnfpo like eban-bnfpo,  "item#
         quan(13) type c,        "open quantity
         frgdt like eban-frgdt,  "release date
         lfdat like eban-lfdat,   "Delivery date
         ebeln like eban-ebeln,
         matnr like eban-matnr,
     end of itab.
*Internal table for purchase order
Data: begin of itab1 occurs 0,
         ekgrp like ekko-ekgrp,  "purchasing group
         lifnr like ekko-lifnr,  "vendor#
         reswk like ekko-reswk,  "supplying plant
         bsart like ekko-bsart,
         ebeln like ekko-ebeln,  "purchase order
         werks like ekpo-werks,  "plant
         matnr like ekpo-matnr,
         menge like ekpo-menge,
         TXZ01 like ekpo-TXZ01,  "product name
         ebelp like ekpo-ebelp,  "item#
         meins like ekpo-meins,  "Sku#
         eindt like eket-eindt,
         s_menge like ekbe-menge,
         quan(10) type c,        "open quantity
         ship_quan(10) type c,   "ship quantity
         unship_quan(10) type c, "unship quantity
         ZzISSUE_DATE like ekpo-ZZISSUE_DATE,
      end of itab1.
Data: begin of itab_req occurs 0,
         ekgrp like eban-ekgrp,  "purchasing group
         werks like eban-werks,  "plant
         flief like eban-flief,  "vendor#
         reswk like eban-reswk,  "supplying plant
         meins like eban-meins,  "Sku#
         TXZ01 like eban-TXZ01,  "product name
         banfn like eban-banfn,  "purchase requistion
         bnfpo like eban-bnfpo,  "item#
         quan(13) type c,         "open quantity
         frgdt like eban-frgdt, "release date
         lfdat like eban-lfdat,   "Delivery date
         matnr like eban-matnr,
     end of itab_req.
DATA: Begin of t_ekko occurs 0,
          ekgrp like ekko-ekgrp,
          ebeln like ekko-ebeln,
          lifnr like ekko-lifnr,
          reswk like ekko-reswk,
          bsart like ekko-bsart,
        end of t_ekko.
DATA: begin of t_ekpo occurs 0,
      ebeln like ekpo-ebeln,
      ebelp like ekpo-ebelp,
      werks like ekpo-werks,
      matnr like ekpo-matnr,
      menge like ekpo-menge,
      txz01 like ekpo-txz01,
      meins like ekpo-meins,
      zzissue_date like ekpo-zzissue_date,
      end of t_ekpo.
DATA: begin of t_ekpo1 occurs 0,
      banfn like eban-banfn,
      ebeln like ekpo-ebeln,
      ebelp like ekpo-ebelp,
      werks like ekpo-werks,
      matnr like ekpo-matnr,
      menge like ekpo-menge,
      txz01 like ekpo-txz01,
      meins like ekpo-meins,
      zzissue_date like ekpo-zzissue_date,
      s_menge(13) type c,
      quan(13) type c,
      ship_quan(13) type c,
      unship_quan(13) type c,
      end of t_ekpo1.
DATA: begin of t_ekbe occurs 0,
         menge like ekbe-menge,
      end of t_ekbe.
DATA: w_menge like eban-menge,
      w_bsmng like eban-bsmng.
data: x_menge like ekbe-menge,
      x1_menge type p decimals 2.
DATA : BEGIN OF zheadtab OCCURS 5.     "text header
        INCLUDE STRUCTURE tline.
DATA : END OF zheadtab.
DATA : pagno  LIKE sy-pagno.
DATA : name   LIKE sy-repid.
data: xmenge like ekbe-menge.
                       Selection screen                             *
SELECTION-SCREEN BEGIN OF BLOCK A WITH FRAME TITLE TEXT-S01.
SELECT-OPTIONS : S_ekgrp FOR eban-ekgrp,
                 s_matnr for eban-matnr,
                 s_werks for eban-werks,
                 s_bsart for eban-bsart,
                 s_lfdat for eban-lfdat,
                 s_frgdt for eban-frgdt,
                 s_flief for eban-flief,
                 s_reswk for eban-reswk.
SELECTION-SCREEN END OF BLOCK A.
SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME TITLE TEXT-S02.
PARAMETERS : P_both  RADIOBUTTON GROUP A.   "For both Po and Pur req.
PARAMETERS : P_req   RADIOBUTTON GROUP A Default 'X' . "For Pur equsit'n
PARAMETERS : P_order RADIOBUTTON GROUP A. "For Purchase order
SELECTION-SCREEN END OF BLOCK B.
TOP-OF-PAGE.
PERFORM 100_top_of_page.
                       Start-of-selection                           *
START-OF-SELECTION.
  if P_req eq 'X'.
    perform get_purchase_data .
    loop at itab_req.
      if itab_req-quan gt 0.
        write:/1   itab_req-ekgrp,
               5   itab_req-werks,
               12  itab_req-flief,
               23  itab_req-reswk,
               29  itab_req-meins,
               33  itab_req-TXZ01,
               72  itab_req-banfn,
               97  itab_req-bnfpo,
               109 itab_req-quan,
               154 itab_req-frgdt,
               166 itab_req-lfdat.
      endif.
    endloop.
  endif.
  if P_order eq 'X'.
    perform get_requistion_data .
    check sy-subrc eq 0.
    loop at itab_req.
*value collected for recieved quantity
select sum( menge ) into (xmenge) from ekbe   where ebeln = itab1-ebeln
                    and   ebelp = itab1-ebelp
                    and   werks in s_werks
                    and   vgabe eq '1'.
      check sy-subrc eq 0.
*S_menge is the value for goods recieved quantity
      move xmenge to itab1-S_menge.
*value calculated for po open quantity
      itab1-quan = itab1-menge - itab1-S_menge.
      if itab1-quan gt 0.
*value collected for shipped quantity goods issued(x_menge)
select sum( menge ) into (x_menge) from ekbe   where ebeln = itab1-ebeln
                    and   ebelp = itab1-ebelp
                    and   werks in s_werks
                    and   vgabe eq '6'.
        check sy-subrc eq 0.
*value calculated for shipped quantity
        itab1-ship_quan = x_menge - itab1-S_menge.
*value calculated for unshipped quantity
*which is equl to the ordered quantity(ekpo-menge)
*and the goods issued (x_menge)
        itab1-unship_quan = itab1-menge - x_menge.
        write:/1 itab1-ekgrp,
               5 itab1-werks,
               12 itab1-lifnr,
               23 itab1-reswk,
               29 itab1-meins,
               33 itab1-txz01,
               86 itab1-ebeln,
               97 itab1-ebelp,
               109 itab1-quan,
               126 itab1-ship_quan,
               140 itab1-unship_quan,
               154 itab1-zzissue_date,
               165 itab1-eindt.
      endif.
    endloop.
  endif.
  if P_both eq 'X'.
    select * from eban into corresponding fields of table itab
                                         where ekgrp in s_ekgrp
                                         And   matnr in s_matnr
                                         and   werks in s_werks
                                         and   bsart in s_bsart
                                         and   lfdat in s_lfdat
                                         and   frgdt in s_frgdt
                                         and   flief in s_flief
                                         and   reswk in s_reswk
                                         and   ebakz NE 'X'
                                         and   loekz NE 'X'.
    loop at itab.
      select * from ekpo into corresponding fields of table t_ekpo
                     where ebeln = itab-ebeln.
      loop at t_ekpo.
        move t_ekpo-ebeln to t_ekpo1-ebeln.
        move t_ekpo-ebelp to t_ekpo1-ebelp.
        move t_ekpo-werks to t_ekpo1-werks.
        move t_ekpo-matnr to t_ekpo1-matnr.
        move t_ekpo-menge to t_ekpo1-menge.
        move t_ekpo-txz01 to t_ekpo1-txz01.
        move t_ekpo-meins to t_ekpo1-meins.
        move t_ekpo-zzissue_date to t_ekpo1-zzissue_date.
        move itab-banfn to t_ekpo1-banfn.
*value collected for recieved quantity
select sum( menge ) into (xmenge) from ekbe where ebeln = t_ekpo1-ebeln
                    and   ebelp = t_ekpo1-ebelp
                    and   werks in s_werks
                    and   vgabe eq '1'.
      check sy-subrc eq 0.
*S_menge is the value for goods recieved quantity
      move xmenge to t_ekpo1-S_menge.
*value calculated for po open quantity
      t_ekpo1-quan = t_ekpo-menge - t_ekpo1-S_menge.
     if itab1-quan gt 0.
*value collected for shipped quantity goods issued(x_menge)
select sum( menge ) into (x_menge) from ekbe where ebeln = t_ekpo1-ebeln
                    and   ebelp = t_ekpo1-ebelp
                    and   werks in s_werks
                    and   vgabe eq '6'.
        check sy-subrc eq 0.
*value calculated for shipped quantity
        t_ekpo1-ship_quan = x_menge - t_ekpo1-S_menge.
*value calculated for unshipped quantity
*which is equl to the ordered quantity(ekpo-menge)
*and the goods issued (x_menge)
        t_ekpo1-unship_quan = t_ekpo1-menge - x_menge.
        append t_ekpo1.
      endloop.
    endloop.
    sort t_ekpo1 by banfn ebeln ebelp.
    loop at t_ekpo1.
      at new banfn.
        write:/72 t_ekpo1-banfn.
      endat.
      write:/86 t_ekpo1-ebeln .
    endloop.
  endif.
*&      Form  100_top_of_page
      text
-->  p1        text
<--  p2        text
FORM 100_top_of_page .
  DATA : xdat1(10) TYPE c,
         xdat2(10) TYPE c.
  DATA prog_nm LIKE sy-repid.
  prog_nm = sy-repid.
  WRITE : s_lfdat-low  TO xdat1 DD/MM/YYYY,
          s_lfdat-high TO xdat2 DD/MM/YYYY.
  MOVE 'H1' TO zheadtab-tdformat.
  CONCATENATE   'Shipment Report Between'
                xdat1
                'and'
                xdat2
                INTO zheadtab-tdline SEPARATED BY space.
  APPEND zheadtab.
  CALL FUNCTION 'Z_HEADER'
    EXPORTING
      datum      = sy-datum
      pagno      = sy-pagno
      prog_title = sy-title
      repid      = prog_nm
      uname      = sy-uname
      uzeit      = sy-uzeit
    TABLES
      zheadtab   = zheadtab.
  format  intensified on.
  WRITE :/1 'Pur',
          5 'Plant',
          12 'Vendor',
          23 'Sup',
          29 'Sku#',
          33 'Product Name',
          72 'Purchase',
          86 'Purchase',
          97 'item',
          109 'Open',
          126 'shipped ',
          140 'unshipped ',
          154 'Release',
          165 'Delivery'.
  write:/1  'Grp',
         23 'Plant',
         72 'Requistion',
         86 'order',
         109 'Quan',
         126 'quan',
         140 'quan',
         154 'Date',
         165 'Date'.
  Uline.
ENDFORM.                    " 100_top_of_page
*&      Form  get_purchase_data
      text
-->  p1        text
<--  p2        text
FORM get_purchase_data .
  select * from eban into corresponding fields of table itab
                                       where ekgrp in s_ekgrp
                                       And   matnr in s_matnr
                                       and   werks in s_werks
                                       and   bsart in s_bsart
                                       and   lfdat in s_lfdat
                                       and   frgdt in s_frgdt
                                       and   flief in s_flief
                                       and   reswk in s_reswk
                                       and   ebakz NE 'X'
                                       and   loekz NE 'X'.
  sort itab by werks matnr.
  loop at itab.
    move itab to itab_req.
    w_menge = eban-menge.
    w_bsmng = eban-bsmng.
    itab-quan = ( w_menge - w_bsmng ).
    itab_req-quan = itab-quan.
    append itab_req.
  endloop.
ENDFORM.                    " get_purchase_data
*&      Form  get_requistion_data
      text
-->  p1        text
<--  p2        text
FORM get_requistion_data .
  select ekkoekgrp ekkolifnr ekkoreswk ekkobsart ekko~ebeln
           ekpowerks ekpomatnr ekpomenge ekpoTXZ01 ekpo~ebelp
           ekpomeins eketeindt eketebeln ekpoZZISSUE_DATE
           into corresponding fields of table itab1
           from ekko inner join ekpo
           on ekkoebeln = ekpoebeln
           inner join eket
           on  eketebeln = ekkoebeln
           and eketebelp = ekpoebelp
           where  ekko~bsart in s_bsart
           and eket~eindt in s_lfdat
           and ekko~ekgrp in s_ekgrp
           and ekpo~matnr in s_matnr
           and ekpo~werks in s_werks
           and ekpo~loekz NE 'X'
           and ekpo~elikz ne 'X'.
ENDFORM.                    " get_requistion_data
plz if someone can help on this
regards
parul