cobol连接数据库

mysql/DB2:

Cobol代码  

1.  $SET SQL(dbman=ODBC, DB=ConnToMysql, INIT)  
2.  IDENTIFICATION DIVISION.  
3.  PROGRAM-ID.  cobol-mysql.  
4.  DATA DIVISION.  
5.  WORKING-STORAGE SECTION.  
6.  EXEC SQL INCLUDE SQLCA END-EXEC.  
7.  EXEC SQL BEGIN DECLARE SECTION END-EXEC.  
8.  01  TBL-STUDENT.  
9.      03 STU-ID        PIC 9(4) COMP-5.  
10.      03 STU-NAME      PIC X(20).  
11.  EXEC SQL END DECLARE SECTION END-EXEC.  
12.   
13.  PROCEDURE DIVISION.  
14.  MAIN      SECTION.  
15.  Begin.  
16. *  EXEC SQL  
17. *  CONNECT WITH PROMPT  
18. *  END-EXEC.  
19. *  IF SQLCODE <> 0  
20. *     DISPLAY SQLCODE  
21. *     DISPLAY SQLERRMC  
22. *  END-IF.  
23.   
24. *  EXEC SQL  
25. *  CREATE TABLE TBLSTUDENT(  
26. *      STU_ID      INT(4) PRIMARY KEY,  
27. *      STU_NAME    CHAR(20),  
28. *      CLASS_ID    INT(2)  
29. *  )  
30. *  END-EXEC.  
31.   
32.    EXEC SQL  
33.    INSERT INTO TBLSTUDENT (  
34.        STU_ID,STU_NAME,CLASS_ID)  
35.      VALUES (  
36.        1,'STUDENT1',1)  
37.    END-EXEC.  
38.    IF SQLCODE <> 0 THEN  
39.       DISPLAY SQLCODE  
40.       DISPLAY SQLERRMC  
41.    ELSE  
42.       EXEC SQL COMMIT        END-EXEC  
43.    END-IF.  
44.   
45.    MOVE 1 TO STU-ID.  
46.    EXEC SQL  
47.    SELECT STU_NAME INTO :STU-NAME  
48.      FROM TBLSTUDENT WHERE STU_ID = :STU-ID  
49.    END-EXEC.  
50.    DISPLAY STU-NAME.  
51.   
52.    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