| 001600 01  indate-code          pic s9(9) value 385.

Right off the bat, I don't recognize this date code of 385.  According to my
manual, the date codes run from 1 to 38, with 38 being ASCII  YYYYMMDD. Is
that a typo?

I will look it over and see if there are any other problems.

    Tom Hula
    Victor S. Barnes Company
    Grand Rapids MI
    616-361-7351