//NS4C2T10 JOB (NGN1,653,A),NAME
//* LINES OF CODE (NON TABLE) 1/90 354/379 424/461 726/727
//*                           4444/4463 9129/9157 10768/L
//* LINES TO REPLACE TABLES 809-77/367. 809S-368/437. M-438/4450.
//*                         SP-4451/9143. ST-9144/10776.
//STEP1 EXEC CBL3COMP,OPTIONS='SIZE(MAX)'
//SYSIN  DD *
       IDENTIFICATION DIVISION.
      *
      *  FR2TO10 CONVERT
      *  6/16/98
      *
       PROGRAM-ID.
           FR2TO10.
       ENVIRONMENT DIVISION.
       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  SITE-NUMERIC          PIC S9(4) COMP SYNC.
       77  HIST-NUMERIC          PIC S9(4) COMP SYNC.
       77  BEH-NUMERIC           PIC S9(4) COMP SYNC.
 
 
      *****************************************************
      *                                                   *
      * CONVERTS ICD-O-2 MORPH/BEH TO MOST COMMON ICD-10  *
      *  SITE-FLAG -> NEED TO SEARCH SITE TABLE           *
      *  SPEC-FLAG -> NEED TO SEARCH SPECIAL HIST/SITE    *
      *               CONVERSION TABLE                    *
      *  SEX-CODE  -> IF SEX BASED, WHICH SEX IS NEEDED   *
      *  MOD-BEH-FLAG -> IF BEH CODE NEEDS TO BE MODIFIED *
      *                  PRIOR TO SEARCHING SITE TABLE    *
      *                                                   *
      *****************************************************
 
       01  TEMP-HIST-CELL.
           03  ICD10-HIST                      PIC X(4).
           03  SITE-FLAG                       PIC X(1).
           03  SPEC-FLAG                       PIC X(1).
           03  SEX-CODE                        PIC X(1).
           03  MOD-BEH-FLAG                    PIC X(1).
 
      *****************************************************
      *                                                   *
      * CONVERTS ICD-O-2 SITE/BEH TO ICD-10               *
      *  SEX2-CODE -> IF SEX BASED, WHICH SEX IS NEEDED   *
      *                                                   *
      *****************************************************
 
       01  TEMP-SITE-CELL.
           03  ICD10-SITE                      PIC X(4).
           03  SEX2-CODE                       PIC X(1).
 
      *****************************************************
      *                                                   *
      * FOUND FLAG FOR CONVERT-C809, CONVERT-C809-SEX AND *
      * CONVERT-SPECIAL SEARCH TABLES.                    *
      * SEX-FLAG FOR SEX BASED CONVERSIONS.               *
      *                                                   *
      *****************************************************
 
       01  FOUND-FLAG                          PIC X(3).
                  88  FOUND       VALUE 'YES'.
                  88  NOT-FOUND   VALUE 'END'.
 
       01  SEX-FLAG                            PIC X(1).
                  88  MALE-FLAG   VALUE '1'.
                  88  FEM-FLAG    VALUE '2'.
                  88  SEX-BASED-FLAG   VALUE '9'.
 
 
      * TABLES - C809, C809-SEX, MORPH, SPECIAL, SITE.    *
 
      *****************************************************
      *                                                   *
      * CONVERTS ICD-O-2 HIST/BEH FOR C809 TO ICD-10      *
      *  SEX3-CODE -> IF SEX BASED, WHICH SEX IS NEEDED   *
      *               SEX=9 INDICATES DIFFERENT ICD-10    *
      *               BY SEX, SEARCH C809-SEX-TABLE.      *
      *                                                   *
      *****************************************************
 
       01  C809.
           03  FILLER PIC X(10) VALUE '80423C349 '.
           03  FILLER PIC X(10) VALUE '80433C349 '.
           03  FILLER PIC X(10) VALUE '80443C349 '.
           03  FILLER PIC X(10) VALUE '80453C349 '.
           03  FILLER PIC X(10) VALUE '80762D0699'.
           03  FILLER PIC X(10) VALUE '80763C5399'.
           03  FILLER PIC X(10) VALUE '80802D074 '.
           03  FILLER PIC X(10) VALUE '81210D140 '.
           03  FILLER PIC X(10) VALUE '81213C300 '.
           03  FILLER PIC X(10) VALUE '81243C212 '.
           03  FILLER PIC X(10) VALUE '81443C169 '.
           03  FILLER PIC X(10) VALUE '81453C169 '.
           03  FILLER PIC X(10) VALUE '81473C089 '.
           03  FILLER PIC X(10) VALUE '81500D137 '.
           03  FILLER PIC X(10) VALUE '81503C259 '.
           03  FILLER PIC X(10) VALUE '81510D137 '.
           03  FILLER PIC X(10) VALUE '81513C259 '.
           03  FILLER PIC X(10) VALUE '81520D137 '.
           03  FILLER PIC X(10) VALUE '81523C259 '.
           03  FILLER PIC X(10) VALUE '81531D377 '.
           03  FILLER PIC X(10) VALUE '81533C259 '.
           03  FILLER PIC X(10) VALUE '81543C259 '.
           03  FILLER PIC X(10) VALUE '81600D134 '.
           03  FILLER PIC X(10) VALUE '81603C221 '.
           03  FILLER PIC X(10) VALUE '82020D137 '.
           03  FILLER PIC X(10) VALUE '82200D126 '.
           03  FILLER PIC X(10) VALUE '82433C181 '.
           03  FILLER PIC X(10) VALUE '82700D352 '.
           03  FILLER PIC X(10) VALUE '82703C751 '.
           03  FILLER PIC X(10) VALUE '82710D352 '.
           03  FILLER PIC X(10) VALUE '82800D352 '.
           03  FILLER PIC X(10) VALUE '82803C751 '.
           03  FILLER PIC X(10) VALUE '82810D352 '.
           03  FILLER PIC X(10) VALUE '82813C751 '.
           03  FILLER PIC X(10) VALUE '83000D352 '.
           03  FILLER PIC X(10) VALUE '83003C751 '.
           03  FILLER PIC X(10) VALUE '83300D34  '.
           03  FILLER PIC X(10) VALUE '83303C73  '.
           03  FILLER PIC X(10) VALUE '83330D34  '.
           03  FILLER PIC X(10) VALUE '83340D34  '.
           03  FILLER PIC X(10) VALUE '83601D448 '.
           03  FILLER PIC X(10) VALUE '8380399999'.
           03  FILLER PIC X(10) VALUE '84410D27 9'.
           03  FILLER PIC X(10) VALUE '84413C56 9'.
           03  FILLER PIC X(10) VALUE '84423C56 9'.
           03  FILLER PIC X(10) VALUE '84500D27 9'.
           03  FILLER PIC X(10) VALUE '84503C56 9'.
           03  FILLER PIC X(10) VALUE '84513C56 9'.
           03  FILLER PIC X(10) VALUE '84521D3799'.
           03  FILLER PIC X(10) VALUE '84600D27 9'.
           03  FILLER PIC X(10) VALUE '84603C56 9'.
           03  FILLER PIC X(10) VALUE '84610D27 9'.
           03  FILLER PIC X(10) VALUE '84613C56 9'.
           03  FILLER PIC X(10) VALUE '84623C56 9'.
           03  FILLER PIC X(10) VALUE '84700D27 9'.
           03  FILLER PIC X(10) VALUE '84703C56 9'.
           03  FILLER PIC X(10) VALUE '84710D27 9'.
           03  FILLER PIC X(10) VALUE '84713C56 9'.
           03  FILLER PIC X(10) VALUE '84723C56 9'.
           03  FILLER PIC X(10) VALUE '84733C56 9'.
           03  FILLER PIC X(10) VALUE '85002D051 '.
           03  FILLER PIC X(10) VALUE '85003C509 '.
           03  FILLER PIC X(10) VALUE '85012D057 '.
           03  FILLER PIC X(10) VALUE '85022D059 '.
           03  FILLER PIC X(10) VALUE '85032D051 '.
           03  FILLER PIC X(10) VALUE '85033C509 '.
           03  FILLER PIC X(10) VALUE '85113C73  '.
           03  FILLER PIC X(10) VALUE '85123C509 '.
           03  FILLER PIC X(10) VALUE '85202D050 '.
           03  FILLER PIC X(10) VALUE '85203C509 '.
           03  FILLER PIC X(10) VALUE '85213C509 '.
           03  FILLER PIC X(10) VALUE '85222D057 '.
           03  FILLER PIC X(10) VALUE '85302D059 '.
           03  FILLER PIC X(10) VALUE '85303C509 '.
           03  FILLER PIC X(10) VALUE '85412D059 '.
           03  FILLER PIC X(10) VALUE '85610D119 '.
           03  FILLER PIC X(10) VALUE '8630099999'.
           03  FILLER PIC X(10) VALUE '8630199999'.
           03  FILLER PIC X(10) VALUE '8630399999'.
           03  FILLER PIC X(10) VALUE '8631099999'.
           03  FILLER PIC X(10) VALUE '8631399999'.
           03  FILLER PIC X(10) VALUE '8632199999'.
           03  FILLER PIC X(10) VALUE '8632399999'.
           03  FILLER PIC X(10) VALUE '8640099999'.
           03  FILLER PIC X(10) VALUE '8640399999'.
           03  FILLER PIC X(10) VALUE '8641099999'.
           03  FILLER PIC X(10) VALUE '8650099999'.
           03  FILLER PIC X(10) VALUE '8650199999'.
           03  FILLER PIC X(10) VALUE '8650399999'.
           03  FILLER PIC X(10) VALUE '86801D447 '.
           03  FILLER PIC X(10) VALUE '86803C755 '.
           03  FILLER PIC X(10) VALUE '86811D447 '.
           03  FILLER PIC X(10) VALUE '86821D447 '.
           03  FILLER PIC X(10) VALUE '86830D132 '.
           03  FILLER PIC X(10) VALUE '86931D447 '.
           03  FILLER PIC X(10) VALUE '86933C755 '.
           03  FILLER PIC X(10) VALUE '87000D350 '.
           03  FILLER PIC X(10) VALUE '87003C741 '.
           03  FILLER PIC X(10) VALUE '87103C499 '.
           03  FILLER PIC X(10) VALUE '87113C499 '.
           03  FILLER PIC X(10) VALUE '87202D039 '.
           03  FILLER PIC X(10) VALUE '87203C439 '.
           03  FILLER PIC X(10) VALUE '87212D039 '.
           03  FILLER PIC X(10) VALUE '87213C439 '.
           03  FILLER PIC X(10) VALUE '87222D039 '.
           03  FILLER PIC X(10) VALUE '87223C439 '.
           03  FILLER PIC X(10) VALUE '87233C439 '.
           03  FILLER PIC X(10) VALUE '87260D314 '.
           03  FILLER PIC X(10) VALUE '87302D039 '.
           03  FILLER PIC X(10) VALUE '87303C439 '.
           03  FILLER PIC X(10) VALUE '87402D039 '.
           03  FILLER PIC X(10) VALUE '87403C439 '.
           03  FILLER PIC X(10) VALUE '87412D039 '.
           03  FILLER PIC X(10) VALUE '87413C439 '.
           03  FILLER PIC X(10) VALUE '87422D039 '.
           03  FILLER PIC X(10) VALUE '87423C439 '.
           03  FILLER PIC X(10) VALUE '87432D039 '.
           03  FILLER PIC X(10) VALUE '87433C439 '.
           03  FILLER PIC X(10) VALUE '87442D039 '.
           03  FILLER PIC X(10) VALUE '87443C439 '.
           03  FILLER PIC X(10) VALUE '87453C439 '.
           03  FILLER PIC X(10) VALUE '87612D039 '.
           03  FILLER PIC X(10) VALUE '87613C439 '.
           03  FILLER PIC X(10) VALUE '87703C439 '.
           03  FILLER PIC X(10) VALUE '87713C439 '.
           03  FILLER PIC X(10) VALUE '87723C439 '.
           03  FILLER PIC X(10) VALUE '87803C439 '.
           03  FILLER PIC X(10) VALUE '88000D219 '.
           03  FILLER PIC X(10) VALUE '88003C499 '.
           03  FILLER PIC X(10) VALUE '88009C499 '.
           03  FILLER PIC X(10) VALUE '88013C499 '.
           03  FILLER PIC X(10) VALUE '88023C499 '.
           03  FILLER PIC X(10) VALUE '88033C499 '.
           03  FILLER PIC X(10) VALUE '88043C499 '.
           03  FILLER PIC X(10) VALUE '88100D219 '.
           03  FILLER PIC X(10) VALUE '88103C499 '.
           03  FILLER PIC X(10) VALUE '88110D219 '.
           03  FILLER PIC X(10) VALUE '88113C499 '.
           03  FILLER PIC X(10) VALUE '88130D219 '.
           03  FILLER PIC X(10) VALUE '88133C499 '.
           03  FILLER PIC X(10) VALUE '88143C499 '.
           03  FILLER PIC X(10) VALUE '88200D219 '.
           03  FILLER PIC X(10) VALUE '88211D481 '.
           03  FILLER PIC X(10) VALUE '88213C499 '.
           03  FILLER PIC X(10) VALUE '88221D481 '.
           03  FILLER PIC X(10) VALUE '88231D481 '.
           03  FILLER PIC X(10) VALUE '88241D481 '.
           03  FILLER PIC X(10) VALUE '88300D219 '.
           03  FILLER PIC X(10) VALUE '88301D481 '.
           03  FILLER PIC X(10) VALUE '88303C499 '.
           03  FILLER PIC X(10) VALUE '88400D219 '.
           03  FILLER PIC X(10) VALUE '88403C499 '.
           03  FILLER PIC X(10) VALUE '88411D481 '.
           03  FILLER PIC X(10) VALUE '88503C499 '.
           03  FILLER PIC X(10) VALUE '88513C499 '.
           03  FILLER PIC X(10) VALUE '88523C499 '.
           03  FILLER PIC X(10) VALUE '88533C499 '.
           03  FILLER PIC X(10) VALUE '88543C499 '.
           03  FILLER PIC X(10) VALUE '88553C499 '.
           03  FILLER PIC X(10) VALUE '88583C499 '.
           03  FILLER PIC X(10) VALUE '88603C499 '.
           03  FILLER PIC X(10) VALUE '88900D219 '.
           03  FILLER PIC X(10) VALUE '88901D481 '.
           03  FILLER PIC X(10) VALUE '88903C499 '.
           03  FILLER PIC X(10) VALUE '88910D219 '.
           03  FILLER PIC X(10) VALUE '88913C499 '.
           03  FILLER PIC X(10) VALUE '88920D219 '.
           03  FILLER PIC X(10) VALUE '88930D219 '.
           03  FILLER PIC X(10) VALUE '88940D219 '.
           03  FILLER PIC X(10) VALUE '88943C499 '.
           03  FILLER PIC X(10) VALUE '88950D219 '.
           03  FILLER PIC X(10) VALUE '88953C499 '.
           03  FILLER PIC X(10) VALUE '88963C499 '.
           03  FILLER PIC X(10) VALUE '88971D481 '.
           03  FILLER PIC X(10) VALUE '89000D219 '.
           03  FILLER PIC X(10) VALUE '89003C499 '.
           03  FILLER PIC X(10) VALUE '89013C499 '.
           03  FILLER PIC X(10) VALUE '89023C499 '.
           03  FILLER PIC X(10) VALUE '89030D219 '.
           03  FILLER PIC X(10) VALUE '89040D219 '.
           03  FILLER PIC X(10) VALUE '89103C499 '.
           03  FILLER PIC X(10) VALUE '89203C499 '.
           03  FILLER PIC X(10) VALUE '89413C089 '.
           03  FILLER PIC X(10) VALUE '89503C549 '.
           03  FILLER PIC X(10) VALUE '89900D219 '.
           03  FILLER PIC X(10) VALUE '89901D481 '.
           03  FILLER PIC X(10) VALUE '89903C499 '.
           03  FILLER PIC X(10) VALUE '89913C499 '.
           03  FILLER PIC X(10) VALUE '90100D24  '.
           03  FILLER PIC X(10) VALUE '90110D24  '.
           03  FILLER PIC X(10) VALUE '90120D24  '.
           03  FILLER PIC X(10) VALUE '90130D27 9'.
           03  FILLER PIC X(10) VALUE '90133C56 9'.
           03  FILLER PIC X(10) VALUE '90140D27 9'.
           03  FILLER PIC X(10) VALUE '90143C56 9'.
           03  FILLER PIC X(10) VALUE '90150D27 9'.
           03  FILLER PIC X(10) VALUE '90153C56 9'.
           03  FILLER PIC X(10) VALUE '90400D219 '.
           03  FILLER PIC X(10) VALUE '90403C499 '.
           03  FILLER PIC X(10) VALUE '90413C499 '.
           03  FILLER PIC X(10) VALUE '90423C499 '.
           03  FILLER PIC X(10) VALUE '90433C499 '.
           03  FILLER PIC X(10) VALUE '90443C499 '.
           03  FILLER PIC X(10) VALUE '90500D199 '.
           03  FILLER PIC X(10) VALUE '90503C459 '.
           03  FILLER PIC X(10) VALUE '90510D199 '.
           03  FILLER PIC X(10) VALUE '90513C459 '.
           03  FILLER PIC X(10) VALUE '90520D199 '.
           03  FILLER PIC X(10) VALUE '90523C459 '.
           03  FILLER PIC X(10) VALUE '90530D199 '.
           03  FILLER PIC X(10) VALUE '90533C459 '.
           03  FILLER PIC X(10) VALUE '9060399999'.
           03  FILLER PIC X(10) VALUE '90612D0769'.
           03  FILLER PIC X(10) VALUE '90613C6299'.
           03  FILLER PIC X(10) VALUE '90623C6299'.
           03  FILLER PIC X(10) VALUE '90633C6299'.
           03  FILLER PIC X(10) VALUE '9071399999'.
           03  FILLER PIC X(10) VALUE '9073199999'.
           03  FILLER PIC X(10) VALUE '9073399999'.
           03  FILLER PIC X(10) VALUE '9100399999'.
           03  FILLER PIC X(10) VALUE '91023C6299'.
           03  FILLER PIC X(10) VALUE '91203C499 '.
           03  FILLER PIC X(10) VALUE '91303C499 '.
           03  FILLER PIC X(10) VALUE '91403C469 '.
           03  FILLER PIC X(10) VALUE '91500D219 '.
           03  FILLER PIC X(10) VALUE '91501D481 '.
           03  FILLER PIC X(10) VALUE '91503C499 '.
           03  FILLER PIC X(10) VALUE '91600D106 '.
           03  FILLER PIC X(10) VALUE '91611D481 '.
           03  FILLER PIC X(10) VALUE '91703C499 '.
           03  FILLER PIC X(10) VALUE '91741D481 '.
           03  FILLER PIC X(10) VALUE '92403C499 '.
           03  FILLER PIC X(10) VALUE '92511D481 '.
           03  FILLER PIC X(10) VALUE '92513C499 '.
           03  FILLER PIC X(10) VALUE '93803C719 '.
           03  FILLER PIC X(10) VALUE '93823C719 '.
           03  FILLER PIC X(10) VALUE '93831D432 '.
           03  FILLER PIC X(10) VALUE '93841D432 '.
           03  FILLER PIC X(10) VALUE '93913C719 '.
           03  FILLER PIC X(10) VALUE '93923C719 '.
           03  FILLER PIC X(10) VALUE '93931D432 '.
           03  FILLER PIC X(10) VALUE '93933C719 '.
           03  FILLER PIC X(10) VALUE '93941D432 '.
           03  FILLER PIC X(10) VALUE '93943C719 '.
           03  FILLER PIC X(10) VALUE '94003C719 '.
           03  FILLER PIC X(10) VALUE '94013C719 '.
           03  FILLER PIC X(10) VALUE '94103C719 '.
           03  FILLER PIC X(10) VALUE '94113C719 '.
           03  FILLER PIC X(10) VALUE '94203C719 '.
           03  FILLER PIC X(10) VALUE '94213C719 '.
           03  FILLER PIC X(10) VALUE '94223C719 '.
           03  FILLER PIC X(10) VALUE '94233C719 '.
           03  FILLER PIC X(10) VALUE '94243C719 '.
           03  FILLER PIC X(10) VALUE '94303C719 '.
           03  FILLER PIC X(10) VALUE '94403C719 '.
           03  FILLER PIC X(10) VALUE '94413C719 '.
           03  FILLER PIC X(10) VALUE '94423C719 '.
           03  FILLER PIC X(10) VALUE '94433C719 '.
           03  FILLER PIC X(10) VALUE '94503C719 '.
           03  FILLER PIC X(10) VALUE '94513C719 '.
           03  FILLER PIC X(10) VALUE '94603C719 '.
           03  FILLER PIC X(10) VALUE '94703C716 '.
           03  FILLER PIC X(10) VALUE '94723C716 '.
           03  FILLER PIC X(10) VALUE '94733C719 '.
           03  FILLER PIC X(10) VALUE '94813C719 '.
           03  FILLER PIC X(10) VALUE '95003C749 '.
           03  FILLER PIC X(10) VALUE '95800D219 '.
           03  FILLER PIC X(10) VALUE '95803C499 '.
           03  FILLER PIC X(10) VALUE '95813C499 '.
 
       01  C809-TABLE REDEFINES C809.
           02  C809-ENTRY OCCURS 269 TIMES
               ASCENDING KEY IS HIST-809-IN
               ASCENDING KEY IS BEH-809-IN
               INDEXED BY C809-INDX.
               03  HIST-809-IN                 PIC X(4).
               03  BEH-809-IN                  PIC X(1).
               03  ICD10-809                   PIC X(4).
               03  SEX3-CODE                   PIC X(1).
 
 
      *****************************************************
      *                                                   *
      * CONVERTS ICD-O-2 HIST/BEH FOR SEX BASED C809 TO   *
      * ICD-10.                                           *
      *                                                   *
      *****************************************************
 
       01  C809-SEX.
           03  FILLER PIC X(13) VALUE '80762D099D069'.
           03  FILLER PIC X(13) VALUE '80763C80 C539'.
           03  FILLER PIC X(13) VALUE '83803C61 C56 '.
           03  FILLER PIC X(13) VALUE '84410D369D27 '.
           03  FILLER PIC X(13) VALUE '84413C80 C56 '.
           03  FILLER PIC X(13) VALUE '84423C80 C56 '.
           03  FILLER PIC X(13) VALUE '84500D369D27 '.
           03  FILLER PIC X(13) VALUE '84503C80 C56 '.
           03  FILLER PIC X(13) VALUE '84513C80 C56 '.
           03  FILLER PIC X(13) VALUE '84521D489D379'.
           03  FILLER PIC X(13) VALUE '84600D369D27 '.
           03  FILLER PIC X(13) VALUE '84603C80 C56 '.
           03  FILLER PIC X(13) VALUE '84610D369D27 '.
           03  FILLER PIC X(13) VALUE '84613C80 C56 '.
           03  FILLER PIC X(13) VALUE '84623C80 C56 '.
           03  FILLER PIC X(13) VALUE '84700D369D27 '.
           03  FILLER PIC X(13) VALUE '84703C80 C56 '.
           03  FILLER PIC X(13) VALUE '84710D369D27 '.
           03  FILLER PIC X(13) VALUE '84713C80 C56 '.
           03  FILLER PIC X(13) VALUE '84723C80 C56 '.
           03  FILLER PIC X(13) VALUE '84733C80 C56 '.
           03  FILLER PIC X(13) VALUE '86300D292D27 '.
           03  FILLER PIC X(13) VALUE '86301D401D391'.
           03  FILLER PIC X(13) VALUE '86303C629C56 '.
           03  FILLER PIC X(13) VALUE '86310D292D27 '.
           03  FILLER PIC X(13) VALUE '86313C629C56 '.
           03  FILLER PIC X(13) VALUE '86321D401D391'.
           03  FILLER PIC X(13) VALUE '86323C629C56 '.
           03  FILLER PIC X(13) VALUE '86400D292D27 '.
           03  FILLER PIC X(13) VALUE '86403C629C56 '.
           03  FILLER PIC X(13) VALUE '86410D292D27 '.
           03  FILLER PIC X(13) VALUE '86500D292D27 '.
           03  FILLER PIC X(13) VALUE '86501D401D391'.
           03  FILLER PIC X(13) VALUE '86503C629C56 '.
           03  FILLER PIC X(13) VALUE '90130D369D27 '.
           03  FILLER PIC X(13) VALUE '90133C80 C56 '.
           03  FILLER PIC X(13) VALUE '90140D369D27 '.
           03  FILLER PIC X(13) VALUE '90143C80 C56 '.
           03  FILLER PIC X(13) VALUE '90150D369D27 '.
           03  FILLER PIC X(13) VALUE '90153C80 C56 '.
           03  FILLER PIC X(13) VALUE '90603C629C56 '.
           03  FILLER PIC X(13) VALUE '90612D076D099'.
           03  FILLER PIC X(13) VALUE '90613C629C80 '.
           03  FILLER PIC X(13) VALUE '90623C629C80 '.
           03  FILLER PIC X(13) VALUE '90633C629C80 '.
           03  FILLER PIC X(13) VALUE '90713C629C56 '.
           03  FILLER PIC X(13) VALUE '90731D401D391'.
           03  FILLER PIC X(13) VALUE '90733C629C56 '.
           03  FILLER PIC X(13) VALUE '91003C629C58 '.
           03  FILLER PIC X(13) VALUE '91023C629C80 '.
 
       01  C809-SEX-TABLE REDEFINES C809-SEX.
           02  C809-SEX-ENTRY OCCURS 50 TIMES
               ASCENDING KEY IS HIST-809S-IN
               ASCENDING KEY IS BEH-809S-IN
               INDEXED BY C809-SEX-INDX.
               03  HIST-809S-IN                PIC X(4).
               03  BEH-809S-IN                 PIC X(1).
               03  ICD10-MALE                  PIC X(4).
               03  ICD10-FEMALE                PIC X(4).
 
 
      *****************************************************
      *                                                   *
      * CONVERT-MORPH USES TEMP-HIST-CELL.                *
      *                                                   *
      *****************************************************
 
       01  MORPH.
           03  MORPH-ENTRY-8000 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8001 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8002 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8003 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8004 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8005 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8006 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8007 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8008 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8009 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8010 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8011 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8012 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8013 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8014 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8015 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8016 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8017 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8018 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8019 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8020 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8021 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8022 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8023 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8024 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8025 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8026 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8027 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8028 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8029 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8030 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8031 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8032 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8033 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8034 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8035 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8036 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8037 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8038 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8039 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8040 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8041 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8042 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8043 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8044 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8045 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8046 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8047 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8048 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8049 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8050 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8051 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8052 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8053 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8054 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8055 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8056 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8057 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8058 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8059 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8060 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8061 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8062 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8063 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8064 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8065 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8066 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8067 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8068 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8069 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8070 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8071 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8072 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8073 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8074 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8075 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8076 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8077 PIC X(40) VALUE
               '999910  999910  999901  999910  999910  '.
           03  MORPH-ENTRY-8078 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8079 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8080 PIC X(40) VALUE
               '999910  999910  999911  999910  999910  '.
           03  MORPH-ENTRY-8081 PIC X(40) VALUE
               '999910  999910  D04901  C44901  999910  '.
           03  MORPH-ENTRY-8082 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8083 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8084 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8085 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8086 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8087 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8088 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8089 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8090 PIC X(40) VALUE
               '999910  D48501  D04901  C44901  999910  '.
           03  MORPH-ENTRY-8091 PIC X(40) VALUE
               '999910  999910  D04901  C44901  999910  '.
           03  MORPH-ENTRY-8092 PIC X(40) VALUE
               '999910  999910  999910  C44901  999910  '.
           03  MORPH-ENTRY-8093 PIC X(40) VALUE
               '999910  999910  999910  C44901  999910  '.
           03  MORPH-ENTRY-8094 PIC X(40) VALUE
               '999910  999910  999910  C44901  999910  '.
           03  MORPH-ENTRY-8095 PIC X(40) VALUE
               '999910  999910  999910  C44901  999910  '.
           03  MORPH-ENTRY-8096 PIC X(40) VALUE
               'D23901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8097 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8098 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8099 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8100 PIC X(40) VALUE
               'D23901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8101 PIC X(40) VALUE
               'D23901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8102 PIC X(40) VALUE
               'D23901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8103 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8104 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8105 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8106 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8107 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8108 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8109 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8110 PIC X(40) VALUE
               'D23901  999910  999910  C44901  999910  '.
           03  MORPH-ENTRY-8111 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8112 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8113 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8114 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8115 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8116 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8117 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8118 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8119 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8120 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8121 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8122 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8123 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8124 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8125 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8126 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8127 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8128 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8129 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8130 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8131 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8132 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8133 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8134 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8135 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8136 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8137 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8138 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8139 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8140 PIC X(40) VALUE
               '999911  D38100  999910  999910  999910  '.
           03  MORPH-ENTRY-8141 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8142 PIC X(40) VALUE
               '999910  999910  999910  C16900  999910  '.
           03  MORPH-ENTRY-8143 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8144 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8145 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8146 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8147 PIC X(40) VALUE
               'D11900  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8148 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8149 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8150 PIC X(40) VALUE
               '999911  999910  999910  999911  999910  '.
           03  MORPH-ENTRY-8151 PIC X(40) VALUE
               '999911  999910  999910  999911  999910  '.
           03  MORPH-ENTRY-8152 PIC X(40) VALUE
               '999911  999910  999910  999911  999910  '.
           03  MORPH-ENTRY-8153 PIC X(40) VALUE
               '999910  999910  999910  999911  999910  '.
           03  MORPH-ENTRY-8154 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8155 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8156 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8157 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8158 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8159 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8160 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8161 PIC X(40) VALUE
               'D13400  999910  999910  C22100  999910  '.
           03  MORPH-ENTRY-8162 PIC X(40) VALUE
               '999910  999910  999910  C22100  999910  '.
           03  MORPH-ENTRY-8163 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8164 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8165 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8166 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8167 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8168 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8169 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8170 PIC X(40) VALUE
               'D13400  999910  999910  C22000  999910  '.
           03  MORPH-ENTRY-8171 PIC X(40) VALUE
               '999910  999910  999910  C22000  999910  '.
           03  MORPH-ENTRY-8172 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8173 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8174 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8175 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8176 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8177 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8178 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8179 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8180 PIC X(40) VALUE
               '999910  999910  999910  C22000  999910  '.
           03  MORPH-ENTRY-8181 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8182 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8183 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8184 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8185 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8186 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8187 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8188 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8189 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8190 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8191 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8192 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8193 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8194 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8195 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8196 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8197 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8198 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8199 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8200 PIC X(40) VALUE
               'D23901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8201 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8202 PIC X(40) VALUE
               '999911  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8203 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8204 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8205 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8206 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8207 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8208 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8209 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8210 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8211 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8212 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8213 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8214 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8215 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8216 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8217 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8218 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8219 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8220 PIC X(40) VALUE
               '999910  999910  D01000  C18901  999910  '.
           03  MORPH-ENTRY-8221 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8222 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8223 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8224 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8225 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8226 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8227 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8228 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8229 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8230 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8231 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8232 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8233 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8234 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8235 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8236 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8237 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8238 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8239 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8240 PIC X(40) VALUE
               '999910  D37300  999910  999910  999910  '.
           03  MORPH-ENTRY-8241 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8242 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8243 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8244 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8245 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8246 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8247 PIC X(40) VALUE
               '999910  999910  D04901  C44901  999910  '.
           03  MORPH-ENTRY-8248 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8249 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8250 PIC X(40) VALUE
               '999910  D38100  999910  C34901  999910  '.
           03  MORPH-ENTRY-8251 PIC X(40) VALUE
               'D14300  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8252 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8253 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8254 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8255 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8256 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8257 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8258 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8259 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8260 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8261 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8262 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8263 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8264 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8265 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8266 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8267 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8268 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8269 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8270 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8271 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8272 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8273 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8274 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8275 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8276 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8277 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8278 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8279 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8280 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8281 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8282 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8283 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8284 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8285 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8286 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8287 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8288 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8289 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8290 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8291 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8292 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8293 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8294 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8295 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8296 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8297 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8298 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8299 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8300 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8301 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8302 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8303 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8304 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8305 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8306 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8307 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8308 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8309 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8310 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8311 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8312 PIC X(40) VALUE
               '999910  999910  999910  C64 00  999910  '.
           03  MORPH-ENTRY-8313 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8314 PIC X(40) VALUE
               '999910  999910  999910  C50900  999910  '.
           03  MORPH-ENTRY-8315 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8316 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8317 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8318 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8319 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8320 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8321 PIC X(40) VALUE
               'D35100  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8322 PIC X(40) VALUE
               'D35100  999910  999910  C75000  999910  '.
           03  MORPH-ENTRY-8323 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8324 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8325 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8326 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8327 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8328 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8329 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8330 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8331 PIC X(40) VALUE
               '999910  999910  999910  C73 00  999910  '.
           03  MORPH-ENTRY-8332 PIC X(40) VALUE
               '999910  999910  999910  C73 00  999910  '.
           03  MORPH-ENTRY-8333 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8334 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8335 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8336 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8337 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8338 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8339 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8340 PIC X(40) VALUE
               '999910  999910  999910  C73 00  999910  '.
           03  MORPH-ENTRY-8341 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8342 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8343 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8344 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8345 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8346 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8347 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8348 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8349 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8350 PIC X(40) VALUE
               '999910  999910  999910  C73 00  999910  '.
           03  MORPH-ENTRY-8351 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8352 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8353 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8354 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8355 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8356 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8357 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8358 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8359 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8360 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8361 PIC X(40) VALUE
               '999910  D41000  999910  999910  999910  '.
           03  MORPH-ENTRY-8362 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8363 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8364 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8365 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8366 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8367 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8368 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8369 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8370 PIC X(40) VALUE
               'D35000  999910  999910  C74000  999910  '.
           03  MORPH-ENTRY-8371 PIC X(40) VALUE
               'D35000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8372 PIC X(40) VALUE
               'D35000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8373 PIC X(40) VALUE
               'D35000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8374 PIC X(40) VALUE
               'D35000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8375 PIC X(40) VALUE
               'D35000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8376 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8377 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8378 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8379 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8380 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8381 PIC X(40) VALUE
               'D27 002 D391002 999910  C56 002 999910  '.
           03  MORPH-ENTRY-8382 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8383 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8384 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8385 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8386 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8387 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8388 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8389 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8390 PIC X(40) VALUE
               'D23901  999910  999910  C44901  999910  '.
           03  MORPH-ENTRY-8391 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8392 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8393 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8394 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8395 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8396 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8397 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8398 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8399 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8400 PIC X(40) VALUE
               'D23901  D48501  999910  C44901  999910  '.
           03  MORPH-ENTRY-8401 PIC X(40) VALUE
               'D23901  999910  D04901  C44901  999910  '.
           03  MORPH-ENTRY-8402 PIC X(40) VALUE
               'D23901  999910  999910  C44901  999910  '.
           03  MORPH-ENTRY-8403 PIC X(40) VALUE
               'D23901  999910  999910  C44901  999910  '.
           03  MORPH-ENTRY-8404 PIC X(40) VALUE
               'D23901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8405 PIC X(40) VALUE
               'D23901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8406 PIC X(40) VALUE
               'D23901  999910  999910  C44901  999910  '.
           03  MORPH-ENTRY-8407 PIC X(40) VALUE
               'D23901  999910  999910  C44901  999910  '.
           03  MORPH-ENTRY-8408 PIC X(40) VALUE
               'D23901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8409 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8410 PIC X(40) VALUE
               'D23901  999910  999910  C44901  999910  '.
           03  MORPH-ENTRY-8411 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8412 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8413 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8414 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8415 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8416 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8417 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8418 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8419 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8420 PIC X(40) VALUE
               'D23200  999910  999910  C44200  999910  '.
           03  MORPH-ENTRY-8421 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8422 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8423 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8424 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8425 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8426 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8427 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8428 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8429 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8430 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8431 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8432 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8433 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8434 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8435 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8436 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8437 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8438 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8439 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8440 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8441 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8442 PIC X(40) VALUE
               '999910  999910  999910  999910 1999910  '.
           03  MORPH-ENTRY-8443 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8444 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8445 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8446 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8447 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8448 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8449 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8450 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8451 PIC X(40) VALUE
               '999910  999910  999910  999910 1999910  '.
           03  MORPH-ENTRY-8452 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8453 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8454 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8455 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8456 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8457 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8458 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8459 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8460 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8461 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8462 PIC X(40) VALUE
               '999910  999910  999910  999910 1999910  '.
           03  MORPH-ENTRY-8463 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8464 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8465 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8466 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8467 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8468 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8469 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8470 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8471 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8472 PIC X(40) VALUE
               '999910  999910  999910  999910 1999910  '.
           03  MORPH-ENTRY-8473 PIC X(40) VALUE
               '999910  999910  999910  999910 1999910  '.
           03  MORPH-ENTRY-8474 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8475 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8476 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8477 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8478 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8479 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8480 PIC X(40) VALUE
               '999910  999910  999910  999910  C78600  '.
           03  MORPH-ENTRY-8481 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8482 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8483 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8484 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8485 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8486 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8487 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8488 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8489 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8490 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8491 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8492 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8493 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8494 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8495 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8496 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8497 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8498 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8499 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8500 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8501 PIC X(40) VALUE
               '999910  999910  999911  C50901  999910  '.
           03  MORPH-ENTRY-8502 PIC X(40) VALUE
               '999910  999910  999910  C50901  999910  '.
           03  MORPH-ENTRY-8503 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8504 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8505 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8506 PIC X(40) VALUE
               'D24 00  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8507 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8508 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8509 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8510 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8511 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8512 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8513 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8514 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8515 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8516 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8517 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8518 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8519 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8520 PIC X(40) VALUE
               '999910  999910  999911  999910  999910  '.
           03  MORPH-ENTRY-8521 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8522 PIC X(40) VALUE
               '999910  999910  999911  C50901  999910  '.
           03  MORPH-ENTRY-8523 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8524 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8525 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8526 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8527 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8528 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8529 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8530 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8531 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8532 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8533 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8534 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8535 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8536 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8537 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8538 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8539 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8540 PIC X(40) VALUE
               '999910  999910  D05900  C50000  999910  '.
           03  MORPH-ENTRY-8541 PIC X(40) VALUE
               '999910  999910  999910  C50901  999910  '.
           03  MORPH-ENTRY-8542 PIC X(40) VALUE
               '999910  999910  D04901  C44901  999910  '.
           03  MORPH-ENTRY-8543 PIC X(40) VALUE
               '999910  999910  999910  C50901  999910  '.
           03  MORPH-ENTRY-8544 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8545 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8546 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8547 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8548 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8549 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8550 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8551 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8552 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8553 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8554 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8555 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8556 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8557 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8558 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8559 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8560 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8561 PIC X(40) VALUE
               '99991   999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8562 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8563 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8564 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8565 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8566 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8567 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8568 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8569 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8570 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8571 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8572 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8573 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8574 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8575 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8576 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8577 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8578 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8579 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8580 PIC X(40) VALUE
               'D15000  999910  D09300  C37 00  999910  '.
           03  MORPH-ENTRY-8581 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8582 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8583 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8584 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8585 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8586 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8587 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8588 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8589 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8590 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8591 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8592 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8593 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8594 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8595 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8596 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8597 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8598 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8599 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8600 PIC X(40) VALUE
               'D27 002 999910  999910  C56 002 999910  '.
           03  MORPH-ENTRY-8601 PIC X(40) VALUE
               'D27 002 999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8602 PIC X(40) VALUE
               'D27 002 999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8603 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8604 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8605 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8606 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8607 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8608 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8609 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8610 PIC X(40) VALUE
               'D27 002 999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8611 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8612 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8613 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8614 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8615 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8616 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8617 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8618 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8619 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8620 PIC X(40) VALUE
               '999910  D391002 999910  C56 002 999910  '.
           03  MORPH-ENTRY-8621 PIC X(40) VALUE
               '999910  D391002 999910  C56 002 999910  '.
           03  MORPH-ENTRY-8622 PIC X(40) VALUE
               '999910  D391002 999910  C56 002 999910  '.
           03  MORPH-ENTRY-8623 PIC X(40) VALUE
               '999910  D391002 999910  999910  999910  '.
           03  MORPH-ENTRY-8624 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8625 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8626 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8627 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8628 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8629 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8630 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8631 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8632 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8633 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8634 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8635 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8636 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8637 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8638 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8639 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8640 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8641 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8642 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8643 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8644 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8645 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8646 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8647 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8648 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8649 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8650 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8651 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8652 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8653 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8654 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8655 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8656 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8657 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8658 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8659 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8660 PIC X(40) VALUE
               'D27 002 999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8661 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8662 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8663 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8664 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8665 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8666 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8667 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8668 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8669 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8670 PIC X(40) VALUE
               'D27 002 999910  999910  C56 002 999910  '.
           03  MORPH-ENTRY-8671 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8672 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8673 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8674 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8675 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8676 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8677 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8678 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8679 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8680 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8681 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8682 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8683 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8684 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8685 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8686 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8687 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8688 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8689 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8690 PIC X(40) VALUE
               '999910  D44700  999910  999910  999910  '.
           03  MORPH-ENTRY-8691 PIC X(40) VALUE
               '999910  D44700  999910  C75500  999910  '.
           03  MORPH-ENTRY-8692 PIC X(40) VALUE
               '999910  D44600  999910  C75400  999910  '.
           03  MORPH-ENTRY-8693 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8694 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8695 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8696 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8697 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8698 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8699 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8700 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8701 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8702 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8703 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8704 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8705 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8706 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8707 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8708 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8709 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8710 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8711 PIC X(40) VALUE
               'D18000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8712 PIC X(40) VALUE
               'D18000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8713 PIC X(40) VALUE
               'D18000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8714 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8715 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8716 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8717 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8718 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8719 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8720 PIC X(40) VALUE
               'D22901  999910  D03801  999911  999910  '.
           03  MORPH-ENTRY-8721 PIC X(40) VALUE
               '999910  999910  D03801  999911  999910  '.
           03  MORPH-ENTRY-8722 PIC X(40) VALUE
               'D22901  999910  D03801  999911  999910  '.
           03  MORPH-ENTRY-8723 PIC X(40) VALUE
               'D22901  999910  999910  999911  999910  '.
           03  MORPH-ENTRY-8724 PIC X(40) VALUE
               'D22901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8725 PIC X(40) VALUE
               'D22901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8726 PIC X(40) VALUE
               '999910  999910  999910  C69400  999910  '.
           03  MORPH-ENTRY-8727 PIC X(40) VALUE
               'D22901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8728 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8729 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8730 PIC X(40) VALUE
               'D22901  999910  D03801  999911  999910  '.
           03  MORPH-ENTRY-8731 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8732 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8733 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8734 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8735 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8736 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8737 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8738 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8739 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8740 PIC X(40) VALUE
               'D22901  999910  D03801  999911  999910  '.
           03  MORPH-ENTRY-8741 PIC X(40) VALUE
               '999910  999910  D03801  999911  999910  '.
           03  MORPH-ENTRY-8742 PIC X(40) VALUE
               '999910  999910  D03801  999911  999910  '.
           03  MORPH-ENTRY-8743 PIC X(40) VALUE
               '999910  999910  D03801  999911  999910  '.
           03  MORPH-ENTRY-8744 PIC X(40) VALUE
               '999910  999910  D03801  999911  999910  '.
           03  MORPH-ENTRY-8745 PIC X(40) VALUE
               '999910  999910  999910  999911  999910  '.
           03  MORPH-ENTRY-8746 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8747 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8748 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8749 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8750 PIC X(40) VALUE
               'D22901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8751 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8752 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8753 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8754 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8755 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8756 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8757 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8758 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8759 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8760 PIC X(40) VALUE
               'D22901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8761 PIC X(40) VALUE
               '999910  D48501  D03801  999911  999910  '.
           03  MORPH-ENTRY-8762 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8763 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8764 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8765 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8766 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8767 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8768 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8769 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8770 PIC X(40) VALUE
               'D22901  999910  999910  999911  999910  '.
           03  MORPH-ENTRY-8771 PIC X(40) VALUE
               'D22901  999910  999910  999911  999910  '.
           03  MORPH-ENTRY-8772 PIC X(40) VALUE
               'D22901  999910  999910  999911  999910  '.
           03  MORPH-ENTRY-8773 PIC X(40) VALUE
               '999910  999910  999910  C69400  999910  '.
           03  MORPH-ENTRY-8774 PIC X(40) VALUE
               '999910  999910  999910  C69400  999910  '.
           03  MORPH-ENTRY-8775 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8776 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8777 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8778 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8779 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8780 PIC X(40) VALUE
               'D22901  999910  999910  999911  999910  '.
           03  MORPH-ENTRY-8781 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8782 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8783 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8784 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8785 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8786 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8787 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8788 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8789 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8790 PIC X(40) VALUE
               'D22901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8791 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8792 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8793 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8794 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8795 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8796 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8797 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8798 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8799 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8800 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8801 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8802 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8803 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8804 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8805 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8806 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8807 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8808 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8809 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8810 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8811 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8812 PIC X(40) VALUE
               'D16901  999910  999910  C41901  999910  '.
           03  MORPH-ENTRY-8813 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8814 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8815 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8816 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8817 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8818 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8819 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8820 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8821 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8822 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8823 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8824 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8825 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8826 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8827 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8828 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8829 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8830 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8831 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8832 PIC X(40) VALUE
               'D23901  D48501  999910  C44901  999910  '.
           03  MORPH-ENTRY-8833 PIC X(40) VALUE
               '999910  999910  999910  C44901  999910  '.
           03  MORPH-ENTRY-8834 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8835 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8836 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8837 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8838 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8839 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8840 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8841 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8842 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8843 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8844 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8845 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8846 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8847 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8848 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8849 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8850 PIC X(40) VALUE
               'D17900  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8851 PIC X(40) VALUE
               'D17900  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8852 PIC X(40) VALUE
               'D17900  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8853 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8854 PIC X(40) VALUE
               'D17900  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8855 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8856 PIC X(40) VALUE
               'D17900  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8857 PIC X(40) VALUE
               'D17900  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8858 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8859 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8860 PIC X(40) VALUE
               'D17900  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8861 PIC X(40) VALUE
               'D17900  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8862 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8863 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8864 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8865 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8866 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8867 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8868 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8869 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8870 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8871 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8872 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8873 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8874 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8875 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8876 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8877 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8878 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8879 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8880 PIC X(40) VALUE
               'D17900  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8881 PIC X(40) VALUE
               'D17900  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8882 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8883 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8884 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8885 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8886 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8887 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8888 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8889 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8890 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8891 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8892 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8893 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8894 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8895 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8896 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8897 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8898 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8899 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8900 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8901 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8902 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8903 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8904 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8905 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8906 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8907 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8908 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8909 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8910 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8911 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8912 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8913 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8914 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8915 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8916 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8917 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8918 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8919 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8920 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8921 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8922 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8923 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8924 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8925 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8926 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8927 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8928 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8929 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8930 PIC X(40) VALUE
               'D261002 999910  999910  C541012 999910  '.
           03  MORPH-ENTRY-8931 PIC X(40) VALUE
               '999910  D390002 999910  C549002 999910  '.
           03  MORPH-ENTRY-8932 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8933 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8934 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8935 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8936 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8937 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8938 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8939 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8940 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8941 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8942 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8943 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8944 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8945 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8946 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8947 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8948 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8949 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8950 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8951 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8952 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8953 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8954 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8955 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8956 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8957 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8958 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8959 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8960 PIC X(40) VALUE
               '999910  D41000  999910  C64 00  999910  '.
           03  MORPH-ENTRY-8961 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8962 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8963 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8964 PIC X(40) VALUE
               '999910  999910  999910  C64 00  999910  '.
           03  MORPH-ENTRY-8965 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8966 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8967 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8968 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8969 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8970 PIC X(40) VALUE
               '999910  999910  999910  C22200  999910  '.
           03  MORPH-ENTRY-8971 PIC X(40) VALUE
               '999910  999910  999910  C25901  999910  '.
           03  MORPH-ENTRY-8972 PIC X(40) VALUE
               '999910  999910  999910  C34901  999910  '.
           03  MORPH-ENTRY-8973 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8974 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8975 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8976 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8977 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8978 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8979 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8980 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8981 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8982 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8983 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8984 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8985 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8986 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8987 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8988 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8989 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8990 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8991 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-8992 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8993 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8994 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8995 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8996 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8997 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8998 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-8999 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9000 PIC X(40) VALUE
               'D27 002 D391002 999910  C56 002 999910  '.
           03  MORPH-ENTRY-9001 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9002 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9003 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9004 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9005 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9006 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9007 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9008 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9009 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9010 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9011 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9012 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9013 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9014 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9015 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9016 PIC X(40) VALUE
               'D24 00  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9017 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9018 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9019 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9020 PIC X(40) VALUE
               'D24 00  D48600  999910  C50901  999910  '.
           03  MORPH-ENTRY-9021 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9022 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9023 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9024 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9025 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9026 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9027 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9028 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9029 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9030 PIC X(40) VALUE
               'D24 00  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9031 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9032 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9033 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9034 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9035 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9036 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9037 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9038 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9039 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9040 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9041 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9042 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9043 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9044 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9045 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9046 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9047 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9048 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9049 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9050 PIC X(40) VALUE
               'D19701  999910  999910  C45701  999910  '.
           03  MORPH-ENTRY-9051 PIC X(40) VALUE
               'D19701  999910  999910  C45701  999910  '.
           03  MORPH-ENTRY-9052 PIC X(40) VALUE
               'D19701  999910  999910  C45701  999910  '.
           03  MORPH-ENTRY-9053 PIC X(40) VALUE
               'D19701  999910  999910  C45701  999910  '.
           03  MORPH-ENTRY-9054 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9055 PIC X(40) VALUE
               '999910  999901  999910  999910  999910  '.
           03  MORPH-ENTRY-9056 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9057 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9058 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9059 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9060 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9061 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9062 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9063 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9064 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9065 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9066 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9067 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9068 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9069 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9070 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9071 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9072 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9073 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9074 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9075 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9076 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9077 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9078 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9079 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9080 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9081 PIC X(40) VALUE
               '999910  999910  999910  999911  999910  '.
           03  MORPH-ENTRY-9082 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9083 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9084 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9085 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9086 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9087 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9088 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9089 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9090 PIC X(40) VALUE
               'D27 002 999910  999910  C56 002 999910  '.
           03  MORPH-ENTRY-9091 PIC X(40) VALUE
               '999910  D391002 999910  C56 002 999910  '.
           03  MORPH-ENTRY-9092 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9093 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9094 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9095 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9096 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9097 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9098 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9099 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9100 PIC X(40) VALUE
               'O01900  D392002 999910  999910  999910  '.
           03  MORPH-ENTRY-9101 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9102 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9103 PIC X(40) VALUE
               'O01100  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9104 PIC X(40) VALUE
               '999910  D392002 999910  C58 002 999910  '.
           03  MORPH-ENTRY-9105 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9106 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9107 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9108 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9109 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9110 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9111 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9112 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9113 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9114 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9115 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9116 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9117 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9118 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9119 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9120 PIC X(40) VALUE
               'D18000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9121 PIC X(40) VALUE
               'D18000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9122 PIC X(40) VALUE
               'D18000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9123 PIC X(40) VALUE
               'D18000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9124 PIC X(40) VALUE
               '999910  999910  999910  C22300  999910  '.
           03  MORPH-ENTRY-9125 PIC X(40) VALUE
               'D18000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9126 PIC X(40) VALUE
               'D18000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9127 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9128 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9129 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9130 PIC X(40) VALUE
               'D18000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9131 PIC X(40) VALUE
               'D18000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9132 PIC X(40) VALUE
               'D18000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9133 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9134 PIC X(40) VALUE
               '999910  D38100  999910  C34901  999910  '.
           03  MORPH-ENTRY-9135 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9136 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9137 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9138 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9139 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9140 PIC X(40) VALUE
               '999910  999910  999910  C46701  999910  '.
           03  MORPH-ENTRY-9141 PIC X(40) VALUE
               'D23901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9142 PIC X(40) VALUE
               'D18000  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9143 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9144 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9145 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9146 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9147 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9148 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9149 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9150 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9151 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9152 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9153 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9154 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9155 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9156 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9157 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9158 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9159 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9160 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9161 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9162 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9163 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9164 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9165 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9166 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9167 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9168 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9169 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9170 PIC X(40) VALUE
               'D18100  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9171 PIC X(40) VALUE
               'D18100  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9172 PIC X(40) VALUE
               'D18100  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9173 PIC X(40) VALUE
               'D18100  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9174 PIC X(40) VALUE
               'D18100  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9175 PIC X(40) VALUE
               'D18100  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9176 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9177 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9178 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9179 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9180 PIC X(40) VALUE
               'D16901  999910  999910  C41901  999910  '.
           03  MORPH-ENTRY-9181 PIC X(40) VALUE
               '999910  999910  999910  C41901  999910  '.
           03  MORPH-ENTRY-9182 PIC X(40) VALUE
               '999910  999910  999910  C41901  999910  '.
           03  MORPH-ENTRY-9183 PIC X(40) VALUE
               '999910  999910  999910  C41901  999910  '.
           03  MORPH-ENTRY-9184 PIC X(40) VALUE
               '999910  999910  999910  C41901  999910  '.
           03  MORPH-ENTRY-9185 PIC X(40) VALUE
               '999910  999910  999910  C41901  999910  '.
           03  MORPH-ENTRY-9186 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9187 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9188 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9189 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9190 PIC X(40) VALUE
               '999910  999910  999910  C41901  999910  '.
           03  MORPH-ENTRY-9191 PIC X(40) VALUE
               'D16901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9192 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9193 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9194 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9195 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9196 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9197 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9198 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9199 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9200 PIC X(40) VALUE
               'D16901  D47901  999910  C41901  999910  '.
           03  MORPH-ENTRY-9201 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9202 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9203 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9204 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9205 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9206 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9207 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9208 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9209 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9210 PIC X(40) VALUE
               'D16901  D48000  999910  999910  999910  '.
           03  MORPH-ENTRY-9211 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9212 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9213 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9214 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9215 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9216 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9217 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9218 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9219 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9220 PIC X(40) VALUE
               '999901  999901  999910  C41901  999910  '.
           03  MORPH-ENTRY-9221 PIC X(40) VALUE
               'D16901  999910  999910  C41901  999910  '.
           03  MORPH-ENTRY-9222 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9223 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9224 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9225 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9226 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9227 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9228 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9229 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9230 PIC X(40) VALUE
               'D16901  999910  999910  C41901  999910  '.
           03  MORPH-ENTRY-9231 PIC X(40) VALUE
               '999910  999910  999910  C41901  999910  '.
           03  MORPH-ENTRY-9232 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9233 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9234 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9235 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9236 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9237 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9238 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9239 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9240 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9241 PIC X(40) VALUE
               'D16901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9242 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9243 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9244 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9245 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9246 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9247 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9248 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9249 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9250 PIC X(40) VALUE
               '999910  D48000  999910  C41901  999910  '.
           03  MORPH-ENTRY-9251 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9252 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9253 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9254 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9255 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9256 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9257 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9258 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9259 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9260 PIC X(40) VALUE
               '999910  999910  999910  C41901  999910  '.
           03  MORPH-ENTRY-9261 PIC X(40) VALUE
               '999910  999910  999910  C40900  999910  '.
           03  MORPH-ENTRY-9262 PIC X(40) VALUE
               'D16901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9263 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9264 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9265 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9266 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9267 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9268 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9269 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9270 PIC X(40) VALUE
               'D16501  D48000  999910  C41101  999910  '.
           03  MORPH-ENTRY-9271 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9272 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9273 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9274 PIC X(40) VALUE
               'D16901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9275 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9276 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9277 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9278 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9279 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9280 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9281 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9282 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9283 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9284 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9285 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9286 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9287 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9288 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9289 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9290 PIC X(40) VALUE
               'D16501  999910  999910  C41101  999910  '.
           03  MORPH-ENTRY-9291 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9292 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9293 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9294 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9295 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9296 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9297 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9298 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9299 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9300 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9301 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9302 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9303 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9304 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9305 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9306 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9307 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9308 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9309 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9310 PIC X(40) VALUE
               'D16501  999910  999910  C41101  999910  '.
           03  MORPH-ENTRY-9311 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9312 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9313 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9314 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9315 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9316 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9317 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9318 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9319 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9320 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9321 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9322 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9323 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9324 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9325 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9326 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9327 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9328 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9329 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9330 PIC X(40) VALUE
               'D16501  999910  999910  C41101  999910  '.
           03  MORPH-ENTRY-9331 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9332 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9333 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9334 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9335 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9336 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9337 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9338 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9339 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9340 PIC X(40) VALUE
               'D16501  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9341 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9342 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9343 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9344 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9345 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9346 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9347 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9348 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9349 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9350 PIC X(40) VALUE
               '999910  D44300  999910  999910  999910  '.
           03  MORPH-ENTRY-9351 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9352 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9353 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9354 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9355 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9356 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9357 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9358 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9359 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9360 PIC X(40) VALUE
               '999910  D44500  999910  C75300  999910  '.
           03  MORPH-ENTRY-9361 PIC X(40) VALUE
               '999910  D44500  999910  C75300  999910  '.
           03  MORPH-ENTRY-9362 PIC X(40) VALUE
               '999910  999910  999910  C75300  999910  '.
           03  MORPH-ENTRY-9363 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9364 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9365 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9366 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9367 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9368 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9369 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9370 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9371 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9372 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9373 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9374 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9375 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9376 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9377 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9378 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9379 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9380 PIC X(40) VALUE
               '999910  999910  999910  999911  999910  '.
           03  MORPH-ENTRY-9381 PIC X(40) VALUE
               '999910  999910  999910  C71000  999910  '.
           03  MORPH-ENTRY-9382 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9383 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9384 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9385 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9386 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9387 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9388 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9389 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9390 PIC X(40) VALUE
               'D33000  999910  999910  C71500  999910  '.
           03  MORPH-ENTRY-9391 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9392 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9393 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9394 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9395 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9396 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9397 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9398 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9399 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9400 PIC X(40) VALUE
               '999910  999910  999910  999911  999910  '.
           03  MORPH-ENTRY-9401 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9402 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9403 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9404 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9405 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9406 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9407 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9408 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9409 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9410 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9411 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9412 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9413 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9414 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9415 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9416 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9417 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9418 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9419 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9420 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9421 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9422 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9423 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9424 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9425 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9426 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9427 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9428 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9429 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9430 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9431 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9432 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9433 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9434 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9435 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9436 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9437 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9438 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9439 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9440 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9441 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9442 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9443 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9444 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9445 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9446 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9447 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9448 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9449 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9450 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9451 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9452 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9453 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9454 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9455 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9456 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9457 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9458 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9459 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9460 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9461 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9462 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9463 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9464 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9465 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9466 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9467 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9468 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9469 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9470 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9471 PIC X(40) VALUE
               '999910  999910  999910  C71600  999910  '.
           03  MORPH-ENTRY-9472 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9473 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9474 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9475 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9476 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9477 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9478 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9479 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9480 PIC X(40) VALUE
               '999910  999910  999910  C71600  999910  '.
           03  MORPH-ENTRY-9481 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9482 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9483 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9484 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9485 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9486 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9487 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9488 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9489 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9490 PIC X(40) VALUE
               'D36100  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9491 PIC X(40) VALUE
               'D36100  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9492 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9493 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9494 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9495 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9496 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9497 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9498 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9499 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9500 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9501 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9502 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9503 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9504 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9505 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9506 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9507 PIC X(40) VALUE
               'D23901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9508 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9509 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9510 PIC X(40) VALUE
               '999910  999910  999910  C69200  999910  '.
           03  MORPH-ENTRY-9511 PIC X(40) VALUE
               '999910  999910  999910  C69200  999910  '.
           03  MORPH-ENTRY-9512 PIC X(40) VALUE
               '999910  999910  999910  C69200  999910  '.
           03  MORPH-ENTRY-9513 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9514 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9515 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9516 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9517 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9518 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9519 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9520 PIC X(40) VALUE
               '999910  999910  999910  C30000  999910  '.
           03  MORPH-ENTRY-9521 PIC X(40) VALUE
               '999910  999910  999910  C30000  999910  '.
           03  MORPH-ENTRY-9522 PIC X(40) VALUE
               '999910  999910  999910  C30000  999910  '.
           03  MORPH-ENTRY-9523 PIC X(40) VALUE
               '999910  999910  999910  C30000  999910  '.
           03  MORPH-ENTRY-9524 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9525 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9526 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9527 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9528 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9529 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9530 PIC X(40) VALUE
               'D32901  D42901  999910  C70901  999910  '.
           03  MORPH-ENTRY-9531 PIC X(40) VALUE
               'D32901  999910  999910  C70901  999910  '.
           03  MORPH-ENTRY-9532 PIC X(40) VALUE
               'D32901  999910  999910  C70901  999910  '.
           03  MORPH-ENTRY-9533 PIC X(40) VALUE
               'D32901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9534 PIC X(40) VALUE
               'D32901  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9535 PIC X(40) VALUE
               'D32901  999910  999910  C70901  999910  '.
           03  MORPH-ENTRY-9536 PIC X(40) VALUE
               'D32901  999910  999910  C70901  999910  '.
           03  MORPH-ENTRY-9537 PIC X(40) VALUE
               'D32901  999910  999910  C70901  999910  '.
           03  MORPH-ENTRY-9538 PIC X(40) VALUE
               '999910  D42901  999910  C70901  999910  '.
           03  MORPH-ENTRY-9539 PIC X(40) VALUE
               '999910  999910  999910  C70901  999910  '.
           03  MORPH-ENTRY-9540 PIC X(40) VALUE
               '999910  Q85000  999910  999910  999910  '.
           03  MORPH-ENTRY-9541 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9542 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9543 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9544 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9545 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9546 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9547 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9548 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9549 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9550 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9551 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9552 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9553 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9554 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9555 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9556 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9557 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9558 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9559 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9560 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9561 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9562 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9563 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9564 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9565 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9566 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9567 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9568 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9569 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9570 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9571 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9572 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9573 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9574 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9575 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9576 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9577 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9578 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9579 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9580 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9581 PIC X(40) VALUE
               '999910  999910  999910  999910  999910  '.
           03  MORPH-ENTRY-9582 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9583 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9584 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9585 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9586 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9587 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9588 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9589 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9590 PIC X(40) VALUE
               '999910  999910  999910  C85900  999910  '.
           03  MORPH-ENTRY-9591 PIC X(40) VALUE
               '999910  999910  999910  C85900  999910  '.
           03  MORPH-ENTRY-9592 PIC X(40) VALUE
               '999910  999910  999910  C85000  999910  '.
           03  MORPH-ENTRY-9593 PIC X(40) VALUE
               '999910  999910  999910  C83900  999910  '.
           03  MORPH-ENTRY-9594 PIC X(40) VALUE
               '999910  999910  999910  C85700  999910  '.
           03  MORPH-ENTRY-9595 PIC X(40) VALUE
               '999910  999910  999910  C83900  999910  '.
           03  MORPH-ENTRY-9596 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9597 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9598 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9599 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9600 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9601 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9602 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9603 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9604 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9605 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9606 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9607 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9608 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9609 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9610 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9611 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9612 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9613 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9614 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9615 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9616 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9617 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9618 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9619 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9620 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9621 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9622 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9623 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9624 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9625 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9626 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9627 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9628 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9629 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9630 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9631 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9632 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9633 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9634 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9635 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9636 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9637 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9638 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9639 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9640 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9641 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9642 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9643 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9644 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9645 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9646 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9647 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9648 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9649 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9650 PIC X(40) VALUE
               '999910  999910  999910  C81900  999910  '.
           03  MORPH-ENTRY-9651 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9652 PIC X(40) VALUE
               '999910  999910  999910  C81200  999910  '.
           03  MORPH-ENTRY-9653 PIC X(40) VALUE
               '999910  999910  999910  C81300  999910  '.
           03  MORPH-ENTRY-9654 PIC X(40) VALUE
               '999910  999910  999910  C81300  999910  '.
           03  MORPH-ENTRY-9655 PIC X(40) VALUE
               '999910  999910  999910  C81300  999910  '.
           03  MORPH-ENTRY-9656 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9657 PIC X(40) VALUE
               '999910  999910  999910  C81000  999910  '.
           03  MORPH-ENTRY-9658 PIC X(40) VALUE
               '999910  999910  999910  C81000  999910  '.
           03  MORPH-ENTRY-9659 PIC X(40) VALUE
               '999910  999910  999910  C81000  999910  '.
           03  MORPH-ENTRY-9660 PIC X(40) VALUE
               '999910  999910  999910  C81700  999910  '.
           03  MORPH-ENTRY-9661 PIC X(40) VALUE
               '999910  999910  999910  C81700  999910  '.
           03  MORPH-ENTRY-9662 PIC X(40) VALUE
               '999910  999910  999910  C81700  999910  '.
           03  MORPH-ENTRY-9663 PIC X(40) VALUE
               '999910  999910  999910  C81100  999910  '.
           03  MORPH-ENTRY-9664 PIC X(40) VALUE
               '999910  999910  999910  C81100  999910  '.
           03  MORPH-ENTRY-9665 PIC X(40) VALUE
               '999910  999910  999910  C81100  999910  '.
           03  MORPH-ENTRY-9666 PIC X(40) VALUE
               '999910  999910  999910  C81100  999910  '.
           03  MORPH-ENTRY-9667 PIC X(40) VALUE
               '999910  999910  999910  C81100  999910  '.
           03  MORPH-ENTRY-9668 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9669 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9670 PIC X(40) VALUE
               '999910  999910  999910  C83000  999910  '.
           03  MORPH-ENTRY-9671 PIC X(40) VALUE
               '999910  999910  999910  C83800  999910  '.
           03  MORPH-ENTRY-9672 PIC X(40) VALUE
               '999910  999910  999910  C83100  999910  '.
           03  MORPH-ENTRY-9673 PIC X(40) VALUE
               '999910  999910  999910  C83800  999910  '.
           03  MORPH-ENTRY-9674 PIC X(40) VALUE
               '999910  999910  999910  C83800  999910  '.
           03  MORPH-ENTRY-9675 PIC X(40) VALUE
               '999910  999910  999910  C83200  999910  '.
           03  MORPH-ENTRY-9676 PIC X(40) VALUE
               '999910  999910  999910  C83800  999910  '.
           03  MORPH-ENTRY-9677 PIC X(40) VALUE
               '999910  999910  999910  C83800  999910  '.
           03  MORPH-ENTRY-9678 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9679 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9680 PIC X(40) VALUE
               '999910  999910  999910  C83300  999910  '.
           03  MORPH-ENTRY-9681 PIC X(40) VALUE
               '999910  999910  999910  C83300  999910  '.
           03  MORPH-ENTRY-9682 PIC X(40) VALUE
               '999910  999910  999910  C83300  999910  '.
           03  MORPH-ENTRY-9683 PIC X(40) VALUE
               '999910  999910  999910  C83800  999910  '.
           03  MORPH-ENTRY-9684 PIC X(40) VALUE
               '999910  999910  999910  C83400  999910  '.
           03  MORPH-ENTRY-9685 PIC X(40) VALUE
               '999910  999910  999910  C83500  999910  '.
           03  MORPH-ENTRY-9686 PIC X(40) VALUE
               '999910  999910  999910  C83000  999910  '.
           03  MORPH-ENTRY-9687 PIC X(40) VALUE
               '999910  999910  999910  C83700  999910  '.
           03  MORPH-ENTRY-9688 PIC X(40) VALUE
               '999910  999910  999910  C83800  999910  '.
           03  MORPH-ENTRY-9689 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9690 PIC X(40) VALUE
               '999910  999910  999910  C82900  999910  '.
           03  MORPH-ENTRY-9691 PIC X(40) VALUE
               '999910  999910  999910  C82100  999910  '.
           03  MORPH-ENTRY-9692 PIC X(40) VALUE
               '999910  999910  999910  C82700  999910  '.
           03  MORPH-ENTRY-9693 PIC X(40) VALUE
               '999910  999910  999910  C82700  999910  '.
           03  MORPH-ENTRY-9694 PIC X(40) VALUE
               '999910  999910  999910  C82700  999910  '.
           03  MORPH-ENTRY-9695 PIC X(40) VALUE
               '999910  999910  999910  C82000  999910  '.
           03  MORPH-ENTRY-9696 PIC X(40) VALUE
               '999910  999910  999910  C82700  999910  '.
           03  MORPH-ENTRY-9697 PIC X(40) VALUE
               '999910  999910  999910  C82700  999910  '.
           03  MORPH-ENTRY-9698 PIC X(40) VALUE
               '999910  999910  999910  C82200  999910  '.
           03  MORPH-ENTRY-9699 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9700 PIC X(40) VALUE
               '999910  999910  999910  C84000  999910  '.
           03  MORPH-ENTRY-9701 PIC X(40) VALUE
               '999910  999910  999910  C84100  999910  '.
           03  MORPH-ENTRY-9702 PIC X(40) VALUE
               '999910  999910  999910  C84400  999910  '.
           03  MORPH-ENTRY-9703 PIC X(40) VALUE
               '999910  999910  999910  C84200  999910  '.
           03  MORPH-ENTRY-9704 PIC X(40) VALUE
               '999910  999910  999910  C84300  999910  '.
           03  MORPH-ENTRY-9705 PIC X(40) VALUE
               '999910  999910  999910  C84400  999910  '.
           03  MORPH-ENTRY-9706 PIC X(40) VALUE
               '999910  999910  999910  C84400  999910  '.
           03  MORPH-ENTRY-9707 PIC X(40) VALUE
               '999910  999910  999910  C84400  999910  '.
           03  MORPH-ENTRY-9708 PIC X(40) VALUE
               '999910  999910  999910  C84500  999910  '.
           03  MORPH-ENTRY-9709 PIC X(40) VALUE
               '999910  999910  999910  C84500  999910  '.
           03  MORPH-ENTRY-9710 PIC X(40) VALUE
               '999910  999910  999910  C85700  999910  '.
           03  MORPH-ENTRY-9711 PIC X(40) VALUE
               '999910  999910  999910  C85700  999910  '.
           03  MORPH-ENTRY-9712 PIC X(40) VALUE
               '999910  999910  999910  C85700  999910  '.
           03  MORPH-ENTRY-9713 PIC X(40) VALUE
               '999910  999910  999910  C85700  999910  '.
           03  MORPH-ENTRY-9714 PIC X(40) VALUE
               '999910  999910  999910  C85700  999910  '.
           03  MORPH-ENTRY-9715 PIC X(40) VALUE
               '999910  999910  999910  C85700  999910  '.
           03  MORPH-ENTRY-9716 PIC X(40) VALUE
               '999910  999910  999910  C85700  999910  '.
           03  MORPH-ENTRY-9717 PIC X(40) VALUE
               '999910  999910  999910  C85700  999910  '.
           03  MORPH-ENTRY-9718 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9719 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9720 PIC X(40) VALUE
               '999910  999910  999910  C96100  999910  '.
           03  MORPH-ENTRY-9721 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9722 PIC X(40) VALUE
               '999910  999910  999910  C96000  999910  '.
           03  MORPH-ENTRY-9723 PIC X(40) VALUE
               '999910  999910  999910  C96300  999910  '.
           03  MORPH-ENTRY-9724 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9725 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9726 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9727 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9728 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9729 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9730 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9731 PIC X(40) VALUE
               '999910  999910  999910  C90200  999910  '.
           03  MORPH-ENTRY-9732 PIC X(40) VALUE
               '999910  999910  999910  C90000  999910  '.
           03  MORPH-ENTRY-9733 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9734 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9735 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9736 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9737 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9738 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9739 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9740 PIC X(40) VALUE
               '999910  D47000  999910  C96200  999910  '.
           03  MORPH-ENTRY-9741 PIC X(40) VALUE
               '999910  999910  999910  C96200  999910  '.
           03  MORPH-ENTRY-9742 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9743 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9744 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9745 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9746 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9747 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9748 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9749 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9750 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9751 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9752 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9753 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9754 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9755 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9756 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9757 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9758 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9759 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9760 PIC X(40) VALUE
               '999910  999910  999910  C88900  999910  '.
           03  MORPH-ENTRY-9761 PIC X(40) VALUE
               '999910  999910  999910  C88000  999910  '.
           03  MORPH-ENTRY-9762 PIC X(40) VALUE
               '999910  999910  999910  C88100  999910  '.
           03  MORPH-ENTRY-9763 PIC X(40) VALUE
               '999910  999910  999910  C88200  999910  '.
           03  MORPH-ENTRY-9764 PIC X(40) VALUE
               '999910  999910  999910  C88300  999910  '.
           03  MORPH-ENTRY-9765 PIC X(40) VALUE
               '999910  D47200  999910  999910  999910  '.
           03  MORPH-ENTRY-9766 PIC X(40) VALUE
               '999910  D47700  999910  999910  999910  '.
           03  MORPH-ENTRY-9767 PIC X(40) VALUE
               '999910  D47700  999910  999910  999910  '.
           03  MORPH-ENTRY-9768 PIC X(40) VALUE
               '999910  D47700  999910  999910  999910  '.
           03  MORPH-ENTRY-9769 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9770 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9771 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9772 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9773 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9774 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9775 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9776 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9777 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9778 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9779 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9780 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9781 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9782 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9783 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9784 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9785 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9786 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9787 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9788 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9789 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9790 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9791 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9792 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9793 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9794 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9795 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9796 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9797 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9798 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9799 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9800 PIC X(40) VALUE
               '999910  999910  999910  C95900  999910  '.
           03  MORPH-ENTRY-9801 PIC X(40) VALUE
               '999910  999910  999910  C95000  999910  '.
           03  MORPH-ENTRY-9802 PIC X(40) VALUE
               '999910  999910  999910  C95200  999910  '.
           03  MORPH-ENTRY-9803 PIC X(40) VALUE
               '999910  999910  999910  C95100  999910  '.
           03  MORPH-ENTRY-9804 PIC X(40) VALUE
               '999910  999910  999910  C95700  999910  '.
           03  MORPH-ENTRY-9805 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9806 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9807 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9808 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9809 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9810 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9811 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9812 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9813 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9814 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9815 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9816 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9817 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9818 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9819 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9820 PIC X(40) VALUE
               '999910  999910  999910  C91900  999910  '.
           03  MORPH-ENTRY-9821 PIC X(40) VALUE
               '999910  999910  999910  C91000  999910  '.
           03  MORPH-ENTRY-9822 PIC X(40) VALUE
               '999910  999910  999910  C91200  999910  '.
           03  MORPH-ENTRY-9823 PIC X(40) VALUE
               '999910  999910  999910  C91100  999910  '.
           03  MORPH-ENTRY-9824 PIC X(40) VALUE
               '999910  999910  999910  C91700  999910  '.
           03  MORPH-ENTRY-9825 PIC X(40) VALUE
               '999910  999910  999910  C91300  999910  '.
           03  MORPH-ENTRY-9826 PIC X(40) VALUE
               '999910  999910  999910  C91000  999910  '.
           03  MORPH-ENTRY-9827 PIC X(40) VALUE
               '999910  999910  999910  C91500  999910  '.
           03  MORPH-ENTRY-9828 PIC X(40) VALUE
               '999910  999910  999910  C91000  999910  '.
           03  MORPH-ENTRY-9829 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9830 PIC X(40) VALUE
               '999910  999910  999910  C90100  999910  '.
           03  MORPH-ENTRY-9831 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9832 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9833 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9834 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9835 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9836 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9837 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9838 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9839 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9840 PIC X(40) VALUE
               '999910  999910  999910  C94000  999910  '.
           03  MORPH-ENTRY-9841 PIC X(40) VALUE
               '999910  999910  999910  C94000  999910  '.
           03  MORPH-ENTRY-9842 PIC X(40) VALUE
               '999910  999910  999910  C94100  999910  '.
           03  MORPH-ENTRY-9843 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9844 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9845 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9846 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9847 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9848 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9849 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9850 PIC X(40) VALUE
               '999910  999910  999910  C94700  999910  '.
           03  MORPH-ENTRY-9851 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9852 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9853 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9854 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9855 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9856 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9857 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9858 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9859 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9860 PIC X(40) VALUE
               '999910  999910  999910  C92900  999910  '.
           03  MORPH-ENTRY-9861 PIC X(40) VALUE
               '999910  999910  999910  C92000  999910  '.
           03  MORPH-ENTRY-9862 PIC X(40) VALUE
               '999910  999910  999910  C92200  999910  '.
           03  MORPH-ENTRY-9863 PIC X(40) VALUE
               '999910  999910  999910  C92100  999910  '.
           03  MORPH-ENTRY-9864 PIC X(40) VALUE
               '999910  999910  999910  C92700  999910  '.
           03  MORPH-ENTRY-9865 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9866 PIC X(40) VALUE
               '999910  999910  999910  C92400  999910  '.
           03  MORPH-ENTRY-9867 PIC X(40) VALUE
               '999910  999910  999910  C92500  999910  '.
           03  MORPH-ENTRY-9868 PIC X(40) VALUE
               '999910  999910  999910  C92700  999910  '.
           03  MORPH-ENTRY-9869 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9870 PIC X(40) VALUE
               '999910  999910  999910  C92700  999910  '.
           03  MORPH-ENTRY-9871 PIC X(40) VALUE
               '999910  999910  999910  C92500  999910  '.
           03  MORPH-ENTRY-9872 PIC X(40) VALUE
               '999910  999910  999910  C92000  999910  '.
           03  MORPH-ENTRY-9873 PIC X(40) VALUE
               '999910  999910  999910  C92000  999910  '.
           03  MORPH-ENTRY-9874 PIC X(40) VALUE
               '999910  999910  999910  C92000  999910  '.
           03  MORPH-ENTRY-9875 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9876 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9877 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9878 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9879 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9880 PIC X(40) VALUE
               '999910  999910  999910  C92700  999910  '.
           03  MORPH-ENTRY-9881 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9882 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9883 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9884 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9885 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9886 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9887 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9888 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9889 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9890 PIC X(40) VALUE
               '999910  999910  999910  C93900  999910  '.
           03  MORPH-ENTRY-9891 PIC X(40) VALUE
               '999910  999910  999910  C93000  999910  '.
           03  MORPH-ENTRY-9892 PIC X(40) VALUE
               '999910  999910  999910  C93200  999910  '.
           03  MORPH-ENTRY-9893 PIC X(40) VALUE
               '999910  999910  999910  C93100  999910  '.
           03  MORPH-ENTRY-9894 PIC X(40) VALUE
               '999910  999910  999910  C93700  999910  '.
           03  MORPH-ENTRY-9895 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9896 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9897 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9898 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9899 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9900 PIC X(40) VALUE
               '999910  999910  999910  C94300  999910  '.
           03  MORPH-ENTRY-9901 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9902 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9903 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9904 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9905 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9906 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9907 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9908 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9909 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9910 PIC X(40) VALUE
               '999910  999910  999910  C94200  999910  '.
           03  MORPH-ENTRY-9911 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9912 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9913 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9914 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9915 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9916 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9917 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9918 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9919 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9920 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9921 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9922 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9923 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9924 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9925 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9926 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9927 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9928 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9929 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9930 PIC X(40) VALUE
               '999910  999910  999910  C92300  999910  '.
           03  MORPH-ENTRY-9931 PIC X(40) VALUE
               '999910  999910  999910  C94400  999910  '.
           03  MORPH-ENTRY-9932 PIC X(40) VALUE
               '999910  999910  999910  C94500  999910  '.
           03  MORPH-ENTRY-9933 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9934 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9935 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9936 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9937 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9938 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9939 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9940 PIC X(40) VALUE
               '999910  999910  999910  C91400  999910  '.
           03  MORPH-ENTRY-9941 PIC X(40) VALUE
               '999910  999910  999910  C91400  999910  '.
           03  MORPH-ENTRY-9942 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9943 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9944 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9945 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9946 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9947 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9948 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9949 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9950 PIC X(40) VALUE
               '999910  D45 00  999910  999910  999910  '.
           03  MORPH-ENTRY-9951 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9952 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9953 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9954 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9955 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9956 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9957 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9958 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9959 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9960 PIC X(40) VALUE
               '999910  D47100  999910  C96900  999910  '.
           03  MORPH-ENTRY-9961 PIC X(40) VALUE
               '999910  D47100  999910  C96900  999910  '.
           03  MORPH-ENTRY-9962 PIC X(40) VALUE
               '999910  D47300  999910  C96900  999910  '.
           03  MORPH-ENTRY-9963 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9964 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9965 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9966 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9967 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9968 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9969 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9970 PIC X(40) VALUE
               '999910  D47900  999910  C96900  999910  '.
           03  MORPH-ENTRY-9971 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9972 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9973 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9974 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9975 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9976 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9977 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9978 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9979 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9980 PIC X(40) VALUE
               '999910  D46400  999910  999910  999910  '.
           03  MORPH-ENTRY-9981 PIC X(40) VALUE
               '999910  D46000  999910  999910  999910  '.
           03  MORPH-ENTRY-9982 PIC X(40) VALUE
               '999910  D46100  999910  999910  999910  '.
           03  MORPH-ENTRY-9983 PIC X(40) VALUE
               '999910  D46200  999910  999910  999910  '.
           03  MORPH-ENTRY-9984 PIC X(40) VALUE
               '999910  D46300  999910  999910  999910  '.
           03  MORPH-ENTRY-9985 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9986 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9987 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9988 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9989 PIC X(40) VALUE
               '999910  D46900  999910  999910  999910  '.
           03  MORPH-ENTRY-9990 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9991 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9992 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9993 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9994 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9995 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9996 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9997 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9998 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
           03  MORPH-ENTRY-9999 PIC X(40) VALUE
               '9999999999999999999999999999999999999999'.
 
       01  MORPH-TABLE REDEFINES MORPH.
           02  MORPH-GROUP OCCURS 2000 TIMES.
               03  MORPH-ENTRY OCCURS 5 TIMES PIC X(8).
 
 
      *****************************************************
      *                                                   *
      * CONVERTS ICD-O-2 HIST/BEH/SITE TO ICD-10 FOR      *
      * SPECIAL CONVERSIONS ONLY, IF NOT CONVERTED BY THE *
      * MORPH-TABLE OR SITE-TABLE.  NOT C809 OR BEH=9.    *
      *                                                   *
      *****************************************************
 
       01  SPECIAL.
           03  FILLER PIC X(13) VALUE '80772C510D071'.
           03  FILLER PIC X(13) VALUE '80772C511D071'.
           03  FILLER PIC X(13) VALUE '80772C512D071'.
           03  FILLER PIC X(13) VALUE '80772C518D071'.
           03  FILLER PIC X(13) VALUE '80772C519D071'.
           03  FILLER PIC X(13) VALUE '80772C529D072'.
           03  FILLER PIC X(13) VALUE '80772C530D069'.
           03  FILLER PIC X(13) VALUE '80772C531D069'.
           03  FILLER PIC X(13) VALUE '80772C538D069'.
           03  FILLER PIC X(13) VALUE '80772C539D069'.
           03  FILLER PIC X(13) VALUE '80802C440D040'.
           03  FILLER PIC X(13) VALUE '80802C441D041'.
           03  FILLER PIC X(13) VALUE '80802C442D042'.
           03  FILLER PIC X(13) VALUE '80802C443D043'.
           03  FILLER PIC X(13) VALUE '80802C444D044'.
           03  FILLER PIC X(13) VALUE '80802C445D045'.
           03  FILLER PIC X(13) VALUE '80802C446D046'.
           03  FILLER PIC X(13) VALUE '80802C447D047'.
           03  FILLER PIC X(13) VALUE '80802C448D049'.
           03  FILLER PIC X(13) VALUE '80802C449D049'.
           03  FILLER PIC X(13) VALUE '80802C600D074'.
           03  FILLER PIC X(13) VALUE '80802C601D074'.
           03  FILLER PIC X(13) VALUE '80802C602D074'.
           03  FILLER PIC X(13) VALUE '80802C608D074'.
           03  FILLER PIC X(13) VALUE '80802C609D074'.
           03  FILLER PIC X(13) VALUE '80802C632D076'.
           03  FILLER PIC X(13) VALUE '80802C638D076'.
           03  FILLER PIC X(13) VALUE '80802C639D076'.
           03  FILLER PIC X(13) VALUE '80812C000D040'.
           03  FILLER PIC X(13) VALUE '80812C001D040'.
           03  FILLER PIC X(13) VALUE '80812C002D040'.
           03  FILLER PIC X(13) VALUE '80812C003D040'.
           03  FILLER PIC X(13) VALUE '80812C004D040'.
           03  FILLER PIC X(13) VALUE '80812C005D040'.
           03  FILLER PIC X(13) VALUE '80812C006D040'.
           03  FILLER PIC X(13) VALUE '80812C008D040'.
           03  FILLER PIC X(13) VALUE '80812C009D040'.
           03  FILLER PIC X(13) VALUE '80812C210D045'.
           03  FILLER PIC X(13) VALUE '80812C440D040'.
           03  FILLER PIC X(13) VALUE '80812C441D041'.
           03  FILLER PIC X(13) VALUE '80812C442D042'.
           03  FILLER PIC X(13) VALUE '80812C443D043'.
           03  FILLER PIC X(13) VALUE '80812C444D044'.
           03  FILLER PIC X(13) VALUE '80812C445D045'.
           03  FILLER PIC X(13) VALUE '80812C446D046'.
           03  FILLER PIC X(13) VALUE '80812C447D047'.
           03  FILLER PIC X(13) VALUE '80812C448D049'.
           03  FILLER PIC X(13) VALUE '80812C449D049'.
           03  FILLER PIC X(13) VALUE '80812C500D045'.
           03  FILLER PIC X(13) VALUE '80812C501D045'.
           03  FILLER PIC X(13) VALUE '80812C502D045'.
           03  FILLER PIC X(13) VALUE '80812C503D045'.
           03  FILLER PIC X(13) VALUE '80812C504D045'.
           03  FILLER PIC X(13) VALUE '80812C505D045'.
           03  FILLER PIC X(13) VALUE '80812C506D045'.
           03  FILLER PIC X(13) VALUE '80812C508D045'.
           03  FILLER PIC X(13) VALUE '80812C509D045'.
           03  FILLER PIC X(13) VALUE '80812C510D073'.
           03  FILLER PIC X(13) VALUE '80812C511D073'.
           03  FILLER PIC X(13) VALUE '80812C512D071'.
           03  FILLER PIC X(13) VALUE '80812C519D071'.
           03  FILLER PIC X(13) VALUE '80812C600D074'.
           03  FILLER PIC X(13) VALUE '80812C609D074'.
           03  FILLER PIC X(13) VALUE '80812C632D076'.
           03  FILLER PIC X(13) VALUE '80812C639D076'.
           03  FILLER PIC X(13) VALUE '80812C760D044'.
           03  FILLER PIC X(13) VALUE '80812C761D045'.
           03  FILLER PIC X(13) VALUE '80812C762D045'.
           03  FILLER PIC X(13) VALUE '80812C764D046'.
           03  FILLER PIC X(13) VALUE '80812C765D047'.
           03  FILLER PIC X(13) VALUE '80813C000C440'.
           03  FILLER PIC X(13) VALUE '80813C001C440'.
           03  FILLER PIC X(13) VALUE '80813C002C440'.
           03  FILLER PIC X(13) VALUE '80813C003C440'.
           03  FILLER PIC X(13) VALUE '80813C004C440'.
           03  FILLER PIC X(13) VALUE '80813C005C440'.
           03  FILLER PIC X(13) VALUE '80813C006C440'.
           03  FILLER PIC X(13) VALUE '80813C008C440'.
           03  FILLER PIC X(13) VALUE '80813C009C440'.
           03  FILLER PIC X(13) VALUE '80813C210C445'.
           03  FILLER PIC X(13) VALUE '80813C440C440'.
           03  FILLER PIC X(13) VALUE '80813C441C441'.
           03  FILLER PIC X(13) VALUE '80813C442C442'.
           03  FILLER PIC X(13) VALUE '80813C443C443'.
           03  FILLER PIC X(13) VALUE '80813C444C444'.
           03  FILLER PIC X(13) VALUE '80813C445C445'.
           03  FILLER PIC X(13) VALUE '80813C446C446'.
           03  FILLER PIC X(13) VALUE '80813C447C447'.
           03  FILLER PIC X(13) VALUE '80813C448C448'.
           03  FILLER PIC X(13) VALUE '80813C449C449'.
           03  FILLER PIC X(13) VALUE '80813C500C445'.
           03  FILLER PIC X(13) VALUE '80813C501C445'.
           03  FILLER PIC X(13) VALUE '80813C502C445'.
           03  FILLER PIC X(13) VALUE '80813C503C445'.
           03  FILLER PIC X(13) VALUE '80813C504C445'.
           03  FILLER PIC X(13) VALUE '80813C505C445'.
           03  FILLER PIC X(13) VALUE '80813C506C445'.
           03  FILLER PIC X(13) VALUE '80813C508C445'.
           03  FILLER PIC X(13) VALUE '80813C509C445'.
           03  FILLER PIC X(13) VALUE '80813C510C510'.
           03  FILLER PIC X(13) VALUE '80813C511C511'.
           03  FILLER PIC X(13) VALUE '80813C512C512'.
           03  FILLER PIC X(13) VALUE '80813C519C519'.
           03  FILLER PIC X(13) VALUE '80813C600C600'.
           03  FILLER PIC X(13) VALUE '80813C609C609'.
           03  FILLER PIC X(13) VALUE '80813C632C632'.
           03  FILLER PIC X(13) VALUE '80813C639C639'.
           03  FILLER PIC X(13) VALUE '80901C510D397'.
           03  FILLER PIC X(13) VALUE '80901C511D397'.
           03  FILLER PIC X(13) VALUE '80901C512D397'.
           03  FILLER PIC X(13) VALUE '80901C519D397'.
           03  FILLER PIC X(13) VALUE '80901C600D407'.
           03  FILLER PIC X(13) VALUE '80901C609D407'.
           03  FILLER PIC X(13) VALUE '80901C632D407'.
           03  FILLER PIC X(13) VALUE '80901C639D409'.
           03  FILLER PIC X(13) VALUE '80902C000D040'.
           03  FILLER PIC X(13) VALUE '80902C001D040'.
           03  FILLER PIC X(13) VALUE '80902C002D040'.
           03  FILLER PIC X(13) VALUE '80902C003D040'.
           03  FILLER PIC X(13) VALUE '80902C004D040'.
           03  FILLER PIC X(13) VALUE '80902C005D040'.
           03  FILLER PIC X(13) VALUE '80902C006D040'.
           03  FILLER PIC X(13) VALUE '80902C008D040'.
           03  FILLER PIC X(13) VALUE '80902C009D040'.
           03  FILLER PIC X(13) VALUE '80902C210D045'.
           03  FILLER PIC X(13) VALUE '80902C440D040'.
           03  FILLER PIC X(13) VALUE '80902C441D041'.
           03  FILLER PIC X(13) VALUE '80902C442D042'.
           03  FILLER PIC X(13) VALUE '80902C443D043'.
           03  FILLER PIC X(13) VALUE '80902C444D044'.
           03  FILLER PIC X(13) VALUE '80902C445D045'.
           03  FILLER PIC X(13) VALUE '80902C446D046'.
           03  FILLER PIC X(13) VALUE '80902C447D047'.
           03  FILLER PIC X(13) VALUE '80902C448D049'.
           03  FILLER PIC X(13) VALUE '80902C449D049'.
           03  FILLER PIC X(13) VALUE '80902C500D045'.
           03  FILLER PIC X(13) VALUE '80902C501D045'.
           03  FILLER PIC X(13) VALUE '80902C502D045'.
           03  FILLER PIC X(13) VALUE '80902C503D045'.
           03  FILLER PIC X(13) VALUE '80902C504D045'.
           03  FILLER PIC X(13) VALUE '80902C505D045'.
           03  FILLER PIC X(13) VALUE '80902C506D045'.
           03  FILLER PIC X(13) VALUE '80902C508D045'.
           03  FILLER PIC X(13) VALUE '80902C509D045'.
           03  FILLER PIC X(13) VALUE '80902C510D073'.
           03  FILLER PIC X(13) VALUE '80902C511D073'.
           03  FILLER PIC X(13) VALUE '80902C512D071'.
           03  FILLER PIC X(13) VALUE '80902C519D071'.
           03  FILLER PIC X(13) VALUE '80902C600D074'.
           03  FILLER PIC X(13) VALUE '80902C609D074'.
           03  FILLER PIC X(13) VALUE '80902C632D076'.
           03  FILLER PIC X(13) VALUE '80902C639D076'.
           03  FILLER PIC X(13) VALUE '80902C760D044'.
           03  FILLER PIC X(13) VALUE '80902C761D045'.
           03  FILLER PIC X(13) VALUE '80902C762D045'.
           03  FILLER PIC X(13) VALUE '80902C764D046'.
           03  FILLER PIC X(13) VALUE '80902C765D047'.
           03  FILLER PIC X(13) VALUE '80903C000C440'.
           03  FILLER PIC X(13) VALUE '80903C001C440'.
           03  FILLER PIC X(13) VALUE '80903C002C440'.
           03  FILLER PIC X(13) VALUE '80903C003C440'.
           03  FILLER PIC X(13) VALUE '80903C004C440'.
           03  FILLER PIC X(13) VALUE '80903C005C440'.
           03  FILLER PIC X(13) VALUE '80903C006C440'.
           03  FILLER PIC X(13) VALUE '80903C008C440'.
           03  FILLER PIC X(13) VALUE '80903C009C440'.
           03  FILLER PIC X(13) VALUE '80903C210C445'.
           03  FILLER PIC X(13) VALUE '80903C440C440'.
           03  FILLER PIC X(13) VALUE '80903C441C441'.
           03  FILLER PIC X(13) VALUE '80903C442C442'.
           03  FILLER PIC X(13) VALUE '80903C443C443'.
           03  FILLER PIC X(13) VALUE '80903C444C444'.
           03  FILLER PIC X(13) VALUE '80903C445C445'.
           03  FILLER PIC X(13) VALUE '80903C446C446'.
           03  FILLER PIC X(13) VALUE '80903C447C447'.
           03  FILLER PIC X(13) VALUE '80903C448C448'.
           03  FILLER PIC X(13) VALUE '80903C449C449'.
           03  FILLER PIC X(13) VALUE '80903C500C445'.
           03  FILLER PIC X(13) VALUE '80903C501C445'.
           03  FILLER PIC X(13) VALUE '80903C502C445'.
           03  FILLER PIC X(13) VALUE '80903C503C445'.
           03  FILLER PIC X(13) VALUE '80903C504C445'.
           03  FILLER PIC X(13) VALUE '80903C505C445'.
           03  FILLER PIC X(13) VALUE '80903C506C445'.
           03  FILLER PIC X(13) VALUE '80903C508C445'.
           03  FILLER PIC X(13) VALUE '80903C509C445'.
           03  FILLER PIC X(13) VALUE '80903C510C510'.
           03  FILLER PIC X(13) VALUE '80903C511C511'.
           03  FILLER PIC X(13) VALUE '80903C512C512'.
           03  FILLER PIC X(13) VALUE '80903C518C518'.
           03  FILLER PIC X(13) VALUE '80903C519C519'.
           03  FILLER PIC X(13) VALUE '80903C529C52 '.
           03  FILLER PIC X(13) VALUE '80903C600C600'.
           03  FILLER PIC X(13) VALUE '80903C601C601'.
           03  FILLER PIC X(13) VALUE '80903C602C602'.
           03  FILLER PIC X(13) VALUE '80903C608C608'.
           03  FILLER PIC X(13) VALUE '80903C609C609'.
           03  FILLER PIC X(13) VALUE '80903C632C632'.
           03  FILLER PIC X(13) VALUE '80903C639C639'.
           03  FILLER PIC X(13) VALUE '80903C760C444'.
           03  FILLER PIC X(13) VALUE '80903C761C445'.
           03  FILLER PIC X(13) VALUE '80903C762C445'.
           03  FILLER PIC X(13) VALUE '80903C764C446'.
           03  FILLER PIC X(13) VALUE '80903C765C447'.
           03  FILLER PIC X(13) VALUE '80912C000D040'.
           03  FILLER PIC X(13) VALUE '80912C001D040'.
           03  FILLER PIC X(13) VALUE '80912C002D040'.
           03  FILLER PIC X(13) VALUE '80912C003D040'.
           03  FILLER PIC X(13) VALUE '80912C004D040'.
           03  FILLER PIC X(13) VALUE '80912C005D040'.
           03  FILLER PIC X(13) VALUE '80912C006D040'.
           03  FILLER PIC X(13) VALUE '80912C008D040'.
           03  FILLER PIC X(13) VALUE '80912C009D040'.
           03  FILLER PIC X(13) VALUE '80912C210D045'.
           03  FILLER PIC X(13) VALUE '80912C440D040'.
           03  FILLER PIC X(13) VALUE '80912C441D041'.
           03  FILLER PIC X(13) VALUE '80912C442D042'.
           03  FILLER PIC X(13) VALUE '80912C443D043'.
           03  FILLER PIC X(13) VALUE '80912C444D044'.
           03  FILLER PIC X(13) VALUE '80912C445D045'.
           03  FILLER PIC X(13) VALUE '80912C446D046'.
           03  FILLER PIC X(13) VALUE '80912C447D047'.
           03  FILLER PIC X(13) VALUE '80912C448D049'.
           03  FILLER PIC X(13) VALUE '80912C449D049'.
           03  FILLER PIC X(13) VALUE '80912C500D045'.
           03  FILLER PIC X(13) VALUE '80912C501D045'.
           03  FILLER PIC X(13) VALUE '80912C502D045'.
           03  FILLER PIC X(13) VALUE '80912C503D045'.
           03  FILLER PIC X(13) VALUE '80912C504D045'.
           03  FILLER PIC X(13) VALUE '80912C505D045'.
           03  FILLER PIC X(13) VALUE '80912C506D045'.
           03  FILLER PIC X(13) VALUE '80912C508D045'.
           03  FILLER PIC X(13) VALUE '80912C509D045'.
           03  FILLER PIC X(13) VALUE '80912C510D073'.
           03  FILLER PIC X(13) VALUE '80912C511D073'.
           03  FILLER PIC X(13) VALUE '80912C512D071'.
           03  FILLER PIC X(13) VALUE '80912C519D071'.
           03  FILLER PIC X(13) VALUE '80912C600D074'.
           03  FILLER PIC X(13) VALUE '80912C609D074'.
           03  FILLER PIC X(13) VALUE '80912C632D076'.
           03  FILLER PIC X(13) VALUE '80912C639D076'.
           03  FILLER PIC X(13) VALUE '80912C760D044'.
           03  FILLER PIC X(13) VALUE '80912C761D045'.
           03  FILLER PIC X(13) VALUE '80912C762D045'.
           03  FILLER PIC X(13) VALUE '80912C764D046'.
           03  FILLER PIC X(13) VALUE '80912C765D047'.
           03  FILLER PIC X(13) VALUE '80913C000C440'.
           03  FILLER PIC X(13) VALUE '80913C001C440'.
           03  FILLER PIC X(13) VALUE '80913C002C440'.
           03  FILLER PIC X(13) VALUE '80913C003C440'.
           03  FILLER PIC X(13) VALUE '80913C004C440'.
           03  FILLER PIC X(13) VALUE '80913C005C440'.
           03  FILLER PIC X(13) VALUE '80913C006C440'.
           03  FILLER PIC X(13) VALUE '80913C008C440'.
           03  FILLER PIC X(13) VALUE '80913C009C440'.
           03  FILLER PIC X(13) VALUE '80913C210C445'.
           03  FILLER PIC X(13) VALUE '80913C440C440'.
           03  FILLER PIC X(13) VALUE '80913C441C441'.
           03  FILLER PIC X(13) VALUE '80913C442C442'.
           03  FILLER PIC X(13) VALUE '80913C443C443'.
           03  FILLER PIC X(13) VALUE '80913C444C444'.
           03  FILLER PIC X(13) VALUE '80913C445C445'.
           03  FILLER PIC X(13) VALUE '80913C446C446'.
           03  FILLER PIC X(13) VALUE '80913C447C447'.
           03  FILLER PIC X(13) VALUE '80913C448C448'.
           03  FILLER PIC X(13) VALUE '80913C449C449'.
           03  FILLER PIC X(13) VALUE '80913C500C445'.
           03  FILLER PIC X(13) VALUE '80913C501C445'.
           03  FILLER PIC X(13) VALUE '80913C502C445'.
           03  FILLER PIC X(13) VALUE '80913C503C445'.
           03  FILLER PIC X(13) VALUE '80913C504C445'.
           03  FILLER PIC X(13) VALUE '80913C505C445'.
           03  FILLER PIC X(13) VALUE '80913C506C445'.
           03  FILLER PIC X(13) VALUE '80913C508C445'.
           03  FILLER PIC X(13) VALUE '80913C509C445'.
           03  FILLER PIC X(13) VALUE '80913C510C510'.
           03  FILLER PIC X(13) VALUE '80913C511C511'.
           03  FILLER PIC X(13) VALUE '80913C512C512'.
           03  FILLER PIC X(13) VALUE '80913C518C518'.
           03  FILLER PIC X(13) VALUE '80913C519C519'.
           03  FILLER PIC X(13) VALUE '80913C529C52 '.
           03  FILLER PIC X(13) VALUE '80913C600C600'.
           03  FILLER PIC X(13) VALUE '80913C601C601'.
           03  FILLER PIC X(13) VALUE '80913C602C602'.
           03  FILLER PIC X(13) VALUE '80913C608C608'.
           03  FILLER PIC X(13) VALUE '80913C609C609'.
           03  FILLER PIC X(13) VALUE '80913C632C632'.
           03  FILLER PIC X(13) VALUE '80913C639C639'.
           03  FILLER PIC X(13) VALUE '80913C760C444'.
           03  FILLER PIC X(13) VALUE '80913C761C445'.
           03  FILLER PIC X(13) VALUE '80913C762C445'.
           03  FILLER PIC X(13) VALUE '80913C764C446'.
           03  FILLER PIC X(13) VALUE '80913C765C447'.
           03  FILLER PIC X(13) VALUE '80923C000C440'.
           03  FILLER PIC X(13) VALUE '80923C001C440'.
           03  FILLER PIC X(13) VALUE '80923C002C440'.
           03  FILLER PIC X(13) VALUE '80923C003C440'.
           03  FILLER PIC X(13) VALUE '80923C004C440'.
           03  FILLER PIC X(13) VALUE '80923C005C440'.
           03  FILLER PIC X(13) VALUE '80923C006C440'.
           03  FILLER PIC X(13) VALUE '80923C008C440'.
           03  FILLER PIC X(13) VALUE '80923C009C440'.
           03  FILLER PIC X(13) VALUE '80923C210C445'.
           03  FILLER PIC X(13) VALUE '80923C440C440'.
           03  FILLER PIC X(13) VALUE '80923C441C441'.
           03  FILLER PIC X(13) VALUE '80923C442C442'.
           03  FILLER PIC X(13) VALUE '80923C443C443'.
           03  FILLER PIC X(13) VALUE '80923C444C444'.
           03  FILLER PIC X(13) VALUE '80923C445C445'.
           03  FILLER PIC X(13) VALUE '80923C446C446'.
           03  FILLER PIC X(13) VALUE '80923C447C447'.
           03  FILLER PIC X(13) VALUE '80923C448C448'.
           03  FILLER PIC X(13) VALUE '80923C449C449'.
           03  FILLER PIC X(13) VALUE '80923C500C445'.
           03  FILLER PIC X(13) VALUE '80923C501C445'.
           03  FILLER PIC X(13) VALUE '80923C502C445'.
           03  FILLER PIC X(13) VALUE '80923C503C445'.
           03  FILLER PIC X(13) VALUE '80923C504C445'.
           03  FILLER PIC X(13) VALUE '80923C505C445'.
           03  FILLER PIC X(13) VALUE '80923C506C445'.
           03  FILLER PIC X(13) VALUE '80923C508C445'.
           03  FILLER PIC X(13) VALUE '80923C509C445'.
           03  FILLER PIC X(13) VALUE '80923C510C510'.
           03  FILLER PIC X(13) VALUE '80923C511C511'.
           03  FILLER PIC X(13) VALUE '80923C512C512'.
           03  FILLER PIC X(13) VALUE '80923C519C519'.
           03  FILLER PIC X(13) VALUE '80923C600C600'.
           03  FILLER PIC X(13) VALUE '80923C609C609'.
           03  FILLER PIC X(13) VALUE '80923C632C632'.
           03  FILLER PIC X(13) VALUE '80923C639C639'.
           03  FILLER PIC X(13) VALUE '80923C760C444'.
           03  FILLER PIC X(13) VALUE '80923C761C445'.
           03  FILLER PIC X(13) VALUE '80923C762C445'.
           03  FILLER PIC X(13) VALUE '80923C764C446'.
           03  FILLER PIC X(13) VALUE '80923C765C447'.
           03  FILLER PIC X(13) VALUE '80933C000C440'.
           03  FILLER PIC X(13) VALUE '80933C001C440'.
           03  FILLER PIC X(13) VALUE '80933C002C440'.
           03  FILLER PIC X(13) VALUE '80933C003C440'.
           03  FILLER PIC X(13) VALUE '80933C004C440'.
           03  FILLER PIC X(13) VALUE '80933C005C440'.
           03  FILLER PIC X(13) VALUE '80933C006C440'.
           03  FILLER PIC X(13) VALUE '80933C008C440'.
           03  FILLER PIC X(13) VALUE '80933C009C440'.
           03  FILLER PIC X(13) VALUE '80933C210C445'.
           03  FILLER PIC X(13) VALUE '80933C440C440'.
           03  FILLER PIC X(13) VALUE '80933C441C441'.
           03  FILLER PIC X(13) VALUE '80933C442C442'.
           03  FILLER PIC X(13) VALUE '80933C443C443'.
           03  FILLER PIC X(13) VALUE '80933C444C444'.
           03  FILLER PIC X(13) VALUE '80933C445C445'.
           03  FILLER PIC X(13) VALUE '80933C446C446'.
           03  FILLER PIC X(13) VALUE '80933C447C447'.
           03  FILLER PIC X(13) VALUE '80933C448C448'.
           03  FILLER PIC X(13) VALUE '80933C449C449'.
           03  FILLER PIC X(13) VALUE '80933C500C445'.
           03  FILLER PIC X(13) VALUE '80933C501C445'.
           03  FILLER PIC X(13) VALUE '80933C502C445'.
           03  FILLER PIC X(13) VALUE '80933C503C445'.
           03  FILLER PIC X(13) VALUE '80933C504C445'.
           03  FILLER PIC X(13) VALUE '80933C505C445'.
           03  FILLER PIC X(13) VALUE '80933C506C445'.
           03  FILLER PIC X(13) VALUE '80933C508C445'.
           03  FILLER PIC X(13) VALUE '80933C509C445'.
           03  FILLER PIC X(13) VALUE '80933C510C510'.
           03  FILLER PIC X(13) VALUE '80933C511C511'.
           03  FILLER PIC X(13) VALUE '80933C512C512'.
           03  FILLER PIC X(13) VALUE '80933C518C518'.
           03  FILLER PIC X(13) VALUE '80933C519C519'.
           03  FILLER PIC X(13) VALUE '80933C529C52 '.
           03  FILLER PIC X(13) VALUE '80933C600C600'.
           03  FILLER PIC X(13) VALUE '80933C601C601'.
           03  FILLER PIC X(13) VALUE '80933C602C602'.
           03  FILLER PIC X(13) VALUE '80933C608C608'.
           03  FILLER PIC X(13) VALUE '80933C609C609'.
           03  FILLER PIC X(13) VALUE '80933C632C632'.
           03  FILLER PIC X(13) VALUE '80933C639C639'.
           03  FILLER PIC X(13) VALUE '80933C760C444'.
           03  FILLER PIC X(13) VALUE '80933C761C445'.
           03  FILLER PIC X(13) VALUE '80933C762C445'.
           03  FILLER PIC X(13) VALUE '80933C764C446'.
           03  FILLER PIC X(13) VALUE '80933C765C447'.
           03  FILLER PIC X(13) VALUE '80943C000C440'.
           03  FILLER PIC X(13) VALUE '80943C001C440'.
           03  FILLER PIC X(13) VALUE '80943C002C440'.
           03  FILLER PIC X(13) VALUE '80943C003C440'.
           03  FILLER PIC X(13) VALUE '80943C004C440'.
           03  FILLER PIC X(13) VALUE '80943C005C440'.
           03  FILLER PIC X(13) VALUE '80943C006C440'.
           03  FILLER PIC X(13) VALUE '80943C008C440'.
           03  FILLER PIC X(13) VALUE '80943C009C440'.
           03  FILLER PIC X(13) VALUE '80943C210C445'.
           03  FILLER PIC X(13) VALUE '80943C440C440'.
           03  FILLER PIC X(13) VALUE '80943C441C441'.
           03  FILLER PIC X(13) VALUE '80943C442C442'.
           03  FILLER PIC X(13) VALUE '80943C443C443'.
           03  FILLER PIC X(13) VALUE '80943C444C444'.
           03  FILLER PIC X(13) VALUE '80943C445C445'.
           03  FILLER PIC X(13) VALUE '80943C446C446'.
           03  FILLER PIC X(13) VALUE '80943C447C447'.
           03  FILLER PIC X(13) VALUE '80943C448C448'.
           03  FILLER PIC X(13) VALUE '80943C449C449'.
           03  FILLER PIC X(13) VALUE '80943C500C445'.
           03  FILLER PIC X(13) VALUE '80943C501C445'.
           03  FILLER PIC X(13) VALUE '80943C502C445'.
           03  FILLER PIC X(13) VALUE '80943C503C445'.
           03  FILLER PIC X(13) VALUE '80943C504C445'.
           03  FILLER PIC X(13) VALUE '80943C505C445'.
           03  FILLER PIC X(13) VALUE '80943C506C445'.
           03  FILLER PIC X(13) VALUE '80943C508C445'.
           03  FILLER PIC X(13) VALUE '80943C509C445'.
           03  FILLER PIC X(13) VALUE '80943C510C510'.
           03  FILLER PIC X(13) VALUE '80943C511C511'.
           03  FILLER PIC X(13) VALUE '80943C512C512'.
           03  FILLER PIC X(13) VALUE '80943C518C518'.
           03  FILLER PIC X(13) VALUE '80943C519C519'.
           03  FILLER PIC X(13) VALUE '80943C529C52 '.
           03  FILLER PIC X(13) VALUE '80943C600C600'.
           03  FILLER PIC X(13) VALUE '80943C601C601'.
           03  FILLER PIC X(13) VALUE '80943C602C602'.
           03  FILLER PIC X(13) VALUE '80943C608C608'.
           03  FILLER PIC X(13) VALUE '80943C609C609'.
           03  FILLER PIC X(13) VALUE '80943C632C632'.
           03  FILLER PIC X(13) VALUE '80943C639C639'.
           03  FILLER PIC X(13) VALUE '80943C760C444'.
           03  FILLER PIC X(13) VALUE '80943C761C445'.
           03  FILLER PIC X(13) VALUE '80943C762C445'.
           03  FILLER PIC X(13) VALUE '80943C764C446'.
           03  FILLER PIC X(13) VALUE '80943C765C447'.
           03  FILLER PIC X(13) VALUE '80953C000C440'.
           03  FILLER PIC X(13) VALUE '80953C001C440'.
           03  FILLER PIC X(13) VALUE '80953C002C440'.
           03  FILLER PIC X(13) VALUE '80953C003C440'.
           03  FILLER PIC X(13) VALUE '80953C004C440'.
           03  FILLER PIC X(13) VALUE '80953C005C440'.
           03  FILLER PIC X(13) VALUE '80953C006C440'.
           03  FILLER PIC X(13) VALUE '80953C008C440'.
           03  FILLER PIC X(13) VALUE '80953C009C440'.
           03  FILLER PIC X(13) VALUE '80953C210C445'.
           03  FILLER PIC X(13) VALUE '80953C440C440'.
           03  FILLER PIC X(13) VALUE '80953C441C441'.
           03  FILLER PIC X(13) VALUE '80953C442C442'.
           03  FILLER PIC X(13) VALUE '80953C443C443'.
           03  FILLER PIC X(13) VALUE '80953C444C444'.
           03  FILLER PIC X(13) VALUE '80953C445C445'.
           03  FILLER PIC X(13) VALUE '80953C446C446'.
           03  FILLER PIC X(13) VALUE '80953C447C447'.
           03  FILLER PIC X(13) VALUE '80953C448C448'.
           03  FILLER PIC X(13) VALUE '80953C449C449'.
           03  FILLER PIC X(13) VALUE '80953C500C445'.
           03  FILLER PIC X(13) VALUE '80953C501C445'.
           03  FILLER PIC X(13) VALUE '80953C502C445'.
           03  FILLER PIC X(13) VALUE '80953C503C445'.
           03  FILLER PIC X(13) VALUE '80953C504C445'.
           03  FILLER PIC X(13) VALUE '80953C505C445'.
           03  FILLER PIC X(13) VALUE '80953C506C445'.
           03  FILLER PIC X(13) VALUE '80953C508C445'.
           03  FILLER PIC X(13) VALUE '80953C509C445'.
           03  FILLER PIC X(13) VALUE '80953C510C510'.
           03  FILLER PIC X(13) VALUE '80953C511C511'.
           03  FILLER PIC X(13) VALUE '80953C512C512'.
           03  FILLER PIC X(13) VALUE '80953C518C518'.
           03  FILLER PIC X(13) VALUE '80953C519C519'.
           03  FILLER PIC X(13) VALUE '80953C529C52 '.
           03  FILLER PIC X(13) VALUE '80953C600C600'.
           03  FILLER PIC X(13) VALUE '80953C601C601'.
           03  FILLER PIC X(13) VALUE '80953C602C602'.
           03  FILLER PIC X(13) VALUE '80953C608C608'.
           03  FILLER PIC X(13) VALUE '80953C609C609'.
           03  FILLER PIC X(13) VALUE '80953C632C632'.
           03  FILLER PIC X(13) VALUE '80953C639C639'.
           03  FILLER PIC X(13) VALUE '80953C760C444'.
           03  FILLER PIC X(13) VALUE '80953C761C445'.
           03  FILLER PIC X(13) VALUE '80953C762C445'.
           03  FILLER PIC X(13) VALUE '80953C764C446'.
           03  FILLER PIC X(13) VALUE '80953C765C447'.
           03  FILLER PIC X(13) VALUE '80960C000D230'.
           03  FILLER PIC X(13) VALUE '80960C001D230'.
           03  FILLER PIC X(13) VALUE '80960C002D230'.
           03  FILLER PIC X(13) VALUE '80960C003D230'.
           03  FILLER PIC X(13) VALUE '80960C004D230'.
           03  FILLER PIC X(13) VALUE '80960C005D230'.
           03  FILLER PIC X(13) VALUE '80960C006D230'.
           03  FILLER PIC X(13) VALUE '80960C008D230'.
           03  FILLER PIC X(13) VALUE '80960C009D230'.
           03  FILLER PIC X(13) VALUE '80960C210D235'.
           03  FILLER PIC X(13) VALUE '80960C440D230'.
           03  FILLER PIC X(13) VALUE '80960C441D231'.
           03  FILLER PIC X(13) VALUE '80960C442D232'.
           03  FILLER PIC X(13) VALUE '80960C443D233'.
           03  FILLER PIC X(13) VALUE '80960C444D234'.
           03  FILLER PIC X(13) VALUE '80960C445D235'.
           03  FILLER PIC X(13) VALUE '80960C446D236'.
           03  FILLER PIC X(13) VALUE '80960C447D237'.
           03  FILLER PIC X(13) VALUE '80960C448D239'.
           03  FILLER PIC X(13) VALUE '80960C449D239'.
           03  FILLER PIC X(13) VALUE '80960C500D235'.
           03  FILLER PIC X(13) VALUE '80960C501D235'.
           03  FILLER PIC X(13) VALUE '80960C502D235'.
           03  FILLER PIC X(13) VALUE '80960C503D235'.
           03  FILLER PIC X(13) VALUE '80960C504D235'.
           03  FILLER PIC X(13) VALUE '80960C505D235'.
           03  FILLER PIC X(13) VALUE '80960C506D235'.
           03  FILLER PIC X(13) VALUE '80960C508D235'.
           03  FILLER PIC X(13) VALUE '80960C509D235'.
           03  FILLER PIC X(13) VALUE '80960C510D280'.
           03  FILLER PIC X(13) VALUE '80960C511D280'.
           03  FILLER PIC X(13) VALUE '80960C512D280'.
           03  FILLER PIC X(13) VALUE '80960C519D280'.
           03  FILLER PIC X(13) VALUE '80960C600D290'.
           03  FILLER PIC X(13) VALUE '80960C609D290'.
           03  FILLER PIC X(13) VALUE '80960C632D294'.
           03  FILLER PIC X(13) VALUE '80960C639D299'.
           03  FILLER PIC X(13) VALUE '80960C760D234'.
           03  FILLER PIC X(13) VALUE '80960C761D235'.
           03  FILLER PIC X(13) VALUE '80960C762D235'.
           03  FILLER PIC X(13) VALUE '80960C764D230'.
           03  FILLER PIC X(13) VALUE '80960C765D236'.
           03  FILLER PIC X(13) VALUE '81000C000D230'.
           03  FILLER PIC X(13) VALUE '81000C001D230'.
           03  FILLER PIC X(13) VALUE '81000C002D230'.
           03  FILLER PIC X(13) VALUE '81000C003D230'.
           03  FILLER PIC X(13) VALUE '81000C004D230'.
           03  FILLER PIC X(13) VALUE '81000C005D230'.
           03  FILLER PIC X(13) VALUE '81000C006D230'.
           03  FILLER PIC X(13) VALUE '81000C008D230'.
           03  FILLER PIC X(13) VALUE '81000C009D230'.
           03  FILLER PIC X(13) VALUE '81000C210D235'.
           03  FILLER PIC X(13) VALUE '81000C440D230'.
           03  FILLER PIC X(13) VALUE '81000C441D231'.
           03  FILLER PIC X(13) VALUE '81000C442D232'.
           03  FILLER PIC X(13) VALUE '81000C443D233'.
           03  FILLER PIC X(13) VALUE '81000C444D234'.
           03  FILLER PIC X(13) VALUE '81000C445D235'.
           03  FILLER PIC X(13) VALUE '81000C446D236'.
           03  FILLER PIC X(13) VALUE '81000C447D237'.
           03  FILLER PIC X(13) VALUE '81000C448D239'.
           03  FILLER PIC X(13) VALUE '81000C449D239'.
           03  FILLER PIC X(13) VALUE '81000C500D235'.
           03  FILLER PIC X(13) VALUE '81000C501D235'.
           03  FILLER PIC X(13) VALUE '81000C502D235'.
           03  FILLER PIC X(13) VALUE '81000C503D235'.
           03  FILLER PIC X(13) VALUE '81000C504D235'.
           03  FILLER PIC X(13) VALUE '81000C505D235'.
           03  FILLER PIC X(13) VALUE '81000C506D235'.
           03  FILLER PIC X(13) VALUE '81000C508D235'.
           03  FILLER PIC X(13) VALUE '81000C509D235'.
           03  FILLER PIC X(13) VALUE '81000C510D280'.
           03  FILLER PIC X(13) VALUE '81000C511D280'.
           03  FILLER PIC X(13) VALUE '81000C512D280'.
           03  FILLER PIC X(13) VALUE '81000C519D280'.
           03  FILLER PIC X(13) VALUE '81000C600D290'.
           03  FILLER PIC X(13) VALUE '81000C609D290'.
           03  FILLER PIC X(13) VALUE '81000C632D294'.
           03  FILLER PIC X(13) VALUE '81000C639D299'.
           03  FILLER PIC X(13) VALUE '81000C760D234'.
           03  FILLER PIC X(13) VALUE '81000C761D235'.
           03  FILLER PIC X(13) VALUE '81000C762D235'.
           03  FILLER PIC X(13) VALUE '81000C764D230'.
           03  FILLER PIC X(13) VALUE '81000C765D236'.
           03  FILLER PIC X(13) VALUE '81010C000D230'.
           03  FILLER PIC X(13) VALUE '81010C001D230'.
           03  FILLER PIC X(13) VALUE '81010C002D230'.
           03  FILLER PIC X(13) VALUE '81010C003D230'.
           03  FILLER PIC X(13) VALUE '81010C004D230'.
           03  FILLER PIC X(13) VALUE '81010C005D230'.
           03  FILLER PIC X(13) VALUE '81010C006D230'.
           03  FILLER PIC X(13) VALUE '81010C008D230'.
           03  FILLER PIC X(13) VALUE '81010C009D230'.
           03  FILLER PIC X(13) VALUE '81010C210D235'.
           03  FILLER PIC X(13) VALUE '81010C440D230'.
           03  FILLER PIC X(13) VALUE '81010C441D231'.
           03  FILLER PIC X(13) VALUE '81010C442D232'.
           03  FILLER PIC X(13) VALUE '81010C443D233'.
           03  FILLER PIC X(13) VALUE '81010C444D234'.
           03  FILLER PIC X(13) VALUE '81010C445D235'.
           03  FILLER PIC X(13) VALUE '81010C446D236'.
           03  FILLER PIC X(13) VALUE '81010C447D237'.
           03  FILLER PIC X(13) VALUE '81010C448D239'.
           03  FILLER PIC X(13) VALUE '81010C449D239'.
           03  FILLER PIC X(13) VALUE '81010C500D235'.
           03  FILLER PIC X(13) VALUE '81010C501D235'.
           03  FILLER PIC X(13) VALUE '81010C502D235'.
           03  FILLER PIC X(13) VALUE '81010C503D235'.
           03  FILLER PIC X(13) VALUE '81010C504D235'.
           03  FILLER PIC X(13) VALUE '81010C505D235'.
           03  FILLER PIC X(13) VALUE '81010C506D235'.
           03  FILLER PIC X(13) VALUE '81010C508D235'.
           03  FILLER PIC X(13) VALUE '81010C509D235'.
           03  FILLER PIC X(13) VALUE '81010C510D280'.
           03  FILLER PIC X(13) VALUE '81010C511D280'.
           03  FILLER PIC X(13) VALUE '81010C512D280'.
           03  FILLER PIC X(13) VALUE '81010C519D280'.
           03  FILLER PIC X(13) VALUE '81010C600D290'.
           03  FILLER PIC X(13) VALUE '81010C609D290'.
           03  FILLER PIC X(13) VALUE '81010C632D294'.
           03  FILLER PIC X(13) VALUE '81010C639D299'.
           03  FILLER PIC X(13) VALUE '81010C760D234'.
           03  FILLER PIC X(13) VALUE '81010C761D235'.
           03  FILLER PIC X(13) VALUE '81010C762D235'.
           03  FILLER PIC X(13) VALUE '81010C764D230'.
           03  FILLER PIC X(13) VALUE '81010C765D236'.
           03  FILLER PIC X(13) VALUE '81020C000D230'.
           03  FILLER PIC X(13) VALUE '81020C001D230'.
           03  FILLER PIC X(13) VALUE '81020C002D230'.
           03  FILLER PIC X(13) VALUE '81020C003D230'.
           03  FILLER PIC X(13) VALUE '81020C004D230'.
           03  FILLER PIC X(13) VALUE '81020C005D230'.
           03  FILLER PIC X(13) VALUE '81020C006D230'.
           03  FILLER PIC X(13) VALUE '81020C008D230'.
           03  FILLER PIC X(13) VALUE '81020C009D230'.
           03  FILLER PIC X(13) VALUE '81020C210D235'.
           03  FILLER PIC X(13) VALUE '81020C440D230'.
           03  FILLER PIC X(13) VALUE '81020C441D231'.
           03  FILLER PIC X(13) VALUE '81020C442D232'.
           03  FILLER PIC X(13) VALUE '81020C443D233'.
           03  FILLER PIC X(13) VALUE '81020C444D234'.
           03  FILLER PIC X(13) VALUE '81020C445D235'.
           03  FILLER PIC X(13) VALUE '81020C446D236'.
           03  FILLER PIC X(13) VALUE '81020C447D237'.
           03  FILLER PIC X(13) VALUE '81020C448D239'.
           03  FILLER PIC X(13) VALUE '81020C449D239'.
           03  FILLER PIC X(13) VALUE '81020C500D235'.
           03  FILLER PIC X(13) VALUE '81020C501D235'.
           03  FILLER PIC X(13) VALUE '81020C502D235'.
           03  FILLER PIC X(13) VALUE '81020C503D235'.
           03  FILLER PIC X(13) VALUE '81020C504D235'.
           03  FILLER PIC X(13) VALUE '81020C505D235'.
           03  FILLER PIC X(13) VALUE '81020C506D235'.
           03  FILLER PIC X(13) VALUE '81020C508D235'.
           03  FILLER PIC X(13) VALUE '81020C509D235'.
           03  FILLER PIC X(13) VALUE '81020C510D280'.
           03  FILLER PIC X(13) VALUE '81020C511D280'.
           03  FILLER PIC X(13) VALUE '81020C512D280'.
           03  FILLER PIC X(13) VALUE '81020C519D280'.
           03  FILLER PIC X(13) VALUE '81020C600D290'.
           03  FILLER PIC X(13) VALUE '81020C609D290'.
           03  FILLER PIC X(13) VALUE '81020C632D294'.
           03  FILLER PIC X(13) VALUE '81020C639D299'.
           03  FILLER PIC X(13) VALUE '81020C760D234'.
           03  FILLER PIC X(13) VALUE '81020C761D235'.
           03  FILLER PIC X(13) VALUE '81020C762D235'.
           03  FILLER PIC X(13) VALUE '81020C764D230'.
           03  FILLER PIC X(13) VALUE '81020C765D236'.
           03  FILLER PIC X(13) VALUE '81100C000D230'.
           03  FILLER PIC X(13) VALUE '81100C001D230'.
           03  FILLER PIC X(13) VALUE '81100C002D230'.
           03  FILLER PIC X(13) VALUE '81100C003D230'.
           03  FILLER PIC X(13) VALUE '81100C004D230'.
           03  FILLER PIC X(13) VALUE '81100C005D230'.
           03  FILLER PIC X(13) VALUE '81100C006D230'.
           03  FILLER PIC X(13) VALUE '81100C008D230'.
           03  FILLER PIC X(13) VALUE '81100C009D230'.
           03  FILLER PIC X(13) VALUE '81100C210D235'.
           03  FILLER PIC X(13) VALUE '81100C440D230'.
           03  FILLER PIC X(13) VALUE '81100C441D231'.
           03  FILLER PIC X(13) VALUE '81100C442D232'.
           03  FILLER PIC X(13) VALUE '81100C443D233'.
           03  FILLER PIC X(13) VALUE '81100C444D234'.
           03  FILLER PIC X(13) VALUE '81100C445D235'.
           03  FILLER PIC X(13) VALUE '81100C446D236'.
           03  FILLER PIC X(13) VALUE '81100C447D237'.
           03  FILLER PIC X(13) VALUE '81100C448D239'.
           03  FILLER PIC X(13) VALUE '81100C449D239'.
           03  FILLER PIC X(13) VALUE '81100C500D235'.
           03  FILLER PIC X(13) VALUE '81100C501D235'.
           03  FILLER PIC X(13) VALUE '81100C502D235'.
           03  FILLER PIC X(13) VALUE '81100C503D235'.
           03  FILLER PIC X(13) VALUE '81100C504D235'.
           03  FILLER PIC X(13) VALUE '81100C505D235'.
           03  FILLER PIC X(13) VALUE '81100C506D235'.
           03  FILLER PIC X(13) VALUE '81100C508D235'.
           03  FILLER PIC X(13) VALUE '81100C509D235'.
           03  FILLER PIC X(13) VALUE '81100C510D280'.
           03  FILLER PIC X(13) VALUE '81100C511D280'.
           03  FILLER PIC X(13) VALUE '81100C512D280'.
           03  FILLER PIC X(13) VALUE '81100C519D280'.
           03  FILLER PIC X(13) VALUE '81100C600D290'.
           03  FILLER PIC X(13) VALUE '81100C609D290'.
           03  FILLER PIC X(13) VALUE '81100C632D294'.
           03  FILLER PIC X(13) VALUE '81100C639D299'.
           03  FILLER PIC X(13) VALUE '81100C760D234'.
           03  FILLER PIC X(13) VALUE '81100C761D235'.
           03  FILLER PIC X(13) VALUE '81100C762D235'.
           03  FILLER PIC X(13) VALUE '81100C764D230'.
           03  FILLER PIC X(13) VALUE '81100C765D236'.
           03  FILLER PIC X(13) VALUE '81103C000C440'.
           03  FILLER PIC X(13) VALUE '81103C001C440'.
           03  FILLER PIC X(13) VALUE '81103C002C440'.
           03  FILLER PIC X(13) VALUE '81103C003C440'.
           03  FILLER PIC X(13) VALUE '81103C004C440'.
           03  FILLER PIC X(13) VALUE '81103C005C440'.
           03  FILLER PIC X(13) VALUE '81103C006C440'.
           03  FILLER PIC X(13) VALUE '81103C008C440'.
           03  FILLER PIC X(13) VALUE '81103C009C440'.
           03  FILLER PIC X(13) VALUE '81103C210C445'.
           03  FILLER PIC X(13) VALUE '81103C440C440'.
           03  FILLER PIC X(13) VALUE '81103C441C441'.
           03  FILLER PIC X(13) VALUE '81103C442C442'.
           03  FILLER PIC X(13) VALUE '81103C443C443'.
           03  FILLER PIC X(13) VALUE '81103C444C444'.
           03  FILLER PIC X(13) VALUE '81103C445C445'.
           03  FILLER PIC X(13) VALUE '81103C446C446'.
           03  FILLER PIC X(13) VALUE '81103C447C447'.
           03  FILLER PIC X(13) VALUE '81103C448C448'.
           03  FILLER PIC X(13) VALUE '81103C449C449'.
           03  FILLER PIC X(13) VALUE '81103C500C445'.
           03  FILLER PIC X(13) VALUE '81103C501C445'.
           03  FILLER PIC X(13) VALUE '81103C502C445'.
           03  FILLER PIC X(13) VALUE '81103C503C445'.
           03  FILLER PIC X(13) VALUE '81103C504C445'.
           03  FILLER PIC X(13) VALUE '81103C505C445'.
           03  FILLER PIC X(13) VALUE '81103C506C445'.
           03  FILLER PIC X(13) VALUE '81103C508C445'.
           03  FILLER PIC X(13) VALUE '81103C509C445'.
           03  FILLER PIC X(13) VALUE '81103C510C510'.
           03  FILLER PIC X(13) VALUE '81103C511C511'.
           03  FILLER PIC X(13) VALUE '81103C512C512'.
           03  FILLER PIC X(13) VALUE '81103C518C518'.
           03  FILLER PIC X(13) VALUE '81103C519C519'.
           03  FILLER PIC X(13) VALUE '81103C529C52 '.
           03  FILLER PIC X(13) VALUE '81103C600C600'.
           03  FILLER PIC X(13) VALUE '81103C601C601'.
           03  FILLER PIC X(13) VALUE '81103C602C602'.
           03  FILLER PIC X(13) VALUE '81103C608C608'.
           03  FILLER PIC X(13) VALUE '81103C609C609'.
           03  FILLER PIC X(13) VALUE '81103C632C632'.
           03  FILLER PIC X(13) VALUE '81103C639C639'.
           03  FILLER PIC X(13) VALUE '81103C760C444'.
           03  FILLER PIC X(13) VALUE '81103C761C445'.
           03  FILLER PIC X(13) VALUE '81103C762C445'.
           03  FILLER PIC X(13) VALUE '81103C764C446'.
           03  FILLER PIC X(13) VALUE '81103C765C447'.
           03  FILLER PIC X(13) VALUE '81400C619N40 '.
           03  FILLER PIC X(13) VALUE '81500C250D137'.
           03  FILLER PIC X(13) VALUE '81500C251D137'.
           03  FILLER PIC X(13) VALUE '81500C252D137'.
           03  FILLER PIC X(13) VALUE '81500C253D137'.
           03  FILLER PIC X(13) VALUE '81500C254D137'.
           03  FILLER PIC X(13) VALUE '81500C257D137'.
           03  FILLER PIC X(13) VALUE '81500C258D137'.
           03  FILLER PIC X(13) VALUE '81500C259D137'.
           03  FILLER PIC X(13) VALUE '81503C250C254'.
           03  FILLER PIC X(13) VALUE '81503C251C254'.
           03  FILLER PIC X(13) VALUE '81503C252C254'.
           03  FILLER PIC X(13) VALUE '81503C253C254'.
           03  FILLER PIC X(13) VALUE '81503C254C254'.
           03  FILLER PIC X(13) VALUE '81503C257C254'.
           03  FILLER PIC X(13) VALUE '81503C258C254'.
           03  FILLER PIC X(13) VALUE '81503C259C254'.
           03  FILLER PIC X(13) VALUE '81510C250D137'.
           03  FILLER PIC X(13) VALUE '81510C251D137'.
           03  FILLER PIC X(13) VALUE '81510C252D137'.
           03  FILLER PIC X(13) VALUE '81510C253D137'.
           03  FILLER PIC X(13) VALUE '81510C254D137'.
           03  FILLER PIC X(13) VALUE '81510C257D137'.
           03  FILLER PIC X(13) VALUE '81510C258D137'.
           03  FILLER PIC X(13) VALUE '81510C259D137'.
           03  FILLER PIC X(13) VALUE '81513C250C254'.
           03  FILLER PIC X(13) VALUE '81513C251C254'.
           03  FILLER PIC X(13) VALUE '81513C252C254'.
           03  FILLER PIC X(13) VALUE '81513C253C254'.
           03  FILLER PIC X(13) VALUE '81513C254C254'.
           03  FILLER PIC X(13) VALUE '81513C257C254'.
           03  FILLER PIC X(13) VALUE '81513C258C254'.
           03  FILLER PIC X(13) VALUE '81513C259C254'.
           03  FILLER PIC X(13) VALUE '81520C250D137'.
           03  FILLER PIC X(13) VALUE '81520C251D137'.
           03  FILLER PIC X(13) VALUE '81520C252D137'.
           03  FILLER PIC X(13) VALUE '81520C253D137'.
           03  FILLER PIC X(13) VALUE '81520C254D137'.
           03  FILLER PIC X(13) VALUE '81520C257D137'.
           03  FILLER PIC X(13) VALUE '81520C258D137'.
           03  FILLER PIC X(13) VALUE '81520C259D137'.
           03  FILLER PIC X(13) VALUE '81523C250C254'.
           03  FILLER PIC X(13) VALUE '81523C251C254'.
           03  FILLER PIC X(13) VALUE '81523C252C254'.
           03  FILLER PIC X(13) VALUE '81523C253C254'.
           03  FILLER PIC X(13) VALUE '81523C254C254'.
           03  FILLER PIC X(13) VALUE '81523C257C254'.
           03  FILLER PIC X(13) VALUE '81523C258C254'.
           03  FILLER PIC X(13) VALUE '81523C259C254'.
           03  FILLER PIC X(13) VALUE '81533C250C254'.
           03  FILLER PIC X(13) VALUE '81533C251C254'.
           03  FILLER PIC X(13) VALUE '81533C252C254'.
           03  FILLER PIC X(13) VALUE '81533C253C254'.
           03  FILLER PIC X(13) VALUE '81533C254C254'.
           03  FILLER PIC X(13) VALUE '81533C257C254'.
           03  FILLER PIC X(13) VALUE '81533C258C254'.
           03  FILLER PIC X(13) VALUE '81533C259C254'.
           03  FILLER PIC X(13) VALUE '82000C000D230'.
           03  FILLER PIC X(13) VALUE '82000C001D230'.
           03  FILLER PIC X(13) VALUE '82000C002D230'.
           03  FILLER PIC X(13) VALUE '82000C003D230'.
           03  FILLER PIC X(13) VALUE '82000C004D230'.
           03  FILLER PIC X(13) VALUE '82000C005D230'.
           03  FILLER PIC X(13) VALUE '82000C006D230'.
           03  FILLER PIC X(13) VALUE '82000C008D230'.
           03  FILLER PIC X(13) VALUE '82000C009D230'.
           03  FILLER PIC X(13) VALUE '82000C210D235'.
           03  FILLER PIC X(13) VALUE '82000C440D230'.
           03  FILLER PIC X(13) VALUE '82000C441D231'.
           03  FILLER PIC X(13) VALUE '82000C442D232'.
           03  FILLER PIC X(13) VALUE '82000C443D233'.
           03  FILLER PIC X(13) VALUE '82000C444D234'.
           03  FILLER PIC X(13) VALUE '82000C445D235'.
           03  FILLER PIC X(13) VALUE '82000C446D236'.
           03  FILLER PIC X(13) VALUE '82000C447D237'.
           03  FILLER PIC X(13) VALUE '82000C448D239'.
           03  FILLER PIC X(13) VALUE '82000C449D239'.
           03  FILLER PIC X(13) VALUE '82000C500D235'.
           03  FILLER PIC X(13) VALUE '82000C501D235'.
           03  FILLER PIC X(13) VALUE '82000C502D235'.
           03  FILLER PIC X(13) VALUE '82000C503D235'.
           03  FILLER PIC X(13) VALUE '82000C504D235'.
           03  FILLER PIC X(13) VALUE '82000C505D235'.
           03  FILLER PIC X(13) VALUE '82000C506D235'.
           03  FILLER PIC X(13) VALUE '82000C508D235'.
           03  FILLER PIC X(13) VALUE '82000C509D235'.
           03  FILLER PIC X(13) VALUE '82000C510D280'.
           03  FILLER PIC X(13) VALUE '82000C511D280'.
           03  FILLER PIC X(13) VALUE '82000C512D280'.
           03  FILLER PIC X(13) VALUE '82000C519D280'.
           03  FILLER PIC X(13) VALUE '82000C600D290'.
           03  FILLER PIC X(13) VALUE '82000C609D290'.
           03  FILLER PIC X(13) VALUE '82000C632D294'.
           03  FILLER PIC X(13) VALUE '82000C639D299'.
           03  FILLER PIC X(13) VALUE '82000C760D234'.
           03  FILLER PIC X(13) VALUE '82000C761D235'.
           03  FILLER PIC X(13) VALUE '82000C762D235'.
           03  FILLER PIC X(13) VALUE '82000C764D230'.
           03  FILLER PIC X(13) VALUE '82000C765D236'.
           03  FILLER PIC X(13) VALUE '82020C250D137'.
           03  FILLER PIC X(13) VALUE '82020C251D137'.
           03  FILLER PIC X(13) VALUE '82020C252D137'.
           03  FILLER PIC X(13) VALUE '82020C253D137'.
           03  FILLER PIC X(13) VALUE '82020C254D137'.
           03  FILLER PIC X(13) VALUE '82020C257D137'.
           03  FILLER PIC X(13) VALUE '82020C258D137'.
           03  FILLER PIC X(13) VALUE '82020C259D137'.
           03  FILLER PIC X(13) VALUE '82203C180C180'.
           03  FILLER PIC X(13) VALUE '82203C181C181'.
           03  FILLER PIC X(13) VALUE '82203C182C182'.
           03  FILLER PIC X(13) VALUE '82203C183C183'.
           03  FILLER PIC X(13) VALUE '82203C184C184'.
           03  FILLER PIC X(13) VALUE '82203C185C185'.
           03  FILLER PIC X(13) VALUE '82203C186C186'.
           03  FILLER PIC X(13) VALUE '82203C187C187'.
           03  FILLER PIC X(13) VALUE '82203C188C188'.
           03  FILLER PIC X(13) VALUE '82203C189C189'.
           03  FILLER PIC X(13) VALUE '82472C000D040'.
           03  FILLER PIC X(13) VALUE '82472C001D040'.
           03  FILLER PIC X(13) VALUE '82472C002D040'.
           03  FILLER PIC X(13) VALUE '82472C003D040'.
           03  FILLER PIC X(13) VALUE '82472C004D040'.
           03  FILLER PIC X(13) VALUE '82472C005D040'.
           03  FILLER PIC X(13) VALUE '82472C006D040'.
           03  FILLER PIC X(13) VALUE '82472C008D040'.
           03  FILLER PIC X(13) VALUE '82472C009D040'.
           03  FILLER PIC X(13) VALUE '82472C210D045'.
           03  FILLER PIC X(13) VALUE '82472C440D040'.
           03  FILLER PIC X(13) VALUE '82472C441D041'.
           03  FILLER PIC X(13) VALUE '82472C442D042'.
           03  FILLER PIC X(13) VALUE '82472C443D043'.
           03  FILLER PIC X(13) VALUE '82472C444D044'.
           03  FILLER PIC X(13) VALUE '82472C445D045'.
           03  FILLER PIC X(13) VALUE '82472C446D046'.
           03  FILLER PIC X(13) VALUE '82472C447D047'.
           03  FILLER PIC X(13) VALUE '82472C448D049'.
           03  FILLER PIC X(13) VALUE '82472C449D049'.
           03  FILLER PIC X(13) VALUE '82472C500D045'.
           03  FILLER PIC X(13) VALUE '82472C501D045'.
           03  FILLER PIC X(13) VALUE '82472C502D045'.
           03  FILLER PIC X(13) VALUE '82472C503D045'.
           03  FILLER PIC X(13) VALUE '82472C504D045'.
           03  FILLER PIC X(13) VALUE '82472C505D045'.
           03  FILLER PIC X(13) VALUE '82472C506D045'.
           03  FILLER PIC X(13) VALUE '82472C508D045'.
           03  FILLER PIC X(13) VALUE '82472C509D045'.
           03  FILLER PIC X(13) VALUE '82472C510D073'.
           03  FILLER PIC X(13) VALUE '82472C511D073'.
           03  FILLER PIC X(13) VALUE '82472C512D071'.
           03  FILLER PIC X(13) VALUE '82472C519D071'.
           03  FILLER PIC X(13) VALUE '82472C600D074'.
           03  FILLER PIC X(13) VALUE '82472C609D074'.
           03  FILLER PIC X(13) VALUE '82472C632D076'.
           03  FILLER PIC X(13) VALUE '82472C639D076'.
           03  FILLER PIC X(13) VALUE '82472C760D044'.
           03  FILLER PIC X(13) VALUE '82472C761D045'.
           03  FILLER PIC X(13) VALUE '82472C762D045'.
           03  FILLER PIC X(13) VALUE '82472C764D046'.
           03  FILLER PIC X(13) VALUE '82472C765D047'.
           03  FILLER PIC X(13) VALUE '82473C000C440'.
           03  FILLER PIC X(13) VALUE '82473C001C440'.
           03  FILLER PIC X(13) VALUE '82473C002C440'.
           03  FILLER PIC X(13) VALUE '82473C003C440'.
           03  FILLER PIC X(13) VALUE '82473C004C440'.
           03  FILLER PIC X(13) VALUE '82473C005C440'.
           03  FILLER PIC X(13) VALUE '82473C006C440'.
           03  FILLER PIC X(13) VALUE '82473C008C440'.
           03  FILLER PIC X(13) VALUE '82473C009C440'.
           03  FILLER PIC X(13) VALUE '82473C210C445'.
           03  FILLER PIC X(13) VALUE '82473C440C440'.
           03  FILLER PIC X(13) VALUE '82473C441C441'.
           03  FILLER PIC X(13) VALUE '82473C442C442'.
           03  FILLER PIC X(13) VALUE '82473C443C443'.
           03  FILLER PIC X(13) VALUE '82473C444C444'.
           03  FILLER PIC X(13) VALUE '82473C445C445'.
           03  FILLER PIC X(13) VALUE '82473C446C446'.
           03  FILLER PIC X(13) VALUE '82473C447C447'.
           03  FILLER PIC X(13) VALUE '82473C448C448'.
           03  FILLER PIC X(13) VALUE '82473C449C449'.
           03  FILLER PIC X(13) VALUE '82473C500C445'.
           03  FILLER PIC X(13) VALUE '82473C501C445'.
           03  FILLER PIC X(13) VALUE '82473C502C445'.
           03  FILLER PIC X(13) VALUE '82473C503C445'.
           03  FILLER PIC X(13) VALUE '82473C504C445'.
           03  FILLER PIC X(13) VALUE '82473C505C445'.
           03  FILLER PIC X(13) VALUE '82473C506C445'.
           03  FILLER PIC X(13) VALUE '82473C508C445'.
           03  FILLER PIC X(13) VALUE '82473C509C445'.
           03  FILLER PIC X(13) VALUE '82473C510C510'.
           03  FILLER PIC X(13) VALUE '82473C511C511'.
           03  FILLER PIC X(13) VALUE '82473C512C512'.
           03  FILLER PIC X(13) VALUE '82473C518C518'.
           03  FILLER PIC X(13) VALUE '82473C519C519'.
           03  FILLER PIC X(13) VALUE '82473C529C52 '.
           03  FILLER PIC X(13) VALUE '82473C600C600'.
           03  FILLER PIC X(13) VALUE '82473C601C601'.
           03  FILLER PIC X(13) VALUE '82473C602C602'.
           03  FILLER PIC X(13) VALUE '82473C608C608'.
           03  FILLER PIC X(13) VALUE '82473C609C609'.
           03  FILLER PIC X(13) VALUE '82473C632C632'.
           03  FILLER PIC X(13) VALUE '82473C639C639'.
           03  FILLER PIC X(13) VALUE '82473C760C444'.
           03  FILLER PIC X(13) VALUE '82473C761C445'.
           03  FILLER PIC X(13) VALUE '82473C762C445'.
           03  FILLER PIC X(13) VALUE '82473C764C446'.
           03  FILLER PIC X(13) VALUE '82473C765C447'.
           03  FILLER PIC X(13) VALUE '82503C340C340'.
           03  FILLER PIC X(13) VALUE '82503C341C341'.
           03  FILLER PIC X(13) VALUE '82503C342C342'.
           03  FILLER PIC X(13) VALUE '82503C343C343'.
           03  FILLER PIC X(13) VALUE '82503C348C348'.
           03  FILLER PIC X(13) VALUE '82503C349C349'.
           03  FILLER PIC X(13) VALUE '83900C000D230'.
           03  FILLER PIC X(13) VALUE '83900C001D230'.
           03  FILLER PIC X(13) VALUE '83900C002D230'.
           03  FILLER PIC X(13) VALUE '83900C003D230'.
           03  FILLER PIC X(13) VALUE '83900C004D230'.
           03  FILLER PIC X(13) VALUE '83900C005D230'.
           03  FILLER PIC X(13) VALUE '83900C006D230'.
           03  FILLER PIC X(13) VALUE '83900C008D230'.
           03  FILLER PIC X(13) VALUE '83900C009D230'.
           03  FILLER PIC X(13) VALUE '83900C210D235'.
           03  FILLER PIC X(13) VALUE '83900C440D230'.
           03  FILLER PIC X(13) VALUE '83900C441D231'.
           03  FILLER PIC X(13) VALUE '83900C442D232'.
           03  FILLER PIC X(13) VALUE '83900C443D233'.
           03  FILLER PIC X(13) VALUE '83900C444D234'.
           03  FILLER PIC X(13) VALUE '83900C445D235'.
           03  FILLER PIC X(13) VALUE '83900C446D236'.
           03  FILLER PIC X(13) VALUE '83900C447D237'.
           03  FILLER PIC X(13) VALUE '83900C448D239'.
           03  FILLER PIC X(13) VALUE '83900C449D239'.
           03  FILLER PIC X(13) VALUE '83900C500D235'.
           03  FILLER PIC X(13) VALUE '83900C501D235'.
           03  FILLER PIC X(13) VALUE '83900C502D235'.
           03  FILLER PIC X(13) VALUE '83900C503D235'.
           03  FILLER PIC X(13) VALUE '83900C504D235'.
           03  FILLER PIC X(13) VALUE '83900C505D235'.
           03  FILLER PIC X(13) VALUE '83900C506D235'.
           03  FILLER PIC X(13) VALUE '83900C508D235'.
           03  FILLER PIC X(13) VALUE '83900C509D235'.
           03  FILLER PIC X(13) VALUE '83900C510D280'.
           03  FILLER PIC X(13) VALUE '83900C511D280'.
           03  FILLER PIC X(13) VALUE '83900C512D280'.
           03  FILLER PIC X(13) VALUE '83900C519D280'.
           03  FILLER PIC X(13) VALUE '83900C600D290'.
           03  FILLER PIC X(13) VALUE '83900C609D290'.
           03  FILLER PIC X(13) VALUE '83900C632D294'.
           03  FILLER PIC X(13) VALUE '83900C639D299'.
           03  FILLER PIC X(13) VALUE '83900C760D234'.
           03  FILLER PIC X(13) VALUE '83900C761D235'.
           03  FILLER PIC X(13) VALUE '83900C762D235'.
           03  FILLER PIC X(13) VALUE '83900C764D230'.
           03  FILLER PIC X(13) VALUE '83900C765D236'.
           03  FILLER PIC X(13) VALUE '83903C000C440'.
           03  FILLER PIC X(13) VALUE '83903C001C440'.
           03  FILLER PIC X(13) VALUE '83903C002C440'.
           03  FILLER PIC X(13) VALUE '83903C003C440'.
           03  FILLER PIC X(13) VALUE '83903C004C440'.
           03  FILLER PIC X(13) VALUE '83903C005C440'.
           03  FILLER PIC X(13) VALUE '83903C006C440'.
           03  FILLER PIC X(13) VALUE '83903C008C440'.
           03  FILLER PIC X(13) VALUE '83903C009C440'.
           03  FILLER PIC X(13) VALUE '83903C210C445'.
           03  FILLER PIC X(13) VALUE '83903C440C440'.
           03  FILLER PIC X(13) VALUE '83903C441C441'.
           03  FILLER PIC X(13) VALUE '83903C442C442'.
           03  FILLER PIC X(13) VALUE '83903C443C443'.
           03  FILLER PIC X(13) VALUE '83903C444C444'.
           03  FILLER PIC X(13) VALUE '83903C445C445'.
           03  FILLER PIC X(13) VALUE '83903C446C446'.
           03  FILLER PIC X(13) VALUE '83903C447C447'.
           03  FILLER PIC X(13) VALUE '83903C448C448'.
           03  FILLER PIC X(13) VALUE '83903C449C449'.
           03  FILLER PIC X(13) VALUE '83903C500C445'.
           03  FILLER PIC X(13) VALUE '83903C501C445'.
           03  FILLER PIC X(13) VALUE '83903C502C445'.
           03  FILLER PIC X(13) VALUE '83903C503C445'.
           03  FILLER PIC X(13) VALUE '83903C504C445'.
           03  FILLER PIC X(13) VALUE '83903C505C445'.
           03  FILLER PIC X(13) VALUE '83903C506C445'.
           03  FILLER PIC X(13) VALUE '83903C508C445'.
           03  FILLER PIC X(13) VALUE '83903C509C445'.
           03  FILLER PIC X(13) VALUE '83903C510C510'.
           03  FILLER PIC X(13) VALUE '83903C511C511'.
           03  FILLER PIC X(13) VALUE '83903C512C512'.
           03  FILLER PIC X(13) VALUE '83903C518C518'.
           03  FILLER PIC X(13) VALUE '83903C519C519'.
           03  FILLER PIC X(13) VALUE '83903C529C52 '.
           03  FILLER PIC X(13) VALUE '83903C600C600'.
           03  FILLER PIC X(13) VALUE '83903C601C601'.
           03  FILLER PIC X(13) VALUE '83903C602C602'.
           03  FILLER PIC X(13) VALUE '83903C608C608'.
           03  FILLER PIC X(13) VALUE '83903C609C609'.
           03  FILLER PIC X(13) VALUE '83903C632C632'.
           03  FILLER PIC X(13) VALUE '83903C639C639'.
           03  FILLER PIC X(13) VALUE '83903C760C444'.
           03  FILLER PIC X(13) VALUE '83903C761C445'.
           03  FILLER PIC X(13) VALUE '83903C762C445'.
           03  FILLER PIC X(13) VALUE '83903C764C446'.
           03  FILLER PIC X(13) VALUE '83903C765C447'.
           03  FILLER PIC X(13) VALUE '84000C000D230'.
           03  FILLER PIC X(13) VALUE '84000C001D230'.
           03  FILLER PIC X(13) VALUE '84000C002D230'.
           03  FILLER PIC X(13) VALUE '84000C003D230'.
           03  FILLER PIC X(13) VALUE '84000C004D230'.
           03  FILLER PIC X(13) VALUE '84000C005D230'.
           03  FILLER PIC X(13) VALUE '84000C006D230'.
           03  FILLER PIC X(13) VALUE '84000C008D230'.
           03  FILLER PIC X(13) VALUE '84000C009D230'.
           03  FILLER PIC X(13) VALUE '84000C210D235'.
           03  FILLER PIC X(13) VALUE '84000C440D230'.
           03  FILLER PIC X(13) VALUE '84000C441D231'.
           03  FILLER PIC X(13) VALUE '84000C442D232'.
           03  FILLER PIC X(13) VALUE '84000C443D233'.
           03  FILLER PIC X(13) VALUE '84000C444D234'.
           03  FILLER PIC X(13) VALUE '84000C445D235'.
           03  FILLER PIC X(13) VALUE '84000C446D236'.
           03  FILLER PIC X(13) VALUE '84000C447D237'.
           03  FILLER PIC X(13) VALUE '84000C448D239'.
           03  FILLER PIC X(13) VALUE '84000C449D239'.
           03  FILLER PIC X(13) VALUE '84000C500D235'.
           03  FILLER PIC X(13) VALUE '84000C501D235'.
           03  FILLER PIC X(13) VALUE '84000C502D235'.
           03  FILLER PIC X(13) VALUE '84000C503D235'.
           03  FILLER PIC X(13) VALUE '84000C504D235'.
           03  FILLER PIC X(13) VALUE '84000C505D235'.
           03  FILLER PIC X(13) VALUE '84000C506D235'.
           03  FILLER PIC X(13) VALUE '84000C508D235'.
           03  FILLER PIC X(13) VALUE '84000C509D235'.
           03  FILLER PIC X(13) VALUE '84000C510D280'.
           03  FILLER PIC X(13) VALUE '84000C511D280'.
           03  FILLER PIC X(13) VALUE '84000C512D280'.
           03  FILLER PIC X(13) VALUE '84000C519D280'.
           03  FILLER PIC X(13) VALUE '84000C600D290'.
           03  FILLER PIC X(13) VALUE '84000C609D290'.
           03  FILLER PIC X(13) VALUE '84000C632D294'.
           03  FILLER PIC X(13) VALUE '84000C639D299'.
           03  FILLER PIC X(13) VALUE '84000C760D234'.
           03  FILLER PIC X(13) VALUE '84000C761D235'.
           03  FILLER PIC X(13) VALUE '84000C762D235'.
           03  FILLER PIC X(13) VALUE '84000C764D230'.
           03  FILLER PIC X(13) VALUE '84000C765D236'.
           03  FILLER PIC X(13) VALUE '84001C510D397'.
           03  FILLER PIC X(13) VALUE '84001C511D397'.
           03  FILLER PIC X(13) VALUE '84001C512D397'.
           03  FILLER PIC X(13) VALUE '84001C519D397'.
           03  FILLER PIC X(13) VALUE '84001C600D407'.
           03  FILLER PIC X(13) VALUE '84001C609D407'.
           03  FILLER PIC X(13) VALUE '84001C632D407'.
           03  FILLER PIC X(13) VALUE '84001C639D409'.
           03  FILLER PIC X(13) VALUE '84003C000C440'.
           03  FILLER PIC X(13) VALUE '84003C001C440'.
           03  FILLER PIC X(13) VALUE '84003C002C440'.
           03  FILLER PIC X(13) VALUE '84003C003C440'.
           03  FILLER PIC X(13) VALUE '84003C004C440'.
           03  FILLER PIC X(13) VALUE '84003C005C440'.
           03  FILLER PIC X(13) VALUE '84003C006C440'.
           03  FILLER PIC X(13) VALUE '84003C008C440'.
           03  FILLER PIC X(13) VALUE '84003C009C440'.
           03  FILLER PIC X(13) VALUE '84003C210C445'.
           03  FILLER PIC X(13) VALUE '84003C440C440'.
           03  FILLER PIC X(13) VALUE '84003C441C441'.
           03  FILLER PIC X(13) VALUE '84003C442C442'.
           03  FILLER PIC X(13) VALUE '84003C443C443'.
           03  FILLER PIC X(13) VALUE '84003C444C444'.
           03  FILLER PIC X(13) VALUE '84003C445C445'.
           03  FILLER PIC X(13) VALUE '84003C446C446'.
           03  FILLER PIC X(13) VALUE '84003C447C447'.
           03  FILLER PIC X(13) VALUE '84003C448C448'.
           03  FILLER PIC X(13) VALUE '84003C449C449'.
           03  FILLER PIC X(13) VALUE '84003C500C445'.
           03  FILLER PIC X(13) VALUE '84003C501C445'.
           03  FILLER PIC X(13) VALUE '84003C502C445'.
           03  FILLER PIC X(13) VALUE '84003C503C445'.
           03  FILLER PIC X(13) VALUE '84003C504C445'.
           03  FILLER PIC X(13) VALUE '84003C505C445'.
           03  FILLER PIC X(13) VALUE '84003C506C445'.
           03  FILLER PIC X(13) VALUE '84003C508C445'.
           03  FILLER PIC X(13) VALUE '84003C509C445'.
           03  FILLER PIC X(13) VALUE '84003C510C510'.
           03  FILLER PIC X(13) VALUE '84003C511C511'.
           03  FILLER PIC X(13) VALUE '84003C512C512'.
           03  FILLER PIC X(13) VALUE '84003C518C518'.
           03  FILLER PIC X(13) VALUE '84003C519C519'.
           03  FILLER PIC X(13) VALUE '84003C529C52 '.
           03  FILLER PIC X(13) VALUE '84003C600C600'.
           03  FILLER PIC X(13) VALUE '84003C601C601'.
           03  FILLER PIC X(13) VALUE '84003C602C602'.
           03  FILLER PIC X(13) VALUE '84003C608C608'.
           03  FILLER PIC X(13) VALUE '84003C609C609'.
           03  FILLER PIC X(13) VALUE '84003C632C632'.
           03  FILLER PIC X(13) VALUE '84003C639C639'.
           03  FILLER PIC X(13) VALUE '84003C760C444'.
           03  FILLER PIC X(13) VALUE '84003C761C445'.
           03  FILLER PIC X(13) VALUE '84003C762C445'.
           03  FILLER PIC X(13) VALUE '84003C764C446'.
           03  FILLER PIC X(13) VALUE '84003C765C447'.
           03  FILLER PIC X(13) VALUE '84010C000D230'.
           03  FILLER PIC X(13) VALUE '84010C001D230'.
           03  FILLER PIC X(13) VALUE '84010C002D230'.
           03  FILLER PIC X(13) VALUE '84010C003D230'.
           03  FILLER PIC X(13) VALUE '84010C004D230'.
           03  FILLER PIC X(13) VALUE '84010C005D230'.
           03  FILLER PIC X(13) VALUE '84010C006D230'.
           03  FILLER PIC X(13) VALUE '84010C008D230'.
           03  FILLER PIC X(13) VALUE '84010C009D230'.
           03  FILLER PIC X(13) VALUE '84010C210D235'.
           03  FILLER PIC X(13) VALUE '84010C440D230'.
           03  FILLER PIC X(13) VALUE '84010C441D231'.
           03  FILLER PIC X(13) VALUE '84010C442D232'.
           03  FILLER PIC X(13) VALUE '84010C443D233'.
           03  FILLER PIC X(13) VALUE '84010C444D234'.
           03  FILLER PIC X(13) VALUE '84010C445D235'.
           03  FILLER PIC X(13) VALUE '84010C446D236'.
           03  FILLER PIC X(13) VALUE '84010C447D237'.
           03  FILLER PIC X(13) VALUE '84010C448D239'.
           03  FILLER PIC X(13) VALUE '84010C449D239'.
           03  FILLER PIC X(13) VALUE '84010C500D24 '.
           03  FILLER PIC X(13) VALUE '84010C501D24 '.
           03  FILLER PIC X(13) VALUE '84010C502D24 '.
           03  FILLER PIC X(13) VALUE '84010C503D24 '.
           03  FILLER PIC X(13) VALUE '84010C504D24 '.
           03  FILLER PIC X(13) VALUE '84010C505D24 '.
           03  FILLER PIC X(13) VALUE '84010C506D24 '.
           03  FILLER PIC X(13) VALUE '84010C508D24 '.
           03  FILLER PIC X(13) VALUE '84010C509D24 '.
           03  FILLER PIC X(13) VALUE '84010C510D280'.
           03  FILLER PIC X(13) VALUE '84010C511D280'.
           03  FILLER PIC X(13) VALUE '84010C512D280'.
           03  FILLER PIC X(13) VALUE '84010C519D280'.
           03  FILLER PIC X(13) VALUE '84010C600D290'.
           03  FILLER PIC X(13) VALUE '84010C609D290'.
           03  FILLER PIC X(13) VALUE '84010C632D294'.
           03  FILLER PIC X(13) VALUE '84010C639D299'.
           03  FILLER PIC X(13) VALUE '84010C760D234'.
           03  FILLER PIC X(13) VALUE '84010C761D235'.
           03  FILLER PIC X(13) VALUE '84010C762D235'.
           03  FILLER PIC X(13) VALUE '84010C764D230'.
           03  FILLER PIC X(13) VALUE '84010C765D236'.
           03  FILLER PIC X(13) VALUE '84012C000D040'.
           03  FILLER PIC X(13) VALUE '84012C001D040'.
           03  FILLER PIC X(13) VALUE '84012C002D040'.
           03  FILLER PIC X(13) VALUE '84012C003D040'.
           03  FILLER PIC X(13) VALUE '84012C004D040'.
           03  FILLER PIC X(13) VALUE '84012C005D040'.
           03  FILLER PIC X(13) VALUE '84012C006D040'.
           03  FILLER PIC X(13) VALUE '84012C008D040'.
           03  FILLER PIC X(13) VALUE '84012C009D040'.
           03  FILLER PIC X(13) VALUE '84012C210D045'.
           03  FILLER PIC X(13) VALUE '84012C440D040'.
           03  FILLER PIC X(13) VALUE '84012C441D041'.
           03  FILLER PIC X(13) VALUE '84012C442D042'.
           03  FILLER PIC X(13) VALUE '84012C443D043'.
           03  FILLER PIC X(13) VALUE '84012C444D044'.
           03  FILLER PIC X(13) VALUE '84012C445D045'.
           03  FILLER PIC X(13) VALUE '84012C446D046'.
           03  FILLER PIC X(13) VALUE '84012C447D047'.
           03  FILLER PIC X(13) VALUE '84012C448D049'.
           03  FILLER PIC X(13) VALUE '84012C449D049'.
           03  FILLER PIC X(13) VALUE '84012C500D057'.
           03  FILLER PIC X(13) VALUE '84012C501D057'.
           03  FILLER PIC X(13) VALUE '84012C502D057'.
           03  FILLER PIC X(13) VALUE '84012C503D057'.
           03  FILLER PIC X(13) VALUE '84012C504D057'.
           03  FILLER PIC X(13) VALUE '84012C505D057'.
           03  FILLER PIC X(13) VALUE '84012C506D057'.
           03  FILLER PIC X(13) VALUE '84012C508D057'.
           03  FILLER PIC X(13) VALUE '84012C509D057'.
           03  FILLER PIC X(13) VALUE '84012C510D073'.
           03  FILLER PIC X(13) VALUE '84012C511D073'.
           03  FILLER PIC X(13) VALUE '84012C512D071'.
           03  FILLER PIC X(13) VALUE '84012C519D071'.
           03  FILLER PIC X(13) VALUE '84012C600D074'.
           03  FILLER PIC X(13) VALUE '84012C609D074'.
           03  FILLER PIC X(13) VALUE '84012C632D076'.
           03  FILLER PIC X(13) VALUE '84012C639D076'.
           03  FILLER PIC X(13) VALUE '84012C760D044'.
           03  FILLER PIC X(13) VALUE '84012C761D045'.
           03  FILLER PIC X(13) VALUE '84012C762D045'.
           03  FILLER PIC X(13) VALUE '84012C764D046'.
           03  FILLER PIC X(13) VALUE '84012C765D047'.
           03  FILLER PIC X(13) VALUE '84013C000C440'.
           03  FILLER PIC X(13) VALUE '84013C001C440'.
           03  FILLER PIC X(13) VALUE '84013C002C440'.
           03  FILLER PIC X(13) VALUE '84013C003C440'.
           03  FILLER PIC X(13) VALUE '84013C004C440'.
           03  FILLER PIC X(13) VALUE '84013C005C440'.
           03  FILLER PIC X(13) VALUE '84013C006C440'.
           03  FILLER PIC X(13) VALUE '84013C008C440'.
           03  FILLER PIC X(13) VALUE '84013C009C440'.
           03  FILLER PIC X(13) VALUE '84013C210C445'.
           03  FILLER PIC X(13) VALUE '84013C440C440'.
           03  FILLER PIC X(13) VALUE '84013C441C441'.
           03  FILLER PIC X(13) VALUE '84013C442C442'.
           03  FILLER PIC X(13) VALUE '84013C443C443'.
           03  FILLER PIC X(13) VALUE '84013C444C444'.
           03  FILLER PIC X(13) VALUE '84013C445C445'.
           03  FILLER PIC X(13) VALUE '84013C446C446'.
           03  FILLER PIC X(13) VALUE '84013C447C447'.
           03  FILLER PIC X(13) VALUE '84013C448C448'.
           03  FILLER PIC X(13) VALUE '84013C449C449'.
           03  FILLER PIC X(13) VALUE '84013C500C500'.
           03  FILLER PIC X(13) VALUE '84013C501C501'.
           03  FILLER PIC X(13) VALUE '84013C502C502'.
           03  FILLER PIC X(13) VALUE '84013C503C503'.
           03  FILLER PIC X(13) VALUE '84013C504C504'.
           03  FILLER PIC X(13) VALUE '84013C505C505'.
           03  FILLER PIC X(13) VALUE '84013C506C506'.
           03  FILLER PIC X(13) VALUE '84013C508C508'.
           03  FILLER PIC X(13) VALUE '84013C509C509'.
           03  FILLER PIC X(13) VALUE '84013C510C510'.
           03  FILLER PIC X(13) VALUE '84013C511C511'.
           03  FILLER PIC X(13) VALUE '84013C512C512'.
           03  FILLER PIC X(13) VALUE '84013C519C519'.
           03  FILLER PIC X(13) VALUE '84013C600C600'.
           03  FILLER PIC X(13) VALUE '84013C609C609'.
           03  FILLER PIC X(13) VALUE '84013C632C632'.
           03  FILLER PIC X(13) VALUE '84013C639C639'.
           03  FILLER PIC X(13) VALUE '84013C760C444'.
           03  FILLER PIC X(13) VALUE '84013C761C445'.
           03  FILLER PIC X(13) VALUE '84013C762C445'.
           03  FILLER PIC X(13) VALUE '84013C763C445'.
           03  FILLER PIC X(13) VALUE '84013C764C446'.
           03  FILLER PIC X(13) VALUE '84013C765C447'.
           03  FILLER PIC X(13) VALUE '84020C000D230'.
           03  FILLER PIC X(13) VALUE '84020C001D230'.
           03  FILLER PIC X(13) VALUE '84020C002D230'.
           03  FILLER PIC X(13) VALUE '84020C003D230'.
           03  FILLER PIC X(13) VALUE '84020C004D230'.
           03  FILLER PIC X(13) VALUE '84020C005D230'.
           03  FILLER PIC X(13) VALUE '84020C006D230'.
           03  FILLER PIC X(13) VALUE '84020C008D230'.
           03  FILLER PIC X(13) VALUE '84020C009D230'.
           03  FILLER PIC X(13) VALUE '84020C210D235'.
           03  FILLER PIC X(13) VALUE '84020C440D230'.
           03  FILLER PIC X(13) VALUE '84020C441D231'.
           03  FILLER PIC X(13) VALUE '84020C442D232'.
           03  FILLER PIC X(13) VALUE '84020C443D233'.
           03  FILLER PIC X(13) VALUE '84020C444D234'.
           03  FILLER PIC X(13) VALUE '84020C445D235'.
           03  FILLER PIC X(13) VALUE '84020C446D236'.
           03  FILLER PIC X(13) VALUE '84020C447D237'.
           03  FILLER PIC X(13) VALUE '84020C448D239'.
           03  FILLER PIC X(13) VALUE '84020C449D239'.
           03  FILLER PIC X(13) VALUE '84020C500D235'.
           03  FILLER PIC X(13) VALUE '84020C501D235'.
           03  FILLER PIC X(13) VALUE '84020C502D235'.
           03  FILLER PIC X(13) VALUE '84020C503D235'.
           03  FILLER PIC X(13) VALUE '84020C504D235'.
           03  FILLER PIC X(13) VALUE '84020C505D235'.
           03  FILLER PIC X(13) VALUE '84020C506D235'.
           03  FILLER PIC X(13) VALUE '84020C508D235'.
           03  FILLER PIC X(13) VALUE '84020C509D235'.
           03  FILLER PIC X(13) VALUE '84020C510D280'.
           03  FILLER PIC X(13) VALUE '84020C511D280'.
           03  FILLER PIC X(13) VALUE '84020C512D280'.
           03  FILLER PIC X(13) VALUE '84020C519D280'.
           03  FILLER PIC X(13) VALUE '84020C600D290'.
           03  FILLER PIC X(13) VALUE '84020C609D290'.
           03  FILLER PIC X(13) VALUE '84020C632D294'.
           03  FILLER PIC X(13) VALUE '84020C639D299'.
           03  FILLER PIC X(13) VALUE '84020C760D234'.
           03  FILLER PIC X(13) VALUE '84020C761D235'.
           03  FILLER PIC X(13) VALUE '84020C762D235'.
           03  FILLER PIC X(13) VALUE '84020C764D230'.
           03  FILLER PIC X(13) VALUE '84020C765D236'.
           03  FILLER PIC X(13) VALUE '84023C000C440'.
           03  FILLER PIC X(13) VALUE '84023C001C440'.
           03  FILLER PIC X(13) VALUE '84023C002C440'.
           03  FILLER PIC X(13) VALUE '84023C003C440'.
           03  FILLER PIC X(13) VALUE '84023C004C440'.
           03  FILLER PIC X(13) VALUE '84023C005C440'.
           03  FILLER PIC X(13) VALUE '84023C006C440'.
           03  FILLER PIC X(13) VALUE '84023C008C440'.
           03  FILLER PIC X(13) VALUE '84023C009C440'.
           03  FILLER PIC X(13) VALUE '84023C210C445'.
           03  FILLER PIC X(13) VALUE '84023C440C440'.
           03  FILLER PIC X(13) VALUE '84023C441C441'.
           03  FILLER PIC X(13) VALUE '84023C442C442'.
           03  FILLER PIC X(13) VALUE '84023C443C443'.
           03  FILLER PIC X(13) VALUE '84023C444C444'.
           03  FILLER PIC X(13) VALUE '84023C445C445'.
           03  FILLER PIC X(13) VALUE '84023C446C446'.
           03  FILLER PIC X(13) VALUE '84023C447C447'.
           03  FILLER PIC X(13) VALUE '84023C448C448'.
           03  FILLER PIC X(13) VALUE '84023C449C449'.
           03  FILLER PIC X(13) VALUE '84023C500C445'.
           03  FILLER PIC X(13) VALUE '84023C501C445'.
           03  FILLER PIC X(13) VALUE '84023C502C445'.
           03  FILLER PIC X(13) VALUE '84023C503C445'.
           03  FILLER PIC X(13) VALUE '84023C504C445'.
           03  FILLER PIC X(13) VALUE '84023C505C445'.
           03  FILLER PIC X(13) VALUE '84023C506C445'.
           03  FILLER PIC X(13) VALUE '84023C508C445'.
           03  FILLER PIC X(13) VALUE '84023C509C445'.
           03  FILLER PIC X(13) VALUE '84023C510C510'.
           03  FILLER PIC X(13) VALUE '84023C511C511'.
           03  FILLER PIC X(13) VALUE '84023C512C512'.
           03  FILLER PIC X(13) VALUE '84023C518C518'.
           03  FILLER PIC X(13) VALUE '84023C519C519'.
           03  FILLER PIC X(13) VALUE '84023C529C52 '.
           03  FILLER PIC X(13) VALUE '84023C600C600'.
           03  FILLER PIC X(13) VALUE '84023C601C601'.
           03  FILLER PIC X(13) VALUE '84023C602C602'.
           03  FILLER PIC X(13) VALUE '84023C608C608'.
           03  FILLER PIC X(13) VALUE '84023C609C609'.
           03  FILLER PIC X(13) VALUE '84023C632C632'.
           03  FILLER PIC X(13) VALUE '84023C639C639'.
           03  FILLER PIC X(13) VALUE '84023C760C444'.
           03  FILLER PIC X(13) VALUE '84023C761C445'.
           03  FILLER PIC X(13) VALUE '84023C762C445'.
           03  FILLER PIC X(13) VALUE '84023C764C446'.
           03  FILLER PIC X(13) VALUE '84023C765C447'.
           03  FILLER PIC X(13) VALUE '84030C000D230'.
           03  FILLER PIC X(13) VALUE '84030C001D230'.
           03  FILLER PIC X(13) VALUE '84030C002D230'.
           03  FILLER PIC X(13) VALUE '84030C003D230'.
           03  FILLER PIC X(13) VALUE '84030C004D230'.
           03  FILLER PIC X(13) VALUE '84030C005D230'.
           03  FILLER PIC X(13) VALUE '84030C006D230'.
           03  FILLER PIC X(13) VALUE '84030C008D230'.
           03  FILLER PIC X(13) VALUE '84030C009D230'.
           03  FILLER PIC X(13) VALUE '84030C210D235'.
           03  FILLER PIC X(13) VALUE '84030C440D230'.
           03  FILLER PIC X(13) VALUE '84030C441D231'.
           03  FILLER PIC X(13) VALUE '84030C442D232'.
           03  FILLER PIC X(13) VALUE '84030C443D233'.
           03  FILLER PIC X(13) VALUE '84030C444D234'.
           03  FILLER PIC X(13) VALUE '84030C445D235'.
           03  FILLER PIC X(13) VALUE '84030C446D236'.
           03  FILLER PIC X(13) VALUE '84030C447D237'.
           03  FILLER PIC X(13) VALUE '84030C448D239'.
           03  FILLER PIC X(13) VALUE '84030C449D239'.
           03  FILLER PIC X(13) VALUE '84030C500D235'.
           03  FILLER PIC X(13) VALUE '84030C501D235'.
           03  FILLER PIC X(13) VALUE '84030C502D235'.
           03  FILLER PIC X(13) VALUE '84030C503D235'.
           03  FILLER PIC X(13) VALUE '84030C504D235'.
           03  FILLER PIC X(13) VALUE '84030C505D235'.
           03  FILLER PIC X(13) VALUE '84030C506D235'.
           03  FILLER PIC X(13) VALUE '84030C508D235'.
           03  FILLER PIC X(13) VALUE '84030C509D235'.
           03  FILLER PIC X(13) VALUE '84030C510D280'.
           03  FILLER PIC X(13) VALUE '84030C511D280'.
           03  FILLER PIC X(13) VALUE '84030C512D280'.
           03  FILLER PIC X(13) VALUE '84030C519D280'.
           03  FILLER PIC X(13) VALUE '84030C600D290'.
           03  FILLER PIC X(13) VALUE '84030C609D290'.
           03  FILLER PIC X(13) VALUE '84030C632D294'.
           03  FILLER PIC X(13) VALUE '84030C639D299'.
           03  FILLER PIC X(13) VALUE '84030C760D234'.
           03  FILLER PIC X(13) VALUE '84030C761D235'.
           03  FILLER PIC X(13) VALUE '84030C762D235'.
           03  FILLER PIC X(13) VALUE '84030C764D230'.
           03  FILLER PIC X(13) VALUE '84030C765D236'.
           03  FILLER PIC X(13) VALUE '84033C000C440'.
           03  FILLER PIC X(13) VALUE '84033C001C440'.
           03  FILLER PIC X(13) VALUE '84033C002C440'.
           03  FILLER PIC X(13) VALUE '84033C003C440'.
           03  FILLER PIC X(13) VALUE '84033C004C440'.
           03  FILLER PIC X(13) VALUE '84033C005C440'.
           03  FILLER PIC X(13) VALUE '84033C006C440'.
           03  FILLER PIC X(13) VALUE '84033C008C440'.
           03  FILLER PIC X(13) VALUE '84033C009C440'.
           03  FILLER PIC X(13) VALUE '84033C210C445'.
           03  FILLER PIC X(13) VALUE '84033C440C440'.
           03  FILLER PIC X(13) VALUE '84033C441C441'.
           03  FILLER PIC X(13) VALUE '84033C442C442'.
           03  FILLER PIC X(13) VALUE '84033C443C443'.
           03  FILLER PIC X(13) VALUE '84033C444C444'.
           03  FILLER PIC X(13) VALUE '84033C445C445'.
           03  FILLER PIC X(13) VALUE '84033C446C446'.
           03  FILLER PIC X(13) VALUE '84033C447C447'.
           03  FILLER PIC X(13) VALUE '84033C448C448'.
           03  FILLER PIC X(13) VALUE '84033C449C449'.
           03  FILLER PIC X(13) VALUE '84033C500C445'.
           03  FILLER PIC X(13) VALUE '84033C501C445'.
           03  FILLER PIC X(13) VALUE '84033C502C445'.
           03  FILLER PIC X(13) VALUE '84033C503C445'.
           03  FILLER PIC X(13) VALUE '84033C504C445'.
           03  FILLER PIC X(13) VALUE '84033C505C445'.
           03  FILLER PIC X(13) VALUE '84033C506C445'.
           03  FILLER PIC X(13) VALUE '84033C508C445'.
           03  FILLER PIC X(13) VALUE '84033C509C445'.
           03  FILLER PIC X(13) VALUE '84033C510C510'.
           03  FILLER PIC X(13) VALUE '84033C511C511'.
           03  FILLER PIC X(13) VALUE '84033C512C512'.
           03  FILLER PIC X(13) VALUE '84033C518C518'.
           03  FILLER PIC X(13) VALUE '84033C519C519'.
           03  FILLER PIC X(13) VALUE '84033C529C52 '.
           03  FILLER PIC X(13) VALUE '84033C600C600'.
           03  FILLER PIC X(13) VALUE '84033C601C601'.
           03  FILLER PIC X(13) VALUE '84033C602C602'.
           03  FILLER PIC X(13) VALUE '84033C608C608'.
           03  FILLER PIC X(13) VALUE '84033C609C609'.
           03  FILLER PIC X(13) VALUE '84033C632C632'.
           03  FILLER PIC X(13) VALUE '84033C639C639'.
           03  FILLER PIC X(13) VALUE '84033C760C444'.
           03  FILLER PIC X(13) VALUE '84033C761C445'.
           03  FILLER PIC X(13) VALUE '84033C762C445'.
           03  FILLER PIC X(13) VALUE '84033C764C446'.
           03  FILLER PIC X(13) VALUE '84033C765C447'.
           03  FILLER PIC X(13) VALUE '84040C000D230'.
           03  FILLER PIC X(13) VALUE '84040C001D230'.
           03  FILLER PIC X(13) VALUE '84040C002D230'.
           03  FILLER PIC X(13) VALUE '84040C003D230'.
           03  FILLER PIC X(13) VALUE '84040C004D230'.
           03  FILLER PIC X(13) VALUE '84040C005D230'.
           03  FILLER PIC X(13) VALUE '84040C006D230'.
           03  FILLER PIC X(13) VALUE '84040C008D230'.
           03  FILLER PIC X(13) VALUE '84040C009D230'.
           03  FILLER PIC X(13) VALUE '84040C210D235'.
           03  FILLER PIC X(13) VALUE '84040C440D230'.
           03  FILLER PIC X(13) VALUE '84040C441D231'.
           03  FILLER PIC X(13) VALUE '84040C442D232'.
           03  FILLER PIC X(13) VALUE '84040C443D233'.
           03  FILLER PIC X(13) VALUE '84040C444D234'.
           03  FILLER PIC X(13) VALUE '84040C445D235'.
           03  FILLER PIC X(13) VALUE '84040C446D236'.
           03  FILLER PIC X(13) VALUE '84040C447D237'.
           03  FILLER PIC X(13) VALUE '84040C448D239'.
           03  FILLER PIC X(13) VALUE '84040C449D239'.
           03  FILLER PIC X(13) VALUE '84040C500D235'.
           03  FILLER PIC X(13) VALUE '84040C501D235'.
           03  FILLER PIC X(13) VALUE '84040C502D235'.
           03  FILLER PIC X(13) VALUE '84040C503D235'.
           03  FILLER PIC X(13) VALUE '84040C504D235'.
           03  FILLER PIC X(13) VALUE '84040C505D235'.
           03  FILLER PIC X(13) VALUE '84040C506D235'.
           03  FILLER PIC X(13) VALUE '84040C508D235'.
           03  FILLER PIC X(13) VALUE '84040C509D235'.
           03  FILLER PIC X(13) VALUE '84040C510D280'.
           03  FILLER PIC X(13) VALUE '84040C511D280'.
           03  FILLER PIC X(13) VALUE '84040C512D280'.
           03  FILLER PIC X(13) VALUE '84040C519D280'.
           03  FILLER PIC X(13) VALUE '84040C600D290'.
           03  FILLER PIC X(13) VALUE '84040C609D290'.
           03  FILLER PIC X(13) VALUE '84040C632D294'.
           03  FILLER PIC X(13) VALUE '84040C639D299'.
           03  FILLER PIC X(13) VALUE '84040C760D234'.
           03  FILLER PIC X(13) VALUE '84040C761D235'.
           03  FILLER PIC X(13) VALUE '84040C762D235'.
           03  FILLER PIC X(13) VALUE '84040C764D230'.
           03  FILLER PIC X(13) VALUE '84040C765D236'.
           03  FILLER PIC X(13) VALUE '84050C000D230'.
           03  FILLER PIC X(13) VALUE '84050C001D230'.
           03  FILLER PIC X(13) VALUE '84050C002D230'.
           03  FILLER PIC X(13) VALUE '84050C003D230'.
           03  FILLER PIC X(13) VALUE '84050C004D230'.
           03  FILLER PIC X(13) VALUE '84050C005D230'.
           03  FILLER PIC X(13) VALUE '84050C006D230'.
           03  FILLER PIC X(13) VALUE '84050C008D230'.
           03  FILLER PIC X(13) VALUE '84050C009D230'.
           03  FILLER PIC X(13) VALUE '84050C210D235'.
           03  FILLER PIC X(13) VALUE '84050C440D230'.
           03  FILLER PIC X(13) VALUE '84050C441D231'.
           03  FILLER PIC X(13) VALUE '84050C442D232'.
           03  FILLER PIC X(13) VALUE '84050C443D233'.
           03  FILLER PIC X(13) VALUE '84050C444D234'.
           03  FILLER PIC X(13) VALUE '84050C445D235'.
           03  FILLER PIC X(13) VALUE '84050C446D236'.
           03  FILLER PIC X(13) VALUE '84050C447D237'.
           03  FILLER PIC X(13) VALUE '84050C448D239'.
           03  FILLER PIC X(13) VALUE '84050C449D239'.
           03  FILLER PIC X(13) VALUE '84050C500D235'.
           03  FILLER PIC X(13) VALUE '84050C501D235'.
           03  FILLER PIC X(13) VALUE '84050C502D235'.
           03  FILLER PIC X(13) VALUE '84050C503D235'.
           03  FILLER PIC X(13) VALUE '84050C504D235'.
           03  FILLER PIC X(13) VALUE '84050C505D235'.
           03  FILLER PIC X(13) VALUE '84050C506D235'.
           03  FILLER PIC X(13) VALUE '84050C508D235'.
           03  FILLER PIC X(13) VALUE '84050C509D235'.
           03  FILLER PIC X(13) VALUE '84050C510D280'.
           03  FILLER PIC X(13) VALUE '84050C511D280'.
           03  FILLER PIC X(13) VALUE '84050C512D280'.
           03  FILLER PIC X(13) VALUE '84050C519D280'.
           03  FILLER PIC X(13) VALUE '84050C600D290'.
           03  FILLER PIC X(13) VALUE '84050C609D290'.
           03  FILLER PIC X(13) VALUE '84050C632D294'.
           03  FILLER PIC X(13) VALUE '84050C639D299'.
           03  FILLER PIC X(13) VALUE '84050C760D234'.
           03  FILLER PIC X(13) VALUE '84050C761D235'.
           03  FILLER PIC X(13) VALUE '84050C762D235'.
           03  FILLER PIC X(13) VALUE '84050C764D230'.
           03  FILLER PIC X(13) VALUE '84050C765D236'.
           03  FILLER PIC X(13) VALUE '84060C000D230'.
           03  FILLER PIC X(13) VALUE '84060C001D230'.
           03  FILLER PIC X(13) VALUE '84060C002D230'.
           03  FILLER PIC X(13) VALUE '84060C003D230'.
           03  FILLER PIC X(13) VALUE '84060C004D230'.
           03  FILLER PIC X(13) VALUE '84060C005D230'.
           03  FILLER PIC X(13) VALUE '84060C006D230'.
           03  FILLER PIC X(13) VALUE '84060C008D230'.
           03  FILLER PIC X(13) VALUE '84060C009D230'.
           03  FILLER PIC X(13) VALUE '84060C210D235'.
           03  FILLER PIC X(13) VALUE '84060C440D230'.
           03  FILLER PIC X(13) VALUE '84060C441D231'.
           03  FILLER PIC X(13) VALUE '84060C442D232'.
           03  FILLER PIC X(13) VALUE '84060C443D233'.
           03  FILLER PIC X(13) VALUE '84060C444D234'.
           03  FILLER PIC X(13) VALUE '84060C445D235'.
           03  FILLER PIC X(13) VALUE '84060C446D236'.
           03  FILLER PIC X(13) VALUE '84060C447D237'.
           03  FILLER PIC X(13) VALUE '84060C448D239'.
           03  FILLER PIC X(13) VALUE '84060C449D239'.
           03  FILLER PIC X(13) VALUE '84060C500D235'.
           03  FILLER PIC X(13) VALUE '84060C501D235'.
           03  FILLER PIC X(13) VALUE '84060C502D235'.
           03  FILLER PIC X(13) VALUE '84060C503D235'.
           03  FILLER PIC X(13) VALUE '84060C504D235'.
           03  FILLER PIC X(13) VALUE '84060C505D235'.
           03  FILLER PIC X(13) VALUE '84060C506D235'.
           03  FILLER PIC X(13) VALUE '84060C508D235'.
           03  FILLER PIC X(13) VALUE '84060C509D235'.
           03  FILLER PIC X(13) VALUE '84060C510D280'.
           03  FILLER PIC X(13) VALUE '84060C511D280'.
           03  FILLER PIC X(13) VALUE '84060C512D280'.
           03  FILLER PIC X(13) VALUE '84060C519D280'.
           03  FILLER PIC X(13) VALUE '84060C600D290'.
           03  FILLER PIC X(13) VALUE '84060C609D290'.
           03  FILLER PIC X(13) VALUE '84060C632D294'.
           03  FILLER PIC X(13) VALUE '84060C639D299'.
           03  FILLER PIC X(13) VALUE '84060C760D234'.
           03  FILLER PIC X(13) VALUE '84060C761D235'.
           03  FILLER PIC X(13) VALUE '84060C762D235'.
           03  FILLER PIC X(13) VALUE '84060C764D230'.
           03  FILLER PIC X(13) VALUE '84060C765D236'.
           03  FILLER PIC X(13) VALUE '84063C000C440'.
           03  FILLER PIC X(13) VALUE '84063C001C440'.
           03  FILLER PIC X(13) VALUE '84063C002C440'.
           03  FILLER PIC X(13) VALUE '84063C003C440'.
           03  FILLER PIC X(13) VALUE '84063C004C440'.
           03  FILLER PIC X(13) VALUE '84063C005C440'.
           03  FILLER PIC X(13) VALUE '84063C006C440'.
           03  FILLER PIC X(13) VALUE '84063C008C440'.
           03  FILLER PIC X(13) VALUE '84063C009C440'.
           03  FILLER PIC X(13) VALUE '84063C210C445'.
           03  FILLER PIC X(13) VALUE '84063C440C440'.
           03  FILLER PIC X(13) VALUE '84063C441C441'.
           03  FILLER PIC X(13) VALUE '84063C442C442'.
           03  FILLER PIC X(13) VALUE '84063C443C443'.
           03  FILLER PIC X(13) VALUE '84063C444C444'.
           03  FILLER PIC X(13) VALUE '84063C445C445'.
           03  FILLER PIC X(13) VALUE '84063C446C446'.
           03  FILLER PIC X(13) VALUE '84063C447C447'.
           03  FILLER PIC X(13) VALUE '84063C448C448'.
           03  FILLER PIC X(13) VALUE '84063C449C449'.
           03  FILLER PIC X(13) VALUE '84063C500C445'.
           03  FILLER PIC X(13) VALUE '84063C501C445'.
           03  FILLER PIC X(13) VALUE '84063C502C445'.
           03  FILLER PIC X(13) VALUE '84063C503C445'.
           03  FILLER PIC X(13) VALUE '84063C504C445'.
           03  FILLER PIC X(13) VALUE '84063C505C445'.
           03  FILLER PIC X(13) VALUE '84063C506C445'.
           03  FILLER PIC X(13) VALUE '84063C508C445'.
           03  FILLER PIC X(13) VALUE '84063C509C445'.
           03  FILLER PIC X(13) VALUE '84063C510C510'.
           03  FILLER PIC X(13) VALUE '84063C511C511'.
           03  FILLER PIC X(13) VALUE '84063C512C512'.
           03  FILLER PIC X(13) VALUE '84063C518C518'.
           03  FILLER PIC X(13) VALUE '84063C519C519'.
           03  FILLER PIC X(13) VALUE '84063C529C52 '.
           03  FILLER PIC X(13) VALUE '84063C600C600'.
           03  FILLER PIC X(13) VALUE '84063C601C601'.
           03  FILLER PIC X(13) VALUE '84063C602C602'.
           03  FILLER PIC X(13) VALUE '84063C608C608'.
           03  FILLER PIC X(13) VALUE '84063C609C609'.
           03  FILLER PIC X(13) VALUE '84063C632C632'.
           03  FILLER PIC X(13) VALUE '84063C639C639'.
           03  FILLER PIC X(13) VALUE '84063C760C444'.
           03  FILLER PIC X(13) VALUE '84063C761C445'.
           03  FILLER PIC X(13) VALUE '84063C762C445'.
           03  FILLER PIC X(13) VALUE '84063C764C446'.
           03  FILLER PIC X(13) VALUE '84063C765C447'.
           03  FILLER PIC X(13) VALUE '84070C000D230'.
           03  FILLER PIC X(13) VALUE '84070C001D230'.
           03  FILLER PIC X(13) VALUE '84070C002D230'.
           03  FILLER PIC X(13) VALUE '84070C003D230'.
           03  FILLER PIC X(13) VALUE '84070C004D230'.
           03  FILLER PIC X(13) VALUE '84070C005D230'.
           03  FILLER PIC X(13) VALUE '84070C006D230'.
           03  FILLER PIC X(13) VALUE '84070C008D230'.
           03  FILLER PIC X(13) VALUE '84070C009D230'.
           03  FILLER PIC X(13) VALUE '84070C210D235'.
           03  FILLER PIC X(13) VALUE '84070C440D230'.
           03  FILLER PIC X(13) VALUE '84070C441D231'.
           03  FILLER PIC X(13) VALUE '84070C442D232'.
           03  FILLER PIC X(13) VALUE '84070C443D233'.
           03  FILLER PIC X(13) VALUE '84070C444D234'.
           03  FILLER PIC X(13) VALUE '84070C445D235'.
           03  FILLER PIC X(13) VALUE '84070C446D236'.
           03  FILLER PIC X(13) VALUE '84070C447D237'.
           03  FILLER PIC X(13) VALUE '84070C448D239'.
           03  FILLER PIC X(13) VALUE '84070C449D239'.
           03  FILLER PIC X(13) VALUE '84070C500D235'.
           03  FILLER PIC X(13) VALUE '84070C501D235'.
           03  FILLER PIC X(13) VALUE '84070C502D235'.
           03  FILLER PIC X(13) VALUE '84070C503D235'.
           03  FILLER PIC X(13) VALUE '84070C504D235'.
           03  FILLER PIC X(13) VALUE '84070C505D235'.
           03  FILLER PIC X(13) VALUE '84070C506D235'.
           03  FILLER PIC X(13) VALUE '84070C508D235'.
           03  FILLER PIC X(13) VALUE '84070C509D235'.
           03  FILLER PIC X(13) VALUE '84070C510D280'.
           03  FILLER PIC X(13) VALUE '84070C511D280'.
           03  FILLER PIC X(13) VALUE '84070C512D280'.
           03  FILLER PIC X(13) VALUE '84070C519D280'.
           03  FILLER PIC X(13) VALUE '84070C600D290'.
           03  FILLER PIC X(13) VALUE '84070C609D290'.
           03  FILLER PIC X(13) VALUE '84070C632D294'.
           03  FILLER PIC X(13) VALUE '84070C639D299'.
           03  FILLER PIC X(13) VALUE '84070C760D234'.
           03  FILLER PIC X(13) VALUE '84070C761D235'.
           03  FILLER PIC X(13) VALUE '84070C762D235'.
           03  FILLER PIC X(13) VALUE '84070C764D230'.
           03  FILLER PIC X(13) VALUE '84070C765D236'.
           03  FILLER PIC X(13) VALUE '84073C000C440'.
           03  FILLER PIC X(13) VALUE '84073C001C440'.
           03  FILLER PIC X(13) VALUE '84073C002C440'.
           03  FILLER PIC X(13) VALUE '84073C003C440'.
           03  FILLER PIC X(13) VALUE '84073C004C440'.
           03  FILLER PIC X(13) VALUE '84073C005C440'.
           03  FILLER PIC X(13) VALUE '84073C006C440'.
           03  FILLER PIC X(13) VALUE '84073C008C440'.
           03  FILLER PIC X(13) VALUE '84073C009C440'.
           03  FILLER PIC X(13) VALUE '84073C210C445'.
           03  FILLER PIC X(13) VALUE '84073C440C440'.
           03  FILLER PIC X(13) VALUE '84073C441C441'.
           03  FILLER PIC X(13) VALUE '84073C442C442'.
           03  FILLER PIC X(13) VALUE '84073C443C443'.
           03  FILLER PIC X(13) VALUE '84073C444C444'.
           03  FILLER PIC X(13) VALUE '84073C445C445'.
           03  FILLER PIC X(13) VALUE '84073C446C446'.
           03  FILLER PIC X(13) VALUE '84073C447C447'.
           03  FILLER PIC X(13) VALUE '84073C448C448'.
           03  FILLER PIC X(13) VALUE '84073C449C449'.
           03  FILLER PIC X(13) VALUE '84073C500C445'.
           03  FILLER PIC X(13) VALUE '84073C501C445'.
           03  FILLER PIC X(13) VALUE '84073C502C445'.
           03  FILLER PIC X(13) VALUE '84073C503C445'.
           03  FILLER PIC X(13) VALUE '84073C504C445'.
           03  FILLER PIC X(13) VALUE '84073C505C445'.
           03  FILLER PIC X(13) VALUE '84073C506C445'.
           03  FILLER PIC X(13) VALUE '84073C508C445'.
           03  FILLER PIC X(13) VALUE '84073C509C445'.
           03  FILLER PIC X(13) VALUE '84073C510C510'.
           03  FILLER PIC X(13) VALUE '84073C511C511'.
           03  FILLER PIC X(13) VALUE '84073C512C512'.
           03  FILLER PIC X(13) VALUE '84073C518C518'.
           03  FILLER PIC X(13) VALUE '84073C519C519'.
           03  FILLER PIC X(13) VALUE '84073C529C52 '.
           03  FILLER PIC X(13) VALUE '84073C600C600'.
           03  FILLER PIC X(13) VALUE '84073C601C601'.
           03  FILLER PIC X(13) VALUE '84073C602C602'.
           03  FILLER PIC X(13) VALUE '84073C608C608'.
           03  FILLER PIC X(13) VALUE '84073C609C609'.
           03  FILLER PIC X(13) VALUE '84073C632C632'.
           03  FILLER PIC X(13) VALUE '84073C639C639'.
           03  FILLER PIC X(13) VALUE '84073C760C444'.
           03  FILLER PIC X(13) VALUE '84073C761C445'.
           03  FILLER PIC X(13) VALUE '84073C762C445'.
           03  FILLER PIC X(13) VALUE '84073C764C446'.
           03  FILLER PIC X(13) VALUE '84073C765C447'.
           03  FILLER PIC X(13) VALUE '84080C000D230'.
           03  FILLER PIC X(13) VALUE '84080C001D230'.
           03  FILLER PIC X(13) VALUE '84080C002D230'.
           03  FILLER PIC X(13) VALUE '84080C003D230'.
           03  FILLER PIC X(13) VALUE '84080C004D230'.
           03  FILLER PIC X(13) VALUE '84080C005D230'.
           03  FILLER PIC X(13) VALUE '84080C006D230'.
           03  FILLER PIC X(13) VALUE '84080C008D230'.
           03  FILLER PIC X(13) VALUE '84080C009D230'.
           03  FILLER PIC X(13) VALUE '84080C210D235'.
           03  FILLER PIC X(13) VALUE '84080C440D230'.
           03  FILLER PIC X(13) VALUE '84080C441D231'.
           03  FILLER PIC X(13) VALUE '84080C442D232'.
           03  FILLER PIC X(13) VALUE '84080C443D233'.
           03  FILLER PIC X(13) VALUE '84080C444D234'.
           03  FILLER PIC X(13) VALUE '84080C445D235'.
           03  FILLER PIC X(13) VALUE '84080C446D236'.
           03  FILLER PIC X(13) VALUE '84080C447D237'.
           03  FILLER PIC X(13) VALUE '84080C448D239'.
           03  FILLER PIC X(13) VALUE '84080C449D239'.
           03  FILLER PIC X(13) VALUE '84080C500D235'.
           03  FILLER PIC X(13) VALUE '84080C501D235'.
           03  FILLER PIC X(13) VALUE '84080C502D235'.
           03  FILLER PIC X(13) VALUE '84080C503D235'.
           03  FILLER PIC X(13) VALUE '84080C504D235'.
           03  FILLER PIC X(13) VALUE '84080C505D235'.
           03  FILLER PIC X(13) VALUE '84080C506D235'.
           03  FILLER PIC X(13) VALUE '84080C508D235'.
           03  FILLER PIC X(13) VALUE '84080C509D235'.
           03  FILLER PIC X(13) VALUE '84080C510D280'.
           03  FILLER PIC X(13) VALUE '84080C511D280'.
           03  FILLER PIC X(13) VALUE '84080C512D280'.
           03  FILLER PIC X(13) VALUE '84080C519D280'.
           03  FILLER PIC X(13) VALUE '84080C600D290'.
           03  FILLER PIC X(13) VALUE '84080C609D290'.
           03  FILLER PIC X(13) VALUE '84080C632D294'.
           03  FILLER PIC X(13) VALUE '84080C639D299'.
           03  FILLER PIC X(13) VALUE '84080C760D234'.
           03  FILLER PIC X(13) VALUE '84080C761D235'.
           03  FILLER PIC X(13) VALUE '84080C762D235'.
           03  FILLER PIC X(13) VALUE '84080C764D230'.
           03  FILLER PIC X(13) VALUE '84080C765D236'.
           03  FILLER PIC X(13) VALUE '84100C000D230'.
           03  FILLER PIC X(13) VALUE '84100C001D230'.
           03  FILLER PIC X(13) VALUE '84100C002D230'.
           03  FILLER PIC X(13) VALUE '84100C003D230'.
           03  FILLER PIC X(13) VALUE '84100C004D230'.
           03  FILLER PIC X(13) VALUE '84100C005D230'.
           03  FILLER PIC X(13) VALUE '84100C006D230'.
           03  FILLER PIC X(13) VALUE '84100C008D230'.
           03  FILLER PIC X(13) VALUE '84100C009D230'.
           03  FILLER PIC X(13) VALUE '84100C210D235'.
           03  FILLER PIC X(13) VALUE '84100C440D230'.
           03  FILLER PIC X(13) VALUE '84100C441D231'.
           03  FILLER PIC X(13) VALUE '84100C442D232'.
           03  FILLER PIC X(13) VALUE '84100C443D233'.
           03  FILLER PIC X(13) VALUE '84100C444D234'.
           03  FILLER PIC X(13) VALUE '84100C445D235'.
           03  FILLER PIC X(13) VALUE '84100C446D236'.
           03  FILLER PIC X(13) VALUE '84100C447D237'.
           03  FILLER PIC X(13) VALUE '84100C448D239'.
           03  FILLER PIC X(13) VALUE '84100C449D239'.
           03  FILLER PIC X(13) VALUE '84100C500D235'.
           03  FILLER PIC X(13) VALUE '84100C501D235'.
           03  FILLER PIC X(13) VALUE '84100C502D235'.
           03  FILLER PIC X(13) VALUE '84100C503D235'.
           03  FILLER PIC X(13) VALUE '84100C504D235'.
           03  FILLER PIC X(13) VALUE '84100C505D235'.
           03  FILLER PIC X(13) VALUE '84100C506D235'.
           03  FILLER PIC X(13) VALUE '84100C508D235'.
           03  FILLER PIC X(13) VALUE '84100C509D235'.
           03  FILLER PIC X(13) VALUE '84100C510D280'.
           03  FILLER PIC X(13) VALUE '84100C511D280'.
           03  FILLER PIC X(13) VALUE '84100C512D280'.
           03  FILLER PIC X(13) VALUE '84100C519D280'.
           03  FILLER PIC X(13) VALUE '84100C600D290'.
           03  FILLER PIC X(13) VALUE '84100C609D290'.
           03  FILLER PIC X(13) VALUE '84100C632D294'.
           03  FILLER PIC X(13) VALUE '84100C639D299'.
           03  FILLER PIC X(13) VALUE '84100C760D234'.
           03  FILLER PIC X(13) VALUE '84100C761D235'.
           03  FILLER PIC X(13) VALUE '84100C762D235'.
           03  FILLER PIC X(13) VALUE '84100C764D230'.
           03  FILLER PIC X(13) VALUE '84100C765D236'.
           03  FILLER PIC X(13) VALUE '84103C000C440'.
           03  FILLER PIC X(13) VALUE '84103C001C440'.
           03  FILLER PIC X(13) VALUE '84103C002C440'.
           03  FILLER PIC X(13) VALUE '84103C003C440'.
           03  FILLER PIC X(13) VALUE '84103C004C440'.
           03  FILLER PIC X(13) VALUE '84103C005C440'.
           03  FILLER PIC X(13) VALUE '84103C006C440'.
           03  FILLER PIC X(13) VALUE '84103C008C440'.
           03  FILLER PIC X(13) VALUE '84103C009C440'.
           03  FILLER PIC X(13) VALUE '84103C210C445'.
           03  FILLER PIC X(13) VALUE '84103C440C440'.
           03  FILLER PIC X(13) VALUE '84103C441C441'.
           03  FILLER PIC X(13) VALUE '84103C442C442'.
           03  FILLER PIC X(13) VALUE '84103C443C443'.
           03  FILLER PIC X(13) VALUE '84103C444C444'.
           03  FILLER PIC X(13) VALUE '84103C445C445'.
           03  FILLER PIC X(13) VALUE '84103C446C446'.
           03  FILLER PIC X(13) VALUE '84103C447C447'.
           03  FILLER PIC X(13) VALUE '84103C448C448'.
           03  FILLER PIC X(13) VALUE '84103C449C449'.
           03  FILLER PIC X(13) VALUE '84103C500C445'.
           03  FILLER PIC X(13) VALUE '84103C501C445'.
           03  FILLER PIC X(13) VALUE '84103C502C445'.
           03  FILLER PIC X(13) VALUE '84103C503C445'.
           03  FILLER PIC X(13) VALUE '84103C504C445'.
           03  FILLER PIC X(13) VALUE '84103C505C445'.
           03  FILLER PIC X(13) VALUE '84103C506C445'.
           03  FILLER PIC X(13) VALUE '84103C508C445'.
           03  FILLER PIC X(13) VALUE '84103C509C445'.
           03  FILLER PIC X(13) VALUE '84103C510C510'.
           03  FILLER PIC X(13) VALUE '84103C511C511'.
           03  FILLER PIC X(13) VALUE '84103C512C512'.
           03  FILLER PIC X(13) VALUE '84103C518C518'.
           03  FILLER PIC X(13) VALUE '84103C519C519'.
           03  FILLER PIC X(13) VALUE '84103C529C52 '.
           03  FILLER PIC X(13) VALUE '84103C600C600'.
           03  FILLER PIC X(13) VALUE '84103C601C601'.
           03  FILLER PIC X(13) VALUE '84103C602C602'.
           03  FILLER PIC X(13) VALUE '84103C608C608'.
           03  FILLER PIC X(13) VALUE '84103C609C609'.
           03  FILLER PIC X(13) VALUE '84103C632C632'.
           03  FILLER PIC X(13) VALUE '84103C639C639'.
           03  FILLER PIC X(13) VALUE '84103C760C444'.
           03  FILLER PIC X(13) VALUE '84103C761C445'.
           03  FILLER PIC X(13) VALUE '84103C762C445'.
           03  FILLER PIC X(13) VALUE '84103C764C446'.
           03  FILLER PIC X(13) VALUE '84103C765C447'.
           03  FILLER PIC X(13) VALUE '85012C500D057'.
           03  FILLER PIC X(13) VALUE '85012C501D057'.
           03  FILLER PIC X(13) VALUE '85012C502D057'.
           03  FILLER PIC X(13) VALUE '85012C503D057'.
           03  FILLER PIC X(13) VALUE '85012C504D057'.
           03  FILLER PIC X(13) VALUE '85012C505D057'.
           03  FILLER PIC X(13) VALUE '85012C506D057'.
           03  FILLER PIC X(13) VALUE '85012C508D057'.
           03  FILLER PIC X(13) VALUE '85012C509D057'.
           03  FILLER PIC X(13) VALUE '85013C500C500'.
           03  FILLER PIC X(13) VALUE '85013C501C501'.
           03  FILLER PIC X(13) VALUE '85013C502C502'.
           03  FILLER PIC X(13) VALUE '85013C503C503'.
           03  FILLER PIC X(13) VALUE '85013C504C504'.
           03  FILLER PIC X(13) VALUE '85013C505C505'.
           03  FILLER PIC X(13) VALUE '85013C506C506'.
           03  FILLER PIC X(13) VALUE '85013C508C508'.
           03  FILLER PIC X(13) VALUE '85013C509C509'.
           03  FILLER PIC X(13) VALUE '85023C500C500'.
           03  FILLER PIC X(13) VALUE '85023C501C501'.
           03  FILLER PIC X(13) VALUE '85023C502C502'.
           03  FILLER PIC X(13) VALUE '85023C503C503'.
           03  FILLER PIC X(13) VALUE '85023C504C504'.
           03  FILLER PIC X(13) VALUE '85023C505C505'.
           03  FILLER PIC X(13) VALUE '85023C506C506'.
           03  FILLER PIC X(13) VALUE '85023C508C508'.
           03  FILLER PIC X(13) VALUE '85023C509C509'.
           03  FILLER PIC X(13) VALUE '85202C500D050'.
           03  FILLER PIC X(13) VALUE '85202C501D050'.
           03  FILLER PIC X(13) VALUE '85202C502D050'.
           03  FILLER PIC X(13) VALUE '85202C503D050'.
           03  FILLER PIC X(13) VALUE '85202C504D050'.
           03  FILLER PIC X(13) VALUE '85202C505D050'.
           03  FILLER PIC X(13) VALUE '85202C506D050'.
           03  FILLER PIC X(13) VALUE '85202C508D050'.
           03  FILLER PIC X(13) VALUE '85202C509D050'.
           03  FILLER PIC X(13) VALUE '85222C500D057'.
           03  FILLER PIC X(13) VALUE '85222C501D057'.
           03  FILLER PIC X(13) VALUE '85222C502D057'.
           03  FILLER PIC X(13) VALUE '85222C503D057'.
           03  FILLER PIC X(13) VALUE '85222C504D057'.
           03  FILLER PIC X(13) VALUE '85222C505D057'.
           03  FILLER PIC X(13) VALUE '85222C506D057'.
           03  FILLER PIC X(13) VALUE '85222C508D057'.
           03  FILLER PIC X(13) VALUE '85222C509D057'.
           03  FILLER PIC X(13) VALUE '85223C500C500'.
           03  FILLER PIC X(13) VALUE '85223C501C501'.
           03  FILLER PIC X(13) VALUE '85223C502C502'.
           03  FILLER PIC X(13) VALUE '85223C503C503'.
           03  FILLER PIC X(13) VALUE '85223C504C504'.
           03  FILLER PIC X(13) VALUE '85223C505C505'.
           03  FILLER PIC X(13) VALUE '85223C506C506'.
           03  FILLER PIC X(13) VALUE '85223C508C508'.
           03  FILLER PIC X(13) VALUE '85223C509C509'.
           03  FILLER PIC X(13) VALUE '85413C500C500'.
           03  FILLER PIC X(13) VALUE '85413C501C501'.
           03  FILLER PIC X(13) VALUE '85413C502C502'.
           03  FILLER PIC X(13) VALUE '85413C503C503'.
           03  FILLER PIC X(13) VALUE '85413C504C504'.
           03  FILLER PIC X(13) VALUE '85413C505C505'.
           03  FILLER PIC X(13) VALUE '85413C506C506'.
           03  FILLER PIC X(13) VALUE '85413C508C508'.
           03  FILLER PIC X(13) VALUE '85413C509C509'.
           03  FILLER PIC X(13) VALUE '85422C000D040'.
           03  FILLER PIC X(13) VALUE '85422C001D040'.
           03  FILLER PIC X(13) VALUE '85422C002D040'.
           03  FILLER PIC X(13) VALUE '85422C003D040'.
           03  FILLER PIC X(13) VALUE '85422C004D040'.
           03  FILLER PIC X(13) VALUE '85422C005D040'.
           03  FILLER PIC X(13) VALUE '85422C006D040'.
           03  FILLER PIC X(13) VALUE '85422C008D040'.
           03  FILLER PIC X(13) VALUE '85422C009D040'.
           03  FILLER PIC X(13) VALUE '85422C210D013'.
           03  FILLER PIC X(13) VALUE '85422C440D040'.
           03  FILLER PIC X(13) VALUE '85422C441D041'.
           03  FILLER PIC X(13) VALUE '85422C442D042'.
           03  FILLER PIC X(13) VALUE '85422C443D043'.
           03  FILLER PIC X(13) VALUE '85422C444D044'.
           03  FILLER PIC X(13) VALUE '85422C445D045'.
           03  FILLER PIC X(13) VALUE '85422C446D046'.
           03  FILLER PIC X(13) VALUE '85422C447D047'.
           03  FILLER PIC X(13) VALUE '85422C448D049'.
           03  FILLER PIC X(13) VALUE '85422C449D049'.
           03  FILLER PIC X(13) VALUE '85422C500D045'.
           03  FILLER PIC X(13) VALUE '85422C501D045'.
           03  FILLER PIC X(13) VALUE '85422C502D045'.
           03  FILLER PIC X(13) VALUE '85422C503D045'.
           03  FILLER PIC X(13) VALUE '85422C504D045'.
           03  FILLER PIC X(13) VALUE '85422C505D045'.
           03  FILLER PIC X(13) VALUE '85422C506D045'.
           03  FILLER PIC X(13) VALUE '85422C508D045'.
           03  FILLER PIC X(13) VALUE '85422C509D045'.
           03  FILLER PIC X(13) VALUE '85422C510D073'.
           03  FILLER PIC X(13) VALUE '85422C511D073'.
           03  FILLER PIC X(13) VALUE '85422C512D071'.
           03  FILLER PIC X(13) VALUE '85422C519D071'.
           03  FILLER PIC X(13) VALUE '85422C600D074'.
           03  FILLER PIC X(13) VALUE '85422C609D074'.
           03  FILLER PIC X(13) VALUE '85422C632D076'.
           03  FILLER PIC X(13) VALUE '85422C639D076'.
           03  FILLER PIC X(13) VALUE '85422C760D044'.
           03  FILLER PIC X(13) VALUE '85422C761D045'.
           03  FILLER PIC X(13) VALUE '85422C762D045'.
           03  FILLER PIC X(13) VALUE '85422C764D046'.
           03  FILLER PIC X(13) VALUE '85422C765D047'.
           03  FILLER PIC X(13) VALUE '85423C000C440'.
           03  FILLER PIC X(13) VALUE '85423C001C440'.
           03  FILLER PIC X(13) VALUE '85423C002C440'.
           03  FILLER PIC X(13) VALUE '85423C003C440'.
           03  FILLER PIC X(13) VALUE '85423C004C440'.
           03  FILLER PIC X(13) VALUE '85423C005C440'.
           03  FILLER PIC X(13) VALUE '85423C006C440'.
           03  FILLER PIC X(13) VALUE '85423C008C440'.
           03  FILLER PIC X(13) VALUE '85423C009C440'.
           03  FILLER PIC X(13) VALUE '85423C210C445'.
           03  FILLER PIC X(13) VALUE '85423C440C440'.
           03  FILLER PIC X(13) VALUE '85423C441C441'.
           03  FILLER PIC X(13) VALUE '85423C442C442'.
           03  FILLER PIC X(13) VALUE '85423C443C443'.
           03  FILLER PIC X(13) VALUE '85423C444C444'.
           03  FILLER PIC X(13) VALUE '85423C445C445'.
           03  FILLER PIC X(13) VALUE '85423C446C446'.
           03  FILLER PIC X(13) VALUE '85423C447C447'.
           03  FILLER PIC X(13) VALUE '85423C448C448'.
           03  FILLER PIC X(13) VALUE '85423C449C449'.
           03  FILLER PIC X(13) VALUE '85423C500C445'.
           03  FILLER PIC X(13) VALUE '85423C501C445'.
           03  FILLER PIC X(13) VALUE '85423C502C445'.
           03  FILLER PIC X(13) VALUE '85423C503C445'.
           03  FILLER PIC X(13) VALUE '85423C504C445'.
           03  FILLER PIC X(13) VALUE '85423C505C445'.
           03  FILLER PIC X(13) VALUE '85423C506C445'.
           03  FILLER PIC X(13) VALUE '85423C508C445'.
           03  FILLER PIC X(13) VALUE '85423C509C445'.
           03  FILLER PIC X(13) VALUE '85423C510C510'.
           03  FILLER PIC X(13) VALUE '85423C511C511'.
           03  FILLER PIC X(13) VALUE '85423C512C512'.
           03  FILLER PIC X(13) VALUE '85423C518C518'.
           03  FILLER PIC X(13) VALUE '85423C519C519'.
           03  FILLER PIC X(13) VALUE '85423C529C52 '.
           03  FILLER PIC X(13) VALUE '85423C600C600'.
           03  FILLER PIC X(13) VALUE '85423C601C601'.
           03  FILLER PIC X(13) VALUE '85423C602C602'.
           03  FILLER PIC X(13) VALUE '85423C608C608'.
           03  FILLER PIC X(13) VALUE '85423C609C609'.
           03  FILLER PIC X(13) VALUE '85423C632C632'.
           03  FILLER PIC X(13) VALUE '85423C639C639'.
           03  FILLER PIC X(13) VALUE '85423C760C444'.
           03  FILLER PIC X(13) VALUE '85423C761C445'.
           03  FILLER PIC X(13) VALUE '85423C762C445'.
           03  FILLER PIC X(13) VALUE '85423C764C446'.
           03  FILLER PIC X(13) VALUE '85423C765C447'.
           03  FILLER PIC X(13) VALUE '85433C500C500'.
           03  FILLER PIC X(13) VALUE '85433C501C501'.
           03  FILLER PIC X(13) VALUE '85433C502C502'.
           03  FILLER PIC X(13) VALUE '85433C503C503'.
           03  FILLER PIC X(13) VALUE '85433C504C504'.
           03  FILLER PIC X(13) VALUE '85433C505C505'.
           03  FILLER PIC X(13) VALUE '85433C506C506'.
           03  FILLER PIC X(13) VALUE '85433C508C508'.
           03  FILLER PIC X(13) VALUE '85433C509C509'.
           03  FILLER PIC X(13) VALUE '87200C000D220'.
           03  FILLER PIC X(13) VALUE '87200C001D220'.
           03  FILLER PIC X(13) VALUE '87200C002D220'.
           03  FILLER PIC X(13) VALUE '87200C003D220'.
           03  FILLER PIC X(13) VALUE '87200C004D220'.
           03  FILLER PIC X(13) VALUE '87200C005D220'.
           03  FILLER PIC X(13) VALUE '87200C006D220'.
           03  FILLER PIC X(13) VALUE '87200C008D220'.
           03  FILLER PIC X(13) VALUE '87200C009D220'.
           03  FILLER PIC X(13) VALUE '87200C069D103'.
           03  FILLER PIC X(13) VALUE '87200C210D225'.
           03  FILLER PIC X(13) VALUE '87200C440D220'.
           03  FILLER PIC X(13) VALUE '87200C441D221'.
           03  FILLER PIC X(13) VALUE '87200C442D222'.
           03  FILLER PIC X(13) VALUE '87200C443D223'.
           03  FILLER PIC X(13) VALUE '87200C444D224'.
           03  FILLER PIC X(13) VALUE '87200C445D225'.
           03  FILLER PIC X(13) VALUE '87200C446D226'.
           03  FILLER PIC X(13) VALUE '87200C447D227'.
           03  FILLER PIC X(13) VALUE '87200C448D229'.
           03  FILLER PIC X(13) VALUE '87200C449D229'.
           03  FILLER PIC X(13) VALUE '87200C500D225'.
           03  FILLER PIC X(13) VALUE '87200C501D225'.
           03  FILLER PIC X(13) VALUE '87200C502D225'.
           03  FILLER PIC X(13) VALUE '87200C503D225'.
           03  FILLER PIC X(13) VALUE '87200C504D225'.
           03  FILLER PIC X(13) VALUE '87200C505D225'.
           03  FILLER PIC X(13) VALUE '87200C506D225'.
           03  FILLER PIC X(13) VALUE '87200C508D225'.
           03  FILLER PIC X(13) VALUE '87200C509D225'.
           03  FILLER PIC X(13) VALUE '87200C510D280'.
           03  FILLER PIC X(13) VALUE '87200C511D280'.
           03  FILLER PIC X(13) VALUE '87200C512D280'.
           03  FILLER PIC X(13) VALUE '87200C518D280'.
           03  FILLER PIC X(13) VALUE '87200C519D280'.
           03  FILLER PIC X(13) VALUE '87200C600D290'.
           03  FILLER PIC X(13) VALUE '87200C609D290'.
           03  FILLER PIC X(13) VALUE '87200C632D294'.
           03  FILLER PIC X(13) VALUE '87200C639D299'.
           03  FILLER PIC X(13) VALUE '87200C690D310'.
           03  FILLER PIC X(13) VALUE '87200C691D311'.
           03  FILLER PIC X(13) VALUE '87200C692D312'.
           03  FILLER PIC X(13) VALUE '87200C693D313'.
           03  FILLER PIC X(13) VALUE '87200C694D314'.
           03  FILLER PIC X(13) VALUE '87200C695D315'.
           03  FILLER PIC X(13) VALUE '87200C696D316'.
           03  FILLER PIC X(13) VALUE '87200C698D319'.
           03  FILLER PIC X(13) VALUE '87200C699D319'.
           03  FILLER PIC X(13) VALUE '87200C762D225'.
           03  FILLER PIC X(13) VALUE '87200C764D226'.
           03  FILLER PIC X(13) VALUE '87200C765D227'.
           03  FILLER PIC X(13) VALUE '87202C000D030'.
           03  FILLER PIC X(13) VALUE '87202C001D030'.
           03  FILLER PIC X(13) VALUE '87202C002D030'.
           03  FILLER PIC X(13) VALUE '87202C003D030'.
           03  FILLER PIC X(13) VALUE '87202C004D030'.
           03  FILLER PIC X(13) VALUE '87202C005D030'.
           03  FILLER PIC X(13) VALUE '87202C006D030'.
           03  FILLER PIC X(13) VALUE '87202C008D030'.
           03  FILLER PIC X(13) VALUE '87202C009D030'.
           03  FILLER PIC X(13) VALUE '87202C210D035'.
           03  FILLER PIC X(13) VALUE '87202C440D030'.
           03  FILLER PIC X(13) VALUE '87202C441D031'.
           03  FILLER PIC X(13) VALUE '87202C442D032'.
           03  FILLER PIC X(13) VALUE '87202C443D033'.
           03  FILLER PIC X(13) VALUE '87202C444D034'.
           03  FILLER PIC X(13) VALUE '87202C445D035'.
           03  FILLER PIC X(13) VALUE '87202C446D036'.
           03  FILLER PIC X(13) VALUE '87202C447D037'.
           03  FILLER PIC X(13) VALUE '87202C448D039'.
           03  FILLER PIC X(13) VALUE '87202C449D039'.
           03  FILLER PIC X(13) VALUE '87202C500D035'.
           03  FILLER PIC X(13) VALUE '87202C501D035'.
           03  FILLER PIC X(13) VALUE '87202C502D035'.
           03  FILLER PIC X(13) VALUE '87202C503D035'.
           03  FILLER PIC X(13) VALUE '87202C504D035'.
           03  FILLER PIC X(13) VALUE '87202C505D035'.
           03  FILLER PIC X(13) VALUE '87202C506D035'.
           03  FILLER PIC X(13) VALUE '87202C508D035'.
           03  FILLER PIC X(13) VALUE '87202C509D035'.
           03  FILLER PIC X(13) VALUE '87202C760D034'.
           03  FILLER PIC X(13) VALUE '87202C764D036'.
           03  FILLER PIC X(13) VALUE '87202C765D037'.
           03  FILLER PIC X(13) VALUE '87202C767D035'.
           03  FILLER PIC X(13) VALUE '87203C000C430'.
           03  FILLER PIC X(13) VALUE '87203C001C430'.
           03  FILLER PIC X(13) VALUE '87203C002C430'.
           03  FILLER PIC X(13) VALUE '87203C003C430'.
           03  FILLER PIC X(13) VALUE '87203C004C430'.
           03  FILLER PIC X(13) VALUE '87203C005C430'.
           03  FILLER PIC X(13) VALUE '87203C006C430'.
           03  FILLER PIC X(13) VALUE '87203C008C430'.
           03  FILLER PIC X(13) VALUE '87203C009C430'.
           03  FILLER PIC X(13) VALUE '87203C440C430'.
           03  FILLER PIC X(13) VALUE '87203C441C431'.
           03  FILLER PIC X(13) VALUE '87203C442C432'.
           03  FILLER PIC X(13) VALUE '87203C443C433'.
           03  FILLER PIC X(13) VALUE '87203C444C434'.
           03  FILLER PIC X(13) VALUE '87203C445C435'.
           03  FILLER PIC X(13) VALUE '87203C446C436'.
           03  FILLER PIC X(13) VALUE '87203C447C437'.
           03  FILLER PIC X(13) VALUE '87203C448C438'.
           03  FILLER PIC X(13) VALUE '87203C449C439'.
           03  FILLER PIC X(13) VALUE '87203C500C435'.
           03  FILLER PIC X(13) VALUE '87203C501C435'.
           03  FILLER PIC X(13) VALUE '87203C502C435'.
           03  FILLER PIC X(13) VALUE '87203C503C435'.
           03  FILLER PIC X(13) VALUE '87203C504C435'.
           03  FILLER PIC X(13) VALUE '87203C505C435'.
           03  FILLER PIC X(13) VALUE '87203C506C435'.
           03  FILLER PIC X(13) VALUE '87203C508C435'.
           03  FILLER PIC X(13) VALUE '87203C509C435'.
           03  FILLER PIC X(13) VALUE '87203C760C439'.
           03  FILLER PIC X(13) VALUE '87203C761C439'.
           03  FILLER PIC X(13) VALUE '87203C762C435'.
           03  FILLER PIC X(13) VALUE '87203C763C439'.
           03  FILLER PIC X(13) VALUE '87203C764C436'.
           03  FILLER PIC X(13) VALUE '87203C765C437'.
           03  FILLER PIC X(13) VALUE '87203C767C439'.
           03  FILLER PIC X(13) VALUE '87212C000D030'.
           03  FILLER PIC X(13) VALUE '87212C001D030'.
           03  FILLER PIC X(13) VALUE '87212C002D030'.
           03  FILLER PIC X(13) VALUE '87212C003D030'.
           03  FILLER PIC X(13) VALUE '87212C004D030'.
           03  FILLER PIC X(13) VALUE '87212C005D030'.
           03  FILLER PIC X(13) VALUE '87212C006D030'.
           03  FILLER PIC X(13) VALUE '87212C008D030'.
           03  FILLER PIC X(13) VALUE '87212C009D030'.
           03  FILLER PIC X(13) VALUE '87212C210D035'.
           03  FILLER PIC X(13) VALUE '87212C440D030'.
           03  FILLER PIC X(13) VALUE '87212C441D031'.
           03  FILLER PIC X(13) VALUE '87212C442D032'.
           03  FILLER PIC X(13) VALUE '87212C443D033'.
           03  FILLER PIC X(13) VALUE '87212C444D034'.
           03  FILLER PIC X(13) VALUE '87212C445D035'.
           03  FILLER PIC X(13) VALUE '87212C446D036'.
           03  FILLER PIC X(13) VALUE '87212C447D037'.
           03  FILLER PIC X(13) VALUE '87212C448D039'.
           03  FILLER PIC X(13) VALUE '87212C449D039'.
           03  FILLER PIC X(13) VALUE '87212C500D035'.
           03  FILLER PIC X(13) VALUE '87212C501D035'.
           03  FILLER PIC X(13) VALUE '87212C502D035'.
           03  FILLER PIC X(13) VALUE '87212C503D035'.
           03  FILLER PIC X(13) VALUE '87212C504D035'.
           03  FILLER PIC X(13) VALUE '87212C505D035'.
           03  FILLER PIC X(13) VALUE '87212C506D035'.
           03  FILLER PIC X(13) VALUE '87212C508D035'.
           03  FILLER PIC X(13) VALUE '87212C509D035'.
           03  FILLER PIC X(13) VALUE '87212C760D034'.
           03  FILLER PIC X(13) VALUE '87212C764D036'.
           03  FILLER PIC X(13) VALUE '87212C765D037'.
           03  FILLER PIC X(13) VALUE '87212C767D035'.
           03  FILLER PIC X(13) VALUE '87213C000C430'.
           03  FILLER PIC X(13) VALUE '87213C001C430'.
           03  FILLER PIC X(13) VALUE '87213C002C430'.
           03  FILLER PIC X(13) VALUE '87213C003C430'.
           03  FILLER PIC X(13) VALUE '87213C004C430'.
           03  FILLER PIC X(13) VALUE '87213C005C430'.
           03  FILLER PIC X(13) VALUE '87213C006C430'.
           03  FILLER PIC X(13) VALUE '87213C008C430'.
           03  FILLER PIC X(13) VALUE '87213C009C430'.
           03  FILLER PIC X(13) VALUE '87213C440C430'.
           03  FILLER PIC X(13) VALUE '87213C441C431'.
           03  FILLER PIC X(13) VALUE '87213C442C432'.
           03  FILLER PIC X(13) VALUE '87213C443C433'.
           03  FILLER PIC X(13) VALUE '87213C444C434'.
           03  FILLER PIC X(13) VALUE '87213C445C435'.
           03  FILLER PIC X(13) VALUE '87213C446C436'.
           03  FILLER PIC X(13) VALUE '87213C447C437'.
           03  FILLER PIC X(13) VALUE '87213C448C438'.
           03  FILLER PIC X(13) VALUE '87213C449C439'.
           03  FILLER PIC X(13) VALUE '87213C500C435'.
           03  FILLER PIC X(13) VALUE '87213C501C435'.
           03  FILLER PIC X(13) VALUE '87213C502C435'.
           03  FILLER PIC X(13) VALUE '87213C503C435'.
           03  FILLER PIC X(13) VALUE '87213C504C435'.
           03  FILLER PIC X(13) VALUE '87213C505C435'.
           03  FILLER PIC X(13) VALUE '87213C506C435'.
           03  FILLER PIC X(13) VALUE '87213C508C435'.
           03  FILLER PIC X(13) VALUE '87213C509C435'.
           03  FILLER PIC X(13) VALUE '87213C760C439'.
           03  FILLER PIC X(13) VALUE '87213C761C439'.
           03  FILLER PIC X(13) VALUE '87213C762C435'.
           03  FILLER PIC X(13) VALUE '87213C763C439'.
           03  FILLER PIC X(13) VALUE '87213C764C436'.
           03  FILLER PIC X(13) VALUE '87213C765C437'.
           03  FILLER PIC X(13) VALUE '87213C767C439'.
           03  FILLER PIC X(13) VALUE '87220C000D220'.
           03  FILLER PIC X(13) VALUE '87220C001D220'.
           03  FILLER PIC X(13) VALUE '87220C002D220'.
           03  FILLER PIC X(13) VALUE '87220C003D220'.
           03  FILLER PIC X(13) VALUE '87220C004D220'.
           03  FILLER PIC X(13) VALUE '87220C005D220'.
           03  FILLER PIC X(13) VALUE '87220C006D220'.
           03  FILLER PIC X(13) VALUE '87220C008D220'.
           03  FILLER PIC X(13) VALUE '87220C009D220'.
           03  FILLER PIC X(13) VALUE '87220C069D103'.
           03  FILLER PIC X(13) VALUE '87220C210D225'.
           03  FILLER PIC X(13) VALUE '87220C440D220'.
           03  FILLER PIC X(13) VALUE '87220C441D221'.
           03  FILLER PIC X(13) VALUE '87220C442D222'.
           03  FILLER PIC X(13) VALUE '87220C443D223'.
           03  FILLER PIC X(13) VALUE '87220C444D224'.
           03  FILLER PIC X(13) VALUE '87220C445D225'.
           03  FILLER PIC X(13) VALUE '87220C446D226'.
           03  FILLER PIC X(13) VALUE '87220C447D227'.
           03  FILLER PIC X(13) VALUE '87220C448D229'.
           03  FILLER PIC X(13) VALUE '87220C449D229'.
           03  FILLER PIC X(13) VALUE '87220C500D225'.
           03  FILLER PIC X(13) VALUE '87220C501D225'.
           03  FILLER PIC X(13) VALUE '87220C502D225'.
           03  FILLER PIC X(13) VALUE '87220C503D225'.
           03  FILLER PIC X(13) VALUE '87220C504D225'.
           03  FILLER PIC X(13) VALUE '87220C505D225'.
           03  FILLER PIC X(13) VALUE '87220C506D225'.
           03  FILLER PIC X(13) VALUE '87220C508D225'.
           03  FILLER PIC X(13) VALUE '87220C509D225'.
           03  FILLER PIC X(13) VALUE '87220C510D280'.
           03  FILLER PIC X(13) VALUE '87220C511D280'.
           03  FILLER PIC X(13) VALUE '87220C512D280'.
           03  FILLER PIC X(13) VALUE '87220C518D280'.
           03  FILLER PIC X(13) VALUE '87220C519D280'.
           03  FILLER PIC X(13) VALUE '87220C600D290'.
           03  FILLER PIC X(13) VALUE '87220C609D290'.
           03  FILLER PIC X(13) VALUE '87220C632D294'.
           03  FILLER PIC X(13) VALUE '87220C639D299'.
           03  FILLER PIC X(13) VALUE '87220C690D310'.
           03  FILLER PIC X(13) VALUE '87220C691D311'.
           03  FILLER PIC X(13) VALUE '87220C692D312'.
           03  FILLER PIC X(13) VALUE '87220C693D313'.
           03  FILLER PIC X(13) VALUE '87220C694D314'.
           03  FILLER PIC X(13) VALUE '87220C695D315'.
           03  FILLER PIC X(13) VALUE '87220C696D316'.
           03  FILLER PIC X(13) VALUE '87220C698D319'.
           03  FILLER PIC X(13) VALUE '87220C699D319'.
           03  FILLER PIC X(13) VALUE '87220C762D225'.
           03  FILLER PIC X(13) VALUE '87220C764D226'.
           03  FILLER PIC X(13) VALUE '87220C765D227'.
           03  FILLER PIC X(13) VALUE '87222C000D030'.
           03  FILLER PIC X(13) VALUE '87222C001D030'.
           03  FILLER PIC X(13) VALUE '87222C002D030'.
           03  FILLER PIC X(13) VALUE '87222C003D030'.
           03  FILLER PIC X(13) VALUE '87222C004D030'.
           03  FILLER PIC X(13) VALUE '87222C005D030'.
           03  FILLER PIC X(13) VALUE '87222C006D030'.
           03  FILLER PIC X(13) VALUE '87222C008D030'.
           03  FILLER PIC X(13) VALUE '87222C009D030'.
           03  FILLER PIC X(13) VALUE '87222C210D035'.
           03  FILLER PIC X(13) VALUE '87222C440D030'.
           03  FILLER PIC X(13) VALUE '87222C441D031'.
           03  FILLER PIC X(13) VALUE '87222C442D032'.
           03  FILLER PIC X(13) VALUE '87222C443D033'.
           03  FILLER PIC X(13) VALUE '87222C444D034'.
           03  FILLER PIC X(13) VALUE '87222C445D035'.
           03  FILLER PIC X(13) VALUE '87222C446D036'.
           03  FILLER PIC X(13) VALUE '87222C447D037'.
           03  FILLER PIC X(13) VALUE '87222C448D039'.
           03  FILLER PIC X(13) VALUE '87222C449D039'.
           03  FILLER PIC X(13) VALUE '87222C500D035'.
           03  FILLER PIC X(13) VALUE '87222C501D035'.
           03  FILLER PIC X(13) VALUE '87222C502D035'.
           03  FILLER PIC X(13) VALUE '87222C503D035'.
           03  FILLER PIC X(13) VALUE '87222C504D035'.
           03  FILLER PIC X(13) VALUE '87222C505D035'.
           03  FILLER PIC X(13) VALUE '87222C506D035'.
           03  FILLER PIC X(13) VALUE '87222C508D035'.
           03  FILLER PIC X(13) VALUE '87222C509D035'.
           03  FILLER PIC X(13) VALUE '87222C760D034'.
           03  FILLER PIC X(13) VALUE '87222C764D036'.
           03  FILLER PIC X(13) VALUE '87222C765D037'.
           03  FILLER PIC X(13) VALUE '87222C767D035'.
           03  FILLER PIC X(13) VALUE '87223C000C430'.
           03  FILLER PIC X(13) VALUE '87223C001C430'.
           03  FILLER PIC X(13) VALUE '87223C002C430'.
           03  FILLER PIC X(13) VALUE '87223C003C430'.
           03  FILLER PIC X(13) VALUE '87223C004C430'.
           03  FILLER PIC X(13) VALUE '87223C005C430'.
           03  FILLER PIC X(13) VALUE '87223C006C430'.
           03  FILLER PIC X(13) VALUE '87223C008C430'.
           03  FILLER PIC X(13) VALUE '87223C009C430'.
           03  FILLER PIC X(13) VALUE '87223C440C430'.
           03  FILLER PIC X(13) VALUE '87223C441C431'.
           03  FILLER PIC X(13) VALUE '87223C442C432'.
           03  FILLER PIC X(13) VALUE '87223C443C433'.
           03  FILLER PIC X(13) VALUE '87223C444C434'.
           03  FILLER PIC X(13) VALUE '87223C445C435'.
           03  FILLER PIC X(13) VALUE '87223C446C436'.
           03  FILLER PIC X(13) VALUE '87223C447C437'.
           03  FILLER PIC X(13) VALUE '87223C448C438'.
           03  FILLER PIC X(13) VALUE '87223C449C439'.
           03  FILLER PIC X(13) VALUE '87223C500C435'.
           03  FILLER PIC X(13) VALUE '87223C501C435'.
           03  FILLER PIC X(13) VALUE '87223C502C435'.
           03  FILLER PIC X(13) VALUE '87223C503C435'.
           03  FILLER PIC X(13) VALUE '87223C504C435'.
           03  FILLER PIC X(13) VALUE '87223C505C435'.
           03  FILLER PIC X(13) VALUE '87223C506C435'.
           03  FILLER PIC X(13) VALUE '87223C508C435'.
           03  FILLER PIC X(13) VALUE '87223C509C435'.
           03  FILLER PIC X(13) VALUE '87223C760C439'.
           03  FILLER PIC X(13) VALUE '87223C761C439'.
           03  FILLER PIC X(13) VALUE '87223C762C435'.
           03  FILLER PIC X(13) VALUE '87223C763C439'.
           03  FILLER PIC X(13) VALUE '87223C764C436'.
           03  FILLER PIC X(13) VALUE '87223C765C437'.
           03  FILLER PIC X(13) VALUE '87223C767C439'.
           03  FILLER PIC X(13) VALUE '87230C000D220'.
           03  FILLER PIC X(13) VALUE '87230C001D220'.
           03  FILLER PIC X(13) VALUE '87230C002D220'.
           03  FILLER PIC X(13) VALUE '87230C003D220'.
           03  FILLER PIC X(13) VALUE '87230C004D220'.
           03  FILLER PIC X(13) VALUE '87230C005D220'.
           03  FILLER PIC X(13) VALUE '87230C006D220'.
           03  FILLER PIC X(13) VALUE '87230C008D220'.
           03  FILLER PIC X(13) VALUE '87230C009D220'.
           03  FILLER PIC X(13) VALUE '87230C069D103'.
           03  FILLER PIC X(13) VALUE '87230C210D225'.
           03  FILLER PIC X(13) VALUE '87230C440D220'.
           03  FILLER PIC X(13) VALUE '87230C441D221'.
           03  FILLER PIC X(13) VALUE '87230C442D222'.
           03  FILLER PIC X(13) VALUE '87230C443D223'.
           03  FILLER PIC X(13) VALUE '87230C444D224'.
           03  FILLER PIC X(13) VALUE '87230C445D225'.
           03  FILLER PIC X(13) VALUE '87230C446D226'.
           03  FILLER PIC X(13) VALUE '87230C447D227'.
           03  FILLER PIC X(13) VALUE '87230C448D229'.
           03  FILLER PIC X(13) VALUE '87230C449D229'.
           03  FILLER PIC X(13) VALUE '87230C500D225'.
           03  FILLER PIC X(13) VALUE '87230C501D225'.
           03  FILLER PIC X(13) VALUE '87230C502D225'.
           03  FILLER PIC X(13) VALUE '87230C503D225'.
           03  FILLER PIC X(13) VALUE '87230C504D225'.
           03  FILLER PIC X(13) VALUE '87230C505D225'.
           03  FILLER PIC X(13) VALUE '87230C506D225'.
           03  FILLER PIC X(13) VALUE '87230C508D225'.
           03  FILLER PIC X(13) VALUE '87230C509D225'.
           03  FILLER PIC X(13) VALUE '87230C510D280'.
           03  FILLER PIC X(13) VALUE '87230C511D280'.
           03  FILLER PIC X(13) VALUE '87230C512D280'.
           03  FILLER PIC X(13) VALUE '87230C518D280'.
           03  FILLER PIC X(13) VALUE '87230C519D280'.
           03  FILLER PIC X(13) VALUE '87230C600D290'.
           03  FILLER PIC X(13) VALUE '87230C609D290'.
           03  FILLER PIC X(13) VALUE '87230C632D294'.
           03  FILLER PIC X(13) VALUE '87230C639D299'.
           03  FILLER PIC X(13) VALUE '87230C690D310'.
           03  FILLER PIC X(13) VALUE '87230C691D311'.
           03  FILLER PIC X(13) VALUE '87230C692D312'.
           03  FILLER PIC X(13) VALUE '87230C693D313'.
           03  FILLER PIC X(13) VALUE '87230C694D314'.
           03  FILLER PIC X(13) VALUE '87230C695D315'.
           03  FILLER PIC X(13) VALUE '87230C696D316'.
           03  FILLER PIC X(13) VALUE '87230C698D319'.
           03  FILLER PIC X(13) VALUE '87230C699D319'.
           03  FILLER PIC X(13) VALUE '87230C762D225'.
           03  FILLER PIC X(13) VALUE '87230C764D226'.
           03  FILLER PIC X(13) VALUE '87230C765D227'.
           03  FILLER PIC X(13) VALUE '87233C000C430'.
           03  FILLER PIC X(13) VALUE '87233C001C430'.
           03  FILLER PIC X(13) VALUE '87233C002C430'.
           03  FILLER PIC X(13) VALUE '87233C003C430'.
           03  FILLER PIC X(13) VALUE '87233C004C430'.
           03  FILLER PIC X(13) VALUE '87233C005C430'.
           03  FILLER PIC X(13) VALUE '87233C006C430'.
           03  FILLER PIC X(13) VALUE '87233C008C430'.
           03  FILLER PIC X(13) VALUE '87233C009C430'.
           03  FILLER PIC X(13) VALUE '87233C440C430'.
           03  FILLER PIC X(13) VALUE '87233C441C431'.
           03  FILLER PIC X(13) VALUE '87233C442C432'.
           03  FILLER PIC X(13) VALUE '87233C443C433'.
           03  FILLER PIC X(13) VALUE '87233C444C434'.
           03  FILLER PIC X(13) VALUE '87233C445C435'.
           03  FILLER PIC X(13) VALUE '87233C446C436'.
           03  FILLER PIC X(13) VALUE '87233C447C437'.
           03  FILLER PIC X(13) VALUE '87233C448C438'.
           03  FILLER PIC X(13) VALUE '87233C449C439'.
           03  FILLER PIC X(13) VALUE '87233C500C435'.
           03  FILLER PIC X(13) VALUE '87233C501C435'.
           03  FILLER PIC X(13) VALUE '87233C502C435'.
           03  FILLER PIC X(13) VALUE '87233C503C435'.
           03  FILLER PIC X(13) VALUE '87233C504C435'.
           03  FILLER PIC X(13) VALUE '87233C505C435'.
           03  FILLER PIC X(13) VALUE '87233C506C435'.
           03  FILLER PIC X(13) VALUE '87233C508C435'.
           03  FILLER PIC X(13) VALUE '87233C509C435'.
           03  FILLER PIC X(13) VALUE '87233C760C439'.
           03  FILLER PIC X(13) VALUE '87233C761C439'.
           03  FILLER PIC X(13) VALUE '87233C762C435'.
           03  FILLER PIC X(13) VALUE '87233C763C439'.
           03  FILLER PIC X(13) VALUE '87233C764C436'.
           03  FILLER PIC X(13) VALUE '87233C765C437'.
           03  FILLER PIC X(13) VALUE '87233C767C439'.
           03  FILLER PIC X(13) VALUE '87240C000D220'.
           03  FILLER PIC X(13) VALUE '87240C001D220'.
           03  FILLER PIC X(13) VALUE '87240C002D220'.
           03  FILLER PIC X(13) VALUE '87240C003D220'.
           03  FILLER PIC X(13) VALUE '87240C004D220'.
           03  FILLER PIC X(13) VALUE '87240C005D220'.
           03  FILLER PIC X(13) VALUE '87240C006D220'.
           03  FILLER PIC X(13) VALUE '87240C008D220'.
           03  FILLER PIC X(13) VALUE '87240C009D220'.
           03  FILLER PIC X(13) VALUE '87240C069D103'.
           03  FILLER PIC X(13) VALUE '87240C210D225'.
           03  FILLER PIC X(13) VALUE '87240C440D220'.
           03  FILLER PIC X(13) VALUE '87240C441D221'.
           03  FILLER PIC X(13) VALUE '87240C442D222'.
           03  FILLER PIC X(13) VALUE '87240C443D223'.
           03  FILLER PIC X(13) VALUE '87240C444D224'.
           03  FILLER PIC X(13) VALUE '87240C445D225'.
           03  FILLER PIC X(13) VALUE '87240C446D226'.
           03  FILLER PIC X(13) VALUE '87240C447D227'.
           03  FILLER PIC X(13) VALUE '87240C448D229'.
           03  FILLER PIC X(13) VALUE '87240C449D229'.
           03  FILLER PIC X(13) VALUE '87240C500D225'.
           03  FILLER PIC X(13) VALUE '87240C501D225'.
           03  FILLER PIC X(13) VALUE '87240C502D225'.
           03  FILLER PIC X(13) VALUE '87240C503D225'.
           03  FILLER PIC X(13) VALUE '87240C504D225'.
           03  FILLER PIC X(13) VALUE '87240C505D225'.
           03  FILLER PIC X(13) VALUE '87240C506D225'.
           03  FILLER PIC X(13) VALUE '87240C508D225'.
           03  FILLER PIC X(13) VALUE '87240C509D225'.
           03  FILLER PIC X(13) VALUE '87240C510D280'.
           03  FILLER PIC X(13) VALUE '87240C511D280'.
           03  FILLER PIC X(13) VALUE '87240C512D280'.
           03  FILLER PIC X(13) VALUE '87240C518D280'.
           03  FILLER PIC X(13) VALUE '87240C519D280'.
           03  FILLER PIC X(13) VALUE '87240C600D290'.
           03  FILLER PIC X(13) VALUE '87240C609D290'.
           03  FILLER PIC X(13) VALUE '87240C632D294'.
           03  FILLER PIC X(13) VALUE '87240C639D299'.
           03  FILLER PIC X(13) VALUE '87240C690D310'.
           03  FILLER PIC X(13) VALUE '87240C691D311'.
           03  FILLER PIC X(13) VALUE '87240C692D312'.
           03  FILLER PIC X(13) VALUE '87240C693D313'.
           03  FILLER PIC X(13) VALUE '87240C694D314'.
           03  FILLER PIC X(13) VALUE '87240C695D315'.
           03  FILLER PIC X(13) VALUE '87240C696D316'.
           03  FILLER PIC X(13) VALUE '87240C698D319'.
           03  FILLER PIC X(13) VALUE '87240C699D319'.
           03  FILLER PIC X(13) VALUE '87240C762D225'.
           03  FILLER PIC X(13) VALUE '87240C764D226'.
           03  FILLER PIC X(13) VALUE '87240C765D227'.
           03  FILLER PIC X(13) VALUE '87250C000D220'.
           03  FILLER PIC X(13) VALUE '87250C001D220'.
           03  FILLER PIC X(13) VALUE '87250C002D220'.
           03  FILLER PIC X(13) VALUE '87250C003D220'.
           03  FILLER PIC X(13) VALUE '87250C004D220'.
           03  FILLER PIC X(13) VALUE '87250C005D220'.
           03  FILLER PIC X(13) VALUE '87250C006D220'.
           03  FILLER PIC X(13) VALUE '87250C008D220'.
           03  FILLER PIC X(13) VALUE '87250C009D220'.
           03  FILLER PIC X(13) VALUE '87250C069D103'.
           03  FILLER PIC X(13) VALUE '87250C210D225'.
           03  FILLER PIC X(13) VALUE '87250C440D220'.
           03  FILLER PIC X(13) VALUE '87250C441D221'.
           03  FILLER PIC X(13) VALUE '87250C442D222'.
           03  FILLER PIC X(13) VALUE '87250C443D223'.
           03  FILLER PIC X(13) VALUE '87250C444D224'.
           03  FILLER PIC X(13) VALUE '87250C445D225'.
           03  FILLER PIC X(13) VALUE '87250C446D226'.
           03  FILLER PIC X(13) VALUE '87250C447D227'.
           03  FILLER PIC X(13) VALUE '87250C448D229'.
           03  FILLER PIC X(13) VALUE '87250C449D229'.
           03  FILLER PIC X(13) VALUE '87250C500D225'.
           03  FILLER PIC X(13) VALUE '87250C501D225'.
           03  FILLER PIC X(13) VALUE '87250C502D225'.
           03  FILLER PIC X(13) VALUE '87250C503D225'.
           03  FILLER PIC X(13) VALUE '87250C504D225'.
           03  FILLER PIC X(13) VALUE '87250C505D225'.
           03  FILLER PIC X(13) VALUE '87250C506D225'.
           03  FILLER PIC X(13) VALUE '87250C508D225'.
           03  FILLER PIC X(13) VALUE '87250C509D225'.
           03  FILLER PIC X(13) VALUE '87250C510D280'.
           03  FILLER PIC X(13) VALUE '87250C511D280'.
           03  FILLER PIC X(13) VALUE '87250C512D280'.
           03  FILLER PIC X(13) VALUE '87250C518D280'.
           03  FILLER PIC X(13) VALUE '87250C519D280'.
           03  FILLER PIC X(13) VALUE '87250C600D290'.
           03  FILLER PIC X(13) VALUE '87250C609D290'.
           03  FILLER PIC X(13) VALUE '87250C632D294'.
           03  FILLER PIC X(13) VALUE '87250C639D299'.
           03  FILLER PIC X(13) VALUE '87250C690D310'.
           03  FILLER PIC X(13) VALUE '87250C691D311'.
           03  FILLER PIC X(13) VALUE '87250C692D312'.
           03  FILLER PIC X(13) VALUE '87250C693D313'.
           03  FILLER PIC X(13) VALUE '87250C694D314'.
           03  FILLER PIC X(13) VALUE '87250C695D315'.
           03  FILLER PIC X(13) VALUE '87250C696D316'.
           03  FILLER PIC X(13) VALUE '87250C698D319'.
           03  FILLER PIC X(13) VALUE '87250C699D319'.
           03  FILLER PIC X(13) VALUE '87250C762D225'.
           03  FILLER PIC X(13) VALUE '87250C764D226'.
           03  FILLER PIC X(13) VALUE '87250C765D227'.
           03  FILLER PIC X(13) VALUE '87270C000D220'.
           03  FILLER PIC X(13) VALUE '87270C001D220'.
           03  FILLER PIC X(13) VALUE '87270C002D220'.
           03  FILLER PIC X(13) VALUE '87270C003D220'.
           03  FILLER PIC X(13) VALUE '87270C004D220'.
           03  FILLER PIC X(13) VALUE '87270C005D220'.
           03  FILLER PIC X(13) VALUE '87270C006D220'.
           03  FILLER PIC X(13) VALUE '87270C008D220'.
           03  FILLER PIC X(13) VALUE '87270C009D220'.
           03  FILLER PIC X(13) VALUE '87270C069D103'.
           03  FILLER PIC X(13) VALUE '87270C210D225'.
           03  FILLER PIC X(13) VALUE '87270C440D220'.
           03  FILLER PIC X(13) VALUE '87270C441D221'.
           03  FILLER PIC X(13) VALUE '87270C442D222'.
           03  FILLER PIC X(13) VALUE '87270C443D223'.
           03  FILLER PIC X(13) VALUE '87270C444D224'.
           03  FILLER PIC X(13) VALUE '87270C445D225'.
           03  FILLER PIC X(13) VALUE '87270C446D226'.
           03  FILLER PIC X(13) VALUE '87270C447D227'.
           03  FILLER PIC X(13) VALUE '87270C448D229'.
           03  FILLER PIC X(13) VALUE '87270C449D229'.
           03  FILLER PIC X(13) VALUE '87270C500D225'.
           03  FILLER PIC X(13) VALUE '87270C501D225'.
           03  FILLER PIC X(13) VALUE '87270C502D225'.
           03  FILLER PIC X(13) VALUE '87270C503D225'.
           03  FILLER PIC X(13) VALUE '87270C504D225'.
           03  FILLER PIC X(13) VALUE '87270C505D225'.
           03  FILLER PIC X(13) VALUE '87270C506D225'.
           03  FILLER PIC X(13) VALUE '87270C508D225'.
           03  FILLER PIC X(13) VALUE '87270C509D225'.
           03  FILLER PIC X(13) VALUE '87270C510D280'.
           03  FILLER PIC X(13) VALUE '87270C511D280'.
           03  FILLER PIC X(13) VALUE '87270C512D280'.
           03  FILLER PIC X(13) VALUE '87270C518D280'.
           03  FILLER PIC X(13) VALUE '87270C519D280'.
           03  FILLER PIC X(13) VALUE '87270C600D290'.
           03  FILLER PIC X(13) VALUE '87270C609D290'.
           03  FILLER PIC X(13) VALUE '87270C632D294'.
           03  FILLER PIC X(13) VALUE '87270C639D299'.
           03  FILLER PIC X(13) VALUE '87270C690D310'.
           03  FILLER PIC X(13) VALUE '87270C691D311'.
           03  FILLER PIC X(13) VALUE '87270C692D312'.
           03  FILLER PIC X(13) VALUE '87270C693D313'.
           03  FILLER PIC X(13) VALUE '87270C694D314'.
           03  FILLER PIC X(13) VALUE '87270C695D315'.
           03  FILLER PIC X(13) VALUE '87270C696D316'.
           03  FILLER PIC X(13) VALUE '87270C698D319'.
           03  FILLER PIC X(13) VALUE '87270C699D319'.
           03  FILLER PIC X(13) VALUE '87270C762D225'.
           03  FILLER PIC X(13) VALUE '87270C764D226'.
           03  FILLER PIC X(13) VALUE '87270C765D227'.
           03  FILLER PIC X(13) VALUE '87300C000D220'.
           03  FILLER PIC X(13) VALUE '87300C001D220'.
           03  FILLER PIC X(13) VALUE '87300C002D220'.
           03  FILLER PIC X(13) VALUE '87300C003D220'.
           03  FILLER PIC X(13) VALUE '87300C004D220'.
           03  FILLER PIC X(13) VALUE '87300C005D220'.
           03  FILLER PIC X(13) VALUE '87300C006D220'.
           03  FILLER PIC X(13) VALUE '87300C008D220'.
           03  FILLER PIC X(13) VALUE '87300C009D220'.
           03  FILLER PIC X(13) VALUE '87300C069D103'.
           03  FILLER PIC X(13) VALUE '87300C210D225'.
           03  FILLER PIC X(13) VALUE '87300C440D220'.
           03  FILLER PIC X(13) VALUE '87300C441D221'.
           03  FILLER PIC X(13) VALUE '87300C442D222'.
           03  FILLER PIC X(13) VALUE '87300C443D223'.
           03  FILLER PIC X(13) VALUE '87300C444D224'.
           03  FILLER PIC X(13) VALUE '87300C445D225'.
           03  FILLER PIC X(13) VALUE '87300C446D226'.
           03  FILLER PIC X(13) VALUE '87300C447D227'.
           03  FILLER PIC X(13) VALUE '87300C448D229'.
           03  FILLER PIC X(13) VALUE '87300C449D229'.
           03  FILLER PIC X(13) VALUE '87300C500D225'.
           03  FILLER PIC X(13) VALUE '87300C501D225'.
           03  FILLER PIC X(13) VALUE '87300C502D225'.
           03  FILLER PIC X(13) VALUE '87300C503D225'.
           03  FILLER PIC X(13) VALUE '87300C504D225'.
           03  FILLER PIC X(13) VALUE '87300C505D225'.
           03  FILLER PIC X(13) VALUE '87300C506D225'.
           03  FILLER PIC X(13) VALUE '87300C508D225'.
           03  FILLER PIC X(13) VALUE '87300C509D225'.
           03  FILLER PIC X(13) VALUE '87300C510D280'.
           03  FILLER PIC X(13) VALUE '87300C511D280'.
           03  FILLER PIC X(13) VALUE '87300C512D280'.
           03  FILLER PIC X(13) VALUE '87300C518D280'.
           03  FILLER PIC X(13) VALUE '87300C519D280'.
           03  FILLER PIC X(13) VALUE '87300C600D290'.
           03  FILLER PIC X(13) VALUE '87300C609D290'.
           03  FILLER PIC X(13) VALUE '87300C632D294'.
           03  FILLER PIC X(13) VALUE '87300C639D299'.
           03  FILLER PIC X(13) VALUE '87300C690D310'.
           03  FILLER PIC X(13) VALUE '87300C691D311'.
           03  FILLER PIC X(13) VALUE '87300C692D312'.
           03  FILLER PIC X(13) VALUE '87300C693D313'.
           03  FILLER PIC X(13) VALUE '87300C694D314'.
           03  FILLER PIC X(13) VALUE '87300C695D315'.
           03  FILLER PIC X(13) VALUE '87300C696D316'.
           03  FILLER PIC X(13) VALUE '87300C698D319'.
           03  FILLER PIC X(13) VALUE '87300C699D319'.
           03  FILLER PIC X(13) VALUE '87300C762D225'.
           03  FILLER PIC X(13) VALUE '87300C764D226'.
           03  FILLER PIC X(13) VALUE '87300C765D227'.
           03  FILLER PIC X(13) VALUE '87302C000D030'.
           03  FILLER PIC X(13) VALUE '87302C001D030'.
           03  FILLER PIC X(13) VALUE '87302C002D030'.
           03  FILLER PIC X(13) VALUE '87302C003D030'.
           03  FILLER PIC X(13) VALUE '87302C004D030'.
           03  FILLER PIC X(13) VALUE '87302C005D030'.
           03  FILLER PIC X(13) VALUE '87302C006D030'.
           03  FILLER PIC X(13) VALUE '87302C008D030'.
           03  FILLER PIC X(13) VALUE '87302C009D030'.
           03  FILLER PIC X(13) VALUE '87302C210D035'.
           03  FILLER PIC X(13) VALUE '87302C440D030'.
           03  FILLER PIC X(13) VALUE '87302C441D031'.
           03  FILLER PIC X(13) VALUE '87302C442D032'.
           03  FILLER PIC X(13) VALUE '87302C443D033'.
           03  FILLER PIC X(13) VALUE '87302C444D034'.
           03  FILLER PIC X(13) VALUE '87302C445D035'.
           03  FILLER PIC X(13) VALUE '87302C446D036'.
           03  FILLER PIC X(13) VALUE '87302C447D037'.
           03  FILLER PIC X(13) VALUE '87302C448D039'.
           03  FILLER PIC X(13) VALUE '87302C449D039'.
           03  FILLER PIC X(13) VALUE '87302C500D035'.
           03  FILLER PIC X(13) VALUE '87302C501D035'.
           03  FILLER PIC X(13) VALUE '87302C502D035'.
           03  FILLER PIC X(13) VALUE '87302C503D035'.
           03  FILLER PIC X(13) VALUE '87302C504D035'.
           03  FILLER PIC X(13) VALUE '87302C505D035'.
           03  FILLER PIC X(13) VALUE '87302C506D035'.
           03  FILLER PIC X(13) VALUE '87302C508D035'.
           03  FILLER PIC X(13) VALUE '87302C509D035'.
           03  FILLER PIC X(13) VALUE '87302C760D034'.
           03  FILLER PIC X(13) VALUE '87302C764D036'.
           03  FILLER PIC X(13) VALUE '87302C765D037'.
           03  FILLER PIC X(13) VALUE '87302C767D035'.
           03  FILLER PIC X(13) VALUE '87303C000C430'.
           03  FILLER PIC X(13) VALUE '87303C001C430'.
           03  FILLER PIC X(13) VALUE '87303C002C430'.
           03  FILLER PIC X(13) VALUE '87303C003C430'.
           03  FILLER PIC X(13) VALUE '87303C004C430'.
           03  FILLER PIC X(13) VALUE '87303C005C430'.
           03  FILLER PIC X(13) VALUE '87303C006C430'.
           03  FILLER PIC X(13) VALUE '87303C008C430'.
           03  FILLER PIC X(13) VALUE '87303C009C430'.
           03  FILLER PIC X(13) VALUE '87303C440C430'.
           03  FILLER PIC X(13) VALUE '87303C441C431'.
           03  FILLER PIC X(13) VALUE '87303C442C432'.
           03  FILLER PIC X(13) VALUE '87303C443C433'.
           03  FILLER PIC X(13) VALUE '87303C444C434'.
           03  FILLER PIC X(13) VALUE '87303C445C435'.
           03  FILLER PIC X(13) VALUE '87303C446C436'.
           03  FILLER PIC X(13) VALUE '87303C447C437'.
           03  FILLER PIC X(13) VALUE '87303C448C438'.
           03  FILLER PIC X(13) VALUE '87303C449C439'.
           03  FILLER PIC X(13) VALUE '87303C500C435'.
           03  FILLER PIC X(13) VALUE '87303C501C435'.
           03  FILLER PIC X(13) VALUE '87303C502C435'.
           03  FILLER PIC X(13) VALUE '87303C503C435'.
           03  FILLER PIC X(13) VALUE '87303C504C435'.
           03  FILLER PIC X(13) VALUE '87303C505C435'.
           03  FILLER PIC X(13) VALUE '87303C506C435'.
           03  FILLER PIC X(13) VALUE '87303C508C435'.
           03  FILLER PIC X(13) VALUE '87303C509C435'.
           03  FILLER PIC X(13) VALUE '87303C760C439'.
           03  FILLER PIC X(13) VALUE '87303C761C439'.
           03  FILLER PIC X(13) VALUE '87303C762C435'.
           03  FILLER PIC X(13) VALUE '87303C763C439'.
           03  FILLER PIC X(13) VALUE '87303C764C436'.
           03  FILLER PIC X(13) VALUE '87303C765C437'.
           03  FILLER PIC X(13) VALUE '87303C767C439'.
           03  FILLER PIC X(13) VALUE '87400C000D220'.
           03  FILLER PIC X(13) VALUE '87400C001D220'.
           03  FILLER PIC X(13) VALUE '87400C002D220'.
           03  FILLER PIC X(13) VALUE '87400C003D220'.
           03  FILLER PIC X(13) VALUE '87400C004D220'.
           03  FILLER PIC X(13) VALUE '87400C005D220'.
           03  FILLER PIC X(13) VALUE '87400C006D220'.
           03  FILLER PIC X(13) VALUE '87400C008D220'.
           03  FILLER PIC X(13) VALUE '87400C009D220'.
           03  FILLER PIC X(13) VALUE '87400C069D103'.
           03  FILLER PIC X(13) VALUE '87400C210D225'.
           03  FILLER PIC X(13) VALUE '87400C440D220'.
           03  FILLER PIC X(13) VALUE '87400C441D221'.
           03  FILLER PIC X(13) VALUE '87400C442D222'.
           03  FILLER PIC X(13) VALUE '87400C443D223'.
           03  FILLER PIC X(13) VALUE '87400C444D224'.
           03  FILLER PIC X(13) VALUE '87400C445D225'.
           03  FILLER PIC X(13) VALUE '87400C446D226'.
           03  FILLER PIC X(13) VALUE '87400C447D227'.
           03  FILLER PIC X(13) VALUE '87400C448D229'.
           03  FILLER PIC X(13) VALUE '87400C449D229'.
           03  FILLER PIC X(13) VALUE '87400C500D225'.
           03  FILLER PIC X(13) VALUE '87400C501D225'.
           03  FILLER PIC X(13) VALUE '87400C502D225'.
           03  FILLER PIC X(13) VALUE '87400C503D225'.
           03  FILLER PIC X(13) VALUE '87400C504D225'.
           03  FILLER PIC X(13) VALUE '87400C505D225'.
           03  FILLER PIC X(13) VALUE '87400C506D225'.
           03  FILLER PIC X(13) VALUE '87400C508D225'.
           03  FILLER PIC X(13) VALUE '87400C509D225'.
           03  FILLER PIC X(13) VALUE '87400C510D280'.
           03  FILLER PIC X(13) VALUE '87400C511D280'.
           03  FILLER PIC X(13) VALUE '87400C512D280'.
           03  FILLER PIC X(13) VALUE '87400C518D280'.
           03  FILLER PIC X(13) VALUE '87400C519D280'.
           03  FILLER PIC X(13) VALUE '87400C600D290'.
           03  FILLER PIC X(13) VALUE '87400C609D290'.
           03  FILLER PIC X(13) VALUE '87400C632D294'.
           03  FILLER PIC X(13) VALUE '87400C639D299'.
           03  FILLER PIC X(13) VALUE '87400C690D310'.
           03  FILLER PIC X(13) VALUE '87400C691D311'.
           03  FILLER PIC X(13) VALUE '87400C692D312'.
           03  FILLER PIC X(13) VALUE '87400C693D313'.
           03  FILLER PIC X(13) VALUE '87400C694D314'.
           03  FILLER PIC X(13) VALUE '87400C695D315'.
           03  FILLER PIC X(13) VALUE '87400C696D316'.
           03  FILLER PIC X(13) VALUE '87400C698D319'.
           03  FILLER PIC X(13) VALUE '87400C699D319'.
           03  FILLER PIC X(13) VALUE '87400C762D225'.
           03  FILLER PIC X(13) VALUE '87400C764D226'.
           03  FILLER PIC X(13) VALUE '87400C765D227'.
           03  FILLER PIC X(13) VALUE '87402C000D030'.
           03  FILLER PIC X(13) VALUE '87402C001D030'.
           03  FILLER PIC X(13) VALUE '87402C002D030'.
           03  FILLER PIC X(13) VALUE '87402C003D030'.
           03  FILLER PIC X(13) VALUE '87402C004D030'.
           03  FILLER PIC X(13) VALUE '87402C005D030'.
           03  FILLER PIC X(13) VALUE '87402C006D030'.
           03  FILLER PIC X(13) VALUE '87402C008D030'.
           03  FILLER PIC X(13) VALUE '87402C009D030'.
           03  FILLER PIC X(13) VALUE '87402C210D035'.
           03  FILLER PIC X(13) VALUE '87402C440D030'.
           03  FILLER PIC X(13) VALUE '87402C441D031'.
           03  FILLER PIC X(13) VALUE '87402C442D032'.
           03  FILLER PIC X(13) VALUE '87402C443D033'.
           03  FILLER PIC X(13) VALUE '87402C444D034'.
           03  FILLER PIC X(13) VALUE '87402C445D035'.
           03  FILLER PIC X(13) VALUE '87402C446D036'.
           03  FILLER PIC X(13) VALUE '87402C447D037'.
           03  FILLER PIC X(13) VALUE '87402C448D039'.
           03  FILLER PIC X(13) VALUE '87402C449D039'.
           03  FILLER PIC X(13) VALUE '87402C500D035'.
           03  FILLER PIC X(13) VALUE '87402C501D035'.
           03  FILLER PIC X(13) VALUE '87402C502D035'.
           03  FILLER PIC X(13) VALUE '87402C503D035'.
           03  FILLER PIC X(13) VALUE '87402C504D035'.
           03  FILLER PIC X(13) VALUE '87402C505D035'.
           03  FILLER PIC X(13) VALUE '87402C506D035'.
           03  FILLER PIC X(13) VALUE '87402C508D035'.
           03  FILLER PIC X(13) VALUE '87402C509D035'.
           03  FILLER PIC X(13) VALUE '87402C760D034'.
           03  FILLER PIC X(13) VALUE '87402C764D036'.
           03  FILLER PIC X(13) VALUE '87402C765D037'.
           03  FILLER PIC X(13) VALUE '87402C767D035'.
           03  FILLER PIC X(13) VALUE '87403C000C430'.
           03  FILLER PIC X(13) VALUE '87403C001C430'.
           03  FILLER PIC X(13) VALUE '87403C002C430'.
           03  FILLER PIC X(13) VALUE '87403C003C430'.
           03  FILLER PIC X(13) VALUE '87403C004C430'.
           03  FILLER PIC X(13) VALUE '87403C005C430'.
           03  FILLER PIC X(13) VALUE '87403C006C430'.
           03  FILLER PIC X(13) VALUE '87403C008C430'.
           03  FILLER PIC X(13) VALUE '87403C009C430'.
           03  FILLER PIC X(13) VALUE '87403C440C430'.
           03  FILLER PIC X(13) VALUE '87403C441C431'.
           03  FILLER PIC X(13) VALUE '87403C442C432'.
           03  FILLER PIC X(13) VALUE '87403C443C433'.
           03  FILLER PIC X(13) VALUE '87403C444C434'.
           03  FILLER PIC X(13) VALUE '87403C445C435'.
           03  FILLER PIC X(13) VALUE '87403C446C436'.
           03  FILLER PIC X(13) VALUE '87403C447C437'.
           03  FILLER PIC X(13) VALUE '87403C448C438'.
           03  FILLER PIC X(13) VALUE '87403C449C439'.
           03  FILLER PIC X(13) VALUE '87403C500C435'.
           03  FILLER PIC X(13) VALUE '87403C501C435'.
           03  FILLER PIC X(13) VALUE '87403C502C435'.
           03  FILLER PIC X(13) VALUE '87403C503C435'.
           03  FILLER PIC X(13) VALUE '87403C504C435'.
           03  FILLER PIC X(13) VALUE '87403C505C435'.
           03  FILLER PIC X(13) VALUE '87403C506C435'.
           03  FILLER PIC X(13) VALUE '87403C508C435'.
           03  FILLER PIC X(13) VALUE '87403C509C435'.
           03  FILLER PIC X(13) VALUE '87403C760C439'.
           03  FILLER PIC X(13) VALUE '87403C761C439'.
           03  FILLER PIC X(13) VALUE '87403C762C435'.
           03  FILLER PIC X(13) VALUE '87403C763C439'.
           03  FILLER PIC X(13) VALUE '87403C764C436'.
           03  FILLER PIC X(13) VALUE '87403C765C437'.
           03  FILLER PIC X(13) VALUE '87403C767C439'.
           03  FILLER PIC X(13) VALUE '87412C000D030'.
           03  FILLER PIC X(13) VALUE '87412C001D030'.
           03  FILLER PIC X(13) VALUE '87412C002D030'.
           03  FILLER PIC X(13) VALUE '87412C003D030'.
           03  FILLER PIC X(13) VALUE '87412C004D030'.
           03  FILLER PIC X(13) VALUE '87412C005D030'.
           03  FILLER PIC X(13) VALUE '87412C006D030'.
           03  FILLER PIC X(13) VALUE '87412C008D030'.
           03  FILLER PIC X(13) VALUE '87412C009D030'.
           03  FILLER PIC X(13) VALUE '87412C210D035'.
           03  FILLER PIC X(13) VALUE '87412C440D030'.
           03  FILLER PIC X(13) VALUE '87412C441D031'.
           03  FILLER PIC X(13) VALUE '87412C442D032'.
           03  FILLER PIC X(13) VALUE '87412C443D033'.
           03  FILLER PIC X(13) VALUE '87412C444D034'.
           03  FILLER PIC X(13) VALUE '87412C445D035'.
           03  FILLER PIC X(13) VALUE '87412C446D036'.
           03  FILLER PIC X(13) VALUE '87412C447D037'.
           03  FILLER PIC X(13) VALUE '87412C448D039'.
           03  FILLER PIC X(13) VALUE '87412C449D039'.
           03  FILLER PIC X(13) VALUE '87412C500D035'.
           03  FILLER PIC X(13) VALUE '87412C501D035'.
           03  FILLER PIC X(13) VALUE '87412C502D035'.
           03  FILLER PIC X(13) VALUE '87412C503D035'.
           03  FILLER PIC X(13) VALUE '87412C504D035'.
           03  FILLER PIC X(13) VALUE '87412C505D035'.
           03  FILLER PIC X(13) VALUE '87412C506D035'.
           03  FILLER PIC X(13) VALUE '87412C508D035'.
           03  FILLER PIC X(13) VALUE '87412C509D035'.
           03  FILLER PIC X(13) VALUE '87412C760D034'.
           03  FILLER PIC X(13) VALUE '87412C764D036'.
           03  FILLER PIC X(13) VALUE '87412C765D037'.
           03  FILLER PIC X(13) VALUE '87412C767D035'.
           03  FILLER PIC X(13) VALUE '87413C000C430'.
           03  FILLER PIC X(13) VALUE '87413C001C430'.
           03  FILLER PIC X(13) VALUE '87413C002C430'.
           03  FILLER PIC X(13) VALUE '87413C003C430'.
           03  FILLER PIC X(13) VALUE '87413C004C430'.
           03  FILLER PIC X(13) VALUE '87413C005C430'.
           03  FILLER PIC X(13) VALUE '87413C006C430'.
           03  FILLER PIC X(13) VALUE '87413C008C430'.
           03  FILLER PIC X(13) VALUE '87413C009C430'.
           03  FILLER PIC X(13) VALUE '87413C440C430'.
           03  FILLER PIC X(13) VALUE '87413C441C431'.
           03  FILLER PIC X(13) VALUE '87413C442C432'.
           03  FILLER PIC X(13) VALUE '87413C443C433'.
           03  FILLER PIC X(13) VALUE '87413C444C434'.
           03  FILLER PIC X(13) VALUE '87413C445C435'.
           03  FILLER PIC X(13) VALUE '87413C446C436'.
           03  FILLER PIC X(13) VALUE '87413C447C437'.
           03  FILLER PIC X(13) VALUE '87413C448C438'.
           03  FILLER PIC X(13) VALUE '87413C449C439'.
           03  FILLER PIC X(13) VALUE '87413C500C435'.
           03  FILLER PIC X(13) VALUE '87413C501C435'.
           03  FILLER PIC X(13) VALUE '87413C502C435'.
           03  FILLER PIC X(13) VALUE '87413C503C435'.
           03  FILLER PIC X(13) VALUE '87413C504C435'.
           03  FILLER PIC X(13) VALUE '87413C505C435'.
           03  FILLER PIC X(13) VALUE '87413C506C435'.
           03  FILLER PIC X(13) VALUE '87413C508C435'.
           03  FILLER PIC X(13) VALUE '87413C509C435'.
           03  FILLER PIC X(13) VALUE '87413C760C439'.
           03  FILLER PIC X(13) VALUE '87413C761C439'.
           03  FILLER PIC X(13) VALUE '87413C762C435'.
           03  FILLER PIC X(13) VALUE '87413C763C439'.
           03  FILLER PIC X(13) VALUE '87413C764C436'.
           03  FILLER PIC X(13) VALUE '87413C765C437'.
           03  FILLER PIC X(13) VALUE '87413C767C439'.
           03  FILLER PIC X(13) VALUE '87422C000D030'.
           03  FILLER PIC X(13) VALUE '87422C001D030'.
           03  FILLER PIC X(13) VALUE '87422C002D030'.
           03  FILLER PIC X(13) VALUE '87422C003D030'.
           03  FILLER PIC X(13) VALUE '87422C004D030'.
           03  FILLER PIC X(13) VALUE '87422C005D030'.
           03  FILLER PIC X(13) VALUE '87422C006D030'.
           03  FILLER PIC X(13) VALUE '87422C008D030'.
           03  FILLER PIC X(13) VALUE '87422C009D030'.
           03  FILLER PIC X(13) VALUE '87422C210D035'.
           03  FILLER PIC X(13) VALUE '87422C440D030'.
           03  FILLER PIC X(13) VALUE '87422C441D031'.
           03  FILLER PIC X(13) VALUE '87422C442D032'.
           03  FILLER PIC X(13) VALUE '87422C443D033'.
           03  FILLER PIC X(13) VALUE '87422C444D034'.
           03  FILLER PIC X(13) VALUE '87422C445D035'.
           03  FILLER PIC X(13) VALUE '87422C446D036'.
           03  FILLER PIC X(13) VALUE '87422C447D037'.
           03  FILLER PIC X(13) VALUE '87422C448D039'.
           03  FILLER PIC X(13) VALUE '87422C449D039'.
           03  FILLER PIC X(13) VALUE '87422C500D035'.
           03  FILLER PIC X(13) VALUE '87422C501D035'.
           03  FILLER PIC X(13) VALUE '87422C502D035'.
           03  FILLER PIC X(13) VALUE '87422C503D035'.
           03  FILLER PIC X(13) VALUE '87422C504D035'.
           03  FILLER PIC X(13) VALUE '87422C505D035'.
           03  FILLER PIC X(13) VALUE '87422C506D035'.
           03  FILLER PIC X(13) VALUE '87422C508D035'.
           03  FILLER PIC X(13) VALUE '87422C509D035'.
           03  FILLER PIC X(13) VALUE '87422C760D034'.
           03  FILLER PIC X(13) VALUE '87422C764D036'.
           03  FILLER PIC X(13) VALUE '87422C765D037'.
           03  FILLER PIC X(13) VALUE '87422C767D035'.
           03  FILLER PIC X(13) VALUE '87423C000C430'.
           03  FILLER PIC X(13) VALUE '87423C001C430'.
           03  FILLER PIC X(13) VALUE '87423C002C430'.
           03  FILLER PIC X(13) VALUE '87423C003C430'.
           03  FILLER PIC X(13) VALUE '87423C004C430'.
           03  FILLER PIC X(13) VALUE '87423C005C430'.
           03  FILLER PIC X(13) VALUE '87423C006C430'.
           03  FILLER PIC X(13) VALUE '87423C008C430'.
           03  FILLER PIC X(13) VALUE '87423C009C430'.
           03  FILLER PIC X(13) VALUE '87423C440C430'.
           03  FILLER PIC X(13) VALUE '87423C441C431'.
           03  FILLER PIC X(13) VALUE '87423C442C432'.
           03  FILLER PIC X(13) VALUE '87423C443C433'.
           03  FILLER PIC X(13) VALUE '87423C444C434'.
           03  FILLER PIC X(13) VALUE '87423C445C435'.
           03  FILLER PIC X(13) VALUE '87423C446C436'.
           03  FILLER PIC X(13) VALUE '87423C447C437'.
           03  FILLER PIC X(13) VALUE '87423C448C438'.
           03  FILLER PIC X(13) VALUE '87423C449C439'.
           03  FILLER PIC X(13) VALUE '87423C500C435'.
           03  FILLER PIC X(13) VALUE '87423C501C435'.
           03  FILLER PIC X(13) VALUE '87423C502C435'.
           03  FILLER PIC X(13) VALUE '87423C503C435'.
           03  FILLER PIC X(13) VALUE '87423C504C435'.
           03  FILLER PIC X(13) VALUE '87423C505C435'.
           03  FILLER PIC X(13) VALUE '87423C506C435'.
           03  FILLER PIC X(13) VALUE '87423C508C435'.
           03  FILLER PIC X(13) VALUE '87423C509C435'.
           03  FILLER PIC X(13) VALUE '87423C760C439'.
           03  FILLER PIC X(13) VALUE '87423C761C439'.
           03  FILLER PIC X(13) VALUE '87423C762C435'.
           03  FILLER PIC X(13) VALUE '87423C763C439'.
           03  FILLER PIC X(13) VALUE '87423C764C436'.
           03  FILLER PIC X(13) VALUE '87423C765C437'.
           03  FILLER PIC X(13) VALUE '87423C767C439'.
           03  FILLER PIC X(13) VALUE '87432C000D030'.
           03  FILLER PIC X(13) VALUE '87432C001D030'.
           03  FILLER PIC X(13) VALUE '87432C002D030'.
           03  FILLER PIC X(13) VALUE '87432C003D030'.
           03  FILLER PIC X(13) VALUE '87432C004D030'.
           03  FILLER PIC X(13) VALUE '87432C005D030'.
           03  FILLER PIC X(13) VALUE '87432C006D030'.
           03  FILLER PIC X(13) VALUE '87432C008D030'.
           03  FILLER PIC X(13) VALUE '87432C009D030'.
           03  FILLER PIC X(13) VALUE '87432C210D035'.
           03  FILLER PIC X(13) VALUE '87432C440D030'.
           03  FILLER PIC X(13) VALUE '87432C441D031'.
           03  FILLER PIC X(13) VALUE '87432C442D032'.
           03  FILLER PIC X(13) VALUE '87432C443D033'.
           03  FILLER PIC X(13) VALUE '87432C444D034'.
           03  FILLER PIC X(13) VALUE '87432C445D035'.
           03  FILLER PIC X(13) VALUE '87432C446D036'.
           03  FILLER PIC X(13) VALUE '87432C447D037'.
           03  FILLER PIC X(13) VALUE '87432C448D039'.
           03  FILLER PIC X(13) VALUE '87432C449D039'.
           03  FILLER PIC X(13) VALUE '87432C500D035'.
           03  FILLER PIC X(13) VALUE '87432C501D035'.
           03  FILLER PIC X(13) VALUE '87432C502D035'.
           03  FILLER PIC X(13) VALUE '87432C503D035'.
           03  FILLER PIC X(13) VALUE '87432C504D035'.
           03  FILLER PIC X(13) VALUE '87432C505D035'.
           03  FILLER PIC X(13) VALUE '87432C506D035'.
           03  FILLER PIC X(13) VALUE '87432C508D035'.
           03  FILLER PIC X(13) VALUE '87432C509D035'.
           03  FILLER PIC X(13) VALUE '87432C760D034'.
           03  FILLER PIC X(13) VALUE '87432C764D036'.
           03  FILLER PIC X(13) VALUE '87432C765D037'.
           03  FILLER PIC X(13) VALUE '87432C767D035'.
           03  FILLER PIC X(13) VALUE '87433C000C430'.
           03  FILLER PIC X(13) VALUE '87433C001C430'.
           03  FILLER PIC X(13) VALUE '87433C002C430'.
           03  FILLER PIC X(13) VALUE '87433C003C430'.
           03  FILLER PIC X(13) VALUE '87433C004C430'.
           03  FILLER PIC X(13) VALUE '87433C005C430'.
           03  FILLER PIC X(13) VALUE '87433C006C430'.
           03  FILLER PIC X(13) VALUE '87433C008C430'.
           03  FILLER PIC X(13) VALUE '87433C009C430'.
           03  FILLER PIC X(13) VALUE '87433C440C430'.
           03  FILLER PIC X(13) VALUE '87433C441C431'.
           03  FILLER PIC X(13) VALUE '87433C442C432'.
           03  FILLER PIC X(13) VALUE '87433C443C433'.
           03  FILLER PIC X(13) VALUE '87433C444C434'.
           03  FILLER PIC X(13) VALUE '87433C445C435'.
           03  FILLER PIC X(13) VALUE '87433C446C436'.
           03  FILLER PIC X(13) VALUE '87433C447C437'.
           03  FILLER PIC X(13) VALUE '87433C448C438'.
           03  FILLER PIC X(13) VALUE '87433C449C439'.
           03  FILLER PIC X(13) VALUE '87433C500C435'.
           03  FILLER PIC X(13) VALUE '87433C501C435'.
           03  FILLER PIC X(13) VALUE '87433C502C435'.
           03  FILLER PIC X(13) VALUE '87433C503C435'.
           03  FILLER PIC X(13) VALUE '87433C504C435'.
           03  FILLER PIC X(13) VALUE '87433C505C435'.
           03  FILLER PIC X(13) VALUE '87433C506C435'.
           03  FILLER PIC X(13) VALUE '87433C508C435'.
           03  FILLER PIC X(13) VALUE '87433C509C435'.
           03  FILLER PIC X(13) VALUE '87433C760C439'.
           03  FILLER PIC X(13) VALUE '87433C761C439'.
           03  FILLER PIC X(13) VALUE '87433C762C435'.
           03  FILLER PIC X(13) VALUE '87433C763C439'.
           03  FILLER PIC X(13) VALUE '87433C764C436'.
           03  FILLER PIC X(13) VALUE '87433C765C437'.
           03  FILLER PIC X(13) VALUE '87433C767C439'.
           03  FILLER PIC X(13) VALUE '87442C000D030'.
           03  FILLER PIC X(13) VALUE '87442C001D030'.
           03  FILLER PIC X(13) VALUE '87442C002D030'.
           03  FILLER PIC X(13) VALUE '87442C003D030'.
           03  FILLER PIC X(13) VALUE '87442C004D030'.
           03  FILLER PIC X(13) VALUE '87442C005D030'.
           03  FILLER PIC X(13) VALUE '87442C006D030'.
           03  FILLER PIC X(13) VALUE '87442C008D030'.
           03  FILLER PIC X(13) VALUE '87442C009D030'.
           03  FILLER PIC X(13) VALUE '87442C210D035'.
           03  FILLER PIC X(13) VALUE '87442C440D030'.
           03  FILLER PIC X(13) VALUE '87442C441D031'.
           03  FILLER PIC X(13) VALUE '87442C442D032'.
           03  FILLER PIC X(13) VALUE '87442C443D033'.
           03  FILLER PIC X(13) VALUE '87442C444D034'.
           03  FILLER PIC X(13) VALUE '87442C445D035'.
           03  FILLER PIC X(13) VALUE '87442C446D036'.
           03  FILLER PIC X(13) VALUE '87442C447D037'.
           03  FILLER PIC X(13) VALUE '87442C448D039'.
           03  FILLER PIC X(13) VALUE '87442C449D039'.
           03  FILLER PIC X(13) VALUE '87442C500D035'.
           03  FILLER PIC X(13) VALUE '87442C501D035'.
           03  FILLER PIC X(13) VALUE '87442C502D035'.
           03  FILLER PIC X(13) VALUE '87442C503D035'.
           03  FILLER PIC X(13) VALUE '87442C504D035'.
           03  FILLER PIC X(13) VALUE '87442C505D035'.
           03  FILLER PIC X(13) VALUE '87442C506D035'.
           03  FILLER PIC X(13) VALUE '87442C508D035'.
           03  FILLER PIC X(13) VALUE '87442C509D035'.
           03  FILLER PIC X(13) VALUE '87442C760D034'.
           03  FILLER PIC X(13) VALUE '87442C764D036'.
           03  FILLER PIC X(13) VALUE '87442C765D037'.
           03  FILLER PIC X(13) VALUE '87442C767D035'.
           03  FILLER PIC X(13) VALUE '87443C000C430'.
           03  FILLER PIC X(13) VALUE '87443C001C430'.
           03  FILLER PIC X(13) VALUE '87443C002C430'.
           03  FILLER PIC X(13) VALUE '87443C003C430'.
           03  FILLER PIC X(13) VALUE '87443C004C430'.
           03  FILLER PIC X(13) VALUE '87443C005C430'.
           03  FILLER PIC X(13) VALUE '87443C006C430'.
           03  FILLER PIC X(13) VALUE '87443C008C430'.
           03  FILLER PIC X(13) VALUE '87443C009C430'.
           03  FILLER PIC X(13) VALUE '87443C440C430'.
           03  FILLER PIC X(13) VALUE '87443C441C431'.
           03  FILLER PIC X(13) VALUE '87443C442C432'.
           03  FILLER PIC X(13) VALUE '87443C443C433'.
           03  FILLER PIC X(13) VALUE '87443C444C434'.
           03  FILLER PIC X(13) VALUE '87443C445C435'.
           03  FILLER PIC X(13) VALUE '87443C446C436'.
           03  FILLER PIC X(13) VALUE '87443C447C437'.
           03  FILLER PIC X(13) VALUE '87443C448C438'.
           03  FILLER PIC X(13) VALUE '87443C449C439'.
           03  FILLER PIC X(13) VALUE '87443C500C435'.
           03  FILLER PIC X(13) VALUE '87443C501C435'.
           03  FILLER PIC X(13) VALUE '87443C502C435'.
           03  FILLER PIC X(13) VALUE '87443C503C435'.
           03  FILLER PIC X(13) VALUE '87443C504C435'.
           03  FILLER PIC X(13) VALUE '87443C505C435'.
           03  FILLER PIC X(13) VALUE '87443C506C435'.
           03  FILLER PIC X(13) VALUE '87443C508C435'.
           03  FILLER PIC X(13) VALUE '87443C509C435'.
           03  FILLER PIC X(13) VALUE '87443C760C439'.
           03  FILLER PIC X(13) VALUE '87443C761C439'.
           03  FILLER PIC X(13) VALUE '87443C762C435'.
           03  FILLER PIC X(13) VALUE '87443C763C439'.
           03  FILLER PIC X(13) VALUE '87443C764C436'.
           03  FILLER PIC X(13) VALUE '87443C765C437'.
           03  FILLER PIC X(13) VALUE '87443C767C439'.
           03  FILLER PIC X(13) VALUE '87453C000C430'.
           03  FILLER PIC X(13) VALUE '87453C001C430'.
           03  FILLER PIC X(13) VALUE '87453C002C430'.
           03  FILLER PIC X(13) VALUE '87453C003C430'.
           03  FILLER PIC X(13) VALUE '87453C004C430'.
           03  FILLER PIC X(13) VALUE '87453C005C430'.
           03  FILLER PIC X(13) VALUE '87453C006C430'.
           03  FILLER PIC X(13) VALUE '87453C008C430'.
           03  FILLER PIC X(13) VALUE '87453C009C430'.
           03  FILLER PIC X(13) VALUE '87453C440C430'.
           03  FILLER PIC X(13) VALUE '87453C441C431'.
           03  FILLER PIC X(13) VALUE '87453C442C432'.
           03  FILLER PIC X(13) VALUE '87453C443C433'.
           03  FILLER PIC X(13) VALUE '87453C444C434'.
           03  FILLER PIC X(13) VALUE '87453C445C435'.
           03  FILLER PIC X(13) VALUE '87453C446C436'.
           03  FILLER PIC X(13) VALUE '87453C447C437'.
           03  FILLER PIC X(13) VALUE '87453C448C438'.
           03  FILLER PIC X(13) VALUE '87453C449C439'.
           03  FILLER PIC X(13) VALUE '87453C500C435'.
           03  FILLER PIC X(13) VALUE '87453C501C435'.
           03  FILLER PIC X(13) VALUE '87453C502C435'.
           03  FILLER PIC X(13) VALUE '87453C503C435'.
           03  FILLER PIC X(13) VALUE '87453C504C435'.
           03  FILLER PIC X(13) VALUE '87453C505C435'.
           03  FILLER PIC X(13) VALUE '87453C506C435'.
           03  FILLER PIC X(13) VALUE '87453C508C435'.
           03  FILLER PIC X(13) VALUE '87453C509C435'.
           03  FILLER PIC X(13) VALUE '87453C760C439'.
           03  FILLER PIC X(13) VALUE '87453C761C439'.
           03  FILLER PIC X(13) VALUE '87453C762C435'.
           03  FILLER PIC X(13) VALUE '87453C763C439'.
           03  FILLER PIC X(13) VALUE '87453C764C436'.
           03  FILLER PIC X(13) VALUE '87453C765C437'.
           03  FILLER PIC X(13) VALUE '87453C767C439'.
           03  FILLER PIC X(13) VALUE '87500C000D220'.
           03  FILLER PIC X(13) VALUE '87500C001D220'.
           03  FILLER PIC X(13) VALUE '87500C002D220'.
           03  FILLER PIC X(13) VALUE '87500C003D220'.
           03  FILLER PIC X(13) VALUE '87500C004D220'.
           03  FILLER PIC X(13) VALUE '87500C005D220'.
           03  FILLER PIC X(13) VALUE '87500C006D220'.
           03  FILLER PIC X(13) VALUE '87500C008D220'.
           03  FILLER PIC X(13) VALUE '87500C009D220'.
           03  FILLER PIC X(13) VALUE '87500C069D103'.
           03  FILLER PIC X(13) VALUE '87500C210D225'.
           03  FILLER PIC X(13) VALUE '87500C440D220'.
           03  FILLER PIC X(13) VALUE '87500C441D221'.
           03  FILLER PIC X(13) VALUE '87500C442D222'.
           03  FILLER PIC X(13) VALUE '87500C443D223'.
           03  FILLER PIC X(13) VALUE '87500C444D224'.
           03  FILLER PIC X(13) VALUE '87500C445D225'.
           03  FILLER PIC X(13) VALUE '87500C446D226'.
           03  FILLER PIC X(13) VALUE '87500C447D227'.
           03  FILLER PIC X(13) VALUE '87500C448D229'.
           03  FILLER PIC X(13) VALUE '87500C449D229'.
           03  FILLER PIC X(13) VALUE '87500C500D225'.
           03  FILLER PIC X(13) VALUE '87500C501D225'.
           03  FILLER PIC X(13) VALUE '87500C502D225'.
           03  FILLER PIC X(13) VALUE '87500C503D225'.
           03  FILLER PIC X(13) VALUE '87500C504D225'.
           03  FILLER PIC X(13) VALUE '87500C505D225'.
           03  FILLER PIC X(13) VALUE '87500C506D225'.
           03  FILLER PIC X(13) VALUE '87500C508D225'.
           03  FILLER PIC X(13) VALUE '87500C509D225'.
           03  FILLER PIC X(13) VALUE '87500C510D280'.
           03  FILLER PIC X(13) VALUE '87500C511D280'.
           03  FILLER PIC X(13) VALUE '87500C512D280'.
           03  FILLER PIC X(13) VALUE '87500C518D280'.
           03  FILLER PIC X(13) VALUE '87500C519D280'.
           03  FILLER PIC X(13) VALUE '87500C600D290'.
           03  FILLER PIC X(13) VALUE '87500C609D290'.
           03  FILLER PIC X(13) VALUE '87500C632D294'.
           03  FILLER PIC X(13) VALUE '87500C639D299'.
           03  FILLER PIC X(13) VALUE '87500C690D310'.
           03  FILLER PIC X(13) VALUE '87500C691D311'.
           03  FILLER PIC X(13) VALUE '87500C692D312'.
           03  FILLER PIC X(13) VALUE '87500C693D313'.
           03  FILLER PIC X(13) VALUE '87500C694D314'.
           03  FILLER PIC X(13) VALUE '87500C695D315'.
           03  FILLER PIC X(13) VALUE '87500C696D316'.
           03  FILLER PIC X(13) VALUE '87500C698D319'.
           03  FILLER PIC X(13) VALUE '87500C699D319'.
           03  FILLER PIC X(13) VALUE '87500C762D225'.
           03  FILLER PIC X(13) VALUE '87500C764D226'.
           03  FILLER PIC X(13) VALUE '87500C765D227'.
           03  FILLER PIC X(13) VALUE '87600C000D220'.
           03  FILLER PIC X(13) VALUE '87600C001D220'.
           03  FILLER PIC X(13) VALUE '87600C002D220'.
           03  FILLER PIC X(13) VALUE '87600C003D220'.
           03  FILLER PIC X(13) VALUE '87600C004D220'.
           03  FILLER PIC X(13) VALUE '87600C005D220'.
           03  FILLER PIC X(13) VALUE '87600C006D220'.
           03  FILLER PIC X(13) VALUE '87600C008D220'.
           03  FILLER PIC X(13) VALUE '87600C009D220'.
           03  FILLER PIC X(13) VALUE '87600C069D103'.
           03  FILLER PIC X(13) VALUE '87600C210D225'.
           03  FILLER PIC X(13) VALUE '87600C440D220'.
           03  FILLER PIC X(13) VALUE '87600C441D221'.
           03  FILLER PIC X(13) VALUE '87600C442D222'.
           03  FILLER PIC X(13) VALUE '87600C443D223'.
           03  FILLER PIC X(13) VALUE '87600C444D224'.
           03  FILLER PIC X(13) VALUE '87600C445D225'.
           03  FILLER PIC X(13) VALUE '87600C446D226'.
           03  FILLER PIC X(13) VALUE '87600C447D227'.
           03  FILLER PIC X(13) VALUE '87600C448D229'.
           03  FILLER PIC X(13) VALUE '87600C449D229'.
           03  FILLER PIC X(13) VALUE '87600C500D225'.
           03  FILLER PIC X(13) VALUE '87600C501D225'.
           03  FILLER PIC X(13) VALUE '87600C502D225'.
           03  FILLER PIC X(13) VALUE '87600C503D225'.
           03  FILLER PIC X(13) VALUE '87600C504D225'.
           03  FILLER PIC X(13) VALUE '87600C505D225'.
           03  FILLER PIC X(13) VALUE '87600C506D225'.
           03  FILLER PIC X(13) VALUE '87600C508D225'.
           03  FILLER PIC X(13) VALUE '87600C509D225'.
           03  FILLER PIC X(13) VALUE '87600C510D280'.
           03  FILLER PIC X(13) VALUE '87600C511D280'.
           03  FILLER PIC X(13) VALUE '87600C512D280'.
           03  FILLER PIC X(13) VALUE '87600C518D280'.
           03  FILLER PIC X(13) VALUE '87600C519D280'.
           03  FILLER PIC X(13) VALUE '87600C600D290'.
           03  FILLER PIC X(13) VALUE '87600C609D290'.
           03  FILLER PIC X(13) VALUE '87600C632D294'.
           03  FILLER PIC X(13) VALUE '87600C639D299'.
           03  FILLER PIC X(13) VALUE '87600C690D310'.
           03  FILLER PIC X(13) VALUE '87600C691D311'.
           03  FILLER PIC X(13) VALUE '87600C692D312'.
           03  FILLER PIC X(13) VALUE '87600C693D313'.
           03  FILLER PIC X(13) VALUE '87600C694D314'.
           03  FILLER PIC X(13) VALUE '87600C695D315'.
           03  FILLER PIC X(13) VALUE '87600C696D316'.
           03  FILLER PIC X(13) VALUE '87600C698D319'.
           03  FILLER PIC X(13) VALUE '87600C699D319'.
           03  FILLER PIC X(13) VALUE '87600C762D225'.
           03  FILLER PIC X(13) VALUE '87600C764D226'.
           03  FILLER PIC X(13) VALUE '87600C765D227'.
           03  FILLER PIC X(13) VALUE '87611C069D370'.
           03  FILLER PIC X(13) VALUE '87611C510D397'.
           03  FILLER PIC X(13) VALUE '87611C511D397'.
           03  FILLER PIC X(13) VALUE '87611C512D397'.
           03  FILLER PIC X(13) VALUE '87611C518D397'.
           03  FILLER PIC X(13) VALUE '87611C519D397'.
           03  FILLER PIC X(13) VALUE '87611C600D407'.
           03  FILLER PIC X(13) VALUE '87611C609D407'.
           03  FILLER PIC X(13) VALUE '87611C632D407'.
           03  FILLER PIC X(13) VALUE '87611C639D409'.
           03  FILLER PIC X(13) VALUE '87611C690D487'.
           03  FILLER PIC X(13) VALUE '87611C691D487'.
           03  FILLER PIC X(13) VALUE '87611C692D487'.
           03  FILLER PIC X(13) VALUE '87611C693D487'.
           03  FILLER PIC X(13) VALUE '87611C694D487'.
           03  FILLER PIC X(13) VALUE '87611C695D487'.
           03  FILLER PIC X(13) VALUE '87611C696D487'.
           03  FILLER PIC X(13) VALUE '87611C698D487'.
           03  FILLER PIC X(13) VALUE '87611C699D487'.
           03  FILLER PIC X(13) VALUE '87612C000D030'.
           03  FILLER PIC X(13) VALUE '87612C001D030'.
           03  FILLER PIC X(13) VALUE '87612C002D030'.
           03  FILLER PIC X(13) VALUE '87612C003D030'.
           03  FILLER PIC X(13) VALUE '87612C004D030'.
           03  FILLER PIC X(13) VALUE '87612C005D030'.
           03  FILLER PIC X(13) VALUE '87612C006D030'.
           03  FILLER PIC X(13) VALUE '87612C008D030'.
           03  FILLER PIC X(13) VALUE '87612C009D030'.
           03  FILLER PIC X(13) VALUE '87612C210D035'.
           03  FILLER PIC X(13) VALUE '87612C440D030'.
           03  FILLER PIC X(13) VALUE '87612C441D031'.
           03  FILLER PIC X(13) VALUE '87612C442D032'.
           03  FILLER PIC X(13) VALUE '87612C443D033'.
           03  FILLER PIC X(13) VALUE '87612C444D034'.
           03  FILLER PIC X(13) VALUE '87612C445D035'.
           03  FILLER PIC X(13) VALUE '87612C446D036'.
           03  FILLER PIC X(13) VALUE '87612C447D037'.
           03  FILLER PIC X(13) VALUE '87612C448D039'.
           03  FILLER PIC X(13) VALUE '87612C449D039'.
           03  FILLER PIC X(13) VALUE '87612C500D035'.
           03  FILLER PIC X(13) VALUE '87612C501D035'.
           03  FILLER PIC X(13) VALUE '87612C502D035'.
           03  FILLER PIC X(13) VALUE '87612C503D035'.
           03  FILLER PIC X(13) VALUE '87612C504D035'.
           03  FILLER PIC X(13) VALUE '87612C505D035'.
           03  FILLER PIC X(13) VALUE '87612C506D035'.
           03  FILLER PIC X(13) VALUE '87612C508D035'.
           03  FILLER PIC X(13) VALUE '87612C509D035'.
           03  FILLER PIC X(13) VALUE '87612C760D034'.
           03  FILLER PIC X(13) VALUE '87612C764D036'.
           03  FILLER PIC X(13) VALUE '87612C765D037'.
           03  FILLER PIC X(13) VALUE '87612C767D035'.
           03  FILLER PIC X(13) VALUE '87613C000C430'.
           03  FILLER PIC X(13) VALUE '87613C001C430'.
           03  FILLER PIC X(13) VALUE '87613C002C430'.
           03  FILLER PIC X(13) VALUE '87613C003C430'.
           03  FILLER PIC X(13) VALUE '87613C004C430'.
           03  FILLER PIC X(13) VALUE '87613C005C430'.
           03  FILLER PIC X(13) VALUE '87613C006C430'.
           03  FILLER PIC X(13) VALUE '87613C008C430'.
           03  FILLER PIC X(13) VALUE '87613C009C430'.
           03  FILLER PIC X(13) VALUE '87613C440C430'.
           03  FILLER PIC X(13) VALUE '87613C441C431'.
           03  FILLER PIC X(13) VALUE '87613C442C432'.
           03  FILLER PIC X(13) VALUE '87613C443C433'.
           03  FILLER PIC X(13) VALUE '87613C444C434'.
           03  FILLER PIC X(13) VALUE '87613C445C435'.
           03  FILLER PIC X(13) VALUE '87613C446C436'.
           03  FILLER PIC X(13) VALUE '87613C447C437'.
           03  FILLER PIC X(13) VALUE '87613C448C438'.
           03  FILLER PIC X(13) VALUE '87613C449C439'.
           03  FILLER PIC X(13) VALUE '87613C500C435'.
           03  FILLER PIC X(13) VALUE '87613C501C435'.
           03  FILLER PIC X(13) VALUE '87613C502C435'.
           03  FILLER PIC X(13) VALUE '87613C503C435'.
           03  FILLER PIC X(13) VALUE '87613C504C435'.
           03  FILLER PIC X(13) VALUE '87613C505C435'.
           03  FILLER PIC X(13) VALUE '87613C506C435'.
           03  FILLER PIC X(13) VALUE '87613C508C435'.
           03  FILLER PIC X(13) VALUE '87613C509C435'.
           03  FILLER PIC X(13) VALUE '87613C760C439'.
           03  FILLER PIC X(13) VALUE '87613C761C439'.
           03  FILLER PIC X(13) VALUE '87613C762C435'.
           03  FILLER PIC X(13) VALUE '87613C763C439'.
           03  FILLER PIC X(13) VALUE '87613C764C436'.
           03  FILLER PIC X(13) VALUE '87613C765C437'.
           03  FILLER PIC X(13) VALUE '87613C767C439'.
           03  FILLER PIC X(13) VALUE '87700C000D220'.
           03  FILLER PIC X(13) VALUE '87700C001D220'.
           03  FILLER PIC X(13) VALUE '87700C002D220'.
           03  FILLER PIC X(13) VALUE '87700C003D220'.
           03  FILLER PIC X(13) VALUE '87700C004D220'.
           03  FILLER PIC X(13) VALUE '87700C005D220'.
           03  FILLER PIC X(13) VALUE '87700C006D220'.
           03  FILLER PIC X(13) VALUE '87700C008D220'.
           03  FILLER PIC X(13) VALUE '87700C009D220'.
           03  FILLER PIC X(13) VALUE '87700C069D103'.
           03  FILLER PIC X(13) VALUE '87700C210D225'.
           03  FILLER PIC X(13) VALUE '87700C440D220'.
           03  FILLER PIC X(13) VALUE '87700C441D221'.
           03  FILLER PIC X(13) VALUE '87700C442D222'.
           03  FILLER PIC X(13) VALUE '87700C443D223'.
           03  FILLER PIC X(13) VALUE '87700C444D224'.
           03  FILLER PIC X(13) VALUE '87700C445D225'.
           03  FILLER PIC X(13) VALUE '87700C446D226'.
           03  FILLER PIC X(13) VALUE '87700C447D227'.
           03  FILLER PIC X(13) VALUE '87700C448D229'.
           03  FILLER PIC X(13) VALUE '87700C449D229'.
           03  FILLER PIC X(13) VALUE '87700C500D225'.
           03  FILLER PIC X(13) VALUE '87700C501D225'.
           03  FILLER PIC X(13) VALUE '87700C502D225'.
           03  FILLER PIC X(13) VALUE '87700C503D225'.
           03  FILLER PIC X(13) VALUE '87700C504D225'.
           03  FILLER PIC X(13) VALUE '87700C505D225'.
           03  FILLER PIC X(13) VALUE '87700C506D225'.
           03  FILLER PIC X(13) VALUE '87700C508D225'.
           03  FILLER PIC X(13) VALUE '87700C509D225'.
           03  FILLER PIC X(13) VALUE '87700C510D280'.
           03  FILLER PIC X(13) VALUE '87700C511D280'.
           03  FILLER PIC X(13) VALUE '87700C512D280'.
           03  FILLER PIC X(13) VALUE '87700C518D280'.
           03  FILLER PIC X(13) VALUE '87700C519D280'.
           03  FILLER PIC X(13) VALUE '87700C600D290'.
           03  FILLER PIC X(13) VALUE '87700C609D290'.
           03  FILLER PIC X(13) VALUE '87700C632D294'.
           03  FILLER PIC X(13) VALUE '87700C639D299'.
           03  FILLER PIC X(13) VALUE '87700C690D310'.
           03  FILLER PIC X(13) VALUE '87700C691D311'.
           03  FILLER PIC X(13) VALUE '87700C692D312'.
           03  FILLER PIC X(13) VALUE '87700C693D313'.
           03  FILLER PIC X(13) VALUE '87700C694D314'.
           03  FILLER PIC X(13) VALUE '87700C695D315'.
           03  FILLER PIC X(13) VALUE '87700C696D316'.
           03  FILLER PIC X(13) VALUE '87700C698D319'.
           03  FILLER PIC X(13) VALUE '87700C699D319'.
           03  FILLER PIC X(13) VALUE '87700C762D225'.
           03  FILLER PIC X(13) VALUE '87700C764D226'.
           03  FILLER PIC X(13) VALUE '87700C765D227'.
           03  FILLER PIC X(13) VALUE '87703C000C430'.
           03  FILLER PIC X(13) VALUE '87703C001C430'.
           03  FILLER PIC X(13) VALUE '87703C002C430'.
           03  FILLER PIC X(13) VALUE '87703C003C430'.
           03  FILLER PIC X(13) VALUE '87703C004C430'.
           03  FILLER PIC X(13) VALUE '87703C005C430'.
           03  FILLER PIC X(13) VALUE '87703C006C430'.
           03  FILLER PIC X(13) VALUE '87703C008C430'.
           03  FILLER PIC X(13) VALUE '87703C009C430'.
           03  FILLER PIC X(13) VALUE '87703C440C430'.
           03  FILLER PIC X(13) VALUE '87703C441C431'.
           03  FILLER PIC X(13) VALUE '87703C442C432'.
           03  FILLER PIC X(13) VALUE '87703C443C433'.
           03  FILLER PIC X(13) VALUE '87703C444C434'.
           03  FILLER PIC X(13) VALUE '87703C445C435'.
           03  FILLER PIC X(13) VALUE '87703C446C436'.
           03  FILLER PIC X(13) VALUE '87703C447C437'.
           03  FILLER PIC X(13) VALUE '87703C448C438'.
           03  FILLER PIC X(13) VALUE '87703C449C439'.
           03  FILLER PIC X(13) VALUE '87703C500C435'.
           03  FILLER PIC X(13) VALUE '87703C501C435'.
           03  FILLER PIC X(13) VALUE '87703C502C435'.
           03  FILLER PIC X(13) VALUE '87703C503C435'.
           03  FILLER PIC X(13) VALUE '87703C504C435'.
           03  FILLER PIC X(13) VALUE '87703C505C435'.
           03  FILLER PIC X(13) VALUE '87703C506C435'.
           03  FILLER PIC X(13) VALUE '87703C508C435'.
           03  FILLER PIC X(13) VALUE '87703C509C435'.
           03  FILLER PIC X(13) VALUE '87703C760C439'.
           03  FILLER PIC X(13) VALUE '87703C761C439'.
           03  FILLER PIC X(13) VALUE '87703C762C435'.
           03  FILLER PIC X(13) VALUE '87703C763C439'.
           03  FILLER PIC X(13) VALUE '87703C764C436'.
           03  FILLER PIC X(13) VALUE '87703C765C437'.
           03  FILLER PIC X(13) VALUE '87703C767C439'.
           03  FILLER PIC X(13) VALUE '87710C000D220'.
           03  FILLER PIC X(13) VALUE '87710C001D220'.
           03  FILLER PIC X(13) VALUE '87710C002D220'.
           03  FILLER PIC X(13) VALUE '87710C003D220'.
           03  FILLER PIC X(13) VALUE '87710C004D220'.
           03  FILLER PIC X(13) VALUE '87710C005D220'.
           03  FILLER PIC X(13) VALUE '87710C006D220'.
           03  FILLER PIC X(13) VALUE '87710C008D220'.
           03  FILLER PIC X(13) VALUE '87710C009D220'.
           03  FILLER PIC X(13) VALUE '87710C069D103'.
           03  FILLER PIC X(13) VALUE '87710C210D225'.
           03  FILLER PIC X(13) VALUE '87710C440D220'.
           03  FILLER PIC X(13) VALUE '87710C441D221'.
           03  FILLER PIC X(13) VALUE '87710C442D222'.
           03  FILLER PIC X(13) VALUE '87710C443D223'.
           03  FILLER PIC X(13) VALUE '87710C444D224'.
           03  FILLER PIC X(13) VALUE '87710C445D225'.
           03  FILLER PIC X(13) VALUE '87710C446D226'.
           03  FILLER PIC X(13) VALUE '87710C447D227'.
           03  FILLER PIC X(13) VALUE '87710C448D229'.
           03  FILLER PIC X(13) VALUE '87710C449D229'.
           03  FILLER PIC X(13) VALUE '87710C500D225'.
           03  FILLER PIC X(13) VALUE '87710C501D225'.
           03  FILLER PIC X(13) VALUE '87710C502D225'.
           03  FILLER PIC X(13) VALUE '87710C503D225'.
           03  FILLER PIC X(13) VALUE '87710C504D225'.
           03  FILLER PIC X(13) VALUE '87710C505D225'.
           03  FILLER PIC X(13) VALUE '87710C506D225'.
           03  FILLER PIC X(13) VALUE '87710C508D225'.
           03  FILLER PIC X(13) VALUE '87710C509D225'.
           03  FILLER PIC X(13) VALUE '87710C510D280'.
           03  FILLER PIC X(13) VALUE '87710C511D280'.
           03  FILLER PIC X(13) VALUE '87710C512D280'.
           03  FILLER PIC X(13) VALUE '87710C518D280'.
           03  FILLER PIC X(13) VALUE '87710C519D280'.
           03  FILLER PIC X(13) VALUE '87710C600D290'.
           03  FILLER PIC X(13) VALUE '87710C609D290'.
           03  FILLER PIC X(13) VALUE '87710C632D294'.
           03  FILLER PIC X(13) VALUE '87710C639D299'.
           03  FILLER PIC X(13) VALUE '87710C690D310'.
           03  FILLER PIC X(13) VALUE '87710C691D311'.
           03  FILLER PIC X(13) VALUE '87710C692D312'.
           03  FILLER PIC X(13) VALUE '87710C693D313'.
           03  FILLER PIC X(13) VALUE '87710C694D314'.
           03  FILLER PIC X(13) VALUE '87710C695D315'.
           03  FILLER PIC X(13) VALUE '87710C696D316'.
           03  FILLER PIC X(13) VALUE '87710C698D319'.
           03  FILLER PIC X(13) VALUE '87710C699D319'.
           03  FILLER PIC X(13) VALUE '87710C762D225'.
           03  FILLER PIC X(13) VALUE '87710C764D226'.
           03  FILLER PIC X(13) VALUE '87710C765D227'.
           03  FILLER PIC X(13) VALUE '87713C000C430'.
           03  FILLER PIC X(13) VALUE '87713C001C430'.
           03  FILLER PIC X(13) VALUE '87713C002C430'.
           03  FILLER PIC X(13) VALUE '87713C003C430'.
           03  FILLER PIC X(13) VALUE '87713C004C430'.
           03  FILLER PIC X(13) VALUE '87713C005C430'.
           03  FILLER PIC X(13) VALUE '87713C006C430'.
           03  FILLER PIC X(13) VALUE '87713C008C430'.
           03  FILLER PIC X(13) VALUE '87713C009C430'.
           03  FILLER PIC X(13) VALUE '87713C440C430'.
           03  FILLER PIC X(13) VALUE '87713C441C431'.
           03  FILLER PIC X(13) VALUE '87713C442C432'.
           03  FILLER PIC X(13) VALUE '87713C443C433'.
           03  FILLER PIC X(13) VALUE '87713C444C434'.
           03  FILLER PIC X(13) VALUE '87713C445C435'.
           03  FILLER PIC X(13) VALUE '87713C446C436'.
           03  FILLER PIC X(13) VALUE '87713C447C437'.
           03  FILLER PIC X(13) VALUE '87713C448C438'.
           03  FILLER PIC X(13) VALUE '87713C449C439'.
           03  FILLER PIC X(13) VALUE '87713C500C435'.
           03  FILLER PIC X(13) VALUE '87713C501C435'.
           03  FILLER PIC X(13) VALUE '87713C502C435'.
           03  FILLER PIC X(13) VALUE '87713C503C435'.
           03  FILLER PIC X(13) VALUE '87713C504C435'.
           03  FILLER PIC X(13) VALUE '87713C505C435'.
           03  FILLER PIC X(13) VALUE '87713C506C435'.
           03  FILLER PIC X(13) VALUE '87713C508C435'.
           03  FILLER PIC X(13) VALUE '87713C509C435'.
           03  FILLER PIC X(13) VALUE '87713C760C439'.
           03  FILLER PIC X(13) VALUE '87713C761C439'.
           03  FILLER PIC X(13) VALUE '87713C762C435'.
           03  FILLER PIC X(13) VALUE '87713C763C439'.
           03  FILLER PIC X(13) VALUE '87713C764C436'.
           03  FILLER PIC X(13) VALUE '87713C765C437'.
           03  FILLER PIC X(13) VALUE '87713C767C439'.
           03  FILLER PIC X(13) VALUE '87720C000D220'.
           03  FILLER PIC X(13) VALUE '87720C001D220'.
           03  FILLER PIC X(13) VALUE '87720C002D220'.
           03  FILLER PIC X(13) VALUE '87720C003D220'.
           03  FILLER PIC X(13) VALUE '87720C004D220'.
           03  FILLER PIC X(13) VALUE '87720C005D220'.
           03  FILLER PIC X(13) VALUE '87720C006D220'.
           03  FILLER PIC X(13) VALUE '87720C008D220'.
           03  FILLER PIC X(13) VALUE '87720C009D220'.
           03  FILLER PIC X(13) VALUE '87720C069D103'.
           03  FILLER PIC X(13) VALUE '87720C210D225'.
           03  FILLER PIC X(13) VALUE '87720C440D220'.
           03  FILLER PIC X(13) VALUE '87720C441D221'.
           03  FILLER PIC X(13) VALUE '87720C442D222'.
           03  FILLER PIC X(13) VALUE '87720C443D223'.
           03  FILLER PIC X(13) VALUE '87720C444D224'.
           03  FILLER PIC X(13) VALUE '87720C445D225'.
           03  FILLER PIC X(13) VALUE '87720C446D226'.
           03  FILLER PIC X(13) VALUE '87720C447D227'.
           03  FILLER PIC X(13) VALUE '87720C448D229'.
           03  FILLER PIC X(13) VALUE '87720C449D229'.
           03  FILLER PIC X(13) VALUE '87720C500D225'.
           03  FILLER PIC X(13) VALUE '87720C501D225'.
           03  FILLER PIC X(13) VALUE '87720C502D225'.
           03  FILLER PIC X(13) VALUE '87720C503D225'.
           03  FILLER PIC X(13) VALUE '87720C504D225'.
           03  FILLER PIC X(13) VALUE '87720C505D225'.
           03  FILLER PIC X(13) VALUE '87720C506D225'.
           03  FILLER PIC X(13) VALUE '87720C508D225'.
           03  FILLER PIC X(13) VALUE '87720C509D225'.
           03  FILLER PIC X(13) VALUE '87720C510D280'.
           03  FILLER PIC X(13) VALUE '87720C511D280'.
           03  FILLER PIC X(13) VALUE '87720C512D280'.
           03  FILLER PIC X(13) VALUE '87720C518D280'.
           03  FILLER PIC X(13) VALUE '87720C519D280'.
           03  FILLER PIC X(13) VALUE '87720C600D290'.
           03  FILLER PIC X(13) VALUE '87720C609D290'.
           03  FILLER PIC X(13) VALUE '87720C632D294'.
           03  FILLER PIC X(13) VALUE '87720C639D299'.
           03  FILLER PIC X(13) VALUE '87720C690D310'.
           03  FILLER PIC X(13) VALUE '87720C691D311'.
           03  FILLER PIC X(13) VALUE '87720C692D312'.
           03  FILLER PIC X(13) VALUE '87720C693D313'.
           03  FILLER PIC X(13) VALUE '87720C694D314'.
           03  FILLER PIC X(13) VALUE '87720C695D315'.
           03  FILLER PIC X(13) VALUE '87720C696D316'.
           03  FILLER PIC X(13) VALUE '87720C698D319'.
           03  FILLER PIC X(13) VALUE '87720C699D319'.
           03  FILLER PIC X(13) VALUE '87720C762D225'.
           03  FILLER PIC X(13) VALUE '87720C764D226'.
           03  FILLER PIC X(13) VALUE '87720C765D227'.
           03  FILLER PIC X(13) VALUE '87723C000C430'.
           03  FILLER PIC X(13) VALUE '87723C001C430'.
           03  FILLER PIC X(13) VALUE '87723C002C430'.
           03  FILLER PIC X(13) VALUE '87723C003C430'.
           03  FILLER PIC X(13) VALUE '87723C004C430'.
           03  FILLER PIC X(13) VALUE '87723C005C430'.
           03  FILLER PIC X(13) VALUE '87723C006C430'.
           03  FILLER PIC X(13) VALUE '87723C008C430'.
           03  FILLER PIC X(13) VALUE '87723C009C430'.
           03  FILLER PIC X(13) VALUE '87723C440C430'.
           03  FILLER PIC X(13) VALUE '87723C441C431'.
           03  FILLER PIC X(13) VALUE '87723C442C432'.
           03  FILLER PIC X(13) VALUE '87723C443C433'.
           03  FILLER PIC X(13) VALUE '87723C444C434'.
           03  FILLER PIC X(13) VALUE '87723C445C435'.
           03  FILLER PIC X(13) VALUE '87723C446C436'.
           03  FILLER PIC X(13) VALUE '87723C447C437'.
           03  FILLER PIC X(13) VALUE '87723C448C438'.
           03  FILLER PIC X(13) VALUE '87723C449C439'.
           03  FILLER PIC X(13) VALUE '87723C500C435'.
           03  FILLER PIC X(13) VALUE '87723C501C435'.
           03  FILLER PIC X(13) VALUE '87723C502C435'.
           03  FILLER PIC X(13) VALUE '87723C503C435'.
           03  FILLER PIC X(13) VALUE '87723C504C435'.
           03  FILLER PIC X(13) VALUE '87723C505C435'.
           03  FILLER PIC X(13) VALUE '87723C506C435'.
           03  FILLER PIC X(13) VALUE '87723C508C435'.
           03  FILLER PIC X(13) VALUE '87723C509C435'.
           03  FILLER PIC X(13) VALUE '87723C760C439'.
           03  FILLER PIC X(13) VALUE '87723C761C439'.
           03  FILLER PIC X(13) VALUE '87723C762C435'.
           03  FILLER PIC X(13) VALUE '87723C763C439'.
           03  FILLER PIC X(13) VALUE '87723C764C436'.
           03  FILLER PIC X(13) VALUE '87723C765C437'.
           03  FILLER PIC X(13) VALUE '87723C767C439'.
           03  FILLER PIC X(13) VALUE '87800C000D220'.
           03  FILLER PIC X(13) VALUE '87800C001D220'.
           03  FILLER PIC X(13) VALUE '87800C002D220'.
           03  FILLER PIC X(13) VALUE '87800C003D220'.
           03  FILLER PIC X(13) VALUE '87800C004D220'.
           03  FILLER PIC X(13) VALUE '87800C005D220'.
           03  FILLER PIC X(13) VALUE '87800C006D220'.
           03  FILLER PIC X(13) VALUE '87800C008D220'.
           03  FILLER PIC X(13) VALUE '87800C009D220'.
           03  FILLER PIC X(13) VALUE '87800C069D103'.
           03  FILLER PIC X(13) VALUE '87800C210D225'.
           03  FILLER PIC X(13) VALUE '87800C440D220'.
           03  FILLER PIC X(13) VALUE '87800C441D221'.
           03  FILLER PIC X(13) VALUE '87800C442D222'.
           03  FILLER PIC X(13) VALUE '87800C443D223'.
           03  FILLER PIC X(13) VALUE '87800C444D224'.
           03  FILLER PIC X(13) VALUE '87800C445D225'.
           03  FILLER PIC X(13) VALUE '87800C446D226'.
           03  FILLER PIC X(13) VALUE '87800C447D227'.
           03  FILLER PIC X(13) VALUE '87800C448D229'.
           03  FILLER PIC X(13) VALUE '87800C449D229'.
           03  FILLER PIC X(13) VALUE '87800C500D225'.
           03  FILLER PIC X(13) VALUE '87800C501D225'.
           03  FILLER PIC X(13) VALUE '87800C502D225'.
           03  FILLER PIC X(13) VALUE '87800C503D225'.
           03  FILLER PIC X(13) VALUE '87800C504D225'.
           03  FILLER PIC X(13) VALUE '87800C505D225'.
           03  FILLER PIC X(13) VALUE '87800C506D225'.
           03  FILLER PIC X(13) VALUE '87800C508D225'.
           03  FILLER PIC X(13) VALUE '87800C509D225'.
           03  FILLER PIC X(13) VALUE '87800C510D280'.
           03  FILLER PIC X(13) VALUE '87800C511D280'.
           03  FILLER PIC X(13) VALUE '87800C512D280'.
           03  FILLER PIC X(13) VALUE '87800C518D280'.
           03  FILLER PIC X(13) VALUE '87800C519D280'.
           03  FILLER PIC X(13) VALUE '87800C600D290'.
           03  FILLER PIC X(13) VALUE '87800C609D290'.
           03  FILLER PIC X(13) VALUE '87800C632D294'.
           03  FILLER PIC X(13) VALUE '87800C639D299'.
           03  FILLER PIC X(13) VALUE '87800C690D310'.
           03  FILLER PIC X(13) VALUE '87800C691D311'.
           03  FILLER PIC X(13) VALUE '87800C692D312'.
           03  FILLER PIC X(13) VALUE '87800C693D313'.
           03  FILLER PIC X(13) VALUE '87800C694D314'.
           03  FILLER PIC X(13) VALUE '87800C695D315'.
           03  FILLER PIC X(13) VALUE '87800C696D316'.
           03  FILLER PIC X(13) VALUE '87800C698D319'.
           03  FILLER PIC X(13) VALUE '87800C699D319'.
           03  FILLER PIC X(13) VALUE '87800C762D225'.
           03  FILLER PIC X(13) VALUE '87800C764D226'.
           03  FILLER PIC X(13) VALUE '87800C765D227'.
           03  FILLER PIC X(13) VALUE '87803C000C430'.
           03  FILLER PIC X(13) VALUE '87803C001C430'.
           03  FILLER PIC X(13) VALUE '87803C002C430'.
           03  FILLER PIC X(13) VALUE '87803C003C430'.
           03  FILLER PIC X(13) VALUE '87803C004C430'.
           03  FILLER PIC X(13) VALUE '87803C005C430'.
           03  FILLER PIC X(13) VALUE '87803C006C430'.
           03  FILLER PIC X(13) VALUE '87803C008C430'.
           03  FILLER PIC X(13) VALUE '87803C009C430'.
           03  FILLER PIC X(13) VALUE '87803C440C430'.
           03  FILLER PIC X(13) VALUE '87803C441C431'.
           03  FILLER PIC X(13) VALUE '87803C442C432'.
           03  FILLER PIC X(13) VALUE '87803C443C433'.
           03  FILLER PIC X(13) VALUE '87803C444C434'.
           03  FILLER PIC X(13) VALUE '87803C445C435'.
           03  FILLER PIC X(13) VALUE '87803C446C436'.
           03  FILLER PIC X(13) VALUE '87803C447C437'.
           03  FILLER PIC X(13) VALUE '87803C448C438'.
           03  FILLER PIC X(13) VALUE '87803C449C439'.
           03  FILLER PIC X(13) VALUE '87803C500C435'.
           03  FILLER PIC X(13) VALUE '87803C501C435'.
           03  FILLER PIC X(13) VALUE '87803C502C435'.
           03  FILLER PIC X(13) VALUE '87803C503C435'.
           03  FILLER PIC X(13) VALUE '87803C504C435'.
           03  FILLER PIC X(13) VALUE '87803C505C435'.
           03  FILLER PIC X(13) VALUE '87803C506C435'.
           03  FILLER PIC X(13) VALUE '87803C508C435'.
           03  FILLER PIC X(13) VALUE '87803C509C435'.
           03  FILLER PIC X(13) VALUE '87803C760C439'.
           03  FILLER PIC X(13) VALUE '87803C761C439'.
           03  FILLER PIC X(13) VALUE '87803C762C435'.
           03  FILLER PIC X(13) VALUE '87803C763C439'.
           03  FILLER PIC X(13) VALUE '87803C764C436'.
           03  FILLER PIC X(13) VALUE '87803C765C437'.
           03  FILLER PIC X(13) VALUE '87803C767C439'.
           03  FILLER PIC X(13) VALUE '87900C000D220'.
           03  FILLER PIC X(13) VALUE '87900C001D220'.
           03  FILLER PIC X(13) VALUE '87900C002D220'.
           03  FILLER PIC X(13) VALUE '87900C003D220'.
           03  FILLER PIC X(13) VALUE '87900C004D220'.
           03  FILLER PIC X(13) VALUE '87900C005D220'.
           03  FILLER PIC X(13) VALUE '87900C006D220'.
           03  FILLER PIC X(13) VALUE '87900C008D220'.
           03  FILLER PIC X(13) VALUE '87900C009D220'.
           03  FILLER PIC X(13) VALUE '87900C069D103'.
           03  FILLER PIC X(13) VALUE '87900C210D225'.
           03  FILLER PIC X(13) VALUE '87900C440D220'.
           03  FILLER PIC X(13) VALUE '87900C441D221'.
           03  FILLER PIC X(13) VALUE '87900C442D222'.
           03  FILLER PIC X(13) VALUE '87900C443D223'.
           03  FILLER PIC X(13) VALUE '87900C444D224'.
           03  FILLER PIC X(13) VALUE '87900C445D225'.
           03  FILLER PIC X(13) VALUE '87900C446D226'.
           03  FILLER PIC X(13) VALUE '87900C447D227'.
           03  FILLER PIC X(13) VALUE '87900C448D229'.
           03  FILLER PIC X(13) VALUE '87900C449D229'.
           03  FILLER PIC X(13) VALUE '87900C500D225'.
           03  FILLER PIC X(13) VALUE '87900C501D225'.
           03  FILLER PIC X(13) VALUE '87900C502D225'.
           03  FILLER PIC X(13) VALUE '87900C503D225'.
           03  FILLER PIC X(13) VALUE '87900C504D225'.
           03  FILLER PIC X(13) VALUE '87900C505D225'.
           03  FILLER PIC X(13) VALUE '87900C506D225'.
           03  FILLER PIC X(13) VALUE '87900C508D225'.
           03  FILLER PIC X(13) VALUE '87900C509D225'.
           03  FILLER PIC X(13) VALUE '87900C510D280'.
           03  FILLER PIC X(13) VALUE '87900C511D280'.
           03  FILLER PIC X(13) VALUE '87900C512D280'.
           03  FILLER PIC X(13) VALUE '87900C518D280'.
           03  FILLER PIC X(13) VALUE '87900C519D280'.
           03  FILLER PIC X(13) VALUE '87900C600D290'.
           03  FILLER PIC X(13) VALUE '87900C609D290'.
           03  FILLER PIC X(13) VALUE '87900C632D294'.
           03  FILLER PIC X(13) VALUE '87900C639D299'.
           03  FILLER PIC X(13) VALUE '87900C690D310'.
           03  FILLER PIC X(13) VALUE '87900C691D311'.
           03  FILLER PIC X(13) VALUE '87900C692D312'.
           03  FILLER PIC X(13) VALUE '87900C693D313'.
           03  FILLER PIC X(13) VALUE '87900C694D314'.
           03  FILLER PIC X(13) VALUE '87900C695D315'.
           03  FILLER PIC X(13) VALUE '87900C696D316'.
           03  FILLER PIC X(13) VALUE '87900C698D319'.
           03  FILLER PIC X(13) VALUE '87900C699D319'.
           03  FILLER PIC X(13) VALUE '87900C762D225'.
           03  FILLER PIC X(13) VALUE '87900C764D226'.
           03  FILLER PIC X(13) VALUE '87900C765D227'.
           03  FILLER PIC X(13) VALUE '88120C400D160'.
           03  FILLER PIC X(13) VALUE '88120C401D161'.
           03  FILLER PIC X(13) VALUE '88120C402D162'.
           03  FILLER PIC X(13) VALUE '88120C403D163'.
           03  FILLER PIC X(13) VALUE '88120C408D169'.
           03  FILLER PIC X(13) VALUE '88120C409D169'.
           03  FILLER PIC X(13) VALUE '88120C410D164'.
           03  FILLER PIC X(13) VALUE '88120C411D165'.
           03  FILLER PIC X(13) VALUE '88120C412D166'.
           03  FILLER PIC X(13) VALUE '88120C413D167'.
           03  FILLER PIC X(13) VALUE '88120C414D168'.
           03  FILLER PIC X(13) VALUE '88123C039C039'.
           03  FILLER PIC X(13) VALUE '88123C400C400'.
           03  FILLER PIC X(13) VALUE '88123C401C401'.
           03  FILLER PIC X(13) VALUE '88123C402C402'.
           03  FILLER PIC X(13) VALUE '88123C403C403'.
           03  FILLER PIC X(13) VALUE '88123C408C408'.
           03  FILLER PIC X(13) VALUE '88123C409C409'.
           03  FILLER PIC X(13) VALUE '88123C410C410'.
           03  FILLER PIC X(13) VALUE '88123C411C411'.
           03  FILLER PIC X(13) VALUE '88123C412C412'.
           03  FILLER PIC X(13) VALUE '88123C413C413'.
           03  FILLER PIC X(13) VALUE '88123C414C414'.
           03  FILLER PIC X(13) VALUE '88123C418C418'.
           03  FILLER PIC X(13) VALUE '88123C419C419'.
           03  FILLER PIC X(13) VALUE '88123C760C410'.
           03  FILLER PIC X(13) VALUE '88123C763C414'.
           03  FILLER PIC X(13) VALUE '88123C764C400'.
           03  FILLER PIC X(13) VALUE '88123C765C402'.
           03  FILLER PIC X(13) VALUE '88320C000D230'.
           03  FILLER PIC X(13) VALUE '88320C001D230'.
           03  FILLER PIC X(13) VALUE '88320C002D230'.
           03  FILLER PIC X(13) VALUE '88320C003D230'.
           03  FILLER PIC X(13) VALUE '88320C004D230'.
           03  FILLER PIC X(13) VALUE '88320C005D230'.
           03  FILLER PIC X(13) VALUE '88320C006D230'.
           03  FILLER PIC X(13) VALUE '88320C008D230'.
           03  FILLER PIC X(13) VALUE '88320C009D230'.
           03  FILLER PIC X(13) VALUE '88320C210D235'.
           03  FILLER PIC X(13) VALUE '88320C440D230'.
           03  FILLER PIC X(13) VALUE '88320C441D231'.
           03  FILLER PIC X(13) VALUE '88320C442D232'.
           03  FILLER PIC X(13) VALUE '88320C443D233'.
           03  FILLER PIC X(13) VALUE '88320C444D234'.
           03  FILLER PIC X(13) VALUE '88320C445D235'.
           03  FILLER PIC X(13) VALUE '88320C446D236'.
           03  FILLER PIC X(13) VALUE '88320C447D237'.
           03  FILLER PIC X(13) VALUE '88320C448D239'.
           03  FILLER PIC X(13) VALUE '88320C449D239'.
           03  FILLER PIC X(13) VALUE '88320C500D235'.
           03  FILLER PIC X(13) VALUE '88320C501D235'.
           03  FILLER PIC X(13) VALUE '88320C502D235'.
           03  FILLER PIC X(13) VALUE '88320C503D235'.
           03  FILLER PIC X(13) VALUE '88320C504D235'.
           03  FILLER PIC X(13) VALUE '88320C505D235'.
           03  FILLER PIC X(13) VALUE '88320C506D235'.
           03  FILLER PIC X(13) VALUE '88320C508D235'.
           03  FILLER PIC X(13) VALUE '88320C509D235'.
           03  FILLER PIC X(13) VALUE '88320C510D280'.
           03  FILLER PIC X(13) VALUE '88320C511D280'.
           03  FILLER PIC X(13) VALUE '88320C512D280'.
           03  FILLER PIC X(13) VALUE '88320C519D280'.
           03  FILLER PIC X(13) VALUE '88320C600D290'.
           03  FILLER PIC X(13) VALUE '88320C609D290'.
           03  FILLER PIC X(13) VALUE '88320C632D294'.
           03  FILLER PIC X(13) VALUE '88320C639D299'.
           03  FILLER PIC X(13) VALUE '88320C760D234'.
           03  FILLER PIC X(13) VALUE '88320C761D235'.
           03  FILLER PIC X(13) VALUE '88320C762D235'.
           03  FILLER PIC X(13) VALUE '88320C764D230'.
           03  FILLER PIC X(13) VALUE '88320C765D236'.
           03  FILLER PIC X(13) VALUE '88321C510D397'.
           03  FILLER PIC X(13) VALUE '88321C511D397'.
           03  FILLER PIC X(13) VALUE '88321C512D397'.
           03  FILLER PIC X(13) VALUE '88321C519D397'.
           03  FILLER PIC X(13) VALUE '88321C600D407'.
           03  FILLER PIC X(13) VALUE '88321C609D407'.
           03  FILLER PIC X(13) VALUE '88321C632D407'.
           03  FILLER PIC X(13) VALUE '88321C639D409'.
           03  FILLER PIC X(13) VALUE '88323C000C440'.
           03  FILLER PIC X(13) VALUE '88323C001C440'.
           03  FILLER PIC X(13) VALUE '88323C002C440'.
           03  FILLER PIC X(13) VALUE '88323C003C440'.
           03  FILLER PIC X(13) VALUE '88323C004C440'.
           03  FILLER PIC X(13) VALUE '88323C005C440'.
           03  FILLER PIC X(13) VALUE '88323C006C440'.
           03  FILLER PIC X(13) VALUE '88323C008C440'.
           03  FILLER PIC X(13) VALUE '88323C009C440'.
           03  FILLER PIC X(13) VALUE '88323C210C445'.
           03  FILLER PIC X(13) VALUE '88323C440C440'.
           03  FILLER PIC X(13) VALUE '88323C441C441'.
           03  FILLER PIC X(13) VALUE '88323C442C442'.
           03  FILLER PIC X(13) VALUE '88323C443C443'.
           03  FILLER PIC X(13) VALUE '88323C444C444'.
           03  FILLER PIC X(13) VALUE '88323C445C445'.
           03  FILLER PIC X(13) VALUE '88323C446C446'.
           03  FILLER PIC X(13) VALUE '88323C447C447'.
           03  FILLER PIC X(13) VALUE '88323C448C448'.
           03  FILLER PIC X(13) VALUE '88323C449C449'.
           03  FILLER PIC X(13) VALUE '88323C500C445'.
           03  FILLER PIC X(13) VALUE '88323C501C445'.
           03  FILLER PIC X(13) VALUE '88323C502C445'.
           03  FILLER PIC X(13) VALUE '88323C503C445'.
           03  FILLER PIC X(13) VALUE '88323C504C445'.
           03  FILLER PIC X(13) VALUE '88323C505C445'.
           03  FILLER PIC X(13) VALUE '88323C506C445'.
           03  FILLER PIC X(13) VALUE '88323C508C445'.
           03  FILLER PIC X(13) VALUE '88323C509C445'.
           03  FILLER PIC X(13) VALUE '88323C510C510'.
           03  FILLER PIC X(13) VALUE '88323C511C511'.
           03  FILLER PIC X(13) VALUE '88323C512C512'.
           03  FILLER PIC X(13) VALUE '88323C519C519'.
           03  FILLER PIC X(13) VALUE '88323C600C600'.
           03  FILLER PIC X(13) VALUE '88323C609C609'.
           03  FILLER PIC X(13) VALUE '88323C632C632'.
           03  FILLER PIC X(13) VALUE '88323C639C639'.
           03  FILLER PIC X(13) VALUE '88323C760C444'.
           03  FILLER PIC X(13) VALUE '88323C761C445'.
           03  FILLER PIC X(13) VALUE '88323C762C445'.
           03  FILLER PIC X(13) VALUE '88323C764C446'.
           03  FILLER PIC X(13) VALUE '88323C765C447'.
           03  FILLER PIC X(13) VALUE '88333C000C440'.
           03  FILLER PIC X(13) VALUE '88333C001C440'.
           03  FILLER PIC X(13) VALUE '88333C002C440'.
           03  FILLER PIC X(13) VALUE '88333C003C440'.
           03  FILLER PIC X(13) VALUE '88333C004C440'.
           03  FILLER PIC X(13) VALUE '88333C005C440'.
           03  FILLER PIC X(13) VALUE '88333C006C440'.
           03  FILLER PIC X(13) VALUE '88333C008C440'.
           03  FILLER PIC X(13) VALUE '88333C009C440'.
           03  FILLER PIC X(13) VALUE '88333C210C445'.
           03  FILLER PIC X(13) VALUE '88333C440C440'.
           03  FILLER PIC X(13) VALUE '88333C441C441'.
           03  FILLER PIC X(13) VALUE '88333C442C442'.
           03  FILLER PIC X(13) VALUE '88333C443C443'.
           03  FILLER PIC X(13) VALUE '88333C444C444'.
           03  FILLER PIC X(13) VALUE '88333C445C445'.
           03  FILLER PIC X(13) VALUE '88333C446C446'.
           03  FILLER PIC X(13) VALUE '88333C447C447'.
           03  FILLER PIC X(13) VALUE '88333C448C448'.
           03  FILLER PIC X(13) VALUE '88333C449C449'.
           03  FILLER PIC X(13) VALUE '88333C500C445'.
           03  FILLER PIC X(13) VALUE '88333C501C445'.
           03  FILLER PIC X(13) VALUE '88333C502C445'.
           03  FILLER PIC X(13) VALUE '88333C503C445'.
           03  FILLER PIC X(13) VALUE '88333C504C445'.
           03  FILLER PIC X(13) VALUE '88333C505C445'.
           03  FILLER PIC X(13) VALUE '88333C506C445'.
           03  FILLER PIC X(13) VALUE '88333C508C445'.
           03  FILLER PIC X(13) VALUE '88333C509C445'.
           03  FILLER PIC X(13) VALUE '88333C510C510'.
           03  FILLER PIC X(13) VALUE '88333C511C511'.
           03  FILLER PIC X(13) VALUE '88333C512C512'.
           03  FILLER PIC X(13) VALUE '88333C519C519'.
           03  FILLER PIC X(13) VALUE '88333C600C600'.
           03  FILLER PIC X(13) VALUE '88333C609C609'.
           03  FILLER PIC X(13) VALUE '88333C632C632'.
           03  FILLER PIC X(13) VALUE '88333C639C639'.
           03  FILLER PIC X(13) VALUE '88333C760C444'.
           03  FILLER PIC X(13) VALUE '88333C761C445'.
           03  FILLER PIC X(13) VALUE '88333C762C445'.
           03  FILLER PIC X(13) VALUE '88333C764C446'.
           03  FILLER PIC X(13) VALUE '88333C765C447'.
           03  FILLER PIC X(13) VALUE '89303C540C540'.
           03  FILLER PIC X(13) VALUE '89713C250C250'.
           03  FILLER PIC X(13) VALUE '89713C251C251'.
           03  FILLER PIC X(13) VALUE '89713C252C252'.
           03  FILLER PIC X(13) VALUE '89713C253C253'.
           03  FILLER PIC X(13) VALUE '89713C254C254'.
           03  FILLER PIC X(13) VALUE '89713C257C257'.
           03  FILLER PIC X(13) VALUE '89713C258C258'.
           03  FILLER PIC X(13) VALUE '89713C259C259'.
           03  FILLER PIC X(13) VALUE '89723C340C340'.
           03  FILLER PIC X(13) VALUE '89723C341C341'.
           03  FILLER PIC X(13) VALUE '89723C342C342'.
           03  FILLER PIC X(13) VALUE '89723C343C343'.
           03  FILLER PIC X(13) VALUE '89723C348C348'.
           03  FILLER PIC X(13) VALUE '89723C349C349'.
           03  FILLER PIC X(13) VALUE '90203C500C500'.
           03  FILLER PIC X(13) VALUE '90203C501C501'.
           03  FILLER PIC X(13) VALUE '90203C502C502'.
           03  FILLER PIC X(13) VALUE '90203C503C503'.
           03  FILLER PIC X(13) VALUE '90203C504C504'.
           03  FILLER PIC X(13) VALUE '90203C505C505'.
           03  FILLER PIC X(13) VALUE '90203C506C506'.
           03  FILLER PIC X(13) VALUE '90203C508C508'.
           03  FILLER PIC X(13) VALUE '90203C509C509'.
           03  FILLER PIC X(13) VALUE '90500C384D190'.
           03  FILLER PIC X(13) VALUE '90500C481D191'.
           03  FILLER PIC X(13) VALUE '90500C482D191'.
           03  FILLER PIC X(13) VALUE '90503C380C452'.
           03  FILLER PIC X(13) VALUE '90503C384C450'.
           03  FILLER PIC X(13) VALUE '90503C481C451'.
           03  FILLER PIC X(13) VALUE '90510C384D190'.
           03  FILLER PIC X(13) VALUE '90510C481D191'.
           03  FILLER PIC X(13) VALUE '90510C482D191'.
           03  FILLER PIC X(13) VALUE '90513C380C452'.
           03  FILLER PIC X(13) VALUE '90513C384C450'.
           03  FILLER PIC X(13) VALUE '90513C481C451'.
           03  FILLER PIC X(13) VALUE '90520C384D190'.
           03  FILLER PIC X(13) VALUE '90520C481D191'.
           03  FILLER PIC X(13) VALUE '90520C482D191'.
           03  FILLER PIC X(13) VALUE '90523C380C452'.
           03  FILLER PIC X(13) VALUE '90523C384C450'.
           03  FILLER PIC X(13) VALUE '90523C481C451'.
           03  FILLER PIC X(13) VALUE '90530C384D190'.
           03  FILLER PIC X(13) VALUE '90530C481D191'.
           03  FILLER PIC X(13) VALUE '90530C482D191'.
           03  FILLER PIC X(13) VALUE '90533C380C452'.
           03  FILLER PIC X(13) VALUE '90533C384C450'.
           03  FILLER PIC X(13) VALUE '90533C481C451'.
           03  FILLER PIC X(13) VALUE '90551C480D484'.
           03  FILLER PIC X(13) VALUE '90551C481D484'.
           03  FILLER PIC X(13) VALUE '90551C482D484'.
           03  FILLER PIC X(13) VALUE '90551C488D484'.
           03  FILLER PIC X(13) VALUE '90813C220C227'.
           03  FILLER PIC X(13) VALUE '91343C339C33 '.
           03  FILLER PIC X(13) VALUE '91343C340C340'.
           03  FILLER PIC X(13) VALUE '91343C341C341'.
           03  FILLER PIC X(13) VALUE '91343C342C342'.
           03  FILLER PIC X(13) VALUE '91343C343C343'.
           03  FILLER PIC X(13) VALUE '91343C348C348'.
           03  FILLER PIC X(13) VALUE '91343C349C349'.
           03  FILLER PIC X(13) VALUE '91403C050C462'.
           03  FILLER PIC X(13) VALUE '91403C051C462'.
           03  FILLER PIC X(13) VALUE '91403C052C462'.
           03  FILLER PIC X(13) VALUE '91403C058C462'.
           03  FILLER PIC X(13) VALUE '91403C059C462'.
           03  FILLER PIC X(13) VALUE '91403C440C460'.
           03  FILLER PIC X(13) VALUE '91403C441C460'.
           03  FILLER PIC X(13) VALUE '91403C442C460'.
           03  FILLER PIC X(13) VALUE '91403C443C460'.
           03  FILLER PIC X(13) VALUE '91403C444C460'.
           03  FILLER PIC X(13) VALUE '91403C445C460'.
           03  FILLER PIC X(13) VALUE '91403C446C460'.
           03  FILLER PIC X(13) VALUE '91403C447C460'.
           03  FILLER PIC X(13) VALUE '91403C448C460'.
           03  FILLER PIC X(13) VALUE '91403C449C460'.
           03  FILLER PIC X(13) VALUE '91403C490C461'.
           03  FILLER PIC X(13) VALUE '91403C491C461'.
           03  FILLER PIC X(13) VALUE '91403C492C461'.
           03  FILLER PIC X(13) VALUE '91403C493C461'.
           03  FILLER PIC X(13) VALUE '91403C494C461'.
           03  FILLER PIC X(13) VALUE '91403C495C461'.
           03  FILLER PIC X(13) VALUE '91403C496C461'.
           03  FILLER PIC X(13) VALUE '91403C498C461'.
           03  FILLER PIC X(13) VALUE '91403C499C461'.
           03  FILLER PIC X(13) VALUE '91403C770C463'.
           03  FILLER PIC X(13) VALUE '91403C771C463'.
           03  FILLER PIC X(13) VALUE '91403C772C463'.
           03  FILLER PIC X(13) VALUE '91403C773C463'.
           03  FILLER PIC X(13) VALUE '91403C774C463'.
           03  FILLER PIC X(13) VALUE '91403C775C463'.
           03  FILLER PIC X(13) VALUE '91403C778C463'.
           03  FILLER PIC X(13) VALUE '91403C779C463'.
           03  FILLER PIC X(13) VALUE '91410C000D230'.
           03  FILLER PIC X(13) VALUE '91410C001D230'.
           03  FILLER PIC X(13) VALUE '91410C002D230'.
           03  FILLER PIC X(13) VALUE '91410C003D230'.
           03  FILLER PIC X(13) VALUE '91410C004D230'.
           03  FILLER PIC X(13) VALUE '91410C005D230'.
           03  FILLER PIC X(13) VALUE '91410C006D230'.
           03  FILLER PIC X(13) VALUE '91410C008D230'.
           03  FILLER PIC X(13) VALUE '91410C009D230'.
           03  FILLER PIC X(13) VALUE '91410C210D235'.
           03  FILLER PIC X(13) VALUE '91410C440D230'.
           03  FILLER PIC X(13) VALUE '91410C441D231'.
           03  FILLER PIC X(13) VALUE '91410C442D232'.
           03  FILLER PIC X(13) VALUE '91410C443D233'.
           03  FILLER PIC X(13) VALUE '91410C444D234'.
           03  FILLER PIC X(13) VALUE '91410C445D235'.
           03  FILLER PIC X(13) VALUE '91410C446D236'.
           03  FILLER PIC X(13) VALUE '91410C447D237'.
           03  FILLER PIC X(13) VALUE '91410C448D239'.
           03  FILLER PIC X(13) VALUE '91410C449D239'.
           03  FILLER PIC X(13) VALUE '91410C500D235'.
           03  FILLER PIC X(13) VALUE '91410C501D235'.
           03  FILLER PIC X(13) VALUE '91410C502D235'.
           03  FILLER PIC X(13) VALUE '91410C503D235'.
           03  FILLER PIC X(13) VALUE '91410C504D235'.
           03  FILLER PIC X(13) VALUE '91410C505D235'.
           03  FILLER PIC X(13) VALUE '91410C506D235'.
           03  FILLER PIC X(13) VALUE '91410C508D235'.
           03  FILLER PIC X(13) VALUE '91410C509D235'.
           03  FILLER PIC X(13) VALUE '91410C510D280'.
           03  FILLER PIC X(13) VALUE '91410C511D280'.
           03  FILLER PIC X(13) VALUE '91410C512D280'.
           03  FILLER PIC X(13) VALUE '91410C519D280'.
           03  FILLER PIC X(13) VALUE '91410C600D290'.
           03  FILLER PIC X(13) VALUE '91410C609D290'.
           03  FILLER PIC X(13) VALUE '91410C632D294'.
           03  FILLER PIC X(13) VALUE '91410C639D299'.
           03  FILLER PIC X(13) VALUE '91410C760D234'.
           03  FILLER PIC X(13) VALUE '91410C761D235'.
           03  FILLER PIC X(13) VALUE '91410C762D235'.
           03  FILLER PIC X(13) VALUE '91410C764D230'.
           03  FILLER PIC X(13) VALUE '91410C765D236'.
           03  FILLER PIC X(13) VALUE '91800C400D160'.
           03  FILLER PIC X(13) VALUE '91800C401D161'.
           03  FILLER PIC X(13) VALUE '91800C402D162'.
           03  FILLER PIC X(13) VALUE '91800C403D163'.
           03  FILLER PIC X(13) VALUE '91800C408D169'.
           03  FILLER PIC X(13) VALUE '91800C409D169'.
           03  FILLER PIC X(13) VALUE '91800C410D164'.
           03  FILLER PIC X(13) VALUE '91800C411D165'.
           03  FILLER PIC X(13) VALUE '91800C412D166'.
           03  FILLER PIC X(13) VALUE '91800C413D167'.
           03  FILLER PIC X(13) VALUE '91800C414D168'.
           03  FILLER PIC X(13) VALUE '91803C400C400'.
           03  FILLER PIC X(13) VALUE '91803C401C401'.
           03  FILLER PIC X(13) VALUE '91803C402C402'.
           03  FILLER PIC X(13) VALUE '91803C403C403'.
           03  FILLER PIC X(13) VALUE '91803C408C408'.
           03  FILLER PIC X(13) VALUE '91803C409C409'.
           03  FILLER PIC X(13) VALUE '91803C410C410'.
           03  FILLER PIC X(13) VALUE '91803C411C411'.
           03  FILLER PIC X(13) VALUE '91803C412C412'.
           03  FILLER PIC X(13) VALUE '91803C413C413'.
           03  FILLER PIC X(13) VALUE '91803C414C414'.
           03  FILLER PIC X(13) VALUE '91803C418C418'.
           03  FILLER PIC X(13) VALUE '91803C419C419'.
           03  FILLER PIC X(13) VALUE '91803C421C969'.
           03  FILLER PIC X(13) VALUE '91813C400C400'.
           03  FILLER PIC X(13) VALUE '91813C401C401'.
           03  FILLER PIC X(13) VALUE '91813C402C402'.
           03  FILLER PIC X(13) VALUE '91813C403C403'.
           03  FILLER PIC X(13) VALUE '91813C408C408'.
           03  FILLER PIC X(13) VALUE '91813C409C409'.
           03  FILLER PIC X(13) VALUE '91813C410C410'.
           03  FILLER PIC X(13) VALUE '91813C411C411'.
           03  FILLER PIC X(13) VALUE '91813C412C412'.
           03  FILLER PIC X(13) VALUE '91813C413C413'.
           03  FILLER PIC X(13) VALUE '91813C414C414'.
           03  FILLER PIC X(13) VALUE '91813C418C418'.
           03  FILLER PIC X(13) VALUE '91813C419C419'.
           03  FILLER PIC X(13) VALUE '91813C421C969'.
           03  FILLER PIC X(13) VALUE '91823C400C400'.
           03  FILLER PIC X(13) VALUE '91823C401C401'.
           03  FILLER PIC X(13) VALUE '91823C402C402'.
           03  FILLER PIC X(13) VALUE '91823C403C403'.
           03  FILLER PIC X(13) VALUE '91823C408C408'.
           03  FILLER PIC X(13) VALUE '91823C409C409'.
           03  FILLER PIC X(13) VALUE '91823C410C410'.
           03  FILLER PIC X(13) VALUE '91823C411C411'.
           03  FILLER PIC X(13) VALUE '91823C412C412'.
           03  FILLER PIC X(13) VALUE '91823C413C413'.
           03  FILLER PIC X(13) VALUE '91823C414C414'.
           03  FILLER PIC X(13) VALUE '91823C418C418'.
           03  FILLER PIC X(13) VALUE '91823C419C419'.
           03  FILLER PIC X(13) VALUE '91823C421C969'.
           03  FILLER PIC X(13) VALUE '91833C400C400'.
           03  FILLER PIC X(13) VALUE '91833C401C401'.
           03  FILLER PIC X(13) VALUE '91833C402C402'.
           03  FILLER PIC X(13) VALUE '91833C403C403'.
           03  FILLER PIC X(13) VALUE '91833C408C408'.
           03  FILLER PIC X(13) VALUE '91833C409C409'.
           03  FILLER PIC X(13) VALUE '91833C410C410'.
           03  FILLER PIC X(13) VALUE '91833C411C411'.
           03  FILLER PIC X(13) VALUE '91833C412C412'.
           03  FILLER PIC X(13) VALUE '91833C413C413'.
           03  FILLER PIC X(13) VALUE '91833C414C414'.
           03  FILLER PIC X(13) VALUE '91833C418C418'.
           03  FILLER PIC X(13) VALUE '91833C419C419'.
           03  FILLER PIC X(13) VALUE '91833C421C969'.
           03  FILLER PIC X(13) VALUE '91843C400C400'.
           03  FILLER PIC X(13) VALUE '91843C401C401'.
           03  FILLER PIC X(13) VALUE '91843C402C402'.
           03  FILLER PIC X(13) VALUE '91843C403C403'.
           03  FILLER PIC X(13) VALUE '91843C408C408'.
           03  FILLER PIC X(13) VALUE '91843C409C409'.
           03  FILLER PIC X(13) VALUE '91843C410C410'.
           03  FILLER PIC X(13) VALUE '91843C411C411'.
           03  FILLER PIC X(13) VALUE '91843C412C412'.
           03  FILLER PIC X(13) VALUE '91843C413C413'.
           03  FILLER PIC X(13) VALUE '91843C414C414'.
           03  FILLER PIC X(13) VALUE '91843C418C418'.
           03  FILLER PIC X(13) VALUE '91843C419C419'.
           03  FILLER PIC X(13) VALUE '91843C421C969'.
           03  FILLER PIC X(13) VALUE '91853C400C400'.
           03  FILLER PIC X(13) VALUE '91853C401C401'.
           03  FILLER PIC X(13) VALUE '91853C402C402'.
           03  FILLER PIC X(13) VALUE '91853C403C403'.
           03  FILLER PIC X(13) VALUE '91853C408C408'.
           03  FILLER PIC X(13) VALUE '91853C409C409'.
           03  FILLER PIC X(13) VALUE '91853C410C410'.
           03  FILLER PIC X(13) VALUE '91853C411C411'.
           03  FILLER PIC X(13) VALUE '91853C412C412'.
           03  FILLER PIC X(13) VALUE '91853C413C413'.
           03  FILLER PIC X(13) VALUE '91853C414C414'.
           03  FILLER PIC X(13) VALUE '91853C418C418'.
           03  FILLER PIC X(13) VALUE '91853C419C419'.
           03  FILLER PIC X(13) VALUE '91853C421C969'.
           03  FILLER PIC X(13) VALUE '91903C400C400'.
           03  FILLER PIC X(13) VALUE '91903C401C401'.
           03  FILLER PIC X(13) VALUE '91903C402C402'.
           03  FILLER PIC X(13) VALUE '91903C403C403'.
           03  FILLER PIC X(13) VALUE '91903C408C408'.
           03  FILLER PIC X(13) VALUE '91903C409C409'.
           03  FILLER PIC X(13) VALUE '91903C410C410'.
           03  FILLER PIC X(13) VALUE '91903C411C411'.
           03  FILLER PIC X(13) VALUE '91903C412C412'.
           03  FILLER PIC X(13) VALUE '91903C413C413'.
           03  FILLER PIC X(13) VALUE '91903C414C414'.
           03  FILLER PIC X(13) VALUE '91903C418C418'.
           03  FILLER PIC X(13) VALUE '91903C419C419'.
           03  FILLER PIC X(13) VALUE '91903C421C969'.
           03  FILLER PIC X(13) VALUE '91910C400D160'.
           03  FILLER PIC X(13) VALUE '91910C401D161'.
           03  FILLER PIC X(13) VALUE '91910C402D162'.
           03  FILLER PIC X(13) VALUE '91910C403D163'.
           03  FILLER PIC X(13) VALUE '91910C408D169'.
           03  FILLER PIC X(13) VALUE '91910C409D169'.
           03  FILLER PIC X(13) VALUE '91910C410D164'.
           03  FILLER PIC X(13) VALUE '91910C411D165'.
           03  FILLER PIC X(13) VALUE '91910C412D166'.
           03  FILLER PIC X(13) VALUE '91910C413D167'.
           03  FILLER PIC X(13) VALUE '91910C414D168'.
           03  FILLER PIC X(13) VALUE '92000C400D160'.
           03  FILLER PIC X(13) VALUE '92000C401D161'.
           03  FILLER PIC X(13) VALUE '92000C402D162'.
           03  FILLER PIC X(13) VALUE '92000C403D163'.
           03  FILLER PIC X(13) VALUE '92000C408D169'.
           03  FILLER PIC X(13) VALUE '92000C409D169'.
           03  FILLER PIC X(13) VALUE '92000C410D164'.
           03  FILLER PIC X(13) VALUE '92000C411D165'.
           03  FILLER PIC X(13) VALUE '92000C412D166'.
           03  FILLER PIC X(13) VALUE '92000C413D167'.
           03  FILLER PIC X(13) VALUE '92000C414D168'.
           03  FILLER PIC X(13) VALUE '92001C400D480'.
           03  FILLER PIC X(13) VALUE '92001C401D480'.
           03  FILLER PIC X(13) VALUE '92001C402D480'.
           03  FILLER PIC X(13) VALUE '92001C403D480'.
           03  FILLER PIC X(13) VALUE '92001C408D480'.
           03  FILLER PIC X(13) VALUE '92001C409D480'.
           03  FILLER PIC X(13) VALUE '92001C410D480'.
           03  FILLER PIC X(13) VALUE '92003C400C400'.
           03  FILLER PIC X(13) VALUE '92003C401C401'.
           03  FILLER PIC X(13) VALUE '92003C402C402'.
           03  FILLER PIC X(13) VALUE '92003C403C403'.
           03  FILLER PIC X(13) VALUE '92003C408C408'.
           03  FILLER PIC X(13) VALUE '92003C409C409'.
           03  FILLER PIC X(13) VALUE '92003C410C410'.
           03  FILLER PIC X(13) VALUE '92003C411C411'.
           03  FILLER PIC X(13) VALUE '92003C412C412'.
           03  FILLER PIC X(13) VALUE '92003C413C413'.
           03  FILLER PIC X(13) VALUE '92003C414C414'.
           03  FILLER PIC X(13) VALUE '92003C418C418'.
           03  FILLER PIC X(13) VALUE '92003C419C419'.
           03  FILLER PIC X(13) VALUE '92003C421C969'.
           03  FILLER PIC X(13) VALUE '92100C400D160'.
           03  FILLER PIC X(13) VALUE '92100C401D161'.
           03  FILLER PIC X(13) VALUE '92100C402D162'.
           03  FILLER PIC X(13) VALUE '92100C403D163'.
           03  FILLER PIC X(13) VALUE '92100C408D169'.
           03  FILLER PIC X(13) VALUE '92100C409D169'.
           03  FILLER PIC X(13) VALUE '92100C410D164'.
           03  FILLER PIC X(13) VALUE '92100C411D165'.
           03  FILLER PIC X(13) VALUE '92100C412D166'.
           03  FILLER PIC X(13) VALUE '92100C413D167'.
           03  FILLER PIC X(13) VALUE '92100C414D168'.
           03  FILLER PIC X(13) VALUE '92200C300D140'.
           03  FILLER PIC X(13) VALUE '92200C321D141'.
           03  FILLER PIC X(13) VALUE '92200C323D141'.
           03  FILLER PIC X(13) VALUE '92200C339D142'.
           03  FILLER PIC X(13) VALUE '92200C340D143'.
           03  FILLER PIC X(13) VALUE '92200C400D160'.
           03  FILLER PIC X(13) VALUE '92200C401D161'.
           03  FILLER PIC X(13) VALUE '92200C402D162'.
           03  FILLER PIC X(13) VALUE '92200C403D163'.
           03  FILLER PIC X(13) VALUE '92200C408D169'.
           03  FILLER PIC X(13) VALUE '92200C409D169'.
           03  FILLER PIC X(13) VALUE '92200C410D164'.
           03  FILLER PIC X(13) VALUE '92200C411D165'.
           03  FILLER PIC X(13) VALUE '92200C412D166'.
           03  FILLER PIC X(13) VALUE '92200C413D167'.
           03  FILLER PIC X(13) VALUE '92200C414D168'.
           03  FILLER PIC X(13) VALUE '92200C419D169'.
           03  FILLER PIC X(13) VALUE '92200C490D210'.
           03  FILLER PIC X(13) VALUE '92201C300D385'.
           03  FILLER PIC X(13) VALUE '92201C321D380'.
           03  FILLER PIC X(13) VALUE '92201C323D380'.
           03  FILLER PIC X(13) VALUE '92201C339D381'.
           03  FILLER PIC X(13) VALUE '92201C340D381'.
           03  FILLER PIC X(13) VALUE '92201C400D480'.
           03  FILLER PIC X(13) VALUE '92201C401D480'.
           03  FILLER PIC X(13) VALUE '92201C402D480'.
           03  FILLER PIC X(13) VALUE '92201C403D480'.
           03  FILLER PIC X(13) VALUE '92201C408D480'.
           03  FILLER PIC X(13) VALUE '92201C409D480'.
           03  FILLER PIC X(13) VALUE '92201C410D480'.
           03  FILLER PIC X(13) VALUE '92201C411D480'.
           03  FILLER PIC X(13) VALUE '92201C412D480'.
           03  FILLER PIC X(13) VALUE '92201C413D480'.
           03  FILLER PIC X(13) VALUE '92201C414D480'.
           03  FILLER PIC X(13) VALUE '92201C418D480'.
           03  FILLER PIC X(13) VALUE '92201C419D480'.
           03  FILLER PIC X(13) VALUE '92201C421D479'.
           03  FILLER PIC X(13) VALUE '92201C490D481'.
           03  FILLER PIC X(13) VALUE '92203C300C300'.
           03  FILLER PIC X(13) VALUE '92203C321C321'.
           03  FILLER PIC X(13) VALUE '92203C323C323'.
           03  FILLER PIC X(13) VALUE '92203C339C33 '.
           03  FILLER PIC X(13) VALUE '92203C340C340'.
           03  FILLER PIC X(13) VALUE '92203C400C400'.
           03  FILLER PIC X(13) VALUE '92203C401C401'.
           03  FILLER PIC X(13) VALUE '92203C402C402'.
           03  FILLER PIC X(13) VALUE '92203C403C403'.
           03  FILLER PIC X(13) VALUE '92203C408C408'.
           03  FILLER PIC X(13) VALUE '92203C409C409'.
           03  FILLER PIC X(13) VALUE '92203C410C410'.
           03  FILLER PIC X(13) VALUE '92203C411C411'.
           03  FILLER PIC X(13) VALUE '92203C412C412'.
           03  FILLER PIC X(13) VALUE '92203C413C413'.
           03  FILLER PIC X(13) VALUE '92203C414C414'.
           03  FILLER PIC X(13) VALUE '92203C418C418'.
           03  FILLER PIC X(13) VALUE '92203C419C419'.
           03  FILLER PIC X(13) VALUE '92203C421C969'.
           03  FILLER PIC X(13) VALUE '92203C490C490'.
           03  FILLER PIC X(13) VALUE '92210C400D160'.
           03  FILLER PIC X(13) VALUE '92210C401D161'.
           03  FILLER PIC X(13) VALUE '92210C402D162'.
           03  FILLER PIC X(13) VALUE '92210C403D163'.
           03  FILLER PIC X(13) VALUE '92210C408D169'.
           03  FILLER PIC X(13) VALUE '92210C409D169'.
           03  FILLER PIC X(13) VALUE '92210C410D164'.
           03  FILLER PIC X(13) VALUE '92210C411D165'.
           03  FILLER PIC X(13) VALUE '92210C412D166'.
           03  FILLER PIC X(13) VALUE '92210C413D167'.
           03  FILLER PIC X(13) VALUE '92210C414D168'.
           03  FILLER PIC X(13) VALUE '92213C400C400'.
           03  FILLER PIC X(13) VALUE '92213C401C401'.
           03  FILLER PIC X(13) VALUE '92213C402C402'.
           03  FILLER PIC X(13) VALUE '92213C403C403'.
           03  FILLER PIC X(13) VALUE '92213C408C408'.
           03  FILLER PIC X(13) VALUE '92213C409C409'.
           03  FILLER PIC X(13) VALUE '92213C410C410'.
           03  FILLER PIC X(13) VALUE '92213C411C411'.
           03  FILLER PIC X(13) VALUE '92213C412C412'.
           03  FILLER PIC X(13) VALUE '92213C413C413'.
           03  FILLER PIC X(13) VALUE '92213C414C414'.
           03  FILLER PIC X(13) VALUE '92213C418C418'.
           03  FILLER PIC X(13) VALUE '92213C419C419'.
           03  FILLER PIC X(13) VALUE '92213C421C969'.
           03  FILLER PIC X(13) VALUE '92300C400D160'.
           03  FILLER PIC X(13) VALUE '92300C401D161'.
           03  FILLER PIC X(13) VALUE '92300C402D162'.
           03  FILLER PIC X(13) VALUE '92300C403D163'.
           03  FILLER PIC X(13) VALUE '92300C408D169'.
           03  FILLER PIC X(13) VALUE '92300C409D169'.
           03  FILLER PIC X(13) VALUE '92300C410D164'.
           03  FILLER PIC X(13) VALUE '92300C411D165'.
           03  FILLER PIC X(13) VALUE '92300C412D166'.
           03  FILLER PIC X(13) VALUE '92300C413D167'.
           03  FILLER PIC X(13) VALUE '92300C414D168'.
           03  FILLER PIC X(13) VALUE '92303C400C400'.
           03  FILLER PIC X(13) VALUE '92303C401C401'.
           03  FILLER PIC X(13) VALUE '92303C402C402'.
           03  FILLER PIC X(13) VALUE '92303C403C403'.
           03  FILLER PIC X(13) VALUE '92303C408C408'.
           03  FILLER PIC X(13) VALUE '92303C409C409'.
           03  FILLER PIC X(13) VALUE '92303C410C410'.
           03  FILLER PIC X(13) VALUE '92303C411C411'.
           03  FILLER PIC X(13) VALUE '92303C412C412'.
           03  FILLER PIC X(13) VALUE '92303C413C413'.
           03  FILLER PIC X(13) VALUE '92303C414C414'.
           03  FILLER PIC X(13) VALUE '92303C418C418'.
           03  FILLER PIC X(13) VALUE '92303C419C419'.
           03  FILLER PIC X(13) VALUE '92303C421C969'.
           03  FILLER PIC X(13) VALUE '92313C300C300'.
           03  FILLER PIC X(13) VALUE '92313C321C321'.
           03  FILLER PIC X(13) VALUE '92313C323C323'.
           03  FILLER PIC X(13) VALUE '92313C339C33 '.
           03  FILLER PIC X(13) VALUE '92313C340C340'.
           03  FILLER PIC X(13) VALUE '92313C400C400'.
           03  FILLER PIC X(13) VALUE '92313C401C401'.
           03  FILLER PIC X(13) VALUE '92313C402C402'.
           03  FILLER PIC X(13) VALUE '92313C403C403'.
           03  FILLER PIC X(13) VALUE '92313C408C408'.
           03  FILLER PIC X(13) VALUE '92313C409C409'.
           03  FILLER PIC X(13) VALUE '92313C410C410'.
           03  FILLER PIC X(13) VALUE '92313C411C411'.
           03  FILLER PIC X(13) VALUE '92313C412C412'.
           03  FILLER PIC X(13) VALUE '92313C413C413'.
           03  FILLER PIC X(13) VALUE '92313C414C414'.
           03  FILLER PIC X(13) VALUE '92313C418C418'.
           03  FILLER PIC X(13) VALUE '92313C419C419'.
           03  FILLER PIC X(13) VALUE '92313C421C969'.
           03  FILLER PIC X(13) VALUE '92313C490C490'.
           03  FILLER PIC X(13) VALUE '92410C400D160'.
           03  FILLER PIC X(13) VALUE '92410C401D161'.
           03  FILLER PIC X(13) VALUE '92410C402D162'.
           03  FILLER PIC X(13) VALUE '92410C403D163'.
           03  FILLER PIC X(13) VALUE '92410C408D169'.
           03  FILLER PIC X(13) VALUE '92410C409D169'.
           03  FILLER PIC X(13) VALUE '92410C410D164'.
           03  FILLER PIC X(13) VALUE '92410C411D165'.
           03  FILLER PIC X(13) VALUE '92410C412D166'.
           03  FILLER PIC X(13) VALUE '92410C413D167'.
           03  FILLER PIC X(13) VALUE '92410C414D168'.
           03  FILLER PIC X(13) VALUE '92503C400C400'.
           03  FILLER PIC X(13) VALUE '92503C401C401'.
           03  FILLER PIC X(13) VALUE '92503C402C402'.
           03  FILLER PIC X(13) VALUE '92503C403C403'.
           03  FILLER PIC X(13) VALUE '92503C408C408'.
           03  FILLER PIC X(13) VALUE '92503C409C409'.
           03  FILLER PIC X(13) VALUE '92503C410C410'.
           03  FILLER PIC X(13) VALUE '92503C411C411'.
           03  FILLER PIC X(13) VALUE '92503C412C412'.
           03  FILLER PIC X(13) VALUE '92503C413C413'.
           03  FILLER PIC X(13) VALUE '92503C414C414'.
           03  FILLER PIC X(13) VALUE '92503C418C418'.
           03  FILLER PIC X(13) VALUE '92503C419C419'.
           03  FILLER PIC X(13) VALUE '92503C421C969'.
           03  FILLER PIC X(13) VALUE '92603C400C400'.
           03  FILLER PIC X(13) VALUE '92603C401C401'.
           03  FILLER PIC X(13) VALUE '92603C402C402'.
           03  FILLER PIC X(13) VALUE '92603C403C403'.
           03  FILLER PIC X(13) VALUE '92603C408C408'.
           03  FILLER PIC X(13) VALUE '92603C409C409'.
           03  FILLER PIC X(13) VALUE '92603C410C410'.
           03  FILLER PIC X(13) VALUE '92603C411C411'.
           03  FILLER PIC X(13) VALUE '92603C412C412'.
           03  FILLER PIC X(13) VALUE '92603C413C413'.
           03  FILLER PIC X(13) VALUE '92603C414C414'.
           03  FILLER PIC X(13) VALUE '92603C418C418'.
           03  FILLER PIC X(13) VALUE '92603C419C419'.
           03  FILLER PIC X(13) VALUE '92603C421C969'.
           03  FILLER PIC X(13) VALUE '92620C400D160'.
           03  FILLER PIC X(13) VALUE '92620C401D161'.
           03  FILLER PIC X(13) VALUE '92620C402D162'.
           03  FILLER PIC X(13) VALUE '92620C403D163'.
           03  FILLER PIC X(13) VALUE '92620C408D169'.
           03  FILLER PIC X(13) VALUE '92620C409D169'.
           03  FILLER PIC X(13) VALUE '92620C410D164'.
           03  FILLER PIC X(13) VALUE '92620C411D165'.
           03  FILLER PIC X(13) VALUE '92620C412D166'.
           03  FILLER PIC X(13) VALUE '92620C413D167'.
           03  FILLER PIC X(13) VALUE '92620C414D168'.
           03  FILLER PIC X(13) VALUE '92700C410D164'.
           03  FILLER PIC X(13) VALUE '92703C410C410'.
           03  FILLER PIC X(13) VALUE '92710C410D164'.
           03  FILLER PIC X(13) VALUE '92720C410D164'.
           03  FILLER PIC X(13) VALUE '92730C410D164'.
           03  FILLER PIC X(13) VALUE '92740C400D160'.
           03  FILLER PIC X(13) VALUE '92740C401D161'.
           03  FILLER PIC X(13) VALUE '92740C402D162'.
           03  FILLER PIC X(13) VALUE '92740C403D163'.
           03  FILLER PIC X(13) VALUE '92740C408D169'.
           03  FILLER PIC X(13) VALUE '92740C409D169'.
           03  FILLER PIC X(13) VALUE '92740C410D164'.
           03  FILLER PIC X(13) VALUE '92740C411D165'.
           03  FILLER PIC X(13) VALUE '92740C412D166'.
           03  FILLER PIC X(13) VALUE '92740C413D167'.
           03  FILLER PIC X(13) VALUE '92740C414D168'.
           03  FILLER PIC X(13) VALUE '92750C410D164'.
           03  FILLER PIC X(13) VALUE '92800C410D164'.
           03  FILLER PIC X(13) VALUE '92810C410D164'.
           03  FILLER PIC X(13) VALUE '92820C410D164'.
           03  FILLER PIC X(13) VALUE '92900C410D164'.
           03  FILLER PIC X(13) VALUE '92903C410C410'.
           03  FILLER PIC X(13) VALUE '93000C410D164'.
           03  FILLER PIC X(13) VALUE '93010C410D164'.
           03  FILLER PIC X(13) VALUE '93020C410D164'.
           03  FILLER PIC X(13) VALUE '93100C410D164'.
           03  FILLER PIC X(13) VALUE '93103C410C410'.
           03  FILLER PIC X(13) VALUE '93110C410D164'.
           03  FILLER PIC X(13) VALUE '93120C410D164'.
           03  FILLER PIC X(13) VALUE '93200C410D164'.
           03  FILLER PIC X(13) VALUE '93210C410D164'.
           03  FILLER PIC X(13) VALUE '93220C410D164'.
           03  FILLER PIC X(13) VALUE '93300C410D164'.
           03  FILLER PIC X(13) VALUE '93303C410C410'.
           03  FILLER PIC X(13) VALUE '93400C410D164'.
           03  FILLER PIC X(13) VALUE '93803C300Q308'.
           03  FILLER PIC X(13) VALUE '93803C301Q308'.
           03  FILLER PIC X(13) VALUE '94003C300Q308'.
           03  FILLER PIC X(13) VALUE '94003C301Q308'.
           03  FILLER PIC X(13) VALUE '95070C000D230'.
           03  FILLER PIC X(13) VALUE '95070C001D230'.
           03  FILLER PIC X(13) VALUE '95070C002D230'.
           03  FILLER PIC X(13) VALUE '95070C003D230'.
           03  FILLER PIC X(13) VALUE '95070C004D230'.
           03  FILLER PIC X(13) VALUE '95070C005D230'.
           03  FILLER PIC X(13) VALUE '95070C006D230'.
           03  FILLER PIC X(13) VALUE '95070C008D230'.
           03  FILLER PIC X(13) VALUE '95070C009D230'.
           03  FILLER PIC X(13) VALUE '95070C210D235'.
           03  FILLER PIC X(13) VALUE '95070C440D230'.
           03  FILLER PIC X(13) VALUE '95070C441D231'.
           03  FILLER PIC X(13) VALUE '95070C442D232'.
           03  FILLER PIC X(13) VALUE '95070C443D233'.
           03  FILLER PIC X(13) VALUE '95070C444D234'.
           03  FILLER PIC X(13) VALUE '95070C445D235'.
           03  FILLER PIC X(13) VALUE '95070C446D236'.
           03  FILLER PIC X(13) VALUE '95070C447D237'.
           03  FILLER PIC X(13) VALUE '95070C448D239'.
           03  FILLER PIC X(13) VALUE '95070C449D239'.
           03  FILLER PIC X(13) VALUE '95070C500D235'.
           03  FILLER PIC X(13) VALUE '95070C501D235'.
           03  FILLER PIC X(13) VALUE '95070C502D235'.
           03  FILLER PIC X(13) VALUE '95070C503D235'.
           03  FILLER PIC X(13) VALUE '95070C504D235'.
           03  FILLER PIC X(13) VALUE '95070C505D235'.
           03  FILLER PIC X(13) VALUE '95070C506D235'.
           03  FILLER PIC X(13) VALUE '95070C508D235'.
           03  FILLER PIC X(13) VALUE '95070C509D235'.
           03  FILLER PIC X(13) VALUE '95070C510D280'.
           03  FILLER PIC X(13) VALUE '95070C511D280'.
           03  FILLER PIC X(13) VALUE '95070C512D280'.
           03  FILLER PIC X(13) VALUE '95070C519D280'.
           03  FILLER PIC X(13) VALUE '95070C600D290'.
           03  FILLER PIC X(13) VALUE '95070C609D290'.
           03  FILLER PIC X(13) VALUE '95070C632D294'.
           03  FILLER PIC X(13) VALUE '95070C639D299'.
           03  FILLER PIC X(13) VALUE '95070C760D234'.
           03  FILLER PIC X(13) VALUE '95070C761D235'.
           03  FILLER PIC X(13) VALUE '95070C762D235'.
           03  FILLER PIC X(13) VALUE '95070C764D230'.
           03  FILLER PIC X(13) VALUE '95070C765D236'.
           03  FILLER PIC X(13) VALUE '95300C700D320'.
           03  FILLER PIC X(13) VALUE '95300C701D321'.
           03  FILLER PIC X(13) VALUE '95300C709D329'.
           03  FILLER PIC X(13) VALUE '95300C710D330'.
           03  FILLER PIC X(13) VALUE '95300C712D330'.
           03  FILLER PIC X(13) VALUE '95300C713D330'.
           03  FILLER PIC X(13) VALUE '95300C714D330'.
           03  FILLER PIC X(13) VALUE '95300C717D331'.
           03  FILLER PIC X(13) VALUE '95300C718D332'.
           03  FILLER PIC X(13) VALUE '95300C719D332'.
           03  FILLER PIC X(13) VALUE '95300C720D334'.
           03  FILLER PIC X(13) VALUE '95300C721D334'.
           03  FILLER PIC X(13) VALUE '95300C722D333'.
           03  FILLER PIC X(13) VALUE '95300C723D333'.
           03  FILLER PIC X(13) VALUE '95300C724D333'.
           03  FILLER PIC X(13) VALUE '95300C725D333'.
           03  FILLER PIC X(13) VALUE '95301C700D420'.
           03  FILLER PIC X(13) VALUE '95301C701D421'.
           03  FILLER PIC X(13) VALUE '95301C709D429'.
           03  FILLER PIC X(13) VALUE '95301C710D430'.
           03  FILLER PIC X(13) VALUE '95301C712D430'.
           03  FILLER PIC X(13) VALUE '95301C713D430'.
           03  FILLER PIC X(13) VALUE '95301C714D430'.
           03  FILLER PIC X(13) VALUE '95301C717D431'.
           03  FILLER PIC X(13) VALUE '95301C718D432'.
           03  FILLER PIC X(13) VALUE '95301C719D432'.
           03  FILLER PIC X(13) VALUE '95301C720D434'.
           03  FILLER PIC X(13) VALUE '95301C721D434'.
           03  FILLER PIC X(13) VALUE '95301C722D433'.
           03  FILLER PIC X(13) VALUE '95301C723D433'.
           03  FILLER PIC X(13) VALUE '95301C724D433'.
           03  FILLER PIC X(13) VALUE '95301C725D433'.
           03  FILLER PIC X(13) VALUE '95303C700C700'.
           03  FILLER PIC X(13) VALUE '95303C701C701'.
           03  FILLER PIC X(13) VALUE '95303C709C709'.
           03  FILLER PIC X(13) VALUE '95303C710C710'.
           03  FILLER PIC X(13) VALUE '95303C712C712'.
           03  FILLER PIC X(13) VALUE '95303C713C713'.
           03  FILLER PIC X(13) VALUE '95303C714C714'.
           03  FILLER PIC X(13) VALUE '95303C717C717'.
           03  FILLER PIC X(13) VALUE '95303C718C718'.
           03  FILLER PIC X(13) VALUE '95303C719C719'.
           03  FILLER PIC X(13) VALUE '95303C720C720'.
           03  FILLER PIC X(13) VALUE '95303C721C721'.
           03  FILLER PIC X(13) VALUE '95303C722C722'.
           03  FILLER PIC X(13) VALUE '95303C723C723'.
           03  FILLER PIC X(13) VALUE '95303C724C724'.
           03  FILLER PIC X(13) VALUE '95303C725C725'.
           03  FILLER PIC X(13) VALUE '95310C700D320'.
           03  FILLER PIC X(13) VALUE '95310C701D321'.
           03  FILLER PIC X(13) VALUE '95310C709D329'.
           03  FILLER PIC X(13) VALUE '95310C710D330'.
           03  FILLER PIC X(13) VALUE '95310C712D330'.
           03  FILLER PIC X(13) VALUE '95310C713D330'.
           03  FILLER PIC X(13) VALUE '95310C714D330'.
           03  FILLER PIC X(13) VALUE '95310C717D331'.
           03  FILLER PIC X(13) VALUE '95310C718D332'.
           03  FILLER PIC X(13) VALUE '95310C719D332'.
           03  FILLER PIC X(13) VALUE '95310C720D334'.
           03  FILLER PIC X(13) VALUE '95310C721D334'.
           03  FILLER PIC X(13) VALUE '95310C722D333'.
           03  FILLER PIC X(13) VALUE '95310C723D333'.
           03  FILLER PIC X(13) VALUE '95310C724D333'.
           03  FILLER PIC X(13) VALUE '95310C725D333'.
           03  FILLER PIC X(13) VALUE '95313C700C700'.
           03  FILLER PIC X(13) VALUE '95313C701C701'.
           03  FILLER PIC X(13) VALUE '95313C709C709'.
           03  FILLER PIC X(13) VALUE '95313C710C710'.
           03  FILLER PIC X(13) VALUE '95313C712C712'.
           03  FILLER PIC X(13) VALUE '95313C713C713'.
           03  FILLER PIC X(13) VALUE '95313C714C714'.
           03  FILLER PIC X(13) VALUE '95313C717C717'.
           03  FILLER PIC X(13) VALUE '95313C718C718'.
           03  FILLER PIC X(13) VALUE '95313C719C719'.
           03  FILLER PIC X(13) VALUE '95313C720C720'.
           03  FILLER PIC X(13) VALUE '95313C721C721'.
           03  FILLER PIC X(13) VALUE '95313C722C722'.
           03  FILLER PIC X(13) VALUE '95313C723C723'.
           03  FILLER PIC X(13) VALUE '95313C724C724'.
           03  FILLER PIC X(13) VALUE '95313C725C725'.
           03  FILLER PIC X(13) VALUE '95320C700D320'.
           03  FILLER PIC X(13) VALUE '95320C701D321'.
           03  FILLER PIC X(13) VALUE '95320C709D329'.
           03  FILLER PIC X(13) VALUE '95320C710D330'.
           03  FILLER PIC X(13) VALUE '95320C712D330'.
           03  FILLER PIC X(13) VALUE '95320C713D330'.
           03  FILLER PIC X(13) VALUE '95320C714D330'.
           03  FILLER PIC X(13) VALUE '95320C717D331'.
           03  FILLER PIC X(13) VALUE '95320C718D332'.
           03  FILLER PIC X(13) VALUE '95320C719D332'.
           03  FILLER PIC X(13) VALUE '95320C720D334'.
           03  FILLER PIC X(13) VALUE '95320C721D334'.
           03  FILLER PIC X(13) VALUE '95320C722D333'.
           03  FILLER PIC X(13) VALUE '95320C723D333'.
           03  FILLER PIC X(13) VALUE '95320C724D333'.
           03  FILLER PIC X(13) VALUE '95320C725D333'.
           03  FILLER PIC X(13) VALUE '95323C700C700'.
           03  FILLER PIC X(13) VALUE '95323C701C701'.
           03  FILLER PIC X(13) VALUE '95323C709C709'.
           03  FILLER PIC X(13) VALUE '95323C710C710'.
           03  FILLER PIC X(13) VALUE '95323C712C712'.
           03  FILLER PIC X(13) VALUE '95323C713C713'.
           03  FILLER PIC X(13) VALUE '95323C714C714'.
           03  FILLER PIC X(13) VALUE '95323C717C717'.
           03  FILLER PIC X(13) VALUE '95323C718C718'.
           03  FILLER PIC X(13) VALUE '95323C719C719'.
           03  FILLER PIC X(13) VALUE '95323C720C720'.
           03  FILLER PIC X(13) VALUE '95323C721C721'.
           03  FILLER PIC X(13) VALUE '95323C722C722'.
           03  FILLER PIC X(13) VALUE '95323C723C723'.
           03  FILLER PIC X(13) VALUE '95323C724C724'.
           03  FILLER PIC X(13) VALUE '95323C725C725'.
           03  FILLER PIC X(13) VALUE '95330C700D320'.
           03  FILLER PIC X(13) VALUE '95330C701D321'.
           03  FILLER PIC X(13) VALUE '95330C709D329'.
           03  FILLER PIC X(13) VALUE '95330C710D330'.
           03  FILLER PIC X(13) VALUE '95330C712D330'.
           03  FILLER PIC X(13) VALUE '95330C713D330'.
           03  FILLER PIC X(13) VALUE '95330C714D330'.
           03  FILLER PIC X(13) VALUE '95330C717D331'.
           03  FILLER PIC X(13) VALUE '95330C718D332'.
           03  FILLER PIC X(13) VALUE '95330C719D332'.
           03  FILLER PIC X(13) VALUE '95330C720D334'.
           03  FILLER PIC X(13) VALUE '95330C721D334'.
           03  FILLER PIC X(13) VALUE '95330C722D333'.
           03  FILLER PIC X(13) VALUE '95330C723D333'.
           03  FILLER PIC X(13) VALUE '95330C724D333'.
           03  FILLER PIC X(13) VALUE '95330C725D333'.
           03  FILLER PIC X(13) VALUE '95340C700D320'.
           03  FILLER PIC X(13) VALUE '95340C701D321'.
           03  FILLER PIC X(13) VALUE '95340C709D329'.
           03  FILLER PIC X(13) VALUE '95340C710D330'.
           03  FILLER PIC X(13) VALUE '95340C712D330'.
           03  FILLER PIC X(13) VALUE '95340C713D330'.
           03  FILLER PIC X(13) VALUE '95340C714D330'.
           03  FILLER PIC X(13) VALUE '95340C717D331'.
           03  FILLER PIC X(13) VALUE '95340C718D332'.
           03  FILLER PIC X(13) VALUE '95340C719D332'.
           03  FILLER PIC X(13) VALUE '95340C720D334'.
           03  FILLER PIC X(13) VALUE '95340C721D334'.
           03  FILLER PIC X(13) VALUE '95340C722D333'.
           03  FILLER PIC X(13) VALUE '95340C723D333'.
           03  FILLER PIC X(13) VALUE '95340C724D333'.
           03  FILLER PIC X(13) VALUE '95340C725D333'.
           03  FILLER PIC X(13) VALUE '95350C700D320'.
           03  FILLER PIC X(13) VALUE '95350C701D321'.
           03  FILLER PIC X(13) VALUE '95350C709D329'.
           03  FILLER PIC X(13) VALUE '95350C710D330'.
           03  FILLER PIC X(13) VALUE '95350C712D330'.
           03  FILLER PIC X(13) VALUE '95350C713D330'.
           03  FILLER PIC X(13) VALUE '95350C714D330'.
           03  FILLER PIC X(13) VALUE '95350C717D331'.
           03  FILLER PIC X(13) VALUE '95350C718D332'.
           03  FILLER PIC X(13) VALUE '95350C719D332'.
           03  FILLER PIC X(13) VALUE '95350C720D334'.
           03  FILLER PIC X(13) VALUE '95350C721D334'.
           03  FILLER PIC X(13) VALUE '95350C722D333'.
           03  FILLER PIC X(13) VALUE '95350C723D333'.
           03  FILLER PIC X(13) VALUE '95350C724D333'.
           03  FILLER PIC X(13) VALUE '95350C725D333'.
           03  FILLER PIC X(13) VALUE '95353C700C700'.
           03  FILLER PIC X(13) VALUE '95353C701C701'.
           03  FILLER PIC X(13) VALUE '95353C709C709'.
           03  FILLER PIC X(13) VALUE '95353C710C710'.
           03  FILLER PIC X(13) VALUE '95353C712C712'.
           03  FILLER PIC X(13) VALUE '95353C713C713'.
           03  FILLER PIC X(13) VALUE '95353C714C714'.
           03  FILLER PIC X(13) VALUE '95353C717C717'.
           03  FILLER PIC X(13) VALUE '95353C718C718'.
           03  FILLER PIC X(13) VALUE '95353C719C719'.
           03  FILLER PIC X(13) VALUE '95353C720C720'.
           03  FILLER PIC X(13) VALUE '95353C721C721'.
           03  FILLER PIC X(13) VALUE '95353C722C722'.
           03  FILLER PIC X(13) VALUE '95353C723C723'.
           03  FILLER PIC X(13) VALUE '95353C724C724'.
           03  FILLER PIC X(13) VALUE '95353C725C725'.
           03  FILLER PIC X(13) VALUE '95360C700D320'.
           03  FILLER PIC X(13) VALUE '95360C701D321'.
           03  FILLER PIC X(13) VALUE '95360C709D329'.
           03  FILLER PIC X(13) VALUE '95360C710D330'.
           03  FILLER PIC X(13) VALUE '95360C712D330'.
           03  FILLER PIC X(13) VALUE '95360C713D330'.
           03  FILLER PIC X(13) VALUE '95360C714D330'.
           03  FILLER PIC X(13) VALUE '95360C717D331'.
           03  FILLER PIC X(13) VALUE '95360C718D332'.
           03  FILLER PIC X(13) VALUE '95360C719D332'.
           03  FILLER PIC X(13) VALUE '95360C720D334'.
           03  FILLER PIC X(13) VALUE '95360C721D334'.
           03  FILLER PIC X(13) VALUE '95360C722D333'.
           03  FILLER PIC X(13) VALUE '95360C723D333'.
           03  FILLER PIC X(13) VALUE '95360C724D333'.
           03  FILLER PIC X(13) VALUE '95360C725D333'.
           03  FILLER PIC X(13) VALUE '95363C700C700'.
           03  FILLER PIC X(13) VALUE '95363C701C701'.
           03  FILLER PIC X(13) VALUE '95363C709C709'.
           03  FILLER PIC X(13) VALUE '95363C710C710'.
           03  FILLER PIC X(13) VALUE '95363C712C712'.
           03  FILLER PIC X(13) VALUE '95363C713C713'.
           03  FILLER PIC X(13) VALUE '95363C714C714'.
           03  FILLER PIC X(13) VALUE '95363C717C717'.
           03  FILLER PIC X(13) VALUE '95363C718C718'.
           03  FILLER PIC X(13) VALUE '95363C719C719'.
           03  FILLER PIC X(13) VALUE '95363C720C720'.
           03  FILLER PIC X(13) VALUE '95363C721C721'.
           03  FILLER PIC X(13) VALUE '95363C722C722'.
           03  FILLER PIC X(13) VALUE '95363C723C723'.
           03  FILLER PIC X(13) VALUE '95363C724C724'.
           03  FILLER PIC X(13) VALUE '95363C725C725'.
           03  FILLER PIC X(13) VALUE '95370C700D320'.
           03  FILLER PIC X(13) VALUE '95370C701D321'.
           03  FILLER PIC X(13) VALUE '95370C709D329'.
           03  FILLER PIC X(13) VALUE '95370C710D330'.
           03  FILLER PIC X(13) VALUE '95370C712D330'.
           03  FILLER PIC X(13) VALUE '95370C713D330'.
           03  FILLER PIC X(13) VALUE '95370C714D330'.
           03  FILLER PIC X(13) VALUE '95370C717D331'.
           03  FILLER PIC X(13) VALUE '95370C718D332'.
           03  FILLER PIC X(13) VALUE '95370C719D332'.
           03  FILLER PIC X(13) VALUE '95370C720D334'.
           03  FILLER PIC X(13) VALUE '95370C721D334'.
           03  FILLER PIC X(13) VALUE '95370C722D333'.
           03  FILLER PIC X(13) VALUE '95370C723D333'.
           03  FILLER PIC X(13) VALUE '95370C724D333'.
           03  FILLER PIC X(13) VALUE '95370C725D333'.
           03  FILLER PIC X(13) VALUE '95373C700C700'.
           03  FILLER PIC X(13) VALUE '95373C701C701'.
           03  FILLER PIC X(13) VALUE '95373C709C709'.
           03  FILLER PIC X(13) VALUE '95373C710C710'.
           03  FILLER PIC X(13) VALUE '95373C712C712'.
           03  FILLER PIC X(13) VALUE '95373C713C713'.
           03  FILLER PIC X(13) VALUE '95373C714C714'.
           03  FILLER PIC X(13) VALUE '95373C717C717'.
           03  FILLER PIC X(13) VALUE '95373C718C718'.
           03  FILLER PIC X(13) VALUE '95373C719C719'.
           03  FILLER PIC X(13) VALUE '95373C720C720'.
           03  FILLER PIC X(13) VALUE '95373C721C721'.
           03  FILLER PIC X(13) VALUE '95373C722C722'.
           03  FILLER PIC X(13) VALUE '95373C723C723'.
           03  FILLER PIC X(13) VALUE '95373C724C724'.
           03  FILLER PIC X(13) VALUE '95373C725C725'.
           03  FILLER PIC X(13) VALUE '95381C700D420'.
           03  FILLER PIC X(13) VALUE '95381C701D421'.
           03  FILLER PIC X(13) VALUE '95381C709D429'.
           03  FILLER PIC X(13) VALUE '95381C710D430'.
           03  FILLER PIC X(13) VALUE '95381C712D430'.
           03  FILLER PIC X(13) VALUE '95381C713D430'.
           03  FILLER PIC X(13) VALUE '95381C714D430'.
           03  FILLER PIC X(13) VALUE '95381C717D431'.
           03  FILLER PIC X(13) VALUE '95381C718D432'.
           03  FILLER PIC X(13) VALUE '95381C719D432'.
           03  FILLER PIC X(13) VALUE '95381C720D434'.
           03  FILLER PIC X(13) VALUE '95381C721D434'.
           03  FILLER PIC X(13) VALUE '95381C722D433'.
           03  FILLER PIC X(13) VALUE '95381C723D433'.
           03  FILLER PIC X(13) VALUE '95381C724D433'.
           03  FILLER PIC X(13) VALUE '95381C725D433'.
           03  FILLER PIC X(13) VALUE '95383C700C700'.
           03  FILLER PIC X(13) VALUE '95383C701C701'.
           03  FILLER PIC X(13) VALUE '95383C709C709'.
           03  FILLER PIC X(13) VALUE '95383C710C710'.
           03  FILLER PIC X(13) VALUE '95383C712C712'.
           03  FILLER PIC X(13) VALUE '95383C713C713'.
           03  FILLER PIC X(13) VALUE '95383C714C714'.
           03  FILLER PIC X(13) VALUE '95383C717C717'.
           03  FILLER PIC X(13) VALUE '95383C718C718'.
           03  FILLER PIC X(13) VALUE '95383C719C719'.
           03  FILLER PIC X(13) VALUE '95383C720C720'.
           03  FILLER PIC X(13) VALUE '95383C721C721'.
           03  FILLER PIC X(13) VALUE '95383C722C722'.
           03  FILLER PIC X(13) VALUE '95383C723C723'.
           03  FILLER PIC X(13) VALUE '95383C724C724'.
           03  FILLER PIC X(13) VALUE '95383C725C725'.
           03  FILLER PIC X(13) VALUE '95393C700C700'.
           03  FILLER PIC X(13) VALUE '95393C701C701'.
           03  FILLER PIC X(13) VALUE '95393C709C709'.
           03  FILLER PIC X(13) VALUE '95393C710C710'.
           03  FILLER PIC X(13) VALUE '95393C712C712'.
           03  FILLER PIC X(13) VALUE '95393C713C713'.
           03  FILLER PIC X(13) VALUE '95393C714C714'.
           03  FILLER PIC X(13) VALUE '95393C717C717'.
           03  FILLER PIC X(13) VALUE '95393C718C718'.
           03  FILLER PIC X(13) VALUE '95393C719C719'.
           03  FILLER PIC X(13) VALUE '95393C720C720'.
           03  FILLER PIC X(13) VALUE '95393C721C721'.
           03  FILLER PIC X(13) VALUE '95393C722C722'.
           03  FILLER PIC X(13) VALUE '95393C723C723'.
           03  FILLER PIC X(13) VALUE '95393C724C724'.
           03  FILLER PIC X(13) VALUE '95393C725C725'.
 
       01  SPECIAL-TABLE REDEFINES SPECIAL.
           02  SPEC-ENTRY OCCURS 4671 TIMES
               ASCENDING KEY IS HIST-IN
               ASCENDING KEY IS BEH-IN
               ASCENDING KEY IS ICD-O-2-IN
               INDEXED BY SPEC-INDX.
               03  HIST-IN                     PIC X(4).
               03  BEH-IN                      PIC X(1).
               03  ICD-O-2-IN                  PIC X(4).
               03  ICD10-SPEC                  PIC X(4).
 
 
      *****************************************************
      *                                                   *
      * CONVERT-SITE USES TEMP-SITE-CELL.                 *
      *                                                   *
      *****************************************************
 
       01  SITE.
           03  SITE-ENTRY-C000 PIC X(25) VALUE
               'D100 D370 D000 C000 C798 '.
           03  SITE-ENTRY-C001 PIC X(25) VALUE
               'D100 D370 D000 C001 C798 '.
           03  SITE-ENTRY-C002 PIC X(25) VALUE
               'D100 D370 D000 C002 C798 '.
           03  SITE-ENTRY-C003 PIC X(25) VALUE
               'D100 D370 D000 C003 C798 '.
           03  SITE-ENTRY-C004 PIC X(25) VALUE
               'D100 D370 D000 C004 C798 '.
           03  SITE-ENTRY-C005 PIC X(25) VALUE
               'D100 D370 D000 C005 C798 '.
           03  SITE-ENTRY-C006 PIC X(25) VALUE
               'D100 D370 D000 C006 C798 '.
           03  SITE-ENTRY-C007 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C008 PIC X(25) VALUE
               'D100 D370 D000 C008 C798 '.
           03  SITE-ENTRY-C009 PIC X(25) VALUE
               'D100 D370 D000 C009 C798 '.
           03  SITE-ENTRY-C010 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C011 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C012 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C013 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C014 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C015 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C016 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C017 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C018 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C019 PIC X(25) VALUE
               'D101 D370 D000 C01  C798 '.
           03  SITE-ENTRY-C020 PIC X(25) VALUE
               'D101 D370 D000 C020 C798 '.
           03  SITE-ENTRY-C021 PIC X(25) VALUE
               'D101 D370 D000 C021 C798 '.
           03  SITE-ENTRY-C022 PIC X(25) VALUE
               'D101 D370 D000 C022 C798 '.
           03  SITE-ENTRY-C023 PIC X(25) VALUE
               'D101 D370 D000 C023 C798 '.
           03  SITE-ENTRY-C024 PIC X(25) VALUE
               'D101 D370 D000 C024 C798 '.
           03  SITE-ENTRY-C025 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C026 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C027 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C028 PIC X(25) VALUE
               'D101 D370 D000 C028 C798 '.
           03  SITE-ENTRY-C029 PIC X(25) VALUE
               'D101 D370 D000 C029 C798 '.
           03  SITE-ENTRY-C030 PIC X(25) VALUE
               'D103 D370 D000 C030 C798 '.
           03  SITE-ENTRY-C031 PIC X(25) VALUE
               'D103 D370 D000 C031 C798 '.
           03  SITE-ENTRY-C032 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C033 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C034 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C035 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C036 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C037 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C038 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C039 PIC X(25) VALUE
               'D103 D370 D000 C039 C798 '.
           03  SITE-ENTRY-C040 PIC X(25) VALUE
               'D102 D370 D000 C040 C798 '.
           03  SITE-ENTRY-C041 PIC X(25) VALUE
               'D102 D370 D000 C041 C798 '.
           03  SITE-ENTRY-C042 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C043 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C044 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C045 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C046 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C047 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C048 PIC X(25) VALUE
               'D102 D370 D000 C048 C798 '.
           03  SITE-ENTRY-C049 PIC X(25) VALUE
               'D102 D370 D000 C049 C798 '.
           03  SITE-ENTRY-C050 PIC X(25) VALUE
               'D103 D370 D000 C050 C798 '.
           03  SITE-ENTRY-C051 PIC X(25) VALUE
               'D103 D370 D000 C051 C798 '.
           03  SITE-ENTRY-C052 PIC X(25) VALUE
               'D103 D370 D000 C052 C798 '.
           03  SITE-ENTRY-C053 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C054 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C055 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C056 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C057 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C058 PIC X(25) VALUE
               'D103 D370 D000 C058 C798 '.
           03  SITE-ENTRY-C059 PIC X(25) VALUE
               'D103 D370 D000 C059 C798 '.
           03  SITE-ENTRY-C060 PIC X(25) VALUE
               'D103 D370 D000 C060 C798 '.
           03  SITE-ENTRY-C061 PIC X(25) VALUE
               'D103 D370 D000 C061 C798 '.
           03  SITE-ENTRY-C062 PIC X(25) VALUE
               'D103 D370 D000 C062 C798 '.
           03  SITE-ENTRY-C063 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C064 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C065 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C066 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C067 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C068 PIC X(25) VALUE
               'D103 D370 D000 C068 C798 '.
           03  SITE-ENTRY-C069 PIC X(25) VALUE
               'D103 D370 D000 C069 C798 '.
           03  SITE-ENTRY-C070 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C071 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C072 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C073 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C074 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C075 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C076 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C077 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C078 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C079 PIC X(25) VALUE
               'D110 D370 D000 C07  C798 '.
           03  SITE-ENTRY-C080 PIC X(25) VALUE
               'D117 D370 D000 C080 C798 '.
           03  SITE-ENTRY-C081 PIC X(25) VALUE
               'D117 D370 D000 C081 C798 '.
           03  SITE-ENTRY-C082 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C083 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C084 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C085 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C086 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C087 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C088 PIC X(25) VALUE
               'D119 D370 D000 C088 C798 '.
           03  SITE-ENTRY-C089 PIC X(25) VALUE
               'D119 D370 D000 C089 C798 '.
           03  SITE-ENTRY-C090 PIC X(25) VALUE
               'D105 D370 D000 C090 C798 '.
           03  SITE-ENTRY-C091 PIC X(25) VALUE
               'D105 D370 D000 C091 C798 '.
           03  SITE-ENTRY-C092 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C093 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C094 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C095 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C096 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C097 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C098 PIC X(25) VALUE
               'D104 D370 D000 C098 C798 '.
           03  SITE-ENTRY-C099 PIC X(25) VALUE
               'D104 D370 D000 C099 C798 '.
           03  SITE-ENTRY-C100 PIC X(25) VALUE
               'D105 D370 D000 C100 C798 '.
           03  SITE-ENTRY-C101 PIC X(25) VALUE
               'D105 D370 D000 C101 C798 '.
           03  SITE-ENTRY-C102 PIC X(25) VALUE
               'D105 D370 D000 C102 C798 '.
           03  SITE-ENTRY-C103 PIC X(25) VALUE
               'D105 D370 D000 C103 C798 '.
           03  SITE-ENTRY-C104 PIC X(25) VALUE
               'D105 D370 D000 C104 C798 '.
           03  SITE-ENTRY-C105 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C106 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C107 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C108 PIC X(25) VALUE
               'D105 D370 D000 C108 C798 '.
           03  SITE-ENTRY-C109 PIC X(25) VALUE
               'D105 D370 D000 C109 C798 '.
           03  SITE-ENTRY-C110 PIC X(25) VALUE
               'D106 D370 D000 C110 C798 '.
           03  SITE-ENTRY-C111 PIC X(25) VALUE
               'D106 D370 D000 C111 C798 '.
           03  SITE-ENTRY-C112 PIC X(25) VALUE
               'D106 D370 D000 C112 C798 '.
           03  SITE-ENTRY-C113 PIC X(25) VALUE
               'D106 D370 D000 C113 C798 '.
           03  SITE-ENTRY-C114 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C115 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C116 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C117 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C118 PIC X(25) VALUE
               'D106 D370 D000 C118 C798 '.
           03  SITE-ENTRY-C119 PIC X(25) VALUE
               'D106 D370 D000 C119 C798 '.
           03  SITE-ENTRY-C120 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C121 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C122 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C123 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C124 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C125 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C126 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C127 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C128 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C129 PIC X(25) VALUE
               'D107 D370 D000 C12  C798 '.
           03  SITE-ENTRY-C130 PIC X(25) VALUE
               'D107 D370 D000 C130 C798 '.
           03  SITE-ENTRY-C131 PIC X(25) VALUE
               'D107 D370 D000 C131 C798 '.
           03  SITE-ENTRY-C132 PIC X(25) VALUE
               'D107 D370 D000 C132 C798 '.
           03  SITE-ENTRY-C133 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C134 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C135 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C136 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C137 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C138 PIC X(25) VALUE
               'D107 D370 D000 C138 C798 '.
           03  SITE-ENTRY-C139 PIC X(25) VALUE
               'D107 D370 D000 C139 C798 '.
           03  SITE-ENTRY-C140 PIC X(25) VALUE
               'D109 D370 D000 C140 C798 '.
           03  SITE-ENTRY-C141 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C142 PIC X(25) VALUE
               'D109 D370 D000 C142 C798 '.
           03  SITE-ENTRY-C143 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C144 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C145 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C146 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C147 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C148 PIC X(25) VALUE
               '9999 D370 D000 C148 C798 '.
           03  SITE-ENTRY-C149 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C150 PIC X(25) VALUE
               'D130 D377 D001 C150 C788 '.
           03  SITE-ENTRY-C151 PIC X(25) VALUE
               'D130 D377 D001 C151 C788 '.
           03  SITE-ENTRY-C152 PIC X(25) VALUE
               'D130 D377 D001 C152 C788 '.
           03  SITE-ENTRY-C153 PIC X(25) VALUE
               'D130 D377 D001 C153 C788 '.
           03  SITE-ENTRY-C154 PIC X(25) VALUE
               'D130 D377 D001 C154 C788 '.
           03  SITE-ENTRY-C155 PIC X(25) VALUE
               'D130 D377 D001 C155 C788 '.
           03  SITE-ENTRY-C156 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C157 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C158 PIC X(25) VALUE
               'D130 D377 D001 C158 C788 '.
           03  SITE-ENTRY-C159 PIC X(25) VALUE
               'D130 D377 D001 C159 C788 '.
           03  SITE-ENTRY-C160 PIC X(25) VALUE
               'D131 D371 D002 C160 C788 '.
           03  SITE-ENTRY-C161 PIC X(25) VALUE
               'D131 D371 D002 C161 C788 '.
           03  SITE-ENTRY-C162 PIC X(25) VALUE
               'D131 D371 D002 C162 C788 '.
           03  SITE-ENTRY-C163 PIC X(25) VALUE
               'D131 D371 D002 C163 C788 '.
           03  SITE-ENTRY-C164 PIC X(25) VALUE
               'D131 D371 D002 C164 C788 '.
           03  SITE-ENTRY-C165 PIC X(25) VALUE
               'D131 D371 D002 C165 C788 '.
           03  SITE-ENTRY-C166 PIC X(25) VALUE
               'D131 D371 D002 C166 C788 '.
           03  SITE-ENTRY-C167 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C168 PIC X(25) VALUE
               'D131 D371 D002 C168 C788 '.
           03  SITE-ENTRY-C169 PIC X(25) VALUE
               'D131 D371 D002 C169 C788 '.
           03  SITE-ENTRY-C170 PIC X(25) VALUE
               'D132 D372 D014 C170 C784 '.
           03  SITE-ENTRY-C171 PIC X(25) VALUE
               'D133 D372 D014 C171 C784 '.
           03  SITE-ENTRY-C172 PIC X(25) VALUE
               'D133 D372 D014 C172 C784 '.
           03  SITE-ENTRY-C173 PIC X(25) VALUE
               'D133 D372 D014 C173 C784 '.
           03  SITE-ENTRY-C174 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C175 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C176 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C177 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C178 PIC X(25) VALUE
               'D133 D372 D014 C178 C784 '.
           03  SITE-ENTRY-C179 PIC X(25) VALUE
               'D133 D372 D014 C179 C784 '.
           03  SITE-ENTRY-C180 PIC X(25) VALUE
               'D120 D374 D010 C180 C785 '.
           03  SITE-ENTRY-C181 PIC X(25) VALUE
               'D121 D373 D010 C181 C785 '.
           03  SITE-ENTRY-C182 PIC X(25) VALUE
               'D122 D374 D010 C182 C785 '.
           03  SITE-ENTRY-C183 PIC X(25) VALUE
               'D123 D374 D010 C183 C785 '.
           03  SITE-ENTRY-C184 PIC X(25) VALUE
               'D123 D374 D010 C184 C785 '.
           03  SITE-ENTRY-C185 PIC X(25) VALUE
               'D123 D374 D010 C185 C785 '.
           03  SITE-ENTRY-C186 PIC X(25) VALUE
               'D124 D374 D010 C186 C785 '.
           03  SITE-ENTRY-C187 PIC X(25) VALUE
               'D125 D374 D010 C187 C785 '.
           03  SITE-ENTRY-C188 PIC X(25) VALUE
               'D126 D374 D010 C188 C785 '.
           03  SITE-ENTRY-C189 PIC X(25) VALUE
               'D126 D374 D010 C189 C785 '.
           03  SITE-ENTRY-C190 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C191 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C192 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C193 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C194 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C195 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C196 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C197 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C198 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C199 PIC X(25) VALUE
               'D127 D375 D011 C19  C785 '.
           03  SITE-ENTRY-C200 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C201 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C202 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C203 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C204 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C205 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C206 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C207 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C208 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C209 PIC X(25) VALUE
               'D128 D375 D012 C20  C785 '.
           03  SITE-ENTRY-C210 PIC X(25) VALUE
               'D129 D377 D013 C210 C785 '.
           03  SITE-ENTRY-C211 PIC X(25) VALUE
               'D129 D377 D013 C211 C785 '.
           03  SITE-ENTRY-C212 PIC X(25) VALUE
               'D129 D377 D013 C212 C785 '.
           03  SITE-ENTRY-C213 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C214 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C215 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C216 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C217 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C218 PIC X(25) VALUE
               'D129 D377 D013 C218 C785 '.
           03  SITE-ENTRY-C219 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C220 PIC X(25) VALUE
               'D134 D376 D015 C229 C787 '.
           03  SITE-ENTRY-C221 PIC X(25) VALUE
               'D134 D376 D015 C221 C788 '.
           03  SITE-ENTRY-C222 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C223 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C224 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C225 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C226 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C227 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C228 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C229 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C230 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C231 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C232 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C233 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C234 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C235 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C236 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C237 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C238 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C239 PIC X(25) VALUE
               'D135 D376 D015 C23  C788 '.
           03  SITE-ENTRY-C240 PIC X(25) VALUE
               'D135 D376 D015 C240 C788 '.
           03  SITE-ENTRY-C241 PIC X(25) VALUE
               'D135 D376 D015 C241 C788 '.
           03  SITE-ENTRY-C242 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C243 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C244 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C245 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C246 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C247 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C248 PIC X(25) VALUE
               'D135 D376 D015 C248 C788 '.
           03  SITE-ENTRY-C249 PIC X(25) VALUE
               'D135 D376 D015 C249 C788 '.
           03  SITE-ENTRY-C250 PIC X(25) VALUE
               'D136 D377 D017 C250 C788 '.
           03  SITE-ENTRY-C251 PIC X(25) VALUE
               'D136 D377 D017 C251 C788 '.
           03  SITE-ENTRY-C252 PIC X(25) VALUE
               'D136 D377 D017 C252 C788 '.
           03  SITE-ENTRY-C253 PIC X(25) VALUE
               'D136 D377 D017 C253 C788 '.
           03  SITE-ENTRY-C254 PIC X(25) VALUE
               'D137 D377 D017 C254 C788 '.
           03  SITE-ENTRY-C255 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C256 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C257 PIC X(25) VALUE
               'D136 D377 D017 C257 C788 '.
           03  SITE-ENTRY-C258 PIC X(25) VALUE
               'D136 D377 D017 C258 C788 '.
           03  SITE-ENTRY-C259 PIC X(25) VALUE
               'D136 D377 D017 C259 C788 '.
           03  SITE-ENTRY-C260 PIC X(25) VALUE
               'D139 D377 D014 C260 C785 '.
           03  SITE-ENTRY-C261 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C262 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C263 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C264 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C265 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C266 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C267 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C268 PIC X(25) VALUE
               'D139 D377 D019 C268 C788 '.
           03  SITE-ENTRY-C269 PIC X(25) VALUE
               'D139 D379 D019 C269 C788 '.
           03  SITE-ENTRY-C270 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C271 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C272 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C273 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C274 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C275 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C276 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C277 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C278 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C279 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C280 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C281 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C282 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C283 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C284 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C285 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C286 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C287 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C288 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C289 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C290 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C291 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C292 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C293 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C294 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C295 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C296 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C297 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C298 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C299 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C300 PIC X(25) VALUE
               'D140 D385 D023 C300 C783 '.
           03  SITE-ENTRY-C301 PIC X(25) VALUE
               'D140 D385 D023 C301 C783 '.
           03  SITE-ENTRY-C302 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C303 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C304 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C305 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C306 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C307 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C308 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C309 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C310 PIC X(25) VALUE
               'D140 D385 D023 C310 C783 '.
           03  SITE-ENTRY-C311 PIC X(25) VALUE
               'D140 D385 D023 C311 C783 '.
           03  SITE-ENTRY-C312 PIC X(25) VALUE
               'D140 D385 D023 C312 C783 '.
           03  SITE-ENTRY-C313 PIC X(25) VALUE
               'D140 D385 D023 C313 C783 '.
           03  SITE-ENTRY-C314 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C315 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C316 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C317 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C318 PIC X(25) VALUE
               'D140 D385 D023 C318 C783 '.
           03  SITE-ENTRY-C319 PIC X(25) VALUE
               'D140 D385 D023 C319 C783 '.
           03  SITE-ENTRY-C320 PIC X(25) VALUE
               'D141 D380 D020 C320 C783 '.
           03  SITE-ENTRY-C321 PIC X(25) VALUE
               'D141 D380 D020 C321 C783 '.
           03  SITE-ENTRY-C322 PIC X(25) VALUE
               'D141 D380 D020 C322 C783 '.
           03  SITE-ENTRY-C323 PIC X(25) VALUE
               'D141 D380 D020 C323 C783 '.
           03  SITE-ENTRY-C324 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C325 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C326 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C327 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C328 PIC X(25) VALUE
               'D141 D380 D020 C328 C783 '.
           03  SITE-ENTRY-C329 PIC X(25) VALUE
               'D141 D380 D020 C329 C783 '.
           03  SITE-ENTRY-C330 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C331 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C332 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C333 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C334 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C335 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C336 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C337 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C338 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C339 PIC X(25) VALUE
               'D142 D381 D021 C33  C783 '.
           03  SITE-ENTRY-C340 PIC X(25) VALUE
               'D143 D381 D022 C340 C780 '.
           03  SITE-ENTRY-C341 PIC X(25) VALUE
               'D143 D381 D022 C341 C780 '.
           03  SITE-ENTRY-C342 PIC X(25) VALUE
               'D143 D381 D022 C342 C780 '.
           03  SITE-ENTRY-C343 PIC X(25) VALUE
               'D143 D381 D022 C343 C780 '.
           03  SITE-ENTRY-C344 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C345 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C346 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C347 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C348 PIC X(25) VALUE
               'D143 D381 D022 C348 C780 '.
           03  SITE-ENTRY-C349 PIC X(25) VALUE
               'D143 D381 D022 C349 C780 '.
           03  SITE-ENTRY-C350 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C351 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C352 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C353 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C354 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C355 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C356 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C357 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C358 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C359 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C360 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C361 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C362 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C363 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C364 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C365 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C366 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C367 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C368 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C369 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C370 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C371 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C372 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C373 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C374 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C375 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C376 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C377 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C378 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C379 PIC X(25) VALUE
               'D150 D384 D093 C37  C798 '.
           03  SITE-ENTRY-C380 PIC X(25) VALUE
               'D151 D487 9999 C380 C798 '.
           03  SITE-ENTRY-C381 PIC X(25) VALUE
               'D152 D383 9999 C381 C781 '.
           03  SITE-ENTRY-C382 PIC X(25) VALUE
               'D152 D383 9999 C382 C781 '.
           03  SITE-ENTRY-C383 PIC X(25) VALUE
               'D152 D383 9999 C383 C781 '.
           03  SITE-ENTRY-C384 PIC X(25) VALUE
               'D157 D382 9999 C384 C782 '.
           03  SITE-ENTRY-C385 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C386 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C387 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C388 PIC X(25) VALUE
               '9999 9999 9999 C388 C798 '.
           03  SITE-ENTRY-C389 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C390 PIC X(25) VALUE
               'D144 D386 D024 C390 C783 '.
           03  SITE-ENTRY-C391 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C392 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C393 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C394 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C395 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C396 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C397 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C398 PIC X(25) VALUE
               'D144 D386 D024 C398 C783 '.
           03  SITE-ENTRY-C399 PIC X(25) VALUE
               'D144 D386 D024 C399 C783 '.
           03  SITE-ENTRY-C400 PIC X(25) VALUE
               'D160 D480 9999 C400 C795 '.
           03  SITE-ENTRY-C401 PIC X(25) VALUE
               'D161 D480 9999 C401 C795 '.
           03  SITE-ENTRY-C402 PIC X(25) VALUE
               'D162 D480 9999 C402 C795 '.
           03  SITE-ENTRY-C403 PIC X(25) VALUE
               'D163 D480 9999 C403 C795 '.
           03  SITE-ENTRY-C404 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C405 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C406 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C407 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C408 PIC X(25) VALUE
               'D169 D480 9999 C408 C795 '.
           03  SITE-ENTRY-C409 PIC X(25) VALUE
               'D169 D480 9999 C409 C795 '.
           03  SITE-ENTRY-C410 PIC X(25) VALUE
               'D164 D480 9999 C410 C795 '.
           03  SITE-ENTRY-C411 PIC X(25) VALUE
               'D165 D480 9999 C411 C795 '.
           03  SITE-ENTRY-C412 PIC X(25) VALUE
               'D166 D480 9999 C412 C795 '.
           03  SITE-ENTRY-C413 PIC X(25) VALUE
               'D167 D480 9999 C413 C795 '.
           03  SITE-ENTRY-C414 PIC X(25) VALUE
               'D168 D480 9999 C414 C795 '.
           03  SITE-ENTRY-C415 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C416 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C417 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C418 PIC X(25) VALUE
               'D169 D480 9999 C418 C795 '.
           03  SITE-ENTRY-C419 PIC X(25) VALUE
               'D169 D480 9999 C419 C795 '.
           03  SITE-ENTRY-C420 PIC X(25) VALUE
               'HHHH HHHH HHHH HHHH HHHH '.
           03  SITE-ENTRY-C421 PIC X(25) VALUE
               'HHHH D479 HHHH C969 C795 '.
           03  SITE-ENTRY-C422 PIC X(25) VALUE
               'D139 D377 9999 C261 C788 '.
           03  SITE-ENTRY-C423 PIC X(25) VALUE
               'HHHH HHHH HHHH HHHH HHHH '.
           03  SITE-ENTRY-C424 PIC X(25) VALUE
               '9999 D479 9999 C969 9999 '.
           03  SITE-ENTRY-C425 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C426 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C427 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C428 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C429 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C430 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C431 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C432 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C433 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C434 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C435 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C436 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C437 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C438 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C439 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C440 PIC X(25) VALUE
               'D230 D485 D040 C440 C792 '.
           03  SITE-ENTRY-C441 PIC X(25) VALUE
               'D231 D485 D041 C441 C792 '.
           03  SITE-ENTRY-C442 PIC X(25) VALUE
               'D232 D485 D042 C442 C792 '.
           03  SITE-ENTRY-C443 PIC X(25) VALUE
               'D233 D485 D043 C443 C792 '.
           03  SITE-ENTRY-C444 PIC X(25) VALUE
               'D234 D485 D044 C444 C792 '.
           03  SITE-ENTRY-C445 PIC X(25) VALUE
               'D235 D485 D045 C445 C792 '.
           03  SITE-ENTRY-C446 PIC X(25) VALUE
               'D236 D485 D046 C446 C792 '.
           03  SITE-ENTRY-C447 PIC X(25) VALUE
               'D237 D485 D047 C447 C792 '.
           03  SITE-ENTRY-C448 PIC X(25) VALUE
               'D239 D485 D049 C448 C792 '.
           03  SITE-ENTRY-C449 PIC X(25) VALUE
               'D239 D485 D049 C449 C792 '.
           03  SITE-ENTRY-C450 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C451 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C452 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C453 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C454 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C455 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C456 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C457 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C458 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C459 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C460 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C461 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C462 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C463 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C464 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C465 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C466 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C467 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C468 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C469 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C470 PIC X(25) VALUE
               'D361 D482 9999 C470 C798 '.
           03  SITE-ENTRY-C471 PIC X(25) VALUE
               'D361 D482 9999 C471 C798 '.
           03  SITE-ENTRY-C472 PIC X(25) VALUE
               'D361 D482 9999 C472 C798 '.
           03  SITE-ENTRY-C473 PIC X(25) VALUE
               'D361 D482 9999 C473 C798 '.
           03  SITE-ENTRY-C474 PIC X(25) VALUE
               'D361 D482 9999 C474 C798 '.
           03  SITE-ENTRY-C475 PIC X(25) VALUE
               'D361 D482 9999 C475 C798 '.
           03  SITE-ENTRY-C476 PIC X(25) VALUE
               'D361 D482 9999 C476 C798 '.
           03  SITE-ENTRY-C477 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C478 PIC X(25) VALUE
               'D361 D482 9999 C478 C798 '.
           03  SITE-ENTRY-C479 PIC X(25) VALUE
               'D361 D482 9999 C479 C798 '.
           03  SITE-ENTRY-C480 PIC X(25) VALUE
               'D200 D483 9999 C480 C786 '.
           03  SITE-ENTRY-C481 PIC X(25) VALUE
               'D201 D484 9999 C481 C786 '.
           03  SITE-ENTRY-C482 PIC X(25) VALUE
               'D201 D484 9999 C482 C786 '.
           03  SITE-ENTRY-C483 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C484 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C485 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C486 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C487 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C488 PIC X(25) VALUE
               '9999 9999 9999 C488 9999 '.
           03  SITE-ENTRY-C489 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C490 PIC X(25) VALUE
               'D210 D481 9999 C490 C798 '.
           03  SITE-ENTRY-C491 PIC X(25) VALUE
               'D211 D481 9999 C491 C798 '.
           03  SITE-ENTRY-C492 PIC X(25) VALUE
               'D212 D481 9999 C492 C798 '.
           03  SITE-ENTRY-C493 PIC X(25) VALUE
               'D213 D481 9999 C493 C798 '.
           03  SITE-ENTRY-C494 PIC X(25) VALUE
               'D214 D481 9999 C494 C798 '.
           03  SITE-ENTRY-C495 PIC X(25) VALUE
               'D215 D481 9999 C495 C798 '.
           03  SITE-ENTRY-C496 PIC X(25) VALUE
               'D216 D481 9999 C496 C798 '.
           03  SITE-ENTRY-C497 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C498 PIC X(25) VALUE
               'D219 D481 9999 C498 C798 '.
           03  SITE-ENTRY-C499 PIC X(25) VALUE
               'D219 D481 9999 C499 C798 '.
           03  SITE-ENTRY-C500 PIC X(25) VALUE
               'D24  D486 D059 C500 C798 '.
           03  SITE-ENTRY-C501 PIC X(25) VALUE
               'D24  D486 D059 C501 C798 '.
           03  SITE-ENTRY-C502 PIC X(25) VALUE
               'D24  D486 D059 C502 C798 '.
           03  SITE-ENTRY-C503 PIC X(25) VALUE
               'D24  D486 D059 C503 C798 '.
           03  SITE-ENTRY-C504 PIC X(25) VALUE
               'D24  D486 D059 C504 C798 '.
           03  SITE-ENTRY-C505 PIC X(25) VALUE
               'D24  D486 D059 C505 C798 '.
           03  SITE-ENTRY-C506 PIC X(25) VALUE
               'D24  D486 D059 C506 C798 '.
           03  SITE-ENTRY-C507 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C508 PIC X(25) VALUE
               'D24  D486 D059 C508 C798 '.
           03  SITE-ENTRY-C509 PIC X(25) VALUE
               'D24  D486 D059 C509 C798 '.
           03  SITE-ENTRY-C510 PIC X(25) VALUE
               'D2802D3972D0712C5102C7982'.
           03  SITE-ENTRY-C511 PIC X(25) VALUE
               'D2802D3972D0712C5112C7982'.
           03  SITE-ENTRY-C512 PIC X(25) VALUE
               'D2802D3972D0712C5122C7982'.
           03  SITE-ENTRY-C513 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C514 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C515 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C516 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C517 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C518 PIC X(25) VALUE
               'D2802D3972D0712C5182C7982'.
           03  SITE-ENTRY-C519 PIC X(25) VALUE
               'D2802D3972D0712C5192C7982'.
           03  SITE-ENTRY-C520 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C521 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C522 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C523 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C524 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C525 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C526 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C527 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C528 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C529 PIC X(25) VALUE
               'D2812D3972D0722C52 2C7982'.
           03  SITE-ENTRY-C530 PIC X(25) VALUE
               'D2602D3902D0602C5302C7982'.
           03  SITE-ENTRY-C531 PIC X(25) VALUE
               'D2602D3902D0612C5312C7982'.
           03  SITE-ENTRY-C532 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C533 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C534 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C535 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C536 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C537 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C538 PIC X(25) VALUE
               'D2602D3902D0672C5382C7982'.
           03  SITE-ENTRY-C539 PIC X(25) VALUE
               'D2602D3902D0692C5392C7982'.
           03  SITE-ENTRY-C540 PIC X(25) VALUE
               'D2612D3902D0732C5402C7982'.
           03  SITE-ENTRY-C541 PIC X(25) VALUE
               'D2612D3902D0702C5412C7982'.
           03  SITE-ENTRY-C542 PIC X(25) VALUE
               'D2612D390299992C5422C7982'.
           03  SITE-ENTRY-C543 PIC X(25) VALUE
               'D2612D3902D0732C5432C7982'.
           03  SITE-ENTRY-C544 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C545 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C546 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C547 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C548 PIC X(25) VALUE
               'D2612D3902D0732C5482C7982'.
           03  SITE-ENTRY-C549 PIC X(25) VALUE
               'D2612D3902D0732C5492C7982'.
           03  SITE-ENTRY-C550 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C551 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C552 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C553 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C554 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C555 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C556 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C557 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C558 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C559 PIC X(25) VALUE
               'D2692D3902D0732C55 2C7982'.
           03  SITE-ENTRY-C560 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C561 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C562 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C563 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C564 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C565 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C566 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C567 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C568 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C569 PIC X(25) VALUE
               'D27 2D3912D0732C56 2C7962'.
           03  SITE-ENTRY-C570 PIC X(25) VALUE
               'D2822D3972D0732C5702C7982'.
           03  SITE-ENTRY-C571 PIC X(25) VALUE
               'D2822D397299992C5712C7982'.
           03  SITE-ENTRY-C572 PIC X(25) VALUE
               'D2822D397299992C5722C7982'.
           03  SITE-ENTRY-C573 PIC X(25) VALUE
               'D2822D397299992C5732C7982'.
           03  SITE-ENTRY-C574 PIC X(25) VALUE
               'D2872D3972D0732C5742C7982'.
           03  SITE-ENTRY-C575 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C576 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C577 PIC X(25) VALUE
               'D2872D3972D0732C5772C7982'.
           03  SITE-ENTRY-C578 PIC X(25) VALUE
               'D2872D3972D0732C5782C7982'.
           03  SITE-ENTRY-C579 PIC X(25) VALUE
               'D2892D3992D0732C5792C7982'.
           03  SITE-ENTRY-C580 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C581 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C582 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C583 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C584 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C585 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C586 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C587 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C588 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C589 PIC X(25) VALUE
               'D2672D3922D0732C58 2C7982'.
           03  SITE-ENTRY-C590 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C591 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C592 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C593 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C594 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C595 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C596 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C597 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C598 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C599 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C600 PIC X(25) VALUE
               'D2901D4071D0741C6001C7981'.
           03  SITE-ENTRY-C601 PIC X(25) VALUE
               'D2901D4071D0741C6011C7981'.
           03  SITE-ENTRY-C602 PIC X(25) VALUE
               'D2901D4071D0741C6021C7981'.
           03  SITE-ENTRY-C603 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C604 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C605 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C606 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C607 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C608 PIC X(25) VALUE
               'D2901D4071D0741C6081C7981'.
           03  SITE-ENTRY-C609 PIC X(25) VALUE
               'D2901D4071D0741C6091C7981'.
           03  SITE-ENTRY-C610 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C611 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C612 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C613 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C614 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C615 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C616 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C617 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C618 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C619 PIC X(25) VALUE
               'D2911D4001D0751C61 1C7981'.
           03  SITE-ENTRY-C620 PIC X(25) VALUE
               'D2921D4011D0761C6201C7981'.
           03  SITE-ENTRY-C621 PIC X(25) VALUE
               'D2921D4011D0761C6211C7981'.
           03  SITE-ENTRY-C622 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C623 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C624 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C625 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C626 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C627 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C628 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C629 PIC X(25) VALUE
               'D2921D4011D0761C6291C7981'.
           03  SITE-ENTRY-C630 PIC X(25) VALUE
               'D2931D4071D0761C6301C7981'.
           03  SITE-ENTRY-C631 PIC X(25) VALUE
               'D2971D4071D0761C6311C7981'.
           03  SITE-ENTRY-C632 PIC X(25) VALUE
               'D2941D4071D0761C6321C7981'.
           03  SITE-ENTRY-C633 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C634 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C635 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C636 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C637 PIC X(25) VALUE
               'D2971D4071D0761C6371C7981'.
           03  SITE-ENTRY-C638 PIC X(25) VALUE
               'D2991D4091D0761C6381C7981'.
           03  SITE-ENTRY-C639 PIC X(25) VALUE
               'D2991D4091D0761C6391C7981'.
           03  SITE-ENTRY-C640 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C641 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C642 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C643 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C644 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C645 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C646 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C647 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C648 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C649 PIC X(25) VALUE
               'D300 D410 D091 C64  C790 '.
           03  SITE-ENTRY-C650 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C651 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C652 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C653 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C654 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C655 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C656 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C657 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C658 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C659 PIC X(25) VALUE
               'D301 D411 D091 C65  C790 '.
           03  SITE-ENTRY-C660 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C661 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C662 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C663 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C664 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C665 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C666 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C667 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C668 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C669 PIC X(25) VALUE
               'D302 D412 D091 C66  C791 '.
           03  SITE-ENTRY-C670 PIC X(25) VALUE
               'D303 D414 D090 C670 C791 '.
           03  SITE-ENTRY-C671 PIC X(25) VALUE
               'D303 D414 D090 C671 C791 '.
           03  SITE-ENTRY-C672 PIC X(25) VALUE
               'D303 D414 D090 C672 C791 '.
           03  SITE-ENTRY-C673 PIC X(25) VALUE
               'D303 D414 D090 C673 C791 '.
           03  SITE-ENTRY-C674 PIC X(25) VALUE
               'D303 D414 D090 C674 C791 '.
           03  SITE-ENTRY-C675 PIC X(25) VALUE
               'D303 D414 D090 C675 C791 '.
           03  SITE-ENTRY-C676 PIC X(25) VALUE
               'D303 D414 D090 C676 C791 '.
           03  SITE-ENTRY-C677 PIC X(25) VALUE
               'D303 D414 D090 C677 C791 '.
           03  SITE-ENTRY-C678 PIC X(25) VALUE
               'D303 D414 D090 C678 C791 '.
           03  SITE-ENTRY-C679 PIC X(25) VALUE
               'D303 D414 D090 C679 C791 '.
           03  SITE-ENTRY-C680 PIC X(25) VALUE
               'D304 D413 D091 C680 C791 '.
           03  SITE-ENTRY-C681 PIC X(25) VALUE
               'D307 D417 D091 C681 C791 '.
           03  SITE-ENTRY-C682 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C683 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C684 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C685 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C686 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C687 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C688 PIC X(25) VALUE
               'D309 D419 D091 C688 C791 '.
           03  SITE-ENTRY-C689 PIC X(25) VALUE
               'D309 D419 D091 C689 C791 '.
           03  SITE-ENTRY-C690 PIC X(25) VALUE
               'D310 D487 D092 C690 C794 '.
           03  SITE-ENTRY-C691 PIC X(25) VALUE
               'D311 D487 D092 C691 C794 '.
           03  SITE-ENTRY-C692 PIC X(25) VALUE
               'D312 D487 D092 C692 C794 '.
           03  SITE-ENTRY-C693 PIC X(25) VALUE
               'D313 D487 D092 C693 C794 '.
           03  SITE-ENTRY-C694 PIC X(25) VALUE
               'D314 D487 D092 C694 C794 '.
           03  SITE-ENTRY-C695 PIC X(25) VALUE
               'D315 D487 D092 C695 C794 '.
           03  SITE-ENTRY-C696 PIC X(25) VALUE
               'D316 D487 D092 C696 C794 '.
           03  SITE-ENTRY-C697 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C698 PIC X(25) VALUE
               'D319 D487 D092 C698 C794 '.
           03  SITE-ENTRY-C699 PIC X(25) VALUE
               'D319 D487 D092 C699 C794 '.
           03  SITE-ENTRY-C700 PIC X(25) VALUE
               'D320 D420 9999 C700 C793 '.
           03  SITE-ENTRY-C701 PIC X(25) VALUE
               'D321 D421 9999 C701 C794 '.
           03  SITE-ENTRY-C702 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C703 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C704 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C705 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C706 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C707 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C708 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C709 PIC X(25) VALUE
               'D329 D429 9999 C709 C794 '.
           03  SITE-ENTRY-C710 PIC X(25) VALUE
               'D330 D430 9999 C710 C793 '.
           03  SITE-ENTRY-C711 PIC X(25) VALUE
               'D330 D430 9999 C711 C793 '.
           03  SITE-ENTRY-C712 PIC X(25) VALUE
               'D330 D430 9999 C712 C793 '.
           03  SITE-ENTRY-C713 PIC X(25) VALUE
               'D330 D430 9999 C713 C793 '.
           03  SITE-ENTRY-C714 PIC X(25) VALUE
               'D330 D430 9999 C714 C793 '.
           03  SITE-ENTRY-C715 PIC X(25) VALUE
               'D330 D430 9999 C715 C793 '.
           03  SITE-ENTRY-C716 PIC X(25) VALUE
               'D331 D431 9999 C716 C793 '.
           03  SITE-ENTRY-C717 PIC X(25) VALUE
               'D331 D431 9999 C717 C793 '.
           03  SITE-ENTRY-C718 PIC X(25) VALUE
               'D332 D432 9999 C718 C793 '.
           03  SITE-ENTRY-C719 PIC X(25) VALUE
               'D332 D432 9999 C719 C793 '.
           03  SITE-ENTRY-C720 PIC X(25) VALUE
               'D334 D434 9999 C720 C793 '.
           03  SITE-ENTRY-C721 PIC X(25) VALUE
               'D334 D434 9999 C721 C793 '.
           03  SITE-ENTRY-C722 PIC X(25) VALUE
               'D333 D433 9999 C722 C794 '.
           03  SITE-ENTRY-C723 PIC X(25) VALUE
               'D333 D433 9999 C723 C794 '.
           03  SITE-ENTRY-C724 PIC X(25) VALUE
               'D333 D433 9999 C724 C794 '.
           03  SITE-ENTRY-C725 PIC X(25) VALUE
               'D333 D433 9999 C725 C794 '.
           03  SITE-ENTRY-C726 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C727 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C728 PIC X(25) VALUE
               'D339 D439 9999 C728 C794 '.
           03  SITE-ENTRY-C729 PIC X(25) VALUE
               'D339 D439 9999 C729 C794 '.
           03  SITE-ENTRY-C730 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C731 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C732 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C733 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C734 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C735 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C736 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C737 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C738 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C739 PIC X(25) VALUE
               'D34  D440 D093 C73  C798 '.
           03  SITE-ENTRY-C740 PIC X(25) VALUE
               'D350 D441 D093 C740 C797 '.
           03  SITE-ENTRY-C741 PIC X(25) VALUE
               'D350 D441 D093 C741 C797 '.
           03  SITE-ENTRY-C742 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C743 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C744 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C745 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C746 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C747 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C748 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C749 PIC X(25) VALUE
               'D350 D441 D093 C749 C797 '.
           03  SITE-ENTRY-C750 PIC X(25) VALUE
               'D351 D442 D093 C750 C798 '.
           03  SITE-ENTRY-C751 PIC X(25) VALUE
               'D352 D443 D093 C751 C798 '.
           03  SITE-ENTRY-C752 PIC X(25) VALUE
               'D353 D444 D093 C752 C798 '.
           03  SITE-ENTRY-C753 PIC X(25) VALUE
               'D354 D445 9999 C753 C798 '.
           03  SITE-ENTRY-C754 PIC X(25) VALUE
               'D355 D446 9999 C754 C798 '.
           03  SITE-ENTRY-C755 PIC X(25) VALUE
               'D356 D447 9999 C755 C798 '.
           03  SITE-ENTRY-C756 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C757 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C758 PIC X(25) VALUE
               'D358 D448 D093 C758 C798 '.
           03  SITE-ENTRY-C759 PIC X(25) VALUE
               'D359 D449 D093 C759 C798 '.
           03  SITE-ENTRY-C760 PIC X(25) VALUE
               'D367 D487 D044 C760 C798 '.
           03  SITE-ENTRY-C761 PIC X(25) VALUE
               'D367 D487 D097 C761 C798 '.
           03  SITE-ENTRY-C762 PIC X(25) VALUE
               'D367 D487 D097 C762 C798 '.
           03  SITE-ENTRY-C763 PIC X(25) VALUE
               'D367 D487 D097 C763 C798 '.
           03  SITE-ENTRY-C764 PIC X(25) VALUE
               'D367 D487 D046 C764 C798 '.
           03  SITE-ENTRY-C765 PIC X(25) VALUE
               'D367 D487 D047 C765 C798 '.
           03  SITE-ENTRY-C766 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C767 PIC X(25) VALUE
               'D367 D487 D045 C767 C798 '.
           03  SITE-ENTRY-C768 PIC X(25) VALUE
               '9999 9999 9999 C768 C798 '.
           03  SITE-ENTRY-C769 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C770 PIC X(25) VALUE
               'D360 D487 9999 HHHH C770 '.
           03  SITE-ENTRY-C771 PIC X(25) VALUE
               'D360 D487 9999 HHHH C771 '.
           03  SITE-ENTRY-C772 PIC X(25) VALUE
               'D360 D487 9999 HHHH C772 '.
           03  SITE-ENTRY-C773 PIC X(25) VALUE
               'D360 D487 9999 HHHH C773 '.
           03  SITE-ENTRY-C774 PIC X(25) VALUE
               'D360 D487 9999 HHHH C774 '.
           03  SITE-ENTRY-C775 PIC X(25) VALUE
               'D360 D487 9999 HHHH C775 '.
           03  SITE-ENTRY-C776 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C777 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C778 PIC X(25) VALUE
               'D360 D487 9999 HHHH C778 '.
           03  SITE-ENTRY-C779 PIC X(25) VALUE
               'D360 D487 9999 HHHH C779 '.
           03  SITE-ENTRY-C780 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C781 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C782 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C783 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C784 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C785 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C786 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C787 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C788 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C789 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C790 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C791 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C792 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C793 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C794 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C795 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C796 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C797 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C798 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C799 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C800 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C801 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C802 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C803 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C804 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C805 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C806 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C807 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C808 PIC X(25) VALUE
               '9999999999999999999999999'.
           03  SITE-ENTRY-C809 PIC X(25) VALUE
               'D369 D489 D099 C80  C80  '.
 
       01  SITE-TABLE REDEFINES SITE.
           02  SITE-GROUP OCCURS 810 TIMES.
               03  SITE-ENTRY OCCURS 5 TIMES PIC X(5).
 
 
 
       LINKAGE SECTION.
       01  CONV-COMMON-AREA.
           03  ICD-O-2                         PIC X(4).
           03  ICD-O-2-PARTS REDEFINES ICD-O-2.
               05  ICD-PRE                     PIC X(1).
                  88  VALID-PRE   VALUE 'C'.
               05  ICD-END                     PIC X(3).
                  88  VALID-END   VALUE '000' THRU '809'.
                  88  MALE-SITE   VALUE '600' THRU '639'.
                  88  FEM-SITE    VALUE '510' THRU '589'.
           03  HIST                            PIC X(4).
                  88  VALID-HIST  VALUE '8000' THRU '9999'.
                  88  FEM-HIST    VALUE '8381' '8600' THRU '8623'
                                        '8660' THRU '8670'
                                        '8930' THRU '8931' '9000'
                                        '9090' '9091' '9104'.
                  88  HIST-NINE   VALUE '8000' '8010' '8800'.
           03  BEH                             PIC X(1).
                  88  VALID-BEH   VALUE '0' THRU '3' '6' '9'.
           03  SEX                             PIC X(1).
                  88  VALID-SEX   VALUE '1' THRU '4' '9'.
                  88  MALE        VALUE '1'.
                  88  FEMALE      VALUE '2'.
           03  ICD-10-OUT.
               05  ICD-10                      PIC X(4).
                  88  INVLD-ICD10 VALUE '9999'.
                  88  HAND-ICD10  VALUE 'HHHH'.
               05  HAND-REVIEW                 PIC X(1).
               05  INVALID-FLAGS               PIC X(6).
                  88  STILL-VALID VALUE '000000'.
               05  INVALID-FLAGS2 REDEFINES INVALID-FLAGS.
                   07  INVALID-SITE            PIC X(1).
                   07  INVALID-HIST            PIC X(1).
                   07  INVALID-BEH             PIC X(1).
                   07  INVALID-SEX             PIC X(1).
                   07  INVALID-SEX-COMBO       PIC X(1).
                   07  INVALID-HIST-COMBO      PIC X(1).
 
 
       PROCEDURE DIVISION USING CONV-COMMON-AREA.
 
      *****************************************************
      *                                                   *
      * THE FUNCTION OF THIS MODULE IS TO SET ALL FLAGS   *
      * AND INVALIDS TO ZERO, TO SET ICD-10 TO 9999, TO   *
      * NOTE ALL INVALID SITE, HIST, BEH OR SEX DATA OR   *
      * INVALID SEX COMBINATIONS, SET APPROPRIATE INVALID *
      * FLAGS AND EXIT.  OTHERWISE, IT CALLS THE TABLE    *
      * SEARCHES.  THE MODULE IS ENTERED FROM AND EXITS   *
      * TO THE DRIV2T10 COBOL PROGRAM.                    *
      *                                                   *
      *****************************************************
 
       00-BEGIN.
 
      * 9999 - ICD10, 0s TO HAND REVIEW & 6 INVALID FLAGS.*
           MOVE '99990000000' TO ICD-10-OUT.
 
      * CHECK FOR INVALID/OUT OF RANGE INFORMATION.       *
           IF (NOT VALID-PRE) OR (ICD-END NOT NUMERIC) OR
              (NOT VALID-END)
               MOVE '1' TO INVALID-SITE.
           IF (HIST NOT NUMERIC) OR (NOT VALID-HIST)
               MOVE '1' TO INVALID-HIST.
           IF (NOT VALID-BEH)
               MOVE '1' TO INVALID-BEH.
           IF (NOT VALID-SEX)
               MOVE '1' TO INVALID-SEX.
           IF (FEM-SITE OR FEM-HIST) AND (NOT FEMALE)
               MOVE '1' TO INVALID-SEX-COMBO.
           IF MALE-SITE AND (NOT MALE)
               MOVE '1' TO INVALID-SEX-COMBO.
           IF (NOT STILL-VALID)
               GO TO 99-END.
 
      *****************************************************
      *                                                   *
      * CONVERSION MODULE CALLS.                          *
      *   BEH=9 - CONVERT-NINES: SET FOR EACH HIST/SITE   *
      *   SITE=C809 - CONVERT-C809: SEARCH BY HIST/BEH.   *
      *               IF SEX BASED, CALL CONVERT-C809-SEX *
      *   OTHERS - CONVERT-MORPH: INDEX ON MORPH/BEH.     *
      *            FLAG FOR SITE SET, CALL CONVERT-SITE,  *
      *            WHICH IS INDEXED BY SITE/BEH.          *
      *            FLAG FOR SPECIAL SET, CALL             *
      *            CONVERT-SPECIAL, WHICH IS A SEARCH BY  *
      *            HIST/BEH/SITE.                         *
      *                                                   *
      *****************************************************
 
           MOVE ICD-END TO SITE-NUMERIC.
           MOVE HIST TO HIST-NUMERIC.
           MOVE BEH TO BEH-NUMERIC.
           IF BEH = '9'
               PERFORM CONVERT-NINES THRU CONVERT-NINES-END
           ELSE IF ICD-O-2 = 'C809'
               PERFORM CONVERT-C809 THRU CONVERT-C809-END.
 
           IF (BEH = '9') OR (NOT STILL-VALID) OR
              (NOT INVLD-ICD10)
               IF HAND-ICD10
                   MOVE '1' TO HAND-REVIEW
                   END-IF
               GO TO 99-END
           ELSE
               COMPUTE SITE-SUB = SITE-NUMERIC + 1
               COMPUTE HIST-SUB = HIST-NUMERIC - 7999
 
               COMPUTE BEH-SUB = BEH-NUMERIC + 1
               IF BEH = '6'
                   MOVE 5 TO BEH-SUB
                   END-IF
 
               PERFORM CONVERT-MORPH THRU CONVERT-MORPH-END
               IF HAND-ICD10
                   MOVE '1' TO HAND-REVIEW
                   END-IF
               GO TO 99-END.
 
       99-END.
           EXIT PROGRAM.
 
 
      *****************************************************
      *                                                   *
      * THE FUNCTION OF THIS MODULE IS TO TAKE A SITE AND *
      * HISTOLOGY FROM ICD-O-2 AND CONVERT IT TO THE      *
      * ICD-10 SITE WHEN AND ONLY WHEN THE BEH=9.         *
      * ALL SITE/HIST COMBINATIONS NOT FOUND HERE ARE     *
      * INVALID FOR BEH=9.  THIS MODULE IS ENTERED FROM   *
      * AND EXITS TO THE 00-BEGIN MAIN MODULE. IT MAY     *
      * CALL THE CONVERT-SITE MODULE.                     *
      *                                                   *
      *****************************************************
 
       CONVERT-NINES.
 
      * THESE ARE HARD CODED B/C THERE ARE SO FEW CASES.  *
           IF NOT HIST-NINE
               MOVE '1' TO INVALID-HIST-COMBO
               GO TO 99-END.
 
           IF HIST = '8010' AND ICD-O-2 = 'C482'
               MOVE 'C786' TO ICD-10
           ELSE IF HIST = '8800' AND ICD-O-2 = 'C809'
               MOVE 'C499' TO ICD-10
           ELSE
               MOVE 4 TO BEH-SUB
               COMPUTE SITE-SUB = SITE-NUMERIC + 1
               PERFORM CONVERT-SITE THRU CONVERT-SITE-END
      * IF INVALID SITE, WILL EXIT PROGRAM IN CONVERT-SITE*
               IF HIST = '8000'
                   MOVE 'HHHH' TO ICD-10.
 
 
       CONVERT-NINES-END.
           EXIT.
 
 
      *****************************************************
      *                                                   *
      * THE FUNCTION OF THIS MODULE IS TO TAKE A HIST AND *
      * BEHAVIOR AND RETURN THE ICD-10 SITE CODE IF AND   *
      * ONLY IF THE ICD-O-2 SITE IS C809.  THIS CHECKS    *
      * FOR SEX RELATED CODES AND CALLS CONVERT-C809-SEX  *
      * IF NECESSARY.  THIS MODULE IS ENTERED FROM AND    *
      * EXITS TO THE 00-BEGIN MAIN MODULE.                *
      *                                                   *
      *****************************************************
 
       CONVERT-C809.
 
           MOVE 'END' TO FOUND-FLAG.
           SEARCH ALL C809-ENTRY
               AT END MOVE 'END' TO FOUND-FLAG
               WHEN HIST-809-IN(C809-INDX) IS EQUAL TO HIST
                   AND BEH-809-IN(C809-INDX) IS EQUAL TO BEH
                   MOVE 'YES' TO FOUND-FLAG
                   MOVE ICD10-809(C809-INDX) TO ICD-10
                   MOVE SEX3-CODE(C809-INDX) TO SEX-FLAG.
           IF FOUND
               IF (MALE-FLAG AND NOT MALE) OR
                  (FEM-FLAG AND NOT FEMALE)
                   MOVE '1' TO INVALID-SEX-COMBO
                   MOVE '9999' TO ICD-10
                   END-IF
               IF SEX-BASED-FLAG
                   IF MALE OR FEMALE
                       PERFORM CONVERT-C809-SEX THRU
                           CONVERT-C809-SEX-END
                   ELSE
                       COMPUTE SITE-SUB = SITE-NUMERIC + 1
                       COMPUTE BEH-SUB  = BEH-NUMERIC + 1
                       IF BEH = '6'
                           MOVE 5 TO BEH-SUB
                           END-IF
                       PERFORM CONVERT-SITE THRU CONVERT-SITE-END.
 
 
       CONVERT-C809-END.
           EXIT.
 
 
      *****************************************************
      *                                                   *
      * THE FUNCTION OF THIS MODULE IS TO TAKE A HIST AND *
      * BEHAVIOR FOR SITE=C809 AND RETURN THE ICD-10 SITE *
      * BASED ON SEX.  THIS MODULE IS ENTERED FROM AND    *
      * EXITS TO THE CONVERT-C809 MODULE.                 *
      *                                                   *
      *****************************************************
 
       CONVERT-C809-SEX.
 
           SET C809-SEX-INDX TO 1.
           SEARCH ALL C809-SEX-ENTRY
               AT END MOVE 'END' TO FOUND-FLAG
               WHEN HIST-809S-IN(C809-SEX-INDX) IS EQUAL TO HIST
                   AND BEH-809S-IN(C809-SEX-INDX) IS EQUAL TO BEH
                   MOVE 'YES' TO FOUND-FLAG.
           IF FOUND
               IF MALE
                   MOVE ICD10-MALE(C809-SEX-INDX) TO ICD-10
               ELSE IF FEMALE
                   MOVE ICD10-FEMALE(C809-SEX-INDX) TO ICD-10.
 
       CONVERT-C809-SEX-END.
           EXIT.
 
 
      *****************************************************
      *                                                   *
      * THE FUNCTION OF THIS MODULE IS TO TAKE A HIST AND *
      * BEH CODE AND RETURN THE MOST COMMON ICD-10 SITE   *
      * AND ANY FLAGS ASSOCIATED WITH THE COMBINATION.    *
      * THIS MODULE IS ENTERED FROM AND EXITS TO THE      *
      * 00-BEGIN MAIN MODULE.  IT MAY CALL THE            *
      * CONVERT-SPECIAL OR CONVERT-SITE MODULES.          *
      *                                                   *
      *****************************************************
 
       CONVERT-MORPH.
 
           MOVE MORPH-ENTRY(HIST-SUB, BEH-SUB) TO TEMP-HIST-CELL.
           MOVE ICD10-HIST TO ICD-10.
           MOVE SEX-CODE TO SEX-FLAG.
 
      * IF NOT VALID HIST, FLAGS=9. IF NOT VALID HIST/BEH *
      * FLAGS='10  ' TO GO TO TOP, SEE MATRIX SYSTEM.     *
           IF INVLD-ICD10 AND SITE-FLAG = '9'
               MOVE '1' TO INVALID-HIST
               GO TO 99-END.
 
      * CHECK FOR VALID SITE CODE                         *
           MOVE SITE-ENTRY(SITE-SUB, BEH-SUB) TO TEMP-SITE-CELL.
           IF ICD10-SITE = '9999' AND SEX2-CODE = '9'
               MOVE '1' TO INVALID-SITE
               MOVE '9999' TO ICD-10
               GO TO 99-END.
 
           IF (MALE-FLAG AND NOT MALE) OR
              (FEM-FLAG AND NOT FEMALE)
               MOVE '9999' TO ICD-10
               MOVE '1' TO INVALID-SEX-COMBO
               GO TO 99-END.
           IF SPEC-FLAG = '1'
               PERFORM CONVERT-SPECIAL THRU CONVERT-SPECIAL-END.
           IF INVLD-ICD10 AND SITE-FLAG = '1'
               IF MOD-BEH-FLAG = '1'
                   MOVE 2 TO BEH-SUB
                   END-IF
               PERFORM CONVERT-SITE THRU CONVERT-SITE-END.
 
       CONVERT-MORPH-END.
           EXIT.
 
 
      *****************************************************
      *                                                   *
      * THE FUNCTION OF THIS MODULE IS TO TAKE A HIST,    *
      * BEH AND ICD-O-2 SITE AND RETURN THE ICD-10 SITE.  *
      * THIS MODULE IS ENTERED FROM AND EXITS TO THE      *
      * CONVERT-MORPH MODULE.                             *
      *                                                   *
      *****************************************************
 
       CONVERT-SPECIAL.
 
           MOVE 'END' TO FOUND-FLAG.
           SEARCH ALL SPEC-ENTRY
               AT END MOVE 'END' TO FOUND-FLAG
               WHEN HIST-IN(SPEC-INDX) IS EQUAL TO HIST AND
                    BEH-IN(SPEC-INDX) IS EQUAL TO BEH AND
                    ICD-O-2-IN(SPEC-INDX) IS EQUAL TO ICD-O-2
                    MOVE ICD10-SPEC(SPEC-INDX) TO ICD-10.
 
       CONVERT-SPECIAL-END.
           EXIT.
 
 
      *****************************************************
      *                                                   *
      * THE FUNCTION OF THIS MODULE IS TO TAKE AN ICD-O-2 *
      * SITE AND BEH AND RETURN THE ICD-10 SITE AND SEX   *
      * FLAG.  THIS MODULE IS ENTERED FROM EITHER THE     *
      * CONVERT-MORPH OR THE CONVERT-NINES MODULES AND    *
      * EXITS TO THE SAME.                                *
      *                                                   *
      *****************************************************
 
       CONVERT-SITE.
 
           MOVE SITE-ENTRY(SITE-SUB, BEH-SUB) TO TEMP-SITE-CELL.
           MOVE ICD10-SITE TO ICD-10.
           MOVE SEX2-CODE TO SEX-FLAG.
 
      * IF NOT VALID SITE, FLAGS=9.                       *
           IF INVLD-ICD10 AND SEX2-CODE = '9'
               MOVE '1' TO INVALID-SITE
               GO TO 99-END.
 
           IF (MALE-FLAG AND NOT MALE) OR
              (FEM-FLAG AND NOT FEMALE)
               MOVE '1' TO INVALID-SEX-COMBO
               MOVE '9999' TO ICD-10
               GO TO 99-END.
 
       CONVERT-SITE-END.
           EXIT.
 
 
//STEP2 EXEC CBL3LKMM,OPTIONS=NCAL,
//      NAME='NGN1YZJ.SEER.ICDO2.EDIT.OBJLIB',
//      PROGRAM=FR2TO10