复制CREATEORREPLACEFUNCTIONCONCAT2(P_KEY_NAME      INVARCHAR2,详解

        P_KEY_VAL       INVARCHAR2,

        P_OTHER_COL_NAMEINVARCHAR2,

        P_TNAME         INVARCHAR2)

 RETURNVARCHAR2AS

 TYPERCISREFCURSOR;

 L_STRVARCHAR2(4000);

 L_SEPVARCHAR2(200);

 L_VALVARCHAR2(4000);

 L_CUR RC;

BEGIN

 OPENL_CURFORselect || P_OTHER_COL_NAME || from || P_TNAME || where || P_KEY_NAME || = :x

   USINGP_KEY_VAL;

 LOOP

   FETCHL_CUR

     INTOL_VAL;

   EXITWHENL_CUR%NOTFOUND;

   L_STR := L_STR || L_SEP || L_VAL;

   L_SEP :=,;

 ENDLOOP;

 CLOSEL_CUR;

 RETURNL_STR;

END;

1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.27.28.29.30.31.32.33.34.35.36.37.38.39.40.41.42.43.44.45.46.47.48.49.50.51.52.53.54.55.56.57.58.59.60.61.62.63.64.65.66.67.68.69.70.71.72.73.74.75.76.77.78.79.80.81.82.83.84.85.86.87.88.89.90.91.92.93.94.95.96.97.98.99.100.101.102.103.104.105.106.107.108.109.110.111.