We use the following subroutine. Pass in the filename in variable FNAME. In the mainline is 'THIS.ACCOUNT' and of course the F.FILESTATS.XREF file variable.
We then use this information in our expanded record locks display so that we can show real file names. UPDATE.XREF: *;* * CRT "Building item lock xref... ": * OPEN FNAME TO F.CHECK ELSE CRT "CANNOT OPEN: ":FNAME RETURN END * STATUS STATUS.INFO FROM F.CHECK THEN DEVICE = STATUS.INFO<11> XREF.ITEM = AM:THIS.ACCOUNT:"*":FNAME WRITE XREF.ITEM ON F.FILESTATS.XREF, DEVICE END * CLOSE F.CHECK * RETURN * -----Original Message----- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Friday, March 16, 2012 12:24 PM To: u2-users@listserver.u2ug.org Subject: [U2] Turn a device and inode into file name Anyone have an easy way to do this? In the past I've run a batch routine to just query each and every Universe file for it's inode and device and build a table of these _____________________________________________________________________________ Scanned by IBM Email Security Management Services powered by MessageLabs. For more information please visit http://www.ers.ibm.com This email is intended only for the use of the party to which it is addressed and may contain information that is privileged, confidential, or protected by law. If you are not the intended recipient you are hereby notified that any dissemination, copying or distribution of the email or its contents is strictly prohibited. If you have received this message in error, please notify us immediately, by replying to the message and deleting it from your computer. WARNING: Internet communications are not assured to be secure or clear of inaccuracies as information could be intercepted, corrupted, lost, destroyed, arrive late or incomplete, or contain viruses. Therefore, we do not accept responsibility for any errors or omissions that are present in this email, or any attachment, that have arisen as a result of e-mail transmission. _____________________________________________________________________________ _______________________________________________ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
