Discussion :

[lavm01]

Bonjour,

J'ai une table sas qui contient des heures de 0 à 23 d'une certaine journée plus des heures 0-1-2 de la journée suivante ce qui me donne 27 heure en tout.

Comment faire pour insérer un heure manquante. Ex: pour le 6 Août j'ai les heures 0 1 3 4 5 6 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 et 0 1 du 7 Août. Dans cet exemple il me manque l'heure 2 du 6 et 7 Août et l'heure 7 du 6 Août. Donc comment venir insérer l'heure (ou les heures) qu'il me manque afin que je puisse mettre certaine valeur à 0. Il faut toujours que j'aille 27 heure en tout c'est à dire de 0 à 23 de today()-2 et les heures 0-1-2 de today()-1

Merci !

[xav2229]

Salut,

Il n'y a pas vraiment besoin de faire cela en regle generale, mais bon voici ce que tu veux:

CLASSDATA

Tcho,

Xav

[lavm01]

Salut,

Effectivement dans certain cas je n'ai pas besoin de faire ça. Mais dans ce cas particulier j'ai toujours besoin des 27 heures, il ne faut pas qu'il manque d'heure pour pourvoir calculer le total des MIPS d'un ordinateur central ainsi que faire une moyenne aux 4 heures qui débute à l'heure 0. Période 1 = à la moyenne de l'heure 0-1-2-3, période 2 = à la moyenne de l'heure 1-2-3-4 et ainsi de suite. C'est pour cette raison qu'il ne faut pas qu'il manque d'heure. Et les heures manquantes les valeurs sont mis à 0.

Merci de ton aide, je vais regarder le proc means, mais je ne suis pas certain... Merci encore.

[lavm01]

À force de gossé j'ai finalement trouvé, il y a peut-être d'autres façons mais bon, ça fonctionne, voici mon bout de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
FILENAME PGMSAS 'H:\HARLPC';
LIBNAME LIBSAS 'H:\HARLPC';
 
%INC PGMSAS(FORMAT);
 
/* Le programme est en construction, il n'est pas fini mais donne une idée */
 
 
DATA DATE_DB_FN;
 SET LIBSAS.HARLPC01 /* GÉNÉRATION DE TODAY - 2 INCLUANT LA FIN DE SEMAINE ET LES JOURS FÉRIÉS */
     LIBSAS.HARLPC02;  /* GÉNÉRATION DE TODAY - 1 */
 
 FORMAT DATE YYMMDD10.;
 DATE = MDY(MONTH,DAY,YEAR4);
 if hour = 22 then delete; /* ici j'enleve l'heure 22 pour faire un test car je ne sais jamais quelle heure il me manque */
 if hour = 2 then delete; /* ici j'enleve l'heure 2 pour faire un test car je ne sais jamais quelle heure il me manque */
 
RUN;
PROC SORT DATA=DATE_DB_FN OUT=TRI_PER_DATE;
 BY DATE;
RUN;
 
DATA INTERV(KEEP=DBDATE);
 SET TRI_PER_DATE;
 BY DATE;
 *RETAIN DBDATE FNDATE;
 *FORMAT DBDATE YYMMDD10.;
 IF FIRST.DATE THEN DO;
   DBDATE=DATE; 
   OUTPUT; 
 END;
 *IF LAST.SYSID THEN DO; 
 * FNDATE = UNEDATE; 
 * DIFFDT=FNDATE-DBDATE;
 * OUTPUT;
 *END;
RUN;
 
PROC SQL NOPRINT;
 SELECT DISTINCT DBDATE,
        COUNT(DISTINCT DBDATE)
		INTO
		    :DBDATE SEPARATED BY "+",
			:NB_DATE
 FROM INTERV;
QUIT;
 
%PUT DBDATE=&DBDATE;
%PUT NB_DATE=&NB_DATE;
 
