tldm-universe/CMS/BP.CLOCK/FILE.INFO

33 lines
939 B
Plaintext
Raw Normal View History

2024-09-10 19:25:06 +00:00
*----------------------------------------------------------------
*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