/******************************************************************************
 * Programme : Direktes Lesen von Daten mit Index (KEY=)
 * Reference : DIREKTD569
 * Source    : https://www.wearecas.eu/en/sampleCode/DIREKTD569
 ******************************************************************************/

/* --- BLOC 1 --- */
data x ;
  do i=0 to 2 ;
    j=round(uniform(i)*10) ;
    put _all_ ;
    output ;
  end ;
run ;

/* --- BLOC 2 --- */
data y(index=(i)) ;
  do i=1 to 4 ;
    j=round(ranuni(i)*3) ;
    do k=1 to j ;
      put _all_ ;
      output ;
    end ;
  end ;
run ;

/* --- BLOC 3 --- */
data z ;
  set x(in=in_x) ;
  set y(in=in_y) key=i ;
  put _iorc_= _all_ / ;
run ;