*----------------------------------------------------------------------*
***INCLUDE ZDISPOSAL_PBO_SCREEN1.
*----------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Module  STATUS_0001  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0001 OUTPUT.
  SET PF-STATUS 'ST1'.
  SET TITLEBAR '001'.

*  enforce single tone
IF SINGLETONE_IS_CHECKED = ABAP_FALSE.
  PERFORM ENFORCE_SINGLE_TONE.
ENDIF.

*---------- Hide un wanted fields that hold ids-----------------
PERFORM set_ids.
SET CURSOR FIELD CURSORFIELD.

*---------- create alv report -----------------
if C_REQ_CONTAINER is INITIAL.
*ZFI_DISPOSAL_REQ-ZZCOMPANY_CODE = 1200.
  GET PARAMETER ID 'BUK' FIELD ZFI_DISPOSAL_REQ-ZZCOMPANY_CODE .

  CREATE OBJECT C_REQ_CONTAINER
    EXPORTING
      container_name = 'CS1'.

  CREATE OBJECT R_REQ_GRID
    EXPORTING
      i_parent = C_REQ_CONTAINER.

  DATA : EVENT_RECEIVER TYPE REF TO event_class ,
         EVENT_OBJECT   TYPE REF TO cl_alv_event_toolbar_set.

*Create object of the event class and setting handler for hotspot click
  CREATE OBJECT EVENT_RECEIVER.
  SET HANDLER EVENT_RECEIVER->handle_hotspot_click FOR R_REQ_GRID.
  SET HANDLER event_receiver->handle_double_click FOR  R_REQ_GRID.
  CREATE OBJECT EVENT_OBJECT.

*------------------ CREATE FIELD CATALOG ------------------------------

  PERFORM fill_field_cat.

 CALL METHOD R_REQ_GRID->set_table_for_first_display
*  EXPORTING
*   I_STRUCTURE_NAME = 'DRAW'
   CHANGING
    it_fieldcatalog = IT_FCAT_REQ
    it_outtab       = IT_REQ.

else.
IF RESET_IS_PRESSED = ABAP_TRUE.
  RESET_IS_PRESSED = ABAP_FALSE.
  ELSE.
    "28/6/2015  >>>>>>>>>>>>>>>>
***    PERFORM set_ids.
***      IF HAS_ERROR = abap_false.
***        PERFORM search.
***        else.
***          CLEAR IT_REQ. "empty alv table
***      ENDIF.
***        perform refresh.

        "28/6/2015  <<<<<<<<<<<<<<<<



    CALL METHOD R_REQ_GRID->SET_SELECTED_ROWS
     EXPORTING
                It_index_rows = SELECTED_DOCS.

ENDIF.

ENDIF.
* REMOVE LEADING ZEROS
PERFORM REMOVE_ZEROS_REQ.
ENDMODULE.                 " STATUS_0001  OUTPUT