reports

[Former Member]

explain any interactive reports in real time.

[Sougata]

how about saying 'please'??

[Former Member]

hi angel,

u just go to transaction........................

ABAPDOCU

Reward points if helpful

Regards,

Imran

[sreeramkumar_madisetty]

<b>Hi angel

See the simple report ....

REPORT SAPMZTST NO STANDARD PAGE HEADING LINE-SIZE 40.

DATA: HOTSPOT(10) VALUE 'Click me!',

F(10), OFF TYPE I, LIN TYPE I, VAL(40), LEN TYPE I.

FIELD-SYMBOLS <FS>.

ASSIGN HOTSPOT TO <FS>.

WRITE 'Demonstration of GET CURSOR statement'.

SKIP TO LINE 4.

POSITION 20.

WRITE <FS> HOTSPOT COLOR 5 INVERSE ON.

AT LINE-SELECTION.

WINDOW STARTING AT 5 6 ENDING AT 45 20.

GET CURSOR FIELD F OFFSET OFF

LINE LIN VALUE VAL LENGTH LEN.

WRITE: 'Result of GET CURSOR FIELD: '.

ULINE AT /(28).

WRITE: / 'Field: ', F,

/ 'Offset:', OFF,

/ 'Line: ', LIN,

/ 'Value: ', (10) VAL,

/ 'Length:', LEN.

SKIP.

GET CURSOR LINE LIN OFFSET OFF VALUE VAL LENGTH LEN.

WRITE: 'Result of GET CURSOR LINE: '.

ULINE AT /(27).

WRITE: / 'Offset:', OFF,

/ 'Value: ', VAL,

/ 'Length:', LEN.

In this program, the HOTSPOT field is assigned to the field symbol <FS> and displayed as hotspot on the output screen. If the user positions the cursor on a list line and selects it, a dialog box appears containing the results of the GET CURSOR statements in the AT LINE-SELECTION event.

Note that after GET CURSOR FIELD, the name of the field assigned to the field symbol <FS> is stored in F, and not the name of the field symbol.

Pls. reward if useful

Regards,

Sree</b>

[Former Member]

Hai,

Go thru the Thread u ll get an idea,

Regards,

Padmam.

[Former Member]

Hi ,

I had send one simple interactive list...

&----

---

*& Report ZAM_INTERACTIVE_EVENTS *

*& *

&----

---

*& *

*& *

&----

---

REPORT ZAM_INTERACTIVE_EVENTS

NO STANDARD PAGE HEADING

MESSAGE-ID ZMSGR .

*TABLES DECLARATION.

TABLES: VBAK,

VBAP,

KNA1,

MARA.

*INTERNAL TABLE DECLARATION.

DATA: BEGIN OF T_VBAK OCCURS 0,

VBELN LIKE VBAK-VBELN,

KUNNR LIKE VBAK-KUNNR,

ERDAT LIKE VBAK-ERDAT,

END OF T_VBAK.

DATA:BEGIN OF T_VBAP OCCURS 0,

VBELN LIKE VBAP-VBELN,

POSNR LIKE VBAP-POSNR,

MATNR LIKE VBAP-MATNR,

END OF T_VBAP.

DATA:BEGIN OF T_KNA1 OCCURS 0,

KUNNR LIKE KNA1-KUNNR,

NAME1 LIKE KNA1-NAME1,

END OF T_KNA1.

DATA:BEGIN OF T_MARA OCCURS 0,

MATNR LIKE MARA-MATNR,

MEINS LIKE MARA-MEINS,

END OF T_MARA.

DATA : ONE TYPE I VALUE '1',

TWO TYPE I VALUE '2'.

DATA:FLDNAM(30) TYPE C ,

FLDVAL(30) TYPE C.

*SELECTION SCREEN

SELECTION-SCREEN: BEGIN OF BLOCK A WITH FRAME TITLE TEXT-000.

SELECT-OPTIONS: S_VBELN FOR VBAK-VBELN ,

S_KUNNR FOR VBAK-KUNNR ,

S_MATNR FOR VBAP-MATNR.

SELECTION-SCREEN: END OF BLOCK A.

*START OF SELECTION

START-OF-SELECTION.

PERFORM GET_HEADER.

*TOP OF PAGE

TOP-OF-PAGE.

FORMAT COLOR 7.

WRITE:/40 'SALES DETAILS'.

FORMAT COLOR OFF.

FORMAT COLOR 2.

WRITE:/19 TEXT-001 ,32 TEXT-002 ,

47 TEXT-003 .

FORMAT COLOR OFF.

*AT LINE SELECTION

AT LINE-SELECTION.

IF SY-LSIND = 1.

