data
 _null_ ;
liczba=4;
put liczba;
put liczba 4.1;
put liczba commax4.2;
put liczba roman.;
put liczba wordf5.;
run
;


 data
 dane.zb10;
input  lp  rok  miesiac  $  dochod;
format  lp  ROMAN.   miesiac   $10.   dochod COMMA10.2;
cards;
1  2010  styczen  500000
2  2010  luty        520000
3  2010  marzec   480000
4  2011 styczen    530000
5  2011 luty          570000
6   2011  marzec     55000
;
run;


  proc
  datasets  library=work  nolist;
  modify  zb10;
  format  dochod  NUMX8.1;
quit
;


  proc print
data=dane.zb10  (obs=3);
  format  dochod  DOLLAR10.2;
  var  miesiac  dochod;
  run
;


 data
  liczba;
   x=8;
   y=PUT(x, roman.);
 run
;


PROC  FORMAT
 <LIBRARY=biblioteka><CNTLIN=zbiór1_definicyjny>
     <CNTLOUT=zbiór2_definicyjny>
<FMTLIB <PAGE>>
    <VALUE nazwa zakres1= 'wartość_sformatowana1'    ....
zakresn='wartość_sformatowana'>
    RUN
;


data
 dane.zb2;
input  1p1  1p2  plec  $  nazwisko $   placa ;
label  plec='plec'  placa='placa';
cards;
1    1   K  Domańska   2100
2    2   K  Kowal         2800
3    3   K  Nowak        2600
4    1   M Górski   3100
5    2   M Mazur  4000
6    3   M Kowalski  2000
;
8
run
;




  proc
  format;
  value  numer;
  1 = 'jeden'
  2 = 'dwa'
  3 = 'trzy'
  ;
  run
;
  proc
 format;
  value  $znakowy;
  'K' = 'kobieta'
  'M' ='mężczyzna'
  ;
 run
;


   data
  dane.wyn1;
   format  lp2  numer.  plec  $znakowy.;
   set  dane.zb2 ;
run
;


 proc
  format lib=dane;
 value  kwota
 low-2500 ='mało'
 2500-3000='średnio'
 3000-high'='dużo'
 ;
 run
;


 data
  dane.wyn2;
  format  lp2  numer.  plec  $znakowy. placa  kwota.;
  set dane.zb2;
run
;


    data
dane.zb1;
    input  lp rok miesiac dochod zmiana;
    label  miesiac='miesiac'  dochod='dochód';
    cards;
   1   2010   1   500000   0
   2   2010   2   520000  20000
   3   2010   3   480000  40000
   4   2011   1   530000  50000
   5   2011   2   570000  40000
   6   2011   3   550000  20000
   ;
run;

data work.wynik2;
   set work.zb1;
   format dochod dollar10.2;
   dochod = (dochod * 0.237679);
run;