*============= Global CODES ========================
DATA : INITIAL_ID   type ZEJD_ID VALUE 4,
       INITIAL_CODE type ZEJD_CODE VALUE 'INIT'.

DATA : ERR_ID   type ZEJD_ID VALUE 105,
       ERR_CODE type ZEJD_CODE VALUE 'ERR'.

DATA : REJ_ID   type ZEJD_ID VALUE 106,
       REJ_CODE type ZEJD_CODE VALUE 'REJCT'.

DATA : RTRN_ID   type ZEJD_ID VALUE 108,
       RTRN_CODE type ZEJD_CODE VALUE 'RTRN'.

*------------------------------------------------------
DATA : RES_COUNT     type i. " count result rows
DATA : RES_COUNT_MSG type char30.
DATA : RESET_IS_PRESSED TYPE ABAP_BOOL VALUE ABAP_FALSE.
DATA : SINGLETONE_IS_CHECKED TYPE ABAP_BOOL VALUE ABAP_FALSE.

*============= Global variables ========================
*DATA : WA_SC_REQ LIKE ZFI_DISPOSAL_REQ   . " for screen fields
DATA : sc_service_code type ZEJD_CODE,
       sc_status_code  type ZEJD_CODE,
       sc_service_desc type ZEJD_DESC_S,
       sc_status_desc  type ZEJD_DESC_S.

DATA CURSORFIELD(50). "focused field

DATA HAS_ERROR type ABAP_BOOL.
*------------------- Disposal Requests data ------------------------

DATA : IT_REQ type TABLE OF ZFI_DISP_REQ_STRUCT, "DISPOSAL REQUEST internal table for alv
       WA_REQ LIKE LINE OF IT_REQ. "

DATA : IT_FCAT_REQ TYPE lvc_t_fcat, "field catalog
       WA_FCAT_REQ TYPE lvc_s_fcat.

DATA : C_REQ_CONTAINER TYPE REF TO cl_gui_custom_container , "ALV container
       R_REQ_GRID TYPE REF TO cl_gui_alv_grid.               "ALV GRID

DATA : SELECTED_DOCS TYPE TABLE OF LVC_S_ROW.
*=========== End Global variables =======================