https://pickwiki.org/index.php?action=history&feed=atom&title=ShowLocksShowLocks - Revision history2026-04-28T22:23:37ZRevision history for this page on the wikiMediaWiki 1.43.0https://pickwiki.org/index.php?title=ShowLocks&diff=2219&oldid=prevConversion script: link fix2015-02-26T23:48:56Z<p>link fix</p>
<p><b>New page</b></p><div>Back to [[BasicSource]]<br />
<br />
This utility program shows the file names by pre-processing the STAT.FILE to get the device and inode numbers<br />
<br />
<PRE><br />
PROGRAM SHOWLOCKS <br />
* Universe Utility program to show locks displaying the file name rather <br />
* than device and inode numbers. This requires STAT.FILE to be up to date.<br />
* Author Keith Robert Johnson (New Zealand).<br />
SENTENCE = TRIM(@SENTENCE)<br />
CONVERT ' ' TO @AM IN SENTENCE<br />
WORD = UPCASE(SENTENCE<1>)<br />
IF WORD EQ 'RUN' THEN DEL SENTENCE<1> ; DEL SENTENCE<1><br />
DEL SENTENCE<1><br />
* You can restrict the output to only show stuff you are interested in.<br />
* This is useful if the output is long.<br />
THIS = SENTENCE<1><br />
OPEN 'STAT.FILE' TO STAT.FILE ELSE CRT 'Cannot open STAT.FILE'; STOP<br />
* Set up a table of device/inode pairs versus file names<br />
THAT = ''<br />
SELECT STAT.FILE<br />
LOOP WHILE READNEXT ID DO<br />
READ REC FROM STAT.FILE,ID ELSE CONTINUE<br />
NAME = REC<2><br />
NODE = (REC<8> 'R#10'):(REC<7> 'R#10')<br />
LOCATE(NODE,THAT,1;POSN;'AR') ELSE<br />
INS NODE BEFORE THAT<1,POSN><br />
INS NAME BEFORE THAT<2,POSN><br />
END<br />
REPEAT<br />
* Get the lock information<br />
EXECUTE 'LIST.READU EVERY' CAPTURING JUNK<br />
XXNO = DCOUNT(JUNK,@AM)<br />
FOR XX = 1 TO XXNO<br />
LINE = JUNK<XX><br />
NODE = LINE[1,20]<br />
LOCATE(NODE,THAT,1;POSN) THEN<br />
NAME = THAT<2,POSN><br />
END ELSE NAME = NODE<br />
IF LEN(NAME) LT 25 THEN NAME = NAME 'L#25'<br />
LINE = NAME:LINE[26,99]<br />
LINE = NAME:LINE[26,99]<br />
IF THIS = '' OR INDEX(LINE,THIS,1) THEN CRT LINE<br />
NEXT XX<br />
</PRE></div>Conversion script