1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
| x "setenv ODATE 2019-10-31";
data _null_;
format today ddmmyy10. ;
/* Création des macro-variables avec adjonction des quotes pour sql oracle */
today=mdy(input(substr("&ODATE.",6,2),2.),
input(substr("&ODATE.",9,2),2.),
input(substr("&ODATE.",1,4),4.));
put "today :" today;
/*mois de la ODATE */
annee_obs = year(today);
annee_obs1 = put(annee_obs,4.);
MV_AN=substr(annee_obs1,3,2);
mois= month(today);
/* Ajout du 0 lorsque le mois est inférieur à 10*/
if mois<10
then mois_obs_0=compress('0'||mois);
else mois_obs_0=cat(''||mois);
MV_Echeance=compress(mois_obs_0 || MV_AN);
MV_MOIS=mois_obs_0;
/*call symput('MVAnneeN', annee_obs);
call symput('MVTrim', mois_obs);*/
call symput('MV_AN', MV_AN);
call symput('MV_MOIS', MV_MOIS);
call symput('MV_Echeance', MV_Echeance);
%let MV_Realisateur = Jacques Provost;
*call symput('MV_REALISATEUR',Jacques Provost);
/*call symput('MV_realisateur',"'"||sysget("ORA_USER_1")||"'") ;*/
*call symput('MV_Realisateur',compress("&sysuserid.")) ;
/*call symput('MV_Realisateur',compress("'"||"&sysuserid."||"'")) ;
/*put annee_obs;*/
put mois;
put MV_AN;
put MV_MOIS;
put MV_Realisateur;
put MV_Echeance;
run; |
Partager