data Szerzodes_aktualis (keep = Vonatkozasi_ido
                                                 Szerzodes_azonosito
                                                 Szerzodes_statusz
							                     Orszagkod
							                     Minositesi_kategoria							
							                     Kesesi_kategoria
                                                 Merlegen_beluli_kitettseg 
                                                 Ertekvesztes
                 )
;

  length Vonatkozasi_ido                   8
            Szerzodes_azonosito          $6
            Szerzodes_statusz              $1
            Orszagkod                          $3
            Minositesi_kategoria	          $1
            Kesesi_kategoria                 $1
            Merlegen_beluli_kitettseg       8
            Ertekvesztes                         8
  ;

  do i=1 to 100000;

    Vonatkozasi_ido=20080901;
    Szerzodes_azonosito=put((i+100000),z6.);

    /* Orszagkod: ország */
     RND=ranuni(1);
    select;
      when(RND GT 0.75) Orszagkod='HUN'; 
      when(RND GT 0.50) Orszagkod='SVN'; 
      when(RND GT 0.25) Orszagkod='BGR'; 
      otherwise                 Orszagkod='POL';
    end;

	/* Szerzodes_statusz */
          RND=ranuni(1);
          select;
              when (RND GT 0.7)  Szerzodes_statusz='5';
              when (RND GT 0.65) Szerzodes_statusz='4';
              when (RND GT 0.63) Szerzodes_statusz='3';
              when (RND GT 0.6)  Szerzodes_statusz='2';
			  otherwise                 Szerzodes_statusz='1';
	      end;

	/* Kesesi_kategoria */
          RND=ranuni(1);
          select;
              when (RND GT 0.98)  Kesesi_kategoria='9';
              when (RND GT 0.94)  Kesesi_kategoria='8';
              when (RND GT 0.88)  Kesesi_kategoria='7';
              when (RND GT 0.80)  Kesesi_kategoria='6';
              when (RND GT 0.70)  Kesesi_kategoria='5';
              when (RND GT 0.58)  Kesesi_kategoria='4';
              when (RND GT 0.45)  Kesesi_kategoria='3';
              when (RND GT 0.30)  Kesesi_kategoria='2';
			  otherwise                   Kesesi_kategoria='1';
	      end;

    /* Merlegen_beluli_kitettseg, Ertekvesztes, Minositesi_kategoria */
          Merlegen_beluli_kitettseg=ranuni(1)*100000;
          select(Kesesi_kategoria);
		      when(1) do; Minositesi_kategoria='1'; Ertekvesztes=0;                                          end;
		      when(2) do; Minositesi_kategoria='1'; Ertekvesztes=0;                                          end;
		      when(3) do; Minositesi_kategoria='1'; Ertekvesztes=0.1*Merlegen_beluli_kitettseg; end;
		      when(4) do; Minositesi_kategoria='2'; Ertekvesztes=0.1*Merlegen_beluli_kitettseg; end;
		      when(5) do; Minositesi_kategoria='2'; Ertekvesztes=0.1*Merlegen_beluli_kitettseg; end;
		      when(6) do; Minositesi_kategoria='3'; Ertekvesztes=0.3*Merlegen_beluli_kitettseg; end;
		      when(7) do; Minositesi_kategoria='4'; Ertekvesztes=0.7*Merlegen_beluli_kitettseg; end;
		      when(8) do; Minositesi_kategoria='5'; Ertekvesztes=Merlegen_beluli_kitettseg;       end;
		      when(9) do; Minositesi_kategoria='5'; Ertekvesztes=Merlegen_beluli_kitettseg;       end;
			  otherwise;
		  end;

    output;
  end;

run;


data Szerzodesek(keep=Szerzodes_azonosito Finanszirozas_tipusa Eszkoz_kategoria);

  length 
         Szerzodes_azonosito $6.
         Finanszirozas_tipusa      $1
         Eszkoz_kategoria     $1
  ;

    do i=1 to 120000;
        Szerzodes_azonosito=put((i+100000),z6.);

	/* Finanszirozas_tipusa */
        RND=ranuni(1);
          select;
              when (RND GT 0.99)  Finanszirozas_tipusa='3';
              when (RND GT 0.90)  Finanszirozas_tipusa='2';
			  otherwise           Finanszirozas_tipusa='1';
	      end;

    /* Eszkoz_kategoria */
        RND=ranuni(1);
          select;
              when (RND GT 0.99)  Eszkoz_kategoria='9';
              when (RND GT 0.92)  Eszkoz_kategoria='8';
              when (RND GT 0.90)  Eszkoz_kategoria='7';
              when (RND GT 0.75)  Eszkoz_kategoria='6';
              when (RND GT 0.70)  Eszkoz_kategoria='5';
              when (RND GT 0.45)  Eszkoz_kategoria='4';
              when (RND GT 0.35)  Eszkoz_kategoria='3';
              when (RND GT 0.30)  Eszkoz_kategoria='2';
			  otherwise                   Eszkoz_kategoria='1';
	      end;
	    output;
    end;
  run;