I'm working with Arev 3.12. I thought that I had read some place where you create an active select list but with a value from a non-key column. Is this true? If so, where do I find the information on how to do this?

I haven't found anything on this yet in my research. I did see something about making the values within a multivalue column into a key list but that's not quite what I'm looking for. I have a table that I want to run a select statement against. Instead of getting the tables keys into the active list, I want the value from another column within the table to go into the list. This column is defined as single value column. The column I want to make the active list out of contains the keys to another table but the two tables are not relationally connected. For what ever reason we don't use relation indexing on any of our tables.

Any information you can provide would be a big help.

Thnak You,

Michael Slack

Addition: I have considered writing a small program to get me what I want but I wanted to find out if there was an easier way of doing it thru Arev. Hopefully there is something already built into the system that will allow me to do what I want.

Thanks,

Michael Slack

Michael,

What I have done in the past is run the select, open a PDISK to a file, and then use a list statement similar to the following:

LIST MYFILE MY_FIELD BY MY_FIELD ID-SUPP HEAD-SUPP (SEP

Then, I close the pdisk, copy the DOS file to the LISTS table, and voila. Sometimes you have to do some cleanup to remove blank lines and page feed characters, but this generally works.

I know it's a kludge, but it's the only idea I have.

[email protected]

Michael,

Once you have selected records at TCL, here's one programmatic way to create an @fm-delimited list of ids (or any data) from a user-specified field in each of those records and make that list active.

The TCL command format is: MAKE_IDLIST filename fieldnumber or fieldname.

SUBROUTINE MAKE_IDLIST DECLARE SUBROUTINE MSG,FSMSG * IF @LIST.ACTIVE ELSE RETURN OPEN "LISTS" TO LISTS ELSE FSMSG() ; STOP * FILENAME=FIELD(@SENTENCE," ",2) OPEN FILENAME TO ACTIVE_FILE ELSE RETURN OPEN "DICT",FILENAME TO ACTIVE_DICT ELSE RETURN * FMC=FIELD(@SENTENCE," ",3) IF ALPHA(FMC) THEN READ DICT_REC FROM ACTIVE_DICT,FMC THEN FMC=DICT_REC END ELSE MSG(" THERE IS NO FIELD NAMED | %1% |","","",FMC) RETURN END END * EOF=0 NEWLIST=' LOOP READNEXT ID ELSE EOF=1 WHILE EOF=0 READ REC FROM ACTIVE_FILE,ID THEN NEWLIST=REC END REPEAT * WRITE NEWLIST ON LISTS,"Q$##@!QPPY" PERFORM "GETLIST Q$##@!QPPY" @SAVE.SELECT=1 DELETE LISTS,"Q$##@!QPPY" RETURN

Hope this helps.

Bill

Hello Matt:

Your kludge is what I was looking for (I should have thought of that).  It may not be a direct route to what I want but will get me there a lot faster without needing to do any programming.  I think that I should be able to set PDISK to a row within the LIST table to help speed things up.  I'll need to look for a few things as you suggest but once that is done, I should be on my way with a simple GETLIST.

Thanks,

Michael Slack

Hello Bill:

That's a nice bit of programming but I think I'm going to go with Matt's suggestion first.  I may still need to do a bit of programming processing on the the result before the list is ready for a GETLIST but it should be a lot less than I was thinking of originally.  I've printed out your suggestion for furture refence.

Thanks,

Michael Slack

The 5th Developer Series Disk has an FSELECT utility which will do what you require.

The Sprezzatura Group

[/i]World leaders in all things RevSoft[/i]

Ah, t'was so nice in Prime Information when all you had to do was:

SELECT REPRIMANDS BY EMP_NO SAVING EMP_NO

Adding the UNIQUE option did just that.

Twas the reason the program was submitted to the DUDS disk.

The Sprezzatura Group

[/i]World leaders in all things RevSoft[/i]

What! No HITS disk?

I tried FSELECT but SIZELOCK gives me an error at line 100

It looks like the dosHandle is null so it errors.

It looks like the dosHandle is Null so it errors.

As far as the code that gets the dos file name is beyond me

1,\42FD\ hmmm

I'm Part time Programmer.. self taught.. bla bla bla :)

Thanks

View this thread on the forum...