ABAP Interactive Report For Displaying First List, Secondary List & Third List

How to Create ABAP Interactive Report for displaying the First list, Secondary list & Third List

Report displaying data of two tables with 2 Sublevel.

Step 1: Go to SE38 Tcode. Type the program name and choose Source Code and Click on Create button.

Step 2: Write the Title & select ‘Executable Program’ type in Attributes and then click on save.

Step 3: Now enter the Package name in ‘Package’ Attribute and click on savebutton.

Step 4: Select the TR and click on button.

Now ABAP Editor will open, here write the code given below for the report.

REPORT ziexample2.
*Tables Used
TABLES : vbap, vbak.

*Type Declaration.
TYPES: BEGIN OF ty_vbak,
         vbeln TYPE vbak-vbeln,
         erdat TYPE vbak-erdat,
         ernam TYPE vbak-ernam,
         auart TYPE vbak-auart,
         vkorg TYPE vbak-vkorg,
         vtweg TYPE vbak-vtweg,
         spart TYPE vbak-spart,
         vkgrp TYPE vbak-vkgrp,
         kunnr TYPE vbak-kunnr,
       END OF ty_vbak.
TYPES : BEGIN OF ty_vbap,
          vbeln TYPE vbap-vbeln,
          posnr TYPE vbap-posnr,
          matnr TYPE vbap-matnr,
          matkl TYPE vbap-matkl,
          arktx TYPE vbap-arktx,
        END OF ty_vbap.
TYPES : BEGIN OF ty_vbap1,
          vbeln  TYPE vbap-vbeln,
          netwr  TYPE vbap-netwr,
          waerk  TYPE vbap-waerk,
          klmeng TYPE vbap-klmeng,
          vrkme  TYPE vbap-vrkme,
        END OF ty_vbap1.

*Data Declaration
DATA : gt_vbak  TYPE STANDARD TABLE OF ty_vbak,
       wa_vbak  TYPE ty_vbak,
       gt_vbap  TYPE STANDARD TABLE OF ty_vbap,
       wa_vbap  TYPE ty_vbap,
       gt_vbap1 TYPE STANDARD TABLE OF ty_vbap1,
       wa_vbap1 TYPE ty_vbap1.

*Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.

SELECT-OPTIONS: so_vbeln FOR vbap-vbeln,
so_matnr FOR vbap-matnr,
so_matkl FOR vbap-matkl.

SELECTION-SCREEN END OF BLOCK b1.

*Header Information
TOP-OF-PAGE.
  WRITE:/.
  ULINE (113).
  WRITE:/  sy-vline,
            ‘Sales Doc.’,
         13 sy-vline,
         14 ‘Created Date’,
         26 sy-vline,
         28 ‘Created By’,
         38 sy-vline,
         40 ‘Doc. Type’,
         50 sy-vline,
         52 ‘Sales Org.’,
         62 sy-vline,
         64 ‘D. Channel’,
         74 sy-vline,
         76 ‘Division’,
         84 sy-vline,
         86 ‘Sales Group’,
         98 sy-vline,
         100 ‘Customer’,
         113 sy-vline.
  ULINE (113).

START-OF-SELECTION.

*Data Fetching
  SELECT vbeln
         erdat
         ernam
         auart
         vkorg
         vtweg
         spart
         vkgrp
         kunnr
         FROM vbak INTO TABLE gt_vbak
         WHERE vbeln IN so_vbeln.

SORT gt_vbak BY vbeln.

*Data Displaying

  LOOP AT gt_vbak INTO wa_vbak.
    WRITE:/ sy-vline,
            wa_vbak-vbeln HOTSPOT ON,
            13 sy-vline,
            14 wa_vbak-erdat,
            26 sy-vline,
            28 wa_vbak-ernam,
            38 sy-vline,
            40 wa_vbak-auart,
            50 sy-vline,
            52 wa_vbak-vkorg,
            62 sy-vline,
            66 wa_vbak-vtweg,
            74 sy-vline,
            78 wa_vbak-spart,
            84 sy-vline,
            88 wa_vbak-vkgrp,
            98 sy-vline,
            100 wa_vbak-kunnr,
            113 sy-vline.

    HIDE: wa_vbak.
  ENDLOOP.
  ULINE (113).

*Displaying Secondary List

TOP-OF-PAGE DURING LINE-SELECTION.
AT LINE-SELECTION.

IF sy-lsind = 1.

WRITE:/.
ULINE (94).

    WRITE:/ sy-vline,
            ‘Sales Doc.’,
            13 sy-vline,
            14 ‘Item No.’,
            21 sy-vline,
            23 ‘Material No.’,
            40 sy-vline,
            42 ‘Mat. Group’,
            52 sy-vline,
            54 ‘Description’,
            94 sy-vline.

ULINE (94).

    SELECT vbeln
           posnr
           matnr
           matkl
           arktx
          FROM vbap INTO TABLE gt_vbap
          WHERE vbeln = wa_vbak-vbeln.

SORT gt_vbap BY vbeln.

    LOOP AT gt_vbap INTO wa_vbap.
      WRITE:/ sy-vline,
              wa_vbap-vbeln HOTSPOT ON,
              13 sy-vline,
              14 wa_vbap-posnr,
              21 sy-vline,
              22 wa_vbap-matnr,
              40 sy-vline,
              42 wa_vbap-matkl,
              52 sy-vline,
              54 wa_vbap-arktx,
              94  sy-vline.
      HIDE: wa_vbap.
    ENDLOOP.
    ULINE (94).
  ENDIF.

*Displaying Secondary List 2
TOP-OF-PAGE DURING LINE-SELECTION.
AT LINE-SELECTION.

  IF sy-lsind = 2.
    WRITE:/.
    ULINE (100).
    WRITE:/ sy-vline,
           ‘Sales Doc.’,
           13 sy-vline,
           14 ‘Amount’,
           44 sy-vline,
           46 ‘Currency’,
           54 sy-vline,
           56 ‘Quantity’,
           74 sy-vline,
           76 ‘Sales unit’,
           100 sy-vline.
    ULINE (100).

    SELECT vbeln
           netwr
           waerk
           klmeng
           vrkme
           FROM vbap INTO TABLE gt_vbap1
           WHERE vbeln = wa_vbap-vbeln.

SORT gt_vbap1 BY vbeln.

    LOOP AT gt_vbap1 INTO wa_vbap1.
      WRITE:/  sy-vline,
               wa_vbap1-vbeln HOTSPOT ON,
               13 sy-vline,
               14 wa_vbap1-netwr,
               44 sy-vline,
               46 wa_vbap1-waerk,
               54 sy-vline,
               56 wa_vbap1-klmeng,
               74 sy-vline,
               76 wa_vbap1-vrkme,
               100 sy-vline.
      HIDE: wa_vbap1.
    ENDLOOP.
  ULINE (100).
  ENDIF.

OUTPUT

Best Laptops for ABAP Programmers

Step 1: Press the F8 button.

Step 2: Again press the F8 button or click on the above-marked button to see the report output.

Step 2: Now click on any Sales Doc No. it will take you to the second level of the report.

Step 2: Now click on Sales Doc again to see the third level of the report, there you can find other details of the Sales document number.