PROC IMPORT DATAFILE="path/file-name.xlsx" DBMS=XLSX
                          OUT=output-table <REPLACE>;
        SHEET=sheet-name;
RUN;

proc import datafile="FILEPATH/storm_damage.csv" dbms=csv
            out=storm_damage_import replace;
run;

LIBNAME libref engine "path";

/* example w/base engine */
libname mylib base "s:/workshop/data";

/* base engine is actually default */
libname mylib "s:/workshop/data";

proc contents data="filepath/class_birthdate.sas7bdat;
run;

data april;
   set payable recvable;
   by account;
run;

data one;
  input name $ age;
datalines;
Chris 36
Jane 21
Jerry 30
Joe 49
;

data two;
  input name $ age group;
datalines;
Daniel 33 1
Terry 40 2
Michael 60 3
Tyrone 26 4
;

data both;
  set one two;
run;

proc print data=both;
run;

data myclass;
    set sashelp.class;
run;

proc print data=myclass;
run;

select n.nspname as enum_schema,  
       t.typname as enum_name,  
       e.enumlabel as enum_value
from pg_type t 
   join pg_enum e on t.oid = e.enumtypid  
   join pg_catalog.pg_namespace n ON n.oid = t.typnamespace

CREATE or replace FUNCTION my_method(
    varchar)
  RETURNS varchar
  AS
$body$ 
DECLARE

       reg varchar;
BEGIN
    
    select into reg cast(string_agg(f_descripcion, ', ') as varchar) from public.t_almacen where f_iddepto in (
    select unnest(string_to_array($1,',')::int[])
    );
    if found then

          return reg;

    else

        return '';

    end if;
    
END;
$body$
  LANGUAGE 'plpgsql'
  VOLATILE
  CALLED ON NULL INPUT
  SECURITY INVOKER
  COST 100;

select my_method(CAST('1,3,5,6' as varchar));

CREATE OR REPLACE FUNCTION public.fix_ncf_sequence (
)
RETURNS trigger AS
$body$
 begin with ncf_duplicados as(
		select
			d.f_ncf as ncf,
			d.f_beneficiario as beneficiario,
			d.f_concepto as concepto,
			d.f_base_imponible as base_imponible,
			d.f_idsuplidor as idsuplidor,
			d.f_monto as monto,
			d.f_rnc_cedula as rnc_cedula,
			d.f_wholenum as documento,
			d.f_fecha as fecha,
			d.f_idcomprobante as id
		from
			t_comprobantes_caja d
		inner join(
				select
					f_ncf,
					count( f_ncf ) as repeticion
				from
					t_comprobantes_caja
				group by
					f_ncf
				having
					count( f_ncf )> 1
			) r on
			r.f_ncf = d.f_ncf
		where
			r.f_ncf is not null
			and r.f_ncf <> ''
			and d.f_ncf ilike 'A0100100113%'
	), ncf_actualizados as (
	
	update
		t_comprobantes_caja as tcc
	set
		f_ncf = get_secuencia_ncf(7) --(select f_codigo from t_ncf where tcc.f_ncf ilike f_tipo||'%' and f_tipo is not null and f_tipo <> '' and f_codigo <= 9)
	where
		f_ncf in(
			select
				ncf
			from
				ncf_duplicados
		)
		and f_idcomprobante not in(
			select
				min( id )
			from
				ncf_duplicados
			group by
				ncf
		) returning *
	)

insert
	into
		t_fixed_dup_ncf(
			f_wholenum,
			f_old_ncf,
			f_new_ncf,
			f_fecha
		)
		(
		select
			dup.documento,
			dup.ncf,
			tcc.f_ncf,
			dup.fecha
		from
			(select f_ncf as ncf, f_fecha as fecha, f_wholenum as documento, f_idcomprobante as id from ncf_actualizados) dup
		inner join t_comprobantes_caja tcc on
			tcc.f_idcomprobante = dup.id
	);

return new;
end;
$body$
LANGUAGE 'plpgsql'
VOLATILE
CALLED ON NULL INPUT
SECURITY INVOKER
COST 100;

CREATE TRIGGER check_fix_ncf_duplicados
  AFTER INSERT 
  ON public.t_comprobantes_caja FOR EACH ROW 
  EXECUTE PROCEDURE public.fix_ncf_sequence();