Re: Deleting a folder from the IFS

Albert,

Whenever an API refers to a field as BINARY(4), it should be defined as 10I 0 in RPG. (Your code is using 4b 0, which is only 2 bytes long -- and isn't a true binary field.)

Try changing all of your '4b 0' fields in the PathData and AttribData structure to '10i 0'.

Also, under 'PathLen' it should be the length of the path name without any trailing spaces -- not the length of the whole field!!

Also, since ParmPath is an input parameter -- make sure you run this with a CL command interface, since calling it via the CALL command will have problems with a parm that large.

It might make more sense, however, if you designed ParmPath as something that will be passed from QShell. That way, your program can be run via the 'find' utility.


Albert York wrote:

Well, the journey continues. When I run my program I get the error message 'The value specified for the argument is not correct.' I'm not sure which argument is wrong but here is my program:

* Attrib * Turn off readonly attribute * D ParmPath s 256 D rc s 10i 0 D Errno S 10i 0 Based(perrno) D ErrMsg s 256 D StrError PR * ExtProc('strerror') D 10i 0 Value D $$Errno PR * ExtProc('__errno') D Attrib PR 10i 0 ExtProc('Qp0lSetAttr') D * Value D * Value D 10u 0 Value D 10u 0 Value DAttribData ds D AttribOffset 4b 0 D AttribID 4b 0 D AttribSize 4b 0 D AttribRes 4b 0 D AttribVal 1 DPathData ds D PathCCSID 4b 0 D PathCountry 2 D PathLang 3 D PathRes1 3 D PathType 4b 0 D PathLen 4b 0 D PathDelim 2 D PathRes2 10 D Path 256 C *entry plist C parm ParmPath 256 C eval AttribOffset = 0 C eval AttribID = 17 C eval AttribSize = 1 C eval AttribVal = X'00' C eval AttribRes = 0 C eval PathCCSID = 0 C eval PathCountry = *allx'00' C eval PathLang = *allX'00' C eval PathRes1 = *allX'00' C eval PathType = 0 C eval PathLen = 256 C eval PathDelim = '/ ' C eval PathRes2 = *allx'00' C eval Path = ParmPath C eval rc = Attrib(%addr(PathData): C %addr(AttribData):17:0) C rc iflt 0 C eval perrno = $$Errno C eval ErrMsg = %str(StrError(errno)) C endif C move *on *inlr C return