viprog.cbl; added a test line