create or replace function SF_GET_JYTMDYXX
(
  PXMMC00 in varchar2,
  PSQL000 in varchar2
)
return varchar2 is

strSQL01 varchar2(1000);

lsXMMC00 bm_zlzd00.zlxmjc%type;

lsResult varchar2(1000);

type cursor_type is ref cursor;
     CUR_ZLXMMC cursor_type;
     
--Person        Date         Comments
-- chenyw       2013.07.02   ´´½¨º¯Êý  for LIS-20130609-002    
begin
  lsResult:='';
  if PXMMC00='ZLXMMC' then
    strSQL01:=PSQL000;
    open CUR_ZLXMMC for strSQL01;
       loop
          fetch CUR_ZLXMMC into  lsXMMC00;
          exit when CUR_ZLXMMC%NOTFOUND;
          if nvl(lsResult,'0')='0' then
            lsResult:=lsXMMC00;
          else
            lsResult:=lsResult||' ||  '||lsXMMC00;
          end if;
       end loop;     
   close CUR_ZLXMMC; 
  end if;
  
  return lsResult;
end;