FOR I IN 起始值..結(jié)束值 LOOP
  循環(huán)體；
END LOOP;

DECLARE
  X NUMBER := &請(qǐng)輸入數(shù)值;
  V_FLAG NUMBER := 0;
BEGIN
  FOR I IN 2..X-1 LOOP
    IF MOD(X, I) = 0 THEN
      V_FLAG := 1;
    END IF;
  END LOOP;
  ...
END;

DECLARE
  V_STR VARCHAR2(100);
BEGIN
  FOR I IN 1..9 LOOP
    V_STR := '';
    FOR J IN 1..I LOOP
      V_STR := V_STR || I || ' * ' || J || ' = ' || I*J || ' ';
    END LOOP;
    DBMS_OUTPUT.PUT_LINE(V_STR);
  END LOOP;
END;

WHILE 條件 LOOP
  循環(huán)體；
  變量自增/自減；
END LOOP;

DECLARE
  V_NUM NUMBER := 1;
BEGIN
  WHILE V_NUM <= 100 LOOP
    IF MOD(V_NUM,2) = 1 THEN
      DBMS_OUTPUT.PUT_LINE(V_NUM);
    END IF;
    V_NUM := V_NUM + 1;
  END LOOP;
END;

CREATE OR REPLACE FUNCTION 函數(shù)名(入?yún)⒚?參數(shù)類型)
RETURN 返回值類型
IS
  變量聲明；
BEGIN
  邏輯體；
  RETURN 結(jié)果；
END;

CREATE OR REPLACE FUNCTION ABS_BAK(P_NUM NUMBER)
RETURN NUMBER
IS
BEGIN
  RETURN REPLACE(P_NUM, '-');
END;

CREATE OR REPLACE PROCEDURE 過(guò)程名(入?yún)⒚?參數(shù)類型)
IS
  變量聲明；
BEGIN
  -- 數(shù)據(jù)同步、清洗、處理流程
END;

CREATE OR REPLACE PROCEDURE P_001
IS
BEGIN
  DELETE FROM H_SAL_EMP;
  INSERT INTO H_SAL_EMP
  SELECT DEPTNO, MAX(SAL) FROM EMP GROUP BY DEPTNO;
  COMMIT;
END;

BEGIN
  P_001;
END;

CREATE OR REPLACE PROCEDURE P_002(C_JOB VARCHAR2)
IS
BEGIN
  DELETE FROM EMP_J WHERE JOB = C_JOB;
  INSERT INTO EMP_J SELECT * FROM EMP WHERE JOB = C_JOB;
  COMMIT;
END;

-- 實(shí)現(xiàn) ELIM 函數(shù)：刪除字符串中第一次出現(xiàn)的指定字符
-- 示例：ELIM('A-B-C', '-') → 'AB-C'

-- 創(chuàng)建表 T_NUMBER(ID NUMBER)
-- 創(chuàng)建過(guò)程 P_004(X)，將比 X 小的所有奇數(shù)插入 T_NUMBER

create TABLE T_NUMBER(
ID NUMBER
);
commit;
CREATE OR REPLACE PROCEDURE p_004(x NUMBER)
      IS
      BEGIN
        -- 清空表格
        DELETE FROM T_NUMBER;
        COMMIT;
        -- 或者使用 TRUNCATE（更高效，但無(wú)法回滾）
        -- EXECUTE IMMEDIATE 'TRUNCATE TABLE T_NUMBER';
        for i in 1..x-1 loop
            if mod(i,2)=1
            then
            INSERT INTO T_NUMBER(ID) VALUES (i);
            end if;
        end loop;
        COMMIT;
      END;
-- 調(diào)用存儲(chǔ)過(guò)程
BEGIN
p_004(100);
END;
select * from T_NUMBER;

CREATE OR REPLACE PROCEDURE 過(guò)程名(參數(shù))
IS      -- 或 AS，必須存在，不能省略
BEGIN
    -- 過(guò)程體
END;
/

-- 使用 IS
CREATE OR REPLACE PROCEDURE p_004(x NUMBER) 
IS
BEGIN
    -- 邏輯
END;
-- 使用 AS（同樣正確）
CREATE OR REPLACE PROCEDURE p_004(x NUMBER) 
AS
BEGIN
    -- 邏輯
END;

-- 錯(cuò)誤示范（缺少 IS/AS）
CREATE OR REPLACE PROCEDURE p_004(x NUMBER)  -- 編譯錯(cuò)誤！
BEGIN
    NULL;
END;