Delete a file from App Server

Question

Hi,
Can some one tell me how to delete a specific file on the app server ?

Answer 1

REPORT  zdlc_delete_files                       .
DATA: wa_summary      TYPE yloadsummary.
DATA: BEGIN OF tab1 OCCURS 500,
line(600),
END OF tab1.
DATA: unixcom LIKE rlgrap-filename.
DATA: lines TYPE i,
      p_patho1(60).
SELECTION-SCREEN BEGIN OF BLOCK blk0 WITH FRAME TITLE text-u01.
PARAMETERS: p_patho(60) LOWER CASE
            DEFAULT '/export/SAPtf/dlcinc/new/' OBLIGATORY,
            p_sfile LIKE rlgrap-filename OBLIGATORY.
SELECTION-SCREEN END OF BLOCK blk0.
p_patho1 =  p_patho.
CONCATENATE 'ls [D]  '' ' p_patho1 INTO p_patho1.
unixcom = p_patho1.
REFRESH tab1.
CALL 'SYSTEM' ID 'COMMAND' FIELD unixcom
ID 'TAB' FIELD tab1[].
CASE p_sfile.
*To delete all .Read files.
  WHEN '*.read'.
    LOOP AT tab1.
      SEARCH tab1-line FOR '.read'.
      IF sy-subrc = 0.
        CONCATENATE p_patho tab1-line INTO wa_summary-data_file.
        DELETE DATASET wa_summary-data_file.
        IF sy-subrc = 0.
          WRITE :/'File Successfully deleted :', wa_summary-data_file.
        ENDIF.
      ENDIF.
    ENDLOOP.
*To delte all .conv files.
  WHEN '*.conv'.
    LOOP AT tab1.
      SEARCH tab1-line FOR '.conv'.
      IF sy-subrc = 0.
        CONCATENATE p_patho tab1-line INTO wa_summary-data_file.
        DELETE DATASET wa_summary-data_file.
        IF sy-subrc = 0.
          WRITE :/'File Successfully deleted :', wa_summary-data_file.
        ENDIF.
      ENDIF.
    ENDLOOP.
  WHEN OTHERS.
*To delete a specified file.
    CONCATENATE p_patho p_sfile INTO wa_summary-data_file.
    DELETE DATASET wa_summary-data_file.
    IF sy-subrc = 0.
      WRITE :/ 'File Successfully deleted :', wa_summary-data_file.
    ELSE.
      WRITE :/ 'File does not exist: ', wa_summary-data_file.
    ENDIF.
ENDCASE.
CHECK THIS CODE