https://pickwiki.org/index.php?action=history&feed=atom&title=Find.Inode Find.Inode - Revision history 2026-04-29T00:59:06Z Revision history for this page on the wiki MediaWiki 1.43.0 https://pickwiki.org/index.php?title=Find.Inode&diff=1788&oldid=prev Conversion script: link fix 2015-02-26T23:48:54Z <p>link fix</p> <p><b>New page</b></p><div>&lt;pre&gt;<br /> * This program finds file name when given inode. I searches the VOC of the account you are logged into. <br /> * It searches both &quot;F&quot; and &quot;Q&quot; pointers. I left out opening the dictionaries. <br /> * So those files are not checked with this version.<br /> <br /> PROMPT &#039;&#039;<br /> PRINT &#039;inode : &#039;:<br /> INPUT FILE.INODE<br /> PRINT &#039;Continue [Y[[/N]] = DEFAULT] : &#039;:<br /> INPUT GOON<br /> IF GOON = &#039;Y&#039; THEN<br /> PRINT &#039;1 Opening VOC file...&#039;<br /> OPEN &#039;VOC&#039; TO ACCOUNT.VOC ELSE STOP 201,&#039; VOC&#039;<br /> OPEN &#039;UV.ACCOUNT&#039; TO UV.ACCOUNT ELSE STOP 201,&#039; UV.ACCOUNT&#039;<br /> *<br /> ACCOUNT = FIELD(OCONV(&#039;&#039;,&#039;[[U50BB]]&#039;),&#039; &#039;,2)<br /> READV ACCOUNT.PATH FROM UV.ACCOUNT,ACCOUNT,11 ELSE ACCOUNT.PATH = &#039;&#039;<br /> IF ACCOUNT.PATH = &#039;&#039; THEN<br /> PRINT &#039;* ERROR * invalid UV.ACCOUNT record...&#039;<br /> STOP<br /> END<br /> *<br /> PRINT &#039;2 Selecting files for this account...&#039;<br /> CMD = &#039;SSELECT VOC WITH F1 = &quot;F]&quot;&#039;<br /> EXECUTE CMD CAPTURING DISPLAY RETURNING ERRORS<br /> *<br /> FOUND = 0<br /> FILE.CNT = 0<br /> *<br /> PRINT &#039;3. Looking for inode, each * represents 100 files...&#039;<br /> *<br /> LOOP<br /> READNEXT FILE.KEY THEN EOF = 0 ELSE EOF = 1<br /> UNTIL EOF OR FOUND DO<br /> FILE.CNT = FILE.CNT+1<br /> IF MOD(FILE.CNT,100) = 0 AND FILE.INODE # &#039;&#039; THEN PRINT &#039;*&#039;:<br /> READ FILE.REC FROM ACCOUNT.VOC,FILE.KEY THEN<br /> FILE.PATH = FILE.REC&lt;2&gt;<br /> IF FILE.PATH[1,1] # &quot;/&quot; THEN<br /> FILE.PATH = ACCOUNT.PATH:&quot;/&quot;:FILE.PATH<br /> END<br /> OPENPATH FILE.PATH TO FILE.OPEN THEN<br /> STATUS FILE.STAT FROM FILE.OPEN THEN<br /> IF FILE.INODE = &#039;&#039; THEN<br /> PRINT FILE.KEY &quot;L#30&quot;:&#039; &#039;:FILE.STAT&lt;10&gt; &quot;R#10&quot;<br /> END ELSE<br /> IF FILE.INODE = FILE.STAT&lt;10&gt; THEN<br /> FOUND = 1<br /> PRINT FILE.KEY:&quot; - &quot;:FILE.STAT&lt;10&gt;<br /> END<br /> END<br /> END<br /> END<br /> END<br /> REPEAT<br /> *<br /> IF NOT(FOUND) THEN<br /> PRINT<br /> PRINT &#039;4. Looking at QPointers for this account...&#039;<br /> CMD = &#039;SSELECT VOC WITH F1 = &quot;Q&quot;&#039;<br /> EXECUTE CMD CAPTURING DISPLAY RETURNING ERRORS<br /> LOOP<br /> READNEXT FILE.KEY THEN EOF = 0 ELSE EOF = 1<br /> UNTIL EOF OR FOUND DO<br /> FILE.CNT = FILE.CNT+1<br /> IF MOD(FILE.CNT,100) = 0 AND FILE.INODE # &#039;&#039; THEN PRINT &#039;*&#039;:<br /> READ FILE.REC FROM ACCOUNT.VOC,FILE.KEY THEN<br /> FILE.ACCT = FILE.REC&lt;2&gt;<br /> READV ACCOUNT.PATH FROM UV.ACCOUNT,FILE.ACCT,11 THEN<br /> FILE.PATH = FILE.REC&lt;3&gt;<br /> IF FILE.PATH[1,1] # &quot;/&quot; THEN<br /> FILE.PATH = ACCOUNT.PATH:&quot;/&quot;:FILE.PATH<br /> END<br /> OPENPATH FILE.PATH TO FILE.OPEN THEN<br /> STATUS FILE.STAT FROM FILE.OPEN THEN<br /> IF FILE.INODE = &#039;&#039; THEN<br /> PRINT FILE.KEY &quot;L#30&quot;:&#039; &#039;:FILE.STAT&lt;10&gt; &quot;R#10&quot;<br /> END ELSE<br /> IF FILE.INODE = FILE.STAT&lt;10&gt; THEN<br /> FOUND = 1<br /> PRINT FILE.KEY:&quot; - &quot;:FILE.STAT&lt;10&gt;<br /> END<br /> END<br /> END<br /> END<br /> END<br /> END<br /> REPEAT<br /> END<br /> END<br /> <br /> &lt;/pre&gt;</div> Conversion script