Attachment 1.1.6  Read File 6 (currency)of IBES data

* read currency file (File 6) of IBES data ;

libname ibes '$HOME/IBES' ;
options ls=72 ps=57 obs = 1000 ;

data ibes.currency ;
	infile '/u82/IBES/IBESSUM/6CUR9608' ;
	file   '/scratch/6CUR9608.dat' ;
	input 	ticker   $ 1-6
		startyy    8-9
		startmm    10-11
		currcode $ 13-15
	;
	put ticker ',' startyy ',' startmm ',' currcode ;

proc print u ;
	title  'IBES Data' ;
	title3 'Currency File' ;
	title5 'First 1000 Observations' ;
	var 	ticker
		startyy
		startmm
		currcode
	;
run ;

This page hosted by Get your own Free Home Page