Interactive report

[Former Member]

Hi,

Can we call Reports from Interactive report. if yes what is the procedure.

regards

shashikanth naram

[Former Member]

Hi Shashikanth,

Use SUBMIT Keyword to call a report from an interactive report.

Check this sample :

******************************************************************

data : it_list_output type table of abaplist.

SUBMIT RIQMEL20

VIA SELECTION-SCREEN

EXPORTING LIST TO MEMORY AND RETURN.

call function 'LIST_FROM_MEMORY'

tables

listobject = it_list_output[]

exceptions

not_found = 1

others = 2.

if sy-subrc = 0 or not it_list_output[] is initial.

commit work and wait.

else.

message 'Error' type 'E'.

endif.

******************************************************************

Hope this is helpful to you. If you need further information, revert back.

Reward all the helpful answers.

Regards

Nagaraj T

[Former Member]

hi here i am giving example to you. if it is helpfull give rewards.

Code listing for: ZTEST_ALV_USR_CMD_INCL

Description: Include ZTEST_ALV_USR_CMD_INCL

&----

---

*& Include ZTEST_ALV_USR_CMD_INCL

&----

---

REPORT Z_VIPUL_PROG31_ALV_USER_CMD NO STANDARD PAGE HEADING.

TYPE-POOLS : SLIS.

TABLES : SFLIGHT.

TYPES : BEGIN OF ST_SFLIGHT,

CARRID TYPE SFLIGHT-CARRID,

CONNID TYPE SFLIGHT-CONNID,

FLDATE TYPE SFLIGHT-FLDATE,

PRICE TYPE SFLIGHT-PRICE,

END OF ST_SFLIGHT.

DATA : IT_SFLIGHT TYPE STANDARD TABLE OF ST_SFLIGHT,

IT_LISTHEADER TYPE SLIS_T_LISTHEADER,

IT_FC_SFLIGHT TYPE SLIS_T_FIELDCAT_ALV,

IT_UC_SFLIGHT TYPE STANDARD TABLE OF SFLIGHT,

SY_REPID TYPE SY-REPID.

PARAMETERS : PCARR TYPE SFLIGHT-CARRID.

Extracted by Direct Download Enterprise version 1.3.1 - E.G.Mellodew. 1998-2005 UK. Sap Release 700

main programm/..............................

-

---

Code listing for: Z_VIPUL_PROG31_ALV_USER_CMD

Description: Program Z_VIPUL_PROG31_ALV_USER_CMD

&----

---

*& Report Z_VIPUL_PROG31_ALV_USER_CMD

*&

&----

---

*&

*&

&----

---

******************************************************************

******************************************************************

include ZTEST_ALV_USR_CMD_INCL.

******************************************************************

******************************************************************

INITIALIZATION.

******************************************************************

PERFORM CREATE_FIELD_CATALOG.

PERFORM FILL_IT_LISTHEADER.

PERFORM BUILD_TOP_OF_PAGE.

SY_REPID = SY-CPROG.

*******************************************************************

START-OF-SELECTION.

*******************************************************************

PERFORM FILL_IT_SFLIGHT.

PERFORM SHOW_ALV_GRID_INITIAL.

*******************************************************************

&----

---

*& Form CREATE_FIELD_CATALOG

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM CREATE_FIELD_CATALOG .

DATA WA_FC_SFLIGHT TYPE SLIS_FIELDCAT_ALV.

CLEAR WA_FC_SFLIGHT.

WA_FC_SFLIGHT-COL_POS = 1.

WA_FC_SFLIGHT-FIELDNAME = 'CARRID'.

WA_FC_SFLIGHT-TABNAME = 'SFLIGHT'.

WA_FC_SFLIGHT-EMPHASIZE = 'C311'.

WA_FC_SFLIGHT-SELTEXT_L = 'AIRLINE ID'.

WA_FC_SFLIGHT-SELTEXT_M = 'AIRLINE ID'.

WA_FC_SFLIGHT-SELTEXT_S = 'CARR ID'.

WA_FC_SFLIGHT-REF_FIELDNAME = 'CARRID'.

WA_FC_SFLIGHT-REF_TABNAME = 'SCARR'.

WA_FC_SFLIGHT-OUTPUTLEN = 20.

APPEND WA_FC_SFLIGHT TO IT_FC_SFLIGHT.

CLEAR WA_FC_SFLIGHT.

WA_FC_SFLIGHT-COL_POS = 2.

WA_FC_SFLIGHT-FIELDNAME = 'CONNID'.

WA_FC_SFLIGHT-TABNAME = 'SFLIGHT'.

