set mdl = ActiveModel
Set opt = mdl.GetModelOptions()
Output « NameNamingConventions.Count: » & opt.NameNamingConventions.Count
Output « CodeNamingConventions.Count: » & opt.CodeNamingConventions.Count
for each ncon in opt.NameNamingConventions
ncon.script = « news value »
next
opt.Save
opt.UpdateModelOptions
mdl.save
‘mdl.close