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 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85
|
/*enrgistrement de l'enrgistrement dans un fichier parametre*/
data dessin.parametr1;
infile 'C:\wamp\www\Dessin\sas_dessin\parametre.txt' lrecl=500 dlm='*' dsd pad missover;
length ref_dossier $15 lib_fic $50 nom_fichier $50 no_fic $8 libelle $50 cle $8 no_fic $9
dlm $5 recfm $1 lrecl $8 lzciv $8 lznom $8 lzprenom $8 lv2 $8 lv3 $8 lv4 $8 lv5 $8
lxcp $8 lxvil $8 lv6 $8 pzciv $8 pznom $8 pzprenom $8 pv2 $8 pv3 $8 pv4 $8 pv5 $8 pxcp $8
pxvil $8 pv6 $8fichier $50 lnum $8 lnumb $8 ltyp $8 lrue $8 pnum $8 pnumb $8 ptyp $8 prue $8
codciv1 $10 codciv2 $10 codciv3 $10 codciv4 $10 codciv5 $10
libciv1 $10 libciv2 $10 libciv3 $10 libciv4 $10 libciv5 $10
rep $100 annule $1 option $200 fichier $50 keep $200 place 4
exclus $20 priorite 8 prio_fic $1 optionb $200 ;
input
ref_dossier lib_fic nom_fichier no_fic libelle cle no_fic dlm recfm lrecl lzciv
lznom lzprenom lv2 lv3 lv4 lv5 lxcp lxvil lv6 pzciv pznom pzprenom pv2 pv3 pv4
pv5 pxcp pxvil pv6 fichier lnum lnumb ltyp lrue pnum pnumb ptyp prue codciv1
codciv2 codciv3 codciv4 codciv5 libciv1 libciv2 libciv3 libciv4 libciv5 rep;
run;
data dessin.archive;
set dessin.archive dessin.parametr1;
run;
data dessin.archive;
set dessin.archive;
if ref_dossier='' then delete;
run;
%macro creer_parametr (lib,rep) ;
/*proc datasets nolist;
copy in=_lib out=&lib memtype=catalog;
select parametr;
quit;*/
data &lib..parametr ;
length no_fic 8 lib_fic rep $100 dlm $5 recfm $1 lrecl 8
lzciv lznom lzprenom lv2-lv4 lnum lnumb ltyp lrue lv5 lxcp lxvil lv6 8
pzciv pznom pzprenom pv2-pv4 pnum pnumb ptyp prue pv5 pxcp pxvil pv6 8
codciv1-codciv5 libciv1-libciv5 $10
nomvar1 $8 lvar1 pvar1 8
nomvar2 $8 lvar2 pvar2 8
nomvar3 $8 lvar3 pvar3 8
nomvar4 $8 lvar4 pvar4 8
nomvar5 $8 lvar5 pvar5 8
annule $1 option $200 fichier $50 keep $200 place 4 exclus $20 priorite 8
prio_fic $1 optionb $200 ;
no_fic = '' ;
lib_fic=''; rep = "&rep" ; dlm='' ; recfm = ''; lrecl =.;
lzciv =.; lznom =.; lzprenom =.; lv2 =.;lv3 =.;lv4 =.;lv5 =.; lxcp =.; lxvil =.; lv6 =.;
lnum=.; lnumb=.; ltyp=.; lrue=.;
pzciv =.; pznom =.; pzprenom =.; pv2 =.;pv3 =.;pv4 =.;pv5 =.;pxcp =.; pxvil =.; pv6 =.;
pnum=.; pnumb=.; ptyp=.; prue=.;
codciv1=''; libciv1='';
codciv2=''; libciv2='';
codciv3=''; libciv3='';
codciv4=''; libciv4='';
codciv5=''; libciv5='';
nomvar1=''; lvar1=. ; pvar1 = . ;
nomvar2=''; lvar2=. ; pvar2 = . ;
nomvar3=''; lvar3=. ; pvar3 = . ;
nomvar4=''; lvar4=. ; pvar4 = . ;
nomvar5=''; lvar5=. ; pvar5 = . ;
annule = ' ' ; option = ' ' ; fichier = ' ' ;
keep = '' ; place = . ; exclus = ' ' ; priorite = . ; prio_fic = ' ';optionb = ' ';
output ;
run ;
%mend ;
%creer_parametr ;
proc fsbrowse data=dessin.archive;
run;
data dessin.parametr ;
set arametr ;
length test $100 ;
test='md "'!!trim(rep)!!'"'; output;
test='cd "'!!trim(rep)!!'"'; output;
test='md "parametr"';output;
/*code='exit'; output;*/
run;
data _null_;
set dessin.parametr;
file "cree parametr.bat";
put test;
run;
x ("cree parametr.bat"); |
Partager