DECLARE
   v_data_filename     TEXT := 'sql_data.csv';
   v_zip_filename      TEXT := 'sql_data.zip';
   v_status_filename   TEXT := 'sql_status.log';

   v_tmp_table         VARCHAR( 32 );
   v_path              TEXT;
   v_dir               TEXT;
   v_child_status      INTEGER :=  0 ;
BEGIN
   /* Getting base path */
   SELECT param_value
   INTO   v_path
   FROM   csv_configs
   WHERE  param_name = 'ROOT_PATH';

   /* Generate new folder name */
   v_dir := To_Char(current_timestamp, 'YYYYMMDDHH24MISS') || '_';

   WHILE Length(v_dir) <  40 
   LOOP
      v_dir := v_dir || блаблабла с random-ом;
   END LOOP;

   /* Create new dir */
   v_child_status := make_dir_perl (v_path, v_dir);

   IF v_child_status !=  0  THEN
      po_status := 'E: Creation of new dir failed with: ' || v_child_status::VARCHAR;
   END IF;
   v_path := v_path || v_dir || '/';

   /* Create temporary table */
   EXECUTE 'CREATE TEMP TABLE '||v_tmp_table||' AS (' || p_sql || ')';

   /* Start CSV Extraction */
   EXECUTE 'COPY ' || v_tmp_table || '
   TO '''||v_path||v_data_filename||'''
   WITH
   DELIMITER '',''
   NULL ''null''
   CSV HEADER
   QUOTE ''"'' ';

   /* Compressing CSV file */
   v_child_status := compress_file_perl(v_path, v_data_filename, v_zip_filename,  3 );

   RETURN ;
END;
$BODY$
LANGUAGE 'plpgsql' VOLATILE SECURITY DEFINER;