Hi Bruce, ahh...silly me, I've been ignoring the UD UV stuff....I'll pay more attn to that
I never noticed before that SAVEDLISTS was a directory. That would be the fastest way to get a list made. However, that would be 'fastest' for the computer, not me. <snicker> I'm pretty sure that INS would be faster than <-1> because of the internals, if you didn't mind the list coming out backwards.... Working the other way, this is a fast way to process a large number of attributes: ACOUNT = DCOUNT(A,@AM) FOR K = 1 TO ACOUNT ONE.LINE = A<1> DEL A<1> [[DO STUFF WITH ONE.LINE]] NEXT K Because it just scoops attr 1 off the top, and then deletes it, it's much faster than making subsequent trips down the attrs to find the next in line! I use this when I'm doing a PAGE 2 OF 999 pages type of thing as a internal buffer for print jobs. aee -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of [EMAIL PROTECTED] Sent: Tuesday, October 26, 2004 06:18 To: [EMAIL PROTECTED] Subject: [U2] [UD] Exit BASIC program with SELECT list? 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/ ------- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
