- · 创建Session
- · 获取CI对象
- · 填充create keys
- · 创建一个CI实例
- · 填充所需字段
- · 保存CI
&Session = GetSession();
&CI = &Session.GetcompIntfc(CompIntfc.INTERFACE_NAME)
&CI.KEY_FILED_NAME = ‘NEW’
If not &CI.Create () Then
Else
Populate other fields
End-if;
Populate the other fields
If not &CI.Save () Then
Else
End-if;