文件名
语法
TPM_CheckDependencies(VAL tablesToBeBuilt: LIST OF INTEGER, REF dependencyErrors: LIST OF STRING)
参数
tablesToBeBuilt - 要建立/移植的产品应用标识
dependencyErrors - 返回的相关性检验状态
返回
如果由于和其它产品的相关性导致不能建立该产品表,则
dependencyError 被设为说明失踪的相关性的字符串列表
(每个字符串说明一个相关性)。
如果没有相关性问题,dependencyError 设为 $UNKNOWN。
副作用
无
说明
根据其它产品的表被建立/移植到新版本,本过程确定本产品的表可以建立还是可以移植。
调用的对话框窗体
无
文件名
语法
TPM_GetCurrentTableVersion(VAL applicationID: INTEGER, REF oldVersion: VERSION_REC)
参数
applicationID - 该应用程序的整数标识(用来索引 SAI_APP_PARAMS 表)
oldVersion - 当前建立的表的版本(如果有的话)
返回
如果提供的 oldVersion 不正确,则返回一个更新过的 oldVersion。
副作用
无
说明
本过程确定表是否在配置的数据库中建立,并返回这些表的版本。
调用的对话框窗体
无
文件名
语法
TPM_GetGrantScripts(REF scriptsToRun: LIST OF STRING)
参数
scriptsToRun - 要运行的许可脚本
返回
含要运行的许可脚本的 scriptsToRun
副作用
无
说明
本过程根据当前配置的数据库平台获得要运行的 TPM 表许可脚本。
调用的对话框窗体
无
文件名
语法
TPM_GetNextDropScripts(REF currentScript: INTEGER, REF scriptsToRun: LIST OF STRING)
参数
currentScript - 正在执行的当前脚本的索引
scriptsToRun - 要运行的脚本列表
返回
在 currentScript 中,返回要运行的下一脚本集的索引
在 scriptsToRun 中,返回配置的平台上要运行的脚本
列表。
副作用
无
说明
提供要执行的数据库 DROP 脚本的文件名列表。自变量 currentScript 可用来跟踪已经运行了什么脚本。该例行程序设置的 currentScript 值在下一次调用该例行程序时将提供给该例行程序。如果接收的 currentScript 值为 $UNKNOWN,则应提供第一个脚本。如果已经运行了所有脚本,则 currentScript 设为 $UNKNOWN。根据正在处理的 DBMS 名称,确定恰当的脚本列表。全局变量 paramRDBMS 用来确定已经选择和配置了什么 DBMS。
调用的对话框窗体
无
文件名
语法
TPM_GetNextScripts(VAL buildAction: INTEGER, VAL oldVersion: VERSION_REC, VAL newVersion: VERSION_REC, REF currentScript: INTEGER, REF scriptsToRun: LIST OF STRING)
参数
buildAction - 确定将运行一个移植还是新建立的脚本
oldVersion - 从其移植的旧版本
newVersion - 要移植到的新版本
currentScript - 正在执行的当前脚本的索引
scriptsToRun - 要运行的脚本列表
返回
在 scriptsToRun 中返回 currentScript 的新值
和下一步要运行的文件列表。
副作用
无
说明
提供下一步要执行的数据库脚本的文件名列表。自变量 currentScript 可用来跟踪已经运行了什么脚本。该例行程序设置的 currentScript 值在下一次调用该例行程序时将提供给该例行程序。如果接收的 currentScript 值为 $UNKNOWN,则应提供第一个脚本。如果已经运行了所有脚本,则 currentScript 设为 $UNKNOWN。根据输入参数确定恰当的脚本列表,此输入参数指定将执行什么建立操作、从什么版本移植和移植到什么版本(如果执行移植)。全局变量 paramRDBMS 用来确定已经选择和配置了什么 DBMS。 TPM_GetNextScripts 检验在主 TPM 建立或移植之后是否需要安装以前的单个产品。
调用的对话框窗体
无
文件名
语法
TPM_GetRevokeScripts(REF scriptsToRun: LIST OF STRING)
参数
scriptsToRun - 要运行的取消脚本
返回
含要运行的取消脚本的 scriptsToRun
副作用
无
说明
本过程根据当前配置的数据库平台获得要运行的 TPM 表取消脚本。
调用的对话框窗体
无
文件名
语法
TPM_PostScriptExecution(VAL buildAction: INTEGER, VAL oldVersion: VERSION_REC, VAL newVersion: VERSION_REC, VAL currentScript: INTEGER, VAL scriptStatus: Boolean,VAL wHdl: WINDOW, REF actionStatus: INTEGER)
参数
buildAction - 确定运行了一个移植还是新建立的脚本
oldVersion - 从其移植的旧版本
newVersion - 要移植到的新版本
currentScript - 正在执行的当前脚本的索引
scriptStatus - 以前执行的脚本的成功状态
wHdl - 遇到错误时用于显示错误消息的窗口句柄
actionStatus: 正在执行的操作的返回状态
返回
在 TPM_PostScriptExecution 中执行的操作的状态(如果有的话)
副作用
无
说明
本过程是一个挂起调出,它允许在执行数据库脚本列表之后执行产品特定代码。输入参数用来使该例行程序知道在建立进程的何处执行该例行程序。这些值指定什么脚本由调用例行程序执行。输出参数 actionStatus 的用途是允许该例行程序中断该产品的建立进程。如果 actionStatus 返回值 1,该产品的建立将继续。如果 actionStatus返回非 1 值,该产品的建立将中断。当前调用的投递操作脚本添加概要文件数据,并根据添加到以前脚本的系统操作更新问题操作。
调用的对话框窗体
无
文件名
语法
TPM_PreScriptExecution(VAL buildAction: INTEGER, VAL oldVersion: VERSION_REC, VAL newVersion: VERSION_REC, VAL currentScript: INTEGER, VAL wHdl: WINDOW, REF actionStatus: INTEGER)
参数
buildAction - 确定将运行一个移植还是新建立的脚本
oldVersion - 从其移植的旧版本
newVersion - 要移植到的新版本
currentScript - 正在执行的当前脚本的索引
wHdl - 遇到错误时用于显示错误消息的窗口句柄
actionStatus: 正在执行的操作的返回状态
返回
在 TPM_PreScriptExecution 中执行的操作的状态(如果有的话)
副作用
无
说明
本过程是一个挂起调出,它允许在执行数据库脚本列表之前执行产品特定代码。输入参数用来使该例行程序知道在建立进程的何处执行该例行程序。这些值指定什么脚本将由调用例行程序执行。输出参数 actionStatus 的用途是允许该例行程序中断该产品的建立进程。如果 actionStatus 返回值 1,该产品的建立将继续。如果 actionStatus 返回非 1 值,则该产品的建立将中断。
调用的对话框窗体
无
文件名
语法
TPM_SupportMigration(VAL oldVersion: VERSION_REC, VAL newVersion: VERSION_REC, REF supportMigration: BOOLEAN)
参数
oldVersion - 从其移植的旧版本
newVersion - 要移植到的新版本
supportMigration - 确定是否支持移植的标志
返回
如果支持移植,则 supportMigration 设为 TRUE。
副作用
无
说明
该过程确定该产品是否支持表从指定的旧版本到指定的新版本的移植。
调用的对话框窗体
无