Open dataset......

Question

Hi Folks,
I am trying to get some data using Open dataset.The program is not showing any errors and executing fine,but I was not able to find the data that I am going to get using OPEN DATASET.Where will I be able to see the data.In the given path there is no file downloaded.Kindly let me know.
run the program
enter some data in the blank fields of the alv
save it
now double click on the qty1 field in the alv.
Thanks,
K.Kiran.
REPORT  zlabel.
TYPE-POOLS:slis,icon.
TABLES:makt.
*Declarations for ALV
DATA:itfieldcat TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA:itfieldcat1 TYPE slis_t_fieldcat_alv WITH HEADER LINE.
DATA:itprintparams TYPE slis_print_alv.
DATA:itrepid TYPE sy-repid.
itrepid = sy-repid.
DATA:itevent TYPE slis_t_event.
DATA:itlistheader TYPE slis_t_listheader.
DATA:walistheader LIKE LINE OF itlistheader.
DATA:itlayout TYPE slis_layout_alv.
DATA:top TYPE slis_formname.
DATA:itsort TYPE slis_t_sortinfo_alv WITH HEADER LINE.
DATA : grid  TYPE REF TO cl_gui_alv_grid.
*Declaration for DSN
<b>DATA : file(50) VALUE 'E:\userdata\labelfiles'.</b>
DATA : dsn(150).
DATA : dsn1(100).
DATA : n1(4) TYPE n.
*Declarations for Internal tables.
DATA:BEGIN OF imakt OCCURS 0,
     matnr LIKE makt-matnr,
     spras LIKE makt-spras,
     maktx LIKE makt-maktx,
     label1(03) TYPE c,
     qty1(03) TYPE c,
     label2(03) TYPE c,
     qty2(03) TYPE c,
     END OF imakt.
DATA:ITFINAL LIKE imakt OCCURS 0 WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:matnr FOR makt-matnr OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
START-OF-SELECTION.
PERFORM getdata.
IF sy-subrc = 0.
PERFORM alv.
ELSE.
STOP.
ENDIF.
*&      Form  getdata
      text
FORM getdata.
  SELECT matnr
         spras
         maktx
         FROM makt
         INTO CORRESPONDING FIELDS OF TABLE imakt
         WHERE spras = sy-langu.
ENDFORM.                    "getdata
*&      Form  ALV
      text
FORM alv.
  DEFINE m_fieldcat.
    itfieldcat-fieldname = &1.
    itfieldcat-col_pos = &2.
    itfieldcat-seltext_l = &3.
    itfieldcat-do_sum = &4.
    itfieldcat-outputlen = &5.
    itfieldcat-edit = &6.
    append itfieldcat to itfieldcat.
    clear itfieldcat.
  END-OF-DEFINITION.
  m_fieldcat 'MATNR' '' 'MATERIAL No' '' 18 ''.
  m_fieldcat 'SPRAS' '' 'Language' '' 02 ''.
  m_fieldcat 'MAKTX' '' 'Description' '' 40 ''.
  m_fieldcat 'LABEL1' '' 'LABEL1' '' 12 'X'.
  m_fieldcat 'QTY1' '' 'QTY1' '' 12 'X'.
  m_fieldcat 'LABEL2' '' 'LABEL2' '' 12 'X'.
  m_fieldcat 'QTY2' '' 'QTY2' '' 12 'X'.
  itlayout-zebra = 'X'.
  itlayout-colwidth_optimize = 'X'.
  itlayout-no_subtotals = ' '.
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          i_callback_program      = sy-repid
          is_layout               = itlayout
       i_callback_pf_status_set = 'PF_STATUS'
          i_callback_user_command =  'LIST1'
          i_callback_top_of_page  = 'TOP'
          it_fieldcat             = itfieldcat[]
          i_save                  = 'X'
     is_variant              = ITVARIANT
          it_events               = itevent[]
        is_print                = itprintparams
          it_sort                 = itsort[]
        TABLES
          t_outtab                = imakt
          EXCEPTIONS
          program_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.
  CLEAR itfieldcat.
ENDFORM.                    "ALV
*&      Form  list1
      text
     -->R_UCOMM    text
     -->RS_SELFIELDtext
