Update COS720.cbl