*----------------------------------------------------------------------*
***INCLUDE ZBC401_04A_ALV2_O01 .
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE status_0100 OUTPUT.

  SET PF-STATUS 'PS_0100'.
  SET TITLEBAR  'TB_0100'.

ENDMODULE.                 " STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  create_alv_duplo  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE create_alv_duplo OUTPUT.

  ix_handle = r_handle->get_ixtabix( ).

  IF  ix_handle IS INITIAL.
    ix_handle = 1.
  ENDIF.

  IF  ix_bkpf <> ix_handle.

    ix_bkpf = ix_handle.

    READ TABLE it_bkpf INTO wa_bkpf
      INDEX ix_bkpf.

    SELECT * FROM bseg INTO TABLE it_bseg
        WHERE bukrs EQ wa_bkpf-bukrs
        AND   belnr EQ wa_bkpf-belnr
        AND   gjahr EQ wa_bkpf-gjahr.


    r_grid2->set_table_for_first_display(
      EXPORTING i_structure_name = 'BSEG'
      CHANGING  it_outtab = it_bseg ).

  ENDIF.

ENDMODULE.                 " create_alv_duplo  OUTPUT