Skip to Content

how to upload text file

hi

i want to create BDC program for the data uploding.. but i dont hv much knwloadge of about it. i need to sample code the data upload program. i hv to upload text file format. im using gui_upload funtion if u hv any sample plz send me it plz... thnx

regad

nawa

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

3 Answers

  • author's profile photo Former Member
    Former Member
    Posted on Feb 01, 2008 at 07:49 AM

    here you are sir

    &----


    *& Report Z11VIVEKPROGRAM25 *

    *& *

    &----


    *& *

    *& *

    &----


    report z11vivekprogram25 message-id z11vivek0816.

    data: begin of vend_master occurs 0,

    vend_code(16),

    comp_code(4),

    vend_acc(4),

    vend_name(40),

    src_hlp(20),

    country(3),

    spras(2),

    curr(5),

    end of vend_master.

    data: begin of vend_error occurs 0,

    vend_code(16),

    comp_code(4),

    vend_acc(4),

    vend_name(40),

    src_hlp(20),

    country(3),

    spras(2),

    curr(5),

    end of vend_error.

    data: begin of vend_field_error occurs 0,

    vend_code(16),

    field(10),

    descr(40),

    end of vend_field_error.

    data: it_tab like bdcdata occurs 0 with header line.

    start-of-selection.

    call function 'GUI_UPLOAD'

    exporting

    filename = 'C:\Documents and Settings\vgaur\My Documents\VENDOR.TXT'

    filetype = 'ASC'

    • HAS_FIELD_SEPARATOR = ' '

    • HEADER_LENGTH = 0

    • READ_BY_LINE = 'X'

    • DAT_MODE = ' '

    • CODEPAGE = ' '

    • IGNORE_CERR = ABAP_TRUE

    • REPLACEMENT = '#'

    • CHECK_BOM = ' '

    • IMPORTING

    • FILELENGTH =

    • HEADER =

    tables

    data_tab = vend_master

    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 ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

    • WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

    endif.

    loop at vend_master.

    if vend_master-comp_code <> '0001'.

    vend_field_error-vend_code = vend_master-vend_code.

    vend_field_error-field = 'COMP_CODE'.

    vend_field_error-descr = 'INCORRECT COMPANY CODE'.

    vend_error-comp_code = vend_master-comp_code.

    append vend_field_error.

    append vend_error.

    endif.

    if vend_master-spras <> 'EN' or vend_master-spras <> 'HN'.

    vend_field_error-vend_code = vend_master-vend_code.

    vend_field_error-field = 'SPRAS'.

    vend_field_error-descr = 'INVALID LANGUAGE'.

    append vend_field_error.

    vend_error-spras = vend_master-spras.

    modify vend_error from vend_error-spras.

    endif.

    .

    write:/ vend_master-vend_code,

    vend_master-comp_code,

    vend_master-vend_acc,

    vend_master-vend_name,

    vend_master-src_hlp,

    vend_master-country,

    vend_master-curr.

    uline.

    uline.

    clear it_tab.

    it_tab-program = 'SAPMF02K'.

    it_tab-dynpro = 0107.

    it_tab-dynbegin = 'X'.

    append it_tab.

    clear it_tab.

    it_tab-fnam = 'BDC_OKCODE'.

    it_tab-fval = '/00'.

    append it_tab.

    clear it_tab.

    it_tab-fnam = 'RF02K-LIFNR'.

    it_tab-fval = vend_master-vend_code.

    append it_tab.

    clear it_tab.

    it_tab-fnam = 'RF02K-EKORG'.

    it_tab-fval = vend_master-comp_code.

    append it_tab.

    clear it_tab.

    it_tab-fnam = 'RF02K-KTOKK'.

    it_tab-fval = vend_master-vend_acc.

    append it_tab.

    clear it_tab.

    it_tab-program = 'SAPMF02K'.

    it_tab-dynpro = 0110.

    it_tab-dynbegin = 'X'.

    append it_tab.

    clear it_tab.

    it_tab-fnam = 'BDC_OKCODE'.

    it_tab-fval = '/00'.

    append it_tab.

    clear it_tab.

    it_tab-fnam = 'LFA1-NAME1'.

    it_tab-fval = vend_master-vend_name.

    append it_tab.

    clear it_tab.

    it_tab-fnam = 'LFA1-SORTL'.

    it_tab-fval = vend_master-src_hlp.

    append it_tab.

    clear it_tab.

    it_tab-fnam = 'LFA1-LAND1'.

    it_tab-fval = vend_master-country.

    append it_tab.

    clear it_tab.

    it_tab-fnam = 'LFA1-SPRAS'.

    it_tab-fval = vend_master-spras.

    append it_tab.

    clear it_tab.

    it_tab-program = 'SAPMF02K'.

    it_tab-dynpro = 0310.

    it_tab-dynbegin = 'X'.

    append it_tab.

    clear it_tab.

    it_tab-fnam = 'BDC_OKCODE'.

    it_tab-fval = '/00'.

    append it_tab.

    clear it_tab.

    it_tab-fnam = 'LFM1-WAERS'.

    it_tab-fval = vend_master-curr.

    append it_tab.

    call transaction 'MK01' using it_tab mode 'A'.

    refresh it_tab.

    endloop.

    loop at vend_field_error.

    write:/ vend_field_error-vend_code ,vend_field_error-field ,

    vend_field_error-descr.

    uline.

    uline.

    endloop.

    loop at vend_error.

    write:/ vend_error-vend_code,

    vend_error-comp_code,

    vend_error-vend_acc,

    vend_error-vend_name,

    vend_error-src_hlp,

    vend_error-country,

    vend_error-curr.

    uline.

    uline.

    endloop.

    plz reward if useful

    vivek

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Feb 01, 2008 at 07:50 AM

    Check the following code:

    Selection screen :

    SELECTION-SCREEN BEGIN OF BLOCK b4 WITH FRAME TITLE text-020.
    SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001 .
    PARAMETERS: p_locl  RADIOBUTTON GROUP g1                   " desktop file
                        DEFAULT 'X' USER-COMMAND fil,
                p_phys  RADIOBUTTON GROUP g1.                  " appln server file
    SELECTION-SCREEN END OF BLOCK b1.
    SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002 .
    PARAMETERS: p_ifile  TYPE   dxfile-filename LOWER CASE,       " source file
                p_afile  TYPE   dxfile-filename LOWER CASE,       " asset class file
                p_cfile  TYPE   dxfile-filename LOWER CASE,       " Cost center file
                p_dfile  TYPE   dxfile-filename LOWER CASE,       " Depr key  file
                p_ofile  TYPE   dxfile-filename LOWER CASE.       " Audit file
    SELECTION-SCREEN END OF BLOCK b2.
    SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-015.
    PARAMETERS: p_test RADIOBUTTON GROUP g2 DEFAULT 'X',        " test run
                p_create RADIOBUTTON GROUP g2.                  " data migretion
    SELECTION-SCREEN END OF BLOCK b3.
    SELECTION-SCREEN END OF BLOCK b4.
    
    

    Main program :

    REPORT  zfaac900
            LINE-SIZE 132
            LINE-COUNT 65
            NO STANDARD PAGE HEADING
            MESSAGE-ID ZFAA.
    
    
    *----------------------------------------------------------------------*
    * includes
    *----------------------------------------------------------------------*
    INCLUDE: zfaac900_top,
             zfaac900_selection_screen,
             zfaac900_subroutine.
    
    *---------------------------------------------------------------------
    * AT SELECTION SCREEN ON VALUE REQUEST
    *---------------------------------------------------------------------
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_ifile.
      PERFORM help_input_file USING p_phys p_locl CHANGING p_ifile.
    
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_afile.
      PERFORM help_asset_file USING p_phys p_locl CHANGING p_afile.
    
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_cfile.
      PERFORM help_cost_file USING p_phys p_locl CHANGING p_cfile.
    
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_dfile.
      PERFORM help_depr_file USING p_phys p_locl CHANGING p_dfile.
    
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_ofile.
      PERFORM help_audit_file USING p_phys p_locl CHANGING p_ofile.
    
    
    *---------------------------------------------------------------------
    * AT SELECTION-SCREEN
    *---------------------------------------------------------------------
    AT SELECTION-SCREEN.
    
      PERFORM check_screen USING p_ifile p_afile p_cfile p_dfile
                                 p_ofile p_locl p_phys.
    
    
    
    *---------------------------------------------------------------------
    * TOP-OF-PAGE
    *---------------------------------------------------------------------
    TOP-OF-PAGE.
    
      ULINE.
       PERFORM sjm_heading IN PROGRAM zacai0005.
      ULINE.
    
    
    *---------------------------------------------------------------------
    * START_OF_SELECTION
    *---------------------------------------------------------------------
    
    START-OF-SELECTION.
    
      PERFORM get_input USING    p_ifile p_afile p_cfile p_dfile
                        CHANGING i_input i_asset i_cost i_depr.
    
    

    Subroutines :

    *&---------------------------------------------------------------------*
    *&      Form  help_input_file
    *&---------------------------------------------------------------------*
    *        text
    *----------------------------------------------------------------------*
    
    FORM help_input_file  USING    p_phys_file   TYPE c
                                   p_locl_file   TYPE c
                          CHANGING p_source_path TYPE any.
    
      IF p_phys_file EQ 'X'.
        CALL FUNCTION 'F4_DXFILENAME_4_DYNP'
          EXPORTING
            dynpfield_filename = 'P_IFILE'
            dyname             = sy-repid
            dynumb             = sy-dynnr
            filetype           = 'P'
            location           = 'A'.
    
      ELSEIF p_locl_file EQ 'X'.
        PERFORM help_local_file CHANGING p_source_path.
      ENDIF.
    
    ENDFORM.                    " help_input_file
    
    *&---------------------------------------------------------------------*
    *&      Form  help_asset_file
    *&---------------------------------------------------------------------*
    *       text
    *----------------------------------------------------------------------*
    FORM help_asset_file  USING    p_phys_file   TYPE c
                                   p_locl_file   TYPE c
                          CHANGING p_source_path TYPE any.
    
      IF p_phys_file EQ 'X'.
        CALL FUNCTION 'F4_DXFILENAME_4_DYNP'
          EXPORTING
            dynpfield_filename = 'P_AFILE'
            dyname             = sy-repid
            dynumb             = sy-dynnr
            filetype           = 'P'
            location           = 'A'.
    
      ELSEIF p_locl_file EQ 'X'.
        PERFORM help_local_file CHANGING p_source_path.
      ENDIF.
    
    ENDFORM.                    " help_asset_file
    
    *&---------------------------------------------------------------------*
    *&      Form  help_cost_file
    *&---------------------------------------------------------------------*
    *       text
    *----------------------------------------------------------------------*
    
    FORM help_cost_file  USING     p_phys_file   TYPE c
                                   p_locl_file   TYPE c
                          CHANGING p_source_path TYPE any.
    
      IF p_phys_file EQ 'X'.
        CALL FUNCTION 'F4_DXFILENAME_4_DYNP'
          EXPORTING
            dynpfield_filename = 'P_CFILE'
            dyname             = sy-repid
            dynumb             = sy-dynnr
            filetype           = 'P'
            location           = 'A'.
    
      ELSEIF p_locl_file EQ 'X'.
        PERFORM help_local_file CHANGING p_source_path.
      ENDIF.
    
    ENDFORM.                    " help_cost_file
    
    
    *&---------------------------------------------------------------------*
    *&      Form  help_depr_file
    *&---------------------------------------------------------------------*
    *       text
    *----------------------------------------------------------------------*
    
    FORM help_depr_file  USING     p_phys_file   TYPE c
                                   p_locl_file   TYPE c
                          CHANGING p_source_path TYPE any.
    
      IF p_phys_file EQ 'X'.
        CALL FUNCTION 'F4_DXFILENAME_4_DYNP'
          EXPORTING
            dynpfield_filename = 'P_DFILE'
            dyname             = sy-repid
            dynumb             = sy-dynnr
            filetype           = 'P'
            location           = 'A'.
    
      ELSEIF p_locl_file EQ 'X'.
        PERFORM help_local_file CHANGING p_source_path.
      ENDIF.
    ENDFORM.                    " help_depr_file
    
    *&---------------------------------------------------------------------*
    *&      Form  help_audit_file
    *&---------------------------------------------------------------------*
    *        text
    *----------------------------------------------------------------------*
    
    FORM help_audit_file  USING    p_phys_file TYPE c
                                   p_locl_file TYPE c
                          CHANGING p_audit_path TYPE any.
    
      IF p_phys_file EQ 'X'.
        CALL FUNCTION 'F4_DXFILENAME_4_DYNP'
          EXPORTING
            dynpfield_filename = 'P_OFILE'
            dyname             = sy-repid
            dynumb             = sy-dynnr
            filetype           = 'P'
            location           = 'A'.
      ELSEIF p_locl_file EQ 'X'.
        PERFORM help_local_file CHANGING p_audit_path.
      ENDIF.
    
    ENDFORM.                    " help_audit_file
    *&---------------------------------------------------------------------*
    *&      Form  help_local_file
    *&---------------------------------------------------------------------*
    *       Local File Path
    *----------------------------------------------------------------------*
    
    FORM help_local_file  CHANGING p_path TYPE any .
    
      DATA:  lt_file_table TYPE filetable,
             la_file_table LIKE LINE OF lt_file_table,
             l_rc TYPE i,
             l_pcdsn TYPE cffile-filename.
    
      REFRESH lt_file_table.
      CLEAR la_file_table.
      CALL METHOD cl_gui_frontend_services=>file_open_dialog
        CHANGING
          file_table = lt_file_table
          rc         = l_rc.
    
      READ TABLE lt_file_table INTO la_file_table INDEX 1.
      l_pcdsn = la_file_table-filename.
    
      MOVE l_pcdsn TO p_path.
    
    ENDFORM.                    " help_local_file
    *&---------------------------------------------------------------------*
    *&      Form  check_phys_file
    *&---------------------------------------------------------------------*
    *      Validation of Physical  File
    *----------------------------------------------------------------------*
    FORM check_phys_file  USING  p_file TYPE any.
    
      DATA: l_str(300) TYPE c.
      CLEAR l_str.
    
      OPEN DATASET p_file IN TEXT MODE FOR INPUT ENCODING DEFAULT.
      IF sy-subrc <> 0.
        IF g_file_flag = 'I'.
          MESSAGE e000 WITH text-021.
        ELSEIF g_file_flag = 'A'.
          MESSAGE e000 WITH text-095.
        ELSEIF g_file_flag = 'C'.
          MESSAGE e000 WITH text-096.
        ELSEIF g_file_flag = 'D'.
          MESSAGE e000 WITH text-097.
        ENDIF.
      ENDIF.
    
      READ DATASET p_file INTO l_str.
      IF sy-subrc <> 0.
        IF g_file_flag = 'I'.
          MESSAGE e000 WITH text-017.
        ELSEIF g_file_flag = 'A'.
          MESSAGE e000 WITH text-098.
        ELSEIF g_file_flag = 'C'.
          MESSAGE e000 WITH text-099.
        ELSEIF g_file_flag = 'D'.
          MESSAGE e000 WITH text-100.
        ENDIF.
      ENDIF.
    
      CLEAR: g_file_flag.
    
      CLOSE DATASET p_file.
    
    ENDFORM.                    " check_phys_file
    
    *&---------------------------------------------------------------------*
    *&      Form  check_local_file
    *&---------------------------------------------------------------------*
    *       Validation of Local File
    *----------------------------------------------------------------------*
    
    FORM check_local_file  USING    p_file TYPE any.
    
      DATA:  l_size       TYPE     i.
      CLEAR: l_size.
    
    
      CALL FUNCTION 'TMP_GUI_GET_FILE_EXIST'
        EXPORTING
          fname          = p_file
        IMPORTING
    *      exist          = l_exist
          filesize       = l_size
        EXCEPTIONS
          fileinfo_error = 1
          OTHERS         = 2.
    
      IF sy-subrc <> 0.
        IF g_file_flag = 'I'.
          MESSAGE e000 WITH text-016.
        ELSEIF g_file_flag = 'A'.
          MESSAGE e000 WITH text-101.
        ELSEIF g_file_flag = 'C'.
          MESSAGE e000 WITH text-102.
        ELSEIF g_file_flag = 'D'.
          MESSAGE e000 WITH text-103.
        ENDIF.
      ENDIF.
    
    
      IF l_size IS INITIAL.
        IF g_file_flag = 'I'.
          MESSAGE e000 WITH text-024.
        ELSEIF g_file_flag = 'A'.
          MESSAGE e000 WITH text-107.
        ELSEIF g_file_flag = 'C'.
          MESSAGE e000 WITH text-108.
        ELSEIF g_file_flag = 'D'.
          MESSAGE e000 WITH text-109.
        ENDIF.
      ENDIF.
    
      CLEAR: g_file_flag.
    
    ENDFORM.                    " check_local_file
    
    
    *&---------------------------------------------------------------------*
    *&      Form  get_input
    *&---------------------------------------------------------------------*
    *       To gate input data from local file or from application server
    *----------------------------------------------------------------------*
    
    FORM get_input USING     p_ifilename TYPE   any
                             p_afilename TYPE   any
                             p_cfilename TYPE   any
                             p_dfilename TYPE   any
                   CHANGING  p_input_table TYPE t_input_table
                             p_asset_table TYPE t_asset_table
                             p_cost_table  TYPE t_cost_table
                             p_depr_table TYPE t_depr_table.
    
    
    * to populate the input table
      PERFORM upload_file USING p_ifilename CHANGING i_local.
      g_file_flag = 'I'.
      PERFORM split_localtable CHANGING p_input_table p_asset_table
                                        p_cost_table  p_depr_table.
      CLEAR g_file_flag.
      REFRESH i_local.
    
    * to populate the asset class table
      PERFORM upload_file USING p_afilename CHANGING i_local.
      g_file_flag = 'A'.
      PERFORM split_localtable CHANGING p_input_table p_asset_table
                                        p_cost_table  p_depr_table  .
      CLEAR g_file_flag.
      REFRESH i_local.
    
    * to populate the cost center table
      PERFORM upload_file USING p_cfilename CHANGING i_local.
      g_file_flag = 'C'.
      PERFORM split_localtable CHANGING p_input_table p_asset_table
                                        p_cost_table  p_depr_table  .
      CLEAR g_file_flag.
      REFRESH i_local.
    
    * to populate the depr key table
      PERFORM upload_file USING p_dfilename CHANGING i_local.
      g_file_flag = 'D'.
      PERFORM split_localtable CHANGING p_input_table p_asset_table
                                        p_cost_table  p_depr_table  .
      CLEAR g_file_flag.
      REFRESH i_local.
    
    ENDFORM.                    " get_input
    
    *&---------------------------------------------------------------------*
    *&      Form  upload_file
    *&---------------------------------------------------------------------*
    *       text
    *----------------------------------------------------------------------*
    
    FORM upload_file  USING    p_filename TYPE any
                 CHANGING p_local_table TYPE t_local_table.
    
    * To get the input data from desktop file
      IF p_locl = 'X'.
    
        DATA:  l_file TYPE string.
        CLEAR: l_file,
               p_local_table.
    
        l_file = p_filename.
    
        CALL FUNCTION 'GUI_UPLOAD'
          EXPORTING
            filename                = l_file
            filetype                = 'ASC'
          TABLES
            data_tab                = p_local_table
          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 e002 WITH l_file.
        ENDIF.
      ELSE.
    *    To get the data from application server file
        OPEN DATASET p_filename IN TEXT MODE FOR INPUT ENCODING DEFAULT.
        IF sy-subrc <> 0.
          MESSAGE e001 WITH p_filename.
        ENDIF.
        CLEAR: wa_local.
    
        DO.
          READ DATASET p_filename INTO wa_local.
          IF sy-subrc <> 0.
            EXIT.
          ENDIF.
    
          APPEND wa_local TO p_local_table.
          CLEAR: wa_local.
        ENDDO.
        CLOSE DATASET p_filename.
    
      ENDIF.
    
    ENDFORM.                    " upload_file
    *&---------------------------------------------------------------------*
    *&      Form  split_localtable
    *&---------------------------------------------------------------------*
    *       text
    *----------------------------------------------------------------------*
    FORM split_localtable CHANGING p_input_tab TYPE t_input_table
                                   p_asset_tab TYPE t_asset_table
                                   p_cost_tab  TYPE t_cost_table
                                   p_depr_tab TYPE t_depr_table.
    
      DATA: l_cnt TYPE i.
    
      CLEAR: l_cnt, wa_local.
    
      LOOP AT i_local INTO wa_local.
    
        REFRESH i_split[].
    
        SPLIT wa_local AT c_tab INTO TABLE i_split.
    
        CLEAR l_cnt.
        ADD 1 TO l_cnt.
        CLEAR wa_split.
    
        LOOP AT i_split INTO wa_split.
    
          IF g_file_flag = 'I'.
            ASSIGN COMPONENT l_cnt OF STRUCTURE wa_input TO <fs_field>.
          ELSEIF g_file_flag = 'A'.
            ASSIGN COMPONENT l_cnt OF STRUCTURE wa_asset TO <fs_field>.
          ELSEIF g_file_flag = 'C'.
            ASSIGN COMPONENT l_cnt OF STRUCTURE wa_cost TO <fs_field>.
          ELSEIF g_file_flag = 'D'.
            ASSIGN COMPONENT l_cnt OF STRUCTURE wa_depr TO <fs_field>.
          ENDIF.
    
          CLEAR <fs_field>.
    
          <fs_field> = wa_split-col.
    
          ADD 1 TO l_cnt.
          CLEAR wa_split.
        ENDLOOP.
    
        IF g_file_flag = 'I'.
          APPEND wa_input TO p_input_tab.
          CLEAR: wa_input .
        ELSEIF g_file_flag = 'A'.
          APPEND wa_asset TO p_asset_tab.
          CLEAR: wa_asset .
        ELSEIF g_file_flag = 'C'.
          APPEND wa_cost TO p_cost_tab.
          CLEAR: wa_cost .
        ELSEIF g_file_flag = 'D'.
          APPEND wa_depr TO p_depr_tab.
          CLEAR: wa_depr .
        ENDIF.
    
        CLEAR: wa_local .
    
      ENDLOOP.
    
    ENDFORM.                    " split_localtable
    
    

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Feb 01, 2008 at 07:56 AM

    Hi

    There are also a number of other function modules which could be used for uploading/downloding files

    between SAP and the presentation server.

    • Retrieve data file from presentation server(Upload from PC)

    DATA: i_file like rlgrap-filename value '/usr/sap/tmp/file.txt'.

    DATA: begin of it_datatab occurs 0,

    row(500) type c,

    end of it_datatab.

    CALL FUNCTION 'GUI_UPLOAD'

    EXPORTING

    filename = i_file

    filetype = 'ASC'

    TABLES

    data_tab = it_datatab "ITBL_IN_RECORD[]

    EXCEPTIONS

    file_open_error = 1

    OTHERS = 2.

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.