h DFTACTGRP(*NO)
d Template s 16*
d statds DS qualified
d BASED(Template)
d st_mode 10U 0
d st_ino 10U 0
d st_nlink 5U 0
d st_reserved2 5U 0
d st_uid 10U 0
d st_gid 10U 0
d st_size 10I 0
d st_atime 10I 0
d st_mtime 10I 0
d st_ctime 10I 0
d st_dev 10U 0
d st_blksize 10U 0
d st_allocsize 10U 0
d st_objtype 11A
d st_reserved3 1A d st_codepage 5U 0
d st_ccsid 5U 0
d st_rdev 10U 0
d st_nlink32 10U 0
d st_rdev64 20U 0
d st_dev64 20U 0
d st_reserved1 36A
d st_ino_gen_id 10U 0
*
d info s like(statds)
*
d stat PR 10I 0 ExtProc('stat')
d path * value options(*string)
d buf like(statds)
*
d ChkIfsObj Pr
d Dir 45
d IndErr 1
*
d ChkIfsObj Pi d Dir 45
d IndErr 1
d
*
c If (stat(%trimr(Dir):info) = -1)
c Eval IndErr = '1'
c EndIf
c Eval *InLr = '1'
|
