Re: Deleting a folder from the IFS

[Scott Klement <midrange-l@xxxxxxxxxxxxxxxx>]

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
>