*----------------------------------------------------------------
*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