Re: Interactive report

Former Member — Thu, 29 May 2008 12:02:03 GMT

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

Re: Interactive report

Former Member — Thu, 29 May 2008 12:05:12 GMT

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

topic Re: Interactive report in Application Development and Automation Discussions

Interactive report

Re: Interactive report

Re: Interactive report