Control break statement:
*&---------------------------------------------------------------------*
*& Report ZCOND_S
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZCOND_S.
TYPES: BEGIN OF MAT,
MATNR TYPE MAKT-MATNR,
MAKTX TYPE MAKT-MAKTX,
END OF MAT.
DATA: IT_MAT TYPE TABLE OF MAT,
WA_MAT TYPE MAT,
TEMP_MAT TYPE MAT.
START-OF-SELECTION.
SELECT MATNR MAKTX FROM MAKT
INTO TABLE IT_MAT UP TO 10 ROWS.
WRITE : / 'FINAL TABLE ' COLOR 5.
LOOP AT IT_MAT INTO WA_MAT.
WRITE: / SY-TABIX,
WA_MAT-MATNR,
WA_MAT-MAKTX.
ENDLOOP.
SKIP 3.
WRITE : 'AT FIRST' COLOR 6.
LOOP AT IT_MAT INTO WA_MAT.
TEMP_MAT = WA_MAT.
AT FIRST .
WRITE: / SY-TABIX,TEMP_MAT-MATNR,
TEMP_MAT-MAKTX.
ENDAT.
ENDLOOP.
SKIP 3.
WRITE : 'AT LAST' COLOR 5.
LOOP AT IT_MAT INTO WA_MAT.
TEMP_MAT = WA_MAT.
AT LAST .
WRITE: / SY-TABIX, TEMP_MAT-MATNR,
TEMP_MAT-MAKTX.
ENDAT.
ENDLOOP.
SKIP 3.
WRITE : 'AT NEW ' COLOR 5.
LOOP AT IT_MAT INTO WA_MAT.
TEMP_MAT = WA_MAT.
AT NEW MATNR.
WRITE: / SY-TABIX, TEMP_MAT-MATNR,
TEMP_MAT-MAKTX.
ENDAT.
ENDLOOP.
SKIP 3.
WRITE : 'AT END OF ' COLOR 5.
LOOP AT IT_MAT INTO WA_MAT.
TEMP_MAT = WA_MAT.
AT END OF MATNR .
WRITE: / SY-TABIX, TEMP_MAT-MATNR,
TEMP_MAT-MAKTX.
ENDAT.
ENDLOOP.
*& Report ZCOND_S
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
REPORT ZCOND_S.
TYPES: BEGIN OF MAT,
MATNR TYPE MAKT-MATNR,
MAKTX TYPE MAKT-MAKTX,
END OF MAT.
DATA: IT_MAT TYPE TABLE OF MAT,
WA_MAT TYPE MAT,
TEMP_MAT TYPE MAT.
START-OF-SELECTION.
SELECT MATNR MAKTX FROM MAKT
INTO TABLE IT_MAT UP TO 10 ROWS.
WRITE : / 'FINAL TABLE ' COLOR 5.
LOOP AT IT_MAT INTO WA_MAT.
WRITE: / SY-TABIX,
WA_MAT-MATNR,
WA_MAT-MAKTX.
ENDLOOP.
SKIP 3.
WRITE : 'AT FIRST' COLOR 6.
LOOP AT IT_MAT INTO WA_MAT.
TEMP_MAT = WA_MAT.
AT FIRST .
WRITE: / SY-TABIX,TEMP_MAT-MATNR,
TEMP_MAT-MAKTX.
ENDAT.
ENDLOOP.
SKIP 3.
WRITE : 'AT LAST' COLOR 5.
LOOP AT IT_MAT INTO WA_MAT.
TEMP_MAT = WA_MAT.
AT LAST .
WRITE: / SY-TABIX, TEMP_MAT-MATNR,
TEMP_MAT-MAKTX.
ENDAT.
ENDLOOP.
SKIP 3.
WRITE : 'AT NEW ' COLOR 5.
LOOP AT IT_MAT INTO WA_MAT.
TEMP_MAT = WA_MAT.
AT NEW MATNR.
WRITE: / SY-TABIX, TEMP_MAT-MATNR,
TEMP_MAT-MAKTX.
ENDAT.
ENDLOOP.
SKIP 3.
WRITE : 'AT END OF ' COLOR 5.
LOOP AT IT_MAT INTO WA_MAT.
TEMP_MAT = WA_MAT.
AT END OF MATNR .
WRITE: / SY-TABIX, TEMP_MAT-MATNR,
TEMP_MAT-MAKTX.
ENDAT.
ENDLOOP.
Comments
Post a Comment