转换从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.
光标转换
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查询转换
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.
程序调用转换
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.
扩展名转换
为什么选择Ispirer MnMTK?
Ispirer MnMTK动您的Pro*Cobol嵌入式Oracle应用到Cobol嵌入式HiRDB的迁移过程。此外,您对Ispirer MnMTK减少风险和低内部的努力。所有这些好处是可用的在最合理和竞争成本,可以数据库和应用迁移Ispirer MnMTK工具更加生动工具为此项目类型。
如果您要寻找价格政策,请您点击报价请求。
|