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

Interactive in ALV

Hi,

Can u guide me how to do Interactive reports in ALV with a sample Program code plz.

Regards.

CDREDDY.

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:57 AM

    Hi,

    Check..

    interactive-alv-report

    /message/1993249#1993249 [original link is broken]

    Regards,

    Santosh

    Add a comment
    10|10000 characters needed characters exceeded

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

    hi,

    check these links,

    <b>About ALV:</b>

    http://www.geocities.com/mpioud/Abap_programs.html

    ALV Group Heading

    http://www.sap-img.com/fu037.htm

    and few more,

    <b>ALV</b>

    1. Please give me general info on ALV.

    http://www.sapfans.com/forums/viewtopic.php?t=58286

    http://www.sapfans.com/forums/viewtopic.php?t=76490

    http://www.sapfans.com/forums/viewtopic.php?t=20591

    http://www.sapfans.com/forums/viewtopic.php?t=66305 - this one discusses which way should you use - ABAP Objects calls or simple function modules.

    <b>2. How do I program double click in ALV?</b>

    http://www.sapfans.com/forums/viewtopic.php?t=11601

    http://www.sapfans.com/forums/viewtopic.php?t=23010

    <b>3. How do I add subtotals (I have problem to add them)...</b>

    http://www.sapfans.com/forums/viewtopic.php?t=20386

    http://www.sapfans.com/forums/viewtopic.php?t=85191

    http://www.sapfans.com/forums/viewtopic.php?t=88401

    http://www.sapfans.com/forums/viewtopic.php?t=17335

    <b>4. How to add list heading like top-of-page in ABAP lists?</b>

    http://www.sapfans.com/forums/viewtopic.php?t=58775

    http://www.sapfans.com/forums/viewtopic.php?t=60550

    http://www.sapfans.com/forums/viewtopic.php?t=16629

    <b>5. How to print page number / total number of pages X/XX in ALV?</b>

    http://www.sapfans.com/forums/viewtopic.php?t=29597 (no direct solution)

    6<b>. ALV printing problems. The favourite is: The first page shows the number of records selected but I don't need this.</b>

    http://www.sapfans.com/forums/viewtopic.php?t=64320

    http://www.sapfans.com/forums/viewtopic.php?t=44477

    <b>

    7. How can I set the cell color in ALV?</b>

    http://www.sapfans.com/forums/viewtopic.php?t=52107

    <b>8. How do I print a logo/graphics in ALV?</b>

    http://www.sapfans.com/forums/viewtopic.php?t=81149

    http://www.sapfans.com/forums/viewtopic.php?t=35498

    http://www.sapfans.com/forums/viewtopic.php?t=5013

    <b>9. How do I create and use input-enabled fields in ALV?</b>

    http://www.sapfans.com/forums/viewtopic.php?t=84933

    http://www.sapfans.com/forums/viewtopic.php?t=69878

    <b>10. How can I use ALV for reports that are going to be run in background?</b>

    http://www.sapfans.com/forums/viewtopic.php?t=83243

    http://www.sapfans.com/forums/viewtopic.php?t=19224

    <b>11. How can I display an icon in ALV? (Common requirement is traffic light icon).</b>

    http://www.sapfans.com/forums/viewtopic.php?t=79424

    http://www.sapfans.com/forums/viewtopic.php?t=24512

    <b>

    12. How can I display a checkbox in ALV?</b>

    http://www.sapfans.com/forums/viewtopic.php?t=88376

    http://www.sapfans.com/forums/viewtopic.php?t=40968

    http://www.sapfans.com/forums/viewtopic.php?t=6919

    Cheers

    Alfred

    Reward with points if it is helpful

    Add a comment
    10|10000 characters needed characters exceeded

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

    hi,

    check this sample code.you will be well versed with all the events of a interactive alv report.mark 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.