/******************************************************************************
 * Programme : Validation des Schémas CDM
 * Reference : VALIDA021C
 * Source    : https://www.wearecas.eu/de/sampleCode/VALIDA021C
 ******************************************************************************/

/* --- BLOC 1 --- */
%macro cdm_validate_schemas;

   %CHECK_VERBOSE;

   %put %sysfunc(datetime(),E8601DT25.) --- Validating UDM and CDM schemas;
   %let rc = 0;

   %if &CDM_Download_SchemaVer ne &CDM_DDL_SchemaVer %then %do;
       %put %sysfunc(datetime(),E8601DT25.) --- Downloaded CDM Schema version &CDM_Download_SchemaVer is incompatible with current CDM DDL Schema Version &CDM_DDL_SchemaVer;
       %let rc = 1;
       %let CDM_ErrMsg = Incompatible Downloaded and DDL Schema Versions;
       %goto ERREXIT;
   %end;


   %ERREXIT:

%mend cdm_validate_schemas;