Create COS720.cbl