Re: IFS dir size, hard links only

[Steve Richter <stephenrichter@xxxxxxxxx>]

I would use opendir and readdir to sum up the sizes of the contents of the
folder.  I think the stat api will tell you if a file is a symbolic link.

d pDir            s               *
d pDirEnt         s               *
D DirEnt          ds                  based(pDirEnt)
d                                     likeds(refDirEnt)
d curSflRrn       s             10i 0
d fileName        s            256a   varying
 /free
      *in32       = '0' ;
      curSflRrn   = 0 ;
      pDir        = opendir( InDirPath ) ;
      dow         '1' = '1' ;
        pDirEnt   = readdir(pDir) ;
        if        pDirEnt = *null ;
          leave ;
        endif ;

        fileName  = %subst(dirent.name:1:dirent.nameLx) ;
        if        fileName = '.' or filename = '..' ;
          iter ;
        endif;


      enddo ;


On Tue, Aug 21, 2018 at 3:15 PM, Justin Taylor <JUSTIN@xxxxxxxxxxxxx> wrote:

> What's the easiest way to get the size of an IFS directory, excluding
> symlinks?
>
> (I don't know if/when symlinks are included.  I just want to make sure.)
>
>
> TIA
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/midrange-l.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD