Qu'est-ce qu'un paquetage ?

CREATE OR REPLACE PACKAGE Usa_TAPIs IS

PROCEDURE autogen_column(pio_crtrec IN OUT Usages%ROWTYPE);

PROCEDURE autogen_column_ins(pio_crtrec IN OUT Usages%ROWTYPE);

PROCEDURE autogen_column_upd(pio_crtrec IN OUT Usages%ROWTYPE);

PROCEDURE uppercase_column(pio_crtrec IN OUT Usages%ROWTYPE);

PROCEDURE checktype_column(pio_crtrec IN OUT Usages%ROWTYPE);

PROCEDURE column_PEA(pio_crtrec IN OUT Usages%ROWTYPE);

PROCEDURE frozen_column(pio_newrec IN OUT Usages%ROWTYPE ,

pio_oldrec IN OUT Usages%ROWTYPE);

PROCEDURE tree_or_list_loop;

PROCEDURE tree_or_list_onlyone;

TYPE type_Usages IS TABLE OF Usages%ROWTYPE INDEX BY PLS_INTEGER;

vg_Usages type_Usages;

vg_insteadof_call BOOLEAN := FALSE;

END;

CREATE OR REPLACE PACKAGE BODY Usa_TAPIs IS

...

PROCEDURE autogen_column_ins(pio_crtrec IN OUT Usages%ROWTYPE) IS

BEGIN

IF pio_crtrec.num IS NULL THEN

SELECT Usa_SEQPK.NEXTVAL INTO pio_crtrec.num FROM DUAL;

END IF;

END;

...

BEGIN

NULL;

END;