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.
This subroutine reads a control record that uses your
user_id:"*CODETESTING" as the key (thus unique to each user). If not
found (which would be the case for most users), return the original
program name. If found, do a LOCATE in F1 for the original program
name. If not found, return the original program name. If the original
program name IS found in F1, return the optional program name from the
associated position in F2 (if F2 is missing, return the original pgm
just in case).
F1 = multi-valued list of original pgms
F2 = multi-valued list of test pgms
Use the @ logic for doing a dynamic call to the returned pgm name.
Granted, this is a bit of work up front, but once you have this tester
subroutine written and the coded added to your program(s), you could
leave this test in place anywhere you want. Add this logic as you need
it. You just disable it by removing the program names from F1/F2. If
this control record ever becomes empty, you could even delete it.
Optionally, you could do this test at login time and save the info in
some common named variable(s). You just need to log out/in to reset
this stuff.
I have used something like this in the past and it worked VERY well. By
using these control records, you can even give selected other users
access to this program for testing before rolling it out to the rest of
the world. Just remember to delete the stuff from the control record(s)
once you switch it over.
John Israel
Sr. Programmer/Analyst
Dayton Superior Corporation
721 Richard St.
Dayton, OH 45342
937-866-0711 x44380
-------
u2-users mailing list
[email protected]
To unsubscribe please visit http://listserver.u2ug.org/
