IFS Prototypes -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

Here are the rest of my IFS prototypes, sorry that I couldn't locate them
earlier.

 

     D/IF       NOT DEFINED(STREAM_FILES)

     D/DEFINE   STREAM_FILES

 

     D O_READ_ONLY     C                   Const('r')

 

     D fOpen           PR              *   ExtProc('_C_IFS_fopen')

     D  fileName                       *   Value Options(*STRING)

     D  fmode                          *   Value Options(*STRING)

 

     D fClose          PR            10I 0 ExtProc('_C_IFS_fclose')

     D  stream_FILE                    *   Value

 

     D fgets           PR              *   ExtProc('_C_IFS_fgets')

     D  inBuffer                       *   Value Options(*STRING)

     D  inBufLen                     10I 0 Value

     D  stream_FILE                    *   Value

 

     D fEof            PR            10I 0 ExtProc('_C_IFS_feof')

     D  stream_FILE                    *   Value

 

     D errno           PR              *   ExtProc('__errno')

 

     D ifsOpen         PR              *   ExtProc('_C_IFS_fopen')

     D  fileName                       *   Value Options(*STRING)

     D  fmode                          *   Value Options(*STRING)

 

     D ifsClose        PR            10I 0 ExtProc('_C_IFS_fclose')

     D  stream_FILE                    *   Value

 

     D ifsRead         PR              *   ExtProc('_C_IFS_fgets')

     D  inBuffer                       *   Value Options(*STRING)

     D  inBufLen                     10I 0 Value

     D  stream_FILE                    *   Value

 

     D ifsEof          PR            10I 0 ExtProc('_C_IFS_feof')

     D  stream_FILE                    *   Value

 

     D ifsErrno        PR              *   ExtProc('__errno')

 

     D/ENDIF

 

 

 

 

Bob Cozzi

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.