文件名
语法
FUNCTION Change_OkToPaste(VAL wHdl: WINDOW,
VAL table: STRING, VAL ID: STRING, VAL child_org: STRING, VAL
parent_org: STRING): BOOLEAN
参数
wHdl - 调用对话框的窗口句柄
table - 该表是对象的一个引用(例如,场所、库存类别、更改类别和连接)
ID - 表的主键标识(例如,场所标识、h_对象标识、类别、连接标识)
child_org - 当前指定给对象的组织标识
parent_org - 正在粘贴对象的节点的组织标识
返回
布尔值
副作用
无
说明
该函数检查是否在另一个对象下面粘贴节点,该对象被赋予了新对象的组织标识。如果有可能违反多用户环境下的规则,则不允许粘贴。当前,TCM 始终返回 TRUE 值。
调用的对话窗口
无
文件名
语法
CreateChangeFromCallRegistration(VAL people_id: INTEGER, VAL location_id: STRING, VAL organization_id: STRING, VAL problem_id: STRING, VAL system: STRING, VAL component: STRING, VAL item: STRING, VAL module: STRING, VAL description: STRING, VAL severity: INTEGER, VAL inventory_id: STRING, VAL first_contact_id: STRING ) IS
参数
people_id - 呼叫者/联系人的人员标识
location_id - 联系人的场所标识
organization_id - 联系人的组织标识
problem_id - 问题记录的问题标识
system - TPM 系统 (尚未使用)
component - TPM 组件 (尚未使用)
item - TPM 项 (尚未使用)
module - TPM 模块 (尚未使用)
description - 问题说明
severity - TPM 严重性 (尚未使用)
inventory_id - 如果存在相关联的库存,则为库存标识
first_contact_id - 呼叫注册对话框中的第一个联系人标识
返回
无
副作用
创建更改请求。
说明
该过程在 TPM 中为呼叫注册对话框中的问题创建新的更改请求。传入的数据将被转换成 ProblemRec 类型的记录,然后传给 R_EditChangesForProblem,TCM 在此拾起该记录并生成更改请求。
调用的对话窗口
无
文件名
语法
DeleteChangeFromProblemID_API(VAL prob_id: STRING) IS
参数
prob_id - 问题标识
返回
无
副作用
无
说明
该例行程序是一个封装(wrapper)例行程序,能让 TPM 删除与问题相关联的所有更改。在用户取消问题后,该过程只能由 TPM 来调用。只有那些在“新问题更改”菜单项中创建的更改会受影响。
调用的对话窗口
无
文件名
语法
DisplayChangesDialog(Val wHdl: WINDOW, VAL Chng_Inv_VwList: LIST OF Chng_Inv_VwRec)
参数
wHdl - 父窗口句柄
Chng_Inv_VwList - Chng_Inv_Vw 记录列表
返回
Chng_Inv_Vw 记录列表
副作用
无
说明
该过程植入相关联的更改并调用更改对话框。
调用的对话窗口
无
文件名
语法
Do_TCM_Purge(VAL PurgeWhdl: WINDOW, VAL Orgs: LIST OF STRING): INTEGER IS
参数
PurgeWhdl - 调用对话框的窗口句柄
Orgs - 正清除的组织的组织标识
返回
指示成功或失败的整数
副作用
无
说明
这是一个类属例行程序,可以通过调用它来为 TCM 请求清除操作。
调用的对话窗口
无
文件名
语法
EditChangesForProblem( VAL Problem: ProblemRecord) IS
参数
Problem - 要限制其显示的更改的问题
返回
无
副作用
无
说明
该过程是一个对 R_EditChangesForProblem 的封装。
调用的对话窗口
无
文件名
语法
EEInstalled: BOOLEAN IS
参数
无
返回
无
副作用
无
说明
该函数返回一个布尔类型的'True'值,指明已安装了 Tivoli 更改管理。
调用的对话窗口
无
文件名
语法
FillChangesPage (VAL wHdl:WINDOW, VAL where:STRING) IS
参数
wHdl - 当前窗口句柄
where -“SQL 选择”的当前 where 子句
返回
无
副作用
无
说明
该例行程序获取相关联的更改列表,然后调用函数来填充更改列表框。
调用的对话窗口
无
文件名
语法
GetChangesForAssetList (VAL wHdl: WINDOW, VAL AssetList: LIST OF INTEGER) IS
参数
wHdl - 当前窗口句柄
AssetList - 当前资产列表
返回
无
副作用
无
说明
该封装(wrapper)例行程序为给定的资产列表返回一个更改列表。
调用的对话窗口
无
文件名
语法
GetChangesForAssets( REF Chng_Inv_VwList: LIST OF Chng_Inv_VwRec, VAL where: STRING ,VAL orderby: STRING )
参数
Chng_Inv_VwList - Chng_Inv_Vw 记录列表
where - 选择语句的 WHERE 子句
orderby -“SQL 选择”的“排序”条件
返回
Chng_Inv_Vw 记录列表
副作用
无
说明
该过程将获取与特定资产相关联的更改列表。
调用的对话窗口
无
文件名
语法
InvokeChangesDialog(Val wHdl: WINDOW, VAL where: STRING, VAL viewType: INTEGER) IS
参数
wHdl - 当前窗口句柄
where -“SQL 选择”的当前 where 子句
viewType - 查看或编辑
返回
无
副作用
无
说明
用户选择在资产列表中查看更改时调用该函数。调用该函数以获取相关联的更改,然后在未找到更改时显示一条警告消息,或用 InvChangesEvent 来调用“相关联的更改”对话框。
调用的对话窗口
无
文件名
语法
RW_UpdateEscalationStatus(VAL Command: LIST OF STRING, VAL Args: LIST OF STRING) IS
参数
Command - 命令字符串
Args - 命令字符串值
返回
无
副作用
无
说明
该封装(wrapper)例行程序更新更改升级。
调用的对话窗口
无
文件名
语法
ViewChange(Val ChangeID: INTEGER, REF Result: INTEGER ) IS
参数
ChangeID - 更改标识
Result - 更改的结果(0= 失败,1= 成功)
返回
无
副作用
ChangeID 必须是一个有效的更改标识。
说明
该封装(wrapper)例行程序将以查看方式打开更改手册。
调用的对话窗口
无