Writing n records to unix in n files

Question

i need to write a file to unix my requirement is if i have more than 65000 records in my final internal table
<fs_table> then i have to divide the records in multiples of 65000 and write them to unix.
in sperate files.i have wrirren this code for 65000 records .
DESCRIBE TABLE fs_table LINES w_line.
IF W_LINE < 65000.
Create Unix file
  OPEN DATASET p_unix FOR OUTPUT IN TEXT MODE MESSAGE v_message.
  IF NOT sy-subrc IS INITIAL.
    MESSAGE e398(00) WITH text-008 p_unix v_message space.
  ENDIF.
** Write header to unix file
  LOOP AT gt_fieldcat1 INTO st_fieldcat1.
    CONCATENATE st_rec st_fieldcat1-seltext_l
           INTO st_rec
           SEPARATED BY '|'.
  ENDLOOP.
  CONDENSE st_rec.
  TRANSFER st_rec TO p_unix.
** Write data to unix file
  LOOP AT  <fs_table>  ASSIGNING <fs_struc>.
    CLEAR: st_rec.
    DO.
      ASSIGN COMPONENT sy-index OF STRUCTURE <fs_struc> TO
                                             <field>.
      IF sy-subrc NE 0.
        EXIT.
      ENDIF.
      v_field = <field>.
      IF v_field IS INITIAL.
        CONCATENATE st_rec v_field ' |'
            INTO st_rec .
      ELSE.
        CONCATENATE st_rec v_field '|'
            INTO st_rec.
      ENDIF.
    ENDDO.
    TRANSFER st_rec TO p_unix.
  ENDLOOP.
Close unix file
  CLOSE DATASET p_unix.
else??

Answer 1

Hi Reva,
Hope this logic works for your requirement
*_ Initialize variable
lv_new_file = 'X'.
lv_new_start = 1.
clear: lv_new_file_surfix.
*_ Loop 1: to create multiple file with max 65,000 records per file
while lv_new_file = 'X'.
*_ Identify unique file naming convention
  add 1 to lv_new_file_surfix.
  concatenate '..\new_file' lv_new_file_surfix into p_unix.
*_ Open connection and write header information
  open dataset using p_unix.
  transfer header..
*_ Write data
  clear lv_counter.
*_ Loop 2: to pass data from <fs_itab> into file
  loop at <fs_itab> from lv_new_start.
*_ Validate if the record has already hit 65,000 exit the loop 2 and create a new file
    add 1 to lv_counter.
    if lv_counter > 65000.
      lv_new_start = sy-tabix.
      exit.
    endif.
    move data to unix.
    transfer data to unix.
*_ End the looping process of 1 and 2
    at end.
      clear lv_new_file.
    endat.
  endloop.
*_ close connection
  close dataset.
endwhile.