PL / SQLの例1

DECLARE
-カーソルの定義
   、カーソルCEMP IS SELECT TO_CHAR（HIREDATE、 'YYYY'）EMPから
    （4）; phiredate VARCHAR2
   -年間数のエントリ定義が
    ：= 0;数count80
    count81番号：= 0;
    count82番号：= 0を;
    count87番号：= 0;
   始まる
      -オープンカーソル
     オープンCEMP;
      -環状
     ループ
       -年従業員のエントリを取ること
       にphiredate CEMPフェッチ;
       -定義された循環出口
        出口場合CEMPの％のNOTFOUND;
        決定--IF
        phiredate IF = 「1980年代、その後count80：+ = count80 1;
        ELSIF phiredate = '1981'をcount81：。+ = count81 1;
        ELSIF phiredate = '1982'をcount82：。+ = count82 1;
        他にcount87：+ = count87 1;。
        場合は終了。

-结束循环
      エンドループ。
      -关闭游标
      近いCEMP。
      -输出
       DBMS_OUTPUT.PUT_LINE（ '合計：' ||（count80 + count81 + count82 + count87））。
       DBMS_OUTPUT.PUT_LINE（ '1980' || count80）。
       DBMS_OUTPUT.PUT_LINE（ '1981' || count81）。
       DBMS_OUTPUT.PUT_LINE（ '1982' || count82）。
       DBMS_OUTPUT.PUT_LINE（ '1987' || count87）。
      終わり;