Symfoware Parallel Server RDBユーザーズガイド 応用プログラム開発編

6.3.3 現コネクションの変更

複数のコネクションを接続した場合、SET CONNECTION文で現コネクションを変更することができます。SET CONNECTION文を利用することにより、変更した現コネクションのサーバとデータ操作を行うことができます。

図:現コネクションを変更するプログラミングの概要に、現コネクションを変更するプログラミングの概要を示します。

[応用プログラム]

[図:現コネクションを変更するプログラミングの概要]

                          〜                                   *            
 EXEC SQL CONNECT TO  'DB01' AS  'C1' ;                    (1) *           
                          〜                                   *            
 EXEC SQL SELECT  在庫数量,倉庫番号  INTO  :H1, :H2            *            
                    FROM  在庫表  WHERE 在庫数量=300   ;   (2) *           
                          〜                                   *            
 EXEC SQL COMMIT WORK ;                                    (3) *           
                          〜                                   *            
 EXEC SQL CONNECT TO  'DB02' AS  'C2' ;                    (4) *           
                          〜                                   *ローカルアクセス 
 EXEC SQL INSERT INTO   伝票( 在庫カラム, 倉庫カラム)      (5) *の場合 
                                   VALUES(:H1,:H2)     ;       *        
 EXEC SQL COMMIT WORK ;                                    (6) *       
                          〜                                   *        
 EXEC SQL SET CONNECTION  'C1' ;                           (7) *       
                          〜                                   *        
 EXEC SQL SELECT  出荷量   INTO  :H3                       (8) *       
                        FROM  在庫表２  WHERE XX=100   ;       *        
 EXEC SQL COMMIT WORK ;                                    (9) *       
                          〜                                   *        
                          〜                                   *        
 EXEC SQL CONNECT TO  'SV3' AS  'C3'  USER  'U3/PASS3' ;  (10) *      
                          〜                                   *        
 EXEC SQL SELECT  在庫数量,倉庫番号   INTO  :H1, :H2      (11) *      
                        FROM  在庫表１  WHERE 倉庫番号=2  ;    *        
                          〜                                   *        
 EXEC SQL COMMIT WORK ;                                   (12) *      
                          〜                                   *        
 EXEC SQL CONNECT TO  'SV4' AS  'C4'  USER  'U4/PASS4' ;  (13) *      
                          〜                                   *リモートアクセス
 EXEC SQL INSERT INTO   伝票１( 在庫カラム, 倉庫カラム)   (14) *の場合 
                                   VALUES(:H1,:H2)     ;       *         
 EXEC SQL COMMIT WORK ;                                   (15) *       
                          〜                                   *         
 EXEC SQL SET CONNECTION  'C3' ;                          (16) *       
                          〜                                   *         
 EXEC SQL SELECT  出荷量   INTO  :H3                      (17) *       
                  FROM  在庫表３  WHERE XX=100       ;         *         
                          〜                                   *