>> Shouldn't it just exit or prompt me to put in the right # of days again?
Yes, if you made the edit correctly, then it should.
See my early example how to use a single IF with OR clause if desired.
>> it just hangs there
Are you sure? Dcl scripts do not 'just sit there'.
Check at least with control-T or SET VERIFY
(control-Y, $set verify, $continue).
Please note MANY inefficiencies and oddities in the script.
imho that "f$cvtime("-''date'-00"
is better written withotu the "00". That just confuses.
Instead of worrying about spaces in the dates before the 10'th you may want to search using ... /MATCH=AND "Start: ", " ''thedate'"
IF you are going to unconditionally append the search out to a file, then why not have search put it there directly?
Instead of
$create 'outf'
$loop:
$sea/out=x.tmp
$appen x.tmp 'outf'
:
$if .not.done then goto loop
use:
$create 'outf'
$open/append outf 'outf'
$loop:
$sea/out=outf
:
$if .not.done then goto loop
$close outf
But most importantly... don't loop through the file over and over!
You might want to open it with DCL, or an other language, check each record. If it has "Start:", then check the date.
Personally I would use perl.
I'll stick in an example, because the date handling might be tricky for a first time.
Usage:
$perl date-filter.pl stats_dir:autostat.dat 123 > 'outf'
#---- date-filter.pl ----
use strict;
use Time::Local;
my $file = shift or die "Please provide file to search";
my $days = shift or die "Please provide a number of daqys to look for";
my ($sec,$min,$hour,$mday,$mon,$year) = localtime();
my $cutoff = timelocal(0,0,0,$mday,$mon,$year) - $days*86400;
open FILE, "<$file" or die "Could not open search file $file\n$!";
while () {
if (/(\d+)-(\w+)-(\d+)/) {
my $n = index(" JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC", $2)/3;
print if $cutoff < timelocal(0,0,0,$1,$n-1,$3-1900);
}
}
#-------------------------------
Enjoy,
Hein.
