Les bonnes idées SAS

PROC CONTENTS DATA = table NOPRINT OUT = contents;
RUN;

DATA contents_num;
SET contents(WHERE = (INDEX(FORMAT,"$") <= 0));
RUN;

DATA contents_char;
SET contents(WHERE = (INDEX(FORMAT,"$") > 0));
RUN;

PROC SQL NOPRINT;
SELECT DISTINCT(NAME) INTO :list_variables_cont SEPARATED BY ' ' FROM contents_num;
SELECT COUNT(NAME) INTO :nb_variables_cont FROM contents_num;
QUIT;

PROC SQL NOPRINT;
SELECT DISTINCT(NAME) INTO :list_variables_char SEPARATED BY ' ' FROM contents_char ;
SELECT COUNT(NAME) INTO :nb_variables_char FROM contents_char ;
QUIT;

%DO iteration_cont = 1 %TO &nb_variables_cont.;

%PUT je pointe sur %SCAN(&list_variables_cont., &iteration_cont.)

%END;

%DO iteration_char = 1 %TO &nb_variables_char .;

%PUT je pointe sur %SCAN(&list_variables_char ., &iteration_char .)

%END;

Code:

%LET DSID = %SYSFUNC(OPEN(Paysan.Base_paysan_breton_socio));
%LET NOBS = %SYSFUNC(ATTRN(&DSID,NOBS));
%LET NVARS = %SYSFUNC(ATTRN(&DSID,NVARS));
%LET RC = %SYSFUNC(CLOSE(&DSID));
%put &nobs;
%put &nvars;

Code:

proc sql noprint;
select count(*)into : nb_ligne2 from Paysan.Base_paysan_breton_socio ;
quit;

%put &nb_ligne2;

Code:

data _null_;
  set Paysan.Base_paysan_breton_socio;
  call symput("nb_ligne3", _N_);
  run;

  %put &nb_ligne3;

Code:

data test3;
  set test2 nobs=nombre;
  call symput("nb_ligne4",nombre);
run;

%put &nb_ligne4;

Code:


/*on crée la fonction inverselag que l'on stock dans la work.fct*/
PROC FCMP OUTLIB=work.fct.inverselag ;
   FUNCTION lead (dataset $, var $, lead) ;
      /*ouvre la table*/
      dsid = OPEN(dataset) ;
      /*nombre de ligne dans la table*/
      nb = ATTRN(dsid, "NOBS") ;
      /*fin de la table*/
      IF lead > nb THEN res = . ;
      ELSE DO ;
         /*lit la "lead"ième ligne*/
         rc = FETCHOBS(dsid, lead) ;
         /*renvoie l'observation de la colonne "VARNUM"ième colonne et écrit*/
         res = GETVARN(dsid, VARNUM(dsid, var)) ;
      END ;
      /*ferme la table*/
      rc = CLOSE(dsid) ;
      /*retourne le résultat*/
      RETURN (res) ;
   ENDSUB ;
RUN ;
QUIT ;


Code:


/*spécifie ou sont situées les fonctions créées*/
options cmplib=work.fct;


Code:


/*exemple sur une table sashelp*/
DATA work.B2 ;
  SET sashelp.air ;
  /*inverse de lag()*/
  next  = LEAD("sashelp.air", "air", _N_+1) ;
  /*inverse de lag2()*/
  next2 = LEAD("sashelp.air", "air", _N_+2) ;
RUN ;


Code:

proc datasets lib=ma_lib  nolist;
    modify ma_table;
        attrib _all_ label='';
    quit;
run;