How to declare a string parameter

Question

Hi all,
I declared a parameter of type string in parameters declaration part. System giving me a error as 'deep data type "string" is not allowed'.
My requirement is to declare a parameter of type string for file name in GUI_DOWNLOAD FM. If I declare any other type its goin for a short dump. How to do it. Please give relevant code for it if possible.

Answer 1

Hi,
Please check, For file download,, and declaring file as parameters, all scenarios are covered,
Please go through code.Hope it work well for your requirement.
Reward all helpful answers.
Thanks.
REPORT Zxyx NO STANDARD PAGE HEADING MESSAGE-ID zf.
*Table Declarations
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS     : cb_box1  TYPE c AS CHECKBOX.
PARAMETERS     : p_wsfile LIKE rlgrap-filename.
PARAMETERS     : cb_box2  TYPE c AS CHECKBOX.
PARAMETERS     : p_lpfile LIKE rlgrap-filename DEFAULT c_lpat.
SELECTION-SCREEN END OF BLOCK b2.
                  INITIALIZATION
INITIALIZATION.
                  AT SELECTION-SCREEN
AT SELECTION-SCREEN OUTPUT.
Change to Display Mode for Logical Path
  PERFORM lpdisplay.
AT SELECTION-SCREEN.
Validate Input At Selection Screen
  PERFORM screen_validation.
Authority Check
  PERFORM authority_check.
Assist file Path for Download
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_wsfile.
  PERFORM get_path.
                  START-OF-SELECTION.
START-OF-SELECTION.
Get all Accounting Document Details
  PERFORM get_bkpf.
                  END-OF-SELECTION.
END-OF-SELECTION.
  IF i_bkpf IS INITIAL.
    MESSAGE s001(zf) WITH 'No Records Found for the Selection'(003).
  ELSE.
Prepare Download Table
    PERFORM fill_download.
Submit to gui_download.
    IF NOT cb_box1 IS INITIAL.
      PERFORM download_csv USING p_wsfile.
    ENDIF.
Download to Logical Path.
    IF NOT cb_box2 IS INITIAL.
      PERFORM logicalpath_download.
    ENDIF.
  ENDIF.
*&                      Form  screen_validation
              At Selection Screen Validation for Inputs.
FORM screen_validation.
*Validation for company code
  IF NOT p_bukrs IS INITIAL.
    SELECT COUNT(*) FROM t001 WHERE bukrs = p_bukrs.
    IF sy-subrc NE 0.
      MESSAGE e001(zf) WITH 'Company Code(s) not found'(004).
    ENDIF.
  ENDIF.
ENDFORM.                    " screen_validation
*&                    Form  authority_check
                      Authority Check
FORM authority_check.
ENDFORM.                    " authority_check
*&                        Form  get_bkpf
                      Get Document Details
FORM get_bkpf.
  SELECT
            bukrs     "Company Code
    IF sy-subrc = 0.
      SORT i_kna1 BY kunnr.
    ENDIF.
  ENDIF.
ENDFORM.                    " get_bkpf
*&                    Form  fill_download
                   Prepare Download Table
FORM fill_download.
  DATA : v_flag TYPE c.
  v_taxsum = 0.
  SORT i_bseg BY belnr buzei.
ENDFORM.                    " summary_build
*&                      Form  download_csv
                  Download To Pipe CSV File
FORM download_csv USING v_p_wsfile LIKE rlgrap-filename.
  DATA : v_time LIKE sy-uzeit,
         v_date LIKE sy-datum,
         v_fname TYPE string.
  v_time = sy-uzeit.
  v_date = sy-datum.
  IF p_bukrs = '2000'.
    CONCATENATE v_p_wsfile c_csg v_date v_time c_2000
                               '.TXT' INTO v_p_wsfile.
    v_fname = v_p_wsfile.
  ELSEIF p_bukrs = '3110'.
    CONCATENATE v_p_wsfile c_ams v_date v_time c_2000
                               '.TXT' INTO v_p_wsfile.
    v_fname = v_p_wsfile.
  ENDIF.
  CALL FUNCTION 'GUI_DOWNLOAD'
       EXPORTING
            filename                = v_fname
            filetype                = 'ASC'
       TABLES
            data_tab                = i_csv[]
       EXCEPTIONS
            file_write_error        = 1
            no_batch                = 2
            gui_refuse_filetransfer = 3
            invalid_type            = 4
            no_authority            = 5
            unknown_error           = 6
            header_not_allowed      = 7
            separator_not_allowed   = 8
            filesize_not_allowed    = 9
            header_too_long         = 10
            dp_error_create         = 11
            dp_error_send           = 12
            dp_error_write          = 13
            unknown_dp_error        = 14
            access_denied           = 15
            dp_out_of_memory        = 16
            disk_full               = 17
            dp_timeout              = 18
            file_not_found          = 19
            dataprovider_exception  = 20
            control_flush_error     = 21
            OTHERS                  = 22.
  IF sy-subrc <> 0.
    MESSAGE e001(zf) WITH v_fname
                     'Sorry, File download Unsucessful'(008).
  ELSE.
    MESSAGE s001(zf) WITH v_fname 'Download Sucessful'(009).
  ENDIF.
ENDFORM.                    " download_csv
*&                      Form  get_path
               Get The File Path for Download.
FORM get_path.
Provide F4 Help for Download Path Selection
  CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
       EXPORTING
            program_name  = 'ZFIPDRDGCSV'
            dynpro_number = sy-dynnr
            field_name    = p_wsfile
       CHANGING
            file_name     = p_wsfile
       EXCEPTIONS
            mask_too_long = 1
            OTHERS        = 2.
  IF sy-subrc <> 0.
    MESSAGE s001(zf) WITH 'Given Path Unsucessful'(010).
  ENDIF.
ENDFORM.                    " get_path
*&                      Form  lpdisplay
            Diaply the Logical path In NON EDIT MOde
FORM lpdisplay.
  LOOP AT SCREEN.
    IF screen-name = 'P_LPFILE'.
      screen-input = 0.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
ENDFORM.                    " lpdisplay