改成这样。CREATE OR REPLACE PROCEDURE SP_TSM_TEST (
outcursor     IN OUT      ims.pkg_cursor.t_cursor
)
IS
     V_STRSQL varchar2(1000);
BEGIN      V_STRSQL := ' OPEN ' outcursor ' FOR select * from cdm_port';
               execute  immediate V_STRSQL            ;
   
END SP_TSM_TEST;