1 The SAS System 09:39 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.82 seconds cpu time 0.99 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: cdisc34.sas * 3 * Description: Case #34. Fasting Status Null For findings domains, * 4 * this identifies records that violate the condition * 5 * [Fasting Status in ('Y','N','U')], * 6 * limited to records where [Fasting Status is not null].* 7 * By: Sy Truong, 10/14/2009 * 8 *-------------------------------------------------------------*/ 9 10 libname templib '../data'; NOTE: Libref TEMPLIB was successfully assigned as follows: Engine: V9 Physical Name: C:\apache\htdocs\cdiscbuilder\data 11 12 *** Create some data to be selected ***; 13 data templib.lb(label="Laboratory Test Results"); 14 attrib STUDYID label="Study Identifier" length=$100; 15 attrib DOMAIN label="Domain Abbreviation" length=$100; 16 attrib USUBJID label="Unique Subject Identifier" length=$100; 17 attrib LBSEQ label="Sequence Number" length=8; 18 attrib LBGRPID label="Group ID" length=$100; 19 attrib LBREFID label="Specimen ID" length=$100; 20 attrib LBSPID label="Sponsor-Defined Identifier" length=$100; 21 attrib LBTESTCD label="Lab Test or Examination Short Name" length=$100; 22 attrib LBTEST label="Lab Test or Examination Name" length=$100; 23 attrib LBCAT label="Category for Lab Test" length=$100; 24 attrib LBSCAT label="Subcategory for Lab Test" length=$100; 25 attrib LBORRES label="Result or Finding in Original Units" length=$100; 26 attrib LBORRESU label="Original Units" length=$100; 27 attrib LBORNRLO label="Reference Range Lower Limit in Orig Unit" length=$100; 28 attrib LBORNRHI label="Reference Range Upper Limit in Orig Unit" length=$100; 2 The SAS System 09:39 Wednesday, October 21, 2009 29 attrib LBSTRESC label="Character Result/Finding in Std Format" length=$100; 30 attrib LBSTRESN label="Numeric Result/Finding in Standard Units" length=8; 31 attrib LBSTRESU label="Standard Units" length=$100; 32 attrib LBFAST label="Fasting Status" length=$1; 33 34 STUDYID='test';DOMAIN='test';USUBJID='test';LBSEQ=1;LBGRPID='test';LBREFID='test'; 34 ! LBSPID='test';LBTESTCD='test1';LBTEST='test'; 35 LBCAT='test';LBSCAT='test';LBORRES='test';LBORRESU='test';LBORNRLO='test'; 35 ! LBORNRHI='test';LBSTRESC='test';LBSTRESU='unit1';LBFAST='Y'; 36 output; 37 STUDYID='test';DOMAIN='test';USUBJID='test';LBSEQ=1;LBGRPID='test';LBREFID='test'; 37 ! LBSPID='test';LBTESTCD='test1';LBTEST='test'; 38 LBCAT='test';LBSCAT='test';LBORRES='test';LBORRESU='test';LBORNRLO='test'; 38 ! LBORNRHI='test';LBSTRESC='test';LBSTRESU='unit1';LBFAST='N'; 39 output; 40 41 STUDYID='test';DOMAIN='test';USUBJID='test';LBSEQ=1;LBGRPID='test';LBREFID='test'; 41 ! LBSPID='test';LBTESTCD='test2';LBTEST='test'; 42 LBCAT='test';LBSCAT='test';LBORRES='test';LBORRESU='test';LBORNRLO='test'; 42 ! LBORNRHI='test';LBSTRESC='test';LBSTRESU='unit1';LBFAST='U'; 43 output; 44 45 STUDYID='test';DOMAIN='test';USUBJID='test';LBSEQ=1;LBGRPID='test';LBREFID='test'; 45 ! LBSPID='test';LBTESTCD='test2';LBTEST='test'; 46 LBCAT='test';LBSCAT='test';LBORRES='test';LBORRESU='test';LBORNRLO='test'; 46 ! LBORNRHI='test';LBSTRESC='test';LBSTRESU='unit1';LBFAST='N'; 47 output; 48 49 STUDYID='test';DOMAIN='test';USUBJID='test';LBSEQ=1;LBGRPID='test';LBREFID='test'; 49 ! LBSPID='test';LBTESTCD='test3';LBTEST='test'; 50 LBCAT='test';LBSCAT='test';LBORRES='test';LBORRESU='test';LBORNRLO='test'; 50 ! LBORNRHI='test';LBSTRESC='test';LBSTRESU='unit1';LBFAST='Y'; 51 output; 52 53 STUDYID='test';DOMAIN='test';USUBJID='test';LBSEQ=1;LBGRPID='test';LBREFID='test'; 53 ! LBSPID='test';LBTESTCD='test3';LBTEST='test'; 54 LBCAT='test';LBSCAT='test';LBORRES='test';LBORRESU='test';LBORNRLO='test'; 54 ! LBORNRHI='test';LBSTRESC='test';LBSTRESU='unit1';LBFAST='U'; 55 output; 56 57 STUDYID='test';DOMAIN='test';USUBJID='test';LBSEQ=1;LBGRPID='test';LBREFID='test'; 57 ! LBSPID='test';LBTESTCD='test4';LBTEST='test'; 58 LBCAT='test';LBSCAT='test';LBORRES='test';LBORRESU='test';LBORNRLO='test'; 58 ! LBORNRHI='test';LBSTRESC='test';LBSTRESU='unit1';LBFAST='L'; 59 output; 60 run; NOTE: Variable LBSTRESN is uninitialized. NOTE: The data set TEMPLIB.LB has 7 observations and 19 variables. NOTE: DATA statement used (Total process time): real time 0.04 seconds cpu time 0.04 seconds 3 The SAS System 09:39 Wednesday, October 21, 2009 61 %cdisc(datlib=templib,datname=lb); 62 data misobs(keep=obsnum); 63 retain obsnum 0; 64 set templib.lb(keep=STUDYID); 65 obsnum=obsnum+1; 66 if missing(STUDYID) then 67 output; 68 run; NOTE: There were 7 observations read from the data set TEMPLIB.LB. 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 69 data misobs(keep=obsnum); 70 retain obsnum 0; 71 set templib.lb(keep=DOMAIN); 72 obsnum=obsnum+1; 73 if missing(DOMAIN) then 74 output; 75 run; NOTE: There were 7 observations read from the data set TEMPLIB.LB. 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 76 data misobs(keep=obsnum); 77 retain obsnum 0; 78 set templib.lb(keep=USUBJID); 79 obsnum=obsnum+1; 80 if missing(USUBJID) then 81 output; 82 run; NOTE: There were 7 observations read from the data set TEMPLIB.LB. 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 83 data misobs(keep=obsnum); 84 retain obsnum 0; 85 set templib.lb(keep=LBSEQ); 86 obsnum=obsnum+1; 87 if missing(LBSEQ) then 4 The SAS System 09:39 Wednesday, October 21, 2009 88 output; 89 run; NOTE: There were 7 observations read from the data set TEMPLIB.LB. 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 90 data misobs(keep=obsnum); 91 retain obsnum 0; 92 set templib.lb(keep=LBTESTCD); 93 obsnum=obsnum+1; 94 if missing(LBTESTCD) then 95 output; 96 run; NOTE: There were 7 observations read from the data set TEMPLIB.LB. 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 97 data misobs(keep=obsnum); 98 retain obsnum 0; 99 set templib.lb(keep=LBTEST); 100 obsnum=obsnum+1; 101 if missing(LBTEST) then 102 output; 103 run; NOTE: There were 7 observations read from the data set TEMPLIB.LB. 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 104 proc sort data=templib.lb out=conslab; 105 by LBTESTCD LBSTRESU; 106 run; NOTE: There were 7 observations read from the data set TEMPLIB.LB. NOTE: The data set WORK.CONSLAB has 7 observations and 19 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 107 data conslab; 108 attrib _unit length=$20; 5 The SAS System 09:39 Wednesday, October 21, 2009 109 set conslab(keep=LBTESTCD LBSTRESU); 110 by LBTESTCD LBSTRESU; 111 retain _unit; 112 if first.LBTESTCD then _unit=LBSTRESU; 113 if last.LBTESTCD and trim(left(_unit)) ne trim(left(LBSTRESU)) then output; 114 run; NOTE: There were 7 observations read from the data set WORK.CONSLAB. NOTE: The data set WORK.CONSLAB has 0 observations and 3 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 115 data _34; 116 retain obsnum 0; 117 set templib.lb(keep=LBFAST); 118 obsnum = obsnum + 1; 119 if trim(left(LBFAST)) not in ('Y','N','U','') then output; 120 run; NOTE: There were 7 observations read from the data set TEMPLIB.LB. NOTE: The data set WORK._34 has 1 observations and 2 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 121 data _42; 122 retain obsnum 0; 123 set templib.lb(keep=LBTEST); 124 obsnum = obsnum + 1; 125 if length(trim(left(LBTEST))) > 40 then output; 126 run; NOTE: There were 7 observations read from the data set TEMPLIB.LB. NOTE: The data set WORK._42 has 0 observations and 2 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 127 data _43(keep= obsnum LBTESTCD status); 128 retain obsnum 0; 129 set templib.lb(keep=LBTESTCD); 130 obsnum = obsnum + 1; 131 attrib status length=$50; 132 if length(trim(left(LBTESTCD))) > 8 then do; 133 status = 'greater than 8 characters.'; 134 output; 135 end; 136 if substr(LBTESTCD,1,1) in ('1','2','3','4','5','6','7','8','9','0') then do; 137 status = 'starts with a number.'; 6 The SAS System 09:39 Wednesday, October 21, 2009 138 output; 139 end; 140 spec = '~`@#$%^&*()-+={}|\][:";<>?,./'; 141 if index(LBTESTCD,"'") gt 0 then do; 142 status = 'contains special character(s).'; 143 output; 144 end; 145 else do; 146 do i=1 to length(trim(left(LBTESTCD))); 147 if index(spec,substr(LBTESTCD,i,1)) gt 0 then do; 148 status = 'contains special character(s).'; 149 output; 150 end; 151 end; 152 end; 153 run; NOTE: There were 7 observations read from the data set TEMPLIB.LB. NOTE: The data set WORK._43 has 0 observations and 3 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 154 proc sort data=templib.lb out=lb nodupkey; 155 by usubjid; 156 run; NOTE: There were 7 observations read from the data set TEMPLIB.LB. NOTE: 6 observations with duplicate key values were deleted. NOTE: The data set WORK.LB has 1 observations and 19 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds NOTE: Table WORK._72 created, with 0 rows and 1 columns. 157 proc sort data=cdisc nodupkey; 158 by libname datname datlab variable length label type case comment; 159 run; NOTE: There were 7 observations read from the data set WORK.CDISC. NOTE: 0 observations with duplicate key values were deleted. NOTE: The data set WORK.CDISC has 7 observations and 11 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 160 proc sort data = work.cdisc; 161 by libname datname datlab variable case; 162 run; 7 The SAS System 09:39 Wednesday, October 21, 2009 NOTE: There were 7 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 7 observations and 11 variables. NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 163 164 proc format; 165 *** Generate the comments for the CDISC evaluation case number ***; 166 value $casefmt 167 '1' = '1' 168 '2' = '2' 169 '3' = '3' 170 '4' = '4' 171 '5' = '5' 172 '6' = '6' 173 '7' = '7' 174 '8' = '8' 175 '9' = '9' 176 '10' = '10' 177 '11' = '11' 178 '12' = '12' 179 '13' = '13' 180 '14' = '14' 181 '15' = '15' 182 '16' = '16' 183 '17' = '17' 184 '18' = '18' 185 '19' = '19' 186 '20' = '20' 187 '21' = '21' 188 '22' = '22' 189 '23' = '23' 190 '24' = '24' 191 '25' = '25' 192 '26' = '26' 193 '27' = '27' 194 '28' = '28' 195 '29' = '29' 196 '30' = '30' 197 '31' = '31' 198 '32' = '32' 199 '33' = '33' 200 '34' = '34' 201 '35' = '35' 202 '36' = '36' 203 '37' = '37' 204 '38' = '38' 205 '39' = '39' 206 '40' = '40' 207 '41' = '41' 8 The SAS System 09:39 Wednesday, October 21, 2009 208 '42' = '42' 209 '43' = '43' 210 '44' = '44' 211 '45' = '45' 212 '46' = '46' 213 '47' = '47' 214 '48' = '48' 215 '49' = '49' 216 '50' = '50' 217 '51' = '51' 218 '52' = '52' 219 '53' = '53' 220 '54' = '54' 221 '55' = '55' 222 '56' = '56' 223 '57' = '57' 224 '58' = '58' 225 '59' = '59' 226 '60' = '60' 227 '61' = '61' 228 '62' = '62' 229 '63' = '63' 230 '64' = '64' 231 '65' = '65' 232 '66' = '66' 233 '67' = '67' 234 '68' = '68' 235 '69' = '69' 236 '70' = '70' 237 '71' = '71' 238 '72' = '72' 239 '73' = '73' 240 '74' = '74' 241 '75' = '75' 242 '76' = '76' 243 '77' = '77' 244 '78' = '78' 245 '79' = '79' 246 '80' = '80' 247 '81' = '81' 248 '82' = '82' 249 '83' = '83' 250 '84' = '84' 251 '85' = '85' 252 '86' = '86' 253 '87' = '87' 254 '88' = '88' 255 '89' = '89' 256 '90' = '90' 257 '91' = '91' 258 '92' = '92' 259 '93' = '93' 260 '94' = '94' 9 The SAS System 09:39 Wednesday, October 21, 2009 261 '95' = '95' 262 '96' = '96' 263 '97' = '97' 264 '98' = '98' 265 '99' = '99' 266 '100' = '100' 267 '101' = '101' 268 '102' = '102' 269 '103' = '103' 270 '104' = '104' 271 '105' = '105' 272 '106' = '106' 273 '107' = '107' 274 '108' = '108' 275 '109' = '109' 276 '110' = '110' 277 '111' = '111' 278 '112' = '112' 279 '113' = '113'; NOTE: Format $CASEFMT has been output. 280 281 282 283 *** Generate the format for the bookmark of variables ***; 284 value $bookfmt 285 "lb.studyid" = 'lb.studyid' 286 "lb.domain" = 'lb.domain' 287 "lb.usubjid" = 'lb.usubjid' 288 "lb.lbseq" = 'lb.lbseq' 289 "lb.lbgrpid" = 'lb.lbgrpid' 290 "lb.lbrefid" = 'lb.lbrefid' 291 "lb.lbspid" = 'lb.lbspid' 292 "lb.lbtestcd" = 'lb.lbtestcd' 293 "lb.lbtest" = 'lb.lbtest' 294 "lb.lbcat" = 'lb.lbcat' 295 "lb.lbscat" = 'lb.lbscat' 296 "lb.lborres" = 'lb.lborres' 297 "lb.lborresu" = 'lb.lborresu' 298 "lb.lbornrlo" = 'lb.lbornrlo' 299 "lb.lbornrhi" = 'lb.lbornrhi' 300 "lb.lbstresc" = 'lb.lbstresc' 301 "lb.lbstresn" = 'lb.lbstresn' 302 "lb.lbstresu" = 'lb.lbstresu' 303 "lb.lbfast" = 'lb.lbfast' 304 ; NOTE: Format $BOOKFMT has been output. 305 306 *** Generate the format for dataset linking ***; 307 value $datfmt 308 "ae" = 'ae
' 309 "ae3a" = 'ae3a
' 310 "cdisc10" = 'cdisc10
' 311 "cdisc11" = 'cdisc11
' 10 The SAS System 09:39 Wednesday, October 21, 2009 312 "cdisc14" = 'cdisc14
' 313 "cdisc15" = 'cdisc15
' 314 "cdisc18" = 'cdisc18
' 315 "cdisc2" = 'cdisc2
' 316 "cdisc21" = 'cdisc21
' 317 "cdisc2b_1" = 'cdisc2b_1
' 318 "cdisc2b_2" = 'cdisc2b_2
' 319 "cdisc2b_3" = 'cdisc2b_3
' 320 "cdisc2_b" = 'cdisc2_b
' 321 "cdisc2_c" = 'cdisc2_c
' 322 "cdisc4" = 'cdisc4
' 323 "cdisc5" = 'cdisc5
' 324 "cdisc6" = 'cdisc6
' 325 "cdisc7" = 'cdisc7
' 326 "cdisc8" = 'cdisc8
' 327 "cdisc9" = 'cdisc9
' 328 "ce" = 'ce
' 329 "cm" = 'cm
' 330 "co" = 'co
' 331 "da" = 'da
' 332 "dm" = 'dm
' 333 "ds" = 'ds
' 334 "dv" = 'dv
' 335 "eg" = 'eg
' 336 "ex" = 'ex
' 337 "fa" = 'fa
' 338 "ie" = 'ie
' 339 "lb" = 'lb
' 340 "mb" = 'mb
' 341 "mh" = 'mh
' 342 "ms" = 'ms
' 343 "notdm" = 'notdm
' 344 "pc" = 'pc
' 345 "pe" = 'pe
' 346 "pp" = 'pp
' 347 "qs" = 'qs
' 348 "relrec" = 'relrec
' 349 "sc" = 'sc
' 350 "se" = 'se
' 351 "su" = 'su
' 352 "supmh" = 'supmh
' 353 "suppae" = 'suppae
' 354 "suppp" = 'suppp
' 355 "supte" = 'supte
' 356 "supvs" = 'supvs
' 357 "sv" = 'sv
' 358 "ta" = 'ta
' 359 "te" = 'te
' 360 "ti" = 'ti
' 361 "ts" = 'ts
' 362 "tv" = 'tv
' 363 "vs" = 'vs
' 364 ; 11 The SAS System 09:39 Wednesday, October 21, 2009 NOTE: Format $DATFMT has been output. 365 run; NOTE: PROCEDURE FORMAT used (Total process time): real time 0.09 seconds cpu time 0.04 seconds 366 367 data work.cdisc; 368 set work.cdisc; 369 by libname datname datlab variable case; 370 371 attrib datvar label="Dataset and Variable" length=$100 format=$bookfmt.; 372 if variable ne '' then 373 datvar = compress(lowcase(datname) || "." || lowcase(variable)); 374 else datvar = lowcase(datname); 375 /*format case casefmt.;*/ 376 attrib charcase label = "Case Number" length = $10; 377 charcase = trim(left(put(case, best.))); 378 format charcase $casefmt.; 379 *format datname $datfmt.; 380 run; NOTE: There were 7 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 7 observations and 13 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 381 382 *** Remove The Special Characters ******; 383 proc template; 384 define style styles.test/store=work.test; 385 parent=styles.default; 386 style byline from titlesandfooters / 387 protectspecialchars=off; 388 end; NOTE: STYLE 'Styles.Test' has been saved to: WORK.TEST 389 run; NOTE: PROCEDURE TEMPLATE used (Total process time): real time 0.07 seconds cpu time 0.03 seconds 390 391 proc sort data = work.cdisc; 392 by libname datname datlab variable case; 393 run; NOTE: There were 7 observations read from the data set WORK.CDISC. NOTE: The data set WORK.CDISC has 7 observations and 13 variables. 12 The SAS System 09:39 Wednesday, October 21, 2009 NOTE: PROCEDURE SORT used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 394 395 ods listing close; 396 ods html file='cdisc34.html' style=styles.mxistyle; NOTE: Writing HTML Body file: cdisc34.html 397 data work.lb (drop=usrname datetime); 398 set work.cdisc; 399 where lowcase(datname)=lowcase("lb"); 400 run; NOTE: There were 7 observations read from the data set WORK.CDISC. WHERE LOWCASE(datname)='lb'; NOTE: The data set WORK.LB has 7 observations and 11 variables. NOTE: DATA statement used (Total process time): real time 0.03 seconds cpu time 0.03 seconds 401 data lb(drop=xxx); 402 set lb; 403 retain xxx 0; 404 if xxx = 2 then xxx = 1; 405 else xxx = xxx + 1; 406 yyy = compress(put(xxx,best.)); 407 run; NOTE: There were 7 observations read from the data set WORK.LB. NOTE: The data set WORK.LB has 7 observations and 12 variables. NOTE: DATA statement used (Total process time): real time 0.01 seconds cpu time 0.01 seconds 408 409 %let newlab = %nrbquote(Laboratory Test Results); 410 title1 height=2 ' Findings from CDISC Evaluation'; 411 title2 height=2 "Data Table Name = lb Data Table Label=&newlab"; 412 footnote1 height=2 "Generated on: 10/21/2009, 9:39:51 am, Administrator"; 413 footnote2 height=2 "Located at: C:\apache\htdocs\cdiscbuilder\data"; 414 proc report data = work.lb nowindows; 415 column obs libname datvar label type length charcase comment yyy; 416 define obs/computed 'Obs'; 417 define libname/width=20; 418 define datvar/width=50; 419 define label/width=50; 420 define type/width=20; 421 define length/width=50; 422 define comment/width=50; 423 define charcase/width=50; 13 The SAS System 09:39 Wednesday, October 21, 2009 424 define yyy/ noprint; 425 426 compute yyy; 427 if yyy = "2" then do; 428 call define (_row_,'style','STYLE=[BACKGROUND=cxFFFFCC]'); 429 end; 430 endcompute; 431 432 compute charcase; 433 if charcase='1' then call define 433 ! ('charcase','style','STYLE=[BACKGROUND=CXccffcc JUST=CENTER]'); 434 if charcase='2' then call define 434 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0030 JUST=CENTER]'); 435 if charcase='3' then call define 435 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0094 JUST=CENTER]'); 436 if charcase='4' then call define 436 ! ('charcase','style','STYLE=[BACKGROUND=CXcd00f8 JUST=CENTER]'); 437 if charcase='5' then call define 437 ! ('charcase','style','STYLE=[BACKGROUND=CXcd015c JUST=CENTER]'); 438 if charcase='6' then call define 438 ! ('charcase','style','STYLE=[BACKGROUND=CXcd01c0 JUST=CENTER]'); 439 if charcase='7' then call define 439 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0224 JUST=CENTER]'); 440 if charcase='8' then call define 440 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0288 JUST=CENTER]'); 441 if charcase='9' then call define 441 ! ('charcase','style','STYLE=[BACKGROUND=CXcd02ec JUST=CENTER]'); 442 if charcase='10' then call define 442 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0350 JUST=CENTER]'); 443 if charcase='11' then call define 443 ! ('charcase','style','STYLE=[BACKGROUND=CXcd03b4 JUST=CENTER]'); 444 if charcase='12' then call define 444 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0418 JUST=CENTER]'); 445 if charcase='13' then call define 445 ! ('charcase','style','STYLE=[BACKGROUND=CXcd047c JUST=CENTER]'); 446 if charcase='14' then call define 446 ! ('charcase','style','STYLE=[BACKGROUND=CXcd04e0 JUST=CENTER]'); 447 if charcase='15' then call define 447 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0544 JUST=CENTER]'); 448 if charcase='16' then call define 448 ! ('charcase','style','STYLE=[BACKGROUND=CXcd05a8 JUST=CENTER]'); 449 if charcase='17' then call define 449 ! ('charcase','style','STYLE=[BACKGROUND=CXcd060c JUST=CENTER]'); 450 if charcase='18' then call define 450 ! ('charcase','style','STYLE=[BACKGROUND=CXcd0670 JUST=CENTER]'); 451 if charcase='19' then call define 451 ! ('charcase','style','STYLE=[BACKGROUND=CXcd06d4 JUST=CENTER]'); 452 if charcase='20' then call define 452 ! ('charcase','style','STYLE=[BACKGROUND=CXffffcc JUST=CENTER]'); 453 if charcase='21' then call define 453 ! ('charcase','style','STYLE=[BACKGROUND=CX398C54 JUST=CENTER]'); 454 if charcase='22' then call define 454 ! ('charcase','style','STYLE=[BACKGROUND=CX398d1c JUST=CENTER]'); 14 The SAS System 09:39 Wednesday, October 21, 2009 455 if charcase='23' then call define 455 ! ('charcase','style','STYLE=[BACKGROUND=CX398d80 JUST=CENTER]'); 456 if charcase='24' then call define 456 ! ('charcase','style','STYLE=[BACKGROUND=CX398de4 JUST=CENTER]'); 457 if charcase='25' then call define 457 ! ('charcase','style','STYLE=[BACKGROUND=CX398e48 JUST=CENTER]'); 458 if charcase='26' then call define 458 ! ('charcase','style','STYLE=[BACKGROUND=CX398eac JUST=CENTER]'); 459 if charcase='27' then call define 459 ! ('charcase','style','STYLE=[BACKGROUND=CX398f10 JUST=CENTER]'); 460 if charcase='28' then call define 460 ! ('charcase','style','STYLE=[BACKGROUND=CX398f74 JUST=CENTER]'); 461 if charcase='29' then call define 461 ! ('charcase','style','STYLE=[BACKGROUND=CX398fd8 JUST=CENTER]'); 462 if charcase='30' then call define 462 ! ('charcase','style','STYLE=[BACKGROUND=CX39903c JUST=CENTER]'); 463 if charcase='31' then call define 463 ! ('charcase','style','STYLE=[BACKGROUND=CX3990a0 JUST=CENTER]'); 464 if charcase='32' then call define 464 ! ('charcase','style','STYLE=[BACKGROUND=CX399104 JUST=CENTER]'); 465 if charcase='33' then call define 465 ! ('charcase','style','STYLE=[BACKGROUND=CX399168 JUST=CENTER]'); 466 if charcase='34' then call define 466 ! ('charcase','style','STYLE=[BACKGROUND=CX3991cc JUST=CENTER]'); 467 if charcase='35' then call define 467 ! ('charcase','style','STYLE=[BACKGROUND=CX399230 JUST=CENTER]'); 468 if charcase='36' then call define 468 ! ('charcase','style','STYLE=[BACKGROUND=CX399294 JUST=CENTER]'); 469 if charcase='37' then call define 469 ! ('charcase','style','STYLE=[BACKGROUND=CX3992f8 JUST=CENTER]'); 470 if charcase='38' then call define 470 ! ('charcase','style','STYLE=[BACKGROUND=CX39935c JUST=CENTER]'); 471 if charcase='39' then call define 471 ! ('charcase','style','STYLE=[BACKGROUND=CXffcccc JUST=CENTER]'); 472 if charcase='40' then call define 472 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd30 JUST=CENTER]'); 473 if charcase='41' then call define 473 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd94 JUST=CENTER]'); 474 if charcase='42' then call define 474 ! ('charcase','style','STYLE=[BACKGROUND=CXffcdf8 JUST=CENTER]'); 475 if charcase='43' then call define 475 ! ('charcase','style','STYLE=[BACKGROUND=CXffce5c JUST=CENTER]'); 476 if charcase='44' then call define 476 ! ('charcase','style','STYLE=[BACKGROUND=CXffcec0 JUST=CENTER]'); 477 if charcase='45' then call define 477 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf24 JUST=CENTER]'); 478 if charcase='46' then call define 478 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf88 JUST=CENTER]'); 479 if charcase='47' then call define 479 ! ('charcase','style','STYLE=[BACKGROUND=CXffcfec JUST=CENTER]'); 480 if charcase='48' then call define 480 ! ('charcase','style','STYLE=[BACKGROUND=CXffd050 JUST=CENTER]'); 481 if charcase='49' then call define 15 The SAS System 09:39 Wednesday, October 21, 2009 481 ! ('charcase','style','STYLE=[BACKGROUND=CXffd0b4 JUST=CENTER]'); 482 if charcase='50' then call define 482 ! ('charcase','style','STYLE=[BACKGROUND=CXffd118 JUST=CENTER]'); 483 if charcase='51' then call define 483 ! ('charcase','style','STYLE=[BACKGROUND=CXffd17c JUST=CENTER]'); 484 if charcase='52' then call define 484 ! ('charcase','style','STYLE=[BACKGROUND=CXffd1e0 JUST=CENTER]'); 485 if charcase='53' then call define 485 ! ('charcase','style','STYLE=[BACKGROUND=CXffd244 JUST=CENTER]'); 486 if charcase='54' then call define 486 ! ('charcase','style','STYLE=[BACKGROUND=CXffd2a8 JUST=CENTER]'); 487 if charcase='55' then call define 487 ! ('charcase','style','STYLE=[BACKGROUND=CXffd30c JUST=CENTER]'); 488 if charcase='56' then call define 488 ! ('charcase','style','STYLE=[BACKGROUND=CXffd370 JUST=CENTER]'); 489 if charcase='57' then call define 489 ! ('charcase','style','STYLE=[BACKGROUND=CXffd3d4 JUST=CENTER]'); 490 if charcase='58' then call define 490 ! ('charcase','style','STYLE=[BACKGROUND=CXccccff JUST=CENTER]'); 491 if charcase='59' then call define 491 ! ('charcase','style','STYLE=[BACKGROUND=CXcccd63 JUST=CENTER]'); 492 if charcase='60' then call define 492 ! ('charcase','style','STYLE=[BACKGROUND=CXcccdc7 JUST=CENTER]'); 493 if charcase='61' then call define 493 ! ('charcase','style','STYLE=[BACKGROUND=CXccce2b JUST=CENTER]'); 494 if charcase='62' then call define 494 ! ('charcase','style','STYLE=[BACKGROUND=CXccce8f JUST=CENTER]'); 495 if charcase='63' then call define 495 ! ('charcase','style','STYLE=[BACKGROUND=CXcccef3 JUST=CENTER]'); 496 if charcase='64' then call define 496 ! ('charcase','style','STYLE=[BACKGROUND=CXcccf57 JUST=CENTER]'); 497 if charcase='65' then call define 497 ! ('charcase','style','STYLE=[BACKGROUND=CXcccfbb JUST=CENTER]'); 498 if charcase='66' then call define 498 ! ('charcase','style','STYLE=[BACKGROUND=CXccd01f JUST=CENTER]'); 499 if charcase='67' then call define 499 ! ('charcase','style','STYLE=[BACKGROUND=CXccd083 JUST=CENTER]'); 500 if charcase='68' then call define 500 ! ('charcase','style','STYLE=[BACKGROUND=CXccd0e7 JUST=CENTER]'); 501 if charcase='69' then call define 501 ! ('charcase','style','STYLE=[BACKGROUND=CXccd14b JUST=CENTER]'); 502 if charcase='70' then call define 502 ! ('charcase','style','STYLE=[BACKGROUND=CXccd1af JUST=CENTER]'); 503 if charcase='71' then call define 503 ! ('charcase','style','STYLE=[BACKGROUND=CXccd213 JUST=CENTER]'); 504 if charcase='72' then call define 504 ! ('charcase','style','STYLE=[BACKGROUND=CXccd277 JUST=CENTER]'); 505 if charcase='73' then call define 505 ! ('charcase','style','STYLE=[BACKGROUND=CXccd2db JUST=CENTER]'); 506 if charcase='74' then call define 506 ! ('charcase','style','STYLE=[BACKGROUND=CXccd33f JUST=CENTER]'); 507 if charcase='75' then call define 507 ! ('charcase','style','STYLE=[BACKGROUND=CXccd3a3 JUST=CENTER]'); 16 The SAS System 09:39 Wednesday, October 21, 2009 508 if charcase='76' then call define 508 ! ('charcase','style','STYLE=[BACKGROUND=CXccd407 JUST=CENTER]'); 509 if charcase='77' then call define 509 ! ('charcase','style','STYLE=[BACKGROUND=CX99ccff JUST=CENTER]'); 510 if charcase='78' then call define 510 ! ('charcase','style','STYLE=[BACKGROUND=CX99cd63 JUST=CENTER]'); 511 if charcase='79' then call define 511 ! ('charcase','style','STYLE=[BACKGROUND=CX99cdc7 JUST=CENTER]'); 512 if charcase='80' then call define 512 ! ('charcase','style','STYLE=[BACKGROUND=CX99ce2b JUST=CENTER]'); 513 if charcase='81' then call define 513 ! ('charcase','style','STYLE=[BACKGROUND=CX99ce8f JUST=CENTER]'); 514 if charcase='82' then call define 514 ! ('charcase','style','STYLE=[BACKGROUND=CX99cef3 JUST=CENTER]'); 515 if charcase='83' then call define 515 ! ('charcase','style','STYLE=[BACKGROUND=CX99cf57 JUST=CENTER]'); 516 if charcase='84' then call define 516 ! ('charcase','style','STYLE=[BACKGROUND=CX99cfbb JUST=CENTER]'); 517 if charcase='85' then call define 517 ! ('charcase','style','STYLE=[BACKGROUND=CX99d01f JUST=CENTER]'); 518 if charcase='86' then call define 518 ! ('charcase','style','STYLE=[BACKGROUND=CX99d083 JUST=CENTER]'); 519 if charcase='87' then call define 519 ! ('charcase','style','STYLE=[BACKGROUND=CX99d0e7 JUST=CENTER]'); 520 if charcase='88' then call define 520 ! ('charcase','style','STYLE=[BACKGROUND=CX99d14b JUST=CENTER]'); 521 if charcase='89' then call define 521 ! ('charcase','style','STYLE=[BACKGROUND=CX99d1af JUST=CENTER]'); 522 if charcase='90' then call define 522 ! ('charcase','style','STYLE=[BACKGROUND=CX99d213 JUST=CENTER]'); 523 if charcase='91' then call define 523 ! ('charcase','style','STYLE=[BACKGROUND=CX99d277 JUST=CENTER]'); 524 if charcase='92' then call define 524 ! ('charcase','style','STYLE=[BACKGROUND=CX99d2db JUST=CENTER]'); 525 if charcase='93' then call define 525 ! ('charcase','style','STYLE=[BACKGROUND=CX99d33f JUST=CENTER]'); 526 if charcase='94' then call define 526 ! ('charcase','style','STYLE=[BACKGROUND=CX99d3a3 JUST=CENTER]'); 527 if charcase='95' then call define 527 ! ('charcase','style','STYLE=[BACKGROUND=CX99d407 JUST=CENTER]'); 528 if charcase='96' then call define 528 ! ('charcase','style','STYLE=[BACKGROUND=CXffcc99 JUST=CENTER]'); 529 if charcase='97' then call define 529 ! ('charcase','style','STYLE=[BACKGROUND=CXffccfd JUST=CENTER]'); 530 if charcase='98' then call define 530 ! ('charcase','style','STYLE=[BACKGROUND=CXffcd61 JUST=CENTER]'); 531 if charcase='99' then call define 531 ! ('charcase','style','STYLE=[BACKGROUND=CXffcdc5 JUST=CENTER]'); 532 if charcase='100' then call define 532 ! ('charcase','style','STYLE=[BACKGROUND=CXffce29 JUST=CENTER]'); 533 if charcase='101' then call define 533 ! ('charcase','style','STYLE=[BACKGROUND=CXffce8d JUST=CENTER]'); 534 if charcase='102' then call define 17 The SAS System 09:39 Wednesday, October 21, 2009 534 ! ('charcase','style','STYLE=[BACKGROUND=CXffcef1 JUST=CENTER]'); 535 if charcase='103' then call define 535 ! ('charcase','style','STYLE=[BACKGROUND=CXffcf55 JUST=CENTER]'); 536 if charcase='104' then call define 536 ! ('charcase','style','STYLE=[BACKGROUND=CXffcfb9 JUST=CENTER]'); 537 if charcase='105' then call define 537 ! ('charcase','style','STYLE=[BACKGROUND=CXffd01d JUST=CENTER]'); 538 if charcase='106' then call define 538 ! ('charcase','style','STYLE=[BACKGROUND=CXffd081 JUST=CENTER]'); 539 if charcase='107' then call define 539 ! ('charcase','style','STYLE=[BACKGROUND=CXffd0e5 JUST=CENTER]'); 540 if charcase='108' then call define 540 ! ('charcase','style','STYLE=[BACKGROUND=CXffd149 JUST=CENTER]'); 541 if charcase='109' then call define 541 ! ('charcase','style','STYLE=[BACKGROUND=CXffd1ad JUST=CENTER]'); 542 if charcase='110' then call define 542 ! ('charcase','style','STYLE=[BACKGROUND=CXffd211 JUST=CENTER]'); 543 if charcase='111' then call define 543 ! ('charcase','style','STYLE=[BACKGROUND=CXffd275 JUST=CENTER]'); 544 if charcase='112' then call define 544 ! ('charcase','style','STYLE=[BACKGROUND=CXffd2d9 JUST=CENTER]'); 545 if charcase='113' then call define 545 ! ('charcase','style','STYLE=[BACKGROUND=CXffd33d JUST=CENTER]'); 546 endcomp; 547 548 compute obs; 549 dobs + 1; 550 obs = dobs; 551 endcompute; 552 run; NOTE: There were 7 observations read from the data set WORK.LB. NOTE: PROCEDURE REPORT used (Total process time): real time 0.14 seconds cpu time 0.04 seconds 553 run; 554 ods html close; 555 ods listing; NOTE: PROCEDURE DISPLAY used (Total process time): real time 3.06 seconds cpu time 2.62 seconds NOTE: SAS Institute Inc., SAS Campus Drive, Cary, NC USA 27513-2414 NOTE: The SAS System used: real time 4.01 seconds cpu time 3.71 seconds