Suppression de la clé
  primaire PK_CLIENT

ALTER TABLE CLIENT
  DROP CONSTRAINT PK_CLIENT;

Suppression de la clé
  étrangère FK_CLIENT_CIV

ALTER TABLE CLIENT
  DROP CONSTRAINT FK_CLIENT_CIV;

Suppression des index

DROP INDEX IDX_NOM_ASC;
DROP INDEX IDX_NOM_DESC;
DROP INDEX IDX_IDCLT_DESC;

Pour chaque insertion
{
  si IDCLIENT est nul alors on appelle 
  le trigger (cela nous évite de gérer
  les identifiants).

  Ajout de la ligne dans CLIENT.
}

INSERT INTO 
  CLIENT (IDCLIENT,CIVILID,NOM,PRENOM,DESCRIPT)
  SELECT null, CIV,NAME,FIRSTNAME,DESCRIPT
  FROM T_EXTERNAL;

Pour chaque insertion
{
  si IDCLIENT est nul alors on appelle 
    le trigger (cela nous évite de gérer
    les identifiants).

  On met la valeur de NOM en majuscule 
    (pour exemple de mise en forme
    des données)

  Ajout de la ligne dans CLIENT.
}

CREATE PROCEDURE PS_TRANSFERT
AS
  DECLARE VARIABLE CIV             Char(1) ;
  DECLARE VARIABLE NAME            Char(40);
  DECLARE VARIABLE FIRSTNAME       Char(30);
  DECLARE VARIABLE DESCRIPT        Char(60);
BEGIN
  FOR
    SELECT CIV,NAME,FIRSTNAME,DESCRIPT
    FROM T_EXTERNAL
    INTO :CIV, :NAME, :FIRSTNAME, :DESCRIPT 
  DO
  BEGIN
    /*Insérer ici les Vérifications/mises en forme */
    NAME = UPPER(NAME) ;

    INSERT INTO CLIENT 
        (IDCLIENT,CIVILID,NOM,PRENOM,DESCRIPT)
    VALUES (null,:CIV,:NAME,:FIRSTNAME,:DESCRIPT);
  END
END;

Création des index

CREATE DESCENDING INDEX IDX_IDCLT_DESC ON CLIENT (IDCLIENT);
CREATE ASCENDING INDEX IDX_NOM_ASC ON CLIENT (NOM);
CREATE DESCENDING INDEX IDX_NOM_DESC ON CLIENT (NOM);

Création de la clé
  étrangère FK_CLIENT_CIV

ALTER TABLE CLIENT
  ADD CONSTRAINT FK_CLIENT_CIV
  FOREIGN KEY (CIVILID) REFERENCES CIVILITE (IDCIVILITE);

Création de la clé primaire PK_CLIENT

ALTER TABLE CLIENT
  ADD CONSTRAINT PK_CLIENT
  PRIMARY KEY (IDCLIENT);

Déclaration de la fonction UDF ASCII_CHAR
  (permettra l'ajout d'un retour à la ligne).
  
Déclaration de la fonction UDF LOWER
  (pour la mise en forme des données).
  
Création de la table externe.

DECLARE EXTERNAL FUNCTION ASCII_CHAR INTEGER
RETURNS CHAR(1)
ENTRY_POINT 'IB_UDF_ascii_char' MODULE_NAME 'ib_udf';

DECLARE EXTERNAL FUNCTION LOWER CSTRING(80)
RETURNS CSTRING(80) FREE_IT 
ENTRY_POINT 'IB_UDF_lower' MODULE_NAME 'ib_udf';

CREATE TABLE T_EXTERNAL EXTERNAL FILE 'EXPORT.TXT' (
  CIV            char( 1),
  NAME           char(40),
  FIRSTNAME      char(30),
  DESCRIPT       char(60),
  RT             char(2)
);

Pour chaque enregistrements
  de la table CLIENT
{
  Ajout de la ligne dans la table externe.
}

INSERT INTO T_EXTERNAL (CIV,NAME,FIRSTNAME,DESCRIPT,RT)
  SELECT CIVILID,NOM,PRENOM,DESCRIPT, 
    ASCII_CHAR(13)||ASCII_CHAR(10)
  FROM CLIENT;

On exécute la procédure stockée

EXECUTE PROCEDURE PS_TRANSFERT;

Destruction de la table externe 
(mais pas du fichier correspondant),
de la procédure stockée et de la fonction UDF
si celles-ci ne sont plus utiles.

DROP PROCEDURE	PS_TRANSFERT;
DROP TABLE	T_EXTERNAL;
DROP EXTERNAL	FUNCTION ASCII_CHAR;