Error while OPEN DATASET

Question

Hi all,
         I am getting a text file from presentation server and uploading it to application server like /tmp/TEXTFILE .
Then I am scheduling a job in the same program .In the job I'll be retrieving the data from the file in app server like
OPEN DATASET w_infile FOR INPUT IN TEXT MODE ENCODING DEFAULT MESSAGE msg.
But m getting the error in msg as "No such file or directory".And my job is getting failed.
I tried to open the file through AL11,It is opening.Also while I try to debug the failed job the file is opening properly and my changes are carried out succesfully.
Can smbody help???

Answer 1

Hi,
Try using the sample code below:
  DATA: l_file TYPE tpfht-pffile                                  .
  DATA:g_data(1000) TYPE c                                        ,
       g_delim TYPE c VALUE cl_abap_char_utilities=>horizontal_tab.
  CLEAR l_file                                                    .
  l_file = p_file               "In P_file the path entered on the selection screen in captured                                   .
  CALL FUNCTION 'PFL_CHECK_OS_FILE_EXISTENCE'     "this function module will check the                                                                               
"existence of the file on application server
    EXPORTING
      fully_qualified_filename = l_file
    IMPORTING
      file_exists              = l_true.
  IF l_true = space   .
    MESSAGE e001(zmsg).
  ENDIF               .
*& File upload from application server
  OPEN DATASET l_file FOR INPUT IN TEXT MODE ENCODING DEFAULT.
  IF sy-subrc = 0                                              .
    DO.
      READ DATASET l_file INTO g_data                          .
      IF sy-subrc = 0                                          .
        SPLIT g_data AT g_delim INTO
        wa_upload-doc_type
*       wa_upload-neg_posting
        wa_upload-comp_code    wa_upload-currency
        wa_upload-doc_date     wa_upload-pstng_date
        wa_upload-ref_doc_no   wa_upload-accnt
        wa_upload-amt_doccur   wa_upload-indicator
        wa_upload-header_txt   wa_upload-pmnttrms
        wa_upload-payment_meth wa_upload-gl_account
        wa_upload-tax_code     wa_upload-taxjurcode
        wa_upload-kostl        wa_upload-prctr
        wa_upload-alloc_nmbr
*       wa_upload-wbs_element
       wa_upload-item_text                                   .
        IF wa_upload-doc_date IS NOT INITIAL.
          APPEND wa_upload TO it_upload                      .
          CLEAR wa_upload                                    .
        ENDIF                                                .
      ELSE                                                   .
        EXIT                                                 .
      ENDIF                                                  .
    ENDDO                                                    .
    CLOSE   DATASET l_file.
  ELSE.
    MESSAGE e004(zmsg)                                       ." error message if no file is uploaded
  ENDIF                                                      .
*& Check for data exist or not
  IF it_upload[] IS INITIAL.
    MESSAGE e002(zmsg)     .
  ENDIF                    .
Hope this helps
Regards
Mansi