1 2 DATA IOCS ; 3 SET IN.TALLY98 4 (keep=f9200 f1-f2 f18 f27-f36 f41 5 f9207 f114 f116-f120 f122-f129 f9211-f9221 f9419 f9602 6 f9901-f9919 f9420-f9421 f9632 f9635 f9606 f9611 7 f141-f154 f158-f160 8 f9612-f9621 f9623-f9629 f9631-f9633 f9463-f9464 9 f9227-f9228 f227-f232 F244-F249 10 f216-f219 f221-f223 11 f9806 f9805 F257 F260-F264 F9253 F9250 F9246 f9252 12 f121 f9209 13 f112 f9223 f9471-f9472 f136) 14 ; 15 if substr(f257,2,1) = '1' 16 or substr(f257,2,1) = '2' ; 17 if f261 ne '4'; 18 if f264 ne 'K'; 19 wgt = f9250/100000; 20 NOTE: Character values have been converted to numeric values at the places given by: (Line):(Column). 19:14 NOTE: The data set WORK.IOCS has 248032 observations and 147 variables. NOTE: The DATA statement used 8.33 CPU seconds and 3581K. 21 data mods12 ; 12 The SAS System 13:46 Tuesday, March 28, 2000 22 infile modf98 ; 23 input 24 @59 f2 $ 6.; NOTE: The infile MODF98 is: Dsname=xxxxxx.MODFIN98, Unit=3390,Volume=T0AA74,Disp=SHR,Blksize=27920, Lrecl=80,Recfm=FB NOTE: 476 records were read from the infile MODF98. NOTE: The data set WORK.MODS12 has 476 observations and 1 variables. NOTE: The DATA statement used 0.01 CPU seconds and 3721K. 25 proc sort ; 26 by F2; 27 28 *-------------Step 1: Separate BMCs from nonBMCs-----------------; 29 NOTE: WER750I End PROC SYNCSORT. R2.1B NOTE: The data set WORK.MODS12 has 476 observations and 1 variables. NOTE: The PROCEDURE SORT used 0.02 CPU seconds and 3857K. 30 DATA temp bmc.bmc ; 31 SET iocs; 32 33 * ....... create the file for the 21 BMC finance numbers .........; 34 * ..... create a temporary file for MODS and NONMODS tallies .....; 35 36 *........encrypted BMC numbers...........................; 37 If f2 = '259504' or f2 ='875506' or f2 = '537702' or f2 = '831114' 38 or f2 = '349210' or f2 ='451611' or f2 = '143812' or f2 = '564914' 39 or f2 = '842327' or f2 ='282427' or f2 = '941522' or f2 = '631626' 40 or f2 = '411827' or f2 ='689333' or f2 = '913633' or f2 = '064831' 41 or f2 = '455146' or f2 ='067146' or f2 = '665745' or f2 = '629842' 42 or f2 = '167457' 43 THEN OUTPUT bmc.BMC ; 44 else output temp; NOTE: The data set WORK.TEMP has 232774 observations and 147 variables. NOTE: The data set BMC.BMC has 15258 observations and 147 variables. NOTE: The DATA statement used 1.00 CPU seconds and 3917K. 45 proc sort data=temp; 46 by f2; 47 NOTE: WER750I End PROC SYNCSORT. R2.1B NOTE: The data set WORK.TEMP has 232774 observations and 147 variables. NOTE: The PROCEDURE SORT used 1.63 CPU seconds and 4289K. 48 data mod.mod nmod.nmod ; 49 merge temp(in=a) mods12(in=b); 50 by f2; 51 IF A=1 AND B=1 THEN OUTPUT mod.MOD; 52 ELSE OUTPUT nmod.NMOD; 53 54 ********************************************************************; 00010005 13 The SAS System 13:46 Tuesday, March 28, 2000 55 00010105 56 * PROGRAM MOD1POOL; *BY98; 00011003 57 * ESTABLISH COST POOLS AND APPLY ENCIRCLEMENT PROCEDURES; 00011105 58 00011205 59 ********************************************************************; 00011305 60 00011405 61 options nodate; 00012005 62 00020002 63 00030002 NOTE: The data set MOD.MOD has 198279 observations and 147 variables. NOTE: The data set NMOD.NMOD has 34503 observations and 147 variables. NOTE: The DATA statement used 1.51 CPU seconds and 4253K. 63 DATA OUT1.MODS; 00030002 64 SET MOD.MOD ; 00040002 65 00050002 66 MOD = F114; 00060002 67 00070002 68 * formation of MODS cost pools; 00080002 69 00090002 70 * ocr operations; 00100002 71 IF (MOD >='830' AND MOD <='837') 00110002 72 OR (MOD >='840' AND MOD <='847') 00120002 73 OR (MOD >='850' AND MOD <='857') 00130002 74 OR (MOD >='880' AND MOD <='887') 00140002 75 THEN DO; MODGRP='OCR/ ' ; LDC='11' ; END; 00150002 76 * bcs operations; 00160002 77 ELSE 00170002 78 IF MOD='292' OR MOD='295' OR MOD='299' 00180002 79 OR (MOD >='860' AND MOD <='869') 00190002 80 OR (MOD >='870' AND MOD <='879') 00200002 81 OR (MOD >='890' AND MOD <='899') 00210002 82 OR (MOD >='910' AND MOD <='911') 00220002 83 OR (MOD >='914' AND MOD <='919') 00230002 84 OR (MOD >='970' AND MOD <='979') 00240002 85 THEN DO; MODGRP='BCS/ ' ; LDC='11' ; END; 00250002 86 ELSE 00260002 87 IF (MOD >='260' AND MOD <='269') 00270002 88 OR (MOD >='270' AND MOD <='279') 00280002 89 OR (MOD >='280' AND MOD <='289') 00290002 90 OR (MOD >='925' AND MOD <='926') 00300002 91 THEN DO; MODGRP='BCS/ ' ; LDC='11' ; END; 00310002 92 00320002 93 * lsm operations; 00330002 94 ELSE 00340002 95 IF (MOD >='080' AND MOD <='089') 00350002 96 OR MOD='091' OR (MOD >='093' AND MOD <='099') 00360002 97 THEN DO; MODGRP='LSM/ ' ; LDC='12' ; END; 00370002 98 ELSE 00380002 99 IF MOD='090' OR MOD='092' THEN DO; MODGRP='INTLLSM'; LDC='12'; END; 00390002 100 * fsm operations; 00400002 101 ELSE 00410002 102 IF (MOD >='140' AND MOD <='148') 00420002 103 OR (MOD >='190' AND MOD <='191') 00430002 104 OR (MOD >='194' AND MOD <='197') 00440002 105 OR (MOD >='441' AND MOD <='444') 00450002 106 OR MOD ='446' OR MOD ='448' 00460002 14 The SAS System 107 OR (MOD >='960' AND MOD <='967') 00470002 108 THEN DO; MODGRP='FSM/ ' ; LDC='12'; END; 00480002 109 ELSE 00490002 110 IF (MOD >='445' AND MOD <='451') 00500002 111 THEN DO; MODGRP='FSM/ ' ; LDC='12'; END; 00510002 112 ELSE 00520002 113 IF MOD='192' OR MOD='193' THEN DO; MODGRP='INTLFSM'; LDC='12'; END; 00530002 114 00540002 115 * mechanized sort-sack outside; 00550002 116 ELSE 00560002 117 IF '238'<=MOD<='239' 00570002 118 THEN DO; MODGRP='1SACKS_M'; LDC='13' ; END; 00580002 119 ELSE 00590002 120 IF MOD ='349' THEN DO; MODGRP='INTLSSRT'; LDC='13'; END; 00600002 121 * mechanized parcel sorter; 00610002 122 ELSE 00620002 123 IF (MOD >='105' AND MOD <='106') 00630002 124 THEN DO; MODGRP='MECPARC ' ; LDC='13'; END; 00640002 125 ELSE 00650002 126 IF MOD='107' OR MOD='108' THEN DO; MODGRP='INTLPCS'; LDC='13'; END; 00660002 127 * small parcel bundle sorter; 00670002 128 ELSE 00680002 129 IF (MOD >='134' AND MOD <='137') 00690002 130 THEN DO; MODGRP='SPBS OTH'; LDC='13'; END; 00700002 131 ELSE 00710002 132 IF (MOD >='254' AND MOD <='257') 00720002 133 THEN DO; MODGRP='SPBS OTH'; LDC='13'; END; * FY 97 CHANGES; 00730002 134 ELSE 00740002 135 IF (MOD >='138' AND MOD <='139') 00750002 136 THEN DO; MODGRP='SPBSPRIO'; LDC='13'; END; 00760002 137 ELSE 00770002 138 IF (MOD >='258' AND MOD <='259') 00780002 139 THEN DO; MODGRP='SPBSPRIO'; LDC='13'; END; * FY 97 CHANGES; 00790002 140 ELSE 00800002 141 IF (MOD>='346' AND MOD<= '347') 00810002 142 THEN DO; MODGRP='INTLSPBS'; LDC='13'; END; 00820002 143 00830002 144 * manual flat operations; 00840002 145 ELSE 00850002 146 IF (MOD >='060' AND MOD <='061') 00860002 147 OR (MOD >='064' AND MOD <='079') 00870002 148 OR (MOD >='170' AND MOD <='179') 00880002 149 THEN DO; MODGRP='MANF ' ; LDC='14'; END; * MANUAL FLATS ; 00890002 150 ELSE 00900002 151 IF MOD='062' OR MOD='063' THEN DO; MODGRP='INTLFLT'; LDC='14'; END; 00910002 152 * manual letter operations; 00920002 153 ELSE 00930002 154 IF (MOD >='029' AND MOD <='031') 00940002 155 OR (MOD >='034' AND MOD <='038') 00950002 156 OR (MOD >='040' AND MOD <='049') 00960002 157 OR (MOD >='150' AND MOD <='159') 00970002 158 OR (MOD >='160' AND MOD <='169') 00980002 159 THEN DO; MODGRP='MANL ' ; LDC='14'; END; * MANUAL LETTERS; 00990002 160 ELSE 01000002 161 IF MOD='032' OR MOD='033' THEN DO; MODGRP='INTLLTR'; LDC='14'; END; 01010002 162 * manual parcel operations; 01020002 163 ELSE 01030002 164 IF (MOD >='100' AND MOD <='101') 01040002 15 The SAS System 165 OR MOD ='104' OR MOD ='130' 01050002 166 OR MOD ='200' 01060002 167 THEN DO; MODGRP='MANP ' ; LDC='14'; END; 01070002 168 ELSE 01080002 169 IF MOD='102' OR MOD='103' THEN DO; MODGRP='INTLPAR'; LDC='14'; END; 01090002 170 01100002 171 * manual priority ; 01110002 172 ELSE 01120002 173 IF MOD ='050' OR MOD = '055' 01130002 174 THEN DO; MODGRP= 'PRIORITY'; LDC='14'; END; *RECHECK HERE; 01140002 175 01150002 176 * ldc 15; 01160002 177 ELSE 01170002 178 IF MOD='771' OR '774'<=MOD<='776' OR MOD='779' 01180002 179 THEN DO; MODGRP= 'LD15 '; LDC='15'; END; 01190002 180 01200002 181 * allied operations; 01210002 182 ELSE 01220002 183 IF '118'<=MOD<='119' THEN DO; MODGRP='1SCAN '; LDC='17'; END; 01230002 184 ELSE 01240002 185 IF '002'<=MOD<='009' THEN DO; MODGRP='1BULK PR'; LDC='17'; END; 01250002 186 ELSE 01260002 187 IF '010'<=MOD<='019' 01270002 188 OR '020'<=MOD<='028' THEN DO; MODGRP='1CANCMPP'; LDC='17'; END; 01280002 189 ELSE 01290002 190 IF '235'<=MOD<='237' THEN DO; MODGRP='1SACKS_H'; LDC='17'; END; 01300002 191 ELSE 01310002 192 IF '110'<=MOD<='114' OR '180'<=MOD<='184' 01320002 193 THEN DO; MODGRP='1OPPREF'; LDC='17'; END; 01330002 194 ELSE 01340002 195 IF '115'<=MOD<='117' OR '185'<=MOD<='189' 01350002 196 THEN DO; MODGRP='1OPBULK'; LDC='17'; END; 01360002 197 ELSE 01370002 198 IF '210'<=MOD<='234' THEN DO; MODGRP= '1PLATFRM'; LDC='17'; END; 01380002 199 ELSE 01390002 200 IF '120'<=MOD<='129' 01400002 201 OR '208'<=MOD<='209' THEN DO; MODGRP='1POUCHNG'; LDC='17'; END; 01410002 202 ELSE 01420002 203 IF (MOD>='358' AND MOD<= '359') 01430002 204 THEN DO; MODGRP='1ROBOTIC'; LDC='17'; END; 01440002 205 ELSE 01450002 206 IF (MOD>='343' AND MOD<= '345') OR MOD='348' 01460002 207 OR (MOD>='350' AND MOD<= '352') 01470002 208 THEN DO; MODGRP='INTLALLI'; LDC='17'; END; 01480002 209 ELSE 01490002 210 IF MOD='454' THEN DO; MODGRP='INTLOTHR'; LDC='17'; END; 01500002 211 01510002 212 * business reply / postage due; 01520002 213 ELSE 01530002 214 IF MOD='930' THEN DO; MODGRP= 'BUSREPLY'; LDC='18'; END; 01540002 215 * damaged parcel rewrap; 01550002 216 ELSE 01560002 217 IF MOD='109' THEN DO; MODGRP= 'REWRAP '; LDC='18'; END; 01570002 218 * empty equipment/admin; 01580002 219 ELSE 01590002 220 IF MOD='549' THEN DO; MODGRP='1EEQMT '; LDC='18'; END; 01600002 221 * express; 01610002 222 ELSE 01620002 16 The SAS System 223 IF MOD='131' OR MOD='669' OR MOD='793' 01630002 224 THEN DO; MODGRP= 'EXPRESS'; LDC='18'; END; 01640002 225 * mailgram; 01650002 226 ELSE 01660002 227 IF MOD='584' THEN DO; MODGRP= 'MAILGRAM'; LDC='18'; END; 01670002 228 * mail processing support; 01680002 229 ELSE 01690002 230 IF (MOD>='340' AND MOD<='341') OR (MOD>='554' AND MOD<='555') 01700002 231 OR MOD='547' OR MOD='548' OR MOD='607' 01710002 232 OR MOD='612' OR MOD='620' OR MOD='625' OR MOD='630' 01720002 233 OR MOD='677' OR MOD='755' OR MOD='798' 01730002 234 THEN DO; MODGRP = '1SUPPORT'; LDC='18'; END; 01740002 235 * miscellaneous; 01750002 236 ELSE 01760002 237 IF (MOD >='560' AND MOD <='564') 01770002 238 THEN DO; MODGRP='1MISC '; LDC='18'; END; 01780002 239 01790002 240 * registry; 01800002 241 ELSE 01810002 242 IF '585'<= MOD<='590' THEN DO; MODGRP= 'REGISTRY'; LDC='18'; END; 01820002 243 01830002 244 * international mods; 01840002 245 ELSE 01850002 246 IF MOD='132' THEN DO; MODGRP='INTLPOST';LDC='18'; END; 01860002 247 ELSE 01870002 248 IF MOD='545' OR MOD='546' 01880002 249 OR (MOD>='573' AND MOD<='578') OR MOD='580' OR MOD='681' 01890002 250 THEN DO; MODGRP='INTLMISC'; LDC='18'; END; 01900002 251 01910002 252 * ldc41 and ldc42 ; 01920002 253 ELSE 01930002 254 IF '821'<=MOD<='829' OR MOD='905' OR MOD='906' OR MOD='907' 01940002 255 OR '912'<=MOD<='913' THEN DO; MODGRP= 'LD41 '; LDC='41' ; END; 01950002 256 *FY 97 CHANGES ADD 907 CSBCS EQUIPMENT SERVICING; 01960002 257 ELSE 01970002 258 IF '366'<=MOD<='367' OR MOD='371' OR MOD='375' OR MOD='377' 01980002 259 OR MOD='943' OR MOD ='379' THEN DO; MODGRP= 'LD41 ';LDC='41';END; 01990002 260 *FY 98 CHANGES ; 02000002 261 ELSE 02010002 262 IF '801'<=MOD<='819' THEN DO; MODGRP= 'LD42 '; LDC='42' ; END; 02020002 263 02030002 264 * manual distribution - station/branch; 02040002 265 ELSE 02050002 266 IF (MOD >='240' AND MOD <='339') 02060002 267 THEN DO; MODGRP='LD43 '; LDC='43'; END; 02070002 268 02080002 269 * station / branch - box section ; 02090002 270 ELSE 02100002 271 IF MOD = '769' THEN DO; MODGRP='LD44 '; LDC='44'; END; 02110002 272 02120002 273 * windows; 02130002 274 ELSE 02140002 275 IF MOD ='355' OR MOD='568' 02150002 276 THEN DO; MODGRP='2WINDOW'; LDC='45'; END; 02160002 277 02170002 278 * ldc48 : insured, cod, carrier cage, and other; 02180002 279 ELSE 02190002 280 IF MOD='583' THEN DO; MODGRP ='LD48 EXP'; LDC='48'; END; 02200002 17 The SAS System 281 ELSE 02210002 282 IF MOD='353' 02220002 283 OR MOD='558' OR MOD = '559' OR MOD = '608' OR MOD = '621' 02230002 284 OR MOD='626' OR MOD = '631' OR MOD = '678' 02240002 285 THEN DO; MODGRP='LD48_ADM'; LDC='48'; END; 02250002 286 ELSE 02260002 287 IF '542'<=MOD<='544' 02270002 288 THEN DO; MODGRP='LD48_SSV'; LDC='48'; END; 02280002 289 ELSE 02290002 290 IF MOD='741' OR MOD='742' OR MOD='794' 02300002 291 THEN DO; MODGRP='LD48 OTH'; LDC='48'; END; 02310002 292 02320002 293 * address information system and central mail mark - up; 02330002 294 ELSE 02340002 295 IF MOD='539' or (MOD>='795' AND MOD<='797') 02350002 296 THEN DO; MODGRP='LD49 '; LDC='49'; END; 02360002 297 02370002 298 * mailing requirements and business mail entry; 02380002 299 ELSE 02390002 300 IF MOD ='001' OR MOD='550' 02400002 301 OR MOD='660' OR MOD ='697' 02410002 302 THEN DO; MODGRP='LD79 '; LDC='79'; END; 02420002 303 02430002 304 ELSE MODGRP='2INVALID'; 02440002 305 02450002 306 IF MODGRP='2INVALID' THEN DO; 02460002 307 02470002 308 * .......... classify admin by mod codes.......................; 02480002 309 IF MOD ='597' 02490002 310 OR MOD='920' OR MOD ='922' OR MOD='924' 02500002 311 OR MOD='342' OR MOD ='598' 02510002 312 OR MOD='698' OR MOD ='699' 02520002 313 OR (MOD>='700' AND MOD<='702') 02530002 314 OR MOD='770' OR (MOD>='927' AND MOD<='928') OR MOD='932' 02540002 315 OR MOD='354' OR MOD ='613' OR MOD='614' 02550002 316 OR MOD='622' OR MOD='627' OR MOD ='632' OR MOD='705' 02560002 317 OR (MOD>='707' AND MOD<='711') 02570002 318 OR (MOD>='713' AND MOD<='740') 02580002 319 OR MOD='743' OR MOD='744' OR MOD='757' OR MOD='768' 02590002 320 OR MOD='758' OR MOD ='759' OR MOD='760' 02600002 321 OR MOD='761' OR MOD ='762' 02610002 322 OR MOD='676' OR MOD='933' 02620002 323 OR (MOD>='951' AND MOD<='955') 02630002 324 OR MOD='751' OR MOD ='752' 02640002 325 OR MOD='753' OR MOD ='754' 02650002 326 OR MOD='747' OR MOD ='748' OR MOD='749' 02660002 327 OR MOD='616' OR MOD ='624' OR MOD='680' OR '745'<=MOD<='746' 02670002 328 OR MOD='706' OR MOD='929' 02680002 329 OR MOD='792' 02690002 330 OR MOD='599' OR MOD='635' OR MOD='703' OR MOD='923' 02700002 331 OR (MOD>='935' AND MOD<='939') 02710002 332 OR MOD='641' OR MOD='704' OR MOD ='600' 02720002 333 OR (MOD>='940' AND MOD<='945') 02730002 334 OR MOD='601' OR MOD='655' OR (MOD>='946' AND MOD<='950') 02740002 335 OR MOD='671' 02750002 336 OR MOD='664' OR MOD='602' 02760002 337 OR (MOD>='455' AND MOD<='460') 02770002 338 OR (MOD>='471' AND MOD<='504') 02780002 18 The SAS System 339 THEN MODGRP='2ADM_OUT'; 02790002 340 02800002 341 IF MOD='582' 02810002 342 OR MOD='581' OR MOD='673' 02820002 343 OR (MOD>='594' AND MOD<='596') OR MOD='674' 02830002 344 OR MOD='645' OR MOD='672' 02840002 345 OR MOD='593' 02850002 346 OR MOD='668' OR MOD='900' 02860002 347 OR MOD='646' OR MOD='675' 02870002 348 OR MOD='615' OR MOD='617' OR MOD='679' OR MOD='763' OR MOD='764' 02880002 349 OR MOD='901' 02890002 350 OR MOD='647' 02900002 351 OR MOD='765' OR MOD='766' OR MOD='772' OR MOD='773' 02910002 352 OR MOD='750' 02920002 353 OR (MOD>='980' AND MOD<='987') 02930002 354 OR MOD='704' 02940002 355 OR MOD='683' OR MOD='968' 02950002 356 OR MOD='649' 02960002 357 OR MOD='650' 02970002 358 OR MOD='684' 02980002 359 OR MOD='685' 02990002 360 OR MOD='540' OR MOD='556' OR MOD='610' 03000002 361 OR MOD='623' OR MOD='636' OR MOD='651' 03010002 362 OR MOD ='628' OR MOD ='640' 03020002 363 OR MOD ='569' OR MOD ='579' 03030002 364 OR MOD='591' OR MOD='592' OR MOD='969' 03040002 365 OR MOD='633' 03050002 366 OR MOD ='958' 03060002 367 OR MOD ='959' 03070002 368 OR MOD='541' OR MOD='611' OR MOD='642' OR MOD='652' 03080002 369 OR MOD='686' OR MOD='902' 03090002 370 OR MOD='557' OR MOD='572' OR MOD='689' 03100002 371 OR MOD='688' OR MOD='690' 03110002 372 OR MOD='653' OR MOD='692' 03120002 373 OR MOD='654' OR MOD='687' 03130002 374 OR MOD='566' OR MOD='691' 03140002 375 OR MOD ='643' 03150002 376 OR MOD ='644' 03160002 377 OR (MOD>='656' AND MOD<='659') 03170002 378 OR (MOD>='661' AND MOD<='663') 03180002 379 OR (MOD>='693' AND MOD<='696') 03190002 380 OR (MOD>='551' AND MOD<='552') 03200002 381 OR MOD ='903' 03210002 382 OR MOD='656' 03220002 383 OR MOD='657' OR MOD='693' OR MOD='695' 03230002 384 OR MOD='658' OR MOD='694' 03240002 385 OR MOD='659' OR MOD='696' 03250002 386 OR MOD ='661' 03260002 387 OR MOD ='662' 03270002 388 OR MOD ='663' OR MOD='903' 03280002 389 OR MOD='470' OR (MOD>='505' AND MOD<='538') 03290002 390 OR (MOD>='570' AND MOD<='571') OR MOD='665' OR MOD='904' 03300002 391 OR MOD='648' OR MOD='682' 03310002 392 OR MOD='666' 03320002 393 OR MOD ='670' 03330002 394 OR (MOD>='780' AND MOD<='789') 03340002 395 OR MOD>='999' 03350002 396 THEN MODGRP='2ADM '; 03360002 19 The SAS System 397 IF MOD>='551' AND MOD<='552' THEN MODGRP='2ADM INQ'; 03370002 398 03380002 399 END; 03390002 400 03400002 401 *........changes starting in PQ3...............; 03410006 402 03420002 403 IF '291'<=MOD<='299' THEN MODGRP='2INVALID'; 03440002 404 03450002 405 IF '251'<=MOD<='257' THEN DO; 03460002 406 LDC='13'; MODGRP='SPBS OTH'; END; 03470002 407 03480002 408 IF '360'<=MOD<='379' OR MOD='942' THEN DO; 03490002 409 LDC='41'; MODGRP='LD41 '; END; 03500002 410 03510002 411 IF '06'<=F230<='19' THEN DO; 03530002 412 IF '052'<=MOD<='054' 03540002 413 OR '056'<=MOD<='058' OR MOD='104' OR MOD='106' THEN DO; 03550002 414 LDC='13'; MODGRP='INTL/GPL'; END; 03560002 415 IF '202'<=MOD<='207' THEN DO; 03570002 416 LDC='14'; MODGRP='INTL/GPL'; END; 03580002 417 IF '280'<=MOD<='289' THEN DO; 03590002 418 LDC='11'; MODGRP='BCS/ISS '; END; 03600002 419 IF '300'<=MOD<='309' THEN DO; 03610002 420 LDC='11'; MODGRP='INTL/ISS'; END; 03620002 421 IF '310'<=MOD<='319' THEN DO; 03630002 422 LDC='11'; MODGRP='INTL/OSS'; END; 03640002 423 IF '400'<=MOD<='409' THEN DO; 03650002 424 LDC='42'; MODGRP='LD42 '; END; 03660002 425 IF '420'<=MOD<='429' THEN DO; 03670002 426 LDC='12'; MODGRP='FSM/OCR '; END; 03680002 427 IF '430'<=MOD<='439' THEN DO; 03690002 428 LDC='13'; MODGRP='SPBS OTH'; END; 03700002 429 IF '452'<=MOD<='453' THEN DO; 03710002 430 LDC='14'; MODGRP='INTL/GPM'; END; 03720002 431 IF '460'<=MOD<='469' THEN DO; 03730002 432 LDC='12'; MODGRP='FSM/1000'; END; 03740002 433 IF '791'<=MOD<='792' THEN DO; 03750002 434 LDC='49'; MODGRP='LD49 '; END; 03760002 435 IF '908'<=MOD<='911' THEN DO; 03770002 436 LDC='11'; MODGRP='BCS/ '; END; 03780002 437 END; 03790002 438 03800002 439 IF '052'<=MOD<='054' 03830002 440 OR '056'<=MOD<='058' OR MOD='104' OR MOD='106' 03840002 441 OR '202'<=MOD<='207' 03850002 442 OR '300'<=MOD<='309' 03860002 443 OR '310'<=MOD<='319' 03870002 444 OR '452'<=MOD<='453' THEN DO; 03880002 445 IF (F2='250504' OR F2='253504' OR F2='059505' OR F2='153505' 03890002 446 OR F2='970506' OR F2='581115' OR F2='582115' 03900002 447 OR F2='406610' OR F2='407610' OR F2='943522' OR F2='633628' 03910002 448 OR F2='689333' OR F2='815530' OR F2='209531' OR F2='627842' 03920002 449 OR F2='628842' OR F2='133844' OR F2='074152' OR F2='075152' 03930002 450 OR F2='169457' ) 03940002 451 THEN MODGRP= MODGRP ; 03950002 452 ELSE MODGRP= '2INVALID'; 03960002 453 END; 03970002 454 03980002 110 The SAS System 455 IF MODGRP=' ' THEN MODGRP=MOD; 03990002 456 MODPOOL = SUBSTR(MODGRP,1,4); 04000002 457 POOL=MODGRP; 04010002 458 IF MODPOOL='MANL' OR MODPOOL='MANF' OR MODPOOL='MANP' OR MODPOOL='INTL' 04020002 459 OR MODPOOL='LSM/' OR MODPOOL='FSM/' OR MODPOOL='OCR/' OR MODPOOL='BCS/' 04030002 460 THEN POOL = MODPOOL; 04040002 461 04050002 462 IF POOL='INTL ' THEN LDC = '19'; 04060002 463 IF POOL='1ROBOTIC' THEN POOL = '1OPPREF'; 04070002 464 04080002 465 DROP MODGRP MODPOOL; 04090002 466 04100002 467 *....remap tallies with no mods codes or invalid mods codes....; 04110002 468 04120002 469 IF POOL='2INVALID' THEN DO; 04130002 470 REMAP='1'; 04140002 471 IF SUBSTR(F1,1,1)='1' THEN DO; 04150002 472 IF F128='A' AND F9211='A' THEN POOL='MANL '; 04160002 473 ELSE IF F128='A' AND F9211='B' THEN POOL='MANF '; 04170002 474 ELSE IF F128='A' AND F9211='C' THEN POOL='MANP '; 04180002 475 ELSE IF F128='A' AND F9211='D' THEN POOL='1CANCMPP'; 04190002 476 ELSE IF F128='A' AND F9211='E' THEN POOL='1BULK PR'; 04200002 477 ELSE IF F128='A' AND F9211='F' THEN POOL='1OPPREF '; 04210002 478 ELSE IF F128='A' AND F9211='G' THEN POOL='1POUCHNG'; 04220002 479 ELSE IF F128='A' AND F9211='H' THEN POOL='1PLATFRM'; 04230002 480 ELSE IF F128='B' THEN POOL='OCR/ '; 04240002 481 ELSE IF F128='C' OR F128='D' OR F128='E' THEN POOL='BCS/ '; 04250002 482 ELSE IF F128='F' THEN POOL='LSM/ '; 04260002 483 ELSE IF F128='G' OR F128 ='H' THEN POOL='1CANCMPP'; 04270002 484 ELSE IF F128='I' THEN POOL='1SACKS_M'; 04280002 485 ELSE IF F128='J' THEN POOL='MECPARC '; 04290002 486 ELSE IF F128='K' THEN POOL='FSM/ '; 04300002 487 ELSE IF F128='L' THEN POOL='SPBS OTH'; 04310002 488 ELSE IF F128='M' THEN POOL='1SACKS_M'; *nmo; 04320002 489 ELSE IF F128='N' THEN POOL='1SACKS_H'; 04330002 490 ELSE IF F128='O' THEN POOL='1OPPREF '; 04340002 491 ELSE IF F128='P' THEN POOL='1SCAN '; 04350002 492 ELSE IF F128='Q' THEN POOL='1POUCHNG'; 04360002 493 ELSE IF F128='R' THEN POOL='1CANCMPP'; 04370002 494 ELSE IF F128='S' THEN POOL='LD15 '; 04380002 495 ELSE IF (F128='T' AND F9212='A') 04390002 496 OR (F128='T' AND F9212='B') 04400002 497 OR (F128='T' AND F9212='C') 04410002 498 OR (F128='T' AND F9212='D') 04420002 499 THEN POOL='1PLATFRM'; 04430002 500 ELSE IF F260='07' THEN POOL='LD79 '; 04440002 501 ELSE IF F260='08' THEN POOL='1PLATFRM'; 04450002 502 ELSE IF F118='A' OR F118='C' OR F118='E' OR F118='F' 04460002 503 OR F118='I' OR F118='K' THEN POOL='1CANCMPP'; 04470002 504 ELSE IF F118='B' OR F118='D' OR F118='H' OR F118='J' 04480002 505 THEN POOL='1OPPREF '; 04490002 506 ELSE IF F118='G' THEN POOL='REWRAP '; 04500002 507 ELSE IF 'A'<=F119<='F' AND F122=' ' AND F9602='A' 04510002 508 THEN POOL='MANPARC ';*sorttosck; 04520002 509 ELSE IF 'A'<=F119<='F' AND F122=' ' AND F9602='C' 04530002 510 THEN POOL='1SACKS_H'; 04540002 511 ELSE IF 'A'<=F119<='F' AND F122=' ' AND F9602='D' 04550002 512 THEN POOL='MANPARC '; 04560002 111 The SAS System 513 ELSE IF 'A'<=F119<='G' AND F122=' ' 04570002 514 AND (F128='A' AND F9211='I') 04580002 515 THEN POOL='1MISC '; 04590002 516 ELSE IF 'A'<=F119<='G' AND F122=' ' AND F9602='B' 04600002 517 THEN POOL='1POUCHNG'; 04610002 518 ELSE IF 'A'<=F122<='F' THEN POOL='1POUCHNG'; 04620002 519 ELSE IF 'I'<=F122<='L' THEN POOL='1POUCHNG'; 04630002 520 ELSE IF F122 ='G' THEN POOL='1MISC '; 04640002 521 ELSE IF F122 ='M' THEN POOL='1MISC '; 04650002 522 ELSE IF F122 ='H' THEN POOL='1EEQMT '; 04660002 523 ELSE IF F260='00' THEN POOL='BUSREPLY'; 04670002 524 ELSE IF F260='06' THEN POOL='1SUPPORT'; *NIXIE; 04680002 525 ELSE IF F260='09' THEN POOL='2WINDOW '; 04690002 526 ELSE IF F260='10' THEN POOL='2ADM '; 04700002 527 ELSE IF F260='14' THEN POOL='LD49 '; *CENTRAL MAIL MARK-UP; 04710002 528 ELSE IF F260='17' THEN POOL='2ADM INQ'; 04720002 529 ELSE IF F260='18' THEN POOL='REGISTRY'; 04730002 530 ELSE IF F260='19' THEN POOL='MAILGRAM'; 04740002 531 ELSE IF F260='20' THEN POOL='1SUPPORT'; 04750002 532 ELSE IF F260='21' THEN POOL='LD48 OTH'; 04760002 533 ELSE IF F260='22' THEN POOL='EXPRESS '; 04770002 534 ELSE IF F260='23' THEN POOL='LD48 OTH'; 04780002 535 ELSE IF '24'<=F260<='26' THEN POOL='2WINDOW '; 04790002 536 ELSE POOL='1MISC '; 04800002 537 END; 04810002 538 04820002 539 IF SUBSTR(F1,1,1)='4' THEN DO; 04830002 540 POOL='2ADMIN '; 04840002 541 IF F128='B' 04850002 542 OR F128='C' 04860002 543 OR F128='D' OR F128='E' 04870002 544 THEN POOL='LD41 '; 04880002 545 ELSE IF F128='F' OR F128='K' 04890002 546 THEN POOL='LD42 '; 04900002 547 ELSE IF F260='00' THEN POOL='LD48_SSV'; *POSTAGE DUE; 04910002 548 ELSE IF F260='06' THEN POOL='LD48_SSV'; *NIXIE; 04920002 549 ELSE IF '11' <= F260 <='13' OR F260='20' THEN POOL='LD44 '; 04930002 550 ELSE IF F260='09' OR '24'<=F260<='26' THEN POOL='2WINDOW'; 04940002 551 ELSE IF F260='10' THEN POOL='2ADMIN '; 04950002 552 ELSE IF F260='14' THEN POOL='LD49 '; 04960002 553 ELSE IF F260='17' THEN POOL='2ADM INQ'; 04970002 554 ELSE IF F260='18' THEN POOL='LD48_SSV'; *REGISTRY; 04980002 555 ELSE IF F260='19' THEN POOL='MAILGRAM'; 04990002 556 ELSE IF F260='21' THEN POOL='LD48_SSV'; *SPECIAL DELIVERY; 05000002 557 ELSE IF F260='22' THEN POOL='LD48 EXP'; 05010002 558 ELSE IF F260='23' THEN POOL='LD48_SSV'; *OTHER ACCOUNTABLE; 05020002 559 ELSE POOL='LD43 '; 05030002 560 END; 05040002 561 IF POOL='OCR/' OR POOL='BCS/' THEN LDC='11'; 05050002 562 IF POOL='LSM/' OR POOL='FSM/' THEN LDC='12'; 05060002 563 IF POOL='1SACKS_M' OR POOL='MECPARC ' OR POOL='SPBS OTH' 05070002 564 THEN LDC='13'; 05080002 565 IF POOL='MANL' OR POOL='MANF' OR POOL='MANP' THEN LDC='14'; 05090002 566 IF POOL='LD15' THEN LDC='15'; 05100002 567 IF POOL='1SCAN' OR POOL='1CANCMPP' OR POOL='1SACKS_H' 05110002 568 OR POOL='1OPPREF ' OR POOL='1PLATFRM' OR POOL='1POUCHNG' 05120002 569 OR POOL='1BULK PR' THEN LDC='17'; 05130002 570 IF POOL='BUSREPLY' OR POOL='REWRAP' OR POOL='1EEQMT' 05140002 112 The SAS System 571 OR POOL='EXPRESS' OR POOL='MAILGRAM' OR POOL='1SUPPORT' 05150002 572 OR POOL='1MISC ' OR POOL='REGISTRY' THEN LDC='18'; 05160002 573 IF POOL='LD41 ' THEN LDC='41'; 05170002 574 IF POOL='LD42 ' THEN LDC='42'; 05180002 575 IF POOL='LD43 ' THEN LDC='43'; 05190002 576 IF POOL='LD44 ' THEN LDC='44'; 05200002 577 IF POOL='2WINDOW ' THEN LDC='45'; 05210002 578 IF SUBSTR(POOL,1,4)='LD48' THEN LDC='48'; 05220002 579 IF POOL='LD49 ' THEN LDC='49'; 05230002 580 IF POOL='LD79 ' THEN LDC='79'; 05240002 581 IF SUBSTR(POOL,1,4)='2ADM ' THEN LDC=' '; 05241004 582 05250002 583 END; 05260002 584 05270002 585 *..............MODS-BASED ENCIRCLEMENT.........................; 05280002 586 05290002 587 IF (f245 >='0010' AND F245 <='0300') 05300002 588 or (f246 >='0010' AND F246 <='0300') 05310002 589 or (f9806>='0010' AND F9806<='0300') THEN DO; 05320002 590 05330002 591 IF f245 ='006' or f246='006' THEN ACTV='0060'; 05340002 592 05350002 593 ELSE IF f245 ='019' THEN DO; 05360002 594 IF F9606='A' OR F9606='B' THEN ACTV='0190'; *form 3811 or 3811-a; 05370002 595 ELSE IF f245 ='019' AND SUBSTR(F9805,2,3)='510' THEN ACTV='0190'; 05380002 596 ELSE IF (F246=' ' OR F247=' ' 05390002 597 OR F248=' ' OR F249=' ') AND 05400002 598 (POOL='LD79' OR POOL='2WINDOW' OR POOL='LD43' 05410002 599 OR POOL='LD48 OTH' OR POOL='LD48_SSV' OR POOL='LD48_ADM' 05420002 600 OR POOL='2ADM LIM' OR POOL='2ADM REH' OR POOL='1MISC ' 05430002 601 OR POOL='1SUPPORT' OR SUBSTR(POOL,1,4)='2ADM') 05440002 602 THEN ACTV='0190'; 05450002 603 ELSE ACTV=F9805; 05460002 604 * ONLY 1 SPSVC CODE &PLATF ACCP &WINDOW &OTHER ACCOUNTABLE; 05470002 605 END; 05480002 606 05490002 607 ELSE IF f245 ='030' AND (F9606='C' OR F9632='1') 05500002 608 THEN ACTV='0300'; 05510002 609 05520002 610 ELSE IF F246=' ' AND F247=' ' AND F248=' ' AND F249=' ' THEN DO; 05530002 611 ACTV=F9805; 05540002 612 IF F245 ='021' THEN ACTV='0210'; 05550002 613 ELSE IF F245 ='009' AND 05560002 614 (POOL='BUSREPLY' OR POOL='LD48 OTH' OR POOL='LD48_SSV' OR 05570002 615 POOL='1BULK PR' OR POOL='1SCAN ' OR POOL='1POUCHNG' OR 05580002 616 POOL='1CANCMPP' OR POOL='1OPPREF ' OR POOL='1OPBULK ' OR 05590002 617 POOL='1SACKS_H' OR POOL='1MISC ' OR POOL='1SUPPORT' OR 05600002 618 POOL='LD43' OR POOL='LD48_ADM' OR SUBSTR(POOL,1,4)='2ADM') 05610002 619 THEN ACTV='0090'; 05620002 620 * INCL LDC17 & OTHER ACCOUNTABLE IN FUNCTIONS 1 AND 4; 05630002 621 ELSE IF (F245 ='003' OR F245 ='007' OR F245 ='008' ) AND 05640002 622 (POOL='BUSREPLY' OR POOL='LD48 OTH' OR POOL='LD48_SSV' OR 05650002 623 POOL='LD79 ' OR POOL='1PLATFRM' OR POOL='LD43 ' OR 05660002 624 POOL='2WINDOW ' OR 05670002 625 POOL='2ADM INQ' OR POOL='1MISC ' OR POOL='1SUPPORT' OR 05680002 626 POOL='LD48_ADM' OR SUBSTR(POOL,1,4)='2ADM') 05690002 627 THEN ACTV=f245||"0"; 05700002 628 ELSE IF F245 ='001' AND 05710002 113 The SAS System 629 (POOL='LD79 ' OR POOL='1PLATFRM' OR POOL='LD43 ' OR 05720002 630 POOL='2WINDOW ' OR 05730002 631 POOL='LD48 OTH' OR POOL='LD48_SSV' OR POOL='LD48 EXP' OR 05740002 632 POOL='EXPRESS ' OR POOL='1MISC ' OR POOL='1SUPPORT') 05750002 633 THEN ACTV='0010'; 05760002 634 ELSE IF F245 ='005' AND 05770002 635 (POOL='BUSREPLY' OR POOL='LD48 OTH' OR POOL='LD48_SSV' OR 05780002 636 POOL='LD79 ' OR POOL='1PLATFRM' OR POOL='LD43 ' OR 05790002 637 POOL='2WINDOW ' OR 05800002 638 POOL='1MISC ' OR POOL='1SUPPORT' OR 05810002 639 POOL='LD48_ADM' OR SUBSTR(POOL,1,4)='2ADM') 05820002 640 THEN ACTV='0050'; 05830002 641 ELSE IF F245 ='002' AND 05840002 642 (POOL='1BULK PR' OR POOL='1SCAN ' OR POOL='1POUCHNG' OR 05850002 643 POOL='1CANCMPP' OR POOL='1OPPREF ' OR POOL='1OPBULK ' OR 05860002 644 POOL='1SACKS_H' OR 05870002 645 POOL='LD79 ' OR POOL='1PLATFRM' OR POOL='LD43 ' OR 05880002 646 POOL='2WINDOW ') 05890002 647 THEN ACTV='0020'; 05900002 648 END; 05910002 649 05920002 650 ELSE IF F246>'0010' OR F247>'0010' 05930002 651 OR F248>'0010' OR F249>'0010' THEN DO; 05940002 652 ACTV=F9805; 05950002 653 IF (F245 ='003' OR F245 ='007' OR F245 ='008' ) AND 05960002 654 (POOL='BUSREPLY' OR POOL='LD48 OTH' OR POOL='LD48_SSV' OR 05970002 655 POOL='LD79 ' OR POOL='1PLATFRM' OR POOL='LD43 ' OR 05980002 656 POOL='2WINDOW ' OR 05990002 657 POOL='2ADM INQ' OR POOL='1MISC ' OR POOL='1SUPPORT' OR 06000002 658 POOL='LD48_ADM' OR SUBSTR(POOL,1,4)='2ADM') 06010002 659 THEN ACTV=F245||"0"; 06020002 660 ELSE IF F245 ='001' AND 06030002 661 (POOL='LD79 ' OR POOL='1PLATFRM' OR POOL='LD43 ' OR 06040002 662 POOL='2WINDOW ' OR 06050002 663 POOL='LD48 OTH' OR POOL='LD48_SSV' OR POOL='LD48 EXP' OR 06060002 664 POOL='EXPRESS ' OR POOL='1MISC ' OR POOL='1SUPPORT') 06070002 665 THEN ACTV='0010'; 06080002 666 ELSE IF F245 ='005' AND 06090002 667 (POOL='BUSREPLY' OR POOL='LD48 OTH' OR POOL='LD48_SSV' OR 06100002 668 POOL='LD79 ' OR POOL='1PLATFRM' OR POOL='LD43 ' OR 06110002 669 POOL='2WINDOW ' OR 06120002 670 POOL='1MISC ' OR POOL='1SUPPORT' OR 06130002 671 POOL='LD48_ADM' OR SUBSTR(POOL,1,4)='2ADM') 06140002 672 THEN ACTV='0050'; 06150002 673 ELSE IF F245 ='002' AND 06160002 674 (POOL='1BULK PR' OR POOL='1SCAN ' OR POOL='1POUCHNG' OR 06170002 675 POOL='1CANCMPP' OR POOL='1OPPREF ' OR POOL='1OPBULK ' OR 06180002 676 POOL='1SACKS_H' OR 06190002 677 POOL='LD79 ' OR POOL='1PLATFRM' OR POOL='LD43 ' OR 06200002 678 POOL='2WINDOW ') 06210002 679 THEN ACTV='0020'; 06220002 680 END; 06230002 681 END; 06240002 682 ELSE ACTV=F9806; 06250002 683 06260002 684 06270002 685 *.........confinement to special service cost pools................; 06280002 686 06290002 114 The SAS System 687 if '11'<=ldc<='17' or '41'<=ldc<='44' or LDC='79' then actv =f9805; 06300002 688 IF POOL='BUSREPLY' AND ACTV NE '0090' THEN ACTV=F9805; 06310002 689 IF POOL='REGISTRY' AND ACTV NE '0060' THEN ACTV=F9805; 06320002 690 IF POOL='LD49 ' AND ACTV < '0100' THEN ACTV=F9805; 06330002 691 06340002 692 06350002 693 *...special service operations in International.....; 06360002 694 IF POOL='INTL' AND '0010'<=F245<='0300' THEN DO; 06370006 695 IF MOD ='578' OR MOD='580' OR MOD='681' THEN ACTV=F245||"0"; 06380006 696 ELSE ACTV=F9805; 06390006 697 END; 06400006 698 06410002 699 *.... special handling special serv costs in any pool...............; 06420002 700 *.... must be associated with Std A Single Piece or Std B...........; 06430002 701 06440002 702 IF (F9806='0020' OR F245='002' OR F246='002' OR F247='002' 06450002 703 OR F248='002' OR F249='002') AND ('1000'<=F9805<='4950') 06460002 704 THEN DO ; 06470002 705 IF SUBSTR(F9805,1,3)='360' OR SUBSTR(F9805,2,1)='4' 06480002 706 THEN ACTV='0020'; 06490002 707 ELSE ACTV=F9805 ; 06500002 708 END; 06510002 709 06520002 710 *.....detached forms special service costs in any pool..............; 06530002 711 06540002 712 IF F9635='C' THEN DO; *USPS FORM SHAPE; 06550002 713 ACTV=ACTV; 06560002 714 IF 'A' <= F9606 <= 'B' THEN ACTV = '0190';*FORM3811 RETURN RCPT; 06570002 715 IF F9632='1' AND F9606='C' THEN ACTV = '0300'; 06580002 716 *FORM3547 ADDRESS CHG AND ADDITIONAL SERVC PROVIDED FORM 3579; 06590002 717 IF F9606 = 'D' THEN ACTV = F9805 ; 06600002 718 IF F9606 = 'E' THEN ACTV = '0100';*FORM3804 MERCH. RET.; 06610002 719 IF F9606 = 'F' THEN ACTV = '0060';*FORM3806 REGSTR RCPT; 06620002 720 IF F9606 = 'G' THEN ACTV = F9805 ; 06630002 721 IF F9606 = 'H' THEN ACTV = '0060';*FORM3849D UNDELV COD; 06640002 722 IF F9606 = 'I' THEN ACTV = F9805 ; 06650002 723 END; 06660002 724 06670002 725 *......Registry adjustment to be consistent with RPW pieces..........; 06680002 726 06690002 727 IF ACTV='0060' THEN DO; 06700002 728 IF SUBSTR(F9805,2,1)='8' 06710002 729 AND '1000'<=F9805<='4950' 06720002 730 THEN ACTV=F9805; 06730002 731 ELSE IF SUBSTR(F9805,2,3)='510' 06740002 732 AND '1000'<=F9805<='4950' THEN ACTV=F9805; 06750002 733 ELSE IF '545'<=SUBSTR(F9805,1,3)<='548' THEN ACTV=F9805; 06760002 734 ELSE ACTV='0060'; 06770002 735 END; 06780002 736 06790002 737 *............correction for business reply - incl BRMAS...............; 06800002 738 06810002 739 IF F245='009' OR F246='009' OR ACTV='0090' THEN DO; 06820002 740 IF POOL='BUSREPLY' OR F120='F' THEN ACTV='0090'; 06830002 741 ELSE ACTV=F9805 ; 06840002 742 END; 06850002 743 *.............no changes to admin or window services..................; 06860002 744 06870002 115 The SAS System 745 IF SUBSTR(POOL,1,4)='2ADM' OR SUBSTR(POOL,1,4)='2WIN' THEN 06880006 746 ACTV=F9806; 06890006 747 06900002 748 *............special activity codes for metered mail...............; 06910002 749 06920002 750 IF ACTV='1060' AND F136='D' THEN ACTV='1068'; *METERED MAIL; 06930002 751 IF ACTV='2060' AND F136='D' THEN ACTV='2068'; *METERED MAIL; 06940002 752 IF ACTV='3060' AND F136='D' THEN ACTV='3068'; *METERED MAIL; 06950002 753 IF ACTV='4060' AND F136='D' THEN ACTV='4068'; *METERED MAIL; 06960002 754 06970002 755 **********************************************************************; 00010006 756 00020006 757 * PROGRAM MOD1DIR; *BY98; 00030002 758 * ESTABLISH DISTRIBUTING AND DISTRIBUTED SETS ..........; 00050005 759 00060002 760 **********************************************************************; 00060106 761 00060206 762 OPTIONS ERRORS=1 nodate; 00061006 763 00062006 NOTE: The data set OUT1.MODS has 198279 observations and 152 variables. NOTE: The DATA statement used 2.17 CPU seconds and 4253K. 764 DATA ADW.MODS DIRECT MIXED OUT1.NOTHAND ; 00070002 765 SET OUT1.MODS ; 00080002 766 00090002 767 IF SUBSTR(POOL,1,1)>='2' THEN OUTPUT ADW.MODS; 00100002 768 00110002 769 ELSE IF '1000'<=ACTV<='4950' OR '5300'<=ACTV<='5464' 00120002 770 THEN OUTPUT DIRECT; 00130002 771 00140002 772 ELSE IF '0010'<=ACTV< '1000' THEN DO; 00150002 773 IF '1000'<=F9805<='4950' THEN OUTPUT DIRECT; 00160002 774 ELSE IF '53'<=SUBSTR(F9805,1,2)<='54' THEN OUTPUT DIRECT ; 00170002 775 ELSE IF 'A'<=F9635='K' THEN OUTPUT DIRECT ; *INCL DETACHED FORMS; 00180002 776 ELSE IF 'A'<=F9214<='P' OR 'A'<=F9219<='J' THEN OUTPUT MIXED ; 00190002 777 ELSE OUTPUT OUT1.NOTHAND; 00200002 778 END; 00210002 779 ELSE IF 'A'<=F9214<='P' OR 'A'<=F9219<='J' THEN OUTPUT MIXED ; 00220002 780 ELSE OUTPUT OUT1.NOTHAND; 00230002 781 00240002 782 00380002 783 * ........CONSTRUCT DISTRIBUTION KEYS by pool and output to file.....; 00390002 784 00400002 785 %INCLUDE 'xxxxxx.xxxxxxxx.xxxxxxx(MAPITEMC)' /SOURCE2; 00410007 NOTE: %INCLUDE (level 1) file xxxxxx.xxxxxxx.xxxxxx(MAPITEMC) is file xxxxxx.xxxxxxxx.xxxxxxx(MAPITEMC). 786 + 787 + OPTIONS ERRORS=1; 788 + NOTE: The data set ADW.MODS has 27352 observations and 152 variables. NOTE: The data set WORK.DIRECT has 69459 observations and 152 variables. NOTE: The data set WORK.MIXED has 20851 observations and 152 variables. NOTE: The data set OUT1.NOTHAND has 80617 observations and 152 variables. NOTE: The DATA statement used 0.88 CPU seconds and 4381K. 789 + DATA MPKEYS; 790 + SET DIRECT ; 116 The SAS System 791 + 792 + * ------- CONSTRUCT DISTRIBUTION KEYS ---- ; 793 + 794 + IF SUBSTR(ACTV,1,1)='1' 795 + or actv='5431' or actv='5441' or actv='5451' or actv='5461' 796 + THEN DO; 797 + * IF SUBSTR(ACTV,1,1)='1' 798 + THEN DO; 799 + IF 'B'<=F9635<='C' OR F9635='K' THEN HANDLING = ' PC_CRD'; 800 + ELSE HANDLING = ' PC_LTR'; 801 + END; 802 + IF SUBSTR(ACTV,1,1)='2' THEN HANDLING = ' PC_FLT'; 803 + IF SUBSTR(ACTV,1,1)='3' THEN HANDLING = ' PC_IPP'; 804 + IF SUBSTR(ACTV,1,1)='4' THEN HANDLING = ' PC_PCL'; 805 + 806 + * ........international additions for mixed mail.....; 807 + if actv='5432' or actv='5442' or actv='5452' or actv='5462' 808 + then handling = ' PC_FLT'; 809 + if actv='5433' or actv='5443' or actv='5453' or actv='5463' 810 + then handling = ' PC_IPP'; 811 + if actv='5434' or actv='5444' or actv='5454' or actv='5464' 812 + then handling = ' PC_PCL'; 813 + 814 + * ........shape additions for special services & mixed mail 5340..; 815 + if actv='5340' OR ACTV='5460' then do; 816 + IF 'B'<=F9635<='C' OR F9635='K' THEN HANDLING = ' PC_CRD'; 817 + IF F9635='A' THEN HANDLING = ' PC_LTR'; 818 + IF 'D'<=F9635<='E' THEN HANDLING = ' PC_FLT'; 819 + IF 'F'<=F9635<='G' OR F9635='J' THEN HANDLING = ' PC_IPP'; 820 + IF 'H'<=F9635<='I' THEN HANDLING = ' PC_PCL'; 821 + end; 822 + if '0010'<=actv<'1000' then do; 823 + IF substr(f9805,1,1)='1' 824 + and ('B'<=F9635<='C' OR F9635='K') THEN HANDLING = ' PC_CRD'; 825 + else IF substr(f9805,1,1)='1' THEN HANDLING = ' PC_LTR'; 826 + else IF substr(f9805,1,1)='2' THEN HANDLING = ' PC_FLT'; 827 + else IF substr(f9805,1,1)='3' THEN HANDLING = ' PC_IPP'; 828 + else IF substr(f9805,1,1)='4' THEN HANDLING = ' PC_PCL'; 829 + *++++++++++++++++++++++++++++++++++++++++++++++; 830 + ELSE IF SUBSTR(F9805,1,2)='54' AND '1'<=SUBSTR(F9805,4,1)<='4' 831 + THEN DO; 832 + IF SUBSTR(F9805,4,1)='1' 833 + AND ('B'<=F9635<='C' OR F9635='K') THEN HANDLING = ' PC_CRD'; 834 + ELSE IF SUBSTR(F9805,4,1)='1' THEN HANDLING = ' PC_LTR'; 835 + ELSE IF SUBSTR(F9805,4,1)='2' THEN HANDLING = ' PC_FLT'; 836 + ELSE IF SUBSTR(F9805,4,1)='3' THEN HANDLING = ' PC_IPP'; 837 + ELSE IF SUBSTR(F9805,4,1)='4' THEN HANDLING = ' PC_PCL'; 838 + END; 839 + ELSE IF F9805='5340' OR F9805='5460' THEN DO; 840 + IF 'B'<=F9635<='C' OR F9635='K' THEN HANDLING = ' PC_CRD'; 841 + IF F9635='A' THEN HANDLING = ' PC_LTR'; 842 + IF 'D'<=F9635<='E' THEN HANDLING = ' PC_FLT'; 843 + IF 'F'<=F9635<='G' OR F9635='J' THEN HANDLING = ' PC_IPP'; 844 + IF 'H'<=F9635<='I' THEN HANDLING = ' PC_PCL'; 845 + END; 846 + ELSE DO; *INCL DETACHED FORMS; 847 + IF 'B'<=F9635<='C' OR F9635='K' THEN HANDLING = ' PC_CRD'; 848 + IF F9635='A' THEN HANDLING = ' PC_LTR'; 117 The SAS System 849 + IF 'D'<=F9635<='E' THEN HANDLING = ' PC_FLT'; 850 + IF 'F'<=F9635<='G' OR F9635='J' THEN HANDLING = ' PC_IPP'; 851 + IF 'H'<=F9635<='I' THEN HANDLING = ' PC_PCL'; 852 + END; 853 + *++++++++++++++++++++++++++++++++++++++++++++++; 854 + end; 855 + 856 + IF HANDLING = ' PC_CRD' THEN TYPE= 'PC_CRD'; 857 + IF HANDLING = ' PC_LTR' THEN TYPE= 'PC_LTR'; 858 + IF HANDLING = ' PC_FLT' THEN TYPE= 'PC_FLT'; 859 + IF HANDLING = ' PC_IPP' THEN TYPE= 'PC_IPP'; 860 + IF HANDLING = ' PC_PCL' THEN TYPE= 'PC_PCL'; 861 + IF F9214='A' THEN DO; HANDLING = ' BUNDLE '; TYPE='BUNDLE'; END; 862 + IF F9214='B' THEN DO; HANDLING = ' CON-CON'; TYPE='CONCON'; END; 863 + IF F9214='C' THEN DO; HANDLING = ' TRAY-FT'; TYPE='TRAY_F'; END; 864 + IF F9214='D' THEN DO; HANDLING = ' TRAY-LT'; TYPE='TRAY_L'; END; 865 + IF F9214='E' THEN DO; HANDLING = ' TRAY-P.'; TYPE='TRAY_P'; END; 866 + IF F9214='F' THEN DO; HANDLING = ' PALLET '; TYPE='PALLET'; END; 867 + IF F9214='G' THEN DO; HANDLING = ' OTHITEM'; TYPE='OTHR_I'; END; 868 + IF F9214='H' THEN DO; HANDLING = 'SCK-BL&O'; TYPE='SCKB_O'; END; 869 + IF F9214='I' THEN DO; HANDLING = 'SCK-GREN'; TYPE='SCKGRN'; END; 870 + IF F9214='J' THEN DO; HANDLING = 'SCK-OR&Y'; TYPE='SCKO_Y'; END; 871 + IF F9214='K' THEN DO; HANDLING = 'SCK-BRWN'; TYPE='SCKBWN'; END; 872 + IF F9214='L' THEN DO; HANDLING = 'SCK-WH#1'; TYPE='SCKWH1'; END; 873 + IF F9214='M' THEN DO; HANDLING = 'SCK-WH#2'; TYPE='SCKWH2'; END; 874 + IF F9214='N' THEN DO; HANDLING = 'SCK-WH#3'; TYPE='SCKWH3'; END; 875 + IF F9214='O' THEN DO; HANDLING = 'SCK-OTHR'; TYPE='SCKOTH'; END; 876 + IF F9214='P' THEN DO; HANDLING = 'SCK-INTL'; TYPE='SCKINT'; END; 877 + IF F9219='A' then do; HANDLING = 'BMC-OTR '; type=' '; end; 878 + IF F9219='B' then do; HANDLING = 'ERMC '; type=' '; end; 879 + IF F9219='C' then do; HANDLING = 'GPC/APC/'; type=' '; end; 880 + IF F9219='D' then do; HANDLING = 'HAMPER '; type=' '; end; 881 + IF F9219='E' then do; HANDLING = 'NUT.TRCK'; type=' '; end; 882 + IF F9219='F' then do; HANDLING = 'P-PACK '; type=' '; end; 883 + IF F9219='G' then do; HANDLING = 'U-CART '; type=' '; end; 884 + IF F9219='H' then do; HANDLING = 'WIRETAIN'; type=' '; end; 885 + IF F9219='I' then do; HANDLING = 'NOTIN CN'; type=' '; end; 886 + IF F9219='J' then do; HANDLING = 'Z-OTH CN'; type=' '; end; 887 + NOTE: The data set WORK.MPKEYS has 69459 observations and 154 variables. NOTE: The DATA statement used 0.52 CPU seconds and 4381K. 888 +PROC SORT; 889 + BY POOL HANDLING ACTV; 890 + NOTE: WER750I End PROC SYNCSORT. R2.1B NOTE: The data set WORK.MPKEYS has 69459 observations and 154 variables. NOTE: The PROCEDURE SORT used 0.57 CPU seconds and 4465K. 891 +PROC MEANS NOPRINT; 892 + BY POOL HANDLING ACTV; 893 + ID TYPE F9214 F9219; 894 + VAR WGT; 895 + OUTPUT OUT=MODKEY1 SUM=KEY; 896 + 118 The SAS System NOTE: The data set WORK.MODKEY1 has 4758 observations and 9 variables. NOTE: The PROCEDURE MEANS used 0.35 CPU seconds and 4569K. 897 +PROC MEANS NOPRINT; 898 + BY POOL HANDLING; 899 + VAR KEY; 900 + OUTPUT OUT=MODKEY2 SUM=KEYTOT; 901 + NOTE: The data set WORK.MODKEY2 has 639 observations and 5 variables. NOTE: The PROCEDURE MEANS used 0.02 CPU seconds and 4569K. 902 +DATA MODKEYS ; 903 + MERGE modKEY1(IN=ITT) modKEY2(IN=TT); 904 + BY POOL handling; 905 + 906 + *-- SEPARATE ITEMS AND IDENTIFIED CONTAINERS FROM UNIDENFIED ONES-; 907 + NOTE: The data set WORK.MODKEYS has 4758 observations and 10 variables. NOTE: The DATA statement used 0.04 CPU seconds and 4569K. 908 +DATA ITEMS COUNTED PARTIAL; 909 + SET MIXED; 910 + 911 + IF F9214='A' THEN DO; HANDLING = ' BUNDLE '; TYPE='BUNDLE'; END; 912 + IF F9214='B' THEN DO; HANDLING = ' CON-CON'; TYPE='CONCON'; END; 913 + IF F9214='C' THEN DO; HANDLING = ' TRAY-FT'; TYPE='TRAY_F'; END; 914 + IF F9214='D' THEN DO; HANDLING = ' TRAY-LT'; TYPE='TRAY_L'; END; 915 + IF F9214='E' THEN DO; HANDLING = ' TRAY-P.'; TYPE='TRAY_P'; END; 916 + IF F9214='F' THEN DO; HANDLING = ' PALLET '; TYPE='PALLET'; END; 917 + IF F9214='G' THEN DO; HANDLING = ' OTHITEM'; TYPE='OTHR_I'; END; 918 + IF F9214='H' THEN DO; HANDLING = 'SCK-BL&O'; TYPE='SCKB_O'; END; 919 + IF F9214='I' THEN DO; HANDLING = 'SCK-GREN'; TYPE='SCKGRN'; END; 920 + IF F9214='J' THEN DO; HANDLING = 'SCK-OR&Y'; TYPE='SCKO_Y'; END; 921 + IF F9214='K' THEN DO; HANDLING = 'SCK-BRWN'; TYPE='SCKBWN'; END; 922 + IF F9214='L' THEN DO; HANDLING = 'SCK-WH#1'; TYPE='SCKWH1'; END; 923 + IF F9214='M' THEN DO; HANDLING = 'SCK-WH#2'; TYPE='SCKWH2'; END; 924 + IF F9214='N' THEN DO; HANDLING = 'SCK-WH#3'; TYPE='SCKWH3'; END; 925 + IF F9214='O' THEN DO; HANDLING = 'SCK-OTHR'; TYPE='SCKOTH'; END; 926 + IF F9214='P' THEN DO; HANDLING = 'SCK-INTL'; TYPE='SCKINT'; END; 927 + 928 + IF F9219='A' THEN HANDLING = 'BMC-OTR '; 929 + IF F9219='B' THEN HANDLING = 'ERMC '; 930 + IF F9219='C' THEN HANDLING = 'GPC/APC/'; 931 + IF F9219='D' THEN HANDLING = 'HAMPER '; 932 + IF F9219='E' THEN HANDLING = 'NUT.TRCK'; 933 + IF F9219='F' THEN HANDLING = 'P-PACK '; 934 + IF F9219='G' THEN HANDLING = 'U-CART '; 935 + IF F9219='H' THEN HANDLING = 'WIRETAIN'; 936 + IF F9219='I' THEN HANDLING = 'NOTIN CN'; 937 + IF F9219='J' THEN HANDLING = 'Z-OTH CN'; 938 + 939 + IF 'A' <= F9214 <= 'P' THEN OUTPUT ITEMS; 940 + 941 + IF 'A' <= F9219 <= 'J' THEN DO; 942 + 943 + F9901 = SUBSTR(F9901,2,3); 119 The SAS System 944 + F9902 = SUBSTR(F9902,2,3); 945 + F9903 = SUBSTR(F9903,2,3); 946 + F9904 = SUBSTR(F9904,2,3); 947 + F9905 = SUBSTR(F9905,2,3); 948 + 949 + TOTPCT = SUM (OF F9901 F9902-F9917 F9420-F9421 F9918-F9919 ); 950 + 951 + IF TOTPCT <=0 THEN OUTPUT PARTIAL; 952 + ELSE IF F9901='***' OR F9902='***' OR F9903='***' OR F9904='***' 953 + OR F9905='***' OR F9906='***' OR F9907='***' OR F9908='***' 954 + OR F9909='***' OR F9910='***' OR F9911='***' OR F9912='***' 955 + OR F9913='***' OR F9914='***' OR F9915='***' OR F9916='***' 956 + OR F9917='***' OR F9918='***' OR F9919='***' 957 + OR F9420='***' OR F9421='***' THEN OUTPUT PARTIAL; 958 + ELSE OUTPUT COUNTED; 959 + END; 960 + *----- CONTENT CATEGORIES FOR ITEMS & CONTAINERS-------; 961 + 962 + * APPORTION COST OF HANDLING A CONTAINER AMONG ITS CONTENTS; 963 + NOTE: Character values have been converted to numeric values at the places given by: (Line):(Column). 949:23 949:34 949:46 949:58 NOTE: Invalid numeric data, F9913='***' , at line 949 column 34. ERROR: Limit set by ERRORS= option reached. Further errors of this type will not be printed. +ERROR: Limit set by ERRORS= option reached. Further errors of this type will not be printed. +ERROR: Limit set by ERRORS= option reached. Further errors of this type will not be printed. F1=1X F2=002015 F9200= F18=6 F27=1 F28= F29= F30= F31= F32=2 F33=F F34=F F35= F36=42 F41=3 F112= F9207=A F114=237 F116= F117= F118= F119=B F120= F121=N F122= F123= F124= F125= F126= F127= F9209= F9419= F128=J F9211= F9212= F9602= F129=A F9213=C F9214= F9215= F9216= F9217= F9218= F9219=A F9220=N F9221=N F9901= F9902=000 F9903=000 F9904=000 F9905=000 F9906=000 F9907=000 F9908=000 F9909=000 F9910=000 F9911=000 F9912=000 F9913=*** F9914=000 F9915=000 F9916=000 F9917=000 F9420=000 F9421=000 F9918=000 F9919=000 F9635= F9606= F136= F9611= F9223= F9612= F9613= F9614= F141= F9615= F9616= F142= F143= F9617= F9618= F9619= F144= F145= F9620= F9621= F9463= F9464= F146= F9623= F147= F148= F149= F150= F151= F152= F153= F154= F9624= F9625= F9626= F9627= F9628= F9629= F9631= F9632= F158= F159= F160= F9633= F9471= F9472= F9227=00 F9228= F216= F217= F218= F219= F221= F222= F223= F227=922 F228=8 F229=K F230=12 F231=2 F232=0331 F244=5745 F245= F246= F247= F248= F249= F257=42 F260=03 F261=1 F262=5700 F263=333333 F264=A F9246=1000 F9250=0005701232 F9252=4 F9253= F9805=5745 F9806=5700 WGT=57.01232 MOD=237 LDC=17 POOL=1SACKS_H REMAP= ACTV=5745 HANDLING=BMC-OTR TYPE= TOTPCT=0 _ERROR_=1 _N_=256 NOTE: The data set WORK.ITEMS has 5621 observations and 155 variables. NOTE: The data set WORK.COUNTED has 7907 observations and 155 variables. NOTE: The data set WORK.PARTIAL has 7323 observations and 155 variables. NOTE: The DATA statement used 0.42 CPU seconds and 4571K. 964 +DATA BUNDLE CONCON TRAY_F TRAY_L TRAY_P PALLET 965 + OTHR_I SCKB_O SCKGRN SCKO_Y SCKBWN SCKWH1 966 + SCKWH2 SCKWH3 SCKOTH SCKINT PC_CRD PC_LTR 967 + PC_FLT PC_IPP PC_PCL; 968 + 969 + SET COUNTED; 970 + WGT1 = WGT; 971 + IF F9901 >0 THEN DO; WGT=WGT1*F9901/TOTPCT; TYPE= 'PC_CRD'; 972 + OUTPUT PC_CRD;END; 973 + IF F9902 >0 THEN DO; WGT=WGT1*F9902/TOTPCT; TYPE= 'PC_LTR'; 974 + OUTPUT PC_LTR;END; 975 + IF F9903 >0 THEN DO; WGT=WGT1*F9903/TOTPCT; TYPE= 'PC_FLT'; 976 + OUTPUT PC_FLT;END; 977 + IF F9904 >0 THEN DO; WGT=WGT1*F9904/TOTPCT; TYPE= 'PC_IPP'; 978 + OUTPUT PC_IPP;END; 979 + IF F9905 >0 THEN DO; WGT=WGT1*F9905/TOTPCT; TYPE= 'PC_PCL'; 980 + OUTPUT PC_PCL;END; 981 + IF F9906 >0 THEN DO; WGT=WGT1*F9906/TOTPCT; TYPE= 'BUNDLE'; 120 The SAS System 982 + OUTPUT BUNDLE;END; 983 + IF F9907 >0 THEN DO; WGT=WGT1*F9907/TOTPCT; TYPE= 'CONCON'; 984 + OUTPUT CONCON;END; 985 + IF F9908 >0 THEN DO; WGT=WGT1*F9908/TOTPCT; TYPE= 'TRAY_F'; 986 + OUTPUT TRAY_F;END; 987 + IF F9909 >0 THEN DO; WGT=WGT1*F9909/TOTPCT; TYPE= 'TRAY_L'; 988 + OUTPUT TRAY_L;END; 989 + IF F9910 >0 THEN DO; WGT=WGT1*F9910/TOTPCT; TYPE= 'TRAY_P'; 990 + OUTPUT TRAY_P;END; 991 + IF F9911 >0 THEN DO; WGT=WGT1*F9911/TOTPCT; TYPE= 'PALLET'; 992 + OUTPUT PALLET;END; 993 + IF F9912 >0 THEN DO; WGT=WGT1*F9912/TOTPCT; TYPE= 'OTHR_I'; 994 + OUTPUT OTHR_I;END; 995 + IF F9913 >0 THEN DO; WGT=WGT1*F9913/TOTPCT; TYPE= 'SCKB_O'; 996 + OUTPUT SCKB_O;END; 997 + IF F9914 >0 THEN DO; WGT=WGT1*F9914/TOTPCT; TYPE= 'SCKGRN'; 998 + OUTPUT SCKGRN;END; 999 + IF F9915 >0 THEN DO; WGT=WGT1*F9915/TOTPCT; TYPE= 'SCKO_Y'; 1000 + OUTPUT SCKO_Y;END; 1001 + IF F9916 >0 THEN DO; WGT=WGT1*F9916/TOTPCT; TYPE= 'SCKBWN'; 1002 + OUTPUT SCKBWN;END; 1003 + IF F9917 >0 THEN DO; WGT=WGT1*F9917/TOTPCT; TYPE= 'SCKWH1'; 1004 + OUTPUT SCKWH1;END; 1005 + IF F9420 >0 THEN DO; WGT=WGT1*F9420/TOTPCT; TYPE= 'SCKWH2'; 1006 + OUTPUT SCKWH2;END; 1007 + IF F9421 >0 THEN DO; WGT=WGT1*F9421/TOTPCT; TYPE= 'SCKWH3'; 1008 + OUTPUT SCKWH3;END; 1009 + IF F9918 >0 THEN DO; WGT=WGT1*F9918/TOTPCT; TYPE= 'SCKOTH'; 1010 + OUTPUT SCKOTH;END; 1011 + IF F9919 >0 THEN DO; WGT=WGT1*F9919/TOTPCT; TYPE= 'SCKINT'; 1012 + OUTPUT SCKINT;END; 1013 + NOTE: Character values have been converted to numeric values at the places given by: (Line):(Column). 971:11 971:38 973:11 973:38 975:11 975:38 977:11 977:38 979:11 979:38 981:11 981:38 983:11 983:38 985:11 985:38 987:11 987:38 989:11 989:38 991:11 991:38 993:11 993:38 995:11 995:38 997:11 997:38 999:11 999:38 1001:11 1001:38 1003:11 1003:38 1005:11 1005:38 1007:11 1007:38 1009:11 1009:38 1011:11 1011:38 NOTE: The data set WORK.BUNDLE has 551 observations and 156 variables. NOTE: The data set WORK.CONCON has 22 observations and 156 variables. NOTE: The data set WORK.TRAY_F has 1477 observations and 156 variables. NOTE: The data set WORK.TRAY_L has 2672 observations and 156 variables. NOTE: The data set WORK.TRAY_P has 134 observations and 156 variables. NOTE: The data set WORK.PALLET has 23 observations and 156 variables. NOTE: The data set WORK.OTHR_I has 84 observations and 156 variables. NOTE: The data set WORK.SCKB_O has 120 observations and 156 variables. NOTE: The data set WORK.SCKGRN has 104 observations and 156 variables. NOTE: The data set WORK.SCKO_Y has 405 observations and 156 variables. NOTE: The data set WORK.SCKBWN has 182 observations and 156 variables. NOTE: The data set WORK.SCKWH1 has 118 observations and 156 variables. NOTE: The data set WORK.SCKWH2 has 141 observations and 156 variables. NOTE: The data set WORK.SCKWH3 has 83 observations and 156 variables. NOTE: The data set WORK.SCKOTH has 51 observations and 156 variables. NOTE: The data set WORK.SCKINT has 176 observations and 156 variables. NOTE: The data set WORK.PC_CRD has 67 observations and 156 variables. NOTE: The data set WORK.PC_LTR has 545 observations and 156 variables. NOTE: The data set WORK.PC_FLT has 804 observations and 156 variables. NOTE: The data set WORK.PC_IPP has 608 observations and 156 variables. 121 The SAS System NOTE: The data set WORK.PC_PCL has 1400 observations and 156 variables. NOTE: The DATA statement used 0.25 CPU seconds and 6807K. 1014 +DATA CONTCONT; 1015 + SET BUNDLE CONCON TRAY_F TRAY_L TRAY_P PALLET 1016 + OTHR_I SCKB_O SCKGRN SCKO_Y SCKBWN SCKWH1 1017 + SCKWH2 SCKWH3 SCKOTH SCKINT PC_CRD PC_LTR 1018 + PC_FLT PC_IPP PC_PCL; 1019 + 1020 + NOTE: %INCLUDE (level 1) ending. 1021 00420002 1022 00430007 NOTE: The data set WORK.CONTCONT has 9767 observations and 156 variables. NOTE: The DATA statement used 0.18 CPU seconds and 6807K. 1022 DATA OUT1.DIRECT; 00430007 1023 SET DIRECT; 00440007 1024 00450007 1025 00460007 NOTE: The data set OUT1.DIRECT has 69459 observations and 152 variables. NOTE: The DATA statement used 0.25 CPU seconds and 6807K. 1025 DATA OUT1.MODKEY; 00460007 1026 SET MODKEYS ; 00470007 1027 00530002 1028 00540007 NOTE: The data set OUT1.MODKEY has 4758 observations and 10 variables. NOTE: The DATA statement used 0.02 CPU seconds and 6807K. 1028 DATA OUT1.ITEMPC; 00540007 1029 SET ITEMS CONTCONT; 00550007 1030 00600002 1031 00610007 NOTE: The data set OUT1.ITEMPC has 15388 observations and 156 variables. NOTE: The DATA statement used 0.07 CPU seconds and 6807K. 1031 DATA OUT1.CONTEMP; 00610007 1032 SET PARTIAL ; 00620007 1033 00680002 1034 00001099 1035 *********************************************************************; 00002099 1036 00003099 1037 OPTIONS ERRORS=1 nodate; 00010093 1038 *PROGRAM NONMOD1 -USPS VERSION; *BY98; 00020093 1039 *ESTABLISH COST POOLS, DISTRIBUTING AND DISTRIBUTED SETS ; 00030097 1040 00031099 1041 *********************************************************************; 00032099 1042 00040093 1043 OPTIONS ERRORS=1 NODATE; 00050093 1044 00060093 1045 00070093 NOTE: The data set OUT1.CONTEMP has 7323 observations and 155 variables. 122 The SAS System NOTE: The DATA statement used 0.04 CPU seconds and 6807K. 1045 DATA MAILP ADW.NMOD ; 00070093 1046 SET NMOD.NMOD 00080093 1047 ; 00090093 1048 00100093 1049 ROSTER = F257; 00110093 1050 actv = F9806; 00120093 1051 FACTOR = (4377100103-4308908)/4116165770 ; 00130093 1052 00140093 1053 * .. establish mail processing operations based on iocs; 00150093 1054 00160093 1055 IF '00'<=F260<='08' 00170093 1056 OR '11'<=F260<='16' 00180093 1057 OR '18'<=F260<='23' 00190093 1058 OR '27'<=F260<='29' THEN DO; 00200093 1059 00210093 1060 * .. establish cost pools based on q.19 and q.18; 00220093 1061 00230093 1062 IF F9806='6521' THEN POOL ='Z BREAKS '; 00240093 1063 ELSE IF F128='A' THEN DO; 00250093 1064 IF F9211='A' THEN POOL='MANL '; 00260093 1065 ELSE IF F9211='B' THEN POOL='MANF '; 00270093 1066 ELSE IF F9211='C' THEN POOL='MANP '; 00280093 1067 ELSE POOL='ALLIED '; 00290093 1068 END; 00300093 1069 ELSE IF 'B'<=F128<='F' THEN POOL='AUTO/MEC'; 00310093 1070 ELSE IF 'G'<=F128<='I' THEN POOL='ALLIED '; 00320093 1071 ELSE IF 'J'<=F128<='M' THEN POOL='AUTO/MEC'; 00330093 1072 ELSE IF 'N'<=F128<='R' THEN POOL='ALLIED '; 00340093 1073 ELSE IF F128 ='S' THEN POOL='AUTO/MEC'; 00350093 1074 ELSE IF 'T'<=F128<='U' THEN POOL='ALLIED '; 00360093 1075 ELSE IF 'A'<=F116<='H' OR 'A'<=F118<='K' OR F121='Y' 00370093 1076 THEN POOL='ALLIED '; 00380093 1077 ELSE IF F260='18' THEN POOL='REGISTRY'; 00390093 1078 ELSE IF F260='22' THEN POOL='EXPRESS '; 00400093 1079 ELSE POOL='MISC '; 00410093 1080 00420093 1081 *............encirclement and metered mail.................; 00430096 1082 00440093 1083 IF POOL EQ 'REGISTRY' OR POOL EQ 'MISC' THEN ACTV=F9806; 00450093 1084 ELSE ACTV=F9805; 00460093 1085 IF POOL EQ 'REGISTRY' AND ACTV NE '0060' THEN ACTV=F9805; 00470093 1086 IF ACTV='0060' THEN DO; 00480093 1087 IF SUBSTR(F9805,2,3)='510' AND '1000'<=F9805<='4950' 00490093 1088 THEN ACTV=F9805; 00500093 1089 ELSE IF SUBSTR(F9805,2,1)='8' AND '1000'<=F9805<='4950' 00510093 1090 THEN ACTV=F9805; 00520093 1091 ELSE IF '545'<=sUBSTR(F9805,1,3)<='548' THEN ACTV=F9805; 00530093 1092 ELSE ACTV='0060'; 00540093 1093 END; 00550093 1094 END; 00560093 1095 00570093 1096 IF ACTV='1060' AND F136='D' THEN ACTV='1068'; 00580093 1097 IF ACTV='2060' AND F136='D' THEN ACTV='2068'; 00590093 1098 IF ACTV='3060' AND F136='D' THEN ACTV='3068'; 00600093 1099 IF ACTV='4060' AND F136='D' THEN ACTV='4068'; 00610093 1100 00620093 123 The SAS System 1101 IF POOL = ' ' THEN POOL = F260; 00630093 1102 if actv = '6522' then pool = '6522'; 00640093 1103 00650093 1104 IF POOL > '0' THEN OUTPUT ADW.NMOD ; 00660093 1105 ELSE OUTPUT MAILP ; 00670093 1106 00680093 1107 *.......Cost Pools , based on $Tallies and Cost Pool$.............; 00700093 1108 00710093 1109 00720093 NOTE: The data set WORK.MAILP has 20169 observations and 151 variables. NOTE: The data set ADW.NMOD has 14334 observations and 151 variables. NOTE: The DATA statement used 0.18 CPU seconds and 6807K. 1109 DATA COSTPOOL; 00720093 1110 set ADW.NMOD mailp; 00730093 1111 DOL =WGT*FACTOR; 00740093 1112 IF F260='09' OR '24'<=F260<='26' THEN DOL =WGT*(1295836+4309)/1219787; 00750093 1113 00760093 NOTE: Missing values were generated as a result of performing an operation on missing values. Each place is given by: (Number of times) at (Line):(Column). 8 at 1111:14 NOTE: The data set WORK.COSTPOOL has 34503 observations and 152 variables. NOTE: The DATA statement used 0.15 CPU seconds and 6807K. 1113 PROC FREQ; 00760093 1114 TABLES POOL; 00770093 1115 WEIGHT WGT; 00780093 1116 TITLE1 ' '; 00790093 1117 TITLE2 ' '; 00800093 1118 TITLE3 ' '; 00810093 1119 TITLE4 'TABLE I - 4A'; 00820093 1120 TITLE5 'TOTAL NONMODS IOCS DOLLAR WEIGHTS BY MAIL PROC. POOLS AND'; 00830098 1121 TITLE6 'BY IOCS OPERATION CODES FOR NON-MAIL PROC. TALLIES.'; 00840098 1122 TITLE7 'MAIL PROC. POOLS DO NOT INCLUDE DISTRIBUTED BREAK TIME WHICH'; 00850098 1123 TITLE8 'IS LISTED AS A SEPARATE POOL (I.E. Z BREAKS).'; 00860098 1124 FOOTNOTE 'BY 98 USPS VERSION - NONMODS'; 00870093 1125 00880093 NOTE: The PROCEDURE FREQ printed page 1. NOTE: The PROCEDURE FREQ used 0.09 CPU seconds and 7162K. 1125 PROC FREQ; 00880093 1126 TABLES POOL; 00890093 1127 WEIGHT DOL; 00900093 1128 TITLE1 ' '; 00910093 1129 TITLE2 ' '; 00920093 1130 TITLE3 ' '; 00930093 1131 TITLE4 'TABLE I - 4B'; 00931098 1132 TITLE5 'TOTAL NONMODS POOL COSTS BY MAIL PROC. POOLS AND'; 00932098 1133 TITLE6 'BY IOCS OPERATION CODES FOR NON-MAIL PROC. TALLIES.'; 00933098 1134 TITLE7 'MAIL PROC. POOLS DO NOT INCLUDE DISTRIBUTED BREAK TIME COST'; 00934098 1135 TITLE8 'WHCIH IS LISTED AS A SEPARATE POOL (I.E. Z BREAKS).'; 00935098 1136 00990093 1137 01000093 NOTE: The PROCEDURE FREQ printed page 2. 124 The SAS System NOTE: The PROCEDURE FREQ used 0.08 CPU seconds and 7162K. 1137 DATA BKPOOLS; 01000093 1138 SET MAILP; 01010093 1139 OVHFAC = 2364584/2150328; *used to distribute break time; 01020093 1140 DOL=WGT*FACTOR*OVHFAC; 01030093 1141 IF POOL='Z BREAKS' THEN DELETE; 01040093 1142 01050093 NOTE: Missing values were generated as a result of performing an operation on missing values. Each place is given by: (Number of times) at (Line):(Column). 8 at 1140:11 8 at 1140:18 NOTE: The data set WORK.BKPOOLS has 18117 observations and 153 variables. NOTE: The DATA statement used 0.08 CPU seconds and 7162K. 1142 PROC FREQ; 01050093 1143 TABLES POOL; 01060093 1144 WEIGHT DOL; 01070093 1145 TITLE1 ' '; 01080093 1146 TITLE2 ' '; 01090093 1147 TITLE3 ' '; 01100093 1148 TITLE4 'TABLE I - 4 '; 01110098 1149 TITLE5 'BY 98 NON-MODS MAIL PROCESSING POOL COSTS'; 01120098 1150 TITLE6 '(AFTER DISTRIBUTED BREAKS)'; 01130093 1151 01140093 1152 *.....................................; 01150093 1153 * ---- construct distributing and distributed sets --------; 01160093 1154 01170093 1155 01180093 NOTE: The PROCEDURE FREQ printed page 3. NOTE: The PROCEDURE FREQ used 0.04 CPU seconds and 7162K. 1155 DATA DIRECT MIXED OUT2.NOTHAND ; 01180093 1156 SET MAILP ; 01190093 1157 COSTPOOL="NONMODS "||POOL; 01200093 1158 IF '1000'<=ACTV<='4950' OR '5300'<=ACTV<='5464' 01210093 1159 THEN OUTPUT DIRECT ; 01220093 1160 ELSE IF '0010'<=ACTV< '1000' THEN DO; 01230093 1161 IF '1000'<=F9805<='4950' 01240093 1162 OR '53'<=SUBSTR(F9805,1,2)<='54' THEN OUTPUT DIRECT; 01250093 1163 ELSE IF 'A'<=F9635<='K' THEN OUTPUT DIRECT; 01260093 1164 ELSE IF 'A'<=F9214<='P' OR 'A'<=F9219<='J' THEN OUTPUT MIXED; 01270093 1165 ELSE OUTPUT OUT2.NOTHAND; 01280093 1166 END; 01290093 1167 01300093 1168 ELSE IF POOL='Z BREAKS' THEN OUTPUT OUT2.NOTHAND ; 01310093 1169 ELSE IF 'A'<=F9214<='P' OR 'A'<=F9219<='J' THEN OUTPUT MIXED ; 01320093 1170 ELSE OUTPUT OUT2.NOTHAND; 01330095 1171 01340093 1172 *...................................................; 01350093 1173 01360093 1174 %INCLUDE 'xxxxxx.xxxxxxxx.xxxxxxx(MAPITEMC)' /SOURCE2; 01370093 NOTE: %INCLUDE (level 1) file xxxxxx.xxxxxxxx.xxxxxxx(MAPITEMC) is file xxxxxx.xxxxxxxx.xxxxxxx(MAPITEMC). 1175 + 00010024 1176 + OPTIONS ERRORS=1; 00020024 1177 + 00030024 1178 + 00040024 125 The SAS System NOTE: The data set WORK.DIRECT has 11912 observations and 152 variables. NOTE: The data set WORK.MIXED has 1801 observations and 152 variables. NOTE: The data set OUT2.NOTHAND has 6456 observations and 152 variables. NOTE: The DATA statement used 0.14 CPU seconds and 7162K. 1178 + DATA MPKEYS; 00040024 1179 + SET DIRECT ; 00050024 1180 + 00060024 1181 + * ------- CONSTRUCT DISTRIBUTION KEYS ---- ; 00070024 1182 + 00080024 1183 +*.........................Piece Shapes..............................; 00090024 1184 + 00100024 1185 + IF SUBSTR(ACTV,1,1)='1' 00110024 1186 + or actv='5431' or actv='5441' or actv='5451' or actv='5461' 00120024 1187 + THEN DO; 00130024 1188 + IF 'B'<=F9635<='C' OR F9635='K' THEN HANDLING = ' PC_CRD'; 00140024 1189 + ELSE HANDLING = ' PC_LTR'; 00150024 1190 + END; 00160024 1191 + IF SUBSTR(ACTV,1,1)='2' THEN HANDLING = ' PC_FLT'; 00170024 1192 + IF SUBSTR(ACTV,1,1)='3' THEN HANDLING = ' PC_IPP'; 00180024 1193 + IF SUBSTR(ACTV,1,1)='4' THEN HANDLING = ' PC_PCL'; 00190024 1194 + 00200024 1195 +* .........shapes for international mixed mail......................; 00210024 1196 + 00220024 1197 + IF ACTV='5432' OR ACTV='5442' OR ACTV='5452' OR ACTV='5462' 00230024 1198 + THEN HANDLING = ' PC_FLT'; 00240024 1199 + IF ACTV='5433' OR ACTV='5443' OR ACTV='5453' OR ACTV='5463' 00250024 1200 + THEN HANDLING = ' PC_IPP'; 00260024 1201 + IF ACTV='5434' OR ACTV='5444' OR ACTV='5454' OR ACTV='5464' 00270024 1202 + THEN HANDLING = ' PC_PCL'; 00280024 1203 + 00290024 1204 +* ........shapes for special services & mixed mail 5340,5460.........; 00300024 1205 + 00310024 1206 + IF ACTV='5340' OR ACTV='5460' THEN DO; 00320024 1207 + 00330024 1208 + IF 'B'<=F9635<='C' OR F9635='K' THEN HANDLING = ' PC_CRD'; 00340024 1209 + IF F9635='A' THEN HANDLING = ' PC_LTR'; 00350024 1210 + IF 'D'<=F9635<='E' THEN HANDLING = ' PC_FLT'; 00360024 1211 + IF 'F'<=F9635<='G' OR F9635='J' THEN HANDLING = ' PC_IPP'; 00370024 1212 + IF 'H'<=F9635<='I' THEN HANDLING = ' PC_PCL'; 00380024 1213 + END; 00390024 1214 + 00400024 1215 + IF '0010'<=ACTV<'1000' THEN DO; 00410024 1216 + IF SUBSTR(F9805,1,1)='1' 00420024 1217 + AND ('B'<=F9635<='C' OR F9635='K') THEN HANDLING = ' PC_CRD'; 00430024 1218 + ELSE IF SUBSTR(F9805,1,1)='1' THEN HANDLING = ' PC_LTR'; 00440024 1219 + ELSE IF SUBSTR(F9805,1,1)='2' THEN HANDLING = ' PC_FLT'; 00450024 1220 + ELSE IF SUBSTR(F9805,1,1)='3' THEN HANDLING = ' PC_IPP'; 00460024 1221 + ELSE IF SUBSTR(F9805,1,1)='4' THEN HANDLING = ' PC_PCL'; 00470024 1222 + 00480024 1223 + ELSE IF SUBSTR(F9805,1,2)='54' AND '1'<=SUBSTR(F9805,4,1)<='4' 00490024 1224 + THEN DO; 00500024 1225 + IF SUBSTR(F9805,4,1)='1' 00510024 1226 + AND ('B'<=F9635<='C' OR F9635='K') THEN HANDLING = ' PC_CRD'; 00520024 1227 + ELSE IF SUBSTR(F9805,4,1)='1' THEN HANDLING = ' PC_LTR'; 00530024 1228 + ELSE IF SUBSTR(F9805,4,1)='2' THEN HANDLING = ' PC_FLT'; 00540024 1229 + ELSE IF SUBSTR(F9805,4,1)='3' THEN HANDLING = ' PC_IPP'; 00550024 126 The SAS System 1230 + ELSE IF SUBSTR(F9805,4,1)='4' THEN HANDLING = ' PC_PCL'; 00560024 1231 + END; 00570024 1232 + 00580024 1233 + ELSE IF F9805='5340' OR F9805='5460' THEN DO; 00590024 1234 + IF 'B'<=F9635<='C' OR F9635='K' THEN HANDLING = ' PC_CRD'; 00600024 1235 + IF F9635='A' THEN HANDLING = ' PC_LTR'; 00610024 1236 + IF 'D'<=F9635<='E' THEN HANDLING = ' PC_FLT'; 00620024 1237 + IF 'F'<=F9635<='G' OR F9635='J' THEN HANDLING = ' PC_IPP'; 00630024 1238 + IF 'H'<=F9635<='I' THEN HANDLING = ' PC_PCL'; 00640024 1239 + END; 00650024 1240 + ELSE DO; *INCL DETACHED FORMS nomail; 00660024 1241 + IF 'B'<=F9635<='C' OR F9635='K' THEN HANDLING = ' PC_CRD'; 00670024 1242 + IF F9635='A' THEN HANDLING = ' PC_LTR'; 00680024 1243 + IF 'D'<=F9635<='E' THEN HANDLING = ' PC_FLT'; 00690024 1244 + IF 'F'<=F9635<='G' OR F9635='J' THEN HANDLING = ' PC_IPP'; 00700024 1245 + IF 'H'<=F9635<='I' THEN HANDLING = ' PC_PCL'; 00710024 1246 + END; 00720024 1247 + 00730024 1248 + END; 00740024 1249 + 00750024 1250 + IF HANDLING = ' PC_CRD' THEN TYPE= 'PC_CRD'; 00760024 1251 + IF HANDLING = ' PC_LTR' THEN TYPE= 'PC_LTR'; 00770024 1252 + IF HANDLING = ' PC_FLT' THEN TYPE= 'PC_FLT'; 00780024 1253 + IF HANDLING = ' PC_IPP' THEN TYPE= 'PC_IPP'; 00790024 1254 + IF HANDLING = ' PC_PCL' THEN TYPE= 'PC_PCL'; 00800024 1255 + 00810024 1256 +*..................Direct Items and Containers......................; 00820024 1257 + 00830024 1258 + IF F9214='A' THEN DO; HANDLING = ' BUNDLE '; TYPE='BUNDLE'; END; 00840024 1259 + IF F9214='B' THEN DO; HANDLING = ' CON-CON'; TYPE='CONCON'; END; 00850024 1260 + IF F9214='C' THEN DO; HANDLING = ' TRAY-FT'; TYPE='TRAY_F'; END; 00860024 1261 + IF F9214='D' THEN DO; HANDLING = ' TRAY-LT'; TYPE='TRAY_L'; END; 00870024 1262 + IF F9214='E' THEN DO; HANDLING = ' TRAY-P.'; TYPE='TRAY_P'; END; 00880024 1263 + IF F9214='F' THEN DO; HANDLING = ' PALLET '; TYPE='PALLET'; END; 00890024 1264 + IF F9214='G' THEN DO; HANDLING = ' OTHITEM'; TYPE='OTHR_I'; END; 00900024 1265 + IF F9214='H' THEN DO; HANDLING = 'SCK-BL&O'; TYPE='SCKB_O'; END; 00910024 1266 + IF F9214='I' THEN DO; HANDLING = 'SCK-GREN'; TYPE='SCKGRN'; END; 00920024 1267 + IF F9214='J' THEN DO; HANDLING = 'SCK-OR&Y'; TYPE='SCKO_Y'; END; 00930024 1268 + IF F9214='K' THEN DO; HANDLING = 'SCK-BRWN'; TYPE='SCKBWN'; END; 00940024 1269 + IF F9214='L' THEN DO; HANDLING = 'SCK-WH#1'; TYPE='SCKWH1'; END; 00950024 1270 + IF F9214='M' THEN DO; HANDLING = 'SCK-WH#2'; TYPE='SCKWH2'; END; 00960024 1271 + IF F9214='N' THEN DO; HANDLING = 'SCK-WH#3'; TYPE='SCKWH3'; END; 00970024 1272 + IF F9214='O' THEN DO; HANDLING = 'SCK-OTHR'; TYPE='SCKOTH'; END; 00980024 1273 + IF F9214='P' THEN DO; HANDLING = 'SCK-INTL'; TYPE='SCKINT'; END; 00990024 1274 + IF F9219='A' then do; HANDLING = 'BMC-OTR '; type=' '; end; 01000024 1275 + IF F9219='B' then do; HANDLING = 'ERMC '; type=' '; end; 01010024 1276 + IF F9219='C' then do; HANDLING = 'GPC/APC/'; type=' '; end; 01020024 1277 + IF F9219='D' then do; HANDLING = 'HAMPER '; type=' '; end; 01030024 1278 + IF F9219='E' then do; HANDLING = 'NUT.TRCK'; type=' '; end; 01040024 1279 + IF F9219='F' then do; HANDLING = 'P-PACK '; type=' '; end; 01050024 1280 + IF F9219='G' then do; HANDLING = 'U-CART '; type=' '; end; 01060024 1281 + IF F9219='H' then do; HANDLING = 'WIRETAIN'; type=' '; end; 01070024 1282 + IF F9219='I' then do; HANDLING = 'NOTIN CN'; type=' '; end; 01080024 1283 + IF F9219='J' then do; HANDLING = 'Z-OTH CN'; type=' '; end; 01090024 1284 + 01100024 NOTE: The data set WORK.MPKEYS has 11912 observations and 154 variables. NOTE: The DATA statement used 0.14 CPU seconds and 7162K. 127 The SAS System 1285 +PROC SORT; 01110024 1286 + BY POOL HANDLING ACTV; 01120024 1287 + 01130024 NOTE: WER750I End PROC SYNCSORT. R2.1B NOTE: The data set WORK.MPKEYS has 11912 observations and 154 variables. NOTE: The PROCEDURE SORT used 0.12 CPU seconds and 7198K. 1288 +PROC MEANS NOPRINT; 01140024 1289 + BY POOL HANDLING ACTV; 01150024 1290 + ID TYPE F9214 F9219; 01160024 1291 + VAR WGT; 01170024 1292 + OUTPUT OUT=MODKEY1 SUM=KEY; 01180024 1293 + 01190024 NOTE: The data set WORK.MODKEY1 has 767 observations and 9 variables. NOTE: The PROCEDURE MEANS used 0.06 CPU seconds and 7162K. 1294 +PROC MEANS NOPRINT; 01200024 1295 + BY POOL HANDLING; 01210024 1296 + VAR KEY; 01220024 1297 + OUTPUT OUT=MODKEY2 SUM=KEYTOT; 01230024 1298 + 01240024 NOTE: The data set WORK.MODKEY2 has 104 observations and 5 variables. NOTE: The PROCEDURE MEANS used 0.01 CPU seconds and 7162K. 1299 +DATA MODKEYS ; 01250024 1300 + MERGE modKEY1(IN=ITT) modKEY2(IN=TT); 01260024 1301 + BY POOL handling; 01270024 1302 + 01280024 1303 +*...separate items and identified containers from unidenfied/empty....; 01290024 1304 + 01300024 NOTE: The data set WORK.MODKEYS has 767 observations and 10 variables. NOTE: The DATA statement used 0.01 CPU seconds and 7162K. 1305 +DATA ITEMS COUNTED PARTIAL; 01310024 1306 + SET MIXED; 01320024 1307 + 01330024 1308 + IF F9214='A' THEN DO; HANDLING = ' BUNDLE '; TYPE='BUNDLE'; END; 01340024 1309 + IF F9214='B' THEN DO; HANDLING = ' CON-CON'; TYPE='CONCON'; END; 01350024 1310 + IF F9214='C' THEN DO; HANDLING = ' TRAY-FT'; TYPE='TRAY_F'; END; 01360024 1311 + IF F9214='D' THEN DO; HANDLING = ' TRAY-LT'; TYPE='TRAY_L'; END; 01370024 1312 + IF F9214='E' THEN DO; HANDLING = ' TRAY-P.'; TYPE='TRAY_P'; END; 01380024 1313 + IF F9214='F' THEN DO; HANDLING = ' PALLET '; TYPE='PALLET'; END; 01390024 1314 + IF F9214='G' THEN DO; HANDLING = ' OTHITEM'; TYPE='OTHR_I'; END; 01400024 1315 + IF F9214='H' THEN DO; HANDLING = 'SCK-BL&O'; TYPE='SCKB_O'; END; 01410024 1316 + IF F9214='I' THEN DO; HANDLING = 'SCK-GREN'; TYPE='SCKGRN'; END; 01420024 1317 + IF F9214='J' THEN DO; HANDLING = 'SCK-OR&Y'; TYPE='SCKO_Y'; END; 01430024 1318 + IF F9214='K' THEN DO; HANDLING = 'SCK-BRWN'; TYPE='SCKBWN'; END; 01440024 1319 + IF F9214='L' THEN DO; HANDLING = 'SCK-WH#1'; TYPE='SCKWH1'; END; 01450024 1320 + IF F9214='M' THEN DO; HANDLING = 'SCK-WH#2'; TYPE='SCKWH2'; END; 01460024 1321 + IF F9214='N' THEN DO; HANDLING = 'SCK-WH#3'; TYPE='SCKWH3'; END; 01470024 1322 + IF F9214='O' THEN DO; HANDLING = 'SCK-OTHR'; TYPE='SCKOTH'; END; 01480024 1323 + IF F9214='P' THEN DO; HANDLING = 'SCK-INTL'; TYPE='SCKINT'; END; 01490024 1324 + 01500024 128 The SAS System 1325 + IF F9219='A' THEN HANDLING = 'BMC-OTR '; 01510024 1326 + IF F9219='B' THEN HANDLING = 'ERMC '; 01520024 1327 + IF F9219='C' THEN HANDLING = 'GPC/APC/'; 01530024 1328 + IF F9219='D' THEN HANDLING = 'HAMPER '; 01540024 1329 + IF F9219='E' THEN HANDLING = 'NUT.TRCK'; 01550024 1330 + IF F9219='F' THEN HANDLING = 'P-PACK '; 01560024 1331 + IF F9219='G' THEN HANDLING = 'U-CART '; 01570024 1332 + IF F9219='H' THEN HANDLING = 'WIRETAIN'; 01580024 1333 + IF F9219='I' THEN HANDLING = 'NOTIN CN'; 01590024 1334 + IF F9219='J' THEN HANDLING = 'Z-OTH CN'; 01600024 1335 + 01610024 1336 + IF 'A' <= F9214 <= 'P' THEN OUTPUT ITEMS; 01620024 1337 + 01630024 1338 + IF 'A' <= F9219 <= 'J' THEN DO; 01640024 1339 + 01650024 1340 + F9901 = SUBSTR(F9901,2,3); 01660024 1341 + F9902 = SUBSTR(F9902,2,3); 01670024 1342 + F9903 = SUBSTR(F9903,2,3); 01680024 1343 + F9904 = SUBSTR(F9904,2,3); 01690024 1344 + F9905 = SUBSTR(F9905,2,3); 01700024 1345 + 01710024 1346 + TOTPCT = SUM (OF F9901 F9902-F9917 F9420-F9421 F9918-F9919 ); 01720024 1347 + 01730024 1348 + IF TOTPCT <=0 THEN OUTPUT PARTIAL; 01740024 1349 + ELSE IF F9901='***' OR F9902='***' OR F9903='***' OR F9904='***' 01750024 1350 + OR F9905='***' OR F9906='***' OR F9907='***' OR F9908='***' 01760024 1351 + OR F9909='***' OR F9910='***' OR F9911='***' OR F9912='***' 01770024 1352 + OR F9913='***' OR F9914='***' OR F9915='***' OR F9916='***' 01780024 1353 + OR F9917='***' OR F9918='***' OR F9919='***' 01790024 1354 + OR F9420='***' OR F9421='***' THEN OUTPUT PARTIAL; 01800024 1355 + ELSE OUTPUT COUNTED; 01810024 1356 + END; 01820024 1357 + 01830024 1358 +*...apportion tally $ wgt of handling a container among its contents..; 01840024 1359 + 01850024 NOTE: Character values have been converted to numeric values at the places given by: (Line):(Column). 1346:23 1346:34 1346:46 1346:58 NOTE: Invalid numeric data, F9905='***' , at line 1346 column 34. NOTE: Invalid numeric data, F9908='***' , at line 1346 column 34. NOTE: Invalid numeric data, F9915='***' , at line 1346 column 34. ERROR: Limit set by ERRORS= option reached. Further errors of this type will not be printed. +ERROR: Limit set by ERRORS= option reached. Further errors of this type will not be printed. +ERROR: Limit set by ERRORS= option reached. Further errors of this type will not be printed. F1=4X F2=054329 F9200= F18=6 F27= F28= F29= F30= F31= F32=2 F33=F F34=F F35= F36=41 F41=3 F112= F9207=A F114=742 F116= F117= F118= F119=A F120= F121=Y F122=J F123= F124= F125= F126= F127= F9209= F9419= F128=A F9211=H F9212= F9602=D F129=A F9213=C F9214= F9215= F9216= F9217= F9218= F9219=D F9220=N F9221=N F9901= F9902=000 F9903=000 F9904=000 F9905=*** F9906=000 F9907=000 F9908=*** F9909=000 F9910=000 F9911=000 F9912=000 F9913=000 F9914=000 F9915=*** F9916=000 F9917=000 F9420=000 F9421=000 F9918=000 F9919=000 F9635= F9606= F136= F9611= F9223= F9612= F9613= F9614= F141= F9615= F9616= F142= F143= F9617= F9618= F9619= F144= F145= F9620= F9621= F9463= F9464= F146= F9623= F147= F148= F149= F150= F151= F152= F153= F154= F9624= F9625= F9626= F9627= F9628= F9629= F9631= F9632= F158= F159= F160= F9633= F9471= F9472= F9227=00 F9228= F216= F217= F218= F219= F221= F222= F223= F227=820 F228=7 F229=K F230=21 F231=1 F232=0315 F244=5745 F245= F246= F247= F248= F249= F257=41 F260=02 F261=1 F262=5750 F263=777777 F264=D F9246=2167 F9250=0024407879 F9252=3 F9253= F9805=5745 F9806=5750 WGT=244.07879 ROSTER=41 ACTV=5745 FACTOR=1.0623457459 POOL=ALLIED COSTPOOL=NONMODS ALLIED HANDLING=HAMPER TYPE= TOTPCT=0 _ERROR_=1 _N_=69 NOTE: The data set WORK.ITEMS has 397 observations and 155 variables. NOTE: The data set WORK.COUNTED has 639 observations and 155 variables. NOTE: The data set WORK.PARTIAL has 765 observations and 155 variables. NOTE: The DATA statement used 0.07 CPU seconds and 7162K. 129 The SAS System 1360 +DATA BUNDLE CONCON TRAY_F TRAY_L TRAY_P PALLET 01860024 1361 + OTHR_I SCKB_O SCKGRN SCKO_Y SCKBWN SCKWH1 01870024 1362 + SCKWH2 SCKWH3 SCKOTH SCKINT PC_CRD PC_LTR 01880024 1363 + PC_FLT PC_IPP PC_PCL; 01890024 1364 + 01900024 1365 + SET COUNTED; 01910024 1366 + WGT1 = WGT; 01920024 1367 + IF F9901 >0 THEN DO; WGT=WGT1*F9901/TOTPCT; TYPE= 'PC_CRD'; 01930024 1368 + OUTPUT PC_CRD;END; 01940024 1369 + IF F9902 >0 THEN DO; WGT=WGT1*F9902/TOTPCT; TYPE= 'PC_LTR'; 01950024 1370 + OUTPUT PC_LTR;END; 01960024 1371 + IF F9903 >0 THEN DO; WGT=WGT1*F9903/TOTPCT; TYPE= 'PC_FLT'; 01970024 1372 + OUTPUT PC_FLT;END; 01980024 1373 + IF F9904 >0 THEN DO; WGT=WGT1*F9904/TOTPCT; TYPE= 'PC_IPP'; 01990024 1374 + OUTPUT PC_IPP;END; 02000024 1375 + IF F9905 >0 THEN DO; WGT=WGT1*F9905/TOTPCT; TYPE= 'PC_PCL'; 02010024 1376 + OUTPUT PC_PCL;END; 02020024 1377 + IF F9906 >0 THEN DO; WGT=WGT1*F9906/TOTPCT; TYPE= 'BUNDLE'; 02030024 1378 + OUTPUT BUNDLE;END; 02040024 1379 + IF F9907 >0 THEN DO; WGT=WGT1*F9907/TOTPCT; TYPE= 'CONCON'; 02050024 1380 + OUTPUT CONCON;END; 02060024 1381 + IF F9908 >0 THEN DO; WGT=WGT1*F9908/TOTPCT; TYPE= 'TRAY_F'; 02070024 1382 + OUTPUT TRAY_F;END; 02080024 1383 + IF F9909 >0 THEN DO; WGT=WGT1*F9909/TOTPCT; TYPE= 'TRAY_L'; 02090024 1384 + OUTPUT TRAY_L;END; 02100024 1385 + IF F9910 >0 THEN DO; WGT=WGT1*F9910/TOTPCT; TYPE= 'TRAY_P'; 02110024 1386 + OUTPUT TRAY_P;END; 02120024 1387 + IF F9911 >0 THEN DO; WGT=WGT1*F9911/TOTPCT; TYPE= 'PALLET'; 02130024 1388 + OUTPUT PALLET;END; 02140024 1389 + IF F9912 >0 THEN DO; WGT=WGT1*F9912/TOTPCT; TYPE= 'OTHR_I'; 02150024 1390 + OUTPUT OTHR_I;END; 02160024 1391 + IF F9913 >0 THEN DO; WGT=WGT1*F9913/TOTPCT; TYPE= 'SCKB_O'; 02170024 1392 + OUTPUT SCKB_O;END; 02180024 1393 + IF F9914 >0 THEN DO; WGT=WGT1*F9914/TOTPCT; TYPE= 'SCKGRN'; 02190024 1394 + OUTPUT SCKGRN;END; 02200024 1395 + IF F9915 >0 THEN DO; WGT=WGT1*F9915/TOTPCT; TYPE= 'SCKO_Y'; 02210024 1396 + OUTPUT SCKO_Y;END; 02220024 1397 + IF F9916 >0 THEN DO; WGT=WGT1*F9916/TOTPCT; TYPE= 'SCKBWN'; 02230024 1398 + OUTPUT SCKBWN;END; 02240024 1399 + IF F9917 >0 THEN DO; WGT=WGT1*F9917/TOTPCT; TYPE= 'SCKWH1'; 02250024 1400 + OUTPUT SCKWH1;END; 02260024 1401 + IF F9420 >0 THEN DO; WGT=WGT1*F9420/TOTPCT; TYPE= 'SCKWH2'; 02270024 1402 + OUTPUT SCKWH2;END; 02280024 1403 + IF F9421 >0 THEN DO; WGT=WGT1*F9421/TOTPCT; TYPE= 'SCKWH3'; 02290024 1404 + OUTPUT SCKWH3;END; 02300024 1405 + IF F9918 >0 THEN DO; WGT=WGT1*F9918/TOTPCT; TYPE= 'SCKOTH'; 02310024 1406 + OUTPUT SCKOTH;END; 02320024 1407 + IF F9919 >0 THEN DO; WGT=WGT1*F9919/TOTPCT; TYPE= 'SCKINT'; 02330024 1408 + OUTPUT SCKINT;END; 02340024 1409 + 02350024 NOTE: Character values have been converted to numeric values at the places given by: (Line):(Column). 1367:11 1367:38 1369:11 1369:38 1371:11 1371:38 1373:11 1373:38 1375:11 1375:38 1377:11 1377:38 1379:11 1379:38 1381:11 1381:38 1383:11 1383:38 1385:11 1385:38 1387:11 1387:38 1389:11 1389:38 1391:11 1391:38 1393:11 1393:38 1395:11 1395:38 1397:11 1397:38 1399:11 1399:38 1401:11 1401:38 1403:11 1403:38 1405:11 1405:38 1407:11 1407:38 NOTE: The data set WORK.BUNDLE has 55 observations and 156 variables. NOTE: The data set WORK.CONCON has 1 observations and 156 variables. 130 The SAS System NOTE: The data set WORK.TRAY_F has 116 observations and 156 variables. NOTE: The data set WORK.TRAY_L has 137 observations and 156 variables. NOTE: The data set WORK.TRAY_P has 17 observations and 156 variables. NOTE: The data set WORK.PALLET has 2 observations and 156 variables. NOTE: The data set WORK.OTHR_I has 7 observations and 156 variables. NOTE: The data set WORK.SCKB_O has 5 observations and 156 variables. NOTE: The data set WORK.SCKGRN has 1 observations and 156 variables. NOTE: The data set WORK.SCKO_Y has 5 observations and 156 variables. NOTE: The data set WORK.SCKBWN has 8 observations and 156 variables. NOTE: The data set WORK.SCKWH1 has 13 observations and 156 variables. NOTE: The data set WORK.SCKWH2 has 11 observations and 156 variables. NOTE: The data set WORK.SCKWH3 has 9 observations and 156 variables. NOTE: The data set WORK.SCKOTH has 7 observations and 156 variables. NOTE: The data set WORK.SCKINT has 0 observations and 156 variables. NOTE: The data set WORK.PC_CRD has 29 observations and 156 variables. NOTE: The data set WORK.PC_LTR has 147 observations and 156 variables. NOTE: The data set WORK.PC_FLT has 157 observations and 156 variables. NOTE: The data set WORK.PC_IPP has 44 observations and 156 variables. NOTE: The data set WORK.PC_PCL has 127 observations and 156 variables. NOTE: The DATA statement used 0.10 CPU seconds and 7198K. 1410 +DATA CONTCONT; 02360024 1411 + SET BUNDLE CONCON TRAY_F TRAY_L TRAY_P PALLET 02370024 1412 + OTHR_I SCKB_O SCKGRN SCKO_Y SCKBWN SCKWH1 02380024 1413 + SCKWH2 SCKWH3 SCKOTH SCKINT PC_CRD PC_LTR 02390024 1414 + PC_FLT PC_IPP PC_PCL; 02400024 1415 + 02410024 1416 + 02420024 NOTE: %INCLUDE (level 1) ending. 1417 01380093 1418 01390093 NOTE: The data set WORK.CONTCONT has 898 observations and 156 variables. NOTE: The DATA statement used 0.15 CPU seconds and 7198K. 1418 DATA OUT2.DIRECT; 01390093 1419 SET DIRECT; 01400093 1420 01410093 1421 01420093 NOTE: The data set OUT2.DIRECT has 11912 observations and 152 variables. NOTE: The DATA statement used 0.05 CPU seconds and 7198K. 1421 DATA OUT2.NMODKEY; 01420093 1422 SET MODKEYS; 01430093 1423 01440093 1424 01450093 NOTE: The data set OUT2.NMODKEY has 767 observations and 10 variables. NOTE: The DATA statement used 0.01 CPU seconds and 7198K. 1424 DATA OUT2.ITEMPC; 01450093 1425 SET ITEMS CONTCONT; 01460093 1426 01470093 1427 01480093 NOTE: The data set OUT2.ITEMPC has 1295 observations and 156 variables. NOTE: The DATA statement used 0.02 CPU seconds and 7198K. 131 The SAS System 1427 DATA OUT2.CONTEMP; 01480093 1428 SET PARTIAL; 01490093 1429 01500093 1430 *********************************************************************; 1431 1432 *PROGRAM BMC1-USPS version; *BY98; 1433 *ESTABLISH COST POOLS, DISTRIBUTING AND DISTRIBUTED SETS ; 1434 1435 *********************************************************************; 1436 1437 OPTIONS ERRORS=1 NODATE; 1438 NOTE: The data set OUT2.CONTEMP has 765 observations and 155 variables. NOTE: The DATA statement used 0.02 CPU seconds and 7198K. 1439 DATA MAILP ADW.BMCS ; 1440 SET BMC.BMC 1441 ; 1442 1443 ROSTER = F257; 1444 ACTV = F9806; 1445 FACTOR = 793499750/791481376 ; 1446 1447 *... establish mail processing operations based on iocs..........; 1448 1449 IF '00'<=F260<='08' 1450 OR '11'<=F260<='16' 1451 OR '18'<=F260<='23' 1452 OR '27'<=F260<='29' THEN DO; 1453 1454 * establish cost pools based on q.19 and q.18; 1455 1456 IF F128='A' AND F9211='A' THEN Q19='A_ALE'; * MANUAL LETTER CASE ; 1457 IF F128='A' AND F9211='B' THEN Q19='A_BFL'; * MANUAL FLAT CASE ; 1458 IF F128='A' AND F9211='C' THEN Q19='A_CPC'; * PARCEL DISTRIBUTION; 1459 IF F128='A' AND F9211='D' THEN Q19='A_DCC'; * COLL/CANCL/MAILPREP; 1460 IF F128='A' AND F9211='E' THEN Q19='A_EPR'; * PRESORT UNITS; 1461 IF F128='A' AND F9211='F' THEN Q19='A_FOP'; * OPENING UNITS; 1462 IF F128='A' AND F9211='G' THEN Q19='A_GRK'; * POUCHING; 1463 IF F128='A' AND F9211='H' THEN Q19='A_HPL'; * OTHER MANUAL ; 1464 IF F128='A' AND F9211='I' THEN Q19='A_IOT'; * OTHER MANUAL ; 1465 IF F9602='A' THEN Q19A='S_SACK';* SORTING TO SACKS ; 1466 IF F9602='B' THEN Q19A='S_TRAY';* SORTING TO TRAYS/TUBS; 1467 IF F9602='C' THEN Q19A='S_PALL';* SORTING TO PALLETS ; 1468 IF F9602='D' THEN Q19A='S_CONT';* SORTING TO ROLLING CONT; 1469 1470 IF F128='B' THEN Q19='B_OCR'; * OCR; 1471 IF F128='C' THEN Q19='C_BCR'; * MP BCR; 1472 IF F128='D' THEN Q19='D_BCR'; * DELIVERY BCR; 1473 IF F128='E' THEN Q19='E_BCS'; * CARR. SEQ. BCS; 1474 IF F128='F' THEN Q19='F_LSM'; * MPLSM/SPLSM; 1475 IF F128='G' THEN Q19='G_LFC'; * LETTER FACER/CANCELER; 1476 IF F128='H' THEN Q19='H_FFC'; * FLAT FACER/CANCELER; 1477 IF F128='I' THEN Q19='I_SAC'; * SACK SORTING MACHINE; 1478 IF F128='J' THEN Q19='J_PAR'; * PARCEL SORTING MACHINE; 1479 IF F128='K' THEN Q19='K_FSM'; * FLAT SORTING MACHINE; 132 The SAS System 1480 IF F128='L' THEN Q19='L_BUN'; * SM PARCEL/BUNDLE SORT MACH; 1481 IF F128='M' THEN Q19='M_NMO'; * NMO MACHINE; 1482 IF F128='N' THEN Q19='N_SLI'; * MULTI-SLIDE; 1483 IF F128='O' THEN Q19='O_CON'; * CONVEYOR; 1484 IF F128='P' THEN Q19='P_ACD'; * ACDCS; 1485 IF F128='Q' THEN Q19='Q_BAN'; * BANDING MACHINE; 1486 IF F128='R' THEN Q19='R_CUL'; * CULLING MACHINE; 1487 IF F128='S' THEN Q19='S_RBC'; * REMOTE BARCODING COMPUTER TERMINAL; 1488 IF F128='T' AND F9212='A' THEN Q19='T_MAN'; * TRNSP. MAN FORKLIFT; 1489 IF F128='T' AND F9212='B' THEN Q19='T_MEC'; * TRNSP. MEC FORKLIFT; 1490 IF F128='T' AND F9212='C' THEN Q19='T_TOW'; * TRNSP. TOW MOTOR; 1491 IF F128='T' AND F9212='D' THEN Q19='T_TOW'; * TRNSP. POW'D OTH; 1492 IF F128='T' AND F9212='E' THEN Q19='T_OTH'; * TRNSP. OTH; 1493 IF F128='U' THEN Q19='U_OTH'; * ALL OTHER; 1494 1495 IF F9806='6521' THEN BMCGRP='Z BREAKS'; 1496 ELSE IF F128='I' AND F121='N' THEN BMCGRP='SSM '; 1497 ELSE IF F128='I' AND F121='Y' THEN BMCGRP='SSM_ALLI'; 1498 ELSE IF F128='J' AND F121='N' THEN BMCGRP='PSM '; 1499 ELSE IF F128='J' AND F121='Y' THEN BMCGRP='PSM_ALLI'; 1500 1501 ELSE IF 'A'<=F119<='G' AND F128 = 'M' THEN BMCGRP='NMO '; 1502 ELSE IF 'A'<=F119<='G' AND F9211='C' AND F9602 = 'C' THEN BMCGRP='NMO'; 1503 ELSE IF 'A'<=F119<='G' AND F9211='C' AND F9602 = 'D' THEN BMCGRP='NMO'; 1504 ELSE IF 'A'<=F119<='G' AND F128 = 'L' THEN BMCGRP='SPB '; 1505 ELSE IF 'A'<=F119<='G' AND F9602 = 'A' THEN BMCGRP='SPB '; 1506 ELSE IF 'A'<=F119<='G' AND F9602 = 'B' THEN BMCGRP='SPB '; 1507 1508 ELSE IF 'A'<=F116<='H' AND F9209=' ' THEN BMCGRP='PLATFORM'; 1509 ELSE IF 'A'<=F118<='K' AND F9209=' ' THEN BMCGRP='MAILPREP'; 1510 ELSE BMCGRP='OTHER '; 1511 POOL = SUBSTR(BMCGRP,1,3); 1512 IF BMCGRP='SSM_ALLI' OR BMCGRP='PSM_ALLI' 1513 OR BMCGRP='MAILPREP' OR BMCGRP='OTHER ' 1514 THEN POOL='OTHR'; 1515 END; 1516 1517 IF POOL = ' ' THEN POOL = F260; 1518 1519 *....... encirclement rules and metered mail....; 1520 1521 IF POOL<'0' AND ACTV='0060' THEN DO; 1522 IF SUBSTR(f9805,2,3)='510' AND '1000'<=f9805<='4950' 1523 THEN ACTV=f9805 ; 1524 ELSE IF SUBSTR(f9805,2,1)='8' AND '1000'<=f9805<='4950' 1525 THEN ACTV=f9805 ; 1526 ELSE IF '545'<=SUBSTR(f9805,1,3)<='548' THEN ACTV=f9805 ; 1527 ELSE ACTV='0060'; 1528 END; 1529 1530 IF ACTV='1060' AND F136='D' THEN ACTV='1068'; 1531 IF ACTV='2060' AND F136='D' THEN ACTV='2068'; 1532 IF ACTV='3060' AND F136='D' THEN ACTV='3068'; 1533 IF ACTV='4060' AND F136='D' THEN ACTV='4068'; 1534 1535 *.....................................................; 1536 1537 IF POOL > '0' THEN OUTPUT ADW.BMCS ; 133 The SAS System 1538 ELSE OUTPUT MAILP ; 1539 1540 NOTE: The data set WORK.MAILP has 13254 observations and 154 variables. NOTE: The data set ADW.BMCS has 2004 observations and 154 variables. NOTE: The DATA statement used 0.13 CPU seconds and 7198K. 1541 DATA ALLBMC; 1542 SET MAILP ADW.BMCS; 1543 POOLDOL = WGT * FACTOR; 1544 IF ACTV='6522' THEN POOL='6522'; 1545 NOTE: The data set WORK.ALLBMC has 15258 observations and 155 variables. NOTE: The DATA statement used 0.07 CPU seconds and 7198K. 1546 PROC FREQ ; 1547 TABLES POOL ; 1548 WEIGHT WGT; 1549 TITLE1 ' '; 1550 TITLE2 ' '; 1551 TITLE3 ' '; 1552 TITLE4 'TABLE I - 3A'; 1553 TITLE5 'TOTAL BMC IOCS TALLY DOLLAR WEIGHTS BY MAIL PROC. COST POOLS'; 1554 TITLE6 '& BY IOCS OPERATION CODES FOR NON-MAIL PROC. TALLIES'; 1555 TITLE7 'MAIL PROC. POOLS DO NOT INCLUDE DISTRIBUTED BREAK TIME WHICH'; 1556 TITLE8 ' IS LISTED AS A SEPARATE POOL (Z B) '; 1557 footnote 'BY 98 USPS Version - BMCs'; NOTE: The PROCEDURE FREQ printed page 4. NOTE: The PROCEDURE FREQ used 0.04 CPU seconds and 7198K. 1558 PROC FREQ; 1559 TABLES POOL; 1560 WEIGHT POOLDOL; 1561 TITLE1 ' '; 1562 TITLE2 ' '; 1563 TITLE3 ' '; 1564 TITLE4 'TABLE I - 3B'; 1565 TITLE5 'TOTAL BMC POOL COSTS BY MAIL PROC. COST POOLS'; 1566 TITLE6 '& BY IOCS OPERATION CODES FOR NON-MAIL PROC. TALLIES'; 1567 TITLE7 'MAIL PROC. POOLS DO NOT INCLUDE DISTRIBUTED BREAK TIME WHICH'; 1568 TITLE8 ' IS LISTED AS A SEPARATE POOL (Z B) '; 1569 1570 * ...... distribute break time to pools .........; 1571 NOTE: The PROCEDURE FREQ printed page 5. NOTE: The PROCEDURE FREQ used 0.04 CPU seconds and 7198K. 1572 DATA ALLMP ; 1573 SET MAILP; 1574 ADJWGT=WGT; NOTE: The data set WORK.ALLMP has 13254 observations and 155 variables. NOTE: The DATA statement used 0.05 CPU seconds and 7198K. 134 The SAS System 1575 PROC SORT; 1576 BY Q19 ; NOTE: WER750I End PROC SYNCSORT. R2.1B NOTE: The data set WORK.ALLMP has 13254 observations and 155 variables. NOTE: The PROCEDURE SORT used 0.12 CPU seconds and 7234K. 1577 PROC MEANS NOPRINT; 1578 BY Q19 ; 1579 VAR WGT; 1580 OUTPUT OUT = ADJ1 SUM=BWGT1; 1581 NOTE: The data set WORK.ADJ1 has 31 observations and 4 variables. NOTE: The PROCEDURE MEANS used 0.04 CPU seconds and 7198K. 1582 DATA ALLMP1; 1583 SET MAILP; 1584 IF POOL='Z B' THEN DELETE; NOTE: The data set WORK.ALLMP1 has 10709 observations and 154 variables. NOTE: The DATA statement used 0.05 CPU seconds and 7198K. 1585 PROC SORT; 1586 BY Q19 ; NOTE: WER750I End PROC SYNCSORT. R2.1B NOTE: The data set WORK.ALLMP1 has 10709 observations and 154 variables. NOTE: The PROCEDURE SORT used 0.10 CPU seconds and 7234K. 1587 PROC MEANS NOPRINT; 1588 BY Q19 ; 1589 VAR WGT; 1590 OUTPUT OUT = ADJ2 SUM=BWGT2; 1591 NOTE: The data set WORK.ADJ2 has 31 observations and 4 variables. NOTE: The PROCEDURE MEANS used 0.04 CPU seconds and 7198K. 1592 DATA MPADJ; 1593 MERGE ADJ1 ADJ2; 1594 BY Q19 ; 1595 NOTE: The data set WORK.MPADJ has 31 observations and 5 variables. NOTE: The DATA statement used 0.01 CPU seconds and 7198K. 1596 DATA MAILPROC; 1597 MERGE MPADJ ALLMP; 1598 BY Q19 ; 1599 WGT = ADJWGT*BWGT1/BWGT2; 1600 pooldol = wgt * factor; 1601 1602 IF POOL EQ 'Z B ' THEN DELETE; 1603 NOTE: The data set WORK.MAILPROC has 10709 observations and 160 variables. NOTE: The DATA statement used 0.10 CPU seconds and 7198K. 135 The SAS System 1604 PROC FREQ; 1605 TABLES POOL; 1606 WEIGHT pooldol; 1607 TITLE1 ' '; 1608 TITLE2 ' '; 1609 TITLE3 ' '; 1610 TITLE4 'TABLE I - 3 '; 1611 TITLE5 'BY 98 BMC MAIL PROCESSING POOL COSTS - '; 1612 TITLE6 ' (AFTER DISTRIBUTED BREAKS) '; 1613 1614 1615 * ---- establish distributing and distributed sets --------; 1616 NOTE: The PROCEDURE FREQ printed page 6. NOTE: The PROCEDURE FREQ used 0.03 CPU seconds and 7198K. 1617 DATA DIRECT MIXED OUT4.NOTHAND ; 1618 SET MAILP ; 1619 1620 IF '1000'<=ACTV <='4950' OR '5300'<=ACTV <='5464' 1621 THEN OUTPUT DIRECT ; 1622 ELSE IF '0010'<=ACTV<'1000' THEN DO; 1623 IF '1000'<=F9805<='4950' THEN OUTPUT DIRECT; 1624 ELSE IF '53'<=SUBSTR(F9805,1,2)<='54' THEN OUTPUT DIRECT; 1625 ELSE IF 'A'<=F9635<='K' THEN OUTPUT DIRECT; 1626 ELSE IF 'A'<=F9214<='P' OR 'A'<=F9219<='J' THEN OUTPUT MIXED; 1627 ELSE OUTPUT OUT4.NOTHAND; 1628 END; 1629 ELSE IF POOL='Z B' THEN OUTPUT out4.NOTHAND ; 1630 ELSE IF 'A'<=F9214<='P' OR 'A'<=F9219<='J' THEN OUTPUT MIXED ; 1631 ELSE OUTPUT out4.NOTHAND; 1632 1633 * identify distribution groups within cost pools; 1634 1635 %INCLUDE 'xxxxxx.xxxxxxxx.xxxxxxx(MAPITEMC)' /SOURCE2; NOTE: %INCLUDE (level 1) file xxxxxx.xxxxxxxx.xxxxxxx(MAPITEMC) is file xxxxxx.xxxxxxxx.xxxxxxx(MAPITEMC). 1636 + 00010024 1637 + OPTIONS ERRORS=1; 00020024 1638 + 00030024 1639 + 00040024 NOTE: The data set WORK.DIRECT has 4327 observations and 154 variables. NOTE: The data set WORK.MIXED has 2749 observations and 154 variables. NOTE: The data set OUT4.NOTHAND has 6178 observations and 154 variables. NOTE: The DATA statement used 0.10 CPU seconds and 7198K. 1639 + DATA MPKEYS; 00040024 1640 + SET DIRECT ; 00050024 1641 + 00060024 1642 + * ------- CONSTRUCT DISTRIBUTION KEYS ---- ; 00070024 1643 + 00080024 1644 +*.........................Piece Shapes..............................; 00090024 1645 + 00100024 1646 + IF SUBSTR(ACTV,1,1)='1' 00110024 1647 + or actv='5431' or actv='5441' or actv='5451' or actv='5461' 00120024 1648 + THEN DO; 00130024 136 The SAS System 1649 + IF 'B'<=F9635<='C' OR F9635='K' THEN HANDLING = ' PC_CRD'; 00140024 1650 + ELSE HANDLING = ' PC_LTR'; 00150024 1651 + END; 00160024 1652 + IF SUBSTR(ACTV,1,1)='2' THEN HANDLING = ' PC_FLT'; 00170024 1653 + IF SUBSTR(ACTV,1,1)='3' THEN HANDLING = ' PC_IPP'; 00180024 1654 + IF SUBSTR(ACTV,1,1)='4' THEN HANDLING = ' PC_PCL'; 00190024 1655 + 00200024 1656 +* .........shapes for international mixed mail......................; 00210024 1657 + 00220024 1658 + IF ACTV='5432' OR ACTV='5442' OR ACTV='5452' OR ACTV='5462' 00230024 1659 + THEN HANDLING = ' PC_FLT'; 00240024 1660 + IF ACTV='5433' OR ACTV='5443' OR ACTV='5453' OR ACTV='5463' 00250024 1661 + THEN HANDLING = ' PC_IPP'; 00260024 1662 + IF ACTV='5434' OR ACTV='5444' OR ACTV='5454' OR ACTV='5464' 00270024 1663 + THEN HANDLING = ' PC_PCL'; 00280024 1664 + 00290024 1665 +* ........shapes for special services & mixed mail 5340,5460.........; 00300024 1666 + 00310024 1667 + IF ACTV='5340' OR ACTV='5460' THEN DO; 00320024 1668 + 00330024 1669 + IF 'B'<=F9635<='C' OR F9635='K' THEN HANDLING = ' PC_CRD'; 00340024 1670 + IF F9635='A' THEN HANDLING = ' PC_LTR'; 00350024 1671 + IF 'D'<=F9635<='E' THEN HANDLING = ' PC_FLT'; 00360024 1672 + IF 'F'<=F9635<='G' OR F9635='J' THEN HANDLING = ' PC_IPP'; 00370024 1673 + IF 'H'<=F9635<='I' THEN HANDLING = ' PC_PCL'; 00380024 1674 + END; 00390024 1675 + 00400024 1676 + IF '0010'<=ACTV<'1000' THEN DO; 00410024 1677 + IF SUBSTR(F9805,1,1)='1' 00420024 1678 + AND ('B'<=F9635<='C' OR F9635='K') THEN HANDLING = ' PC_CRD'; 00430024 1679 + ELSE IF SUBSTR(F9805,1,1)='1' THEN HANDLING = ' PC_LTR'; 00440024 1680 + ELSE IF SUBSTR(F9805,1,1)='2' THEN HANDLING = ' PC_FLT'; 00450024 1681 + ELSE IF SUBSTR(F9805,1,1)='3' THEN HANDLING = ' PC_IPP'; 00460024 1682 + ELSE IF SUBSTR(F9805,1,1)='4' THEN HANDLING = ' PC_PCL'; 00470024 1683 + 00480024 1684 + ELSE IF SUBSTR(F9805,1,2)='54' AND '1'<=SUBSTR(F9805,4,1)<='4' 00490024 1685 + THEN DO; 00500024 1686 + IF SUBSTR(F9805,4,1)='1' 00510024 1687 + AND ('B'<=F9635<='C' OR F9635='K') THEN HANDLING = ' PC_CRD'; 00520024 1688 + ELSE IF SUBSTR(F9805,4,1)='1' THEN HANDLING = ' PC_LTR'; 00530024 1689 + ELSE IF SUBSTR(F9805,4,1)='2' THEN HANDLING = ' PC_FLT'; 00540024 1690 + ELSE IF SUBSTR(F9805,4,1)='3' THEN HANDLING = ' PC_IPP'; 00550024 1691 + ELSE IF SUBSTR(F9805,4,1)='4' THEN HANDLING = ' PC_PCL'; 00560024 1692 + END; 00570024 1693 + 00580024 1694 + ELSE IF F9805='5340' OR F9805='5460' THEN DO; 00590024 1695 + IF 'B'<=F9635<='C' OR F9635='K' THEN HANDLING = ' PC_CRD'; 00600024 1696 + IF F9635='A' THEN HANDLING = ' PC_LTR'; 00610024 1697 + IF 'D'<=F9635<='E' THEN HANDLING = ' PC_FLT'; 00620024 1698 + IF 'F'<=F9635<='G' OR F9635='J' THEN HANDLING = ' PC_IPP'; 00630024 1699 + IF 'H'<=F9635<='I' THEN HANDLING = ' PC_PCL'; 00640024 1700 + END; 00650024 1701 + ELSE DO; *INCL DETACHED FORMS nomail; 00660024 1702 + IF 'B'<=F9635<='C' OR F9635='K' THEN HANDLING = ' PC_CRD'; 00670024 1703 + IF F9635='A' THEN HANDLING = ' PC_LTR'; 00680024 1704 + IF 'D'<=F9635<='E' THEN HANDLING = ' PC_FLT'; 00690024 1705 + IF 'F'<=F9635<='G' OR F9635='J' THEN HANDLING = ' PC_IPP'; 00700024 1706 + IF 'H'<=F9635<='I' THEN HANDLING = ' PC_PCL'; 00710024 137 The SAS System 1707 + END; 00720024 1708 + 00730024 1709 + END; 00740024 1710 + 00750024 1711 + IF HANDLING = ' PC_CRD' THEN TYPE= 'PC_CRD'; 00760024 1712 + IF HANDLING = ' PC_LTR' THEN TYPE= 'PC_LTR'; 00770024 1713 + IF HANDLING = ' PC_FLT' THEN TYPE= 'PC_FLT'; 00780024 1714 + IF HANDLING = ' PC_IPP' THEN TYPE= 'PC_IPP'; 00790024 1715 + IF HANDLING = ' PC_PCL' THEN TYPE= 'PC_PCL'; 00800024 1716 + 00810024 1717 +*..................Direct Items and Containers......................; 00820024 1718 + 00830024 1719 + IF F9214='A' THEN DO; HANDLING = ' BUNDLE '; TYPE='BUNDLE'; END; 00840024 1720 + IF F9214='B' THEN DO; HANDLING = ' CON-CON'; TYPE='CONCON'; END; 00850024 1721 + IF F9214='C' THEN DO; HANDLING = ' TRAY-FT'; TYPE='TRAY_F'; END; 00860024 1722 + IF F9214='D' THEN DO; HANDLING = ' TRAY-LT'; TYPE='TRAY_L'; END; 00870024 1723 + IF F9214='E' THEN DO; HANDLING = ' TRAY-P.'; TYPE='TRAY_P'; END; 00880024 1724 + IF F9214='F' THEN DO; HANDLING = ' PALLET '; TYPE='PALLET'; END; 00890024 1725 + IF F9214='G' THEN DO; HANDLING = ' OTHITEM'; TYPE='OTHR_I'; END; 00900024 1726 + IF F9214='H' THEN DO; HANDLING = 'SCK-BL&O'; TYPE='SCKB_O'; END; 00910024 1727 + IF F9214='I' THEN DO; HANDLING = 'SCK-GREN'; TYPE='SCKGRN'; END; 00920024 1728 + IF F9214='J' THEN DO; HANDLING = 'SCK-OR&Y'; TYPE='SCKO_Y'; END; 00930024 1729 + IF F9214='K' THEN DO; HANDLING = 'SCK-BRWN'; TYPE='SCKBWN'; END; 00940024 1730 + IF F9214='L' THEN DO; HANDLING = 'SCK-WH#1'; TYPE='SCKWH1'; END; 00950024 1731 + IF F9214='M' THEN DO; HANDLING = 'SCK-WH#2'; TYPE='SCKWH2'; END; 00960024 1732 + IF F9214='N' THEN DO; HANDLING = 'SCK-WH#3'; TYPE='SCKWH3'; END; 00970024 1733 + IF F9214='O' THEN DO; HANDLING = 'SCK-OTHR'; TYPE='SCKOTH'; END; 00980024 1734 + IF F9214='P' THEN DO; HANDLING = 'SCK-INTL'; TYPE='SCKINT'; END; 00990024 1735 + IF F9219='A' then do; HANDLING = 'BMC-OTR '; type=' '; end; 01000024 1736 + IF F9219='B' then do; HANDLING = 'ERMC '; type=' '; end; 01010024 1737 + IF F9219='C' then do; HANDLING = 'GPC/APC/'; type=' '; end; 01020024 1738 + IF F9219='D' then do; HANDLING = 'HAMPER '; type=' '; end; 01030024 1739 + IF F9219='E' then do; HANDLING = 'NUT.TRCK'; type=' '; end; 01040024 1740 + IF F9219='F' then do; HANDLING = 'P-PACK '; type=' '; end; 01050024 1741 + IF F9219='G' then do; HANDLING = 'U-CART '; type=' '; end; 01060024 1742 + IF F9219='H' then do; HANDLING = 'WIRETAIN'; type=' '; end; 01070024 1743 + IF F9219='I' then do; HANDLING = 'NOTIN CN'; type=' '; end; 01080024 1744 + IF F9219='J' then do; HANDLING = 'Z-OTH CN'; type=' '; end; 01090024 1745 + 01100024 NOTE: The data set WORK.MPKEYS has 4327 observations and 156 variables. NOTE: The DATA statement used 0.08 CPU seconds and 7198K. 1746 +PROC SORT; 01110024 1747 + BY POOL HANDLING ACTV; 01120024 1748 + 01130024 NOTE: WER750I End PROC SYNCSORT. R2.1B NOTE: The data set WORK.MPKEYS has 4327 observations and 156 variables. NOTE: The PROCEDURE SORT used 0.06 CPU seconds and 7234K. 1749 +PROC MEANS NOPRINT; 01140024 1750 + BY POOL HANDLING ACTV; 01150024 1751 + ID TYPE F9214 F9219; 01160024 1752 + VAR WGT; 01170024 1753 + OUTPUT OUT=MODKEY1 SUM=KEY; 01180024 1754 + 01190024 138 The SAS System NOTE: The data set WORK.MODKEY1 has 798 observations and 9 variables. NOTE: The PROCEDURE MEANS used 0.03 CPU seconds and 7198K. 1755 +PROC MEANS NOPRINT; 01200024 1756 + BY POOL HANDLING; 01210024 1757 + VAR KEY; 01220024 1758 + OUTPUT OUT=MODKEY2 SUM=KEYTOT; 01230024 1759 + 01240024 NOTE: The data set WORK.MODKEY2 has 102 observations and 5 variables. NOTE: The PROCEDURE MEANS used 0.01 CPU seconds and 7198K. 1760 +DATA MODKEYS ; 01250024 1761 + MERGE modKEY1(IN=ITT) modKEY2(IN=TT); 01260024 1762 + BY POOL handling; 01270024 1763 + 01280024 1764 +*...separate items and identified containers from unidenfied/empty....; 01290024 1765 + 01300024 NOTE: The data set WORK.MODKEYS has 798 observations and 10 variables. NOTE: The DATA statement used 0.01 CPU seconds and 7198K. 1766 +DATA ITEMS COUNTED PARTIAL; 01310024 1767 + SET MIXED; 01320024 1768 + 01330024 1769 + IF F9214='A' THEN DO; HANDLING = ' BUNDLE '; TYPE='BUNDLE'; END; 01340024 1770 + IF F9214='B' THEN DO; HANDLING = ' CON-CON'; TYPE='CONCON'; END; 01350024 1771 + IF F9214='C' THEN DO; HANDLING = ' TRAY-FT'; TYPE='TRAY_F'; END; 01360024 1772 + IF F9214='D' THEN DO; HANDLING = ' TRAY-LT'; TYPE='TRAY_L'; END; 01370024 1773 + IF F9214='E' THEN DO; HANDLING = ' TRAY-P.'; TYPE='TRAY_P'; END; 01380024 1774 + IF F9214='F' THEN DO; HANDLING = ' PALLET '; TYPE='PALLET'; END; 01390024 1775 + IF F9214='G' THEN DO; HANDLING = ' OTHITEM'; TYPE='OTHR_I'; END; 01400024 1776 + IF F9214='H' THEN DO; HANDLING = 'SCK-BL&O'; TYPE='SCKB_O'; END; 01410024 1777 + IF F9214='I' THEN DO; HANDLING = 'SCK-GREN'; TYPE='SCKGRN'; END; 01420024 1778 + IF F9214='J' THEN DO; HANDLING = 'SCK-OR&Y'; TYPE='SCKO_Y'; END; 01430024 1779 + IF F9214='K' THEN DO; HANDLING = 'SCK-BRWN'; TYPE='SCKBWN'; END; 01440024 1780 + IF F9214='L' THEN DO; HANDLING = 'SCK-WH#1'; TYPE='SCKWH1'; END; 01450024 1781 + IF F9214='M' THEN DO; HANDLING = 'SCK-WH#2'; TYPE='SCKWH2'; END; 01460024 1782 + IF F9214='N' THEN DO; HANDLING = 'SCK-WH#3'; TYPE='SCKWH3'; END; 01470024 1783 + IF F9214='O' THEN DO; HANDLING = 'SCK-OTHR'; TYPE='SCKOTH'; END; 01480024 1784 + IF F9214='P' THEN DO; HANDLING = 'SCK-INTL'; TYPE='SCKINT'; END; 01490024 1785 + 01500024 1786 + IF F9219='A' THEN HANDLING = 'BMC-OTR '; 01510024 1787 + IF F9219='B' THEN HANDLING = 'ERMC '; 01520024 1788 + IF F9219='C' THEN HANDLING = 'GPC/APC/'; 01530024 1789 + IF F9219='D' THEN HANDLING = 'HAMPER '; 01540024 1790 + IF F9219='E' THEN HANDLING = 'NUT.TRCK'; 01550024 1791 + IF F9219='F' THEN HANDLING = 'P-PACK '; 01560024 1792 + IF F9219='G' THEN HANDLING = 'U-CART '; 01570024 1793 + IF F9219='H' THEN HANDLING = 'WIRETAIN'; 01580024 1794 + IF F9219='I' THEN HANDLING = 'NOTIN CN'; 01590024 1795 + IF F9219='J' THEN HANDLING = 'Z-OTH CN'; 01600024 1796 + 01610024 1797 + IF 'A' <= F9214 <= 'P' THEN OUTPUT ITEMS; 01620024 1798 + 01630024 1799 + IF 'A' <= F9219 <= 'J' THEN DO; 01640024 1800 + 01650024 1801 + F9901 = SUBSTR(F9901,2,3); 01660024 139 The SAS System 1802 + F9902 = SUBSTR(F9902,2,3); 01670024 1803 + F9903 = SUBSTR(F9903,2,3); 01680024 1804 + F9904 = SUBSTR(F9904,2,3); 01690024 1805 + F9905 = SUBSTR(F9905,2,3); 01700024 1806 + 01710024 1807 + TOTPCT = SUM (OF F9901 F9902-F9917 F9420-F9421 F9918-F9919 ); 01720024 1808 + 01730024 1809 + IF TOTPCT <=0 THEN OUTPUT PARTIAL; 01740024 1810 + ELSE IF F9901='***' OR F9902='***' OR F9903='***' OR F9904='***' 01750024 1811 + OR F9905='***' OR F9906='***' OR F9907='***' OR F9908='***' 01760024 1812 + OR F9909='***' OR F9910='***' OR F9911='***' OR F9912='***' 01770024 1813 + OR F9913='***' OR F9914='***' OR F9915='***' OR F9916='***' 01780024 1814 + OR F9917='***' OR F9918='***' OR F9919='***' 01790024 1815 + OR F9420='***' OR F9421='***' THEN OUTPUT PARTIAL; 01800024 1816 + ELSE OUTPUT COUNTED; 01810024 1817 + END; 01820024 1818 + 01830024 1819 +*...apportion tally $ wgt of handling a container among its contents..; 01840024 1820 + 01850024 NOTE: Character values have been converted to numeric values at the places given by: (Line):(Column). 1807:23 1807:34 1807:46 1807:58 NOTE: Invalid numeric data, F9904='***' , at line 1807 column 34. NOTE: Invalid numeric data, F9905='***' , at line 1807 column 34. ERROR: Limit set by ERRORS= option reached. Further errors of this type will not be printed. +ERROR: Limit set by ERRORS= option reached. Further errors of this type will not be printed. +ERROR: Limit set by ERRORS= option reached. Further errors of this type will not be printed. F1=1X F2=842327 F9200= F18=7 F27=1 F28= F29= F30= F31= F32=2 F33=F F34=F F35= F36=12 F41=3 F112= F9207=B F114=232 F116= F117= F118= F119=B F120= F121=Y F122=A F123= F124= F125= F126= F127= F9209= F9419= F128=T F9211= F9212=D F9602= F129=A F9213=C F9214= F9215= F9216= F9217= F9218= F9219=A F9220=N F9221=N F9901= F9902=000 F9903=000 F9904=*** F9905=*** F9906=000 F9907=000 F9908=000 F9909=000 F9910=000 F9911=000 F9912=000 F9913=000 F9914=000 F9915=000 F9916=000 F9917=000 F9420=000 F9421=000 F9918=000 F9919=000 F9635= F9606= F136= F9611= F9223= F9612= F9613= F9614= F141= F9615= F9616= F142= F143= F9617= F9618= F9619= F144= F145= F9620= F9621= F9463= F9464= F146= F9623= F147= F148= F149= F150= F151= F152= F153= F154= F9624= F9625= F9626= F9627= F9628= F9629= F9631= F9632= F158= F159= F160= F9633= F9471= F9472= F9227=00 F9228= F216= F217= F218= F219= F221= F222= F223= F227=922 F228=7 F229=K F230=24 F231=2 F232=0017 F244=5745 F245= F246= F247= F248= F249= F257=12 F260=03 F261=1 F262=5750 F263=666666 F264=A F9246=0833 F9250=0004786299 F9252=4 F9253= F9805=5745 F9806=5750 WGT=47.86299 ROSTER=12 ACTV=5750 FACTOR=1.0025501219 Q19=T_TOW Q19A= BMCGRP=OTHER POOL=OTHR HANDLING=BMC-OTR TYPE= TOTPCT=0 _ERROR_=1 _N_=34 NOTE: The data set WORK.ITEMS has 640 observations and 157 variables. NOTE: The data set WORK.COUNTED has 918 observations and 157 variables. NOTE: The data set WORK.PARTIAL has 1191 observations and 157 variables. NOTE: The DATA statement used 0.09 CPU seconds and 7198K. 1821 +DATA BUNDLE CONCON TRAY_F TRAY_L TRAY_P PALLET 01860024 1822 + OTHR_I SCKB_O SCKGRN SCKO_Y SCKBWN SCKWH1 01870024 1823 + SCKWH2 SCKWH3 SCKOTH SCKINT PC_CRD PC_LTR 01880024 1824 + PC_FLT PC_IPP PC_PCL; 01890024 1825 + 01900024 1826 + SET COUNTED; 01910024 1827 + WGT1 = WGT; 01920024 1828 + IF F9901 >0 THEN DO; WGT=WGT1*F9901/TOTPCT; TYPE= 'PC_CRD'; 01930024 1829 + OUTPUT PC_CRD;END; 01940024 1830 + IF F9902 >0 THEN DO; WGT=WGT1*F9902/TOTPCT; TYPE= 'PC_LTR'; 01950024 1831 + OUTPUT PC_LTR;END; 01960024 1832 + IF F9903 >0 THEN DO; WGT=WGT1*F9903/TOTPCT; TYPE= 'PC_FLT'; 01970024 1833 + OUTPUT PC_FLT;END; 01980024 1834 + IF F9904 >0 THEN DO; WGT=WGT1*F9904/TOTPCT; TYPE= 'PC_IPP'; 01990024 1835 + OUTPUT PC_IPP;END; 02000024 1836 + IF F9905 >0 THEN DO; WGT=WGT1*F9905/TOTPCT; TYPE= 'PC_PCL'; 02010024 1837 + OUTPUT PC_PCL;END; 02020024 140 The SAS System 1838 + IF F9906 >0 THEN DO; WGT=WGT1*F9906/TOTPCT; TYPE= 'BUNDLE'; 02030024 1839 + OUTPUT BUNDLE;END; 02040024 1840 + IF F9907 >0 THEN DO; WGT=WGT1*F9907/TOTPCT; TYPE= 'CONCON'; 02050024 1841 + OUTPUT CONCON;END; 02060024 1842 + IF F9908 >0 THEN DO; WGT=WGT1*F9908/TOTPCT; TYPE= 'TRAY_F'; 02070024 1843 + OUTPUT TRAY_F;END; 02080024 1844 + IF F9909 >0 THEN DO; WGT=WGT1*F9909/TOTPCT; TYPE= 'TRAY_L'; 02090024 1845 + OUTPUT TRAY_L;END; 02100024 1846 + IF F9910 >0 THEN DO; WGT=WGT1*F9910/TOTPCT; TYPE= 'TRAY_P'; 02110024 1847 + OUTPUT TRAY_P;END; 02120024 1848 + IF F9911 >0 THEN DO; WGT=WGT1*F9911/TOTPCT; TYPE= 'PALLET'; 02130024 1849 + OUTPUT PALLET;END; 02140024 1850 + IF F9912 >0 THEN DO; WGT=WGT1*F9912/TOTPCT; TYPE= 'OTHR_I'; 02150024 1851 + OUTPUT OTHR_I;END; 02160024 1852 + IF F9913 >0 THEN DO; WGT=WGT1*F9913/TOTPCT; TYPE= 'SCKB_O'; 02170024 1853 + OUTPUT SCKB_O;END; 02180024 1854 + IF F9914 >0 THEN DO; WGT=WGT1*F9914/TOTPCT; TYPE= 'SCKGRN'; 02190024 1855 + OUTPUT SCKGRN;END; 02200024 1856 + IF F9915 >0 THEN DO; WGT=WGT1*F9915/TOTPCT; TYPE= 'SCKO_Y'; 02210024 1857 + OUTPUT SCKO_Y;END; 02220024 1858 + IF F9916 >0 THEN DO; WGT=WGT1*F9916/TOTPCT; TYPE= 'SCKBWN'; 02230024 1859 + OUTPUT SCKBWN;END; 02240024 1860 + IF F9917 >0 THEN DO; WGT=WGT1*F9917/TOTPCT; TYPE= 'SCKWH1'; 02250024 1861 + OUTPUT SCKWH1;END; 02260024 1862 + IF F9420 >0 THEN DO; WGT=WGT1*F9420/TOTPCT; TYPE= 'SCKWH2'; 02270024 1863 + OUTPUT SCKWH2;END; 02280024 1864 + IF F9421 >0 THEN DO; WGT=WGT1*F9421/TOTPCT; TYPE= 'SCKWH3'; 02290024 1865 + OUTPUT SCKWH3;END; 02300024 1866 + IF F9918 >0 THEN DO; WGT=WGT1*F9918/TOTPCT; TYPE= 'SCKOTH'; 02310024 1867 + OUTPUT SCKOTH;END; 02320024 1868 + IF F9919 >0 THEN DO; WGT=WGT1*F9919/TOTPCT; TYPE= 'SCKINT'; 02330024 1869 + OUTPUT SCKINT;END; 02340024 1870 + 02350024 NOTE: Character values have been converted to numeric values at the places given by: (Line):(Column). 1828:11 1828:38 1830:11 1830:38 1832:11 1832:38 1834:11 1834:38 1836:11 1836:38 1838:11 1838:38 1840:11 1840:38 1842:11 1842:38 1844:11 1844:38 1846:11 1846:38 1848:11 1848:38 1850:11 1850:38 1852:11 1852:38 1854:11 1854:38 1856:11 1856:38 1858:11 1858:38 1860:11 1860:38 1862:11 1862:38 1864:11 1864:38 1866:11 1866:38 1868:11 1868:38 NOTE: The data set WORK.BUNDLE has 57 observations and 158 variables. NOTE: The data set WORK.CONCON has 0 observations and 158 variables. NOTE: The data set WORK.TRAY_F has 27 observations and 158 variables. NOTE: The data set WORK.TRAY_L has 70 observations and 158 variables. NOTE: The data set WORK.TRAY_P has 11 observations and 158 variables. NOTE: The data set WORK.PALLET has 7 observations and 158 variables. NOTE: The data set WORK.OTHR_I has 23 observations and 158 variables. NOTE: The data set WORK.SCKB_O has 1 observations and 158 variables. NOTE: The data set WORK.SCKGRN has 0 observations and 158 variables. NOTE: The data set WORK.SCKO_Y has 0 observations and 158 variables. NOTE: The data set WORK.SCKBWN has 21 observations and 158 variables. NOTE: The data set WORK.SCKWH1 has 77 observations and 158 variables. NOTE: The data set WORK.SCKWH2 has 117 observations and 158 variables. NOTE: The data set WORK.SCKWH3 has 56 observations and 158 variables. NOTE: The data set WORK.SCKOTH has 15 observations and 158 variables. NOTE: The data set WORK.SCKINT has 22 observations and 158 variables. NOTE: The data set WORK.PC_CRD has 2 observations and 158 variables. NOTE: The data set WORK.PC_LTR has 19 observations and 158 variables. NOTE: The data set WORK.PC_FLT has 72 observations and 158 variables. 141 The SAS System NOTE: The data set WORK.PC_IPP has 52 observations and 158 variables. NOTE: The data set WORK.PC_PCL has 472 observations and 158 variables. NOTE: The DATA statement used 0.11 CPU seconds and 7238K. 1871 +DATA CONTCONT; 02360024 1872 + SET BUNDLE CONCON TRAY_F TRAY_L TRAY_P PALLET 02370024 1873 + OTHR_I SCKB_O SCKGRN SCKO_Y SCKBWN SCKWH1 02380024 1874 + SCKWH2 SCKWH3 SCKOTH SCKINT PC_CRD PC_LTR 02390024 1875 + PC_FLT PC_IPP PC_PCL; 02400024 1876 + 02410024 1877 + 02420024 NOTE: %INCLUDE (level 1) ending. 1878 1879 NOTE: The data set WORK.CONTCONT has 1121 observations and 158 variables. NOTE: The DATA statement used 0.15 CPU seconds and 7238K. 1880 DATA OUT4.DIRECT; 1881 SET DIRECT; NOTE: The data set OUT4.DIRECT has 4327 observations and 154 variables. NOTE: The DATA statement used 0.02 CPU seconds and 7238K. 1882 DATA OUT4.BMCKEY; 1883 SET modKEYS; NOTE: The data set OUT4.BMCKEY has 798 observations and 10 variables. NOTE: The DATA statement used 0.01 CPU seconds and 7238K. 1884 DATA OUT4.ITEMPC; 1885 SET ITEMS CONTCONT; NOTE: The data set OUT4.ITEMPC has 1761 observations and 158 variables. NOTE: The DATA statement used 0.02 CPU seconds and 7238K. 1886 DATA OUT4.CONTEMP; 1887 SET PARTIAL; 1888 1889 * Program lri184; 1890 Options errors=1 nodate; 1891 NOTE: The data set OUT4.CONTEMP has 1191 observations and 157 variables. NOTE: The DATA statement used 0.02 CPU seconds and 7238K. 1892 data direct1; 1893 set out1.direct (keep=pool wgt actv f9214 f9219 ldc f9216-f9217); 1894 facility='MODS '; NOTE: The data set WORK.DIRECT1 has 69459 observations and 9 variables. NOTE: The DATA statement used 0.19 CPU seconds and 7238K. 1895 data direct2; 1896 set out4.direct (keep=pool wgt actv f9214 f9219 f9216-f9217); 1897 facility='BMCS '; NOTE: The data set WORK.DIRECT2 has 4327 observations and 8 variables. 142 The SAS System NOTE: The DATA statement used 0.02 CPU seconds and 7238K. 1898 data direct3; 1899 set out2.direct (keep=pool wgt actv f9214 f9219 f9216-f9217); 1900 facility='NONMODS'; 1901 NOTE: The data set WORK.DIRECT3 has 11912 observations and 8 variables. NOTE: The DATA statement used 0.04 CPU seconds and 7238K. 1902 data direct; 1903 set direct1 direct2 direct3; 1904 dkgroup='direct '; 1905 dollar = wgt ; 1906 1907 if 'A'<=f9214<='P' then 1908 dkgr='direct Item '; 1909 else if 'A'<=f9219<='J' then 1910 dkgr='direct Container' ; 1911 else dkgr='direct pieces' ; 1912 NOTE: The data set WORK.DIRECT has 85698 observations and 12 variables. NOTE: The DATA statement used 0.22 CPU seconds and 7238K. 1913 data itempc1; 1914 set out1.itempc; 1915 facility='MODS '; NOTE: The data set WORK.ITEMPC1 has 15388 observations and 157 variables. NOTE: The DATA statement used 0.07 CPU seconds and 7238K. 1916 data itempc2; 1917 set out4.itempc; 1918 facility='BMCS '; NOTE: The data set WORK.ITEMPC2 has 1761 observations and 159 variables. NOTE: The DATA statement used 0.02 CPU seconds and 7238K. 1919 data itempc3; 1920 set out2.itempc; 1921 facility='NONMODS'; 1922 NOTE: The data set WORK.ITEMPC3 has 1295 observations and 157 variables. NOTE: The DATA statement used 0.01 CPU seconds and 7238K. 1923 data itempc; 1924 set itempc1 itempc2 itempc3; 1925 dkgroup='mixed '; 1926 if 'A'<=f9214<='P' then do; 1927 if f9215='Y' then dkgr ='mixed item empty'; 1928 else dkgr ='mixed item uncnt'; 1929 end; 1930 else do; 1931 if substr(type,1,2)='PC' then dkgr='mix cont pieces'; 1932 else dkgr='mix cont Items '; 1933 end; 143 The SAS System 1934 NOTE: The data set WORK.ITEMPC has 18444 observations and 165 variables. NOTE: The DATA statement used 0.09 CPU seconds and 7238K. 1935 data partial1; 1936 set out1.contemp; 1937 facility='MODS '; NOTE: The data set WORK.PARTIAL1 has 7323 observations and 156 variables. NOTE: The DATA statement used 0.03 CPU seconds and 7238K. 1938 data partial2; 1939 set out4.contemp; 1940 facility='BMCS '; NOTE: The data set WORK.PARTIAL2 has 1191 observations and 158 variables. NOTE: The DATA statement used 0.01 CPU seconds and 7238K. 1941 data partial3; 1942 set out2.contemp; 1943 facility='NONMODS'; 1944 NOTE: The data set WORK.PARTIAL3 has 765 observations and 156 variables. NOTE: The DATA statement used 0.01 CPU seconds and 7238K. 1945 data partial; 1946 set partial1 partial2 partial3; 1947 dkgroup='mixed '; 1948 if f9220='Y' then dkgr ='Container empty '; 1949 else dkgr ='Container unid '; 1950 NOTE: The data set WORK.PARTIAL has 9279 observations and 164 variables. NOTE: The DATA statement used 0.05 CPU seconds and 7238K. 1951 DATA noth1; 1952 set out1.Nothand; 1953 facility='MODS '; NOTE: The data set WORK.NOTH1 has 80617 observations and 153 variables. NOTE: The DATA statement used 0.30 CPU seconds and 7238K. 1954 DATA noth2; 1955 set out4.Nothand; 1956 facility='BMCS '; NOTE: The data set WORK.NOTH2 has 6178 observations and 155 variables. NOTE: The DATA statement used 0.03 CPU seconds and 7238K. 1957 DATA noth3; 1958 set out2.Nothand; 1959 facility='NONMODS'; 1960 NOTE: The data set WORK.NOTH3 has 6456 observations and 153 variables. NOTE: The DATA statement used 0.03 CPU seconds and 7238K. 144 The SAS System 1961 data noth; 1962 set noth1 noth2 noth3; 1963 dkgroup='NOT HAND'; 1964 dkgr ='NOT HANDLING '; 1965 dollar = wgt ; 1966 NOTE: The data set WORK.NOTH has 93251 observations and 162 variables. NOTE: The DATA statement used 0.39 CPU seconds and 7238K. 1967 data all ; 1968 set direct itempc partial notH; 1969 if facility='MODS' then do; 1970 %include 'xxxxxx.xxxxxxxx.xxxxxxxx(dolwgt)' /source2; NOTE: %INCLUDE (level 1) file xxxxxx.xxxxxxxx.xxxxxxxx(dolwgt) is file xxxxxx.xxxxxxxx.xxxxxxxx(DOLWGT). 1971 + 1972 + 1973 + IF POOL = 'BCS/ ' THEN DO;V='11'; *econometric; 1974 + dollars = 1043841; iocdol = 1075041; VARB= .895 ; END; 1975 + If POOL = 'OCR/ ' THEN DO;V='11'; *econometric; 1976 + dollars = 219070; iocdol = 230236; VARB= .751 ; END; 1977 + IF POOL = 'FSM/ ' THEN DO;V='12'; *econometric; 1978 + dollars = 1042369; iocdol = 948037; VARB= .817 ; END; 1979 + IF POOL = 'LSM/ ' THEN DO;V='12'; *econometric; 1980 + dollars = 78765; iocdol = 78093; VARB= .954 ; END; 1981 + IF POOL = 'MECPARC ' THEN DO;V='13'; 1982 + dollars = 8743; iocdol = 13946; VARB= .990 ; END; 1983 + IF POOL = 'SPBS OTH' THEN DO;V='13'; *econometric; 1984 + dollars = 283275; iocdol = 296736; VARB= .641 ; END; 1985 + IF POOL = 'SPBSPRIO' THEN DO;V='13'; *econometric; 1986 + dollars = 82446; iocdol = 78593; VARB= .641 ; END; 1987 + IF POOL = '1SACKS_M' THEN DO;V='13'; 1988 + dollars = 55538; iocdol = 55885; VARB= .941 ; END; 1989 + IF POOL = 'MANF ' THEN DO;V='14'; *econometric; 1990 + dollars = 459933; iocdol = 460877; VARB= .772 ; END; 1991 + IF POOL = 'MANL ' THEN DO;V='14'; *econometric; 1992 + dollars = 1563963; iocdol = 1538123; VARB= .735 ; END; 1993 + IF POOL = 'MANP ' THEN DO;V='14'; *econometric; 1994 + dollars = 60593; iocdol = 73211; VARB= .522 ; END; 1995 + IF POOL = 'PRIORITY' THEN DO;V='14'; *econometric; 1996 + dollars = 259762; iocdol = 187612; VARB= .522 ; END; 1997 + IF POOL = 'LD15 ' THEN DO;V='15'; *econometric; 1998 + dollars = 457253; iocdol = 23608; VARB=1.005 ; END; 1999 + IF POOL = '1BULK PR' THEN DO;V='17'; 2000 + dollars = 13309; iocdol = 15060; VARB= .890 ; END; 2001 + IF POOL = '1CANCMPP' THEN DO;V='17'; *econometric; 2002 + dollars = 295957; iocdol = 311888; VARB= .549 ; END; 2003 + IF POOL = '1OPBULK ' THEN DO;V='17'; 2004 + dollars = 305417; iocdol = 267930; VARB= .961 ; END; 2005 + IF POOL = '1OPPREF ' THEN DO;V='17'; 2006 + dollars = 711488; iocdol = 686360; VARB= .960 ; END; 2007 + IF POOL = '1PLATFRM' THEN DO;V='17'; 2008 + dollars = 1052585; iocdol = 1060393; VARB= .896 ; END; 2009 + IF POOL = '1POUCHNG' THEN DO;V='17'; 2010 + dollars = 446331; iocdol = 424928; VARB= .963 ; END; 2011 + IF POOL = '1SACKS_H' THEN DO;V='17'; 2012 + dollars = 176003; iocdol = 155581; VARB= .953 ; END; 145 The SAS System 2013 + IF POOL = '1SCAN ' THEN DO;V='17'; 2014 + dollars = 50434; iocdol = 55589; VARB= .908 ; END; 2015 + IF POOL = 'BUSREPLY' THEN DO;V='18'; 2016 + dollars = 30749; iocdol = 37754; VARB= .968 ; END; 2017 + IF POOL = 'EXPRESS ' THEN DO;V='18'; 2018 + dollars = 81410; iocdol = 94035; VARB= .567 ; END; 2019 + IF POOL = 'MAILGRAM' THEN DO;V='18'; 2020 + dollars = 340; iocdol = 334; VARB= .969 ; END; 2021 + IF POOL = 'REGISTRY' THEN DO;V='18'; 2022 + dollars = 125176; iocdol = 158703; VARB= .373 ; END; 2023 + IF POOL = 'REWRAP ' THEN DO;V='18'; 2024 + dollars = 14864; iocdol = 15862; VARB= .817 ; END; 2025 + IF POOL = '1EEQMT ' THEN DO;V='18'; 2026 + dollars = 59757; iocdol = 49363; VARB= .718 ; END; 2027 + IF POOL = '1MISC ' THEN DO;V='18'; 2028 + dollars = 136953; iocdol = 142997; VARB= .568 ; END; 2029 + IF POOL = '1SUPPORT' THEN DO;V='18'; 2030 + dollars = 184030; iocdol = 212943; VARB= .260 ; END; 2031 + IF POOL = 'INTL ' THEN DO;V='19'; 2032 + dollars = 98986; iocdol = 130155; VARB= .846 ; END; 2033 + IF POOL = 'LD41 ' THEN DO;V='41'; 2034 + dollars = 33829; iocdol = 46336; VARB= .960 ; END; 2035 + IF POOL = 'LD42 ' THEN DO;V='42'; 2036 + dollars = 1105; iocdol = 9168; VARB= .967 ; END; 2037 + IF POOL = 'LD43 ' THEN DO;V='43'; 2038 + dollars = 563203; iocdol = 615671; VARB= .932 ; END; 2039 + IF POOL = 'LD44 ' THEN DO;V='44'; 2040 + dollars = 138383; iocdol = 153598; VARB= .944 ; END; 2041 + IF POOL = 'LD48 EXP' THEN DO;V='48'; 2042 + dollars = 3322; iocdol = 4400; VARB= .475 ; END; 2043 + IF POOL = 'LD48 OTH' THEN DO;V='48'; 2044 + dollars = 140154; iocdol = 151047; VARB= .673 ; END; 2045 + IF POOL = 'LD48_ADM' THEN DO;V='48'; 2046 + dollars = 161274; iocdol = 175576; VARB= .534 ; END; 2047 + IF POOL = 'LD48_SSV' THEN DO;V='48'; 2048 + dollars = 104961; iocdol = 94741; VARB= .566 ; END; 2049 + IF POOL = 'LD49 ' THEN DO;V='49'; 2050 + dollars = 264671; iocdol = 293963; VARB= .976 ; END; 2051 + IF POOL = 'LD79 ' THEN DO;V='79'; 2052 + dollars = 141702; iocdol = 153370; VARB= .299 ; END; 2053 + 2054 + factor = dollars/iocdol; 2055 + NOTE: %INCLUDE (level 1) ending. 2056 end; 2057 2058 fpool = v||" "||pool ; 2059 NOTE: The data set WORK.ALL has 206672 observations and 171 variables. NOTE: The DATA statement used 1.26 CPU seconds and 7238K. 2060 proc freq data=all; 2061 tables dkgr*facility/missing; 2062 weight wgt ; 2063 title1 'BY98 Mail Processing Costs - IOCS$'; NOTE: The PROCEDURE FREQ printed pages 7-8. 146 The SAS System NOTE: The PROCEDURE FREQ used 0.77 CPU seconds and 7238K. 2064 proc sort data=all; 2065 by facility; NOTE: WER750I End PROC SYNCSORT. R2.1B NOTE: The data set WORK.ALL has 206672 observations and 171 variables. NOTE: The PROCEDURE SORT used 1.80 CPU seconds and 7274K. 2066 proc freq data=all; 2067 tables dkgr*fpool/missing; 2068 weight wgt ; 2069 by facility; NOTE: The PROCEDURE FREQ printed pages 9-20. NOTE: The PROCEDURE FREQ used 1.04 CPU seconds and 7238K. ERROR: Errors printed on pages 19,28,39. +ERROR: Errors printed on pages 19,28,39. +ERROR: Errors printed on pages 19,28,39. NOTE: The SAS session used 27.82 CPU seconds and 7274K. NOTE: SAS Institute Inc., SAS Campus Drive, Cary, NC USA 27513-2414