déclaration des fonctions pour API IFS en RPG4

BoTTom | 
     D open            PR            10I 0 extproc('open')
     D  chemin                         *    Value Options(*string)
     D  oflag                        10I 0  value
     D  mode                         10U 0  value Options(*nopass)
     D  codepage                     10U 0  value Options(*nopass)
 
     D close           PR            10I 0 extproc('close')
     D  fileHandle                   10I 0  Value
 
     D write           PR            10I 0 extproc('write')
     D  fileHandle                   10I 0  Value
     D  bufferO                        *    Value
     D  bufferlen                    10U 0  Value
     D read            PR            10I 0 extproc('read')
     D  fileHandle                   10I 0  Value
     D  bufferI                        *    Value
     D  bufferlen                    10U 0  Value
 
     D lseek           PR            10I 0 extproc('lseek')
     D  fileHandle                   10I 0  Value
     D  offset                       10I 0  Value
     D  reference                    10U 0  Value




©AF400