options linesize=80 nonumber nodate formdlim='-';

/*
 linesize=80:   Specifie la longueur en caracteres des lignes pour 
 		l'impression des resultats (sur une page 8 1/2 par 11).
 nonumber:  	Indique de ne pas numeroter les pages de resultats.
 nodate:  	Supprime l'impression de la date sur chaque page de 
		resultats.
 formdlim='-':	Imprime les pages de resultats une a la suite de 
		l'autre (sans changer de feuille a chaque fois) en les 
		separant par une ligne formee du tiret.
*/

filename donnees "R:\Formations\Sas\prog.dat"; /*Pour lire le fichier de donnees,
				la syntaxe est:
				filename nom_local "nom_du_fichier_Unix; */

title1"Premier exemple"; 	/*Titre qui apparaitra au debut de chaque page 
				de resultats*/

/*creation du jeu de donnees et ajout de la variable i*/

data indust;
        infile donnees;
        input y x;
run;
/*l'impression des donnees dans l'ordre i x y*/
/* data indust_i;
	do i = 1 by 1;
	set indust;
	output;
	end;
run; */



proc print data=indust;
        title2"Les donnees:";
        title3"X = temperature mensuelle moyenne de l'air (en F)";            
        title4"Y = qte de vapeur utilisee par mois (en lb) dans un processus industriel";
	/* Il peut y avoir jusqu'a 10 titres */
        var x y;
run;



/*Trier et imprimer les donnees*/
 
proc sort data=indust out=indust2;
        by x;
run;

proc print data=indust2;
        title2"Les donnees:";            
        title3"ou X est en ordre croissant";
	/* Le titre "title2" remplace les titres "tilte2" a "title4' precedents */
        var x y;
run;

proc sort data=indust out=indust3;
        by descending y;
run;

proc print data=indust3;
        title2"Les donnees:";
        title3"ou Y est en ordre decroissant";
        var y x; /* Imprimer y d'abord et x ensuite */
run;