An even easier technique along the same lines is to put code in the
subroutine you want to test that calls your new version and then exits out.

Eg:

SUBROUTINE ORIGINAL(IN,OUT)
* do your checks to set test.flag
If TEST.FLAG then
  call NEW.ROUTINE(IN,OUT)
  return
End
* normal processing
Return

This allows you to call your new routine whenever the original is called and
you don't have a lot of retrofitting to do.

Hth
Colin Alfke
Calgary Canada

-----Original Message-----
From: doug chanco

hmmm this is a very interesting idea ..........

thank you very much, its not as elegant as the path command but I think 
it will do what I need

but if I understand it correctly there 2 things that have to be done

1. logic added to each program for this tester subroutine
2. the program would have to have a different name from the original program

while step one would be a lot of work, I can see it working  pretty well 
once the logic is in most of the programs

thanks!

dougc

Israel, John R. wrote:
> Write a simple tester subroutine that passes the name of the
> original/standard program.
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to