//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'.