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