Quick question about replacing a function in serviceprogram

[Anton Gombkötö <gombkoetoe@xxxxxxxxxx>]

Hi folks,

we do have the following prototyping for our major service program,
the following is the first function:

DIFSOpen          pr            10i 0 extproc('open')                      
Descriptor
D                                 *   value                                
Filename       
D                               10i 0 value                                
Access Mode    
D                               10i 0 value options(*nopass)               Mode 
          
D                               10i 0 value options(*nopass)               
CodePage

we do face the problem that we casually receive returncode
3029=resource busy when we try to create a file in the IFS.

The solution seems to be to wait a bit and try again.

So we need to capsule the 'open' which is from QC2LE binder directory.

Is it possible to replace the above "IfsOpen" by an - from parameter's
point of view - identical function in our service program? And deliver
only the service program to production?

Or has the compiler already set the track to the real open and i do
not have any chance to re-route that; and we do have to deliver all
programs using IfsOpen?

Thanks in advance!


-- 
Mit freundlichen Grüssen / best regards

Anton Gombkötö
Organisation und Projektleitung

Avenum Technologie GmbH
Wien - Salzburg - Stuttgart
http://www.avenum.com