Something like:
class-id Car.
01 Driver type Driver property.
method-id new.
invoke self::new(new Driver)
set Driver::Name to "Speed Racer"
end method.
method-id new (driver as type Driver)
set self::Driver to driver
end method.
end class.
class-id Driver.
01 #Name string property.
end class.
The 'property' keyword on the 01 level instance fields sets up a private field and a public property. The # in '#Name' serves to allow the use of a COBOL reserved word (Name) as a data name. The '#' character is removed from the externalized name.