Program error accessing application server

Question

Hi, I jus tried to write a simple code to write data into application server and read tht file . But this program keeps runing in the background . whn i try to see process overview thro the transaction SM50, i can still see the program running. Can anyone tel me whether the program is correct and y am getting this background job running? its very very urgent pls help me
REPORT  Zreport.
DATA: BEGIN OF ITAB_CUST OCCURS 0,
      FRSTNAME LIKE KNA1-NAME1,
      LASTNAME LIKE KNA1-NAME2,
      ORTO1 LIKE KNA1-ORT01,
      END OF ITAB_CUST.
data: itab_CUST1 LIKE STANDARD TABLE OF ITAB_CUST WITH HEADER LINE.
PARAMETER: P_FILE LIKE RLGRAP-FILENAME DEFAULT 'C:\usr\sap\DEC\SYS\global\itab1.xml'.
START-OF-SELECTION.
  PERFORM GETDATA.
  PERFORM DOWNLOADDATA.
  PERFORM UPLOADDATA.
*&      Form  GETDATA
      text
-->  p1        text
<--  p2        text
FORM GETDATA .
  SELECT NAME1
         NAME2
         ORT01 FROM KNA1 INTO TABLE ITAB_CUST WHERE kunnr eq '0000000033'.
ENDFORM.                    " GETDATA
*&      Form  DOWNLOADDATA
      text
-->  p1        text
<--  p2        text
FORM DOWNLOADDATA . "DOWNLOAD DATA INTO APPLICATION SERVER FROM INTERNAL TABLE
  OPEN DATASET P_FILE FOR OUTPUT IN TEXT MODE
                                   ENCODING DEFAULT .
  LOOP AT ITAB_CUST.
  TRANSFER ITAB_CUST TO P_FILE.
  ENDLOOP.
  IF SY-SUBRC NE 0.
  WRITE: /'NOT DONE'.
  ELSE.
  WRITE: 'DONE'.
  endif.
  CLOSE DATASET P_FILE.
  ENDFORM.                    " DOWNLOADDATA
*&      Form  UPLOADDATA
      text
-->  p1        text
<--  p2        text
FORM UPLOADDATA . "UPLOAD DATA INTO INTERNAL TABLE FROM SERVER
OPEN DATASET P_FILE FOR INPUT IN TEXT MODE
                                 ENCODING DEFAULT.
DO.
READ DATASET P_FILE INTO ITAB_CUST1.
IF SY-SUBRC = 0.
APPEND ITAB_CUST1.
ELSE.
EXIT.
ENDIF.
ENDDO.
CLOSE DATASET P_FILE.
LOOP AT ITAB_CUST1.
WRITE: / ITAB_CUST1-FRSTNAME,
ITAB_CUST1-LASTNAME.
ENDLOOP.
ENDFORM.                    " UPLOADDATA

Answer 1

Hi,
Just add few validations
OPEN DATASET P_FILE FOR OUTPUT IN TEXT MODE
ENCODING DEFAULT .
<b>IF sy-subrc NE 0.
..error
ENDIF.</b>
OPEN DATASET P_FILE FOR INPUT IN TEXT MODE
ENCODING DEFAULT.
<b>
IF sy-subrc NE 0.
..error
ENDIF.</b>
Regards,
Atish