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.