Jon, Are you running in the native UniData/UniVerse flavor or the PICK flavor? I don't think the PICK flavor supports multiple active selects. A possible way to get this to work in PICK mode is to use a lower case "select" to force the syntax to the native UniData/UniVerse flavor. However, after executing the internal select and returning control to the 2nd program, it might not understand the concept of multiple active selects. I have never actually tried this in PICK flavor.
Just to be sure I understand, you have an active select from one program, and one way or another, a 2nd subroutine is being called for each key and this 2nd subroutine is doing a 2nd select. Is this correct? Alternatively, if all else fails, you could simply build an array of the keys in the first program, then loop/remove the keys (instead of using an active select). This is not the preferred way, esp. if the 1st select returns a huge number of keys, but sometimes you have to do what you have to do. If this still does not work, give me a call and I will see if I can talk you through a solution. Good luck. John Israel Sr. Programmer/Analyst Dayton Superior Corporation 721 Richard St. Dayton, OH 45342 937-866-0711 x44380 -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Jon Wells Sent: Friday, April 24, 2009 9:58 AM To: [email protected] Subject: RE: [U2] I-descriptor subroutine / SELECT question Hi John, I tried that approach. The select attempts to use the active list for the query. *-----------------------------------------------------------* Jon Wells Database Administrator Beloit College Information Services & Resources Beloit, Wisconsin 608-363-2290 [email protected] 608-363-2100 (fax) *-----------------------------------------------------------* -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Israel, John R. Sent: Friday, April 24, 2009 8:22 AM To: '[email protected]' Subject: RE: [U2] I-descriptor subroutine / SELECT question By default, selecting uses the default of select list 0. In the 2nd/internal subroutine, have the SELECT use a different select # and then read from that select #. For example: STMT = "SELECT WIGETS TO 4" EXECUTE STMT LOOP WHILE READNEXT KEY FROM 4 (your code) REPEAT ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list [email protected] To unsubscribe please visit http://listserver.u2ug.org/
