File Control ('9' record) block count
File Control ('9' record) block count

Did not include 9 record in modulus part, so it was accidentally adding 1 to block out.  Also changed logic to respect the block count noted in the file header ('1' record), if it happened to be something other than 10.
afrunt/jach,afrunt/jach