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
|
%let anneedeb=%eval(%substr(&Dtvision.,1,4)-5);
%let anneefin=%substr(&Dtvision.,1,4);
%let moisfin=%substr(&Dtvision.,5,2);%let jourfin=%substr(&Dtvision.,7,2);
%let prod = ("A","B","C","D","E");
%put &Dtvision &anneedeb &anneefin &moisfin &jourfin;
PROC SQL noprint ;
CREATE TABLE CONST1. Ptf_CONST1_&NOMCR._V2
AS SELECT a.*,
b. *, 1 as Flag2
FROM CONST1. Ptf_CONST1_&NOMCR._V1 a
LEFT JOIN pbede&NOMCR..TOTO b
ON a. num1=b. num1
AND a. num2=b. num2
AND a. num3=b. num3
;
QUIT;
* Dedoublonnage;
proc sort data=CONST1. Ptf_CONST1_&NOMCR._V2;
by num1 num2 num ;
run;
proc sort nodupkey data=CONST1. Ptf_CONST1_&NOMCR._V2 out=CONST1. Ptf_CONST1_&NOMCR._V3 dupout=Doublon_&NOMCR._V3;
by IDDHJ IDDHL ITDHA;
run;
proc delete data=CONST1. Ptf_CONST1_&NOMCR._V2 ;
run;
%mend Auto_Prod;
%Auto_Prod(NOMCR=T1,NUMCR=13,Dtvision=20181231);
%Auto_Prod(NOMCR=T2,NUMCR=28,Dtvision=20181231);
%Auto_Prod(NOMCR=T3,NUMCR=97,Dtvision=20181231);
%Auto_Prod(NOMCR=T4,NUMCR=51,Dtvision=20181231);
%Auto_Prod(NOMCR=T5,NUMCR=31,Dtvision=20181231);
%Auto_Prod(NOMCR=T6,NUMCR=79,Dtvision=20181231);
%Auto_Prod(NOMCR=T7,NUMCR=75,Dtvision=20181231);
%Auto_Prod(NOMCR=T8,NUMCR=69,Dtvision=20181231);
%Auto_Prod(NOMCR=T9,NUMCR=35,Dtvision=20181231);
%Auto_Prod(NOMCR=T10,NUMCR=67,Dtvision=20181231); |
Partager