Validate the path in unix

Question

Hello all,
I wrote a programm that saves a file on the server (unix)
I would like to know if there is a function to validate the path in unix.
thanks in advance.
Miguel.

Answer 1

Hi Miguel,
Of course there are several ways to do this, but here you have the ABAP code to scan an entire directory (using wildcards). This delivers a list with entries and you can then search it for your directory (or simply use your directory name as entry).
<b><i>* Directory filescan subroutine
*&      Form  collect_filenames
      Scan a directory for files
     -->PFILE_LIST   Table for file info
     -->PC_INDIR     Search directory
     -->PC_FSEARCHP  Search pattern
     <--PF_SUBRC     Resultcode
----</i>
FORM collect_filenames TABLES   PFILE_LIST STRUCTURE FILE_LIST
                       USING    PC_INDIR
                                PC_FSEARCHP
                       CHANGING PF_SUBRC.
<i>* Local</i>
data: errcnt(2) type p value 0.
<i>* Check directory</i>
  if pc_indir is initial.
<i>*   Error: directory is mandatory</i>
    clear: sy-subrc.
<i>*   Set error</i>
    pf_subrc = 7.
<i>*   Leave</i>
    exit.
  endif.
<i>* Just to make sure: Close possibly pending processes</i>
call 'C_DIR_READ_FINISH'
  ID 'ERRNO'  field pfile_list-errno
  ID 'ERRMSG' field pfile_list-errmsg.
<i>* Start a new search process</i>
  CALL 'C_DIR_READ_START'
      ID 'DIR'    FIELD PC_INDIR
      ID 'FILE'   FIELD PC_FSEARCHP
      ID 'ERRNO'  FIELD PFILE_LIST-ERRNO
      ID 'ERRMSG' FIELD PFILE_LIST-ERRMSG.
<i>* Result</i>
  IF SY-SUBRC <> 0.
<i>*   Error: directory does not exist</i>
    CLEAR: SY-SUBRC.
<i>*   Set error</i>
    PF_SUBRC = 6,
<i>*   Leave</i>
    EXIT.
  ENDIF.
<i>* Loop to get the filelist</i>
  DO.
<i>*   Cleanup workarea</i>
    CLEAR: PFILE_LIST.
<i>*   Call the next file entry in the directory</i>
    CALL 'C_DIR_READ_NEXT'
      ID 'TYPE'   FIELD PFILE_LIST-TYPE
      ID 'NAME'   FIELD PFILE_LIST-NAME
      ID 'LEN'    FIELD PFILE_LIST-LEN
      ID 'OWNER'  FIELD PFILE_LIST-OWNER
      ID 'MTIME'  FIELD PFILE_LIST-MTIME
      ID 'MODE'   FIELD PFILE_LIST-MODE
      ID 'ERRNO'  FIELD PFILE_LIST-ERRNO
      ID 'ERRMSG' FIELD PFILE_LIST-ERRMSG.
<i>*   Set the related directory name</i>
    PFILE_LIST-DIRNAME = PC_INDIR.
<i>*   Remember this result</i>
    MOVE SY-SUBRC TO PFILE_LIST-SUBRC.
<i>*   Act on the result</i>
    CASE SY-SUBRC.
      WHEN 0.
<i>*       Clear error messages</i>
        CLEAR: PFILE_LIST-ERRNO, PFILE_LIST-ERRMSG.
<i>*       Can we use the file</i>
        CASE PFILE_LIST-TYPE(1).
          WHEN 'F' OR 'f'.
<i>*           Normal file</i>
            PERFORM FILENAME_USEABLE(RSWATCH0) USING PFILE_LIST-NAME
                                                     PFILE_LIST-USEABLE.
          WHEN OTHERS.
<i>*           Directory, device, fifo, socket, ...</i>
            CLEAR: PFILE_LIST-USEABLE.
        ENDCASE.
<i>*       Filesize check</i>
        IF PFILE_LIST-LEN = 0.
<i>*         No data in file</i>
          CLEAR: PFILE_LIST-USEABLE.
        ENDIF.
      WHEN 1.
<i>*       Leave loop (no other entries found)</i>
        EXIT.
      WHEN OTHERS.
<i>*       Count the other errors</i>
        ADD 1 TO ERRCNT.
<i>*       Allow for maximum 10 errors (fail safe)</i>
        IF ERRCNT GT 10. EXIT. ENDIF.
<i>*       Too many unknown entries</i>
        IF SY-SUBRC = 5.
<i>*         Do not show these attributes (security)</i>
          MOVE: '???' TO PFILE_LIST-TYPE,
                '???' TO PFILE_LIST-OWNER,
                '???' TO PFILE_LIST-MODE.
        ENDIF.
<i>*       File is unusable</i>
        CLEAR: PFILE_LIST-USEABLE.
    ENDCASE.
<i>*   Convert number of seconds since 1970 to time and date</i>
    PERFORM P6_TO_DATE_TIME_TZ(RSTR0400) USING PFILE_LIST-MTIME
                                               PFILE_LIST-MOD_TIME
                                               PFILE_LIST-MOD_DATE.
<i>*   Does the file contain the search pattern</i>
    IF PC_FSEARCHP = SPACE.
<i>*     No pattern, so accept all</i>
      APPEND PFILE_LIST.
    ELSE.
      IF PFILE_LIST-NAME CP PC_FSEARCHP.
<i>*       File contains search pattern</i>
        APPEND PFILE_LIST.
      ENDIF.
    ENDIF.
  ENDDO.
<i>* Stop search</i>
  CALL 'C_DIR_READ_FINISH'
      ID 'ERRNO'  FIELD PFILE_LIST-ERRNO
      ID 'ERRMSG' FIELD PFILE_LIST-ERRMSG.
<i>* Result</i>
  IF SY-SUBRC NE 0.
<i>*   suppress error</i>
    CLEAR: SY-SUBRC.
  ENDIF.
<i>* Sort the found filelist by date, time and name</i>
  SORT PFILE_LIST BY MTIME DESCENDING NAME ASCENDING.
ENDFORM.                    " collect_filenames</b>
Hope you can use this,
Regards,
Rob.