valuetype-id StudentRecord.
01 #name            string public.
01 averageMark      float-short public.
method-id new(studentName as string, averageMark as float-short).
    set self::name to studentName
    set self::averageMark to averageMark
end method.
end valuetype.
class-id RecordClient.
method-id main static.
    declare stu = new StudentRecord("Bob", 3.5).
    declare stu2 as type StudentRecord
    set stu2 to stu
    set stu2::name to "Sue"
    display stu::name   *> Prints Bob
    display stu2::name  *> Prints Sue
end method.
end class.
 
		 
		ValueType のサンプルも参照してください。このサンプルは、Start > All Programs > Micro Focus Visual COBOL > Samples、COBOL for .NET の場合。 に用意されています。