I have an MFS on a number of arev files and while in that MFS I need to know the REVnnnnn name and the actual name eg SALES…,

I have been able to establish the Revnnnn name, but cannot get the actual name.

Can anyone help me. There used to be a utility called get file.info, but I have not been able to use that successfully.

thankyou in advance.

Deirdre

If you're feeling really bold, you can attach (setalias) to the REVMEDIA table in the SYSPROG application.

That table contains all of the information that you are looking for.

See the "Modifying Filing System" book from the Developer's Series for a couple of methods of doing this. This book is available in PDF format and is attached to the Knowledge Base article on MFS in the KB section of this website.

Basically you can scan through the FILES file or tack the information onto the file handle during the BFS open section in the MFS.

Matt - do you want my CLEAN_ACCOUNT utility for your VERIFYLH problem?

If the SYSPROG account/application is password protected, the password is required in the SETFILE/SETALIAS command in order to attach, e.g. SETALIAS REVBOOT SYSPROG,password REVMEDIA.

Thus if using a SETFILE/SYSALIAS to open the REVMEDIA file:

(a) it requires that the SYSPROG password be known to the developer

(b) since this password can change it follows that the program must either be changed, prompt for the password, or use a table of passwords (which must also be updated)

© The SYSPROG password can possibly be found by mining the command stacks in the LISTS file.

There is a technique to access the REVMEDIA files in this situation but I'll leave it up to you to discover and hopefully NOT post for obvious reasons.

Then again there is always the @FILES system variable…

Warren,

AK sent a copy to me. Also, I was able to do what I needed to using the REVMEDIA table.

But thanks for the offer, I appreciate it.

I did it this way in my mfs:-

I use the open.file call to the mfs to find the table name, and store it in a pair of arrays. One for the tablename, and one for the handle.

In the write.record section, I retrieve the file name from the handle. Not perfect, but it worked.

I've included the source code, but this has had to be edited to remove commercially sensitive elements! Hope this helps

• at top of MFS

 common /billabong/ tablename@, tablehandle@

• place just after next fs is called

 if code eq open.file then

• Create entries in billabong_common to access tablename from handle

   if status then

     locate name in tablename@ using @fm setting pos else

       tablename@=name1, "F*"

     end

     tablehandle@=record

   end

 end

 if code eq write.record or code eq delete.record then

   open 'OUTTRAY' to f_outtray then

     open 'REPLICATE' to f_replicate then

       locate handle in tablehandle@ using @fm setting pos then

         tablename=tablename@

• do processing that uses tablename

       end

     end

   end

 end

 return

Good grief, all of my nice indenting has vanished!

Ashley,

Use the tags

 and 
<code>
 to maintain formatting.

[email protected]
[url=http://www.srpcs.com]SRP Computer Solutions[/url]
[img]http://www.srpcs.com/srpicon1.gif[/img]

</QUOTE>

----

=== At 29 APR 1999 08:24AM [email protected] - [url=http://www.sprezzatura.com]Sprezzatura Group[/url] wrote:  ===

<QUOTE>There was a function on one of the [url=ftp//ftp.revelation.com/all.zip]Developer's Utility Disks[/url] called NATIVE.NAME. Passing in the handle will give you the Revelation name of the handle.  If you are using ARev 3, then what you need to do is replace copy $NATIVE.NAME to $NATIVE.OLD, then use this function as NATIVE.NAME.  


<code>


Expendable Function Native.Name( Handle )



Declare Function Native.Old



tHandle=Field( Handle, @VM, 2, 9999)

Native=Native.Old( tHandle )

Return Native

[email protected]

Sprezzatura Group

Copies of the Developer's Tools disks can be found in the ALL.ZIP file in the downloads section.

FILE.INFO is included in this download, which I tested in ARev 3.12 and 2.12 and it appears to be working. Perhaps Deirdre's source has become corrupted?

Don't know. I always used Native.Name and Native.All and they had a problem in 3.x, but only with files with MFSs on them. Changed the handle structure drastically, especially SI, which as we all know, or should know, sometimes didles with the file handle in unexpected ways.

[email protected]

Sprezzatura Group

That could be it, the files I tested it on did not have and MFSes attached.

View this thread on the forum...