Re: IFS dir size, hard links only

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