转换从Pro*Cobol嵌入式Oracle到Cobol嵌入式HiRDB

Ispirer MnMTK数据库和应用迁移工具是成本效益产品，可以迎合唯一的业务要求。我们的灵活的工具是不断变化的。我们把我们的最大应力来帮助我们的客户运行平稳的数据库和应用迁移和完成各种任务。

从Pro*Cobol嵌入式Oracle到Cobol嵌入式HiRDB迁移

转换为嵌入式SQL语句基本于最初的实现 从Oracle到HiRDB。

转换特征：

连接数据库/迁移控制转换

• 连接语句转换
• 添加新修补字节用户名和密码变量为链接由于HiRDB不支特VARCHAR变量为链接
• 添加 "MOVE"逻辑为新声明的变量

Cobol(Oracle):

EXEC SQL
CONNECT :ID22 IDENTIFIED BY :P22
END-EXEC.

Cobol (HiRDB):

WORKING-STORAGE SECTION.
** SQLWays Variable FOR Username/Password **
01  SQLWAYS-ID22 PIC X(08) DEFAULT SPACE.
01  SQLWAYS-P22   PIC X(30) DEFAULT SPACE.
           …
MOVE  ID22-ARR TO SQLWAYS-ID22.
MOVE  P22-ARR  TO SQLWAYS-P22.
 
EXEC SQL
CONNECT USER :SQLWAYS-ID22 USING :SQLWAYS-P22
END-EXEC.

光标转换

• Select查询在光标语句转换基本于从Oracle 到 HiRDB执行

Cobol(Oracle):

EXEC SQL DECLARE EMPCURSOR CURSOR FOR
SELECT T1.C2 INTO :VCHAR FROM T1, T2 
WHERE T1.C1=T2.C1(+) 
AND T2.C3(+)>0 AND T1.C4>0
END-EXEC.

Cobol (HiRDB):

EXEC SQL DECLARE EMPCURSOR CURSOR FOR
SELECT T1.C2 INTO :VCHAR FROM T1 LEFT OUTER JOIN T2 
ON T1.C1 = T2.C1 AND T2.C3 > 0 
WHERE T1.C4 > 0
END-EXEC.

DML查询转换

• Select, Insert, Update, Delete语句转换基本于从Oracle 到 HiRDB执行

Cobol(Oracle):

EXEC SQL
UPDATE T1 SET C3=add_months(C1,C2) 
END-EXEC.

Cobol (HiRDB):

EXEC SQL
UPDATE T1 SET C3 = C1+C2 MONTH 
END-EXEC.

程序调用转换

• 调用语句在PL/SQL块转换
• 去除包名称

Cobol(Oracle):

EXEC SQL 
CALL myschema.mypkge.getsal(:increase) 
END-EXEC.
 
EXEC SQL EXECUTE 
BEGIN 
myschema.mypkge.raise_salary(:emp_id); 
END; 
END-EXEC.

Cobol (HiRDB):

EXEC SQL 
CALL myschema.getsal(:increase) 
END-EXEC.
 
EXEC SQL  
CALL myschema.raise_salary(:emp_id) 
END-EXEC.

主机变量的声明

• 注释SQLCA 和 SQLDCA 变量
• 文件包括转换

Cobol(Oracle):

EXEC SQL INCLUDE SQLCA END-EXEC.
EXEC SQL INCLUDE D:\Test\Statements\incl_file.cob END-EXEC.

Cobol (HiRDB):

** EXEC SQL INCLUDE SQLCA END-EXEC.
EXEC SQL COPY incl_file END-EXEC.

扩展名转换

• 转换.PCO扩展名到 .ECB

为什么选择Ispirer MnMTK?

Ispirer MnMTK动您的Pro*Cobol嵌入式Oracle应用到Cobol嵌入式HiRDB的迁移过程。此外，您对Ispirer MnMTK减少风险和低内部的努力。所有这些好处是可用的在最合理和竞争成本，可以数据库和应用迁移Ispirer MnMTK工具更加生动工具为此项目类型。

如果您要寻找价格政策，请您点击报价请求。