FORM list1 USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
  CASE r_ucomm.
  WHEN 'EXIT'.
  STOP.
  ENDCASE.
  CLEAR itfieldcat1.
  REFRESH itfieldcat1.
  DEFINE k_fieldcat.
    itfieldcat1-fieldname = &1.
    itfieldcat1-col_pos = &2.
    itfieldcat1-seltext_l = &3.
    itfieldcat1-outputlen = &4.
    append itfieldcat1 to itfieldcat1.
    clear itfieldcat1.
  END-OF-DEFINITION.
  k_fieldcat 'MATNR' '' 'MATERIAL No' 18 .
  k_fieldcat 'SPRAS' '' 'Language'    02 .
  k_fieldcat 'MAKTX' '' 'Description' 40 .
  k_fieldcat 'LABEL1' '' 'LABEL1'     12 .
  k_fieldcat 'QTY1' '' 'QTY1' 12 .
  k_fieldcat 'LABEL2' '' 'LABEL2' 12 .
  k_fieldcat 'QTY2' '' 'QTY2' 12 .
  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
        EXPORTING
          i_callback_program      = sy-repid
          is_layout               = itlayout
       i_callback_pf_status_set = 'PF_STATUS'
          i_callback_user_command =  'LIST2'
          i_callback_top_of_page  = 'TOP'
          it_fieldcat             = itfieldcat1[]
          i_save                  = 'X'
     is_variant              = ITVARIANT
          it_events               = itevent[]
        is_print                = itprintparams
          it_sort                 = itsort[]
        TABLES
          t_outtab                = imakt
          EXCEPTIONS
          program_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.
  CLEAR:itfieldcat1,itfieldcat.
ENDFORM.                                                    "list1
*&      Form  list2
      text
     -->R_UCOMM    text
     -->RS_SELFIELDtext
FORM list2 USING r_ucomm LIKE sy-ucomm
                  rs_selfield TYPE slis_selfield.
  CASE r_ucomm.
    WHEN '&IC1'.
    IF rs_selfield-fieldname = 'QTY1'.
    LOOP AT IMAKT.
    <b>CONCATENATE file n1 '.PJ' INTO dsn.</b>
   <b> PERFORM DSN.</b>  
   CLEAR DSN.
    N1 = N1 + 1.
    ENDLOOP.
    ENDIF.
ENDCASE.
ENDFORM.                                                    "list2
*&      Form  top
      text
FORM top.
  DATA:title(70) TYPE c.
  CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
          i_list_type           = 0
       IMPORTING
          et_events             = itevent
EXCEPTIONS
  LIST_TYPE_WRONG       = 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.
  title = 'LABEL'.
  walistheader-typ = 'H'.
  walistheader-info = title.
  APPEND walistheader TO itlistheader.
  CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary      = itlistheader
    I_LOGO                   = ''.
    I_END_OF_LIST_GRID       =
  CLEAR itlistheader.
ENDFORM.                    "TOP
*&      Form  DSN
      text
-->  p1        text
<--  p2        text
<b>form DSN .</b>
OPEN DATASET dsn FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
IF sy-subrc <> 0.
<b>LEAVE TO LIST-PROCESSING</b>
<b>WRITE:/ 'FILE COULD NOT BE OPENED'.</b>
EXIT.
ENDIF.
MOVE-CORRESPONDING IMAKT TO ITFINAL.
APPEND ITFINAL.
TRANSFER 'MDA.LBL' TO dsn.
TRANSFER '1' TO dsn.
TRANSFER: ITFINAL-MATNR TO DSN,
          ITFINAL-SPRAS TO DSN,
          ITFINAL-MAKTX TO DSN,
          ITFINAL-LABEL1 TO DSN,
          ITFINAL-QTY1 TO DSN,
          ITFINAL-LABEL2 TO DSN,
          ITFINAL-QTY2 TO DSN.
<b>if sy-subrc <> 0.</b>
write:/ 'Check your code'.
endif.
CLOSE DATASET DSN.
ENDFORM.

Answer 1

Hi Kiran,
To my understanding your file is not being created cause you have not passed a location for your file to be put. Refer to my below code you see how its done.
If you need more info let me know.
TYPES DECLARATIONS                                                   *
*Data type for Accounting Document Header Table
TYPES: BEGIN OF gt_bkpf,
         bukrs TYPE bkpf-bukrs,      "Company Code
         belnr TYPE bkpf-belnr,      "Accounting Document Number
         gjahr TYPE bkpf-gjahr,      "Fiscal Year
         budat TYPE bkpf-budat,      "Posting Date
       END OF gt_bkpf.
