Skip to Content
author's profile photo Former Member
Former Member

Interactive_ALV?

Hi

How many Secondary list can we have in interactive ALV?

Will it be the same as Classical ALV?-->20??

Thanks

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

3 Answers

  • author's profile photo Former Member
    Former Member
    Posted on Oct 19, 2006 at 09:47 AM

    20, SAME AS CLASSICAL REPORTS.

    Add a comment
    10|10000 characters needed characters exceeded

    • Former Member

      In ALV interactions is by using the dyanmic subroutine for USERCOMMAND. Im not sure if you can use this 20 times. For the basic list , you call this subroutine, inside this rouine you can call one more ALV list, which can have its own dynamic usercommand. This way, each interactive list is independant in itself. So probably you can have more, but the usage is not worth the cause... So I feel in ALV there is no restrictions. But hierarchical sequantial alv allows only 1 level.

      Hope this helps.

      Shobana

  • author's profile photo Former Member
    Former Member
    Posted on Oct 19, 2006 at 09:57 AM

    in ALV also 20, SAME AS CLASSICAL REPORTS..

    >>>u have to use USER COMMAND in ALV Reports....<<<<

    Example.....

    DATA : it_evt TYPE slis_alv_event.

    DATA : it_events TYPE slis_alv_event OCCURS 0.

    it_evt-name = 'TOP_OF_LIST'.

    it_evt-form = 'PROCESS_TOP_OF_LIST'.

    APPEND it_evt TO it_events.

    ->it_evt-name = 'USER_COMMAND'.

    ->it_evt-form = 'PROCESS_USER_COMMAND'.

    ->APPEND it_evt TO it_events.

    CALL FUNCTION 'REUSE_ALV_HIERSEQ_LIST_DISPLAY'

    EXPORTING

    i_callback_program = repid

    i_callback_user_command = ' '

    it_fieldcat = ist_fcat[]

    i_default = 'X'

    i_save = 'A'

    -


    > it_events = it_events[]

    i_tabname_header = 'IST_HEADER'

    i_tabname_item = 'XXXXXXXXX'

    is_keyinfo = keyinfo

    TABLES

    t_outtab_header = XXXXXXXXXX

    t_outtab_item = XXXXXXXXX

    EXCEPTIONS

    program_error = 1

    OTHERS = 2.

    FORM process_user_command USING r_ucomm LIKE sy-ucomm

    rs_selfield TYPE slis_selfield.

    CLEAR ist_strv1.

    CASE r_ucomm.

    WHEN '&IC1'.

    IF rs_selfield-tabname = 'XXXXXXXXX'.

    IF rs_selfield-tabindex > 0.

    READ TABLE ist_strv1 INDEX rs_selfield-tabindex.

    SET PARAMETER ID 'AN1' FIELD ist_strv1-anln1.

    SET PARAMETER ID 'AN2' FIELD ist_strv1-anln2.

    SET PARAMETER ID 'BUK' FIELD ist_strv1-bukrs.

    CALL TRANSACTION 'AS03' AND SKIP FIRST SCREEN.

    ENDIF.

    ENDIF.

    ENDCASE.

    ENDFORM.

    Regards,

    Ramesh.

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Oct 19, 2006 at 03:41 PM

    hi,

    check this program.it will serve ur purpose.reward points if useful.

    &----


    *& Report ZALV4_INTERACTIVE *

    *& interactive alvs *

    &----


    *& *

    *& *

    &----


    REPORT ZALV4_INTERACTIVE NO STANDARD PAGE HEADING

    MESSAGE-ID ZMSG

    LINE-COUNT 37(3)

    LINE-SIZE 134.

    TYPE-POOLS : SLIS.

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

    • TABLES DECLARATION ********************

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

    TABLES : VBRK, " BILLING MASTERS TABLE

    VBRP. " BILLING ITEM TABLE

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

    • TYPES DECLARATION ********************

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

    TYPES : BEGIN OF TY_VBRK, " types for billing masters table

    VBELN TYPE VBRK-VBELN, " billing document

    WAERK TYPE VBRK-WAERK, " document currency

    VKORG TYPE VBRK-VKORG, " sales organization

    FKDAT TYPE VBRK-FKDAT, " billing date

    BUKRS TYPE VBRK-BUKRS, " company code

    BUTXT TYPE T001-BUTXT, " company name

    NETWR TYPE VBRK-NETWR, " net currency value

    LINE_COLOR(4) TYPE C,

    END OF TY_VBRK.

    TYPES : BEGIN OF TY_VBRP, " types for billing document item data

    POSNR TYPE VBRP-POSNR, " billing item

    FKIMG TYPE VBRP-FKIMG, " actual invoiced quantitty

    VRKME TYPE VBRP-VRKME, " sales unit

    NETWR TYPE VBRP-NETWR, " net currency value

    MATNR TYPE VBRP-MATNR, " material number

    ARKTX TYPE VBRP-ARKTX, " short text for sales order item

    END OF TY_VBRP.

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

    • FIELD CATALOG ********************

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

    DATA : WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,

    WA_FIELDCAT1 TYPE SLIS_FIELDCAT_ALV.

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

    • LAYOUT DECLARATION ********************

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

    DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV,

    WA_LAYOUT1 TYPE SLIS_LAYOUT_ALV.

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

    • EVENTS DECLARATION ********************

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

    DATA : TY_EVENTS TYPE SLIS_ALV_EVENT,

    IT_EVENTS TYPE SLIS_T_EVENT.

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

    • PF STATUS ********************

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

    DATA : PF_STATUS TYPE SLIS_FORMNAME VALUE 'SET_PF_STATUS'.

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

    • USER COMMAND ********************

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

    DATA : USER_COMMAND TYPE SLIS_FORMNAME VALUE 'SET_USER_COMMAND',

    R_UCOMM LIKE SY-UCOMM.

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

    • INTERNAL TABLES ********************

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

    DATA : IT_VBRK TYPE TABLE OF TY_VBRK, "internal table for billing master

    IT_VBRP TYPE TABLE OF TY_VBRP, "internal table for billing item

    *internal table for field catalog

    IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,

    IT_FIELDCAT1 TYPE SLIS_T_FIELDCAT_ALV.

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

    • WORK AREA ********************

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

    DATA : WA_VBRK LIKE LINE OF IT_VBRK, "work area for billing master

    WA_VBRP LIKE LINE OF IT_VBRP. "work area for billing item

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

    • VARIABLE DECLARATION ********************

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

    DATA : V_DATE TYPE SY-DATUM, " variable to store date values

    V_VBELN TYPE VBRK-VBELN, " variable for billing document

    V_FKDAT TYPE VBRK-FKDAT, " variable for billing date

    V_FLAG(1). " variable for flag

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

    • SELECTION SCREEN ********************

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

    SELECT-OPTIONS : S_VBELN FOR VBRK-VBELN , " Billing document

    S_FKDAT FOR VBRK-FKDAT, " Billing date

    S_MATNR FOR VBRP-MATNR. " Material number

    PARAMETERS : R1 RADIOBUTTON GROUP G1, "whole item details

    R2 RADIOBUTTON GROUP G1. "selected item details

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

    • INITIALIZATION ********************

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

    INITIALIZATION.

    V_FLAG = 'X'.

    V_DATE = SY-DATUM - 20.

    S_FKDAT-SIGN = 'I'.

    S_FKDAT-OPTION = 'EQ'.

    S_FKDAT-LOW = V_DATE.

    S_FKDAT-HIGH = SY-DATUM.

    APPEND S_FKDAT.

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

    • SELECTION SCREEN VALIDATION ********************

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

    AT SELECTION-SCREEN.

    PERFORM CONVERSION. " performs data conversion for input

    PERFORM VBELN_VALIDATE. " validating the billing document

    PERFORM FKDAT_VALIDATE. " validating the billing date

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

    • START OF SELECTION ********************

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

    START-OF-SELECTION.

    SET TITLEBAR 'AAAA'.

    PERFORM VBRK_POPULATE. " populating the billing master detais

    PERFORM FIELDCATALOG. " designing the field catalog

    PERFORM EVENTS. " performing the events for top of page

    PERFORM DISP_BASICLIST." displaying the basic list

    &----


    *& Form VBELN_VALIDATE

    &----


    • text validating the billing document

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM VBELN_VALIDATE .

    IF S_VBELN IS INITIAL.

    • MESSAGE E000 WITH 'Make entries in all required fields'.

    ELSE.

    SELECT SINGLE VBELN

    FROM VBRK

    INTO V_VBELN

    WHERE VBELN IN S_VBELN.

    IF SY-SUBRC <> 0.

    MESSAGE I000 WITH 'BILLING DOCUMENT DOESNT EXIST'.

    ENDIF.

    ENDIF.

    ENDFORM. " VBELN_VALIDATE

    &----


    *& Form FKDAT_VALIDATE

    &----


    • text validating the billing date

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM FKDAT_VALIDATE .

    SELECT SINGLE FKDAT

    FROM VBRK

    INTO V_FKDAT

    WHERE FKDAT IN S_FKDAT.

    IF SY-SUBRC <> 0.

    MESSAGE I000 WITH 'BILLING DATE DOESNT EXIST'.

    ENDIF.

    ENDFORM. " FKDAT_VALIDATE

    &----


    *& Form VBRK_POPULATE

    &----


    • text populating the billing master details

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM VBRK_POPULATE .

    DATA : LD_COLOR(1) TYPE C.

    LD_COLOR = 5.

    SELECT VBRK~VBELN

    VBRK~WAERK

    VBRK~VKORG

    VBRK~FKDAT

    VBRK~BUKRS

    VBRK~NETWR

    T001~BUTXT

    FROM VBRK INNER JOIN T001

    ON VBRKBUKRS = T001BUKRS

    INTO CORRESPONDING FIELDS OF TABLE IT_VBRK

    WHERE VBRK~VBELN IN S_VBELN AND

    VBRK~FKDAT IN S_FKDAT.

    LOOP AT IT_VBRK INTO WA_VBRK.

    LD_COLOR = LD_COLOR + 1.

    IF LD_COLOR = 8.

    LD_COLOR = 1.

    ENDIF.

    CONCATENATE 'C' LD_COLOR '10' INTO WA_VBRK-LINE_COLOR.

    MODIFY IT_VBRK FROM WA_VBRK.

    ENDLOOP.

    ENDFORM. " VBRK_POPULATE

    &----


    *& Form CONVERSION

    &----


    • text data conversion to take leading zeroes into account

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM CONVERSION .

    CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'

    EXPORTING

    INPUT = S_VBELN

    IMPORTING

    OUTPUT = S_VBELN.

    ENDFORM. " CONVERSION

    &----


    *& Form DISP_BASICLIST

    &----


    • text displaying the basic list

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM DISP_BASICLIST .

    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'

    EXPORTING

    • I_INTERFACE_CHECK = ' '

    • I_BYPASSING_BUFFER =

    • I_BUFFER_ACTIVE = ' '

    I_CALLBACK_PROGRAM = SY-REPID

    I_CALLBACK_PF_STATUS_SET = PF_STATUS

    I_CALLBACK_USER_COMMAND = USER_COMMAND

    • I_STRUCTURE_NAME =

    IS_LAYOUT = WA_LAYOUT

    IT_FIELDCAT = IT_FIELDCAT

    • IT_EXCLUDING =

    • IT_SPECIAL_GROUPS =

    • IT_SORT =

    • IT_FILTER =

    • IS_SEL_HIDE =

    • I_DEFAULT = 'X'

    I_SAVE = 'X'

    • IS_VARIANT =

    IT_EVENTS = 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

    • IMPORTING

    • E_EXIT_CAUSED_BY_CALLER =

    • ES_EXIT_CAUSED_BY_USER =

    TABLES

    T_OUTTAB = IT_VBRK

    • 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. " DISP_BASICLIST

    &----


    *& Form FIELDCATALOG

    &----


    • text designing the field catalog

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM FIELDCATALOG .

    WA_FIELDCAT-TABNAME = 'IT_VBRK'.

    WA_FIELDCAT-FIELDNAME = 'VBELN'.

    WA_FIELDCAT-SELTEXT_L = 'BILLING DOCUMENT'.

    WA_FIELDCAT-COL_POS = 1.

    • WA_FIELDCAT-EMPHASIZE = 'C610'.

    WA_FIELDCAT-KEY = 'X'.

    WA_FIELDCAT-OUTPUTLEN = 20.

    APPEND WA_FIELDCAT TO IT_FIELDCAT.

    CLEAR WA_FIELDCAT.

    WA_FIELDCAT-TABNAME = 'IT_VBRK'.

    WA_FIELDCAT-FIELDNAME = 'WAERK'.

    WA_FIELDCAT-SELTEXT_L = 'DOCUMENT CURRENCY'.

    WA_FIELDCAT-COL_POS = 2.

    WA_FIELDCAT-OUTPUTLEN = 20.

    APPEND WA_FIELDCAT TO IT_FIELDCAT.

    CLEAR WA_FIELDCAT.

    WA_FIELDCAT-TABNAME = 'IT_VBRK'.

    WA_FIELDCAT-FIELDNAME = 'VKORG'.

    WA_FIELDCAT-SELTEXT_L = 'SALES ORGANIZATION'.

    WA_FIELDCAT-EMPHASIZE = 'C610'.

    WA_FIELDCAT-COL_POS = 3.

    WA_FIELDCAT-OUTPUTLEN = 20.

    APPEND WA_FIELDCAT TO IT_FIELDCAT.

    CLEAR WA_FIELDCAT.

    WA_FIELDCAT-TABNAME = 'IT_VBRK'.

    WA_FIELDCAT-FIELDNAME = 'FKDAT'.

    WA_FIELDCAT-SELTEXT_L = 'BILLING DATE'.

    WA_FIELDCAT-COL_POS = 4.

    WA_FIELDCAT-OUTPUTLEN = 20.

    APPEND WA_FIELDCAT TO IT_FIELDCAT.

    CLEAR WA_FIELDCAT.

    WA_FIELDCAT-TABNAME = 'IT_VBRK'.

    WA_FIELDCAT-FIELDNAME = 'BUKRS'.

    WA_FIELDCAT-SELTEXT_L = 'COMPANY CODE'.

    WA_FIELDCAT-COL_POS = 5.

    WA_FIELDCAT-OUTPUTLEN = 20.

    APPEND WA_FIELDCAT TO IT_FIELDCAT.

    CLEAR WA_FIELDCAT.

    WA_FIELDCAT-TABNAME = 'IT_VBRK'.

    WA_FIELDCAT-FIELDNAME = 'BUTXT'.

    WA_FIELDCAT-SELTEXT_L = 'COMPANY NAME'.

    WA_FIELDCAT-COL_POS = 6.

    WA_FIELDCAT-OUTPUTLEN = 25.

    APPEND WA_FIELDCAT TO IT_FIELDCAT.

    CLEAR WA_FIELDCAT.

    WA_FIELDCAT-TABNAME = 'IT_VBRK'.

    WA_FIELDCAT-FIELDNAME = 'NETWR'.

    WA_FIELDCAT-SELTEXT_L = 'NET CURRENCY VALUE'.

    WA_FIELDCAT-COL_POS = 7.

    WA_FIELDCAT-OUTPUTLEN = 20.

    APPEND WA_FIELDCAT TO IT_FIELDCAT.

    CLEAR WA_FIELDCAT.

    WA_LAYOUT-ZEBRA = 'X'.

    WA_LAYOUT-INFO_FIELDNAME = 'LINE_COLOR'.

    ENDFORM. " FIELDCATALOG

    &----


    *& Form SET_PF_STATUS

    &----


    • text set the pf status

    ----


    FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB.

    SET PF-STATUS 'Z50658_PFSTATUS' EXCLUDING EXTAB.

    ENDFORM. "SET_PF_STATUS

    &----


    *& Form SET_USER_COMMAND

    &----


    • text set the user command

    ----


    FORM SET_USER_COMMAND USING R_UCOMM

    RS_SELFIELD TYPE SLIS_SELFIELD.

    CASE R_UCOMM.

    WHEN 'CLICK'.

    IF R1 = 'X'.

    IF NOT IT_VBRK IS INITIAL.

    SELECT POSNR

    FKIMG

    VRKME

    NETWR

    MATNR

    ARKTX

    FROM VBRP

    INTO CORRESPONDING FIELDS OF TABLE IT_VBRP

    FOR ALL ENTRIES IN IT_VBRK

    WHERE VBELN = IT_VBRK-VBELN.

    IF SY-SUBRC <> 0.

    MESSAGE I000 WITH ' NO BILLING DETAILS FOUND'.

    ELSE.

    IF V_FLAG = 'X'.

    PERFORM DET_FIELDCATALOG.

    V_FLAG = ''.

    ENDIF.

    PERFORM DET_LISTDISPLAY.

    ENDIF.

    ENDIF.

    ENDIF.

    IF R2 = 'X'.

    READ TABLE IT_VBRK INTO WA_VBRK INDEX RS_SELFIELD-TABINDEX.

    IF SY-SUBRC = 0.

    SELECT SINGLE POSNR

    FKIMG

    VRKME

    NETWR

    MATNR

    ARKTX

    FROM VBRP

    INTO CORRESPONDING FIELDS OF WA_VBRP

    WHERE VBELN = WA_VBRK-VBELN.

    ENDIF.

    APPEND WA_VBRP TO IT_VBRP.

    ENDIF.

    IF V_FLAG = 'X'.

    PERFORM DET_FIELDCATALOG. "designing the field catalog for items

    V_FLAG = ''.

    ENDIF.

    PERFORM DET_LISTDISPLAY. "displaying the secondary list

    WHEN 'BACK'.

    LEAVE TO SCREEN 0.

    WHEN 'UP'.

    LEAVE TO SCREEN 0.

    WHEN 'CANCEL'.

    CALL TRANSACTION 'SE38'.

    ENDCASE.

    ENDFORM. "SET_USER_COMMAND

    &----


    *& Form DET_FIELDCATALOG

    &----


    • text designing the field catalog for item details

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM DET_FIELDCATALOG .

    WA_FIELDCAT1-TABNAME = 'IT_VBRP'.

    WA_FIELDCAT1-FIELDNAME = 'POSNR'.

    WA_FIELDCAT1-SELTEXT_L = 'BILLING ITEM'.

    WA_FIELDCAT1-COL_POS = 1.

    WA_FIELDCAT1-OUTPUTLEN = 20.

    APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.

    CLEAR WA_FIELDCAT1.

    WA_FIELDCAT1-TABNAME = 'IT_VBRP'.

    WA_FIELDCAT1-FIELDNAME = 'FKIMG'.

    WA_FIELDCAT1-SELTEXT_L = 'INVOICE QUANTITY'.

    WA_FIELDCAT1-COL_POS = 2.

    WA_FIELDCAT1-OUTPUTLEN = 20.

    APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.

    CLEAR WA_FIELDCAT1.

    WA_FIELDCAT1-TABNAME = 'IT_VBRP'.

    WA_FIELDCAT1-FIELDNAME = 'VRKME'.

    WA_FIELDCAT1-SELTEXT_L = 'SALES UNIT'.

    WA_FIELDCAT1-COL_POS = 3.

    WA_FIELDCAT1-OUTPUTLEN = 20.

    APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.

    CLEAR WA_FIELDCAT1.

    WA_FIELDCAT1-TABNAME = 'IT_VBRP'.

    WA_FIELDCAT1-FIELDNAME = 'NETWR'.

    WA_FIELDCAT1-SELTEXT_L = 'NET CURRENCY VALUE'.

    WA_FIELDCAT1-COL_POS = 4.

    WA_FIELDCAT1-OUTPUTLEN = 20.

    APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.

    CLEAR WA_FIELDCAT1.

    WA_FIELDCAT1-TABNAME = 'IT_VBRP'.

    WA_FIELDCAT1-FIELDNAME = 'MATNR'.

    WA_FIELDCAT1-SELTEXT_L = 'MATERIAL NUMBER'.

    WA_FIELDCAT1-COL_POS = 5.

    WA_FIELDCAT1-OUTPUTLEN = 20.

    APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.

    CLEAR WA_FIELDCAT1.

    WA_FIELDCAT1-TABNAME = 'IT_VBRP'.

    WA_FIELDCAT1-FIELDNAME = 'ARKTX'.

    WA_FIELDCAT1-SELTEXT_L = 'SALES ORDER ITEM'.

    WA_FIELDCAT1-COL_POS = 6.

    WA_FIELDCAT1-OUTPUTLEN = 20.

    APPEND WA_FIELDCAT1 TO IT_FIELDCAT1.

    CLEAR WA_FIELDCAT1.

    WA_LAYOUT1-ZEBRA = 'X'.

    ENDFORM. " DET_FIELDCATALOG

    &----


    *& Form DET_LISTDISPLAY

    &----


    • text displaying the secondary list

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM DET_LISTDISPLAY .

    CALL FUNCTION 'REUSE_ALV_LIST_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_STRUCTURE_NAME =

    IS_LAYOUT = WA_LAYOUT1

    IT_FIELDCAT = IT_FIELDCAT1

    • IT_EXCLUDING =

    • IT_SPECIAL_GROUPS =

    • IT_SORT =

    • IT_FILTER =

    • IS_SEL_HIDE =

    • I_DEFAULT = 'X'

    • I_SAVE = ' '

    • IS_VARIANT =

    IT_EVENTS = 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

    • IMPORTING

    • E_EXIT_CAUSED_BY_CALLER =

    • ES_EXIT_CAUSED_BY_USER =

    TABLES

    T_OUTTAB = IT_VBRP

    • 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.

    CLEAR IT_VBRP[].

    ENDFORM. " DET_LISTDISPLAY

    &----


    *& Form EVENTS

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM EVENTS .

    CLEAR TY_EVENTS.

    TY_EVENTS-NAME = SLIS_EV_TOP_OF_PAGE.

    TY_EVENTS-FORM = 'TOP_OF_PAGE'.

    APPEND TY_EVENTS TO IT_EVENTS.

    ENDFORM. " EVENTS

    &----


    *& Form TOP_OF_PAGE

    &----


    • text

    ----


    FORM TOP_OF_PAGE.

    SKIP.

    ULINE.

    WRITE :/2 ' DATE :', SY-DATUM,

    45 'INTELLIGROUP ASIA PVT LTD',

    110 'TIME :', SY-UZEIT.

    WRITE : /3 'USER :', SY-UNAME,

    45 'TITLE :', SY-TITLE,

    110 'PAGE :', SY-PAGNO.

    ULINE.

    SKIP.

    ENDFORM. "TOP_OF_PAGE

    regards,

    Deepthi Reddy

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.