列をループ見つけます

宣言
   l_sql VARCHAR2（ 500）。- クエリ含む変数
   SYS_REFCURSOR L_Cを。        - カーソル変数（弱いカーソル）。
   l_res1 VARCHAR2（ 60 BYTE）。- フェッチデータを含む可変
   l_res2 VARCHAR2（ 60バイト）。- フェッチデータを含む可変
   l_res3日;   - フェッチデータを含む変数は、
開始
         l_sql： = ' USER_TAB_COLUMNS FROM SELECT COLUMN_NAME、TABLE_NAMEを' 。
         オープンL_C ためl_sql。
         ループは
         l_res1、l_res2にL_Cフェッチ。
         終了時にL_C％NOTFOUND; -ループを終了している場合があるんフェッチする何も。  
         もし l_res1 = ' のacct_num ' 次いで
            DBMS_OUTPUT.PUT_LINE（l_res2）。
         終了した場合、
        
        - プロセスフェッチされたデータの
        エンドループ。
        近くL_C; - カーソルのクローズ
エンドと、
/ 
コミット;