ALV BLOCK LIST DISPLAY

     REPORT ZAJAY_BLOCK.

    TYPE-POOLS: slis.
    TABLES:kna1,knb1.
    TYPES: BEGIN OF ty_kna1,
            kunnr TYPE kna1-kunnr,
            land1 TYPE kna1-land1,
            name1 TYPE kna1-name1,
            adrnr TYPE kna1-adrnr,
          END OF ty_kna1,

          BEGIN OF ty_knb1,
            kunnr TYPE knb1-kunnr,
            bukrs TYPE knb1-bukrs,
            pernr TYPE knb1-pernr,
          END OF ty_knb1.

    data:it_kna1 type table of ty_kna1,
          it_knb1 type table of ty_knb1,
          wa_kna1 type ty_kna1,
          wa_knb1 type ty_knb1,
          it_fieldcat_kna1  TYPE slis_t_fieldcat_alv,
          it_fieldcat_knb1  TYPE slis_t_fieldcat_alv,
          wa_fieldcat  TYPE slis_fieldcat_alv,
          is_layout type slis_layout_alv,
          it_event1 type slis_t_event,
          it_event2 type slis_t_event,
          it_events type slis_t_event.


    SELECT-OPTIONS : s_kunnr for kna1-kunnr.

    START-OF-SELECTION.
      select kunnr
        land1
        name1
        adrnr
        from kna1
        INTO TABLE it_kna1
        where kunnr in s_kunnr.

        SORT it_kna1 by kunnr.

        IF it_kna1 is NOT INITIAL.
          select kunnr
            bukrs
            pernr
            from knb1
            into TABLE it_knb1
            FOR ALL ENTRIES IN it_kna1
            WHERE kunnr = it_kna1-kunnr.
        ENDIF.
        sort it_knb1 by kunnr.

      wa_fieldcat-col_pos = 1.
      wa_fieldcat-fieldname = 'kunnr'.
      wa_fieldcat-ref_tabname = 'kna1'.
      APPEND wa_fieldcat TO it_fieldcat_kna1.
      CLEAR wa_fieldcat.

      wa_fieldcat-col_pos = 2.
      wa_fieldcat-fieldname = 'land1'.
      wa_fieldcat-ref_tabname = 'kna1'.
      APPEND wa_fieldcat TO it_fieldcat_kna1.
      CLEAR wa_fieldcat.

       wa_fieldcat-col_pos = 3.
      wa_fieldcat-fieldname = 'name1'.
      wa_fieldcat-ref_tabname = 'kna1'.
      APPEND wa_fieldcat TO it_fieldcat_kna1.
      CLEAR wa_fieldcat.

      wa_fieldcat-col_pos = 4.
      wa_fieldcat-fieldname = 'adrnr'.
      wa_fieldcat-ref_tabname = 'kna1'.
      APPEND wa_fieldcat TO it_fieldcat_kna1.
      CLEAR wa_fieldcat.

      wa_fieldcat-col_pos = 1.
      wa_fieldcat-fieldname = 'kunnr'.
      wa_fieldcat-ref_tabname = 'knb1'.
      APPEND wa_fieldcat TO it_fieldcat_knb1.
      CLEAR wa_fieldcat.

      wa_fieldcat-col_pos = 2.
      wa_fieldcat-fieldname = 'bukrs'.
      wa_fieldcat-ref_tabname = 'knb1'.
      APPEND wa_fieldcat TO it_fieldcat_knb1.
      CLEAR wa_fieldcat.

      wa_fieldcat-col_pos = 3.
      wa_fieldcat-fieldname = 'pernr'.
      wa_fieldcat-ref_tabname = 'knb1'.
      APPEND wa_fieldcat TO it_fieldcat_knb1.
      CLEAR wa_fieldcat.

    CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_INIT'
      EXPORTING
        i_callback_program             = sy-repid
    *   I_CALLBACK_PF_STATUS_SET       = ' '
    *   I_CALLBACK_USER_COMMAND        = ' '
    *       IT_EXCLUDING                   =
          .
      CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
        EXPORTING
          is_layout                        = is_layout
          it_fieldcat                      = it_fieldcat_kna1
          i_tabname                        = ''
          it_events                        = it_event1
    *     IT_SORT                          =
    *     I_TEXT                           = ' '
        TABLES
          t_outtab                         = it_kna1.
    *   EXCEPTIONS
    *     PROGRAM_ERROR                    = 1
    *     MAXIMUM_OF_APPENDS_REACHED       = 2
    *     OTHERS                           = 3
      CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_APPEND'
        EXPORTING
          is_layout                        = is_layout
          it_fieldcat                      = it_fieldcat_knb1
          i_tabname                        = ''
          it_events                        = it_event2
    *     IT_SORT                          =
    *     I_TEXT                           = ' '
        TABLES
          t_outtab                         = it_knb1.
      
    CALL FUNCTION 'REUSE_ALV_BLOCK_LIST_DISPLAY'
    

Input



Output






Comments

Post a Comment

Popular posts from this blog

New syntax for append- VALUE (new syntax 7.4+) in ABAP

Image
* We use APPEND statement to insert the records at the last of the internal table. * In SAP ABAP new syntax, we can use VALUE expression instead of APPEND statement. * Value expression is a powerful mechanism to declare as well as initialize the internal tables. * It is a powerful utility where we can achieve the result with minimal coding. * Value expression is of 2 types.      -  Define the type before using it with VALUE keyword. The type defined is structure type  or table type.      -  Using # character for type and use it with VALUE keyword. Report REPORT  zab_rp_append_value . TYPES :  BEGIN  OF  ls_stu ,          st_id ( 10 )    TYPE  n ,          st_name ( 15 )  TYPE  c ,         END  OF  ls_stu . DATA :  lt_stu  TYPE  TABLE...
Read more

Read statement new syntax in ABAP. (7.4+).

Image
*  Before ABAP 7.4, we used READ TABLE statement to read the first matching record from the internal table  based upon key or index . * In SAP ABAP new syntax, instead of READ TABLE , we can use the table expressions. * We need to use the square bracket [ ], In the square bracket, we need to specify the key or index. * While using table expression, If the table entry does not exist, system throws the exception CX_SY_ITAB_LINE_NOT_FOUND. * Use line_exists statement to check the existence of a record. Report REPORT  zab_rp_read_new . TABLES :   vbak . SELECT-OPTIONS :   s_vbeln  FOR  vbak - vbeln . SELECT  vbeln , erdat , erzet , ernam , auart         FROM  vbak         INTO  TABLE  @DATA ( lt_vbak )          WHERE  vbeln  IN  @s_vbeln . WRITE :   'Index value'  COLOR  5 . READ  T...
Read more

Concatenation new syntax( 7.4+ ).

Image
  Report REPORT  zab_rp_concat_7_4 . DATA :   lv_str1    TYPE  string  VALUE  'ajay' ,       lv_str2    TYPE  string  VALUE  'babu' ,       lv_str3    TYPE  string  VALUE  'varikallu' ,       lv_final1  TYPE  string ,       lv_final2  TYPE  string . CONCATENATE  lv_str1 lv_str2 lv_str3  INTO  lv_final1  SEPARATED  BY  space . WRITE :   /  'Old syntax: '  ,  lv_final1  COLOR  4 . lv_final2  =  | { lv_str1 } { lv_str2 } { lv_str3 } | . WRITE :   /  'New syntax: '  ,  lv_final2  COLOR  5 . Output ****** *********** ******** Thank You ****** ******* *********
Read more