Question

我有一个定义为：

的程序

create or replace
PACKAGE BODY PKG_BG_PRVDR_SCOPE_GROUP 
AS

g_return_code           NUMBER := 99;
g_return_text           VARCHAR2(500) := '';
g_return_desc           VARCHAR2(500) := '';
c_return_length         CONSTANT NUMBER := 500;
g_revision_frozen       NUMBER    := -459;
g_timestamp_error       NUMBER := -86;

c_invalid_row_count     CONSTANT VARCHAR2(100) := 'database integrity check failed';

revision_frozen         EXCEPTION;
duplicate_item          EXCEPTION;
invalid_row_count       EXCEPTION;
invalid_update_ts       EXCEPTION;


PROCEDURE update_bg_provider_scope_group
  (
    p_region_id              IN    bg_prvdr_scope_group.region_id%TYPE,
    p_revision_id            IN    bg_prvdr_scope_group.revision_id%TYPE,
    p_bg_revision_id         IN    bg_prvdr_scope_group.bg_revision_id%TYPE,
    p_classification_id      IN    bg_prvdr_scope_group.classification_id%TYPE,
    p_facility_id            IN    bg_prvdr_scope_group.facility_id%TYPE,
    p_user                   IN    bg_prvdr_scope_group.create_user_id%TYPE,
    p_current_timestamp      IN    bg_prvdr_scope_group.create_ts%TYPE,
    p_group_name             IN    bg_prvdr_scope_group.group_nm%TYPE,
    p_description            IN    bg_prvdr_scope_group.description%TYPE,
    p_prvdr_scope_grp_id     IN    bg_prvdr_scope_group.provider_group_id%TYPE,
    p_ora_rowscn             IN    NUMBER,
    p_cur_out                OUT   g_cursor
  )
  IS
        lv_count_name               NUMBER(10)     := 0;
    lv_count                    NUMBER(10)     := 0;
    lv_last_update_user_id      VARCHAR2(30)     := '';
    lv_user_first_and_last_nm   VARCHAR2(100)     := '';
    lv_current_ts               TIMESTAMP(6) WITH TIME ZONE;
    lv_ora_row_scn              NUMBER;
    lv_error_desc               VARCHAR2(300) := NULL;
  BEGIN
      DBMS_OUTPUT.PUT_LINE('1');

执行时我收到错误：连接到数据库SA_Sandbox4。 ORA-06550：第25行，第19栏： PLS-00382：表达式类型错误 ORA-06550：第25行，第3栏： PL / SQL：语句被忽略流程已退出。断开与数据库SA_Sandbox4的连接。

它没有进入开始...

执行：

DECLARE
  P_REGION_ID NUMBER;
  P_REVISION_ID NUMBER;
  P_BG_REVISION_ID NUMBER;
  P_CLASSIFICATION_ID NUMBER;
  P_FACILITY_ID VARCHAR2(10);
  P_USER VARCHAR2(30);
  P_CURRENT_TIMESTAMP TIMESTAMP;
  P_GROUP_NAME VARCHAR2(50);
  P_DESCRIPTION VARCHAR2(255);
  P_PRVDR_SCOPE_GRP_ID NUMBER;
  P_ORA_ROWSCN NUMBER;
  P_CUR_OUT SA_SANDBOX4.PKG_BG_PRVDR_SCOPE_GROUP.g_cursor;
BEGIN
  P_REGION_ID := 51;
  P_REVISION_ID := 1;
  P_BG_REVISION_ID := 1;
  P_CLASSIFICATION_ID := 1;
  P_FACILITY_ID := 'GIL';
  P_USER := 'a12345';
  P_CURRENT_TIMESTAMP := localtimestamp;
  P_GROUP_NAME := 'modificationtest';
  P_DESCRIPTION := 'modified successfully';
  P_PRVDR_SCOPE_GRP_ID := 42;
  P_ORA_ROWSCN := localtimestamp;

  PKG_BG_PRVDR_SCOPE_GROUP.UPDATE_BG_PROVIDER_SCOPE_GROUP(
    P_REGION_ID => P_REGION_ID,
    P_REVISION_ID => P_REVISION_ID,
    P_BG_REVISION_ID => P_BG_REVISION_ID,
    P_CLASSIFICATION_ID => P_CLASSIFICATION_ID,
    P_FACILITY_ID => P_FACILITY_ID,
    P_USER => P_USER,
    P_CURRENT_TIMESTAMP => P_CURRENT_TIMESTAMP,
    P_GROUP_NAME => P_GROUP_NAME,
    P_DESCRIPTION => P_DESCRIPTION,
    P_PRVDR_SCOPE_GRP_ID => P_PRVDR_SCOPE_GRP_ID,
    P_ORA_ROWSCN => P_ORA_ROWSCN,
    P_CUR_OUT => P_CUR_OUT
  );
  /* Legacy output: 
DBMS_OUTPUT.PUT_LINE('P_CUR_OUT = ' || P_CUR_OUT);
*/ 
  :P_CUR_OUT := P_CUR_OUT; --<-- Cursor
END;

Answer 1

匿名区块的第25行似乎是

P_ORA_ROWSCN := localtimestamp;

P_ORA_ROWSCN被定义为NUMBER。 localtimestamp会返回TIMESTAMP。没有从TIMESTAMP到NUMBER的隐式转换，因此转换失败。我想要用来初始化P_ORA_ROWSCN的内容并不明显。通常，我猜这应该来自特定表格中特定行的ORA_ROWSCN伪列。但也许你想要dbms_flashback.get_system_change_number？或者您可能正在使用ROWSCN，但并不是指Oracle系统更改号码（SCN）。

顺便提一下，您发布的包定义不会编译，因为它使用的是包中未定义的类型g_cursor。也许你在发布包定义时删除了它？因为您的匿名块似乎希望在该包中声明该类型。

Answer 2

由于我们不知道你的桌面结构，我们无法说明给你这个问题的确切字段，但我可以这样说：

显然，您传入程序的其中一个字段的数据类型存在问题。

我建议做一些工作，将相同类型的参数传递给表中的过程。

您可以在程序中定义：

p_region_id IN    bg_prvdr_scope_group.region_id%TYPE,

但你传入了这个变量：

P_REGION_ID NUMBER;

将其更改为

p_region_id bg_prvdr_scope_group.region_id%TYPE

并为每个参数/变量执行此操作。

PLS-00382：表达式类型错误

2 个答案: