COBCH1578 VALUETYPE インスタンスフィールドには VALUE は指定できない

定義から句を削除して再コンパイルします。

次の例には、#name インスタンス フィールドに無効な構成が含まれています。

valuetype-id StudentRecord.
 01 #name string public VALUE "Mike Focus". *> remove the VALUE clause
 01 gpa float-short public.		
 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.