/IF NOT DEFINED (IFSAPIS_QRPGLEH)
      /DEFINE IFSAPIS_QRPGLEH
      *-----------------------------------------------------
     DO_RDONLY         C                   CONST(1)
     DO_RDWR           C                   CONST(4)
     DO_CREAT          C                   CONST(8)
     DO_CODEPAGE       C                   CONST(8388608)
     DO_TEXTDATA       C                   CONST(16777216)
      *-----------------------------------------------------
     DS_IRWXU          C                   CONST(448)
     DS_IRWXG          C                   CONST(56)
     DS_IRWXO          C                   CONST(7)
      *-----------------------------------------------------
     D open_           PR            10I 0 EXTPROC('open')
      * return: filedescriptor
      *         -1 = error
     D path                            *   VALUE OPTIONS(*STRING)
     D openFlags                     10I 0 VALUE
     D accessRights                  10U 0 VALUE OPTIONS(*NOPASS)
     D codePage                      10U 0 VALUE OPTIONS(*NOPASS)
      *-----------------------------------------------------
     D read_           PR            10I 0 EXTPROC('read')
      * return: length
      *         -1 = error
     D fileDescriptor                10I 0 VALUE
     D dataPointer                     *   VALUE
     D lengthOfData                  10U 0 VALUE
      *-----------------------------------------------------
     D write_          PR            10I 0 EXTPROC('write')
      * return: length
      *         -1 = error
     D fileDescriptor                10I 0 VALUE
     D dataPointer                     *   VALUE
     D lengthOfData                  10U 0 VALUE
      *-----------------------------------------------------
     Dclose_           PR            10I 0 EXTPROC('close')
      * return:  0 = OK
      *         -1 = error
     D fileDescriptor                10I 0 VALUE
      /ENDIF