创建银行API

来源：互联网发布：mac如何下载ps 编辑：程序博客网时间：2024/04/30 01:28
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;
1 0