Folks, We have had a puzzling situation where a particular subprogram works differently when run from a test-harness from TCL, to when it is run as an I-Type subroutine.
The sub-routine concerned is about three layers deep in the execution sequence:- Test-Harness does CALL A(<parameters>), A does CALL PROBLEM(<parameters>) I-Type says SUBR("X",<parameters>), and X does CALL A(<parameters>), A does CALL PROBLEM(<parameters>) When you LIST <file name> <I-Type name> the I-Type returns 'wrong' answers The programmer concerned eventually worked out that the problem was that, from the I-Type, a "PERFORM 'SELECT <filename> <with-condition>' " ALWAYS returned no records, whereas the same select works correctly from the test harness. No, the were no select lists active at the time! The solution was to change the "PERFORM 'SELECT <filename> <with-condition>' " to a Basic "SELECT <filename>" and weed out the unwanted records in an internal loop. It may well be that it has always been this way, the I-Type is new. UV 10.0, INformation flavour, Windows 2K3 Ideas, anyone? Thanks Mike The information contained in this Internet Email message is intended for the addressee only and may contain privileged information, but not necessarily the official views or opinions of the New Zealand Defence Force. If you are not the intended recipient you must not use, disclose, copy or distribute this message or the information in it. If you have received this message in error, please Email or telephone the sender immediately. ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/