Re: Deleting a folder from the IFS

["Albert York" <albertyork@xxxxxxxxx>]

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