I want to put header while stroing file in application server

Question

Hi Guru,
   Can anybody tell how to put header while stroing file in application server.
in the below pgm data is coming i want to put heading .if we see in al11 transaction the header should come .plese give on eg in the code itself.its urgent
eg:
material number
100
200
declarations...................................................
tables: bkpf.                          " Accounting Document Header
*"Selection screen elements............................................
parameters:
  p_burks like bkpf-bukrs.             " Company Code
select-options:
  s_gjahr for bkpf-gjahr.              " Fiscal year
Type declaration of the structure to hold Accounting Document Header*
data:
  begin of fs_bkpf,
    bukrs type bkpf-bukrs,             " Company Code
    belnr type bkpf-belnr,             " Accounting Document Number
    gjahr type bkpf-gjahr,             " Fiscal year
    blart type bkpf-blart,             "        Document type
    bldat type bkpf-bldat,             " Document date in document
  end of fs_bkpf.
Internal table to hold Accounting Document Header                   *
data:
  t_bkpf like standard table
           of fs_bkpf.
Type declaration of the structure to hold file data                 *
data:
  begin of fs_table,
    str type string,
  end of fs_table.
Internal table to hold file data                                    *
data:
  t_table like standard table
            of fs_table.
field-symbols: <fs>.
*" Data declarations...................................................
Work variables                                                      *
data:
  w_char(50)      type c,
  w_file_name(50) type c value 'YH645_050103'.
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 eq p_burks
   and gjahr in s_gjahr.
if sy-subrc eq 0.
  loop at t_bkpf into fs_bkpf.
    do.
      assign component sy-index of structure fs_bkpf to <fs>.
      if sy-subrc ne 0.
        exit.
      else.
        move <fs> to w_char.
        if sy-index eq 1.
          fs_table-str = <fs>.
        else.
          concatenate fs_table-str ',' w_char into fs_table-str.
        endif.                         " IF SY-INDEX...
      endif.                           " IF SY-SUBRC...
    enddo.                             " DO...
    append fs_table to t_table.
  endloop.                             " LOOP AT T_KNA1...
endif.                                 " IF SY-SUBRC...
open dataset w_file_name for output in text mode encoding default.
loop at t_table into fs_table.
  transfer fs_table-str to w_file_name.
endloop.                               " LOOP AT T_TABLE...

Answer 1

Hi,
may i know what kind of heading you want to display?
like date, filename, time etc
then modify the below code:
*&      Form  send_statistic
     Create the status Report on application Server
   --->  pv_rlines  - Total No of Records in Internal table          *
   --->  pv_slines  - Total No of Successful records                 *
   --->  pv_elines  - Total No of Errornous  records                 *
   --->  pv_path    - File Path  where the file to be created        *
   --->  pv_flag    - Flag to check for A/c group                    *
FORM sub_send_statistic USING  pv_rlines  TYPE int4
                               pv_slines  TYPE int4
                               pv_elines  TYPE int4
                               pv_path    TYPE salfile-longname
                               pv_name    TYPE rlgrap-filename
                               pv_flag    TYPE char1.
  CLEAR : i_tab,
          wa_tab.
Convert date to MM/DD/YYYY format
  PERFORM date_convert.
Convert Time to HH:MM:SS format
  CONCATENATE sy-uzeit+0(2)
              c_colon
              sy-uzeit+2(2)
              c_colon
              sy-uzeit+4(2)
         INTO v_time1.
Build the Output File name
  IF   p_sold  = c_x
  AND  pv_flag = c_x.
    CONCATENATE c_objid
                c_us
                c_z001
                c_us
                sy-datum
                c_us
                sy-uzeit
           INTO v_file.
  ENDIF.  " IF   p_sold = c_x
  IF p_cons = c_x.
    CONCATENATE c_objid
                c_us
                c_z008
                c_us
                sy-datum
                c_us
                sy-uzeit
           INTO v_file.
  ELSEIF p_sold = c_x
  AND    pv_flag <> c_x.
    CONCATENATE c_objid
                c_us
                sy-datum
                c_us
                sy-uzeit
           INTO v_file.
  ENDIF.  " IF p_cons = c_x
