data tab_epsfili type standard table of epsfili.
data wa_file type epsfili.
data l_file type rlgrap-filename.
start-of-selection.
set pf-status 'STATUS1'.
perform sub_getdirectory.
perform sub_wirte.
at user-command.
case sy-ucomm.
when 'DEL'.
perform sub_delete.
endcase.
**********************************************************************
* FORM : sub_getdirectory
* Created : 11.12.2008 18:35:52
**********************************************************************
form sub_getdirectory .
call function 'EPS_GET_DIRECTORY_LISTING'
exporting
dir_name = '/usr/sap/AA2/D01/data/'
file_mask = ''
tables
dir_list = tab_epsfili
exceptions
invalid_eps_subdir = 1
sapgparam_failed = 2
build_directory_failed = 3
no_authorization = 4
read_directory_failed = 5
too_many_read_errors = 6
empty_directory_list = 7
others = 8.
endform. "sub_getdirectory
**********************************************************************
* FORM : sub_wirte
* Created : 11.12.2008 18:36:50
**********************************************************************
form sub_wirte .
if not tab_epsfili is initial.
loop at tab_epsfili into wa_file .
" CONCATENATE '/usr/sap/AA2/D01/data/' wa_file-name INTO l_file.
" delete DATASET l_file.
write:/ wa_file-name, 30 wa_file-size, 50 wa_file-rc.
endloop.
else.
write: 'the directory is empty!'.
endif.
endform. "sub_wirte
**********************************************************************
* FORM : sub_delete
* Created : 11.12.2008 18:37:25
**********************************************************************
form sub_delete ." 该目录中删除所有文件
loop at tab_epsfili into wa_file .
concatenate '/usr/sap/AA2/D01/data/' wa_file-name into l_file.
delete dataset l_file.
write:/ wa_file-name, 30 wa_file-size, 50 wa_file-rc, 56 'has been deleted.'.
endloop.
endform. "sub_delete
data wa_file type epsfili.
data l_file type rlgrap-filename.
start-of-selection.
set pf-status 'STATUS1'.
perform sub_getdirectory.
perform sub_wirte.
at user-command.
case sy-ucomm.
when 'DEL'.
perform sub_delete.
endcase.
**********************************************************************
* FORM : sub_getdirectory
* Created : 11.12.2008 18:35:52
**********************************************************************
form sub_getdirectory .
call function 'EPS_GET_DIRECTORY_LISTING'
exporting
dir_name = '/usr/sap/AA2/D01/data/'
file_mask = ''
tables
dir_list = tab_epsfili
exceptions
invalid_eps_subdir = 1
sapgparam_failed = 2
build_directory_failed = 3
no_authorization = 4
read_directory_failed = 5
too_many_read_errors = 6
empty_directory_list = 7
others = 8.
endform. "sub_getdirectory
**********************************************************************
* FORM : sub_wirte
* Created : 11.12.2008 18:36:50
**********************************************************************
form sub_wirte .
if not tab_epsfili is initial.
loop at tab_epsfili into wa_file .
" CONCATENATE '/usr/sap/AA2/D01/data/' wa_file-name INTO l_file.
" delete DATASET l_file.
write:/ wa_file-name, 30 wa_file-size, 50 wa_file-rc.
endloop.
else.
write: 'the directory is empty!'.
endif.
endform. "sub_wirte
**********************************************************************
* FORM : sub_delete
* Created : 11.12.2008 18:37:25
**********************************************************************
form sub_delete ." 该目录中删除所有文件
loop at tab_epsfili into wa_file .
concatenate '/usr/sap/AA2/D01/data/' wa_file-name into l_file.
delete dataset l_file.
write:/ wa_file-name, 30 wa_file-size, 50 wa_file-rc, 56 'has been deleted.'.
endloop.
endform. "sub_delete