/**********************************************************************/
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;
/**********************************************************************/