David & Ed: Thank you. The "SELECT TO BPLIST" (I couldn't get the SELECT TO 1 then the READNEXT FROM 1 to compile) works fine as long as I assign BPLIST a value before using it (another quirk with UniData). :-)
I wish the "quirky things that don't work like PICK" would be listed somewhere. It'd sure save me a lot of time. :-) Thanks again, Bill > -----Original Message----- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of > [EMAIL PROTECTED] > Sent: Friday, January 13, 2006 3:32 PM > To: u2-users@listserver.u2ug.org > Subject: RE: [U2] [UD] Active select list in BASIC > > It never made any sense to me why unidata did this, and I > never found a setting that would change it. I got around it > by always putting select lists into variables. i.e: > > EXECUTE \SSELECT BP\ > SELECT TO BPLIST > HEADING "THIS IS A TEST 'CLT'" > LOOP > READNEXT ID FROM BPLIST ELSE EXIT > CRT ID > REPEAT > CRT > CRT "...Exiting program and clearing select list..." > END > > Which seemed to work (not sure if the above example works as > is--I don't have a unidata system to test it on. I seem to > recall that maybe there had to be a file open, or the BPLIST > variable needed to be assigned ahead of time for it to work) > In ADDS, it was possible to prevent a user from exiting out > of a paged list like that--I think you have to have break off > or something like that. > Universe can be made to return an active select list to TCL. > One of the options in the VOC catalog entry for the program > controls that (I think it's K) but I don't think it returns a > default list that has been partially used. The numbered > select lists 1-10 (not 0) are persistent like that though. > > > -----Original Message----- > > From: [EMAIL PROTECTED] > > [mailto:[EMAIL PROTECTED] On Behalf Of > Bill Haskett > > Sent: Friday, January 13, 2006 4:12 PM > > To: u2-users@listserver.u2ug.org > > Subject: RE: [U2] [UD] Active select list in BASIC > > > > > > David, Kevin and Ed: > > > > Thanks for the tip. My question was the select list > remaining active, > > rather than the page message or the program aborting. Although the > > program aborting sucks, it has always occurred in pick-like systems. > > > > In all Pick systems I've ever used, Microdata, Adds, GA, > R83, R91, D3, > > and UV, when a file is selected then listed, within BASIC, > quiting the > > display doesn't leave the select list active. How can I > turn off this > > unexpected feature? > > > > Thanks again, > > > > Bill > > > > P.S. It looks fortunate that I only have a couple of > programs that do > > this, like the list-files program. :-) > > > > > > > -----Original Message----- > > > From: [EMAIL PROTECTED] > > > [mailto:[EMAIL PROTECTED] On Behalf Of David A. > > > Green > > > Sent: Friday, January 13, 2006 6:00 AM > > > To: u2-users@listserver.u2ug.org > > > Subject: RE: [U2] [UD] Active select list in BASIC > > > > > > Bill, > > > > > > You can turn this feature off by using an @ print command > i.e. PRINT > > > @(-1) or if you don't want to clear the screen just do a DMY = > > > @(-1), or issuing BPIOCPN command. > > > > > > Thanks, > > > David A. Green > > > DAG Consulting > > > > > > > > > -----Original Message----- > > > From: [EMAIL PROTECTED] > > > [mailto:[EMAIL PROTECTED] On Behalf Of > > Bill Haskett > > > Sent: Friday, January 13, 2006 5:48 AM > > > To: u2-users@listserver.u2ug.org > > > Subject: [U2] [UD] Active select list in BASIC > > > > > > I have a simple program that looks like: > > > > > > EXECUTE \SSELECT BP\ > > > HEADING "THIS IS A TEST 'CLT'" > > > LOOP > > > READNEXT ID ELSE EXIT > > > CRT ID > > > REPEAT > > > CRT > > > CRT "...Exiting program and clearing select list..." > > > END > > > > > > When I run it in Pick mode I get the message "Enter <New > > > line> to continue..." at the bottom of the 1st screen. If I > > > enter [Q] to quit, the program aborts, never prints the exit > > > message, and I'm left at TCL with the list active (a '>' prompt). > > > > > > This is not at all what I expected, and after several hours of > > > research I can't find anything close to a resolution. > > > > > > Any help would be appreciated. > > > > > > Bill Haskett > > > ------- > > > u2-users mailing list > > > u2-users@listserver.u2ug.org > > > To unsubscribe please visit http://listserver.u2ug.org/ > > > ------- > > > u2-users mailing list > > > u2-users@listserver.u2ug.org > > > To unsubscribe please visit http://listserver.u2ug.org/ > > ------- > > u2-users mailing list > > u2-users@listserver.u2ug.org > > To unsubscribe please visit http://listserver.u2ug.org/ > ------- > u2-users mailing list > u2-users@listserver.u2ug.org > To unsubscribe please visit http://listserver.u2ug.org/ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
