After running a PICK BASIC program. How do I display or capture the
results of an

"active select list #0"

It says there are 700 records in it for instance, now I would like to
look and them and do a terminal capture of the text to save into a
regular (windows) file.

Thanks again, this group is very helpful.

Try this:

DONE = 0
LOOP
READNEXT ID ELSE DONE = 1
UNTIL DONE
PRINT @(col,row):ID
LOOP

That will just print out the ID's contained in your active select list.
READNEXT simply reads the next ID from an active select list. If they are
file ID's, you may want to READ RECORD FROM FILEPOINTER,ID ELSE RECORD = "",
then print the various elements that you need from that record.

Dave

"GEEK^&" <darrellulm (AT) yahoo (DOT) com> wrote

Sorry - instead of the second LOOP, it should say REPEAT in my previous
post. (I do Visual Basic too....)

Dave

"Dave Mitchell" <mitch500 (AT) sympatico (DOT) ca> wrote

On most MV systems, you could do EDIT-LIST listname <cr>
And use ED commands to go from there. This works great if you only want
to see the list items -or- want to manually edit the list.

Dave Weaver, Weaver Consulting



Dave Mitchell wrote:

You can do a GET-LIST listname, in this case it's zero or the default
if the name is omitted.

Then you can LIST , for example depending on what you want.

LIST CUSTOMERS NAME
LIST ONLY CUSTOMERS

I'm surprised someone with your level of knowledge is allowed to do
what they want at TCL. Be careful.

I may be speaking out of turn but it seems to me that you're trying to
figure out a way to get data out of a multivalue database into another
database format. If that's the case, you're going to get a lot of
misleading responses. From what I read of your question, you have a process
that someone has written and part of the output DISPLAYED is a number of
records were selected to the default select list. You're going to have to
look at the program to find what was used to create the select list before
you're going to be able to duplicate the select list and look at what
records were selected.

Personally, I think you'd be miles ahead if you were to hire someone for a
day, maybe two, to sit down with you and show you the right way to get data
out of a system that has lost it's programmer/support person. If this isn't
your situation, sorry for making assumptions that were off the mark. No
offense meant.
"GEEK^&" <darrellulm (AT) yahoo (DOT) com> wrote

Thanks everyone for helping. I read the data out last night! I am
working in a test account just to learn and then will make Q-pointers
to the data so there is less chance of messing anything up. Pick is
strange but powerful I am finding.

Thank you for all your help!

GEEK

GEEK^& wrote:

Be very careful!
A Q-pointer to live data can be fatal.
A long time ago in a galaxy far, far away, I did a clear-file DATA on a
Q-pointer. I just managed to get my boss' shoe outta my butt the
other day.


GEEK^& wrote: