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
转自:http://leeyb.iteye.com/blog/420020