Hi Allen,
You missed the subtle [UV] in the subject line. :-)
Speaking of UniData, I found if you wish to create a large list within a
program, the cheapest way is:
EXECUTE 'DELETE-LIST AEE'
OPENSEQ 'SAVEDLISTS','AEE000' TO SEQFILE ELSE NULL
Then you do your WRITESEQ AN.IN ON SEQFILE
The system keeps track of where you are so you don't have the cost of
LIST<-1>
Give it a try.
Bruce M Neylon
Health Care Management Group
"Allen E. Elwood" <[EMAIL PROTECTED]>
Sent by: [EMAIL PROTECTED]
10/25/2004 08:39 PM
Please respond to u2-users
To: <[EMAIL PROTECTED]>
cc:
Subject: RE: [U2] [UV] Exit BASIC program with SELECT list?
Hi Barry,
You mean, like this?
*BBBecause it's easy to remember and type
PERFORM "SELECT CM SAMPLE 5"
STOP
:BBB
5 records selected to list 0.
>
Or did you want to actually write to the file that lists are saved in, and
then get the list before ending the program?
In Unidata that file is called SAVEDLISTS. If you wanted to create a list
named AEE you would:
WRITE LIST.REC ON SAVEDLISTS, "AEE000"
appending three zeros to the end of what you wanted the name to be.
To create the list, you would:
LIST.REC = ''
LOOP
READNEXT ID ELSE EXIT
{{do something to create AN.ID}}
LIST.REC<-1> = AN.ID
REPEAT
WRITE LIST.REC ON SAVEDLISTS, "AEE000"
STOP
hth, Allen
btw, you should always mention whether you're using Unidata, or Universe
as
there are several differences.
-------
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
