INTERACTIVE Report first time

*&---------------------------------------------------------------------*
*& Report ZTR_DEMO_REPORT11 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

* Report : CHECK BOX
REPORT ZTR_DEMO_REPORT11 NO STANDARD PAGE HEADING LINE-SIZE
100 LINE-COUNT 7(3).

TABLES : YEMP , YSAL .


TYPES : BEGIN OF ST_EMP,

EMP_NO TYPE YEMP-EMP_NO,
EMP_NAME TYPE YEMP-EMP_NAME ,
CITY TYPE YEMP-CITY ,

END OF ST_EMP.

DATA : WA_EMP TYPE ST_EMP .

DATA : IT_EMP LIKE STANDARD TABLE OF WA_EMP.

DATA : CHK TYPE C.

SELECT-OPTIONS : S_EMP_NO FOR YEMP-EMP_NO.

INITIALIZATION .

AT SELECTION-SCREEN.

IF S_EMP_NO-LOW IS INITIAL OR S_EMP_NO-HIGH IS INITIAL.
MESSAGE W001(ZMSG).
ENDIF.

START-OF-SELECTION .

SELECT * FROM YEMP INTO TABLE IT_EMP.

END-OF-SELECTION .

BREAK-POINT .

LOOP AT IT_EMP INTO WA_EMP .

WRITE:/5 CHK AS CHECKBOX ,
15 WA_EMP-EMP_NO.

HIDE WA_EMP-EMP_NO.

ENDLOOP.


*---AT LINE SELECTION ON SECONDARY LIST WHOSE LIST INDEX IS 1--------
BREAK-POINT .

DATA : LINE TYPE I .

LINE = SY-LINNO .

AT LINE-SELECTION.

BREAK-POINT.

IF SY-LSIND = 1 .

WINDOW STARTING AT 10 10 ENDING AT 100 50.


DO LINE TIMES .


READ LINE SY-INDEX FIELD VALUE CHK .

IF CHK = 'X' .

LOOP AT IT_EMP INTO WA_EMP
WHERE EMP_NO EQ WA_EMP-EMP_NO.

WRITE :/20 WA_EMP-EMP_NAME .

HIDE WA_EMP-EMP_NO.
HIDE WA_EMP-EMP_NAME.

ENDLOOP.

ENDIF.

ENDDO.

CLEAR : LINE .


ENDIF.


IF SY-LSIND = 2 .

WINDOW STARTING AT 10 10 ENDING AT 100 50.

LOOP AT IT_EMP INTO WA_EMP
WHERE EMP_NO EQ WA_EMP-EMP_NO AND
EMP_NAME EQ WA_EMP-EMP_NAME.


WRITE :/20 WA_EMP-CITY .

ENDLOOP.

ENDIF.



TOP-OF-PAGE .

WRITE :/5 'TOP OF PAGE '.

END-OF-PAGE.

SKIP 2 .

WRITE :/5 'END OF PAGE '.

INTERACTIVE Report using standard trable and standard attribute

*&---------------------------------------------------------------------*
*& Report ZTR_DEMO_REPORT10 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*

REPORT ZTR_DEMO_REPORT10 .

TABLES : MARA , MARD , MAKT .

DATA : BEGIN OF ITAB OCCURS 0 ,

MATNR TYPE MARA-MATNR,
ERNAM TYPE MARA-ERNAM,
MTART TYPE MARA-MTART,
MBRSH TYPE MARA-MBRSH,
MATKL TYPE MARA-MATKL,

LGORT TYPE MARD-LGORT,

MAKTX TYPE MAKT-MAKTX,

END OF ITAB .

DATA : CHK TYPE C . "AS CHECKBOX .

SELECT M~MATNR M~ERNAM M~MTART D~LGORT K~MAKTX
FROM

MARA AS M INNER JOIN MARD AS D
ON M~MATNR = D~MATNR

INNER JOIN MAKT AS K
ON D~MATNR = K~MATNR


INTO CORRESPONDING FIELDS OF TABLE ITAB .


WRITE :/5 'MATNR' , 35 'ERNAM' , 55 'MTART' , 75 'LGORT'.
ULINE.

LOOP AT ITAB .

WRITE :/2 CHK AS CHECKBOX,
ITAB-MATNR UNDER 'MATNR',
* ITAB-ERNAM UNDER 'ERNAM',
ITAB-MTART UNDER 'MTART'.
* ITAB-LGORT UNDER 'LGORT'.

HIDE ITAB-MATNR.
HIDE ITAB-ERNAM.
HIDE ITAB-LGORT.



ENDLOOP.


DATA : LINE TYPE I .


LINE = SY-LINNO .

AT LINE-SELECTION .


IF SY-LSIND = 1 .

WRITE : /5 'MATNR', 35 'ERNAM' ,75 'LGORT' .


DO LINE TIMES .


READ LINE SY-INDEX FIELD VALUE CHK .

IF CHK = 'X' .

SELECT M~MATNR M~ERNAM D~LGORT
FROM

MARA AS M INNER JOIN MARD AS D
ON M~MATNR = D~MATNR


INTO CORRESPONDING FIELDS OF TABLE ITAB
WHERE M~MATNR = ITAB-MATNR AND
M~ERNAM = ITAB-ERNAM AND
D~LGORT = ITAB-LGORT .

DELETE ADJACENT DUPLICATES FROM ITAB.


LOOP AT ITAB .

WRITE :/ ITAB-MATNR UNDER 'MATNR',
ITAB-ERNAM UNDER 'ERNAM' ,
ITAB-LGORT UNDER 'LGORT' .

ENDLOOP.


ENDIF .


ENDDO .

ENDIF.