Mike, You say there is no select list active - but you are performing a "LIST" statement, isn't that an implied active select list.
You shouldn't do anything in an i-type that could affect selectlist 0 (or use it up), and shelling out to perform a select would be very in-efficient (one perform/execute for every record in the file you're listing). Using the basic SELECT in the u-type is probably your best option - but without knowing what you're trying to achieve it's difficult to suggest a better alternative. AdrianW -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of HENDERSON MIKE, MR Sent: Thursday, 19 May 2005 11:10 AM To: u2-users@listserver.u2ug.org Subject: [U2] UV "PERFORM 'SELECT <filename> ...' " in I-Type {Unclassified} 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 DISCLAIMER: Disclaimer. This e-mail is private and confidential. If you are not the intended recipient, please advise us by return e-mail immediately, and delete the e-mail and any attachments without using or disclosing the contents in any way. The views expressed in this e-mail are those of the author, and do not represent those of this company unless this is clearly indicated. You should scan this e-mail and any attachments for viruses. This company accepts no liability for any direct or indirect damage or loss resulting from the use of any attachments to this e-mail. ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
