Background job - failing when file not on app server

Question

Hi Experts,
I am facing an issue, while I am trying to run a program in background.
Let me explain u the situation.
My program runs in background and pick one file from predifined folder from application server and process that file. if file is not in the folder batch job goes into cancel status. but what i want if proposed file is not available then batch job will run and finished; it should not go into cancle status.
waiting for valuable inputs,
Prarthan.
Edited by: Julius Bussche on Feb 20, 2009 1:06 PM
Please use meaningfull subject titles

Answer 1

hi
below is my piece of code for application server.
thanks.
FORM application_server .
  TYPE-POOLS: kcde.
  DATA : lt_intern TYPE  kcde_cells OCCURS 0 WITH HEADER LINE.
  DATA wa_src01 TYPE string.
  DATA: BEGIN OF wa_src0,
       material         LIKE bapi2017_gm_item_create-material,
       consumption_qty(13) TYPE c,"  like bapi2017_gm_item_create-entry_qnt,
       base_uom         LIKE bapi2017_gm_item_create-entry_uom_iso,
       movement_type    LIKE bapi2017_gm_item_create-move_type,
       cost_center      LIKE bapi2017_gm_item_create-costcenter,
       doc_date         LIKE bapi2017_gm_head_01-doc_date,
       post_date        LIKE bapi2017_gm_head_01-pstng_date,
       plant            LIKE bapi2017_gm_item_create-plant,
       storage_location LIKE bapi2017_gm_item_create-stge_loc,
       END OF wa_src0.
  DATA : lt_src0 LIKE TABLE OF wa_src0.
  DATA : file1 TYPE string.
  DATA : tmp0(20). " type string.
  DATA : intern1 TYPE  kcde_intern.
  DATA : tmp_date LIKE sy-datum.
  path1 = path.
  replace '.txt' in PATH1 with ''.
  IF path IS INITIAL.
    path = '/usr/local/interface/globalone/SFA/SFA_WORK/SFA_'.
    tmp_date0(2) = sy-datum6(2). "date dd
    tmp_date2(2) = sy-datum4(2). "month mm
    tmp_date4(4) = sy-datum0(4). "year yyyy
    CONCATENATE path plant tmp_date '.txt' INTO path.
   concatenate path  tmp_date  into path1.
  ENDIF.
  file1 = path.
  file_nm = path.
FILE_NM2 = PATH1.
  OPEN DATASET file_nm FOR INPUT IN TEXT MODE ENCODING NON-UNICODE.
  IF sy-subrc NE 0.
   MESSAGE e000(zmm002).
   EXIT.
  ELSE.
    DO.
      READ DATASET file_nm INTO wa_src01.
      IF sy-subrc = 0.
         CLEAR wa_src0.
        REPLACE cl_abap_char_utilities=>cr_lf(1) IN wa_src01 WITH ''.
        SPLIT wa_src01 AT cl_abap_char_utilities=>horizontal_tab
                            INTO  wa_src0-material
                                  tmp0
                                  wa_src0-base_uom
                                  wa_src0-movement_type
                                  wa_src0-cost_center
                                  wa_src0-doc_date
                                  wa_src0-post_date
                                  wa_src0-plant
                                  wa_src0-storage_location.
        SHIFT tmp0 LEFT DELETING LEADING '0'.
        wa_src0-consumption_qty = tmp0.
        APPEND  wa_src0 TO lt_src0.
      ELSE.
        EXIT.
      ENDIF.
    ENDDO.
    CLEAR wa_src0.
    LOOP AT lt_src0 INTO wa_src0.
      REPLACE ',' IN wa_src0-consumption_qty WITH '.'.
      MOVE:  wa_src0-material         TO wa_srcdata-material,
             wa_src0-consumption_qty  TO wa_srcdata-consumption_qty,
             wa_src0-base_uom         TO wa_srcdata-base_uom,
             wa_src0-movement_type    TO wa_srcdata-movement_type,
             wa_src0-cost_center      TO wa_srcdata-cost_center,
             wa_src0-doc_date         TO wa_srcdata-doc_date,
             wa_src0-post_date        TO wa_srcdata-post_date,
             wa_src0-plant            TO wa_srcdata-plant,
             wa_src0-storage_location TO wa_srcdata-storage_location.
      APPEND wa_srcdata TO gt_srcdata.
      CLEAR wa_srcdata.
      CLEAR wa_src0.
    ENDLOOP.
  ENDIF.
  DELETE DATASET file_nm.
ENDFORM.                    " application_server