学习Oracle日记（七）

      
        CREATE
      
      
        OR
      
      
        REPLACE
      
      
        PROCEDURE
      
       PRO_EMP_TEST 
      
        IS
      
      
        

   EMP_T EMP
      
      
        %
      
      
        ROWTYPE;

   
      
      
        CURSOR
      
       CUR_EMP 
      
        IS
      
      
        SELECT
      
      
        *
      
      
        FROM
      
      
         EMP ;                                       


      
      
        BEGIN
      
      
        OPEN
      
      
         CUR_EMP;

   LOOP

   
      
      
        FETCH
      
       CUR_EMP 
      
        INTO
      
      
         EMP_T ;

   
      
      
        EXIT
      
      
        WHEN
      
       CUR_EMP
      
        %
      
      
        NOTFOUND;

   DBMS_OUTPUT.PUT(EMP_T.EMPNO
      
      
        ||
      
      
        '
      
      
        '
      
      
        );

   DBMS_OUTPUT.put_line(EMP_T.ENAME);

   
      
      
        END
      
      
         LOOP;

   
      
      
        CLOSE
      
      
         CUR_EMP;                                         


      
      
        END
      
       PRO_EMP_TEST;