RE: opendir() - THE ANSWER

["Chris Bipes" <chris.bipes@xxxxxxxxxxxxxxx>]

I am sorry but I don't understand your code snip it.  Are you saying the
link(fromPath:toPath) actually copies the file?  Does it retain the
original create date as well as modified date?

 

Chris Bipes
Director of Information Services
CrossCheck, Inc.


-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Christen, Duane
Sent: Thursday, November 12, 2009 1:42 PM
To: Midrange Systems Technical Discussion
Subject: RE: opendir() - THE ANSWER

Chris;

Below is the code from my moveIfsFile procedure as an example, you don't
read the file, all you need to have is the from path and the to path. 

Note for understanding the logic: trapErrNo() throws an exception, using
the errNo value and message unless the 3rd parm is specified, it also
returns the errNo value

Duane Christen

D moveDirectoryEntry...

D                 PI

D  fromPath                       *   Value Options(*STRING)
from Path      
D  toPath                         *   Value Options(*STRING)
To Path        
D  errorStructure...
Error Structure
D                                 *   Value


If link(fromPath : toPath) <> 0;                                      
   trapErrNo(errNo : 'link');                                         
EndIf;                                                                
                                                                      
If unLink(fromPath) <> 0;                                             
   If trapErrNo(errNo : 'unlink' : '*DIAG') = 3500;                   
      CapCmdCommand = 'CHGATR OBJ(' + delimit(%Str(fromPath)) + ') +  
                              ATR(*READONLY) +                        
                              VALUE(*NO)';                            
      /Include QRpgCbSrc,CQCapCmd                                     
                                                                      
      If unLink(fromPath) <> 0;                                       
         trapErrNo(errNo : 'unlink' : '*DIAG');                       
      EndIf;                                                          
   EndIf;                                                             
EndIf;