[U2] REMOVE results as promised.
As promised, here are the results of 9 different methods of appending. Basically program went like this: A= FOR I=1 TO 5 A1,-1=I NEXT I Style 1: 1,-1 straight...1 minute, 29 seconds Style 2: -1 attribute level then CONVERT to 253...41 seconds Style 3: DIM(50,000), MATWRITE, READ CONVERT.2 seconds Style 4: DIM(50,000), then assign to variable and CONVERT to 2531 second Style 5: Target = null, [] replacing40 seconds Style 6: Target=Space(100), [] replacing then TRIM8 minutes, 55 seconds. Style 7: Append, VM assigned inside loop..41 seconds Style 8: Append, VM assigned outside loop then remove last..34 seconds. Style 9: 1,MV with MV+=MV as pointer.1 minute, 28 seconds 60 user D3 system on W2000 during normal business day. It appears that Styles 3 4 escaped the suggestions and rose to the top. Apparently the CONVERT (or RAISE/LOWER) functions are pretty quick. The DIM is incredibly quick. I learned a lot and hope others can as well. Thanks for everyone's suggestions. Mark Johnson If anyone wants further coding for any of the styles then don't hestitate to ask. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] Universe active lists
I have a sub that I install at each client. It gets localized per platform but it's consistent in data/basic: SUBROUTINE GET.IDS(TCL, IDS) IF TCL # THEN EXECUTE TCL CAPTURING JUNK IDS= LOOP WHILE READNEXT ID DO ;* per platform IDS-1=ID REPEAT RETURN Thus if IDS comes back as then there was no active list. Not every MV system supports SYSTEM(11). I use it for an external list or to bet quick lists within programs. I've offered it here before and using those results and the recent REMOVE scenario, should not be used for large lists. My 2 cents. Mark Johnson - Original Message - From: Ross Ferris [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Friday, August 19, 2005 9:48 AM Subject: RE: [U2] Universe active lists If wols idea doesn't work, maybe something like SIZE = SYSTEM(11) IF SIZE # 0 THEN OK = 1 IDS = LOOP READNEXT ID ELSE OK = 0 WHILE OK DO IDS := '':ID:'' REPEAT CRT you had a list active! EXECUTE 'ED VOC ':IDS END Not neat, but Ross Ferris Stamina Software Visage Better by Design! --- 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/
Re: [U2] REMOVE results as promised.
Hi Mark, There is another fast method to consider A= FOR I=1 TO 5 IF A = THEN A := I END ELSE A := @VM : I END NEXT I It will take less then 1 second to finish on our system. Dzevad - Original Message - From: Mark Johnson [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Sunday, August 21, 2005 12:27 PM Subject: [U2] REMOVE results as promised. As promised, here are the results of 9 different methods of appending. Basically program went like this: A= FOR I=1 TO 5 A1,-1=I NEXT I Style 1: 1,-1 straight...1 minute, 29 seconds Style 2: -1 attribute level then CONVERT to 253...41 seconds Style 3: DIM(50,000), MATWRITE, READ CONVERT.2 seconds Style 4: DIM(50,000), then assign to variable and CONVERT to 2531 second Style 5: Target = null, [] replacing40 seconds Style 6: Target=Space(100), [] replacing then TRIM8 minutes, 55 seconds. Style 7: Append, VM assigned inside loop..41 seconds Style 8: Append, VM assigned outside loop then remove last..34 seconds. Style 9: 1,MV with MV+=MV as pointer.1 minute, 28 seconds 60 user D3 system on W2000 during normal business day. It appears that Styles 3 4 escaped the suggestions and rose to the top. Apparently the CONVERT (or RAISE/LOWER) functions are pretty quick. The DIM is incredibly quick. I learned a lot and hope others can as well. Thanks for everyone's suggestions. Mark Johnson If anyone wants further coding for any of the styles then don't hestitate to ask. --- 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/