/******************************************************************************
 * Programme : Basic Usage of PROC DATAMETRICS
 * Reference : BASICUDC5D
 * Source    : https://www.wearecas.eu/en/sampleCode/BASICUDC5D
 ******************************************************************************/

/* --- BLOC 1 --- */
data my_data;
    input ID $ Name $ Age Score;
    datalines;
    001 John 30 95
    002 Jane 24 88
    003 Mike . 72
    004 Jane 24 88
    005 Chris 45 60
    006 John 30 95
    007 Sarah 29 .
    ;
run;

proc datametrics data=my_data out=my_results;
run;

proc print data=my_results;
    title 'Résultats Basiques de PROC DATAMETRICS';
run;

/* --- BLOC 2 --- */
data employees;
    input EmployeeID Name $ Department $ Salary DateOfHire:yymmdd10.;
    format DateOfHire yymmdd10.;
    datalines;
    101 Alice Sales 60000 2020-01-15
    102 Bob Marketing 75000 2019-03-22
    103 Alice Sales 60000 2020-01-15
    104 Charlie IT 80000 2021-07-01
    105 David Sales 62000 2020-01-15
    ;
run;

proc datametrics data=employees out=employee_metrics;
    variables EmployeeID Name Department Salary;
    output metric=ALL;
run;

proc print data=employee_metrics;
    title 'Métriques de Qualité pour Variables Spécifiques';
run;

/* --- BLOC 3 --- */
data transactions;
    input TransactionID CustomerID ProductID $ Quantity Price Date:yymmdd10.;
    format Date yymmdd10.;
    datalines;
    T001 C001 P001 2 15.50 2023-01-05
    T002 C002 P002 1 10.00 2023-01-05
    T003 C001 P001 2 15.50 2023-01-05
    T004 C003 P003 3 25.75 2023-01-06
    T005 C001 P001 2 15.50 2023-01-05
    ;
run;

proc datametrics data=transactions out=transaction_summary;
    identities TransactionID CustomerID ProductID;
    variables Quantity Price;
    output metric=ALL outall;
run;

proc print data=transaction_summary;
    title 'Analyse Avancée des Métriques et Identités de Transactions';
run;

/* --- BLOC 4 --- */
/* Connexion à la session CAS et chargement des données */
cas;
libname mycas cas;

data mycas.sales_data;
    input SaleID $ Region $ Amount Date:yymmdd10.;
    format Date yymmdd10.;
    datalines;
    S001 East 1200.50 2024-01-10
    S002 West 850.25 2024-01-11
    S003 North 1500.00 2024-01-10
    S004 South 980.75 2024-01-12
    S005 East . 1000.00 2024-01-13
    ;
run;

/* Exécution de PROC DATAMETRICS sur CAS */
proc datametrics data=mycas.sales_data out=mycas.sales_metrics;
    variables SaleID Region Amount Date;
    output metric=ALL;
run;

/* Affichage des résultats depuis CAS */
proc print data=mycas.sales_metrics;
    title 'Métriques de Qualité des Données de Ventes (CAS)';
run;

/* Arrêt de la session CAS */
cas term;