COBCH1567 VALUETYPE 定義には最低１個のインスタンスフィールドを指定する必要がある

以下の VALUETYPE には、2 つのインスタンス フィールドが含まれています。

valuetype-id StudentRecord.
 01 #name string public.   *> an instance field
 01 gpa float-short public. *> another instance field
 method-id new.
  procedure division using by value nam as string, 
                                  gpa as float-short.
  set #name to nam
  set self::"gpa" to gpa
 end method.
end valuetype.