-- Nao informou qualquer codigo SQL
   IF ((CODIGO_SQL IS NULL) OR (CODIGO_SQL = '')) THEN
     RESULTADO = NULL;
   ELSE
   BEGIN
     -- Nao informou o separador de valores
     IF ((SEPARADOR IS NULL) OR (SEPARADOR = '')) THEN
       -- Assume um separador padrao de valores.
       SEPARADOR = ',';
     -- Inicializa o resultado.
     RESULTADO = '';
     -- Laco de leitura e concatenacao dos registros.
     FOR EXECUTE STATEMENT CODIGO_SQL INTO :NOVO_VALOR DO
     BEGIN
       -- Nao e o primeiro valor
       IF (RESULTADO <> '') THEN
         -- Concatena o separador de valores.
         RESULTADO = RESULTADO || SEPARADOR;
       -- Concatena o novo valor retornado.
       RESULTADO = RESULTADO || NOVO_VALOR;
     END -- FOR
   END -- ELSE
   -- Retorna a lista lida.
   SUSPEND;