interactive

[Former Member]

Hi,

while displaying lists through interactive reporting.Suppose if I were at 16th list and suppose If I want to see the 3rd list or someother list suddenly.what is the procedure for that.

[Former Member]

Hi,

Here is the Sample Code for Dynamic Interactive Report.

&----

---

*& Report ZV_INT_TEST

*&

&----

---

*&

*&

&----

---

REPORT ZP_INTERACTIVE5 LINE-SIZE 100 LINE-COUNT 10(2).

TABLES: MARA, MARC, MAKT.

DATA: WA_MARA LIKE MARA,

IT_MARA TYPE TABLE OF MARA,

WA_MARC LIKE MARC,

IT_MARC TYPE TABLE OF MARC,

WA_MAKT LIKE MAKT,

IT_MAKT TYPE TABLE OF MAKT.

DATA: VALUE(20) TYPE C.

DATA: L1 TYPE I,

L2 TYPE I.

SELECT-OPTIONS: S_MATNR FOR MARA-MATNR.

START-OF-SELECTION.

SELECT * FROM MARA INTO TABLE IT_MARA

WHERE MATNR IN S_MATNR.

LOOP AT IT_MARA INTO WA_MARA.

WRITE: / WA_MARA-MATNR COLOR COL_KEY INTENSIFIED ON,

WA_MARA-ERSDA COLOR COL_KEY INTENSIFIED ON.

HIDE: WA_MARA-MATNR.

ENDLOOP.

CLEAR WA_MARA-MATNR.

AT LINE-SELECTION.

AT LINE-SELECTION.

L1 = SY-CUROW.

L2 = L1 + 10.

IF SY-LSIND = 2.

SY-LSIND = 1.

ELSE.

SY-LSIND = 2.

ENDIF.

• WINDOW STARTING AT 10 l1

• ENDING AT 50 l2.

CASE SY-LSIND.

WHEN '1'.

GET CURSOR FIELD VALUE.

IF VALUE = 'WA_MAKT-MATNR'.

SELECT * FROM MARC INTO TABLE IT_MARC

WHERE MATNR = WA_MAKT-MATNR.

IF IT_MARC IS INITIAL.

MESSAGE 'NO RECORDS FOUND' TYPE 'I'.

ELSE.

WINDOW STARTING AT 10 L1

ENDING AT 50 L2.

LOOP AT IT_MARC INTO WA_MARC.

WRITE: / WA_MARC-MATNR COLOR COL_KEY INTENSIFIED ON,

WA_MARC-WERKS COLOR COL_KEY INTENSIFIED ON.

HIDE: WA_MARC-MATNR.

ENDLOOP.

ENDIF.

ELSE.

MESSAGE 'CLICK ON THE MATERIAL NUMBER' TYPE 'I'.

ENDIF.

WHEN '2'.

GET CURSOR FIELD VALUE.

IF VALUE = 'WA_MARA-MATNR'.

SELECT * FROM MAKT INTO TABLE IT_MAKT

WHERE MATNR = WA_MARA-MATNR.

IF IT_MAKT IS INITIAL.

MESSAGE 'NO RECORDS FOUND' TYPE 'I'.

ELSE.

WINDOW STARTING AT 10 L1

ENDING AT 50 L2.

LOOP AT IT_MAKT INTO WA_MAKT.

WRITE: / WA_MAKT-MATNR COLOR COL_KEY INTENSIFIED ON,

WA_MAKT-SPRAS COLOR COL_KEY INTENSIFIED ON,

WA_MAKT-MAKTX COLOR COL_KEY INTENSIFIED ON.

ENDLOOP.

ENDIF.

CLEAR WA_MAKT-MATNR.

ELSE.

MESSAGE 'CLICK ON THE MATERIAL NUMBER' TYPE 'I'.

ENDIF.

ENDCASE.

TOP-OF-PAGE.

WRITE: 'MATERIAL MASTER DETAILS'.

TOP-OF-PAGE DURING LINE-SELECTION.

CASE SY-LSIND.

WHEN '1'.

WRITE: 'PLANT DETIALS'.

WHEN '2'.

WRITE: 'MATERIAL DESCRIPTION'.

ENDCASE.

Reward If Helpfull,

Naresh.