*Data type for Accounting Document Segment Table
TYPES: BEGIN OF gt_bseg,
         bukrs TYPE bkpf-bukrs,        "Company Code
         belnr TYPE bkpf-belnr,        "Accounting Document Number
         gjahr TYPE bkpf-gjahr,        "Fiscal Year
         buzei TYPE bseg-buzei  ,      "Line Item
         shkzg TYPE bseg-shkzg  ,      "Debit/Credit Indicator
         wrbtr TYPE bseg-wrbtr  ,      "Amount in document currency
         kostl TYPE bseg-kostl  ,      "Cost Center
         aufnr TYPE bseg-aufnr  ,      "Project / Order Number
         hkont TYPE bseg-hkont  ,      "General Ledger Account Key
         prctr TYPE bseg-prctr  ,      "Profit Center
         segment  TYPE bseg-segment,      "Segment
         END OF gt_bseg.
*Data type for Posting Summary Table of given file format
TYPES: BEGIN OF gt_posting_summary,
         effective_date(10)  TYPE c,       "Date of last tuesday
         company_code(4)     TYPE c,       "Company Code
         gl_key(6)           TYPE c,       "General Ledger Account Key
         cost_centre(10)     TYPE c,       "Cost Center
         profit_centre(10)   TYPE c,       "Profit Center
         project(12)         TYPE c,       "Order Number
         segment(10)         TYPE c,       "Segment for Segmental Reporting
         amount(16)          TYPE c,       "Amount with minor denomination & debit/credit indicator
       END OF gt_posting_summary.
INTERNAL TABLE DECLARATIONS                                          *
DATA:
*Internal table for Accounting Document Header Table
gi_bkpf              TYPE STANDARD TABLE OF gt_bkpf,
*Internal table for Accounting Document Segment Table
gi_bseg              TYPE STANDARD TABLE OF gt_bseg,
*Internal table for Posting Summary Table of given file format
gi_posting_summary   TYPE STANDARD TABLE OF gt_posting_summary.
RANGES DECLARATIONS                                                  *
DATA:
*Building ranges table for last saturday to current date
gr_date  TYPE RANGE OF sy-datum.
WORK AREA DECLARATIONS                                               *
DATA:
*Work area for Accounting Document Segment Table
gwa_bseg              TYPE gt_bseg,
*Work area for Accounting Document Segment Table
gwa_bkpf              TYPE gt_bkpf,
*Work area for Posting Summary Table of given file format
gwa_posting_summary   TYPE gt_posting_summary,
*Work area for ranges table for last saturday to current date
gwa_date              LIKE LINE  OF gr_date.
GLOBAL VARIABLE DECLARATIONS                                         *
DATA: gv_to_date            TYPE sy-datum,
      gv_from_date          TYPE sy-datum,
      gv_effective_date(10) TYPE c,
      gv_posting_amount(16) TYPE c,
      gv_file_name          TYPE string,
      gv_server_file_name   TYPE fileextern,
      gv_suspense_accnt     TYPE hkont,
      gv_amount             TYPE wrbtr.
GLOBAL CONSTANT DECLARATIONS                                         *
DATA: gc_x                    TYPE c                     VALUE 'X',
      gc_s                    TYPE bseg-shkzg            VALUE 'S',
      gc_h                    TYPE bseg-shkzg            VALUE 'H',
      gc_i                    TYPE tvarv-sign            VALUE 'I',
      gc_bt                   TYPE tvarv-opti            VALUE 'BT',
      gc_ys                   TYPE bkpf-blart            VALUE 'YS',
      gc_zfii0431             TYPE filepath-pathintern   VALUE 'ZFII0431',
      gc_debit                TYPE c                     VALUE '+',
      gc_credit               TYPE c                     VALUE '-',
      gc_dot                  TYPE c                     VALUE '.',
      gc_suspense_key         TYPE zglkey                VALUE 'SUSPENSE_GL_ACCOUNT'.
   Selection Screen                                                 *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t01.
SELECTION-SCREEN SKIP 1.
*Accounting Document type for eSFA postings
PARAMETERS       :  p_ys             TYPE bkpf-blart DEFAULT gc_ys.
SELECTION-SCREEN SKIP 1.
*Logical Path of file to be downloaded on Application Server
PARAMETERS       :  p_l_path         TYPE filepath-pathintern DEFAULT gc_zfii0431.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-t02.
SELECT-OPTIONS  :  s_date FOR sy-datum .
SELECTION-SCREEN END OF BLOCK b2.
ON LOAD EVENT         - Occurs only once, when the program is loaded *
LOAD-OF-PROGRAM.
************************MAIN PROGRAM************************
START-OF-SELECTION            - start of database access             *
START-OF-SELECTION.
Clear all global variables
  PERFORM clear_memory.
