//NS4C10T9 JOB (NGN1,653,A),NAME //* LINES OF CODE (NON TABLE) 1/50 343/363 3356/L //* LINES TO REPLACE TABLES 46/3371 //STEP1 EXEC CBL3COMP,OPTIONS='SIZE(MAX)' //SYSIN DD * IDENTIFICATION DIVISION. * * FR10TO9 CONVERT * 5/15/98 * PROGRAM-ID. FR10TO9. ENVIRONMENT DIVISION. DATA DIVISION. WORKING-STORAGE SECTION. 77 SITE-SUB PIC S9(4) COMP SYNC. 77 SEX-SUB PIC S9(4) COMP SYNC. 77 ICD10-COM PIC S9(4) COMP SYNC. 01 TEMP-SITE-CELL. 03 ICD9-SITE-TEMP PIC X(4). 03 MU-FLAG-TEMP PIC X(1). 03 CM-FLAG-TEMP PIC X(1). 03 SX-FLAG-TEMP PIC X(1). 03 NC-FLAG-TEMP PIC X(1). 03 XX-FLAG-TEMP PIC X(1). 03 INV-SITE-TEMP PIC X(1). **************************************************************** * * * TABLE FOR SITE CONVERTION FROM ICD-10 TO ICD-9 AND FLAGS * * * * FLAGS - MU-FLAG -> MULTIPLE ICD-9 CODES, HAND REVIEW. * * CM-FLAG -> ICD-9-CM RECODES AVAILABLE. * * RECODE GIVEN IS ICD-9. * * SX-FLAG -> SEX BASED CONVERSION OF ICD-10 CODE. * * NC-FLAG -> ICD-10 CODE IS NOT COMPATIBLE WITH ICD-9 * * XX-FLAG -> ICD-10 CODE IS NOT COMPATIBLE WITH ICD-9 * * RECODE GIVEN IS ICD-9-CM. * * INVALID SITE - CODE IS IN VALID RANGE, BUT IT IS INVALID. * * * **************************************************************** 01 SITE-THREE-TABLE. 02 SITE3-ENTRY-C00 PIC X(20) VALUE '140 000000140 000000'. 02 SITE3-ENTRY-C01 PIC X(20) VALUE '14100000001410000000'. 02 SITE3-ENTRY-C02 PIC X(20) VALUE '141 000000141 000000'. 02 SITE3-ENTRY-C03 PIC X(20) VALUE '143 000000143 000000'. 02 SITE3-ENTRY-C04 PIC X(20) VALUE '144 000000144 000000'. 02 SITE3-ENTRY-C05 PIC X(20) VALUE '145 000000145 000000'. 02 SITE3-ENTRY-C06 PIC X(20) VALUE '145 000000145 000000'. 02 SITE3-ENTRY-C07 PIC X(20) VALUE '14200000001420000000'. 02 SITE3-ENTRY-C08 PIC X(20) VALUE '142 000000142 000000'. 02 SITE3-ENTRY-C09 PIC X(20) VALUE '146 000000146 000000'. 02 SITE3-ENTRY-C10 PIC X(20) VALUE '146 000000146 000000'. 02 SITE3-ENTRY-C11 PIC X(20) VALUE '147 000000147 000000'. 02 SITE3-ENTRY-C12 PIC X(20) VALUE '14810000001481000000'. 02 SITE3-ENTRY-C13 PIC X(20) VALUE '148 000000148 000000'. 02 SITE3-ENTRY-C14 PIC X(20) VALUE '149 000000149 000000'. 02 SITE3-ENTRY-C15 PIC X(20) VALUE '150 000000150 000000'. 02 SITE3-ENTRY-C16 PIC X(20) VALUE '151 000000151 000000'. 02 SITE3-ENTRY-C17 PIC X(20) VALUE '152 000000152 000000'. 02 SITE3-ENTRY-C18 PIC X(20) VALUE '153 000000153 000000'. 02 SITE3-ENTRY-C19 PIC X(20) VALUE '15400000001540000000'. 02 SITE3-ENTRY-C20 PIC X(20) VALUE '15410000001541000000'. 02 SITE3-ENTRY-C21 PIC X(20) VALUE '154 000000154 000000'. 02 SITE3-ENTRY-C22 PIC X(20) VALUE '155 000000155 000000'. 02 SITE3-ENTRY-C23 PIC X(20) VALUE '15600000001560000000'. 02 SITE3-ENTRY-C24 PIC X(20) VALUE '156 000000156 000000'. 02 SITE3-ENTRY-C25 PIC X(20) VALUE '157 000000157 000000'. 02 SITE3-ENTRY-C26 PIC X(20) VALUE '159 000000159 000000'. 02 SITE3-ENTRY-C27 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-C28 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-C29 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-C30 PIC X(20) VALUE '160 000000160 000000'. 02 SITE3-ENTRY-C31 PIC X(20) VALUE '160 000000160 000000'. 02 SITE3-ENTRY-C32 PIC X(20) VALUE '161 000000161 000000'. 02 SITE3-ENTRY-C33 PIC X(20) VALUE '16200000001620000000'. 02 SITE3-ENTRY-C34 PIC X(20) VALUE '162 000000162 000000'. 02 SITE3-ENTRY-C35 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-C36 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-C37 PIC X(20) VALUE '16400000001640000000'. 02 SITE3-ENTRY-C38 PIC X(20) VALUE '164 100000164 100000'. 02 SITE3-ENTRY-C39 PIC X(20) VALUE '165 000000165 000000'. 02 SITE3-ENTRY-C40 PIC X(20) VALUE '170 000000170 000000'. 02 SITE3-ENTRY-C41 PIC X(20) VALUE '170 000000170 000000'. 02 SITE3-ENTRY-C42 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-C43 PIC X(20) VALUE '172 000000172 000000'. 02 SITE3-ENTRY-C44 PIC X(20) VALUE '173 000000173 000000'. 02 SITE3-ENTRY-C45 PIC X(20) VALUE '99990001009999000100'. 02 SITE3-ENTRY-C46 PIC X(20) VALUE '176 010010176 010010'. 02 SITE3-ENTRY-C47 PIC X(20) VALUE '171 000000171 000000'. 02 SITE3-ENTRY-C48 PIC X(20) VALUE '158 000000158 000000'. 02 SITE3-ENTRY-C49 PIC X(20) VALUE '171 000000171 000000'. 02 SITE3-ENTRY-C50 PIC X(20) VALUE '175 001000174 001000'. 02 SITE3-ENTRY-C51 PIC X(20) VALUE '9999000000184 001000'. 02 SITE3-ENTRY-C52 PIC X(20) VALUE '99990000001840001000'. 02 SITE3-ENTRY-C53 PIC X(20) VALUE '9999000000180 001000'. 02 SITE3-ENTRY-C54 PIC X(20) VALUE '9999000000182 001000'. 02 SITE3-ENTRY-C55 PIC X(20) VALUE '9999000000179 001000'. 02 SITE3-ENTRY-C56 PIC X(20) VALUE '99990000001830001000'. 02 SITE3-ENTRY-C57 PIC X(20) VALUE '9999000000184 001000'. 02 SITE3-ENTRY-C58 PIC X(20) VALUE '9999000000181 001000'. 02 SITE3-ENTRY-C59 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-C60 PIC X(20) VALUE '187 0010009999000000'. 02 SITE3-ENTRY-C61 PIC X(20) VALUE '185 0010009999000000'. 02 SITE3-ENTRY-C62 PIC X(20) VALUE '186 0010009999000000'. 02 SITE3-ENTRY-C63 PIC X(20) VALUE '187 0010009999000000'. 02 SITE3-ENTRY-C64 PIC X(20) VALUE '18900000001890000000'. 02 SITE3-ENTRY-C65 PIC X(20) VALUE '18910000001891000000'. 02 SITE3-ENTRY-C66 PIC X(20) VALUE '18920000001892000000'. 02 SITE3-ENTRY-C67 PIC X(20) VALUE '188 000000188 000000'. 02 SITE3-ENTRY-C68 PIC X(20) VALUE '189 000000189 000000'. 02 SITE3-ENTRY-C69 PIC X(20) VALUE '190 000000190 000000'. 02 SITE3-ENTRY-C70 PIC X(20) VALUE '192 000000192 000000'. 02 SITE3-ENTRY-C71 PIC X(20) VALUE '191 000000191 000000'. 02 SITE3-ENTRY-C72 PIC X(20) VALUE '192 000000192 000000'. 02 SITE3-ENTRY-C73 PIC X(20) VALUE '193 000000193 000000'. 02 SITE3-ENTRY-C74 PIC X(20) VALUE '19400000001940000000'. 02 SITE3-ENTRY-C75 PIC X(20) VALUE '194 000000194 000000'. 02 SITE3-ENTRY-C76 PIC X(20) VALUE '195 000000195 000000'. 02 SITE3-ENTRY-C77 PIC X(20) VALUE '196 000000196 000000'. 02 SITE3-ENTRY-C78 PIC X(20) VALUE '197 000000197 000000'. 02 SITE3-ENTRY-C79 PIC X(20) VALUE '198 000000198 000000'. 02 SITE3-ENTRY-C80 PIC X(20) VALUE '199 000000199 000000'. 02 SITE3-ENTRY-C81 PIC X(20) VALUE '201 000000201 000000'. 02 SITE3-ENTRY-C82 PIC X(20) VALUE '20200000002020000000'. 02 SITE3-ENTRY-C83 PIC X(20) VALUE '20280000002028000000'. 02 SITE3-ENTRY-C84 PIC X(20) VALUE '202 000000202 000000'. 02 SITE3-ENTRY-C85 PIC X(20) VALUE '200 100000200 100000'. 02 SITE3-ENTRY-C86 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-C87 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-C88 PIC X(20) VALUE '20380000002038000000'. 02 SITE3-ENTRY-C89 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-C90 PIC X(20) VALUE '203 000000203 000000'. 02 SITE3-ENTRY-C91 PIC X(20) VALUE '204 000000204 000000'. 02 SITE3-ENTRY-C92 PIC X(20) VALUE '205 000000205 000000'. 02 SITE3-ENTRY-C93 PIC X(20) VALUE '206 000000206 000000'. 02 SITE3-ENTRY-C94 PIC X(20) VALUE '207 000000207 000000'. 02 SITE3-ENTRY-C95 PIC X(20) VALUE '208 000000208 000000'. 02 SITE3-ENTRY-C96 PIC X(20) VALUE '202 000000202 000000'. 02 SITE3-ENTRY-C97 PIC X(20) VALUE '99990001009999000100'. 02 SITE3-ENTRY-C98 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-C99 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-D00 PIC X(20) VALUE '230 000000230 000000'. 02 SITE3-ENTRY-D01 PIC X(20) VALUE '230 000000230 000000'. 02 SITE3-ENTRY-D02 PIC X(20) VALUE '231 000000231 000000'. 02 SITE3-ENTRY-D03 PIC X(20) VALUE '232 000000232 000000'. 02 SITE3-ENTRY-D04 PIC X(20) VALUE '232 000000232 000000'. 02 SITE3-ENTRY-D05 PIC X(20) VALUE '233 000000233 000000'. 02 SITE3-ENTRY-D06 PIC X(20) VALUE '9999000000233 001000'. 02 SITE3-ENTRY-D07 PIC X(20) VALUE '233 000000233 000000'. 02 SITE3-ENTRY-D08 PIC X(20) VALUE '99990000019999000001'. 02 SITE3-ENTRY-D09 PIC X(20) VALUE '234 000000234 000000'. 02 SITE3-ENTRY-D10 PIC X(20) VALUE '210 000000210 000000'. 02 SITE3-ENTRY-D11 PIC X(20) VALUE '21020000002102000000'. 02 SITE3-ENTRY-D12 PIC X(20) VALUE '211 000000211 000000'. 02 SITE3-ENTRY-D13 PIC X(20) VALUE '211 000000211 000000'. 02 SITE3-ENTRY-D14 PIC X(20) VALUE '212 000000212 000000'. 02 SITE3-ENTRY-D15 PIC X(20) VALUE '212 000000212 000000'. 02 SITE3-ENTRY-D16 PIC X(20) VALUE '213 000000213 000000'. 02 SITE3-ENTRY-D17 PIC X(20) VALUE '214 000000214 000000'. 02 SITE3-ENTRY-D18 PIC X(20) VALUE '228 000000228 000000'. 02 SITE3-ENTRY-D19 PIC X(20) VALUE '99990001009999000100'. 02 SITE3-ENTRY-D20 PIC X(20) VALUE '21180000002118000000'. 02 SITE3-ENTRY-D21 PIC X(20) VALUE '215 000000215 000000'. 02 SITE3-ENTRY-D22 PIC X(20) VALUE '216 000000216 000000'. 02 SITE3-ENTRY-D23 PIC X(20) VALUE '216 000000216 000000'. 02 SITE3-ENTRY-D24 PIC X(20) VALUE '217 000000217 000000'. 02 SITE3-ENTRY-D25 PIC X(20) VALUE '9999000000218 001000'. 02 SITE3-ENTRY-D26 PIC X(20) VALUE '9999000000219 001000'. 02 SITE3-ENTRY-D27 PIC X(20) VALUE '9999000000220 001000'. 02 SITE3-ENTRY-D28 PIC X(20) VALUE '9999000000221 001000'. 02 SITE3-ENTRY-D29 PIC X(20) VALUE '222 0010009999000000'. 02 SITE3-ENTRY-D30 PIC X(20) VALUE '223 000000223 000000'. 02 SITE3-ENTRY-D31 PIC X(20) VALUE '224 000000224 000000'. 02 SITE3-ENTRY-D32 PIC X(20) VALUE '225 000000225 000000'. 02 SITE3-ENTRY-D33 PIC X(20) VALUE '225 000000225 000000'. 02 SITE3-ENTRY-D34 PIC X(20) VALUE '226 000000226 000000'. 02 SITE3-ENTRY-D35 PIC X(20) VALUE '227 000000227 000000'. 02 SITE3-ENTRY-D36 PIC X(20) VALUE '229 000000229 000000'. 02 SITE3-ENTRY-D37 PIC X(20) VALUE '235 000000235 000000'. 02 SITE3-ENTRY-D38 PIC X(20) VALUE '235 000000235 000000'. 02 SITE3-ENTRY-D39 PIC X(20) VALUE '9999000000236 001000'. 02 SITE3-ENTRY-D40 PIC X(20) VALUE '236 0010009999000000'. 02 SITE3-ENTRY-D41 PIC X(20) VALUE '236 000000236 000000'. 02 SITE3-ENTRY-D42 PIC X(20) VALUE '237 000000237 000000'. 02 SITE3-ENTRY-D43 PIC X(20) VALUE '237 000000237 000000'. 02 SITE3-ENTRY-D44 PIC X(20) VALUE '237 000000237 000000'. 02 SITE3-ENTRY-D45 PIC X(20) VALUE '23840000002384000000'. 02 SITE3-ENTRY-D46 PIC X(20) VALUE '28491000002849100000'. 02 SITE3-ENTRY-D47 PIC X(20) VALUE '238 100000238 100000'. 02 SITE3-ENTRY-D48 PIC X(20) VALUE '238 000000238 000000'. 02 SITE3-ENTRY-Q85 PIC X(20) VALUE '99990000019999000001'. 01 SITE-THREE-TBL REDEFINES SITE-THREE-TABLE. 02 SITE-THREE-GROUP OCCURS 150 TIMES. 03 SITE-THREE-ENTRY OCCURS 2 TIMES. 05 ICD9-SITE PIC X(4). 05 MU-FLAG PIC X(1). 05 CM-FLAG PIC X(1). 05 SX-FLAG PIC X(1). 05 NC-FLAG PIC X(1). 05 XX-FLAG PIC X(1). 05 INV-SITE PIC X(1). 01 SITE-FOUR-TABLE. 02 SITE4-ENTRY-C000 PIC X(20) VALUE '14000000001400000000'. 02 SITE4-ENTRY-C001 PIC X(20) VALUE '14010000001401000000'. 02 SITE4-ENTRY-C002 PIC X(20) VALUE '14090000001409000000'. 02 SITE4-ENTRY-C003 PIC X(20) VALUE '14030000001403000000'. 02 SITE4-ENTRY-C004 PIC X(20) VALUE '14040000001404000000'. 02 SITE4-ENTRY-C005 PIC X(20) VALUE '14050000001405000000'. 02 SITE4-ENTRY-C006 PIC X(20) VALUE '14060000001406000000'. 02 SITE4-ENTRY-C007 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C008 PIC X(20) VALUE '14080000001408000000'. 02 SITE4-ENTRY-C009 PIC X(20) VALUE '14090000001409000000'. 02 SITE4-ENTRY-C010 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C011 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C012 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C013 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C014 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C015 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C016 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C017 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C018 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C019 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C020 PIC X(20) VALUE '14110000001411000000'. 02 SITE4-ENTRY-C021 PIC X(20) VALUE '14120000001412000000'. 02 SITE4-ENTRY-C022 PIC X(20) VALUE '14130000001413000000'. 02 SITE4-ENTRY-C023 PIC X(20) VALUE '14140000001414000000'. 02 SITE4-ENTRY-C024 PIC X(20) VALUE '14160000001416000000'. 02 SITE4-ENTRY-C025 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C026 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C027 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C028 PIC X(20) VALUE '14181000001418100000'. 02 SITE4-ENTRY-C029 PIC X(20) VALUE '14190000001419000000'. 02 SITE4-ENTRY-C030 PIC X(20) VALUE '14300000001430000000'. 02 SITE4-ENTRY-C031 PIC X(20) VALUE '14310000001431000000'. 02 SITE4-ENTRY-C032 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C033 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C034 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C035 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C036 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C037 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C038 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C039 PIC X(20) VALUE '14391000001439100000'. 02 SITE4-ENTRY-C040 PIC X(20) VALUE '14400000001440000000'. 02 SITE4-ENTRY-C041 PIC X(20) VALUE '14410000001441000000'. 02 SITE4-ENTRY-C042 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C043 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C044 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C045 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C046 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C047 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C048 PIC X(20) VALUE '14480000001448000000'. 02 SITE4-ENTRY-C049 PIC X(20) VALUE '14490000001449000000'. 02 SITE4-ENTRY-C050 PIC X(20) VALUE '14520000001452000000'. 02 SITE4-ENTRY-C051 PIC X(20) VALUE '14530000001453000000'. 02 SITE4-ENTRY-C052 PIC X(20) VALUE '14540000001454000000'. 02 SITE4-ENTRY-C053 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C054 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C055 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C056 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C057 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C058 PIC X(20) VALUE '14550000001455000000'. 02 SITE4-ENTRY-C059 PIC X(20) VALUE '14550000001455000000'. 02 SITE4-ENTRY-C060 PIC X(20) VALUE '14500000001450000000'. 02 SITE4-ENTRY-C061 PIC X(20) VALUE '14510000001451000000'. 02 SITE4-ENTRY-C062 PIC X(20) VALUE '14560000001456000000'. 02 SITE4-ENTRY-C063 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C064 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C065 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C066 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C067 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C068 PIC X(20) VALUE '14580000001458000000'. 02 SITE4-ENTRY-C069 PIC X(20) VALUE '14590000001459000000'. 02 SITE4-ENTRY-C070 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C071 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C072 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C073 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C074 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C075 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C076 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C077 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C078 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C079 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C080 PIC X(20) VALUE '14210000001421000000'. 02 SITE4-ENTRY-C081 PIC X(20) VALUE '14220000001422000000'. 02 SITE4-ENTRY-C082 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C083 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C084 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C085 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C086 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C087 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C088 PIC X(20) VALUE '14280000001428000000'. 02 SITE4-ENTRY-C089 PIC X(20) VALUE '14290000001429000000'. 02 SITE4-ENTRY-C090 PIC X(20) VALUE '14610000001461000000'. 02 SITE4-ENTRY-C091 PIC X(20) VALUE '14620000001462000000'. 02 SITE4-ENTRY-C092 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C093 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C094 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C095 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C096 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C097 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C098 PIC X(20) VALUE '14600000001460000000'. 02 SITE4-ENTRY-C099 PIC X(20) VALUE '14600000001460000000'. 02 SITE4-ENTRY-C100 PIC X(20) VALUE '14630000001463000000'. 02 SITE4-ENTRY-C101 PIC X(20) VALUE '14640000001464000000'. 02 SITE4-ENTRY-C102 PIC X(20) VALUE '14660000001466000000'. 02 SITE4-ENTRY-C103 PIC X(20) VALUE '14670000001467000000'. 02 SITE4-ENTRY-C104 PIC X(20) VALUE '14680000001468000000'. 02 SITE4-ENTRY-C105 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C106 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C107 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C108 PIC X(20) VALUE '14681000001468100000'. 02 SITE4-ENTRY-C109 PIC X(20) VALUE '14690000001469000000'. 02 SITE4-ENTRY-C110 PIC X(20) VALUE '14700000001470000000'. 02 SITE4-ENTRY-C111 PIC X(20) VALUE '14710000001471000000'. 02 SITE4-ENTRY-C112 PIC X(20) VALUE '14720000001472000000'. 02 SITE4-ENTRY-C113 PIC X(20) VALUE '14730000001473000000'. 02 SITE4-ENTRY-C114 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C115 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C116 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C117 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C118 PIC X(20) VALUE '14780000001478000000'. 02 SITE4-ENTRY-C119 PIC X(20) VALUE '14790000001479000000'. 02 SITE4-ENTRY-C120 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C121 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C122 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C123 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C124 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C125 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C126 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C127 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C128 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C129 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C130 PIC X(20) VALUE '14800000001480000000'. 02 SITE4-ENTRY-C131 PIC X(20) VALUE '14820000001482000000'. 02 SITE4-ENTRY-C132 PIC X(20) VALUE '14830000001483000000'. 02 SITE4-ENTRY-C133 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C134 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C135 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C136 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C137 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C138 PIC X(20) VALUE '14880000001488000000'. 02 SITE4-ENTRY-C139 PIC X(20) VALUE '14890000001489000000'. 02 SITE4-ENTRY-C140 PIC X(20) VALUE '14900000001490000000'. 02 SITE4-ENTRY-C141 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C142 PIC X(20) VALUE '14910000001491000000'. 02 SITE4-ENTRY-C143 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C144 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C145 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C146 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C147 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C148 PIC X(20) VALUE '14981000001498100000'. 02 SITE4-ENTRY-C149 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C150 PIC X(20) VALUE '15000000001500000000'. 02 SITE4-ENTRY-C151 PIC X(20) VALUE '15010000001501000000'. 02 SITE4-ENTRY-C152 PIC X(20) VALUE '15020000001502000000'. 02 SITE4-ENTRY-C153 PIC X(20) VALUE '15030000001503000000'. 02 SITE4-ENTRY-C154 PIC X(20) VALUE '15040000001504000000'. 02 SITE4-ENTRY-C155 PIC X(20) VALUE '15050000001505000000'. 02 SITE4-ENTRY-C156 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C157 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C158 PIC X(20) VALUE '15080000001508000000'. 02 SITE4-ENTRY-C159 PIC X(20) VALUE '15090000001509000000'. 02 SITE4-ENTRY-C160 PIC X(20) VALUE '15100000001510000000'. 02 SITE4-ENTRY-C161 PIC X(20) VALUE '15130000001513000000'. 02 SITE4-ENTRY-C162 PIC X(20) VALUE '15140000001514000000'. 02 SITE4-ENTRY-C163 PIC X(20) VALUE '15120000001512000000'. 02 SITE4-ENTRY-C164 PIC X(20) VALUE '15110000001511000000'. 02 SITE4-ENTRY-C165 PIC X(20) VALUE '15150000001515000000'. 02 SITE4-ENTRY-C166 PIC X(20) VALUE '15160000001516000000'. 02 SITE4-ENTRY-C167 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C168 PIC X(20) VALUE '15180000001518000000'. 02 SITE4-ENTRY-C169 PIC X(20) VALUE '15190000001519000000'. 02 SITE4-ENTRY-C170 PIC X(20) VALUE '15200000001520000000'. 02 SITE4-ENTRY-C171 PIC X(20) VALUE '15210000001521000000'. 02 SITE4-ENTRY-C172 PIC X(20) VALUE '15220000001522000000'. 02 SITE4-ENTRY-C173 PIC X(20) VALUE '15230000001523000000'. 02 SITE4-ENTRY-C174 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C175 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C176 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C177 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C178 PIC X(20) VALUE '15280000001528000000'. 02 SITE4-ENTRY-C179 PIC X(20) VALUE '15290000001529000000'. 02 SITE4-ENTRY-C180 PIC X(20) VALUE '15340000001534000000'. 02 SITE4-ENTRY-C181 PIC X(20) VALUE '15350000001535000000'. 02 SITE4-ENTRY-C182 PIC X(20) VALUE '15360000001536000000'. 02 SITE4-ENTRY-C183 PIC X(20) VALUE '15300000001530000000'. 02 SITE4-ENTRY-C184 PIC X(20) VALUE '15310000001531000000'. 02 SITE4-ENTRY-C185 PIC X(20) VALUE '15370000001537000000'. 02 SITE4-ENTRY-C186 PIC X(20) VALUE '15320000001532000000'. 02 SITE4-ENTRY-C187 PIC X(20) VALUE '15330000001533000000'. 02 SITE4-ENTRY-C188 PIC X(20) VALUE '15380000001538000000'. 02 SITE4-ENTRY-C189 PIC X(20) VALUE '15390000001539000000'. 02 SITE4-ENTRY-C190 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C191 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C192 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C193 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C194 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C195 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C196 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C197 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C198 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C199 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C200 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C201 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C202 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C203 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C204 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C205 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C206 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C207 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C208 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C209 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C210 PIC X(20) VALUE '15430000001543000000'. 02 SITE4-ENTRY-C211 PIC X(20) VALUE '15420000001542000000'. 02 SITE4-ENTRY-C212 PIC X(20) VALUE '15480000001548000000'. 02 SITE4-ENTRY-C213 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C214 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C215 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C216 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C217 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C218 PIC X(20) VALUE '15480000001548000000'. 02 SITE4-ENTRY-C219 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C220 PIC X(20) VALUE '15500000001550000000'. 02 SITE4-ENTRY-C221 PIC X(20) VALUE '15510000001551000000'. 02 SITE4-ENTRY-C222 PIC X(20) VALUE '15500000001550000000'. 02 SITE4-ENTRY-C223 PIC X(20) VALUE '15500000001550000000'. 02 SITE4-ENTRY-C224 PIC X(20) VALUE '15500000001550000000'. 02 SITE4-ENTRY-C225 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C226 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C227 PIC X(20) VALUE '15500000001550000000'. 02 SITE4-ENTRY-C228 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C229 PIC X(20) VALUE '15520000001552000000'. 02 SITE4-ENTRY-C230 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C231 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C232 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C233 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C234 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C235 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C236 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C237 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C238 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C239 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C240 PIC X(20) VALUE '15610000001561000000'. 02 SITE4-ENTRY-C241 PIC X(20) VALUE '15620000001562000000'. 02 SITE4-ENTRY-C242 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C243 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C244 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C245 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C246 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C247 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C248 PIC X(20) VALUE '15680000001568000000'. 02 SITE4-ENTRY-C249 PIC X(20) VALUE '15690000001569000000'. 02 SITE4-ENTRY-C250 PIC X(20) VALUE '15700000001570000000'. 02 SITE4-ENTRY-C251 PIC X(20) VALUE '15710000001571000000'. 02 SITE4-ENTRY-C252 PIC X(20) VALUE '15720000001572000000'. 02 SITE4-ENTRY-C253 PIC X(20) VALUE '15730000001573000000'. 02 SITE4-ENTRY-C254 PIC X(20) VALUE '15740000001574000000'. 02 SITE4-ENTRY-C255 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C256 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C257 PIC X(20) VALUE '15790000001579000000'. 02 SITE4-ENTRY-C258 PIC X(20) VALUE '15780000001578000000'. 02 SITE4-ENTRY-C259 PIC X(20) VALUE '15790000001579000000'. 02 SITE4-ENTRY-C260 PIC X(20) VALUE '15900000001590000000'. 02 SITE4-ENTRY-C261 PIC X(20) VALUE '15910000001591000000'. 02 SITE4-ENTRY-C262 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C263 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C264 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C265 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C266 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C267 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C268 PIC X(20) VALUE '15980000001598000000'. 02 SITE4-ENTRY-C269 PIC X(20) VALUE '15990000001599000000'. 02 SITE4-ENTRY-C270 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C271 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C272 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C273 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C274 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C275 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C276 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C277 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C278 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C279 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C280 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C281 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C282 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C283 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C284 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C285 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C286 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C287 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C288 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C289 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C290 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C291 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C292 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C293 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C294 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C295 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C296 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C297 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C298 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C299 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C300 PIC X(20) VALUE '16000000001600000000'. 02 SITE4-ENTRY-C301 PIC X(20) VALUE '16010000001601000000'. 02 SITE4-ENTRY-C302 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C303 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C304 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C305 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C306 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C307 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C308 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C309 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C310 PIC X(20) VALUE '16020000001602000000'. 02 SITE4-ENTRY-C311 PIC X(20) VALUE '16030000001603000000'. 02 SITE4-ENTRY-C312 PIC X(20) VALUE '16040000001604000000'. 02 SITE4-ENTRY-C313 PIC X(20) VALUE '16050000001605000000'. 02 SITE4-ENTRY-C314 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C315 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C316 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C317 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C318 PIC X(20) VALUE '16080000001608000000'. 02 SITE4-ENTRY-C319 PIC X(20) VALUE '16090000001609000000'. 02 SITE4-ENTRY-C320 PIC X(20) VALUE '16100000001610000000'. 02 SITE4-ENTRY-C321 PIC X(20) VALUE '16110000001611000000'. 02 SITE4-ENTRY-C322 PIC X(20) VALUE '16120000001612000000'. 02 SITE4-ENTRY-C323 PIC X(20) VALUE '16130000001613000000'. 02 SITE4-ENTRY-C324 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C325 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C326 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C327 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C328 PIC X(20) VALUE '16180000001618000000'. 02 SITE4-ENTRY-C329 PIC X(20) VALUE '16190000001619000000'. 02 SITE4-ENTRY-C330 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C331 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C332 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C333 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C334 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C335 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C336 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C337 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C338 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C339 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C340 PIC X(20) VALUE '16220000001622000000'. 02 SITE4-ENTRY-C341 PIC X(20) VALUE '16230000001623000000'. 02 SITE4-ENTRY-C342 PIC X(20) VALUE '16240000001624000000'. 02 SITE4-ENTRY-C343 PIC X(20) VALUE '16250000001625000000'. 02 SITE4-ENTRY-C344 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C345 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C346 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C347 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C348 PIC X(20) VALUE '16280000001628000000'. 02 SITE4-ENTRY-C349 PIC X(20) VALUE '16290000001629000000'. 02 SITE4-ENTRY-C350 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C351 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C352 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C353 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C354 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C355 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C356 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C357 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C358 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C359 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C360 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C361 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C362 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C363 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C364 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C365 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C366 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C367 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C368 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C369 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C370 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C371 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C372 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C373 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C374 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C375 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C376 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C377 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C378 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C379 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C380 PIC X(20) VALUE '16410000001641000000'. 02 SITE4-ENTRY-C381 PIC X(20) VALUE '16420000001642000000'. 02 SITE4-ENTRY-C382 PIC X(20) VALUE '16430000001643000000'. 02 SITE4-ENTRY-C383 PIC X(20) VALUE '16490000001649000000'. 02 SITE4-ENTRY-C384 PIC X(20) VALUE '16391000001639100000'. 02 SITE4-ENTRY-C385 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C386 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C387 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C388 PIC X(20) VALUE '16480000001648000000'. 02 SITE4-ENTRY-C389 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C390 PIC X(20) VALUE '16500000001650000000'. 02 SITE4-ENTRY-C391 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C392 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C393 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C394 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C395 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C396 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C397 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C398 PIC X(20) VALUE '16580000001658000000'. 02 SITE4-ENTRY-C399 PIC X(20) VALUE '16590000001659000000'. 02 SITE4-ENTRY-C400 PIC X(20) VALUE '17040000001704000000'. 02 SITE4-ENTRY-C401 PIC X(20) VALUE '17050000001705000000'. 02 SITE4-ENTRY-C402 PIC X(20) VALUE '17070000001707000000'. 02 SITE4-ENTRY-C403 PIC X(20) VALUE '17080000001708000000'. 02 SITE4-ENTRY-C404 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C405 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C406 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C407 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C408 PIC X(20) VALUE '17090000001709000000'. 02 SITE4-ENTRY-C409 PIC X(20) VALUE '17090000001709000000'. 02 SITE4-ENTRY-C410 PIC X(20) VALUE '17000000001700000000'. 02 SITE4-ENTRY-C411 PIC X(20) VALUE '17010000001701000000'. 02 SITE4-ENTRY-C412 PIC X(20) VALUE '17020000001702000000'. 02 SITE4-ENTRY-C413 PIC X(20) VALUE '17030000001703000000'. 02 SITE4-ENTRY-C414 PIC X(20) VALUE '17060000001706000000'. 02 SITE4-ENTRY-C415 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C416 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C417 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C418 PIC X(20) VALUE '17090000001709000000'. 02 SITE4-ENTRY-C419 PIC X(20) VALUE '17090000001709000000'. 02 SITE4-ENTRY-C420 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C421 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C422 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C423 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C424 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C425 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C426 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C427 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C428 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C429 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C430 PIC X(20) VALUE '17200000001720000000'. 02 SITE4-ENTRY-C431 PIC X(20) VALUE '17210000001721000000'. 02 SITE4-ENTRY-C432 PIC X(20) VALUE '17220000001722000000'. 02 SITE4-ENTRY-C433 PIC X(20) VALUE '17230000001723000000'. 02 SITE4-ENTRY-C434 PIC X(20) VALUE '17240000001724000000'. 02 SITE4-ENTRY-C435 PIC X(20) VALUE '17250000001725000000'. 02 SITE4-ENTRY-C436 PIC X(20) VALUE '17260000001726000000'. 02 SITE4-ENTRY-C437 PIC X(20) VALUE '17270000001727000000'. 02 SITE4-ENTRY-C438 PIC X(20) VALUE '17280000001728000000'. 02 SITE4-ENTRY-C439 PIC X(20) VALUE '17290000001729000000'. 02 SITE4-ENTRY-C440 PIC X(20) VALUE '17300000001730000000'. 02 SITE4-ENTRY-C441 PIC X(20) VALUE '17310000001731000000'. 02 SITE4-ENTRY-C442 PIC X(20) VALUE '17320000001732000000'. 02 SITE4-ENTRY-C443 PIC X(20) VALUE '17330000001733000000'. 02 SITE4-ENTRY-C444 PIC X(20) VALUE '17340000001734000000'. 02 SITE4-ENTRY-C445 PIC X(20) VALUE '17350000001735000000'. 02 SITE4-ENTRY-C446 PIC X(20) VALUE '17360000001736000000'. 02 SITE4-ENTRY-C447 PIC X(20) VALUE '17370000001737000000'. 02 SITE4-ENTRY-C448 PIC X(20) VALUE '17380000001738000000'. 02 SITE4-ENTRY-C449 PIC X(20) VALUE '17390000001739000000'. 02 SITE4-ENTRY-C450 PIC X(20) VALUE '99990001009999000100'. 02 SITE4-ENTRY-C451 PIC X(20) VALUE '99990001009999000100'. 02 SITE4-ENTRY-C452 PIC X(20) VALUE '99990001009999000100'. 02 SITE4-ENTRY-C453 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C454 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C455 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C456 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C457 PIC X(20) VALUE '99990001009999000100'. 02 SITE4-ENTRY-C458 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C459 PIC X(20) VALUE '99990001009999000100'. 02 SITE4-ENTRY-C460 PIC X(20) VALUE '17600100101760010010'. 02 SITE4-ENTRY-C461 PIC X(20) VALUE '17610100101761010010'. 02 SITE4-ENTRY-C462 PIC X(20) VALUE '17620100101762010010'. 02 SITE4-ENTRY-C463 PIC X(20) VALUE '17650100101765010010'. 02 SITE4-ENTRY-C464 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C465 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C466 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C467 PIC X(20) VALUE '17680100101768010010'. 02 SITE4-ENTRY-C468 PIC X(20) VALUE '17680100101768010010'. 02 SITE4-ENTRY-C469 PIC X(20) VALUE '17690100101769010010'. 02 SITE4-ENTRY-C470 PIC X(20) VALUE '17100000001710000000'. 02 SITE4-ENTRY-C471 PIC X(20) VALUE '17120000001712000000'. 02 SITE4-ENTRY-C472 PIC X(20) VALUE '17130000001713000000'. 02 SITE4-ENTRY-C473 PIC X(20) VALUE '17140000001714000000'. 02 SITE4-ENTRY-C474 PIC X(20) VALUE '17150000001715000000'. 02 SITE4-ENTRY-C475 PIC X(20) VALUE '17160000001716000000'. 02 SITE4-ENTRY-C476 PIC X(20) VALUE '17170000001717000000'. 02 SITE4-ENTRY-C477 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C478 PIC X(20) VALUE '17180000001718000000'. 02 SITE4-ENTRY-C479 PIC X(20) VALUE '17190000001719000000'. 02 SITE4-ENTRY-C480 PIC X(20) VALUE '15800000001580000000'. 02 SITE4-ENTRY-C481 PIC X(20) VALUE '15880000001588000000'. 02 SITE4-ENTRY-C482 PIC X(20) VALUE '15890000001589000000'. 02 SITE4-ENTRY-C483 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C484 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C485 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C486 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C487 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C488 PIC X(20) VALUE '15890000001589000000'. 02 SITE4-ENTRY-C489 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C490 PIC X(20) VALUE '17100000001710000000'. 02 SITE4-ENTRY-C491 PIC X(20) VALUE '17120000001712000000'. 02 SITE4-ENTRY-C492 PIC X(20) VALUE '17130000001713000000'. 02 SITE4-ENTRY-C493 PIC X(20) VALUE '17140000001714000000'. 02 SITE4-ENTRY-C494 PIC X(20) VALUE '17150000001715000000'. 02 SITE4-ENTRY-C495 PIC X(20) VALUE '17160000001716000000'. 02 SITE4-ENTRY-C496 PIC X(20) VALUE '17170000001717000000'. 02 SITE4-ENTRY-C497 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C498 PIC X(20) VALUE '17180000001718000000'. 02 SITE4-ENTRY-C499 PIC X(20) VALUE '17190000001719000000'. 02 SITE4-ENTRY-C500 PIC X(20) VALUE '175 0110001740001000'. 02 SITE4-ENTRY-C501 PIC X(20) VALUE '175 0010001741001000'. 02 SITE4-ENTRY-C502 PIC X(20) VALUE '175 0010001742001000'. 02 SITE4-ENTRY-C503 PIC X(20) VALUE '175 0010001743001000'. 02 SITE4-ENTRY-C504 PIC X(20) VALUE '175 0010001744001000'. 02 SITE4-ENTRY-C505 PIC X(20) VALUE '175 0010001745001000'. 02 SITE4-ENTRY-C506 PIC X(20) VALUE '175 0010001746001000'. 02 SITE4-ENTRY-C507 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C508 PIC X(20) VALUE '175 0010001748001000'. 02 SITE4-ENTRY-C509 PIC X(20) VALUE '175 0110001749001000'. 02 SITE4-ENTRY-C510 PIC X(20) VALUE '99990000001841001000'. 02 SITE4-ENTRY-C511 PIC X(20) VALUE '99990000001842001000'. 02 SITE4-ENTRY-C512 PIC X(20) VALUE '99990000001843001000'. 02 SITE4-ENTRY-C513 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C514 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C515 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C516 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C517 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C518 PIC X(20) VALUE '99990000001844001000'. 02 SITE4-ENTRY-C519 PIC X(20) VALUE '99990000001844001000'. 02 SITE4-ENTRY-C520 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C521 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C522 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C523 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C524 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C525 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C526 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C527 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C528 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C529 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C530 PIC X(20) VALUE '99990000001800001000'. 02 SITE4-ENTRY-C531 PIC X(20) VALUE '99990000001801001000'. 02 SITE4-ENTRY-C532 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C533 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C534 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C535 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C536 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C537 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C538 PIC X(20) VALUE '99990000001808001000'. 02 SITE4-ENTRY-C539 PIC X(20) VALUE '99990000001809001000'. 02 SITE4-ENTRY-C540 PIC X(20) VALUE '99990000001821001000'. 02 SITE4-ENTRY-C541 PIC X(20) VALUE '99990000001820001000'. 02 SITE4-ENTRY-C542 PIC X(20) VALUE '99990000001820001000'. 02 SITE4-ENTRY-C543 PIC X(20) VALUE '99990000001820001000'. 02 SITE4-ENTRY-C544 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C545 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C546 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C547 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C548 PIC X(20) VALUE '99990000001828001000'. 02 SITE4-ENTRY-C549 PIC X(20) VALUE '99990000001820001000'. 02 SITE4-ENTRY-C550 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C551 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C552 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C553 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C554 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C555 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C556 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C557 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C558 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C559 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C560 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C561 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C562 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C563 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C564 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C565 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C566 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C567 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C568 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C569 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C570 PIC X(20) VALUE '99990000001832001000'. 02 SITE4-ENTRY-C571 PIC X(20) VALUE '99990000001833001000'. 02 SITE4-ENTRY-C572 PIC X(20) VALUE '99990000001835001000'. 02 SITE4-ENTRY-C573 PIC X(20) VALUE '99990000001834001000'. 02 SITE4-ENTRY-C574 PIC X(20) VALUE '99990000001839001000'. 02 SITE4-ENTRY-C575 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C576 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C577 PIC X(20) VALUE '99990000001848001000'. 02 SITE4-ENTRY-C578 PIC X(20) VALUE '99990000001848101000'. 02 SITE4-ENTRY-C579 PIC X(20) VALUE '99990000001849001000'. 02 SITE4-ENTRY-C580 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C581 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C582 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C583 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C584 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C585 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C586 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C587 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C588 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C589 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C590 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C591 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C592 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C593 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C594 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C595 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C596 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C597 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C598 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C599 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C600 PIC X(20) VALUE '18710010009999000000'. 02 SITE4-ENTRY-C601 PIC X(20) VALUE '18720010009999000000'. 02 SITE4-ENTRY-C602 PIC X(20) VALUE '18730010009999000000'. 02 SITE4-ENTRY-C603 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C604 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C605 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C606 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C607 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C608 PIC X(20) VALUE '18740010009999000000'. 02 SITE4-ENTRY-C609 PIC X(20) VALUE '18740010009999000000'. 02 SITE4-ENTRY-C610 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C611 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C612 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C613 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C614 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C615 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C616 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C617 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C618 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C619 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C620 PIC X(20) VALUE '18600010009999000000'. 02 SITE4-ENTRY-C621 PIC X(20) VALUE '18690010009999000000'. 02 SITE4-ENTRY-C622 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C623 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C624 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C625 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C626 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C627 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C628 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C629 PIC X(20) VALUE '18690010009999000000'. 02 SITE4-ENTRY-C630 PIC X(20) VALUE '18750010009999000000'. 02 SITE4-ENTRY-C631 PIC X(20) VALUE '18760010009999000000'. 02 SITE4-ENTRY-C632 PIC X(20) VALUE '18770010009999000000'. 02 SITE4-ENTRY-C633 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C634 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C635 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C636 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C637 PIC X(20) VALUE '18780010009999000000'. 02 SITE4-ENTRY-C638 PIC X(20) VALUE '18780010009999000000'. 02 SITE4-ENTRY-C639 PIC X(20) VALUE '18790010009999000000'. 02 SITE4-ENTRY-C640 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C641 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C642 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C643 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C644 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C645 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C646 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C647 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C648 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C649 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C650 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C651 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C652 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C653 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C654 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C655 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C656 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C657 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C658 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C659 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C660 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C661 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C662 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C663 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C664 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C665 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C666 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C667 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C668 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C669 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C670 PIC X(20) VALUE '18800000001880000000'. 02 SITE4-ENTRY-C671 PIC X(20) VALUE '18810000001881000000'. 02 SITE4-ENTRY-C672 PIC X(20) VALUE '18820000001882000000'. 02 SITE4-ENTRY-C673 PIC X(20) VALUE '18830000001883000000'. 02 SITE4-ENTRY-C674 PIC X(20) VALUE '18840000001884000000'. 02 SITE4-ENTRY-C675 PIC X(20) VALUE '18850000001885000000'. 02 SITE4-ENTRY-C676 PIC X(20) VALUE '18860000001886000000'. 02 SITE4-ENTRY-C677 PIC X(20) VALUE '18870000001887000000'. 02 SITE4-ENTRY-C678 PIC X(20) VALUE '18880000001888000000'. 02 SITE4-ENTRY-C679 PIC X(20) VALUE '18890000001889000000'. 02 SITE4-ENTRY-C680 PIC X(20) VALUE '18930000001893000000'. 02 SITE4-ENTRY-C681 PIC X(20) VALUE '18940000001894000000'. 02 SITE4-ENTRY-C682 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C683 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C684 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C685 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C686 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C687 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C688 PIC X(20) VALUE '18980000001898000000'. 02 SITE4-ENTRY-C689 PIC X(20) VALUE '18990000001899000000'. 02 SITE4-ENTRY-C690 PIC X(20) VALUE '19030000001903000000'. 02 SITE4-ENTRY-C691 PIC X(20) VALUE '19040000001904000000'. 02 SITE4-ENTRY-C692 PIC X(20) VALUE '19050000001905000000'. 02 SITE4-ENTRY-C693 PIC X(20) VALUE '19060000001906000000'. 02 SITE4-ENTRY-C694 PIC X(20) VALUE '19000000001900000000'. 02 SITE4-ENTRY-C695 PIC X(20) VALUE '19091000001909100000'. 02 SITE4-ENTRY-C696 PIC X(20) VALUE '19010000001901000000'. 02 SITE4-ENTRY-C697 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C698 PIC X(20) VALUE '19080000001908000000'. 02 SITE4-ENTRY-C699 PIC X(20) VALUE '19090000001909000000'. 02 SITE4-ENTRY-C700 PIC X(20) VALUE '19210000001921000000'. 02 SITE4-ENTRY-C701 PIC X(20) VALUE '19230000001923000000'. 02 SITE4-ENTRY-C702 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C703 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C704 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C705 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C706 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C707 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C708 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C709 PIC X(20) VALUE '19210000001921000000'. 02 SITE4-ENTRY-C710 PIC X(20) VALUE '19100000001910000000'. 02 SITE4-ENTRY-C711 PIC X(20) VALUE '19110000001911000000'. 02 SITE4-ENTRY-C712 PIC X(20) VALUE '19120000001912000000'. 02 SITE4-ENTRY-C713 PIC X(20) VALUE '19130000001913000000'. 02 SITE4-ENTRY-C714 PIC X(20) VALUE '19140000001914000000'. 02 SITE4-ENTRY-C715 PIC X(20) VALUE '19150000001915000000'. 02 SITE4-ENTRY-C716 PIC X(20) VALUE '19160000001916000000'. 02 SITE4-ENTRY-C717 PIC X(20) VALUE '19170000001917000000'. 02 SITE4-ENTRY-C718 PIC X(20) VALUE '19180000001918000000'. 02 SITE4-ENTRY-C719 PIC X(20) VALUE '19190000001919000000'. 02 SITE4-ENTRY-C720 PIC X(20) VALUE '19220000001922000000'. 02 SITE4-ENTRY-C721 PIC X(20) VALUE '19220000001922000000'. 02 SITE4-ENTRY-C722 PIC X(20) VALUE '19200000001920000000'. 02 SITE4-ENTRY-C723 PIC X(20) VALUE '19200000001920000000'. 02 SITE4-ENTRY-C724 PIC X(20) VALUE '19200000001920000000'. 02 SITE4-ENTRY-C725 PIC X(20) VALUE '19200000001920000000'. 02 SITE4-ENTRY-C726 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C727 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C728 PIC X(20) VALUE '19280000001928000000'. 02 SITE4-ENTRY-C729 PIC X(20) VALUE '19290000001929000000'. 02 SITE4-ENTRY-C730 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C731 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C732 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C733 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C734 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C735 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C736 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C737 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C738 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C739 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C740 PIC X(20) VALUE '19400000001940000000'. 02 SITE4-ENTRY-C741 PIC X(20) VALUE '19400000001940000000'. 02 SITE4-ENTRY-C742 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C743 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C744 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C745 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C746 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C747 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C748 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C749 PIC X(20) VALUE '19400000001940000000'. 02 SITE4-ENTRY-C750 PIC X(20) VALUE '19410000001941000000'. 02 SITE4-ENTRY-C751 PIC X(20) VALUE '19430000001943000000'. 02 SITE4-ENTRY-C752 PIC X(20) VALUE '19430000001943000000'. 02 SITE4-ENTRY-C753 PIC X(20) VALUE '19440000001944000000'. 02 SITE4-ENTRY-C754 PIC X(20) VALUE '19450000001945000000'. 02 SITE4-ENTRY-C755 PIC X(20) VALUE '19460000001946000000'. 02 SITE4-ENTRY-C756 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C757 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C758 PIC X(20) VALUE '19480000001948000000'. 02 SITE4-ENTRY-C759 PIC X(20) VALUE '19490000001949000000'. 02 SITE4-ENTRY-C760 PIC X(20) VALUE '19500000001950000000'. 02 SITE4-ENTRY-C761 PIC X(20) VALUE '19510000001951000000'. 02 SITE4-ENTRY-C762 PIC X(20) VALUE '19520000001952000000'. 02 SITE4-ENTRY-C763 PIC X(20) VALUE '19530000001953000000'. 02 SITE4-ENTRY-C764 PIC X(20) VALUE '19540000001954000000'. 02 SITE4-ENTRY-C765 PIC X(20) VALUE '19550000001955000000'. 02 SITE4-ENTRY-C766 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C767 PIC X(20) VALUE '19580000001958000000'. 02 SITE4-ENTRY-C768 PIC X(20) VALUE '19580000001958000000'. 02 SITE4-ENTRY-C769 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C770 PIC X(20) VALUE '19600000001960000000'. 02 SITE4-ENTRY-C771 PIC X(20) VALUE '19610000001961000000'. 02 SITE4-ENTRY-C772 PIC X(20) VALUE '19620000001962000000'. 02 SITE4-ENTRY-C773 PIC X(20) VALUE '19630000001963000000'. 02 SITE4-ENTRY-C774 PIC X(20) VALUE '19650000001965000000'. 02 SITE4-ENTRY-C775 PIC X(20) VALUE '19660000001966000000'. 02 SITE4-ENTRY-C776 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C777 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C778 PIC X(20) VALUE '19680000001968000000'. 02 SITE4-ENTRY-C779 PIC X(20) VALUE '19690000001969000000'. 02 SITE4-ENTRY-C780 PIC X(20) VALUE '19700000001970000000'. 02 SITE4-ENTRY-C781 PIC X(20) VALUE '19710000001971000000'. 02 SITE4-ENTRY-C782 PIC X(20) VALUE '19720000001972000000'. 02 SITE4-ENTRY-C783 PIC X(20) VALUE '19730000001973000000'. 02 SITE4-ENTRY-C784 PIC X(20) VALUE '19740000001974000000'. 02 SITE4-ENTRY-C785 PIC X(20) VALUE '19750000001975000000'. 02 SITE4-ENTRY-C786 PIC X(20) VALUE '19760000001976000000'. 02 SITE4-ENTRY-C787 PIC X(20) VALUE '19770000001977000000'. 02 SITE4-ENTRY-C788 PIC X(20) VALUE '19780000001978000000'. 02 SITE4-ENTRY-C789 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C790 PIC X(20) VALUE '19800000001980000000'. 02 SITE4-ENTRY-C791 PIC X(20) VALUE '19810000001981000000'. 02 SITE4-ENTRY-C792 PIC X(20) VALUE '19820000001982000000'. 02 SITE4-ENTRY-C793 PIC X(20) VALUE '19830000001983000000'. 02 SITE4-ENTRY-C794 PIC X(20) VALUE '19840000001984000000'. 02 SITE4-ENTRY-C795 PIC X(20) VALUE '19850000001985000000'. 02 SITE4-ENTRY-C796 PIC X(20) VALUE '19860000001986000000'. 02 SITE4-ENTRY-C797 PIC X(20) VALUE '19870000001987000000'. 02 SITE4-ENTRY-C798 PIC X(20) VALUE '19880100001988010000'. 02 SITE4-ENTRY-C799 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C800 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C801 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C802 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C803 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C804 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C805 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C806 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C807 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C808 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C809 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C810 PIC X(20) VALUE '20140000002014000000'. 02 SITE4-ENTRY-C811 PIC X(20) VALUE '20150000002015000000'. 02 SITE4-ENTRY-C812 PIC X(20) VALUE '20160000002016000000'. 02 SITE4-ENTRY-C813 PIC X(20) VALUE '20170000002017000000'. 02 SITE4-ENTRY-C814 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C815 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C816 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C817 PIC X(20) VALUE '20191000002019100000'. 02 SITE4-ENTRY-C818 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C819 PIC X(20) VALUE '20190000002019000000'. 02 SITE4-ENTRY-C820 PIC X(20) VALUE '20200000002020000000'. 02 SITE4-ENTRY-C821 PIC X(20) VALUE '20200000002020000000'. 02 SITE4-ENTRY-C822 PIC X(20) VALUE '20200000002020000000'. 02 SITE4-ENTRY-C823 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C824 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C825 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C826 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C827 PIC X(20) VALUE '20200000002020000000'. 02 SITE4-ENTRY-C828 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C829 PIC X(20) VALUE '20200000002020000000'. 02 SITE4-ENTRY-C830 PIC X(20) VALUE '20280000002028000000'. 02 SITE4-ENTRY-C831 PIC X(20) VALUE '20280000002028000000'. 02 SITE4-ENTRY-C832 PIC X(20) VALUE '20080000002008000000'. 02 SITE4-ENTRY-C833 PIC X(20) VALUE '20000000002000000000'. 02 SITE4-ENTRY-C834 PIC X(20) VALUE '20080000002008000000'. 02 SITE4-ENTRY-C835 PIC X(20) VALUE '20010000002001000000'. 02 SITE4-ENTRY-C836 PIC X(20) VALUE '20280000002028000000'. 02 SITE4-ENTRY-C837 PIC X(20) VALUE '20020000002002000000'. 02 SITE4-ENTRY-C838 PIC X(20) VALUE '20280000002028000000'. 02 SITE4-ENTRY-C839 PIC X(20) VALUE '20200000002020000000'. 02 SITE4-ENTRY-C840 PIC X(20) VALUE '20210000002021000000'. 02 SITE4-ENTRY-C841 PIC X(20) VALUE '20220000002022000000'. 02 SITE4-ENTRY-C842 PIC X(20) VALUE '20280000002028000000'. 02 SITE4-ENTRY-C843 PIC X(20) VALUE '20280000002028000000'. 02 SITE4-ENTRY-C844 PIC X(20) VALUE '20200000002020000000'. 02 SITE4-ENTRY-C845 PIC X(20) VALUE '20200000002020000000'. 02 SITE4-ENTRY-C846 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C847 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C848 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C849 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C850 PIC X(20) VALUE '20010000002001000000'. 02 SITE4-ENTRY-C851 PIC X(20) VALUE '20280000002028000000'. 02 SITE4-ENTRY-C852 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C853 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C854 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C855 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C856 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C857 PIC X(20) VALUE '20230000002023000000'. 02 SITE4-ENTRY-C858 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C859 PIC X(20) VALUE '20080000002008000000'. 02 SITE4-ENTRY-C860 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C861 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C862 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C863 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C864 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C865 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C866 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C867 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C868 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C869 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C870 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C871 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C872 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C873 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C874 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C875 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C876 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C877 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C878 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C879 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C880 PIC X(20) VALUE '27330000002733000000'. 02 SITE4-ENTRY-C881 PIC X(20) VALUE '20380000002038000000'. 02 SITE4-ENTRY-C882 PIC X(20) VALUE '20380000002038000000'. 02 SITE4-ENTRY-C883 PIC X(20) VALUE '20380000002038000000'. 02 SITE4-ENTRY-C884 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C885 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C886 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C887 PIC X(20) VALUE '20380000002038000000'. 02 SITE4-ENTRY-C888 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C889 PIC X(20) VALUE '20380000002038000000'. 02 SITE4-ENTRY-C890 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C891 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C892 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C893 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C894 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C895 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C896 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C897 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C898 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C899 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C900 PIC X(20) VALUE '20300000002030000000'. 02 SITE4-ENTRY-C901 PIC X(20) VALUE '20310000002031000000'. 02 SITE4-ENTRY-C902 PIC X(20) VALUE '20381000002038100000'. 02 SITE4-ENTRY-C903 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C904 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C905 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C906 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C907 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C908 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C909 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C910 PIC X(20) VALUE '20400000002040000000'. 02 SITE4-ENTRY-C911 PIC X(20) VALUE '20410000002041000000'. 02 SITE4-ENTRY-C912 PIC X(20) VALUE '20420000002042000000'. 02 SITE4-ENTRY-C913 PIC X(20) VALUE '20490000002049000000'. 02 SITE4-ENTRY-C914 PIC X(20) VALUE '20240000002024000000'. 02 SITE4-ENTRY-C915 PIC X(20) VALUE '20200000002020000000'. 02 SITE4-ENTRY-C916 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C917 PIC X(20) VALUE '20480000002048000000'. 02 SITE4-ENTRY-C918 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C919 PIC X(20) VALUE '20490000002049000000'. 02 SITE4-ENTRY-C920 PIC X(20) VALUE '20500000002050000000'. 02 SITE4-ENTRY-C921 PIC X(20) VALUE '20510000002051000000'. 02 SITE4-ENTRY-C922 PIC X(20) VALUE '20520000002052000000'. 02 SITE4-ENTRY-C923 PIC X(20) VALUE '20530000002053000000'. 02 SITE4-ENTRY-C924 PIC X(20) VALUE '20500000002050000000'. 02 SITE4-ENTRY-C925 PIC X(20) VALUE '20500000002050000000'. 02 SITE4-ENTRY-C926 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C927 PIC X(20) VALUE '20580000002058000000'. 02 SITE4-ENTRY-C928 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C929 PIC X(20) VALUE '20590000002059000000'. 02 SITE4-ENTRY-C930 PIC X(20) VALUE '20600000002060000000'. 02 SITE4-ENTRY-C931 PIC X(20) VALUE '20610000002061000000'. 02 SITE4-ENTRY-C932 PIC X(20) VALUE '20620000002062000000'. 02 SITE4-ENTRY-C933 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C934 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C935 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C936 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C937 PIC X(20) VALUE '20680000002068000000'. 02 SITE4-ENTRY-C938 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C939 PIC X(20) VALUE '20690000002069000000'. 02 SITE4-ENTRY-C940 PIC X(20) VALUE '20700000002070000000'. 02 SITE4-ENTRY-C941 PIC X(20) VALUE '20710000002071000000'. 02 SITE4-ENTRY-C942 PIC X(20) VALUE '20720000002072000000'. 02 SITE4-ENTRY-C943 PIC X(20) VALUE '20780000002078000000'. 02 SITE4-ENTRY-C944 PIC X(20) VALUE '23870000002387000000'. 02 SITE4-ENTRY-C945 PIC X(20) VALUE '28980000002898000000'. 02 SITE4-ENTRY-C946 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C947 PIC X(20) VALUE '20780000002078000000'. 02 SITE4-ENTRY-C948 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C949 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C950 PIC X(20) VALUE '20800000002080000000'. 02 SITE4-ENTRY-C951 PIC X(20) VALUE '20810000002081000000'. 02 SITE4-ENTRY-C952 PIC X(20) VALUE '20820000002082000000'. 02 SITE4-ENTRY-C953 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C954 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C955 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C956 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C957 PIC X(20) VALUE '20880000002088000000'. 02 SITE4-ENTRY-C958 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C959 PIC X(20) VALUE '20890000002089000000'. 02 SITE4-ENTRY-C960 PIC X(20) VALUE '20250000002025000000'. 02 SITE4-ENTRY-C961 PIC X(20) VALUE '20230000002023000000'. 02 SITE4-ENTRY-C962 PIC X(20) VALUE '20260000002026000000'. 02 SITE4-ENTRY-C963 PIC X(20) VALUE '20000000002000000000'. 02 SITE4-ENTRY-C964 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C965 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C966 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C967 PIC X(20) VALUE '20280000002028000000'. 02 SITE4-ENTRY-C968 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C969 PIC X(20) VALUE '20290000002029000000'. 02 SITE4-ENTRY-C970 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C971 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C972 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C973 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C974 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C975 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C976 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C977 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C978 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C979 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C980 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C981 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C982 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C983 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C984 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C985 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C986 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C987 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C988 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C989 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C990 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C991 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C992 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C993 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C994 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C995 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C996 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C997 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C998 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-C999 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D000 PIC X(20) VALUE '23000000002300000000'. 02 SITE4-ENTRY-D001 PIC X(20) VALUE '23010000002301000000'. 02 SITE4-ENTRY-D002 PIC X(20) VALUE '23020000002302000000'. 02 SITE4-ENTRY-D003 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D004 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D005 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D006 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D007 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D008 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D009 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D010 PIC X(20) VALUE '23030000002303000000'. 02 SITE4-ENTRY-D011 PIC X(20) VALUE '23040000002304000000'. 02 SITE4-ENTRY-D012 PIC X(20) VALUE '23040000002304000000'. 02 SITE4-ENTRY-D013 PIC X(20) VALUE '23061000002306100000'. 02 SITE4-ENTRY-D014 PIC X(20) VALUE '23070000002307000000'. 02 SITE4-ENTRY-D015 PIC X(20) VALUE '23080000002308000000'. 02 SITE4-ENTRY-D016 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D017 PIC X(20) VALUE '23090000002309000000'. 02 SITE4-ENTRY-D018 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D019 PIC X(20) VALUE '23090000002309000000'. 02 SITE4-ENTRY-D020 PIC X(20) VALUE '23100000002310000000'. 02 SITE4-ENTRY-D021 PIC X(20) VALUE '23110000002311000000'. 02 SITE4-ENTRY-D022 PIC X(20) VALUE '23120000002312000000'. 02 SITE4-ENTRY-D023 PIC X(20) VALUE '23180000002318000000'. 02 SITE4-ENTRY-D024 PIC X(20) VALUE '23190000002319000000'. 02 SITE4-ENTRY-D025 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D026 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D027 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D028 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D029 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D030 PIC X(20) VALUE '23200000002320000000'. 02 SITE4-ENTRY-D031 PIC X(20) VALUE '23210000002321000000'. 02 SITE4-ENTRY-D032 PIC X(20) VALUE '23220000002322000000'. 02 SITE4-ENTRY-D033 PIC X(20) VALUE '23230000002323000000'. 02 SITE4-ENTRY-D034 PIC X(20) VALUE '23240000002324000000'. 02 SITE4-ENTRY-D035 PIC X(20) VALUE '23250000002325000000'. 02 SITE4-ENTRY-D036 PIC X(20) VALUE '23260000002326000000'. 02 SITE4-ENTRY-D037 PIC X(20) VALUE '23270000002327000000'. 02 SITE4-ENTRY-D038 PIC X(20) VALUE '23280000002328000000'. 02 SITE4-ENTRY-D039 PIC X(20) VALUE '23290000002329000000'. 02 SITE4-ENTRY-D040 PIC X(20) VALUE '23200000002320000000'. 02 SITE4-ENTRY-D041 PIC X(20) VALUE '23210000002321000000'. 02 SITE4-ENTRY-D042 PIC X(20) VALUE '23220000002322000000'. 02 SITE4-ENTRY-D043 PIC X(20) VALUE '23230000002323000000'. 02 SITE4-ENTRY-D044 PIC X(20) VALUE '23240000002324000000'. 02 SITE4-ENTRY-D045 PIC X(20) VALUE '23250000002325000000'. 02 SITE4-ENTRY-D046 PIC X(20) VALUE '23260000002326000000'. 02 SITE4-ENTRY-D047 PIC X(20) VALUE '23270000002327000000'. 02 SITE4-ENTRY-D048 PIC X(20) VALUE '23280000002328000000'. 02 SITE4-ENTRY-D049 PIC X(20) VALUE '23290000002329000000'. 02 SITE4-ENTRY-D050 PIC X(20) VALUE '23300000002330000000'. 02 SITE4-ENTRY-D051 PIC X(20) VALUE '23300000002330000000'. 02 SITE4-ENTRY-D052 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D053 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D054 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D055 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D056 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D057 PIC X(20) VALUE '23300000002330000000'. 02 SITE4-ENTRY-D058 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D059 PIC X(20) VALUE '23300000002330000000'. 02 SITE4-ENTRY-D060 PIC X(20) VALUE '99990000002331001000'. 02 SITE4-ENTRY-D061 PIC X(20) VALUE '99990000002331001000'. 02 SITE4-ENTRY-D062 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D063 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D064 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D065 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D066 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D067 PIC X(20) VALUE '99990000002331001000'. 02 SITE4-ENTRY-D068 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D069 PIC X(20) VALUE '99990000002331001000'. 02 SITE4-ENTRY-D070 PIC X(20) VALUE '99990000002332001000'. 02 SITE4-ENTRY-D071 PIC X(20) VALUE '99990000002333001000'. 02 SITE4-ENTRY-D072 PIC X(20) VALUE '99990000002333001000'. 02 SITE4-ENTRY-D073 PIC X(20) VALUE '99990000002333101000'. 02 SITE4-ENTRY-D074 PIC X(20) VALUE '23350010009999000000'. 02 SITE4-ENTRY-D075 PIC X(20) VALUE '23340010009999000000'. 02 SITE4-ENTRY-D076 PIC X(20) VALUE '23360010009999000000'. 02 SITE4-ENTRY-D077 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D078 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D079 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D080 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D081 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D082 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D083 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D084 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D085 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D086 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D087 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D088 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D089 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D090 PIC X(20) VALUE '23370000002337000000'. 02 SITE4-ENTRY-D091 PIC X(20) VALUE '23390000002339000000'. 02 SITE4-ENTRY-D092 PIC X(20) VALUE '23400000002340000000'. 02 SITE4-ENTRY-D093 PIC X(20) VALUE '23480000002348000000'. 02 SITE4-ENTRY-D094 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D095 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D096 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D097 PIC X(20) VALUE '23480000002348000000'. 02 SITE4-ENTRY-D098 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D099 PIC X(20) VALUE '23490000002349000000'. 02 SITE4-ENTRY-D100 PIC X(20) VALUE '21000000002100000000'. 02 SITE4-ENTRY-D101 PIC X(20) VALUE '21010000002101000000'. 02 SITE4-ENTRY-D102 PIC X(20) VALUE '21030000002103000000'. 02 SITE4-ENTRY-D103 PIC X(20) VALUE '21040000002104000000'. 02 SITE4-ENTRY-D104 PIC X(20) VALUE '21050000002105000000'. 02 SITE4-ENTRY-D105 PIC X(20) VALUE '21060000002106000000'. 02 SITE4-ENTRY-D106 PIC X(20) VALUE '21070000002107000000'. 02 SITE4-ENTRY-D107 PIC X(20) VALUE '21080000002108000000'. 02 SITE4-ENTRY-D108 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D109 PIC X(20) VALUE '21090000002109000000'. 02 SITE4-ENTRY-D110 PIC X(20) VALUE '21020000002102000000'. 02 SITE4-ENTRY-D111 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D112 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D113 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D114 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D115 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D116 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D117 PIC X(20) VALUE '21020000002102000000'. 02 SITE4-ENTRY-D118 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D119 PIC X(20) VALUE '21020000002102000000'. 02 SITE4-ENTRY-D120 PIC X(20) VALUE '21130000002113000000'. 02 SITE4-ENTRY-D121 PIC X(20) VALUE '21130000002113000000'. 02 SITE4-ENTRY-D122 PIC X(20) VALUE '21130000002113000000'. 02 SITE4-ENTRY-D123 PIC X(20) VALUE '21130000002113000000'. 02 SITE4-ENTRY-D124 PIC X(20) VALUE '21130000002113000000'. 02 SITE4-ENTRY-D125 PIC X(20) VALUE '21130000002113000000'. 02 SITE4-ENTRY-D126 PIC X(20) VALUE '21130000002113000000'. 02 SITE4-ENTRY-D127 PIC X(20) VALUE '21140000002114000000'. 02 SITE4-ENTRY-D128 PIC X(20) VALUE '21140000002114000000'. 02 SITE4-ENTRY-D129 PIC X(20) VALUE '21140000002114000000'. 02 SITE4-ENTRY-D130 PIC X(20) VALUE '21100000002110000000'. 02 SITE4-ENTRY-D131 PIC X(20) VALUE '21110000002111000000'. 02 SITE4-ENTRY-D132 PIC X(20) VALUE '21120000002112000000'. 02 SITE4-ENTRY-D133 PIC X(20) VALUE '21191000002119100000'. 02 SITE4-ENTRY-D134 PIC X(20) VALUE '21150000002115000000'. 02 SITE4-ENTRY-D135 PIC X(20) VALUE '21150000002115000000'. 02 SITE4-ENTRY-D136 PIC X(20) VALUE '21160000002116000000'. 02 SITE4-ENTRY-D137 PIC X(20) VALUE '21170000002117000000'. 02 SITE4-ENTRY-D138 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D139 PIC X(20) VALUE '21190000002119000000'. 02 SITE4-ENTRY-D140 PIC X(20) VALUE '21200000002120000000'. 02 SITE4-ENTRY-D141 PIC X(20) VALUE '21210000002121000000'. 02 SITE4-ENTRY-D142 PIC X(20) VALUE '21220000002122000000'. 02 SITE4-ENTRY-D143 PIC X(20) VALUE '21230000002123000000'. 02 SITE4-ENTRY-D144 PIC X(20) VALUE '21290000002129000000'. 02 SITE4-ENTRY-D145 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D146 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D147 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D148 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D149 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D150 PIC X(20) VALUE '21260000002126000000'. 02 SITE4-ENTRY-D151 PIC X(20) VALUE '21270000002127000000'. 02 SITE4-ENTRY-D152 PIC X(20) VALUE '21250000002125000000'. 02 SITE4-ENTRY-D153 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D154 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D155 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D156 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D157 PIC X(20) VALUE '21281000002128100000'. 02 SITE4-ENTRY-D158 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D159 PIC X(20) VALUE '22980000002298000000'. 02 SITE4-ENTRY-D160 PIC X(20) VALUE '21340000002134000000'. 02 SITE4-ENTRY-D161 PIC X(20) VALUE '21350000002135000000'. 02 SITE4-ENTRY-D162 PIC X(20) VALUE '21370000002137000000'. 02 SITE4-ENTRY-D163 PIC X(20) VALUE '21380000002138000000'. 02 SITE4-ENTRY-D164 PIC X(20) VALUE '21300000002130000000'. 02 SITE4-ENTRY-D165 PIC X(20) VALUE '21310000002131000000'. 02 SITE4-ENTRY-D166 PIC X(20) VALUE '21320000002132000000'. 02 SITE4-ENTRY-D167 PIC X(20) VALUE '21330000002133000000'. 02 SITE4-ENTRY-D168 PIC X(20) VALUE '21360000002136000000'. 02 SITE4-ENTRY-D169 PIC X(20) VALUE '21390000002139000000'. 02 SITE4-ENTRY-D170 PIC X(20) VALUE '214 010000214 010000'. 02 SITE4-ENTRY-D171 PIC X(20) VALUE '214 010000214 010000'. 02 SITE4-ENTRY-D172 PIC X(20) VALUE '214 010000214 010000'. 02 SITE4-ENTRY-D173 PIC X(20) VALUE '214 010000214 010000'. 02 SITE4-ENTRY-D174 PIC X(20) VALUE '214 010000214 010000'. 02 SITE4-ENTRY-D175 PIC X(20) VALUE '214 010000214 010000'. 02 SITE4-ENTRY-D176 PIC X(20) VALUE '214 010000214 010000'. 02 SITE4-ENTRY-D177 PIC X(20) VALUE '214 010000214 010000'. 02 SITE4-ENTRY-D178 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D179 PIC X(20) VALUE '214 010000214 010000'. 02 SITE4-ENTRY-D180 PIC X(20) VALUE '22800100002280010000'. 02 SITE4-ENTRY-D181 PIC X(20) VALUE '22810000002281000000'. 02 SITE4-ENTRY-D182 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D183 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D184 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D185 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D186 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D187 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D188 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D189 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D190 PIC X(20) VALUE '99990001009999000100'. 02 SITE4-ENTRY-D191 PIC X(20) VALUE '99990001009999000100'. 02 SITE4-ENTRY-D192 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D193 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D194 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D195 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D196 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D197 PIC X(20) VALUE '99990001009999000100'. 02 SITE4-ENTRY-D198 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D199 PIC X(20) VALUE '99990001009999000100'. 02 SITE4-ENTRY-D200 PIC X(20) VALUE '21180000002118000000'. 02 SITE4-ENTRY-D201 PIC X(20) VALUE '21180000002118000000'. 02 SITE4-ENTRY-D202 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D203 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D204 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D205 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D206 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D207 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D208 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D209 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D210 PIC X(20) VALUE '21500000002150000000'. 02 SITE4-ENTRY-D211 PIC X(20) VALUE '21520000002152000000'. 02 SITE4-ENTRY-D212 PIC X(20) VALUE '21581000002158100000'. 02 SITE4-ENTRY-D213 PIC X(20) VALUE '21540000002154000000'. 02 SITE4-ENTRY-D214 PIC X(20) VALUE '21550000002155000000'. 02 SITE4-ENTRY-D215 PIC X(20) VALUE '21560000002156000000'. 02 SITE4-ENTRY-D216 PIC X(20) VALUE '21570000002157000000'. 02 SITE4-ENTRY-D217 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D218 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D219 PIC X(20) VALUE '21590000002159000000'. 02 SITE4-ENTRY-D220 PIC X(20) VALUE '21600000002160000000'. 02 SITE4-ENTRY-D221 PIC X(20) VALUE '21610000002161000000'. 02 SITE4-ENTRY-D222 PIC X(20) VALUE '21620000002162000000'. 02 SITE4-ENTRY-D223 PIC X(20) VALUE '21630000002163000000'. 02 SITE4-ENTRY-D224 PIC X(20) VALUE '21640000002164000000'. 02 SITE4-ENTRY-D225 PIC X(20) VALUE '21650000002165000000'. 02 SITE4-ENTRY-D226 PIC X(20) VALUE '21660000002166000000'. 02 SITE4-ENTRY-D227 PIC X(20) VALUE '21670000002167000000'. 02 SITE4-ENTRY-D228 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D229 PIC X(20) VALUE '21690000002169000000'. 02 SITE4-ENTRY-D230 PIC X(20) VALUE '21600000002160000000'. 02 SITE4-ENTRY-D231 PIC X(20) VALUE '21610000002161000000'. 02 SITE4-ENTRY-D232 PIC X(20) VALUE '21620000002162000000'. 02 SITE4-ENTRY-D233 PIC X(20) VALUE '21630000002163000000'. 02 SITE4-ENTRY-D234 PIC X(20) VALUE '21640000002164000000'. 02 SITE4-ENTRY-D235 PIC X(20) VALUE '21650000002165000000'. 02 SITE4-ENTRY-D236 PIC X(20) VALUE '21660000002166000000'. 02 SITE4-ENTRY-D237 PIC X(20) VALUE '21670000002167000000'. 02 SITE4-ENTRY-D238 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D239 PIC X(20) VALUE '21691000002169100000'. 02 SITE4-ENTRY-D240 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D241 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D242 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D243 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D244 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D245 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D246 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D247 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D248 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D249 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D250 PIC X(20) VALUE '9999000000218 011000'. 02 SITE4-ENTRY-D251 PIC X(20) VALUE '9999000000218 011000'. 02 SITE4-ENTRY-D252 PIC X(20) VALUE '9999000000218 011000'. 02 SITE4-ENTRY-D253 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D254 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D255 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D256 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D257 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D258 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D259 PIC X(20) VALUE '9999000000218 011000'. 02 SITE4-ENTRY-D260 PIC X(20) VALUE '99990000002190001000'. 02 SITE4-ENTRY-D261 PIC X(20) VALUE '99990000002191001000'. 02 SITE4-ENTRY-D262 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D263 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D264 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D265 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D266 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D267 PIC X(20) VALUE '99990000002198001000'. 02 SITE4-ENTRY-D268 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D269 PIC X(20) VALUE '99990000002199001000'. 02 SITE4-ENTRY-D270 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D271 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D272 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D273 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D274 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D275 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D276 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D277 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D278 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D279 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D280 PIC X(20) VALUE '99990000002212001000'. 02 SITE4-ENTRY-D281 PIC X(20) VALUE '99990000002211001000'. 02 SITE4-ENTRY-D282 PIC X(20) VALUE '99990000002210001000'. 02 SITE4-ENTRY-D283 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D284 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D285 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D286 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D287 PIC X(20) VALUE '99990000002218001000'. 02 SITE4-ENTRY-D288 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D289 PIC X(20) VALUE '99990000002219001000'. 02 SITE4-ENTRY-D290 PIC X(20) VALUE '22210010009999000000'. 02 SITE4-ENTRY-D291 PIC X(20) VALUE '22220010009999000000'. 02 SITE4-ENTRY-D292 PIC X(20) VALUE '22200010009999000000'. 02 SITE4-ENTRY-D293 PIC X(20) VALUE '22230010009999000000'. 02 SITE4-ENTRY-D294 PIC X(20) VALUE '22240010009999000000'. 02 SITE4-ENTRY-D295 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D296 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D297 PIC X(20) VALUE '22280010009999000000'. 02 SITE4-ENTRY-D298 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D299 PIC X(20) VALUE '22290010009999000000'. 02 SITE4-ENTRY-D300 PIC X(20) VALUE '22300000002230000000'. 02 SITE4-ENTRY-D301 PIC X(20) VALUE '22310000002231000000'. 02 SITE4-ENTRY-D302 PIC X(20) VALUE '22320000002232000000'. 02 SITE4-ENTRY-D303 PIC X(20) VALUE '22330000002233000000'. 02 SITE4-ENTRY-D304 PIC X(20) VALUE '22380100002238010000'. 02 SITE4-ENTRY-D305 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D306 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D307 PIC X(20) VALUE '22380100002238010000'. 02 SITE4-ENTRY-D308 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D309 PIC X(20) VALUE '22390000002239000000'. 02 SITE4-ENTRY-D310 PIC X(20) VALUE '22430000002243000000'. 02 SITE4-ENTRY-D311 PIC X(20) VALUE '22440000002244000000'. 02 SITE4-ENTRY-D312 PIC X(20) VALUE '22450000002245000000'. 02 SITE4-ENTRY-D313 PIC X(20) VALUE '22460000002246000000'. 02 SITE4-ENTRY-D314 PIC X(20) VALUE '22400000002240000000'. 02 SITE4-ENTRY-D315 PIC X(20) VALUE '22421000002242100000'. 02 SITE4-ENTRY-D316 PIC X(20) VALUE '22410000002241000000'. 02 SITE4-ENTRY-D317 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D318 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D319 PIC X(20) VALUE '22490000002249000000'. 02 SITE4-ENTRY-D320 PIC X(20) VALUE '22520000002252000000'. 02 SITE4-ENTRY-D321 PIC X(20) VALUE '22540000002254000000'. 02 SITE4-ENTRY-D322 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D323 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D324 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D325 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D326 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D327 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D328 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D329 PIC X(20) VALUE '22520000002252000000'. 02 SITE4-ENTRY-D330 PIC X(20) VALUE '22500000002250000000'. 02 SITE4-ENTRY-D331 PIC X(20) VALUE '22500000002250000000'. 02 SITE4-ENTRY-D332 PIC X(20) VALUE '22500000002250000000'. 02 SITE4-ENTRY-D333 PIC X(20) VALUE '22510000002251000000'. 02 SITE4-ENTRY-D334 PIC X(20) VALUE '22530000002253000000'. 02 SITE4-ENTRY-D335 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D336 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D337 PIC X(20) VALUE '22580000002258000000'. 02 SITE4-ENTRY-D338 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D339 PIC X(20) VALUE '22590000002259000000'. 02 SITE4-ENTRY-D340 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D341 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D342 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D343 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D344 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D345 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D346 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D347 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D348 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D349 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D350 PIC X(20) VALUE '22700000002270000000'. 02 SITE4-ENTRY-D351 PIC X(20) VALUE '22710000002271000000'. 02 SITE4-ENTRY-D352 PIC X(20) VALUE '22730000002273000000'. 02 SITE4-ENTRY-D353 PIC X(20) VALUE '22730000002273000000'. 02 SITE4-ENTRY-D354 PIC X(20) VALUE '22740000002274000000'. 02 SITE4-ENTRY-D355 PIC X(20) VALUE '22750000002275000000'. 02 SITE4-ENTRY-D356 PIC X(20) VALUE '22760000002276000000'. 02 SITE4-ENTRY-D357 PIC X(20) VALUE '22780000002278000000'. 02 SITE4-ENTRY-D358 PIC X(20) VALUE '22780000002278000000'. 02 SITE4-ENTRY-D359 PIC X(20) VALUE '22790000002279000000'. 02 SITE4-ENTRY-D360 PIC X(20) VALUE '22900000002290000000'. 02 SITE4-ENTRY-D361 PIC X(20) VALUE '21590000002159000000'. 02 SITE4-ENTRY-D362 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D363 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D364 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D365 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D366 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D367 PIC X(20) VALUE '22980000002298000000'. 02 SITE4-ENTRY-D368 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D369 PIC X(20) VALUE '22990000002299000000'. 02 SITE4-ENTRY-D370 PIC X(20) VALUE '23501000002350100000'. 02 SITE4-ENTRY-D371 PIC X(20) VALUE '23520000002352000000'. 02 SITE4-ENTRY-D372 PIC X(20) VALUE '23520000002352000000'. 02 SITE4-ENTRY-D373 PIC X(20) VALUE '23520000002352000000'. 02 SITE4-ENTRY-D374 PIC X(20) VALUE '23520000002352000000'. 02 SITE4-ENTRY-D375 PIC X(20) VALUE '23520000002352000000'. 02 SITE4-ENTRY-D376 PIC X(20) VALUE '23530000002353000000'. 02 SITE4-ENTRY-D377 PIC X(20) VALUE '23550000002355000000'. 02 SITE4-ENTRY-D378 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D379 PIC X(20) VALUE '23550000002355000000'. 02 SITE4-ENTRY-D380 PIC X(20) VALUE '23560000002356000000'. 02 SITE4-ENTRY-D381 PIC X(20) VALUE '23570000002357000000'. 02 SITE4-ENTRY-D382 PIC X(20) VALUE '23580000002358000000'. 02 SITE4-ENTRY-D383 PIC X(20) VALUE '23580000002358000000'. 02 SITE4-ENTRY-D384 PIC X(20) VALUE '23580000002358000000'. 02 SITE4-ENTRY-D385 PIC X(20) VALUE '23590000002359000000'. 02 SITE4-ENTRY-D386 PIC X(20) VALUE '23590000002359000000'. 02 SITE4-ENTRY-D387 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D388 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D389 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D390 PIC X(20) VALUE '99990000002360001000'. 02 SITE4-ENTRY-D391 PIC X(20) VALUE '99990000002362001000'. 02 SITE4-ENTRY-D392 PIC X(20) VALUE '99990000002361101000'. 02 SITE4-ENTRY-D393 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D394 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D395 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D396 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D397 PIC X(20) VALUE '99990000002363001000'. 02 SITE4-ENTRY-D398 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D399 PIC X(20) VALUE '99990000002363001000'. 02 SITE4-ENTRY-D400 PIC X(20) VALUE '23650010009999000000'. 02 SITE4-ENTRY-D401 PIC X(20) VALUE '23640010009999000000'. 02 SITE4-ENTRY-D402 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D403 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D404 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D405 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D406 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D407 PIC X(20) VALUE '23660010009999000000'. 02 SITE4-ENTRY-D408 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D409 PIC X(20) VALUE '23660010009999000000'. 02 SITE4-ENTRY-D410 PIC X(20) VALUE '23690100002369010000'. 02 SITE4-ENTRY-D411 PIC X(20) VALUE '23690100002369010000'. 02 SITE4-ENTRY-D412 PIC X(20) VALUE '23690100002369010000'. 02 SITE4-ENTRY-D413 PIC X(20) VALUE '23690100002369010000'. 02 SITE4-ENTRY-D414 PIC X(20) VALUE '23670000002367000000'. 02 SITE4-ENTRY-D415 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D416 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D417 PIC X(20) VALUE '23690100002369010000'. 02 SITE4-ENTRY-D418 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D419 PIC X(20) VALUE '23690100002369010000'. 02 SITE4-ENTRY-D420 PIC X(20) VALUE '23760000002376000000'. 02 SITE4-ENTRY-D421 PIC X(20) VALUE '23760000002376000000'. 02 SITE4-ENTRY-D422 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D423 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D424 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D425 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D426 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D427 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D428 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D429 PIC X(20) VALUE '23760000002376000000'. 02 SITE4-ENTRY-D430 PIC X(20) VALUE '23750000002375000000'. 02 SITE4-ENTRY-D431 PIC X(20) VALUE '23750000002375000000'. 02 SITE4-ENTRY-D432 PIC X(20) VALUE '23750000002375000000'. 02 SITE4-ENTRY-D433 PIC X(20) VALUE '23790000002379000000'. 02 SITE4-ENTRY-D434 PIC X(20) VALUE '23750000002375000000'. 02 SITE4-ENTRY-D435 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D436 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D437 PIC X(20) VALUE '23790000002379000000'. 02 SITE4-ENTRY-D438 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D439 PIC X(20) VALUE '23790000002379000000'. 02 SITE4-ENTRY-D440 PIC X(20) VALUE '23740000002374000000'. 02 SITE4-ENTRY-D441 PIC X(20) VALUE '23720000002372000000'. 02 SITE4-ENTRY-D442 PIC X(20) VALUE '23740000002374000000'. 02 SITE4-ENTRY-D443 PIC X(20) VALUE '23700000002370000000'. 02 SITE4-ENTRY-D444 PIC X(20) VALUE '23700000002370000000'. 02 SITE4-ENTRY-D445 PIC X(20) VALUE '23710000002371000000'. 02 SITE4-ENTRY-D446 PIC X(20) VALUE '23730000002373000000'. 02 SITE4-ENTRY-D447 PIC X(20) VALUE '23730000002373000000'. 02 SITE4-ENTRY-D448 PIC X(20) VALUE '23740000002374000000'. 02 SITE4-ENTRY-D449 PIC X(20) VALUE '23740000002374000000'. 02 SITE4-ENTRY-D450 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D451 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D452 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D453 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D454 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D455 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D456 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D457 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D458 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D459 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D460 PIC X(20) VALUE '28490000002849000000'. 02 SITE4-ENTRY-D461 PIC X(20) VALUE '28500000002850000000'. 02 SITE4-ENTRY-D462 PIC X(20) VALUE '28500000002850000000'. 02 SITE4-ENTRY-D463 PIC X(20) VALUE '28500000002850000000'. 02 SITE4-ENTRY-D464 PIC X(20) VALUE '28490000002849000000'. 02 SITE4-ENTRY-D465 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D466 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D467 PIC X(20) VALUE '23870000002387000000'. 02 SITE4-ENTRY-D468 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D469 PIC X(20) VALUE '23870000002387000000'. 02 SITE4-ENTRY-D470 PIC X(20) VALUE '23850000002385000000'. 02 SITE4-ENTRY-D471 PIC X(20) VALUE '23870000002387000000'. 02 SITE4-ENTRY-D472 PIC X(20) VALUE '27310000002731000000'. 02 SITE4-ENTRY-D473 PIC X(20) VALUE '23770100002377010000'. 02 SITE4-ENTRY-D474 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D475 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D476 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D477 PIC X(20) VALUE '23770100002377010000'. 02 SITE4-ENTRY-D478 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D479 PIC X(20) VALUE '23870000002387000000'. 02 SITE4-ENTRY-D480 PIC X(20) VALUE '23800000002380000000'. 02 SITE4-ENTRY-D481 PIC X(20) VALUE '23810000002381000000'. 02 SITE4-ENTRY-D482 PIC X(20) VALUE '23810000002381000000'. 02 SITE4-ENTRY-D483 PIC X(20) VALUE '23540000002354000000'. 02 SITE4-ENTRY-D484 PIC X(20) VALUE '23540000002354000000'. 02 SITE4-ENTRY-D485 PIC X(20) VALUE '23820000002382000000'. 02 SITE4-ENTRY-D486 PIC X(20) VALUE '23830000002383000000'. 02 SITE4-ENTRY-D487 PIC X(20) VALUE '23880000002388000000'. 02 SITE4-ENTRY-D488 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-D489 PIC X(20) VALUE '23890000002389000000'. 02 SITE4-ENTRY-Q850 PIC X(20) VALUE '23770100002377010000'. 02 SITE4-ENTRY-Q851 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-Q852 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-Q853 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-Q854 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-Q855 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-Q856 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-Q857 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-Q858 PIC X(20) VALUE '99990000019999000001'. 02 SITE4-ENTRY-Q859 PIC X(20) VALUE '99990000019999000001'. 01 SITE-FOUR-TBL REDEFINES SITE-FOUR-TABLE. 02 SITE-FOUR-GROUP OCCURS 1500 TIMES. 03 SITE-FOUR-ENTRY OCCURS 2 TIMES. 05 ICD9-SITE PIC X(4). 05 MU-FLAG PIC X(1). 05 CM-FLAG PIC X(1). 05 SX-FLAG PIC X(1). 05 NC-FLAG PIC X(1). 05 XX-FLAG PIC X(1). 05 INV-SITE PIC X(1). LINKAGE SECTION. 01 CONV-COMMON-AREA. 05 ICD10-FOUR PIC X(4). 88 SITE-F VALUE 'C510' THRU 'C519' 'C530' THRU 'C539' 'C540' THRU 'C549' 'C570' THRU 'C579' 'D060' THRU 'D069' 'D070' THRU 'D073' 'D250' THRU 'D259' 'D260' THRU 'D269' 'D280' THRU 'D289' 'D390' THRU 'D399'. 88 SITE-M VALUE 'C600' THRU 'C609' 'C620' THRU 'C629' 'C630' THRU 'C639' 'D074' THRU 'D076' 'D290' THRU 'D299' 'D400' THRU 'D409'. 88 SITE-BOTH VALUE 'C500' THRU 'C509'. 88 SITE-VLD VALUE 'C000' THRU 'C999' 'D000' THRU 'D489' 'Q850' THRU 'Q859'. 03 ICD10-PARTS-A REDEFINES ICD10-FOUR. 05 ICD10-THREE PIC X(3). 88 SITE3-F VALUE 'C51' 'C52' 'C53' 'C54' 'C55' 'C56' 'C57' 'C58' 'D06' 'D25' 'D26' 'D27' 'D28' 'D39'. 88 SITE3-M VALUE 'C60' 'C61' 'C62' 'C63' 'D29' 'D40'. 88 SITE3-B VALUE 'C50'. 88 SITE3-VLD VALUE 'C00' THRU 'C99' 'D00' THRU 'D48' 'Q85'. 05 ICD10-THREE-PARTS REDEFINES ICD10-THREE. 07 ICD10-PREFIX3 PIC X(1). 07 ICD10-NUMERIC-2 PIC X(2). 05 ICD10-FOURTH PIC X(1). 88 LENGTH-3 VALUE ' '. 03 ICD10-PARTS-B REDEFINES ICD10-FOUR. 05 ICD10-FIRST PIC X(1). 88 SITE1-VLD VALUE 'C' 'D' 'Q'. 88 PREFIX-C VALUE 'C'. 88 PREFIX-D VALUE 'D'. 88 PREFIX-Q VALUE 'Q'. 05 ICD10-NUMERIC PIC X(3). 03 SEX-IN PIC X(1). 88 MAL VALUE '1'. 88 FEM VALUE '2'. 03 ICD9 PIC X(4). 03 MU PIC X(1). 03 CM PIC X(1). 03 SX PIC X(1). 03 NC PIC X(1). 03 XX 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 ICD9 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 * * DRIV10T9 COBOL PROGRAM. * * * ************************************************************** 00-BEGIN. MOVE '9999' TO ICD9. MOVE '0' TO MU. MOVE '0' TO CM. MOVE '0' TO SX. MOVE '0' TO NC. MOVE '0' TO XX. 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 ((ICD10-NUMERIC-2 NOT NUMERIC) OR (NOT SITE1-VLD) OR (NOT SITE3-VLD)) MOVE '1' TO INVALID-SITE. IF (NOT LENGTH-3) AND ((ICD10-NUMERIC NOT NUMERIC) OR (NOT SITE1-VLD) 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) PERFORM CHECK-FOUR THRU CH-FOUR-END. GO TO 99-END. 99-END. EXIT PROGRAM. *************************************************************** * * * THE FUNCTION OF THIS MODULE IS TO TAKE A THREE DIGIT ICD10 * * CODE AND SEX AND SEARCH THE SITE-THREE-TABLE TO FIND THE * * ICD9 RECODE AND ALL FLAGS FOR THAT CODE. THIS MODULE IS * * ENTERED FROM AND EXITS TO THE 00-BEGIN MAIN MODULE. * * * *************************************************************** CHECK-THREE. MOVE ICD10-NUMERIC-2 TO ICD10-COM IF PREFIX-C COMPUTE SITE-SUB = ICD10-COM + 1 ELSE IF PREFIX-D COMPUTE SITE-SUB = ICD10-COM + 101 ELSE IF ICD10-THREE = 'Q85' MOVE 150 TO SITE-SUB. 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 ICD10 * * CODE AND SEX, USE THE SITE-FOUR-TABLE TO FIND THE ICD9 * * RECODE AND ALL FLAGS FOR THAT CODE. THIS MODULE IS * * ENTERED FROM AND EXITS TO THE 00-BEGIN MAIN MODULE. * * * ************************************************************** CHECK-FOUR. MOVE ICD10-NUMERIC TO ICD10-COM IF PREFIX-C COMPUTE SITE-SUB = ICD10-COM + 1 ELSE IF PREFIX-D COMPUTE SITE-SUB = ICD10-COM + 1001 ELSE IF PREFIX-Q COMPUTE SITE-SUB = ICD10-COM + 641. 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 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. * * * ************************************************************** MOVE-INFO. MOVE ICD9-SITE-TEMP TO ICD9. MOVE MU-FLAG-TEMP TO MU. MOVE CM-FLAG-TEMP TO CM. MOVE SX-FLAG-TEMP TO SX. MOVE NC-FLAG-TEMP TO NC. MOVE XX-FLAG-TEMP TO XX. MOVE INV-SITE-TEMP TO INVALID-SITE. MOVE-INFO-END. EXIT. //STEP2 EXEC CBL3LKMM,OPTIONS=NCAL, // NAME='NGN1YZJ.SEER.ICDO2.EDIT.OBJLIB', // PROGRAM=FR10TO9