Uygulama sunucusunda dizin-dosya kontrolü
`PFL_CHECK_DIRECTORY` Fonksiyonu ile uygulama sunucusunda klasörün ve yazma erişiminin olup olmadığını kontrol edebilirsiniz.
data: lv_directory type CHAR128.
lv_directory = gs_obslave-slave-trg_dir .
call function `PFL_CHECK_DIRECTORY`
EXPORTING
WRITE_CHECK = `X`
DIRECTORY_LONG = lv_directory
EXCEPTIONS
PFL_DIR_NOT_EXIST = 1
PFL_PERMISSION_DENIED = 2
PFL_CANT_BUILD_DATASET_NAME = 3
PFL_FILE_NOT_EXIST = 4
OTHERS = 5
.
if sy-subrc ne 0.
gs_obslave-err_flg = `X`.
gv_cursor_field = `GS_OBSLAVE-SLAVE-TRG_DIR`.
case sy-subrc .
When 1. "PFL_DIR_NOT_EXIST
perform f_show_message_vl_1 using `012` lv_directory .
"012 & dizini yok
When 2. "PFL_PERMISSION_DENIED
perform f_show_message_vl_1 using `013` lv_directory .
"013 & dizinine yazma erişim yok
When 3. "PFL_CANT_BUILD_DATASET_NAME
perform f_show_message_vl_1 using `014` lv_directory .
"014 & dizini/dosyası için data set üretilemedi
When 4. "PFL_FILE_NOT_EXIST
perform f_show_message_vl_1 using `015` lv_directory .
"015 & dosyası yok
endcase.
endif.