1 The SAS System 09:40 Wednesday, October 21, 2009 NOTE: Copyright (c) 2002-2003 by SAS Institute Inc., Cary, NC, USA. NOTE: SAS (r) 9.1 (TS1M3) Licensed to SY TRUONG, Site 0051884001. NOTE: This session is executing on the XP_PRO platform. NOTE: (E9BX04) SAS 9.1.3 SP 4 NOTE: SAS initialization used: real time 0.64 seconds cpu time 0.73 seconds NOTE: AUTOEXEC processing beginning; file is C:\apache\htdocs\cdiscbuilder\saspgm\autoexec.sas. NOTE: Libref _CDISC_ was successfully assigned as follows: Engine: V9 Physical Name: C:\apache\htdocs\cdiscbuilder\saspgm NOTE: AUTOEXEC processing completed. 1 /*------------------------------------------------------------* 2 * program: cdisc39.sas * 3 * Description: Case #39. Duration Zero For All (Timing) variables, this identifies 3 ! records that violate the condition * 4 * [Duration greater than or equal to 0], limited to records where 4 ! [Duration is not null].* 5 * By: Sy Truong, 10/14/2009 * 6 *-------------------------------------------------------------*/ 7 8 libname templib '../data'; NOTE: Libref TEMPLIB was successfully assigned as follows: Engine: V9 Physical Name: C:\apache\htdocs\cdiscbuilder\data 9 10 *** Create some data to be selected ***; 11 data templib.ex(label="Exposure"); 12 attrib STUDYID label="Study Identifier" length=$100; 13 attrib DOMAIN label="Domain Abbreviation" length=$100; 14 attrib USUBJID label="Unique Subject Identifier" length=$100; 15 attrib EXSEQ label="Sequence Number" length=8; 16 attrib EXGRPID label="Group ID" length=$100; 17 attrib EXSPID label="Sponsor-Defined Identifier" length=$100; 18 attrib EXTRT label="Name of Actual Treatment" length=$100; 19 attrib EXCAT label="Category for Treatment" length=$100; 20 attrib EXSCAT label="Subcategory for Treatment" length=$100; 21 attrib EXDOSE label="Dose per Administration" length=8; 22 attrib EXDUR label="Duration of Treatment" length=$50; 23 24 STUDYID='test';DOMAIN='test';USUBJID='test';EXSEQ=1;EXGRPID='test';EXSPID='test'; 24 ! EXTRT='test';EXCAT='test';EXSCAT='test';EXDOSE=0;EXDUR='-PT15M'; 25 output; 2 The SAS System 09:40 Wednesday, October 21, 2009 26 STUDYID='test';DOMAIN='test';USUBJID='test';EXSEQ=1;EXGRPID='test';EXSPID='test'; 26 ! EXTRT='test';EXCAT='test';EXSCAT='test';EXDOSE=1;EXDUR='PT8H'; 27 output; 28 STUDYID='test';DOMAIN='test';USUBJID='test';EXSEQ=1;EXGRPID='test';EXSPID='test'; 28 ! EXTRT='test';EXCAT='test';EXSCAT='test';EXDOSE=2;EXDUR='PT8H'; 29 output; 30 STUDYID='test';DOMAIN='test';USUBJID='test';EXSEQ=1;EXGRPID='test';EXSPID='test'; 30 ! EXTRT='test';EXCAT='test';EXSCAT='test';EXDOSE=.;EXDUR='PT8H'; 31 output; 32 STUDYID='test';DOMAIN='test';USUBJID='test';EXSEQ=1;EXGRPID='test';EXSPID='test'; 32 ! EXTRT='test';EXCAT='test';EXSCAT='test';EXDOSE=4;EXDUR='PT8H'; 33 output; 34 STUDYID='test';DOMAIN='test';USUBJID='test';EXSEQ=1;EXGRPID='test';EXSPID='test'; 34 ! EXTRT='test';EXCAT='test';EXSCAT='test';EXDOSE=.;EXDUR='PT8H'; 35 output; 36 37 38 run; NOTE: The data set TEMPLIB.EX has 6 observations and 11 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 39 %cdisc(datlib=templib,datname=ex); 40 data misobs(keep=obsnum); 41 retain obsnum 0; 42 set templib.ex(keep=STUDYID); 43 obsnum=obsnum+1; 44 if missing(STUDYID) then 45 output; 46 run; NOTE: There were 6 observations read from the data set TEMPLIB.EX. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 47 data misobs(keep=obsnum); 48 retain obsnum 0; 49 set templib.ex(keep=DOMAIN); 50 obsnum=obsnum+1; 51 if missing(DOMAIN) then 52 output; 53 run; NOTE: There were 6 observations read from the data set TEMPLIB.EX. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. NOTE: DATA statement used (Total process time): 3 The SAS System 09:40 Wednesday, October 21, 2009 real time 0.01 seconds cpu time 0.01 seconds 54 data misobs(keep=obsnum); 55 retain obsnum 0; 56 set templib.ex(keep=USUBJID); 57 obsnum=obsnum+1; 58 if missing(USUBJID) then 59 output; 60 run; NOTE: There were 6 observations read from the data set TEMPLIB.EX. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 61 data misobs(keep=obsnum); 62 retain obsnum 0; 63 set templib.ex(keep=EXSEQ); 64 obsnum=obsnum+1; 65 if missing(EXSEQ) then 66 output; 67 run; NOTE: There were 6 observations read from the data set TEMPLIB.EX. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 68 data misobs(keep=obsnum); 69 retain obsnum 0; 70 set templib.ex(keep=EXTRT); 71 obsnum=obsnum+1; 72 if missing(EXTRT) then 73 output; 74 run; NOTE: There were 6 observations read from the data set TEMPLIB.EX. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 75 data _38; 76 retain obsnum 0; 77 set templib.ex(keep=EXDOSE); 78 obsnum = obsnum + 1; 4 The SAS System 09:40 Wednesday, October 21, 2009 79 if EXDOSE ne . and EXDOSE < 0 then output; 80 run; NOTE: There were 6 observations read from the data set TEMPLIB.EX. NOTE: The data set WORK._38 has 0 observations and 2 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 81 data _39; 82 retain obsnum 0; 83 set templib.ex(keep=EXDUR); 84 obsnum = obsnum + 1; 85 if compress(EXDUR) ne '' then if substr(EXDUR,1,1)='-' then output; 86 run; NOTE: There were 6 observations read from the data set TEMPLIB.EX. NOTE: The data set WORK._39 has 1 observations and 2 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 87 proc sort data=templib.ex out=ex nodupkey; 88 by usubjid; 89 run; NOTE: There were 6 observations read from the data set TEMPLIB.EX. NOTE: 5 observations with duplicate key values were deleted. NOTE: The data set WORK.EX has 1 observations and 11 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.04 seconds cpu time 0.04 seconds NOTE: Table WORK._72 created, with 0 rows and 1 columns. 90 proc sort data=cdisc nodupkey; 91 by libname datname datlab variable length label type case comment; 92 run; NOTE: There were 4 observations read from the data set WORK.CDISC. NOTE: 0 observations with duplicate key values were deleted. NOTE: The data set WORK.CDISC has 4 observations and 11 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 93 proc sort data = work.cdisc; 94 by libname datname datlab variable case; 95 run; 5 The SAS System 09:40 Wednesday, October 21, 2009 NOTE: There were 4 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 4 observations and 11 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.04 seconds cpu time 0.04 seconds 96 97 proc format; 98 *** Generate the comments for the CDISC evaluation case number ***; 99 value $casefmt 100 '1' = '1' 101 '2' = '2' 102 '3' = '3' 103 '4' = '4' 104 '5' = '5' 105 '6' = '6' 106 '7' = '7' 107 '8' = '8' 108 '9' = '9' 109 '10' = '10' 110 '11' = '11' 111 '12' = '12' 112 '13' = '13' 113 '14' = '14' 114 '15' = '15' 115 '16' = '16' 116 '17' = '17' 117 '18' = '18' 118 '19' = '19' 119 '20' = '20' 120 '21' = '21' 121 '22' = '22' 122 '23' = '23' 123 '24' = '24' 124 '25' = '25' 125 '26' = '26' 126 '27' = '27' 127 '28' = '28' 128 '29' = '29' 129 '30' = '30' 130 '31' = '31' 131 '32' = '32' 132 '33' = '33' 133 '34' = '34' 134 '35' = '35' 135 '36' = '36' 136 '37' = '37' 137 '38' = '38' 138 '39' = '39' 139 '40' = '40' 140 '41' = '41' 6 The SAS System 09:40 Wednesday, October 21, 2009 141 '42' = '42' 142 '43' = '43' 143 '44' = '44' 144 '45' = '45' 145 '46' = '46' 146 '47' = '47' 147 '48' = '48' 148 '49' = '49' 149 '50' = '50' 150 '51' = '51' 151 '52' = '52' 152 '53' = '53' 153 '54' = '54' 154 '55' = '55' 155 '56' = '56' 156 '57' = '57' 157 '58' = '58' 158 '59' = '59' 159 '60' = '60' 160 '61' = '61' 161 '62' = '62' 162 '63' = '63' 163 '64' = '64' 164 '65' = '65' 165 '66' = '66' 166 '67' = '67' 167 '68' = '68' 168 '69' = '69' 169 '70' = '70' 170 '71' = '71' 171 '72' = '72' 172 '73' = '73' 173 '74' = '74' 174 '75' = '75' 175 '76' = '76' 176 '77' = '77' 177 '78' = '78' 178 '79' = '79' 179 '80' = '80' 180 '81' = '81' 181 '82' = '82' 182 '83' = '83' 183 '84' = '84' 184 '85' = '85' 185 '86' = '86' 186 '87' = '87' 187 '88' = '88' 188 '89' = '89' 189 '90' = '90' 190 '91' = '91' 191 '92' = '92' 192 '93' = '93' 193 '94' = '94' 7 The SAS System 09:40 Wednesday, October 21, 2009 194 '95' = '95' 195 '96' = '96' 196 '97' = '97' 197 '98' = '98' 198 '99' = '99' 199 '100' = '100' 200 '101' = '101' 201 '102' = '102' 202 '103' = '103' 203 '104' = '104' 204 '105' = '105' 205 '106' = '106' 206 '107' = '107' 207 '108' = '108' 208 '109' = '109' 209 '110' = '110' 210 '111' = '111' 211 '112' = '112' 212 '113' = '113'; NOTE: Format $CASEFMT has been output. 213 214 215 216 *** Generate the format for the bookmark of variables ***; 217 value $bookfmt 218 "ex.studyid" = 'ex.studyid' 219 "ex.domain" = 'ex.domain' 220 "ex.usubjid" = 'ex.usubjid' 221 "ex.exseq" = 'ex.exseq' 222 "ex.exgrpid" = 'ex.exgrpid' 223 "ex.exspid" = 'ex.exspid' 224 "ex.extrt" = 'ex.extrt' 225 "ex.excat" = 'ex.excat' 226 "ex.exscat" = 'ex.exscat' 227 "ex.exdose" = 'ex.exdose' 228 "ex.exdur" = 'ex.exdur' 229 ; NOTE: Format $BOOKFMT has been output. 230 231 *** Generate the format for dataset linking ***; 232 value $datfmt 233 "ae" = 'ae
' 234 "ae3a" = 'ae3a
' 235 "cdisc10" = 'cdisc10
' 236 "cdisc11" = 'cdisc11
' 237 "cdisc14" = 'cdisc14
' 238 "cdisc15" = 'cdisc15
' 239 "cdisc18" = 'cdisc18
' 240 "cdisc2" = 'cdisc2
' 241 "cdisc21" = 'cdisc21
' 242 "cdisc2b_1" = 'cdisc2b_1
' 243 "cdisc2b_2" = 'cdisc2b_2
' 244 "cdisc2b_3" = 'cdisc2b_3
' 8 The SAS System 09:40 Wednesday, October 21, 2009 245 "cdisc2_b" = 'cdisc2_b
' 246 "cdisc2_c" = 'cdisc2_c
' 247 "cdisc4" = 'cdisc4
' 248 "cdisc5" = 'cdisc5
' 249 "cdisc6" = 'cdisc6
' 250 "cdisc7" = 'cdisc7
' 251 "cdisc8" = 'cdisc8
' 252 "cdisc9" = 'cdisc9
' 253 "ce" = 'ce
' 254 "cm" = 'cm
' 255 "co" = 'co
' 256 "da" = 'da
' 257 "dm" = 'dm
' 258 "ds" = 'ds
' 259 "dv" = 'dv
' 260 "eg" = 'eg
' 261 "ex" = 'ex
' 262 "fa" = 'fa
' 263 "ie" = 'ie
' 264 "lb" = 'lb
' 265 "mb" = 'mb
' 266 "mh" = 'mh
' 267 "ms" = 'ms
' 268 "notdm" = 'notdm
' 269 "pc" = 'pc
' 270 "pe" = 'pe
' 271 "pp" = 'pp
' 272 "qs" = 'qs
' 273 "relrec" = 'relrec
' 274 "sc" = 'sc
' 275 "se" = 'se
' 276 "su" = 'su
' 277 "supmh" = 'supmh
' 278 "suppae" = 'suppae
' 279 "suppp" = 'suppp
' 280 "supte" = 'supte
' 281 "supvs" = 'supvs
' 282 "sv" = 'sv
' 283 "ta" = 'ta
' 284 "te" = 'te
' 285 "ti" = 'ti
' 286 "ts" = 'ts
' 287 "tv" = 'tv
' 288 "vs" = 'vs
' 289 ; NOTE: Format $DATFMT has been output. 290 run; NOTE: PROCEDURE FORMAT used (Total process time): real time 0.17 seconds cpu time 0.03 seconds 9 The SAS System 09:40 Wednesday, October 21, 2009 291 292 data work.cdisc; 293 set work.cdisc; 294 by libname datname datlab variable case; 295 296 attrib datvar label="Dataset and Variable" length=$100 format=$bookfmt.; 297 if variable ne '' then 298 datvar = compress(lowcase(datname) || "." || lowcase(variable)); 299 else datvar = lowcase(datname); 300 /*format case casefmt.;*/ 301 attrib charcase label = "Case Number" length = $10; 302 charcase = trim(left(put(case, best.))); 303 format charcase $casefmt.; 304 *format datname $datfmt.; 305 run; NOTE: There were 4 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 4 observations and 13 variables. NOTE: DATA statement used (Total process time): real time 0.04 seconds cpu time 0.04 seconds 306 307 *** Remove The Special Characters ******; 308 proc template; 309 define style styles.test/store=work.test; 310 parent=styles.default; 311 style byline from titlesandfooters / 312 protectspecialchars=off; 313 end; NOTE: STYLE 'Styles.Test' has been saved to: WORK.TEST 314 run; NOTE: PROCEDURE TEMPLATE used (Total process time): real time 0.07 seconds cpu time 0.03 seconds 315 316 proc sort data = work.cdisc; 317 by libname datname datlab variable case; 318 run; NOTE: There were 4 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 4 observations and 13 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.04 seconds cpu time 0.04 seconds 319 320 ods listing close; 321 ods html file='cdisc39.html' style=styles.mxistyle; 10 The SAS System 09:40 Wednesday, October 21, 2009 NOTE: Writing HTML Body file: cdisc39.html 322 data work.ex (drop=usrname datetime); 323 set work.cdisc; 324 where lowcase(datname)=lowcase("ex"); 325 run; NOTE: There were 4 observations read from the data set WORK.CDISC. WHERE LOWCASE(datname)='ex'; NOTE: The data set WORK.EX has 4 observations and 11 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 326 data ex(drop=xxx); 327 set ex; 328 retain xxx 0; 329 if xxx = 2 then xxx = 1; 330 else xxx = xxx + 1; 331 yyy = compress(put(xxx,best.)); 332 run; NOTE: There were 4 observations read from the data set WORK.EX. NOTE: The data set WORK.EX has 4 observations and 12 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 333 334 %let newlab = %nrbquote(Exposure); 335 title1 height=2 ' Findings from CDISC Evaluation'; 336 title2 height=2 "Data Table Name = ex Data Table Label=&newlab"; 337 footnote1 height=2 "Generated on: 10/21/2009, 9:40:32 am, Administrator"; 338 footnote2 height=2 "Located at: C:\apache\htdocs\cdiscbuilder\data"; 339 proc report data = work.ex nowindows; 340 column obs libname datvar label type length charcase comment yyy; 341 define obs/computed 'Obs'; 342 define libname/width=20; 343 define datvar/width=50; 344 define label/width=50; 345 define type/width=20; 346 define length/width=50; 347 define comment/width=50; 348 define charcase/width=50; 349 define yyy/ noprint; 350 351 compute yyy; 352 if yyy = "2" then do; 353 call define (_row_,'style','STYLE=[BACKGROUND=cxFFFFCC]'); 354 end; 355 endcompute; 356 11 The SAS System 09:40 Wednesday, October 21, 2009 357 compute charcase; 358 if charcase='1' then call define 358 ! ('charcase','style','STYLE=[BACKGROUND=CXccffcc JUST=CENTER]'); 359 if charcase='2' then call define 359 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0030 JUST=CENTER]'); 360 if charcase='3' then call define 360 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0094 JUST=CENTER]'); 361 if charcase='4' then call define 361 ! ('charcase','style','STYLE=[BACKGROUND=CXcd00f8 JUST=CENTER]'); 362 if charcase='5' then call define 362 ! ('charcase','style','STYLE=[BACKGROUND=CXcd015c JUST=CENTER]'); 363 if charcase='6' then call define 363 ! ('charcase','style','STYLE=[BACKGROUND=CXcd01c0 JUST=CENTER]'); 364 if charcase='7' then call define 364 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0224 JUST=CENTER]'); 365 if charcase='8' then call define 365 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0288 JUST=CENTER]'); 366 if charcase='9' then call define 366 ! ('charcase','style','STYLE=[BACKGROUND=CXcd02ec JUST=CENTER]'); 367 if charcase='10' then call define 367 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0350 JUST=CENTER]'); 368 if charcase='11' then call define 368 ! ('charcase','style','STYLE=[BACKGROUND=CXcd03b4 JUST=CENTER]'); 369 if charcase='12' then call define 369 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0418 JUST=CENTER]'); 370 if charcase='13' then call define 370 ! ('charcase','style','STYLE=[BACKGROUND=CXcd047c JUST=CENTER]'); 371 if charcase='14' then call define 371 ! ('charcase','style','STYLE=[BACKGROUND=CXcd04e0 JUST=CENTER]'); 372 if charcase='15' then call define 372 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0544 JUST=CENTER]'); 373 if charcase='16' then call define 373 ! ('charcase','style','STYLE=[BACKGROUND=CXcd05a8 JUST=CENTER]'); 374 if charcase='17' then call define 374 ! ('charcase','style','STYLE=[BACKGROUND=CXcd060c JUST=CENTER]'); 375 if charcase='18' then call define 375 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0670 JUST=CENTER]'); 376 if charcase='19' then call define 376 ! ('charcase','style','STYLE=[BACKGROUND=CXcd06d4 JUST=CENTER]'); 377 if charcase='20' then call define 377 ! ('charcase','style','STYLE=[BACKGROUND=CXffffcc JUST=CENTER]'); 378 if charcase='21' then call define 378 ! ('charcase','style','STYLE=[BACKGROUND=CX398C54 JUST=CENTER]'); 379 if charcase='22' then call define 379 ! ('charcase','style','STYLE=[BACKGROUND=CX398d1c JUST=CENTER]'); 380 if charcase='23' then call define 380 ! ('charcase','style','STYLE=[BACKGROUND=CX398d80 JUST=CENTER]'); 381 if charcase='24' then call define 381 ! ('charcase','style','STYLE=[BACKGROUND=CX398de4 JUST=CENTER]'); 382 if charcase='25' then call define 382 ! ('charcase','style','STYLE=[BACKGROUND=CX398e48 JUST=CENTER]'); 383 if charcase='26' then call define 383 ! ('charcase','style','STYLE=[BACKGROUND=CX398eac JUST=CENTER]'); 12 The SAS System 09:40 Wednesday, October 21, 2009 384 if charcase='27' then call define 384 ! ('charcase','style','STYLE=[BACKGROUND=CX398f10 JUST=CENTER]'); 385 if charcase='28' then call define 385 ! ('charcase','style','STYLE=[BACKGROUND=CX398f74 JUST=CENTER]'); 386 if charcase='29' then call define 386 ! ('charcase','style','STYLE=[BACKGROUND=CX398fd8 JUST=CENTER]'); 387 if charcase='30' then call define 387 ! ('charcase','style','STYLE=[BACKGROUND=CX39903c JUST=CENTER]'); 388 if charcase='31' then call define 388 ! ('charcase','style','STYLE=[BACKGROUND=CX3990a0 JUST=CENTER]'); 389 if charcase='32' then call define 389 ! ('charcase','style','STYLE=[BACKGROUND=CX399104 JUST=CENTER]'); 390 if charcase='33' then call define 390 ! ('charcase','style','STYLE=[BACKGROUND=CX399168 JUST=CENTER]'); 391 if charcase='34' then call define 391 ! ('charcase','style','STYLE=[BACKGROUND=CX3991cc JUST=CENTER]'); 392 if charcase='35' then call define 392 ! ('charcase','style','STYLE=[BACKGROUND=CX399230 JUST=CENTER]'); 393 if charcase='36' then call define 393 ! ('charcase','style','STYLE=[BACKGROUND=CX399294 JUST=CENTER]'); 394 if charcase='37' then call define 394 ! ('charcase','style','STYLE=[BACKGROUND=CX3992f8 JUST=CENTER]'); 395 if charcase='38' then call define 395 ! ('charcase','style','STYLE=[BACKGROUND=CX39935c JUST=CENTER]'); 396 if charcase='39' then call define 396 ! ('charcase','style','STYLE=[BACKGROUND=CXffcccc JUST=CENTER]'); 397 if charcase='40' then call define 397 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd30 JUST=CENTER]'); 398 if charcase='41' then call define 398 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd94 JUST=CENTER]'); 399 if charcase='42' then call define 399 ! ('charcase','style','STYLE=[BACKGROUND=CXffcdf8 JUST=CENTER]'); 400 if charcase='43' then call define 400 ! ('charcase','style','STYLE=[BACKGROUND=CXffce5c JUST=CENTER]'); 401 if charcase='44' then call define 401 ! ('charcase','style','STYLE=[BACKGROUND=CXffcec0 JUST=CENTER]'); 402 if charcase='45' then call define 402 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf24 JUST=CENTER]'); 403 if charcase='46' then call define 403 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf88 JUST=CENTER]'); 404 if charcase='47' then call define 404 ! ('charcase','style','STYLE=[BACKGROUND=CXffcfec JUST=CENTER]'); 405 if charcase='48' then call define 405 ! ('charcase','style','STYLE=[BACKGROUND=CXffd050 JUST=CENTER]'); 406 if charcase='49' then call define 406 ! ('charcase','style','STYLE=[BACKGROUND=CXffd0b4 JUST=CENTER]'); 407 if charcase='50' then call define 407 ! ('charcase','style','STYLE=[BACKGROUND=CXffd118 JUST=CENTER]'); 408 if charcase='51' then call define 408 ! ('charcase','style','STYLE=[BACKGROUND=CXffd17c JUST=CENTER]'); 409 if charcase='52' then call define 409 ! ('charcase','style','STYLE=[BACKGROUND=CXffd1e0 JUST=CENTER]'); 410 if charcase='53' then call define 13 The SAS System 09:40 Wednesday, October 21, 2009 410 ! ('charcase','style','STYLE=[BACKGROUND=CXffd244 JUST=CENTER]'); 411 if charcase='54' then call define 411 ! ('charcase','style','STYLE=[BACKGROUND=CXffd2a8 JUST=CENTER]'); 412 if charcase='55' then call define 412 ! ('charcase','style','STYLE=[BACKGROUND=CXffd30c JUST=CENTER]'); 413 if charcase='56' then call define 413 ! ('charcase','style','STYLE=[BACKGROUND=CXffd370 JUST=CENTER]'); 414 if charcase='57' then call define 414 ! ('charcase','style','STYLE=[BACKGROUND=CXffd3d4 JUST=CENTER]'); 415 if charcase='58' then call define 415 ! ('charcase','style','STYLE=[BACKGROUND=CXccccff JUST=CENTER]'); 416 if charcase='59' then call define 416 ! ('charcase','style','STYLE=[BACKGROUND=CXcccd63 JUST=CENTER]'); 417 if charcase='60' then call define 417 ! ('charcase','style','STYLE=[BACKGROUND=CXcccdc7 JUST=CENTER]'); 418 if charcase='61' then call define 418 ! ('charcase','style','STYLE=[BACKGROUND=CXccce2b JUST=CENTER]'); 419 if charcase='62' then call define 419 ! ('charcase','style','STYLE=[BACKGROUND=CXccce8f JUST=CENTER]'); 420 if charcase='63' then call define 420 ! ('charcase','style','STYLE=[BACKGROUND=CXcccef3 JUST=CENTER]'); 421 if charcase='64' then call define 421 ! ('charcase','style','STYLE=[BACKGROUND=CXcccf57 JUST=CENTER]'); 422 if charcase='65' then call define 422 ! ('charcase','style','STYLE=[BACKGROUND=CXcccfbb JUST=CENTER]'); 423 if charcase='66' then call define 423 ! ('charcase','style','STYLE=[BACKGROUND=CXccd01f JUST=CENTER]'); 424 if charcase='67' then call define 424 ! ('charcase','style','STYLE=[BACKGROUND=CXccd083 JUST=CENTER]'); 425 if charcase='68' then call define 425 ! ('charcase','style','STYLE=[BACKGROUND=CXccd0e7 JUST=CENTER]'); 426 if charcase='69' then call define 426 ! ('charcase','style','STYLE=[BACKGROUND=CXccd14b JUST=CENTER]'); 427 if charcase='70' then call define 427 ! ('charcase','style','STYLE=[BACKGROUND=CXccd1af JUST=CENTER]'); 428 if charcase='71' then call define 428 ! ('charcase','style','STYLE=[BACKGROUND=CXccd213 JUST=CENTER]'); 429 if charcase='72' then call define 429 ! ('charcase','style','STYLE=[BACKGROUND=CXccd277 JUST=CENTER]'); 430 if charcase='73' then call define 430 ! ('charcase','style','STYLE=[BACKGROUND=CXccd2db JUST=CENTER]'); 431 if charcase='74' then call define 431 ! ('charcase','style','STYLE=[BACKGROUND=CXccd33f JUST=CENTER]'); 432 if charcase='75' then call define 432 ! ('charcase','style','STYLE=[BACKGROUND=CXccd3a3 JUST=CENTER]'); 433 if charcase='76' then call define 433 ! ('charcase','style','STYLE=[BACKGROUND=CXccd407 JUST=CENTER]'); 434 if charcase='77' then call define 434 ! ('charcase','style','STYLE=[BACKGROUND=CX99ccff JUST=CENTER]'); 435 if charcase='78' then call define 435 ! ('charcase','style','STYLE=[BACKGROUND=CX99cd63 JUST=CENTER]'); 436 if charcase='79' then call define 436 ! ('charcase','style','STYLE=[BACKGROUND=CX99cdc7 JUST=CENTER]'); 14 The SAS System 09:40 Wednesday, October 21, 2009 437 if charcase='80' then call define 437 ! ('charcase','style','STYLE=[BACKGROUND=CX99ce2b JUST=CENTER]'); 438 if charcase='81' then call define 438 ! ('charcase','style','STYLE=[BACKGROUND=CX99ce8f JUST=CENTER]'); 439 if charcase='82' then call define 439 ! ('charcase','style','STYLE=[BACKGROUND=CX99cef3 JUST=CENTER]'); 440 if charcase='83' then call define 440 ! ('charcase','style','STYLE=[BACKGROUND=CX99cf57 JUST=CENTER]'); 441 if charcase='84' then call define 441 ! ('charcase','style','STYLE=[BACKGROUND=CX99cfbb JUST=CENTER]'); 442 if charcase='85' then call define 442 ! ('charcase','style','STYLE=[BACKGROUND=CX99d01f JUST=CENTER]'); 443 if charcase='86' then call define 443 ! ('charcase','style','STYLE=[BACKGROUND=CX99d083 JUST=CENTER]'); 444 if charcase='87' then call define 444 ! ('charcase','style','STYLE=[BACKGROUND=CX99d0e7 JUST=CENTER]'); 445 if charcase='88' then call define 445 ! ('charcase','style','STYLE=[BACKGROUND=CX99d14b JUST=CENTER]'); 446 if charcase='89' then call define 446 ! ('charcase','style','STYLE=[BACKGROUND=CX99d1af JUST=CENTER]'); 447 if charcase='90' then call define 447 ! ('charcase','style','STYLE=[BACKGROUND=CX99d213 JUST=CENTER]'); 448 if charcase='91' then call define 448 ! ('charcase','style','STYLE=[BACKGROUND=CX99d277 JUST=CENTER]'); 449 if charcase='92' then call define 449 ! ('charcase','style','STYLE=[BACKGROUND=CX99d2db JUST=CENTER]'); 450 if charcase='93' then call define 450 ! ('charcase','style','STYLE=[BACKGROUND=CX99d33f JUST=CENTER]'); 451 if charcase='94' then call define 451 ! ('charcase','style','STYLE=[BACKGROUND=CX99d3a3 JUST=CENTER]'); 452 if charcase='95' then call define 452 ! ('charcase','style','STYLE=[BACKGROUND=CX99d407 JUST=CENTER]'); 453 if charcase='96' then call define 453 ! ('charcase','style','STYLE=[BACKGROUND=CXffcc99 JUST=CENTER]'); 454 if charcase='97' then call define 454 ! ('charcase','style','STYLE=[BACKGROUND=CXffccfd JUST=CENTER]'); 455 if charcase='98' then call define 455 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd61 JUST=CENTER]'); 456 if charcase='99' then call define 456 ! ('charcase','style','STYLE=[BACKGROUND=CXffcdc5 JUST=CENTER]'); 457 if charcase='100' then call define 457 ! ('charcase','style','STYLE=[BACKGROUND=CXffce29 JUST=CENTER]'); 458 if charcase='101' then call define 458 ! ('charcase','style','STYLE=[BACKGROUND=CXffce8d JUST=CENTER]'); 459 if charcase='102' then call define 459 ! ('charcase','style','STYLE=[BACKGROUND=CXffcef1 JUST=CENTER]'); 460 if charcase='103' then call define 460 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf55 JUST=CENTER]'); 461 if charcase='104' then call define 461 ! ('charcase','style','STYLE=[BACKGROUND=CXffcfb9 JUST=CENTER]'); 462 if charcase='105' then call define 462 ! ('charcase','style','STYLE=[BACKGROUND=CXffd01d JUST=CENTER]'); 463 if charcase='106' then call define 15 The SAS System 09:40 Wednesday, October 21, 2009 463 ! ('charcase','style','STYLE=[BACKGROUND=CXffd081 JUST=CENTER]'); 464 if charcase='107' then call define 464 ! ('charcase','style','STYLE=[BACKGROUND=CXffd0e5 JUST=CENTER]'); 465 if charcase='108' then call define 465 ! ('charcase','style','STYLE=[BACKGROUND=CXffd149 JUST=CENTER]'); 466 if charcase='109' then call define 466 ! ('charcase','style','STYLE=[BACKGROUND=CXffd1ad JUST=CENTER]'); 467 if charcase='110' then call define 467 ! ('charcase','style','STYLE=[BACKGROUND=CXffd211 JUST=CENTER]'); 468 if charcase='111' then call define 468 ! ('charcase','style','STYLE=[BACKGROUND=CXffd275 JUST=CENTER]'); 469 if charcase='112' then call define 469 ! ('charcase','style','STYLE=[BACKGROUND=CXffd2d9 JUST=CENTER]'); 470 if charcase='113' then call define 470 ! ('charcase','style','STYLE=[BACKGROUND=CXffd33d JUST=CENTER]'); 471 endcomp; 472 473 compute obs; 474 dobs + 1; 475 obs = dobs; 476 endcompute; 477 run; NOTE: There were 4 observations read from the data set WORK.EX. NOTE: PROCEDURE REPORT used (Total process time): real time 0.10 seconds cpu time 0.04 seconds 478 run; 479 ods html close; 480 ods listing; NOTE: PROCEDURE DISPLAY used (Total process time): real time 2.78 seconds cpu time 2.26 seconds NOTE: SAS Institute Inc., SAS Campus Drive, Cary, NC USA 27513-2414 NOTE: The SAS System used: real time 3.54 seconds cpu time 3.07 seconds