**‚----------------------------------------------------
     **‚ Prototypes API C / IFS
     **‚----------------------------------------------------
     D open            PR                  like(t_int) extproc('open')
     D   ifspath                       *   value options(*string)
     D   oflag                             like(t_int) value
     D   mode                        10U 0 value options(*nopass)
     D   codepage                    10U 0 value options(*nopass)
     D*
     D write           PR                  like(t_int) Extproc('write')
     D  FileHandle                         like(t_int) Value
     D  DataSend                       *   Value
     D  NBytes                       10U 0 Value
     D*
     D lseek           PR            10I 0 Extproc('lseek')
     D  FileHandle                   10I 0 Value
     D  NBytes                       10I 0 Value
     D  FromPosition                 10I 0 Value
     D*
     D close           PR                  like(t_int) extproc('close')
     D   filedesc                          like(t_int) value
     D*
     D unlink          PR            10I 0 ExtProc('unlink')
     D  path                           *   Value options(*string)
     D*
     D access          PR            10I 0 ExtProc('access')
     D   Path                          *   Value Options(*string)
     D   amode                       10I 0 Value