创建银行API

DECLARE 
   lc_output                VARCHAR2(3000); 
   lc_msg_dummy     VARCHAR2(3000); 
   lc_return_status     VARCHAR2(3000); 
   lc_msg_data           VARCHAR2(3000); 

   ln_bank_id             NUMBER; 
   ln_msg_count        NUMBER; 
   lr_extbank_rec       apps.iby_ext_bankacct_pub.extbank_rec_type; 
   lr_response_rec     apps.iby_fndcpt_common_pub.result_rec_type; 


BEGIN 
   lc_return_status    := ''; 
   ln_msg_count       := ''; 
   lc_msg_data          := ''; 
  
   lr_extbank_rec.bank_name       := 'Test Supp Bank'; 
   lr_extbank_rec.bank_number   := 'TSB0000001'; 
   lr_extbank_rec.country_code    := 'IN'; 

   apps.fnd_msg_pub.delete_msg(NULL); 
   apps.fnd_msg_pub.initialize(); 

   IBY_EXT_BANKACCT_PUB.create_ext_bank 
   (       -- ------------------------------ 
           -- Input data elements 
           -- ------------------------------ 
           p_api_version       => 1.0, 
           p_init_msg_list     => FND_API.G_TRUE, 
           p_ext_bank_rec     => lr_extbank_rec, 
           -- -------------------------------- 
           -- Output data elements 
           -- -------------------------------- 
           x_bank_id            => ln_bank_id, 
           x_return_status   => lc_return_status, 
           x_msg_count       => ln_msg_count, 
           x_msg_data         => lc_msg_data, 
           x_response          => lr_response_rec 
     );  

     lc_output := ' '; 

     IF (lc_return_status <> 'S') 
     THEN 
               FOR i IN 1 .. ln_msg_count 
               LOOP 
                            apps.fnd_msg_pub.get 
                            (       i, 
                                    apps.fnd_api.g_false, 
                                    lc_msg_data, 
                                    lc_msg_dummy 
                             ); 
    
                            lc_output := lc_output || 
                                                  (TO_CHAR (i) || 
                                                                       ': '  || 
                                                   SUBSTR (lc_msg_data, 1, 250)); 
             END LOOP; 

             apps.fnd_file.put_line 
            (apps.fnd_file.output, 'Error Occured while Creating Bank: '); 

       END IF; 
  
     COMMIT;  
 

EXCEPTION 
          WHEN OTHERS THEN 
                        ROLLBACK;  
                        dbms_output.put_line(SQLERRM); 
END; 

转载于:https://www.cnblogs.com/wanghang/p/6299387.html