WA_FC_SFLIGHT-EMPHASIZE = 'C400'.

WA_FC_SFLIGHT-SELTEXT_L = 'CONNECTION ID'.

WA_FC_SFLIGHT-SELTEXT_M = 'CONNECTION ID'.

WA_FC_SFLIGHT-SELTEXT_S = 'CONN. ID'.

WA_FC_SFLIGHT-REF_FIELDNAME = 'CONNID'.

WA_FC_SFLIGHT-REF_TABNAME = 'SPFLI'.

WA_FC_SFLIGHT-OUTPUTLEN = 15.

APPEND WA_FC_SFLIGHT TO IT_FC_SFLIGHT.

CLEAR WA_FC_SFLIGHT.

WA_FC_SFLIGHT-COL_POS = 3.

WA_FC_SFLIGHT-FIELDNAME = 'FLDATE'.

WA_FC_SFLIGHT-TABNAME = 'SFLIGHT'.

WA_FC_SFLIGHT-EMPHASIZE = 'C510'.

WA_FC_SFLIGHT-SELTEXT_L = 'FLIGHT DATE'.

WA_FC_SFLIGHT-SELTEXT_M = 'FLIGHT DATE'.

WA_FC_SFLIGHT-SELTEXT_S = 'FLDATE'.

WA_FC_SFLIGHT-OUTPUTLEN = 15.

APPEND WA_FC_SFLIGHT TO IT_FC_SFLIGHT.

CLEAR WA_FC_SFLIGHT.

WA_FC_SFLIGHT-COL_POS = 4.

WA_FC_SFLIGHT-FIELDNAME = 'PRICE'.

WA_FC_SFLIGHT-TABNAME = 'SFLIGHT'.

WA_FC_SFLIGHT-EMPHASIZE = 'C601'.

WA_FC_SFLIGHT-SELTEXT_L = 'PRICE'.

WA_FC_SFLIGHT-SELTEXT_M = 'PRICE'.

WA_FC_SFLIGHT-SELTEXT_S = 'PRICE'.

WA_FC_SFLIGHT-INPUT = 'X'.

WA_FC_SFLIGHT-DO_SUM = 'X'.

WA_FC_SFLIGHT-EDIT = 'X'.

WA_FC_SFLIGHT-OUTPUTLEN = 15.

APPEND WA_FC_SFLIGHT TO IT_FC_SFLIGHT.

ENDFORM. " CREATE_FIELD_CATALOG

&----

---

*& Form FILL_IT_LISTHEADER

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM FILL_IT_LISTHEADER .

DATA: WA_LISTHEADER TYPE SLIS_LISTHEADER, " WORK AREA FOR IT_LISTHEADER

TEXT TYPE STRING,

DT(10) TYPE C,

TM(8) TYPE C.

"### ADD FIRST LINE. ###

WA_LISTHEADER-TYP = 'H'.

WA_LISTHEADER-INFO = 'EXM. OF ALV GRID WITH USER COMMAND'.

APPEND WA_LISTHEADER TO IT_LISTHEADER.

CLEAR WA_LISTHEADER.

"### GET SYSTEM DATE & TIME. ###

WRITE SY-DATUM TO DT DD/MM/YYYY.

WRITE SY-UZEIT TO TM USING EDIT MASK '__:__:__' .

"### ADD SECOND LINE. ###

CONCATENATE 'Date :' DT INTO TEXT SEPARATED BY SPACE.

WA_LISTHEADER-TYP = 'S'.

WA_LISTHEADER-INFO = TEXT.

APPEND WA_LISTHEADER TO IT_LISTHEADER.

CLEAR WA_LISTHEADER.

"### ADD THIRD LINE. ###

CONCATENATE 'Time :' TM INTO TEXT SEPARATED BY SPACE.

WA_LISTHEADER-TYP = 'A'.

WA_LISTHEADER-INFO = TEXT.

APPEND WA_LISTHEADER TO IT_LISTHEADER.

CLEAR WA_LISTHEADER.

ENDFORM. " FILL_IT_LISTHEADER

&----

---

*& Form BUILD_TOP_OF_PAGE

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM BUILD_TOP_OF_PAGE .

CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'

EXPORTING

IT_LIST_COMMENTARY = IT_LISTHEADER

I_LOGO = 'VC-ERP'

• I_END_OF_LIST_GRID =

• I_ALV_FORM =

.

ENDFORM. " BUILD_TOP_OF_PAGE

&----

---

*& Form SHOW_ALV_GRID_INITIAL

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM SHOW_ALV_GRID_INITIAL .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = SY_REPID

• I_CALLBACK_PF_STATUS_SET = ' '