Build the Complete Output File Path
  CONCATENATE pv_path
              c_slash
              v_file
         INTO v_outfile.
Populate the data required for output into an internal table and
then transfer the table contents to file on application server
DATA UPLOAD STATISTICS
  wa_tab-rec = text-001.
  APPEND wa_tab TO i_tab.
  CLEAR wa_tab.
TITLE
  IF   p_sold  = c_x
  AND  pv_flag <> c_x.
    sy-title = text-t17.
  ENDIF.  " IF   p_sold = c_x
  IF  p_sold  = c_x
  AND pv_flag = c_x.
    sy-title  = text-t16.
  ENDIF.  " IF  p_sold = c_x
  IF  p_cons  = c_x
  AND pv_flag = c_x.
    sy-title  = text-t19.
  ENDIF.  " IF  p_cons = c_x
  wa_tab-rec+0(7)   = text-002.
  wa_tab-rec+7(60)  = sy-title.
  APPEND wa_tab TO i_tab.
  CLEAR wa_tab.
Date & Time
  wa_tab-rec+0(5)   = text-012.
  CONDENSE v_date NO-GAPS.
  wa_tab-rec+6(10)  = v_date.
  wa_tab-rec+60(10) = text-003.
  wa_tab-rec+70(15) = v_time1.
  APPEND wa_tab TO i_tab.
  CLEAR wa_tab.
Folder Name
  wa_tab-rec+0(18)  = text-005.
  wa_tab-rec+19(72) = pv_path.
  APPEND wa_tab TO i_tab.
  CLEAR wa_tab.
File Name
  wa_tab-rec+0(18)  = text-006.
---Begin of addition -Shivakumar - 09-05-2007--
  wa_tab-rec+19(72) = pv_name.
---Begin of addition -Shivakumar - 09-05-2007--
  APPEND wa_tab TO i_tab.
  CLEAR wa_tab.
Records Read
  CLEAR v_count.
  v_data   = pv_rlines.
  v_count  = STRLEN( v_data ).
  CONDENSE v_data NO-GAPS.
  wa_tab-rec+0(46)  = text-007.
  wa_tab-rec+47(4)  = v_data.
  APPEND wa_tab TO i_tab.
  CLEAR : wa_tab,
          v_data.
Successfull Records
  CLEAR v_count.
  v_data   = pv_slines.
  v_count  = STRLEN( v_data ).
  CONDENSE v_data NO-GAPS.
  wa_tab-rec+0(46)  = text-008.
  wa_tab-rec+47(4)  = v_data.
  APPEND wa_tab TO i_tab.
  CLEAR : wa_tab,
        v_data.
Error Records
  CLEAR v_count.
  v_data   = pv_elines.
  v_count  = STRLEN( v_data ).
  CONDENSE v_data NO-GAPS.
  wa_tab-rec+0(46)  = text-009.
  wa_tab-rec+47(4)  = v_data.
  APPEND wa_tab TO i_tab.
  CLEAR : wa_tab,
          v_data.
  v_mesg = text-t04.
  IF   p_sold  = c_x
  AND  pv_flag <> c_x.
    MOVE i_tab  TO i_file.
  ENDIF.  " IF   p_sold = c_x
  IF  p_sold  = c_x
  AND pv_flag = c_x.
    MOVE i_tab  TO i_file1.
  ENDIF.  " IF  p_sold = c_x
  IF NOT i_tab IS INITIAL.
Open the file on Application server to write the report
    OPEN DATASET v_outfile
             FOR OUTPUT IN TEXT MODE
        ENCODING DEFAULT MESSAGE v_mesg.
    IF sy-subrc <> 0.
      MESSAGE e000(zconversions) WITH v_mesg.
    ELSE.  " IF sy-subrc <> 0
Transfer details to the file on application server
      CLEAR wa_tab.
      LOOP AT  i_tab INTO wa_tab.
        TRANSFER wa_tab-rec TO v_outfile.
        CLEAR wa_tab.
      ENDLOOP.  " LOOP AT  i_tab INTO wa_tab
Close the file
      CLOSE DATASET v_outfile.
    ENDIF.  " IF sy-subrc <> 0
  ENDIF.  " IF NOT i_tab IS INITIAL
ENDFORM.                    " Create_Report