f you have mpex, this is straight-forward.
If you don't...there are always other alternatives. It would be a fairly
simple thing to do a listfile,6 of your fileset to a file...then loop
through the file looking for your target date...with a match you
<do_something_profound> (and of course, you properly code for not finding a
match or finding multiple matches...).
Yet another choice would be 'listfx' from our friend Paul:
From the command's help:
Author: Paul H. Christidis XXXX@XXXXX.COM
Usage: listfx [FileSet] [Select_Expression]
FileSet = A :LISTFILE style fileset (If using the (fset,fset,..)
format then it MUST be included in quotes).
Select_Expression = An expression comprised of coded FINFO function
calls. A number of 'predefined' FINFO parameters, constants,
and options are available along with the capability of
specifying any of the additional FINFO parameters.
The 'predefined' items/constants/options are:
$fcode - The sting mnemonic for the file's file code.
$icode - The integer value for the file's file code.
$eof - The number of records in the file.
$recsize - File's record size in 'positive' bytes.
$credate - File's creation date.
$moddate - File's last modification date.
$accdate - File's last access date.
$sectors - Number of sectors allocated to file.
$finfo( - To invoke any other 'finfo' item.
$today - The current day in 'yyyymmdd' format.
$names - To list only the file name (listfile,6).
$ymd - List dates in 'yyyy/mmdd' format.
$pmcap - List ONLY run modules with PM capability.
Note: '$pmcap' requires READ access to qualifying
files, and will change the file's access date.
:listfx @,$fcode = 'prog' OR $icode = 1030
:listfx @,($fcode = 'prog' OR $icode = 1030) AND $accdate<>$today
:listfx ./[B-W]@ $eof < 1000 AND ($credate > $today-(18*30))
:NOTE: Correct evaluation of "$today" expressions REQUIRE that they
contain NO spaces AND the command file "dtoffset" IS present AND col-
located with THIS command file. IN its absence the expression's result
MUST evaluate within the current month.
:listfx "(./[B-W]@,/SYS/PUB/@)" $eof<1000 AND $finfo("limit")>25000
:listfx "(./[B-W]@,/SYS/PUB/@)" $eof<100 AND $pmcap $names
Allegro Consultants, Inc.
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *