ABAP: find file server

 >>>> selection screen with radio button category
 >>>> each field can search with F4

selection-screen begin of block b3 with frame title text-b03.
   SELECTION-SCREEN begin of line.
    "file local
    PARAMETERS : p_rd01 RADIOBUTTON GROUP gp01 DEFAULT 'X' USER-COMMAND rad.
    SELECTION-SCREEN COMMENT 2(10) text-r01 for FIELD p_rd01.
    SELECTION-SCREEN POSITION POS_LOW.
    PARAMETERS : p_fname like rlgrap-filename MODIF ID sc1.
   SELECTION-SCREEN end of line.

   "file server
   SELECTION-SCREEN BEGIN OF line.
    PARAMETERS : p_rd02 RADIOBUTTON GROUP gp01.
    SELECTION-SCREEN COMMENT 2(12) text-r02 FOR FIELD p_rd02.
    SELECTION-SCREEN POSITION POS_LOW.
    PARAMETERS : p_sname LIKE rlgrap-filename MODIF ID sc2.
SELECTION-SCREEN END OF line.

>>>>> F4 search help
  at selection-screen on value-request for p_fname.
  perform get_file_path using p_fname.

  at SELECTION-SCREEN on VALUE-REQUEST FOR p_sname.
  PERFORM get_file_server USING p_sname.

>>>>>> loop for blind fill box when tic each other
at selection-screen output.
   LOOP AT SCREEN.
     IF p_rd02 EQ 'X' AND screen-group1 = 'SC1' .
        screen-input = '0'.
        MODIFY SCREEN.
        CONTINUE.
     ELSEIF   p_rd01 EQ 'X' AND screen-group1 = 'SC2'.
        screen-input = '0'.
        MODIFY SCREEN.
        CONTINUE.
     ENDIF.
   ENDLOOP.

>>>>> trim data into internal table
FORM read_server_file_004  TABLES pt_tab "STRUCTURE gi_upload
                        USING pv_files TYPE rlgrap-filename
                              p_tab.
    DATA : lv_str   TYPE string,
           lv_file  TYPE string.

  DATA: dref TYPE REF TO data.
  REFRESH pt_tab.

  CREATE DATA dref LIKE LINE OF pt_tab.
  ASSIGN dref->* TO <fline>.


    lv_file = pv_files.

    OPEN DATASET lv_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
    IF sy-subrc NE 0.
       MESSAGE 'can not open file from server' TYPE 'S'.
    ELSE.
      DO.
        READ DATASET lv_file INTO lv_str.
        IF sy-subrc = 0.
**           SPLIT lv_str AT cl_abap_char_utilities=>horizontal_tab
**                              INTO pt_tab-c13
**                                   pt_tab-c22
**                                   pt_tab-c14
**                                   pt_tab-c15
**                                   pt_tab-c16
**                                   pt_tab-c1
**                                   pt_tab-c2
**                                   pt_tab-c3
**                                   pt_tab-c4
**                                   pt_tab-c5
**                                   pt_tab-c6
**                                   pt_tab-c7
**                                   pt_tab-c8
**                                   pt_tab-c9
**                                   pt_tab-c10
**                                   pt_tab-c11
**                                   pt_tab-c12
**                                   pt_tab-c18
**                                   pt_tab-c19
**                                   pt_tab-c25
**                                   pt_tab-c20
**                                   pt_tab-c23
**                                   pt_tab-c26
**                                   pt_tab-c21
**                                   pt_tab-c24
**                                   IN CHARACTER MODE.
**
**            APPEND pt_tab.
**            gt_xfile[] = pt_tab[].
        ELSE.
          EXIT.
        ENDIF.
      ENDDO.
      CLOSE DATASET pv_files.
    ENDIF.