/******************************************************************************
 * Programme : Creación de datos ORC particionados
 * Reference : CREACI72D2
 * Source    : https://www.wearecas.eu/en/sampleCode/CREACI72D2
 ******************************************************************************/

/* --- BLOC 1 --- */
proc delete data=mydblib.seqtab1; run;
proc delete data=mydblib.compare; run;

/* --- BLOC 2 --- */
data mydblib.compare
     work.apd
     mydblib.seqtab1 (DBCREATE_TABLE_OPTS="PARTITIONED BY (dealer string)
                     STORED AS ORC");

 input car $ color $ dealer $ sales returns dest $;
cards;
Toyota Red Smith 10000 100 NC
Toyota Red Smith 15000 110 CT
Chevy Green Smith 17000 45 NJ
Ford Blue Smith 12000 0 CA
Toyota Red Jones 4000 20 NC
Ford Blue Finch 10000 400 NC
Toyota Red Smith 10000 100 NJ
Ford White Smith 15000 110 NC
Ford Blue Smith 12000 0 NJ
Toyota Green Jones 4000 20 NC
Toyota Black Jones 4000 20 FL
Toyota Red Jones 4000 20 NC
Ford Blue Finch 10000 400 AL
Chevy White Finch 10000 400 SC
Ford Black Finch 10000 400 SC
Chrysler Blue Finch 20000 400 NC
Chrysler Green Finch 20000 400 CT
Toyota Green Jones 10000 100 NC
Toyota Red Finch 15000 110 CT
Ford Green Smith 17000 45 NJ
;
run;

/* --- BLOC 3 --- */
title1 'PROC PRINT OF DBLIB.SEQTAB1';
proc print data=mydblib.seqtab1; run;

/* --- BLOC 4 --- */
title1 'PROC PRINT OF DBLIB.COMPARE';
proc print data=mydblib.compare; run;