zoukankan      html  css  js  c++  java
  • 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.*;
    3. publicclassSpjtest{
    4. publicstaticvoid getName(String id,String[] name)throwsSQLException
    5. {
    6. Connection conn =DriverManager.getConnection("jdbc:sqlmx:");
    7. PreparedStatement getNam =
    8. conn.prepareStatement("SELECT EC_NAME FROM SOS.ECUI.ECTEST WHERE EC_ID = ?");
    9. getNam.setString(1, id);
    10. ResultSet rs = getNam.executeQuery();
    11. rs.next();
    12. name[0]= rs.getString(1);
    13. rs.close();
    14. conn.close();
    15. }
    16. }
     
    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
     
     
     





  • 相关阅读:
    Apache https 证书配置...
    npm 安装 sass=-=-=
    mysql 8.0 安装
    『转』谷歌发布Windows版Chrome App Launcher
    VMware Workstation 10.0.0.1295980 CN
    16款最受关注的智能手表 苹果iWatch领衔
    百度网盘推荐部分优秀的分享达人
    『转』市售热门可穿戴式“活动追踪器 Tracker”导购指南
    各网盘活动地址及点评-14.03.28
    2014.01.07_自用软件-春运开始了....
  • 原文地址:https://www.cnblogs.com/ECNB/p/4611119.html
Copyright © 2011-2022 走看看