Delete a file from App Server

[Former Member]

Hi,

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

[RichHeilman]

Try this.

report zrich_0001.


parameters: d1 type localfile default '/usr/sap/TST/SYS/Data1.txt'.

start-of-selection.

  delete dataset d1.

Regards,

Rich Heilman

[Former Member]

Hi,

Try to use the DELETE DATASET syntax..

THanks,

Naren

[Former Member]

Hi,

Use the syntax,

<b> DELETE DATASET dset.</b>

Regards,

Azaz Ali.

[Former Member]

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