This is really cool! It's great to see a simple but nontrivial program to get a feel for how a language like this works. Reading through and knowing no COBOL, it looks like this is logistic regression on four input features.