I_CALLBACK_USER_COMMAND = 'SHOW_SELECETED_DATA'

I_CALLBACK_TOP_OF_PAGE = 'BUILD_TOP_OF_PAGE '

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

• I_STRUCTURE_NAME =

• I_BACKGROUND_ID = ' '

I_GRID_TITLE = 'LIST OF FLIGHT.'

• I_GRID_SETTINGS =

• IS_LAYOUT =

IT_FIELDCAT = IT_FC_SFLIGHT

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

• IT_EVENTS =

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

• I_SCREEN_START_COLUMN = 0

• I_SCREEN_START_LINE = 0

• I_SCREEN_END_COLUMN = 0

• I_SCREEN_END_LINE = 0

• I_HTML_HEIGHT_TOP = 0

• I_HTML_HEIGHT_END = 0

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• IR_SALV_FULLSCREEN_ADAPTER =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = IT_SFLIGHT

EXCEPTIONS

PROGRAM_ERROR = 1

OTHERS = 2

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " SHOW_ALV_GRID_INITIAL

&----

---

*& Form SHOW_SELECETED_DATA

&----

---

• text

----

---

• -->UCOMM text

• -->SELFIELD text

----

---

FORM SHOW_SELECETED_DATA USING UCOMM TYPE SY-UCOMM SELFIELD TYPE SLIS_SELFIELD.

DATA WA_SFLIGHT TYPE ST_SFLIGHT.

CLEAR IT_UC_SFLIGHT.

READ TABLE IT_SFLIGHT INTO WA_SFLIGHT INDEX SELFIELD-TABINDEX.

SELECT * FROM SFLIGHT

INTO TABLE IT_UC_SFLIGHT

WHERE CARRID = WA_SFLIGHT-CARRID

AND CONNID = WA_SFLIGHT-CONNID

AND FLDATE = WA_SFLIGHT-FLDATE.

PERFORM ALV_GRID_FOR_SELTEXT.

ENDFORM. "SHOW_SELECETED_DATA

&----

---

*& Form ALV_GRID_FOR_SELTEXT

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM ALV_GRID_FOR_SELTEXT .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'

EXPORTING

• I_INTERFACE_CHECK = ' '

• I_BYPASSING_BUFFER = ' '

• I_BUFFER_ACTIVE = ' '

I_CALLBACK_PROGRAM = SY_REPID

• I_CALLBACK_PF_STATUS_SET = ' '

• I_CALLBACK_USER_COMMAND = ' '

• I_CALLBACK_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_TOP_OF_PAGE = ' '

• I_CALLBACK_HTML_END_OF_LIST = ' '

I_STRUCTURE_NAME = 'SFLIGHT'

• I_BACKGROUND_ID = ' '

• I_GRID_TITLE =

• I_GRID_SETTINGS =

• IS_LAYOUT =

• IT_FIELDCAT =

• IT_EXCLUDING =

• IT_SPECIAL_GROUPS =

• IT_SORT =

• IT_FILTER =

• IS_SEL_HIDE =

• I_DEFAULT = 'X'

• I_SAVE = ' '

• IS_VARIANT =

• IT_EVENTS =

• IT_EVENT_EXIT =

• IS_PRINT =

• IS_REPREP_ID =

I_SCREEN_START_COLUMN = 5

I_SCREEN_START_LINE = 15

I_SCREEN_END_COLUMN = 120

I_SCREEN_END_LINE = 20

• I_HTML_HEIGHT_TOP = 0

• I_HTML_HEIGHT_END = 0

• IT_ALV_GRAPHICS =

• IT_HYPERLINK =

• IT_ADD_FIELDCAT =

• IT_EXCEPT_QINFO =

• IR_SALV_FULLSCREEN_ADAPTER =

• IMPORTING

• E_EXIT_CAUSED_BY_CALLER =

• ES_EXIT_CAUSED_BY_USER =

TABLES

T_OUTTAB = IT_UC_SFLIGHT

• EXCEPTIONS

• PROGRAM_ERROR = 1

• OTHERS = 2

.

IF SY-SUBRC <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

ENDFORM. " ALV_GRID_FOR_SELTEXT

&----

---

*& Form FILL_IT_SFLIGHT

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM FILL_IT_SFLIGHT .

SELECT CARRID CONNID FLDATE PRICE FROM SFLIGHT

INTO TABLE IT_SFLIGHT

WHERE CARRID = PCARR.

ENDFORM. " FILL_IT_SFLIGHT

Extracted by Direct Download Enterprise version 1.3.1 - E.G.Mellodew. 1998-2005 UK. Sap Release 700