Open data set and close data set

Question

hi all,
i have some doubt in open/read/close data set
how to transfer data from internal table to sequential file, how we find sequential file.
thanks and regards
chaitanya

Answer 1

Hi Chaitanya,
Refer Sample Code:
constants:   c_split         TYPE c
                           VALUE cl_abap_char_utilities=>horizontal_tab,
           c_path          TYPE char100
                           VALUE '/local/data/interface/A28/DM/OUT'.
Selection Screen
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS : rb_pc    RADIOBUTTON GROUP r1 DEFAULT 'X'
                                USER-COMMAND ucomm,    "For Presentation
             p_f1     LIKE rlgrap-filename
                                      MODIF ID rb1,    "Input File
             rb_srv   RADIOBUTTON GROUP r1,             "For Application
             p_f2     LIKE rlgrap-filename
                                     MODIF ID rb2,     "Input File
             p_direct TYPE char128 MODIF ID abc DEFAULT c_path.
                                                       "File directory
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_f1.
*-- Browse Presentation Server
  PERFORM f1000_browse_presentation_file.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_f2.
*-- Browse Application Server
  PERFORM f1001_browse_appl_file.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF rb_pc = 'X' AND screen-group1 = 'RB2'.
      screen-input = '0'.
      MODIFY SCREEN.
    ELSEIF rb_srv = 'X' AND screen-group1 = 'RB1'.
      screen-input = '0'.
      MODIFY SCREEN.
    ENDIF.
    IF screen-group1 = 'ABC'.
      screen-input = '0'.
      MODIFY SCREEN.
    ENDIF.
  ENDLOOP.
*&      Form  f1000_browse_presentation_file
      Pick up the filepath for the file in the presentation server
FORM f1000_browse_presentation_file .
  CONSTANTS: lcl_path TYPE char20 VALUE 'C:'.
  CALL FUNCTION 'WS_FILENAME_GET'
    EXPORTING
      def_path         = lcl_path
      mask             = c_mask  "',.,..'
      mode             = c_mode
      title            = text-006
    IMPORTING
      filename         = p_f1
    EXCEPTIONS
      inv_winsys       = 1
      no_batch         = 2
      selection_cancel = 3
      selection_error  = 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.
    flg_pre = c_x.
  ENDIF.
ENDFORM.                    " f1000_browse_presentation_file
*&      Form  f1001_browse_appl_file
   Pick up the file path for the file in the application server
FORM f1001_browse_appl_file .
  DATA:  lcl_directory  TYPE char128.
  lcl_directory  = p_direct.
  CALL FUNCTION '/SAPDMC/LSM_F4_SERVER_FILE'
    EXPORTING
      directory        = lcl_directory
      filemask         = c_mask
    IMPORTING
      serverfile       = p_f2
    EXCEPTIONS
      canceled_by_user = 1
      OTHERS           = 2.
  IF sy-subrc <> 0.
   MESSAGE e000(zmm) WITH text-039.
   flg_app = 'X'.
  ENDIF.
ENDFORM.                    " f1001_browse_appl_file
*&      Form  f1003_pre_file
    Upload the file from the presentation server
FORM f1003_pre_file .
  DATA: lcl_filename TYPE string.
  lcl_filename = p_f1.
  IF p_f1 IS NOT INITIAL.
    CALL FUNCTION 'GUI_UPLOAD'
      EXPORTING
        filename                = lcl_filename
        filetype                = 'ASC'
        has_field_separator     = 'X'
      TABLES
        data_tab                = i_input
      EXCEPTIONS
        file_open_error         = 1
        file_read_error         = 2
        no_batch                = 3
        gui_refuse_filetransfer = 4
        invalid_type            = 5
        no_authority            = 6
        unknown_error           = 7
        bad_data_format         = 8
        header_not_allowed      = 9
        separator_not_allowed   = 10
        header_too_long         = 11
        unknown_dp_error        = 12
        access_denied           = 13
        dp_out_of_memory        = 14
        disk_full               = 15
        dp_timeout              = 16
        OTHERS                  = 17.
    IF sy-subrc <> 0.
      MESSAGE s000 WITH text-031.
      EXIT.
    ENDIF.
  ELSE.
   PERFORM populate_error_log USING space
                                    text-023.
  ENDIF.
ENDFORM.                    " f1003_pre_file
*&      Form  f1004_app_file
     upload the file from the application server
FORM f1004_app_file .
  REFRESH: i_input.
  OPEN DATASET p_f2 IN TEXT MODE ENCODING DEFAULT FOR INPUT.
  IF sy-subrc EQ 0.
    DO.
      READ DATASET p_f2 INTO  wa_input_rec.
      IF sy-subrc EQ 0.
*-- Split The CSV record into Work Area
        PERFORM f0025_record_split.
*-- Populate internal table.
        APPEND wa_input TO i_input.
        CLEAR wa_input.
        IF sy-subrc <> 0.
          MESSAGE s000 WITH text-030.
          EXIT.
        ENDIF.
      ELSE.
        EXIT.
      ENDIF.
    ENDDO.
  ENDIF.
ENDFORM. " f1004_app_file
Move the assembly layer file into the work area
FORM f0025_record_split .
  CLEAR wa_input.
  SPLIT wa_input_rec AT c_split INTO
    wa_input-legacykey
    wa_input-bu_partner
    wa_input-anlage.
ENDFORM.                    " f0025_record_split
Reward points if this helps.
Manish