Parameter: p_file LIKE rlgrap-filename.

Question

Hi I have given this in my code  'p_file LIKE rlgrap-filename.' and it showing that put your address in this bar and it will take you to required area. Now I want using  p_file LIKE rlgrap-filename with browsing facility. How I will do that. Need info.
TYhanks...............

Answer 1

Hi,
   Try the following code.
tables: sdokpath.
parameters:
  p_path(250)  type c.
data:
  w_path(250)  type c,
  w_size       type i,
  w_name       type rlgrap-filename.
data:
  t_contents like
    standard table
          of sdokpath.
data:
   t_contents1 like
      standard table
            of sdokpath.
data:
  begin of fs_size,
    name like w_name,
    size type i,
  end of fs_size.
data:
  t_size like
standard table
       of fs_size.
at selection-screen on value-request for p_path.
  call function 'WS_FILENAME_GET'
EXPORTING
  DEF_FILENAME           = ' '
  DEF_PATH               = W_PATH
  MASK                   = ' '
  MODE                   = ' '
  TITLE                  = ' '
   importing
     filename               = p_path
  RC                     =
   exceptions
     inv_winsys             = 1
     no_batch               = 2
     selection_cancel       = 3
     selection_error        = 4
     others                 = 5
  if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
at selection-screen.
if p_path is initial.
  message 'Enter the file path'(001) type 'E'.
endif.
end-of-selection.
  call function 'WS_QUERY'
    exporting
  ENVIRONMENT          =
   FILENAME             = W_PATH
      query                = 'CD'
  WINID                =
   importing
     return               = w_path
   exceptions
     inv_query            = 1
     no_batch             = 2
     frontend_error       = 3
     others               = 4
  if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
  write:/ '-------CURRENT DIRECTORY IS -
  write:/10 w_path.
  write: /,/,/.
  call function 'TMP_GUI_DIRECTORY_LIST_FILES'
    exporting
      directory        = w_path
  FILTER           = '.'
IMPORTING
  FILE_COUNT       =
  DIR_COUNT        =
    tables
      file_table       = t_contents
      dir_table        = t_contents1
   exceptions
     cntl_error       = 1
     others           = 2
  if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  endif.
  loop at t_contents into sdokpath.
    w_name = sdokpath.
    call function 'GUI_GET_FILE_INFO'
      exporting
        fname                = w_name
     importing
  FILE_VERSION         =
  FILE_DBGREL          =
  FILE_LANG            =
       file_size            = fs_size-size
EXCEPTIONS
   FILEINFO_ERROR       = 1
   OTHERS               = 2
    if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    endif.
    write:/ w_name,40 fs_size-size.
    fs_size-name = w_name.
    append fs_size to t_size.
  endloop.
  sort t_size by size descending.
  read table t_size index 1 into fs_size.
  skip 3.
  write: fs_size-name,30 'is the file having maximum size of',
      70 fs_size-size.
regards,
kiran kumar k