Error in infopackage level routine

Question

hi guys
I am trying to write a infopackage level routine for dynamic flatfile selection.Im getiing error:Error 1 while loading external data.
I did like this:
I am accessing one external harddisk having BW-R3 software installed in it through VM Ware from my laptop.here I saved one flatfile with name DFF_10.10.2009.csv  in D drive.so path becomes  -- D:\DFF_10.10.2009.csv
then in my infopackage...i wrote code ..here it is
DATA: XFILE LIKE P_FILENAME .
  CONCATENATE 'D:\DFF_' SY-DATUM '.csv' INTO XFILE .
P_FILENAME = XFILE .
now tried to schedule infopackage....to see if it worksand loads data from flatfile.....but it throws error....Error1 while loading external data....
how can I fix this?
Thanks in adv,
Rgds,
S

Answer 1

DATA:
  ch1(32) TYPE x VALUE
  '00200120022003200420052006200720082009200A200B200C200D200E200F20',
  ch2(32) TYPE x VALUE
  '10201120122013201420152016201720182019201A201B201C201D201E201F20',
  ch3(60) TYPE c VALUE
  '¿ ° ± ² ³ ´ µ ¶ · ¸ ¹ º » ¼ ½ ¾ ¡ ¯ ® ¢ £ ¤ ¥ ¦ § ¨ © ª « ¬ '.
DATA:
  ch4(90) TYPE c VALUE
  'ø ÷ æ ß  ? ? ? ? ? ? ? ? ? ? ? ! ~ `  #'.
FIELD-SYMBOLS:  TYPE c.
DATA: l_ZPWRKCTY TYPE /BIC/OIZPWRKCTY,
      l_ZPSTNAMe TYPE /BIC/OIZPSTNAME.
l_ZPWRKCTY = SOURCE_FIELDS-FIPS_NAME.
  translate l_ZPWRKCTY to upper case.
     RESULT = l_ZPWRKCTY.
  CONDENSE RESULT.
Exclamation mark is not permitted as a first symbol of the field
content
  IF RESULT(1) = '!'.
    RESULT(1) = ' '.
  ENDIF.
  CONDENSE RESULT.
The only # sign is not permitted
  IF STRLEN( RESULT ) = 1.
    IF RESULT(1) = '#'.
      RESULT(1) = ' '.
    ENDIF.
  ENDIF.
Replace Invalid Characters by SPACE
  ASSIGN ch1 TO .
  TRANSLATE RESULT using ch3.
  TRANSLATE RESULT using ch4.
  CALL FUNCTION 'SCP_REPLACE_STRANGE_CHARS'
    EXPORTING
      INTEXT                  = RESULT
   IMPORTING
     OUTTEXT                = RESULT.
Remove leading and trailing blanks if any
  CONDENSE RESULT.