Re: Joe Pluta Source code

[Joe Pluta <joepluta@xxxxxxxxxxxxxxxxx>]

Protoypes:

       // Directory processing definitions

       dcl-ds IFS_DirEnt qualified template;
         reserved1 char(16);
         reserved2 uns(10);
         fileno    uns(10);
         reclen    uns(10);
         reserved3 int(10);
         reserved4 char(8);
         nlsinfo   char(12);
         namelen   uns(10);
         name      char(640);
       end-ds;

       dcl-pr IFS_opendir pointer extproc('opendir');
         dirname pointer value options(*string);
       end-pr;

       dcl-pr IFS_readdir pointer extproc('readdir');
         pDir pointer value options(*string);
       end-pr;

       dcl-pr IFS_closedir extproc('closedir');
         pDir pointer value options(*string);
       end-pr;


       // File status definitions

       dcl-ds IFS_Status qualified template;
         mode      uns(10);
         ino       uns(10);
         nlink     int(5);
         pad       char(2);
         uid       uns(10);
         gid       uns(10);
         size      int(10);
         atime     int(10);
         mtime     int(10);
         ctime     int(10);
         dev       uns(10);
         blksize   uns(10);
         alcsize   uns(10);
         objtype   char(12);
         codepage  uns(5);
         reserved1 char(62);
         inogenid  uns(10);
       end-ds;

       dcl-pr IFS_stat int(10) extproc('stat');
         pPath pointer value options(*string);
         pBuf pointer value;
       end-pr;

       dcl-c C_MODE_DIRMASK x'0001F000';
       dcl-c C_MODE_DIRVAL  x'00004000';


On 5/14/2019 11:21 AM, Jeff Bianchi wrote:
> I just finished reading this article by Joe Pluta: https://www.mcpressonline.com/programming/rpg/practical-rpg-processing-an-ifs-directory
>
> At the bottom are two links: 1. Source code, and; 2. Prototypes and DS
>
> Those links are broken. Does anyone have the source for these two, or a working example based on this article?
>
> Thanks!
>
>
>
> Jeff Bianchi
>
> Jeff.Bianchi@xxxxxxxx<mailto:Jeff.Bianchi@xxxxxxxx>| P 253.804.1034
> Oak Harbor Freight Lines, Inc.
> "Bringing Peace of Mind Since 1916."