#!/bin/perl -i.bakk

# Alter start dates of run so that start dump etc agree...

# Use: change-start.pl <directory>/*
#  eg: change-start.pl ~ssc/umui_jobs/waaca/*

$Y=1957;
$M=1;
$D=16;

undef $/;
while (<>) {

s/(FIXHD\(12\)=400,)(\n &END)/$1\n FIXHD(21)=$Y,\n FIXHD(22)=$M,\n FIXHD(23)=$D,\n FIXHD(28)=$Y,\n FIXHD(29)=$M,\n FIXHD(30)=$D,$2/;

print;

};