Scheduling Problem for uploading Data from Flat file to SAP

Question

Hi guys,
I am facing a weared problem in uploading some leave records in z table. The code is working fine if we run it through se38 after selecting the file from a shared location from production server which has all the access rights.
This folder lies in the \usr folder of SAP Production.
I have kept all the Flat files in the shared path "
Tis-mum-iz-s1\migration\SAP-INT\leave\" ...
To give u exact directory structure..
Tis-mum-iz-s1 is the Server Name
usr is the SAP System folder used for uploads and downloads
usr |
...-> Migration |
                  -> SAP-INT |
                             -> leave -> (Flat Files)
Migration folder is shared with all rights.
Obviously, we cannot give shared drive as the variant in the scheduler.
So i use the system path i.e. \usr\sap\tmp\migration\sap-int\leave\ as the variant.
All my other download programs are working fine with this path as a variant...
But my this particular upload program does not work with this path....
I am giving u my code...
TATA INTERACTIVE SYSTEMS (A Division of TATA INDUSTRIES LIMITED)
REPORT      :  ZMIGRATE_ZLEAVE
DESCRIPTION :  To Upload the Leave data. (ZLEAVE)
CREATED BY  :  Abhishek Bachhawat
CREATED ON  :  01.09.2005
CONSULTANT  :  ANAND
REPORT  ZMIGRATE_ZLEAVE.
TABLES: ZLEAVE.
data: begin of wtab,
          MANDT(3),
          ZLVID(8),
          PERNR(8),
          ZSTDT(8),
          ZENDT(8),
          ZDAYS(4),
          AEDAT(8),
          ERDAT(8),
      end of wtab,
      itab like WTAB occurs 0 WITH HEADER LINE.
data: temp like zleave occurs 0 WITH HEADER LINE.
SELECTION-SCREEN BEGIN OF BLOCK file
               WITH FRAME TITLE text-005.
parameters: file like rlgrap-filename Obligatory.
Concatenate File SY-DATUM '_Leave.txt' into File.
SELECTION-SCREEN END OF BLOCK file.
at SELECTION-SCREEN ON VALUE-REQUEST FOR file .
  CALL FUNCTION 'WS_FILENAME_GET'
    IMPORTING
      FILENAME = file.
  IF SY-SUBRC <> 0.
  ENDIF.
start-of-selection.
  if file ne space.
    CALL FUNCTION 'WS_UPLOAD'
      EXPORTING
        FILENAME = FILE
        FILETYPE = 'DAT'
      TABLES
        DATA_TAB = ITAB.
  else.
    message e000(zps) with 'Specify a file'.
  endif.
  SORT ITAB BY ZLVID.
  LOOP AT ITAB.
    REFRESH TEMP.
    CLEAR TEMP.
    TEMP-MANDT = sy-mandt.
    TEMP-ERDAT = SY-DATUM.
    TEMP-ZLVID = ITAB-ZLVID.
    TEMP-PERNR = ITAB-PERNR.
    TEMP-ZSTDT = ITAB-ZSTDT.
    TEMP-ZENDT = ITAB-ZENDT.
    TEMP-ZDAYS = ITAB-ZDAYS.
    TEMP-AEDAT = ITAB-AEDAT.
    TEMP-ERDAT = ITAB-ERDAT.
    APPEND TEMP.
    SELECT SINGLE *
           FROM   ZLEAVE
           WHERE  ZLVID = TEMP-ZLVID
           AND    PERNR = TEMP-PERNR.
    IF SY-SUBRC = 0.
      UPDATE ZLEAVE SET ZSTDT = TEMP-ZSTDT
                        ZENDT = TEMP-ZENDT
                        ZDAYS = TEMP-ZDAYS
                        AEDAT = TEMP-AEDAT
                        ERDAT = TEMP-ERDAT
             WHERE ZLVID = TEMP-ZLVID
             AND   PERNR = TEMP-PERNR.
    ELSE.
      INSERT ZLEAVE FROM TABLE TEMP.
      COMMIT WORK.
    ENDIF.
  ENDLOOP.

Answer 1

Hi,
open dataset file for input in text mode.
check sy-subrc = 0.
while sy-subrc = 0.
  read dataset file into wa.
  if sy-subrc = 0.
  append wa to itab.
  else.
    exit.
  endif.
endwhile.
close dataset file.
regards
Siggi
PS: check also the F1-help for open, read and close statements!