Control Break Statements in ABAP - NewtoSAP.info

zcontrolbreak.abap

*&---------------------------------------------------------------------*
*& Report  ZAU_CONTROLBREAK
*&
*&---------------------------------------------------------------------*
*& NEW TO SAP CONTROL BREAK EXAMPLE
*& http://www.newtosap.info
*&
*&---------------------------------------------------------------------*
 
REPORT  zau_controlbreak.
TYPES: BEGIN OF ty_marc,
        matnr TYPE marc-matnr,
        werks TYPE marc-werks,
       END OF ty_marc.
 
DATA: it_marc TYPE STANDARD TABLE OF ty_marc,
      wa_marc TYPE ty_marc,
      wa_temp TYPE ty_marc.
 
SELECT matnr werks FROM marc INTO TABLE it_marc UP TO 10 ROWS WHERE matnr ge 40.
SORT it_marc BY matnr.
FIELD-SYMBOLS : <matnr> type matnr.
 
WRITE:/ 'FULL TABLE'.
LOOP AT it_marc INTO wa_marc.
  wa_temp = wa_marc.
  WRITE: / sy-tabix , wa_temp-matnr,  wa_temp-werks.
ENDLOOP.
 
WRITE:/ 'AT FIRST AND LAST'.
LOOP AT it_marc INTO wa_marc.
  wa_temp = wa_marc.
  AT FIRST.
    WRITE:/ 'First Entry'.
    WRITE:/  wa_temp-matnr,  wa_temp-werks.
  ENDAT.
  AT LAST.
    WRITE:/ 'Last Entry'.
    WRITE:/  wa_temp-matnr,  wa_temp-werks.
  ENDAT.
ENDLOOP.
 
 
WRITE:/ 'AT END OF'.
LOOP AT it_marc INTO wa_marc.
  wa_temp = wa_marc.
  AT END OF matnr.
    WRITE: / sy-tabix , wa_temp-matnr,  wa_temp-werks.
  ENDAT.
ENDLOOP.
 
WRITE:/ 'AT NEW'.
 
LOOP AT it_marc INTO wa_marc.
  wa_temp = wa_marc.
  AT NEW matnr.
    WRITE: / sy-tabix , wa_temp-matnr,  wa_temp-werks.
  ENDAT.
ENDLOOP.
 
WRITE:/ 'ON CHANGE OF'.
LOOP AT it_marc INTO wa_marc.
  wa_temp = wa_marc.
  ASSIGN wa_marc-matnr TO <matnr>.
  ON CHANGE OF wa_marc-matnr.
    WRITE: / sy-tabix ,wa_temp-matnr,  wa_temp-werks.
  ENDON.
ENDLOOP.