CONNECT TO ORACLE (&CONXORA);

CREATE TABLE TABLE1 AS
    SELECT  ID_PERS

        FROM CONNECTION TO ORACLE
        (
        SELECT  DISTINCT PERS.ID_PERS

        FROM TAB_GRP GRP , TAB_PERS PERS

        WHERE DATE_DEB_GRP <= &DATE_QUOTE
              AND (DATE_FIN_GRP IS NULL OR DATE_FIN_GRP > &DATE_QUOTE)
              AND PERS.ID_PERS = GRP.ID_PERS
              AND (PERS.DATE_SUPP_SI IS NULL OR PERS.DATE_SUPP_SI > &DATE_QUOTE)
ORDER BY ID_PERS
);
DISCONNECT FROM ORACLE;
CONNECT TO ORACLE (&CONXORA);

CREATE TABLE TABLE2 AS
  SELECT    ID_PERS,
            ID_PRODUIT,
            CODE_PRODUIT,
            TOP_1
            TOP_2
                
    FROM CONNECTION TO ORACLE
    (
        SELECT ID_PERS,
               ID_PRODUIT,
                CODE_PRODUIT,
                MAX (CASE WHEN (CODE ='01' ) THEN 1 ELSE 0 END) AS TOP_1
                MAX (CASE WHEN (CODE='02' ) THEN 1 ELSE 0 END) AS TOP_2
        FROM TABLE_FROM1
        WHERE  CODE IN ('01','02')
        AND    ID_MOIS <= &ID_MOIS
        GROUP BY ID_PERS,ID_PRODUIT
    );
DISCONNECT FROM ORACLE;