print "$last_job\nlast_bsr_block=$last_bsr_block last_block_read=$last_block\n";
check_block();
$last_bsr_block = $last_block=0;
print "$last_job\nlast_bsr_block=$last_bsr_block last_block_read=$last_block\n";
check_block();
$last_bsr_block = $last_block=0;
$last_bsr_block=$1 if /fd_cmds.c:.+VolBlock=\d+-(\d+)/;
$last_block=$1 if /read_record.c.+file:block=\d+:(\d+)/;
END {
$last_bsr_block=$1 if /fd_cmds.c:.+VolBlock=\d+-(\d+)/;
$last_block=$1 if /read_record.c.+file:block=\d+:(\d+)/;
END {