//NS49T10 JOB (NBM1,653,A),NAME //* LINES OF CODE (NON TABLE) 1/50 347/369 3384/3401 3447/L //* LINES TO REPLACE TABLES 46/3464 //STEP1 EXEC CBL3COMP,OPTIONS='SIZE(MAX)' //SYSIN DD * IDENTIFICATION DIVISION. * * FR9TO10 CONVERT * 4/2/96 * PROGRAM-ID. FR9TO10. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 SITE-SUB PIC S9(4) COMP SYNC. 77 SEX-SUB PIC S9(4) COMP SYNC. 77 ICD9-COM PIC S9(4) COMP SYNC. 01 TEMP-SITE-CELL. 03 ICD10-SITE-TEMP PIC X(4). 03 MU-FLAG-TEMP PIC X(1). 03 MO-FLAG-TEMP PIC X(1). 03 CM-FLAG-TEMP PIC X(1). 03 SX-FLAG-TEMP PIC X(1). 03 ML-FLAG-TEMP PIC X(1). 03 INV-SITE-TEMP PIC X(1). ************************************************************** * * * TABLE FOR SITE CONVERTION FROM ICD-9 TO ICD-10 AND FLAGS * * * * FLAGS - MU-FLAG -> MULTIPLE ICD-10 CODES, HAND REVIEW. * * MO-FLAG -> MORPHOLOGY BASED MULTIPLE ICD-10 * * CODES, HAND REVIEW. * * CM-FLAG -> ICD-9-CM CODE ONLY. * * SX-FLAG -> SEX BASED CONVERSION OF ICD-9 CODE. * * ML-FLAG -> MELANOMA IN SITU IN ICD-9-CM CODED AS * * CARCINOMA IN SITU. * * INVALID SITE - CODE IS IN VALID RANGE, BUT IT IS INVALID. * * * ************************************************************** 01 SITE-THREE-TABLE. 02 SITE3-ENTRY-140 PIC X(20) VALUE 'C00 000000C00 000000'. 02 SITE3-ENTRY-141 PIC X(20) VALUE 'C02 000000C02 000000'. 02 SITE3-ENTRY-142 PIC X(20) VALUE 'C08 000000C08 000000'. 02 SITE3-ENTRY-143 PIC X(20) VALUE 'C03 000000C03 000000'. 02 SITE3-ENTRY-144 PIC X(20) VALUE 'C04 000000C04 000000'. 02 SITE3-ENTRY-145 PIC X(20) VALUE 'C06 000000C06 000000'. 02 SITE3-ENTRY-146 PIC X(20) VALUE 'C10 000000C10 000000'. 02 SITE3-ENTRY-147 PIC X(20) VALUE 'C11 000000C11 000000'. 02 SITE3-ENTRY-148 PIC X(20) VALUE 'C13 000000C13 000000'. 02 SITE3-ENTRY-149 PIC X(20) VALUE 'C14 000000C14 000000'. 02 SITE3-ENTRY-150 PIC X(20) VALUE 'C15 000000C15 000000'. 02 SITE3-ENTRY-151 PIC X(20) VALUE 'C16 000000C16 000000'. 02 SITE3-ENTRY-152 PIC X(20) VALUE 'C17 000000C17 000000'. 02 SITE3-ENTRY-153 PIC X(20) VALUE 'C18 000000C18 000000'. 02 SITE3-ENTRY-154 PIC X(20) VALUE '99991000009999100000'. 02 SITE3-ENTRY-155 PIC X(20) VALUE 'C22 000000C22 000000'. 02 SITE3-ENTRY-156 PIC X(20) VALUE '99991000009999100000'. 02 SITE3-ENTRY-157 PIC X(20) VALUE 'C25 000000C25 000000'. 02 SITE3-ENTRY-158 PIC X(20) VALUE 'C48 000000C48 000000'. 02 SITE3-ENTRY-159 PIC X(20) VALUE 'C26 000000C26 000000'. 02 SITE3-ENTRY-160 PIC X(20) VALUE '99991000009999100000'. 02 SITE3-ENTRY-161 PIC X(20) VALUE 'C32 000000C32 000000'. 02 SITE3-ENTRY-162 PIC X(20) VALUE 'C34 100000C34 100000'. 02 SITE3-ENTRY-163 PIC X(20) VALUE 'C450110000C450110000'. 02 SITE3-ENTRY-164 PIC X(20) VALUE '99991000009999100000'. 02 SITE3-ENTRY-165 PIC X(20) VALUE 'C39 000000C39 000000'. 02 SITE3-ENTRY-166 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-167 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-168 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-169 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-170 PIC X(20) VALUE 'C41 100000C41 100000'. 02 SITE3-ENTRY-171 PIC X(20) VALUE 'C49 000000C49 000000'. 02 SITE3-ENTRY-172 PIC X(20) VALUE 'C43 000000C43 000000'. 02 SITE3-ENTRY-173 PIC X(20) VALUE '99991100009999110000'. 02 SITE3-ENTRY-174 PIC X(20) VALUE '9999000000C50 000100'. 02 SITE3-ENTRY-175 PIC X(20) VALUE 'C50 0001009999000000'. 02 SITE3-ENTRY-176 PIC X(20) VALUE 'C46 001000C46 001000'. 02 SITE3-ENTRY-177 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-178 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-179 PIC X(20) VALUE '9999000000C55 000100'. 02 SITE3-ENTRY-180 PIC X(20) VALUE '9999000000C53 000100'. 02 SITE3-ENTRY-181 PIC X(20) VALUE '9999000000C58 000100'. 02 SITE3-ENTRY-182 PIC X(20) VALUE '9999000000C54 000100'. 02 SITE3-ENTRY-183 PIC X(20) VALUE '9999000000C579100100'. 02 SITE3-ENTRY-184 PIC X(20) VALUE '9999000000C57 000100'. 02 SITE3-ENTRY-185 PIC X(20) VALUE 'C61 0001009999000000'. 02 SITE3-ENTRY-186 PIC X(20) VALUE 'C62 0001009999000000'. 02 SITE3-ENTRY-187 PIC X(20) VALUE 'C60 1001009999000000'. 02 SITE3-ENTRY-188 PIC X(20) VALUE 'C67 000000C67 000000'. 02 SITE3-ENTRY-189 PIC X(20) VALUE 'C68 100000C68 100000'. 02 SITE3-ENTRY-190 PIC X(20) VALUE 'C69 000000C69 000000'. 02 SITE3-ENTRY-191 PIC X(20) VALUE 'C71 000000C71 000000'. 02 SITE3-ENTRY-192 PIC X(20) VALUE 'C729000000C729000000'. 02 SITE3-ENTRY-193 PIC X(20) VALUE 'C73 000000C73 000000'. 02 SITE3-ENTRY-194 PIC X(20) VALUE 'C75 000000C75 000000'. 02 SITE3-ENTRY-195 PIC X(20) VALUE 'C76 000000C76 000000'. 02 SITE3-ENTRY-196 PIC X(20) VALUE 'C77 000000C77 000000'. 02 SITE3-ENTRY-197 PIC X(20) VALUE 'C78 000000C78 000000'. 02 SITE3-ENTRY-198 PIC X(20) VALUE 'C79 000000C79 000000'. 02 SITE3-ENTRY-199 PIC X(20) VALUE 'C80 000000C80 000000'. 02 SITE3-ENTRY-200 PIC X(20) VALUE 'C85 100000C85 100000'. 02 SITE3-ENTRY-201 PIC X(20) VALUE 'C81 000000C81 000000'. 02 SITE3-ENTRY-202 PIC X(20) VALUE 'C84 000000C84 000000'. 02 SITE3-ENTRY-203 PIC X(20) VALUE 'C90 000000C90 000000'. 02 SITE3-ENTRY-204 PIC X(20) VALUE 'C91 000000C91 000000'. 02 SITE3-ENTRY-205 PIC X(20) VALUE 'C92 000000C92 000000'. 02 SITE3-ENTRY-206 PIC X(20) VALUE 'C93 000000C93 000000'. 02 SITE3-ENTRY-207 PIC X(20) VALUE 'C94 000000C94 000000'. 02 SITE3-ENTRY-208 PIC X(20) VALUE 'C95 000000C95 000000'. 02 SITE3-ENTRY-209 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-210 PIC X(20) VALUE 'D10 000000D10 000000'. 02 SITE3-ENTRY-211 PIC X(20) VALUE 'D13 000000D13 000000'. 02 SITE3-ENTRY-212 PIC X(20) VALUE 'D14 000000D14 000000'. 02 SITE3-ENTRY-213 PIC X(20) VALUE 'D16 000000D16 000000'. 02 SITE3-ENTRY-214 PIC X(20) VALUE 'D17 000000D17 000000'. 02 SITE3-ENTRY-215 PIC X(20) VALUE 'D21 000000D21 000000'. 02 SITE3-ENTRY-216 PIC X(20) VALUE 'D23 000000D23 000000'. 02 SITE3-ENTRY-217 PIC X(20) VALUE 'D24 000000D24 000000'. 02 SITE3-ENTRY-218 PIC X(20) VALUE 'D25 000000D25 000000'. 02 SITE3-ENTRY-219 PIC X(20) VALUE 'D26 000000D26 000000'. 02 SITE3-ENTRY-220 PIC X(20) VALUE 'D27 000000D27 000000'. 02 SITE3-ENTRY-221 PIC X(20) VALUE 'D28 000000D28 000000'. 02 SITE3-ENTRY-222 PIC X(20) VALUE 'D29 000000D29 000000'. 02 SITE3-ENTRY-223 PIC X(20) VALUE 'D30 000000D30 000000'. 02 SITE3-ENTRY-224 PIC X(20) VALUE 'D31 000000D31 000000'. 02 SITE3-ENTRY-225 PIC X(20) VALUE 'D33 000000D33 000000'. 02 SITE3-ENTRY-226 PIC X(20) VALUE 'D34 000000D34 000000'. 02 SITE3-ENTRY-227 PIC X(20) VALUE 'D35 000000D35 000000'. 02 SITE3-ENTRY-228 PIC X(20) VALUE 'D18 000000D18 000000'. 02 SITE3-ENTRY-229 PIC X(20) VALUE 'D36 000000D36 000000'. 02 SITE3-ENTRY-230 PIC X(20) VALUE 'D01 100000D01 100000'. 02 SITE3-ENTRY-231 PIC X(20) VALUE 'D02 000000D02 000000'. 02 SITE3-ENTRY-232 PIC X(20) VALUE 'D04 110010D04 110010'. 02 SITE3-ENTRY-233 PIC X(20) VALUE '99991000009999100000'. 02 SITE3-ENTRY-234 PIC X(20) VALUE 'D09 000000D09 000000'. 02 SITE3-ENTRY-235 PIC X(20) VALUE '99991000009999100000'. 02 SITE3-ENTRY-236 PIC X(20) VALUE '99990000009999000000'. 02 SITE3-ENTRY-237 PIC X(20) VALUE '99991000009999100000'. 02 SITE3-ENTRY-238 PIC X(20) VALUE 'D48 000000D48 000000'. 02 SITE3-ENTRY-239 PIC X(20) VALUE 'D48 000000D48 000000'. 02 SITE3-ENTRY-240 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-241 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-242 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-243 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-244 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-245 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-246 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-247 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-248 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-249 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-250 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-251 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-252 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-253 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-254 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-255 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-256 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-257 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-258 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-259 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-260 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-261 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-262 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-263 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-264 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-265 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-266 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-267 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-268 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-269 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-270 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-271 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-272 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-273 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-274 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-275 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-276 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-277 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-278 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-279 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-280 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-281 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-282 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-283 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-284 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-285 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-286 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-287 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-288 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-289 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-290 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-630 PIC X(20) VALUE 'D392000000D392000000'. 01 SITE-THREE-TBL REDEFINES SITE-THREE-TABLE. 02 SITE-THREE-GROUP OCCURS 152 TIMES. 03 SITE-THREE-ENTRY OCCURS 2 TIMES. 05 ICD10-SITE PIC X(4). 05 MU-FLAG PIC X(1). 05 MO-FLAG PIC X(1). 05 CM-FLAG PIC X(1). 05 SX-FLAG PIC X(1). 05 ML-FLAG PIC X(1). 05 INV-SITE PIC X(1). 01 SITE-FOUR-TABLE. 02 SITE4-ENTRY-1400 PIC X(20) VALUE 'C000000000C000000000'. 02 SITE4-ENTRY-1401 PIC X(20) VALUE 'C001000000C001000000'. 02 SITE4-ENTRY-1402 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1403 PIC X(20) VALUE 'C003000000C003000000'. 02 SITE4-ENTRY-1404 PIC X(20) VALUE 'C004000000C004000000'. 02 SITE4-ENTRY-1405 PIC X(20) VALUE 'C005000000C005000000'. 02 SITE4-ENTRY-1406 PIC X(20) VALUE 'C006000000C006000000'. 02 SITE4-ENTRY-1407 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1408 PIC X(20) VALUE 'C008000000C008000000'. 02 SITE4-ENTRY-1409 PIC X(20) VALUE 'C009000000C009000000'. 02 SITE4-ENTRY-1410 PIC X(20) VALUE 'C01 000000C01 000000'. 02 SITE4-ENTRY-1411 PIC X(20) VALUE 'C020000000C020000000'. 02 SITE4-ENTRY-1412 PIC X(20) VALUE 'C021000000C021000000'. 02 SITE4-ENTRY-1413 PIC X(20) VALUE 'C022000000C022000000'. 02 SITE4-ENTRY-1414 PIC X(20) VALUE 'C023000000C023000000'. 02 SITE4-ENTRY-1415 PIC X(20) VALUE 'C028000000C028000000'. 02 SITE4-ENTRY-1416 PIC X(20) VALUE 'C024000000C024000000'. 02 SITE4-ENTRY-1417 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1418 PIC X(20) VALUE 'C028000000C028000000'. 02 SITE4-ENTRY-1419 PIC X(20) VALUE 'C029000000C029000000'. 02 SITE4-ENTRY-1420 PIC X(20) VALUE 'C07 000000C07 000000'. 02 SITE4-ENTRY-1421 PIC X(20) VALUE 'C080000000C080000000'. 02 SITE4-ENTRY-1422 PIC X(20) VALUE 'C081000000C081000000'. 02 SITE4-ENTRY-1423 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1424 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1425 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1426 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1427 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1428 PIC X(20) VALUE 'C088000000C088000000'. 02 SITE4-ENTRY-1429 PIC X(20) VALUE 'C089000000C089000000'. 02 SITE4-ENTRY-1430 PIC X(20) VALUE 'C030000000C030000000'. 02 SITE4-ENTRY-1431 PIC X(20) VALUE 'C031000000C031000000'. 02 SITE4-ENTRY-1432 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1433 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1434 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1435 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1436 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1437 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1438 PIC X(20) VALUE 'C039000000C039000000'. 02 SITE4-ENTRY-1439 PIC X(20) VALUE 'C039000000C039000000'. 02 SITE4-ENTRY-1440 PIC X(20) VALUE 'C040000000C040000000'. 02 SITE4-ENTRY-1441 PIC X(20) VALUE 'C041000000C041000000'. 02 SITE4-ENTRY-1442 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1443 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1444 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1445 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1446 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1447 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1448 PIC X(20) VALUE 'C048000000C048000000'. 02 SITE4-ENTRY-1449 PIC X(20) VALUE 'C049000000C049000000'. 02 SITE4-ENTRY-1450 PIC X(20) VALUE 'C060000000C060000000'. 02 SITE4-ENTRY-1451 PIC X(20) VALUE 'C061000000C061000000'. 02 SITE4-ENTRY-1452 PIC X(20) VALUE 'C050000000C050000000'. 02 SITE4-ENTRY-1453 PIC X(20) VALUE 'C051000000C051000000'. 02 SITE4-ENTRY-1454 PIC X(20) VALUE 'C052000000C052000000'. 02 SITE4-ENTRY-1455 PIC X(20) VALUE 'C059100000C059100000'. 02 SITE4-ENTRY-1456 PIC X(20) VALUE 'C062000000C062000000'. 02 SITE4-ENTRY-1457 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1458 PIC X(20) VALUE 'C068000000C068000000'. 02 SITE4-ENTRY-1459 PIC X(20) VALUE 'C069000000C069000000'. 02 SITE4-ENTRY-1460 PIC X(20) VALUE 'C099000000C099000000'. 02 SITE4-ENTRY-1461 PIC X(20) VALUE 'C090000000C090000000'. 02 SITE4-ENTRY-1462 PIC X(20) VALUE 'C091000000C091000000'. 02 SITE4-ENTRY-1463 PIC X(20) VALUE 'C100000000C100000000'. 02 SITE4-ENTRY-1464 PIC X(20) VALUE 'C101000000C101000000'. 02 SITE4-ENTRY-1465 PIC X(20) VALUE 'C108000000C108000000'. 02 SITE4-ENTRY-1466 PIC X(20) VALUE 'C102000000C102000000'. 02 SITE4-ENTRY-1467 PIC X(20) VALUE 'C103000000C103000000'. 02 SITE4-ENTRY-1468 PIC X(20) VALUE 'C108100000C108100000'. 02 SITE4-ENTRY-1469 PIC X(20) VALUE 'C109000000C109000000'. 02 SITE4-ENTRY-1470 PIC X(20) VALUE 'C110000000C110000000'. 02 SITE4-ENTRY-1471 PIC X(20) VALUE 'C111000000C111000000'. 02 SITE4-ENTRY-1472 PIC X(20) VALUE 'C112000000C112000000'. 02 SITE4-ENTRY-1473 PIC X(20) VALUE 'C113000000C113000000'. 02 SITE4-ENTRY-1474 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1475 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1476 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1477 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1478 PIC X(20) VALUE 'C118000000C118000000'. 02 SITE4-ENTRY-1479 PIC X(20) VALUE 'C119000000C119000000'. 02 SITE4-ENTRY-1480 PIC X(20) VALUE 'C130000000C130000000'. 02 SITE4-ENTRY-1481 PIC X(20) VALUE 'C12 000000C12 000000'. 02 SITE4-ENTRY-1482 PIC X(20) VALUE 'C131000000C131000000'. 02 SITE4-ENTRY-1483 PIC X(20) VALUE 'C132000000C132000000'. 02 SITE4-ENTRY-1484 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1485 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1486 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1487 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1488 PIC X(20) VALUE 'C138000000C138000000'. 02 SITE4-ENTRY-1489 PIC X(20) VALUE 'C139000000C139000000'. 02 SITE4-ENTRY-1490 PIC X(20) VALUE 'C140000000C140000000'. 02 SITE4-ENTRY-1491 PIC X(20) VALUE 'C142000000C142000000'. 02 SITE4-ENTRY-1492 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1493 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1494 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1495 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1496 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1497 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1498 PIC X(20) VALUE 'C148000000C148000000'. 02 SITE4-ENTRY-1499 PIC X(20) VALUE 'C148000000C148000000'. 02 SITE4-ENTRY-1500 PIC X(20) VALUE 'C150000000C150000000'. 02 SITE4-ENTRY-1501 PIC X(20) VALUE 'C151000000C151000000'. 02 SITE4-ENTRY-1502 PIC X(20) VALUE 'C152000000C152000000'. 02 SITE4-ENTRY-1503 PIC X(20) VALUE 'C153000000C153000000'. 02 SITE4-ENTRY-1504 PIC X(20) VALUE 'C154000000C154000000'. 02 SITE4-ENTRY-1505 PIC X(20) VALUE 'C155000000C155000000'. 02 SITE4-ENTRY-1506 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1507 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1508 PIC X(20) VALUE 'C158000000C158000000'. 02 SITE4-ENTRY-1509 PIC X(20) VALUE 'C159000000C159000000'. 02 SITE4-ENTRY-1510 PIC X(20) VALUE 'C160000000C160000000'. 02 SITE4-ENTRY-1511 PIC X(20) VALUE 'C164000000C164000000'. 02 SITE4-ENTRY-1512 PIC X(20) VALUE 'C163000000C163000000'. 02 SITE4-ENTRY-1513 PIC X(20) VALUE 'C161000000C161000000'. 02 SITE4-ENTRY-1514 PIC X(20) VALUE 'C162000000C162000000'. 02 SITE4-ENTRY-1515 PIC X(20) VALUE 'C165000000C165000000'. 02 SITE4-ENTRY-1516 PIC X(20) VALUE 'C166000000C166000000'. 02 SITE4-ENTRY-1517 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1518 PIC X(20) VALUE 'C168000000C168000000'. 02 SITE4-ENTRY-1519 PIC X(20) VALUE 'C169000000C169000000'. 02 SITE4-ENTRY-1520 PIC X(20) VALUE 'C170000000C170000000'. 02 SITE4-ENTRY-1521 PIC X(20) VALUE 'C171000000C171000000'. 02 SITE4-ENTRY-1522 PIC X(20) VALUE 'C172000000C172000000'. 02 SITE4-ENTRY-1523 PIC X(20) VALUE 'C173000000C173000000'. 02 SITE4-ENTRY-1524 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1525 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1526 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1527 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1528 PIC X(20) VALUE 'C178000000C178000000'. 02 SITE4-ENTRY-1529 PIC X(20) VALUE 'C179000000C179000000'. 02 SITE4-ENTRY-1530 PIC X(20) VALUE 'C183000000C183000000'. 02 SITE4-ENTRY-1531 PIC X(20) VALUE 'C184000000C184000000'. 02 SITE4-ENTRY-1532 PIC X(20) VALUE 'C186000000C186000000'. 02 SITE4-ENTRY-1533 PIC X(20) VALUE 'C187000000C187000000'. 02 SITE4-ENTRY-1534 PIC X(20) VALUE 'C180000000C180000000'. 02 SITE4-ENTRY-1535 PIC X(20) VALUE 'C181000000C181000000'. 02 SITE4-ENTRY-1536 PIC X(20) VALUE 'C182000000C182000000'. 02 SITE4-ENTRY-1537 PIC X(20) VALUE 'C185000000C185000000'. 02 SITE4-ENTRY-1538 PIC X(20) VALUE 'C188000000C188000000'. 02 SITE4-ENTRY-1539 PIC X(20) VALUE 'C189000000C189000000'. 02 SITE4-ENTRY-1540 PIC X(20) VALUE 'C19 000000C19 000000'. 02 SITE4-ENTRY-1541 PIC X(20) VALUE 'C20 000000C20 000000'. 02 SITE4-ENTRY-1542 PIC X(20) VALUE 'C211000000C211000000'. 02 SITE4-ENTRY-1543 PIC X(20) VALUE 'C210000000C210000000'. 02 SITE4-ENTRY-1544 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1545 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1546 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1547 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1548 PIC X(20) VALUE 'C218100000C218100000'. 02 SITE4-ENTRY-1549 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1550 PIC X(20) VALUE 'C220100000C220100000'. 02 SITE4-ENTRY-1551 PIC X(20) VALUE 'C221000000C221000000'. 02 SITE4-ENTRY-1552 PIC X(20) VALUE 'C229100000C229100000'. 02 SITE4-ENTRY-1553 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1554 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1555 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1556 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1557 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1558 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1559 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1560 PIC X(20) VALUE 'C23 000000C23 000000'. 02 SITE4-ENTRY-1561 PIC X(20) VALUE 'C240000000C240000000'. 02 SITE4-ENTRY-1562 PIC X(20) VALUE 'C241000000C241000000'. 02 SITE4-ENTRY-1563 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1564 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1565 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1566 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1567 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1568 PIC X(20) VALUE 'C248000000C248000000'. 02 SITE4-ENTRY-1569 PIC X(20) VALUE 'C249000000C249000000'. 02 SITE4-ENTRY-1570 PIC X(20) VALUE 'C250000000C250000000'. 02 SITE4-ENTRY-1571 PIC X(20) VALUE 'C251000000C251000000'. 02 SITE4-ENTRY-1572 PIC X(20) VALUE 'C252000000C252000000'. 02 SITE4-ENTRY-1573 PIC X(20) VALUE 'C253000000C253000000'. 02 SITE4-ENTRY-1574 PIC X(20) VALUE 'C254000000C254000000'. 02 SITE4-ENTRY-1575 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1576 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1577 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1578 PIC X(20) VALUE 'C258100000C258100000'. 02 SITE4-ENTRY-1579 PIC X(20) VALUE 'C259000000C259000000'. 02 SITE4-ENTRY-1580 PIC X(20) VALUE 'C480000000C480000000'. 02 SITE4-ENTRY-1581 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1582 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1583 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1584 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1585 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1586 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1587 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1588 PIC X(20) VALUE 'C481100000C481100000'. 02 SITE4-ENTRY-1589 PIC X(20) VALUE 'C482000000C482000000'. 02 SITE4-ENTRY-1590 PIC X(20) VALUE 'C260000000C260000000'. 02 SITE4-ENTRY-1591 PIC X(20) VALUE 'C261000000C261000000'. 02 SITE4-ENTRY-1592 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1593 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1594 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1595 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1596 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1597 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1598 PIC X(20) VALUE 'C268100000C268100000'. 02 SITE4-ENTRY-1599 PIC X(20) VALUE 'C269000000C269000000'. 02 SITE4-ENTRY-1600 PIC X(20) VALUE 'C300000000C300000000'. 02 SITE4-ENTRY-1601 PIC X(20) VALUE 'C301000000C301000000'. 02 SITE4-ENTRY-1602 PIC X(20) VALUE 'C310000000C310000000'. 02 SITE4-ENTRY-1603 PIC X(20) VALUE 'C311000000C311000000'. 02 SITE4-ENTRY-1604 PIC X(20) VALUE 'C312000000C312000000'. 02 SITE4-ENTRY-1605 PIC X(20) VALUE 'C313000000C313000000'. 02 SITE4-ENTRY-1606 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1607 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1608 PIC X(20) VALUE 'C318100000C318100000'. 02 SITE4-ENTRY-1609 PIC X(20) VALUE 'C319000000C319000000'. 02 SITE4-ENTRY-1610 PIC X(20) VALUE 'C320000000C320000000'. 02 SITE4-ENTRY-1611 PIC X(20) VALUE 'C321000000C321000000'. 02 SITE4-ENTRY-1612 PIC X(20) VALUE 'C322000000C322000000'. 02 SITE4-ENTRY-1613 PIC X(20) VALUE 'C323000000C323000000'. 02 SITE4-ENTRY-1614 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1615 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1616 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1617 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1618 PIC X(20) VALUE 'C328000000C328000000'. 02 SITE4-ENTRY-1619 PIC X(20) VALUE 'C329000000C329000000'. 02 SITE4-ENTRY-1620 PIC X(20) VALUE 'C33 000000C33 000000'. 02 SITE4-ENTRY-1621 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1622 PIC X(20) VALUE 'C340000000C340000000'. 02 SITE4-ENTRY-1623 PIC X(20) VALUE 'C341000000C341000000'. 02 SITE4-ENTRY-1624 PIC X(20) VALUE 'C342000000C342000000'. 02 SITE4-ENTRY-1625 PIC X(20) VALUE 'C343000000C343000000'. 02 SITE4-ENTRY-1626 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1627 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1628 PIC X(20) VALUE 'C348000000C348000000'. 02 SITE4-ENTRY-1629 PIC X(20) VALUE 'C349000000C349000000'. 02 SITE4-ENTRY-1630 PIC X(20) VALUE 'C450110000C450110000'. 02 SITE4-ENTRY-1631 PIC X(20) VALUE 'C450110000C450110000'. 02 SITE4-ENTRY-1632 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1633 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1634 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1635 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1636 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1637 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1638 PIC X(20) VALUE 'C450110000C450110000'. 02 SITE4-ENTRY-1639 PIC X(20) VALUE 'C450110000C450110000'. 02 SITE4-ENTRY-1640 PIC X(20) VALUE 'C37 000000C37 000000'. 02 SITE4-ENTRY-1641 PIC X(20) VALUE 'C380000000C380000000'. 02 SITE4-ENTRY-1642 PIC X(20) VALUE 'C381000000C381000000'. 02 SITE4-ENTRY-1643 PIC X(20) VALUE 'C382000000C382000000'. 02 SITE4-ENTRY-1644 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1645 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1646 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1647 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1648 PIC X(20) VALUE 'C388000000C388000000'. 02 SITE4-ENTRY-1649 PIC X(20) VALUE 'C383000000C383000000'. 02 SITE4-ENTRY-1650 PIC X(20) VALUE 'C390000000C390000000'. 02 SITE4-ENTRY-1651 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1652 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1653 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1654 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1655 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1656 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1657 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1658 PIC X(20) VALUE 'C398000000C398000000'. 02 SITE4-ENTRY-1659 PIC X(20) VALUE 'C399000000C399000000'. 02 SITE4-ENTRY-1660 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1661 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1662 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1663 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1664 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1665 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1666 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1667 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1668 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1669 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1670 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1671 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1672 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1673 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1674 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1675 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1676 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1677 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1678 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1679 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1680 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1681 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1682 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1683 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1684 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1685 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1686 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1687 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1688 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1689 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1690 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1691 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1692 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1693 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1694 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1695 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1696 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1697 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1698 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1699 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1700 PIC X(20) VALUE 'C410000000C410000000'. 02 SITE4-ENTRY-1701 PIC X(20) VALUE 'C411000000C411000000'. 02 SITE4-ENTRY-1702 PIC X(20) VALUE 'C412000000C412000000'. 02 SITE4-ENTRY-1703 PIC X(20) VALUE 'C413000000C413000000'. 02 SITE4-ENTRY-1704 PIC X(20) VALUE 'C400000000C400000000'. 02 SITE4-ENTRY-1705 PIC X(20) VALUE 'C401000000C401000000'. 02 SITE4-ENTRY-1706 PIC X(20) VALUE 'C414000000C414000000'. 02 SITE4-ENTRY-1707 PIC X(20) VALUE 'C402000000C402000000'. 02 SITE4-ENTRY-1708 PIC X(20) VALUE 'C403000000C403000000'. 02 SITE4-ENTRY-1709 PIC X(20) VALUE 'C419100000C419100000'. 02 SITE4-ENTRY-1710 PIC X(20) VALUE 'C490100000C490100000'. 02 SITE4-ENTRY-1711 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1712 PIC X(20) VALUE 'C491100000C491100000'. 02 SITE4-ENTRY-1713 PIC X(20) VALUE 'C492100000C492100000'. 02 SITE4-ENTRY-1714 PIC X(20) VALUE 'C493100000C493100000'. 02 SITE4-ENTRY-1715 PIC X(20) VALUE 'C494100000C494100000'. 02 SITE4-ENTRY-1716 PIC X(20) VALUE 'C495100000C495100000'. 02 SITE4-ENTRY-1717 PIC X(20) VALUE 'C496100000C496100000'. 02 SITE4-ENTRY-1718 PIC X(20) VALUE 'C498100000C498100000'. 02 SITE4-ENTRY-1719 PIC X(20) VALUE 'C499100000C499100000'. 02 SITE4-ENTRY-1720 PIC X(20) VALUE 'C430000000C430000000'. 02 SITE4-ENTRY-1721 PIC X(20) VALUE 'C431000000C431000000'. 02 SITE4-ENTRY-1722 PIC X(20) VALUE 'C432000000C432000000'. 02 SITE4-ENTRY-1723 PIC X(20) VALUE 'C433000000C433000000'. 02 SITE4-ENTRY-1724 PIC X(20) VALUE 'C434000000C434000000'. 02 SITE4-ENTRY-1725 PIC X(20) VALUE 'C435000000C435000000'. 02 SITE4-ENTRY-1726 PIC X(20) VALUE 'C436000000C436000000'. 02 SITE4-ENTRY-1727 PIC X(20) VALUE 'C437000000C437000000'. 02 SITE4-ENTRY-1728 PIC X(20) VALUE 'C438000000C438000000'. 02 SITE4-ENTRY-1729 PIC X(20) VALUE 'C439000000C439000000'. 02 SITE4-ENTRY-1730 PIC X(20) VALUE 'C440110000C440110000'. 02 SITE4-ENTRY-1731 PIC X(20) VALUE 'C441110000C441110000'. 02 SITE4-ENTRY-1732 PIC X(20) VALUE 'C442110000C442110000'. 02 SITE4-ENTRY-1733 PIC X(20) VALUE 'C443110000C443110000'. 02 SITE4-ENTRY-1734 PIC X(20) VALUE 'C444110000C444110000'. 02 SITE4-ENTRY-1735 PIC X(20) VALUE 'C445110000C445110000'. 02 SITE4-ENTRY-1736 PIC X(20) VALUE 'C446110000C446110000'. 02 SITE4-ENTRY-1737 PIC X(20) VALUE 'C447110000C447110000'. 02 SITE4-ENTRY-1738 PIC X(20) VALUE 'C448110000C448110000'. 02 SITE4-ENTRY-1739 PIC X(20) VALUE 'C449110000C449110000'. 02 SITE4-ENTRY-1740 PIC X(20) VALUE '9999000000C500000100'. 02 SITE4-ENTRY-1741 PIC X(20) VALUE '9999000000C501000100'. 02 SITE4-ENTRY-1742 PIC X(20) VALUE '9999000000C502000100'. 02 SITE4-ENTRY-1743 PIC X(20) VALUE '9999000000C503000100'. 02 SITE4-ENTRY-1744 PIC X(20) VALUE '9999000000C504000100'. 02 SITE4-ENTRY-1745 PIC X(20) VALUE '9999000000C505000100'. 02 SITE4-ENTRY-1746 PIC X(20) VALUE '9999000000C506000100'. 02 SITE4-ENTRY-1747 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1748 PIC X(20) VALUE '9999000000C508000100'. 02 SITE4-ENTRY-1749 PIC X(20) VALUE '9999000000C509000100'. 02 SITE4-ENTRY-1750 PIC X(20) VALUE 'C5000011009999000000'. 02 SITE4-ENTRY-1751 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1752 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1753 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1754 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1755 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1756 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1757 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1758 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1759 PIC X(20) VALUE 'C5091011009999000000'. 02 SITE4-ENTRY-1760 PIC X(20) VALUE 'C460001000C460001000'. 02 SITE4-ENTRY-1761 PIC X(20) VALUE 'C461001000C461001000'. 02 SITE4-ENTRY-1762 PIC X(20) VALUE 'C462001000C462001000'. 02 SITE4-ENTRY-1763 PIC X(20) VALUE 'C467001000C467001000'. 02 SITE4-ENTRY-1764 PIC X(20) VALUE 'C467001000C467001000'. 02 SITE4-ENTRY-1765 PIC X(20) VALUE 'C463001000C463001000'. 02 SITE4-ENTRY-1766 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1767 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1768 PIC X(20) VALUE 'C467001000C467001000'. 02 SITE4-ENTRY-1769 PIC X(20) VALUE 'C469001000C469001000'. 02 SITE4-ENTRY-1770 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1771 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1772 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1773 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1774 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1775 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1776 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1777 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1778 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1779 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1780 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1781 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1782 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1783 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1784 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1785 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1786 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1787 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1788 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1789 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1790 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1791 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1792 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1793 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1794 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1795 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1796 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1797 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1798 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1799 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1800 PIC X(20) VALUE '9999000000C530000100'. 02 SITE4-ENTRY-1801 PIC X(20) VALUE '9999000000C531000100'. 02 SITE4-ENTRY-1802 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1803 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1804 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1805 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1806 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1807 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1808 PIC X(20) VALUE '9999000000C538000100'. 02 SITE4-ENTRY-1809 PIC X(20) VALUE '9999000000C539000100'. 02 SITE4-ENTRY-1810 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1811 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1812 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1813 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1814 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1815 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1816 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1817 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1818 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1819 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1820 PIC X(20) VALUE '9999000000C54 100100'. 02 SITE4-ENTRY-1821 PIC X(20) VALUE '9999000000C540000100'. 02 SITE4-ENTRY-1822 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1823 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1824 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1825 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1826 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1827 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1828 PIC X(20) VALUE '9999000000C548000100'. 02 SITE4-ENTRY-1829 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1830 PIC X(20) VALUE '9999000000C56 000100'. 02 SITE4-ENTRY-1831 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1832 PIC X(20) VALUE '9999000000C570000100'. 02 SITE4-ENTRY-1833 PIC X(20) VALUE '9999000000C571000100'. 02 SITE4-ENTRY-1834 PIC X(20) VALUE '9999000000C573000100'. 02 SITE4-ENTRY-1835 PIC X(20) VALUE '9999000000C572000100'. 02 SITE4-ENTRY-1836 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1837 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1838 PIC X(20) VALUE '9999000000C578000100'. 02 SITE4-ENTRY-1839 PIC X(20) VALUE '9999000000C574000100'. 02 SITE4-ENTRY-1840 PIC X(20) VALUE '9999000000C52 000100'. 02 SITE4-ENTRY-1841 PIC X(20) VALUE '9999000000C510000100'. 02 SITE4-ENTRY-1842 PIC X(20) VALUE '9999000000C511000100'. 02 SITE4-ENTRY-1843 PIC X(20) VALUE '9999000000C512000100'. 02 SITE4-ENTRY-1844 PIC X(20) VALUE '9999000000C519100100'. 02 SITE4-ENTRY-1845 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1846 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1847 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1848 PIC X(20) VALUE '9999000000C578100100'. 02 SITE4-ENTRY-1849 PIC X(20) VALUE '9999000000C579000100'. 02 SITE4-ENTRY-1850 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1851 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1852 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1853 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1854 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1855 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1856 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1857 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1858 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1859 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1860 PIC X(20) VALUE 'C6200001009999000000'. 02 SITE4-ENTRY-1861 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1862 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1863 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1864 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1865 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1866 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1867 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1868 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1869 PIC X(20) VALUE 'C6291001009999000000'. 02 SITE4-ENTRY-1870 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1871 PIC X(20) VALUE 'C6000001009999000000'. 02 SITE4-ENTRY-1872 PIC X(20) VALUE 'C6010001009999000000'. 02 SITE4-ENTRY-1873 PIC X(20) VALUE 'C6020001009999000000'. 02 SITE4-ENTRY-1874 PIC X(20) VALUE 'C6091001009999000000'. 02 SITE4-ENTRY-1875 PIC X(20) VALUE 'C6300001009999000000'. 02 SITE4-ENTRY-1876 PIC X(20) VALUE 'C6310001009999000000'. 02 SITE4-ENTRY-1877 PIC X(20) VALUE 'C6320001009999000000'. 02 SITE4-ENTRY-1878 PIC X(20) VALUE 'C6371001009999000000'. 02 SITE4-ENTRY-1879 PIC X(20) VALUE 'C6390001009999000000'. 02 SITE4-ENTRY-1880 PIC X(20) VALUE 'C670000000C670000000'. 02 SITE4-ENTRY-1881 PIC X(20) VALUE 'C671000000C671000000'. 02 SITE4-ENTRY-1882 PIC X(20) VALUE 'C672000000C672000000'. 02 SITE4-ENTRY-1883 PIC X(20) VALUE 'C673000000C673000000'. 02 SITE4-ENTRY-1884 PIC X(20) VALUE 'C674000000C674000000'. 02 SITE4-ENTRY-1885 PIC X(20) VALUE 'C675000000C675000000'. 02 SITE4-ENTRY-1886 PIC X(20) VALUE 'C676000000C676000000'. 02 SITE4-ENTRY-1887 PIC X(20) VALUE 'C677000000C677000000'. 02 SITE4-ENTRY-1888 PIC X(20) VALUE 'C678000000C678000000'. 02 SITE4-ENTRY-1889 PIC X(20) VALUE 'C679000000C679000000'. 02 SITE4-ENTRY-1890 PIC X(20) VALUE 'C64 000000C64 000000'. 02 SITE4-ENTRY-1891 PIC X(20) VALUE 'C65 000000C65 000000'. 02 SITE4-ENTRY-1892 PIC X(20) VALUE 'C66 000000C66 000000'. 02 SITE4-ENTRY-1893 PIC X(20) VALUE 'C680000000C680000000'. 02 SITE4-ENTRY-1894 PIC X(20) VALUE 'C681000000C681000000'. 02 SITE4-ENTRY-1895 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1896 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1897 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1898 PIC X(20) VALUE 'C688000000C688000000'. 02 SITE4-ENTRY-1899 PIC X(20) VALUE 'C689000000C689000000'. 02 SITE4-ENTRY-1900 PIC X(20) VALUE 'C694000000C694000000'. 02 SITE4-ENTRY-1901 PIC X(20) VALUE 'C696000000C696000000'. 02 SITE4-ENTRY-1902 PIC X(20) VALUE 'C695000000C695000000'. 02 SITE4-ENTRY-1903 PIC X(20) VALUE 'C690000000C690000000'. 02 SITE4-ENTRY-1904 PIC X(20) VALUE 'C691000000C691000000'. 02 SITE4-ENTRY-1905 PIC X(20) VALUE 'C692000000C692000000'. 02 SITE4-ENTRY-1906 PIC X(20) VALUE 'C693000000C693000000'. 02 SITE4-ENTRY-1907 PIC X(20) VALUE 'C695000000C695000000'. 02 SITE4-ENTRY-1908 PIC X(20) VALUE 'C698000000C698000000'. 02 SITE4-ENTRY-1909 PIC X(20) VALUE 'C699000000C699000000'. 02 SITE4-ENTRY-1910 PIC X(20) VALUE 'C710000000C710000000'. 02 SITE4-ENTRY-1911 PIC X(20) VALUE 'C711000000C711000000'. 02 SITE4-ENTRY-1912 PIC X(20) VALUE 'C712000000C712000000'. 02 SITE4-ENTRY-1913 PIC X(20) VALUE 'C713000000C713000000'. 02 SITE4-ENTRY-1914 PIC X(20) VALUE 'C714000000C714000000'. 02 SITE4-ENTRY-1915 PIC X(20) VALUE 'C715100000C715100000'. 02 SITE4-ENTRY-1916 PIC X(20) VALUE 'C716000000C716000000'. 02 SITE4-ENTRY-1917 PIC X(20) VALUE 'C717000000C717000000'. 02 SITE4-ENTRY-1918 PIC X(20) VALUE 'C718000000C718000000'. 02 SITE4-ENTRY-1919 PIC X(20) VALUE 'C719000000C719000000'. 02 SITE4-ENTRY-1920 PIC X(20) VALUE 'C725100000C725100000'. 02 SITE4-ENTRY-1921 PIC X(20) VALUE 'C700100000C700100000'. 02 SITE4-ENTRY-1922 PIC X(20) VALUE 'C720100000C720100000'. 02 SITE4-ENTRY-1923 PIC X(20) VALUE 'C701000000C701000000'. 02 SITE4-ENTRY-1924 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1925 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1926 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1927 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1928 PIC X(20) VALUE 'C728000000C728000000'. 02 SITE4-ENTRY-1929 PIC X(20) VALUE 'C729000000C729000000'. 02 SITE4-ENTRY-1930 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1931 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1932 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1933 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1934 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1935 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1936 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1937 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1938 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1939 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1940 PIC X(20) VALUE 'C749100000C749100000'. 02 SITE4-ENTRY-1941 PIC X(20) VALUE 'C750000000C750000000'. 02 SITE4-ENTRY-1942 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1943 PIC X(20) VALUE 'C751100000C751100000'. 02 SITE4-ENTRY-1944 PIC X(20) VALUE 'C753000000C753000000'. 02 SITE4-ENTRY-1945 PIC X(20) VALUE 'C754000000C754000000'. 02 SITE4-ENTRY-1946 PIC X(20) VALUE 'C755000000C755000000'. 02 SITE4-ENTRY-1947 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1948 PIC X(20) VALUE 'C758000000C758000000'. 02 SITE4-ENTRY-1949 PIC X(20) VALUE 'C759000000C759000000'. 02 SITE4-ENTRY-1950 PIC X(20) VALUE 'C760000000C760000000'. 02 SITE4-ENTRY-1951 PIC X(20) VALUE 'C761000000C761000000'. 02 SITE4-ENTRY-1952 PIC X(20) VALUE 'C762000000C762000000'. 02 SITE4-ENTRY-1953 PIC X(20) VALUE 'C763000000C763000000'. 02 SITE4-ENTRY-1954 PIC X(20) VALUE 'C764000000C764000000'. 02 SITE4-ENTRY-1955 PIC X(20) VALUE 'C765000000C765000000'. 02 SITE4-ENTRY-1956 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1957 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1958 PIC X(20) VALUE 'C767100000C767100000'. 02 SITE4-ENTRY-1959 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1960 PIC X(20) VALUE 'C770000000C770000000'. 02 SITE4-ENTRY-1961 PIC X(20) VALUE 'C771000000C771000000'. 02 SITE4-ENTRY-1962 PIC X(20) VALUE 'C772000000C772000000'. 02 SITE4-ENTRY-1963 PIC X(20) VALUE 'C773000000C773000000'. 02 SITE4-ENTRY-1964 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1965 PIC X(20) VALUE 'C774000000C774000000'. 02 SITE4-ENTRY-1966 PIC X(20) VALUE 'C775000000C775000000'. 02 SITE4-ENTRY-1967 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1968 PIC X(20) VALUE 'C778000000C778000000'. 02 SITE4-ENTRY-1969 PIC X(20) VALUE 'C779000000C779000000'. 02 SITE4-ENTRY-1970 PIC X(20) VALUE 'C780000000C780000000'. 02 SITE4-ENTRY-1971 PIC X(20) VALUE 'C781000000C781000000'. 02 SITE4-ENTRY-1972 PIC X(20) VALUE 'C782000000C782000000'. 02 SITE4-ENTRY-1973 PIC X(20) VALUE 'C783000000C783000000'. 02 SITE4-ENTRY-1974 PIC X(20) VALUE 'C784000000C784000000'. 02 SITE4-ENTRY-1975 PIC X(20) VALUE 'C785000000C785000000'. 02 SITE4-ENTRY-1976 PIC X(20) VALUE 'C786000000C786000000'. 02 SITE4-ENTRY-1977 PIC X(20) VALUE 'C787000000C787000000'. 02 SITE4-ENTRY-1978 PIC X(20) VALUE 'C788000000C788000000'. 02 SITE4-ENTRY-1979 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1980 PIC X(20) VALUE 'C790000000C790000000'. 02 SITE4-ENTRY-1981 PIC X(20) VALUE 'C791000000C791000000'. 02 SITE4-ENTRY-1982 PIC X(20) VALUE 'C792000000C792000000'. 02 SITE4-ENTRY-1983 PIC X(20) VALUE 'C793000000C793000000'. 02 SITE4-ENTRY-1984 PIC X(20) VALUE 'C794000000C794000000'. 02 SITE4-ENTRY-1985 PIC X(20) VALUE 'C795000000C795000000'. 02 SITE4-ENTRY-1986 PIC X(20) VALUE 'C796000000C796000000'. 02 SITE4-ENTRY-1987 PIC X(20) VALUE 'C797000000C797000000'. 02 SITE4-ENTRY-1988 PIC X(20) VALUE 'C798000000C798000000'. 02 SITE4-ENTRY-1989 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1990 PIC X(20) VALUE 'C80 000000C80 000000'. 02 SITE4-ENTRY-1991 PIC X(20) VALUE 'C80 000000C80 000000'. 02 SITE4-ENTRY-1992 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1993 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1994 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1995 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1996 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1997 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1998 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-1999 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2000 PIC X(20) VALUE 'C833100000C833100000'. 02 SITE4-ENTRY-2001 PIC X(20) VALUE 'C850000000C850000000'. 02 SITE4-ENTRY-2002 PIC X(20) VALUE 'C837000000C837000000'. 02 SITE4-ENTRY-2003 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2004 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2005 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2006 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2007 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2008 PIC X(20) VALUE 'C832000000C832000000'. 02 SITE4-ENTRY-2009 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2010 PIC X(20) VALUE 'C817000000C817000000'. 02 SITE4-ENTRY-2011 PIC X(20) VALUE 'C817000000C817000000'. 02 SITE4-ENTRY-2012 PIC X(20) VALUE 'C817000000C817000000'. 02 SITE4-ENTRY-2013 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2014 PIC X(20) VALUE 'C810000000C810000000'. 02 SITE4-ENTRY-2015 PIC X(20) VALUE 'C811000000C811000000'. 02 SITE4-ENTRY-2016 PIC X(20) VALUE 'C812000000C812000000'. 02 SITE4-ENTRY-2017 PIC X(20) VALUE 'C813000000C813000000'. 02 SITE4-ENTRY-2018 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2019 PIC X(20) VALUE 'C819000000C819000000'. 02 SITE4-ENTRY-2020 PIC X(20) VALUE 'C829000000C829000000'. 02 SITE4-ENTRY-2021 PIC X(20) VALUE 'C840000000C840000000'. 02 SITE4-ENTRY-2022 PIC X(20) VALUE 'C841000000C841000000'. 02 SITE4-ENTRY-2023 PIC X(20) VALUE 'C961000000C961000000'. 02 SITE4-ENTRY-2024 PIC X(20) VALUE 'C914000000C914000000'. 02 SITE4-ENTRY-2025 PIC X(20) VALUE 'C960000000C960000000'. 02 SITE4-ENTRY-2026 PIC X(20) VALUE 'C962000000C962000000'. 02 SITE4-ENTRY-2027 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2028 PIC X(20) VALUE 'C859000000C859000000'. 02 SITE4-ENTRY-2029 PIC X(20) VALUE 'C969000000C969000000'. 02 SITE4-ENTRY-2030 PIC X(20) VALUE 'C900000000C900000000'. 02 SITE4-ENTRY-2031 PIC X(20) VALUE 'C901000000C901000000'. 02 SITE4-ENTRY-2032 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2033 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2034 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2035 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2036 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2037 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2038 PIC X(20) VALUE 'C889000000C889000000'. 02 SITE4-ENTRY-2039 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2040 PIC X(20) VALUE 'C910000000C910000000'. 02 SITE4-ENTRY-2041 PIC X(20) VALUE 'C911000000C911000000'. 02 SITE4-ENTRY-2042 PIC X(20) VALUE 'C912000000C912000000'. 02 SITE4-ENTRY-2043 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2044 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2045 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2046 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2047 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2048 PIC X(20) VALUE 'C917100000C917100000'. 02 SITE4-ENTRY-2049 PIC X(20) VALUE 'C919000000C919000000'. 02 SITE4-ENTRY-2050 PIC X(20) VALUE 'C920100000C920100000'. 02 SITE4-ENTRY-2051 PIC X(20) VALUE 'C921000000C921000000'. 02 SITE4-ENTRY-2052 PIC X(20) VALUE 'C922000000C922000000'. 02 SITE4-ENTRY-2053 PIC X(20) VALUE 'C923000000C923000000'. 02 SITE4-ENTRY-2054 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2055 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2056 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2057 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2058 PIC X(20) VALUE 'C927000000C927000000'. 02 SITE4-ENTRY-2059 PIC X(20) VALUE 'C929000000C929000000'. 02 SITE4-ENTRY-2060 PIC X(20) VALUE 'C930000000C930000000'. 02 SITE4-ENTRY-2061 PIC X(20) VALUE 'C931000000C931000000'. 02 SITE4-ENTRY-2062 PIC X(20) VALUE 'C932000000C932000000'. 02 SITE4-ENTRY-2063 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2064 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2065 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2066 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2067 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2068 PIC X(20) VALUE 'C937000000C937000000'. 02 SITE4-ENTRY-2069 PIC X(20) VALUE 'C939000000C939000000'. 02 SITE4-ENTRY-2070 PIC X(20) VALUE 'C940000000C940000000'. 02 SITE4-ENTRY-2071 PIC X(20) VALUE 'C941000000C941000000'. 02 SITE4-ENTRY-2072 PIC X(20) VALUE 'C942000000C942000000'. 02 SITE4-ENTRY-2073 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2074 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2075 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2076 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2077 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2078 PIC X(20) VALUE 'C947100000C947100000'. 02 SITE4-ENTRY-2079 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2080 PIC X(20) VALUE 'C950000000C950000000'. 02 SITE4-ENTRY-2081 PIC X(20) VALUE 'C951000000C951000000'. 02 SITE4-ENTRY-2082 PIC X(20) VALUE 'C952000000C952000000'. 02 SITE4-ENTRY-2083 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2084 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2085 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2086 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2087 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2088 PIC X(20) VALUE 'C957000000C957000000'. 02 SITE4-ENTRY-2089 PIC X(20) VALUE 'C959000000C959000000'. 02 SITE4-ENTRY-2090 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2091 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2092 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2093 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2094 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2095 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2096 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2097 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2098 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2099 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2100 PIC X(20) VALUE 'D100000000D100000000'. 02 SITE4-ENTRY-2101 PIC X(20) VALUE 'D101000000D101000000'. 02 SITE4-ENTRY-2102 PIC X(20) VALUE 'D11 100000D11 100000'. 02 SITE4-ENTRY-2103 PIC X(20) VALUE 'D102000000D102000000'. 02 SITE4-ENTRY-2104 PIC X(20) VALUE 'D103000000D103000000'. 02 SITE4-ENTRY-2105 PIC X(20) VALUE 'D104000000D104000000'. 02 SITE4-ENTRY-2106 PIC X(20) VALUE 'D105000000D105000000'. 02 SITE4-ENTRY-2107 PIC X(20) VALUE 'D106000000D106000000'. 02 SITE4-ENTRY-2108 PIC X(20) VALUE 'D107000000D107000000'. 02 SITE4-ENTRY-2109 PIC X(20) VALUE 'D109000000D109000000'. 02 SITE4-ENTRY-2110 PIC X(20) VALUE 'D130000000D130000000'. 02 SITE4-ENTRY-2111 PIC X(20) VALUE 'D131000000D131000000'. 02 SITE4-ENTRY-2112 PIC X(20) VALUE 'D132100000D132100000'. 02 SITE4-ENTRY-2113 PIC X(20) VALUE 'D126100000D126100000'. 02 SITE4-ENTRY-2114 PIC X(20) VALUE 'D128100000D128100000'. 02 SITE4-ENTRY-2115 PIC X(20) VALUE 'D134100000D134100000'. 02 SITE4-ENTRY-2116 PIC X(20) VALUE 'D136000000D136000000'. 02 SITE4-ENTRY-2117 PIC X(20) VALUE 'D137000000D137000000'. 02 SITE4-ENTRY-2118 PIC X(20) VALUE 'D20 100000D20 100000'. 02 SITE4-ENTRY-2119 PIC X(20) VALUE 'D139000000D139000000'. 02 SITE4-ENTRY-2120 PIC X(20) VALUE 'D140000000D140000000'. 02 SITE4-ENTRY-2121 PIC X(20) VALUE 'D141000000D141000000'. 02 SITE4-ENTRY-2122 PIC X(20) VALUE 'D142000000D142000000'. 02 SITE4-ENTRY-2123 PIC X(20) VALUE 'D143000000D143000000'. 02 SITE4-ENTRY-2124 PIC X(20) VALUE 'D157000000D157000000'. 02 SITE4-ENTRY-2125 PIC X(20) VALUE 'D152000000D152000000'. 02 SITE4-ENTRY-2126 PIC X(20) VALUE 'D150000000D150000000'. 02 SITE4-ENTRY-2127 PIC X(20) VALUE 'D151000000D151000000'. 02 SITE4-ENTRY-2128 PIC X(20) VALUE 'D157000000D157000000'. 02 SITE4-ENTRY-2129 PIC X(20) VALUE 'D144000000D144000000'. 02 SITE4-ENTRY-2130 PIC X(20) VALUE 'D164000000D164000000'. 02 SITE4-ENTRY-2131 PIC X(20) VALUE 'D165000000D165000000'. 02 SITE4-ENTRY-2132 PIC X(20) VALUE 'D166000000D166000000'. 02 SITE4-ENTRY-2133 PIC X(20) VALUE 'D167000000D167000000'. 02 SITE4-ENTRY-2134 PIC X(20) VALUE 'D160000000D160000000'. 02 SITE4-ENTRY-2135 PIC X(20) VALUE 'D161000000D161000000'. 02 SITE4-ENTRY-2136 PIC X(20) VALUE 'D168000000D168000000'. 02 SITE4-ENTRY-2137 PIC X(20) VALUE 'D162000000D162000000'. 02 SITE4-ENTRY-2138 PIC X(20) VALUE 'D163000000D163000000'. 02 SITE4-ENTRY-2139 PIC X(20) VALUE 'D169000000D169000000'. 02 SITE4-ENTRY-2140 PIC X(20) VALUE 'D17 101000D17 101000'. 02 SITE4-ENTRY-2141 PIC X(20) VALUE 'D17 101000D17 101000'. 02 SITE4-ENTRY-2142 PIC X(20) VALUE 'D17 101000D17 101000'. 02 SITE4-ENTRY-2143 PIC X(20) VALUE 'D17 101000D17 101000'. 02 SITE4-ENTRY-2144 PIC X(20) VALUE 'D17 101000D17 101000'. 02 SITE4-ENTRY-2145 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2146 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2147 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2148 PIC X(20) VALUE 'D17 101000D17 101000'. 02 SITE4-ENTRY-2149 PIC X(20) VALUE 'D17 101000D17 101000'. 02 SITE4-ENTRY-2150 PIC X(20) VALUE 'D210000000D210000000'. 02 SITE4-ENTRY-2151 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2152 PIC X(20) VALUE 'D211000000D211000000'. 02 SITE4-ENTRY-2153 PIC X(20) VALUE 'D212000000D212000000'. 02 SITE4-ENTRY-2154 PIC X(20) VALUE 'D213000000D213000000'. 02 SITE4-ENTRY-2155 PIC X(20) VALUE 'D214000000D214000000'. 02 SITE4-ENTRY-2156 PIC X(20) VALUE 'D215000000D215000000'. 02 SITE4-ENTRY-2157 PIC X(20) VALUE 'D216000000D216000000'. 02 SITE4-ENTRY-2158 PIC X(20) VALUE 'D219000000D219000000'. 02 SITE4-ENTRY-2159 PIC X(20) VALUE 'D219000000D219000000'. 02 SITE4-ENTRY-2160 PIC X(20) VALUE 'D230100000D230100000'. 02 SITE4-ENTRY-2161 PIC X(20) VALUE 'D231100000D231100000'. 02 SITE4-ENTRY-2162 PIC X(20) VALUE 'D232100000D232100000'. 02 SITE4-ENTRY-2163 PIC X(20) VALUE 'D233100000D233100000'. 02 SITE4-ENTRY-2164 PIC X(20) VALUE 'D234100000D234100000'. 02 SITE4-ENTRY-2165 PIC X(20) VALUE 'D235100000D235100000'. 02 SITE4-ENTRY-2166 PIC X(20) VALUE 'D236100000D236100000'. 02 SITE4-ENTRY-2167 PIC X(20) VALUE 'D237100000D237100000'. 02 SITE4-ENTRY-2168 PIC X(20) VALUE 'D239100000D239100000'. 02 SITE4-ENTRY-2169 PIC X(20) VALUE 'D239100000D239100000'. 02 SITE4-ENTRY-2170 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2171 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2172 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2173 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2174 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2175 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2176 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2177 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2178 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2179 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2180 PIC X(20) VALUE 'D250001000D250001000'. 02 SITE4-ENTRY-2181 PIC X(20) VALUE 'D251001000D251001000'. 02 SITE4-ENTRY-2182 PIC X(20) VALUE 'D252001000D252001000'. 02 SITE4-ENTRY-2183 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2184 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2185 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2186 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2187 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2188 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2189 PIC X(20) VALUE 'D259001000D259001000'. 02 SITE4-ENTRY-2190 PIC X(20) VALUE 'D260000000D260000000'. 02 SITE4-ENTRY-2191 PIC X(20) VALUE 'D261000000D261000000'. 02 SITE4-ENTRY-2192 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2193 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2194 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2195 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2196 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2197 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2198 PIC X(20) VALUE 'D267000000D267000000'. 02 SITE4-ENTRY-2199 PIC X(20) VALUE 'D269000000D269000000'. 02 SITE4-ENTRY-2200 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2201 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2202 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2203 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2204 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2205 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2206 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2207 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2208 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2209 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2210 PIC X(20) VALUE 'D282000000D282000000'. 02 SITE4-ENTRY-2211 PIC X(20) VALUE 'D281000000D281000000'. 02 SITE4-ENTRY-2212 PIC X(20) VALUE 'D280000000D280000000'. 02 SITE4-ENTRY-2213 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2214 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2215 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2216 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2217 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2218 PIC X(20) VALUE 'D287000000D287000000'. 02 SITE4-ENTRY-2219 PIC X(20) VALUE 'D289000000D289000000'. 02 SITE4-ENTRY-2220 PIC X(20) VALUE 'D292000000D292000000'. 02 SITE4-ENTRY-2221 PIC X(20) VALUE 'D290000000D290000000'. 02 SITE4-ENTRY-2222 PIC X(20) VALUE 'D291000000D291000000'. 02 SITE4-ENTRY-2223 PIC X(20) VALUE 'D293000000D293000000'. 02 SITE4-ENTRY-2224 PIC X(20) VALUE 'D294000000D294000000'. 02 SITE4-ENTRY-2225 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2226 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2227 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2228 PIC X(20) VALUE 'D297000000D297000000'. 02 SITE4-ENTRY-2229 PIC X(20) VALUE 'D299000000D299000000'. 02 SITE4-ENTRY-2230 PIC X(20) VALUE 'D300000000D300000000'. 02 SITE4-ENTRY-2231 PIC X(20) VALUE 'D301000000D301000000'. 02 SITE4-ENTRY-2232 PIC X(20) VALUE 'D302000000D302000000'. 02 SITE4-ENTRY-2233 PIC X(20) VALUE 'D303000000D303000000'. 02 SITE4-ENTRY-2234 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2235 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2236 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2237 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2238 PIC X(20) VALUE 'D304100000D304100000'. 02 SITE4-ENTRY-2239 PIC X(20) VALUE 'D309000000D309000000'. 02 SITE4-ENTRY-2240 PIC X(20) VALUE 'D314000000D314000000'. 02 SITE4-ENTRY-2241 PIC X(20) VALUE 'D316000000D316000000'. 02 SITE4-ENTRY-2242 PIC X(20) VALUE 'D315000000D315000000'. 02 SITE4-ENTRY-2243 PIC X(20) VALUE 'D310000000D310000000'. 02 SITE4-ENTRY-2244 PIC X(20) VALUE 'D311000000D311000000'. 02 SITE4-ENTRY-2245 PIC X(20) VALUE 'D312000000D312000000'. 02 SITE4-ENTRY-2246 PIC X(20) VALUE 'D313000000D313000000'. 02 SITE4-ENTRY-2247 PIC X(20) VALUE 'D315000000D315000000'. 02 SITE4-ENTRY-2248 PIC X(20) VALUE 'D319000000D319000000'. 02 SITE4-ENTRY-2249 PIC X(20) VALUE 'D319000000D319000000'. 02 SITE4-ENTRY-2250 PIC X(20) VALUE 'D330100000D330100000'. 02 SITE4-ENTRY-2251 PIC X(20) VALUE 'D333000000D333000000'. 02 SITE4-ENTRY-2252 PIC X(20) VALUE 'D320100000D320100000'. 02 SITE4-ENTRY-2253 PIC X(20) VALUE 'D334000000D334000000'. 02 SITE4-ENTRY-2254 PIC X(20) VALUE 'D321000000D321000000'. 02 SITE4-ENTRY-2255 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2256 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2257 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2258 PIC X(20) VALUE 'D337000000D337000000'. 02 SITE4-ENTRY-2259 PIC X(20) VALUE 'D339000000D339000000'. 02 SITE4-ENTRY-2260 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2261 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2262 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2263 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2264 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2265 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2266 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2267 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2268 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2269 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2270 PIC X(20) VALUE 'D350000000D350000000'. 02 SITE4-ENTRY-2271 PIC X(20) VALUE 'D351000000D351000000'. 02 SITE4-ENTRY-2272 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2273 PIC X(20) VALUE 'D352100000D352100000'. 02 SITE4-ENTRY-2274 PIC X(20) VALUE 'D354000000D354000000'. 02 SITE4-ENTRY-2275 PIC X(20) VALUE 'D355000000D355000000'. 02 SITE4-ENTRY-2276 PIC X(20) VALUE 'D356000000D356000000'. 02 SITE4-ENTRY-2277 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2278 PIC X(20) VALUE 'D357000000D357000000'. 02 SITE4-ENTRY-2279 PIC X(20) VALUE 'D359000000D359000000'. 02 SITE4-ENTRY-2280 PIC X(20) VALUE 'D180000000D180000000'. 02 SITE4-ENTRY-2281 PIC X(20) VALUE 'D181000000D181000000'. 02 SITE4-ENTRY-2282 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2283 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2284 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2285 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2286 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2287 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2288 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2289 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2290 PIC X(20) VALUE 'D360000000D360000000'. 02 SITE4-ENTRY-2291 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2292 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2293 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2294 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2295 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2296 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2297 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2298 PIC X(20) VALUE 'D367100000D367100000'. 02 SITE4-ENTRY-2299 PIC X(20) VALUE 'D369000000D369000000'. 02 SITE4-ENTRY-2300 PIC X(20) VALUE 'D000000000D000000000'. 02 SITE4-ENTRY-2301 PIC X(20) VALUE 'D001000000D001000000'. 02 SITE4-ENTRY-2302 PIC X(20) VALUE 'D002000000D002000000'. 02 SITE4-ENTRY-2303 PIC X(20) VALUE 'D010000000D010000000'. 02 SITE4-ENTRY-2304 PIC X(20) VALUE 'D012100000D012100000'. 02 SITE4-ENTRY-2305 PIC X(20) VALUE 'D013000000D013000000'. 02 SITE4-ENTRY-2306 PIC X(20) VALUE 'D013000000D013000000'. 02 SITE4-ENTRY-2307 PIC X(20) VALUE 'D014000000D014000000'. 02 SITE4-ENTRY-2308 PIC X(20) VALUE 'D015000000D015000000'. 02 SITE4-ENTRY-2309 PIC X(20) VALUE 'D019100000D019100000'. 02 SITE4-ENTRY-2310 PIC X(20) VALUE 'D020000000D020000000'. 02 SITE4-ENTRY-2311 PIC X(20) VALUE 'D021000000D021000000'. 02 SITE4-ENTRY-2312 PIC X(20) VALUE 'D022000000D022000000'. 02 SITE4-ENTRY-2313 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2314 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2315 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2316 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2317 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2318 PIC X(20) VALUE 'D023000000D023000000'. 02 SITE4-ENTRY-2319 PIC X(20) VALUE 'D024000000D024000000'. 02 SITE4-ENTRY-2320 PIC X(20) VALUE 'D040110010D040110010'. 02 SITE4-ENTRY-2321 PIC X(20) VALUE 'D041110010D041110010'. 02 SITE4-ENTRY-2322 PIC X(20) VALUE 'D042110010D042110010'. 02 SITE4-ENTRY-2323 PIC X(20) VALUE 'D043110010D043110010'. 02 SITE4-ENTRY-2324 PIC X(20) VALUE 'D044110010D044110010'. 02 SITE4-ENTRY-2325 PIC X(20) VALUE 'D045110010D045110010'. 02 SITE4-ENTRY-2326 PIC X(20) VALUE 'D046110010D046110010'. 02 SITE4-ENTRY-2327 PIC X(20) VALUE 'D047110010D047110010'. 02 SITE4-ENTRY-2328 PIC X(20) VALUE 'D048110010D048110010'. 02 SITE4-ENTRY-2329 PIC X(20) VALUE 'D049110010D049110010'. 02 SITE4-ENTRY-2330 PIC X(20) VALUE 'D059100000D059100000'. 02 SITE4-ENTRY-2331 PIC X(20) VALUE 'D06 100000D06 100000'. 02 SITE4-ENTRY-2332 PIC X(20) VALUE 'D070100000D070100000'. 02 SITE4-ENTRY-2333 PIC X(20) VALUE 'D073100000D073100000'. 02 SITE4-ENTRY-2334 PIC X(20) VALUE 'D075000000D075000000'. 02 SITE4-ENTRY-2335 PIC X(20) VALUE 'D074000000D074000000'. 02 SITE4-ENTRY-2336 PIC X(20) VALUE 'D076000000D076000000'. 02 SITE4-ENTRY-2337 PIC X(20) VALUE 'D090000000D090000000'. 02 SITE4-ENTRY-2338 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2339 PIC X(20) VALUE 'D091000000D091000000'. 02 SITE4-ENTRY-2340 PIC X(20) VALUE 'D092000000D092000000'. 02 SITE4-ENTRY-2341 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2342 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2343 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2344 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2345 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2346 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2347 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2348 PIC X(20) VALUE 'D097100000D097100000'. 02 SITE4-ENTRY-2349 PIC X(20) VALUE 'D099000000D099000000'. 02 SITE4-ENTRY-2350 PIC X(20) VALUE 'D370000000D370000000'. 02 SITE4-ENTRY-2351 PIC X(20) VALUE 'D370000000D370000000'. 02 SITE4-ENTRY-2352 PIC X(20) VALUE 'D371100000D371100000'. 02 SITE4-ENTRY-2353 PIC X(20) VALUE 'D376000000D376000000'. 02 SITE4-ENTRY-2354 PIC X(20) VALUE 'D484100000D484100000'. 02 SITE4-ENTRY-2355 PIC X(20) VALUE 'D377100000D377100000'. 02 SITE4-ENTRY-2356 PIC X(20) VALUE 'D380000000D380000000'. 02 SITE4-ENTRY-2357 PIC X(20) VALUE 'D381000000D381000000'. 02 SITE4-ENTRY-2358 PIC X(20) VALUE 'D382100000D382100000'. 02 SITE4-ENTRY-2359 PIC X(20) VALUE 'D385100000D385100000'. 02 SITE4-ENTRY-2360 PIC X(20) VALUE 'D390000000D390000000'. 02 SITE4-ENTRY-2361 PIC X(20) VALUE 'D392000000D392000000'. 02 SITE4-ENTRY-2362 PIC X(20) VALUE 'D391000000D391000000'. 02 SITE4-ENTRY-2363 PIC X(20) VALUE 'D399100000D399100000'. 02 SITE4-ENTRY-2364 PIC X(20) VALUE 'D401000000D401000000'. 02 SITE4-ENTRY-2365 PIC X(20) VALUE 'D400000000D400000000'. 02 SITE4-ENTRY-2366 PIC X(20) VALUE 'D409100000D409100000'. 02 SITE4-ENTRY-2367 PIC X(20) VALUE 'D414000000D414000000'. 02 SITE4-ENTRY-2368 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2369 PIC X(20) VALUE 'D419100000D419100000'. 02 SITE4-ENTRY-2370 PIC X(20) VALUE 'D443100000D443100000'. 02 SITE4-ENTRY-2371 PIC X(20) VALUE 'D445000000D445000000'. 02 SITE4-ENTRY-2372 PIC X(20) VALUE 'D441000000D441000000'. 02 SITE4-ENTRY-2373 PIC X(20) VALUE 'D447100000D447100000'. 02 SITE4-ENTRY-2374 PIC X(20) VALUE 'D440100000D440100000'. 02 SITE4-ENTRY-2375 PIC X(20) VALUE 'D43 100000D43 100000'. 02 SITE4-ENTRY-2376 PIC X(20) VALUE 'D42 100000D42 100000'. 02 SITE4-ENTRY-2377 PIC X(20) VALUE 'Q850000000Q850000000'. 02 SITE4-ENTRY-2378 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2379 PIC X(20) VALUE 'D433100000D433100000'. 02 SITE4-ENTRY-2380 PIC X(20) VALUE 'D480000000D480000000'. 02 SITE4-ENTRY-2381 PIC X(20) VALUE 'D481000000D481000000'. 02 SITE4-ENTRY-2382 PIC X(20) VALUE 'D485000000D485000000'. 02 SITE4-ENTRY-2383 PIC X(20) VALUE 'D486000000D486000000'. 02 SITE4-ENTRY-2384 PIC X(20) VALUE 'D45 000000D45 000000'. 02 SITE4-ENTRY-2385 PIC X(20) VALUE 'D470000000D470000000'. 02 SITE4-ENTRY-2386 PIC X(20) VALUE 'C902000000C902000000'. 02 SITE4-ENTRY-2387 PIC X(20) VALUE 'D479100000D479100000'. 02 SITE4-ENTRY-2388 PIC X(20) VALUE 'D487000000D487000000'. 02 SITE4-ENTRY-2389 PIC X(20) VALUE 'D489000000D489000000'. 02 SITE4-ENTRY-2390 PIC X(20) VALUE 'D379000000D379000000'. 02 SITE4-ENTRY-2391 PIC X(20) VALUE 'D386100000D386100000'. 02 SITE4-ENTRY-2392 PIC X(20) VALUE 'D480100000D480100000'. 02 SITE4-ENTRY-2393 PIC X(20) VALUE 'D486000000D486000000'. 02 SITE4-ENTRY-2394 PIC X(20) VALUE 'D414000000D414000000'. 02 SITE4-ENTRY-2395 PIC X(20) VALUE 'D409100100D399100100'. 02 SITE4-ENTRY-2396 PIC X(20) VALUE 'D432100000D432100000'. 02 SITE4-ENTRY-2397 PIC X(20) VALUE 'D449000000D449000000'. 02 SITE4-ENTRY-2398 PIC X(20) VALUE 'D489100000D489100000'. 02 SITE4-ENTRY-2399 PIC X(20) VALUE 'D489000000D489000000'. 02 SITE4-ENTRY-2400 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2401 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2402 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2403 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2404 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2405 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2406 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2407 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2408 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2409 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2410 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2411 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2412 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2413 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2414 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2415 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2416 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2417 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2418 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2419 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2420 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2421 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2422 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2423 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2424 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2425 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2426 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2427 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2428 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2429 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2430 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2431 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2432 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2433 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2434 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2435 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2436 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2437 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2438 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2439 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2440 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2441 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2442 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2443 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2444 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2445 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2446 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2447 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2448 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2449 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2450 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2451 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2452 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2453 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2454 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2455 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2456 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2457 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2458 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2459 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2460 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2461 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2462 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2463 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2464 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2465 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2466 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2467 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2468 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2469 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2470 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2471 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2472 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2473 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2474 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2475 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2476 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2477 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2478 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2479 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2480 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2481 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2482 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2483 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2484 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2485 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2486 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2487 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2488 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2489 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2490 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2491 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2492 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2493 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2494 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2495 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2496 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2497 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2498 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2499 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2500 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2501 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2502 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2503 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2504 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2505 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2506 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2507 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2508 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2509 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2510 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2511 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2512 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2513 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2514 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2515 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2516 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2517 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2518 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2519 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2520 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2521 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2522 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2523 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2524 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2525 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2526 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2527 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2528 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2529 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2530 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2531 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2532 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2533 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2534 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2535 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2536 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2537 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2538 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2539 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2540 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2541 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2542 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2543 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2544 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2545 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2546 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2547 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2548 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2549 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2550 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2551 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2552 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2553 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2554 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2555 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2556 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2557 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2558 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2559 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2560 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2561 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2562 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2563 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2564 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2565 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2566 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2567 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2568 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2569 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2570 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2571 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2572 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2573 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2574 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2575 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2576 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2577 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2578 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2579 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2580 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2581 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2582 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2583 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2584 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2585 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2586 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2587 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2588 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2589 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2590 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2591 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2592 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2593 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2594 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2595 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2596 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2597 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2598 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2599 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2600 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2601 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2602 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2603 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2604 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2605 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2606 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2607 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2608 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2609 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2610 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2611 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2612 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2613 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2614 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2615 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2616 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2617 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2618 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2619 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2620 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2621 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2622 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2623 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2624 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2625 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2626 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2627 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2628 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2629 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2630 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2631 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2632 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2633 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2634 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2635 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2636 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2637 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2638 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2639 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2640 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2641 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2642 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2643 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2644 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2645 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2646 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2647 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2648 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2649 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2650 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2651 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2652 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2653 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2654 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2655 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2656 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2657 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2658 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2659 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2660 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2661 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2662 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2663 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2664 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2665 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2666 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2667 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2668 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2669 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2670 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2671 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2672 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2673 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2674 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2675 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2676 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2677 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2678 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2679 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2680 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2681 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2682 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2683 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2684 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2685 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2686 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2687 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2688 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2689 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2690 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2691 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2692 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2693 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2694 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2695 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2696 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2697 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2698 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2699 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2700 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2701 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2702 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2703 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2704 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2705 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2706 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2707 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2708 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2709 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2710 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2711 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2712 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2713 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2714 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2715 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2716 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2717 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2718 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2719 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2720 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2721 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2722 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2723 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2724 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2725 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2726 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2727 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2728 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2729 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2730 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2731 PIC X(20) VALUE 'D472000000D472000000'. 02 SITE4-ENTRY-2732 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2733 PIC X(20) VALUE 'C880000000C880000000'. 02 SITE4-ENTRY-2734 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2735 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2736 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2737 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2738 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2739 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2740 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2741 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2742 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2743 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2744 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2745 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2746 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2747 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2748 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2749 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2750 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2751 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2752 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2753 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2754 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2755 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2756 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2757 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2758 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2759 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2760 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2761 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2762 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2763 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2764 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2765 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2766 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2767 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2768 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2769 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2770 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2771 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2772 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2773 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2774 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2775 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2776 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2777 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2778 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2779 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2780 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2781 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2782 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2783 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2784 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2785 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2786 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2787 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2788 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2789 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2790 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2791 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2792 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2793 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2794 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2795 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2796 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2797 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2798 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2799 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2800 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2801 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2802 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2803 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2804 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2805 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2806 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2807 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2808 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2809 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2810 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2811 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2812 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2813 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2814 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2815 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2816 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2817 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2818 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2819 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2820 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2821 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2822 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2823 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2824 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2825 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2826 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2827 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2828 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2829 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2830 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2831 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2832 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2833 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2834 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2835 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2836 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2837 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2838 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2839 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2840 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2841 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2842 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2843 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2844 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2845 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2846 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2847 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2848 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2849 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2850 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2851 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2852 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2853 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2854 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2855 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2856 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2857 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2858 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2859 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2860 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2861 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2862 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2863 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2864 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2865 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2866 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2867 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2868 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2869 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2870 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2871 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2872 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2873 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2874 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2875 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2876 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2877 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2878 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2879 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2880 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2881 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2882 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2883 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2884 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2885 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2886 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2887 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2888 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2889 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2890 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2891 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2892 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2893 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2894 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2895 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2896 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2897 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2898 PIC X(20) VALUE 'C945000000C945000000'. 02 SITE4-ENTRY-2899 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-2900 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-6300 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-6301 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-6302 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-6303 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-6304 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-6305 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-6306 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-6307 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-6308 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-6309 PIC X(20) VALUE '99990000019999000001'. 01 SITE-FOUR-TBL REDEFINES SITE-FOUR-TABLE. 02 SITE-FOUR-GROUP OCCURS 1511 TIMES. 03 SITE-FOUR-ENTRY OCCURS 2 TIMES. 05 ICD10-SITE PIC X(4). 05 MU-FLAG PIC X(1). 05 MO-FLAG PIC X(1). 05 CM-FLAG PIC X(1). 05 SX-FLAG PIC X(1). 05 ML-FLAG PIC X(1). 05 INV-SITE PIC X(1). 01 SITE-FIVE-TABLE. 03 FILLER PIC X(15) VALUE '198809999000001'. 03 FILLER PIC X(15) VALUE '19881C798001000'. 03 FILLER PIC X(15) VALUE '19882C798001000'. 03 FILLER PIC X(15) VALUE '198839999000001'. 03 FILLER PIC X(15) VALUE '198849999000001'. 03 FILLER PIC X(15) VALUE '198859999000001'. 03 FILLER PIC X(15) VALUE '198869999000001'. 03 FILLER PIC X(15) VALUE '198879999000001'. 03 FILLER PIC X(15) VALUE '198889999000001'. 03 FILLER PIC X(15) VALUE '19889C798001000'. 03 FILLER PIC X(15) VALUE '223809999000001'. 03 FILLER PIC X(15) VALUE '22381D304001000'. 03 FILLER PIC X(15) VALUE '223829999000001'. 03 FILLER PIC X(15) VALUE '223839999000001'. 03 FILLER PIC X(15) VALUE '223849999000001'. 03 FILLER PIC X(15) VALUE '223859999000001'. 03 FILLER PIC X(15) VALUE '223869999000001'. 03 FILLER PIC X(15) VALUE '223879999000001'. 03 FILLER PIC X(15) VALUE '223889999000001'. 03 FILLER PIC X(15) VALUE '22389D307001000'. 03 FILLER PIC X(15) VALUE '22800D180001000'. 03 FILLER PIC X(15) VALUE '22801D180001000'. 03 FILLER PIC X(15) VALUE '22802D180001000'. 03 FILLER PIC X(15) VALUE '22803D180001000'. 03 FILLER PIC X(15) VALUE '22804D180001000'. 03 FILLER PIC X(15) VALUE '228059999000001'. 03 FILLER PIC X(15) VALUE '228069999000001'. 03 FILLER PIC X(15) VALUE '228079999000001'. 03 FILLER PIC X(15) VALUE '228089999000001'. 03 FILLER PIC X(15) VALUE '22809D180001000'. 03 FILLER PIC X(15) VALUE '23690D419001000'. 03 FILLER PIC X(15) VALUE '23691D417101000'. 03 FILLER PIC X(15) VALUE '236929999000001'. 03 FILLER PIC X(15) VALUE '236939999000001'. 03 FILLER PIC X(15) VALUE '236949999000001'. 03 FILLER PIC X(15) VALUE '236959999000001'. 03 FILLER PIC X(15) VALUE '236969999000001'. 03 FILLER PIC X(15) VALUE '236979999000001'. 03 FILLER PIC X(15) VALUE '236989999000001'. 03 FILLER PIC X(15) VALUE '23699D417001000'. 03 FILLER PIC X(15) VALUE '23770Q850001000'. 03 FILLER PIC X(15) VALUE '23771Q850001000'. 03 FILLER PIC X(15) VALUE '23772Q850001000'. 03 FILLER PIC X(15) VALUE '237739999000001'. 03 FILLER PIC X(15) VALUE '237749999000001'. 03 FILLER PIC X(15) VALUE '237759999000001'. 03 FILLER PIC X(15) VALUE '237769999000001'. 03 FILLER PIC X(15) VALUE '237779999000001'. 03 FILLER PIC X(15) VALUE '237789999000001'. 03 FILLER PIC X(15) VALUE '237799999000001'. 01 SITE-FIVE-TBL REDEFINES SITE-FIVE-TABLE. 02 SITE-FIVE-ENTRY OCCURS 50 TIMES ASCENDING KEY IS ICD9CM INDEXED BY SITE-FIVE-INDEX. 03 ICD9CM PIC X(5). 03 ST5-RETURN. 05 ICD10-5 PIC X(4). 05 MU-FLAG-5 PIC X(1). 05 MO-FLAG-5 PIC X(1). 05 CM-FLAG-5 PIC X(1). 05 SX-FLAG-5 PIC X(1). 05 ML-FLAG-5 PIC X(1). 05 INV-SITE-5 PIC X(1). LINKAGE SECTION. 01 CONV-COMMON-AREA. 03 ICD9-FIVE. 05 ICD9-FOUR PIC X(4). 88 SITE-F VALUE '1740' THRU '1749' '1790' THRU '1799' '1800' THRU '1809' '1810' THRU '1819' '1820' THRU '1829' '1830' THRU '1839' '1840' THRU '1849'. 88 SITE-M VALUE '1750' THRU '1759' '1850' THRU '1859' '1860' THRU '1869' '1870' THRU '1879'. 88 SITE-BOTH VALUE '2395'. 88 SITE-VLD VALUE '1400' THRU '2900' '6300' THRU '6309'. 05 ICD9-JUNK PIC X(1). 03 ICD9-PARTS REDEFINES ICD9-FIVE. 05 ICD9-THREE PIC X(3). 88 SITE3-F VALUE '174' '179' '180' '181' '182' '183' '184'. 88 SITE3-M VALUE '175' '185' '186' '187'. 88 SITE3-VLD VALUE '140' THRU '290' '630'. 05 ICD9-FOURTH PIC X(1). 88 LENGTH-3 VALUE ' '. 05 ICD9-FIFTH PIC X(1). 88 LENGTH-4 VALUE ' '. 03 SEX-IN PIC X(1). 88 MAL VALUE '1'. 88 FEM VALUE '2'. 03 ICD10 PIC X(4). 03 MU PIC X(1). 03 MO PIC X(1). 03 CM PIC X(1). 03 SX PIC X(1). 03 ML PIC X(1). 03 INVALID-SEX PIC X(1). 03 INVALID-SITE PIC X(1). 03 INVALID-SITE-SEX-COMBO PIC X(1). PROCEDURE DIVISION USING CONV-COMMON-AREA. ************************************************************** * * * THE FUNCTION OF THIS MODULE IS TO SET ALL FLAGS AND * * INVALIDS TO ZERO, TO SET ICD10 TO 9999, TO NOTE ALL * * INVALID SITE OR SEX DATA AND THEN EXIT AND TO CALL TABLE * * SEARCHES. THE MODULE IS ENTERED FROM AND EXITS TO THE * * DRIV9T10 COBOL PROGRAM. * * * ************************************************************** 00-BEGIN. MOVE '9999' TO ICD10. MOVE '0' TO MU. MOVE '0' TO MO. MOVE '0' TO CM. MOVE '0' TO SX. MOVE '0' TO ML. MOVE '0' TO INVALID-SEX. MOVE '0' TO INVALID-SITE. MOVE '0' TO INVALID-SITE-SEX-COMBO. IF ((NOT MAL) AND (NOT FEM)) MOVE '1' TO INVALID-SEX. IF LENGTH-3 AND ((NOT LENGTH-4) OR (ICD9-THREE NOT NUMERIC) OR (NOT SITE3-VLD)) MOVE '1' TO INVALID-SITE. IF ((NOT LENGTH-3) AND LENGTH-4) AND ((ICD9-FOUR NOT NUMERIC) OR (NOT SITE-VLD)) MOVE '1' TO INVALID-SITE. IF ((NOT LENGTH-3) AND (NOT LENGTH-4)) AND ((ICD9-FIVE NOT NUMERIC) OR (NOT SITE-VLD)) MOVE '1' TO INVALID-SITE. IF ((INVALID-SITE = 1) OR (INVALID-SEX = 1)) GO TO 99-END. IF (((SITE3-M AND LENGTH-3) OR SITE-M) AND (NOT MAL)) MOVE '1' TO INVALID-SITE-SEX-COMBO ELSE IF (((SITE3-F AND LENGTH-3) OR SITE-F) AND (NOT FEM)) MOVE '1' TO INVALID-SITE-SEX-COMBO. IF LENGTH-3 PERFORM CHECK-THREE THRU CH-THREE-END. IF (NOT LENGTH-3) AND LENGTH-4 PERFORM CHECK-FOUR THRU CH-FOUR-END. IF ((NOT LENGTH-3) AND (NOT LENGTH-4)) PERFORM CHECK-FIVE THRU CH-FIVE-END. GO TO 99-END. 99-END. EXIT PROGRAM. ************************************************************** * * * THE FUNCTION OF THIS MODULE IS TO TAKE A THREE DIGIT ICD9 * * CODE AND SEX AND SEARCH THE SITE-THREE-TABLE TO FIND THE * * ICD10 RECODE AND ALL FLAGS FOR THAT CODE. THIS MODULE IS * * ENTERED FROM AND EXITS TO THE 00-BEGIN MAIN MODULE. * * * ************************************************************** CHECK-THREE. MOVE ICD9-THREE TO ICD9-COM IF ICD9-THREE = '630' MOVE 152 TO SITE-SUB ELSE COMPUTE SITE-SUB = ICD9-COM - 139. IF MAL MOVE 1 TO SEX-SUB ELSE IF FEM MOVE 2 TO SEX-SUB. MOVE SITE-THREE-ENTRY (SITE-SUB, SEX-SUB) TO TEMP-SITE-CELL. PERFORM MOVE-INFO THRU MOVE-INFO-END. CH-THREE-END. EXIT. ************************************************************** * * * THE FUNCTION OF THIS MODULE IS TO TAKE A FOUR DIGIT ICD9 * * CODE AND SEX, USE THE SITE-FOUR-TABLE TO FIND THE ICD1O * * RECODE AND ALL FLAGS FOR THAT CODE. THIS MODULE IS * * ENTERED FROM AND EXITS TO THE 00-BEGIN MAIN MODULE. * * * ************************************************************** CHECK-FOUR. MOVE ICD9-FOUR TO ICD9-COM IF ICD9-THREE = '630' COMPUTE SITE-SUB = ICD9-COM - 4798 ELSE COMPUTE SITE-SUB = ICD9-COM - 1399. IF MAL MOVE 1 TO SEX-SUB ELSE IF FEM MOVE 2 TO SEX-SUB. MOVE SITE-FOUR-ENTRY (SITE-SUB, SEX-SUB) TO TEMP-SITE-CELL. PERFORM MOVE-INFO THRU MOVE-INFO-END. CH-FOUR-END. EXIT. ************************************************************** * * * THE FUNCTION OF THIS MODULE IS TO TAKE A FIVE DIGIT ICD9 * * CODE AND SEARCH THE SITE-FIVE-TABLE TO FIND THE ICD10 * * RECODE AND ALL THE FLAGS FOR THAT CODE. THIS MODULE IS * * ENTERED FROM AND EXITS TO THE 00-BEGIN MAIN MODULE. * * * ************************************************************** CHECK-FIVE. MOVE '9999' TO ICD10-SITE-TEMP. MOVE '0' TO MU-FLAG-TEMP. MOVE '0' TO MO-FLAG-TEMP. MOVE '0' TO CM-FLAG-TEMP. MOVE '0' TO SX-FLAG-TEMP. MOVE '0' TO ML-FLAG-TEMP. MOVE '1' TO INV-SITE-TEMP. SET SITE-FIVE-INDEX TO 1. SEARCH SITE-FIVE-ENTRY WHEN ICD9-FIVE = ICD9CM (SITE-FIVE-INDEX) MOVE ST5-RETURN (SITE-FIVE-INDEX) TO TEMP-SITE-CELL. PERFORM MOVE-INFO THRU MOVE-INFO-END. CH-FIVE-END. EXIT. ************************************************************** * * * THE FUNCTION OF THIS MODULE IS TO MOVE INFORMATION FROM * * THE TEMP-SITE-CELL TO THE CONV-COMMON-AREA. THIS * * MODULE ENTERS FROM AND EXITS TO THE CHECK-THREE MODULE OR * * IT ENTERS FROM AND EXITS TO THE CHECK-FOUR MODULE OR IT * * ENTERS FROM AND EXITS TO THE CHECK-FIVE MODULE. * * * ************************************************************** MOVE-INFO. MOVE ICD10-SITE-TEMP TO ICD10. MOVE MU-FLAG-TEMP TO MU. MOVE MO-FLAG-TEMP TO MO. MOVE CM-FLAG-TEMP TO CM. MOVE SX-FLAG-TEMP TO SX. MOVE ML-FLAG-TEMP TO ML. MOVE INV-SITE-TEMP TO INVALID-SITE. MOVE-INFO-END. EXIT. //STEP2 EXEC CBL3LKMM,OPTIONS=NCAL, // NAME='NGN1YZJ.SEER.ICDO2.EDIT.OBJLIB', // PROGRAM=FR9TO10