DB2+COBOL操作
DB2-分布式关系型数据库。
1.概念：
对数据库的处理过程是以事物为单位进行的。
组织与管理是以表为单位进行的。
表是放在表空间（table space）中的，
表空间是放在数据库（database）中的。
Scheme：是指实体名称中的高位标识字段，该字段用于标志整个名称。
当建立一个用户时，会产生一个同名的scheme。
如：SET CURRENT SCHEME = 'PAYROLL'
SELECT * FROM EMPLOYEE. ---等同于下一条语句。
SELECT * FROM PAYROLL.EMPLOYEE.
视图：VIEW，一张虚拟表，通常将多表链接的结果
作为视图，以方便数据查询。
索引：INDEX，直接建立在表上的，相当于一个目录，
也是方便数据查询。
2.应用：
SQLCA：SQL通信区域，实现COBOL和DB2的交互。
执行SQL后，会产生一个称作SQLCODE的返回码，数字组成，
存放于SQLCA中，为0或者100时，成功，为负数时错误。
在SQLCA中，还有SQLSTATE，由字符组成。
DB2 catalog：数据字典，一张系统表，用来存放数据库所用的有关信息。
对于用户而言，为只读的。
DB2 directory：功能相似于catalog，性能高，是以VSAM文件组织存放数据的。
二者同步时，以DB2 directory为准。
COBOL中调用SQL语句的格式：
嵌入式SQL
主变量：即可为COBOL所用，也可为SQL语句所用（前面加‘：’）。
如：DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL INCLUDE SQLCA END-EXEC. --通信区（必写）
EXEC SQL INCLUDE COURSERCD EXEC-EXEC. --指定数据记录
01 COURSE-DETAIL.
03 RCODE PIC X(4). --主变量，
03 RNAME PIC X(20).
03 RINST PIC X(10).
03 RDAYS PIC 9.
PROCEDURE DIVISION.
MOVE '00AB' TO RCODE.
MOVE 'GANG' TO RNAME.
MOVE 'SICC' TO RINST.
EXEC SQL
INSERT INTO Q.COURSE ( CODE, NAME)
VALUES ( :RCODE, :RNAME)
UPDATE Q.COURSE
SET INST = :RINST
WHERE CODE = :RCODE.
SELECT DAYS
INTO :RDAYS FROM Q.COURSE
WHERE CODE = :RCODE.
END-EXEC.
...
指示变量：在主变量之后，用于指示主变量所接收到数据是否为空。
当为空时，指示变量为负数。
用途：测试数据是否为空值，将空值传递给DB2中的数据。
如：EXEC SQL
SELECT NO, NAME
INTO :NO, :NAME:IND1 --测试空值
FROM TESTB
WHERE NO = :NO
END-EXEC.
IF IND1 < 0 MOVE 'UNKNOW' TO TESTATTR1.
...
sql中delete用法 MOVE -1 TO IND1.
MOVE '00A1' TO NO.
EXEC SQL
SET NAME = :NAME:IND1 --存储空值
WHERE NO = :NO
ENDE-EXEC.
动态SQL：将SQL首先读入变量，通过嵌入式SQL执行变量中的SQL。
包含SELECT和非SELECT（含有参数和不含有参数）
不含有参数的SELECT:
如：01 STMT.
49 STMT-LEN PIC S9(4) COMP VALUE +255.
49 STMT-TEXT PIC X(255).
MOVE 'DELETE FROM TESTTB'.
EXEC SQL
EXECUTE IMMEDIATE :STMT --执行
END-EXEC
含有参数的SELECT:
如：01 STMT.
49 STMT-LEN PIC S9(4) COMP VALUE +255.
49 STMT-TEXT PIC X(255).
01 PARMA PIC X(5).
01 PARMB PIC X(20).
MOVE 'DELETE FROM TESTTB
WHERE TESTNO = ? AND TESTNAME = ?' TO STMT.
EXEC SQL
PREPARE PRST FROM :STMT. ---预执行
END-EXEC.
MOVE 'A0023' TO PARMA.
MOVE 'GEORGE' TO PARMB.
EXEC SQL
EXECUTE PRST USING :PARMA, :PARMB --执行
END-EXEC.
游标：对多行数据进行处理时，以行为单位的数据记录的定位功能。
分为基本游标和回滚游标（静态和动态）。
基本游标
定义：
如：MOVE 'ADFADADF' TO HATTR1.
EXEC SQL
DECLARE P1 CURSOR FOR --定义游标
SELECT TESTNO, TESTNAME --选择指定列（属性）
FROM TESTTB --指定表
WHERE TESTATTR1 = :HATTR1 -指定匹配属性
ORDER BY TESTNO -指定属性排序，如不指定默认数据记录的位置进行搜索
OPTIMIZE FOR 20 ROWS -每屏中显示的行数
FETCH FIRST 200 ROWS ONLY -共显示的行数
END-EXEC
用法：打开--使用--关闭。
如：01 HOST.
05 HNO PIC X(5).
05 HNAME PIC X(20).
...
EXEC SQL DECLARE TST CURSOR FOR
SELECT TESTNO, TESTNAME
FROM TESTTB
WHERE TESTATTR1 = :HATTR1
ORDER BY TESTNO
END-EXEC
...
EXEC SQL OPEN TST END-EXEC.
...
EXEC SQL
FETCH TST INTO :HNO, :HNAME --主要用FETCH来操作变量传递
END-EXEC.
EXEC SQL
DELETE FROM TESTTB WHERE CURRENT OF TST
END-EXEC.
...
EXEC SQL CLOSE TST END-EXEC.
STOP RUN.
当进行UPDATE操作时，要在游标中指定更新哪一个属性。
如：EXEC SQL DECLARE TST CURSOR FOR
...
FOR UPDATE OF TESTNAME --指定属性
...
END-EXEC
...
EXEC SQL UPDATE TESTTB
SET TESTNAME = ：HNAME
WHERE CURRENT OF TST
END-EXEC.
利用游标处理多行记录：
利用游标处理多行记录时，相应的主变量也应定义为数组的形式。
通过OCCURS语句定义为COBOL中的表。
如：01 HOST-VARY.
05 HOST-ID PIC 9(5) COMP OCCURS 10 TIMES.
05 HOST-NAME OCCURS 10 TIMES.
49 NAME-LEN PIC 9(2) COMP.
49 NAME-TEXT PIC X(20).
EXEC SQL
DECLARE MTR SCROLL CURSOR
WITH ROWSET POSITIONING
FOR SELECT ID, NAME
FROM TESTTABLE
END-EXEC
EXEC SQL OPEN MTR END-EXEC.
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论