Here is a command file I made for the purpose of seeing dates.
You call it with an optional MPE wildcarded fileset, and a display
option. My defaults did not include access date. So I added the
display option "A" for access date instead of owner.
FILE: LDATE
======================================================================
PARM FILES=@, POPT=""
SETVAR XSI_OPT UPS ( LFT ( "!POPT", 1 ))
IF FINFO ( "LDATELST,TEMP", "EXISTS" ) THEN
PURGE LDATELST,TEMP
ENDIF
FILE LDATELST;MSG;TEMP;NOCCTL;REC=-40,,F,ASCII;DISC=100000
LISTF !FILES,6;*LDATELST
FILE LDATELST,OLDTEMP
SETVAR XSI_CNT FINFO ( "LDATELST,TEMP", "EOF" )
SETVAR XSI_R 0
IF XSI_OPT = "A" THEN
ECHO Filename Fcode EOF Created Modified &
Allocate UL Accessed
ELSE
ECHO Filename Fcode EOF Created Modified &
Allocate UL Owner
ENDIF
ECHO ------------------------- ----- -------- -------- -------- &
-------- -- --------
WHILE !XSI_R < !XSI_CNT DO
INPUT XSI_FILE < LDATELST
SETVAR XSI_R XSI_R + 1
SETVAR XSI_FILE RTRIM ( XSI_FILE )
SETVAR XSI_XD FINFO ( XSI_FILE, "INTCREATED" )
SETVAR XSI_XD "!XSI_XD"
SETVAR XSI_CD STR(XSI_XD,5,2)+"/"+STR(XSI_XD,7,2)+"/"+STR(XSI_XD,3,2)
SETVAR XSI_XD FINFO ( XSI_FILE, "INTMODDATE" )
SETVAR XSI_XD "!XSI_XD"
SETVAR XSI_MD STR(XSI_XD,5,2)+"/"+STR(XSI_XD,7,2)+"/"+STR(XSI_XD,3,2)
SETVAR XSI_XD FINFO ( XSI_FILE, "INTALLOCDATE" )
SETVAR XSI_XD "!XSI_XD"
SETVAR XSI_RD STR(XSI_XD,5,2)+"/"+STR(XSI_XD,7,2)+"/"+STR(XSI_XD,3,2)
SETVAR XSI_XD FINFO ( XSI_FILE, "INTACCESSED" )
SETVAR XSI_XD "!XSI_XD"
SETVAR XSI_AD STR(XSI_XD,5,2)+"/"+STR(XSI_XD,7,2)+"/"+STR(XSI_XD,3,2)
SETVAR XSI_OW LFT ( FINFO ( XSI_FILE, "OWNER" )+" ",8)
SETVAR XSI_FC LFT ( FINFO ( XSI_FILE, "FMTFCODE" )+" ",5)
SETVAR XSI_EF RHT ( ' ![FINFO ( XSI_FILE, "EOF" )]',8)
SETVAR XSI_UL LFT ( '![FINFO ( XSI_FILE, "USER LABELS WRITTEN")]'+' ',2)
IF XSI_UL = "0 " THEN
SETVAR XSI_UL " "
ENDIF
SETVAR XSI_FILE LFT ( XSI_FILE + RPT ( " ", 26 ), 26 )
IF XSI_OPT = "A"
ECHO !XSI_FILE!XSI_FC !XSI_EF !XSI_CD !XSI_MD !XSI_RD !XSI_UL !XSI_AD
ELSE
ECHO !XSI_FILE!XSI_FC !XSI_EF !XSI_CD !XSI_MD !XSI_RD !XSI_UL !XSI_OW
ENDIF
ENDWHILE
ECHO ------------------------- ----- -------- -------- -------- &
-------- -- --------
ECHO !XSI_CNT FILES
DELETEVAR XSI_@
PURGE LDATELST,TEMP
======================================================================
Beware, lines may have wrapped.
:LDATE C@
Filename Fcode EOF Created Modified Allocate UL Owner
------------------------- ----- -------- -------- -------- -------- -- --------
C1C.SPW.KEVENM 16 02/15/05 02/15/05 02/15/05 MGR.KEVE
C1P.SPW.KEVENM NMPRG 105 02/15/05 02/15/05 02/15/05 MGR.KEVE
C2C.SPW.KEVENM 133 02/16/05 02/16/05 02/16/05 MGR.KEVE
C2P.SPW.KEVENM NMPRG 155 02/16/05 02/16/05 02/16/05 MGR.KEVE
C3C.SPW.KEVENM 12 03/03/05 03/03/05 03/03/05 MGR.KEVE
C3P.SPW.KEVENM NMPRG 105 03/03/05 03/03/05 03/03/05 MGR.KEVE
C4C.SPW.KEVENM 87 03/04/05 03/04/05 03/04/05 MGR.KEVE
C4P.SPW.KEVENM NMPRG 106 03/04/05 03/04/05 03/04/05 MGR.KEVE
------------------------- ----- -------- -------- -------- -------- -- --------
9 FILES
:LDATE C@,A
Filename Fcode EOF Created Modified Allocate UL Accessed
------------------------- ----- -------- -------- -------- -------- -- --------
C1C.SPW.KEVENM 16 02/15/05 02/15/05 02/15/05 03/03/05
C1P.SPW.KEVENM NMPRG 105 02/15/05 02/15/05 02/15/05 02/15/05
C2C.SPW.KEVENM 133 02/16/05 02/16/05 02/16/05 02/22/05
C2P.SPW.KEVENM NMPRG 155 02/16/05 02/16/05 02/16/05 02/16/05
C3C.SPW.KEVENM 12 03/03/05 03/03/05 03/03/05 03/03/05
C3P.SPW.KEVENM NMPRG 105 03/03/05 03/03/05 03/03/05 03/03/05
C4C.SPW.KEVENM 87 03/04/05 03/04/05 03/04/05 03/04/05
C4P.SPW.KEVENM NMPRG 106 03/04/05 03/04/05 03/04/05 03/04/05
------------------------- ----- -------- -------- -------- -------- -- --------
9 FILES
Keven Miller
[log in to unmask]
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
