File to be stored in application server

Question

Hi all
Can anybody provide me sample code for storing file on application server.
very urgent.
regrd
Mona
Edited by: Alvaro Tejada Galindo on Apr 14, 2008 6:17 PM

Answer 1

: a program to create a file on the application server  *
                with the following fields,                    
*"Parameter............................................................
PARAMETERS:
  p_bukrs TYPE bkpf-bukrs,             " Company code
  p_gjahr TYPE bkpf-gjahr.             " Fiscal Year
*"Data declaration ....................................................
DATA:
  w_file TYPE localfile VALUE 'aa.txt'.
structure declaration to hold accounting document header            *
DATA:
  BEGIN OF fs_bkpf,
    bukrs LIKE bkpf-bukrs,             " Company code
    belnr LIKE bkpf-belnr,             " Accounting document number
    gjahr LIKE bkpf-gjahr,             " Fiscal Year
    blart LIKE bkpf-blart,             " Document type
    bldat LIKE bkpf-bldat,             " Document date in document
  END OF fs_bkpf.
Internal table to hold to hold accounting document data             *
DATA:
  t_bkpf LIKE STANDARD TABLE OF fs_bkpf.
PERFORM get_bkpf_data.
PERFORM download_to_sap.
*&      Form  get_bkpf_data
  This subroutine used to fetches data from bkpf                     *
  There are no interface parameters to be passed to this subroutine. *
FORM get_bkpf_data .
  SELECT bukrs                         " Company code
         belnr                         " Accounting document number
         gjahr                         " Fiscal Year
         blart                         " Document type
         bldat                         " Document date in document
   FROM  bkpf
   INTO  TABLE t_bkpf
   WHERE bukrs = p_bukrs
   AND   gjahr = p_gjahr .
ENDFORM.                               " get_bkpf_data
*&      Form  download_to_sap
  This subroutine used to download file on application server        *
  There are no interface parameters to be passed to this subroutine. *
FORM download_to_sap .
OPEN DATASET w_file                    " Opening the file
  FOR OUTPUT IN TEXT MODE
    ENCODING DEFAULT.
LOOP AT t_bkpf INTO fs_bkpf.
    TRANSFER fs_bkpf TO w_file.
ENDLOOP.                               " Loop at t_bkpf INTO fs_bkpf
  CLOSE DATASET w_file.                " Closing the file
ENDFORM.