IBM COBOL program fix

Fixed sort04.cob amounts and arithmetic on those fields after figuring out how…again, how IBM COBOL works with these fields. It was working but not displaying amount fields and I had left it that way until I understood why. By working I mean producing output and running to completion. So I guess I should really say it wasn’t working properly. Should have created data with proper amounts. Processing would have been easier by not including decimal in data so 01095 instead of 010.95. But it’s been many years since working with IBM COBOL. I think it wasn’t a problem with gnuCOBOL since this was a port of that source!