*&---------------------------------------------------------------------*
*& Report  Z_FIND_REQUEST
*&
*&---------------------------------------------------------------------*
*
REPORT  z_find_request.
*
PARAMETERS p_pc TYPE rspc_chain.
*
DATA: BEGIN OF ls_dtp,
      dtp TYPE rsbkdtpnm,
      END OF ls_dtp,
      lt_dtp LIKE TABLE OF ls_dtp,
      BEGIN OF ls_tgt,
      tgt TYPE rsbktgtnm,
      END OF ls_tgt,
      lt_tgt LIKE TABLE OF ls_tgt,
      BEGIN OF ls_rnr,
      rnsidlast TYPE rssid,
      rnr TYPE rsrequnr,
      tabname TYPE rsstatmandta,
      END OF ls_rnr,
     lt_rnr LIKE TABLE OF ls_rnr.
*
DATA: l_alv      TYPE REF TO   cl_gui_alv_grid,
      ok_code TYPE sy-ucomm.
*
START-OF-SELECTION.
*
  SELECT dtp FROM rsbkdtpstat INTO
  TABLE lt_dtp
   WHERE actualchain = p_pc.
*
  IF NOT lt_dtp IS INITIAL.
    SELECT tgt FROM rsbkdtp INTO
    TABLE lt_tgt
    FOR ALL ENTRIES IN lt_dtp
    WHERE dtp = lt_dtp-dtp.
*
    IF NOT lt_tgt IS INITIAL.
      SELECT rnsidlast  rnr tabname FROM rsreqicods
      INTO TABLE lt_rnr
      FOR ALL ENTRIES IN lt_tgt
      WHERE tabname = lt_tgt-tgt
      AND   typ = 'I'.
    ENDIF.
  ENDIF.
*
END-OF-SELECTION.
*
  IF lt_rnr IS INITIAL.
    MESSAGE i733(5a) DISPLAY LIKE 'E'.
    EXIT.
  ENDIF.
*
  CALL SCREEN 100.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'PC100'.
  SET TITLEBAR 'PC100'.
  CREATE OBJECT l_alv
    EXPORTING
      i_parent = cl_gui_container=>screen0.
*
  CALL METHOD l_alv->set_table_for_first_display
    EXPORTING
      i_structure_name = 'ZRNR'
    CHANGING
      it_outtab        = lt_rnr.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  CASE ok_code.
    WHEN 'EXIT' OR 'BACK' OR 'END'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT

*&---------------------------------------------------------------------*
*& Report  Z_FIND_REQUEST#2
*&
*&---------------------------------------------------------------------*
*
REPORT  z_find_request#2.
*
PARAMETERS p_log_id TYPE rspc_logid.
*
DATA: BEGIN OF ls_rqt,
      instance TYPE rspc_instance,
      END OF ls_rqt,
lt_rqt LIKE TABLE OF ls_rqt,
BEGIN OF ls_rnr,
      rnsidlast TYPE rssid,
      rnr TYPE rsrequnr,
      tabname TYPE rsstatmandta,
      END OF ls_rnr,
     lt_rnr LIKE TABLE OF ls_rnr.
*
DATA: l_alv      TYPE REF TO   cl_gui_alv_grid,
      ok_code TYPE sy-ucomm.
*
START-OF-SELECTION.
*
  SELECT instance FROM rspcprocesslog
  INTO TABLE lt_rqt
  WHERE log_id = p_log_id
    AND type = 'DTP_LOAD'
    AND event_start = 'RSPROCESS'.
*
  IF NOT lt_rqt IS INITIAL.
    SELECT rnsidlast  rnr tabname FROM rsreqicods
         INTO TABLE lt_rnr
         FOR ALL ENTRIES IN lt_rqt
         WHERE rnr = lt_rqt-instance
         AND   typ = 'I'.
  ENDIF.
*
END-OF-SELECTION.
*
  IF lt_rnr IS INITIAL.
    MESSAGE i733(5a) DISPLAY LIKE 'E'.
    EXIT.
  ENDIF.
*
  CALL SCREEN 100.
*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
MODULE status_0100 OUTPUT.
  SET PF-STATUS 'PC100'.
  SET TITLEBAR 'PC100'.
  CREATE OBJECT l_alv
    EXPORTING
      i_parent = cl_gui_container=>screen0.
*
  CALL METHOD l_alv->set_table_for_first_display
    EXPORTING
      i_structure_name = 'ZRNR'
    CHANGING
      it_outtab        = lt_rnr.
ENDMODULE.                 " STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
MODULE user_command_0100 INPUT.
  CASE ok_code.
    WHEN 'EXIT' OR 'BACK' OR 'END'.
      LEAVE TO SCREEN 0.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT