mysql/DB2:
$SET SQL(dbman=ODBC, DB=ConnToMysql, INIT)
IDENTIFICATION DIVISION.
PROGRAM-ID. cobol-mysql.
DATA DIVISION.
WORKING-STORAGE SECTION.
EXEC SQL INCLUDE SQLCA END-EXEC.
EXEC SQL BEGIN DECLARE SECTION END-EXEC.
01 TBL-STUDENT.
03 STU-ID PIC 9(4) COMP-5.
03 STU-NAME PIC X(20).
EXEC SQL END DECLARE SECTION END-EXEC.
PROCEDURE DIVISION.
MAIN SECTION.
Begin.
* EXEC SQL
* CONNECT WITH PROMPT
* END-EXEC.
* IF SQLCODE <> 0
* DISPLAY SQLCODE
* DISPLAY SQLERRMC
* END-IF.
* EXEC SQL
* CREATE TABLE TBLSTUDENT(
* STU_ID INT(4) PRIMARY KEY,
* STU_NAME CHAR(20),
* CLASS_ID INT(2)
* )
* END-EXEC.
EXEC SQL
INSERT INTO TBLSTUDENT (
STU_ID,STU_NAME,CLASS_ID)
VALUES (
1,'STUDENT1',1)
END-EXEC.
IF SQLCODE <> 0 THEN
DISPLAY SQLCODE
DISPLAY SQLERRMC
ELSE
EXEC SQL COMMIT END-EXEC
END-IF.
MOVE 1 TO STU-ID.
EXEC SQL
SELECT STU_NAME INTO :STU-NAME
FROM TBLSTUDENT WHERE STU_ID = :STU-ID
END-EXEC.
DISPLAY STU-NAME.
STOP 0.
ConnToMysql为DSN名(配置ODBC时指定的数据源名)
Oracle:
CONNECT :USERNAME IDENTIFIED BY :PASSWD USING :DBNAME
SQL Server:
CONNECT TO "ConnToSQLServer" USER :USERNAME WITH NO PROMPT
分享到:
相关推荐
cobol连接数据库流程 讲得比较详细 有截图有代码
cobol连接数据库的其中一个方法。 hgdzhang@hotmail.com
培训中自己用编写的连接DB2读取文件,读取顺序文件,写入数据库,写入顺序文件的程序。共享给大家,希望有帮助。
DB2采用了数据分级技术,能够使大型机数据很方便地下载到LAN数据库服务器,使得客户机/服务器用户和基于LAN的应用程序可以访问大型机数据,并使数据库本地化及远程连接透明化。 它以拥有一个非常完备的查询优化器而...
这组函数包含了连接数据库、调用SQL和事务控制等。在安装DBMS SERVER或者客户端的时候,就安装了OCI。 OCI开发方法实际上是将结构化查询语言(SQL)和第三代程序设计语言相结合的一种方法。对数据库的访问是通过调用...
数据库开发者可以通过 Jetpack 控件使用任何他们熟悉的语言构建客户端应用程序,包括 Microsoft Visual Basic, Visual C++,Visual J++,Borland Delphi,Powersoft Powerbuilder, 和 Micro Focus Object Cobol等...
1. 在数据抽取阶段,我们需要连接到源系统,为了对源系统的影响尽量小,我们需要将抽取的数据保存成文本文件或者放入数据准备区的表中,这样,当ETL过程出现错误而失败时,我们就可以从这些文本文件开始ETL,而不...
数据整合框架; 可用于转换/映射/处理各种格式的数据(CSV,FIXLEN,XML,JSON,XBASE,COBOL,LOTUS等)。 连接到RDBMS / JMS / SOAP / LDAP / S3 / HTTP / FTP / ZIP / TAR。
1.3.1 连接到数据库 3 1.3.2 配置SQL*Plus环境 4 1.3.3 执行命令 6 1.4 5 个核心的SQL语句 8 1.5 SELECT语句 8 1.5.1 FROM子句 9 1.5.2 WHERE子句 11 1.5.3 GROUP BY子句 11 1.5.4 HAVING子句 12 1.5.5 ...