SPJs for JDBC programing and Calling it by COBOL

In this note, you will know how to access the MX table by SPJ(Stored Procedure in Java)

 

1. Java class for stored procedure,

1. import java.sql.*;
2. import java.math.*;
4. publicclassSpjtest{
6. publicstaticvoid getName(String id,String[] name)throwsSQLException
7. {
8. Connection conn =DriverManager.getConnection("jdbc:sqlmx:");
10. PreparedStatement getNam =
11. conn.prepareStatement("SELECT EC_NAME FROM SOS.ECUI.ECTEST WHERE EC_ID = ?");
13. getNam.setString(1, id);
14. ResultSet rs = getNam.executeQuery();
16. rs.next();
17. name[0]= rs.getString(1);
19. rs.close();
21. conn.close();
22. }
24. }

 

2. CREATE PROCEDURE in MXCI,

1. DROP PROCEDURE sos.ecui.getname;
2. ?SECTION "CREATE ENDER SPJs"
3. CREATE PROCEDURE sos.ecui.getname(in id VARCHAR(10), OUT name VARCHAR(20))
4. EXTERNAL NAME 'Spjtest.getName'
5. EXTERNAL PATH '/home/ecui/java/SPJs'
6. LANGUAGE JAVA
7. PARAMETER STYLE JAVA
8. READS SQL DATA;

 

3. call it,

1. >>CALL sos.ecui.getname('0000000002',?);
2.  
3. *** WARNING[11217]Java execution:Data overflow occurred while retrieving data
4. at parameter position 2.Value is truncated.
5.  
6. NAME
7. --------------------
8.  
9. Rocky
10.  
11. --- SQL operation completed with warnings.

 

How to Calling SPJs in COBOL.

1. If you include a CALL statement within a transaction, be aware that the stored procedure in Java (SPJ) invoked by the CALL statement inherits the transaction from the caller, and the SPJ method cannot contain transaction control statements

 

2. Coding COBOL program.

1. WORKING-STORAGE SECTION.
2. EXEC SQL BEGIN DECLARE SECTION END-EXEC.
3.  
4.            03  WS-SPJS-ID                   PIC X(10).
5.            03  WS-SPJS-NAME                 PIC X(20).
6.  
7. PROCEDURE DIVISION.
8.  
9.        PERFORM TEST-SPJS THRU TEST-SPJS-EXIT.
10.  
11.        TEST-SPJS.
12.  
13.            MOVE "0000000001" TO WS-SPJS-ID.
14.            MOVE SPACES       TO WS-SPJS-NAME.
15.  
16.            EXEC SQL
17.                CALL SOS.ECUI.GETNAME(:WS-SPJS-ID,:WS-SPJS-NAME)
18.            END-EXEC.
19.  
20.            DISPLAY WS-SPJS-NAME.
21.  
22.        TEST-SPJS-EXIT.
23.            EXIT.

 

3. Compile it.

4. Execute it.

1. $DATA01.ECSRC 70> RUN ECTEXE
2. Ender.Cui

 

 

 

来自为知笔记(Wiz)