Routine for calulating date of Last Saturday and Current Tuesday
  PERFORM calculate_posting_dates.
Routine to select posted G/L records from database
  PERFORM posting_record_selection.
Routine to compile posting summary table
  PERFORM build_posting_summary.
Routine to make filename as eSFA_GL_CandC_YYYYMMDD.txt
  PERFORM build_file_name.
Routine for compile physical path of file on Appln. Server
from logical path and desired filename.
  PERFORM get_physical_path USING  p_l_path
                                   gv_file_name
                                   gc_x
                         CHANGING  gv_server_file_name.
Routine to download file on application server
  PERFORM download_on_application_server.
**************************INCLUDES***************************
  INCLUDE zfi_get_physical_path.
  INCLUDE zfi_file_status_change.
*************************SUBROUTINES*************************
*&     Form  calculate_posting_dates
     Routine for calulating date of Last Saturday and Current Tuesday
FORM calculate_posting_dates .
  DATA: lv_monday    TYPE sy-datum.
*Get the first day of the week.
  CALL FUNCTION 'BWSO_DATE_GET_FIRST_WEEKDAY'
    EXPORTING
      date_in  = sy-datum
    IMPORTING
      date_out = lv_monday.
*Calculate the  to date (saturday)
  gv_to_date   =  lv_monday - 2.
*Calculate the from date (sunday)
  gv_from_date =  lv_monday - 8.
  IF s_date-low IS NOT INITIAL.
    gv_from_date = s_date-low.
  ENDIF.
  IF s_date-high IS NOT INITIAL.
    gv_to_date = s_date-high.
  ENDIF.
ENDFORM.                    " calculate_posting_dates
*&      Form  build_posting_summary
      Routine for processing posting summary data table & compile
      in given output file table
FORM build_posting_summary .
  DATA : lv_kostl      TYPE kostl,
         lv_amount     TYPE wrbtr,
         lv_amount_str TYPE wrbtr.
  DATA : li_posting_summary  TYPE TABLE OF gt_posting_summary.
  DATA : lwa_posting_summary TYPE gt_posting_summary.
  LOOP AT gi_bseg INTO gwa_bseg.
    READ TABLE gi_bkpf INTO gwa_bkpf
         WITH KEY bukrs = gwa_bseg-bukrs
                  belnr = gwa_bseg-belnr
                  gjahr = gwa_bseg-gjahr.
  Routine to calcualte effective date in format YYYY-MM-DD
    PERFORM calculate_effective_date.
    gwa_posting_summary-effective_date =  gv_effective_date.
    gwa_posting_summary-company_code   =  gwa_bseg-bukrs.
    gwa_posting_summary-gl_key         =  gwa_bseg-hkont+4(6).
    gwa_posting_summary-cost_centre    =  gwa_bseg-kostl.
    gwa_posting_summary-profit_centre  =  gwa_bseg-prctr.
    gwa_posting_summary-project        =  gwa_bseg-aufnr.
    gwa_posting_summary-segment        =  gwa_bseg-segment.
  Remove the derived fields created in SAP while posting
    IF gwa_bseg-kostl IS NOT INITIAL OR
       gwa_bseg-aufnr IS NOT INITIAL.
      CLEAR: gwa_posting_summary-profit_centre,
             gwa_posting_summary-segment.
    ENDIF.
    IF gwa_bseg-aufnr IS NOT INITIAL.
  Substitution for internal order to costcenter for document type 'YS'
      SELECT SINGLE cost_centre
               INTO lv_kostl
               FROM ztfi_sub_costctr
              WHERE internal_order = gwa_bseg-aufnr.
      IF sy-subrc = 0.
        gwa_posting_summary-cost_centre = lv_kostl.
        CLEAR gwa_posting_summary-project.
      ENDIF.
    ENDIF.
    IF gwa_bseg-shkzg = gc_h.
      gwa_bseg-wrbtr = gwa_bseg-wrbtr * -1.
      gwa_posting_summary-amount = gwa_bseg-wrbtr.
    ELSE.
      gwa_posting_summary-amount = gwa_bseg-wrbtr.
    ENDIF.
    APPEND gwa_posting_summary TO gi_posting_summary.
    CLEAR gwa_posting_summary.
    CLEAR gwa_bseg.
  ENDLOOP.        "LOOP AT gi_bseg INTO gwa_bseg
Sort to find the summary
  SORT gi_posting_summary BY company_code
                             gl_key
                             cost_centre
                             profit_centre
                             project
                             segment.
