Question

我使用以下代码块来更新我的前端段。但是当我编译这个

时

DECLARE
   p_person_id                   NUMBER          := NULL;
   p_business_group_id           NUMBER;
   p_id_flex_num                 NUMBER;
------------------
   p_analysis_criteria_id        NUMBER          := NULL;
   p_person_analysis_id          NUMBER          := NULL;
   p_per_object_version_number   NUMBER          := NULL;
   v_err                         VARCHAR2 (1000) := NULL;
   p_medical_id                  VARCHAR2 (100)  := NULL;
BEGIN
   FOR i IN (SELECT *
               FROM xx_hr_upload_master_data_new
              WHERE person_id IS NOT NULL
                AND business_group_id IS NOT NULL
                AND medical_id IS NOT NULL)
   LOOP
      p_id_flex_num := 50530;
      BEGIN
         SELECT   sv.segment1, NVL (sit.object_version_number, 1),
                  sit.analysis_criteria_id, MAX (sit.person_analysis_id)
             INTO p_medical_id, p_per_object_version_number,
                  p_analysis_criteria_id, p_person_analysis_id
             FROM fnd_id_flex_structures_tl sttl,
                  fnd_id_flex_structures st,
                  per_person_analyses sit,
                  per_analysis_criteria sv
            WHERE sttl.id_flex_structure_name = 'ISPs Medical Data'
              AND sttl.LANGUAGE = USERENV ('LANG')
              AND st.id_flex_code = sttl.id_flex_code
              AND st.id_flex_num = sttl.id_flex_num
              AND st.id_flex_num = sit.id_flex_num
              AND st.id_flex_num = sv.id_flex_num
              AND sit.analysis_criteria_id = sv.analysis_criteria_id
              AND sit.person_id = i.person_id
         --and sv.SEGMENT1 = '4602001140'
         GROUP BY sv.segment1,
                  NVL (sit.object_version_number, 1),
                  sit.analysis_criteria_id;
      EXCEPTION
         WHEN OTHERS
         THEN
            p_medical_id := NULL;
            p_per_object_version_number := 1;
            p_person_analysis_id := NULL;
            p_analysis_criteria_id := NULL;
            p_person_analysis_id := NULL;
            p_per_object_version_number := NULL;
            p_person_id := NULL;
      END;
      BEGIN
------------------------------------------------
         IF (p_medical_id IS NULL AND p_analysis_criteria_id IS NULL)
         THEN
            -- create a new record in the SIT (Special Information Type)table .
            p_person_id := i.person_id;
            p_medical_id := TO_CHAR (i.medical_id);
-----------------------------
            hr_sit_api.create_sit
                  (p_validate                       => FALSE,
                   p_person_id                      => p_person_id,
                   p_business_group_id              => i.business_group_id,
                   p_id_flex_num                    => p_id_flex_num,
                   p_effective_date                 => TRUNC (SYSDATE),
                   p_date_from                      => TRUNC (SYSDATE),
                   p_segment1                       => p_medical_id,
                   p_analysis_criteria_id           => p_analysis_criteria_id,
                   p_person_analysis_id             => p_person_analysis_id,
                   p_pea_object_version_number      => p_per_object_version_number
                  );
         ELSE
            -- employee has previous Billing_Acc_Num then update that number in  the SIT table .
            hr_sit_api.update_sit
                 (p_validate                       => FALSE,
                  p_person_analysis_id             => p_person_analysis_id,
                  p_pea_object_version_number      => p_per_object_version_number,
                  p_date_from                      => TRUNC (SYSDATE),
                  p_segment1                       => p_medical_id,
                  p_analysis_criteria_id           => p_analysis_criteria_id
                 );
         END IF;
         UPDATE xx_hr_upload_master_data_new xx
            SET xx.error_msg = 'Done',
                xx.emp_data = 'Done'
          WHERE xx.business_group_id = i.business_group_id
            AND xx.employee_number = i.employee_number;
      EXCEPTION
         WHEN OTHERS
         THEN
            p_analysis_criteria_id := NULL;
            p_person_analysis_id := NULL;
            p_per_object_version_number := NULL;
            p_person_id := NULL;
            p_medical_id := NULL;
            v_err := NULL;
            v_err := SQLERRM;
            UPDATE xx_hr_upload_master_data_new xx
               SET xx.error_msg = v_err
             WHERE xx.business_group_id = i.business_group_id
               AND xx.employee_number = i.employee_number;
      END;
   END LOOP;
   COMMIT;
END;

现在，当select查询没有提取任何内容时，将输入异常块，其中所有变量都被启动为null。

我希望在此之后在条件IF中调用create api的开始（p_medical_id IS NULL AND p_analysis_criteria_id IS NULL）应该输入。但是这没有发生，程序在进入异常块之后退出此异常块。

Answer 1

提示可能是：如果没有结果，第一个选择不会引发任何异常。如果它没有结果那么for循环就不会被输入，所以唯一会发生的就是提交。（for循环中的select会在0行或1行以上引发异常。原因是＆＃39; select ... into ...＆＃39;：使用＆＃39;进入＆＃39; select必须返回确切的1行。）

退出块的PLSQL中的异常块

1 个答案: