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/