*Summarise amount for unique entries
  LOOP AT gi_posting_summary INTO gwa_posting_summary.
    lv_amount_str = gwa_posting_summary-amount.
    lv_amount = lv_amount + lv_amount_str.
    AT END OF segment.
      gv_amount = lv_amount.
      PERFORM calculate_amount.
      gwa_posting_summary-amount = gv_posting_amount.
      APPEND gwa_posting_summary TO li_posting_summary.
      CLEAR lv_amount.
    ENDAT.
  ENDLOOP.
*Copy the summarised table back to summary table
  gi_posting_summary = li_posting_summary.
ENDFORM.                    " build_posting_summary
*&      Form  calculate_effective_date
      Routine to calcualte effective date in format YYYY-MM-DD
FORM calculate_effective_date .
  DATA: lv_date(8)            TYPE c,
        lv_yyyy(4)            TYPE c,
        lv_mm(2)              TYPE c,
        lv_dd(2)              TYPE c,
        lv_effective_date(10) TYPE c.
  DATA: lc_dash               TYPE c VALUE '-'.
  lv_date = gv_to_date.
  lv_yyyy = lv_date+0(4).
  lv_mm   = lv_date+4(2).
  lv_dd   = lv_date+6(2).
  CONCATENATE lv_yyyy
              lc_dash
              lv_mm
              lc_dash
              lv_dd
         INTO lv_effective_date.
  gv_effective_date = lv_effective_date.
ENDFORM.                    " calculate_effective_date
*&      Form  posting_record_selection
      Routine to select posted G/L records from database
FORM posting_record_selection .
  gwa_date-sign   = gc_i.
  gwa_date-option = gc_bt.
  gwa_date-low    = gv_from_date.
  gwa_date-high   = gv_to_date.
  APPEND gwa_date TO gr_date.
*Get the suspese GL accout number from ZTFI_SIXPARTKEY table.
  SELECT SINGLE gl_account
          FROM ztfi_sixpartkey
          INTO gv_suspense_accnt
        WHERE sixpartkey = gc_suspense_key .
  IF sy-subrc IS INITIAL.
Selection of records (other than suspended acc. no. 999999) posted
between last saturday and current tuesday where document type is 'YS'
    SELECT bukrs       "Company Code
           belnr       "Accounting Document Number
           gjahr       "Fiscal Year
           budat       "Posting Date
      FROM bkpf
      INTO TABLE gi_bkpf
      WHERE blart EQ p_ys
        AND budat IN gr_date.           "Change - MV - 16.04.2007 - FCDK902208
       AND cpudt IN gr_date.
    IF sy-subrc IS NOT INITIAL.
      WRITE / 'No records for current posting period, file not created.'(m03).
    ELSEIF sy-subrc IS INITIAL.
      READ TABLE gi_bkpf INTO gwa_bkpf INDEX 1.
      IF sy-subrc = 0.
        PERFORM calculate_effective_date.
      ENDIF.
  Selection of details of all records selected in above table
      SELECT bukrs          "Company Code
             belnr          "Document Number
             gjahr          "fiscal year
             buzei          "Line Item
             shkzg          "Debit/Credit Indicator
             wrbtr          "Amount in document currency
             kostl          "Cost Center
             aufnr          "Project / Order Number
             hkont          "General Ledger Account Key
             prctr          "Profit Center
             segment        "Segment
        FROM bseg
        INTO TABLE gi_bseg
        FOR ALL ENTRIES IN gi_bkpf
        WHERE bukrs = gi_bkpf-bukrs
          AND belnr = gi_bkpf-belnr
          AND gjahr = gi_bkpf-gjahr
          AND hkont <> gv_suspense_accnt.
      IF sy-subrc IS NOT INITIAL.
        WRITE / 'No records Found, file not created.'(002).
      ENDIF.
    ENDIF.
  ELSE.
    WRITE / 'Suspense GL account is not maintained in sixpart key look up table'(001).
  ENDIF.
ENDFORM.                    " posting_record_selection
*&      Form  calculate_amount
      Routine to concancate amouunt and debit/credit indicator
