oracle 游标结合record使用

DECLARE

  TYPE TRD IS RECORD(

    STR1  VARCHAR2(100),

    STR2  VARCHAR2(100),

    STR3  VARCHAR2(100),

    STR4  VARCHAR2(100),

    STR5  VARCHAR2(100),

    STR6  VARCHAR2(100),

    STR7  VARCHAR2(100),

    STR8  VARCHAR2(100),

    STR9  VARCHAR2(100),

    STR10 VARCHAR2(100),

    STR11 VARCHAR2(100),

    STR12 VARCHAR2(100));

  AAA SYS_REFCURSOR;

  RD  TRD;

BEGIN

  PDCA_TEST_REQUIREMENT_PKG.P_TEST_REQUEST_EXPORT_BY_ID(6237, AAA);

  FETCH AAA INTO RD;  

  

  WHILE AAA%FOUND LOOP

    DBMS_OUTPUT.PUT_LINE(RD.STR1 || ',' || RD.STR2 || ',' || RD.STR3 || ',' ||

                         RD.STR4 || ',' || RD.STR5 || ',' || RD.STR6 || ',' ||

                         RD.STR7 || ',' || RD.STR8 || ',' || RD.STR9 || ',' ||

                         RD.STR10 || ',' || RD.STR11 || ',' || RD.STR12);

    FETCH AAA

      INTO RD;

  END LOOP;

END;