33 lines
939 B
Plaintext
Executable File
33 lines
939 B
Plaintext
Executable File
*----------------------------------------------------------------
|
|
*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
|