Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Showing results for 
Search instead for 
Did you mean: 
Read only

Delete files from APPLICATION SERVER?

Former Member
0 Likes
2,204

Hi All,

I am creating the files in application server with folder name as

/interface/freeway/ and filename as PO concatenating with sy-datum and sy-uzeit.

Ex file name now is /interface/freeway/PO20081201064120.csv

Now my req is i need to delete files which has beeen created less than 30 days.

regards,

Sachin.

1 ACCEPTED SOLUTION
Read only

Former Member
0 Likes
1,276

hi,,,,,,


REPORT ZDELETE.
*----------------------------------------------------------------------*
* Delete a file on the application server.
*----------------------------------------------------------------------*
PARAMETERS: P_DIR LIKE RLGRAP-FILENAME
DEFAULT '/usr/sap/trans/',
P_FILE1 LIKE RLGRAP-FILENAME.

DATA: P_FILE(128).
DATA: W_ANS.


START-OF-SELECTION.
CONCATENATE P_DIR P_FILE1 INTO P_FILE.
*----------------------------------------------------------------------*
* check file exists
*----------------------------------------------------------------------*
OPEN DATASET P_FILE FOR INPUT.
IF SY-SUBRC NE 0.
MESSAGE E899(BD) WITH P_FILE 'does not exist'.
EXIT.
ELSE.

CALL FUNCTION 'POPUP_CONTINUE_YES_NO'
EXPORTING
DEFAULTOPTION = 'N'
TEXTLINE1 = P_DIR
TEXTLINE2 = P_FILE1
TITEL = 'ARE YOU SURE YOU WANT TO DELETE'
* START_COLUMN = 25
* START_ROW = 6
IMPORTING
ANSWER = W_ANS
EXCEPTIONS
OTHERS = 1.

ENDIF.
CLOSE DATASET P_FILE.
CHECK W_ANS = 'J'.
*----------------------------------------------------------------------*
* delete
*----------------------------------------------------------------------*

DELETE DATASET P_FILE.

IF SY-SUBRC NE 0.
MESSAGE E899(BD) WITH 'Invalid file name' P_FILE.
ELSE.
CLOSE DATASET P_FILE.
MESSAGE I899(BD) WITH P_DIR P_FILE1 'DELETED'.
ENDIF.

5 REPLIES 5
Read only

GauthamV
Active Contributor
0 Likes
1,276

hi,

check this.

[https://forums.sdn.sap.com/click.jspa?searchID=19329138&messageID=6466732]

Read only

Former Member
0 Likes
1,276

HI,

Use this statement to delete the files on Applicarion server ..

DELETE DATASET <dset>.

Read only

Former Member
0 Likes
1,277

hi,,,,,,


REPORT ZDELETE.
*----------------------------------------------------------------------*
* Delete a file on the application server.
*----------------------------------------------------------------------*
PARAMETERS: P_DIR LIKE RLGRAP-FILENAME
DEFAULT '/usr/sap/trans/',
P_FILE1 LIKE RLGRAP-FILENAME.

DATA: P_FILE(128).
DATA: W_ANS.


START-OF-SELECTION.
CONCATENATE P_DIR P_FILE1 INTO P_FILE.
*----------------------------------------------------------------------*
* check file exists
*----------------------------------------------------------------------*
OPEN DATASET P_FILE FOR INPUT.
IF SY-SUBRC NE 0.
MESSAGE E899(BD) WITH P_FILE 'does not exist'.
EXIT.
ELSE.

CALL FUNCTION 'POPUP_CONTINUE_YES_NO'
EXPORTING
DEFAULTOPTION = 'N'
TEXTLINE1 = P_DIR
TEXTLINE2 = P_FILE1
TITEL = 'ARE YOU SURE YOU WANT TO DELETE'
* START_COLUMN = 25
* START_ROW = 6
IMPORTING
ANSWER = W_ANS
EXCEPTIONS
OTHERS = 1.

ENDIF.
CLOSE DATASET P_FILE.
CHECK W_ANS = 'J'.
*----------------------------------------------------------------------*
* delete
*----------------------------------------------------------------------*

DELETE DATASET P_FILE.

IF SY-SUBRC NE 0.
MESSAGE E899(BD) WITH 'Invalid file name' P_FILE.
ELSE.
CLOSE DATASET P_FILE.
MESSAGE I899(BD) WITH P_DIR P_FILE1 'DELETED'.
ENDIF.

Read only

Former Member
0 Likes
1,276

Hello,

When you need to delete files in a specific directory based on criteria such as creation date I recommend that you do this via shell scripts (UNIX or Windows) and not via an ABAP program.

The function modules in SAP that list files work rather slow and do not have all the options that you can use in shell scripts.

Wim Van den Wyngaert

Read only

Former Member
0 Likes
1,276

This message was moderated.