Funny this came up here -- I just turned this in as an issue to IBM last week... Oddly enough, even though it gives that warning if you do not put in a value (like setting BPLIST=2) it works anyway...
I had a programs with 3 "SELECT TO"s each using a different name (ALIST, BLIST, CLIST)- I got compiler warnings, but the program worked. I was using names because 1,2,3 didn't work as noted here, and I turned in the issue to IBM as "why am I getting warnings from the compiler that "ALIST/BLIST/CLIST is not assigned a value'?. The support guy from IBM said when I didn't put in an assignment of those to a number, it defaulted to "0", but it worked as if I had 3 different selects working (this routine would have bombed otherwise, so I don't know why it worked if ALIST/BLIST and CLIST were all assigned to list "0") But - to make the compiler warnings go away, I assigned the lists to 1, 2 and 3. DW -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Bill Haskett Sent: Friday, January 13, 2006 9:30 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] [UD] Active select list in BASIC 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/ ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/