步骤：
FUNCTION f_exists (
p_pidm gobansr.gobansr_pidm%TYPE,
p_num gobansr.gobansr_num%TYPE,
p_rowid gb_common.internal_record_id_type DEFAULT NULL)
RETURN VARCHAR2 IS
--
TYPE queryone_ref IS REF CURSOR;
lv_cursor queryone_ref;
lv_tempout VARCHAR2(1) := 'N';
BEGIN
--
-- Assign the cursor variable to the appropriate cursor
--
IF p_rowid IS NOT NULL THEN
OPEN lv_cursor for
SELECT 'Y'
FROM gobansr
WHERE ROWID = p_rowid;
ELSE
OPEN lv_cursor for
SELECT 'Y'
FROM gobansr
WHERE gobansr_pidm = p_pidm
AND gobansr_num = p_num;
END IF;
FETCH lv_cursor INTO lv_tempout;
CLOSE lv_cursor;
RETURN lv_tempout;
END f_exists;
运行/查询存储过程的 PHP 代码：
$conn = oci_connect($username, $password, $db);
$sql = 'BEGIN "gb_pin_answer"."f_exists"(:p_pidm, :p_num); END;';
$stmt = oci_parse($conn, $sql);
if (!$conn)
exit("DB did not connect.");
$p_pidm = 36706;
$p_num = 1;
oci_bind_by_name($stmt,':p_pidm',$p_pidm,5);
oci_bind_by_name($stmt,':p_num',$p_num,1);
if (!oci_execute($stmt))
exit("Procedure Failed.");
oci_commit($conn);
oci_close($conn);
我已向 DBA 验证我对存储过程具有执行权限，并且 PHP 已成功连接到数据库服务器。
它返回此错误：
消息：oci_execute()：ORA-06550：第 1 行，第 8 列：PLS-00201：必须声明标识符“gb_pin_answer.f_exists” ORA-06550：第 1 行，第 8 列：PL/SQL：语句被忽略
更新：
我能够运行：select gb_pin_answer.f_exists('36706','2') as RESULT from dual它返回 Y
现在我需要弄清楚如何在我的 php 中使用这个存储过程：
PROCEDURE p_create(
p_pidm gobansr.gobansr_pidm%TYPE,
p_num gobansr.gobansr_num%TYPE,
p_gobqstn_id gobansr.gobansr_gobqstn_id%TYPE DEFAULT NULL,
p_qstn_desc gobansr.gobansr_qstn_desc%TYPE DEFAULT NULL,
p_ansr_desc gobansr.gobansr_ansr_desc%TYPE,
p_ansr_salt gobansr.gobansr_ansr_salt%TYPE,
p_user_id gobansr.gobansr_user_id%TYPE DEFAULT gb_common.f_sct_user,
p_data_origin gobansr.gobansr_data_origin%TYPE,
p_rowid_out OUT gb_common.internal_record_id_type) IS
--
lv_gobansr_rec gobansr%ROWTYPE;
error_message gb_common_strings.err_type;
lv_hashed_answer gobansr.gobansr_ansr_Desc%type;
lv_salt gobansr.gobansr_ansr_salt%type;
BEGIN
--
-- Make sure the record doesn't already exist
--
IF (gb_pin_answer.f_exists(p_pidm,p_num)='Y') THEN
error_message := gb_common_strings.f_append_error(error_message,
gb_pin_answer_strings.f_get_error('RECORD_EXISTS'));
END IF;
--
IF (error_message IS NOT NULL) THEN
RAISE_APPLICATION_ERROR(gb_common_strings.ERR_CODE, error_message);
END IF;
lv_salt := gspcrpt.F_GET_SALT(length(replace(p_ansr_desc,' ')));
gspcrpt.p_saltedhash(lower(replace(p_ansr_desc,' ')),lv_salt,lv_hashed_answer);
--
-- Execute business rules
--
gb_pin_answer_rules.p_validate(
p_pidm => p_pidm,
p_num => p_num,
p_gobqstn_id => p_gobqstn_id,
p_qstn_desc => p_qstn_desc,
p_ansr_desc => p_ansr_desc,
p_ansr_salt => lv_salt,
p_user_id => p_user_id,
p_data_origin => p_data_origin);
--
-- This is where the local user exit call, if defined, will occur.
--
/* -- No local call
p_pidm => p_pidm,
p_num => p_num,
p_gobqstn_id => p_gobqstn_id,
p_qstn_desc => p_qstn_desc,
p_ansr_desc => p_ansr_desc,
p_ansr_salt => lv_salt,
p_user_id => p_user_id,
p_data_origin => p_data_origin);
*/
--
-- Build the DML record
--
lv_gobansr_rec := f_build_gobansr_rec(
p_pidm => p_pidm,
p_num => p_num,
p_gobqstn_id => p_gobqstn_id,
p_qstn_desc => p_qstn_desc,
p_ansr_desc => lv_hashed_answer,
p_ansr_salt => lv_salt,
p_user_id => p_user_id,
p_data_origin => p_data_origin);
--
-- Set the activity date
--
lv_gobansr_rec.gobansr_activity_date := SYSDATE;
--
-- Delegate to the DML layer
--
dml_gobansr.p_insert(lv_gobansr_rec, p_rowid_out);
--
-- NOTE: Banner Messaging Support logic is only called after a
-- successful DML operation
-- Check if messaging is enabled/licensed for this business entity.
--
IF (gb_event.f_entity_publishable(gb_event.baseline_ind,
M_ENTITY_NAME)) THEN
-- Register this business entity with messaging support.
gb_pin_answer_rules.p_register_entity(
p_operation_type => gb_event.CREATE_OPERATION,
p_pidm => p_pidm,
p_num => p_num,
p_gobqstn_id => p_gobqstn_id,
p_qstn_desc => p_qstn_desc,
p_ansr_desc => p_ansr_desc,
p_ansr_salt => p_ansr_salt,
p_user_id => p_user_id,
p_data_origin => p_data_origin,
p_internal_record_id => p_rowid_out);
END IF;
END p_create;