/**********************************************************************/


proc trantab table=sasxpt nls;


/**********************************************************************/


   replace '4A'x   '8E'x;
   replace '4F'x   '21'x;


/**********************************************************************/


   save table=gereta;


/**********************************************************************/


   load table=saslcl nls;
   replace '15'x   '7C'x;
   replace '21'x   '4F'x;


/**********************************************************************/


   save table=gerate;


/**********************************************************************/


trantab=(gereta,gerate,gerupc,gerlow,gerccl);


/**********************************************************************/


proc trantab table=GERSCAN;                          
rep 0000          '000102030405060708090A0B0C0D0E0F'X
                  '101112131415161718191A1B1C1D1E1F'X
                  '202122232425262728292A2B2C2D2E2F'X
                  '303132333435363738393A3B3C3D3E3F'X
                  '404142434445464748494A4B4C4D4E4F'X
                  '505152535455565758595A5B5C5D5E5F'X       
                  '606162636465666768696A6B6C6D6E6F'X       
                  '707172737475767778797A7B7C7D7E7F'X       
                  '808182838485868788898A8B8C8D8E8F'X       
                  '909192939495969798999A9B9C9D9E9F'X       
                  'A0A1A2A3A4A5A6A7A8A9AAABACADAEAF'X       
                  'B0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF'X       
                  'C0C1C2C3C4C5C6C7C8C9CACBCCCDCECF'X       
                  'D0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF'X       
                  'E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF'X       
                  'F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF'X       
                                                            
rep  '84'x '7B'x;                     /*   --> {   */
rep  '81'x '7D'x;                     /*   --> }   */
save table=gerscan;                                         


/**********************************************************************/


data _null_;                       
   d = '03oct92'd;                 
   put  d eurdfwkx.;               
run;                               
                                   
Lauantaina, 3. lokakuuta  1992     
Samedi  3  octobre 1992            
Samstag, 3. Oktober 1992           
Sabato, 3 Ottobre 1992             
Sa bado, 3 de Octubre de 1992
lo rdag, 3  oktober 1992     


/**********************************************************************/


proc print data=a noobs;                    
   var comma commax;                        
   format comma comma15.2 commax commax15.2;
   title 'Print different numeric formats'; 
run;


/**********************************************************************/


proc format;                           
   picture dm low-<0='0.000.000.009,00'
              (prefix 'DM-' mult=100)  
              0-high='0.000.000.009,00'     
              (prefix 'DM' mult=100);       
   picture fr low-<0='0 000 000 009,00 F'   
              (prefix '-' mult=100)         
              0-high='0 000 000 009,00 F'   
              (mult=100);                   
   picture es low-<0='0.000.000.009$00 Esc.'
              (prefix'-' mult=100)          
              0-high='0.000.000.009$00 Esc.'
              (mult=100);                   
run;                                        
                                            
proc print data=curr noobs;                 
   var dollars DM francs escudos;           
   format \mk2 dollars dollar15.2 DM dm.    
          francs fr. escudos es.;           
   title 'Print different currency formats';
run;
 

/**********************************************************************/