OPTIONS NOMLOGIC;
%MACRO EXTR_PER_DATE;
 %DO N = 1 %TO &NB_DATE-1;
  %LET NOMDATE = %SCAN(&DBDATE,&N,%STR(+));
  DATA EXTRA&N(KEEP=SYSID PRSMLPNM DATE HOUR MIPS);
   SET DATE_DB_FN;
   *DBEXTR = TODAY()-&N-2;
   *FNEXTR = TODAY()-&N;
   IF DATE = &NOMDATE OR DATE = &NOMDATE+1 AND HOUR IN (0 1 2);
   IF PRSMLPNM = PUT(PRSMLPNM,$LPARS.);
 
 
   UPTIME = DURATION*3;
 
   TOTCPUTM = LPCTODTM;  /* TOTAL DISPATCH TIME  */
 
   IF UPTIME NE 0 THEN  TOTCPUPC = TOTCPUTM / UPTIME;
   ELSE TOTCPUPC = 0;
 
   IF TOTCPUPC NE 0 THEN TOTBRUTM = TOTCPUTM/TOTCPUPC;
   ELSE TOTBRUTM=0;
 
   IF TOTBRUTM NE 0 THEN MIPS = LPCTOEDT / TOTBRUTM * 252;
   ELSE MIPS=0;
   *WHERE DATE = &NOMDATE;
  RUN;
 %END;
 
******************************************************************;
* Tri du fichier EXTRA                                           *;
******************************************************************;
%DO N = 1 %TO &NB_DATE-1;
 PROC SORT DATA=EXTRA&N;
  BY SYSID PRSMLPNM DATE HOUR;
 RUN;
%END;
 
******************************************************************;
* Création d une table de comparaison                            *;
******************************************************************;
%DO N = 1 %TO &NB_DATE-1;
  DATA P_COMP&N(DROP= I DTD MIPS);
   SET EXTRA&N;
   FORMAT DTD YYMMDD10.;
   BY SYSID PRSMLPNM DATE HOUR;
   IF FIRST.PRSMLPNM THEN DO;
    DTD=DATE;
    DO I=0 TO 23;
     HOUR = I;
	 DATE=DTD;
	 OUTPUT;
    END;
   END;
   IF LAST.PRSMLPNM THEN DO; 
    DTD=DATE;
    DO I=0 TO 2;
     HOUR = I;
	 DATE=DTD;
	 OUTPUT;
    END;
   END;
 RUN;
%END;
 
******************************************************************;
* Tri du fichier P_COMP (table de comparaison)                   *;
******************************************************************;
%DO N = 1 %TO &NB_DATE-1;
 PROC SORT DATA=P_COMP&N;
  BY SYSID PRSMLPNM DATE HOUR;
 RUN;
%END;
 
******************************************************************;
* Trouve les heures manquantes entre la table de comparaison     *;
* et la table EXTRA                                              *;
******************************************************************;
%DO N = 1 %TO &NB_DATE-1;
 DATA TRV_HRE_MANQ&N;
  MERGE EXTRA&N(IN=A) P_COMP&N(IN=B);
  BY SYSID PRSMLPNM DATE HOUR;
  IF B AND NOT A THEN DO; MIPS=0; OUTPUT; END;
 RUN;
%END;
 
******************************************************************;
* Merge la table EXTRA avec la table des heures manquantes       *;
* donc on se retrouve avec une table complete (il ne manque      *;
* pas d heure)                                                   *;
******************************************************************;
%DO N = 1 %TO &NB_DATE-1;
 DATA MRG_HRE_MANQ&N;
  MERGE EXTRA&N
        TRV_HRE_MANQ&N;
  BY SYSID PRSMLPNM DATE HOUR;
 RUN;
%END;
****************************************************************************;
* SOMMATION DES MIPS PAR LPARS                                             *;
****************************************************************************;
%DO N = 1 %TO &NB_DATE-1;
 PROC SUMMARY DATA=MRG_HRE_MANQ&N NWAY;
   CLASS SYSID DATE HOUR;
   VAR MIPS;
   OUTPUT SUM= OUT=SUM_MIPS&N (DROP=_TYPE_ _FREQ_);
 RUN;
%END;
%MEND;
%EXTR_PER_DATE;