/*********************************************************************/
     /* Header File Name: ACCESS                                          */
     /* Definitionen für Benutzung C API access()                         */
     /* Aufruf Systemfunktion                                             */
     /*********************************************************************/
      /IF NOT DEFINED (ACCESS_QRPGLEH)
      /DEFINE ACCESS_QRPGLEH
     /*===================================================================*/
     /*******************************************************************/
     /*   Constants for access()                                        */
     /*******************************************************************/
     /* #define R_OK  4   Test for read permission              */
     D R_OK            C                   CONST(4)
     /* #define W_OK  2   Test for write permission             */
     D W_OK            C                   const(2)
     /* #define X_OK  1   Test for execute or search permission */
     D X_OK            C                   const(1)
     /* #define F_OK  0   Test for existence of a file          */
     D F_OK            C                   const(0)
      *-----------------------------------------------------
      * return:  0 = command successfull
      *         -1 = access not permitted errno is set
      * access does not use adopted authority
      *-----------------------------------------------------
     D access          PR            10i 0 extproc('access')
     D  dPath                          *   value
     D                                     options(*STRING)
     D  amode                        10i 0 value
      /ENDIF