ERROR : - LOADING TO APPLICATION SERVER

Question

Hi, experts..............
can u please chk this code once what is the mistake in it.
iam not in a position to upload to application server.
TABLES : KNA1.
data : begin of it_upload occurs 0,
       kunnr like kna1-kunnr,
       name1 like kna1-name1,
       country like kna1-land1,
       end of it_upload.
DATA : DSN type string. 
PARAMETERS : pa_fend(100)  TYPE c,           "File from Frontend
             pa_apps(100)  TYPE c LOWER CASE."File on APP. Server
start-of-selection.
DSN = pa_fend.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
CODEPAGE                      = ' '
FILENAME = DSN
   FILETYPE                      = 'ASC'
  TABLES
   DATA_TAB                      = IT_UPLOAD.
open dataset pa_fend for output in text mode encoding default.
      if sy-subrc <> 0.
          write :/'dataset cannot be open'.
      else.
          loop at it_upload.
          transfer it_upload to pa_apps.
          endloop.
          if sy-subrc = 0.
          write :/'sucess'.
          endif.
          close dataset dsn.
      endif.

Answer 1

Hi Dasr,
Your program looks ok.
Just check if you are uploading the data at right Path and you have authorization.
Check Sy-subrc in Debug mode...
But just refer sample code below:
PARAMETERS :p_f2     LIKE rlgrap-filename.
OPEN DATASET p_f2 FOR OUTPUT IN TEXT MODE ENCODING DEFAULT.
  IF sy-subrc <> 0.
    EXIT.
  ENDIF.
  TRANSFER wa_error TO p_f2.
  CLEAR wa_error.
  LOOP AT i_error INTO wa_error.
    TRANSFER wa_error TO p_f2.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.
    CLEAR wa_error.
  ENDLOOP.
  CLOSE DATASET p_f2.
Reward points if this helps.
Manish
Message was edited by:
        Manish Kumar