Firstly your program doesn't make much sense.
Who would want to do this by program?
But nevertheless you could use something like this:
IF SYSTEM(11) THEN
  EOD=0
  LOOP
     READNEXT ID ELSE EOD=1
  UNTIL EOD DO
     EXECUTE "ED VOC  ":ID
  REPEAT
END
STOP
Or you could use SAVE-LIST before you run BLEEP and execute GET-LIST within BLEEP before you execute ED VOC

Mecki

Susan Joslyn wrote:

Greetings U2 users,



I have a technical question/problem in Universe that I could sure use help
with.



If you type this:

         SELECT VOC = "A]"

         ED VOC



(from a "P" flavored account in this case, but I'm not sure flavor has any
influence on the real problem)



         The edit will run from the list of items in the VOC that start
with A.



         But if you do this

         SELECT VOC = "A]"

         BLEEP VOC



Where BLEEP is a BASIC PROGRAM that does this:



         SIZE = SYSTEM(11)

         IF SIZE # 0 THEN

                  CRT "you had a list active!

                  EXECUTE 'ED VOC'

         END



The executed version of ED VOC will not automatically run from the list that
you selected before typing BLEEP.



I guess the BASIC program has interfered with the system's memory that there
was a list active.  Is there a handy-dandy way for me to re-ignite the list
before executing the ED VOC?  I vaguely remember some stuff about PASSLIST
and RTNLIST but everything I can find about that seems to work only if the
BASIC program is what manufactures the list in the first place.  But I'm
thinking if the first thing BLEEP does is pass the active-from-tcl-list into
one of the list variables, then I could re-activate it before launching
'ED'.  But I'm not having any luck with this.



Thanks in advance to anyone who can take time out of their busy day to help
me figure this out!



Susan Joslyn
-------
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/

Reply via email to