Report 选择屏幕 自开发的search help

 REPORT zcat_batch_upload_csr_account.

 DATA: return_tab TYPE ddshretval OCCURS 0 .
 TYPES: shlp_descr_t TYPE shlp_descr .

 DATA: BEGIN OF tab_partner OCCURS 0,
            partner TYPE bu_partner,
            name_last TYPE bu_namep_l,
         END OF tab_partner.

 SELECTION-SCREEN BEGIN OF BLOCK so_document WITH FRAME TITLE iit.
 PARAMETERS:  p_csr  LIKE but000-partner.
 PARAMETERS:  p_name LIKE but000-name_last .
 PARAMETERS:  p_file LIKE rlgrap-filename.
 SELECTION-SCREEN END OF BLOCK so_document.

 INITIALIZATION.

   LOOP AT SCREEN .
     IF screen-name = 'P_NAME' .
       screen-input = '0'.
       MODIFY SCREEN .
     ENDIF .
   ENDLOOP .

 AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

   CALL FUNCTION 'WS_FILENAME_GET'
     EXPORTING
       def_path         = 'D:\'
     IMPORTING
       filename         = p_file
     EXCEPTIONS
       inv_winsys       = 1
       no_batch         = 2
       selection_cancel = 3
       selection_error  = 4
       OTHERS           = 5.

 AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_csr.

   tab_partner-partner   = '89000225' .
   tab_partner-name_last = 'name_last' .
   APPEND tab_partner . CLEAR tab_partner .

   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
     EXPORTING
       retfield         = 'PARTNER'
       dynpprog         = sy-repid
       dynpnr           = sy-dynnr
       dynprofield      = 'P_CSR'
       value_org        = 'S'
       callback_program = sy-repid
       callback_form    = 'CB_FORM'
     TABLES
       value_tab        = tab_partner
       return_tab       = return_tab
     EXCEPTIONS
       parameter_error  = 1
       no_values_found  = 2
       OTHERS           = 3.

*&---------------------------------------------------------------------*
*&      Form  cb_form
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->RECORD_TAB   text
*      -->SHLP         text
*      -->CALLCONTROL  text
*----------------------------------------------------------------------*
 FORM cb_form TABLES record_tab STRUCTURE seahlpres
               CHANGING shlp TYPE shlp_descr_t
                        callcontrol LIKE ddshf4ctrl.

   DATA: interface LIKE LINE OF shlp-interface.
   READ TABLE shlp-interface INTO interface INDEX 1.
   interface-shlpfield+4(1) = '2'.
   interface-valfield       = 'P_NAME'.
   APPEND interface TO shlp-interface.

 ENDFORM.                    "bo_callback_form

 AT SELECTION-SCREEN OUTPUT .

   IF p_csr IS NOT INITIAL .
     p_name = p_csr .
   ENDIF .