1 The SAS System 09:45 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 1.89 seconds cpu time 2.18 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: cdisc73.sas * 3 * Description: Case #73. Subject Visit For All domains, this identifies * 4 * Unique Subject Identifier+Visit Name+Visit Number* 5 * combinations not found in the SV domain.* 6 * By: Sy Truong, 10/14/2009 * 7 *-------------------------------------------------------------*/ 8 9 libname templib '../data'; NOTE: Libref TEMPLIB was successfully assigned as follows: Engine: V9 Physical Name: C:\apache\htdocs\cdiscbuilder\data 10 11 *** Create some data to be selected ***; 12 data templib.sv(label="Subject Visits"); 13 attrib STUDYID label="Study Identifier" length=$100; 14 attrib DOMAIN label="Domain Abbreviation" length=$100; 15 attrib USUBJID label="Unique Subject Identifier" length=$100; 16 attrib VISITNUM label="Visit Number" length=8; 17 attrib VISIT label="Visit Name" length=$100; 18 attrib VISITDY label="Planned Study Day of Visit" length=8; 19 attrib SVSTDTC label="Start Date/Time of Visit" length=$100; 20 attrib SVENDTC label="End Date/Time of Visit" length=$100; 21 attrib SVSTDY label="Study Day of Start of Visit" length=8; 22 attrib SVENDY label="Study Day of End of Visit" length=8; 23 attrib SVUPDES label="Description of Unplanned Visit" length=$100; 24 25 STUDYID='123456'; 26 DOMAIN='SV'; 27 USUBJID='101'; 28 VISITNUM=1; 2 The SAS System 09:45 Wednesday, October 21, 2009 29 VISIT='SCREEN'; 30 output; 31 32 STUDYID='123456'; 33 DOMAIN='SV'; 34 USUBJID='101'; 35 VISITNUM=2; 36 VISIT='DAY 1'; 37 output; 38 39 STUDYID='123456'; 40 DOMAIN='SV'; 41 USUBJID='101'; 42 VISITNUM=2; 43 VISIT='WEEK 1'; 44 output; 45 46 STUDYID='123456'; 47 DOMAIN='SV'; 48 USUBJID='101'; 49 VISITNUM=4; 50 VISIT='WEEK 2'; 51 output; 52 53 STUDYID='123456'; 54 DOMAIN='SV'; 55 USUBJID='101'; 56 VISITNUM=4.1; 57 VISIT=''; 58 output; 59 60 STUDYID='123456'; 61 DOMAIN='SV'; 62 USUBJID='101'; 63 VISITNUM=8; 64 VISIT='FOLLOW-UP'; 65 output; 66 run; NOTE: Variable VISITDY is uninitialized. NOTE: Variable SVSTDTC is uninitialized. NOTE: Variable SVENDTC is uninitialized. NOTE: Variable SVSTDY is uninitialized. NOTE: Variable SVENDY is uninitialized. NOTE: Variable SVUPDES is uninitialized. NOTE: The data set TEMPLIB.SV has 6 observations and 11 variables. NOTE: DATA statement used (Total process time): real time 0.23 seconds cpu time 0.23 seconds 67 68 data templib.co(label="Comments"); 3 The SAS System 09:45 Wednesday, October 21, 2009 69 attrib STUDYID label="Study Identifier" length=$100; 70 attrib DOMAIN label="Domain Abbreviation" length=$100; 71 attrib RDOMAIN label="Related Domain Abbreviation" length=$100; 72 attrib USUBJID label="Unique Subject Identifier" length=$100; 73 attrib COSEQ label="Sequence Number" length=8; 74 attrib IDVAR label="Identifying Variable" length=$100; 75 attrib IDVARVAL label="Identifying Variable Value" length=$100; 76 attrib COREF label="Comment Reference" length=$100; 77 attrib COVAL label="Comment" length=$100; 78 attrib COEVAL label="Evaluator" length=$100; 79 attrib CODTC label="Date/Time of Comment" length=$100; 80 attrib VISITNUM label="Visit Number" length=8; 81 attrib VISIT label="Visit Name" length=$100; 82 STUDYID ='test'; DOMAIN ='test'; RDOMAIN ='DV'; USUBJID ='101'; COSEQ =1; IDVAR 82 ! ='test'; IDVARVAL ='test'; COREF ='test'; COVAL ='test'; COEVAL ='test'; CODTC 82 ! ='test'; 83 VISITNUM=1; 84 VISIT='SCREEN'; 85 output; 86 STUDYID ='test'; DOMAIN ='test'; RDOMAIN ='DS'; USUBJID ='101'; COSEQ =1; IDVAR 86 ! ='test'; IDVARVAL ='test'; COREF ='test'; COVAL ='test'; COEVAL ='test'; CODTC 86 ! ='test'; 87 VISITNUM=2; 88 VISIT='DAY 1'; 89 output; 90 STUDYID ='test'; DOMAIN ='test'; RDOMAIN ='AE'; USUBJID ='101'; COSEQ =1; IDVAR 90 ! ='test'; IDVARVAL ='test'; COREF ='test'; COVAL ='test'; COEVAL ='test'; CODTC 90 ! ='test'; 91 VISITNUM=4; 92 VISIT='WEEK 2'; 93 output; 94 STUDYID ='test'; DOMAIN ='test'; RDOMAIN ='LB'; USUBJID ='102'; COSEQ =1; IDVAR 94 ! ='test'; IDVARVAL ='test'; COREF ='test'; COVAL ='test'; COEVAL ='test'; CODTC 94 ! ='test'; 95 VISITNUM=4; 96 VISIT='WEEK 2'; 97 output; 98 STUDYID ='test'; DOMAIN ='test'; RDOMAIN ='DM'; USUBJID ='102'; COSEQ =1; IDVAR 98 ! ='test'; IDVARVAL ='test'; COREF ='test'; COVAL ='test'; COEVAL ='test'; CODTC 98 ! ='test'; 99 VISITNUM=4; 100 VISIT='WEEK 2'; 101 output; 102 STUDYID ='test'; DOMAIN ='test'; RDOMAIN ='SE'; USUBJID ='102'; COSEQ =1; IDVAR 102 ! ='test'; IDVARVAL ='test'; COREF ='test'; COVAL ='test'; COEVAL ='test'; CODTC 102 ! ='test'; 103 VISITNUM=4; 104 VISIT='WEEK 2'; 105 output; 106 run; NOTE: The data set TEMPLIB.CO has 6 observations and 13 variables. NOTE: DATA statement used (Total process time): 4 The SAS System 09:45 Wednesday, October 21, 2009 real time 0.03 seconds cpu time 0.03 seconds 106 ! %cdisc(datlib=templib,datname=co); 107 data misobs(keep=obsnum); 108 retain obsnum 0; 109 set templib.co(keep=STUDYID); 110 obsnum=obsnum+1; 111 if missing(STUDYID) then 112 output; 113 run; NOTE: There were 6 observations read from the data set TEMPLIB.CO. 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 114 data misobs(keep=obsnum); 115 retain obsnum 0; 116 set templib.co(keep=DOMAIN); 117 obsnum=obsnum+1; 118 if missing(DOMAIN) then 119 output; 120 run; NOTE: There were 6 observations read from the data set TEMPLIB.CO. 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 121 data misobs(keep=obsnum); 122 retain obsnum 0; 123 set templib.co(keep=USUBJID); 124 obsnum=obsnum+1; 125 if missing(USUBJID) then 126 output; 127 run; NOTE: There were 6 observations read from the data set TEMPLIB.CO. 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 128 data misobs(keep=obsnum); 129 retain obsnum 0; 5 The SAS System 09:45 Wednesday, October 21, 2009 130 set templib.co(keep=COSEQ); 131 obsnum=obsnum+1; 132 if missing(COSEQ) then 133 output; 134 run; NOTE: There were 6 observations read from the data set TEMPLIB.CO. NOTE: The data set WORK.MISOBS has 0 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 135 data misobs(keep=obsnum); 136 retain obsnum 0; 137 set templib.co(keep=COVAL); 138 obsnum=obsnum+1; 139 if missing(COVAL) then 140 output; 141 run; NOTE: There were 6 observations read from the data set TEMPLIB.CO. 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 142 data _26; 143 retain obsnum 0; 144 set templib.co(keep=VISITNUM); 145 obsnum = obsnum + 1; 146 attrib visitnumc length=$50; 147 visitnumc = compress(visitnum); 148 if index(visitnumc,'.') gt 0 then visitnumc = compress(scan(visitnumc,2,'.')); 149 if length(compress(visitnumc))>2 then output; 150 run; NOTE: Numeric values have been converted to character values at the places given by: (Line):(Column). 147:22 NOTE: There were 6 observations read from the data set TEMPLIB.CO. NOTE: The data set WORK._26 has 0 observations and 3 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 151 proc sort data=templib.co out=co nodupkey; 152 by usubjid; 153 run; NOTE: There were 6 observations read from the data set TEMPLIB.CO. 6 The SAS System 09:45 Wednesday, October 21, 2009 NOTE: 4 observations with duplicate key values were deleted. NOTE: The data set WORK.CO has 2 observations and 13 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. 154 proc sort data=templib.co out=co nodupkey; 155 by usubjid visitnum visit; 156 run; NOTE: There were 6 observations read from the data set TEMPLIB.CO. NOTE: 2 observations with duplicate key values were deleted. NOTE: The data set WORK.CO has 4 observations and 13 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 157 data co; 158 attrib total length=$100; 159 set co; 160 total = trim(left(usubjid))||'+'||compress(visitnum)||'+'||trim(left(visit)); 161 put total=; 162 keep total; 163 run; NOTE: Numeric values have been converted to character values at the places given by: (Line):(Column). 160:44 total=101+1+SCREEN total=101+2+DAY 1 total=101+4+WEEK 2 total=102+4+WEEK 2 NOTE: There were 4 observations read from the data set WORK.CO. NOTE: The data set WORK.CO has 4 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 164 data sv; 165 attrib total length=$100; 166 set templib.SV; 167 total = trim(left(usubjid))||'+'||compress(visitnum)||'+'||trim(left(visit)); 168 put total=; 169 keep total; 170 run; NOTE: Numeric values have been converted to character values at the places given by: (Line):(Column). 7 The SAS System 09:45 Wednesday, October 21, 2009 167:44 total=101+1+SCREEN total=101+2+DAY 1 total=101+2+WEEK 1 total=101+4+WEEK 2 total=101+4.1+ total=101+8+FOLLOW-UP NOTE: There were 6 observations read from the data set TEMPLIB.SV. NOTE: The data set WORK.SV has 6 observations and 1 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds NOTE: Table WORK._73 created, with 1 rows and 1 columns. 171 data _80; 172 retain obsnum 0; 173 set templib.co(keep=RDOMAIN); 174 obsnum = obsnum + 1; 175 if upcase(RDOMAIN) not in ( 176 'EG', 177 'IE', 178 'LB', 179 'PE', 180 'QS', 181 'SC', 182 'VS', 183 'DA', 184 'MB', 185 'MS', 186 'PC', 187 'PP', 188 'CF', 189 'AE', 190 'DS', 191 'MH', 192 'DV', 193 'CE', 194 'CM', 195 'EX', 196 'SU', 197 'DM', 198 'CO', 199 'SE', 200 'SV', 201 'TA', 202 'TE', 203 'TV', 204 'TI', 205 'TS' 206 ) then output; 207 run; 8 The SAS System 09:45 Wednesday, October 21, 2009 NOTE: There were 6 observations read from the data set TEMPLIB.CO. NOTE: The data set WORK._80 has 0 observations and 2 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 208 proc sort data=cdisc nodupkey; 209 by libname datname datlab variable length label type case comment; 210 run; NOTE: There were 1 observations read from the data set WORK.CDISC. NOTE: 0 observations with duplicate key values were deleted. NOTE: The data set WORK.CDISC has 1 observations and 11 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 211 proc sort data = work.cdisc; 212 by libname datname datlab variable case; 213 run; NOTE: There were 1 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 1 observations and 11 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 214 215 proc format; 216 *** Generate the comments for the CDISC evaluation case number ***; 217 value $casefmt 218 '1' = '1' 219 '2' = '2' 220 '3' = '3' 221 '4' = '4' 222 '5' = '5' 223 '6' = '6' 224 '7' = '7' 225 '8' = '8' 226 '9' = '9' 227 '10' = '10' 228 '11' = '11' 229 '12' = '12' 230 '13' = '13' 231 '14' = '14' 232 '15' = '15' 233 '16' = '16' 234 '17' = '17' 235 '18' = '18' 9 The SAS System 09:45 Wednesday, October 21, 2009 236 '19' = '19' 237 '20' = '20' 238 '21' = '21' 239 '22' = '22' 240 '23' = '23' 241 '24' = '24' 242 '25' = '25' 243 '26' = '26' 244 '27' = '27' 245 '28' = '28' 246 '29' = '29' 247 '30' = '30' 248 '31' = '31' 249 '32' = '32' 250 '33' = '33' 251 '34' = '34' 252 '35' = '35' 253 '36' = '36' 254 '37' = '37' 255 '38' = '38' 256 '39' = '39' 257 '40' = '40' 258 '41' = '41' 259 '42' = '42' 260 '43' = '43' 261 '44' = '44' 262 '45' = '45' 263 '46' = '46' 264 '47' = '47' 265 '48' = '48' 266 '49' = '49' 267 '50' = '50' 268 '51' = '51' 269 '52' = '52' 270 '53' = '53' 271 '54' = '54' 272 '55' = '55' 273 '56' = '56' 274 '57' = '57' 275 '58' = '58' 276 '59' = '59' 277 '60' = '60' 278 '61' = '61' 279 '62' = '62' 280 '63' = '63' 281 '64' = '64' 282 '65' = '65' 283 '66' = '66' 284 '67' = '67' 285 '68' = '68' 286 '69' = '69' 287 '70' = '70' 288 '71' = '71' 10 The SAS System 09:45 Wednesday, October 21, 2009 289 '72' = '72' 290 '73' = '73' 291 '74' = '74' 292 '75' = '75' 293 '76' = '76' 294 '77' = '77' 295 '78' = '78' 296 '79' = '79' 297 '80' = '80' 298 '81' = '81' 299 '82' = '82' 300 '83' = '83' 301 '84' = '84' 302 '85' = '85' 303 '86' = '86' 304 '87' = '87' 305 '88' = '88' 306 '89' = '89' 307 '90' = '90' 308 '91' = '91' 309 '92' = '92' 310 '93' = '93' 311 '94' = '94' 312 '95' = '95' 313 '96' = '96' 314 '97' = '97' 315 '98' = '98' 316 '99' = '99' 317 '100' = '100' 318 '101' = '101' 319 '102' = '102' 320 '103' = '103' 321 '104' = '104' 322 '105' = '105' 323 '106' = '106' 324 '107' = '107' 325 '108' = '108' 326 '109' = '109' 327 '110' = '110' 328 '111' = '111' 329 '112' = '112' 330 '113' = '113'; NOTE: Format $CASEFMT has been output. 331 332 333 334 *** Generate the format for the bookmark of variables ***; 335 value $bookfmt 336 "co.studyid" = 'co.studyid' 337 "co.domain" = 'co.domain' 338 "co.rdomain" = 'co.rdomain' 339 "co.usubjid" = 'co.usubjid' 340 "co.coseq" = 'co.coseq' 11 The SAS System 09:45 Wednesday, October 21, 2009 341 "co.idvar" = 'co.idvar' 342 "co.idvarval" = 'co.idvarval' 343 "co.coref" = 'co.coref' 344 "co.coval" = 'co.coval' 345 "co.coeval" = 'co.coeval' 346 "co.codtc" = 'co.codtc' 347 "co.visitnum" = 'co.visitnum' 348 "co.visit" = 'co.visit' 349 ; NOTE: Format $BOOKFMT has been output. 350 351 *** Generate the format for dataset linking ***; 352 value $datfmt 353 "ae" = 'ae
' 354 "ae3a" = 'ae3a
' 355 "cdisc10" = 'cdisc10
' 356 "cdisc11" = 'cdisc11
' 357 "cdisc14" = 'cdisc14
' 358 "cdisc15" = 'cdisc15
' 359 "cdisc18" = 'cdisc18
' 360 "cdisc2" = 'cdisc2
' 361 "cdisc21" = 'cdisc21
' 362 "cdisc2b_1" = 'cdisc2b_1
' 363 "cdisc2b_2" = 'cdisc2b_2
' 364 "cdisc2b_3" = 'cdisc2b_3
' 365 "cdisc2_b" = 'cdisc2_b
' 366 "cdisc2_c" = 'cdisc2_c
' 367 "cdisc4" = 'cdisc4
' 368 "cdisc5" = 'cdisc5
' 369 "cdisc6" = 'cdisc6
' 370 "cdisc7" = 'cdisc7
' 371 "cdisc8" = 'cdisc8
' 372 "cdisc9" = 'cdisc9
' 373 "ce" = 'ce
' 374 "cm" = 'cm
' 375 "co" = 'co
' 376 "da" = 'da
' 377 "dm" = 'dm
' 378 "ds" = 'ds
' 379 "dv" = 'dv
' 380 "eg" = 'eg
' 381 "ex" = 'ex
' 382 "fa" = 'fa
' 383 "ie" = 'ie
' 384 "lb" = 'lb
' 385 "mb" = 'mb
' 386 "mh" = 'mh
' 387 "ms" = 'ms
' 388 "notdm" = 'notdm
' 389 "pc" = 'pc
' 390 "pe" = 'pe
' 391 "pp" = 'pp
' 392 "qs" = 'qs
' 12 The SAS System 09:45 Wednesday, October 21, 2009 393 "relrec" = 'relrec
' 394 "sc" = 'sc
' 395 "se" = 'se
' 396 "su" = 'su
' 397 "supmh" = 'supmh
' 398 "suppae" = 'suppae
' 399 "suppp" = 'suppp
' 400 "supte" = 'supte
' 401 "supvs" = 'supvs
' 402 "sv" = 'sv
' 403 "ta" = 'ta
' 404 "te" = 'te
' 405 "ti" = 'ti
' 406 "ts" = 'ts
' 407 "tv" = 'tv
' 408 "vs" = 'vs
' 409 ; NOTE: Format $DATFMT has been output. 410 run; NOTE: PROCEDURE FORMAT used (Total process time): real time 0.07 seconds cpu time 0.04 seconds 411 412 data work.cdisc; 413 set work.cdisc; 414 by libname datname datlab variable case; 415 416 attrib datvar label="Dataset and Variable" length=$100 format=$bookfmt.; 417 if variable ne '' then 418 datvar = compress(lowcase(datname) || "." || lowcase(variable)); 419 else datvar = lowcase(datname); 420 /*format case casefmt.;*/ 421 attrib charcase label = "Case Number" length = $10; 422 charcase = trim(left(put(case, best.))); 423 format charcase $casefmt.; 424 *format datname $datfmt.; 425 run; NOTE: There were 1 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 1 observations and 13 variables. NOTE: DATA statement used (Total process time): real time 0.04 seconds cpu time 0.04 seconds 426 427 *** Remove The Special Characters ******; 428 proc template; 429 define style styles.test/store=work.test; 430 parent=styles.default; 13 The SAS System 09:45 Wednesday, October 21, 2009 431 style byline from titlesandfooters / 432 protectspecialchars=off; 433 end; NOTE: STYLE 'Styles.Test' has been saved to: WORK.TEST 434 run; NOTE: PROCEDURE TEMPLATE used (Total process time): real time 0.07 seconds cpu time 0.03 seconds 435 436 proc sort data = work.cdisc; 437 by libname datname datlab variable case; 438 run; NOTE: There were 1 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 1 observations and 13 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.04 seconds cpu time 0.04 seconds 439 440 ods listing close; 441 ods html file='cdisc73.html' style=styles.mxistyle; NOTE: Writing HTML Body file: cdisc73.html 442 data work.co (drop=usrname datetime); 443 set work.cdisc; 444 where lowcase(datname)=lowcase("co"); 445 run; NOTE: There were 1 observations read from the data set WORK.CDISC. WHERE LOWCASE(datname)='co'; NOTE: The data set WORK.CO has 1 observations and 11 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 446 data co(drop=xxx); 447 set co; 448 retain xxx 0; 449 if xxx = 2 then xxx = 1; 450 else xxx = xxx + 1; 451 yyy = compress(put(xxx,best.)); 452 run; NOTE: There were 1 observations read from the data set WORK.CO. NOTE: The data set WORK.CO has 1 observations and 12 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 14 The SAS System 09:45 Wednesday, October 21, 2009 453 454 %let newlab = %nrbquote(Comments); 455 title1 height=2 ' Findings from CDISC Evaluation'; 456 title2 height=2 "Data Table Name = co Data Table Label=&newlab"; 457 footnote1 height=2 "Generated on: 10/21/2009, 9:45:26 am, Administrator"; 458 footnote2 height=2 "Located at: C:\apache\htdocs\cdiscbuilder\data"; 459 proc report data = work.co nowindows; 460 column obs libname datvar label type length charcase comment yyy; 461 define obs/computed 'Obs'; 462 define libname/width=20; 463 define datvar/width=50; 464 define label/width=50; 465 define type/width=20; 466 define length/width=50; 467 define comment/width=50; 468 define charcase/width=50; 469 define yyy/ noprint; 470 471 compute yyy; 472 if yyy = "2" then do; 473 call define (_row_,'style','STYLE=[BACKGROUND=cxFFFFCC]'); 474 end; 475 endcompute; 476 477 compute charcase; 478 if charcase='1' then call define 478 ! ('charcase','style','STYLE=[BACKGROUND=CXccffcc JUST=CENTER]'); 479 if charcase='2' then call define 479 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0030 JUST=CENTER]'); 480 if charcase='3' then call define 480 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0094 JUST=CENTER]'); 481 if charcase='4' then call define 481 ! ('charcase','style','STYLE=[BACKGROUND=CXcd00f8 JUST=CENTER]'); 482 if charcase='5' then call define 482 ! ('charcase','style','STYLE=[BACKGROUND=CXcd015c JUST=CENTER]'); 483 if charcase='6' then call define 483 ! ('charcase','style','STYLE=[BACKGROUND=CXcd01c0 JUST=CENTER]'); 484 if charcase='7' then call define 484 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0224 JUST=CENTER]'); 485 if charcase='8' then call define 485 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0288 JUST=CENTER]'); 486 if charcase='9' then call define 486 ! ('charcase','style','STYLE=[BACKGROUND=CXcd02ec JUST=CENTER]'); 487 if charcase='10' then call define 487 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0350 JUST=CENTER]'); 488 if charcase='11' then call define 488 ! ('charcase','style','STYLE=[BACKGROUND=CXcd03b4 JUST=CENTER]'); 489 if charcase='12' then call define 489 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0418 JUST=CENTER]'); 490 if charcase='13' then call define 490 ! ('charcase','style','STYLE=[BACKGROUND=CXcd047c JUST=CENTER]'); 491 if charcase='14' then call define 15 The SAS System 09:45 Wednesday, October 21, 2009 491 ! ('charcase','style','STYLE=[BACKGROUND=CXcd04e0 JUST=CENTER]'); 492 if charcase='15' then call define 492 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0544 JUST=CENTER]'); 493 if charcase='16' then call define 493 ! ('charcase','style','STYLE=[BACKGROUND=CXcd05a8 JUST=CENTER]'); 494 if charcase='17' then call define 494 ! ('charcase','style','STYLE=[BACKGROUND=CXcd060c JUST=CENTER]'); 495 if charcase='18' then call define 495 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0670 JUST=CENTER]'); 496 if charcase='19' then call define 496 ! ('charcase','style','STYLE=[BACKGROUND=CXcd06d4 JUST=CENTER]'); 497 if charcase='20' then call define 497 ! ('charcase','style','STYLE=[BACKGROUND=CXffffcc JUST=CENTER]'); 498 if charcase='21' then call define 498 ! ('charcase','style','STYLE=[BACKGROUND=CX398C54 JUST=CENTER]'); 499 if charcase='22' then call define 499 ! ('charcase','style','STYLE=[BACKGROUND=CX398d1c JUST=CENTER]'); 500 if charcase='23' then call define 500 ! ('charcase','style','STYLE=[BACKGROUND=CX398d80 JUST=CENTER]'); 501 if charcase='24' then call define 501 ! ('charcase','style','STYLE=[BACKGROUND=CX398de4 JUST=CENTER]'); 502 if charcase='25' then call define 502 ! ('charcase','style','STYLE=[BACKGROUND=CX398e48 JUST=CENTER]'); 503 if charcase='26' then call define 503 ! ('charcase','style','STYLE=[BACKGROUND=CX398eac JUST=CENTER]'); 504 if charcase='27' then call define 504 ! ('charcase','style','STYLE=[BACKGROUND=CX398f10 JUST=CENTER]'); 505 if charcase='28' then call define 505 ! ('charcase','style','STYLE=[BACKGROUND=CX398f74 JUST=CENTER]'); 506 if charcase='29' then call define 506 ! ('charcase','style','STYLE=[BACKGROUND=CX398fd8 JUST=CENTER]'); 507 if charcase='30' then call define 507 ! ('charcase','style','STYLE=[BACKGROUND=CX39903c JUST=CENTER]'); 508 if charcase='31' then call define 508 ! ('charcase','style','STYLE=[BACKGROUND=CX3990a0 JUST=CENTER]'); 509 if charcase='32' then call define 509 ! ('charcase','style','STYLE=[BACKGROUND=CX399104 JUST=CENTER]'); 510 if charcase='33' then call define 510 ! ('charcase','style','STYLE=[BACKGROUND=CX399168 JUST=CENTER]'); 511 if charcase='34' then call define 511 ! ('charcase','style','STYLE=[BACKGROUND=CX3991cc JUST=CENTER]'); 512 if charcase='35' then call define 512 ! ('charcase','style','STYLE=[BACKGROUND=CX399230 JUST=CENTER]'); 513 if charcase='36' then call define 513 ! ('charcase','style','STYLE=[BACKGROUND=CX399294 JUST=CENTER]'); 514 if charcase='37' then call define 514 ! ('charcase','style','STYLE=[BACKGROUND=CX3992f8 JUST=CENTER]'); 515 if charcase='38' then call define 515 ! ('charcase','style','STYLE=[BACKGROUND=CX39935c JUST=CENTER]'); 516 if charcase='39' then call define 516 ! ('charcase','style','STYLE=[BACKGROUND=CXffcccc JUST=CENTER]'); 517 if charcase='40' then call define 517 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd30 JUST=CENTER]'); 16 The SAS System 09:45 Wednesday, October 21, 2009 518 if charcase='41' then call define 518 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd94 JUST=CENTER]'); 519 if charcase='42' then call define 519 ! ('charcase','style','STYLE=[BACKGROUND=CXffcdf8 JUST=CENTER]'); 520 if charcase='43' then call define 520 ! ('charcase','style','STYLE=[BACKGROUND=CXffce5c JUST=CENTER]'); 521 if charcase='44' then call define 521 ! ('charcase','style','STYLE=[BACKGROUND=CXffcec0 JUST=CENTER]'); 522 if charcase='45' then call define 522 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf24 JUST=CENTER]'); 523 if charcase='46' then call define 523 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf88 JUST=CENTER]'); 524 if charcase='47' then call define 524 ! ('charcase','style','STYLE=[BACKGROUND=CXffcfec JUST=CENTER]'); 525 if charcase='48' then call define 525 ! ('charcase','style','STYLE=[BACKGROUND=CXffd050 JUST=CENTER]'); 526 if charcase='49' then call define 526 ! ('charcase','style','STYLE=[BACKGROUND=CXffd0b4 JUST=CENTER]'); 527 if charcase='50' then call define 527 ! ('charcase','style','STYLE=[BACKGROUND=CXffd118 JUST=CENTER]'); 528 if charcase='51' then call define 528 ! ('charcase','style','STYLE=[BACKGROUND=CXffd17c JUST=CENTER]'); 529 if charcase='52' then call define 529 ! ('charcase','style','STYLE=[BACKGROUND=CXffd1e0 JUST=CENTER]'); 530 if charcase='53' then call define 530 ! ('charcase','style','STYLE=[BACKGROUND=CXffd244 JUST=CENTER]'); 531 if charcase='54' then call define 531 ! ('charcase','style','STYLE=[BACKGROUND=CXffd2a8 JUST=CENTER]'); 532 if charcase='55' then call define 532 ! ('charcase','style','STYLE=[BACKGROUND=CXffd30c JUST=CENTER]'); 533 if charcase='56' then call define 533 ! ('charcase','style','STYLE=[BACKGROUND=CXffd370 JUST=CENTER]'); 534 if charcase='57' then call define 534 ! ('charcase','style','STYLE=[BACKGROUND=CXffd3d4 JUST=CENTER]'); 535 if charcase='58' then call define 535 ! ('charcase','style','STYLE=[BACKGROUND=CXccccff JUST=CENTER]'); 536 if charcase='59' then call define 536 ! ('charcase','style','STYLE=[BACKGROUND=CXcccd63 JUST=CENTER]'); 537 if charcase='60' then call define 537 ! ('charcase','style','STYLE=[BACKGROUND=CXcccdc7 JUST=CENTER]'); 538 if charcase='61' then call define 538 ! ('charcase','style','STYLE=[BACKGROUND=CXccce2b JUST=CENTER]'); 539 if charcase='62' then call define 539 ! ('charcase','style','STYLE=[BACKGROUND=CXccce8f JUST=CENTER]'); 540 if charcase='63' then call define 540 ! ('charcase','style','STYLE=[BACKGROUND=CXcccef3 JUST=CENTER]'); 541 if charcase='64' then call define 541 ! ('charcase','style','STYLE=[BACKGROUND=CXcccf57 JUST=CENTER]'); 542 if charcase='65' then call define 542 ! ('charcase','style','STYLE=[BACKGROUND=CXcccfbb JUST=CENTER]'); 543 if charcase='66' then call define 543 ! ('charcase','style','STYLE=[BACKGROUND=CXccd01f JUST=CENTER]'); 544 if charcase='67' then call define 17 The SAS System 09:45 Wednesday, October 21, 2009 544 ! ('charcase','style','STYLE=[BACKGROUND=CXccd083 JUST=CENTER]'); 545 if charcase='68' then call define 545 ! ('charcase','style','STYLE=[BACKGROUND=CXccd0e7 JUST=CENTER]'); 546 if charcase='69' then call define 546 ! ('charcase','style','STYLE=[BACKGROUND=CXccd14b JUST=CENTER]'); 547 if charcase='70' then call define 547 ! ('charcase','style','STYLE=[BACKGROUND=CXccd1af JUST=CENTER]'); 548 if charcase='71' then call define 548 ! ('charcase','style','STYLE=[BACKGROUND=CXccd213 JUST=CENTER]'); 549 if charcase='72' then call define 549 ! ('charcase','style','STYLE=[BACKGROUND=CXccd277 JUST=CENTER]'); 550 if charcase='73' then call define 550 ! ('charcase','style','STYLE=[BACKGROUND=CXccd2db JUST=CENTER]'); 551 if charcase='74' then call define 551 ! ('charcase','style','STYLE=[BACKGROUND=CXccd33f JUST=CENTER]'); 552 if charcase='75' then call define 552 ! ('charcase','style','STYLE=[BACKGROUND=CXccd3a3 JUST=CENTER]'); 553 if charcase='76' then call define 553 ! ('charcase','style','STYLE=[BACKGROUND=CXccd407 JUST=CENTER]'); 554 if charcase='77' then call define 554 ! ('charcase','style','STYLE=[BACKGROUND=CX99ccff JUST=CENTER]'); 555 if charcase='78' then call define 555 ! ('charcase','style','STYLE=[BACKGROUND=CX99cd63 JUST=CENTER]'); 556 if charcase='79' then call define 556 ! ('charcase','style','STYLE=[BACKGROUND=CX99cdc7 JUST=CENTER]'); 557 if charcase='80' then call define 557 ! ('charcase','style','STYLE=[BACKGROUND=CX99ce2b JUST=CENTER]'); 558 if charcase='81' then call define 558 ! ('charcase','style','STYLE=[BACKGROUND=CX99ce8f JUST=CENTER]'); 559 if charcase='82' then call define 559 ! ('charcase','style','STYLE=[BACKGROUND=CX99cef3 JUST=CENTER]'); 560 if charcase='83' then call define 560 ! ('charcase','style','STYLE=[BACKGROUND=CX99cf57 JUST=CENTER]'); 561 if charcase='84' then call define 561 ! ('charcase','style','STYLE=[BACKGROUND=CX99cfbb JUST=CENTER]'); 562 if charcase='85' then call define 562 ! ('charcase','style','STYLE=[BACKGROUND=CX99d01f JUST=CENTER]'); 563 if charcase='86' then call define 563 ! ('charcase','style','STYLE=[BACKGROUND=CX99d083 JUST=CENTER]'); 564 if charcase='87' then call define 564 ! ('charcase','style','STYLE=[BACKGROUND=CX99d0e7 JUST=CENTER]'); 565 if charcase='88' then call define 565 ! ('charcase','style','STYLE=[BACKGROUND=CX99d14b JUST=CENTER]'); 566 if charcase='89' then call define 566 ! ('charcase','style','STYLE=[BACKGROUND=CX99d1af JUST=CENTER]'); 567 if charcase='90' then call define 567 ! ('charcase','style','STYLE=[BACKGROUND=CX99d213 JUST=CENTER]'); 568 if charcase='91' then call define 568 ! ('charcase','style','STYLE=[BACKGROUND=CX99d277 JUST=CENTER]'); 569 if charcase='92' then call define 569 ! ('charcase','style','STYLE=[BACKGROUND=CX99d2db JUST=CENTER]'); 570 if charcase='93' then call define 570 ! ('charcase','style','STYLE=[BACKGROUND=CX99d33f JUST=CENTER]'); 18 The SAS System 09:45 Wednesday, October 21, 2009 571 if charcase='94' then call define 571 ! ('charcase','style','STYLE=[BACKGROUND=CX99d3a3 JUST=CENTER]'); 572 if charcase='95' then call define 572 ! ('charcase','style','STYLE=[BACKGROUND=CX99d407 JUST=CENTER]'); 573 if charcase='96' then call define 573 ! ('charcase','style','STYLE=[BACKGROUND=CXffcc99 JUST=CENTER]'); 574 if charcase='97' then call define 574 ! ('charcase','style','STYLE=[BACKGROUND=CXffccfd JUST=CENTER]'); 575 if charcase='98' then call define 575 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd61 JUST=CENTER]'); 576 if charcase='99' then call define 576 ! ('charcase','style','STYLE=[BACKGROUND=CXffcdc5 JUST=CENTER]'); 577 if charcase='100' then call define 577 ! ('charcase','style','STYLE=[BACKGROUND=CXffce29 JUST=CENTER]'); 578 if charcase='101' then call define 578 ! ('charcase','style','STYLE=[BACKGROUND=CXffce8d JUST=CENTER]'); 579 if charcase='102' then call define 579 ! ('charcase','style','STYLE=[BACKGROUND=CXffcef1 JUST=CENTER]'); 580 if charcase='103' then call define 580 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf55 JUST=CENTER]'); 581 if charcase='104' then call define 581 ! ('charcase','style','STYLE=[BACKGROUND=CXffcfb9 JUST=CENTER]'); 582 if charcase='105' then call define 582 ! ('charcase','style','STYLE=[BACKGROUND=CXffd01d JUST=CENTER]'); 583 if charcase='106' then call define 583 ! ('charcase','style','STYLE=[BACKGROUND=CXffd081 JUST=CENTER]'); 584 if charcase='107' then call define 584 ! ('charcase','style','STYLE=[BACKGROUND=CXffd0e5 JUST=CENTER]'); 585 if charcase='108' then call define 585 ! ('charcase','style','STYLE=[BACKGROUND=CXffd149 JUST=CENTER]'); 586 if charcase='109' then call define 586 ! ('charcase','style','STYLE=[BACKGROUND=CXffd1ad JUST=CENTER]'); 587 if charcase='110' then call define 587 ! ('charcase','style','STYLE=[BACKGROUND=CXffd211 JUST=CENTER]'); 588 if charcase='111' then call define 588 ! ('charcase','style','STYLE=[BACKGROUND=CXffd275 JUST=CENTER]'); 589 if charcase='112' then call define 589 ! ('charcase','style','STYLE=[BACKGROUND=CXffd2d9 JUST=CENTER]'); 590 if charcase='113' then call define 590 ! ('charcase','style','STYLE=[BACKGROUND=CXffd33d JUST=CENTER]'); 591 endcomp; 592 593 compute obs; 594 dobs + 1; 595 obs = dobs; 596 endcompute; 597 run; NOTE: There were 1 observations read from the data set WORK.CO. NOTE: PROCEDURE REPORT used (Total process time): real time 0.12 seconds cpu time 0.04 seconds 19 The SAS System 09:45 Wednesday, October 21, 2009 598 run; 599 ods html close; 600 ods listing; NOTE: PROCEDURE DISPLAY used (Total process time): real time 3.64 seconds cpu time 3.09 seconds NOTE: SAS Institute Inc., SAS Campus Drive, Cary, NC USA 27513-2414 NOTE: The SAS System used: real time 6.01 seconds cpu time 5.71 seconds