CREATE OR REPLACE PACKAGE setup$m AS -- -- CURSOR c$2columns IS SELECT TO_CHAR(NULL) STR ,TO_CHAR(NULL) VAL FROM dual; TYPE type_2columns IS TABLE OF c$2columns%ROWTYPE INDEX BY BINARY_INTEGER; -- -- Global variable g_appl_code CONSTANT VARCHAR2(32) := 'ERCADMIN'; g_appl_id PLS_INTEGER := application$m.get('ERCADMIN').appl_id; g_err PLS_INTEGER := 0; g_max_rows NUMBER(3) := 300; g_smtp_hostname CONSTANT VARCHAR2(32) := 'internal-smtp.cec.eu.int'; g_smtp_portnum CONSTANT NUMBER(2) := 25; -- -- Global Types TYPE CUSTOM_REF_CURSOR IS REF CURSOR; TYPE type_id IS TABLE OF INTEGER INDEX BY BINARY_INTEGER; TYPE type_v1 IS TABLE OF VARCHAR2(1) INDEX BY BINARY_INTEGER; TYPE type_v6 IS TABLE OF VARCHAR2(6) INDEX BY BINARY_INTEGER; TYPE type_v32 IS TABLE OF VARCHAR2(32) INDEX BY BINARY_INTEGER; TYPE type_v50 IS TABLE OF VARCHAR2(50) INDEX BY BINARY_INTEGER; TYPE type_v200 IS TABLE OF VARCHAR2(200) INDEX BY BINARY_INTEGER; TYPE type_v400 IS TABLE OF VARCHAR2(400) INDEX BY BINARY_INTEGER; TYPE type_v256 IS TABLE OF VARCHAR2(256) INDEX BY BINARY_INTEGER; TYPE type_v4000 IS TABLE OF VARCHAR2(4000) INDEX BY BINARY_INTEGER; TYPE type_n15_2 IS TABLE OF NUMBER(15,2) INDEX BY BINARY_INTEGER; -- -- -- -- END setup$m; /