33 lines
939 B
Plaintext
33 lines
939 B
Plaintext
|
*----------------------------------------------------------------
|
||
|
*PGM NAME: FILE.INFO2
|
||
|
*PURPOSE: DISPLAY RELEVANT FILE STATISTICS QUICKLY
|
||
|
*AUTHOR: BARKSDALE
|
||
|
*CREATED: 09/27/94
|
||
|
*----------------------------------------------------------------
|
||
|
$INCLUDE GEN.COM2
|
||
|
FN=''
|
||
|
GET(ARG.)FN
|
||
|
IF FN='' THEN
|
||
|
CRT 'Enter file name: ':
|
||
|
FN='' ; INPUT FN
|
||
|
END
|
||
|
IF FN='' THEN STOP
|
||
|
OPEN FN TO IFN ELSE ABORT 201,FN
|
||
|
STATUS INFO FROM IFN ELSE ABORT
|
||
|
PERMISSIONS=OCONV(INFO<5>,"MO")
|
||
|
LNGTH=LEN(PERMISSIONS)
|
||
|
FILE.SIZE=INFO<6>/1000000
|
||
|
CRT CS
|
||
|
CRT
|
||
|
CRT 'FILE: ':FN
|
||
|
CRT
|
||
|
CRT "Type :":INFO<21>
|
||
|
CRT "Modulo :":INFO<22>
|
||
|
CRT "Separation :":INFO<23>
|
||
|
CRT "Actual Size :":INFO<6>:" bytes (":FILE.SIZE:" meg)"
|
||
|
CRT "UNIX Path :":INFO<27>
|
||
|
CRT "Permissions :":PERMISSIONS[LNGTH-2,3]
|
||
|
CRT "Last Access :":OCONV(INFO<14>,"D2/"):" ":OCONV(INFO<13>,"MTS")
|
||
|
CRT "Last Update :":OCONV(INFO<16>,"D2/"):" ":OCONV(INFO<15>,"MTS")
|
||
|
STOP
|