https://pickwiki.org/index.php?action=history&feed=atom&title=FileStatus FileStatus - Revision history 2026-04-28T22:10:23Z Revision history for this page on the wiki MediaWiki 1.43.0 https://pickwiki.org/index.php?title=FileStatus&diff=1786&oldid=prev Conversion script: link fix 2015-02-26T23:48:54Z <p>link fix</p> <p><b>New page</b></p><div>Back to [[BasicSource]]<br /> <br /> &lt;pre&gt;<br /> PROGRAM FILESTATUS<br /> * ECL - KRJ - Universe - information about a file using STATUS*<br /> *<br /> EQU AM TO CHAR(254), VM TO CHAR(253), SM TO CHAR(252)<br /> TRUE = 1 = 1; FALSE = NOT(TRUE); QT = &#039;&quot;\&#039;:&quot;&#039;&quot;<br /> REST = @SENTENCE<br /> KEEPQUOT = FALSE<br /> GOSUB PARSE.REST<br /> TEMP = DCOUNT(BITE,AM)<br /> OPTIONS = BITE&lt;TEMP&gt;<br /> IF OPTIONS[1,1] = &#039;(&#039; THEN<br /> OPTIONS = FIELD(FIELD(OPTIONS,&#039;(&#039;,2),&#039;)&#039;,1)<br /> BITE = DELETE(BITE,TEMP,0,0)<br /> END ELSE OPTIONS = &#039;&#039;<br /> IF OCONV(BITE&lt;1&gt;,&#039;MCU&#039;) = &#039;RUN&#039; THEN<br /> BITE = DELETE(BITE,1,0,0)<br /> BITE = DELETE(BITE,1,0,0)<br /> END<br /> BITE = DELETE(BITE,1,0,0)<br /> *<br /> FNAM = BITE&lt;1&gt;<br /> BITE = DELETE(BITE,1,0,0)<br /> IF FNAM = &#039;DICT&#039; THEN<br /> FNAM = FNAM:&#039; &#039;:BITE&lt;1&gt;<br /> BITE = DELETE(BITE,1,0,0)<br /> END<br /> * Get file<br /> LOOP<br /> GOT.FILE = FALSE<br /> IF FNAM = &#039;&#039; THEN<br /> CRT &#039;File &gt;&#039;:<br /> INPUT FNAM<br /> END<br /> IF FNAM = &#039;&#039; THEN STOP<br /> DPRT = FIELD(FNAM,&#039; &#039;,1)<br /> FPRT = FIELD(FNAM,&#039; &#039;,2)<br /> IF FPRT = &#039;&#039; THEN FPRT = DPRT ; DPRT = &#039;&#039;<br /> OPEN DPRT, FPRT TO FILE THEN<br /> GOT.FILE = TRUE<br /> END ELSE<br /> CRT &#039;Unable to find file &quot;&#039;:FNAM:&#039;&quot;.&#039;<br /> FNAM = &#039;&#039;<br /> END<br /> UNTIL GOT.FILE DO<br /> REPEAT<br /> *<br /> STATUS JUNK FROM FILE ELSE STOP<br /> <br /> * CRT &#039; Current position :&#039;: JUNK&lt;1&gt;<br /> * CRT &#039; End of file reached :&#039;: JUNK&lt;2&gt;<br /> * CRT &#039; Error accessing file :&#039;: JUNK&lt;3&gt;<br /> * CRT &#039; Number of bytes available :&#039;: JUNK&lt;4&gt;<br /> CRT &#039; File Permissions :&#039;: OCONV(JUNK&lt;5&gt;,&#039;MO&#039;)<br /> CRT &#039; File Size :&#039;: JUNK&lt;6&gt;:&#039; bytes&#039;<br /> CRT &#039; Number of hard links :&#039;: JUNK&lt;7&gt;<br /> CRT &#039; User ID of owner :&#039;: JUNK&lt;8&gt;<br /> CRT &#039; Group ID of owner :&#039;: JUNK&lt;9&gt;<br /> CRT &#039; I-node number :&#039;: JUNK&lt;10&gt;<br /> CRT &#039; Device on which i-node :&#039;: JUNK&lt;11&gt;<br /> CRT &#039; Device for special char :&#039;: JUNK&lt;12&gt;<br /> CRT &#039; Last Accessed :&#039;: OCONV(JUNK&lt;14&gt;,&#039;D&#039;):<br /> CRT &#039; &#039;: OCONV(JUNK&lt;13&gt;,&#039;MTS&#039;)<br /> CRT &#039; Last modified :&#039;: OCONV(JUNK&lt;16&gt;,&#039;D&#039;):<br /> CRT &#039; &#039;: OCONV(JUNK&lt;15&gt;,&#039;MTS&#039;)<br /> CRT &#039; Last Status Changed :&#039;: OCONV(JUNK&lt;18&gt;,&#039;D&#039;):<br /> CRT &#039; &#039;: OCONV(JUNK&lt;17&gt;,&#039;MTS&#039;)<br /> * CRT &#039; Bytes left in output queue :&#039;: JUNK&lt;19&gt;<br /> CRT &#039; Operating system filename :&#039;: JUNK&lt;20&gt;<br /> CRT &#039; File type, Modulo, Separation :&#039;: JUNK&lt;21&gt;:<br /> CRT &#039;,&#039;: JUNK&lt;22&gt;:&#039;,&#039;:JUNK&lt;23&gt;<br /> CRT &#039; Part numbers of part files :&#039;: JUNK&lt;24&gt;<br /> CRT &#039; Pathnames of part files :&#039;: JUNK&lt;25&gt;<br /> CRT &#039; Filenames of part files :&#039;: JUNK&lt;26&gt;<br /> CRT &#039; Full pathname :&#039;: JUNK&lt;27&gt;<br /> CRT &#039; SQL file privileges :&#039;:<br /> PRIV = JUNK&lt;28&gt;<br /> BEGIN CASE<br /> CASE PRIV = &#039;1&#039; ; CRT &#039;write-only&#039;<br /> CASE PRIV = &#039;2&#039; ; CRT &#039;read-only&#039;<br /> CASE PRIV = &#039;3&#039; ; CRT &#039;read/write&#039;<br /> CASE PRIV = &#039;4&#039; ; CRT &#039;delete-only&#039;<br /> CASE PRIV = &#039;5&#039; ; CRT &#039;delete/write&#039;<br /> CASE PRIV = &#039;6&#039; ; CRT &#039;delete/read&#039;<br /> CASE PRIV = &#039;7&#039; ; CRT &#039;delete/read/write&#039;<br /> CASE 1 ; CRT PRIV<br /> END CASE<br /> CRT &#039; SQL file privileges flag :&#039;: JUNK&lt;29&gt;<br /> CRT &#039; Owner User name :&#039;: JUNK&lt;30&gt;<br /> CRT &#039; UNIX file type :&#039;: JUNK&lt;31&gt;:&#039; &#039;:<br /> TYPE = JUNK&lt;32&gt;<br /> BEGIN CASE<br /> CASE TYPE = &#039;1&#039; ; CRT &#039;Old 32-bit file&#039;<br /> CASE TYPE = &#039;3&#039; ; CRT &#039;New 32-bit file&#039;<br /> CASE TYPE = &#039;5&#039; ; CRT &#039;New 64-bit file&#039;<br /> CASE 1 ; CRT TYPE<br /> END CASE<br /> <br /> STOP<br /> *<br /> PARSE.REST:<br /> BITE = &#039;&#039;<br /> FLAG = &#039;&#039;<br /> POSN = 1<br /> XXCNT = LEN(REST)<br /> FOR XX = 1 TO XXCNT<br /> BIT = REST[XX,1]<br /> IF FLAG EQ &#039;&#039; THEN<br /> IF BIT = &#039; &#039; THEN<br /> IF BITE&lt;POSN&gt; NE &#039;&#039; THEN POSN = POSN + 1<br /> END ELSE<br /> IF INDEX(QT,BIT,1) THEN<br /> FLAG = BIT<br /> IF KEEPQUOT THEN BITE&lt;POSN&gt; = BITE&lt;POSN&gt;:BIT<br /> END ELSE<br /> IF BIT = &#039;(&#039; THEN<br /> FLAG = &#039;)&#039;<br /> IF BITE&lt;POSN&gt; NE &#039;&#039; THEN POSN = POSN + 1<br /> BITE&lt;POSN&gt; = &#039;(&#039;<br /> END ELSE BITE&lt;POSN&gt; = BITE&lt;POSN&gt;:BIT<br /> END<br /> END<br /> END ELSE<br /> IF BIT NE FLAG THEN<br /> BITE&lt;POSN&gt; = BITE&lt;POSN&gt;:BIT<br /> END ELSE<br /> IF KEEPQUOT OR BIT = &#039;)&#039; THEN BITE&lt;POSN&gt; = BITE&lt;POSN&gt;:BIT<br /> POSN = POSN + 1<br /> FLAG = &#039;&#039;<br /> END<br /> END<br /> NEXT XX<br /> RETURN<br /> &lt;/pre&gt;</div> Conversion script