*&---------------------------------------------------------------------*
*& Report ZTR_DEMO_REPORT9 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT ZTR_DEMO_REPORT8 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.
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 WA_EMP-EMP_NO.
HIDE WA_EMP-EMP_NO.
ENDLOOP.
*---AT LINE SELECTION ON SECONDARY LIST WHOSE LIST INDEX IS 1--------
AT LINE-SELECTION.
IF SY-LSIND = 1 .
WINDOW STARTING AT 10 10 ENDING AT 100 50.
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.
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 '.
Showing posts with label INTERACTIVE Report. Show all posts
Showing posts with label INTERACTIVE Report. Show all posts
Monday, December 13, 2010
INTERACTIVE Report using window starting
*&---------------------------------------------------------------------*
*& Report ZTR_DEMO_REPORT9 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT ZTR_DEMO_REPORT8 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.
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 WA_EMP-EMP_NO.
HIDE WA_EMP-EMP_NO.
ENDLOOP.
*---AT LINE SELECTION ON SECONDARY LIST WHOSE LIST INDEX IS 1--------
AT LINE-SELECTION.
IF SY-LSIND = 1 .
WINDOW STARTING AT 10 10 ENDING AT 100 50.
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.
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 '.
*& Report ZTR_DEMO_REPORT9 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT ZTR_DEMO_REPORT8 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.
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 WA_EMP-EMP_NO.
HIDE WA_EMP-EMP_NO.
ENDLOOP.
*---AT LINE SELECTION ON SECONDARY LIST WHOSE LIST INDEX IS 1--------
AT LINE-SELECTION.
IF SY-LSIND = 1 .
WINDOW STARTING AT 10 10 ENDING AT 100 50.
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.
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 '.
First INTERACTIVE REORT
*&---------------------------------------------------------------------*
*& Report ZTR_DEMO_REPORT7 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Report ZSANDEEP_INTERACTIVE_REORT *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT ZTR_DEMO_REPORT7 NO STANDARD PAGE HEADING LINE-SIZE
100 LINE-COUNT 10(5).
*/------------DECLARATION ---------------------------------------------
TABLES : MARA.
DATA : ITAB LIKE MARA OCCURS 0 WITH HEADER LINE.
SELECTION-SCREEN : BEGIN OF BLOCK ABC.
SELECT-OPTIONS : MAT_NUM FOR MARA-MATNR.
SELECTION-SCREEN : END OF BLOCK ABC.
*/----------------INITIALIZATION-------------------------------
INITIALIZATION.
MAT_NUM-LOW = '38'.
MAT_NUM-HIGH = '5000'.
APPEND MAT_NUM.
AT SELECTION-SCREEN.
IF MAT_NUM-LOW IS INITIAL OR MAT_NUM-HIGH IS INITIAL.
MESSAGE E003(ZJ_MSG).
ENDIF.
START-OF-SELECTION.
SELECT * FROM MARA INTO TABLE ITAB WHERE MATNR IN MAT_NUM.
LOOP AT ITAB .
WRITE :/ ITAB-MATNR UNDER 'MAT NUM' , ITAB-MEINS UNDER 'UNITS' ,50
ITAB-ERNAM .
HIDE ITAB-MATNR.
HIDE ITAB-MEINS.
ENDLOOP.
BREAK-POINT.
*---AT LINE SELECTION ON SECONDARY LIST WHOSE LIST INDEX IS 1--------
AT LINE-SELECTION.
IF SY-LSIND = 1 .
SELECT * FROM MARA INTO TABLE ITAB WHERE MATNR = ITAB-MATNR .
WINDOW STARTING AT 10 10 ENDING AT 130 50.
LOOP AT ITAB .
WRITE :/ ITAB-MATNR UNDER 'MAT NUM(MATNR)' , ITAB-MEINS UNDER
'UNITS(MEINS)' .
ENDLOOP.
ENDIF.
*------TOP-OF-PAGE FOR SECONDARY LIST WHOSE LIST INDEX IS 1--------
TOP-OF-PAGE DURING LINE-SELECTION.
IF SY-LSIND = 1 .
WRITE :/ 'PAGE HEADING FOR SECOND LIST'.
WRITE :/6 'MAT NUM(MATNR)', 35 'UNITS(MEINS)'.
ULINE.
ENDIF .
*-----AT LINE SELECTION ON SECONDARY LIST WHOSE LIST INDEX IS 2--------
AT LINE-SELECTION .
IF SY-LSIND = 2 .
SELECT * FROM MARA INTO TABLE ITAB WHERE MATNR = ITAB-MATNR .
WINDOW STARTING AT 10 10 ENDING AT 100 50.
LOOP AT ITAB .
WRITE :/ ITAB-MEINS , 35 ITAB-ERNAM , 55 ITAB-MATNR.
ENDLOOP.
ENDIF.
*------TOP-OF-PAGE FOR SECONDARY LIST WHOSE LIST INDEX IS 2--------
TOP-OF-PAGE DURING LINE-SELECTION.
IF SY-LSIND = 2 .
WRITE :/ 'PAGE HEADING FOR THIRD LIST'.
WRITE : / 'MEINS' , 35 'ERNAM' , 55'MATNR' .
ULINE.
endif.
END-OF-PAGE.
ULINE.
WRITE :/ 'REPORT CREATED BY',SY-UNAME, 'ON' , SY-DATUM .
*& Report ZTR_DEMO_REPORT7 *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*& Report ZSANDEEP_INTERACTIVE_REORT *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT ZTR_DEMO_REPORT7 NO STANDARD PAGE HEADING LINE-SIZE
100 LINE-COUNT 10(5).
*/------------DECLARATION ---------------------------------------------
TABLES : MARA.
DATA : ITAB LIKE MARA OCCURS 0 WITH HEADER LINE.
SELECTION-SCREEN : BEGIN OF BLOCK ABC.
SELECT-OPTIONS : MAT_NUM FOR MARA-MATNR.
SELECTION-SCREEN : END OF BLOCK ABC.
*/----------------INITIALIZATION-------------------------------
INITIALIZATION.
MAT_NUM-LOW = '38'.
MAT_NUM-HIGH = '5000'.
APPEND MAT_NUM.
AT SELECTION-SCREEN.
IF MAT_NUM-LOW IS INITIAL OR MAT_NUM-HIGH IS INITIAL.
MESSAGE E003(ZJ_MSG).
ENDIF.
START-OF-SELECTION.
SELECT * FROM MARA INTO TABLE ITAB WHERE MATNR IN MAT_NUM.
LOOP AT ITAB .
WRITE :/ ITAB-MATNR UNDER 'MAT NUM' , ITAB-MEINS UNDER 'UNITS' ,50
ITAB-ERNAM .
HIDE ITAB-MATNR.
HIDE ITAB-MEINS.
ENDLOOP.
BREAK-POINT.
*---AT LINE SELECTION ON SECONDARY LIST WHOSE LIST INDEX IS 1--------
AT LINE-SELECTION.
IF SY-LSIND = 1 .
SELECT * FROM MARA INTO TABLE ITAB WHERE MATNR = ITAB-MATNR .
WINDOW STARTING AT 10 10 ENDING AT 130 50.
LOOP AT ITAB .
WRITE :/ ITAB-MATNR UNDER 'MAT NUM(MATNR)' , ITAB-MEINS UNDER
'UNITS(MEINS)' .
ENDLOOP.
ENDIF.
*------TOP-OF-PAGE FOR SECONDARY LIST WHOSE LIST INDEX IS 1--------
TOP-OF-PAGE DURING LINE-SELECTION.
IF SY-LSIND = 1 .
WRITE :/ 'PAGE HEADING FOR SECOND LIST'.
WRITE :/6 'MAT NUM(MATNR)', 35 'UNITS(MEINS)'.
ULINE.
ENDIF .
*-----AT LINE SELECTION ON SECONDARY LIST WHOSE LIST INDEX IS 2--------
AT LINE-SELECTION .
IF SY-LSIND = 2 .
SELECT * FROM MARA INTO TABLE ITAB WHERE MATNR = ITAB-MATNR .
WINDOW STARTING AT 10 10 ENDING AT 100 50.
LOOP AT ITAB .
WRITE :/ ITAB-MEINS , 35 ITAB-ERNAM , 55 ITAB-MATNR.
ENDLOOP.
ENDIF.
*------TOP-OF-PAGE FOR SECONDARY LIST WHOSE LIST INDEX IS 2--------
TOP-OF-PAGE DURING LINE-SELECTION.
IF SY-LSIND = 2 .
WRITE :/ 'PAGE HEADING FOR THIRD LIST'.
WRITE : / 'MEINS' , 35 'ERNAM' , 55'MATNR' .
ULINE.
endif.
END-OF-PAGE.
ULINE.
WRITE :/ 'REPORT CREATED BY',SY-UNAME, 'ON' , SY-DATUM .
Subscribe to:
Posts (Atom)