GET CURSOR FIELD FLDNAM VALUE FLDVAL.

IF FLDNAM = 'T_VBAK-VBELN'.

PERFORM GET_SALES.

ELSEIF FLDNAM = 'T_VBAK-KUNNR'.

PERFORM GET_CUSTOMER.

ENDIF.

ENDIF.

IF SY-LSIND = 2.

GET CURSOR FIELD FLDNAM VALUE FLDVAL.

IF FLDNAM = 'T_VBAP-MATNR'.

PERFORM GET_MATERIAL.

ENDIF.

ENDIF.

*NAVIGATION PAGE DESIGN

TOP-OF-PAGE DURING LINE-SELECTION.

IF SY-LSIND = 1.

WINDOW STARTING AT 10 10 ENDING AT 120 20.

ENDIF.

IF SY-LSIND = 2.

WINDOW STARTING AT 10 10 ENDING AT 100 20.

ENDIF.

*END OF SELECTION

END-OF-SELECTION.

END-OF-PAGE.

&----

---

*& Form GET_HEADER TO GET THE SALES HEADER DETAILS

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM GET_HEADER .

SELECT VBELN KUNNR ERDAT

FROM VBAK

INTO TABLE T_VBAK

WHERE VBELN IN S_VBELN AND KUNNR IN S_KUNNR.

LOOP AT T_VBAK.

FORMAT COLOR COL_KEY.

FORMAT COLOR OFF.

WRITE: /19 T_VBAK-VBELN COLOR 2 HOTSPOT ON,

32 T_VBAK-KUNNR COLOR 4 HOTSPOT ON,47 T_VBAK-ERDAT.

HIDE T_VBAK-VBELN.

HIDE T_VBAK-KUNNR.

ENDLOOP.

ENDFORM. " GET_HEADER

&----

---

*& Form GET_SALES TO GET THE PARTICULAR SALES ORDER DETAILS

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM GET_SALES .

SELECT VBELN POSNR MATNR

FROM VBAP

INTO TABLE T_VBAP

WHERE VBELN = T_VBAK-VBELN.

IF SY-SUBRC <> 0.

MESSAGE I001.

ENDIF.

SORT T_VBAK BY VBELN.

FORMAT COLOR 7.

WRITE:/40 'SALES DETAILS'.

FORMAT COLOR OFF.

FORMAT COLOR 2.

WRITE:/7 TEXT-001 , 23 TEXT-004 , 50 TEXT-005 .

FORMAT COLOR OFF.

LOOP AT T_VBAP.

WRITE:/7 T_VBAP-VBELN, 23 T_VBAP-POSNR , 50 T_VBAP-MATNR COLOR 2 HOTSPOT ON.

HIDE T_VBAP-MATNR.

ENDLOOP.

ENDFORM. " GET_SALES

&----

---

*& Form GET_CUSTOMER TO GET CUSTOMER DETAILS

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM GET_CUSTOMER .

IF FLDNAM = 'T_VBAK-KUNNR'.

SELECT KUNNR NAME1

FROM KNA1

INTO TABLE T_KNA1

WHERE KUNNR = T_VBAK-KUNNR.

IF SY-SUBRC <> 0.

MESSAGE I001.

ENDIF.

SORT T_VBAK BY VBELN.

FORMAT COLOR 7.

WRITE:/40 'CUSTOMER DETAILS'.

FORMAT COLOR OFF.

FORMAT COLOR 2.

WRITE:/7 TEXT-002 , 23 TEXT-006 .

FORMAT COLOR OFF.

LOOP AT T_KNA1.

WRITE:/7 T_KNA1-KUNNR, 23 T_KNA1-NAME1.

ENDLOOP.

ENDIF.

ENDFORM. " GET_CUSTOMER

&----

---

*& Form GET_MATERIAL TO GET MATERIAL DETAILS

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM GET_MATERIAL .

SELECT MATNR MEINS

FROM MARA

INTO TABLE T_MARA

WHERE MATNR = T_VBAP-MATNR.

IF SY-SUBRC <> 0.

MESSAGE I001.

ENDIF.

SORT T_VBAP BY VBELN.

FORMAT COLOR 7.

WRITE:/40 'MATERIAL DETAILS'.

FORMAT COLOR OFF.

FORMAT COLOR 2.

WRITE:/7 TEXT-005 , 23 TEXT-007.

FORMAT COLOR OFF.

LOOP AT T_MARA.

WRITE:/7 T_MARA-MATNR, 23 T_MARA-MEINS.

ENDLOOP.

ENDFORM. " GET_MATERIAL

Hope u can understand it..

Reward points if usefull.

Thanks and Regards,

Ramya