//YZJICD9 JOB (NGN1,653,E,,100),'CONV ICD2' //*NOPURGE //*RERUN //* //* SAVED AS &NGN1YZJ.SEER.ICDO2.REC370.SRCLIB(ICD2TO9) //* //STEP1 EXEC CBL3COMP,OPTIONS='LIB,SIZE(8192K)' //COMP.SYSIN DD * * VERSION: 001 - 08/15/93 ID DIVISION. PROGRAM-ID. ICD2TO9. REMARKS. THIS PROGRAM IS A CONVERSION ROUTINE WHICH USES SEX, ICD-O-2 TOPOGRAPHY AND MORPHOLOGY CODES TO PRODUCE ICD-9 AND ICD-9-CM CATEGORIES. INSTALLATION. I.M.S. - INC. DATE-WRITTEN. JANUARY 15, 1993. DATE-COMPILED. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. IBM-370. OBJECT-COMPUTER. IBM-370. DATA DIVISION. WORKING-STORAGE SECTION. 77 SITE-SUB PIC S9(4) COMP SYNC. 77 HIST-SUB PIC S9(4) COMP SYNC. 77 BEH-SUB PIC S9(4) COMP SYNC. 77 MALE-SUB PIC S9(4) COMP SYNC. 77 SEX-SUBSCRIPT PIC S9(4) COMP SYNC. 01 TEMP-MORPH-CELL. 03 DIRECTION PIC 9(1). 03 TEMP-ICD9-CODE. 05 TEMP-ICD9-PART1 PIC X(3). 05 TEMP-ICD9-PART2 PIC X(1). 03 TMP-ICD9-NUM REDEFINES TEMP-ICD9-CODE. 05 TMP-GROUP PIC 9(2). 05 TMP-COL PIC 9(2). 03 COL-LOC PIC 9(1). 03 SEX-FLAG PIC X(1). 03 CM-FLAG PIC X(1). 01 TMP-SITE-HOLD. 03 SITE-CM-ICD9. 05 SITE-ICD9 PIC X(4). 05 SITE-CM-EXT PIC X(1). 03 FLAG-Q PIC X(1). 03 FLAG-LB PIC X(1). 03 SITE-SEX-FLAG PIC X(1). 01 G6-SUB PIC 9(02). 01 TBL1-ARRAY. 05 TBL1-SITE-ENTRIES OCCURS 18 TIMES. 10 TBL1-ICD9 PIC X(4). 10 TBL1-COL PIC 9(1). 10 TBL1-CM-FLAG PIC X(1). 01 SPEC-CM-ARRAY. 05 SPEC-CM-ARR-ENTRY OCCURS 4 TIMES. 10 SPEC-CM-VAL PIC X(5). 10 SPEC-CM-FILLER PIC X(1). 01 SPEC-SEX-ICD9. 02 SPEC-FEMALE-ICD9 PIC X(4). 02 SPEC-MALE-ICD9 PIC X(4). 02 SPEC-SEX-COL PIC X(1). 02 SPEC-SEX-CM PIC X(1). 02 SPEC-SEX-CHECK PIC X(1). 01 FOUND-VALUE PIC X(3). 88 DID-FIND VALUE 'YES'. 88 DID-NOT-FIND-VALUE VALUE 'END'. *** START OF TABLES FROM BUILD PROGRAM **** 01 HISTOLOGY-TABLE. 02 HIST-ENTRY-8000 PIC X(56) VALUE '10000200100005000000030010000100999999999999999921990600'. 02 HIST-ENTRY-8001 PIC X(56) VALUE '10000200100005000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8002 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8003 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8004 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8005 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8006 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8007 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8008 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8009 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8010 PIC X(56) VALUE '10000200000004001000030010000100999999999999999921990600'. 02 HIST-ENTRY-8011 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8012 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8013 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8014 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8015 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8016 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8017 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8018 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8019 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8020 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8021 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8022 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8023 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8024 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8025 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8026 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8027 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8028 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8029 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8030 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8031 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8032 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8033 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8034 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8035 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8036 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8037 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8038 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8039 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8040 PIC X(56) VALUE '00000200100004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8041 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8042 PIC X(56) VALUE '00000200000004000000030021629100999999999999999900000600'. 02 HIST-ENTRY-8043 PIC X(56) VALUE '00000200000004000000030021629100999999999999999900000600'. 02 HIST-ENTRY-8044 PIC X(56) VALUE '00000200000004000000030021629100999999999999999900000600'. 02 HIST-ENTRY-8045 PIC X(56) VALUE '00000200000004000000030021629100999999999999999900000600'. 02 HIST-ENTRY-8046 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8047 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8048 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8049 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8050 PIC X(56) VALUE '10000200000004001000030010000100999999999999999900000600'. 02 HIST-ENTRY-8051 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8052 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8053 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8054 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8055 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8056 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8057 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8058 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8059 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8060 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8061 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8062 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8063 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8064 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8065 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8066 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8067 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8068 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8069 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8070 PIC X(56) VALUE '00000200000004001000030010000100999999999999999910000600'. 02 HIST-ENTRY-8071 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8072 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8073 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8074 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8075 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8076 PIC X(56) VALUE '00000200000004002233132021809120999999999999999900000600'. 02 HIST-ENTRY-8077 PIC X(56) VALUE '00000200000004001000030000000100999999999999999900000600'. 02 HIST-ENTRY-8078 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8079 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8080 PIC X(56) VALUE '00000200000004006004700000000100999999999999999900000600'. 02 HIST-ENTRY-8081 PIC X(56) VALUE '00000200000004004000500040006000999999999999999900000600'. 02 HIST-ENTRY-8082 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8083 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8084 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8085 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8086 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8087 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8088 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8089 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8090 PIC X(56) VALUE '00000200400030004000500040006000999999999999999900000600'. 02 HIST-ENTRY-8091 PIC X(56) VALUE '00000200000004004000500040006000999999999999999900000600'. 02 HIST-ENTRY-8092 PIC X(56) VALUE '00000200000004000000030040006000999999999999999900000600'. 02 HIST-ENTRY-8093 PIC X(56) VALUE '00000200000004000000030040006000999999999999999900000600'. 02 HIST-ENTRY-8094 PIC X(56) VALUE '00000200000004000000030040006000999999999999999900000600'. 02 HIST-ENTRY-8095 PIC X(56) VALUE '00000200000004000000030040006000999999999999999900000600'. 02 HIST-ENTRY-8096 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8097 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8098 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8099 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8100 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8101 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8102 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8103 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8104 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8105 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8106 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8107 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8108 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8109 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8110 PIC X(56) VALUE '40001000000004000000030040006000999999999999999900000600'. 02 HIST-ENTRY-8111 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8112 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8113 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8114 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8115 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8116 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8117 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8118 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8119 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8120 PIC X(56) VALUE '10000200100004001000030010000100999999999999999900000600'. 02 HIST-ENTRY-8121 PIC X(56) VALUE '22120200100004000000030021600100999999999999999900000600'. 02 HIST-ENTRY-8122 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8123 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8124 PIC X(56) VALUE '00000200000004000000030021548100999999999999999900000600'. 02 HIST-ENTRY-8125 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8126 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8127 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8128 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8129 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8130 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8131 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8132 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8133 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8134 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8135 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8136 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8137 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8138 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8139 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8140 PIC X(56) VALUE '60097000323570001000030010000100999999999999999910000600'. 02 HIST-ENTRY-8141 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8142 PIC X(56) VALUE '00000200000004000000030060005000999999999999999900000600'. 02 HIST-ENTRY-8143 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8144 PIC X(56) VALUE '00000200000004000000030021519100999999999999999900000600'. 02 HIST-ENTRY-8145 PIC X(56) VALUE '00000200000004000000030021519100999999999999999900000600'. 02 HIST-ENTRY-8146 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8147 PIC X(56) VALUE '10000200000004000000030031429000999999999999999900000600'. 02 HIST-ENTRY-8148 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8149 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8150 PIC X(56) VALUE '60033000000004000000030060070000999999999999999900000600'. 02 HIST-ENTRY-8151 PIC X(56) VALUE '60033000000004000000030060070000999999999999999900000600'. 02 HIST-ENTRY-8152 PIC X(56) VALUE '60033000000004000000030060070000999999999999999900000600'. 02 HIST-ENTRY-8153 PIC X(56) VALUE '00000200223554000000030060070000999999999999999900000600'. 02 HIST-ENTRY-8154 PIC X(56) VALUE '00000200000004000000030021579100999999999999999900000600'. 02 HIST-ENTRY-8155 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8156 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8157 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8158 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8159 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8160 PIC X(56) VALUE '32115000000004000000030021551100999999999999999900000600'. 02 HIST-ENTRY-8161 PIC X(56) VALUE '32115000000004000000030031551000999999999999999900000600'. 02 HIST-ENTRY-8162 PIC X(56) VALUE '00000200000004000000030031551000999999999999999900000600'. 02 HIST-ENTRY-8163 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8164 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8165 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8166 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8167 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8168 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8169 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8170 PIC X(56) VALUE '32115000000004000000030031550000999999999999999900000600'. 02 HIST-ENTRY-8171 PIC X(56) VALUE '00000200000004000000030031550000999999999999999900000600'. 02 HIST-ENTRY-8172 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8173 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8174 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8175 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8176 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8177 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8178 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8179 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8180 PIC X(56) VALUE '00000200000004000000030031550000999999999999999900000600'. 02 HIST-ENTRY-8181 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8182 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8183 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8184 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8185 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8186 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8187 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8188 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8189 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8190 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8191 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8192 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8193 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8194 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8195 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8196 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8197 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8198 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8199 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8200 PIC X(56) VALUE '40001000000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8201 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8202 PIC X(56) VALUE '32116000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8203 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8204 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8205 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8206 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8207 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8208 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8209 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8210 PIC X(56) VALUE '10000200000004001000030010000100999999999999999900000600'. 02 HIST-ENTRY-8211 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8212 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8213 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8214 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8215 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8216 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8217 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8218 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8219 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8220 PIC X(56) VALUE '32113000000004003230300060015000999999999999999900000600'. 02 HIST-ENTRY-8221 PIC X(56) VALUE '10000200000004001000030010000100999999999999999900000600'. 02 HIST-ENTRY-8222 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8223 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8224 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8225 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8226 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8227 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8228 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8229 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8230 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8231 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8232 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8233 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8234 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8235 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8236 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8237 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8238 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8239 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8240 PIC X(56) VALUE '00000200100004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8241 PIC X(56) VALUE '00000200100004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8242 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8243 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8244 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8245 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8246 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8247 PIC X(56) VALUE '00000200000004004000500040006000999999999999999900000600'. 02 HIST-ENTRY-8248 PIC X(56) VALUE '00000200100004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8249 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8250 PIC X(56) VALUE '00000200323570000000030060026000999999999999999900000600'. 02 HIST-ENTRY-8251 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8252 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8253 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8254 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8255 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8256 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8257 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8258 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8259 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8260 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8261 PIC X(56) VALUE '00000200100004001000030010000100999999999999999900000600'. 02 HIST-ENTRY-8262 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8263 PIC X(56) VALUE '10000200000004001000030010000100999999999999999900000600'. 02 HIST-ENTRY-8264 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8265 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8266 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8267 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8268 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8269 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8270 PIC X(56) VALUE '22273200000004000000030021943100999999999999999900000600'. 02 HIST-ENTRY-8271 PIC X(56) VALUE '22273200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8272 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8273 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8274 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8275 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8276 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8277 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8278 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8279 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8280 PIC X(56) VALUE '22273200000004000000030021943100999999999999999900000600'. 02 HIST-ENTRY-8281 PIC X(56) VALUE '22273200000004000000030021943100999999999999999900000600'. 02 HIST-ENTRY-8282 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8283 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8284 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8285 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8286 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8287 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8288 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8289 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8290 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8291 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8292 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8293 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8294 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8295 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8296 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8297 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8298 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8299 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8300 PIC X(56) VALUE '22273200000004000000030021943100999999999999999900000600'. 02 HIST-ENTRY-8301 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8302 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8303 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8304 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8305 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8306 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8307 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8308 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8309 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8310 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8311 PIC X(56) VALUE '00000200100004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8312 PIC X(56) VALUE '00000200000004000000030031890000999999999999999900000600'. 02 HIST-ENTRY-8313 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8314 PIC X(56) VALUE '000002000000040000000300501 000999999999999999900000600'. 02 HIST-ENTRY-8315 PIC X(56) VALUE '000002000000040000000300501 000999999999999999900000600'. 02 HIST-ENTRY-8316 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8317 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8318 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8319 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8320 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8321 PIC X(56) VALUE '32271000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8322 PIC X(56) VALUE '32271000000004000000030031941000999999999999999900000600'. 02 HIST-ENTRY-8323 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8324 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8325 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8326 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8327 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8328 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8329 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8330 PIC X(56) VALUE '2226 20000000400000003002193 100999999999999999900000600'. 02 HIST-ENTRY-8331 PIC X(56) VALUE '0000020000000400000003003193 000999999999999999900000600'. 02 HIST-ENTRY-8332 PIC X(56) VALUE '0000020000000400000003003193 000999999999999999900000600'. 02 HIST-ENTRY-8333 PIC X(56) VALUE '2226 200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8334 PIC X(56) VALUE '2226 200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8335 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8336 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8337 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8338 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8339 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8340 PIC X(56) VALUE '0000020000000400000003003193 000999999999999999900000600'. 02 HIST-ENTRY-8341 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8342 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8343 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8344 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8345 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8346 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8347 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8348 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8349 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8350 PIC X(56) VALUE '0000020000000400000003003193 000999999999999999900000600'. 02 HIST-ENTRY-8351 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8352 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8353 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8354 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8355 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8356 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8357 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8358 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8359 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8360 PIC X(56) VALUE '00000200223744000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8361 PIC X(56) VALUE '00000200323693010000030000000100999999999999999900000600'. 02 HIST-ENTRY-8362 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8363 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8364 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8365 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8366 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8367 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8368 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8369 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8370 PIC X(56) VALUE '32270000000004000000030031940000999999999999999900000600'. 02 HIST-ENTRY-8371 PIC X(56) VALUE '32270000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8372 PIC X(56) VALUE '32270000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8373 PIC X(56) VALUE '32270000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8374 PIC X(56) VALUE '32270000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8375 PIC X(56) VALUE '32270000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8376 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8377 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8378 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8379 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8380 PIC X(56) VALUE '10000200100004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8381 PIC X(56) VALUE '3220 020323620200000030031830020999999999999999900000600'. 02 HIST-ENTRY-8382 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8383 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8384 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8385 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8386 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8387 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8388 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8389 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8390 PIC X(56) VALUE '40001000000004000000030040006000999999999999999900000600'. 02 HIST-ENTRY-8391 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8392 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8393 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8394 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8395 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8396 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8397 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8398 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8399 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8400 PIC X(56) VALUE '40001000400030000000030040006000999999999999999900000600'. 02 HIST-ENTRY-8401 PIC X(56) VALUE '400020000000040040005000502 000999999999999999900000600'. 02 HIST-ENTRY-8402 PIC X(56) VALUE '400010000000040000000300502 000999999999999999900000600'. 02 HIST-ENTRY-8403 PIC X(56) VALUE '400010000000040000000300502 000999999999999999900000600'. 02 HIST-ENTRY-8404 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8405 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8406 PIC X(56) VALUE '40001000000004000000030040006000999999999999999900000600'. 02 HIST-ENTRY-8407 PIC X(56) VALUE '400010000000040000000300502 000999999999999999900000600'. 02 HIST-ENTRY-8408 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8409 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8410 PIC X(56) VALUE '40001000000004000000030040006000999999999999999900000600'. 02 HIST-ENTRY-8411 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8412 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8413 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8414 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8415 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8416 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8417 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8418 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8419 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8420 PIC X(56) VALUE '32162000000004000000030031732000999999999999999900000600'. 02 HIST-ENTRY-8421 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8422 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8423 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8424 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8425 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8426 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8427 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8428 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8429 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8430 PIC X(56) VALUE '00000200100004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8431 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8432 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8433 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8434 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8435 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8436 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8437 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8438 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8439 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8440 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8441 PIC X(56) VALUE '2220 220000004000000030021830120999999999999999900000600'. 02 HIST-ENTRY-8442 PIC X(56) VALUE '00000200000004000000030022362420999999999999999900000600'. 02 HIST-ENTRY-8443 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8444 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8445 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8446 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8447 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8448 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8449 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8450 PIC X(56) VALUE '2220 220000004000000030021830120999999999999999900000600'. 02 HIST-ENTRY-8451 PIC X(56) VALUE '00000200000004000000030021830120999999999999999900000600'. 02 HIST-ENTRY-8452 PIC X(56) VALUE '00000200223554200000030000000100999999999999999900000600'. 02 HIST-ENTRY-8453 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8454 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8455 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8456 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8457 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8458 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8459 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8460 PIC X(56) VALUE '2220 220000004000000030021830120999999999999999900000600'. 02 HIST-ENTRY-8461 PIC X(56) VALUE '2220 220000004000000030021830120999999999999999900000600'. 02 HIST-ENTRY-8462 PIC X(56) VALUE '00000200000004000000030022362420999999999999999900000600'. 02 HIST-ENTRY-8463 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8464 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8465 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8466 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8467 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8468 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8469 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8470 PIC X(56) VALUE '2220 220000004000000030021830120999999999999999900000600'. 02 HIST-ENTRY-8471 PIC X(56) VALUE '2220 220000004000000030021830120999999999999999900000600'. 02 HIST-ENTRY-8472 PIC X(56) VALUE '00000200000004000000030022362420999999999999999900000600'. 02 HIST-ENTRY-8473 PIC X(56) VALUE '00000200000004000000030022362420999999999999999900000600'. 02 HIST-ENTRY-8474 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8475 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8476 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8477 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8478 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8479 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8480 PIC X(56) VALUE '10000200000004000000030010000100999999999999999931976000'. 02 HIST-ENTRY-8481 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8482 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8483 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8484 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8485 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8486 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8487 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8488 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8489 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8490 PIC X(56) VALUE '00000200000004000000030010000100999999999999999910000600'. 02 HIST-ENTRY-8491 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8492 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8493 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8494 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8495 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8496 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8497 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8498 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8499 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8500 PIC X(56) VALUE '00000200000004002233030050607000999999999999999900000600'. 02 HIST-ENTRY-8501 PIC X(56) VALUE '000002000000040032330000501 000999999999999999900000600'. 02 HIST-ENTRY-8502 PIC X(56) VALUE '000002000000040022330300501 000999999999999999900000600'. 02 HIST-ENTRY-8503 PIC X(56) VALUE '10000200000004002233030050709000999999999999999900000600'. 02 HIST-ENTRY-8504 PIC X(56) VALUE '10000200000004001000030010000100999999999999999900000600'. 02 HIST-ENTRY-8505 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8506 PIC X(56) VALUE '3217 000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8507 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8508 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8509 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8510 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8511 PIC X(56) VALUE '0000020000000400000003002193 100999999999999999900000600'. 02 HIST-ENTRY-8512 PIC X(56) VALUE '00000200000004000000030050607000999999999999999900000600'. 02 HIST-ENTRY-8513 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8514 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8515 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8516 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8517 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8518 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8519 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8520 PIC X(56) VALUE '00000200000004002233030050607000999999999999999900000600'. 02 HIST-ENTRY-8521 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8522 PIC X(56) VALUE '000002000000040022330300501 000999999999999999900000600'. 02 HIST-ENTRY-8523 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8524 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8525 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8526 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8527 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8528 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8529 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8530 PIC X(56) VALUE '00000200000004002233030050607000999999999999999900000600'. 02 HIST-ENTRY-8531 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8532 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8533 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8534 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8535 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8536 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8537 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8538 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8539 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8540 PIC X(56) VALUE '00000200000004003233000050810000999999999999999900000600'. 02 HIST-ENTRY-8541 PIC X(56) VALUE '000002000000040022330300501 000999999999999999900000600'. 02 HIST-ENTRY-8542 PIC X(56) VALUE '00000200000004004000400040007000999999999999999900000600'. 02 HIST-ENTRY-8543 PIC X(56) VALUE '000002000000040000000300501 000999999999999999900000600'. 02 HIST-ENTRY-8544 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8545 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8546 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8547 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8548 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8549 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8550 PIC X(56) VALUE '10000200100004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8551 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8552 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8553 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8554 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8555 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8556 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8557 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8558 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8559 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8560 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8561 PIC X(56) VALUE '22102200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8562 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8563 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8564 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8565 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8566 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8567 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8568 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8569 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8570 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8571 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8572 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8573 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8574 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8575 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8576 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8577 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8578 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8579 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8580 PIC X(56) VALUE '32126000000004003234800031640000999999999999999900000600'. 02 HIST-ENTRY-8581 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8582 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8583 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8584 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8585 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8586 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8587 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8588 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8589 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8590 PIC X(56) VALUE '00000200100004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8591 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8592 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8593 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8594 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8595 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8596 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8597 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8598 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8599 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8600 PIC X(56) VALUE '3220 020000004000000030031830020999999999999999900000600'. 02 HIST-ENTRY-8601 PIC X(56) VALUE '3220 020000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8602 PIC X(56) VALUE '3220 020000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8603 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8604 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8605 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8606 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8607 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8608 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8609 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8610 PIC X(56) VALUE '3220 020000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8611 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8612 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8613 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8614 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8615 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8616 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8617 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8618 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8619 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8620 PIC X(56) VALUE '00000200323620200000030031830020999999999999999900000600'. 02 HIST-ENTRY-8621 PIC X(56) VALUE '00000200323620200000030031830020999999999999999900000600'. 02 HIST-ENTRY-8622 PIC X(56) VALUE '00000200323620200000030031830020999999999999999900000600'. 02 HIST-ENTRY-8623 PIC X(56) VALUE '00000200323620200000030000000100999999999999999900000600'. 02 HIST-ENTRY-8624 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8625 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8626 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8627 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8628 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8629 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8630 PIC X(56) VALUE '50403000505050000000030050911000999999999999999900000600'. 02 HIST-ENTRY-8631 PIC X(56) VALUE '50403000000004000000030050911000999999999999999900000600'. 02 HIST-ENTRY-8632 PIC X(56) VALUE '00000200505050000000030050911000999999999999999900000600'. 02 HIST-ENTRY-8633 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8634 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8635 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8636 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8637 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8638 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8639 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8640 PIC X(56) VALUE '50403000000004000000030021869110999999999999999900000600'. 02 HIST-ENTRY-8641 PIC X(56) VALUE '50403000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8642 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8643 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8644 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8645 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8646 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8647 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8648 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8649 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8650 PIC X(56) VALUE '50403000505050000000030050911000999999999999999900000600'. 02 HIST-ENTRY-8651 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8652 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8653 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8654 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8655 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8656 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8657 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8658 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8659 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8660 PIC X(56) VALUE '3220 020000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8661 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8662 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8663 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8664 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8665 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8666 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8667 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8668 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8669 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8670 PIC X(56) VALUE '3220 020000004000000030031830020999999999999999900000600'. 02 HIST-ENTRY-8671 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8672 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8673 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8674 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8675 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8676 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8677 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8678 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8679 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8680 PIC X(56) VALUE '00000200223734000000030021946100999999999999999900000600'. 02 HIST-ENTRY-8681 PIC X(56) VALUE '00000200223734000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8682 PIC X(56) VALUE '00000200223734000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8683 PIC X(56) VALUE '22112200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8684 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8685 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8686 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8687 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8688 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8689 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8690 PIC X(56) VALUE '00000200323730000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8691 PIC X(56) VALUE '00000200323730000000030031946000999999999999999900000600'. 02 HIST-ENTRY-8692 PIC X(56) VALUE '00000200323730000000030031945000999999999999999900000600'. 02 HIST-ENTRY-8693 PIC X(56) VALUE '00000200223734000000030021946100999999999999999900000600'. 02 HIST-ENTRY-8694 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8695 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8696 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8697 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8698 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8699 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8700 PIC X(56) VALUE '10000200000004000000030021940100999999999999999900000600'. 02 HIST-ENTRY-8701 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8702 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8703 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8704 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8705 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8706 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8707 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8708 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8709 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8710 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8711 PIC X(56) VALUE '32280101000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8712 PIC X(56) VALUE '32280101000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8713 PIC X(56) VALUE '32280101000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8714 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8715 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8716 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8717 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8718 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8719 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8720 PIC X(56) VALUE '40001000000004004000500040009000999999999999999900000600'. 02 HIST-ENTRY-8721 PIC X(56) VALUE '00000200000004004000500040009000999999999999999900000600'. 02 HIST-ENTRY-8722 PIC X(56) VALUE '00000200000004004000500040009000999999999999999900000600'. 02 HIST-ENTRY-8723 PIC X(56) VALUE '40001000000004000000030040009000999999999999999900000600'. 02 HIST-ENTRY-8724 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8725 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8726 PIC X(56) VALUE '22240200000004000000030031900000999999999999999900000600'. 02 HIST-ENTRY-8727 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8728 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8729 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8730 PIC X(56) VALUE '40001000000004004000500040009000999999999999999900000600'. 02 HIST-ENTRY-8731 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8732 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8733 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8734 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8735 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8736 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8737 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8738 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8739 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8740 PIC X(56) VALUE '40001000000004004000500040009000999999999999999900000600'. 02 HIST-ENTRY-8741 PIC X(56) VALUE '00000200000004004000500040009000999999999999999900000600'. 02 HIST-ENTRY-8742 PIC X(56) VALUE '00000200000004004000500040009000999999999999999900000600'. 02 HIST-ENTRY-8743 PIC X(56) VALUE '00000200000004004000500040009000999999999999999900000600'. 02 HIST-ENTRY-8744 PIC X(56) VALUE '00000200000004004000500040009000999999999999999900000600'. 02 HIST-ENTRY-8745 PIC X(56) VALUE '00000200000004000000030040009000999999999999999900000600'. 02 HIST-ENTRY-8746 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8747 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8748 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8749 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8750 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8751 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8752 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8753 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8754 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8755 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8756 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8757 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8758 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8759 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8760 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8761 PIC X(56) VALUE '00000200400030004000500040009000999999999999999900000600'. 02 HIST-ENTRY-8762 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8763 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8764 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8765 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8766 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8767 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8768 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8769 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8770 PIC X(56) VALUE '40001000000004000000030040009000999999999999999900000600'. 02 HIST-ENTRY-8771 PIC X(56) VALUE '40001000000004000000030040009000999999999999999900000600'. 02 HIST-ENTRY-8772 PIC X(56) VALUE '40001000000004000000030040009000999999999999999900000600'. 02 HIST-ENTRY-8773 PIC X(56) VALUE '00000200000004000000030031900000999999999999999900000600'. 02 HIST-ENTRY-8774 PIC X(56) VALUE '00000200000004000000030031900000999999999999999900000600'. 02 HIST-ENTRY-8775 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8776 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8777 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8778 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8779 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8780 PIC X(56) VALUE '40001000000004000000030040009000999999999999999900000600'. 02 HIST-ENTRY-8781 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8782 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8783 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8784 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8785 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8786 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8787 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8788 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8789 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8790 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8791 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8792 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8793 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8794 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8795 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8796 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8797 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8798 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8799 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8800 PIC X(56) VALUE '40010000000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8801 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8802 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8803 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8804 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8805 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8806 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8807 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8808 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8809 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8810 PIC X(56) VALUE '40010000000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8811 PIC X(56) VALUE '40010000000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8812 PIC X(56) VALUE '40017000000004000000030040016000999999999999999900000600'. 02 HIST-ENTRY-8813 PIC X(56) VALUE '40010000000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8814 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8815 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8816 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8817 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8818 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8819 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8820 PIC X(56) VALUE '40010000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8821 PIC X(56) VALUE '00000200400140000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8822 PIC X(56) VALUE '00000200400140000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8823 PIC X(56) VALUE '00000200400140000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8824 PIC X(56) VALUE '00000200400140000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8825 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8826 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8827 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8828 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8829 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8830 PIC X(56) VALUE '40001000400140000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8831 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8832 PIC X(56) VALUE '40001000400030000000030040006000999999999999999900000600'. 02 HIST-ENTRY-8833 PIC X(56) VALUE '00000200000004000000030040006000999999999999999900000600'. 02 HIST-ENTRY-8834 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8835 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8836 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8837 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8838 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8839 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8840 PIC X(56) VALUE '40010000000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8841 PIC X(56) VALUE '00000200400140000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8842 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8843 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8844 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8845 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8846 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8847 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8848 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8849 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8850 PIC X(56) VALUE '3214 201000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8851 PIC X(56) VALUE '3214 201000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8852 PIC X(56) VALUE '3214 201000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8853 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8854 PIC X(56) VALUE '3214 201000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8855 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8856 PIC X(56) VALUE '3214 201000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8857 PIC X(56) VALUE '3214 201000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8858 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8859 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8860 PIC X(56) VALUE '40011000000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8861 PIC X(56) VALUE '3214 201000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8862 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8863 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8864 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8865 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8866 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8867 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8868 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8869 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8870 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8871 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8872 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8873 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8874 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8875 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8876 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8877 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8878 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8879 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8880 PIC X(56) VALUE '3214 201000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8881 PIC X(56) VALUE '3214 201000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8882 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8883 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8884 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8885 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8886 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8887 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8888 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8889 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8890 PIC X(56) VALUE '40012000400140000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8891 PIC X(56) VALUE '40012000000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8892 PIC X(56) VALUE '40012000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8893 PIC X(56) VALUE '40012000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8894 PIC X(56) VALUE '40012000000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8895 PIC X(56) VALUE '40012000000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8896 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8897 PIC X(56) VALUE '00000200400140000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8898 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8899 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8900 PIC X(56) VALUE '40010000000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8901 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8902 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8903 PIC X(56) VALUE '40010000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8904 PIC X(56) VALUE '40010000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8905 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8906 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8907 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8908 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8909 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8910 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8911 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8912 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8913 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8914 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8915 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8916 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8917 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8918 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8919 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8920 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8921 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8922 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8923 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8924 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8925 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8926 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8927 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8928 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8929 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8930 PIC X(56) VALUE '32191020000004000000030050301000999999999999999900000600'. 02 HIST-ENTRY-8931 PIC X(56) VALUE '00000200323600200000030031820020999999999999999900000600'. 02 HIST-ENTRY-8932 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8933 PIC X(56) VALUE '00000200000004000000030031890000999999999999999900000600'. 02 HIST-ENTRY-8934 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8935 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8936 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8937 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8938 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8939 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8940 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8941 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8942 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8943 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8944 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8945 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8946 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8947 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8948 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8949 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8950 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8951 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8952 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8953 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8954 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8955 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8956 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8957 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8958 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8959 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8960 PIC X(56) VALUE '00000200323693010000030031890000999999999999999900000600'. 02 HIST-ENTRY-8961 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8962 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8963 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8964 PIC X(56) VALUE '00000200000004000000030031890000999999999999999900000600'. 02 HIST-ENTRY-8965 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8966 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8967 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8968 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8969 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8970 PIC X(56) VALUE '00000200000004000000030031550000999999999999999900000600'. 02 HIST-ENTRY-8971 PIC X(56) VALUE '00000200000004000000030031579000999999999999999900000600'. 02 HIST-ENTRY-8972 PIC X(56) VALUE '0000020000000400000003003162_000999999999999999900000600'. 02 HIST-ENTRY-8973 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8974 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8975 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8976 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8977 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8978 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8979 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8980 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8981 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-8982 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-8983 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8984 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8985 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8986 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8987 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8988 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8989 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8990 PIC X(56) VALUE '40010000400140000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8991 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-8992 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8993 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8994 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8995 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8996 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8997 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8998 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-8999 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9000 PIC X(56) VALUE '3220 020323620200000030031830020999999999999999900000600'. 02 HIST-ENTRY-9001 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9002 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9003 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9004 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9005 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9006 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9007 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9008 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9009 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9010 PIC X(56) VALUE '2217 200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9011 PIC X(56) VALUE '2217 200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9012 PIC X(56) VALUE '2217 200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9013 PIC X(56) VALUE '2220 220000004000000030021830120999999999999999900000600'. 02 HIST-ENTRY-9014 PIC X(56) VALUE '2220 220000004000000030021830120999999999999999900000600'. 02 HIST-ENTRY-9015 PIC X(56) VALUE '2220 220000004000000030021830120999999999999999900000600'. 02 HIST-ENTRY-9016 PIC X(56) VALUE '3217 000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9017 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9018 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9019 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9020 PIC X(56) VALUE '3217 0003238300000000300501 000999999999999999900000600'. 02 HIST-ENTRY-9021 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9022 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9023 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9024 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9025 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9026 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9027 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9028 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9029 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9030 PIC X(56) VALUE '3217 000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9031 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9032 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9033 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9034 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9035 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9036 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9037 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9038 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9039 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9040 PIC X(56) VALUE '40010000000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9041 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9042 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9043 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9044 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9045 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9046 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9047 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9048 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9049 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9050 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9051 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9052 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9053 PIC X(56) VALUE '10000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9054 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9055 PIC X(56) VALUE '00000200100004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9056 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9057 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9058 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9059 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9060 PIC X(56) VALUE '00000200000004000000030050911000999999999999999900000600'. 02 HIST-ENTRY-9061 PIC X(56) VALUE '00000200000004002233631021869110999999999999999900000600'. 02 HIST-ENTRY-9062 PIC X(56) VALUE '00000200000004000000030021869110999999999999999900000600'. 02 HIST-ENTRY-9063 PIC X(56) VALUE '00000200000004000000030021869110999999999999999900000600'. 02 HIST-ENTRY-9064 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9065 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9066 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9067 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9068 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9069 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9070 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9071 PIC X(56) VALUE '00000200000004000000030050911000999999999999999900000600'. 02 HIST-ENTRY-9072 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9073 PIC X(56) VALUE '00000200505050000000030050911000999999999999999900000600'. 02 HIST-ENTRY-9074 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9075 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9076 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9077 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9078 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9079 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9080 PIC X(56) VALUE '10000200100004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9081 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9082 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9083 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9084 PIC X(56) VALUE '10000200000004000000030031830020999999999999999900000600'. 02 HIST-ENTRY-9085 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9086 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9087 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9088 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9089 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9090 PIC X(56) VALUE '3220 020000004000000030031830020999999999999999900000600'. 02 HIST-ENTRY-9091 PIC X(56) VALUE '00000200323620200000030031830020999999999999999900000600'. 02 HIST-ENTRY-9092 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9093 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9094 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9095 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9096 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9097 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9098 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9099 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9100 PIC X(56) VALUE '3630 000323610200000030051013000999999999999999900000600'. 02 HIST-ENTRY-9101 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9102 PIC X(56) VALUE '00000200000004000000030021869110999999999999999900000600'. 02 HIST-ENTRY-9103 PIC X(56) VALUE '3630 000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9104 PIC X(56) VALUE '0000020000000400000003003181 020999999999999999900000600'. 02 HIST-ENTRY-9105 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9106 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9107 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9108 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9109 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9110 PIC X(56) VALUE '10000200100004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9111 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9112 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9113 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9114 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9115 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9116 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9117 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9118 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9119 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9120 PIC X(56) VALUE '32280101000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9121 PIC X(56) VALUE '32280101000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9122 PIC X(56) VALUE '32280101000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9123 PIC X(56) VALUE '32280101000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9124 PIC X(56) VALUE '00000200000004000000030031550000999999999999999900000600'. 02 HIST-ENTRY-9125 PIC X(56) VALUE '32280101000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9126 PIC X(56) VALUE '32280101000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9127 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9128 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9129 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9130 PIC X(56) VALUE '32280101100004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9131 PIC X(56) VALUE '32280101000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9132 PIC X(56) VALUE '32280101000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9133 PIC X(56) VALUE '00000200100004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9134 PIC X(56) VALUE '00000200323570000000030060080000999999999999999900000600'. 02 HIST-ENTRY-9135 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9136 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9137 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9138 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9139 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9140 PIC X(56) VALUE '00000200000004000000030040008000999999999999999900000600'. 02 HIST-ENTRY-9141 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9142 PIC X(56) VALUE '32280101000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9143 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9144 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9145 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9146 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9147 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9148 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9149 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9150 PIC X(56) VALUE '40010000400140000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9151 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9152 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9153 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9154 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9155 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9156 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9157 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9158 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9159 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9160 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9161 PIC X(56) VALUE '00000200400140000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9162 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9163 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9164 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9165 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9166 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9167 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9168 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9169 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9170 PIC X(56) VALUE '32281000000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9171 PIC X(56) VALUE '32281000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9172 PIC X(56) VALUE '32281000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9173 PIC X(56) VALUE '32281000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9174 PIC X(56) VALUE '32281000400140000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9175 PIC X(56) VALUE '32281000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9176 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9177 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9178 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9179 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9180 PIC X(56) VALUE '40017000000004000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9181 PIC X(56) VALUE '00000200000004000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9182 PIC X(56) VALUE '00000200000004000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9183 PIC X(56) VALUE '00000200000004000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9184 PIC X(56) VALUE '00000200000004000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9185 PIC X(56) VALUE '00000200000004000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9186 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9187 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9188 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9189 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9190 PIC X(56) VALUE '00000200000004000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9191 PIC X(56) VALUE '40017000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9192 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9193 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9194 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9195 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9196 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9197 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9198 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9199 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9200 PIC X(56) VALUE '40017000400180000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9201 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9202 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9203 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9204 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9205 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9206 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9207 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9208 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9209 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9210 PIC X(56) VALUE '40017000323800000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9211 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9212 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9213 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9214 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9215 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9216 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9217 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9218 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9219 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9220 PIC X(56) VALUE '40017000323800000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9221 PIC X(56) VALUE '40017000000004000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9222 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9223 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9224 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9225 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9226 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9227 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9228 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9229 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9230 PIC X(56) VALUE '40017000000004000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9231 PIC X(56) VALUE '00000200000004000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9232 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9233 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9234 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9235 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9236 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9237 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9238 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9239 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9240 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9241 PIC X(56) VALUE '40017000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9242 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9243 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9244 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9245 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9246 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9247 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9248 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9249 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9250 PIC X(56) VALUE '00000200323800000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9251 PIC X(56) VALUE '00000200400140000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9252 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9253 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9254 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9255 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9256 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9257 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9258 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9259 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9260 PIC X(56) VALUE '00000200000004000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9261 PIC X(56) VALUE '00000200000004000000030040016000999999999999999900000600'. 02 HIST-ENTRY-9262 PIC X(56) VALUE '40017000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9263 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9264 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9265 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9266 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9267 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9268 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9269 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9270 PIC X(56) VALUE '60001000323800000000030060003000999999999999999900000600'. 02 HIST-ENTRY-9271 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9272 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9273 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9274 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9275 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9276 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9277 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9278 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9279 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9280 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9281 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9282 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9283 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9284 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9285 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9286 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9287 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9288 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9289 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9290 PIC X(56) VALUE '60001000000004000000030060003000999999999999999900000600'. 02 HIST-ENTRY-9291 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9292 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9293 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9294 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9295 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9296 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9297 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9298 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9299 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9300 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9301 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9302 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9303 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9304 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9305 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9306 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9307 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9308 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9309 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9310 PIC X(56) VALUE '60001000000004000000030060003000999999999999999900000600'. 02 HIST-ENTRY-9311 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9312 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9313 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9314 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9315 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9316 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9317 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9318 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9319 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9320 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9321 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9322 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9323 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9324 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9325 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9326 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9327 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9328 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9329 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9330 PIC X(56) VALUE '60001000000004000000030060003000999999999999999900000600'. 02 HIST-ENTRY-9331 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9332 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9333 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9334 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9335 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9336 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9337 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9338 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9339 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9340 PIC X(56) VALUE '60001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9341 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9342 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9343 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9344 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9345 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9346 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9347 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9348 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9349 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9350 PIC X(56) VALUE '00000200323700000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9351 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9352 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9353 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9354 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9355 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9356 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9357 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9358 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9359 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9360 PIC X(56) VALUE '00000200323710000000030031944000999999999999999900000600'. 02 HIST-ENTRY-9361 PIC X(56) VALUE '00000200323710000000030031944000999999999999999900000600'. 02 HIST-ENTRY-9362 PIC X(56) VALUE '00000200000004000000030031944000999999999999999900000600'. 02 HIST-ENTRY-9363 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9364 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9365 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9366 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9367 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9368 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9369 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9370 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9371 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9372 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9373 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9374 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9375 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9376 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9377 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9378 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9379 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9380 PIC X(56) VALUE '00000200000004000000030060089000999999999999999900000600'. 02 HIST-ENTRY-9381 PIC X(56) VALUE '00000200000004000000030031910000999999999999999900000600'. 02 HIST-ENTRY-9382 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9383 PIC X(56) VALUE '00000200323750000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9384 PIC X(56) VALUE '00000200323750000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9385 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9386 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9387 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9388 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9389 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9390 PIC X(56) VALUE '32250000000004000000030031915000999999999999999900000600'. 02 HIST-ENTRY-9391 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9392 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9393 PIC X(56) VALUE '00000200323750000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9394 PIC X(56) VALUE '00000200323750000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9395 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9396 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9397 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9398 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9399 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9400 PIC X(56) VALUE '00000200000004000000030060089000999999999999999900000600'. 02 HIST-ENTRY-9401 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9402 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9403 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9404 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9405 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9406 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9407 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9408 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9409 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9410 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9411 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9412 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9413 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9414 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9415 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9416 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9417 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9418 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9419 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9420 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9421 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9422 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9423 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9424 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9425 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9426 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9427 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9428 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9429 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9430 PIC X(56) VALUE '00000200000004000000030060089000999999999999999900000600'. 02 HIST-ENTRY-9431 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9432 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9433 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9434 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9435 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9436 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9437 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9438 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9439 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9440 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9441 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9442 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9443 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9444 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9445 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9446 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9447 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9448 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9449 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9450 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9451 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9452 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9453 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9454 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9455 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9456 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9457 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9458 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9459 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9460 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9461 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9462 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9463 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9464 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9465 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9466 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9467 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9468 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9469 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9470 PIC X(56) VALUE '00000200000004000000030021916100999999999999999900000600'. 02 HIST-ENTRY-9471 PIC X(56) VALUE '00000200000004000000030031916000999999999999999900000600'. 02 HIST-ENTRY-9472 PIC X(56) VALUE '00000200000004000000030021916100999999999999999900000600'. 02 HIST-ENTRY-9473 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9474 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9475 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9476 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9477 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9478 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9479 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9480 PIC X(56) VALUE '00000200000004000000030031916000999999999999999900000600'. 02 HIST-ENTRY-9481 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9482 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9483 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9484 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9485 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9486 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9487 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9488 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9489 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9490 PIC X(56) VALUE '40010000000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9491 PIC X(56) VALUE '40010000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9492 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9493 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9494 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9495 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9496 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9497 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9498 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9499 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9500 PIC X(56) VALUE '00000200000004000000030021940100999999999999999900000600'. 02 HIST-ENTRY-9501 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9502 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9503 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9504 PIC X(56) VALUE '00000200000004000000030010000100999999999999999900000600'. 02 HIST-ENTRY-9505 PIC X(56) VALUE '00000200100004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9506 PIC X(56) VALUE '10000200000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9507 PIC X(56) VALUE '40001000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9508 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9509 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9510 PIC X(56) VALUE '00000200000004000000030031905000999999999999999900000600'. 02 HIST-ENTRY-9511 PIC X(56) VALUE '00000200000004000000030031905000999999999999999900000600'. 02 HIST-ENTRY-9512 PIC X(56) VALUE '00000200000004000000030031905000999999999999999900000600'. 02 HIST-ENTRY-9513 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9514 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9515 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9516 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9517 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9518 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9519 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9520 PIC X(56) VALUE '00000200000004000000030031600000999999999999999900000600'. 02 HIST-ENTRY-9521 PIC X(56) VALUE '00000200000004000000030031600000999999999999999900000600'. 02 HIST-ENTRY-9522 PIC X(56) VALUE '00000200000004000000030031600000999999999999999900000600'. 02 HIST-ENTRY-9523 PIC X(56) VALUE '00000200000004000000030031600000999999999999999900000600'. 02 HIST-ENTRY-9524 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9525 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9526 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9527 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9528 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9529 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9530 PIC X(56) VALUE '60043000323760000000030060093000999999999999999900000600'. 02 HIST-ENTRY-9531 PIC X(56) VALUE '60043000000004000000030060093000999999999999999900000600'. 02 HIST-ENTRY-9532 PIC X(56) VALUE '60043000000004000000030060093000999999999999999900000600'. 02 HIST-ENTRY-9533 PIC X(56) VALUE '60043000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9534 PIC X(56) VALUE '60043000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9535 PIC X(56) VALUE '60043000000004000000030060093000999999999999999900000600'. 02 HIST-ENTRY-9536 PIC X(56) VALUE '60043000000004000000030060093000999999999999999900000600'. 02 HIST-ENTRY-9537 PIC X(56) VALUE '60043000000004000000030060093000999999999999999900000600'. 02 HIST-ENTRY-9538 PIC X(56) VALUE '00000200323760000000030060093000999999999999999900000600'. 02 HIST-ENTRY-9539 PIC X(56) VALUE '00000200000004000000030060093000999999999999999900000600'. 02 HIST-ENTRY-9540 PIC X(56) VALUE '40010000323774010000030040015000999999999999999900000600'. 02 HIST-ENTRY-9541 PIC X(56) VALUE '40010000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9542 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9543 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9544 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9545 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9546 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9547 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9548 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9549 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9550 PIC X(56) VALUE '40010000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9551 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9552 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9553 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9554 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9555 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9556 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9557 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9558 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9559 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9560 PIC X(56) VALUE '40013000400140000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9561 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9562 PIC X(56) VALUE '40010000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9563 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9564 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9565 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9566 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9567 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9568 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9569 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9570 PIC X(56) VALUE '40010000000004000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9571 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9572 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9573 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9574 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9575 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9576 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9577 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9578 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9579 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9580 PIC X(56) VALUE '40010000000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9581 PIC X(56) VALUE '00000200000004000000030040015000999999999999999900000600'. 02 HIST-ENTRY-9582 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9583 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9584 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9585 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9586 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9587 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9588 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9589 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9590 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9591 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9592 PIC X(56) VALUE '00000200000004000000030032001001999999999999999900000600'. 02 HIST-ENTRY-9593 PIC X(56) VALUE '00000200000004000000030032000001999999999999999900000600'. 02 HIST-ENTRY-9594 PIC X(56) VALUE '00000200000004000000030021919100999999999999999900000600'. 02 HIST-ENTRY-9595 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9596 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9597 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9598 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9599 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9600 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9601 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9602 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9603 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9604 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9605 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9606 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9607 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9608 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9609 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9610 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9611 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9612 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9613 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9614 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9615 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9616 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9617 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9618 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9619 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9620 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9621 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9622 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9623 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9624 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9625 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9626 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9627 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9628 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9629 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9630 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9631 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9632 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9633 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9634 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9635 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9636 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9637 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9638 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9639 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9640 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9641 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9642 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9643 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9644 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9645 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9646 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9647 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9648 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9649 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9650 PIC X(56) VALUE '00000200000004000000030032019001999999999999999900000600'. 02 HIST-ENTRY-9651 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9652 PIC X(56) VALUE '00000200000004000000030032016001999999999999999900000600'. 02 HIST-ENTRY-9653 PIC X(56) VALUE '00000200000004000000030032017001999999999999999900000600'. 02 HIST-ENTRY-9654 PIC X(56) VALUE '00000200000004000000030032017001999999999999999900000600'. 02 HIST-ENTRY-9655 PIC X(56) VALUE '00000200000004000000030032017001999999999999999900000600'. 02 HIST-ENTRY-9656 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9657 PIC X(56) VALUE '00000200000004000000030032014001999999999999999900000600'. 02 HIST-ENTRY-9658 PIC X(56) VALUE '00000200000004000000030032014001999999999999999900000600'. 02 HIST-ENTRY-9659 PIC X(56) VALUE '00000200000004000000030032014001999999999999999900000600'. 02 HIST-ENTRY-9660 PIC X(56) VALUE '00000200000004000000030032010001999999999999999900000600'. 02 HIST-ENTRY-9661 PIC X(56) VALUE '00000200000004000000030032011001999999999999999900000600'. 02 HIST-ENTRY-9662 PIC X(56) VALUE '00000200000004000000030032012001999999999999999900000600'. 02 HIST-ENTRY-9663 PIC X(56) VALUE '00000200000004000000030032015001999999999999999900000600'. 02 HIST-ENTRY-9664 PIC X(56) VALUE '00000200000004000000030032015001999999999999999900000600'. 02 HIST-ENTRY-9665 PIC X(56) VALUE '00000200000004000000030032015001999999999999999900000600'. 02 HIST-ENTRY-9666 PIC X(56) VALUE '00000200000004000000030032015001999999999999999900000600'. 02 HIST-ENTRY-9667 PIC X(56) VALUE '00000200000004000000030032015001999999999999999900000600'. 02 HIST-ENTRY-9668 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9669 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9670 PIC X(56) VALUE '00000200000004000000030032001001999999999999999900000600'. 02 HIST-ENTRY-9671 PIC X(56) VALUE '00000200000004000000030032008001999999999999999900000600'. 02 HIST-ENTRY-9672 PIC X(56) VALUE '00000200000004000000030032001001999999999999999900000600'. 02 HIST-ENTRY-9673 PIC X(56) VALUE '00000200000004000000030032001001999999999999999900000600'. 02 HIST-ENTRY-9674 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9675 PIC X(56) VALUE '00000200000004000000030032008001999999999999999900000600'. 02 HIST-ENTRY-9676 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9677 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9678 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9679 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9680 PIC X(56) VALUE '00000200000004000000030032000001999999999999999900000600'. 02 HIST-ENTRY-9681 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9682 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9683 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9684 PIC X(56) VALUE '00000200000004000000030032008001999999999999999900000600'. 02 HIST-ENTRY-9685 PIC X(56) VALUE '00000200000004000000030032001001999999999999999900000600'. 02 HIST-ENTRY-9686 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9687 PIC X(56) VALUE '00000200000004000000030032002001999999999999999900000600'. 02 HIST-ENTRY-9688 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9689 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9690 PIC X(56) VALUE '00000200000004000000030032020001999999999999999900000600'. 02 HIST-ENTRY-9691 PIC X(56) VALUE '00000200000004000000030032020001999999999999999900000600'. 02 HIST-ENTRY-9692 PIC X(56) VALUE '00000200000004000000030032020001999999999999999900000600'. 02 HIST-ENTRY-9693 PIC X(56) VALUE '00000200000004000000030032020001999999999999999900000600'. 02 HIST-ENTRY-9694 PIC X(56) VALUE '00000200000004000000030032020001999999999999999900000600'. 02 HIST-ENTRY-9695 PIC X(56) VALUE '00000200000004000000030032020001999999999999999900000600'. 02 HIST-ENTRY-9696 PIC X(56) VALUE '00000200000004000000030032020001999999999999999900000600'. 02 HIST-ENTRY-9697 PIC X(56) VALUE '00000200000004000000030032020001999999999999999900000600'. 02 HIST-ENTRY-9698 PIC X(56) VALUE '00000200000004000000030032020001999999999999999900000600'. 02 HIST-ENTRY-9699 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9700 PIC X(56) VALUE '00000200000004000000030032021001999999999999999900000600'. 02 HIST-ENTRY-9701 PIC X(56) VALUE '00000200000004000000030032022001999999999999999900000600'. 02 HIST-ENTRY-9702 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9703 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9704 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9705 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9706 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9707 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9708 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9709 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9710 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9711 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9712 PIC X(56) VALUE '00000200000004000000030032029001999999999999999900000600'. 02 HIST-ENTRY-9713 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9714 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9715 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9716 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9717 PIC X(56) VALUE '00000200000004000000030032028001999999999999999900000600'. 02 HIST-ENTRY-9718 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9719 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9720 PIC X(56) VALUE '00000200000004000000030032023000999999999999999900000600'. 02 HIST-ENTRY-9721 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9722 PIC X(56) VALUE '00000200000004000000030032025000999999999999999900000600'. 02 HIST-ENTRY-9723 PIC X(56) VALUE '00000200000004000000030032000000999999999999999900000600'. 02 HIST-ENTRY-9724 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9725 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9726 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9727 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9728 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9729 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9730 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9731 PIC X(56) VALUE '00000200000004000000030032038000999999999999999900000600'. 02 HIST-ENTRY-9732 PIC X(56) VALUE '00000200000004000000030032030000999999999999999900000600'. 02 HIST-ENTRY-9733 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9734 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9735 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9736 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9737 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9738 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9739 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9740 PIC X(56) VALUE '00000200323850000000030032026000999999999999999900000600'. 02 HIST-ENTRY-9741 PIC X(56) VALUE '00000200000004000000030032026000999999999999999900000600'. 02 HIST-ENTRY-9742 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9743 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9744 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9745 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9746 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9747 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9748 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9749 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9750 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9751 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9752 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9753 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9754 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9755 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9756 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9757 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9758 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9759 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9760 PIC X(56) VALUE '00000200000004000000030032038000999999999999999900000600'. 02 HIST-ENTRY-9761 PIC X(56) VALUE '00000200000004000000030032733000999999999999999900000600'. 02 HIST-ENTRY-9762 PIC X(56) VALUE '00000200000004000000030032732000999999999999999900000600'. 02 HIST-ENTRY-9763 PIC X(56) VALUE '00000200000004000000030032732000999999999999999900000600'. 02 HIST-ENTRY-9764 PIC X(56) VALUE '00000200000004000000030032038000999999999999999900000600'. 02 HIST-ENTRY-9765 PIC X(56) VALUE '00000200327310000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9766 PIC X(56) VALUE '00000200320380000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9767 PIC X(56) VALUE '00000200378560000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9768 PIC X(56) VALUE '00000200323870000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9769 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9770 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9771 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9772 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9773 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9774 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9775 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9776 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9777 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9778 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9779 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9780 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9781 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9782 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9783 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9784 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9785 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9786 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9787 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9788 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9789 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9790 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9791 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9792 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9793 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9794 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9795 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9796 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9797 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9798 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9799 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9800 PIC X(56) VALUE '00000200000004000000030032089000999999999999999900000600'. 02 HIST-ENTRY-9801 PIC X(56) VALUE '00000200000004000000030032080000999999999999999900000600'. 02 HIST-ENTRY-9802 PIC X(56) VALUE '00000200000004000000030032082000999999999999999900000600'. 02 HIST-ENTRY-9803 PIC X(56) VALUE '00000200000004000000030032081000999999999999999900000600'. 02 HIST-ENTRY-9804 PIC X(56) VALUE '00000200000004000000030032088000999999999999999900000600'. 02 HIST-ENTRY-9805 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9806 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9807 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9808 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9809 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9810 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9811 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9812 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9813 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9814 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9815 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9816 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9817 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9818 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9819 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9820 PIC X(56) VALUE '00000200000004000000030032049000999999999999999900000600'. 02 HIST-ENTRY-9821 PIC X(56) VALUE '00000200000004000000030032040000999999999999999900000600'. 02 HIST-ENTRY-9822 PIC X(56) VALUE '00000200000004000000030032042000999999999999999900000600'. 02 HIST-ENTRY-9823 PIC X(56) VALUE '00000200000004000000030032041000999999999999999900000600'. 02 HIST-ENTRY-9824 PIC X(56) VALUE '00000200000004000000030032048000999999999999999900000600'. 02 HIST-ENTRY-9825 PIC X(56) VALUE '00000200000004000000030032049000999999999999999900000600'. 02 HIST-ENTRY-9826 PIC X(56) VALUE '00000200000004000000030032040000999999999999999900000600'. 02 HIST-ENTRY-9827 PIC X(56) VALUE '00000200000004000000030032048000999999999999999900000600'. 02 HIST-ENTRY-9828 PIC X(56) VALUE '00000200000004000000030032040000999999999999999900000600'. 02 HIST-ENTRY-9829 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9830 PIC X(56) VALUE '00000200000004000000030032031000999999999999999900000600'. 02 HIST-ENTRY-9831 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9832 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9833 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9834 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9835 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9836 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9837 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9838 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9839 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9840 PIC X(56) VALUE '00000200000004000000030032070000999999999999999900000600'. 02 HIST-ENTRY-9841 PIC X(56) VALUE '00000200000004000000030032070000999999999999999900000600'. 02 HIST-ENTRY-9842 PIC X(56) VALUE '00000200000004000000030032071000999999999999999900000600'. 02 HIST-ENTRY-9843 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9844 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9845 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9846 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9847 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9848 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9849 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9850 PIC X(56) VALUE '00000200000004000000030032078000999999999999999900000600'. 02 HIST-ENTRY-9851 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9852 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9853 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9854 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9855 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9856 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9857 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9858 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9859 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9860 PIC X(56) VALUE '00000200000004000000030032059000999999999999999900000600'. 02 HIST-ENTRY-9861 PIC X(56) VALUE '00000200000004000000030032050000999999999999999900000600'. 02 HIST-ENTRY-9862 PIC X(56) VALUE '00000200000004000000030032052000999999999999999900000600'. 02 HIST-ENTRY-9863 PIC X(56) VALUE '00000200000004000000030032051000999999999999999900000600'. 02 HIST-ENTRY-9864 PIC X(56) VALUE '00000200000004000000030032058000999999999999999900000600'. 02 HIST-ENTRY-9865 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9866 PIC X(56) VALUE '00000200000004000000030032050000999999999999999900000600'. 02 HIST-ENTRY-9867 PIC X(56) VALUE '00000200000004000000030032050000999999999999999900000600'. 02 HIST-ENTRY-9868 PIC X(56) VALUE '00000200000004000000030032051000999999999999999900000600'. 02 HIST-ENTRY-9869 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9870 PIC X(56) VALUE '00000200000004000000030032051000999999999999999900000600'. 02 HIST-ENTRY-9871 PIC X(56) VALUE '00000200000004000000030032050000999999999999999900000600'. 02 HIST-ENTRY-9872 PIC X(56) VALUE '00000200000004000000030032050000999999999999999900000600'. 02 HIST-ENTRY-9873 PIC X(56) VALUE '00000200000004000000030032050000999999999999999900000600'. 02 HIST-ENTRY-9874 PIC X(56) VALUE '00000200000004000000030032050000999999999999999900000600'. 02 HIST-ENTRY-9875 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9876 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9877 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9878 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9879 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9880 PIC X(56) VALUE '00000200000004000000030032051000999999999999999900000600'. 02 HIST-ENTRY-9881 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9882 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9883 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9884 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9885 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9886 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9887 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9888 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9889 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9890 PIC X(56) VALUE '00000200000004000000030032069000999999999999999900000600'. 02 HIST-ENTRY-9891 PIC X(56) VALUE '00000200000004000000030032060000999999999999999900000600'. 02 HIST-ENTRY-9892 PIC X(56) VALUE '00000200000004000000030032062000999999999999999900000600'. 02 HIST-ENTRY-9893 PIC X(56) VALUE '00000200000004000000030032061000999999999999999900000600'. 02 HIST-ENTRY-9894 PIC X(56) VALUE '00000200000004000000030032068000999999999999999900000600'. 02 HIST-ENTRY-9895 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9896 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9897 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9898 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9899 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9900 PIC X(56) VALUE '00000200000004000000030032078000999999999999999900000600'. 02 HIST-ENTRY-9901 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9902 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9903 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9904 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9905 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9906 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9907 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9908 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9909 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9910 PIC X(56) VALUE '00000200000004000000030032072000999999999999999900000600'. 02 HIST-ENTRY-9911 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9912 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9913 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9914 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9915 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9916 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9917 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9918 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9919 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9920 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9921 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9922 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9923 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9924 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9925 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9926 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9927 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9928 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9929 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9930 PIC X(56) VALUE '00000200000004000000030032053000999999999999999900000600'. 02 HIST-ENTRY-9931 PIC X(56) VALUE '00000200000004000000030032387000999999999999999900000600'. 02 HIST-ENTRY-9932 PIC X(56) VALUE '00000200000004000000030032898000999999999999999900000600'. 02 HIST-ENTRY-9933 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9934 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9935 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9936 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9937 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9938 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9939 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9940 PIC X(56) VALUE '00000200000004000000030032024000999999999999999900000600'. 02 HIST-ENTRY-9941 PIC X(56) VALUE '00000200000004000000030032024000999999999999999900000600'. 02 HIST-ENTRY-9942 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9943 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9944 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9945 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9946 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9947 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9948 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9949 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9950 PIC X(56) VALUE '00000200323840000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9951 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9952 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9953 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9954 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9955 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9956 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9957 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9958 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9959 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9960 PIC X(56) VALUE '00000200323870000000030032029000999999999999999900000600'. 02 HIST-ENTRY-9961 PIC X(56) VALUE '00000200323870000000030032029000999999999999999900000600'. 02 HIST-ENTRY-9962 PIC X(56) VALUE '00000200323870000000030032029000999999999999999900000600'. 02 HIST-ENTRY-9963 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9964 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9965 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9966 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9967 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9968 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9969 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9970 PIC X(56) VALUE '00000200323870000000030032029000999999999999999900000600'. 02 HIST-ENTRY-9971 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9972 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9973 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9974 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9975 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9976 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9977 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9978 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9979 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9980 PIC X(56) VALUE '00000200328490000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9981 PIC X(56) VALUE '00000200328490000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9982 PIC X(56) VALUE '00000200328500000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9983 PIC X(56) VALUE '00000200328500000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9984 PIC X(56) VALUE '00000200328500000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9985 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9986 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9987 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9988 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9989 PIC X(56) VALUE '00000200323870000000030000000100999999999999999900000600'. 02 HIST-ENTRY-9990 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9991 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9992 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9993 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9994 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9995 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9996 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9997 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9998 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 02 HIST-ENTRY-9999 PIC X(56) VALUE '99999999999999999999999999999999999999999999999999999999'. 01 HIST-TBL REDEFINES HISTOLOGY-TABLE. 02 HIST-GROUP OCCURS 2000 TIMES. 03 HIST-CONV OCCURS 7 TIMES PIC X(8). 01 SITE-CONV-TABLE. 02 SITE-TBL-C000 PIC X(48) VALUE '1400 0002100 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C001 PIC X(48) VALUE '1401 0002100 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C002 PIC X(48) VALUE '1409 0002100 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C003 PIC X(48) VALUE '1403 0002100 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C004 PIC X(48) VALUE '1404 0002100 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C005 PIC X(48) VALUE '1405 0002100 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C006 PIC X(48) VALUE '1406 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C007 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C008 PIC X(48) VALUE '1408 0002100 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C009 PIC X(48) VALUE '1409 0002100 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C010 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C011 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C012 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C013 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C014 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C015 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C016 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C017 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C018 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C019 PIC X(48) VALUE '1410 0002101 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C020 PIC X(48) VALUE '1411 0002101 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C021 PIC X(48) VALUE '1412 0002101 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C022 PIC X(48) VALUE '1413 0002101 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C023 PIC X(48) VALUE '1414 0002101 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C024 PIC X(48) VALUE '1416 0002101 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C025 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C026 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C027 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C028 PIC X(48) VALUE '1418 0002101 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C029 PIC X(48) VALUE '1419 0002101 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C030 PIC X(48) VALUE '1430 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C031 PIC X(48) VALUE '1431 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C032 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C033 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C034 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C035 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C036 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C037 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C038 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C039 PIC X(48) VALUE '1439 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C040 PIC X(48) VALUE '1440 0002103 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C041 PIC X(48) VALUE '1441 0002103 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C042 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C043 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C044 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C045 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C046 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C047 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C048 PIC X(48) VALUE '1448 0002103 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C049 PIC X(48) VALUE '1449 0002103 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C050 PIC X(48) VALUE '1452 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C051 PIC X(48) VALUE '1453 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C052 PIC X(48) VALUE '1454 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C053 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C054 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C055 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C056 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C057 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C058 PIC X(48) VALUE '1455 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C059 PIC X(48) VALUE '1455 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C060 PIC X(48) VALUE '1450 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C061 PIC X(48) VALUE '1451 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C062 PIC X(48) VALUE '1456 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C063 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C064 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C065 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C066 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C067 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C068 PIC X(48) VALUE '1458 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C069 PIC X(48) VALUE '1459 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C070 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C071 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C072 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C073 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C074 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C075 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C076 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C077 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C078 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C079 PIC X(48) VALUE '1420 0002102 0002300 0002350 0002390 00019889000'. 02 SITE-TBL-C080 PIC X(48) VALUE '1421 0002102 0002300 0002350 0002390 00019889000'. 02 SITE-TBL-C081 PIC X(48) VALUE '1422 0002102 0002300 0002350 0002390 00019889000'. 02 SITE-TBL-C082 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C083 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C084 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C085 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C086 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C087 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C088 PIC X(48) VALUE '1428 0002102 0002300 0002350 0002390 00019889000'. 02 SITE-TBL-C089 PIC X(48) VALUE '1429 0002102 0002300 0002350 0002390 00019889000'. 02 SITE-TBL-C090 PIC X(48) VALUE '1461 0002106 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C091 PIC X(48) VALUE '1462 0002106 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C092 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C093 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C094 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C095 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C096 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C097 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C098 PIC X(48) VALUE '1460 0002105 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C099 PIC X(48) VALUE '1460 0002105 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C100 PIC X(48) VALUE '1463 0002106 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C101 PIC X(48) VALUE '1464 0002106 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C102 PIC X(48) VALUE '1466 0002106 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C103 PIC X(48) VALUE '1467 0002106 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C104 PIC X(48) VALUE '1468 0002106 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C105 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C106 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C107 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C108 PIC X(48) VALUE '1468 0002106 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C109 PIC X(48) VALUE '1469 0002106 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C110 PIC X(48) VALUE '1470 0002107 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C111 PIC X(48) VALUE '1471 0002107 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C112 PIC X(48) VALUE '1472 0002107 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C113 PIC X(48) VALUE '1473 0002107 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C114 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C115 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C116 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C117 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C118 PIC X(48) VALUE '1478 0002107 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C119 PIC X(48) VALUE '1479 0002107 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C120 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C121 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C122 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C123 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C124 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C125 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C126 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C127 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C128 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C129 PIC X(48) VALUE '1481 0002108 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C130 PIC X(48) VALUE '1480 0002108 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C131 PIC X(48) VALUE '1482 0002108 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C132 PIC X(48) VALUE '1483 0002108 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C133 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C134 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C135 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C136 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C137 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C138 PIC X(48) VALUE '1488 0002108 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C139 PIC X(48) VALUE '1489 0002108 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C140 PIC X(48) VALUE '1490 0002109 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C141 PIC X(48) VALUE '1489 0002108 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C142 PIC X(48) VALUE '1491 0002109 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C143 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C144 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C145 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C146 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C147 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C148 PIC X(48) VALUE '1498 0002104 0002300 0002351 0002390 00019889000'. 02 SITE-TBL-C149 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C150 PIC X(48) VALUE '1500 0002110 0002301 0002355 0002390 0001978 000'. 02 SITE-TBL-C151 PIC X(48) VALUE '1501 0002110 0002301 0002355 0002390 0001978 000'. 02 SITE-TBL-C152 PIC X(48) VALUE '1502 0002110 0002301 0002355 0002390 0001978 000'. 02 SITE-TBL-C153 PIC X(48) VALUE '1503 0002110 0002301 0002355 0002390 0001978 000'. 02 SITE-TBL-C154 PIC X(48) VALUE '1504 0002110 0002301 0002355 0002390 0001978 000'. 02 SITE-TBL-C155 PIC X(48) VALUE '1505 0002110 0002301 0002355 0002390 0001978 000'. 02 SITE-TBL-C156 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C157 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C158 PIC X(48) VALUE '1508 0002110 0002301 0002355 0002390 0001978 000'. 02 SITE-TBL-C159 PIC X(48) VALUE '1509 0002110 0002301 0002355 0002390 0001978 000'. 02 SITE-TBL-C160 PIC X(48) VALUE '1510 0002111 0002302 0002352 0002390 0001978 000'. 02 SITE-TBL-C161 PIC X(48) VALUE '1513 0002111 0002302 0002352 0002390 0001978 000'. 02 SITE-TBL-C162 PIC X(48) VALUE '1514 0002111 0002302 0002352 0002390 0001978 000'. 02 SITE-TBL-C163 PIC X(48) VALUE '1512 0002111 0002302 0002352 0002390 0001978 000'. 02 SITE-TBL-C164 PIC X(48) VALUE '1511 0002111 0002302 0002352 0002390 0001978 000'. 02 SITE-TBL-C165 PIC X(48) VALUE '1515 0002111 0002302 0002352 0002390 0001978 000'. 02 SITE-TBL-C166 PIC X(48) VALUE '1516 0002111 0002302 0002352 0002390 0001978 000'. 02 SITE-TBL-C167 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C168 PIC X(48) VALUE '1518 0002111 0002302 0002352 0002390 0001978 000'. 02 SITE-TBL-C169 PIC X(48) VALUE '1519 0002111 0002302 0002352 0002390 0001978 000'. 02 SITE-TBL-C170 PIC X(48) VALUE '1520 0002112 0002307 0002352 0002390 0001974 000'. 02 SITE-TBL-C171 PIC X(48) VALUE '1521 0002112 0002307 0002352 0002390 0001974 000'. 02 SITE-TBL-C172 PIC X(48) VALUE '1522 0002112 0002307 0002352 0002390 0001974 000'. 02 SITE-TBL-C173 PIC X(48) VALUE '1523 0002112 0002307 0002352 0002390 0001974 000'. 02 SITE-TBL-C174 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C175 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C176 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C177 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C178 PIC X(48) VALUE '1528 0002112 0002307 0002352 0002390 0001974 000'. 02 SITE-TBL-C179 PIC X(48) VALUE '1529 0002112 0002307 0002352 0002390 0001974 000'. 02 SITE-TBL-C180 PIC X(48) VALUE '1534 0002113 0002303 0002352 0002390 0001975 000'. 02 SITE-TBL-C181 PIC X(48) VALUE '1535 0002113 0002303 0002352 0002390 0001975 000'. 02 SITE-TBL-C182 PIC X(48) VALUE '1536 0002113 0002303 0002352 0002390 0001975 000'. 02 SITE-TBL-C183 PIC X(48) VALUE '1530 0002113 0002303 0002352 0002390 0001975 000'. 02 SITE-TBL-C184 PIC X(48) VALUE '1531 0002113 0002303 0002352 0002390 0001975 000'. 02 SITE-TBL-C185 PIC X(48) VALUE '1537 0002113 0002303 0002352 0002390 0001975 000'. 02 SITE-TBL-C186 PIC X(48) VALUE '1532 0002113 0002303 0002352 0002390 0001975 000'. 02 SITE-TBL-C187 PIC X(48) VALUE '1533 0002113 0002303 0002352 0002390 0001975 000'. 02 SITE-TBL-C188 PIC X(48) VALUE '1538 0002113 0002303 0002352 0002390 0001975 000'. 02 SITE-TBL-C189 PIC X(48) VALUE '1539 0002113 0002303 0002352 0002390 0001975 000'. 02 SITE-TBL-C190 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C191 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C192 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C193 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C194 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C195 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C196 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C197 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C198 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C199 PIC X(48) VALUE '1540 0002114 0002304 0002352 0002390 0001975 000'. 02 SITE-TBL-C200 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C201 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C202 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C203 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C204 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C205 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C206 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C207 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C208 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C209 PIC X(48) VALUE '1541 0002114 0002304 0002352 0002390 0001975 000'. 02 SITE-TBL-C210 PIC X(48) VALUE '1543 0002114 0002306 0002355 0002390 0001975 000'. 02 SITE-TBL-C211 PIC X(48) VALUE '1542 0002114 0002305 0002355 0002390 0001975 000'. 02 SITE-TBL-C212 PIC X(48) VALUE '1548 0002114 0002307 0002352 0002390 0001975 000'. 02 SITE-TBL-C213 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C214 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C215 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C216 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C217 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C218 PIC X(48) VALUE '1548 0002114 0002307 0002352 0002390 0001975 000'. 02 SITE-TBL-C219 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C220 PIC X(48) VALUE '1550 0002115 0002308 0002353 0002390 0001977 000'. 02 SITE-TBL-C221 PIC X(48) VALUE '1551 0002115 0002308 0002353 0002390 0001978 000'. 02 SITE-TBL-C222 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C223 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C224 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C225 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C226 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C227 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C228 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C229 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C230 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C231 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C232 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C233 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C234 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C235 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C236 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C237 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C238 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C239 PIC X(48) VALUE '1560 0002115 0002308 0002353 0002390 0001978 000'. 02 SITE-TBL-C240 PIC X(48) VALUE '1561 0002115 0002308 0002353 0002390 0001978 000'. 02 SITE-TBL-C241 PIC X(48) VALUE '1562 0002115 0002308 0002353 0002390 0001978 000'. 02 SITE-TBL-C242 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C243 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C244 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C245 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C246 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C247 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C248 PIC X(48) VALUE '1568 0002115 0002308 0002353 0002390 0001978 000'. 02 SITE-TBL-C249 PIC X(48) VALUE '1569 0002115 0002308 0002353 0002390 0001978 000'. 02 SITE-TBL-C250 PIC X(48) VALUE '1570 0002116 0002309 0002355 0002390 0001978 000'. 02 SITE-TBL-C251 PIC X(48) VALUE '1571 0002116 0002309 0002355 0002390 0001978 000'. 02 SITE-TBL-C252 PIC X(48) VALUE '1572 0002116 0002309 0002355 0002390 0001978 000'. 02 SITE-TBL-C253 PIC X(48) VALUE '1573 0002116 0002309 0002355 0002390 0001978 000'. 02 SITE-TBL-C254 PIC X(48) VALUE '1574 0002117 0002309 0002355 0002390 0001978 000'. 02 SITE-TBL-C255 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C256 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C257 PIC X(48) VALUE '1578 0002116 0002309 0002355 0002390 0001978 000'. 02 SITE-TBL-C258 PIC X(48) VALUE '1578 0002116 0002309 0002355 0002390 0001978 000'. 02 SITE-TBL-C259 PIC X(48) VALUE '1579 0002116 0002309 0002355 0002390 0001978 000'. 02 SITE-TBL-C260 PIC X(48) VALUE '1590 0002119 0002307 0002352 0002390 0001975 000'. 02 SITE-TBL-C261 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C262 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C263 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C264 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C265 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C266 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C267 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C268 PIC X(48) VALUE '1598 0002119 0002307 0002355 0002390 0001978 000'. 02 SITE-TBL-C269 PIC X(48) VALUE '1599 0002119 0002309 0002355 0002390 0001978 000'. 02 SITE-TBL-C270 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C271 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C272 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C273 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C274 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C275 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C276 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C277 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C278 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C279 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C280 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C281 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C282 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C283 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C284 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C285 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C286 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C287 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C288 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C289 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C290 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C291 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C292 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C293 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C294 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C295 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C296 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C297 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C298 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C299 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C300 PIC X(48) VALUE '1600 0002120 0002318 0002359 0002391 0001973 000'. 02 SITE-TBL-C301 PIC X(48) VALUE '1601 0002120 0002318 0002359 0002391 0001973 000'. 02 SITE-TBL-C302 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C303 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C304 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C305 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C306 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C307 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C308 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C309 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C310 PIC X(48) VALUE '1602 0002120 0002318 0002359 0002391 0001973 000'. 02 SITE-TBL-C311 PIC X(48) VALUE '1603 0002120 0002318 0002359 0002391 0001973 000'. 02 SITE-TBL-C312 PIC X(48) VALUE '1604 0002120 0002318 0002359 0002391 0001973 000'. 02 SITE-TBL-C313 PIC X(48) VALUE '1605 0002120 0002318 0002359 0002391 0001973 000'. 02 SITE-TBL-C314 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C315 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C316 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C317 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C318 PIC X(48) VALUE '1608 0002120 0002318 0002359 0002391 0001973 000'. 02 SITE-TBL-C319 PIC X(48) VALUE '1609 0002120 0002318 0002359 0002391 0001973 000'. 02 SITE-TBL-C320 PIC X(48) VALUE '1610 0002121 0002310 0002356 0002391 0001973 000'. 02 SITE-TBL-C321 PIC X(48) VALUE '1611 0002121 0002310 0002356 0002391 0001973 000'. 02 SITE-TBL-C322 PIC X(48) VALUE '1612 0002121 0002310 0002356 0002391 0001973 000'. 02 SITE-TBL-C323 PIC X(48) VALUE '1613 0002121 0002310 0002356 0002391 0001973 000'. 02 SITE-TBL-C324 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C325 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C326 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C327 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C328 PIC X(48) VALUE '1618 0002121 0002310 0002356 0002391 0001973 000'. 02 SITE-TBL-C329 PIC X(48) VALUE '1619 0002121 0002310 0002356 0002391 0001973 000'. 02 SITE-TBL-C330 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C331 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C332 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C333 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C334 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C335 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C336 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C337 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C338 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C339 PIC X(48) VALUE '1620 0002122 0002311 0002357 0002391 0001973 000'. 02 SITE-TBL-C340 PIC X(48) VALUE '1622 0002123 0002312 0002357 0002391 0001970 000'. 02 SITE-TBL-C341 PIC X(48) VALUE '1623 0002123 0002312 0002357 0002391 0001970 000'. 02 SITE-TBL-C342 PIC X(48) VALUE '1624 0002123 0002312 0002357 0002391 0001970 000'. 02 SITE-TBL-C343 PIC X(48) VALUE '1625 0002123 0002312 0002357 0002391 0001970 000'. 02 SITE-TBL-C344 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C345 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C346 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C347 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C348 PIC X(48) VALUE '1628 0002123 0002312 0002357 0002391 0001970 000'. 02 SITE-TBL-C349 PIC X(48) VALUE '1629 0002123 0002312 0002357 0002391 0001970 000'. 02 SITE-TBL-C350 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C351 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C352 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C353 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C354 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C355 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C356 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C357 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C358 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C359 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C360 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C361 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C362 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C363 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C364 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C365 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C366 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C367 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C368 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C369 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C370 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C371 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C372 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C373 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C374 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C375 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C376 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C377 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C378 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C379 PIC X(48) VALUE '1640 0002126 000999991002358 0002398 00019889000'. 02 SITE-TBL-C380 PIC X(48) VALUE '1641 0002127 000999991002388 0002398 00019889000'. 02 SITE-TBL-C381 PIC X(48) VALUE '1642 0002125 000999991002358 0002398 0001971 000'. 02 SITE-TBL-C382 PIC X(48) VALUE '1643 0002125 000999991002358 0002398 0001971 000'. 02 SITE-TBL-C383 PIC X(48) VALUE '1649 0002125 000999991002358 0002398 0001971 000'. 02 SITE-TBL-C384 PIC X(48) VALUE '1639 0002124 000999991002358 0002391 0001972 000'. 02 SITE-TBL-C385 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C386 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C387 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C388 PIC X(48) VALUE '1648 0002128 000999991002358 0002398 0001988 000'. 02 SITE-TBL-C389 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C390 PIC X(48) VALUE '1650 0002129 0002319 0002359 0002391 0001973 000'. 02 SITE-TBL-C391 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C392 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C393 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C394 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C395 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C396 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C397 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C398 PIC X(48) VALUE '1658 0002129 0002319 0002359 0002391 0001973 000'. 02 SITE-TBL-C399 PIC X(48) VALUE '1659 0002129 0002319 0002359 0002391 0001973 000'. 02 SITE-TBL-C400 PIC X(48) VALUE '1704 0002134 000999991002380 0002392 0001985 000'. 02 SITE-TBL-C401 PIC X(48) VALUE '1705 0002135 000999991002380 0002392 0001985 000'. 02 SITE-TBL-C402 PIC X(48) VALUE '1707 0002137 000999991002380 0002392 0001985 000'. 02 SITE-TBL-C403 PIC X(48) VALUE '1708 0002138 000999991002380 0002392 0001985 000'. 02 SITE-TBL-C404 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C405 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C406 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C407 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C408 PIC X(48) VALUE '1709 0002139 000999991002380 0002392 0001985 000'. 02 SITE-TBL-C409 PIC X(48) VALUE '1709 0002139 000999991002380 0002392 0001985 000'. 02 SITE-TBL-C410 PIC X(48) VALUE '1700 0002130 000999991002380 0002392 0001985 000'. 02 SITE-TBL-C411 PIC X(48) VALUE '1701 0002131 000999991002380 0002392 0001985 000'. 02 SITE-TBL-C412 PIC X(48) VALUE '1702 0002132 000999991002380 0002392 0001985 000'. 02 SITE-TBL-C413 PIC X(48) VALUE '1703 0002133 000999991002380 0002392 0001985 000'. 02 SITE-TBL-C414 PIC X(48) VALUE '1706 0002136 000999991002380 0002392 0001985 000'. 02 SITE-TBL-C415 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C416 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C417 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C418 PIC X(48) VALUE '1709 0002139 000999991002380 0002392 0001985 000'. 02 SITE-TBL-C419 PIC X(48) VALUE '1709 0002139 000999991002380 0002392 0001985 000'. 02 SITE-TBL-C420 PIC X(48) VALUE '1991 0009999901099999010999990109999901099999010'. 02 SITE-TBL-C421 PIC X(48) VALUE '1991 0009999901099999010999990109999901099999010'. 02 SITE-TBL-C422 PIC X(48) VALUE '1591 0002119 000999990102355 0002390 0001978 000'. 02 SITE-TBL-C423 PIC X(48) VALUE '1991 0009999901099999010999990109999901099999010'. 02 SITE-TBL-C424 PIC X(48) VALUE '1991 0009999901099999010999990109999901099999010'. 02 SITE-TBL-C425 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C426 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C427 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C428 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C429 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C430 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C431 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C432 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C433 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C434 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C435 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C436 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C437 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C438 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C439 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C440 PIC X(48) VALUE '1730 0002160 0002320 0002382 0002392 0001982 000'. 02 SITE-TBL-C441 PIC X(48) VALUE '1731 0002161 0002321 0002382 0002392 0001982 000'. 02 SITE-TBL-C442 PIC X(48) VALUE '1732 0002162 0002322 0002382 0002392 0001982 000'. 02 SITE-TBL-C443 PIC X(48) VALUE '1733 0002163 0002323 0002382 0002392 0001982 000'. 02 SITE-TBL-C444 PIC X(48) VALUE '1734 0002164 0002324 0002382 0002392 0001982 000'. 02 SITE-TBL-C445 PIC X(48) VALUE '1735 0002165 0002325 0002382 0002392 0001982 000'. 02 SITE-TBL-C446 PIC X(48) VALUE '1736 0002166 0002326 0002382 0002392 0001982 000'. 02 SITE-TBL-C447 PIC X(48) VALUE '1737 0002167 0002327 0002382 0002392 0001982 000'. 02 SITE-TBL-C448 PIC X(48) VALUE '1738 0002168 0002328 0002382 0002392 0001982 000'. 02 SITE-TBL-C449 PIC X(48) VALUE '1739 0002169 0002329 0002382 0002392 0001982 000'. 02 SITE-TBL-C450 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C451 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C452 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C453 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C454 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C455 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C456 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C457 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C458 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C459 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C460 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C461 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C462 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C463 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C464 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C465 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C466 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C467 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C468 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C469 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C470 PIC X(48) VALUE '1710 0002150 000999991002381 0002392 00019889000'. 02 SITE-TBL-C471 PIC X(48) VALUE '1712 0002152 000999991002381 0002392 00019889000'. 02 SITE-TBL-C472 PIC X(48) VALUE '1713 0002153 000999991002381 0002392 00019889000'. 02 SITE-TBL-C473 PIC X(48) VALUE '1714 0002154 000999991002381 0002392 00019889000'. 02 SITE-TBL-C474 PIC X(48) VALUE '1715 0002155 000999991002381 0002392 00019889000'. 02 SITE-TBL-C475 PIC X(48) VALUE '1716 0002156 000999991002381 0002392 00019889000'. 02 SITE-TBL-C476 PIC X(48) VALUE '1717 0002157 000999991002381 0002392 00019889000'. 02 SITE-TBL-C477 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C478 PIC X(48) VALUE '1718 0002158 000999991002381 0002392 00019889000'. 02 SITE-TBL-C479 PIC X(48) VALUE '1719 0002159 000999991002381 0002392 00019889000'. 02 SITE-TBL-C480 PIC X(48) VALUE '1580 0002118 000999991002354 0002390 0001976 000'. 02 SITE-TBL-C481 PIC X(48) VALUE '1588 0002118 000999991002354 0002390 0001976 000'. 02 SITE-TBL-C482 PIC X(48) VALUE '1589 0002118 000999991002354 0002390 0001976 000'. 02 SITE-TBL-C483 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C484 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C485 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C486 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C487 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C488 PIC X(48) VALUE '1589 0002118 000999991002354 0002390 0001975 000'. 02 SITE-TBL-C489 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C490 PIC X(48) VALUE '1710 0002150 000999991002381 0002392 00019889000'. 02 SITE-TBL-C491 PIC X(48) VALUE '1712 0002152 000999991002381 0002392 00019889000'. 02 SITE-TBL-C492 PIC X(48) VALUE '1713 0002153 000999991002381 0002392 00019889000'. 02 SITE-TBL-C493 PIC X(48) VALUE '1714 0002154 000999991002381 0002392 00019889000'. 02 SITE-TBL-C494 PIC X(48) VALUE '1715 0002155 000999991002381 0002392 00019889000'. 02 SITE-TBL-C495 PIC X(48) VALUE '1716 0002156 000999991002381 0002392 00019889000'. 02 SITE-TBL-C496 PIC X(48) VALUE '1717 0002157 000999991002381 0002392 00019889000'. 02 SITE-TBL-C497 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C498 PIC X(48) VALUE '1718 0002158 000999991002381 0002392 00019889000'. 02 SITE-TBL-C499 PIC X(48) VALUE '1719 0002159 000999991002381 0002392 00019889000'. 02 SITE-TBL-C500 PIC X(48) VALUE '1740 001217 0002330 0002383 0002393 00019881000'. 02 SITE-TBL-C501 PIC X(48) VALUE '1741 001217 0002330 0002383 0002393 00019881000'. 02 SITE-TBL-C502 PIC X(48) VALUE '1742 001217 0002330 0002383 0002393 00019881000'. 02 SITE-TBL-C503 PIC X(48) VALUE '1743 001217 0002330 0002383 0002393 00019881000'. 02 SITE-TBL-C504 PIC X(48) VALUE '1744 001217 0002330 0002383 0002393 00019881000'. 02 SITE-TBL-C505 PIC X(48) VALUE '1745 001217 0002330 0002383 0002393 00019881000'. 02 SITE-TBL-C506 PIC X(48) VALUE '1746 001217 0002330 0002383 0002393 00019881000'. 02 SITE-TBL-C507 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C508 PIC X(48) VALUE '1748 001217 0002330 0002383 0002393 00019881000'. 02 SITE-TBL-C509 PIC X(48) VALUE '1749 001217 0002330 0002383 0002393 00019881000'. 02 SITE-TBL-C510 PIC X(48) VALUE '1841 0002212 0002333 0002363 0002395 00019882000'. 02 SITE-TBL-C511 PIC X(48) VALUE '1842 0002212 0002333 0002363 0002395 00019882000'. 02 SITE-TBL-C512 PIC X(48) VALUE '1843 0002212 0002333 0002363 0002395 00019882000'. 02 SITE-TBL-C513 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C514 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C515 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C516 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C517 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C518 PIC X(48) VALUE '1844 0002212 0002333 0002363 0002395 00019882000'. 02 SITE-TBL-C519 PIC X(48) VALUE '1844 0002212 0002333 0002363 0002395 00019882000'. 02 SITE-TBL-C520 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C521 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C522 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C523 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C524 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C525 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C526 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C527 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C528 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C529 PIC X(48) VALUE '1840 0002211 0002333 0002363 0002395 00019882000'. 02 SITE-TBL-C530 PIC X(48) VALUE '1800 0002190 0002331 0002360 0002395 00019882000'. 02 SITE-TBL-C531 PIC X(48) VALUE '1801 0002190 0002331 0002360 0002395 00019882000'. 02 SITE-TBL-C532 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C533 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C534 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C535 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C536 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C537 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C538 PIC X(48) VALUE '1808 0002190 0002331 0002360 0002395 00019882000'. 02 SITE-TBL-C539 PIC X(48) VALUE '1809 0002190 0002331 0002360 0002395 00019882000'. 02 SITE-TBL-C540 PIC X(48) VALUE '1821 0002191 0002332 0002360 0002395 00019882000'. 02 SITE-TBL-C541 PIC X(48) VALUE '1820 0002191 0002332 0002360 0002395 00019882000'. 02 SITE-TBL-C542 PIC X(48) VALUE '1820 0002191 0002332 0002360 0002395 00019882000'. 02 SITE-TBL-C543 PIC X(48) VALUE '1820 0002191 0002332 0002360 0002395 00019882000'. 02 SITE-TBL-C544 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C545 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C546 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C547 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C548 PIC X(48) VALUE '1828 0002191 0002332 0002360 0002395 00019882000'. 02 SITE-TBL-C549 PIC X(48) VALUE '1820 0002191 0002332 0002360 0002395 00019882000'. 02 SITE-TBL-C550 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C551 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C552 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C553 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C554 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C555 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C556 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C557 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C558 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C559 PIC X(48) VALUE '179 0002199 0002332 0002360 0002395 00019882000'. 02 SITE-TBL-C560 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C561 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C562 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C563 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C564 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C565 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C566 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C567 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C568 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C569 PIC X(48) VALUE '1830 000220 0002333 0002362 0002395 0001986 000'. 02 SITE-TBL-C570 PIC X(48) VALUE '1832 0002210 0002333 0002363 0002395 00019882000'. 02 SITE-TBL-C571 PIC X(48) VALUE '1833 0002210 000999991002363 0002395 00019882000'. 02 SITE-TBL-C572 PIC X(48) VALUE '1835 0002210 000999991002363 0002395 00019882000'. 02 SITE-TBL-C573 PIC X(48) VALUE '1834 0002210 000999991002363 0002395 00019882000'. 02 SITE-TBL-C574 PIC X(48) VALUE '1839 0002218 0002333 0002363 0002395 00019882000'. 02 SITE-TBL-C575 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C576 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C577 PIC X(48) VALUE '1848 0002218 0002333 0002363 0002395 00019882000'. 02 SITE-TBL-C578 PIC X(48) VALUE '1848 0002218 0002333 0002363 0002395 00019882000'. 02 SITE-TBL-C579 PIC X(48) VALUE '1849 0002219 0002333 0002363 0002395 00019882000'. 02 SITE-TBL-C580 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C581 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C582 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C583 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C584 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C585 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C586 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C587 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C588 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C589 PIC X(48) VALUE '181 0002198 0002332 0002361 0002395 00019882000'. 02 SITE-TBL-C590 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C591 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C592 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C593 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C594 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C595 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C596 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C597 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C598 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C599 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C600 PIC X(48) VALUE '1871 0002221 0002335 0002366 0002395 00019882000'. 02 SITE-TBL-C601 PIC X(48) VALUE '1872 0002221 0002335 0002366 0002395 00019882000'. 02 SITE-TBL-C602 PIC X(48) VALUE '1873 0002221 0002335 0002366 0002395 00019882000'. 02 SITE-TBL-C603 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C604 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C605 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C606 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C607 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C608 PIC X(48) VALUE '1874 0002221 0002335 0002366 0002395 00019882000'. 02 SITE-TBL-C609 PIC X(48) VALUE '1874 0002221 0002335 0002366 0002395 00019882000'. 02 SITE-TBL-C610 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C611 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C612 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C613 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C614 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C615 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C616 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C617 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C618 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C619 PIC X(48) VALUE '185 0002222 0002334 0002365 0002395 00019882000'. 02 SITE-TBL-C620 PIC X(48) VALUE '1860 0002220 0002336 0002364 0002395 00019882000'. 02 SITE-TBL-C621 PIC X(48) VALUE '1869 0002220 0002336 0002364 0002395 00019882000'. 02 SITE-TBL-C622 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C623 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C624 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C625 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C626 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C627 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C628 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C629 PIC X(48) VALUE '1869 0002220 0002336 0002364 0002395 00019882000'. 02 SITE-TBL-C630 PIC X(48) VALUE '1875 0002223 0002336 0002366 0002395 00019882000'. 02 SITE-TBL-C631 PIC X(48) VALUE '1876 0002228 0002336 0002366 0002395 00019882000'. 02 SITE-TBL-C632 PIC X(48) VALUE '1877 0002224 0002336 0002366 0002395 00019882000'. 02 SITE-TBL-C633 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C634 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C635 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C636 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C637 PIC X(48) VALUE '1878 0002228 0002336 0002366 0002395 00019882000'. 02 SITE-TBL-C638 PIC X(48) VALUE '1878 0002228 0002336 0002366 0002395 00019882000'. 02 SITE-TBL-C639 PIC X(48) VALUE '1879 0002229 0002336 0002366 0002395 00019882000'. 02 SITE-TBL-C640 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C641 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C642 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C643 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C644 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C645 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C646 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C647 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C648 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C649 PIC X(48) VALUE '1890 0002230 0002339 000236910002395 0001980 000'. 02 SITE-TBL-C650 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C651 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C652 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C653 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C654 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C655 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C656 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C657 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C658 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C659 PIC X(48) VALUE '1891 0002231 0002339 000236990002395 0001980 000'. 02 SITE-TBL-C660 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C661 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C662 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C663 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C664 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C665 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C666 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C667 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C668 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C669 PIC X(48) VALUE '1892 0002232 0002339 000236910002395 0001981 000'. 02 SITE-TBL-C670 PIC X(48) VALUE '1880 0002233 0002337 0002367 0002394 0001981 000'. 02 SITE-TBL-C671 PIC X(48) VALUE '1881 0002233 0002337 0002367 0002394 0001981 000'. 02 SITE-TBL-C672 PIC X(48) VALUE '1882 0002233 0002337 0002367 0002394 0001981 000'. 02 SITE-TBL-C673 PIC X(48) VALUE '1883 0002233 0002337 0002367 0002394 0001981 000'. 02 SITE-TBL-C674 PIC X(48) VALUE '1884 0002233 0002337 0002367 0002394 0001981 000'. 02 SITE-TBL-C675 PIC X(48) VALUE '1885 0002233 0002337 0002367 0002394 0001981 000'. 02 SITE-TBL-C676 PIC X(48) VALUE '1886 0002233 0002337 0002367 0002394 0001981 000'. 02 SITE-TBL-C677 PIC X(48) VALUE '1887 0002233 0002337 0002367 0002394 0001981 000'. 02 SITE-TBL-C678 PIC X(48) VALUE '1888 0002233 0002337 0002367 0002394 0001981 000'. 02 SITE-TBL-C679 PIC X(48) VALUE '1889 0002233 0002337 0002367 0002394 0001981 000'. 02 SITE-TBL-C680 PIC X(48) VALUE '1893 000223810002339 000236990002395 0001981 000'. 02 SITE-TBL-C681 PIC X(48) VALUE '1894 000223890002339 000236990002395 0001981 000'. 02 SITE-TBL-C682 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C683 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C684 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C685 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C686 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C687 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C688 PIC X(48) VALUE '1898 000223890002339 000236900002395 0001981 000'. 02 SITE-TBL-C689 PIC X(48) VALUE '1899 0002239 0002339 000236900002395 0001981 000'. 02 SITE-TBL-C690 PIC X(48) VALUE '1903 0002243 0002340 0002388 0002398 0001984 000'. 02 SITE-TBL-C691 PIC X(48) VALUE '1904 0002244 0002340 0002388 0002398 0001984 000'. 02 SITE-TBL-C692 PIC X(48) VALUE '1905 0002245 0002340 0002388 0002398 0001984 000'. 02 SITE-TBL-C693 PIC X(48) VALUE '1906 0002246 0002340 0002388 0002398 0001984 000'. 02 SITE-TBL-C694 PIC X(48) VALUE '1900 0002240 0002340 0002388 0002398 0001984 000'. 02 SITE-TBL-C695 PIC X(48) VALUE '1902 0002242 0002340 0002388 0002398 0001984 000'. 02 SITE-TBL-C696 PIC X(48) VALUE '1901 0002241 0002340 0002388 0002398 0001984 000'. 02 SITE-TBL-C697 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C698 PIC X(48) VALUE '1908 0002248 0002340 0002388 0002398 0001984 000'. 02 SITE-TBL-C699 PIC X(48) VALUE '1909 0002249 0002340 0002388 0002398 0001984 000'. 02 SITE-TBL-C700 PIC X(48) VALUE '1921 0002252 000999991002376 0002397 0001984 000'. 02 SITE-TBL-C701 PIC X(48) VALUE '1923 0002254 000999991002376 0002397 0001984 000'. 02 SITE-TBL-C702 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C703 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C704 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C705 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C706 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C707 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C708 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C709 PIC X(48) VALUE '1921 0002252 000999991002376 0002397 0001984 000'. 02 SITE-TBL-C710 PIC X(48) VALUE '1910 0002250 000999991002375 0002396 0001983 000'. 02 SITE-TBL-C711 PIC X(48) VALUE '1911 0002250 000999991002375 0002396 0001983 000'. 02 SITE-TBL-C712 PIC X(48) VALUE '1912 0002250 000999991002375 0002396 0001983 000'. 02 SITE-TBL-C713 PIC X(48) VALUE '1913 0002250 000999991002375 0002396 0001983 000'. 02 SITE-TBL-C714 PIC X(48) VALUE '1914 0002250 000999991002375 0002396 0001983 000'. 02 SITE-TBL-C715 PIC X(48) VALUE '1915 0002250 000999991002375 0002396 0001983 000'. 02 SITE-TBL-C716 PIC X(48) VALUE '1916 0002250 000999991002375 0002396 0001983 000'. 02 SITE-TBL-C717 PIC X(48) VALUE '1917 0002250 000999991002375 0002396 0001983 000'. 02 SITE-TBL-C718 PIC X(48) VALUE '1918 0002250 000999991002375 0002396 0001983 000'. 02 SITE-TBL-C719 PIC X(48) VALUE '1919 0002250 000999991002375 0002396 0001983 000'. 02 SITE-TBL-C720 PIC X(48) VALUE '1922 0002253 000999991002375 0002397 0001983 000'. 02 SITE-TBL-C721 PIC X(48) VALUE '1922 0002253 000999991002375 0002397 0001983 000'. 02 SITE-TBL-C722 PIC X(48) VALUE '1920 0002251 000999991002379 0002397 0001984 000'. 02 SITE-TBL-C723 PIC X(48) VALUE '1920 0002251 000999991002379 0002397 0001984 000'. 02 SITE-TBL-C724 PIC X(48) VALUE '1920 0002251 000999991002379 0002397 0001984 000'. 02 SITE-TBL-C725 PIC X(48) VALUE '1920 0002251 000999991002379 0002397 0001984 000'. 02 SITE-TBL-C726 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C727 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C728 PIC X(48) VALUE '1928 0002258 000999991002379 0002397 0001984 000'. 02 SITE-TBL-C729 PIC X(48) VALUE '1929 0002259 000999991002379 0002397 0001984 000'. 02 SITE-TBL-C730 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C731 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C732 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C733 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C734 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C735 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C736 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C737 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C738 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C739 PIC X(48) VALUE '193 000226 0002348 0002374 0002397 00019889000'. 02 SITE-TBL-C740 PIC X(48) VALUE '1940 0002270 0002348 0002372 0002397 0001987 000'. 02 SITE-TBL-C741 PIC X(48) VALUE '1940 0002270 0002348 0002372 0002397 0001987 000'. 02 SITE-TBL-C742 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C743 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C744 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C745 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C746 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C747 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C748 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C749 PIC X(48) VALUE '1940 0002270 0002348 0002372 0002397 0001987 000'. 02 SITE-TBL-C750 PIC X(48) VALUE '1941 0002271 0002348 0002374 0002397 00019889000'. 02 SITE-TBL-C751 PIC X(48) VALUE '1943 0002273 0002348 0002370 0002397 00019889000'. 02 SITE-TBL-C752 PIC X(48) VALUE '1943 0002273 0002348 0002370 0002397 00019889000'. 02 SITE-TBL-C753 PIC X(48) VALUE '1944 0002274 0002348 0002371 0002397 00019889000'. 02 SITE-TBL-C754 PIC X(48) VALUE '1945 0002275 000999991002373 0002397 00019889000'. 02 SITE-TBL-C755 PIC X(48) VALUE '1946 0002276 000999991002373 0002397 00019889000'. 02 SITE-TBL-C756 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C757 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C758 PIC X(48) VALUE '1948 0002278 0002348 0002374 0002397 00019889000'. 02 SITE-TBL-C759 PIC X(48) VALUE '1949 0002279 0002348 0002374 0002397 00019889000'. 02 SITE-TBL-C760 PIC X(48) VALUE '1950 0002298 0002324 0002388 0002398 00019889000'. 02 SITE-TBL-C761 PIC X(48) VALUE '1951 0002298 0002348 0002388 0002398 00019889000'. 02 SITE-TBL-C762 PIC X(48) VALUE '1952 0002298 0002348 0002388 0002398 00019889000'. 02 SITE-TBL-C763 PIC X(48) VALUE '1953 0002298 0002348 0002388 0002398 00019889000'. 02 SITE-TBL-C764 PIC X(48) VALUE '1954 0002298 0002326 0002388 0002398 00019889000'. 02 SITE-TBL-C765 PIC X(48) VALUE '1955 0002298 0002327 0002388 0002398 00019889000'. 02 SITE-TBL-C766 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C767 PIC X(48) VALUE '1958 0002298 000999991002388 0002398 00019889000'. 02 SITE-TBL-C768 PIC X(48) VALUE '1958 0002298 000999991002388 0002398 00019889000'. 02 SITE-TBL-C769 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C770 PIC X(48) VALUE '1960 0002290 000999991002388 0002398 0001960 000'. 02 SITE-TBL-C771 PIC X(48) VALUE '1961 0002290 000999991002388 0002398 0001961 000'. 02 SITE-TBL-C772 PIC X(48) VALUE '1962 0002290 000999991002388 0002398 0001962 000'. 02 SITE-TBL-C773 PIC X(48) VALUE '1963 0002290 000999991002388 0002398 0001963 000'. 02 SITE-TBL-C774 PIC X(48) VALUE '1965 0002290 000999991002388 0002398 0001965 000'. 02 SITE-TBL-C775 PIC X(48) VALUE '1966 0002290 000999991002388 0002398 0001966 000'. 02 SITE-TBL-C776 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C777 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C778 PIC X(48) VALUE '1968 0002290 000999991002388 0002398 0001968 000'. 02 SITE-TBL-C779 PIC X(48) VALUE '1969 0002290 000999991002388 0002398 0001969 000'. 02 SITE-TBL-C780 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C781 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C782 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C783 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C784 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C785 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C786 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C787 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C788 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C789 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C790 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C791 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C792 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C793 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C794 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C795 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C796 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C797 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C798 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C799 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C800 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C801 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C802 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C803 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C804 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C805 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C806 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C807 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C808 PIC X(48) VALUE '999990009999900099999000999990009999900099999000'. 02 SITE-TBL-C809 PIC X(48) VALUE '1991 0002299 0002349 0002389 0002399 0001991 000'. 01 SITE-CONV-TBL REDEFINES SITE-CONV-TABLE. 02 SITE-CONV-ENTRY OCCURS 810 TIMES. 03 SITE-BEH-ENTRY OCCURS 6 TIMES PIC X(8). 01 SITE-MALE-TABLE. 02 SITE-MALE-C500 PIC X(42) VALUE '1750 00217 002330 002383 002393 001988100'. 02 SITE-MALE-C501 PIC X(42) VALUE '175 00217 002330 002383 002393 001988100'. 02 SITE-MALE-C502 PIC X(42) VALUE '175 00217 002330 002383 002393 001988100'. 02 SITE-MALE-C503 PIC X(42) VALUE '175 00217 002330 002383 002393 001988100'. 02 SITE-MALE-C504 PIC X(42) VALUE '175 00217 002330 002383 002393 001988100'. 02 SITE-MALE-C505 PIC X(42) VALUE '175 00217 002330 002383 002393 001988100'. 02 SITE-MALE-C506 PIC X(42) VALUE '175 00217 002330 002383 002393 001988100'. 02 SITE-MALE-C507 PIC X(42) VALUE '999990099999009999900999990099999009999900'. 02 SITE-MALE-C508 PIC X(42) VALUE '175 00217 002330 002383 002393 001988100'. 02 SITE-MALE-C509 PIC X(42) VALUE '1759 00217 002330 002383 002393 001988100'. 01 SITE-MALE-TBL REDEFINES SITE-MALE-TABLE. 02 SITE-MALE-ENTRY OCCURS 10 TIMES. 03 SITE-MALE-BEH-ENTRY OCCURS 6 TIMES PIC X(7). 01 GROUP4-SRCH-TABLE. 02 TABLE1-SITE-C000. 03 FILLER PIC X(56) VALUE '000 2160002160002382002320002320001730001730001730011720'. 03 FILLER PIC X(56) VALUE '00210000210000210000210000235100140000170900213900238000'. 02 TABLE1-SITE-C001. 03 FILLER PIC X(56) VALUE '001 2160002160002382002320002320001730001730001730011720'. 03 FILLER PIC X(56) VALUE '00210000210000210000210000235100140100170900213900238000'. 02 TABLE1-SITE-C002. 03 FILLER PIC X(56) VALUE '002 2160002160002382002320002320001730001730001730011720'. 03 FILLER PIC X(56) VALUE '00210000210000210000210000235100140900170900213900238000'. 02 TABLE1-SITE-C003. 03 FILLER PIC X(56) VALUE '003 2160002160002382002320002320001730001730001730011720'. 03 FILLER PIC X(56) VALUE '00210000210000210000210000235100140300170900213900238000'. 02 TABLE1-SITE-C004. 03 FILLER PIC X(56) VALUE '004 2160002160002382002320002320001730001730001730011720'. 03 FILLER PIC X(56) VALUE '00210000210000210000210000235100140400170900213900238000'. 02 TABLE1-SITE-C005. 03 FILLER PIC X(56) VALUE '005 2160002160002382002320002320001730001730001730011720'. 03 FILLER PIC X(56) VALUE '00210000210000210000210000235100140500170900213900238000'. 02 TABLE1-SITE-C006. 03 FILLER PIC X(56) VALUE '006 2160002160002382002320002320001730001730001730011720'. 03 FILLER PIC X(56) VALUE '00210400210400210400210400235100140600170900213900238000'. 02 TABLE1-SITE-C008. 03 FILLER PIC X(56) VALUE '008 2160002160002382002320002320001730001730001730011720'. 03 FILLER PIC X(56) VALUE '00210000210000210000210000235100140800170900213900238000'. 02 TABLE1-SITE-C009. 03 FILLER PIC X(56) VALUE '009 2160002160002382002320002320001730001730001730011720'. 03 FILLER PIC X(56) VALUE '00210000210000210000210000235100140900170900213900238000'. 02 TABLE1-SITE-C210. 03 FILLER PIC X(56) VALUE '210 2165002165002382002306002325001735001543001735011543'. 03 FILLER PIC X(56) VALUE '00211400211400211400211400235500154300170900213900238000'. 02 TABLE1-SITE-C400. 03 FILLER PIC X(56) VALUE '400 2169002169002382002329002329001739001739001739011704'. 03 FILLER PIC X(56) VALUE '00213400213400213400213400238000170400170400213400238000'. 02 TABLE1-SITE-C401. 03 FILLER PIC X(56) VALUE '401 2169002169002382002329002329001739001739001739011705'. 03 FILLER PIC X(56) VALUE '00213500213500213500213500238000170500170500213500238000'. 02 TABLE1-SITE-C402. 03 FILLER PIC X(56) VALUE '402 2169002169002382002329002329001739001739001739011707'. 03 FILLER PIC X(56) VALUE '00213700213700213700213700238000170700170700213700238000'. 02 TABLE1-SITE-C403. 03 FILLER PIC X(56) VALUE '403 2169002169002382002329002329001739001739001739011708'. 03 FILLER PIC X(56) VALUE '00213800213800213800213800238000170800170800213800238000'. 02 TABLE1-SITE-C408. 03 FILLER PIC X(56) VALUE '408 2169002169002382002329002329001739001739001739011709'. 03 FILLER PIC X(56) VALUE '00213900213900213900213900238000170900170900213900238000'. 02 TABLE1-SITE-C409. 03 FILLER PIC X(56) VALUE '409 2169002169002382002329002329001739001739001739011709'. 03 FILLER PIC X(56) VALUE '00213900213900213900213900238000170900170900213900238000'. 02 TABLE1-SITE-C410. 03 FILLER PIC X(56) VALUE '410 2169002169002382002329002329001739001739001739011700'. 03 FILLER PIC X(56) VALUE '00213000213000213000213000238000170000170000213000238000'. 02 TABLE1-SITE-C411. 03 FILLER PIC X(56) VALUE '411 2169002169002382002329002329001739001739001739011701'. 03 FILLER PIC X(56) VALUE '00213100213100213100213100238000170100170100213100238000'. 02 TABLE1-SITE-C412. 03 FILLER PIC X(56) VALUE '412 2169002169002382002329002329001739001739001739011702'. 03 FILLER PIC X(56) VALUE '00213200213200213200213200238000170200170200213200238000'. 02 TABLE1-SITE-C413. 03 FILLER PIC X(56) VALUE '413 2169002169002382002329002329001739001739001739011703'. 03 FILLER PIC X(56) VALUE '00213300213300213300213300238000170300170300213300238000'. 02 TABLE1-SITE-C414. 03 FILLER PIC X(56) VALUE '414 2169002169002382002329002329001739001739001739011706'. 03 FILLER PIC X(56) VALUE '00213600213600213600213600238000170600170600213600238000'. 02 TABLE1-SITE-C418. 03 FILLER PIC X(56) VALUE '418 2169002169002382002329002329001739001739001739011709'. 03 FILLER PIC X(56) VALUE '00213900213900213900213900238000170900170900213900238000'. 02 TABLE1-SITE-C419. 03 FILLER PIC X(56) VALUE '419 2169002169002382002329002329001739001739001739011709'. 03 FILLER PIC X(56) VALUE '00213900213900213900213900238000170900170900213900238000'. 02 TABLE1-SITE-C440. 03 FILLER PIC X(56) VALUE '440 2160002160002382002320002320001730001730001730011720'. 03 FILLER PIC X(56) VALUE '00216000216000216000216000238100173000170900213900238000'. 02 TABLE1-SITE-C441. 03 FILLER PIC X(56) VALUE '441 2161002161002382002321002321001731001731001731011721'. 03 FILLER PIC X(56) VALUE '00215000215000215000215000238100171000170900213900238000'. 02 TABLE1-SITE-C442. 03 FILLER PIC X(56) VALUE '442 2162002162002382002322002322001732001732001732011722'. 03 FILLER PIC X(56) VALUE '00215000215000215000215000238100171000170900213900238000'. 02 TABLE1-SITE-C443. 03 FILLER PIC X(56) VALUE '443 2163002163002382002323002323001733001733001733011723'. 03 FILLER PIC X(56) VALUE '00215000215000215000215000238100171000170900213900238000'. 02 TABLE1-SITE-C444. 03 FILLER PIC X(56) VALUE '444 2164002164002382002324002324001734001734001734011724'. 03 FILLER PIC X(56) VALUE '00215000215000215000215000238100171000170900213900238000'. 02 TABLE1-SITE-C445. 03 FILLER PIC X(56) VALUE '445 2165002165002382002325002325001735001735001735011725'. 03 FILLER PIC X(56) VALUE '00215900215900215900215900238100171900170900213900238000'. 02 TABLE1-SITE-C446. 03 FILLER PIC X(56) VALUE '446 2166002166002382002326002326001736001736001736011726'. 03 FILLER PIC X(56) VALUE '00215200215200215200215200238100171200170900213900238000'. 02 TABLE1-SITE-C447. 03 FILLER PIC X(56) VALUE '447 2167002167002382002327002327001737001737001737011727'. 03 FILLER PIC X(56) VALUE '00215300215300215300215300238100171300170900213900238000'. 02 TABLE1-SITE-C448. 03 FILLER PIC X(56) VALUE '448 2168002168002382002328002328001738001738001738011728'. 03 FILLER PIC X(56) VALUE '00215900215900215900215900238100171900170900213900238000'. 02 TABLE1-SITE-C449. 03 FILLER PIC X(56) VALUE '449 2169002169002382002329002329001739001739001739011729'. 03 FILLER PIC X(56) VALUE '00215900215900215900215900238100171900170900213900238000'. 02 TABLE1-SITE-C500. 03 FILLER PIC X(56) VALUE '500 216500217 002382002325002325001735001735001735011725'. 03 FILLER PIC X(56) VALUE '00217 00217 00217 00217 00238300174000170900213900238000'. 02 TABLE1-SITE-C501. 03 FILLER PIC X(56) VALUE '501 216500217 002382002325002325001735001735001735011725'. 03 FILLER PIC X(56) VALUE '00217 00217 00217 00217 00238300174100170900213900238000'. 02 TABLE1-SITE-C502. 03 FILLER PIC X(56) VALUE '502 216500217 002382002325002325001735001735001735011725'. 03 FILLER PIC X(56) VALUE '00217 00217 00217 00217 00238300174200170900213900238000'. 02 TABLE1-SITE-C503. 03 FILLER PIC X(56) VALUE '503 216500217 002382002325002325001735001735001735011725'. 03 FILLER PIC X(56) VALUE '00217 00217 00217 00217 00238300174300170900213900238000'. 02 TABLE1-SITE-C504. 03 FILLER PIC X(56) VALUE '504 216500217 002382002325002325001735001735001735011725'. 03 FILLER PIC X(56) VALUE '00217 00217 00217 00217 00238300174400170900213900238000'. 02 TABLE1-SITE-C505. 03 FILLER PIC X(56) VALUE '505 216500217 002382002325002325001735001735001735011725'. 03 FILLER PIC X(56) VALUE '00217 00217 00217 00217 00238300174500170900213900238000'. 02 TABLE1-SITE-C506. 03 FILLER PIC X(56) VALUE '506 216500217 002382002325002325001735001735001735011725'. 03 FILLER PIC X(56) VALUE '00217 00217 00217 00217 00238300174600170900213900238000'. 02 TABLE1-SITE-C508. 03 FILLER PIC X(56) VALUE '508 216500217 002382002325002325001735001735001735011725'. 03 FILLER PIC X(56) VALUE '00217 00217 00217 00217 00238300174800170900213900238000'. 02 TABLE1-SITE-C509. 03 FILLER PIC X(56) VALUE '509 216500217 002382002325002325001735001735001735011725'. 03 FILLER PIC X(56) VALUE '00217 00217 00217 00217 00238300174900170900213900238000'. 02 TABLE1-SITE-C510. 03 FILLER PIC X(56) VALUE '510 2212002212002363002333002333001841001841001841011841'. 03 FILLER PIC X(56) VALUE '00221200221200221200221200236300184100170900213900238000'. 02 TABLE1-SITE-C511. 03 FILLER PIC X(56) VALUE '511 2212002212002363002333002333001842001842001842011842'. 03 FILLER PIC X(56) VALUE '00221200221200221200221200236300184200170900213900238000'. 02 TABLE1-SITE-C512. 03 FILLER PIC X(56) VALUE '512 2212002212002363002333002333001843001843001843011843'. 03 FILLER PIC X(56) VALUE '00221200221200221200221200236300184300170900213900238000'. 02 TABLE1-SITE-C519. 03 FILLER PIC X(56) VALUE '519 2212002212002363002333002333001844001844001844011844'. 03 FILLER PIC X(56) VALUE '00221200221200221200221200236300184400170900213900238000'. 02 TABLE1-SITE-C530. 03 FILLER PIC X(56) VALUE '530 2169002169002382002329002329001739001739001739011800'. 03 FILLER PIC X(56) VALUE '00219000219000218 01219000236000180000170900213900238000'. 02 TABLE1-SITE-C531. 03 FILLER PIC X(56) VALUE '531 2169002169002382002329002329001739001739001739011801'. 03 FILLER PIC X(56) VALUE '00219000219000218 01219000236000180100170900213900238000'. 02 TABLE1-SITE-C538. 03 FILLER PIC X(56) VALUE '538 2169002169002382002329002329001739001739001739011808'. 03 FILLER PIC X(56) VALUE '00219000219000218 01219000236000180800170900213900238000'. 02 TABLE1-SITE-C539. 03 FILLER PIC X(56) VALUE '539 2169002169002382002329002329001739001739001739011809'. 03 FILLER PIC X(56) VALUE '00219000219000218 01219000236000180900170900213900238000'. 02 TABLE1-SITE-C540. 03 FILLER PIC X(56) VALUE '540 2169002169002382002329002329001739001739001739011821'. 03 FILLER PIC X(56) VALUE '00219100219100218 01219100236000182100170900213900238000'. 02 TABLE1-SITE-C541. 03 FILLER PIC X(56) VALUE '541 2169002169002382002329002329001739001739001739011820'. 03 FILLER PIC X(56) VALUE '00219100219100218 01219100236000182000170900213900238000'. 02 TABLE1-SITE-C542. 03 FILLER PIC X(56) VALUE '542 2169002169002382002329002329001739001739001739011820'. 03 FILLER PIC X(56) VALUE '00219100219100218 01219100236000182000170900213900238000'. 02 TABLE1-SITE-C543. 03 FILLER PIC X(56) VALUE '543 2169002169002382002329002329001739001739001739011820'. 03 FILLER PIC X(56) VALUE '00219100219100218 01219100236000182000170900213900238000'. 02 TABLE1-SITE-C548. 03 FILLER PIC X(56) VALUE '548 2169002169002382002329002329001739001739001739011828'. 03 FILLER PIC X(56) VALUE '00219100219100218 01219100236000182800170900213900238000'. 02 TABLE1-SITE-C549. 03 FILLER PIC X(56) VALUE '549 2169002169002382002329002329001739001739001739011820'. 03 FILLER PIC X(56) VALUE '00219100219100218 01219100236000182000170900213900238000'. 02 TABLE1-SITE-C559. 03 FILLER PIC X(56) VALUE '559 216900216900238200232900232900173900173900173901179 '. 03 FILLER PIC X(56) VALUE '00219900219900218 01219900236000179 00170900213900238000'. 02 TABLE1-SITE-C600. 03 FILLER PIC X(56) VALUE '600 2221002221002366002335002335001871001871001871011871'. 03 FILLER PIC X(56) VALUE '00222100222100222100222100236600187100170900213900238000'. 02 TABLE1-SITE-C609. 03 FILLER PIC X(56) VALUE '609 2221002221002366002335002335001874001874001874011874'. 03 FILLER PIC X(56) VALUE '00222100222100222100222100236600187400170900213900238000'. 02 TABLE1-SITE-C632. 03 FILLER PIC X(56) VALUE '632 2224002224002366002336002336001877001877001877011877'. 03 FILLER PIC X(56) VALUE '00222400222400222400222400236600187700170900213900238000'. 02 TABLE1-SITE-C639. 03 FILLER PIC X(56) VALUE '639 2224002224002366002336002336001879001879001879011879'. 03 FILLER PIC X(56) VALUE '00222900222900222900222900236600187900170900213900238000'. 02 TABLE1-SITE-C694. 03 FILLER PIC X(56) VALUE '694 2169002169002382002329002329001739001739001739011900'. 03 FILLER PIC X(56) VALUE '00224000224000224000224000238800190000170000213000238000'. 02 TABLE1-SITE-C724. 03 FILLER PIC X(56) VALUE '724 2169002169002382002329002329001739001739001739011920'. 03 FILLER PIC X(56) VALUE '00225100225100225100215000237900192000170900213900238000'. 02 TABLE1-SITE-C760. 03 FILLER PIC X(56) VALUE '760 2169002169002382002329002329001739001739001739011729'. 03 FILLER PIC X(56) VALUE '00215000215000215000215000238100171000170000213000238800'. 02 TABLE1-SITE-C761. 03 FILLER PIC X(56) VALUE '761 2169002169002382002329002329001739001739001739011729'. 03 FILLER PIC X(56) VALUE '00215400215400215400215400238100171400170900213900238000'. 02 TABLE1-SITE-C762. 03 FILLER PIC X(56) VALUE '762 2165002165002382002325002325001735001735001735011725'. 03 FILLER PIC X(56) VALUE '00215500215500215500215500238100171500170900213900238000'. 02 TABLE1-SITE-C763. 03 FILLER PIC X(56) VALUE '763 2169002169002382002329002329001739001739001739011729'. 03 FILLER PIC X(56) VALUE '00215600215600215600215600238100171600170600213600238800'. 02 TABLE1-SITE-C764. 03 FILLER PIC X(56) VALUE '764 2166002166002382002326002326001736001736001736011726'. 03 FILLER PIC X(56) VALUE '00215200215200215200215200238100171200170400213400238000'. 02 TABLE1-SITE-C765. 03 FILLER PIC X(56) VALUE '765 2167002167002382002327002327001737001737001737011727'. 03 FILLER PIC X(56) VALUE '00215300215300215300215300238100171300170700213700238800'. 02 TABLE1-SITE-C767. 03 FILLER PIC X(56) VALUE '767 2169002169002382002329002329001739001739001739011729'. 03 FILLER PIC X(56) VALUE '00215800215800215800215800238100171800170900213900238000'. 02 TABLE1-SITE-C809. 03 FILLER PIC X(56) VALUE '809 2169002169002382002329002329001739001739001739011729'. 03 FILLER PIC X(56) VALUE '00215900223000215900215900238100171900170900213900238000'. 02 TABLE1-SITE-C999. 03 FILLER PIC X(56) VALUE '999 2169002169002382002329002329001739001739001739019999'. 03 FILLER PIC X(56) VALUE '10999920999920999920999920999940999910170900213900238000'. 01 GROUP4-SRCH-LIST REDEFINES GROUP4-SRCH-TABLE. 02 TABLE1-ENTRY OCCURS 72 TIMES ASCENDING KEY TABLE1-SITE INDEXED BY TBL1-NDX. 05 TABLE1-SITE PIC X(3). 05 FILLER PIC X(1). 05 TABLE1-CONV PIC X(108). 01 SMALL-SEARCH-TABLE. 02 SM-TBL-G001 PIC X(9) VALUE '410213000'. 02 SM-TBL-G002 PIC X(9) VALUE '999213100'. 02 SM-TBL-G003 PIC X(9) VALUE '410170000'. 02 SM-TBL-G004 PIC X(9) VALUE '999170100'. 02 SM-TBL-G005 PIC X(9) VALUE '160151000'. 02 SM-TBL-G006 PIC X(9) VALUE '161151300'. 02 SM-TBL-G007 PIC X(9) VALUE '162151400'. 02 SM-TBL-G008 PIC X(9) VALUE '163151200'. 02 SM-TBL-G009 PIC X(9) VALUE '164151100'. 02 SM-TBL-G010 PIC X(9) VALUE '165151500'. 02 SM-TBL-G011 PIC X(9) VALUE '166151600'. 02 SM-TBL-G012 PIC X(9) VALUE '168151800'. 02 SM-TBL-G013 PIC X(9) VALUE '169151900'. 02 SM-TBL-G014 PIC X(9) VALUE '999151900'. 02 SM-TBL-G015 PIC X(9) VALUE '180153400'. 02 SM-TBL-G016 PIC X(9) VALUE '181153500'. 02 SM-TBL-G017 PIC X(9) VALUE '182153600'. 02 SM-TBL-G018 PIC X(9) VALUE '183153000'. 02 SM-TBL-G019 PIC X(9) VALUE '184153100'. 02 SM-TBL-G020 PIC X(9) VALUE '185153700'. 02 SM-TBL-G021 PIC X(9) VALUE '186153200'. 02 SM-TBL-G022 PIC X(9) VALUE '187153300'. 02 SM-TBL-G023 PIC X(9) VALUE '188153800'. 02 SM-TBL-G024 PIC X(9) VALUE '189153900'. 02 SM-TBL-G025 PIC X(9) VALUE '999153900'. 02 SM-TBL-G026 PIC X(9) VALUE '340162200'. 02 SM-TBL-G027 PIC X(9) VALUE '341162300'. 02 SM-TBL-G028 PIC X(9) VALUE '342162400'. 02 SM-TBL-G029 PIC X(9) VALUE '343162500'. 02 SM-TBL-G030 PIC X(9) VALUE '348162800'. 02 SM-TBL-G031 PIC X(9) VALUE '349162900'. 02 SM-TBL-G032 PIC X(9) VALUE '999162900'. 02 SM-TBL-G033 PIC X(9) VALUE '250211700'. 02 SM-TBL-G034 PIC X(9) VALUE '251211700'. 02 SM-TBL-G035 PIC X(9) VALUE '252211700'. 02 SM-TBL-G036 PIC X(9) VALUE '253211700'. 02 SM-TBL-G037 PIC X(9) VALUE '254211700'. 02 SM-TBL-G038 PIC X(9) VALUE '257211700'. 02 SM-TBL-G039 PIC X(9) VALUE '258211700'. 02 SM-TBL-G040 PIC X(9) VALUE '259211700'. 02 SM-TBL-G041 PIC X(9) VALUE '809211700'. 02 SM-TBL-G042 PIC X(9) VALUE '999999902'. 02 SM-TBL-G043 PIC X(9) VALUE '700225200'. 02 SM-TBL-G044 PIC X(9) VALUE '701225400'. 02 SM-TBL-G045 PIC X(9) VALUE '720225400'. 02 SM-TBL-G046 PIC X(9) VALUE '999225200'. 02 SM-TBL-G047 PIC X(9) VALUE '210230600'. 02 SM-TBL-G048 PIC X(9) VALUE '440232000'. 02 SM-TBL-G049 PIC X(9) VALUE '441232100'. 02 SM-TBL-G050 PIC X(9) VALUE '442232200'. 02 SM-TBL-G051 PIC X(9) VALUE '443232300'. 02 SM-TBL-G052 PIC X(9) VALUE '444232400'. 02 SM-TBL-G053 PIC X(9) VALUE '445232500'. 02 SM-TBL-G054 PIC X(9) VALUE '446232600'. 02 SM-TBL-G055 PIC X(9) VALUE '447232700'. 02 SM-TBL-G056 PIC X(9) VALUE '448232800'. 02 SM-TBL-G057 PIC X(9) VALUE '449232900'. 02 SM-TBL-G058 PIC X(9) VALUE '510233300'. 02 SM-TBL-G059 PIC X(9) VALUE '511233300'. 02 SM-TBL-G060 PIC X(9) VALUE '512233300'. 02 SM-TBL-G061 PIC X(9) VALUE '519233300'. 02 SM-TBL-G062 PIC X(9) VALUE '600233500'. 02 SM-TBL-G063 PIC X(9) VALUE '601233500'. 02 SM-TBL-G064 PIC X(9) VALUE '602233500'. 02 SM-TBL-G065 PIC X(9) VALUE '608233500'. 02 SM-TBL-G066 PIC X(9) VALUE '609233500'. 02 SM-TBL-G067 PIC X(9) VALUE '632233600'. 02 SM-TBL-G068 PIC X(9) VALUE '809233510'. 02 SM-TBL-G069 PIC X(9) VALUE '999232900'. 02 SM-TBL-G070 PIC X(9) VALUE '250157400'. 02 SM-TBL-G071 PIC X(9) VALUE '251157400'. 02 SM-TBL-G072 PIC X(9) VALUE '252157400'. 02 SM-TBL-G073 PIC X(9) VALUE '253157400'. 02 SM-TBL-G074 PIC X(9) VALUE '254157400'. 02 SM-TBL-G075 PIC X(9) VALUE '257157400'. 02 SM-TBL-G076 PIC X(9) VALUE '258157400'. 02 SM-TBL-G077 PIC X(9) VALUE '259157400'. 02 SM-TBL-G078 PIC X(9) VALUE '809157400'. 02 SM-TBL-G079 PIC X(9) VALUE '999999901'. 02 SM-TBL-G080 PIC X(9) VALUE '339162000'. 02 SM-TBL-G081 PIC X(9) VALUE '340162200'. 02 SM-TBL-G082 PIC X(9) VALUE '341162300'. 02 SM-TBL-G083 PIC X(9) VALUE '342162400'. 02 SM-TBL-G084 PIC X(9) VALUE '343162500'. 02 SM-TBL-G085 PIC X(9) VALUE '348162800'. 02 SM-TBL-G086 PIC X(9) VALUE '349162900'. 02 SM-TBL-G087 PIC X(9) VALUE '809162900'. 02 SM-TBL-G088 PIC X(9) VALUE '999162900'. 02 SM-TBL-G089 PIC X(9) VALUE '300748100'. 02 SM-TBL-G090 PIC X(9) VALUE '301748100'. 02 SM-TBL-G091 PIC X(9) VALUE '809191900'. 02 SM-TBL-G092 PIC X(9) VALUE '999999901'. 02 SM-TBL-G093 PIC X(9) VALUE '700192100'. 02 SM-TBL-G094 PIC X(9) VALUE '701192300'. 02 SM-TBL-G095 PIC X(9) VALUE '720192300'. 02 SM-TBL-G096 PIC X(9) VALUE '999192100'. 02 SM-TBL-G097 PIC X(9) VALUE '619600 00'. 02 SM-TBL-G098 PIC X(9) VALUE '999999902'. 01 SMALL-SEARCH REDEFINES SMALL-SEARCH-TABLE. 02 SM-ENTRY OCCURS 98 TIMES. 05 SM-SITE PIC 9(3). 05 SM-ICD9 PIC X(4). 05 SM-SEX-FLAG PIC X(1). 05 SM-COL PIC X(1). 01 ICDO2-SEX-SITE-TBL. 02 SEX-SITE-C000 PIC X(16) VALUE '1749175 17301730'. 02 SEX-SITE-C001 PIC X(16) VALUE '1749175 17301730'. 02 SEX-SITE-C002 PIC X(16) VALUE '1749175 17301730'. 02 SEX-SITE-C003 PIC X(16) VALUE '1749175 17301730'. 02 SEX-SITE-C004 PIC X(16) VALUE '1749175 17301730'. 02 SEX-SITE-C005 PIC X(16) VALUE '1749175 17301730'. 02 SEX-SITE-C006 PIC X(16) VALUE '1749175 17301730'. 02 SEX-SITE-C007 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C008 PIC X(16) VALUE '1749175 17301730'. 02 SEX-SITE-C009 PIC X(16) VALUE '1749175 17301730'. 02 SEX-SITE-C010 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C011 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C012 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C013 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C014 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C015 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C016 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C017 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C018 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C019 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C020 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C021 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C022 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C023 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C024 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C025 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C026 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C027 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C028 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C029 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C030 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C031 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C032 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C033 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C034 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C035 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C036 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C037 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C038 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C039 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C040 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C041 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C042 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C043 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C044 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C045 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C046 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C047 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C048 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C049 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C050 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C051 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C052 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C053 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C054 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C055 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C056 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C057 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C058 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C059 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C060 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C061 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C062 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C063 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C064 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C065 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C066 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C067 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C068 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C069 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C070 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C071 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C072 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C073 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C074 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C075 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C076 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C077 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C078 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C079 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C080 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C081 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C082 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C083 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C084 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C085 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C086 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C087 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C088 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C089 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C090 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C091 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C092 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C093 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C094 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C095 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C096 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C097 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C098 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C099 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C100 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C101 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C102 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C103 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C104 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C105 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C106 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C107 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C108 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C109 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C110 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C111 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C112 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C113 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C114 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C115 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C116 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C117 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C118 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C119 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C120 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C121 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C122 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C123 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C124 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C125 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C126 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C127 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C128 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C129 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C130 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C131 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C132 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C133 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C134 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C135 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C136 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C137 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C138 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C139 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C140 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C141 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C142 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C143 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C144 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C145 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C146 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C147 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C148 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C149 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C150 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C151 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C152 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C153 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C154 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C155 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C156 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C157 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C158 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C159 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C160 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C161 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C162 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C163 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C164 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C165 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C166 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C167 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C168 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C169 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C170 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C171 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C172 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C173 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C174 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C175 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C176 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C177 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C178 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C179 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C180 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C181 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C182 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C183 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C184 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C185 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C186 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C187 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C188 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C189 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C190 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C191 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C192 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C193 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C194 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C195 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C196 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C197 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C198 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C199 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C200 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C201 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C202 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C203 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C204 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C205 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C206 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C207 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C208 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C209 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C210 PIC X(16) VALUE '1749175 17351735'. 02 SEX-SITE-C211 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C212 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C213 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C214 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C215 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C216 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C217 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C218 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C219 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C220 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C221 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C222 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C223 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C224 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C225 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C226 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C227 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C228 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C229 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C230 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C231 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C232 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C233 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C234 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C235 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C236 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C237 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C238 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C239 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C240 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C241 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C242 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C243 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C244 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C245 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C246 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C247 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C248 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C249 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C250 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C251 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C252 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C253 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C254 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C255 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C256 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C257 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C258 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C259 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C260 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C261 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C262 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C263 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C264 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C265 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C266 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C267 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C268 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C269 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C270 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C271 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C272 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C273 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C274 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C275 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C276 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C277 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C278 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C279 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C280 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C281 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C282 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C283 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C284 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C285 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C286 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C287 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C288 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C289 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C290 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C291 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C292 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C293 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C294 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C295 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C296 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C297 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C298 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C299 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C300 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C301 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C302 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C303 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C304 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C305 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C306 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C307 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C308 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C309 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C310 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C311 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C312 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C313 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C314 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C315 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C316 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C317 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C318 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C319 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C320 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C321 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C322 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C323 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C324 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C325 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C326 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C327 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C328 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C329 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C330 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C331 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C332 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C333 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C334 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C335 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C336 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C337 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C338 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C339 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C340 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C341 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C342 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C343 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C344 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C345 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C346 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C347 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C348 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C349 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C350 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C351 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C352 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C353 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C354 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C355 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C356 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C357 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C358 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C359 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C360 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C361 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C362 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C363 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C364 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C365 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C366 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C367 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C368 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C369 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C370 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C371 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C372 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C373 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C374 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C375 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C376 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C377 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C378 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C379 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C380 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C381 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C382 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C383 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C384 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C385 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C386 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C387 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C388 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C389 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C390 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C391 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C392 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C393 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C394 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C395 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C396 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C397 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C398 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C399 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C400 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C401 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C402 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C403 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C404 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C405 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C406 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C407 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C408 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C409 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C410 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C411 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C412 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C413 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C414 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C415 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C416 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C417 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C418 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C419 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C420 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C421 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C422 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C423 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C424 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C425 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C426 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C427 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C428 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C429 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C430 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C431 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C432 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C433 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C434 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C435 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C436 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C437 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C438 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C439 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C440 PIC X(16) VALUE '1749175 17301730'. 02 SEX-SITE-C441 PIC X(16) VALUE '1749175 17311731'. 02 SEX-SITE-C442 PIC X(16) VALUE '1749175 17321732'. 02 SEX-SITE-C443 PIC X(16) VALUE '1749175 17331733'. 02 SEX-SITE-C444 PIC X(16) VALUE '1749175 17341734'. 02 SEX-SITE-C445 PIC X(16) VALUE '1749175 17351735'. 02 SEX-SITE-C446 PIC X(16) VALUE '1749175 17361736'. 02 SEX-SITE-C447 PIC X(16) VALUE '1749175 17371737'. 02 SEX-SITE-C448 PIC X(16) VALUE '1749175 17381738'. 02 SEX-SITE-C449 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C450 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C451 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C452 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C453 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C454 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C455 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C456 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C457 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C458 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C459 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C460 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C461 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C462 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C463 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C464 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C465 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C466 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C467 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C468 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C469 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C470 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C471 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C472 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C473 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C474 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C475 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C476 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C477 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C478 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C479 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C480 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C481 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C482 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C483 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C484 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C485 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C486 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C487 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C488 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C489 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C490 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C491 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C492 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C493 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C494 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C495 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C496 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C497 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C498 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C499 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C500 PIC X(16) VALUE '1740175 1740175 '. 02 SEX-SITE-C501 PIC X(16) VALUE '1741175 1741175 '. 02 SEX-SITE-C502 PIC X(16) VALUE '1742175 1742175 '. 02 SEX-SITE-C503 PIC X(16) VALUE '1743175 1743175 '. 02 SEX-SITE-C504 PIC X(16) VALUE '1744175 1744175 '. 02 SEX-SITE-C505 PIC X(16) VALUE '1745175 1745175 '. 02 SEX-SITE-C506 PIC X(16) VALUE '1746175 1746175 '. 02 SEX-SITE-C507 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C508 PIC X(16) VALUE '1748175 1748175 '. 02 SEX-SITE-C509 PIC X(16) VALUE '1749175 1749175 '. 02 SEX-SITE-C510 PIC X(16) VALUE '1749175 18411841'. 02 SEX-SITE-C511 PIC X(16) VALUE '1749175 18421842'. 02 SEX-SITE-C512 PIC X(16) VALUE '1749175 18431843'. 02 SEX-SITE-C513 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C514 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C515 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C516 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C517 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C518 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C519 PIC X(16) VALUE '1749175 18441844'. 02 SEX-SITE-C520 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C521 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C522 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C523 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C524 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C525 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C526 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C527 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C528 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C529 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C530 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C531 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C532 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C533 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C534 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C535 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C536 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C537 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C538 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C539 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C540 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C541 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C542 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C543 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C544 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C545 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C546 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C547 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C548 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C549 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C550 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C551 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C552 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C553 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C554 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C555 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C556 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C557 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C558 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C559 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C560 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C561 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C562 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C563 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C564 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C565 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C566 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C567 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C568 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C569 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C570 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C571 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C572 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C573 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C574 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C575 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C576 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C577 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C578 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C579 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C580 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C581 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C582 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C583 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C584 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C585 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C586 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C587 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C588 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C589 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C590 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C591 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C592 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C593 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C594 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C595 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C596 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C597 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C598 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C599 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C600 PIC X(16) VALUE '1749175 18711871'. 02 SEX-SITE-C601 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C602 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C603 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C604 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C605 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C606 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C607 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C608 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C609 PIC X(16) VALUE '1749175 18741874'. 02 SEX-SITE-C610 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C611 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C612 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C613 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C614 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C615 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C616 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C617 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C618 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C619 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C620 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C621 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C622 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C623 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C624 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C625 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C626 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C627 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C628 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C629 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C630 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C631 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C632 PIC X(16) VALUE '1749175 18771877'. 02 SEX-SITE-C633 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C634 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C635 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C636 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C637 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C638 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C639 PIC X(16) VALUE '1749175 18791879'. 02 SEX-SITE-C640 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C641 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C642 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C643 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C644 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C645 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C646 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C647 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C648 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C649 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C650 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C651 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C652 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C653 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C654 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C655 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C656 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C657 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C658 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C659 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C660 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C661 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C662 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C663 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C664 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C665 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C666 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C667 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C668 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C669 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C670 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C671 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C672 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C673 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C674 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C675 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C676 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C677 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C678 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C679 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C680 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C681 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C682 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C683 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C684 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C685 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C686 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C687 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C688 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C689 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C690 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C691 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C692 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C693 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C694 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C695 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C696 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C697 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C698 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C699 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C700 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C701 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C702 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C703 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C704 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C705 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C706 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C707 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C708 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C709 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C710 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C711 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C712 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C713 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C714 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C715 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C716 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C717 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C718 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C719 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C720 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C721 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C722 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C723 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C724 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C725 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C726 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C727 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C728 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C729 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C730 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C731 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C732 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C733 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C734 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C735 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C736 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C737 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C738 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C739 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C740 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C741 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C742 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C743 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C744 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C745 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C746 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C747 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C748 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C749 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C750 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C751 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C752 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C753 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C754 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C755 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C756 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C757 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C758 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C759 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C760 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C761 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C762 PIC X(16) VALUE '1749175 17351735'. 02 SEX-SITE-C763 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C764 PIC X(16) VALUE '1749175 17361736'. 02 SEX-SITE-C765 PIC X(16) VALUE '1749175 17371737'. 02 SEX-SITE-C766 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C767 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C768 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C769 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C770 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C771 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C772 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C773 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C774 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C775 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C776 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C777 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C778 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C779 PIC X(16) VALUE '1749175 17391739'. 02 SEX-SITE-C780 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C781 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C782 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C783 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C784 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C785 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C786 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C787 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C788 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C789 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C790 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C791 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C792 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C793 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C794 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C795 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C796 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C797 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C798 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C799 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C800 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C801 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C802 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C803 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C804 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C805 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C806 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C807 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C808 PIC X(16) VALUE '9999999999999999'. 02 SEX-SITE-C809 PIC X(16) VALUE '1749175 17391739'. 01 SEX-SITE-LOOKUP REDEFINES ICDO2-SEX-SITE-TBL. 02 SPEC-SEX-SITE OCCURS 810 TIMES. 03 FEMALE-ONE PIC X(4). 03 MALE-ONE PIC X(4). 03 FEMALE-TWO PIC X(4). 03 MALE-TWO PIC X(4). 01 SEX-SITE-SEARCH-TBL. 02 SEX-SITE-V01 PIC X(14) VALUE '54018211821000'. 02 SEX-SITE-V02 PIC X(14) VALUE '99918200000101'. 02 SEX-SITE-V03 PIC X(14) VALUE '809220 2220001'. 02 SEX-SITE-V04 PIC X(14) VALUE '99900000000200'. 02 SEX-SITE-V05 PIC X(14) VALUE '80923622364001'. 02 SEX-SITE-V06 PIC X(14) VALUE '99900000000400'. 02 SEX-SITE-V07 PIC X(14) VALUE '8091749175 011'. 02 SEX-SITE-V08 PIC X(14) VALUE '99900000000100'. 02 SEX-SITE-V09 PIC X(14) VALUE '9991749175 011'. 02 SEX-SITE-V10 PIC X(14) VALUE '9991740175 011'. 02 SEX-SITE-V11 PIC X(14) VALUE '80918301869001'. 02 SEX-SITE-V12 PIC X(14) VALUE '99900000000100'. 02 SEX-SITE-V13 PIC X(14) VALUE '809181 1869001'. 02 SEX-SITE-V14 PIC X(14) VALUE '99900000000100'. 01 SEX-SITE-SRCH REDEFINES SEX-SITE-SEARCH-TBL. 02 SEX-SITE-VALUES OCCURS 14 TIMES ASCENDING KEY SP-SITE-SEX INDEXED BY SPEC-SEX-NDX. 05 SP-SITE-SEX PIC 9(03). 05 SEX-SRCH-VAL PIC X(11). 01 ST-ALL-CM-SRCH-TBL. 02 ST-ALL-VAL01 PIC X(8) VALUE '4401760 '. 02 ST-ALL-VAL02 PIC X(8) VALUE '4411761 '. 02 ST-ALL-VAL03 PIC X(8) VALUE '4421762 '. 02 ST-ALL-VAL04 PIC X(8) VALUE '4431763 '. 02 ST-ALL-VAL05 PIC X(8) VALUE '4441764 '. 02 ST-ALL-VAL06 PIC X(8) VALUE '4451765 '. 02 ST-ALL-VAL07 PIC X(8) VALUE '4461766 '. 02 ST-ALL-VAL08 PIC X(8) VALUE '4471767 '. 02 ST-ALL-VAL09 PIC X(8) VALUE '4481768 '. 02 ST-ALL-VAL10 PIC X(8) VALUE '4491769 '. 02 ST-ALL-VAL11 PIC X(8) VALUE '5101768 '. 02 ST-ALL-VAL12 PIC X(8) VALUE '5111768 '. 02 ST-ALL-VAL13 PIC X(8) VALUE '5121768 '. 02 ST-ALL-VAL14 PIC X(8) VALUE '5191768 '. 02 ST-ALL-VAL15 PIC X(8) VALUE '6001768 '. 02 ST-ALL-VAL16 PIC X(8) VALUE '6091768 '. 02 ST-ALL-VAL17 PIC X(8) VALUE '6321768 '. 02 ST-ALL-VAL18 PIC X(8) VALUE '6391768 '. 01 ST-CM-TBLE REDEFINES ST-ALL-CM-SRCH-TBL. 05 ST-ALL-CM-ENTRY OCCURS 18 TIMES INDEXED BY ST-CM-INDEX. 10 ST-CM-SITE PIC 9(3). 10 ST-ALL-CM-ICD9 PIC X(5). 01 CM-SITES-TABLE. 02 CM-ET01 PIC X(28) VALUE '160 22809 2143 2369 2377 '. 02 CM-ET02 PIC X(28) VALUE '161 22809 2143 2369 2377 '. 02 CM-ET03 PIC X(28) VALUE '162 22809 2143 2369 2377 '. 02 CM-ET04 PIC X(28) VALUE '163 22809 2143 2369 2377 '. 02 CM-ET05 PIC X(28) VALUE '164 22809 2143 2369 2377 '. 02 CM-ET06 PIC X(28) VALUE '165 22809 2143 2369 2377 '. 02 CM-ET07 PIC X(28) VALUE '166 22809 2143 2369 2377 '. 02 CM-ET08 PIC X(28) VALUE '168 22809 2143 2369 2377 '. 02 CM-ET09 PIC X(28) VALUE '169 22809 2143 2369 2377 '. 02 CM-ET10 PIC X(28) VALUE '379 22809 2142 2369 2377 '. 02 CM-ET11 PIC X(28) VALUE '381 22809 2142 2369 2377 '. 02 CM-ET12 PIC X(28) VALUE '382 22809 2142 2369 2377 '. 02 CM-ET13 PIC X(28) VALUE '383 22809 2142 2369 2377 '. 02 CM-ET14 PIC X(28) VALUE '390 22809 2142 2369 2377 '. 02 CM-ET15 PIC X(28) VALUE '398 22809 2142 2369 2377 '. 02 CM-ET16 PIC X(28) VALUE '399 22809 2142 2369 2377 '. 02 CM-ET17 PIC X(28) VALUE '440 22801 2141 2369 2377 '. 02 CM-ET18 PIC X(28) VALUE '441 22801 2141 2369 2377 '. 02 CM-ET19 PIC X(28) VALUE '442 22801 2141 2369 2377 '. 02 CM-ET20 PIC X(28) VALUE '443 22801 2140 2369 2377 '. 02 CM-ET21 PIC X(28) VALUE '444 22801 2141 2369 2377 '. 02 CM-ET22 PIC X(28) VALUE '445 22801 2141 2369 2377 '. 02 CM-ET23 PIC X(28) VALUE '446 22801 2141 2369 2377 '. 02 CM-ET24 PIC X(28) VALUE '447 22801 2141 2369 2377 '. 02 CM-ET25 PIC X(28) VALUE '448 22801 2141 2369 2377 '. 02 CM-ET26 PIC X(28) VALUE '449 22801 2141 2369 2377 '. 02 CM-ET27 PIC X(28) VALUE '470 22809 2140 2369 2377 '. 02 CM-ET28 PIC X(28) VALUE '471 22801 2141 2369 2377 '. 02 CM-ET29 PIC X(28) VALUE '472 22801 2141 2369 2377 '. 02 CM-ET30 PIC X(28) VALUE '473 22801 2141 2369 2377 '. 02 CM-ET31 PIC X(28) VALUE '474 22801 2141 2369 2377 '. 02 CM-ET32 PIC X(28) VALUE '475 22801 2141 2369 2377 '. 02 CM-ET33 PIC X(28) VALUE '476 22801 2141 2369 2377 '. 02 CM-ET34 PIC X(28) VALUE '478 22801 2141 2369 2377 '. 02 CM-ET35 PIC X(28) VALUE '479 22801 2141 2369 2377 '. 02 CM-ET36 PIC X(28) VALUE '480 22804 2143 2369 2377 '. 02 CM-ET37 PIC X(28) VALUE '481 22804 2143 2369 2377 '. 02 CM-ET38 PIC X(28) VALUE '482 22804 2143 2369 2377 '. 02 CM-ET39 PIC X(28) VALUE '488 22809 2143 2369 2377 '. 02 CM-ET40 PIC X(28) VALUE '490 22809 2140 2369 2377 '. 02 CM-ET41 PIC X(28) VALUE '491 22801 2148 2369 2377 '. 02 CM-ET42 PIC X(28) VALUE '492 22801 2148 2369 2377 '. 02 CM-ET43 PIC X(28) VALUE '493 22801 2148 2369 2377 '. 02 CM-ET44 PIC X(28) VALUE '494 22801 2148 2369 2377 '. 02 CM-ET45 PIC X(28) VALUE '495 22801 2148 2369 2377 '. 02 CM-ET46 PIC X(28) VALUE '496 22801 2148 2369 2377 '. 02 CM-ET47 PIC X(28) VALUE '498 22801 2148 2369 2377 '. 02 CM-ET48 PIC X(28) VALUE '499 22801 2148 2369 2377 '. 02 CM-ET49 PIC X(28) VALUE '500 22809 2141 2369 2377 '. 02 CM-ET50 PIC X(28) VALUE '501 22809 2141 2369 2377 '. 02 CM-ET51 PIC X(28) VALUE '502 22809 2141 2369 2377 '. 02 CM-ET52 PIC X(28) VALUE '503 22809 2141 2369 2377 '. 02 CM-ET53 PIC X(28) VALUE '504 22809 2141 2369 2377 '. 02 CM-ET54 PIC X(28) VALUE '505 22809 2141 2369 2377 '. 02 CM-ET55 PIC X(28) VALUE '506 22809 2141 2369 2377 '. 02 CM-ET56 PIC X(28) VALUE '508 22809 2141 2369 2377 '. 02 CM-ET57 PIC X(28) VALUE '509 22809 2141 2369 2377 '. 02 CM-ET58 PIC X(28) VALUE '631 22809 2144 2369 2377 '. 02 CM-ET59 PIC X(28) VALUE '649 22809 2143 23691 2377 '. 02 CM-ET60 PIC X(28) VALUE '659 22809 2143 23699 2377 '. 02 CM-ET61 PIC X(28) VALUE '669 22809 2148 23691 2377 '. 02 CM-ET62 PIC X(28) VALUE '680 22809 2148 23699 2377 '. 02 CM-ET63 PIC X(28) VALUE '681 22809 2148 23699 2377 '. 02 CM-ET64 PIC X(28) VALUE '688 22809 2148 23690 2377 '. 02 CM-ET65 PIC X(28) VALUE '689 22809 2148 23690 2377 '. 02 CM-ET66 PIC X(28) VALUE '692 22803 2148 2369 2377 '. 02 CM-ET67 PIC X(28) VALUE '710 22802 2148 2369 2377 '. 02 CM-ET68 PIC X(28) VALUE '711 22802 2148 2369 2377 '. 02 CM-ET69 PIC X(28) VALUE '712 22802 2148 2369 2377 '. 02 CM-ET70 PIC X(28) VALUE '713 22802 2148 2369 2377 '. 02 CM-ET71 PIC X(28) VALUE '714 22802 2148 2369 2377 '. 02 CM-ET72 PIC X(28) VALUE '715 22802 2148 2369 2377 '. 02 CM-ET73 PIC X(28) VALUE '716 22802 2148 2369 2377 '. 02 CM-ET74 PIC X(28) VALUE '717 22802 2148 2369 2377 '. 02 CM-ET75 PIC X(28) VALUE '718 22802 2148 2369 2377 '. 02 CM-ET76 PIC X(28) VALUE '719 22802 2148 2369 2377 '. 02 CM-ET77 PIC X(28) VALUE '724 22809 2148 2369 23772 '. 02 CM-ET78 PIC X(28) VALUE '739 22809 2142 2369 2377 '. 02 CM-ET79 PIC X(28) VALUE '760 22809 2140 2369 2377 '. 02 CM-ET80 PIC X(28) VALUE '761 22809 2142 2369 2377 '. 02 CM-ET81 PIC X(28) VALUE '762 22804 2143 2369 2377 '. 02 CM-ET82 PIC X(28) VALUE '809 22800 2149 2369 2377 '. 02 CM-ET83 PIC X(28) VALUE '999 22809 2148 2369 2377 '. 01 ALL-CM-LIST REDEFINES CM-SITES-TABLE. 02 CM-ALL-SITES-ENTRY OCCURS 83 TIMES ASCENDING KEY CM-ALL-SITE INDEXED BY CM-INDEX. 05 CM-ALL-SITE PIC 9(3). 05 CM-FILLER PIC X(1). 05 CM-ALL-CONV PIC X(24). 01 NINE-SRCH-TABLE. 02 SPEC-NINE-VAL01 PIC X(13) VALUE '470 1710 1710'. 02 SPEC-NINE-VAL02 PIC X(13) VALUE '471 1711 1712'. 02 SPEC-NINE-VAL03 PIC X(13) VALUE '472 1712 1713'. 02 SPEC-NINE-VAL04 PIC X(13) VALUE '473 1713 1714'. 02 SPEC-NINE-VAL05 PIC X(13) VALUE '474 1714 1715'. 02 SPEC-NINE-VAL06 PIC X(13) VALUE '475 1715 1716'. 02 SPEC-NINE-VAL07 PIC X(13) VALUE '476 1716 1717'. 02 SPEC-NINE-VAL08 PIC X(13) VALUE '478 1718 1718'. 02 SPEC-NINE-VAL09 PIC X(13) VALUE '479 1719 1719'. 02 SPEC-NINE-VAL10 PIC X(13) VALUE '482 1589 1976'. 02 SPEC-NINE-VAL11 PIC X(13) VALUE '490 1710 1710'. 02 SPEC-NINE-VAL12 PIC X(13) VALUE '491 1711 1712'. 02 SPEC-NINE-VAL13 PIC X(13) VALUE '492 1712 1713'. 02 SPEC-NINE-VAL14 PIC X(13) VALUE '493 1713 1714'. 02 SPEC-NINE-VAL15 PIC X(13) VALUE '494 1714 1715'. 02 SPEC-NINE-VAL16 PIC X(13) VALUE '495 1715 1716'. 02 SPEC-NINE-VAL17 PIC X(13) VALUE '496 1716 1717'. 02 SPEC-NINE-VAL18 PIC X(13) VALUE '498 1718 1718'. 02 SPEC-NINE-VAL19 PIC X(13) VALUE '499 1719 1719'. 02 SPEC-NINE-VAL20 PIC X(13) VALUE '809 1719 1990'. 02 SPEC-NINE-VAL21 PIC X(13) VALUE '999 0000 0000'. 01 NINE-SRCH-LIST REDEFINES NINE-SRCH-TABLE. 02 NINE-ENTRY OCCURS 21 TIMES ASCENDING KEY SITE-NINE-BEH INDEXED BY NINE-NDX. 05 SITE-NINE-BEH PIC 9(3). 05 NINE-FILLER PIC X(1). 05 H8800-ICD9 PIC X(4). 05 NINE-FILLER2 PIC X(1). 05 H8010-ICD9 PIC X(4). LINKAGE SECTION. 01 SITE-MORPH-LINK-AREA. 03 ICDO2-SEX PIC X(01). 88 MALE VALUE '1'. 88 FEMALE VALUE '2'. 88 OTHER-SEX VALUES '3' '4' '9'. 03 ICDO2-SITE. 05 ICDO2-SITE-HEADER PIC X(01). 88 VALID-ICDO2-CANCER VALUE 'C'. 05 ICDO2-SITE-CODE PIC 9(03). 88 VALID-SITE VALUES 000 THRU 809. 03 SP-ICDO2-SITE REDEFINES ICDO2-SITE. 05 SITE-ICDO2-PART1 PIC X(3). 05 SITE-ICDO2-PART2 PIC X(1). 03 ICDO2-MORPH. 05 HIST-CODE PIC 9(04). 88 VALID-HIST VALUES 8000 THRU 9999. 05 BEHAVIOR PIC 9(01). 88 VALID-BEH VALUES 0 THRU 3, 6, 9. 05 GRADE PIC X(01). 03 ICD9-CONV-AREA. 05 ICD9-OUT. 07 ICD9-OUT-MAIN PIC X(3). 07 ICD9-OUT-EXTEN PIC X(1). 05 ICD9-CM-OUT. 07 ICD9-CM-MAIN PIC X(4). 07 ICD9-CM-EXTEN PIC X(1). 05 MATRIX-TERM PIC X(1). 05 HAND-REVIEW-ICD9 PIC X(1). 05 HAND-REVIEW-CM PIC X(1). 05 INVALID-SEX PIC X(1). 05 INVALID-SITE PIC X(1). 05 INVALID-HIST-BEH PIC X(1). PROCEDURE DIVISION USING SITE-MORPH-LINK-AREA. MOVE '999999999000000' TO ICD9-CONV-AREA. IF ((ICDO2-SITE-CODE NOT NUMERIC) OR (NOT VALID-SITE) OR (NOT VALID-ICDO2-CANCER)) MOVE '1' TO INVALID-SITE GO TO ICD9-CONV-EXIT ELSE IF ((ICDO2-MORPH NOT NUMERIC) OR (NOT VALID-HIST) OR (NOT VALID-BEH)) MOVE '1' TO INVALID-HIST-BEH GO TO ICD9-CONV-EXIT ELSE IF ((NOT MALE) AND (NOT FEMALE) AND (NOT OTHER-SEX)) MOVE '1' TO INVALID-SEX GO TO ICD9-CONV-EXIT ELSE IF (BEHAVIOR = 9) IF ((HIST-CODE = 8800) OR (HIST-CODE = 8010)) PERFORM NINE-LOOKUP THRU NINE-LOOKUP-EXIT GO TO ICD9-CONV-EXIT ELSE MOVE '1' TO HAND-REVIEW-ICD9 GO TO ICD9-CONV-EXIT. * * CONVERT ICD-O-2 TOPOGRAPHY/MORPHOLOGY/SEX CODES INTO * AN ICD-9 CATEGORY. * * COMPUTE BEH-SUB = BEHAVIOR + 1. COMPUTE SITE-SUB = ICDO2-SITE-CODE + 1. COMPUTE HIST-SUB = HIST-CODE - 7999. MOVE HIST-CONV ( HIST-SUB, BEH-SUB) TO TEMP-MORPH-CELL. IF (DIRECTION = 0) PERFORM SITE-TBL-LOOKUP THRU SITE-LOOKUP-EXIT MOVE '1' TO MATRIX-TERM ELSE IF (DIRECTION = 1) PERFORM SITE-TBL-LOOKUP THRU SITE-LOOKUP-EXIT ELSE IF (DIRECTION = 2) IF (ICDO2-SEX = SEX-FLAG OR SEX-FLAG = '0') AND (ICDO2-SITE-CODE = 809) MOVE TEMP-ICD9-CODE TO ICD9-OUT ICD9-CM-MAIN MOVE SPACE TO ICD9-CM-EXTEN ELSE PERFORM SITE-TBL-LOOKUP THRU SITE-LOOKUP-EXIT ELSE IF (DIRECTION = 3) IF (ICDO2-SEX = SEX-FLAG) OR (SEX-FLAG = '0') MOVE SITE-BEH-ENTRY ( SITE-SUB, 1 ) TO TMP-SITE-HOLD IF (SITE-ICD9 NOT = '9999') MOVE TEMP-ICD9-CODE TO ICD9-OUT PERFORM ALL-SITES-RANGE THRU ALL-RANGE-EXIT IF (CM-FLAG = '1') IF (BEHAVIOR = 3) MOVE '1' TO HAND-REVIEW-CM MOVE TEMP-ICD9-CODE TO ICD9-CM-MAIN MOVE SPACE TO ICD9-CM-EXTEN ELSE PERFORM ALL-SITES-CM THRU ALL-CM-EXIT ELSE MOVE ICD9-OUT TO ICD9-CM-MAIN MOVE SPACE TO ICD9-CM-EXTEN ELSE MOVE '1' TO INVALID-SITE ELSE MOVE '1' TO INVALID-SEX ELSE IF (DIRECTION = 4) PERFORM SPECIFIC-LOOKUP THRU SPECIFIC-LOOKUP-EXIT ELSE IF (DIRECTION = 5) PERFORM SEX-SPEC-LOOKUP THRU SEX-SPEC-EXIT ELSE IF (DIRECTION = 6) MOVE 'NO ' TO FOUND-VALUE MOVE TMP-COL TO G6-SUB PERFORM SMALL-G6-LOOKUP THRU SMALL-G6-LOOKUP-EXIT UNTIL DID-FIND IF (SM-ICD9 ( G6-SUB ) = '9999') MOVE SM-COL ( G6-SUB ) TO COL-LOC PERFORM SITE-TBL-LOOKUP THRU SITE-LOOKUP-EXIT ELSE IF (SM-SITE ( G6-SUB ) = '999') MOVE SITE-BEH-ENTRY (SITE-SUB, 1) TO TMP-SITE-HOLD IF (SITE-ICD9 = '9999') MOVE '1' TO INVALID-SITE ELSE MOVE SM-ICD9 (G6-SUB) TO ICD9-OUT ICD9-CM-MAIN MOVE SPACE TO ICD9-CM-EXTEN ELSE IF (SM-SEX-FLAG (G6-SUB) = '1') AND (NOT MALE) MOVE '1' TO INVALID-SEX ELSE MOVE SM-ICD9 ( G6-SUB ) TO ICD9-OUT ICD9-CM-MAIN MOVE SPACE TO ICD9-CM-EXTEN ELSE IF (DIRECTION = 9) MOVE '1' TO INVALID-HIST-BEH GO TO ICD9-CONV-EXIT. ICD9-CONV-EXIT. GOBACK. SITE-TBL-LOOKUP. MOVE SITE-BEH-ENTRY ( SITE-SUB, COL-LOC) TO TMP-SITE-HOLD. IF (SITE-SEX-FLAG = '1') IF (MALE) COMPUTE MALE-SUB = ICDO2-SITE-CODE - 499 MOVE SITE-MALE-BEH-ENTRY ( MALE-SUB, COL-LOC ) TO TMP-SITE-HOLD ELSE IF (OTHER-SEX) MOVE '99999001' TO TMP-SITE-HOLD MOVE '1' TO INVALID-SEX. MOVE SITE-ICD9 TO ICD9-OUT ICD9-CM-MAIN. MOVE SITE-CM-EXT TO ICD9-CM-EXTEN. IF (FLAG-Q = '1') OR (FLAG-LB = '1') MOVE '1' TO HAND-REVIEW-ICD9 ELSE IF ((SITE-ICD9 = '9999') AND (SITE-SEX-FLAG = '0')) MOVE '1' TO INVALID-SITE. SITE-LOOKUP-EXIT. SPECIFIC-LOOKUP. PERFORM SRCH-TABLE1-AREA THRU SRCH-TABLE1-EXIT. IF (TBL1-ICD9 ( TMP-COL ) = '9999') MOVE TBL1-COL (TMP-COL) TO COL-LOC PERFORM SITE-TBL-LOOKUP THRU SITE-LOOKUP-EXIT ELSE MOVE SITE-BEH-ENTRY ( SITE-SUB, 1 ) TO TMP-SITE-HOLD IF (SITE-ICD9 = '9999') MOVE '1' TO INVALID-SITE ELSE MOVE TBL1-ICD9 (TMP-COL) TO ICD9-OUT IF (TBL1-CM-FLAG (TMP-COL) = '1') IF (TMP-COL = 12) MOVE '2189 ' TO ICD9-CM-OUT ELSE PERFORM GET-SPEC-CM THRU GET-SPEC-CM-EXIT ELSE IF ((TMP-COL = 15) AND (ICDO2-SITE-CODE > 499) AND (ICDO2-SITE-CODE < 510)) MOVE 1 TO COL-LOC PERFORM SITE-TBL-LOOKUP THRU SITE-LOOKUP-EXIT ELSE MOVE TBL1-ICD9 (TMP-COL) TO ICD9-CM-MAIN MOVE SPACE TO ICD9-CM-EXTEN. SPECIFIC-LOOKUP-EXIT. SEX-SPEC-LOOKUP. IF (TMP-GROUP = 1) IF (MALE) MOVE MALE-ONE ( SITE-SUB ) TO ICD9-OUT IF (ICD9-OUT = '175 ') MOVE '175 ' TO ICD9-CM-OUT MOVE '1' TO HAND-REVIEW-CM ELSE MOVE MALE-ONE ( SITE-SUB ) TO ICD9-CM-MAIN MOVE SPACE TO ICD9-CM-EXTEN PERFORM CHECK-SITE THRU CHECK-SITE-EXIT ELSE IF (FEMALE) MOVE FEMALE-ONE (SITE-SUB) TO ICD9-OUT ICD9-CM-MAIN MOVE SPACE TO ICD9-CM-EXTEN PERFORM CHECK-SITE THRU CHECK-SITE-EXIT ELSE MOVE '1' TO INVALID-SEX ELSE IF (TMP-GROUP = 2) IF (MALE) MOVE MALE-TWO ( SITE-SUB ) TO ICD9-OUT IF (ICD9-OUT = '175 ') MOVE '175 ' TO ICD9-CM-OUT MOVE '1' TO HAND-REVIEW-CM ELSE MOVE MALE-TWO ( SITE-SUB ) TO ICD9-CM-MAIN MOVE SPACE TO ICD9-CM-EXTEN PERFORM CHECK-SITE THRU CHECK-SITE-EXIT ELSE IF (FEMALE) MOVE FEMALE-TWO (SITE-SUB) TO ICD9-OUT ICD9-CM-MAIN MOVE SPACE TO ICD9-CM-EXTEN PERFORM CHECK-SITE THRU CHECK-SITE-EXIT ELSE IF (SITE-ICDO2-PART1 = 'C50') MOVE '1' TO INVALID-SEX ELSE MOVE FEMALE-TWO (SITE-SUB) TO ICD9-OUT MOVE FEMALE-TWO (SITE-SUB) TO ICD9-CM-MAIN MOVE SPACE TO ICD9-CM-EXTEN PERFORM CHECK-SITE THRU CHECK-SITE-EXIT ELSE IF ((SP-SITE-SEX ( TMP-COL ) = ICDO2-SITE-CODE) OR (SP-SITE-SEX ( TMP-COL ) = 999)) MOVE SEX-SRCH-VAL (TMP-COL) TO SPEC-SEX-ICD9 PERFORM ADD-SEX-SP THRU ADD-SEX-EXIT ELSE ADD 1 TO TMP-COL MOVE SEX-SRCH-VAL (TMP-COL) TO SPEC-SEX-ICD9 PERFORM ADD-SEX-SP THRU ADD-SEX-EXIT. SEX-SPEC-EXIT. ADD-SEX-SP. IF ((SPEC-SEX-CHECK = '1') AND (OTHER-SEX)) MOVE '1' TO INVALID-SEX ELSE IF (FEMALE) IF (SPEC-FEMALE-ICD9 = '0000') MOVE SPEC-SEX-COL TO COL-LOC PERFORM SITE-TBL-LOOKUP THRU SITE-LOOKUP-EXIT ELSE MOVE SPEC-FEMALE-ICD9 TO ICD9-OUT ICD9-CM-MAIN MOVE SPACE TO ICD9-CM-EXTEN ELSE IF (SPEC-MALE-ICD9 = '0000') MOVE SPEC-SEX-COL TO COL-LOC PERFORM SITE-TBL-LOOKUP THRU SITE-LOOKUP-EXIT ELSE MOVE SPEC-MALE-ICD9 TO ICD9-OUT ICD9-CM-MAIN IF (SPEC-SEX-CM = '1') MOVE '175 ' TO ICD9-CM-OUT MOVE '1' TO HAND-REVIEW-CM ELSE MOVE SPACE TO ICD9-CM-EXTEN. ADD-SEX-EXIT. CHECK-SITE. IF (ICD9-OUT = '9999') MOVE '99999' TO ICD9-CM-OUT MOVE '1' TO INVALID-SITE. CHECK-SITE-EXIT. SMALL-G6-LOOKUP. IF ((SM-SITE ( G6-SUB ) = ICDO2-SITE-CODE) OR (SM-SITE ( G6-SUB ) = 999)) MOVE 'YES' TO FOUND-VALUE ELSE ADD 1 TO G6-SUB. SMALL-G6-LOOKUP-EXIT. GET-SPEC-CM. SET ST-CM-INDEX TO 1. SEARCH ST-ALL-CM-ENTRY AT END MOVE '1760 ' TO ICD9-CM-OUT WHEN ST-CM-SITE ( ST-CM-INDEX ) IS EQUAL TO ICDO2-SITE-CODE MOVE ST-ALL-CM-ICD9 ( ST-CM-INDEX ) TO ICD9-CM-OUT. GET-SPEC-CM-EXIT. ALL-SITES-CM. SEARCH ALL CM-ALL-SITES-ENTRY AT END MOVE CM-ALL-CONV ( 83 ) TO SPEC-CM-ARRAY WHEN CM-ALL-SITE ( CM-INDEX ) IS EQUAL TO ICDO2-SITE-CODE MOVE CM-ALL-CONV ( CM-INDEX ) TO SPEC-CM-ARRAY. MOVE SPEC-CM-VAL ( COL-LOC ) TO ICD9-CM-OUT. IF (ICD9-CM-OUT = '2377 ') MOVE '1' TO HAND-REVIEW-CM. ALL-CM-EXIT. SRCH-TABLE1-AREA. SEARCH ALL TABLE1-ENTRY AT END MOVE 'END' TO FOUND-VALUE WHEN TABLE1-SITE (TBL1-NDX) IS EQUAL TO ICDO2-SITE-CODE MOVE 'YES' TO FOUND-VALUE. IF DID-NOT-FIND-VALUE MOVE TABLE1-CONV ( 72 ) TO TBL1-ARRAY ELSE MOVE TABLE1-CONV ( TBL1-NDX ) TO TBL1-ARRAY. SRCH-TABLE1-EXIT. ALL-SITES-RANGE. IF (TEMP-ICD9-PART2 = '_') MOVE SITE-ICDO2-PART2 TO ICD9-OUT-EXTEN. ALL-RANGE-EXIT. NINE-LOOKUP. SET NINE-NDX TO 1. SEARCH NINE-ENTRY AT END MOVE 'END' TO FOUND-VALUE WHEN SITE-NINE-BEH ( NINE-NDX ) IS EQUAL TO ICDO2-SITE-CODE MOVE 'YES' TO FOUND-VALUE. IF DID-FIND MOVE SPACE TO ICD9-CM-EXTEN IF (HIST-CODE = 8800) MOVE H8800-ICD9 (NINE-NDX) TO ICD9-OUT ICD9-CM-MAIN ELSE MOVE H8010-ICD9 (NINE-NDX) TO ICD9-OUT ICD9-CM-MAIN ELSE MOVE 1 TO COL-LOC COMPUTE SITE-SUB = ICDO2-SITE-CODE + 1 PERFORM SITE-TBL-LOOKUP THRU SITE-LOOKUP-EXIT. NINE-LOOKUP-EXIT. //STEP3 EXEC CBL3LKMM,OPTIONS=NCAL, // NAME='NGN1YZJ.SEER.ICDO2.REC370.OBJLIB', // PROGRAM=ICD2TO9