FORM calculate_amount .
  DATA: lv_amount(15)   TYPE c,
        lv_amount_1(12)  TYPE c,
        lv_amount_2(2)  TYPE c,
        lv_debit_credit TYPE c.
  IF gv_amount <= 0.
    lv_debit_credit = gc_credit.
    gv_amount = gv_amount * -1.
  ELSE.
    lv_debit_credit = gc_debit.
  ENDIF.
  lv_amount  = gv_amount.
  SPLIT lv_amount AT gc_dot
                INTO lv_amount_1
                     lv_amount_2.
  CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input  = lv_amount_1
    IMPORTING
      output = lv_amount_1.
  CONCATENATE lv_amount_1
              lv_amount_2
         INTO lv_amount
  SEPARATED BY gc_dot.
  CONCATENATE  lv_debit_credit lv_amount INTO gv_posting_amount.
ENDFORM.                    " calculate_amount
*&      Form  build_file_name
      Routine to make filename as eSFA_GL_CandC_YYYYMMDD.txt
FORM build_file_name .
  DATA: lv_date(8)       TYPE c,
        lv_file_name     TYPE string.
  DATA: lc_file_prefix(14) TYPE c VALUE 'eSFA_GL_CandC_',
        lc_file_suffix(4)  TYPE c VALUE '.txt'.
  lv_date = gv_to_date.
  CONCATENATE lc_file_prefix lv_date lc_file_suffix INTO lv_file_name.
  gv_file_name = lv_file_name.
ENDFORM.                    " build_file_name
*&      Form  download_on_application_server
      Routine to download file on application server
FORM download_on_application_server.
  DATA : lv_command   TYPE string,
         lv_lines     TYPE i.
  lv_command   = 'ZFII0431'.
File should be downloaded only if it is not empty
  IF gi_bseg IS NOT INITIAL.
Open file for output in text mode
    OPEN DATASET gv_server_file_name FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
    IF sy-subrc IS NOT INITIAL.
      WRITE / 'File could not be open.'(m01).
      EXIT.
    ENDIF.        "IF sy-subrc IS NOT INITIAL
    DESCRIBE TABLE gi_posting_summary LINES lv_lines.
    LOOP AT gi_posting_summary INTO gwa_posting_summary.
      IF sy-tabix <> lv_lines.
      Transfer data to application server
        TRANSFER gwa_posting_summary TO gv_server_file_name.
      ELSE.
      Transfer data to application server with out end of line
        TRANSFER gwa_posting_summary TO gv_server_file_name NO END OF LINE.
      ENDIF.
    ENDLOOP. " LOOP AT gi_posting_summary INTO gwa_posting_summary
Close file for output in text mode
    CLOSE DATASET gv_server_file_name.
    IF sy-subrc IS NOT INITIAL.
      WRITE / 'File could not be close.'(m02).
      EXIT.
    ELSEIF sy-subrc IS INITIAL.
      WRITE : / 'File Name:', gv_file_name .
      WRITE : / 'File Downloaded to Application Server successfully.'(m04).
    Call the OS command to run Shell script.
      PERFORM change_file_status USING lv_command.
    ENDIF.
  ENDIF.
ENDFORM.                    " download_on_application_server
*&      Form  clear_memory
      Clear all global variables
FORM clear_memory .
  REFRESH: gi_bkpf           ,
           gi_bseg           ,
           gi_posting_summary.
  REFRESH: gr_date.
  CLEAR: gwa_bseg           ,
         gwa_posting_summary,
         gwa_date           .
  CLEAR: gv_from_date       ,
         gv_to_date         ,
         gv_effective_date  ,
         gv_posting_amount  ,
         gv_file_name       ,
         gv_server_file_name.
ENDFORM.                    " clear_memory
***INCLUDE ZFI_GET_PHYSICAL_PATH .
*&      Form  get_physical_path
      Routine for compile physical path of file on Appln. Server
      from logical path and desired filename.
     -->P_P_L_PATH  text
     -->P_GV_FILE_NAME  text
     -->P_GC_OK  text
     <--P_GV_SERVER_FILE_NAME  text
FORM get_physical_path  USING    p_p_l_path      TYPE any
                                 p_gv_file_name  TYPE any
                                 p_gc_ok         TYPE any
                        CHANGING p_gv_server_file_name    TYPE any.
  CALL FUNCTION 'FILE_GET_NAME_USING_PATH'
    EXPORTING
      client                     = sy-mandt
      logical_path               = p_p_l_path
      operating_system           = sy-opsys
      file_name                  = p_gv_file_name
      eleminate_blanks           = p_gc_ok
    IMPORTING
      file_name_with_path        = p_gv_server_file_name
    EXCEPTIONS
      path_not_found             = 1
      missing_parameter          = 2
      operating_system_not_found = 3
      file_system_not_found      = 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.
ENDFORM.                    " get_physical_path