# Bazaar merge directive format 2 (Bazaar 0.90)
# revision_id: marian.edu@acorn.ro-20210131101452-ui20dacrs58vsdlj
# target_branch: sftp://medu@xfer.goldencode.com/opt/fwd/4384g/
# testament_sha1: f5f7eca50742231137f87677da03f7f60bdd4f38
# timestamp: 2021-02-01 10:09:59 +0200
# base_revision_id: marian.edu@acorn.ro-20210130114536-\
#   y9e0nzy27pjk8fut
# 
# Begin patch
=== modified file 'build.gradle'
--- build.gradle	2020-09-15 14:26:57 +0000
+++ build.gradle	2020-11-16 21:38:16 +0000
@@ -64,6 +64,11 @@
 ** 037 HC  20200726 Initial implementation of SPREADSHEET widget and related changes.
 **     CA  20200914 Added aspectjtools to fwdConvert group.
 **     CA  20200915 Upgraded to Jetty 9.4.22.
+**     CA  20201011 Added RoaringBitmap, a fast access bitmap for integer or long values, which can be used 
+**                  instead of hash sets.
+**     ECF 20201116 Changed version of fwd-h2 to 1.4.200-5. Note the naming convention change, by which the
+**                  last component of the name is now the fwd-h2 revision number, rather than a sortable
+**                  date.
 */
 
 /*
@@ -307,7 +312,7 @@
 
     fwdConvertServer group: 'org.jboss.logging', name: 'jboss-logging', version: '3.1.0.GA'
     fwdConvertServer group: 'antlr', name: 'antlr', version: '2.7.7'
-    fwdConvertServer group: 'com.goldencode', name: 'fwd-h2', version: '1.4.200-20200727'
+    fwdConvertServer group: 'com.goldencode', name: 'fwd-h2', version: '1.4.200-5'
     fwdConvertServer group: 'javax.transaction', name: 'jta', version: '1.1'
 
     fwdConvertClient (group: 'com.google.guava', name: 'guava', version: '19.0') {
@@ -353,6 +358,7 @@
     fwdClientServer group: 'org.shredzone.acme4j', name: 'acme4j-client', version: '0.10'
     fwdClientServer group: 'org.shredzone.acme4j', name: 'acme4j-utils', version: '0.10'
     fwdClientServer group: 'com.esotericsoftware', name: 'reflectasm', version: '1.11.3'
+    fwdClientServer group: 'org.roaringbitmap', name: 'RoaringBitmap', version: '0.9.0'
 
     fwdServer group: 'org.apache.tuscany.sdo', name: 'tuscany-sdo-impl', version: '1.1.1'
     fwdServer group: 'org.apache.tuscany.sdo', name: 'tuscany-sdo-tools', version: '1.1.1'

=== modified file 'build.xml'
--- build.xml	2020-09-07 16:23:31 +0000
+++ build.xml	2021-01-05 13:24:19 +0000
@@ -195,7 +195,9 @@
 ** 101 VVT 20200203          Added cursor UI resources (.cur files) to jar location.
 ** 102 OM  20200108          DMO Impl generation TRPL dropped from runtime support.
 ** 103 HC  20200726          Initial implementation of SPREADSHEET widget and related changes.
-*/
+**     HC  20201020          Removed ext sheet sources from javadoc target. Javadoc is handled by the sheet
+**                           project itself.
+**
  -->
 
 <!--
@@ -420,7 +422,6 @@
 
   <path id="javadoc.path">
     <pathelement path="${src.home}"/>
-    <pathelement path="ext/sheet/src/main/java"/>
   </path>
 
 
@@ -1380,6 +1381,7 @@
                     com/goldencode/p2j/*
                     com/goldencode/expr/*
                     com/goldencode/util/*
+                    com/goldencode/p2j/persist/h2/*
                     p2jpl.ddr"
           excludes="com/goldencode/p2j/spi/*
                     com/goldencode/p2j/SpiVersion.class"

=== modified file 'pl/p2jpl.ddr'
--- pl/p2jpl.ddr	2019-08-19 17:13:50 +0000
+++ pl/p2jpl.ddr	2020-12-03 12:27:31 +0000
@@ -67,6 +67,7 @@
 ** 031 CA  20190722          Added datetimetz comparators, as <op>(record, text).
 **     GES 20190819          Added missing drop function statements for <op>(record, text) and
 **                           <op>(text, record).
+** 032 IAS 20201121          Added 'words' functions.
 */
 
 /*
@@ -1898,6 +1899,16 @@
       'java.lang.String=
           com.goldencode.p2j.persist.pl.Functions.getFWDVersion()'
       language java immutable;
+ 
+       create function words(text)
+       returns text[]
+       as 'java.lang.String[]=com.goldencode.p2j.persist.pl.Functions.words(java.lang.String)'
+       language java immutable;
+ 
+       create function words(text, boolean)
+       returns text[]
+       as 'java.lang.String[]=com.goldencode.p2j.persist.pl.Functions.words(java.lang.String, boolean)'
+       language java immutable;
    END INSTALL",
    
    "BEGIN REMOVE
@@ -2166,5 +2177,7 @@
       drop function reportPrecisionScale(numeric);
       drop function getFWDVersion();
       
+      drop function words(text);      
+      drop function words(text, boolean);      
    END REMOVE"
 }

=== modified file 'rules/annotations/annotations.xml'
--- rules/annotations/annotations.xml	2020-05-21 10:15:12 +0000
+++ rules/annotations/annotations.xml	2021-01-21 22:49:45 +0000
@@ -251,6 +251,7 @@
 ** 102 CA  20200412          Added incremental conversion support.
 ** 103 HC  20200325          Added ocx_conversion_post.rules.
 ** 104 CA  20200514          Added support for SOAP web services.
+** 105 OM  20201215          Added early type-checking.
 */
  -->
  
@@ -485,13 +486,62 @@
    <!-- second pass, finally remove unreachable code -->
    <rule-set name="annotations/remove_unreachable2" />
    
+   <!-- early type-checking -->
+   <rule-set input="tree" load-condition="runtime-query">
+      <ascent-rules>
+         <!--TODO: improve the list below -->
+         <rule>copy.type == prog.assign or
+               copy.type == prog.equals or
+               copy.type == prog.lt     or
+               copy.type == prog.lte    or
+               copy.type == prog.gt     or
+               copy.type == prog.gte
+            <variable name="ch1type" type="java.lang.String" />
+            <variable name="ch2type" type="java.lang.String" />
+            <variable name="child"   type="com.goldencode.ast.Aast" />
+            <action>child = copy.firstChild</action> 
+            <action>ch1type = ecw.getCompatibilityClass(child)</action>
+            
+            <action>child = child.nextSibling</action>
+            <rule>ch1type != null                 and
+                  !ch1type.equals("unknown")      and
+                  !ch1type.equals("basedatatype") and
+                  !child.isAnnotation("read-only attribute helper")
+               <!--
+                 | Skip further investigations if:
+                 |   * the type of first child could not be detected (null/unknown/BaseDataType)
+                 |   * this child was marked as helper for a read-only attribute, 
+                -->
+               <action>ch2type = ecw.getCompatibilityClass(child)</action>
+               
+               <rule>!ch1type.equals(ch2type)
+                  <rule>!isRuntimeConfig()
+                     <!-- In static conversion just print out the warning to allow conversion to continue,
+                          eventual stopping on more critical events. -->
+                     <action>
+                        printfln("WARNING: Incompatible data types in expression or assignment. The generated code may not compile or may work incorrectly.")
+                     </action>
+                  </rule>
+                  <action>
+                     printfln("Additional info: ch1type=%s ch2type=%s\n%s", ch1type, ch2type, copy.dumpTree(true))
+                  </action>
+                  <rule>isRuntimeConfig()
+                     <!-- In the dynamic conversion we stop here with same error as ABL compiler. -->
+                     <action>compileError(223, "Incompatible data types in expression or assignment")</action>
+                  </rule>
+               </rule>
+            </rule>
+         </rule>
+      </ascent-rules>
+   </rule-set>
+   
    <!-- convert OCX objects to 4GL widgets -->
    <rule-set name="annotations/ocx_conversion" />
    <rule-set name="annotations/ocx_conversion_post" />
-
+   
    <!-- component-handle:LoadControls conversion -->
    <rule-set name="annotations/load_controls" />
-
+   
    <!-- customer-specific tree rewriting -->
    <rule-set name="customer_specific_annotations_prep" optional="true" />
    

=== modified file 'rules/annotations/database_general.rules'
--- rules/annotations/database_general.rules	2020-09-10 09:54:53 +0000
+++ rules/annotations/database_general.rules	2021-01-21 22:49:45 +0000
@@ -5,9 +5,9 @@
 ** Module   : database_general.rules
 ** Abstract : database related annotations
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
-** _#_ _I_ __Date__ __JPRM__ ____________________________Description_____________________________
+** _#_ _I_ __Date__ __JPRM__ ___________________________________Description___________________________________
 ** 001 ECF 20051207   @23763 Created initial version. Miscellaneous rules
 **                           for annotating various database language
 **                           statements and functions.
@@ -91,10 +91,8 @@
 **                           connect options.
 ** 035 ECF 20170820          Added support for read-xml and write-xml methods.
 ** 036 OM  20170823          Fixed DISABLE TRIGGERS statement.
-** 037 GES 20170827          CONNECT_TEXT nodes can have quoted text in which the quotes were
-**                           being doubled.
-** 038 ECF 20171025          Added -ct (max connection retries) to supported CONNECT statement
-**                           options.
+** 037 GES 20170827          CONNECT_TEXT nodes can have quoted text in which the quotes were being doubled.
+** 038 ECF 20171025          Added -ct (max connection retries) to supported CONNECT statement options.
 ** 039 OM  20171215          Force fields to have alias only if the quick-delete has subqueries.
 ** 040 ECF 20180118          API name change in SchemaWorker.
 ** 041 OM  20180309          The id-related functions are converted earlier into corresponding
@@ -108,8 +106,7 @@
 **                           currently is not implemented.
 ** 046 ECF 20181208          Added support for read-json and write-json methods.
 ** 047 CA  20181221          Fixed FIND-CURRENT lock literals.
-** 048 ECF 20190214          Rearrange BUF_{COPY|COMP} statement child nodes for easier downstream
-**                           conversion.
+** 048 ECF 20190214          Rearrange BUF_{COPY|COMP} statement child nodes for easier downstream conversion.
 **     CA  20190323          FOR EACH ... DELETE. blocks conversion to EMPTY TEMP-TABLE must be 
 **                           done only after buffer scopes are computed.
 ** 049 OM  20190327          Renamed DataSource to avoid conflicts with DataSet source.
@@ -121,6 +118,7 @@
 ** 054 IAS 20200212          Added support for new CONNECT options.
 ** 055 ECF 20200906          New ORM implementation.
 ** 056 CA  20200910          Added BUFFER:SERIALIZE-ROW() method conversion.
+**     OM  20210120          Kept resource type parameter in order to validate it at runtime.
 -->
 
 <!--
@@ -909,7 +907,6 @@
       
       <!-- prepare {READ|WRITE}-{XML[SCHEMA]|JSON} and SERIALIZE-ROW methods -->
       <rule>parent.type == prog.meth_logical
-      
          <action>oldtype = parent.getAnnotation("oldtype")</action>
          
          <rule>oldtype == prog.kw_read_xsc or
@@ -922,36 +919,9 @@
             
             <action>pos1 = this.indexPos</action>
             
-            <!-- special handling for first parameter -->
-            <rule>(pos1 == 0 and oldtype != prog.kw_serialzr) or (pos1 == 1 and oldtype == prog.kw_serialzr)
-            
-               <!-- the first parameter in a converted READ-{XML[SCHEMA]|JSON} method is always
-                    superfluous -->
-               <rule>oldtype == prog.kw_read_xml or
-                     oldtype == prog.kw_read_jsn or
-                     oldtype == prog.kw_read_xsc
-                  <action>copy.setHidden(true)</action>
-               </rule>
-               
-               <!-- the first parameter in a converted WRITE-{XML[SCHEMA]|JSON} method is superfluous
-                    when the second evaluates to a memptr or longchar type -->
-               <rule>oldtype == prog.kw_wr_xml  or
-                     oldtype == prog.kw_wr_json or
-                     oldtype == prog.kw_wr_xmlsc or
-                     oldtype == prog.kw_serialzr
-                  <action>
-                     javaname = ecw.expressionType(#(com.goldencode.ast.Aast) this.nextSibling)
-                  </action>
-                  <rule>javaname == "memptr" or javaname == "longchar"
-                     <action>copy.setHidden(true)</action>
-                  </rule>
-               </rule>
-               
-            </rule>
-            
-            <!-- the first two (or just the second) parameters are used with the SourceData or
-                 TargetData constructor; subsequent parameters should emit into the readXml or
-                 writeXml method, with literals wrapped -->
+            <!-- the first two (or just the second) parameters are used with the SourceData or TargetData
+                 constructor; subsequent parameters should emit into the readXml or writeXml method, with
+                 literals wrapped -->
             <rule>(pos1 >= 2 and oldtype != prog.kw_serialzr) or 
                   ((pos1 == 0 or pos1 >= 3) and oldtype == prog.kw_serialzr)
                <action>putNote("use-method-peerid", true)</action>

=== modified file 'rules/annotations/legacy_services.rules'
--- rules/annotations/legacy_services.rules	2020-10-08 20:26:22 +0000
+++ rules/annotations/legacy_services.rules	2021-01-13 21:04:41 +0000
@@ -12,7 +12,7 @@
 ** 002 CA  20190703 Added support for WebHandler services.
 ** 003 CA  20200514 Added support for SOAP web services.
 ** 004 GES 20200723 Added address attribute for REST.
-** 005 CA  20201008 Annotate any temp-table, dataset, parameter, internal procedure and program which must be
+**     CA  20201008 Annotate any temp-table, dataset, parameter, internal procedure and program which must be
 **                  generated into the legacy open client proxy Java program.
 */
  -->

=== modified file 'rules/annotations/ocx_conversion.rules'
--- rules/annotations/ocx_conversion.rules	2020-09-07 16:23:31 +0000
+++ rules/annotations/ocx_conversion.rules	2021-01-13 21:04:41 +0000
@@ -51,9 +51,11 @@
 **         20200608 Added NODECLICK, BEFORELABELEDIT, AFTERLABELEDIT event triggers.
 ** 012 SBI 20200619 Changed NODECLICK, BEFORELABELEDIT, AFTERLABELEDIT to be according with FWD
 **                  widget events naming convention, AFTERLABELEDIT can update the label's value.
-** 013 SBI 20200722 Added mapping for child, previous, next, firstsibling, lastsibling.
+**     SBI 20200722 Added mapping for child, previous, next, firstsibling, lastsibling.
 **     HC  20200726 Improved OCX conversion of COM properties.
 **     HC  20200827 Fixed conversion of assignment of COM properties with multiple indexes.
+**     CA  20201109 Expose the CALENDAR:VALUE as a 'CalendarValue' attribute which follows the 4GL's datetime
+**                  string representation, and not ISO-8601.
 */
  -->
 <!--
@@ -351,7 +353,7 @@
          
          <!-- Calendar -->
          <action>map6 = create("java.util.HashMap")</action>
-         <action>map6.put("value"            , "DateTimeValue")</action>
+         <action>map6.put("value"            , "CalendarValue")</action>
          <action>map6.put("checkbox"         , "Checked")</action>
          <action>map6.put("font"             , "FontInfo")</action>
          <action>map6.put("format"           , "FormatStyle")</action>

=== modified file 'rules/annotations/record_scoping.rules'
--- rules/annotations/record_scoping.rules	2019-05-30 23:38:09 +0000
+++ rules/annotations/record_scoping.rules	2020-10-30 14:02:14 +0000
@@ -5,9 +5,9 @@
 ** Module   : record_scoping.rules
 ** Abstract : calculates record scopes
 **
-** Copyright (c) 2005-2019, Golden Code Development Corporation.
+** Copyright (c) 2005-2020, Golden Code Development Corporation.
 **
-** _#_ _I_ __Date__ __JPRM__ ________________Description_________________
+** _#_ _I_ __Date__ __JPRM__ _________________________________Description__________________________________
 ** 001 GES 20050919   @22811 Calculates record scopes in a Progress
 **                           compatible manner, including support for
 **                           all of the implicit scope expansion rules.
@@ -61,6 +61,8 @@
 ** 019 CA  20190128          Track buffer's static state (if OO).
 ** 020 CA  20190513          Fixed buffer usage from super-classes, in OO.
 ** 021 CA  20190530          Fixed staging of buffer parameters for OO methods or constructors.
+** 022 ECF 20201029          Create a buffer scope for NEW SHARED defined buffers, in case the buffer is
+**                           not used elsewhere in the procedure where it was defined.
 */
  -->
 <!--
@@ -152,8 +154,7 @@
    
    <walk-rules>
    
-      <!-- push a new scope for each block that has the record scoping
-           property -->
+      <!-- push a new scope for each block that has the record scoping property -->
       <rule>type == prog.block and getNoteBoolean("recordScoping")
          <action>buf.pushScope(copy)</action>
          
@@ -167,18 +168,18 @@
          
       </rule>
       
-      <!-- shared buffer imports (no kw_new) always have a single scope which
-           is associated with the external procedure (you cannot define
-           a shared buffer in a function or internal procedure) -->
+      <!-- shared buffer imports always have a single scope which is associated with the external
+           procedure (you cannot define a shared buffer in a function or internal procedure) -->
+      <!-- this must occur for both NEW SHARED and non-NEW SHARED cases -->
       <!-- temp-tables and work-tables are currently scoped to the external
            procedure but this is NOT CORRECT -->
       <rule>
-         ((type == prog.define_buffer and this.getChildAt(0).type == prog.kw_shared) or
-          type == prog.define_temp_table                                             or
+         ((type == prog.define_buffer and this.getImmediateChild(prog.kw_shared, null) != null) or
+          type == prog.define_temp_table                                                        or
           type == prog.define_work_table) and not ancestor(prog.interface_def, -1)
          
-         <!-- find the target record reference -->
-         <rule>type == prog.define_buffer and this.getChildAt(0).type == prog.kw_shared
+         <!-- find the target record reference (for both NEW SHARED and non-NEW SHARED cases)-->
+         <rule>type == prog.define_buffer and this.getImmediateChild(prog.kw_shared, null) != null
             <action>ref = copy.getImmediateChild(prog.kw_for, null)</action>
             <rule>ref.downPath("TEMP_TABLE")
                <action>ref = ref.getImmediateChild(prog.temp_table, null)</action>

=== modified file 'rules/convert/builtin_functions.rules'
--- rules/convert/builtin_functions.rules	2020-09-07 16:23:31 +0000
+++ rules/convert/builtin_functions.rules	2021-01-13 21:04:41 +0000
@@ -7,7 +7,7 @@
 **
 ** Copyright (c) 2005-2020, Golden Code Development Corporation.
 **
-** _#_ _I_ __Date__ __JPRM__ ____________________________Description_____________________________
+** _#_ _I_ __Date__ __JPRM__ ___________________________________Description___________________________________
 ** 001 GES 20050721   @21759 Good working version which supports a wide
 **                           range of the most common builtin functions
 **                           including all type conversion, math, string
@@ -176,6 +176,8 @@
 **     GES 20200506          Changed the name of DYNAMIC-ENUM().
 **     SBI 20200529          Implemented LOAD-PICTURE.
 ** 102 CA  20200811          SUPER() function has as first argument the caller's return type.
+**     EVL 20201216          Adding function to interrupt metafile recording.
+**     OM  20201120          Added DATA-SOURCE-MODIFIED function. Changed converted ERROR signature.
 */
  -->
  
@@ -265,15 +267,15 @@
             ftype == prog.kw_mf_gfsd or ftype == prog.kw_mf_gfsr  or ftype == prog.kw_mf_gph   or
             ftype == prog.kw_mf_gpn  or ftype == prog.kw_mf_gpw   or ftype == prog.kw_mf_gtw   or
             ftype == prog.kw_mf_gxy  or ftype == prog.kw_mf_gzf   or ftype == prog.kw_mf_init  or
-            ftype == prog.kw_mf_mpdf or ftype == prog.kw_mf_p2mu  or ftype == prog.kw_mf_rp    or
-            ftype == prog.kw_mf_sf   or ftype == prog.kw_mf_sfc   or ftype == prog.kw_mf_sfh   or
-            ftype == prog.kw_mf_si   or ftype == prog.kw_mf_sia   or ftype == prog.kw_mf_sla   or
-            ftype == prog.kw_mf_slc  or ftype == prog.kw_mf_slm   or ftype == prog.kw_mf_sls   or
-            ftype == prog.kw_mf_snp  or ftype == prog.kw_mf_sntl  or ftype == prog.kw_mf_spf   or
-            ftype == prog.kw_mf_spn  or ftype == prog.kw_mf_spnp  or ftype == prog.kw_mf_spnt  or
-            ftype == prog.kw_mf_spo  or ftype == prog.kw_mf_sr    or ftype == prog.kw_mf_sta   or
-            ftype == prog.kw_mf_stc  or ftype == prog.kw_mf_sts   or ftype == prog.kw_mf_sxy   or
-            ftype == prog.kw_mf_szf
+            ftype == prog.kw_mf_ir   or ftype == prog.kw_mf_mpdf  or ftype == prog.kw_mf_p2mu  or
+            ftype == prog.kw_mf_rp   or ftype == prog.kw_mf_sf    or ftype == prog.kw_mf_sfc   or
+            ftype == prog.kw_mf_sfh  or ftype == prog.kw_mf_si    or ftype == prog.kw_mf_sia   or
+            ftype == prog.kw_mf_sla  or ftype == prog.kw_mf_slc   or ftype == prog.kw_mf_slm   or
+            ftype == prog.kw_mf_sls  or ftype == prog.kw_mf_snp   or ftype == prog.kw_mf_sntl  or
+            ftype == prog.kw_mf_spf  or ftype == prog.kw_mf_spn   or ftype == prog.kw_mf_spnp  or
+            ftype == prog.kw_mf_spnt or ftype == prog.kw_mf_spo   or ftype == prog.kw_mf_sr    or
+            ftype == prog.kw_mf_sta  or ftype == prog.kw_mf_stc   or ftype == prog.kw_mf_sts   or
+            ftype == prog.kw_mf_sxy  or ftype == prog.kw_mf_szf
             
             <action>bRet = true</action>
             
@@ -360,6 +362,7 @@
       <rule>fwdId2Mf.put(prog.kw_mf_gxy  , "getXY")</rule>
       <rule>fwdId2Mf.put(prog.kw_mf_gzf  , "getZoomFactor")</rule>
       <rule>fwdId2Mf.put(prog.kw_mf_init , "initialize")</rule>
+      <rule>fwdId2Mf.put(prog.kw_mf_ir   , "interruptRecording")</rule>
       <rule>fwdId2Mf.put(prog.kw_mf_mpdf , "makePdf")</rule>
       <rule>fwdId2Mf.put(prog.kw_mf_p2mu , "pix2MfUnits")</rule>
 <!--      <rule>fwdId2Mf.put(prog.kw_mf_pdoc , "printDoc")</rule>-->
@@ -552,12 +555,18 @@
             <action>dbimport = true</action>
          </rule>
          
+         <!-- DATA-SOURCE-MODIFIED function -->
+         <rule>ftype == prog.kw_data_sm
+            <action>methodText = "DataSourceModifiable.isDataSourceModified"</action>
+            <action>dbimport = true</action>
+         </rule>
+         
          <!-- duplicative with kw_today below but easier to find this way -->
          <rule>ftype == prog.kw_date
             <action>methodText = "date"</action>
             <action>methodType = java.constructor</action>
          </rule>
-
+         
          <rule>ftype == prog.kw_datetime
             <action>methodText = "datetime"</action>
             <action>methodType = java.constructor</action>
@@ -567,7 +576,7 @@
             <action>methodText = "datetimetz"</action>
             <action>methodType = java.constructor</action>
          </rule>
-
+         
          <rule>ftype == prog.kw_day
             <action>methodText = "date.day"</action>
          </rule>
@@ -756,14 +765,13 @@
                <action>extent = deref.getAnnotation("oldextent")</action>
             </rule>
 
-            <!-- if the variable isn't an array var, substitute a integer
-                 constant 0 -->
+            <!-- if the variable isn't an array var, substitute a integer constant 0 -->
             <rule>extent == null or extent == 0
                <action>methodText = "0"</action>
                <action>methodType = java.num_literal</action>
             </rule>
             
-            <!-- for dynamic-extent variables, use the dedicated API to interogate the length -->
+            <!-- for dynamic-extent variables, use the dedicated API to interrogate the length -->
             <rule>
                (extent != null and extent == -1) or
                (copy.parent.isAnnotation("wrap") and
@@ -1341,13 +1349,6 @@
             <action>dbimport = true</action>
          </rule>
          
-         <rule>ftype == prog.kw_error
-            <action>methodType = java.method_call</action>
-            <action>methodText = "isError"</action>
-            <!-- TODO: remove is/set prefix in Errorable interface as per buffer attribute name convention -->
-            <action>dbimport = true</action>
-         </rule>
-         
          <rule>ftype == prog.kw_rejected
             <action>methodType = java.method_call</action>
             <action>methodText = "rejected"</action>
@@ -1655,8 +1656,7 @@
             
             <rule on="false">raiseError
                <action>
-                  errmsg = sprintf("Unsupported builtin function %s.",
-                                   this.lookupTokenName(ftype))
+                  errmsg = sprintf("Unsupported builtin function %s.", this.lookupTokenName(ftype))
                </action>
                <action>printfln("%s\n%s", errmsg, this.dumpTree(true))</action>
             </rule>

=== modified file 'rules/convert/legacy_services.rules'
--- rules/convert/legacy_services.rules	2020-10-08 20:26:22 +0000
+++ rules/convert/legacy_services.rules	2021-01-08 17:01:46 +0000
@@ -5,10 +5,11 @@
 ** Module   : legacy_services.rules
 ** Abstract : conversion related to legacy proxy client code.
 **
-** Copyright (c) 2020, Golden Code Development Corporation.
+** Copyright (c) 2020-2021, Golden Code Development Corporation.
 **
 ** _#_ _I_ __Date__ _______________________________________Description________________________________________
 ** 001 CA  20201007 Created initial version.
+**     CA  20210108 Fixed a typo when generating the Java proxy code for a temp-table field definition.
 */
  -->
  
@@ -366,7 +367,7 @@
                <action>
                   createJavaAst(java.string, #(java.lang.String) propAst.getAnnotation("historical"), ref)
                </action>
-               <rule>isNote("extent")
+               <rule>propAst.isAnnotation("extent")
                   <action>
                      createJavaAst(java.num_literal, sprintf("%s", propAst.getAnnotation("extent")), ref)
                   </action>

=== modified file 'rules/convert/menu_generator.xml'
--- rules/convert/menu_generator.xml	2020-03-23 11:35:33 +0000
+++ rules/convert/menu_generator.xml	2020-10-24 00:11:03 +0000
@@ -7,7 +7,7 @@
 **
 ** Copyright (c) 2015-2020, Golden Code Development Corporation.
 **
-** _#_ _I_ __Date__ ________________________________Description_________________________________
+** _#_ _I_ __Date__ _______________________________________Description_______________________________________
 ** 001 VIG 20141101 Initial version.
 ** 002 VIG 20150204 Added SUB-MENU label support, removeQuotes are replaced by 
 **                  ecw.progressToJavaString() method call.
@@ -18,13 +18,14 @@
 ** 005 OM  20150918 Fixed historical/java names.
 ** 006 VIG 20160621 Added labels collection to uiStrings file.
 ** 007 GES 20171017 Added hexadecimal literal support.
-** 008 CA  20180308 Fixed classname conversion - it was using an aready converted javaname 
+** 008 CA  20180308 Fixed classname conversion - it was using an already converted javaname 
 **                  instead of the legacy name, so it was not converting properly.
 ** 009 GES 20180910 Resolved ambiguous method call (it did not fail previously but the correct
 **                  method was not being called).
 ** 010 CA  20181208 Use progressToJavaString to emit the TITLE option.
 ** 011 CA  20200412 Added incremental conversion support.
 ** 012 SBI 20200322 Added label not null rule for processing menu items.
+** 013 OM  20201016 Added NPE guard for uninitialized uiStrings.
 */
 -->
 
@@ -462,7 +463,9 @@
    
    <post-rules>
       <!-- this is done here, once, as uiStrings will have everything collected -->
-      <rule>execLib("collect_ui_strings", uiStrings)</rule>
+      <rule>uiStrings != null
+         <action>execLib("collect_ui_strings", uiStrings)</action>
+      </rule>
    </post-rules>
 
    <func-library access="private"> 

=== modified file 'rules/convert/method_definitions.rules'
--- rules/convert/method_definitions.rules	2020-09-10 09:54:53 +0000
+++ rules/convert/method_definitions.rules	2021-01-13 21:04:41 +0000
@@ -7,7 +7,7 @@
 **
 ** Copyright (c) 2018-2020, Golden Code Development Corporation.
 **
-** _#_ _I_ __Date__ _______________________________Description_________________________________
+** _#_ _I_ __Date__ _______________________________________Description_______________________________________
 ** 001 GES 20181213 First version.
 ** 002 OM  20181218 Added generics for object getters.
 ** 003 GES 20190118 Changed "access" annotation to "access-mode" for methods. This is consistent
@@ -29,7 +29,7 @@
 **     CA  20200514 Emit the LegacySignature at the external program's 'execute' method and all its internal
 **                  entries.
 ** 009 CA  20200804 Emit bulk setter and getter for an extent property.
-** 010 CA  20200910 Fixed LegacyParameter annotation problem when DEFINE PARAMETER appears somewhere in a 
+**     CA  20200910 Fixed LegacyParameter annotation problem when DEFINE PARAMETER appears somewhere in a
 **                  nested block.
 */
  -->

=== modified file 'rules/convert/methods_attributes.rules'
--- rules/convert/methods_attributes.rules	2020-09-10 09:54:53 +0000
+++ rules/convert/methods_attributes.rules	2021-01-13 21:04:41 +0000
@@ -495,10 +495,16 @@
 **     CA  20200503          Added ERROR:ERROR-STRING, QUERY:CACHE and BUFFER:IS-MULTI-TENANT.
 **     SVL 20200509          Added ALIGNMENT attribute.
 ** 222 SBI 20200619          Added NEW-LABEL attribute for the tree widget.
-** 223 GES 20200627          Renamed Coordinates interface to be more generic.  Added the undocumented
+**     GES 20200627          Renamed Coordinates interface to be more generic.  Added the undocumented
 **                           LAST-EVENT:SET-LASTKEY() method.  Added the LAST-EVENT:COLUMN/ROW attributes
 **                           support.  Added the BUFFER-FIELD:DEFAULT-VALUE attribute.
-** 224 CA  20200910          Added BUFFER:SERIALIZE-ROW() method conversion.
+**     CA  20200910          Added BUFFER:SERIALIZE-ROW() method conversion.
+**     CA  20201109          Expose the CALENDAR:VALUE as a 'CalendarValue' attribute which follows the 4GL's
+**                           datetime string representation, and not ISO-8601.
+**     SVL 20201225          MIN-HEIGHT-CHARS is unwrapped using MinHeightCharsInterface. MAX-HEIGHT-CHARS is
+**                           applicable only to Window widget
+**     OM  20201120          Conversion changes for multiple methods/attributes related to datasets and xml
+**                           serialization.
 */
  -->
  
@@ -613,6 +619,7 @@
          <rule>list.put(prog.kw_aud_ev_c, execLib("cr_descr", "ClientPrincipal"            , "getAuditEventContext"   , "setAuditEventContext"   , true       ))</rule>
          <rule>list.put(prog.kw_authen_f, execLib("cr_descr", "ClientPrincipal"            , "authenticationFailed"   , null                     , true       ))</rule>
          <rule>list.put(prog.kw_auto_com, execLib("cr_descr", "Widget"                     , "isAutoCompletion"       , "setAutoCompletion"      , true       ))</rule>
+         <rule>list.put(prog.kw_auto_del, execLib("cr_descr", "Buffer"                     , "autoDelete"             , "autoDelete"             , true       ))</rule>
          <rule>list.put(prog.kw_auto_end, execLib("cr_descr", "Button"                     , "isAutoEndKey"           , "setAutoEndKey"          , true       ))</rule>
          <rule>list.put(prog.kw_auto_go , execLib("cr_descr", "Button"                     , "isAutoGo"               , "setAutoGo"              , true       ))</rule>
          <rule>list.put(prog.kw_auto_ind, execLib("cr_descr", "Editor"                     , "isAutoIndent"           , "setAutoIndent"          , true       ))</rule>
@@ -668,7 +675,7 @@
          <rule>list.put(prog.kw_cur_qry , execLib("cr_descr", "DataRelation"               , "getCurrentQuery"        , null                     , true       ))</rule>
          <rule>list.put(prog.kw_cvt_3d_c, execLib("cr_descr", "ImageSupport"               , "getConvert3D"           , "setConvert3D"           , true       ))</rule>
          <rule>list.put(prog.kw_data_scm, execLib("cr_descr", "Buffer"                     , "dataSourceCompleteMap"  , null                     , true       ))</rule>
-         <rule>list.put(prog.kw_data_sm , execLib("cr_descr", "DataSet"                    , "isDataSourceModified"   , "setDataSourceModified"  , true       ))</rule>
+         <rule>list.put(prog.kw_data_sm , execLib("cr_descr", "DataSourceModifiable"       , "isDataSourceModified"   , "setDataSourceModified"  , true       ))</rule>
          <rule>list.put(prog.kw_data_src, execLib("cr_descr", "Buffer"                     , "dataSource"             , null                     , true       ))</rule>
          <rule>list.put(prog.kw_data_sri, execLib("cr_descr", "Buffer"                     , "dataSourceRowid"        , "dataSourceRowid"        , true       ))</rule>
          <rule>list.put(prog.kw_dataset , execLib("cr_descr", "Buffer"                     , "dataSet"                , null                     , true       ))</rule>
@@ -676,7 +683,7 @@
          <rule>list.put(prog.kw_db_list , execLib("cr_descr", "ClientPrincipal"            , "getDbList"              , null                     , true       ))</rule>
          <rule>list.put(prog.kw_deblank , execLib("cr_descr", "Deblank"                    , "isDeblank"              , "setDeblank"             , true       ))</rule>
          <rule>list.put(prog.kw_debug   , execLib("cr_descr", "Debugger"                   , "debug"                  , null                     , true       ))</rule>
-         <rule>list.put(prog.kw_decimals, execLib("cr_descr", "BufferField"                , "getDecimals"            , null                     , true       ))</rule>
+         <rule>list.put(prog.kw_decimals, execLib("cr_descr", "BufferField"                , "getDecimals"            , "setDecimals"            , true       ))</rule>
          <rule>list.put(prog.kw_def_comm, execLib("cr_descr", "Transaction"                , "isDefaultCommit"        , "setDefaultCommit"       , true       ))</rule>
          <rule>list.put(prog.kw_def_str , execLib("cr_descr", "BufferField"                , "getDefaultString"       , "setDefaultString"       , true       ))</rule>
          <rule>list.put(prog.kw_def_val , execLib("cr_descr", "BufferField"                , "getDefaultValue"        , ""                       , true       ))</rule>
@@ -711,14 +718,14 @@
          <rule>list.put(prog.kw_end_f_d , execLib("cr_descr", "Droppable"                  , "endFileDrop"            , null                     , true       ))</rule>
          <rule>list.put(prog.kw_ent_tlst, execLib("cr_descr", "LogManager"                 , "getEntryTypesList"      , null                     , true       ))</rule>
          <rule>list.put(prog.kw_entry   , execLib("cr_descr", "CommonListWidget"           , "entry"                  , null                     , true       ))</rule>
-         <rule>list.put(prog.kw_error   , execLib("cr_descr", "Error"                      , "isError"                , "setError"               , true       ))</rule>
+         <rule>list.put(prog.kw_error   , execLib("cr_descr", "Error"                      , "error"                  , "error"                  , true       ))</rule>
          <rule>list.put(prog.kw_err_str , execLib("cr_descr", "ErrorString"                , "errorString"            , "changeErrorString"      , true       ))</rule>
          <rule>list.put(prog.kw_evt_proc, execLib("cr_descr", "EventProcedure"             , "getEventProcedure"      , "setEventProcedure"      , true       ))</rule>
          <rule>list.put(prog.kw_expand  , execLib("cr_descr", "RadioSet"                   , "isExpand"               , "setExpand"              , true       ))</rule>
          <rule>list.put(prog.kw_export_p, execLib("cr_descr", "ClientPrincipal"            , "exportPrincipal"        , null                     , true       ))</rule>
          <rule>list.put(prog.kw_f_key_h , execLib("cr_descr", "DataRelation"               , "getForeignKeyHidden"    , "setForeignKeyHidden"    , true       ))</rule>
          <rule>list.put(prog.kw_fetch_sr, execLib("cr_descr", "Browse"                     , "fetchSelectedRow"       , null                     , true       ))</rule>
-         <rule>list.put(prog.kw_fill_mod, execLib("cr_descr", "Buffer"                     , "fillMode"               , "fillMode"               , true       ))</rule>
+         <rule>list.put(prog.kw_fill_mod, execLib("cr_descr", "Fillable"                   , "fillMode"               , "fillMode"               , true       ))</rule>
          <rule>list.put(prog.kw_fill_wst, execLib("cr_descr", "DataSource"                 , "getFillWhereString"     , "setFillWhereString"     , true       ))</rule>
          <rule>list.put(prog.kw_fill    , execLib("cr_descr", "Fillable"                   , "fill"                   , null                     , true       ))</rule>
          <rule>list.put(prog.kw_filled  , execLib("cr_descr", "Rectangle"                  , "getFilled"              , "setFilled"              , true       ))</rule>
@@ -762,7 +769,7 @@
          <rule>list.put(prog.kw_img_only, execLib("cr_descr", "ImageOnly"                  , "isImageOnly"            , "setImageOnly"           , true       ))</rule>
          <rule>list.put(prog.kw_in_hndl , execLib("cr_descr", "Call"                       , "getInHandle"            , "setInHandle"            , true       ))</rule>
          <rule>list.put(prog.kw_index   , execLib("cr_descr", "Indexed"                    , "getIndex"               , "setIndex"               , true       ))</rule>
-         <rule>list.put(prog.kw_init_c_p, execLib("cr_descr", "ClientPrincipal"            , "initialize"               , null                     , true       ))</rule>
+         <rule>list.put(prog.kw_init_c_p, execLib("cr_descr", "ClientPrincipal"            , "initialize"             , null                     , true       ))</rule>
          <rule>list.put(prog.kw_initiate, execLib("cr_descr", "Debugger"                   , "initiate"               , null                     , true       ))</rule>
          <rule>list.put(prog.kw_inner_c , execLib("cr_descr", "ScrollbarHorizontalElement" , "getInnerChars"          , "setInnerChars"          , true       ))</rule>
          <rule>list.put(prog.kw_inner_l , execLib("cr_descr", "InnerLines"                 , "getInnerLines"          , "setInnerLines"          , true       ))</rule>
@@ -780,7 +787,7 @@
          <rule>list.put(prog.kw_lab_font, execLib("cr_descr", "BrowseElement"              , "getLabelFont"           , "setLabelFont"           , true       ))</rule>
          <rule>list.put(prog.kw_labels  , execLib("cr_descr", "Labels"                     , "isLabels"               , "setLabels"              , true       ))</rule>
          <rule>list.put(prog.kw_large   , execLib("cr_descr", "Editor"                     , "isLarge"                , "setLarge"               , true       ))</rule>
-         <rule>list.put(prog.kw_last_bat, execLib("cr_descr", "Buffer"                     , "isLastBatch"            , "setLastBatch"           , true       ))</rule>
+         <rule>list.put(prog.kw_last_bat, execLib("cr_descr", "Buffer"                     , "lastBatch"              , "lastBatch"              , true       ))</rule>
          <rule>list.put(prog.kw_last_of , execLib("cr_descr", "Query"                      , "isLastOfGroup"          , null                     , true       ))</rule>
          <rule>list.put(prog.kw_last_ti , execLib("cr_descr", "FieldGroup"                 , "getLastTabItem"         , "setLastTabItem"         , true       ))</rule>
          <rule>list.put(prog.kw_length  , execLib("cr_descr", "Editor"                     , "getLength"              , null                     , true       ))</rule>
@@ -819,17 +826,21 @@
          <rule>list.put(prog.kw_merge_rc, execLib("cr_descr", "Buffer"                     , "mergeRowChanges"        , null                     , true       ))</rule>
          <rule>list.put(prog.kw_min_btn , execLib("cr_descr", "Window"                     , "isMinButton"            , "setMinButton"           , true       ))</rule>
          <rule>list.put(prog.kw_min_val , execLib("cr_descr", "Slider"                     , "getMinValue"            , "setMinValue"            , true       ))</rule>
+         <rule>list.put(prog.kw_min_schm, execLib("cr_descr", "TempTable"                  , "isMinSchemaMarshal"     , "setMinSchemaMarshal"    , true       ))</rule>
          <rule>list.put(prog.kw_mnemon  , execLib("cr_descr", "Mnemonic"                   , "getMnemonic"            , null                     , true       ))</rule>
          <rule>list.put(prog.kw_modified, execLib("cr_descr", "Widget"                     , "isModified"             , "setModified"            , true       ))</rule>
          <rule>list.put(prog.kw_mou_ptr , execLib("cr_descr", "Widget"                     , "getMousePointer"        , null                     , true       ))</rule>
          <rule>list.put(prog.kw_mov_2eof, execLib("cr_descr", "Editor"                     , "moveCaretToEof"         , null                     , true       ))</rule>
          <rule>list.put(prog.kw_movable , execLib("cr_descr", "Widget"                     , "isMovable"              , "setMovable"             , true       ))</rule>
          <rule>list.put(prog.kw_multiple, execLib("cr_descr", "Multiple"                   , "isMultiple"             , "setMultiple"            , true       ))</rule>
+         <rule>list.put(prog.kw_namesp_p, execLib("cr_descr", "NamespaceURI"               , "namespacePrefix"        , "namespacePrefix"        , true       ))</rule>
+         <rule>list.put(prog.kw_namesp_u, execLib("cr_descr", "NamespaceURI"               , "namespaceURI"           , "namespaceURI"           , true       ))</rule>
          <rule>list.put(prog.kw_nested  , execLib("cr_descr", "DataRelation"               , "isNested"               , "setNested"              , true       ))</rule>
          <rule>list.put(prog.kw_next_rid, execLib("cr_descr", "DataSource"                 , "getNextRowid"           , "setNextRowid"           , true       ))</rule>
          <rule>list.put(prog.kw_no_cur_v, execLib("cr_descr", "Slider"                     , "isNoCurrentValue"       , "setNoCurrentValue"      , true       ))</rule>
          <rule>list.put(prog.kw_no_em_sp, execLib("cr_descr", "Browse"                     , "isNoEmptySpace"         , "setNoEmptySpace"        , true       ))</rule>
          <rule>list.put(prog.kw_no_focus, execLib("cr_descr", "Button"                     , "getNoFocus"             , "setNoFocus"             , true       ))</rule>
+         <rule>list.put(prog.kw_no_sch_m, execLib("cr_descr", "TempTable"                  , "isNoSchemaMarshal"      , "setNoSchemaMarshal"     , true       ))</rule>
          <rule>list.put(prog.kw_no_valid, execLib("cr_descr", "Browse"                     , "isNoValidate"           , "setNoValidate"          , true       ))</rule>
          <rule>list.put(prog.kw_nodes   , execLib("cr_descr", "Nodes"                      , "getNodes"               , null                     , true       ))</rule>
          <rule>list.put(prog.kw_num_buff, execLib("cr_descr", "BufferCollection"           , "numBuffers"             , null                     , true       ))</rule>
@@ -907,6 +918,7 @@
          <rule>list.put(prog.kw_save_fil, execLib("cr_descr", "Editor"                     , "saveFile"               , null                     , true       ))</rule>
          <rule>list.put(prog.kw_save_rch, execLib("cr_descr", "Buffer"                     , "saveRowChanges"         , null                     , true       ))</rule>
          <rule>list.put(prog.kw_save_wst, execLib("cr_descr", "DataSource"                 , "getSaveWhereString"     , "setSaveWhereString"     , true       ))</rule>
+         <rule>list.put(prog.kw_sch_mars, execLib("cr_descr", "TempTable"                  , "getSchemaMarshal"       , "setSchemaMarshal"       , true       ))</rule>
          <rule>list.put(prog.kw_sing_run, execLib("cr_descr", "Procedure"                  , "isSingleRun"            , null                     , true       ))</rule>
          <rule>list.put(prog.kw_singlton, execLib("cr_descr", "Procedure"                  , "isSingleton"            , null                     , true       ))</rule>
          <rule>list.put(prog.kw_scr_2cr , execLib("cr_descr", "Browse"                     , "scrollToCurrentRow"     , null                     , true       ))</rule>
@@ -922,7 +934,7 @@
          <rule>list.put(prog.kw_selectbl, execLib("cr_descr", "Widget"                     , "isSelectable"           , "setSelectable"          , true       ))</rule>
          <rule>list.put(prog.kw_selected, execLib("cr_descr", "Widget"                     , "isSelected"             , "setSelected"            , true       ))</rule>
          <rule>list.put(prog.kw_sep_fgc , execLib("cr_descr", "Browse"                     , "getSeparatorFgColor"    , "setSeparatorFgColor"    , true       ))</rule>
-         <rule>list.put(prog.kw_serialzh, execLib("cr_descr", "BufferField"                , "getSerializeHidden"     , "setSerializeHidden"     , true       ))</rule>
+         <rule>list.put(prog.kw_serialzh, execLib("cr_descr", "SerializeHiddenable"        , "getSerializeHidden"     , "setSerializeHidden"     , true       ))</rule>
          <rule>list.put(prog.kw_serialzn, execLib("cr_descr", "NamedSerializable"          , "getSerializeName"       , "setSerializeName"       , true       ))</rule>
          <rule>list.put(prog.kw_serialzr, execLib("cr_descr", "Buffer"                     , "serializeRow"           , null                     , true       ))</rule>
          <rule>list.put(prog.kw_server  , execLib("cr_descr", "Remotable"                  , "getServerHandle"        , "setServerHandle"        , true       ))</rule>
@@ -973,7 +985,7 @@
          <rule>list.put(prog.kw_xml_dtyp, execLib("cr_descr", "XmlNode"                    , "getXmlDataType"         , "setXmlDataType"         , true       ))</rule>
          <rule>list.put(prog.kw_xml_nnam, execLib("cr_descr", "XmlNode"                    , "getXmlNodeName"         , "setXmlNodeName"         , true       ))</rule>
          <rule>list.put(prog.kw_xml_ntyp, execLib("cr_descr", "XmlNode"                    , "getXmlNodeType"         , "setXmlNodeType"         , true       ))</rule>
-        
+         
          <!-- The FWD extensions are listed separately. -->
          <rule>list.put(prog.kw_add_bcca, execLib("cr_descr", "EmailSender"                , "addBccAddress"          , ""                       , true       ))</rule>
          <rule>list.put(prog.kw_add_c_n , execLib("cr_descr", "TreeNodeCollection"         , "addChildNode"           , null                     , true       ))</rule>
@@ -1018,7 +1030,7 @@
          <rule>list.put(prog.kw_caltitfg, execLib("cr_descr", "Calendar"                   , "getTitleForeColor"      , "setTitleForeColor"      , true       ))</rule>
          <rule>list.put(prog.kw_caltrlfg, execLib("cr_descr", "Calendar"                   , "getTrailingForeColor"   , "setTrailingForeColor"   , true       ))</rule>
          <rule>list.put(prog.kw_calupdwn, execLib("cr_descr", "Calendar"                   , "isUpDown"               , "setUpDown"              , true       ))</rule>
-         <rule>list.put(prog.kw_calvalue, execLib("cr_descr", "Calendar"                   , "getDateTimeValue"       , "setDateTimeValue"       , true       ))</rule>
+         <rule>list.put(prog.kw_calvalue, execLib("cr_descr", "Calendar"                   , "getCalendarValue"       , "setCalendarValue"       , true       ))</rule>
          <rule>list.put(prog.kw_cease   , execLib("cr_descr", "FWDTimer"                   , "cease"                  , null                     , true       ))</rule>
          <rule>list.put(prog.kw_clea_tab, execLib("cr_descr", "Signature"                  , "clearTablet"              , ""                       , true       ))</rule>
          <rule>list.put(prog.kw_clea_win, execLib("cr_descr", "Signature"                  , "clearSignatureWindow"     , ""                       , true       ))</rule>
@@ -1619,10 +1631,10 @@
                      <action>methodText = "getResourceType"</action>
                   </rule>
 
-                  <rule>ftype == prog.kw_error
+                  <rule>ftype == prog.kw_error and ref.type == prog.sys_handle
                      <action>hwrap = "Error"</action>
                      <action>methodText = "isError"</action>
-
+                     
                      <rule>isAssign
                         <action>methodText = "setError"</action>
                      </rule>
@@ -3894,12 +3906,8 @@
                   </rule>
                </rule>
                
-               <!-- MAX-HEIGHT-CHARS support for browse and windows -->
                <rule>ftype == prog.kw_max_h_c
-                  <rule>htype == prog.kw_browse
-                     <action>hwrap = "Browse"</action>
-                     <action on='false'>hwrap = "Window"</action>
-                  </rule>
+                  <action>hwrap = "Window"</action>
                   <action>methodText = "getMaxHeightChars"</action>
                   <rule>isAssign
                      <action>methodText = "setMaxHeightChars"</action>
@@ -3948,10 +3956,7 @@
 
                <!-- MIN-HEIGHT-CHARS support for browse and windows -->
                <rule>ftype == prog.kw_min_h_c
-                  <rule>htype == prog.kw_browse
-                     <action>hwrap = "Browse"</action>
-                     <action on='false'>hwrap = "Window"</action>
-                  </rule>
+                  <action>hwrap = "MinHeightChars"</action>
                   <action>methodText = "getMinHeightChars"</action>
                   <rule>isAssign
                      <action>methodText = "setMinHeightChars"</action>
@@ -4036,23 +4041,6 @@
                   <!-- setter and getter are both named "name"! -->
                   <action>methodText = "name"</action>
                </rule>
-
-               <!-- Attribute for DOM XML -->
-               <rule>ftype == prog.kw_namesp_p
-                  <action>hwrap = "XEntity"</action>
-                  <action>methodText = "getNamespacePrefix"</action>
-                  <rule>isAssign
-                     <action>methodText = "setNamespacePrefix"</action>
-                  </rule>
-               </rule>
-
-               <rule>ftype == prog.kw_namesp_u
-                  <action>hwrap = "NamespaceURI"</action>
-                  <action>methodText = "getNamespaceURI"</action>
-                  <rule>isAssign
-                     <action>methodText = "setNamespaceURI"</action>
-                  </rule>
-               </rule>
                
                <rule>ftype == prog.kw_new
                   <action>methodText = "newlyCreated"</action>

=== modified file 'rules/convert/variable_references.rules'
--- rules/convert/variable_references.rules	2020-10-09 09:56:27 +0000
+++ rules/convert/variable_references.rules	2020-11-25 18:40:50 +0000
@@ -144,6 +144,7 @@
 **     SBI 20200505          Added COM-SELF conversion support.
 **     RFB 20201002          Added additional parameter to thisProcedure when an annotation is found. Ref #4861
 **     SVL 20201009          Emit extent fields where subscript is an expression.
+**     GES 20201125          Added OS-USERID as a FWD-specific 4GL extension.
 */
  -->
  
@@ -789,6 +790,9 @@
                <rule>oldtype == prog.kw_os_err
                   <action>methodTxt = "FileSystemOps.getLastError"</action>
                </rule>
+               <rule>oldtype == prog.kw_os_uid
+                  <action>methodTxt = "SecurityOps.getOSUserId"</action>
+               </rule>
                <rule>oldtype == prog.kw_pro_arch
                   <action>methodTxt = "EnvironmentOps.getProcessArchitecture"</action>
                </rule>

=== modified file 'rules/fixups/functions_procedures.rules'
--- rules/fixups/functions_procedures.rules	2020-05-04 12:50:30 +0000
+++ rules/fixups/functions_procedures.rules	2020-12-19 00:59:30 +0000
@@ -7,7 +7,7 @@
 **
 ** Copyright (c) 2013-2020 Golden Code Development Corporation.
 **
-** _#_ _I_ __Date__ _________________________________Description_________________________________
+** _#_ _I_ __Date__ _______________________________________Description_______________________________________
 ** 001 CA  20130118 Added support for persistent procedures,  procedure 
 **                  handles and super procedures.  DYNAMIC-FUNCTION(expr IN 
 **                  handle) where expr is not a constant has the IN handle 
@@ -42,7 +42,8 @@
 **     RFB 20200429 Removed a dumpTree that wasn't providing any useful information
 **                  after the "WARNING: Hiding duplicate...".
 **     RFB 20200504 Shortened up some other log messages to still provide info,
-**                  but not perform dumpTree().            
+**                  but not perform dumpTree().
+** 012 OM  20201203 Fixed handling of READ-ONLY attributes.
 */
 -->
 
@@ -180,57 +181,40 @@
          
          <action>funcRetTypes.put(fname, cls)</action>
       </rule>
-
-      <!-- fix read-only parameter assignment. for these cases, the left-side
-           assignment node is re-written to be a string literal with the
-           attribute's name -->
+      
+      <!-- fix read-only parameter assignment. for these cases, the left-side assignment node is re-written
+           to be a string literal with the attribute's name -->
       <rule>type == prog.assign
          <action>ref = copy.getFirstChild()</action>
          <rule>ref.type == prog.colon
-
-            <!-- the last element in the chain will always be the second child of the topmost
-                 COLON node -->
+            <!-- the last element in the chain will always be the second child of the topmost COLON node -->
             <action>ref = ref.getChildAt(1)</action>
             
-            <!-- except if it is a DB_REF_NON_STATIC, which is probably an incorrect tree
-                 build; TODO: resolve this -->
+            <!-- except if it is a DB_REF_NON_STATIC, which is probably an incorrect tree build;
+                 TODO: resolve this -->
             <while>ref.type == prog.db_ref_non_static 
                <action>ref = ref.nextSibling</action>
             </while>
-
+            
             <rule>evalLib("read_only_attribute", ref)
-            
                <action>
-                  printfln("READ_ONLY_WARNING: REWRITING attribute assignment as string at %s line %05d column %05d\n%s\n",
+                  printfln("READ_ONLY_WARNING: REWRITING attribute assignment as string at %s line %05d column %05d",
                            file,
                            line,
-                           this.getColumn(),
-                           this.dumpTree())
+                           this.getColumn())
                </action>
                
-               <!-- force the left-side assignment node to be a 
-                    prog.expression -->
-               <action>pref = copy.getChildAt(1)</action>
-               <action>pref.type = prog.expression</action>
-
-               <!-- force the first child of the prog.expression node to
-                    be a string literal -->
-               <action>pref = pref.getChildAt(0)</action>
-               <action>
-                  pref.text = sprintf('"%s"', ref.text)
-               </action>
-               <action>pref.type = prog.string</action>
+               <!-- inject the name of the READ/ONLY attribute as a new 2nd child character expression -->
+               <action>pref = createProgressAst(prog.expression, copy, 1)</action>
+               <action>pref.putAnnotation("read-only attribute helper", true)</action>
+               <action>pref = createProgressAst(prog.string, pref)</action>
+               <action>pref.text = sprintf('"%s"', ref.text)</action>
                <action>pref.putAnnotation("no_wrap", true)</action>
-               
-               <!--  remove all children of the new "literal" node -->
-               <while>pref.firstChild != null
-                  <action>ref = pref.firstChild</action>
-                  <action>ref.remove()</action>
-               </while>
+               <!-- this way, the actual assigned expression is shifted to 3rd position -->
             </rule>
          </rule>
       </rule>
-
+      
       <!-- capture the all FORWARD, IN handle or IN SUPER function declarations
            which also have a named BUFFER parameter (ignore all others, including
            buffer parameters that have no name) -->

=== modified file 'rules/gaps/expressions.rules'
--- rules/gaps/expressions.rules	2020-09-10 09:54:53 +0000
+++ rules/gaps/expressions.rules	2021-01-13 21:04:41 +0000
@@ -185,7 +185,9 @@
 **     SBI 20200520 LOAD-PICTURE is fully supported.
 ** 053 GES 20200628 Added SET-LASTKEY method and updated DEFAULT-STRING and DEFAULT-VALUE attributes.
 **     HC  20200726 Initial implementation of SPREADSHEET widget and related changes.
-** 054 CA  20200910 Added BUFFER:SERIALIZE-ROW() method conversion as FULL.
+**     CA  20200910 Added BUFFER:SERIALIZE-ROW() method conversion as FULL.
+**     GES 20201125 Added OS-USERID as a FWD-specific 4GL extension.
+**     OM  20201120 Updated gaps for multiple methods/attributes related to datasets and xml serialization.
 */
  -->
  
@@ -377,7 +379,7 @@
          <rule>funcs.put(prog.kw_cur_res , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>
          <rule>funcs.put(prog.kw_cur_val , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>
          <rule>funcs.put(prog.kw_cvt_dt  , rw.cvt_lvl_none    | rw.rt_lvl_none)</rule> <!-- webspeed convert-datetime is notsupported -->
-         <rule>funcs.put(prog.kw_data_sm , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule> <!-- data-source-modified is not supported -->
+         <rule>funcs.put(prog.kw_data_sm , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>
          <rule>funcs.put(prog.kw_date    , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>
          <rule>funcs.put(prog.kw_date_tz , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>
          <rule>funcs.put(prog.kw_datetime, rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>
@@ -600,6 +602,7 @@
          <rule>vars.put(prog.kw_opsys   , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>
          <rule>vars.put(prog.kw_os_drv  , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>
          <rule>vars.put(prog.kw_os_err  , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>
+         <rule>vars.put(prog.kw_os_uid  , rw.cvt_lvl_full    | rw.rt_lvl_full)</rule> <!-- FWD extension, not real 4GL -->
          <rule>vars.put(prog.kw_pro_arch, rw.cvt_lvl_full    | rw.rt_lvl_full)</rule>
          <rule>vars.put(prog.kw_proc_hnd, rw.cvt_lvl_none    | rw.rt_lvl_none)</rule> <!-- proc-handle is not supported -->
          <rule>vars.put(prog.kw_proc_st , rw.cvt_lvl_none    | rw.rt_lvl_none)</rule> <!-- proc-status is not supported -->
@@ -819,7 +822,7 @@
          <rule>attrs.put(prog.kw_data_e_r, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_data_scm, rw.cvt_lvl_full       | rw.rt_lvl_stub)</rule> <!-- data-source-complete-map -->
          <rule>attrs.put(prog.kw_dataset , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- dataset -->
-         <rule>attrs.put(prog.kw_data_sm , rw.cvt_lvl_full       | rw.rt_lvl_partial)</rule> <!-- data-source-modified -->
+         <rule>attrs.put(prog.kw_data_sm , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- data-source-modified -->
          <rule>attrs.put(prog.kw_data_src, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- data-source -->
          <rule>attrs.put(prog.kw_data_sri, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- data-source-rowid -->
          <rule>attrs.put(prog.kw_datatype, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
@@ -931,8 +934,8 @@
          <rule>attrs.put(prog.kw_fil_c_t , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_fill    , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- fill -->
          <rule>attrs.put(prog.kw_filled  , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
-         <rule>attrs.put(prog.kw_fill_mod, rw.cvt_lvl_full       | rw.rt_lvl_full_restr)</rule> <!-- fill-mode; DATSET:FILL-MODE stubbed -->
-         <rule>attrs.put(prog.kw_fill_wst, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- fill-where-string -->
+         <rule>attrs.put(prog.kw_fill_mod, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- fill-mode -->
+         <rule>attrs.put(prog.kw_fill_wst, rw.cvt_lvl_full       | rw.rt_lvl_partial)</rule> <!-- fill-where-string: must be recomputed when active relations change -->
          <rule>attrs.put(prog.kw_fil_m_d , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_fil_m_t , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_fil_name, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
@@ -1143,7 +1146,7 @@
          <rule>attrs.put(prog.kw_language, rw.cvt_lvl_none       | rw.rt_lvl_none)</rule> <!-- languages -->
          <rule>attrs.put(prog.kw_large   , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_last_ar , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
-         <rule>attrs.put(prog.kw_last_bat, rw.cvt_lvl_full       | rw.rt_lvl_stub)</rule> <!-- last-batch -->
+         <rule>attrs.put(prog.kw_last_bat, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- last-batch -->
          <rule>attrs.put(prog.kw_last_ch , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_last_frm, rw.cvt_lvl_none       | rw.rt_lvl_none)</rule> <!-- last-form -->
          <rule>attrs.put(prog.kw_last_obj, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- last-object -->
@@ -1217,7 +1220,7 @@
          <rule>attrs.put(prog.kw_menu_mou, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_merge_bf, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- merge-by-field -->
          <rule>attrs.put(prog.kw_merge_ch, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- merge-changes -->
-         <rule>attrs.put(prog.kw_merge_rc, rw.cvt_lvl_full       | rw.rt_lvl_stub)</rule> <!-- merge-row-changes -->
+         <rule>attrs.put(prog.kw_merge_rc, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- merge-row-changes -->
          <rule>attrs.put(prog.kw_min_btn , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- min-button -->
          <rule>attrs.put(prog.kw_min_cwch, rw.cvt_lvl_none       | rw.rt_lvl_none)</rule> <!-- min-column-width-chars -->
          <rule>attrs.put(prog.kw_min_cwpx, rw.cvt_lvl_none       | rw.rt_lvl_none)</rule> <!-- min-column-width-pixels -->
@@ -1264,6 +1267,7 @@
          <rule>attrs.put(prog.kw_nodv_2lc, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_no_em_sp, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> 
          <rule>attrs.put(prog.kw_no_focus, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
+         <rule>attrs.put(prog.kw_no_pre,   rw.cvt_lvl_full       | rw.rt_lvl_full_restr)</rule> <!-- no-prefetch: implicit in FWD, not aware of side-effects ATM-->
          <rule>attrs.put(prog.kw_normalze, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_no_sch_m, rw.cvt_lvl_none       | rw.rt_lvl_none)</rule> <!-- no-schema-marshal -->
          <rule>attrs.put(prog.kw_no_valid, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- the no-validate attr is a browse-only feature in the 4GL -->
@@ -1366,8 +1370,8 @@
          <rule>attrs.put(prog.kw_read_fil, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_read_jsn, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- read-json, done for DATASETS, too -->
          <rule>attrs.put(prog.kw_read_onl, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
-         <rule>attrs.put(prog.kw_read_xml, rw.cvt_lvl_full       | rw.rt_lvl_partial)</rule> <!-- read-xml, valioations need to be tested for DATASETS -->
-         <rule>attrs.put(prog.kw_read_xsc, rw.cvt_lvl_full       | rw.rt_lvl_stub)</rule> <!-- read-xmlschema -->
+         <rule>attrs.put(prog.kw_read_xml, rw.cvt_lvl_full       | rw.rt_lvl_partial)</rule> <!-- read-xml, validations need to be tested for DATASETS -->
+         <rule>attrs.put(prog.kw_read_xsc, rw.cvt_lvl_full       | rw.rt_lvl_partial)</rule> <!-- read-xmlschema: missing some optional parameters -->
          <rule>attrs.put(prog.kw_recid   , rw.cvt_lvl_full       | rw.rt_lvl_full_restr)</rule> <!-- id returned not backward compatible with Progress recid -->
          <rule>attrs.put(prog.kw_rec_len , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- record-length -->
          <rule>attrs.put(prog.kw_recurse , rw.cvt_lvl_full       | rw.rt_lvl_stub)</rule> <!-- recursive -->
@@ -1392,7 +1396,7 @@
          <rule>attrs.put(prog.kw_repos_2i, rw.cvt_lvl_full_restr | rw.rt_lvl_full_restr)</rule> <!-- tenant-expression not supported -->
          <rule>attrs.put(prog.kw_repos_2r, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>   
          <rule>attrs.put(prog.kw_repos_b , rw.cvt_lvl_full       | rw.rt_lvl_basic)</rule> <!-- error reporting TODO -->
-         <rule>attrs.put(prog.kw_repos   , rw.cvt_lvl_full       | rw.rt_lvl_partial)</rule> <!-- reposition --> 
+         <rule>attrs.put(prog.kw_repos   , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- reposition --> 
          <rule>attrs.put(prog.kw_repos_f , rw.cvt_lvl_full       | rw.rt_lvl_basic)</rule> <!-- error reporting TODO -->
          <rule>attrs.put(prog.kw_rep_stxt, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_req_info, rw.cvt_lvl_none       | rw.rt_lvl_full)</rule> <!-- request-info -->
@@ -1449,7 +1453,7 @@
          <rule>attrs.put(prog.kw_seal    , rw.cvt_lvl_full       | rw.rt_lvl_partial)</rule> <!-- seal -->
          <rule>attrs.put(prog.kw_seal_tst, rw.cvt_lvl_full       | rw.rt_lvl_stub)</rule> <!-- seal-timestamp -->
          <rule>attrs.put(prog.kw_search  , rw.cvt_lvl_full       | rw.rt_lvl_full_restr)</rule> <!-- no procedure library member syntax support -->
-         <rule>attrs.put(prog.kw_sel_all , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>   
+         <rule>attrs.put(prog.kw_sel_all , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_selectbl, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_selected, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_sel_end , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
@@ -1463,7 +1467,7 @@
          <rule>attrs.put(prog.kw_sep_fgc , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_seps    , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_serialzh, rw.cvt_lvl_full       | rw.rt_lvl_partial)</rule> <!-- serialize-hidden -->
-         <rule>attrs.put(prog.kw_serialzn, rw.cvt_lvl_full       | rw.rt_lvl_partial)</rule> <!-- serialize-name -->
+         <rule>attrs.put(prog.kw_serialzn, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- serialize-name -->
          <rule>attrs.put(prog.kw_serialzr, rw.cvt_lvl_full       | rw.rt_lvl_stub)</rule> <!-- serialize-row -->
          <rule>attrs.put(prog.kw_server  , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_sess_end, rw.cvt_lvl_none       | rw.rt_lvl_none)</rule> <!-- session-end -->
@@ -1475,8 +1479,8 @@
          <rule>attrs.put(prog.kw_set_blue, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
          <rule>attrs.put(prog.kw_set_brk , rw.cvt_lvl_full       | rw.rt_lvl_stub)</rule> <!-- set-break -->
          <rule>attrs.put(prog.kw_set_buf , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>
-         <rule>attrs.put(prog.kw_set_cbac, rw.cvt_lvl_full       | rw.rt_lvl_partial)</rule> <!-- set-callback, not for queries -->
-         <rule>attrs.put(prog.kw_set_cb_p, rw.cvt_lvl_full       | rw.rt_lvl_partial)</rule> <!-- not runtime for queries-->
+         <rule>attrs.put(prog.kw_set_cbac, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- set-callback -->
+         <rule>attrs.put(prog.kw_set_cb_p, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- set-callback-procedure -->
          <rule>attrs.put(prog.kw_set_clnt, rw.cvt_lvl_full       | rw.rt_lvl_basic)</rule> <!-- set-client -->
          <rule>attrs.put(prog.kw_set_comm, rw.cvt_lvl_full       | rw.rt_lvl_full)</rule> <!-- set-commit -->
          <rule>attrs.put(prog.kw_set_c_p , rw.cvt_lvl_full       | rw.rt_lvl_full)</rule>

=== modified file 'rules/gaps/lang_stmts.rules'
--- rules/gaps/lang_stmts.rules	2020-03-31 19:34:28 +0000
+++ rules/gaps/lang_stmts.rules	2020-12-16 15:49:52 +0000
@@ -36,6 +36,7 @@
 **     GES 20191015 More updates for OO and structured error handling.
 ** 022 HC  20200331 Implemented support for OPEN-POPUP legacy method, which opens popup menu set
 **                  on the widget.
+** 023 EVL 20201216 Added function to interrupt metafile recording.
 */
  -->
 
@@ -261,6 +262,7 @@
          <rule>opts.put(prog.kw_mf_gxy,                   rw.cvt_lvl_partial | rw.rt_lvl_basic)</rule> <!-- FWD extension, not real 4GL -->
          <rule>opts.put(prog.kw_mf_gzf,                   rw.cvt_lvl_partial | rw.rt_lvl_basic)</rule> <!-- FWD extension, not real 4GL -->
          <rule>opts.put(prog.kw_mf_init,                  rw.cvt_lvl_partial | rw.rt_lvl_basic)</rule> <!-- FWD extension, not real 4GL -->
+         <rule>opts.put(prog.kw_mf_ir,                    rw.cvt_lvl_partial | rw.rt_lvl_basic)</rule> <!-- FWD extension, not real 4GL -->
          <rule>opts.put(prog.kw_mf_mpdf,                  rw.cvt_lvl_partial | rw.rt_lvl_basic)</rule> <!-- FWD extension, not real 4GL -->
          <rule>opts.put(prog.kw_mf_p2mu,                  rw.cvt_lvl_partial | rw.rt_lvl_basic)</rule> <!-- FWD extension, not real 4GL -->
          <rule>opts.put(prog.kw_mf_rp,                    rw.cvt_lvl_partial | rw.rt_lvl_basic)</rule> <!-- FWD extension, not real 4GL -->

=== modified file 'rules/include/common-progress.rules'
--- rules/include/common-progress.rules	2020-09-30 11:51:44 +0000
+++ rules/include/common-progress.rules	2021-01-13 21:04:41 +0000
@@ -6,7 +6,7 @@
 **
 ** Copyright (c) 2005-2020, Golden Code Development Corporation.
 **
-** _#_ _I_ __Date__ __JPRM__ ____________________________Description_____________________________
+** _#_ _I_ __Date__ __JPRM__ __________________________________Description__________________________________
 ** 001 GES 20050721   @21761 Good working version which provides many callable functions/rules 
 **                           that allow the centralized definition and reuse of complex
 **                           expressions, logic and processing.
@@ -440,6 +440,7 @@
 **     GES 20200521          Added legacy name overrides.
 ** 236 CA  20200803          Added create_temp_table_key_criteria.
 ** 237 IAS 20200809          Added support for the MAX-WIDTH FIELD attribute.
+**     OM  20201120          The DECIMALS attribute is writable for TEMP-TABLES but not for permanent tables.
 */
  -->
  
@@ -6881,39 +6882,38 @@
          </rule>
          
       </function>
-
+      
       <function name="read_only_attribute">
          <parameter name="ref"   type="com.goldencode.ast.Aast" />
          <variable  name="ref2"  type="com.goldencode.ast.Aast" />
          <variable  name="ftype" type="java.lang.Integer" />
          <return    name="res"   type="java.lang.Boolean" />
-         <expression>
-            ftype = #(int) (#(long) ref.getAnnotation("oldtype"))
-         </expression>
+         <expression>ftype = #(int) (#(long) ref.getAnnotation("oldtype"))</expression>
          
          <!-- attributes that are partially read-only, they are not included in the list below -->
-         <!-- prog.kw_cur_iter || (only the dataset attr is read-only, the widget version is read/write -->
+         <!-- prog.kw_cur_iter    || (only the dataset attr is read-only, the widget version is read/write -->
+         <!-- prog.kw_decimals    || writable for TEMP-TABLES but not for permanent tables  -->
          <!-- prog.kw_kw_evt_proc || read-only for the async request, the CALL version is read/write -->
-         <!-- prog.kw_e_proc_c || read-only for the async request, the CALL version is read/write -->
-         <!-- prog.kw_log_en_t || read-only for dslog-manager but writable for log-manager -->
-         <!-- prog.kw_logf_nam || read-only for dslog-manager but writable for log-manager -->
-         <!-- prog.kw_multiple || read-only for browse but writable for other widgets -->
-         <!-- prog.kw_name     || read-only for soap-header and soap-header-entryref but writable for everyone else -->
-         <!-- prog.kw_namesp_p || read-only for x-document, writable for others -->
-         <!-- prog.kw_namesp_u || read-only for soap-header, soap-header-entryref, x-document, x-noderef but writable for everyone else -->
-         <!-- prog.kw_primary  || read-only for buffer but writable for temp-table -->
-         <!-- prog.kw_rsp_info || read-only for asynch-request but writable for server -->
-         <!-- prog.kw_row   || read-only for browse col, field-group and last-event but writable for all others -->
-         <!-- prog.kw_row_mark || read-only only after the browse has been realized -->
-         <!-- prog.kw_server   || read-only for server and codebase-locator and writable for others -->
-         <!-- prog.kw_side_l_h || read-only for static widgets but not dynamic widgets -->
-         <!-- prog.kw_subtype  || read-only for combo-box, server, x-document, x-noderef and writable for others -->
-         <!-- prog.kw_titl_dc || read-only for browse, writable for others -->
-         <!-- prog.kw_visible || read-only for field-groups, menus, menu-items, sub-menus and writable for all others -->
-         <!-- prog.kw_width_c || read-only for field-group and the session handle, writable for others -->
-         <!-- prog.kw_width_p || read-only for field-group and the session handle, writable for others -->
-         <!-- prog.kw_x       || read-only for field-group, browse cells and last-event, writable for others -->
-         <!-- prog.kw_y       || read-only for field-group, browse cells and last-event, writable for others -->
+         <!-- prog.kw_e_proc_c    || read-only for the async request, the CALL version is read/write -->
+         <!-- prog.kw_log_en_t    || read-only for dslog-manager but writable for log-manager -->
+         <!-- prog.kw_logf_nam    || read-only for dslog-manager but writable for log-manager -->
+         <!-- prog.kw_multiple    || read-only for browse but writable for other widgets -->
+         <!-- prog.kw_name        || read-only for soap-header and soap-header-entryref but writable for everyone else -->
+         <!-- prog.kw_namesp_p    || read-only for x-document, writable for others -->
+         <!-- prog.kw_namesp_u    || read-only for soap-header, soap-header-entryref, x-document, x-noderef but writable for everyone else -->
+         <!-- prog.kw_primary     || read-only for buffer but writable for temp-table -->
+         <!-- prog.kw_rsp_info    || read-only for asynch-request but writable for server -->
+         <!-- prog.kw_row         || read-only for browse col, field-group and last-event but writable for all others -->
+         <!-- prog.kw_row_mark    || read-only only after the browse has been realized -->
+         <!-- prog.kw_server      || read-only for server and codebase-locator and writable for others -->
+         <!-- prog.kw_side_l_h    || read-only for static widgets but not dynamic widgets -->
+         <!-- prog.kw_subtype     || read-only for combo-box, server, x-document, x-noderef and writable for others -->
+         <!-- prog.kw_titl_dc     || read-only for browse, writable for others -->
+         <!-- prog.kw_visible     || read-only for field-groups, menus, menu-items, sub-menus and writable for all others -->
+         <!-- prog.kw_width_c     || read-only for field-group and the session handle, writable for others -->
+         <!-- prog.kw_width_p     || read-only for field-group and the session handle, writable for others -->
+         <!-- prog.kw_x           || read-only for field-group, browse cells and last-event, writable for others -->
+         <!-- prog.kw_y           || read-only for field-group, browse cells and last-event, writable for others -->
          
          <!-- this is the list of known READ-ONLY attributes -->
          <!-- THIS IS A CHANGE FROM THE PREVIOUS APPROACH OF ENCODING A LIST OF WRITABLE ATTRS -->
@@ -6998,7 +6998,6 @@
                    ftype == prog.kw_dde_id   ||
                    ftype == prog.kw_dde_name ||
                    ftype == prog.kw_dde_topi ||
-                   ftype == prog.kw_decimals ||
                    ftype == prog.kw_def_bufh ||
                    ftype == prog.kw_def_val  ||
                    ftype == prog.kw_disp_typ ||

=== modified file 'rules/schema/dmo_common.rules'
--- rules/schema/dmo_common.rules	2020-10-22 11:53:30 +0000
+++ rules/schema/dmo_common.rules	2021-01-31 10:14:52 +0000
@@ -124,15 +124,20 @@
 **     SBI 20190728          Added "help" annotation.
 ** 056 OM  20190831          Added hidden fields and index specific to BEFORE TEMP-TABLES.
 ** 057 IAS 20200601          Added support for the table/field string attributes (*-SA properties).
-** 058 OM  20200108          Moved back the extent support method definition to main interface.
+** 058 IAS 20200604          Added support for the table/filed 'can*' attributes and table 'valexp' attr
+** 059 OM  20200108          Moved back the extent support method definition to main interface.
 **                           Added support for "dirty-read" hint/annotation.
 **                           Removed generation of DMO implementation classes.
-** 059 IAS 20200604          Added support for the table/filed 'can*' attributes and table 'valexp' attributes
+** 060 IAS 20200604          Added support for the table/filed 'can*' attributes and table 'valexp' attributes
 **     IAS 20200624          Added support for the field VIEW-AS attributes
 **     IAS 20200809          Added support for the field DECIMALS, DESCRIPTION, CASE-SENSITIVE, and 
 **                           MAX-WIDTH attributes
-** 060 OM  20200925          Fixed latent issue. adjustDataType() returned null in some cases.
+**     OM  20200925          Fixed latent issue. adjustDataType() returned null in some cases.
 **     CA  20201021          Fixed runtime conversion of dynamic temp-tables with Progress.Lang.Object fields.
+**     SVL 20201111          Raise error if LABEL/COLUMN-LABEL matches reserved FWD 'null string'.
+**     OM  20201120          Added "no-undo" annotation.
+**     IAS 20201203          Added generation database object for the word tables' support.
+**     IAS 20201219          Added 'CPSTREAM' import task argument
 -->
 
 <!--
@@ -872,6 +877,11 @@
                </action>
             </rule>
             
+            <!-- graft "no-undo" annotation -->
+            <rule>copy.isAnnotation("no-undo-tt")
+               <action>tpl.graft("annotation_assign_true", null, tableAst, "key", "noUndo")</action>
+            </rule>
+            
             <!-- graft "serialize-name" annotation -->
             <rule>copy.isAnnotation("serialize-name")
                <action>
@@ -951,15 +961,13 @@
                   </action>
                </rule>
                
-               <rule>!isWord
-                  <action>idxName = idxAst.getAnnotation("historical")</action>
-                  
-                  <rule>!idxAst.parent.isAnnotation("drop")
-                     <action>
-                        ddl.addIndex(
-                              ddlSchema, legacyTable, idxName, idxAst.text, isPrimary, isUnique, isWord)
-                     </action>
-                  </rule>
+               <action>idxName = idxAst.getAnnotation("historical")</action>
+               
+               <rule>!idxAst.parent.isAnnotation("drop")
+                  <action>
+                     ddl.addIndex(
+                           ddlSchema, legacyTable, idxName, idxAst.text, isPrimary, isUnique, isWord)
+                  </action>
                </rule>
                
                <!--loop through index components-->
@@ -971,8 +979,9 @@
                <while>idxCompAst != null
                   <action>ref = getAst(#(long) idxCompAst.getAnnotation("refid"))</action>
                   
-                  <variable name="isDesc"     type="java.lang.Boolean" />
-                  <variable name="legacyName" type="java.lang.String" />
+                  <variable name="isDesc"        type="java.lang.Boolean" />
+                  <variable name="legacyName"    type="java.lang.String" />
+                  <variable name="wordTableName" type="java.lang.String" />
                   <action>
                      isDesc = idxCompAst.isAnnotation("descend") and
                               #(boolean) idxCompAst.getAnnotation("descend")
@@ -985,17 +994,15 @@
                                                 'legacy_name', legacyName)
                   </action>
                   <rule>!ref.parent.isAnnotation("drop")
-                     <rule>!isWord
-                        <action>
-                           ddl.addIndexComponent(ddlSchema, legacyTable, idxName, ref.text,
-                                                 #(java.lang.String) ref.getAnnotation("column"),
-                                                 legacyName,
-                                                 ref.getAnnotation("datatype").equals("character"),
-                                                 ref.isAnnotation("case-sensitive") and
-                                                      #(boolean) ref.getAnnotation("case-sensitive"),
-                                                 isDesc)
-                        </action>
-                     </rule>
+                  <action>
+                     ddl.addIndexComponent(ddlSchema, legacyTable, idxName, ref.text,
+                                           #(java.lang.String) ref.getAnnotation("column"),
+                                           legacyName,
+                                           ref.getAnnotation("datatype").equals("character"),
+                                           ref.isAnnotation("case-sensitive") and
+                                                #(boolean) ref.getAnnotation("case-sensitive"),
+                                           isDesc)
+                  </action>
                   </rule>
                   
                   <rule>isDesc
@@ -1009,6 +1016,17 @@
                      idxCompAst = idxAst.getImmediateChild(data.index_col, idxCompAst)
                   </action>
                </while>
+
+                <rule>isWord
+                    <action>
+                        wordTableName = ddl.getWordTableName(ddlSchema, legacyTable, idxName)
+                    </action>
+                    <action>
+                         tpl.graft('annotation_assign_string', null, primaryAst,
+                                   'key', 'wordtablename',
+                                   'value', wordTableName)
+                    </action>
+                </rule>
                
                <!-- advance to the next index AST -->
                <action>idxAst = copy.getImmediateChild(data.index, idxAst)</action>
@@ -1579,7 +1597,7 @@
          <variable  name="decimals"       type="java.lang.Long" />
          <variable  name="width"          type="java.lang.Long" />
          <variable  name="caseSensitive"  type="java.lang.Boolean" />
-         
+
          <!-- graft "fieldId" / "id" annotation -->
          <rule>newDMO
             <action on="true">
@@ -1690,6 +1708,7 @@
          <!-- graft "column-label" annotation -->
          <rule>sourceAst.isAnnotation("col_lab")
             <action>tmpString = sourceAst.getAnnotation('col_lab')</action>
+            <action>execLib("checkReservedNull", tmpString, "COLUMN-LABEL")</action>
             <action>
                tpl.graft('annotation_assign_string', null, fieldAst,
                          'key',   'columnLabel',
@@ -1720,6 +1739,7 @@
          <!-- graft "label" annotation -->
          <rule>sourceAst.isAnnotation("label")
             <action>tmpString = sourceAst.getAnnotation('label')</action>
+            <action>execLib("checkReservedNull", tmpString, "LABEL")</action>
             <action>
                tpl.graft('annotation_assign_string', null, fieldAst,
                          'key',   'label',
@@ -2452,7 +2472,7 @@
          <!-- add needed Hibernate properties -->
          <rule>
             hiberProps = execLib("buildDbImportProperties",
-                                 dbName, targetDb, null, null, null)
+                                 dbName, targetDb, null, null, null, null)
          </rule>
          <rule>config.addProperties(hiberProps)</rule>
          
@@ -2463,6 +2483,18 @@
          <rule>p2jDatabase = create("com.goldencode.p2j.persist.Database", dbName)</rule>
          
       </function>
+
+      <!-- Raises error if the given parameter matches reserved FWD 'null string'. -->
+      <function name="checkReservedNull">
+         <parameter  name="param"       type="java.lang.String" />
+         <parameter  name="paramType"   type="java.lang.String" />
+
+         <rule>param.equals("__NULL_STRING__#!^+*__")
+            <action>throwException(sprintf("ERROR: By miraculous coincidence in-app %s
+               matches reserved FWD 'null string' constant '__NULL_STRING__#!^+*__'. Update
+               this constant in FWD.", paramType))</action>
+         </rule>
+      </function>
       
    </func-library>
    

=== modified file 'rules/schema/generate_ddl.xml'
--- rules/schema/generate_ddl.xml	2020-09-23 23:47:02 +0000
+++ rules/schema/generate_ddl.xml	2021-01-13 21:04:41 +0000
@@ -5,7 +5,7 @@
 **
 ** Copyright (c) 2006-2020, Golden Code Development Corporation.
 **
-** _#_ _I_ __Date__ _________________________________Description_________________________________
+** _#_ _I_ __Date__ _______________________________________Description_______________________________________
 ** 001 GES 20100629 Created initial version based on reindex.xml. Walks P2O
 **                  AST to setup Hibernate, then uses Hibernate to generate
 **                  DDL for all tables and for all indexes.
@@ -35,6 +35,7 @@
 ** 015 VMN 20140502 Added enhance schema name conversion support for hint "escape" attribute.
 ** 016 OM  20160712 Removed p2j_id_generator_sequence from generated index DDL.
 ** 017 OM  20200906 New ORM implementation.
+** 018 OM  20201231 The index components is aware of all their name (legacy/orm/sql).
 -->
 
 <!--

=== modified file 'rules/schema/iface_comp.rules'
--- rules/schema/iface_comp.rules	2020-03-25 20:08:54 +0000
+++ rules/schema/iface_comp.rules	2020-11-20 18:40:59 +0000
@@ -6,7 +6,7 @@
 **
 ** Copyright (c) 2005-2020, Golden Code Development Corporation.
 **
-** _#_ _I_ __Date__ __JPRM__ ____________________________Description_____________________________
+** _#_ _I_ __Date__ __JPRM__ ___________________________________Description___________________________________
 ** 001 ECF 20050922   @22942 Created initial version. Provides creation rules for the composite
 **                           getter and setter method declarations of a DMO interface Java AST.
 ** 002 ECF 20060321   @25269 Made numeric DMO setter methods more lenient. Setters for integer
@@ -28,6 +28,7 @@
 **                           assign method.
 ** 011 OM  20200108          Moved back the extent support method definition to main interface
 **                           (reverting H009).
+** 012 OM  20201120          Detected EXTENT annotation in a more reliant way (and simple at the same time).
 -->
 
 <!--
@@ -101,7 +102,6 @@
    <include name="schema/dmo_common" />
    
    <!-- variable declarations -->
-   <variable name="refAst"          type="com.goldencode.ast.Aast" />
    <variable name="methRoot"        type="com.goldencode.ast.Aast" />
    <variable name="descList"        type="java.util.List" />
    <variable name="extentVal"       type="java.lang.Long" />
@@ -119,13 +119,12 @@
    
    <walk-rules>
    
-      <rule>type == data.property and this.isAnnotation('composite')
+      <rule>type == data.property and this.isAnnotation("extent")
       
          <!-- retrieve necessary annotations -->
          <action>dataType = execLib('getDataType', this)</action>
          <action>dType = execLib('adjustDataType', dataType)</action>
-         <action>refAst = getAst(#(long) this.getAnnotation('composite'))</action>
-         <action>extentVal = refAst.getAnnotation('extent')</action>
+         <action>extentVal = this.getAnnotation("extent")</action>
          
          <!-- gather javadoc data -->
          <action>descList = execLib('gatherDocData', this)</action>

=== modified file 'rules/schema/import.xml'
--- rules/schema/import.xml	2020-09-23 23:47:02 +0000
+++ rules/schema/import.xml	2021-01-25 07:55:58 +0000
@@ -97,6 +97,8 @@
 ** 030 OM  20200906          New ORM implementation.
 ** 031 CA  20200910          Fixed the datetime(-tz) field's initial value at import - it uses ISO8601
 **                           format or NOW function.
+**     IAS 20201219          Added 'CPSTREAM' import task argument
+**                           Added word tables population on import
 -->
 
 <!--
@@ -197,11 +199,12 @@
    <variable name="fwdDialect"      type="com.goldencode.p2j.persist.dialect.Dialect" />
    
    <!-- parameters -->
-   <variable name="dbName"   type="java.lang.String" /> <!-- required -->
-   <variable name="targetDb" type="java.lang.String" /> <!-- defaults to "h2" -->
-   <variable name="url"      type="java.lang.String" /> <!-- defaults to "jdbc:h2:dbs/<dbName>;MVCC=true" -->
-   <variable name="uid"      type="java.lang.String" /> <!-- defaults to "gc" -->
-   <variable name="pw"       type="java.lang.String" /> <!-- defaults to "p3rs1st" -->
+   <variable name="dbName"    type="java.lang.String" /> <!-- required -->
+   <variable name="targetDb"  type="java.lang.String" /> <!-- defaults to "h2" -->
+   <variable name="url"       type="java.lang.String" /> <!-- defaults to "jdbc:h2:dbs/<dbName>;MVCC=true" -->
+   <variable name="uid"       type="java.lang.String" /> <!-- defaults to "gc" -->
+   <variable name="pw"        type="java.lang.String" /> <!-- defaults to "p3rs1st" -->
+   <variable name="cpstream"  type="java.lang.String" />
    
    <func-library access="public">
       <function name="getDefaultValue">
@@ -279,7 +282,7 @@
       <rule>printfln('INFO:  Using %d threads for import', maxThreads)</rule>
       
       <rule>cacheables = create('java.util.HashSet')</rule>
-      <rule>ormProps = execLib("buildDbImportProperties", dbName, targetDb, url, uid, pw)</rule>
+      <rule>ormProps = execLib("buildDbImportProperties", dbName, targetDb, url, uid, pw, cpstream)</rule>
       <rule>fwdDialect = create(ormProps.getProperty("dialect"))</rule>
    </init-rules>
    
@@ -363,6 +366,7 @@
       <variable name="indexes"      type="java.util.List" />
       <variable name="session"      type="com.goldencode.p2j.persist.orm.Session" />
       <variable name="default"      type="com.goldencode.p2j.util.BaseDataType" />
+      <variable name="wordTableName" type="java.lang.String" />
       
       <init-rules>
          <rule>schemaName = text</rule>
@@ -441,6 +445,14 @@
          </rule>
          
          <rule>type == data.index and !skipImport
+            <action>
+                wordTableName = null
+            </action>
+            <rule>this.isAnnotation("word")
+	            <action>
+	                wordTableName = imp.getWordTableName(dmoIface, text)
+	            </action>
+            </rule>
             <!-- instantiate an index definition -->
             <action>
                indexDef = create("com.goldencode.p2j.persist.P2JIndex",
@@ -448,7 +460,8 @@
                                  data.formatWithEscapedParameter("idx__%s", text),
                                  this.isAnnotation("unique"),
                                  this.isAnnotation("primary"),
-                                 this.isAnnotation("word"))
+                                 this.isAnnotation("word"),
+                                 wordTableName)
             </action>
             
             <!-- add it to the list for this table/DMO -->

=== modified file 'rules/schema/import_util.rules'
--- rules/schema/import_util.rules	2020-07-13 06:22:42 +0000
+++ rules/schema/import_util.rules	2020-12-23 16:58:23 +0000
@@ -19,6 +19,7 @@
 ** 007 VMN 20131106          Removed "sqlserver2008" target DB because SQL Server 2008 does not
 **                           support sequences.
 ** 008 OM  20200408          Replaced Hibernate with customized orm.
+** 009 IAS 20201219          Added 'CPSTREAM' import task argument
 -->
 
 <!--
@@ -93,6 +94,9 @@
          <parameter name="uid"            type="java.lang.String" />
          <!-- connection pasword may be null, defaults to "p3rs1st" -->
          <parameter name="pw"             type="java.lang.String" />
+         <!-- table dump file codepage, optional -->
+         <parameter name="cpstream"       type="java.lang.String" />
+         
          <return    name="dbImportParams" type="java.util.Properties" />
          
          <variable name="dialectClass"    type="java.lang.String" />
@@ -159,6 +163,10 @@
             <action>pw = "p3rs1st"</action>
          </rule>
          
+         <rule>cpstream != null
+            <action>>dbImportParams.put("dump.cpstream", cpstream)</action>
+         </rule>
+         
          <rule>dbImportParams.put("dialect", dialectClass)</rule>
          <rule>dbImportParams.put("database_name", dbName)</rule>
          <rule>dbImportParams.put("connection.driver_class", driverClass)</rule>

=== modified file 'rules/schema/index_test.xml'
--- rules/schema/index_test.xml	2020-09-23 23:47:02 +0000
+++ rules/schema/index_test.xml	2021-01-13 21:04:41 +0000
@@ -185,7 +185,8 @@
                <rule>!indexDef.isUnique()
                   <action>
                      indexDef.addComponent(
-                        this.getImmediateChild(data.primary, null).getAnnotation('column').toString())
+                        this.getImmediateChild(data.primary, null)
+                           .getAnnotation('column').toString())
                   </action>
                </rule>
             </while>

=== modified file 'rules/schema/java_dmo.xml'
--- rules/schema/java_dmo.xml	2020-10-22 11:53:30 +0000
+++ rules/schema/java_dmo.xml	2021-01-31 10:14:52 +0000
@@ -35,6 +35,7 @@
 **                           Dropped support for generation of DMO Impls.
 **     OM  20200610          Generated the _Sequences enum.
 ** 016 CA  20201021          Fixed runtime conversion of dynamic temp-tables with Progress.Lang.Object fields.
+**     IAS 20201203          Added generation database object for the word tables' support.
 -->
 
 <!--
@@ -369,6 +370,8 @@
             <action>ddl.generateSequenceDDLs(ddlSchema)</action>
             <!-- put the index creation DDL to different file -->
             <action>ddl.generateIndexDDLs(ddlSchema)</action>
+            <!-- put misc word tables' related DDL to different file -->
+            <action>ddl.generateWordTablesDDLs(ddlSchema)</action>
          </rule>
       </post-rules>
    </rule-set>

=== modified file 'rules/schema/metaschema.xml'
--- rules/schema/metaschema.xml	2020-09-07 16:23:31 +0000
+++ rules/schema/metaschema.xml	2021-01-13 21:04:41 +0000
@@ -5,7 +5,7 @@
 **
 ** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** _#_ _I_ __Date__ _________________________________Description__________________________________
+** _#_ _I_ __Date__ _______________________________________Description_______________________________________
 ** 001 ECF 20130515 Created initial version.
 ** 002 ECF 20131028 Exported more fields.
 ** 003 VMN 20140202 Added support for shift of order on custom denormalization of fields with
@@ -28,6 +28,7 @@
 ** 015 ECF 20200906 New ORM implementation.
 ** 016 IAS 20200624 Added support for the field VIEW-AS attributes
 **     IAS 20200809 Added support for the field DECIMALS, DESCRIPTION, CASE-SENSITIVE and MAX-WIDTH attributes
+**     OM  20201120 Dropped deprecated 'newName' pseudo-field/property.
 -->
 
 <!--
@@ -361,9 +362,6 @@
                execLib("addField", "template", sprintf("-%s", nextID.toString()) , "r")
             </action>
             
-            <!-- converted DMO name (not part of legacy metadata) -->
-            <action>execLib("addField", "newName", text, "c")</action>
-            
             <!-- currently hard-coding _owner to "PUB"; another valid value is "FOREIGN" -->
             <!-- TODO: testing to see which value is used under which circumstances, and if
                  there are others -->
@@ -477,7 +475,6 @@
                   <action on="true">newName = text</action>
                   <action on="false">newName = getNoteString("denormalizedpropertyname")</action>
                </rule>
-               <action>execLib("addField", "newName", newName, "c")</action>
                
                <!-- _data-type -->
                <action>execLib("addField", "dataType", getNoteString("datatype"), "c")</action>

=== modified file 'rules/schema/p2o.xml'
--- rules/schema/p2o.xml	2020-10-06 07:23:27 +0000
+++ rules/schema/p2o.xml	2021-01-13 21:04:41 +0000
@@ -267,10 +267,11 @@
 **                           this was fixed so that the .schema AST is a real .schema, and not .p2o.
 **     OM  20200925          Added support for generating denormalized extent properties in dynamic
 **                           conversion of temp-tables.
-** 098 CA  20201005          Fixed incremental conversion for temp-tables - nextTTSuffix must be inherited from 
-**                           the previous, existing, peer, when a file adds usage for a temp-table already
-**                           defined in another file.
-**                           Fixed nextTTSuffix for SHARED TEMP-TABLE without a NEW SHARED. 
+**     CA  20201005          Fixed incremental conversion for temp-tables - nextTTSuffix must be inherited
+**                           from the previous, existing, peer, when a file adds usage for a temp-table
+**                           already defined in another file.
+**                           Fixed nextTTSuffix for SHARED TEMP-TABLE without a NEW SHARED.
+**     OM  20201120          Added NO-UNDO attribute / temp-table option support.
 -->
 
 <!--
@@ -936,8 +937,16 @@
                </rule>
             </rule>
             
+            <variable name="aNode"  type="com.goldencode.ast.Aast" />
+            <action>aNode = this.getImmediateChild(prog.properties, null)</action>
+            <rule>aNode != null
+               <action>aNode = aNode.getImmediateChild(prog.kw_no_undo, null)</action>
+               <rule>aNode != null
+                  <action>peer.putAnnotation("no-undo-tt", true)</action>
+               </rule>
+            </rule>
+            
             <rule>storeTTPeer
-            
                <!-- peer is for a temp/work-table which is the first of its kind; store it in our
                     map of temp table nodes-->
                <action>tmpTabNodes.put(tmpTabKey, peer)</action>

=== modified file 'rules/schema/p2o_post.xml'
--- rules/schema/p2o_post.xml	2020-09-23 23:47:02 +0000
+++ rules/schema/p2o_post.xml	2021-01-13 21:04:41 +0000
@@ -5,12 +5,13 @@
 **
 ** Copyright (c) 2005-2020, Golden Code Development Corporation.
 **
-** _#_ _I_ __Date__ _________________________________Description__________________________________
+** _#_ _I_ __Date__ _______________________________________Description_______________________________________
 ** 001 ECF 20150326 Refactored later rule-sets from p2o.xml to here. This is necessary because
 **                  we are dependent upon peer nodes being available for cross-schema joins.
 ** 002 AIL 20190722 Added rule-sets for triggers.
 ** 003 OM  20190826 The BEFORE-BUFFERs do not inherit the indexes of their parent AFTER-BUFFER.
 ** 004 ECF 20200601 Fixed typo.
+** 005 OM  20201231 The index components is aware of all their name (legacy/orm/sql).
 -->
 
 <!--

=== modified file 'rules/schema/reindex.xml'
--- rules/schema/reindex.xml	2020-09-23 23:47:02 +0000
+++ rules/schema/reindex.xml	2020-12-20 17:05:05 +0000
@@ -5,7 +5,7 @@
 **
 ** Copyright (c) 2006-2020, Golden Code Development Corporation.
 **
-** _#_ _I_ __Date__ __JPRM__ _____________________________Description____________________________
+** _#_ _I_ __Date__ __JPRM__ ___________________________________Description___________________________________
 ** 001 ECF 20060711   @28041 Created initial version. Walks P2O AST and
 **                           reindexes all tables corresponding with each DMO class/table.
 ** 002 GES 20100629          Fixed broken P2JIndexComponent contruction which
@@ -20,7 +20,10 @@
 ** 006 CA  20170113          Fixed import when the both conversion and import are done on 
 **                           Windows.
 ** 007 OM  20200906          New ORM implementation.
+** 008 OM  20201231          The index components is aware of all their name (legacy/orm/sql).
+**     IAS 20201219          Added 'CPSTREAM' import task argument
 -->
+
 <!--
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -114,7 +117,7 @@
       
       <rule>
          hiberProps = execLib("buildDbImportProperties",
-                              dbName, targetDb, url, uid, pw)
+                              dbName, targetDb, url, uid, pw, null)
       </rule>
    </init-rules>
    

=== modified file 'src/com/goldencode/ast/AnnotatedAst.java'
--- src/com/goldencode/ast/AnnotatedAst.java	2020-06-15 23:07:34 +0000
+++ src/com/goldencode/ast/AnnotatedAst.java	2020-10-15 07:54:57 +0000
@@ -216,6 +216,7 @@
 **                           getRightAdjacent().
 **     CA  20191008          Enhanced to use templates with inlined shadow nodes.
 ** 088 CA  20200615          Fixed iterator() when starting from a root with a single child.
+** 089 CA  20201015          Replaced java.util.Stack with a non-synchronized custom implementation.
 */
 
 /*
@@ -282,6 +283,7 @@
 import com.goldencode.p2j.cfg.Configuration;
 import com.goldencode.p2j.pattern.*;
 import com.goldencode.util.*;
+import com.goldencode.util.Stack;
 
 /**
  * A modified abstract syntax tree node which provides additional services.
@@ -2584,7 +2586,7 @@
          private List<Aast> parents = new ArrayList<>();
          
          /** Track indices of the next child to be processed. */
-         private java.util.Stack<Integer> stack = new java.util.Stack<>();
+         private Stack<Integer> stack = new Stack<>();
          
          /**
           * Indicate whether the iterator has any more elements to visit.

=== modified file 'src/com/goldencode/p2j/comauto/ComObject.java'
--- src/com/goldencode/p2j/comauto/ComObject.java	2020-09-24 17:51:18 +0000
+++ src/com/goldencode/p2j/comauto/ComObject.java	2020-10-15 15:54:44 +0000
@@ -27,6 +27,7 @@
 **     VVT 20200722 The decimal 4gl type can now be converted to Java native integer types.
 **     VVT 20200723 Direct output to stdout replaced by log calls in the xcall() method.
 ** 011 CA  20200924 Replaced Method.invoke with ReflectASM.
+**     VVT 20201015 Logging of remote calls has been optimized. Also the call times are also logged now.
 */
 
 /*
@@ -99,37 +100,36 @@
  * Base class for COM objects that will be stored using {@link comhandle}s. Does minimal
  * management of the COM Object.
  */
-public abstract class ComObject
-implements WrappedResource,
-           Deletable
+public abstract class ComObject implements WrappedResource, Deletable
 {
 
    /**
     * The resource id. Used by {@code WrappedResource} management. 
     */
    private Long resourceId = null;
-   
+
    /**
     * The parent {@code ControlFrameWidget} widget. This container is used during the dispatch of 
     * the events generated by this COM Object.
     */
    private ControlFrameWidget parentControlFrame = null;
-   
+
    /** The legacy name of this com object. */
    private String name = "unknown";
-   
+
    /**
     * The creator of this object. Cannot be {@code null}. Used for locating the event callbacks 
     * as its internal procedure. When becomes invalid, this object also gets invalid and should be
     * deleted. 
     */
    private handle parentProcedure = null;
-   
+
    /** Counter for {@link comhandle}s that refer this object. */
    private AtomicInteger refcount = new AtomicInteger(1);
-   
+
    /** The logger for COM methods */
-   private final Logger LOGGER = Logger.getLogger(ComObject.class.getName());
+   private final static Logger LOGGER = Logger.getLogger(ComObject.class.getName());
+   private static final boolean LOGGING_ENABLED = LOGGER.isLoggable(Level.INFO);
 
    /** The class for void Java type */
    private static final Class<?> VOID = Void.TYPE;
@@ -139,7 +139,7 @@
    {
       init();
    }
-   
+
    /**
     * Initialize internal data structure of a fresh COM: the parent procedure is detected.
     */
@@ -147,7 +147,7 @@
    {
       parentProcedure = ProcedureManager.thisProcedure();
    }
-   
+
    /**
     * Converts a value to a BDT object. The method does not check whether the value is already a
     * {@code BaseDataType}, in fact is assume it is not. Note that, because this method uses the
@@ -240,25 +240,25 @@
       {
          return null;
       }
-      
+
       boolean extent = false;
-      
+
       if (aVal instanceof ComParameter)
       {
          ComParameter aparam = (ComParameter) aVal;
          extent = aparam.isExtent();
-         
+
          if (aparam.isOutput())
          {
             // replace the BDT instance for OUTPUT parameters and set it to default value
             ComParameter oparam = new ComParameter(aparam);
-            
+
             Object value;
-            
+
             if (extent)
             {
                Class<?> cls = oparam.getValue().getClass().getComponentType();
-               
+
                value = Array.newInstance(cls, oparam.getLength());
                for (int i = 0; i < oparam.getLength(); i++)
                {
@@ -270,20 +270,19 @@
                value = ((BaseDataType) aparam.getValue()).instantiateDefault();
             }
             oparam.setValue(value);
-            
+
             aVal = oparam;
          }
       }
-      
+
       String[] fwdDataType = new String[1];
 
-      Function<Object, Object> process = (value) ->
-      {
+      Function<Object, Object> process = (value) -> {
          if (value instanceof BaseDataType)
          {
             BaseDataType bdt = (BaseDataType) value;
             fwdDataType[0] = bdt.getTypeName();
-            
+
             if (bdt.isUnknown() || bdt instanceof unknown)
             {
                value = null;
@@ -299,7 +298,7 @@
             else if (bdt instanceof comhandle)
             {
                ComObject com = ((comhandle) bdt).getResource();
-               
+
                if (com instanceof NativeComObject)
                {
                   value = ((NativeComObject) com).getComId();
@@ -307,12 +306,10 @@
                else
                {
                   throw new IllegalArgumentException(
-                            "FWD COM implementations can't be invoked on native side!");
+                           "FWD COM implementations can't be invoked on native side!");
                }
             }
-            else if (bdt instanceof date || 
-                     bdt instanceof datetime ||
-                     bdt instanceof datetimetz)
+            else if (bdt instanceof date || bdt instanceof datetime || bdt instanceof datetimetz)
             {
                value = ((date) bdt).dateValue();
             }
@@ -332,7 +329,7 @@
             else if (bdt instanceof recid)
             {
                throw new IllegalArgumentException(
-                     "RECID data-type is not supported by native COM arguments!");
+                        "RECID data-type is not supported by native COM arguments!");
             }
             else if (bdt instanceof integer)
             {
@@ -354,7 +351,7 @@
             else
             {
                throw new IllegalArgumentException(
-                     fwdDataType[0] + " data-type is not supported by native COM arguments!");
+                        fwdDataType[0] + " data-type is not supported by native COM arguments!");
             }
          }
          else
@@ -393,21 +390,21 @@
             }
             else
             {
-               throw new IllegalArgumentException(
-                        value.getClass() + " data-type is not supported by native COM arguments!");
+               throw new IllegalArgumentException(value.getClass()
+                        + " data-type is not supported by native COM arguments!");
             }
          }
-         
+
          return value;
       };
 
       ComParameter ret;
       Object value;
-      
+
       if (aVal instanceof ComParameter)
       {
          ComParameter cparam = (ComParameter) aVal;
-         
+
          ret = new ComParameter(cparam);
          ret.setByPointer(cparam.isByPointer());
          ret.setByVariantPointer(cparam.isByVariantPointer());
@@ -423,25 +420,25 @@
          ret.setByVariantPointer(false);
          ret.setDataType(null);
          ret.setMode('I');
-         
+
          value = aVal;
       }
-      
+
       if (value != null && value.getClass().isArray())
       {
          ret.setExtent(true);
          ret.setLength(Array.getLength(value));
       }
-      
+
       if (ret.isExtent())
       {
          Object avalue = Array.newInstance(Object.class, ret.getLength());
-         
+
          for (int i = 0; i < ret.getLength(); i++)
          {
             Array.set(avalue, i, process.apply(Array.get(value, i)));
          }
-         
+
          value = avalue;
       }
       else
@@ -451,7 +448,7 @@
 
       ret.setFwdDataType(fwdDataType[0].toUpperCase());
       ret.setValue(value);
-      
+
       return ret;
    }
 
@@ -475,17 +472,17 @@
       {
          return null;
       }
-      
+
       ComParameter[] result = new ComParameter[aVals.length];
-      
+
       for (int i = 0; i < aVals.length; i++)
       {
          result[i] = unmarshal(aVals[i]);
       }
-      
+
       return result;
    }
-   
+
    /**
     * Check the parameters received from a COM method call and copy the values into OUTPUT or
     * INPUT-OUTPUT arguments.
@@ -504,23 +501,23 @@
       {
          return;
       }
-      
+
       for (int i = 0, k = 0; i < params.length; i++)
       {
          if (!(params[i] instanceof ComParameter))
          {
             continue;
          }
-         
+
          ComParameter comParam = (ComParameter) params[i];
          if (comParam.isOutput() || comParam.isInputOutput())
          {
             // we increase k counter before indexing the vals to account vals[0] is
             // not a parameter but result
             BaseDataType[] val = vals[++k];
-            
+
             Object aval = comParam.getValue();
-            
+
             if (comParam.isExtent())
             {
                if (comParam.getLength() == 0)
@@ -529,12 +526,12 @@
                   // and also replace the reference...
                   comParam.getRefReplacement().accept((BaseDataType[]) aval);
                }
-               
+
                if (comParam.getLength() != val.length)
                {
                   throw new IllegalStateException("Incorrect source and dest array dimension!");
                }
-               
+
                // now we can just copy the values - a dynamic extent was resized and its reference
                // was properly switched
                for (int j = 0; j < comParam.getLength(); j++)
@@ -547,10 +544,10 @@
                if (!(aval instanceof BaseDataType))
                {
                   throw new IllegalStateException(
-                     "COM call sent an OUTPUT/INPUT-OUTPUT argument which was not passed" +
-                     " as a BDT from FWD side!");
+                           "COM call sent an OUTPUT/INPUT-OUTPUT argument which was not passed"
+                                    + " as a BDT from FWD side!");
                }
-               
+
                BaseDataType bdt = (BaseDataType) aval;
                if (val[0] == null)
                {
@@ -564,7 +561,7 @@
          }
       }
    }
-   
+
    /**
     * Reports if this object is unknown.  
     *
@@ -575,7 +572,7 @@
    {
       return false;
    }
-   
+
    /**
     * Get this resource's ID, if is already set.
     *
@@ -586,7 +583,7 @@
    {
       return resourceId;
    }
-   
+
    /**
     * Set this resource's ID.
     *
@@ -598,7 +595,7 @@
    {
       resourceId = id;
    }
-   
+
    /**
     * Obtain the legacy name of this COM object.
     * 
@@ -606,9 +603,9 @@
     */
    public String getName()
    {
-      return name; 
+      return name;
    }
-   
+
    /**
     * Sets the legacy name of this COM object.
     * 
@@ -619,14 +616,14 @@
    {
       this.name = newName;
    }
-   
+
    /**
     * Obtain the name of this ActiveX object.
     * 
     * @return  the name of this ActiveX object.
     */
    public abstract String getActivexName();
-   
+
    /**
     * Destroy all resources kept by FWD related to this COM object.
     */
@@ -634,7 +631,7 @@
    {
       comhandle.removeResource(this);
    }
-   
+
    /**
     * Obtain the {@code ControlFrameWidget} container for this COM, if any.
     * 
@@ -644,7 +641,7 @@
    {
       return parentControlFrame;
    }
-   
+
    /**
     * Sets the {@code ControlFrameWidget} container for this COM.
     *
@@ -655,7 +652,7 @@
    {
       this.parentControlFrame = pcf;
    }
-   
+
    /**
     * Get the parent procedure where this COM was created.
     *  
@@ -665,7 +662,7 @@
    {
       return parentProcedure;
    }
-   
+
    /**
     * Sets a COM property for the COM object stored by the handle.
     * 
@@ -693,7 +690,7 @@
       xcall(prop, methodsFor(propertyTable, ComProperty.class, getClass(), prop), params);
       return true;
    }
-   
+
    /**
     * Obtain a property value from the COM object stored in this handle. 
     * 
@@ -823,14 +820,14 @@
       }
 
       Class<? extends Object> argClass = arg.getClass();
-      
+
       /**
        * If the value is compatible with the target type, just use it,
        * with one exception: if the target class is Object, and the value
        * is 4gl data type, then convert the value to some base Java type.
        */
-      if (targetType.isAssignableFrom(argClass)
-          && !(Object.class.equals(targetType) && BaseDataType.class.isAssignableFrom(argClass)))
+      if (targetType.isAssignableFrom(argClass) && !(Object.class.equals(targetType)
+               && BaseDataType.class.isAssignableFrom(argClass)))
       {
          dest[idx] = arg;
          return true;
@@ -882,7 +879,7 @@
             dest[idx] = arg;
             return true;
          }
-         
+
          if (arg instanceof logical)
          {
             dest[idx] = new Boolean(((logical) arg).booleanValue());
@@ -963,7 +960,7 @@
 
       return false;
    }
-   
+
    /**
     * Calls a COM-method without parameters on the COM-object stored in this com-handle.
     *
@@ -1036,33 +1033,49 @@
                j++;
             }
 
-            LOGGER.log(Level.INFO, () ->
-            {
-               StringBuilder sb = new StringBuilder(100);
-               sb.append(this);
-               sb.append(' ');
-               sb.append(_name);
-               sb.append(' ');
-               for (Object arg : argValues)
-               {
-                  sb.append(arg);
-                  sb.append(' ');
-               }
-               return sb.toString();
-            });
-
             try
             {
                final Class<?> returnType = m.getReturnType();
+
+               long beginNanos = 0;
+               if (LOGGING_ENABLED)
+               {
+                  LOGGER.log(Level.INFO, () -> {
+                     StringBuilder sb = new StringBuilder(100);
+                     sb.append(this);
+                     sb.append(' ');
+                     sb.append(_name);
+                     sb.append(' ');
+                     for (Object arg : argValues)
+                     {
+                        sb.append(arg);
+                        sb.append(' ');
+                     }
+                     
+                     return sb.toString();
+                  });
+                  beginNanos = System.nanoTime();
+               }
                if (VOID.equals(returnType))
                {
                   Utils.invoke(m, this, argValues);
+                  if (LOGGING_ENABLED)
+                  {
+                     LOGGER.log(Level.INFO, "Completed in "
+                              + ((System.nanoTime() - beginNanos) / 1000.0) + " microseconds");
+                  }
+
                   return new comhandle();
                }
-               
+
                Object ret = Utils.invoke(m, this, argValues);
 
-               LOGGER.log(Level.INFO, () -> String.valueOf(ret));
+               if (LOGGING_ENABLED)
+               {
+                  LOGGER.log(Level.INFO,
+                           "Completed in " + ((System.nanoTime() - beginNanos) / 1000.0)
+                                    + " microseconds, return value: " + ret);
+               }
 
                if (ret instanceof BaseDataType)
                {
@@ -1073,7 +1086,7 @@
                {
                   return new comhandle(ret);
                }
-               
+
                return marshal(ret);
             }
             catch (IllegalAccessException e)

=== modified file 'src/com/goldencode/p2j/convert/BufferScopeWorker.java'
--- src/com/goldencode/p2j/convert/BufferScopeWorker.java	2020-04-13 11:17:30 +0000
+++ src/com/goldencode/p2j/convert/BufferScopeWorker.java	2020-10-15 07:54:57 +0000
@@ -27,6 +27,7 @@
 ** 011 CA  20190513          Fixed buffer usage from super-classes, in OO.
 ** 012 GES 20190620          Added multiple inheritance support (for OO interface defs).
 ** 013 CA  20200412          Added incremental conversion support.
+** 014 CA  20201015          Replaced java.util.Stack with a non-synchronized custom implementation.
 */
 
 /*
@@ -86,6 +87,7 @@
 
 import java.util.*;
 import java.util.function.*;
+import com.goldencode.util.Stack;
 import com.goldencode.ast.*;
 import com.goldencode.p2j.uast.*;
 import com.goldencode.p2j.pattern.*;

=== modified file 'src/com/goldencode/p2j/convert/ExpressionConversionWorker.java'
--- src/com/goldencode/p2j/convert/ExpressionConversionWorker.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/convert/ExpressionConversionWorker.java	2021-01-15 23:08:08 +0000
@@ -3,9 +3,9 @@
 ** Abstract : provides a simple, callable interface to convert entire
 **            expression trees from Progress to Java AST forms
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ----------------------------Description-----------------------------
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 GES 20050406   @20862 Created initial version which supports a
 **                           manual tree walking approach such that an
 **                           expression can be converted "in-line" from
@@ -215,6 +215,9 @@
 **     HC  20200729          Added isClassAbstract.
 **     HC  20200903          Improved method resolution when wrapping arguments passed to OCX-
 **                           converted methods.
+**     CA  20210125          Progress.Lang.Class:Invoke and Progress.Reflect.Method:Invoke must be treated as
+**                           having a POLY returned type.
+**     OM  20201218          Added support for early type-checking.
 */
 
 /*
@@ -1945,11 +1948,46 @@
                   
                // unexpected *_POLY node, error out here
                default:
+                  if (oldtype == OO_METH_CLASS && source.getText().equalsIgnoreCase("invoke"))
+                  {
+                     String defClass = (String) source.getAnnotation("found-in-cls");
+                     if ("Progress.Lang.Class".equalsIgnoreCase(defClass) || 
+                         "progress.reflect.method".equalsIgnoreCase(defClass))
+                     {
+                        jcls = "BaseDataType";
+                     }
+                     break;
+                  }
                   errmsg = "Unknown " + source.lookupTokenName(type) + 
                            " with oldtype of " + source.lookupTokenName(oldtype);
             }
             break;
-            
+         
+         // when assigned to, these statements expect a specific (numeric type) right-value
+         case KW_PUT_BITS:
+         case KW_PUT_BYTE:
+         case KW_PUT_DBL:
+         case KW_PUT_FLT:
+         case KW_PUT_LONG:
+         case KW_PUT_SHT:
+         case KW_PUT_USHT:
+         case KW_SET_SZ:
+         case KW_SET_PTR:
+         case KW_PUT_I64:
+            jcls = "numbertype";
+            break;
+         
+         // when assigned to, these statements expect a specific (string/character) right-value
+         case KW_FIX_CP:
+         case KW_PUT_STR:
+            jcls = "text";
+            break;
+         
+         // when assigned to, these statements expect a specific (RAW or MEMPTR) right-value
+         case KW_PUT_BYTS:
+            jcls = "binarytype";
+            break;
+         
          default:
             if (jcls == null)
             {
@@ -3740,7 +3778,7 @@
       {
          return ExpressionConversionWorker.isClassAbstract(clazz);
       }
-
+      
       /**
        * Returns Java class for the supplied legacy type.
        *
@@ -3753,17 +3791,83 @@
       {
          return ExpressionConversionWorker.getTypeClass(type);
       }
+      
+      /**
+       * Detects and returns the compatibility class of a node. Nodes from same compatibility class can be
+       * assigned/compared between them. An attempt to compare / assign nodes from different classes should
+       * raise a compile (conversion) time error.
+       *
+       * @param   node
+       *          The node whose class needs to be detected.
+       *
+       * @return  The compatibility class as a string.
+       */
+      public String getCompatibilityClass(Aast node)
+      {
+         String lcType = ExpressionConversionWorker.expressionType(node, true, false);
+         if (lcType == null)
+         {
+            System.out.println("CompatibilityClass: [null] detected for " + node.dumpTree(true));
+            return null;
+         }
+         
+         lcType = lcType.toLowerCase();
+         switch (lcType)
+         {
+            // isNumericType(String cls)
+            case "numbertype":
+            case "integer":
+            case "recid": 
+            case "int64": 
+            case "decimal":
+               return "numbertype";
+            
+            // isDateType(String cls)
+            case "date":
+            case "datetime":
+            case "datetimetz":
+               return "date";
+            
+            // isTextType(String cls)
+            case "text":
+            case "character":
+            case "longchar":
+            case "clob":
+               return "text";
+            
+            // isBinaryType(String cls)
+            case "memptr":
+            case "blob":
+            case "raw":
+            case "binarytype":
+               return "binarytype";
+            
+            // handle-related
+            case "handle":
+            case "comhandle":
+            case "wrappedresource":
+               return "handle";
+               
+            default:
+               // objects
+               if (lcType.startsWith("object"))
+               {
+                  return "object";
+               }
+               
+               // others
+               return lcType;
+         }
+      }
    }
-
-
-      
+   
    /**
     * Context-local work area.
     */
    private static class WorkArea
    {
       /** Nodes for which context analysis is active inside a *_POLY node. */
-      private Set<Long> recursionIds = new HashSet<Long>();
+      private final Set<Long> recursionIds = new HashSet<>();
       
       /** Flag that determines if implicit INPUT node is currently being analyzed. */
       private boolean inImplicitInput = false;

=== modified file 'src/com/goldencode/p2j/convert/NameConverter.java'
--- src/com/goldencode/p2j/convert/NameConverter.java	2020-09-06 23:15:41 +0000
+++ src/com/goldencode/p2j/convert/NameConverter.java	2021-01-21 22:49:45 +0000
@@ -2,9 +2,9 @@
 ** Module   : NameConverter.java
 ** Abstract : Converts Progress symbols to Java/SQL-compatible symbols.
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ----------------------------Description------------------------------
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 ECF 20050418   @20753 Created initial version. Converts Progress
 **                           symbol names to the equivalent Java variable,
 **                           method, constant, or class name, or to the
@@ -117,6 +117,12 @@
 **                           converted method names.
 **     CA  20200514          Avoid collisions with java.lang.Object inherited methods.
 ** 039 ECF 20200906          New ORM implementation.
+** 040 CA  20201015          Replaced java.util.Stack with a non-synchronized custom implementation.
+**     CA  20210113          Added method to check if a method's Java name is used by conversion rules to emit
+**                           it as an unreferenced static method call.  This is required to sanitize the 
+**                           implemented skeleton's method names.
+**     OM  20201231          Improved list of reserved SQL keywords.
+**     OM  20210121          Tests against reservedSQL in lowercase because SQL is case insensitive.
 */
 
 /*
@@ -177,6 +183,7 @@
 import java.beans.*;
 import java.lang.reflect.*;
 import java.util.*;
+import com.goldencode.util.Stack;
 import com.goldencode.p2j.cfg.*;
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.persist.dialect.*;
@@ -287,13 +294,13 @@
    private static MatchPhraseDictionary defaults = null;
    
    /** Maps digit characters to safe replacement digit names. */
-   private static Map<Character, String> digits = new HashMap<>();
+   private static final Map<Character, String> digits = new HashMap<>();
    
    /** A set of Java methods which can be imported static. */
-   private static Set<String> staticImportedMethods = new HashSet<>();
+   private static final Set<String> staticImportedMethods = new HashSet<>();
    
    /** The set of methods inherited from Java's {@link java.lang.Object} root class. */
-   private static Set<String> objectMethods = new HashSet<>();
+   private static final Set<String> objectMethods = new HashSet<>();
    
    // Set up default substring replacements
    static
@@ -408,6 +415,8 @@
       };
       reservedJava.addAll(Arrays.asList(reservedNames));
       
+      // WARNING: Adding other classes/interfaces to this list may invalidated the already implemented skeleton
+      // classes, as these must not collide with statically emitted APIs during conversion.
       Class<?>[] staticImportClasses =
       {
          BlockManager.class,
@@ -468,7 +477,7 @@
    private String pendingMatch = null;
    
    /** A stack of pending replacement syllables detected via lookahead */
-   private Stack<String> pendingStack = new Stack<>();
+   private final Stack<String> pendingStack = new Stack<>();
    
    /**
     * Default constructor; <code>ALL</code> default match phrases from the
@@ -546,6 +555,39 @@
    }
    
    /**
+    * Check if the given Java method name is used as a static method call emitted by the conversion rules.
+    * 
+    * @param    javaname
+    *           The Java method name.
+    *           
+    * @return   <code>true</code> if this is part of {@link #staticImportedMethods} or {@link #objectMethods}.
+    *           Note that some method names (like "invoke") are not emitted statically by the conversion rules,
+    *           and are explicitly handled.
+    */
+   public static boolean isInternalMethodName(String javaname)
+   {
+      // this is a list of method names which are not emitted during conversion, as unreferenced static method
+      // calls.
+      String[] notStaticFWDApis = 
+      {
+         "invoke",
+         "debug",
+         "getClient",
+         "getUserName",
+         "initialize",
+         "isEmpty",
+         "validate"
+      };
+      Set<String> s = new HashSet<>(Arrays.asList(notStaticFWDApis));
+      if (s.contains(javaname))
+      {
+         return false;
+      }
+
+      return staticImportedMethods.contains(javaname) || objectMethods.contains(javaname);
+   }
+   
+   /**
     * Reset the internal keyword exclusion list for the next schema to be processed.
     *
     * The method looks for the list of dialect used for generation of the schema and computes
@@ -571,6 +613,7 @@
       
       // ANSI SQL reserved keywords are always on the exclusion list
       String[] ansiKeywords = {
+         "by",
          "count",
          "cross",
          "current_date",
@@ -628,8 +671,7 @@
          // the getNamespaceParameter() can potentially throw NPE if the schema is not
          // defined in as a namespace in the config file
          // TODO: leave this NPE propagate or should getNamespaceParameter() return null instead? 
-         dialectList = Configuration.getSchemaConfig().getNamespaceParameter(schema,
-                                                                             "ddl-dialects");
+         dialectList = Configuration.getSchemaConfig().getNamespaceParameter(schema, "ddl-dialects");
       }
       
       if (dialectList == null)
@@ -657,14 +699,12 @@
             }
             catch (NoSuchMethodException | InvocationTargetException | IllegalAccessException e)
             {
-               System.err.println("WARNING: 'getReservedKeywords()' method is NOT defined in " +
-                                  dialect);
+               System.err.println("WARNING: 'getReservedKeywords()' method is NOT defined in " + dialect);
             }
          }
          else
          {
-            System.err.println("WARNING: unknown dialect '" + dialectId + "' for '" +
-                               schema + "' schema.");
+            System.err.println("WARNING: unknown dialect '" + dialectId + "' for '" + schema + "' schema.");
          }
       }
    }
@@ -692,11 +732,9 @@
    public static void load(String list, boolean db)
    throws ConfigurationException
    {
-      HashMap<String, String> std = new HashMap<>();
-      
       // implement the default standard mappings (this may get overridden
       // by subsequent user-defined configuration files).
-      std.putAll(mappings);
+      HashMap<String, String> std = new HashMap<>(mappings);
       
       defaults = MatchPhraseDictionary.load(list, std);
       
@@ -1283,7 +1321,7 @@
       {
          if (!result.isEmpty())
          {
-            char chars[] = result.toCharArray();
+            char[] chars = result.toCharArray();
             chars[0] = Character.toUpperCase(chars[0]);
             result = new String(chars);
          }
@@ -1710,10 +1748,7 @@
     */
    private void resetMatchStatus()
    {
-      for (int i = 0; i < matches.length; i++)
-      {
-         matches[i] = NO_MATCH;
-      }
+      Arrays.fill(matches, NO_MATCH);
    }
    
    /**
@@ -1776,15 +1811,15 @@
          return;
       }
       
-      Set keys = replacements.keySet();
+      Set<String> keys = replacements.keySet();
       int size = keys.size();
       candidates = new String[size];
       matches = new int[size];
       
-      Iterator iter = keys.iterator();
+      Iterator<String> iter = keys.iterator();
       for (int i = 0; iter.hasNext(); i++)
       {
-         String next = (String) iter.next();
+         String next = iter.next();
          candidates[i] = next;
       }
    }
@@ -1804,7 +1839,7 @@
     * @return   The original name if no conflicts were detected or a
     *           disambiguated (safe) name if a conflict existed.
     */
-   private static String resolvePossibleKeywordConflict(String possible, int type)
+   public static String resolvePossibleKeywordConflict(String possible, int type)
    {
       boolean hit = false;
       
@@ -1823,7 +1858,8 @@
          case TYPE_TABLE:
          case TYPE_COLUMN:
          {
-            hit = reservedSQL.contains(possible);
+            // testing in lowercase because SQL is case insensitive 
+            hit = reservedSQL.contains(possible.toLowerCase());
             break;
          }
          default:
@@ -1850,7 +1886,7 @@
     */
    private String processLeadingDigit(String text)
    {
-      Character c = text.charAt(0);
+      char c = text.charAt(0);
       
       return Character.isDigit(c) ? digits.get(c) + text.substring(1) : text;
    }
@@ -1891,7 +1927,7 @@
          
          String name = args[0];
          int type = Integer.parseInt(args[1]);
-         boolean replace = Boolean.valueOf(args[2]);
+         boolean replace = Boolean.parseBoolean(args[2]);
          int phrases = ALL;
          
          if (args.length > 3)

=== modified file 'src/com/goldencode/p2j/convert/NameConverterWorker.java'
--- src/com/goldencode/p2j/convert/NameConverterWorker.java	2020-09-06 23:15:41 +0000
+++ src/com/goldencode/p2j/convert/NameConverterWorker.java	2021-01-29 17:35:47 +0000
@@ -2,7 +2,7 @@
 ** Module   : NameConverterWorker.java
 ** Abstract : Exports name conversion methods to the pattern engine
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------Description-----------------------------
 ** 001 ECF 20050418   @20755 Created initial version. Exposes name
@@ -44,6 +44,7 @@
 ** 017 OM  20171108          Avoided name collision between tables and sequences.
 ** 018 OM  20190829          Custom handling for hidden BEFORE-BUFFER fields.
 ** 019 ECF 20200906          New ORM implementation.
+**     OM  20210129          Avoided NPE for incorrectly initialized tables.
 */
 
 /*
@@ -207,14 +208,13 @@
     */
    public void visitAst(Aast ast)
    {
-      if (history == null)
-      {
-         return;
-      }
-      
       String filename = ast.getFilename().toLowerCase();
-      history.computeIfAbsent(filename, k -> new ArrayList<>());
       tables.computeIfAbsent(filename, k -> new HashSet<>());
+      
+      if (history != null)
+      {
+         history.computeIfAbsent(filename, k -> new ArrayList<>());
+      }
    }
    
    /**
@@ -358,23 +358,20 @@
        *          conversion in the conversion report. May be
        *          <code>null</code>. Ignored if not in reporting mode.
        * @param   replacements
-       *          Replacement phrase mappings, where the key is the match
-       *          text, and the value is the replacement text. If
-       *          <code>null</code> or empty, only the default phrases are
-       *          used.
+       *          Replacement phrase mappings, where the key is the match text, and the value is the
+       *          replacement text. If {@code null} or empty, only the default phrases are used.
        *
        * @return  The converted symbol name.
        */
-      public String convert(String name, int type, String detail, Map replacements)
+      public String convert(String name, int type, String detail, Map<String, String> replacements)
       {
          NameConverter converter = defaultConverter;
          if (replacements != null && !replacements.isEmpty())
          {
             converter = new NameConverter();
-            for (Object it : replacements.entrySet())
+            for (Map.Entry<String, String> next : replacements.entrySet())
             {
-               Map.Entry next = (Map.Entry) it;
-               converter.putReplacement((String) next.getKey(), (String) next.getValue());
+               converter.putReplacement(next.getKey(), next.getValue());
             }
          }
          
@@ -390,11 +387,11 @@
                // we have a conflict. Try to use a incrementing counter to make result unique
                // normally we don't expect more than one of these collisions for each name.
                int k = 1;
-               while (tableSet.contains(result + "_" + Integer.toString(k)))
+               while (tableSet.contains(result + "_" + k))
                {
                   k++;
                }
-               result += "_" + Integer.toString(k);
+               result += "_" + k;
             }
             
             // reserve it into SQL tables namespace:

=== added file 'src/com/goldencode/p2j/jmx/AbstractCounter.java'
--- src/com/goldencode/p2j/jmx/AbstractCounter.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/jmx/AbstractCounter.java	2020-10-10 18:55:37 +0000
@@ -0,0 +1,115 @@
+/*
+** Module   : AbstractCounter.java
+** Abstract : Helper abstract class for actual counter classes.
+**
+** Copyright (c) 2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** 001 HC  20201010 Created initial version.
+*/ 
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.jmx;
+
+import com.goldencode.util.*;
+
+
+/** Helper abstract class for actual counter classes.*/
+public abstract class AbstractCounter
+{
+   /** Enabler lambda; should be alive as long as the time instance */
+   protected BooleanConsumer enabler;
+
+   /** 'Enabled' flag */
+   protected volatile boolean enabled = false;
+
+   /**
+    * Enable/disable
+    * @param val
+    *        new value of the 'enabled' flag
+    */
+   public void setEnabled(boolean val)
+   {
+       enabled = val;
+   }
+
+   /**
+    * Check if the counter is enabled 
+    * @return <code>true</code> if the counter is enabled 
+    */
+   public boolean isEnabled()
+   {
+       return enabled;
+   }
+   
+   /**
+    * Get the 'enabled' flag setter
+    * @return 'enabled' flag setter
+    */
+   public BooleanConsumer getEnabler()
+   {
+      return enabler;
+   }
+
+   /**
+    * Set the 'enabled' flag setter
+    * @param enabler
+    *        the 'enabled' flag setter
+    */
+   public void setEnabler(BooleanConsumer enabler)
+   {
+      this.enabler = enabler;
+   }
+}

=== modified file 'src/com/goldencode/p2j/jmx/FwdJMX.java'
--- src/com/goldencode/p2j/jmx/FwdJMX.java	2020-10-02 14:48:30 +0000
+++ src/com/goldencode/p2j/jmx/FwdJMX.java	2020-10-10 18:55:37 +0000
@@ -7,6 +7,7 @@
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 IAS 20200930 Created initial version.
 ** 002 IAS 20201001 Added dump of MBean state.
+**     HC  20201010 Implemented map counter.
 */ 
 
 /*
@@ -132,7 +133,11 @@
             server.registerMBean(c.getCounter(), 
                   new ObjectName("com.goldencode.p2j:name="+c.name()));
          }
-         server.registerMBean(this, 
+         for (MapCounter c: MapCounter.values())
+         {
+            server.registerMBean(c.getCounter(), new ObjectName("com.goldencode.p2j:name=" + c.name()));
+         }
+         server.registerMBean(this,
                new ObjectName("com.goldencode.p2j:name=All"));
       } 
       catch (Exception e)
@@ -229,7 +234,9 @@
       /** Incomning network traffic */
       NetworkReads,
       /** Outgoing network traffic */
-      NetworkWrites;
+      NetworkWrites,
+      /** Widget attributes flush count */
+      WidgetAttrFlushes;
       
       /** Counter instance */
       private final SimpleLongCounter counter = new SimpleLongCounter();
@@ -281,6 +288,67 @@
    }
 
    /**
+    * String-long map counter
+    */
+   public static enum MapCounter
+   implements OptionalMapCounter
+   {
+      /** Widget attribute enqueue count */
+      WidgetAttrEnqueues;
+
+      /** Counter instance */
+      private final SimpleMapCounter counter = new SimpleMapCounter();
+
+      /**
+       * Register enable/disable setter
+       * @param agent
+       *        enable/disable setter
+       */
+      @Override
+      public void register(BooleanConsumer agent)
+      {
+         counter.register(agent);
+      }
+
+      /**
+       * Update counter
+       *
+       * @param valueName
+       *        value name to update
+       * @param value
+       *        new value
+       */
+      @Override
+      public void update(String valueName, long value)
+      {
+         counter.update(valueName, value);
+      }
+
+      /**
+       * Return the string representation of the counter
+       *
+       * @param ts
+       * @param comment
+       *        comment
+       * @return string representation of the counter
+       * @throws IOException
+       */
+      public String toString(String ts, String comment) throws IOException
+      {
+         return counter.toString();
+      }
+
+      /**
+       * Return counter instance
+       * @return counter instance
+       */
+      public SimpleMapCounter getCounter()
+      {
+         return counter;
+      }
+   }
+
+   /**
     * Print all counters' values to the file
     * @param file 
     *        output file name (will be appended if exists)

=== added file 'src/com/goldencode/p2j/jmx/MapCounter.java'
--- src/com/goldencode/p2j/jmx/MapCounter.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/jmx/MapCounter.java	2020-10-10 18:55:37 +0000
@@ -0,0 +1,93 @@
+/*
+** Module   : MapCounter.java
+** Abstract : Helper interface for accumulating <code>long</code> values. 
+**
+** Copyright (c) 2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** 001 HC  20201010 Created initial version.
+*/ 
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.jmx;
+
+import java.io.*;
+import java.text.*;
+import java.util.*;
+
+/** Helper interface for accumulating <code>long</code> values */
+public interface MapCounter
+{
+   /**
+    * Update counter
+    *
+    * @param valueName
+    *        value name to update
+    * @param value
+    *        new value
+    */
+   public void update(String valueName, long value);
+   
+   /**
+    * Return the string representation of the counter
+    * 
+    * @param ts
+    * @param comment
+    *        comment
+    * @return string representation of the counter
+    * @throws IOException
+    */
+   public String toString(String ts, String comment)  throws IOException;
+}

=== added file 'src/com/goldencode/p2j/jmx/MapCounterMBean.java'
--- src/com/goldencode/p2j/jmx/MapCounterMBean.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/jmx/MapCounterMBean.java	2020-10-10 18:55:37 +0000
@@ -0,0 +1,77 @@
+/*
+** Module   : MapCounterMBean.java
+** Abstract : Helper interface for the MBean supporting map counting
+**
+** Copyright (c) 2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** 001 HC  20201010 Created initial version.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.jmx;
+
+import java.util.*;
+
+/** Helper interface for the MBean supporting map counting */
+public interface MapCounterMBean
+{
+   /**
+    * Returns accumulated values.
+    *
+    * @return  See above.
+    */
+   Map<String, Long> getValues();
+}

=== added file 'src/com/goldencode/p2j/jmx/OptionalMapCounter.java'
--- src/com/goldencode/p2j/jmx/OptionalMapCounter.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/jmx/OptionalMapCounter.java	2020-10-10 18:55:37 +0000
@@ -0,0 +1,73 @@
+/*
+** Module   : OptionalMapCounter.java
+** Abstract : Helper interface for optional accumulating <code>long</code> map values.
+**
+** Copyright (c) 2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** 001 HC  20201010 Created initial version.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.jmx;
+
+import com.goldencode.util.*;
+
+/** Helper interface for optional accumulating <code>long</code> map values */
+public interface OptionalMapCounter
+extends MapCounter,
+        AgentRegistry<BooleanConsumer>
+{
+}

=== modified file 'src/com/goldencode/p2j/jmx/SimpleCounter.java'
--- src/com/goldencode/p2j/jmx/SimpleCounter.java	2020-10-02 14:48:30 +0000
+++ src/com/goldencode/p2j/jmx/SimpleCounter.java	2020-10-10 18:55:37 +0000
@@ -7,6 +7,7 @@
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 IAS 20200930 Created initial version.
 ** 002 IAS 20201001 Added dump of MBean state.
+**     HC  20201010 Implemented map counter.
 */ 
 
 /*
@@ -71,15 +72,10 @@
 
 /** Helper class for an optional accumulating <code>long</code> values.*/
 public class SimpleCounter
+extends AbstractCounter
 {
    /** Samples' consumer */
    protected final LongConsumer publish;
-   
-   /** Enabler lambda; should be alive as long as the time instance */
-   protected BooleanConsumer enabler;
-   
-   /** 'Enabled' flag */
-   protected volatile boolean enabled = false;
 
    /**
     * Create and register instance
@@ -103,7 +99,7 @@
     */
    protected SimpleCounter(LongConsumer publish) 
    {
-       this.publish = publish;
+      this.publish = publish;
    }
    
    /**
@@ -118,42 +114,4 @@
          publish.accept(value);
       }
    }
-
-   /**
-    * Enable/disable
-    * @param val
-    *        new value of the 'enabled' flag
-    */
-   public void setEnabled(boolean val)
-   {
-       enabled = val;
-   }
-
-   /**
-    * Check if the counter is enabled 
-    * @return <code>true</code> if the counter is enabled 
-    */
-   public boolean isEnabled()
-   {
-       return enabled;
-   }
-   
-   /**
-    * Get the 'enabled' flag setter
-    * @return 'enabled' flag setter
-    */
-   public BooleanConsumer getEnabler()
-   {
-      return enabler;
-   }
-
-   /**
-    * Set the 'enabled' flag setter
-    * @param enabler
-    *        the 'enabled' flag setter
-    */
-   public void setEnabler(BooleanConsumer enabler)
-   {
-      this.enabler = enabler;
-   }
 }

=== modified file 'src/com/goldencode/p2j/jmx/SimpleLongCounterMBean.java'
--- src/com/goldencode/p2j/jmx/SimpleLongCounterMBean.java	2020-10-02 14:48:30 +0000
+++ src/com/goldencode/p2j/jmx/SimpleLongCounterMBean.java	2020-10-10 18:55:37 +0000
@@ -81,7 +81,7 @@
     * @return
     */
    public long getCount();
-   
+
    /**
     * Reset counters
     */

=== added file 'src/com/goldencode/p2j/jmx/SimpleMapCounter.java'
--- src/com/goldencode/p2j/jmx/SimpleMapCounter.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/jmx/SimpleMapCounter.java	2020-10-10 19:46:21 +0000
@@ -0,0 +1,128 @@
+/*
+ ** Module   : SimpleMapCounter.java
+ ** Abstract : MBean supporting counting
+ **
+ ** Copyright (c) 2020, Golden Code Development Corporation.
+ **
+ ** -#- -I- --Date-- ---------------------------------Description----------------------------------
+ ** 001 HC  20201010 Created initial version.
+ */
+
+/*
+ ** This program is free software: you can redistribute it and/or modify
+ ** it under the terms of the GNU Affero General Public License as
+ ** published by the Free Software Foundation, either version 3 of the
+ ** License, or (at your option) any later version.
+ **
+ ** This program is distributed in the hope that it will be useful,
+ ** but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ** GNU Affero General Public License for more details.
+ **
+ ** You may find a copy of the GNU Affero GPL version 3 at the following
+ ** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+ **
+ ** Additional terms under GNU Affero GPL version 3 section 7:
+ **
+ **   Under Section 7 of the GNU Affero GPL version 3, the following additional
+ **   terms apply to the works covered under the License.  These additional terms
+ **   are non-permissive additional terms allowed under Section 7 of the GNU
+ **   Affero GPL version 3 and may not be removed by you.
+ **
+ **   0. Attribution Requirement.
+ **
+ **     You must preserve all legal notices or author attributions in the covered
+ **     work or Appropriate Legal Notices displayed by works containing the covered
+ **     work.  You may not remove from the covered work any author or developer
+ **     credit already included within the covered work.
+ **
+ **   1. No License To Use Trademarks.
+ **
+ **     This license does not grant any license or rights to use the trademarks
+ **     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+ **     of Golden Code Development Corporation. You are not authorized to use the
+ **     name Golden Code, FWD, or the names of any author or contributor, for
+ **     publicity purposes without written authorization.
+ **
+ **   2. No Misrepresentation of Affiliation.
+ **
+ **     You may not represent yourself as Golden Code Development Corporation or FWD.
+ **
+ **     You may not represent yourself for publicity purposes as associated with
+ **     Golden Code Development Corporation, FWD, or any author or contributor to
+ **     the covered work, without written authorization.
+ **
+ **   3. No Misrepresentation of Source or Origin.
+ **
+ **     You may not represent the covered work as solely your work.  All modified
+ **     versions of the covered work must be marked in a reasonable way to make it
+ **     clear that the modified work is not originating from Golden Code Development
+ **     Corporation or FWD.  All modified versions must contain the notices of
+ **     attribution required in this license.
+ */
+
+package com.goldencode.p2j.jmx;
+
+import java.util.*;
+import java.util.concurrent.*;
+import java.util.concurrent.atomic.*;
+
+/** MBean supporting counting */
+public class SimpleMapCounter
+extends SimpleLongCounter
+implements SimpleMapCounterMBean,
+           MapCounter
+{
+   /** Accumulated values */
+   private Map<String, AtomicLong> values = new ConcurrentHashMap<>();
+
+   /**
+    * {@inheritDoc}
+    */
+   @Override
+   public void update(String valueName, long value)
+   {
+      values.computeIfAbsent(valueName, k -> new AtomicLong(0)).incrementAndGet();
+      super.update(value);
+   }
+
+   /**
+    * {@inheritDoc}
+    */
+   @Override
+   public Map<String, Long> getValues()
+   {
+      Map<Long, List<String>> sortedMap = new TreeMap<>();
+      for (Map.Entry<String, AtomicLong> e : values.entrySet())
+      {
+         List<String> values = sortedMap.get(e.getValue().get());
+         if (values == null)
+         {
+            values = new ArrayList<>();
+            sortedMap.put(e.getValue().get(), values);
+         }
+         values.add(e.getKey());
+      }
+
+      Map<String, Long> result = new LinkedHashMap<>();
+      for (Map.Entry<Long, List<String>> e : sortedMap.entrySet())
+      {
+         for (String name : e.getValue())
+         {
+            result.put(name, e.getKey());
+         }
+      }
+
+      return result;
+   }
+
+   /**
+    * {@inheritDoc}
+    */
+   @Override
+   public void reset()
+   {
+      values.clear();
+      super.reset();
+   }
+}

=== added file 'src/com/goldencode/p2j/jmx/SimpleMapCounterMBean.java'
--- src/com/goldencode/p2j/jmx/SimpleMapCounterMBean.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/jmx/SimpleMapCounterMBean.java	2020-10-10 18:55:37 +0000
@@ -0,0 +1,79 @@
+/*
+** Module   : SimpleMapCounterMBean.java
+** Abstract : Helper interface for the MBean supporting map counting
+**
+** Copyright (c) 2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** 001 HC  20201005 Created initial version.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.jmx;
+
+import java.util.*;
+
+/** Helper interface for the MBean supporting map counting */
+public interface SimpleMapCounterMBean
+extends FacultativeMBean,
+        SimpleLongCounterMBean
+{
+   /**
+    * Returns accumulated values.
+    *
+    * @return  See above.
+    */
+   Map<String, Long> getValues();
+}

=== added file 'src/com/goldencode/p2j/jmx/ValuesCounter.java'
--- src/com/goldencode/p2j/jmx/ValuesCounter.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/jmx/ValuesCounter.java	2020-10-10 18:55:37 +0000
@@ -0,0 +1,112 @@
+/*
+** Module   : ValuesCounter.java
+** Abstract : Helper class for an optional accumulation of named <code>long</code> values.
+**
+** Copyright (c) 2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** 001 HC  20201010 Created initial version.
+*/ 
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.jmx;
+
+import java.util.function.*;
+
+/** Helper class for an optional accumulating named <code>long</code> values.*/
+public class ValuesCounter
+extends AbstractCounter
+{
+   /** Samples' consumer */
+   protected final ObjLongConsumer<String> publish;
+
+   /**
+    * Create and register instance
+    * @param counter
+    *        Counter MBean
+    * @return
+    *       new <code>SimpleCounter</code> instance
+    */
+   public static ValuesCounter getInstance(OptionalMapCounter counter)
+   {
+       ValuesCounter simple = new ValuesCounter(counter::update);
+       simple.setEnabler(simple::setEnabled); //prevent GC
+       counter.register(simple.getEnabler());
+       return simple;
+   }
+
+   /**
+    * Constructor
+    * @param publish
+    *        samples' consumer
+    */
+   protected ValuesCounter(ObjLongConsumer<String> publish)
+   {
+      this.publish = publish;
+   }
+   
+   /**
+    * Update counter
+    * @param value
+    *        new value
+    */
+   public void update(String valueName, long value)
+   {
+      if (enabled)
+      {
+         publish.accept(valueName, value);
+      }
+   }
+}

=== modified file 'src/com/goldencode/p2j/main/AppServerInvocationResult.java'
--- src/com/goldencode/p2j/main/AppServerInvocationResult.java	2020-09-24 17:41:02 +0000
+++ src/com/goldencode/p2j/main/AppServerInvocationResult.java	2020-10-27 20:36:47 +0000
@@ -11,6 +11,7 @@
 ** 004 CA  20200427 Added support for OERequestInfo legacy class, in response and request.
 ** 005 IAS 20200908 Rework (de)serialization.
 ** 006 IAS 20200922 Fix typo in deserialization.
+**     CA  20201027 The remote side can delete the IN HANDLE used by the requester at the RUN statement.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -113,6 +114,9 @@
    /** The response for the <code>OERequestInfo:clientPrincipal</code> value. */
    private byte[] clientPrincipal;
    
+   /** Flag indicating that the requester's IN HANDLE has been deleted by the remote side. */
+   private boolean invalidInHandle;
+   
    /**
     * Serialize this object, to be picked up by the other side.
     *  
@@ -146,6 +150,8 @@
       writeInteger(out, sessionId);
       writeInteger(out, threadId);
       writeByteArray(out, clientPrincipal);
+      
+      out.writeBoolean(invalidInHandle);
    }
 
    /**
@@ -185,6 +191,28 @@
       sessionId = readInteger(in);
       threadId = readInteger(in);
       clientPrincipal = readByteArray(in);
+      invalidInHandle = in.readBoolean();
+   }
+
+   /**
+    * Get the state of the {@link #invalidInHandle} flag.
+    * 
+    * @return   See above.
+    */
+   public boolean isInvalidInHandle()
+   {
+      return invalidInHandle;
+   }
+   
+   /**
+    * Set the state of the {@link #invalidInHandle} flag.
+    * 
+    * @param    invalidInHandle
+    *           The new flag value.
+    */
+   public void setInvalidInHandle(boolean invalidInHandle)
+   {
+      this.invalidInHandle = invalidInHandle;
    }
 
    /**

=== modified file 'src/com/goldencode/p2j/main/WebClientBuilder.java'
--- src/com/goldencode/p2j/main/WebClientBuilder.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/p2j/main/WebClientBuilder.java	2020-11-15 23:09:44 +0000
@@ -2,7 +2,7 @@
 ** Module   : WebClientBuilder.java
 ** Abstract : build and start a process for the web client
 **
-** Copyright (c) 2014-2017, Golden Code Development Corporation.
+** Copyright (c) 2014-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 CA  20140206 First version, extracted from ClientBuilder.
@@ -16,6 +16,7 @@
 **                  and set the web client embedded mode "client:web:embedded".
 ** 008 CA  20160428 Added command-line configuration options for web-clients.
 ** 009 SBI 20160427 Added graphicsCached parameter to turn off the graphics cache for testing.
+** 010 HC  20201116 Added renderer web client option.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -136,6 +137,8 @@
          command.add("client:gui:desktopWidth=" + options.get("desktopWidth"));
          command.add("client:gui:taskbar=" + options.get("taskbar"));
          command.add("client:gui:graphicsCached=" + options.get("graphicsCached"));
+         command.add("client:gui:disablePixelManipulation=" + options.get("disablePixelManipulation"));
+         command.add("client:gui:renderer=" + options.get("renderer"));
       }
       else
       {
@@ -171,7 +174,7 @@
          // do not send this parameter on remote spawn, let the remote web server select the IP
          if (!remote)
          {
-            command.add("client:web:host=" + options.get("host"));            
+            command.add("client:web:host=" + options.get("host"));
          }
       }
       

=== modified file 'src/com/goldencode/p2j/main/WebClientBuilderOptions.java'
--- src/com/goldencode/p2j/main/WebClientBuilderOptions.java	2019-12-11 21:47:50 +0000
+++ src/com/goldencode/p2j/main/WebClientBuilderOptions.java	2021-01-24 20:39:20 +0000
@@ -2,7 +2,7 @@
 ** Module   : WebClientBuilderOptions.java
 ** Abstract : store web client parameters read from the directory
 **
-** Copyright (c) 2014-2019, Golden Code Development Corporation.
+** Copyright (c) 2014-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 CA  20140206 First version, extracted from ClientBuilderOptions.
@@ -17,6 +17,7 @@
 ** 007 CA  20191211 When spawning a Java process programmatically, allow the caller to pass 
 **                  environment options specific to that call (beside any jvmArgs configured in 
 **                  the directory).
+** 008 HC  20201116 Added renderer web client option. Made WebGL the default renderer.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -253,8 +254,13 @@
       boolean embedded     = cbo.getNode(DIRECTORY_NODE_ID,
                                          "embedded",
                                          false);
-      // Read if the drawing batches are cached 
-      boolean graphicsCached = cbo.getNode(DIRECTORY_NODE_ID, "graphicsCached", true);
+
+      String renderer = cbo.getNode(DIRECTORY_NODE_ID, "renderer", "webgl").trim().toLowerCase();
+      options.put("renderer", cbo.getNode(DIRECTORY_NODE_ID, "renderer", renderer));
+
+      // Read if the drawing batches are cached
+      boolean isWebgl = "webgl".equalsIgnoreCase(renderer);
+      boolean graphicsCached = cbo.getNode(DIRECTORY_NODE_ID, "graphicsCached", !isWebgl);
       
       // build client options map
       options.put("rows", String.valueOf(rows));
@@ -280,11 +286,14 @@
       options.put("embedded", embedded ? "true" : "false");
       // sets true if the web client uses a buffer to cache drawings, otherwise false.
       options.put("graphicsCached", graphicsCached ? "true" : "false");
-      
+      // Read webClient/disablePixelManipulation value 
+      boolean disablePixelManipulation = cbo.getNode(DIRECTORY_NODE_ID, "disablePixelManipulation", false);
+      options.put("disablePixelManipulation", disablePixelManipulation ? "true" : "false");
+
       // in trusted mode, we must authenticate by using the NativeSecureConnection
       // to access the P2J server and get our temporary account; this requires some
       // additional secure connection configuration to be available
       options.put("securePort", String.valueOf(cfg.getInt("net", "server", "secure_port", -1)));
       options.put("serverAlias", sm.getServerAlias());
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/main/WebClientsManager.java'
--- src/com/goldencode/p2j/main/WebClientsManager.java	2020-03-17 16:51:52 +0000
+++ src/com/goldencode/p2j/main/WebClientsManager.java	2020-12-22 14:58:47 +0000
@@ -10,6 +10,7 @@
 **                  the target host, changed to map a host and its port to its web client
 **                  identifier.
 ** 003 SBI 20200317 Added the hosts manager.
+** 004 IAS 20201222 Added daemon thread pool to the HTTP client.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -79,6 +80,7 @@
 import org.eclipse.jetty.client.api.Response.CompleteListener;
 import org.eclipse.jetty.http.HttpScheme;
 import org.eclipse.jetty.util.ssl.SslContextFactory;
+import org.eclipse.jetty.util.thread.*;
 
 import com.goldencode.p2j.net.RemoteObject;
 import com.goldencode.p2j.net.Session;
@@ -168,6 +170,7 @@
     */
    private HttpClient httpClient;
    
+   
    /**
     * Creates a unique instance per a standard P2J server.
     * 
@@ -208,6 +211,15 @@
          sslContextFactory.setSslContext(sslContext);
          
          httpClient = new HttpClient(sslContextFactory);
+         
+         QueuedThreadPool pool = new QueuedThreadPool(10, 1);
+         pool.setName("http-client");
+         pool.setDaemon(true);
+         pool.start();
+         pool.setStopTimeout(2000);
+         pool.setDetailedDump(true);
+         httpClient.setExecutor(pool);
+         
          // Start HttpClient
          httpClient.start();
       }

=== modified file 'src/com/goldencode/p2j/net/Dispatcher.java'
--- src/com/goldencode/p2j/net/Dispatcher.java	2020-02-25 13:35:40 +0000
+++ src/com/goldencode/p2j/net/Dispatcher.java	2020-12-03 14:11:09 +0000
@@ -126,6 +126,13 @@
 ** 038 GES 20151002          Added another excluded exception to the criteria list.
 ** 039 IAS 20160805          getMethod(RoutingKey) optimization.
 ** 040 VVT 20200203          Extra items removed from the method 'throws' list.
+** 041 CA  20201202          State-sync via applyChanges() must be performed just before the method is invoked.
+**                           This will allow any exception thrown by this to be properly caught and sent to
+**                           the caller.  Also, the 'catch' block was changed to allow catching any Throwable.
+**                           In case of a non-Exception, this will be wrapped in a RuntimeException so that
+**                           the caller can handle it like an Exception.
+**     CA  20201203          Moved the 'applyChanges' to the previous place, while not allowing the message
+**                           to execute in case of errors (and report this back to the caller).
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -682,8 +689,25 @@
          }
 
          // post-processing of the received message
-         message = queue.getProtocol().applyChanges(message);
-         
+         Throwable failedState = null;
+         try
+         {
+            message = queue.getProtocol().applyChanges(message);
+         }
+         catch (Throwable t)
+         {
+            failedState = t;
+            exception = new RuntimeException(failedState);
+            if (LOG.isLoggable(Level.SEVERE) && !Utils.causeChainContains(t, criteria))
+            {
+               LOG.logp(Level.SEVERE,
+                        "Dispatcher.processInbound()",
+                        "",
+                        LogHelper.generate("Unexpected throwable."),
+                        t);
+            }
+         }
+
          boolean asyncRequest = message.isAsyncRequest();
          
          try
@@ -736,23 +760,28 @@
                   ctrl.lock();
                }
             
-               Object[] payload = (Object[]) message.getPayload();
-               
-               // special handling for AUTHENTICATE_REMOTE payload;  method
-               // call requires that the *local* queue be passed in as the
-               // final parameter
-               if (authRemote)
+               if (failedState == null)
                {
-                  int len = payload.length;
-                  Object[] augmented = new Object[len + 1];
-                  System.arraycopy(payload, 0, augmented, 0, len);
-                  augmented[len] = queue;
-                  payload = augmented;
+                  // do not allow the message to execute, if there were problems during sync state processing. 
+               
+                  Object[] payload = (Object[]) message.getPayload();
+                  
+                  // special handling for AUTHENTICATE_REMOTE payload;  method
+                  // call requires that the *local* queue be passed in as the
+                  // final parameter
+                  if (authRemote)
+                  {
+                     int len = payload.length;
+                     Object[] augmented = new Object[len + 1];
+                     System.arraycopy(payload, 0, augmented, 0, len);
+                     augmented[len] = queue;
+                     payload = augmented;
+                  }
+                  
+                  // execute the requested method
+                  result = tracing ? trace(method, payload) 
+                                   : method.invoke(payload);
                }
-               
-               // execute the requested method
-               result = tracing ? trace(method, payload) 
-                                : method.invoke(payload);
             }
             
             finally
@@ -770,7 +799,7 @@
          
          catch (Throwable t)
          {
-            if (exception == null && t instanceof Exception)
+            if (exception == null)
             {
                if (LOG.isLoggable(Level.SEVERE) && !Utils.causeChainContains(t, criteria))
                {
@@ -781,18 +810,26 @@
                            t);
                }
                
-               exception = (Exception) t;
+               if (t instanceof Exception)
+               {
+                  exception = (Exception) t;
+               }
+               else
+               {
+                  exception = new RuntimeException(t);
+               }
 
                // try to extract original exception
                if (t instanceof InvocationTargetException)
                {
-                  InvocationTargetException ite = 
-                     (InvocationTargetException) t;
+                  InvocationTargetException ite = (InvocationTargetException) t;
                      
                   Throwable cause = ite.getCause();
 
                   if (cause instanceof Exception)
+                  {
                      exception = (Exception) cause;
+                  }
                }
             }
          }

=== modified file 'src/com/goldencode/p2j/net/SSL.java'
--- src/com/goldencode/p2j/net/SSL.java	2020-09-25 13:17:20 +0000
+++ src/com/goldencode/p2j/net/SSL.java	2020-11-25 23:22:06 +0000
@@ -315,7 +315,8 @@
          log("appendIncoming(): remaining: %d, pended: %d", remaining, pended);
          return true;
       }
-      else if (remaining > 0){
+      else if (remaining > 0)
+      {
          byte[] b = new byte[outUnwrap.remaining()];
          bb.get(b);
          bb.compact().flip();
@@ -324,7 +325,9 @@
                remaining, pended, bb.remaining());
          return false;
       }
-      System.out.println("Potential buffer overflow prevented");
+      // OM : got these messages: cause under investigation
+      System.out.println(
+            "Potential buffer overflow prevented (bytes pended:" + pended + ", remaining" + remaining + ")");
       return false;
    }
 

=== modified file 'src/com/goldencode/p2j/oo/core/ByteBucket.java'
--- src/com/goldencode/p2j/oo/core/ByteBucket.java	2020-10-19 06:32:36 +0000
+++ src/com/goldencode/p2j/oo/core/ByteBucket.java	2021-01-31 10:14:52 +0000
@@ -2,9 +2,9 @@
 ** Module   : ByteBucket.java
 ** Abstract : Implementation of the OpenEdge.Core.ByteBucket builtin class.
 **
-** Copyright (c) 2019-2020, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 CA  20190526 First version, stubs taken by converting the skeleton using FWD.
 ** 002 CA  20191024 Added method support levels and updated the class support level.
 ** 003 CA  20200313 Fixed a typo in putBytes_1 LegacySignature annotation.
@@ -12,6 +12,7 @@
 ** 005 ME  20200604 Rewrite to match the 4GL implementation.
 **         20201019 Always write at the end regardless of position set, check max size
 **         boundary (2G).          
+** 006 CA  20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -302,7 +303,7 @@
     */
    @LegacySignature(type = Type.METHOD, name = "Clear")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL | RT_LVL_FULL)
-   public void clear()
+   public void clear_()
    {
       internalProcedure(this, "Clear", new Block((Body) () -> {
          this.position.assign(1);
@@ -656,7 +657,7 @@
    public void initialize()
    {
       internalProcedure(this, "Initialize", new Block((Body) () -> {
-         clear();
+         clear_();
       }));
    }
 

=== modified file 'src/com/goldencode/p2j/oo/core/LegacyString.java'
--- src/com/goldencode/p2j/oo/core/LegacyString.java	2020-10-09 06:30:44 +0000
+++ src/com/goldencode/p2j/oo/core/LegacyString.java	2021-01-13 15:36:44 +0000
@@ -2,14 +2,15 @@
 ** Module   : LegacyString.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 CA  20190526 First version, stubs taken by converting the skeleton using FWD.
 ** 002 CA  20190710 Runtime implementation of the common APIs.
 ** 003 IAS 20190923 Added implementation of a number of methods.
 ** 004 CA  20191024 Added method support levels and updated the class support level.
 ** 005 ME  20201005 Remove dependency on Apache StringUtils.
+**     CA  20210113 Renamed trim() to trim_(), to follow NameConverter's rules.
 */
 
 /*
@@ -656,7 +657,7 @@
 
    @LegacySignature(type = Type.METHOD, name = "Trim")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL | RT_LVL_FULL)
-   public void trim()
+   public void trim_()
    {
       internalProcedure(this, "Trim", new Block((Body) () ->
       {
@@ -667,7 +668,7 @@
    @LegacySignature(type = Type.METHOD, name = "Trim", parameters = {
             @LegacyParameter(name = "p1", type = "CHARACTER", mode = "INPUT") })
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL | RT_LVL_FULL)
-   public void trim(final character _p1)
+   public void trim_(final character _p1)
    {
       character p1 = TypeFactory.initInput(_p1);
 

=== modified file 'src/com/goldencode/p2j/oo/core/Memptr.java'
--- src/com/goldencode/p2j/oo/core/Memptr.java	2020-05-27 16:27:27 +0000
+++ src/com/goldencode/p2j/oo/core/Memptr.java	2021-01-13 15:36:44 +0000
@@ -2,15 +2,16 @@
 ** Module   : Memptr.java
 ** Abstract : Implementation of the builtin class OpenEdge.Core.Memptr.
 **
-** Copyright (c) 2019-2020, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 CA  20190526 First version, stubs taken by converting the skeleton using FWD.
 ** 002 CA  20190710 First pass at runtime implementation; _Debug and GetHash are still stubs.
 **                  Codepage support is not implemented.
 ** 003 CA  20191024 Added method support levels and updated the class support level.
 ** 004 ME  20200331 Fix constructors, add setters and validate input parameters for get methods.
 **     GES 20200526 Change to match legacy enum implementation.
+** 005 CA  20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -338,7 +339,7 @@
 
    @LegacySignature(type = Type.METHOD, name = "Clear")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL | RT_LVL_FULL)
-   public void clear()
+   public void clear_()
    {
       internalProcedure(this, "Clear", new Block((Body) () ->
       {

=== modified file 'src/com/goldencode/p2j/oo/core/collections/AbstractTtcollection.java'
--- src/com/goldencode/p2j/oo/core/collections/AbstractTtcollection.java	2021-01-28 13:42:02 +0000
+++ src/com/goldencode/p2j/oo/core/collections/AbstractTtcollection.java	2021-01-31 10:14:52 +0000
@@ -2,12 +2,13 @@
 ** Module   : AbstractTTCollection.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 ME  20200514 First version, stubs taken by converting the skeleton using FWD.
-** 002 ME  20210128 Keep only the default 4GL temp-table implementation.
-**     
+** 002 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
+**         20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
+** 003 ME  20210128 Keep only the default 4GL temp-table implementation.
 */
 
 /*
@@ -250,7 +251,7 @@
 
             while (it.hasNext().booleanValue())
             {
-               add(it.next());
+               add(it.next_());
             }
          }
 
@@ -260,7 +261,7 @@
 
    @LegacySignature(type = Type.METHOD, name = "Clear")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL | RT_LVL_FULL)
-   public void clear()
+   public void clear_()
    {
       internalProcedure(AbstractTtcollection.class, this, "Clear", new Block((Body) () ->
       {
@@ -304,7 +305,7 @@
 
          while (it.hasNext().booleanValue())
          {
-            if (!contains(it.next()).booleanValue())
+            if (!contains(it.next_()).booleanValue())
                returnNormal(false);
          }
 
@@ -389,7 +390,7 @@
 
          while (it.hasNext().booleanValue())
          {
-            object<? extends _BaseObject_> obj = it.next();
+            object<? extends _BaseObject_> obj = it.next_();
             while (remove(obj).booleanValue())
                result = true;
          }
@@ -411,7 +412,7 @@
 
          while (it.hasNext().booleanValue())
          {
-            object<? extends _BaseObject_> obj = it.next();
+            object<? extends _BaseObject_> obj = it.next_();
 
             if (!p1.ref().contains(obj).booleanValue())
             {
@@ -441,7 +442,7 @@
 
             while (it.hasNext().booleanValue())
             {
-               oArr[i++].assign(it.next());
+               oArr[i++].assign(it.next_());
             }
             returnExtentNormal(oArr);
          }
@@ -475,7 +476,7 @@
       {
          Iiterator it = iterator().ref();
          while (it.hasNext().booleanValue())
-            p1.ref().add(it.next().ref().clone());
+            p1.ref().add(it.next_().ref().clone());
       }));
    }
 

=== modified file 'src/com/goldencode/p2j/oo/core/collections/Array.java'
--- src/com/goldencode/p2j/oo/core/collections/Array.java	2020-09-13 21:45:15 +0000
+++ src/com/goldencode/p2j/oo/core/collections/Array.java	2021-01-13 15:36:44 +0000
@@ -2,14 +2,16 @@
 ** Module   : Array.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 CA  20190526 First version, stubs taken by converting the skeleton using FWD.
 **     RFB 20191022 Added LegacyResource annotation
 ** 002 CA  20191024 Added method support levels and updated the class support level.
 ** 003 ME  20200331 Added AutoExpand setter.
 ** 004 ME  20200529 Complete to match the 4GL implementation.
+** 005 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
+**         20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -304,7 +306,7 @@
 
    @LegacySignature(type = Type.METHOD, name = "Clear")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL | RT_LVL_FULL)
-   public void clear()
+   public void clear_()
    {
       internalProcedure(this, "Clear", new Block((Body) () -> {
          setArraySize(0);
@@ -338,7 +340,7 @@
          Iiterator it = iterator().ref();
          while (it.hasNext().booleanValue())
          {
-            p1.ref().add(it.next().ref().clone());
+            p1.ref().add(it.next_().ref().clone());
          }
       }));
    }
@@ -385,7 +387,7 @@
 
             while (iterator.ref().hasNext().booleanValue())
             {
-               if (!contains(iterator.ref().next()).booleanValue())
+               if (!contains(iterator.ref().next_()).booleanValue())
                {
                   returnNormal(false);
                }
@@ -471,7 +473,7 @@
 
          while (iterator.ref().hasNext().booleanValue())
          {
-            object<? extends _BaseObject_> o = iterator.ref().next();
+            object<? extends _BaseObject_> o = iterator.ref().next_();
             while (remove(o).booleanValue())
                lAny = true;
          }
@@ -496,7 +498,7 @@
 
          while (iterator.ref().hasNext().booleanValue())
          {
-            object<? extends _BaseObject_> o = iterator.ref().next();
+            object<? extends _BaseObject_> o = iterator.ref().next_();
             if (!p1.ref().contains(o).booleanValue())
             {
                while (remove(o).booleanValue())

=== modified file 'src/com/goldencode/p2j/oo/core/collections/ArrayIterator.java'
--- src/com/goldencode/p2j/oo/core/collections/ArrayIterator.java	2020-06-15 00:40:59 +0000
+++ src/com/goldencode/p2j/oo/core/collections/ArrayIterator.java	2021-01-13 12:02:59 +0000
@@ -2,10 +2,11 @@
 ** Module   : ArrayIterator.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 ME  20200519 First version, stubs taken by converting the skeleton using FWD.
+** 002 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
 */
 
 /*
@@ -176,7 +177,7 @@
 
    @LegacySignature(type = Type.METHOD, name = "Next", qualified = "progress.lang.object")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL | RT_LVL_FULL)
-   public object<? extends com.goldencode.p2j.oo.lang._BaseObject_> next()
+   public object<? extends com.goldencode.p2j.oo.lang._BaseObject_> next_()
    {
       return function(ArrayIterator.class, this, "Next", object.class, new Block((Body) () ->
       {

=== modified file 'src/com/goldencode/p2j/oo/core/collections/EntrySet.java'
--- src/com/goldencode/p2j/oo/core/collections/EntrySet.java	2020-11-20 11:06:34 +0000
+++ src/com/goldencode/p2j/oo/core/collections/EntrySet.java	2021-01-31 10:14:52 +0000
@@ -2,13 +2,13 @@
 ** Module   : EntrySet.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 ME  20200514 First version, stubs taken by converting the skeleton using FWD.
 **         20201120 Fix remove method return value, removeAll implementation is different
 **                  https://proj.goldencode.com/issues/5010.
-**     
+** 002 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
 */
 
 /*
@@ -169,7 +169,7 @@
 
          while (it.hasNext().booleanValue())
          {
-            if (!contains(it.next()).booleanValue())
+            if (!contains(it.next_()).booleanValue())
                returnNormal(false);
          }
 
@@ -212,7 +212,7 @@
          while (it.hasNext().booleanValue())
          {
             // there seems to be a bug in 4GL, only if entry is found and key equals value it is removed
-            remove(it.next());
+            remove(it.next_());
          }
 
          // 4GL always seems to return false
@@ -238,7 +238,7 @@
 
          while (it.hasNext().booleanValue())
          {
-            object<? extends _BaseObject_> obj = it.next();
+            object<? extends _BaseObject_> obj = it.next_();
             if (!p1.ref().contains(obj).booleanValue())
             {
                while (remove(obj).booleanValue())

=== modified file 'src/com/goldencode/p2j/oo/core/collections/EntrySetIterator.java'
--- src/com/goldencode/p2j/oo/core/collections/EntrySetIterator.java	2020-05-18 08:10:56 +0000
+++ src/com/goldencode/p2j/oo/core/collections/EntrySetIterator.java	2021-01-13 12:02:59 +0000
@@ -2,11 +2,11 @@
 ** Module   : EntrySetIterator.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 ME  20200514 First version, stubs taken by converting the skeleton using FWD.
-**     
+** 002 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
 */
 
 /*
@@ -141,11 +141,11 @@
    @LegacySignature(type = Type.METHOD, name = "Next", qualified = "progress.lang.object")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL | RT_LVL_FULL)
    @Override
-   public object<? extends com.goldencode.p2j.oo.lang._BaseObject_> next()
+   public object<? extends com.goldencode.p2j.oo.lang._BaseObject_> next_()
    {
       return function(EntrySetIterator.class, this, "Next", object.class, new Block((Body) () ->
       {
-         object<? extends _BaseObject_> key = super.next();
+         object<? extends _BaseObject_> key = super.next_();
 
          returnNormal(ObjectOps.newInstance(LegacyMapEntry.class, "II", owningMap, key));
       }));

=== modified file 'src/com/goldencode/p2j/oo/core/collections/Icollection.java'
--- src/com/goldencode/p2j/oo/core/collections/Icollection.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/oo/core/collections/Icollection.java	2021-01-13 15:36:44 +0000
@@ -2,13 +2,14 @@
 ** Module   : Icollection.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 CA  20190526 First version, stubs taken by converting the skeleton using FWD.
 **     RFB 20191022 Added LegacyResource annotation
 ** 002 CA  20191024 Added method support levels and updated the class support level.
 ** 003 ME  20200729 Update parameter names to match skeleton.
+** 004 CA  20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -107,7 +108,7 @@
 
    @LegacySignature(type = Type.METHOD, name = "Clear")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL|RT_LVL_FULL)
-   public void clear();
+   public void clear_();
 
    @LegacySignature(type = Type.METHOD, name = "Contains", parameters = 
    {

=== modified file 'src/com/goldencode/p2j/oo/core/collections/Iiterator.java'
--- src/com/goldencode/p2j/oo/core/collections/Iiterator.java	2019-10-24 23:19:26 +0000
+++ src/com/goldencode/p2j/oo/core/collections/Iiterator.java	2021-01-13 12:02:59 +0000
@@ -2,12 +2,13 @@
 ** Module   : Iiterator.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 CA  20190526 First version, stubs taken by converting the skeleton using FWD.
 **     RFB 20191022 Added LegacyResource annotation
 ** 002 CA  20191024 Added method support levels and updated the class support level.
+** 003 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
 */
 
 /*
@@ -87,7 +88,7 @@
 
    @LegacySignature(type = Type.METHOD, name = "Next", qualified = "progress.lang.object")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL|RT_LVL_FULL)
-   public object<? extends com.goldencode.p2j.oo.lang._BaseObject_> next();
+   public object<? extends com.goldencode.p2j.oo.lang._BaseObject_> next_();
 
    @LegacySignature(type = Type.METHOD, name = "Remove")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL|RT_LVL_FULL)

=== modified file 'src/com/goldencode/p2j/oo/core/collections/Ilist.java'
--- src/com/goldencode/p2j/oo/core/collections/Ilist.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/oo/core/collections/Ilist.java	2021-01-13 15:36:44 +0000
@@ -2,10 +2,11 @@
 ** Module   : IList.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 ME  20200729 Convert from skeleton (OE12.2).
+** 002 CA  20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -167,7 +168,7 @@
    public logical addArray(final object<? extends com.goldencode.p2j.oo.lang._BaseObject_>[] _poElements);
 
    @LegacySignature(type = Type.METHOD, name = "Clear")
-   public void clear();
+   public void clear_();
 
    @LegacySignature(type = Type.METHOD, name = "Contains", parameters = 
    {

=== modified file 'src/com/goldencode/p2j/oo/core/collections/IlistIterator.java'
--- src/com/goldencode/p2j/oo/core/collections/IlistIterator.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/oo/core/collections/IlistIterator.java	2021-01-13 12:02:59 +0000
@@ -2,10 +2,11 @@
 ** Module   : IListIterator.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 ME  20200729 Convert from skeleton (OE12.2).
+** 002 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
 */
 
 /*
@@ -93,7 +94,7 @@
    public logical hasNext();
 
    @LegacySignature(type = Type.METHOD, name = "Next", qualified = "progress.lang.object")
-   public object<? extends com.goldencode.p2j.oo.lang._BaseObject_> next();
+   public object<? extends com.goldencode.p2j.oo.lang._BaseObject_> next_();
 
    @LegacySignature(type = Type.METHOD, name = "Remove")
    public logical remove();

=== modified file 'src/com/goldencode/p2j/oo/core/collections/Imap.java'
--- src/com/goldencode/p2j/oo/core/collections/Imap.java	2020-09-13 21:45:15 +0000
+++ src/com/goldencode/p2j/oo/core/collections/Imap.java	2021-01-13 15:36:44 +0000
@@ -2,13 +2,14 @@
 ** Module   : Imap.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 CA  20190526 First version, stubs taken by converting the skeleton using FWD.
 **     RFB 20191022 Added LegacyResource annotation
 ** 002 CA  20191024 Added method support levels and updated the class support level.
 ** 003 ME  20200729 Update parameter names to match skeleton.
+** 004 CA  20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -100,7 +101,7 @@
 
    @LegacySignature(type = Type.METHOD, name = "Clear")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL|RT_LVL_FULL)
-   public void clear();
+   public void clear_();
 
    @LegacySignature(type = Type.METHOD, name = "ContainsAllKeys", parameters = 
    {

=== modified file 'src/com/goldencode/p2j/oo/core/collections/KeySet.java'
--- src/com/goldencode/p2j/oo/core/collections/KeySet.java	2020-05-18 08:10:56 +0000
+++ src/com/goldencode/p2j/oo/core/collections/KeySet.java	2021-01-13 12:02:59 +0000
@@ -2,11 +2,11 @@
 ** Module   : KeySet.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 ME  20200514 First version, stubs taken by converting the skeleton using FWD.
-**     
+** 002 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
 */
 
 /*
@@ -153,7 +153,7 @@
 
                while (it.hasNext().booleanValue())
                {
-                  if (!other.contains(it.next()).booleanValue())
+                  if (!other.contains(it.next_()).booleanValue())
                      returnNormal(false);
                }
 
@@ -194,7 +194,7 @@
 
          while (iterator.hasNext().booleanValue())
          {
-            ok = remove(iterator.next()).booleanValue() || ok;
+            ok = remove(iterator.next_()).booleanValue() || ok;
          }
 
          returnNormal(ok);
@@ -216,7 +216,7 @@
 
          while (iterator.hasNext().booleanValue())
          {
-            object<? extends _BaseObject_> obj = iterator.next();
+            object<? extends _BaseObject_> obj = iterator.next_();
 
             if (!contains(obj).booleanValue())
             {

=== modified file 'src/com/goldencode/p2j/oo/core/collections/LegacyCollection.java'
--- src/com/goldencode/p2j/oo/core/collections/LegacyCollection.java	2021-01-28 12:10:06 +0000
+++ src/com/goldencode/p2j/oo/core/collections/LegacyCollection.java	2021-01-31 10:14:52 +0000
@@ -195,7 +195,7 @@
    @LegacySignature(type = Type.METHOD, name = "Clear")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL | RT_LVL_FULL)
    @Override
-   public void clear()
+   public void clear_()
    {
       internalProcedure(this, "Clear", new Block((Body) () ->
       {

=== modified file 'src/com/goldencode/p2j/oo/core/collections/LegacyIterator.java'
--- src/com/goldencode/p2j/oo/core/collections/LegacyIterator.java	2020-10-19 06:23:23 +0000
+++ src/com/goldencode/p2j/oo/core/collections/LegacyIterator.java	2021-01-31 10:14:52 +0000
@@ -2,14 +2,15 @@
 ** Module   : LegacyIterator.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 ME  20200514 First version, stubs taken by converting the skeleton using FWD.
 ** 002 ME  20201016 Change it to work with the collection image at the time of instantiation. 
 **                  No protection against collection modification initial image is needed, 
 **                  accommodate other 4GL oddities. 
 **     
+** 003 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
 */
 
 /*
@@ -345,7 +346,7 @@
 
    @LegacySignature(type = Type.METHOD, name = "Next", qualified = "progress.lang.object")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL | RT_LVL_FULL)
-   public object<? extends com.goldencode.p2j.oo.lang._BaseObject_> next()
+   public object<? extends com.goldencode.p2j.oo.lang._BaseObject_> next_()
    {
       return function(LegacyIterator.class, this, "Next", object.class, new Block((Body) () ->
       {

=== modified file 'src/com/goldencode/p2j/oo/core/collections/LegacyMap.java'
--- src/com/goldencode/p2j/oo/core/collections/LegacyMap.java	2020-10-19 06:09:49 +0000
+++ src/com/goldencode/p2j/oo/core/collections/LegacyMap.java	2021-01-31 10:14:52 +0000
@@ -2,11 +2,12 @@
 ** Module   : LegacyMap.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 ME  20200427 First version, stubs taken by converting the skeleton using FWD.
-**     
+** 002 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
+**                  Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -146,7 +147,7 @@
 
    @LegacySignature(type = Type.METHOD, name = "Clear")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL | RT_LVL_FULL)
-   public void clear()
+   public void clear_()
    {
       internalProcedure(LegacyMap.class, this, "Clear", new Block((Body) () ->
       {
@@ -234,7 +235,7 @@
 
                   while (iterator.ref().hasNext().booleanValue())
                   {
-                     if (!containsKey(iterator.ref().next()).booleanValue())
+                     if (!containsKey(iterator.ref().next_()).booleanValue())
                         returnNormal(new logical(false));
                   }
 
@@ -263,7 +264,7 @@
 
                   while (iterator.ref().hasNext().booleanValue())
                   {
-                     if (!containsValue(iterator.ref().next()).booleanValue())
+                     if (!containsValue(iterator.ref().next_()).booleanValue())
                         returnNormal(new logical(false));
                   }
 
@@ -357,7 +358,7 @@
 
          while (iterator.hasNext().booleanValue())
          {
-            object obj = iterator.next();
+            object obj = iterator.next_();
             put(obj, poMap.ref().get(obj));
          }
       }));
@@ -403,7 +404,7 @@
 
             while (iterator.hasNext().booleanValue())
             {
-               map.remove(iterator.next());
+               map.remove(iterator.next_());
             }
          }
       }));

=== modified file 'src/com/goldencode/p2j/oo/core/collections/LegacySet.java'
--- src/com/goldencode/p2j/oo/core/collections/LegacySet.java	2021-01-28 13:51:24 +0000
+++ src/com/goldencode/p2j/oo/core/collections/LegacySet.java	2021-01-31 10:14:52 +0000
@@ -2,12 +2,12 @@
 ** Module   : LegacySet.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 ME  20200514 First version, stubs taken by converting the skeleton using FWD.
-** 002 ME  20210128 Implement it by extending Collection instead of AbstractTTCollection.
-**     
+** 002 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
+** 003 ME  20210128 Implement it by extending Collection instead of AbstractTTCollection.
 */
 
 /*
@@ -162,7 +162,7 @@
             Iiterator it = p1.ref().iterator().ref();
             
             while(it.hasNext().booleanValue()) {
-               ok = add(it.next()).booleanValue() || ok;
+               ok = add(it.next_()).booleanValue() || ok;
             }
             
          }

=== modified file 'src/com/goldencode/p2j/oo/core/collections/MapBackedCollection.java'
--- src/com/goldencode/p2j/oo/core/collections/MapBackedCollection.java	2020-06-15 00:40:59 +0000
+++ src/com/goldencode/p2j/oo/core/collections/MapBackedCollection.java	2021-01-13 15:36:44 +0000
@@ -2,11 +2,12 @@
 ** Module   : MapBackedCollection.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 ME  20200514 First version, stubs taken by converting the skeleton using FWD.
-**     
+** 002 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
+**                  Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -237,11 +238,11 @@
 
    @LegacySignature(type = Type.METHOD, name = "Clear")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL | RT_LVL_FULL)
-   public void clear()
+   public void clear_()
    {
       internalProcedure(MapBackedCollection.class, this, "Clear", new Block((Body) () ->
       {
-         owningMap.ref().clear();
+         owningMap.ref().clear_();
       }));
    }
 
@@ -323,7 +324,7 @@
 
                         while (it.hasNext().booleanValue())
                         {
-                           oArr[i++].assign(it.next());
+                           oArr[i++].assign(it.next_());
                         }
                         returnExtentNormal(oArr);
                      }

=== modified file 'src/com/goldencode/p2j/oo/core/collections/ValueCollection.java'
--- src/com/goldencode/p2j/oo/core/collections/ValueCollection.java	2020-05-18 08:10:56 +0000
+++ src/com/goldencode/p2j/oo/core/collections/ValueCollection.java	2021-01-13 12:02:59 +0000
@@ -2,11 +2,11 @@
 ** Module   : ValueCollection.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 ME  20200514 First version, stubs taken by converting the skeleton using FWD.
-**     
+** 002 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
 */
 
 /*
@@ -161,7 +161,7 @@
 
             while (it.hasNext().booleanValue())
             {
-               object<? extends _BaseObject_> key = it.next();
+               object<? extends _BaseObject_> key = it.next_();
                object<? extends _BaseObject_> val = getOwningMap().ref().get(key);
 
                if (p1.ref().legacyEquals(val).booleanValue())
@@ -202,7 +202,7 @@
 
                      while (it.hasNext().booleanValue())
                      {
-                        object<? extends _BaseObject_> key = it.next();
+                        object<? extends _BaseObject_> key = it.next_();
                         object<? extends _BaseObject_> val = getOwningMap().ref().get(key);
 
                         if (p1.ref().contains(val).booleanValue())
@@ -244,7 +244,7 @@
 
                      while (it.hasNext().booleanValue())
                      {
-                        object<? extends _BaseObject_> key = it.next();
+                        object<? extends _BaseObject_> key = it.next_();
                         object<? extends _BaseObject_> val = getOwningMap().ref().get(key);
 
                         if (!p1.ref().contains(val).booleanValue())

=== modified file 'src/com/goldencode/p2j/oo/core/util/BuilderRegistry.java'
--- src/com/goldencode/p2j/oo/core/util/BuilderRegistry.java	2020-09-30 11:34:49 +0000
+++ src/com/goldencode/p2j/oo/core/util/BuilderRegistry.java	2021-01-13 15:36:44 +0000
@@ -2,13 +2,14 @@
 ** Module   : BuilderRegistry.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 CA  20190526 First version, stubs taken by converting the skeleton using FWD.
 ** 002 IAS 20190923 Implementation of the business logic
 ** 003 CA  20191024 Added method support levels and updated the class support level.
 ** 004 ME  20200930 Fix and add new methods as per OE12.2.
+**     CA  20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -203,7 +204,7 @@
     */
    @LegacySignature(type = Type.METHOD, name = "Clear")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL|RT_LVL_FULL)
-   public void clear()
+   public void clear_()
    {
       internalProcedure(this, "Clear", new Block((Body)() -> {
          registry.clear();

=== modified file 'src/com/goldencode/p2j/oo/json/objectmodel/JsonArray.java'
--- src/com/goldencode/p2j/oo/json/objectmodel/JsonArray.java	2021-01-30 11:30:03 +0000
+++ src/com/goldencode/p2j/oo/json/objectmodel/JsonArray.java	2021-01-31 10:14:52 +0000
@@ -12,6 +12,7 @@
 ** 005 CA  20190706 Added Write(OUTPUT target AS CHARACTER).
 ** 006 HC  20190701 Implemented most of the legacy methods.
 ** 007 CA  20191024 Added method support levels and updated the class support level.
+** 008 ME  20210130 Add missing methods (OE12.2), implement error handling 4GL compatible.
 */
 
 /*
@@ -72,7 +73,6 @@
 import com.goldencode.p2j.oo.json.*;
 import com.goldencode.p2j.oo.lang.*;
 import com.goldencode.p2j.persist.BufferReference;
-import com.goldencode.p2j.persist.PersistenceException;
 import com.goldencode.p2j.persist.TempTable;
 import com.goldencode.p2j.persist.TemporaryBuffer;
 import com.goldencode.p2j.persist.serial.JsonExport;
@@ -83,7 +83,6 @@
 import com.goldencode.p2j.util.BlockManager.Condition;
 
 import java.io.*;
-import java.time.format.*;
 import java.util.*;
 import java.util.function.*;
 import java.util.logging.*;
@@ -96,7 +95,7 @@
  * Implementation of the Progress.Json.Objectmodel.JsonArray builtin class.
  */
 @LegacyResource(resource = "Progress.Json.Objectmodel.JsonArray")
-@LegacyResourceSupport(supportLvl = CVT_LVL_FULL|RT_LVL_FULL)
+@LegacyResourceSupport(supportLvl = CVT_LVL_FULL_RESTR|RT_LVL_PARTIAL)
 public class JsonArray
 extends JsonConstruct
 {
@@ -3248,55 +3247,6 @@
    }
 
    /**
-    * Validates the supplied index.
-    *
-    * @param   idx
-    *          The index to validate.
-    *
-    * @return  {@code true} if the index is valid, {@code false} otherwise.
-    */
-   private boolean checkValidIndex(integer idx)
-   {
-      if (idx == null || idx.isUnknown())
-      {
-         return false;
-      }
-      else
-      {
-         int i = idx.intValue() - 1;
-         return i >= 0 && i < elements.size();
-      }
-   }
-
-   /**
-    * Validates the supplied index and count.
-    *
-    * @param   idx
-    *          The index to validate.
-    * @param   count
-    *          Count value to validate.
-    *
-    * @return  {@code true} if the index and count values are valid, {@code false} otherwise.
-    */
-   private boolean checkValidIndexCount(integer idx, integer count)
-   {
-      if (!checkValidIndex(idx))
-      {
-         return false;
-      }
-
-      if (count == null || count.isUnknown())
-      {
-         return false;
-      }
-      else
-      {
-         int cnt = count.intValue();
-         return cnt >= 1 && idx.intValue() - 1 + cnt <= elements.size();
-      }
-   }
-
-   /**
     * Implements the {@code get} legacy methods.
     *
     * @param   idx
@@ -3440,15 +3390,17 @@
          TempTable tmpTable = htt.unwrapTempTable();
          TemporaryBuffer tmpBuffer = (TemporaryBuffer) ((BufferReference) tmpTable.defaultBufferHandle().getResource()).buffer();
          
+         // remove current content
+         clear();
+         
          ObjectBuilder jb = new ObjectBuilder(this);
-         clear();
          JsonExport export = new JsonExport();
          try
          {
-            export.readTempBuffer(tmpBuffer, omit, jb);
+            export.serializeTempTable(jb, tmpBuffer, !omit.isUnknown() && omit.booleanValue());
             returnNormal(new logical(true));
          }
-         catch (PersistenceException e)
+         catch (Exception e)
          {
             log.log(Level.WARNING, "", e);
             returnError(ObjectOps.newInstance(JsonError.class));

=== modified file 'src/com/goldencode/p2j/oo/lang/ParameterList.java'
--- src/com/goldencode/p2j/oo/lang/ParameterList.java	2021-01-30 11:45:36 +0000
+++ src/com/goldencode/p2j/oo/lang/ParameterList.java	2021-01-31 10:14:52 +0000
@@ -2,14 +2,15 @@
 ** Module   : ParameterList.java
 ** Abstract : Implementation of the Progress.Lang.ParameterList builtin class.
 **
-** Copyright (c) 2018-2019, Golden Code Development Corporation.
+** Copyright (c) 2018-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 CA  20181213 First version.
 ** 002 CA  20190219 First pass at implementation (missing setParameter method).
 ** 003 CA  20190527 Added annotations for property accessors and class event methods.
 ** 005 CA  20190720 Emit the 'this' reference for the BlockManager APIs.
 ** 006 CA  20191024 Added method support levels and updated the class support level.
+** 003 CA  20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -140,7 +141,7 @@
    {
       internalProcedure(this, "__lang_ParameterList_destructor__", new Block((Body) () -> 
       {
-         clear();
+         clear_();
       }));
    }
    
@@ -169,7 +170,7 @@
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL|RT_LVL_FULL)
    public void setNumParameters(integer num)
    {
-      clear();
+      clear_();
       
       if (num.isUnknown() || num.intValue() < 0)
       {
@@ -188,7 +189,7 @@
     */
    @LegacySignature(type = Type.METHOD, name = "clear")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL|RT_LVL_FULL)
-   public logical clear()
+   public logical clear_()
    {
       this.parameters = new CallParameter[0];
       

=== modified file 'src/com/goldencode/p2j/oo/net/FileTypeRegistry.java'
--- src/com/goldencode/p2j/oo/net/FileTypeRegistry.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/oo/net/FileTypeRegistry.java	2021-01-13 15:36:44 +0000
@@ -2,11 +2,11 @@
 ** Module   : FileTypeRegistry.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2020, Golden Code Development Corporation.
+** Copyright (c) 2020-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 MP  20200602 First version, stubs taken by converting the skeleton using FWD.
-** 
+** 002 CA  20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -311,7 +311,7 @@
 
    @LegacySignature(type = Type.METHOD, name = "Clear")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL|RT_LVL_STUB)
-   public void clear()
+   public void clear_()
    {
       internalProcedure(FileTypeRegistry.class, this, "Clear", new Block((Body) () -> 
       {

=== modified file 'src/com/goldencode/p2j/oo/net/Uri.java'
--- src/com/goldencode/p2j/oo/net/Uri.java	2021-01-11 09:20:16 +0000
+++ src/com/goldencode/p2j/oo/net/Uri.java	2021-01-31 10:14:52 +0000
@@ -2,7 +2,7 @@
 ** Module   : Uri.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019-2020, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 CA  20190526 First version, stubs taken by converting the skeleton using FWD.
@@ -13,6 +13,7 @@
 **     ME  20200912 Accumulated changes.
 ** 006 ME  20200925 Rewrite the 4GL way (encode/decode/parse), add missing/new methods as per OE12.2.
 **     ME  20210111 Only add fragment part to encode if not null or empty.
+**     CA  20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -535,7 +536,7 @@
 
    private void _setQueryString(final character var)
    {
-      getQueryMap().ref().clear();
+      getQueryMap().ref().clear_();
       addQueryString(var, new logical(true));
    }
 

=== modified file 'src/com/goldencode/p2j/oo/net/http/HttpHeaderCollection.java'
--- src/com/goldencode/p2j/oo/net/http/HttpHeaderCollection.java	2020-09-29 13:35:25 +0000
+++ src/com/goldencode/p2j/oo/net/http/HttpHeaderCollection.java	2021-01-13 15:36:44 +0000
@@ -2,13 +2,14 @@
 ** Module   : HttpHeaderCollection.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 CA  20190526 First version, stubs taken by converting the skeleton using FWD.
 ** 002 CA  20191024 Added method support levels and updated the class support level.
 ** 003 MP  20200611 Added missing methods as stubs taken by converting the skeleton using FWD.
 ** 004 ME  20200928 Clean-up private methods.
+** 005 CA  20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -133,7 +134,7 @@
     */
    @LegacySignature(type = Type.METHOD, name = "Clear")
    @LegacyResourceSupport(supportLvl = CVT_LVL_FULL|RT_LVL_FULL)
-   public void clear()
+   public void clear_()
    {
       internalProcedure(this, "Clear", new Block((Body) () -> 
       {

=== modified file 'src/com/goldencode/p2j/oo/net/http/HttpMessage.java'
--- src/com/goldencode/p2j/oo/net/http/HttpMessage.java	2020-11-03 12:40:02 +0000
+++ src/com/goldencode/p2j/oo/net/http/HttpMessage.java	2021-01-31 10:14:52 +0000
@@ -2,13 +2,14 @@
 ** Module   : HttpMessage.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 CA  20190526 First version, stubs taken by converting the skeleton using FWD.
 ** 002 CA  20191024 Added method support levels and updated the class support level.
 ** 003 MP  20200603 Added missing methods as stubs taken by converting the skeleton using FWD.
 ** 004 ME  20201103 Set cookies array entries only when we have any.
+** 005 CA  20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -523,7 +524,7 @@
    {
       internalProcedure(this, "ClearCookies", new Block((Body) () -> 
       {
-         this.cookies.ref().clear();
+         this.cookies.ref().clear_();
       }));
    }
 
@@ -536,7 +537,7 @@
    {
       internalProcedure(this, "ClearHeaders", new Block((Body) () -> 
       {
-         this.headers.ref().clear();
+         this.headers.ref().clear_();
       }));
    }
 

=== modified file 'src/com/goldencode/p2j/oo/net/http/filter/payload/ClientSocketResponseWriter.java'
--- src/com/goldencode/p2j/oo/net/http/filter/payload/ClientSocketResponseWriter.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/oo/net/http/filter/payload/ClientSocketResponseWriter.java	2021-01-13 15:36:44 +0000
@@ -2,11 +2,12 @@
 ** Module   : ClientSocketResponseWriter.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2020, Golden Code Development Corporation.
+** Copyright (c) 2020-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 MP  20200603 First version, stubs taken by converting the skeleton using FWD.
 ** 002 MP  20200707 Add code in methods to run like legacy class
+** 003 CA  20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -202,7 +203,7 @@
    {
       internalProcedure(ClientSocketResponseWriter.class, this, "Close", new Block((Body) () -> 
       {
-         this.moChunk.ref().clear();
+         this.moChunk.ref().clear_();
          this.request.setUnknown();
       }));
    }
@@ -213,8 +214,8 @@
    {
       internalProcedure(ClientSocketResponseWriter.class, this, "Open", new Block((Body) () -> 
       {
-         this.moChunk.ref().clear();
-         this.messageBody.ref().clear();
+         this.moChunk.ref().clear_();
+         this.messageBody.ref().clear_();
          this.mlStatusLineRead = false;
          this.mcCurrentLine.assign("");
       }));

=== modified file 'src/com/goldencode/p2j/oo/net/http/filter/payload/FormDataBodyWriter.java'
--- src/com/goldencode/p2j/oo/net/http/filter/payload/FormDataBodyWriter.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/oo/net/http/filter/payload/FormDataBodyWriter.java	2021-01-13 12:02:59 +0000
@@ -2,11 +2,12 @@
 ** Module   : FormDataBodyWriter.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
-** 001 IAS  20190923 First version.
-** 001 MP   20200709 Complete methods like legacy class
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
+** 001 IAS 20190923 First version.
+** 002 MP  20200709 Complete methods like legacy class
+** 003 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
 */
 
 /*
@@ -195,7 +196,7 @@
             
             while (oIterator.ref().hasNext().booleanValue())
             {
-               object<? extends LegacyMapEntry> oMapEntry = ObjectOps.cast(oIterator.ref().next(), LegacyMapEntry.class);
+               object<? extends LegacyMapEntry> oMapEntry = ObjectOps.cast(oIterator.ref().next_(), LegacyMapEntry.class);
                
                object<? extends LegacyString> oKey = ObjectOps.cast(oMapEntry.ref().getKey(), LegacyString.class);
                object<? extends LegacyString> oVal = ObjectOps.cast(oMapEntry.ref().getValue(), LegacyString.class);

=== modified file 'src/com/goldencode/p2j/oo/net/http/filter/payload/JsonBodyWriter.java'
--- src/com/goldencode/p2j/oo/net/http/filter/payload/JsonBodyWriter.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/oo/net/http/filter/payload/JsonBodyWriter.java	2021-01-13 15:36:44 +0000
@@ -2,11 +2,13 @@
 ** Module   : JsonBodyWriter.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
-** 001 IAS  20190923 First version.
-** 002 MP   20200611 Added missing methods as stubs taken by converting the skeleton using FWD.
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
+** 001 IAS 20190923 First version.
+** 002 MP  20200611 Added missing methods as stubs taken by converting the skeleton using FWD.
+** 003 CA  20210113 Renamed Iiterator.next to Iiterator.next_, to follow NameConverter's rules.
+**                  Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -251,7 +253,7 @@
          
          if (!poData._isValid())
          {
-            bucket().clear();
+            bucket().clear_();
             bucket().putString(new longchar("Null"));
             returnNormal(new int64(new longchar("Null").getSize()));
          }
@@ -327,7 +329,7 @@
             
             while (oIterator.ref().hasNext().booleanValue())
             {
-               object<? extends LegacyMapEntry> oMapEntry = ObjectOps.cast(oIterator.ref().next(), LegacyMapEntry.class);
+               object<? extends LegacyMapEntry> oMapEntry = ObjectOps.cast(oIterator.ref().next_(), LegacyMapEntry.class);
                
                object<? extends LegacyString> oKey = ObjectOps.cast(oMapEntry.ref().getKey(), LegacyString.class);
                object<? extends _BaseObject_> oVal = oMapEntry.ref().getValue();

=== modified file 'src/com/goldencode/p2j/oo/net/http/filter/payload/MultipartBodyWriter.java'
--- src/com/goldencode/p2j/oo/net/http/filter/payload/MultipartBodyWriter.java	2021-01-28 08:38:48 +0000
+++ src/com/goldencode/p2j/oo/net/http/filter/payload/MultipartBodyWriter.java	2021-01-31 10:14:52 +0000
@@ -2,13 +2,14 @@
 ** Module   : MultipartBodyWriter.java
 ** Abstract : Implementation of the builtin class.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -------------------------------Description--------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 CA  20190526 First version, stubs taken by converting the skeleton using FWD.
 ** 002 IAS 20190527 Added multipart support.
 ** 003 CA  20191024 Added method support levels and updated the class support level.
 ** 004 MP  20210112 Implement as OE12.2
+** 005 CA  20210113 Renamed clear() to clear_(), to follow NameConverter's rules.
 */
 
 /*
@@ -250,7 +251,7 @@
          
          for (int ip = 0; ip < pData.ref().getSize().intValue(); ip++)
          {
-            part.ref().clear();
+            part.ref().clear_();
             bucket().putString(new longchar(TextOps.concat("--", this.boundary.getValue(), CRLF)));               
             mpart.assign(pData.ref().getPart(new integer(ip+1)));
             writer.assign(BodyWriterBuilder.build(mpart).ref().writeTo(part).ref().getWriter());

=== modified file 'src/com/goldencode/p2j/oo/net/http/filter/payload/XmlBodyWriter.java'
--- src/com/goldencode/p2j/oo/net/http/filter/payload/XmlBodyWriter.java	2021-01-28 08:38:48 +0000
+++ src/com/goldencode/p2j/oo/net/http/filter/payload/XmlBodyWriter.java	2021-01-31 10:14:52 +0000
@@ -9,6 +9,7 @@
 ** 002 CA  20191024 Added method support levels and updated the class support level.
 ** 003 MP  20200612 Added missing methods as stubs taken by converting the skeleton using FWD.
 ** 003 MP  20210112 make write methods work as OE 12.2. Still need attention
+** 004 ME  20210131 Fix ctor call for TargetData.
 */
 
 /*
@@ -79,6 +80,7 @@
 import com.goldencode.p2j.oo.io.FileInputStream;
 import com.goldencode.p2j.oo.lang.*;
 import com.goldencode.p2j.persist.TargetData;
+import com.goldencode.p2j.persist.serial.Serializator;
 import com.goldencode.p2j.util.*;
 import com.goldencode.p2j.util.BlockManager.Action;
 import com.goldencode.p2j.util.BlockManager.Condition;
@@ -204,12 +206,12 @@
             }
             else if (pData.isType("TEMP-TABLE"))
             {
-               pData.unwrapTempTable().writeXml(new TargetData(mResult));
+               pData.unwrapTempTable().writeXml(new TargetData(Serializator.TYPE_MEMPTR, mResult));
                encoding.assign("utf-8");
             }
             else if (pData.isType("BUFFER"))
             {
-               pData.unwrapBuffer().writeXml(new TargetData(mResult));
+               pData.unwrapBuffer().writeXml(new TargetData(Serializator.TYPE_MEMPTR, mResult));
                encoding.assign("utf-8");
             }   
             else if (pData.isType("DATASET"))

=== modified file 'src/com/goldencode/p2j/oo/net/http/lib/sockets/LegacySocketLibrary.java'
--- src/com/goldencode/p2j/oo/net/http/lib/sockets/LegacySocketLibrary.java	2021-01-28 13:01:30 +0000
+++ src/com/goldencode/p2j/oo/net/http/lib/sockets/LegacySocketLibrary.java	2021-01-31 10:14:52 +0000
@@ -12,6 +12,7 @@
 ** 005 MP  20200602 Add STUB constructors, properties and methods requested by calls made
 **                  by LegacySocketLibraryBuilder class.
 ** 006 ME  20210128 Add query parameters and fragment when executing request.
+**         20210130 Fix call to 'next' iterator method.
 */
 
 /*
@@ -615,7 +616,7 @@
             object<? extends Iiterator> iterator = qryMap.ref().getKeySet().ref().iterator();
             while (iterator.ref().hasNext().booleanValue())
             {
-                object<? extends _BaseObject_> key = iterator.ref().next();
+                object<? extends _BaseObject_> key = iterator.ref().next_();
                 object<? extends _BaseObject_> value = qryMap.ref().get(key);
                 
                 builder.addParameter(key.ref().toLegacyString().getValue(), 

=== modified file 'src/com/goldencode/p2j/pattern/AstSymbolResolver.java'
--- src/com/goldencode/p2j/pattern/AstSymbolResolver.java	2020-04-13 11:17:30 +0000
+++ src/com/goldencode/p2j/pattern/AstSymbolResolver.java	2020-10-15 07:54:57 +0000
@@ -119,6 +119,7 @@
 ** 033 CA  20180507          Added deregisterTree.
 ** 034 GES 20181023          Added addAllToView().
 ** 035 CA  20200412          Added incremental conversion support.
+** 036 CA  20201015          Replaced java.util.Stack with ArrayDeque (as synchronization is not required).
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -931,7 +932,7 @@
    public boolean addPathToViewFrom(long type)
    {
       Aast next = copyAst;
-      Stack<Aast> stack = new Stack<>();
+      Deque<Aast> stack = new ArrayDeque<>();
       while (next != null)
       {
          stack.push(next);

=== modified file 'src/com/goldencode/p2j/persist/AbstractJoin.java'
--- src/com/goldencode/p2j/persist/AbstractJoin.java	2020-09-23 23:47:02 +0000
+++ src/com/goldencode/p2j/persist/AbstractJoin.java	2021-01-15 20:09:48 +0000
@@ -25,6 +25,8 @@
 ** 012 ECF 20171220          Change to error handling.
 ** 013 ECF 20200906          New ORM implementation.
 ** 014 OM  20200924          P2JIndexComponent carries multiple information to avoid map lookups for them.
+**     OM  20201007          Optimizations by using DmoMeta data instead of map lookups.
+**     VVT 20210106          Fixed: NPE in isIndexedIgnoreCase(). See #5062.
 */
 
 /*
@@ -210,10 +212,10 @@
             {
                String referringProp = legacyToPropReferring.get(fieldName);
                String referentProp  = legacyToPropReferent.get(fieldName);
+               final Boolean ignoreCase = referent.dmoInfo.isIndexedIgnoreCase(referentProp);               
                info.addPropertyData(referringProp,
                                     referentProp,
-                                    DmoMetadataManager.isCaseSensitive(referent.getDMOInterface(),
-                                                                       referentProp));
+                                    ignoreCase != null? ignoreCase.booleanValue() : false);
             }
             
             dereference = !localHasLeadingIndex;

=== modified file 'src/com/goldencode/p2j/persist/AbstractTempTable.java'
--- src/com/goldencode/p2j/persist/AbstractTempTable.java	2020-10-02 22:45:29 +0000
+++ src/com/goldencode/p2j/persist/AbstractTempTable.java	2021-01-27 01:54:24 +0000
@@ -2,7 +2,7 @@
 ** Module   : AbstractTempTable.java
 ** Abstract : Abstract base class for static and dynamic temp-table 4GL objects.
 **
-** Copyright (c) 2013-2020, Golden Code Development Corporation.
+** Copyright (c) 2013-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 SVL 20131115 Created initial version.
@@ -30,6 +30,9 @@
 **     AIL 20200914 Fixed checking prepared state when dereferencing.
 **     AIL 20200915 Moved prepared method from subclasses here.
 **     OM  20201002 Use DmoMeta cached information instead of map lookups.
+**     OM  20201120 Added SCHEMA-MARSHAL implementation. Improved XML serialization support.
+**     OM  20201208 Added REJECTED attribute.
+**     OM  20210115 For dynamic temp-tables the before-table is automaticaly created when needed.
 */
 
 /*
@@ -96,27 +99,78 @@
  */
 public abstract class AbstractTempTable
 extends HandleChain
-implements TempTable,
-           Deletable
+implements TempTable
 {
+   /**
+    * The default {@code SCHEMA-MARSHAL} level. Encodes the {@code unknown} value of the attribute. It is
+    * semantically equivalent to {@code SM_FULL}.
+    */
+   public static final int SM_DEFAULT = 0; // = unknown
+   
+   /** Encodes the {@code NONE} {@code SCHEMA-MARSHAL} level. No attributes are marshaled. */
+   public static final int SM_NONE = 1;
+   
+   /** Encodes the {@code MIN} {@code SCHEMA-MARSHAL} level. The marshaled schema is minimized. At this level
+    * the following data will still BE marshaled:
+    * <ul>
+    *    <li>field names, data types, and extents;</li>
+    *    <li>temp-table ERROR-STRING</li>
+    * </ul>
+    * while following data will NOT be marshal:
+    * <ul>
+    *    <li>index descriptions;</li>
+    *    <li>field information (label, help, field validation expression, and so on)</li>
+    * </ul>
+    */
+   public static final int SM_MIN = 2;
+   
+   /** Encodes the {@code MIN} {@code SCHEMA-MARSHAL} level. The full schema is marshalled. */
+   public static final int SM_FULL = 3;
+   
    /** Default prefix for the name of a temp-table copied with COPY-TEMP-TABLE. */
    protected static final String DEFAULT_COPY_TEMP_TABLE_PREFIX = "cpy";
-
+   
    /** Default buffer handle. */
    protected handle defaultBufferHandle = null;
-
-   /** Corresponds ERROR-STRING attribute. **/
+   
+   /** Corresponds ERROR-STRING attribute. */
    protected final character errorString = new character();
-
+   
    /** Corresponds ERROR attribute. **/
    protected final logical error = new logical(false);
-
-   /** Corresponds ADM-DATA attribute. **/
+   
+   /** Corresponds ADM-DATA attribute. */
    protected final character admData = new character();
    
    /** {@code true} if changes made to the records the temporary table can be undone. */
    protected boolean undoable = false;
    
+   /** The name of the XML node for serialized data of this {@code TEMP-TABLE}. */
+   private String xmlNodeName = null;
+   
+   /** The NAMESPACE-URI of the XML node for serialized data of this {@code TEMP-TABLE}. */
+   private String namespaceURI = null;
+   
+   /** The NAMESPACE-PREFIX of the XML node for serialized data of this {@code TEMP-TABLE}. */
+   private String namespacePrefix = null;
+   
+   /** The current value of the {@code SERIALIZE-NAME} attribute. */
+   private String serializeName = null;
+   
+   /**
+    * The current value of the {@code SCHEMA-MARSHAL} attribute.
+    * <p>
+    * The following encoding is used internally: 0 = unknown, 1: NONE, 2: MIN, 3: FULL (see above, the SM_*
+    * static constants).
+    */
+   private int schemaMarshal = SM_DEFAULT;
+   
+   /**
+    * The current value of boolean {@code REJECTED} attribute: indicates whether a change to the
+    * data of this {@code DataSet} is rejected. The attribute is writable.
+    */
+   private boolean rejected = false;
+   
    /**
     * Enumeration which represents some temp-table functions. Required because error handing may
     * vary depending on the calling function.
@@ -128,7 +182,7 @@
       CREATE_LIKE
    }
    
-   /** Corresponds UNIQUE-ID attribute. **/
+   /** Corresponds UNIQUE-ID attribute. */
    private final integer uniqueId = new integer();
    
    /** The current value of {@code TRACKING-CHANGES} attribute. */
@@ -149,6 +203,9 @@
     */
    protected TempTable peerTable = null;
    
+   /** Current value of the {@code DATA-SOURCE-MODIFIED} attribute. */
+   private boolean dataSourceModified = false;
+   
    /**
     * Default constructor.
     * 
@@ -376,16 +433,14 @@
          {
             return new logical(false);
          }
-         StringBuilder tableName = new StringBuilder(prefix.isUnknown() ?
-                                                     DEFAULT_COPY_TEMP_TABLE_PREFIX :
-                                                     prefix.getValue());
-         tableName.append(otherBuf.getParentTable().name().getValue());
-         tempTablePrepare(tableName.toString());
+         String tableName = (prefix.isUnknown() ? DEFAULT_COPY_TEMP_TABLE_PREFIX : prefix.getValue()) + 
+                            otherBuf.getParentTable().name().getValue();
+         tempTablePrepare(tableName);
       }
-
+      
       Temporary srcDMO = (Temporary) otherBuf.getDMOProxy();
       Temporary dstDMO = (Temporary) defaultBufferHandle().getResource();
-
+      
       boolean res = TemporaryBuffer.copyAllRows(null,
                                                 srcDMO,
                                                 dstDMO,
@@ -550,7 +605,7 @@
     * @return    Current state of the ERROR attribute.
     */
    @Override
-   public logical isError()
+   public logical error()
    {
       if (!prepared().booleanValue())
       {
@@ -567,9 +622,9 @@
     *           The new value of ERROR attribute.
     */
    @Override
-   public void setError(boolean value)
+   public void error(boolean value)
    {
-      setError(new logical(value));
+      error(new logical(value));
    }
 
    /**
@@ -579,25 +634,21 @@
     *           The new value of ERROR attribute.
     */
    @Override
-   public void setError(logical value)
+   public void error(logical value)
    {
       if (value.isUnknown())
       {
-         ErrorManager.displayError(4083,
-               "**Unable to assign UNKNOWN value to attribute ERROR on TEMP-TABLE widget",
-               false);
+         unableToAssignUnknown("ERROR", "TEMP-TABLE widget");
          return;
       }
-
+      
       if (!prepared().booleanValue())
       {
          displayNotPrepared();
-         ErrorManager.recordOrThrowError(3131,
-               "Unable to set attribute ERROR in widget of type TEMP-TABLE",
-               false);
+         unableToAssignUnknown("ERROR", "TEMP-TABLE widget");
          return;
       }
-
+      
       error.assign(value);
    }
    
@@ -680,12 +731,13 @@
    {
       if (trackingChanges)
       {
-         ErrorManager.recordOrShowError(12758, name().toStringMessage());
+         ErrorManager.recordOrShowError(12758, name().toStringMessage(), "");
          // You may not EMPTY temp-table <name> when TRACKING-CHANGES is true.
          return new logical(false);
       }
       
-      if (computeTableType() == BeforeType.BEFORE)
+      BufferImpl defBuff = (BufferImpl) defaultBufferHandle.unwrapBuffer();
+      if (computeTableType() == BeforeType.BEFORE && defBuff.hasBeforeBufferConstraints())
       {
          ErrorManager.recordOrShowError(11946);
          // You cannot EMPTY a BEFORE-TABLE, Use ACCEPT-CHANGES or EMPTY the AFTER-TABLE.
@@ -705,6 +757,180 @@
    }
    
    /**
+    * Obtain the current {@code SCHEMA-MARSHAL} level. Refer to {@code SM_DEFAULT}, {@code SM_NONE},
+    * {@code SM_MIN}, and {@code SM_FULL} static constants for details. 
+    * 
+    * @return  the current {@code SCHEMA-MARSHAL} level.
+    */
+   public int getSchemaMarshalLevel()
+   {
+      return schemaMarshal;
+   }
+   
+   /**
+    * Implements the {@code NO-SCHEMA-MARSHAL} attribute getter.
+    * 
+    * @return  {@code true} when {@code SCHEMA-MARSHAL} attribute is set to {@code "NONE"}.
+    */
+   @Override
+   public logical isNoSchemaMarshal()
+   {
+      return new logical(schemaMarshal == SM_NONE);
+   }
+   
+   /**
+    * Sets the {@code SCHEMA-MARSHAL} attribute to {@code "NO"} value when {@code on = true} or
+    * back to default value {@code on = false}.
+    *
+    * @param   on
+    *          The new value of {@code SCHEMA-MARSHAL} attribute.
+    */
+   @Override
+   public void setNoSchemaMarshal(boolean on)
+   {
+      schemaMarshal = on ? SM_NONE : SM_DEFAULT;
+   }
+   
+   /**
+    * Sets the {@code SCHEMA-MARSHAL} attribute to {@code "NO"} value when {@code on = true} or
+    * back to default value {@code on = false}.
+    *
+    * @param   on
+    *          The new value of {@code SCHEMA-MARSHAL} attribute.
+    */
+   @Override
+   public void setNoSchemaMarshal(logical on)
+   {
+      if (on == null || on.isUnknown())
+      {
+         unableToAssignUnknown("NO-SCHEMA-MARSHALL", "TEMP-TABLE widget");
+         return;
+      }
+      
+      setNoSchemaMarshal(on.toJavaType());
+   }
+   
+   /**
+    * Implements the {@code MIN-SCHEMA-MARSHAL} attribute getter.
+    *
+    * @return  {@code true} when {@code SCHEMA-MARSHAL} attribute is set to {@code "MIN"}.
+    */
+   @Override
+   public logical isMinSchemaMarshal()
+   {
+      return new logical(schemaMarshal == SM_MIN);
+   }
+   
+   /**
+    * Sets the {@code SCHEMA-MARSHAL} attribute to {@code "MIN"} value when {@code on = true} or
+    * back to default value {@code on = false}.
+    *
+    * @param   on
+    *          The new value of {@code SCHEMA-MARSHAL} attribute.
+    */
+   @Override
+   public void setMinSchemaMarshal(boolean on)
+   {
+      schemaMarshal = on ? SM_NONE : SM_DEFAULT;
+   }
+   
+   /**
+    * Sets the {@code SCHEMA-MARSHAL} attribute to {@code "MIN"} value when {@code on = true} or
+    * back to default value {@code on = false}.
+    *
+    * @param   on
+    *          The new value of {@code SCHEMA-MARSHAL} attribute.
+    */
+   @Override
+   public void setMinSchemaMarshal(logical on)
+   {
+      if (on == null || on.isUnknown())
+      {
+         unableToAssignUnknown("MIN-SCHEMA-MARSHAL", "TEMP-TABLE widget");
+         return;
+      }
+      
+      setMinSchemaMarshal(on.toJavaType());
+   }
+   
+   /**
+    * Obtain the current value of {@code SCHEMA-MARSHAL} attribute.
+    *
+    * @return  the current value of {@code SCHEMA-MARSHAL} attribute.
+    */
+   @Override
+   public character getSchemaMarshal()
+   {
+      switch (schemaMarshal)
+      {
+         case SM_DEFAULT:
+            return new character();
+         case SM_NONE:
+            return new character(TempTable.SCHEMA_MARSHAL_NONE);
+         case SM_MIN:
+            return new character(TempTable.SCHEMA_MARSHAL_MIN);
+         case SM_FULL:
+            return new character(TempTable.SCHEMA_MARSHAL_FULL);
+      }
+      throw new IllegalStateException("Illegal state for TEMP-TABLE:SCHEMA-MARSHAL attribute.");
+   }
+   
+   /**
+    * Sets a new value for {@code SCHEMA-MARSHAL} attribute.
+    *
+    * @param   level
+    *          the new value or {@code SCHEMA-MARSHAL} attribute.
+    */
+   @Override
+   public void setSchemaMarshal(String level)
+   {
+      if (level == null)
+      {
+         schemaMarshal = SM_DEFAULT;
+         return;
+      }
+      
+      switch (level.toUpperCase())
+      {
+         case SCHEMA_MARSHAL_FULL:
+            schemaMarshal = SM_FULL;
+            // full table schema is serialized with table parameter
+            break;
+            
+         case SCHEMA_MARSHAL_MIN:
+            schemaMarshal = SM_MIN;
+            // marshals:
+            //    field names, data types, and extents;
+            //    temp-table ERROR-STRING
+            // does NOT marshal:
+            //    index descriptions
+            //    field information (label, help, field validation expression, and so on (?))
+            break;
+            
+         case SCHEMA_MARSHAL_NONE:
+            schemaMarshal = SM_NONE;
+            // just table data (?)
+            break;
+            
+         default:
+            ErrorManager.recordOrThrowError(12790, level, "");
+            // Invalid value given for SCHEMA-MARSHAL <value>.
+      }
+   }
+   
+   /**
+    * Sets a new value for {@code SCHEMA-MARSHAL} attribute.
+    *
+    * @param   level
+    *          the new value or {@code SCHEMA-MARSHAL} attribute.
+    */
+   @Override
+   public void setSchemaMarshal(Text level)
+   {
+      setSchemaMarshal(level == null ? null : level.toJavaType());
+   }
+   
+   /**
     * Checks whether changes in this temp-table is enabled for a {@code DataSet}.
     *
     * @return  The current value for {@code TRACKING-CHANGES} as described above.
@@ -716,6 +942,47 @@
    }
    
    /**
+    * Returns the state of the REJECTED attribute
+    *
+    * @return Current state of the REJECTED attribute.
+    */
+   @Override
+   public logical rejected()
+   {
+      return new logical(rejected);
+   }
+   
+   /**
+    * Setter for REJECTED attribute.
+    *
+    * @param value The new value of REJECTED attribute.
+    */
+   @Override
+   public void rejected(boolean value)
+   {
+      error(true); // TODO probably
+      
+      rejected = value;
+   }
+   
+   /**
+    * Setter for REJECTED attribute.
+    *
+    * @param value The new value of REJECTED attribute.
+    */
+   @Override
+   public void rejected(logical value)
+   {
+      if (value == null || value.isUnknown())
+      {
+         unableToAssignUnknown("REJECTED", "TEMP-TABLE widget");
+         return;
+      }
+      
+      rejected(value.getValue());
+   }
+   
+   /**
     * Enable or disable changes tracking this temp-table is enabled for a {@code DataSet}.
     *
     * @param   val
@@ -741,19 +1008,6 @@
    @Override
    public void setTrackingChanges(boolean on)
    {
-      if (on && !_dynamic())
-      {
-         handle bt = getBeforeTable();
-         if (bt.isUnknown())
-         {
-            ErrorManager.recordOrShowError(12344);
-            // Cannot turn on TRACKING-CHANGES for a static temp-table unless DEFINED with a BEFORE-TABLE phrase.
-            ErrorManager.recordOrThrowError(3131, "TRACKING-CHANGES", "", "TEMP-TABLE");
-            // Unable to set attribute <attribute name> in widget <widget name> of type <widget-type>.
-            return;
-         }
-      }
-      
       handle dataSet = defaultBufferHandle.unwrapBuffer().dataSet();
       if (dataSet.isUnknown() || !dataSet._isValid())
       {
@@ -761,7 +1015,28 @@
          // TRACKING-CHANGES may not be turned on for a non-dataset temp-table.
          ErrorManager.recordOrThrowError(3131, "TRACKING-CHANGES", "", "TEMP-TABLE");
          // Unable to set attribute <attribute name> in widget <widget name> of type <widget-type>.
-         return;   
+         return;
+      }
+      
+      if (on)
+      {
+         handle bt = getBeforeTable();
+         if (bt.isUnknown())
+         {
+            if (_dynamic())
+            {
+               // automatically create implicit before table for this dynamic temp-table
+               ((TempTableBuilder) this).createBeforeTable("BI" + name().toJavaType());
+            }
+            else
+            {
+               ErrorManager.recordOrShowError(12344);
+               // Cannot turn on TRACKING-CHANGES for a static temp-table unless DEFINED with a BEFORE-TABLE phrase.
+               ErrorManager.recordOrThrowError(3131, "TRACKING-CHANGES", "", "TEMP-TABLE");
+               // Unable to set attribute <attribute name> in widget <widget name> of type <widget-type>.
+               return;
+            }
+         }
       }
       
       trackingChanges = on;
@@ -843,7 +1118,8 @@
                           character schemaLocation,
                           logical overrideDefaultMapping)
    {
-      return readXml(source, readMode, schemaLocation, overrideDefaultMapping, new character());
+      return readXml(source, readMode, schemaLocation, overrideDefaultMapping,
+                     new character(), new character());
    }
    
    /**
@@ -875,8 +1151,8 @@
                           logical overrideDefaultMapping,
                           character fieldTypeMapping)
    {
-      return readXml(source, readMode, schemaLocation, overrideDefaultMapping, 
-                     new character(), new character());
+      return readXml(source, readMode, schemaLocation, overrideDefaultMapping,
+                     fieldTypeMapping, new character());
    }
    
    /**
@@ -912,13 +1188,44 @@
                           character fieldTypeMapping,
                           character verifySchemaMode)
    {
+      if (!_prepared() && !_clear())
+      {
+         ErrorManager.recordOrShowError(13159);
+         // Dynamic temp-table must be in CLEAR or PREPARED state for READ-XML Methods.
+         return new logical(false);
+      }
+      
+      Map<String, String> mapping = null;
+      if (fieldTypeMapping != null)
+      {
+         String javaStrMapping = fieldTypeMapping.toJavaType();
+         if (javaStrMapping != null)
+         {
+            mapping = new HashMap<>();
+            String[] splits = javaStrMapping.split(",");
+            int len = splits.length;
+            if (len == 0 || len % 2 == 1)
+            {
+               ErrorManager.recordOrShowError(13200);
+               // Odd number of values in field-type-mapping argument.
+               return new logical(false);
+            }
+            // no other validation at this time
+            
+            for (int k = 0; k < len; k += 2)
+            {
+               mapping.putIfAbsent(splits[k], splits[k + 1]); // do not overwrite if field is duplicated
+            }
+         }
+      }
+      
       // normalize parameters
       XmlImport xmlImport = new XmlImport(
             source,
             readMode.toJavaType(),
             schemaLocation.toJavaType(),
             !overrideDefaultMapping.isUnknown() && overrideDefaultMapping.booleanValue(),
-            fieldTypeMapping.toJavaType(),
+            mapping,
             verifySchemaMode.toJavaType());
       
       // perform import
@@ -1203,6 +1510,13 @@
                            logical beforeImage,
                            logical noInitialVals)
    {
+      if (!_prepared())
+      {
+         ErrorManager.recordOrShowError(13160);
+         // Dynamic temp-table must be in PREPARED state for WRITE-XML Methods.
+         return new logical(false);
+      }
+      
       return defaultBufferHandle().unwrapBuffer().writeXml(target,
                                                            formatted,
                                                            encoding,
@@ -1307,6 +1621,13 @@
                                  logical minXmlSchema,
                                  logical omitInitVal)
    {
+      if (!_prepared())
+      {
+         ErrorManager.recordOrShowError(13160);
+         // Dynamic temp-table must be in PREPARED state for WRITE-XML Methods.
+         return new logical(false);
+      }
+      
       return defaultBufferHandle().unwrapBuffer().writeXmlSchema(
             target, formatted, encoding, minXmlSchema, omitInitVal);
    }
@@ -1365,7 +1686,7 @@
     *          If {@code true} the default mapping between XML Schema string and binary data types
     *          and ABL data types when creating an ABL temp-table schema from an XML Schema will
     *          be overwritten.
-    * @param   mapping
+    * @param   strMapping
     *          A comma-delimited list of field name, data type pairs. This allows to specify the
     *          data type for a specific field.
     * @param   verifyMode
@@ -1377,11 +1698,38 @@
    @Override
    public logical readXmlSchema(SourceData source,
                                 logical override,
-                                Text mapping,
+                                Text strMapping,
                                 Text verifyMode)
    {
-      UnimplementedFeature.missing("READ-XMLSCHEMA method not implemented");
-      return new logical();
+      Map<String, String> mapping = null;
+      if (strMapping != null) 
+      {
+         String javaStrMapping = strMapping.toJavaType();
+         if (javaStrMapping != null)
+         {
+            mapping = new HashMap<>();
+            String[] splits = javaStrMapping.split(",");
+            int len = splits.length;
+            if (len == 0 || len % 2 == 1)
+            {
+               ErrorManager.recordOrShowError(13200);
+               // Odd number of values in field-type-mapping argument.
+               return new logical(false);
+            }
+            // no other validation at this time
+            
+            for (int k = 0; k < len; k += 2)
+            {
+               mapping.putIfAbsent(splits[k], splits[k + 1]); // do not overwrite if field is duplicated
+            }
+         }
+      }
+      
+      XmlImport xmlImport = new XmlImport(source, null, null,
+                                          !override.isUnknown() && override.booleanValue(),
+                                          mapping,
+                                          verifyMode == null ? null : verifyMode.toJavaType());
+      return new logical(xmlImport.importTempTableSchema(this));
    }
    
    /**
@@ -1645,11 +1993,311 @@
                             logical omitOuterObject,
                             logical writeBeforeImage)
    {
+      if (defaultBufferHandle() == null)
+      {
+         // throw something?
+         return new logical(false);
+      }
+      
       return defaultBufferHandle().unwrapBuffer().writeJson(
             target, formatted, encoding, omitInitialValues, omitOuterObject, writeBeforeImage);
    }
    
    /**
+    * Obtain the name of the XML element or attribute representing the target object (a {@code TEMP-TABLE})
+    * name in an XML document. If not set the {@code name} is returned.
+    *
+    * @return  the name of the XML element for this object.
+    */
+   @Override
+   public character getXmlNodeName()
+   {
+      return xmlNodeName == null ? name() : new character(xmlNodeName);
+   }
+   
+   /**
+    * Sets the name of the XML element or attribute representing the target object (either a {@code DataSet},
+    * a {@code TempTable}, a {@code TemporaryBuffer}, or a temp-table {@code BufferField}) name in an XML
+    * document.
+    *
+    * @param   name
+    *          The new name of the XML element for this object.
+    */
+   @Override
+   public void setXmlNodeName(String name)
+   {
+      if (name != null)
+      {
+         xmlNodeName = name;
+      }
+      // no error is raised otherwise
+   }
+   
+   /**
+    * Sets the name of the XML element or attribute representing the target object (either a {@code DataSet},
+    * a {@code TempTable}, a {@code TemporaryBuffer}, or a temp-table {@code BufferField}) name in an XML
+    * document.
+    *
+    * @param   name
+    *          The new name of the XML element for this object.
+    */
+   @Override
+   public void setXmlNodeName(Text name)
+   {
+      setXmlNodeName(name.toJavaType());
+   }
+   
+   /**
+    * Obtain the XML Schema data type for the buffer-field object.
+    *
+    * @return the XML Schema data type for the buffer-field object.
+    */
+   @Override
+   public character getXmlDataType()
+   {
+      handle.invalidAttribute("XML-DATA-TYPE", false, LegacyResource.TEMP_TABLE);
+      return new character();
+   }
+   
+   /**
+    * Configures the XML Schema data type for the buffer-field object.
+    *
+    * @param newType the new XML Schema data type for the buffer-field object.
+    */
+   @Override
+   public void setXmlDataType(String newType)
+   {
+      handle.invalidAttribute("XML-DATA-TYPE", true, LegacyResource.TEMP_TABLE);
+   }
+   
+   /**
+    * Configures the XML Schema data type for the buffer-field object.
+    *
+    * @param newType the new XML Schema data type for the buffer-field object.
+    */
+   @Override
+   public void setXmlDataType(Text newType)
+   {
+      handle.invalidAttribute("XML-DATA-TYPE", true, LegacyResource.TEMP_TABLE);
+   }
+   
+   /**
+    * Obtain the XML node type of this object. This represents the getter for {@code XML-NODE-TYPE} ABL
+    * attribute.
+    *
+    * @return  the XML node type of this object.
+    */
+   @Override
+   public character getXmlNodeType()
+   {
+      handle.invalidAttribute("XML-NODE-TYPE", false, LegacyResource.TEMP_TABLE);
+      return new character();
+   }
+   
+   /**
+    * Allows to specify how a this object will be represented in XML and XML Schema. Valid XML node types are
+    * "ATTRIBUTE", "ELEMENT", "HIDDEN", and "TEXT". This represents the setter for {@code XML-NODE-TYPE} ABL
+    * attribute.
+    *
+    * @param   newType
+    *          The new type.
+    */
+   @Override
+   public void setXmlNodeType(String newType)
+   {
+      handle.invalidAttribute("XML-NODE-TYPE", true, LegacyResource.TEMP_TABLE);
+   }
+   
+   /**
+    * Allows to specify how a this object will be represented in XML and XML Schema. Valid XML node types are
+    * "ATTRIBUTE", "ELEMENT", "HIDDEN", and "TEXT". This represents the setter for {@code XML-NODE-TYPE} ABL
+    * attribute.
+    *
+    * @param   newType
+    *          The new type.
+    */
+   @Override
+   public void setXmlNodeType(Text newType)
+   {
+      handle.invalidAttribute("XML-NODE-TYPE", true, LegacyResource.TEMP_TABLE);
+   }
+   
+   /**
+    * Returns the value of the the NAMESPACE-URI attribute.
+    *
+    * @return  the value of the the NAMESPACE-URI attribute.
+    */
+   @Override
+   public character namespaceURI()
+   {
+      return new character(namespaceURI); 
+   }
+   
+   /**
+    * Setter for NAMESPACE-URI attribute.
+    *
+    * @param   uri
+    *          The new value of the NAMESPACE-URI attribute.
+    */
+   @Override
+   public void namespaceURI(String uri)
+   {
+      if (uri == null)
+      {
+         unableToAssignUnknown("NAMESPACE-URI", "TEMP-TABLE widget");
+         return;
+      }
+      namespaceURI = uri;
+   }
+   
+   /**
+    * Setter for NAMESPACE-URI attribute.
+    *
+    * @param   uri
+    *          The new value of the NAMESPACE-URI attribute.
+    */
+   @Override
+   public void namespaceURI(character uri)
+   {
+      namespaceURI(uri.toJavaType());
+   }
+   
+   /**
+    * Returns the value of the the NAMESPACE-PREFIX attribute. Only for ELEMENT or ATTRIBUTE, for other
+    * attributes return unknown value.
+    *
+    * @return  the current value of the the NAMESPACE-PREFIX attribute.
+    */
+   @LegacyAttribute(name = "NAMESPACE-PREFIX")
+   public character namespacePrefix()
+   {
+      return new character(namespacePrefix);
+   }
+   
+   /**
+    * Setter for NAMESPACE-PREFIX attribute.
+    *
+    * @param   prefix
+    *          The new value of the NAMESPACE-PREFIX attribute.
+    */
+   @Override
+   public void namespacePrefix(String prefix)
+   {
+      if (prefix == null)
+      {
+         unableToAssignUnknown("NAMESPACE-PREFIX", "TEMP-TABLE widget");
+         return;
+      }
+      namespacePrefix = prefix;
+   }
+   
+   /**
+    * Setter for NAMESPACE-PREFIX attribute.
+    *
+    * @param   prefix
+    *          The new value of the NAMESPACE-PREFIX attribute.
+    */
+   @Override
+   public void namespacePrefix(character prefix)
+   {
+      namespacePrefix(prefix.toJavaType());
+   }
+   
+   /**
+    * Checks whether the data in the data source has been modified.
+    *
+    * @return  {@code true} when the data has been modified.
+    */
+   @Override
+   public logical isDataSourceModified()
+   {
+      return new logical(dataSourceModified);
+   }
+   
+   /**
+    * Manually mark the data in the target structure as modified.
+    *
+    * @param   mod
+    *          {@code true} when the data is marked as modified and {@code false} otherwise.
+    */
+   @Override
+   public void setDataSourceModified(logical mod)
+   {
+      if (mod == null || mod.isUnknown())
+      {
+         unableToAssignUnknown("DATA-SOURCE-MODIFIED", "DATASET widget");
+         return;
+      }
+      
+      setDataSourceModified(mod.getValue());
+   }
+   
+   /**
+    * Manually mark the data in the target structure as modified.
+    *
+    * @param   mod
+    *          {@code true} when the data is marked as modified and {@code false} otherwise.
+    */
+   @Override
+   public void setDataSourceModified(boolean mod)
+   {
+      this.dataSourceModified = mod;
+   }
+   
+   
+   /**
+    * Implementation of the read access of the {@code SERIALIZE-NAME} attribute.
+    *
+    * @return  the current value of the {@code SERIALIZE-NAME} attribute. 
+    */
+   @Override
+   public character getSerializeName()
+   {
+      return new character(
+            serializeName == null || serializeName.trim().isEmpty() ? name.getValue() : serializeName);
+   }
+   
+   /**
+    * Implementation of the write access of the {@code SERIALIZE-NAME} attribute.
+    *
+    * @param   sName
+    *          the new value for the {@code SERIALIZE-NAME} attribute. 
+    */
+   @Override
+   public void setSerializeName(Text sName)
+   {
+      setSerializeName(sName == null || sName.isUnknown() ? null : sName.getValue());
+   }
+   
+   /**
+    * Implementation of the write access of the {@code SERIALIZE-NAME} attribute.
+    *
+    * @param   sName
+    *          the new value for the {@code SERIALIZE-NAME} attribute. 
+    */
+   @Override
+   public void setSerializeName(String sName)
+   {
+      serializeName = sName;
+   }
+   
+   /**
+    * Constructs and returns a string containing the P4GL schema definition of the table. The result is not
+    * cached so this method is to be used only for debug.
+    *
+    * @return  a string containing the P4GL legacy schema definition of the table.
+    */
+   public String tableDefinition()
+   {
+      WrappedResource r = this.defaultBufferHandle.getResource();
+      if (r != null && r.valid())
+      {
+         return ((BufferImpl) r).tableDefinition();
+      }
+      return "(unknown)";
+   }
+   
+   /**
     * Get default buffer for the static temp-table.
     *
     * @return default buffer for the static temp-table.
@@ -1962,13 +2610,26 @@
    }
    
    /**
-    * Returns <code>true</code> if this temp-table is in prepared state (after a successful call
-    * to {@link #tempTablePrepare}).
-    * This method implements the read-only PREPARED attribute from 4GL.
+    * Returns {@code true} if this temp-table is in prepared state (after a successful call to
+    * {@link #tempTablePrepare}).
+    * This method implements the read-only PREPARED getter attribute from 4GL.
     *
-    * @return  true if operation is successful
-    */
-   protected abstract boolean _prepared();
+    * @return  {@code true} if table is in PREPARED state.
+    */
+   public abstract boolean _prepared();
+   
+   /**
+    * Check whether this TEMP-TABLE is in CLEAR state: I.e. the temp-table is first created or immediately
+    * after the CLEAR() method is applied. The other two state of a temp-table are: UNPREPARED and PREPARED.
+    * The UNPREPARED state between the first definitional method has been applied and before the
+    * TEMP-TABLE-PREPARE() method is applied.
+    * <p>
+    * This method is FWD-internal. The programmer can check whether the temp-table is in an UNPREPARED or
+    * PREPARED state by checking the PREPARED attribute, but the CLEAR state is transparent.
+    * 
+    * @return  {@code true} if this table is in CLEAR state. 
+    */
+   public abstract boolean _clear();
    
    /**
     * Sets the origin table. Implementation internal method. The origin table is the table where

=== modified file 'src/com/goldencode/p2j/persist/AdaptiveQuery.java'
--- src/com/goldencode/p2j/persist/AdaptiveQuery.java	2020-10-05 18:05:51 +0000
+++ src/com/goldencode/p2j/persist/AdaptiveQuery.java	2020-10-22 18:16:39 +0000
@@ -2,7 +2,7 @@
 ** Module   : AdaptiveQuery.java
 ** Abstract : Query which adapts its retrieval type from preselect to dynamic
 **
-** Copyright (c) 2004-2019, Golden Code Development Corporation.
+** Copyright (c) 2004-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 ECF 20060721   @28133 Created initial version. Query which adapts
@@ -311,6 +311,10 @@
 **     OM  20201001          Dropped redundant ORDER BY elements in multi-table queries.
 **     CA  20201005          Fixed assembleOrderByClause - emit the _multiplex column, too, so that H2 will 
 **                           match the WHERE and ORDER BY indexes (if possible).
+**     ECF 20201011          Do not use ProgressiveResults if the sort phrase does not match a legacy index,
+**                           to forego the performance penalty of re-sorting the results for multiple
+**                           brackets.
+**         20201019          Modified sort phrase index comparison to only check outermost query component.
 */
 
 /*
@@ -369,6 +373,7 @@
 package com.goldencode.p2j.persist;
 
 import java.lang.reflect.*;
+import java.sql.*;
 import java.util.*;
 import java.util.function.*;
 import java.util.logging.*;
@@ -571,11 +576,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     *             
     * @return   This query instance.
     */
@@ -599,11 +604,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    indexInfo
     *           Index information string as it is returned by INDEX-INFORMATION.
     *           May be <code>null</code> if it is not an OPEN QUERY case or if
@@ -632,11 +637,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    inverse
     *           DMO to which this query should join via a foreign relation.
     *           May be <code>null</code>.
@@ -664,11 +669,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    indexInfo
     *           Index information string as it is returned by INDEX-INFORMATION.
     *           May be <code>null</code> if it is not an OPEN QUERY case or if
@@ -700,11 +705,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    args
     *           Substitution parameters to be inserted into placeholders within
     *           the where clause.
@@ -737,11 +742,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    indexInfo
     *           Index information string as it is returned by INDEX-INFORMATION.
     *           May be <code>null</code> if it is not an OPEN QUERY case or if
@@ -773,11 +778,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    inverse
     *           DMO to which this query should join via a foreign relation.
     *           May be <code>null</code>.
@@ -808,11 +813,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    indexInfo
     *           Index information string as it is returned by INDEX-INFORMATION.
     *           May be <code>null</code> if it is not an OPEN QUERY case or if
@@ -848,11 +853,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    lockType
     *           Lock type to apply to records retrieved by this query.
     *             
@@ -878,11 +883,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    indexInfo
     *           Index information string as it is returned by INDEX-INFORMATION.
     *           May be <code>null</code> if it is not an OPEN QUERY case or if
@@ -913,11 +918,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    inverse
     *           DMO to which this query should join via a foreign relation.
     *           May be <code>null</code>.
@@ -947,11 +952,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    indexInfo
     *           Index information string as it is returned by INDEX-INFORMATION.
     *           May be <code>null</code> if it is not an OPEN QUERY case or if
@@ -985,11 +990,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    args
     *           Substitution parameters to be inserted into placeholders within
     *           the where clause.
@@ -1018,11 +1023,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    indexInfo
     *           Index information string as it is returned by INDEX-INFORMATION.
     *           May be <code>null</code> if it is not an OPEN QUERY case or if
@@ -1056,11 +1061,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    inverse
     *           DMO to which this query should join via a foreign relation.
     *           May be <code>null</code>.
@@ -1093,11 +1098,11 @@
     * @param    dmo
     *           DMO proxy which defines buffer and record type.
     * @param    where
-    *           HQL where clause.  May be <code>null</code>.
+    *           FQL where clause.  May be <code>null</code>.
     * @param    whereExpr
     *           Client-side where clause expression.  May be <code>null</code>.
     * @param    sort
-    *           HQL order by clause.
+    *           FQL order by clause.
     * @param    indexInfo
     *           Index information string as it is returned by INDEX-INFORMATION.
     *           May be <code>null</code> if it is not an OPEN QUERY case or if
@@ -1159,9 +1164,9 @@
     * @param   dmo
     *          DMO proxy which defines buffer and record type.
     * @param   where
-    *          HQL where clause.  May be <code>null</code>.
+    *          FQL where clause.  May be <code>null</code>.
     * @param   sort
-    *          HQL order by clause.
+    *          FQL order by clause.
     */
    public void addComponent(DataModelObject dmo, String where, String sort)
    {
@@ -1180,9 +1185,9 @@
     * @param   dmo
     *          DMO proxy which defines buffer and record type.
     * @param   where
-    *          HQL where clause.  May be <code>null</code>.
+    *          FQL where clause.  May be <code>null</code>.
     * @param   sort
-    *          HQL order by clause.
+    *          FQL order by clause.
     * @param   inverse
     *          DMO to which this query should join via a foreign relation.
     *          May be <code>null</code>.
@@ -1207,9 +1212,9 @@
     * @param   dmo
     *          DMO proxy which defines buffer and record type.
     * @param   where
-    *          HQL where clause.  May be <code>null</code>.
+    *          FQL where clause.  May be <code>null</code>.
     * @param   sort
-    *          HQL order by clause.
+    *          FQL order by clause.
     * @param   args
     *          Substitution parameters to be inserted into placeholders within
     *          the where clause.
@@ -1233,9 +1238,9 @@
     * @param   dmo
     *          DMO proxy which defines buffer and record type.
     * @param   where
-    *          HQL where clause.  May be <code>null</code>.
+    *          FQL where clause.  May be <code>null</code>.
     * @param   sort
-    *          HQL order by clause.
+    *          FQL order by clause.
     * @param   inverse
     *          DMO to which this query should join via a foreign relation.
     *          May be <code>null</code>.
@@ -1264,9 +1269,9 @@
     * @param   dmo
     *          DMO proxy which defines buffer and record type.
     * @param   where
-    *          HQL where clause.  May be <code>null</code>.
+    *          FQL where clause.  May be <code>null</code>.
     * @param   sort
-    *          HQL order by clause.
+    *          FQL order by clause.
     * @param   lockType
     *          Lock type to apply to records retrieved by this component of
     *          the query.
@@ -1290,9 +1295,9 @@
     * @param   dmo
     *          DMO proxy which defines buffer and record type.
     * @param   where
-    *          HQL where clause.  May be <code>null</code>.
+    *          FQL where clause.  May be <code>null</code>.
     * @param   sort
-    *          HQL order by clause.
+    *          FQL order by clause.
     * @param   inverse
     *          DMO to which this query should join via a foreign relation.
     *          May be <code>null</code>.
@@ -1320,9 +1325,9 @@
     * @param   dmo
     *          DMO proxy which defines buffer and record type.
     * @param   where
-    *          HQL where clause.  May be <code>null</code>.
+    *          FQL where clause.  May be <code>null</code>.
     * @param   sort
-    *          HQL order by clause.
+    *          FQL order by clause.
     * @param   args
     *          Substitution parameters to be inserted into placeholders within
     *          the where clause.
@@ -1349,9 +1354,9 @@
     * @param   dmo
     *          DMO proxy which defines buffer and record type.
     * @param   where
-    *          HQL where clause.  May be <code>null</code>.
+    *          FQL where clause.  May be <code>null</code>.
     * @param   sort
-    *          HQL order by clause.
+    *          FQL order by clause.
     * @param   inverse
     *          DMO to which this query should join via a foreign relation.
     *          May be <code>null</code>.
@@ -1381,9 +1386,9 @@
     * @param   dmo
     *          DMO proxy which defines buffer and record type.
     * @param   where
-    *          HQL where clause.  May be <code>null</code>.
+    *          FQL where clause.  May be <code>null</code>.
     * @param   sort
-    *          HQL order by clause.
+    *          FQL order by clause.
     * @param   args
     *          Substitution parameters to be inserted into placeholders within
     *          the where clause.
@@ -1422,9 +1427,9 @@
     * @param   dmo
     *          DMO proxy which defines buffer and record type.
     * @param   where
-    *          HQL where clause.  May be <code>null</code>.
+    *          FQL where clause.  May be <code>null</code>.
     * @param   sort
-    *          HQL order by clause.
+    *          FQL order by clause.
     * @param   inverse
     *          DMO to which this query should join via a foreign relation.
     *          May be <code>null</code>.
@@ -1467,9 +1472,9 @@
     * @param   dmo
     *          DMO proxy which defines buffer and record type.
     * @param   where
-    *          HQL where clause.  May be <code>null</code>.
+    *          FQL where clause.  May be <code>null</code>.
     * @param   sort
-    *          HQL order by clause.
+    *          FQL order by clause.
     * @param   indexInfo
     *          Index information string as it is returned by INDEX-INFORMATION.
     *          May be <code>null</code> if it is not an OPEN QUERY case or if
@@ -3105,7 +3110,7 @@
    }
    
    /**
-    * Assemble the restriction (i.e., where) clause for an HQL query. If more
+    * Assemble the restriction (i.e., where) clause for an FQL query. If more
     * than one component contains a where clause, they are combined with a
     * logical "and". Form of the clause is:
     * <pre>
@@ -3159,7 +3164,7 @@
    }
    
    /**
-    * Assemble the {@code order by} clause for an HQL query by combining the sort criteria from each query
+    * Assemble the {@code order by} clause for an FQL query by combining the sort criteria from each query
     * component sequentially.
     * Any text-based sort criteria are augmented with the necessary upper() and rtrim() functions.
     *
@@ -3174,7 +3179,6 @@
     */
    @Override
    protected List<SortCriterion> assembleOrderByClause()
-   throws PersistenceException
    {
       List<SortCriterion> all = new ArrayList<>();
       Iterator<QueryComponent> iter = components();
@@ -3404,16 +3408,19 @@
    }
    
    /**
-    * Execute the query to create a first level result set.  This implementation creates an
-    * instance of {@code ProgressiveResults}, which defers actually executing the query until
+    * Execute the query to create a first level result set.
+    * <p>
+    * If we are executing the query after a re-validation, or if the query's sort phrase does not match
+    * any legacy index, fall back to the superclass' implementation. Otherwise, this implementation creates
+    * an instance of {@code ProgressiveResults}, which defers actually executing the query until
     * the first request to fetch a result.
     *
     * @param   persistence
     *          Object which is used to execute the query.
-    * @param   hql
-    *          HQL query string.
+    * @param   fql
+    *          FQL query string.
     * @param   args
-    *          Substitution parameters to be inserted into placeholders within the HQL query
+    *          Substitution parameters to be inserted into placeholders within the FQL query
     *          string.
     *
     * @return  An instance of {@code ProgressiveResults} which fetches progressively larger
@@ -3423,14 +3430,14 @@
     *          not thrown by this implementation.
     */
    @Override
-   protected Results executeQuery(Persistence persistence, String hql, Object[] args)
+   protected Results executeQuery(Persistence persistence, String fql, Object[] args)
    throws PersistenceException
    {
       Results results = null;
       
-      if (cacheOnReval)
+      if (cacheOnReval || probablyRequiresResort())
       {
-         results = super.executeQuery(persistence, hql, args);
+         results = super.executeQuery(persistence, fql, args);
       }
       else
       {
@@ -3445,7 +3452,7 @@
          
          // create the progressive results
          ProgressiveResults pr = new ProgressiveResults(persistence,
-                                                        hql,
+                                                        fql,
                                                         args,
                                                         isScrolling(),
                                                         getEntities(),
@@ -3607,7 +3614,7 @@
       adapter.cleanup();
       adapter.setResults(null);
    }
-
+   
    /**
     * Get array of the primary keys of the records contained in the backing buffers.
     *
@@ -3685,7 +3692,7 @@
             coreFetch(null, lockType, false, true);
             return false;
          }
-
+         
          offEnd = OffEnd.NONE; // required for PreselectQuery to fetch properly
          coreFetch(data, lockType, false, true);
          accumulate();
@@ -3824,6 +3831,54 @@
    }
    
    /**
+    * Indicate whether the query results as initially fetched are likely to require a re-sort before they
+    * are returned. This decision is based on whether the sort phrase exists and does not match any legacy
+    * index of the first query component table.
+    * <p>
+    * This method makes an assumption (which will not be correct in all cases) that if an index on the first
+    * table exactly matches the sort phrase, it will be used to fetch the results. However, the database
+    * query planner may well select a different index, based on the WHERE clause. In that case, this method
+    * will report incorrectly that a re-sort is not required, which may lead to &quot;chunking&quot; the
+    * result set with {@code ProgressiveResults} when this is not the most efficient approach. However, it
+    * may help detect some cases where a re-sort will take place, avoiding this anti-pattern.
+    * 
+    * @return  {@code true} if there is no sort phrase, or if the sort phrase does not match any legacy
+    *          index of the first query component table.
+    */
+   private boolean probablyRequiresResort()
+   {
+      String sort = getSortPhrase();
+      if (sort == null)
+      {
+         // no specific sorting is required, so the result set can be returned in its initial order
+         // TODO: is this a valid state, or do we always have a sort phrase?
+         return false;
+      }
+      
+      boolean match = false;
+      
+      if (!components.isEmpty())
+      {
+         try
+         {
+            QueryComponent comp = components.get(0);
+            RecordBuffer buffer = comp.getBuffer();
+            IndexHelper ih = buffer.getIndexHelper();
+            if (ih.getIndexForSort(buffer, sort) != null)
+            {
+               match = true;
+            }
+         }
+         catch (PersistenceException exc)
+         {
+            match = false;
+         }
+      }
+      
+      return !match;
+   }
+   
+   /**
     * Given a record change event for which this query is listening, determine
     * whether invalidation may be avoided.  For an update, assume it already
     * has been determined that a relevant property (one which can affect the

=== modified file 'src/com/goldencode/p2j/persist/Buffer.java'
--- src/com/goldencode/p2j/persist/Buffer.java	2020-09-10 09:54:53 +0000
+++ src/com/goldencode/p2j/persist/Buffer.java	2021-01-13 21:04:41 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20130118 Created initial version.
 ** 002 VMN 20130207 Added support for handle-based methods:
 **                  BUFFER-COPY (KW_BUF_COPY)
@@ -88,6 +88,9 @@
 ** 044 CA  20200428 Added LAST-BATCH.
 ** 045 CA  20200503 Added BUFFER:IS-MULTI-TENANT runtime stub.
 ** 046 CA  20200910 Added BUFFER:SERIALIZE-ROW() runtime stub.
+**     OM  20201120 Redesign interface hierarchy.
+**     OM  20201205 Added AUTO-DELETE attribute definition.
+**     OM  20201218 Fixed implementation for error and rejected attributes/hidden fields.
 */
 
 /*
@@ -166,6 +169,7 @@
         BufferHandle,
         CallbackProcedure,
         DatabaseInfo,
+        DataSourceModifiable,
         DataSetChangeable,
         Dereferenceable,
         DynamicResource,
@@ -181,6 +185,7 @@
         Nameable,
         NamedSerializable,
         NamespaceURI,
+        QueryAssociable,
         Rejectable,
         TempTableDuplicator,
         UniqueID,
@@ -220,27 +225,6 @@
    /** The legacy name of the index in BEFORE-TEMP-TABLEs . */
    public static final String ROW_STATE_IDX = "rowState";
    
-   /**
-    * FILL-MODE constant. FILLing will add new records on top of the ones already existing in the
-    * table. No record comparisons are executed, meaning that duplicate records may be obtained.
-    */
-   public static final String FM_APPEND = "APPEND";
-   
-   /** FILL-MODE constant. The FILL operations start with an empty table. */
-   public static final String FM_EMPTY = "EMPTY";
-   
-   /**
-    * FILL-MODE constant. Merge new records with existing ones. Records are not refreshed.
-    * This is the default.
-    */
-   public static final String FM_MERGE = "MERGE";
-   
-   /** FILL-MODE constant. Does not perform the FILL operation on the table. (OM: = NoOp?) */
-   public static final String FM_NOFILL = "NO-FILL";
-   
-   /** FILL-MODE constant. Most time consuming mode. Refreshes the old records. */
-   public static final String FM_REPLACE = "REPLACE";
-   
    /** ROW-STATE constant value: the row was not modified. */
    public static final int ROW_UNMODIFIED = 0;
    
@@ -253,6 +237,12 @@
    /** ROW-STATE constant value: the row was created. */
    public static final int ROW_CREATED = 3;
    
+   /** A bitwise flag which marks a system error. It is saved in {@code __ERROR_FLAG__} attribute. */
+   public static final int ERROR_ERROR = 1;
+   
+   /** A bitwise flag which marks a user error. It is saved in {@code __ERROR_FLAG__} attribute. */
+   public static final int ERROR_REJECTED = 2;
+   
    /** The {@code BEFORE-FILL} event string constant in upper case. */
    public static final String BEFORE_FILL_EVENT = "BEFORE-FILL";
    
@@ -286,7 +276,7 @@
     * @return  the value of BUFFER:LAST-BATCH attribute.
     */
    @LegacyAttribute(name = "LAST-BATCH")
-   public logical isLastBatch();
+   public logical lastBatch();
 
    /**
     * Set the BUFFER:LAST-BATCH attribute.
@@ -295,7 +285,7 @@
     *           The flag state.
     */
    @LegacyAttribute(name = "LAST-BATCH", setter = true)
-   public void setLastBatch(boolean lastBatch);
+   public void lastBatch(boolean lastBatch);
    
    /**
     * Set the BUFFER:LAST-BATCH attribute.
@@ -304,7 +294,7 @@
     *           The flag state.
     */
    @LegacyAttribute(name = "LAST-BATCH", setter = true)
-   public void setLastBatch(logical lastBatch);
+   public void lastBatch(logical lastBatch);
    
    /**
     * Get the record ID of the current buffer's current record, if any.  P2J
@@ -2403,37 +2393,6 @@
    public logical saveRowChanges(Text buffName, Text skipList, logical noLobs);
    
    /**
-    * Obtain the mode in which the {@link DataSet#fill()} method fills a {@code DataSet} member
-    * buffer. The default mode is {@code MERGE}.
-    * 
-    * @return  the fill mode for this buffer.
-    */
-   @LegacyAttribute(name = "FILL-MODE")
-   public character fillMode();
-   
-   /**
-    * Configures the mode in which the {@link DataSet#fill()} method fills a {@code DataSet}
-    * member buffer. The allowed modes are: {@code APPEND}, {@code EMPTY}, {@code MERGE},
-    * {@code NO-FILL}, and {@code REPLACE}.
-    *
-    * @param   mode 
-    *          the new fill mode for this buffer.
-    */
-   @LegacyAttribute(name = "FILL-MODE", setter = true)
-   public void fillMode(String mode);
-   
-   /**
-    * Configures the mode in which the {@link DataSet#fill()} method fills a {@code DataSet}
-    * member buffer. The allowed modes are: {@code APPEND}, {@code EMPTY}, {@code MERGE},
-    * {@code NO-FILL}, and {@code REPLACE}.
-    *
-    * @param   mode
-    *          the new fill mode for this buffer.
-    */
-   @LegacyAttribute(name = "FILL-MODE", setter = true)
-   public void fillMode(Text mode);
-   
-   /**
     * Attaches a {@code DataSource} object to this temp-table {@code Buffer} in a {@code DataSet}
     * object.
     *
@@ -2841,7 +2800,85 @@
     * @param   target
     *          Data target.
     * @param   formatted
-    *          {@code True} to format the datato make it more readable; {@code false} to write it
+    *          {@code True} to format the data for making it more readable; {@code false} to write it
+    *          as unformatted text. Unknown value is treated as {@code false}.
+    * @param   encoding
+    *          Name of the character encoding to use.
+    * @param   omitInitialValues
+    *          {@code True} to omit data for fields whose values match their initial values.
+    * 
+    * @return  {@code True} if the operation completed successfully, else {@code false}.
+    */
+   @LegacyMethod(name = "SERIALIZE-ROW")
+   public logical serializeRow(character  targetFormat, 
+                               TargetData target, 
+                               logical    formatted, 
+                               character  encoding, 
+                               logical    omitInitialValues);
+   
+   /**
+    * Definition of the SERIALIZE-ROW method. Writes current row from this buffer into the specified data 
+    * target, using the specified format.
+    * 
+    * @param   targetFormat
+    *          The format ("xml" or "json").
+    * @param   target
+    *          Data target.
+    * @param   formatted
+    *          {@code True} to format the data for making it more readable; {@code false} to write it
+    *          as unformatted text. Unknown value is treated as {@code false}.
+    * @param   encoding
+    *          Name of the character encoding to use.
+    * 
+    * @return  {@code True} if the operation completed successfully, else {@code false}.
+    */
+   @LegacyMethod(name = "SERIALIZE-ROW")
+   public logical serializeRow(character targetFormat, 
+                               TargetData target, 
+                               logical    formatted, 
+                               character  encoding);
+   
+   /**
+    * Definition of the SERIALIZE-ROW method. Writes current row from this buffer into the specified data 
+    * target, using the specified format.
+    * 
+    * @param   targetFormat
+    *          The format ("xml" or "json").
+    * @param   target
+    *          Data target.
+    * @param   formatted
+    *          {@code True} to format the data for making it more readable; {@code false} to write it
+    *          as unformatted text. Unknown value is treated as {@code false}.
+    * 
+    * @return  {@code True} if the operation completed successfully, else {@code false}.
+    */
+   @LegacyMethod(name = "SERIALIZE-ROW")
+   public logical serializeRow(character targetFormat, TargetData target, logical formatted);
+   
+   /**
+    * Definition of the SERIALIZE-ROW method. Writes current row from this buffer into the specified data 
+    * target, using the specified format.
+    * 
+    * @param   targetFormat
+    *          The format ("xml" or "json").
+    * @param   target
+    *          Data target.
+    * 
+    * @return  {@code True} if the operation completed successfully, else {@code false}.
+    */
+   @LegacyMethod(name = "SERIALIZE-ROW")
+   public logical serializeRow(character targetFormat, TargetData target);
+   
+   /**
+    * Definition of the SERIALIZE-ROW method. Writes current row from this buffer into the specified data 
+    * target, using the specified format.
+    * 
+    * @param   targetFormat
+    *          The format ("xml" or "json").
+    * @param   target
+    *          Data target.
+    * @param   formatted
+    *          {@code True} to format the data for making it more readable; {@code false} to write it
     *          as unformatted text. Unknown value is treated as {@code false}.
     * @param   encoding
     *          Name of the character encoding to use.
@@ -2859,4 +2896,30 @@
                                character  encoding, 
                                logical    omitInitialValues,
                                logical    omitOuterObject);
+   
+   /**
+    * Get the BUFFER:AUTO-DELETE attribute.
+    *
+    * @return  the value of BUFFER:AUTO-DELETE attribute.
+    */
+   @LegacyAttribute(name = "AUTO-DELETE")
+   public logical autoDelete();
+   
+   /**
+    * Set the BUFFER:AUTO-DELETE attribute.
+    *
+    * @param    autoDelete
+    *           The flag state.
+    */
+   @LegacyAttribute(name = "AUTO-DELETE", setter = true)
+   public void autoDelete(boolean autoDelete);
+   
+   /**
+    * Set the BUFFER:AUTO-DELETE attribute.
+    *
+    * @param    autoDelete
+    *           The flag state.
+    */
+   @LegacyAttribute(name = "AUTO-DELETE", setter = true)
+   public void autoDelete(logical autoDelete);
 }

=== modified file 'src/com/goldencode/p2j/persist/BufferField.java'
--- src/com/goldencode/p2j/persist/BufferField.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/persist/BufferField.java	2021-01-13 21:04:41 +0000
@@ -31,6 +31,7 @@
 ** 018 CA  20190514 Added DEFAULT-STRING stub.
 ** 019 IAS 20200221 Added Available interface.
 ** 020 GES 20200628 Added DEFAULT-VALUE.
+** 021 OM  20201118 Extracted SERIALIZE-HIDDEN into independent interface. Added DECIMALS attribute.
 */
 
 /*
@@ -101,6 +102,7 @@
         CommonField,
         DatabaseInfo,
         NamedSerializable,
+        SerializeHiddenable,
         Sizeable,
         UniqueID,
         WrappedResource,
@@ -352,38 +354,6 @@
    public logical caseSensitive();
    
    /**
-    * Checks whether fields are written when the temp-table is serialized, for example into
-    * JSON or XML.
-    * This represents the getter for {@code SERIALIZE-HIDDEN} ABL attribute.
-    *
-    * @return  {@code true} when the fields are hidden.
-    */
-   @LegacyAttribute(name = "SERIALIZE-HIDDEN")
-   public logical getSerializeHidden();
-   
-   /**
-    * Allow to configure whether fields are written when the temp-table is serialized, for example
-    * into JSON or XML.
-    * This represents the setter for {@code SERIALIZE-HIDDEN} ABL attribute.
-    *
-    * @param   val
-    *          {@code true} when the fields are hidden.
-    */
-   @LegacyAttribute(name = "SERIALIZE-HIDDEN", setter = true)
-   public void setSerializeHidden(logical val);
-   
-   /**
-    * Allow to configure whether fields are written when the temp-table is serialized, for example
-    * into JSON or XML.
-    * This represents the setter for {@code SERIALIZE-HIDDEN} ABL attribute.
-    *
-    * @param   val
-    *          {@code true} when the fields are hidden.
-    */
-   @LegacyAttribute(name = "SERIALIZE-HIDDEN", setter = true)
-   public void setSerializeHidden(boolean val);
-   
-   /**
     * Obtain the number of decimal places, after the decimal point, that are stored in this
     * buffer-field object that corresponds to a DECIMAL field.
     * 
@@ -393,6 +363,30 @@
    public integer getDecimals();
    
    /**
+    * Sets the number of decimal places, after the decimal point, that are stored in this buffer-field
+    * object that corresponds to a DECIMAL field.
+    * <p>
+    * This attribute is writable for temp-tables but only read-only for permanent tables. 
+    * 
+    * @param   decimals
+    *          The new number of decimals after the decimal point for this buffer-field.
+    */
+   @LegacyAttribute(name = "DECIMALS", setter = true)
+   public void setDecimals(NumberType decimals);
+   
+   /**
+    * Sets the number of decimal places, after the decimal point, that are stored in this buffer-field
+    * object that corresponds to a DECIMAL field.
+    * <p>
+    * This attribute is writable for temp-tables but only read-only for permanent tables. 
+    * 
+    * @param   decimals
+    *          The new number of decimals after the decimal point for this buffer-field.
+    */
+   @LegacyAttribute(name = "DECIMALS", setter = true)
+   public void setDecimals(long decimals);
+   
+   /**
     * Checks whether this field participates in an index.
     * 
     * @return  {@code true} if this field is part of an index.

=== modified file 'src/com/goldencode/p2j/persist/BufferFieldImpl.java'
--- src/com/goldencode/p2j/persist/BufferFieldImpl.java	2020-09-16 00:56:38 +0000
+++ src/com/goldencode/p2j/persist/BufferFieldImpl.java	2021-01-27 01:54:24 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20150315 Created initial version by refactoring all support specific to BUFFER-FIELD
 **                  4GL compatibility from the FieldReference class. See that class for a full
 **                  history. This refactoring was done to eliminate the memory footprint and
@@ -36,6 +36,9 @@
 **     CA  20200427 Allow bulk assign support for BUFFER-VALUE and ::, in case of extent fields.
 ** 022 GES 20200628 Added DEFAULT-VALUE.  Cleaned up code formatting and added comments.
 **     SVL 20200916 getProperty became public. Fixed position() for temp tables.
+**     CA  20201210 A small fix for WIDTH-CHARS attribute, when the field is extent.
+**     OM  20201030 Invalid attribute API support for getters/setters. Added DECIMALS attribute.
+**                  Implemented several missing options.
 */
 
 /*
@@ -95,15 +98,14 @@
 
 import java.lang.reflect.*;
 import java.util.logging.*;
-
 import com.goldencode.p2j.persist.serial.*;
 import com.goldencode.p2j.util.*;
 import com.goldencode.p2j.util.ErrorManager;
 import com.goldencode.p2j.util.UniqueIdGenerator.*;
 
 /**
- * Implementation of Progress 4GL BUFFER-FIELD methods and attributes, using a {@link
- * FieldReference} as a delegate worker.
+ * Implementation of Progress 4GL BUFFER-FIELD methods and attributes, using a {@link FieldReference} as a
+ * delegate worker.
  */
 public final class BufferFieldImpl
 extends HandleChain
@@ -120,8 +122,13 @@
    private final character admData = new character();
    
    /** Corresponds to UNIQUE-ID attribute. */
-   private final integer uniqueID =
-      new integer(UniqueIdGenerator.getUniqueId(IdKind.BUFFER_FIELD));
+   private final integer uniqueID = new integer(UniqueIdGenerator.getUniqueId(IdKind.BUFFER_FIELD));
+   
+   /** The legacy info collected from table creation or modified afterwards. */
+   private final TableMapper.LegacyFieldInfo lfi;
+   
+   /** Flag for mutable options. This happens when the field belongs to a temp-table. */
+   private boolean mutableOptions = false; 
    
    /**
     * Create a new field reference given a DMO proxy and property name.  A non-indexed getter
@@ -183,6 +190,7 @@
                            boolean bulk)
    {
       this.fieldRef = new FieldReference(dmo, property, uppercase, index, bulk);
+      lfi = computeLegacyInfo();
    }
    
    /**
@@ -199,6 +207,7 @@
    private BufferFieldImpl(FieldReference fieldRef, int index)
    {
       this.fieldRef = new FieldReference(fieldRef, index - 1);
+      lfi = computeLegacyInfo();
    }
    
    /**
@@ -234,14 +243,14 @@
    public logical available() 
    {
       handle buf = bufferHandle();
-      if (buf == null || !buf.unwrapBuffer()._available())
+      if (!buf.unwrapBuffer()._available())
       {
          return new logical();
       }
       // TODO: can 'false' result ever happen?  
       return new logical(true);
    }
-
+   
    /**
     * Conversion of EXTENT attribute (KW_EXTENT).
     *
@@ -437,21 +446,22 @@
    public BaseDataType value()
    {
       handle buf = bufferHandle();
-      if (buf == null || !buf.unwrapBuffer()._available())
+      if (buf._isValid() && buf.unwrapBuffer()._available())
       {
-         String bn = buf == null ? "<UNKNOWN>" : buf.unwrap().name().toStringMessage();
-         ErrorManager.recordOrShowError(
-               91,
-               String.format("No %s record is available", bn),
-               false, true, false);
-         ErrorManager.recordOrShowError(
-               7366,
-               String.format("Unable to extract BUFFER-VALUE for field %s", 
-                     name().toStringMessage()),
-               false, false, false);
-         return fieldRef.unknownValue();
-      }      
-      return fieldRef.getExtent() == null ? fieldRef.get() : fieldRef.unknownValue();
+         return fieldRef.getExtent() == null ? fieldRef.get() : fieldRef.unknownValue();
+      }
+      
+      String bn = !buf._isValid() ? "<UNKNOWN>" : buf.unwrap().name().toStringMessage();
+      ErrorManager.recordOrShowError(
+            91,
+            String.format("No %s record is available", bn),
+            false, true, false);
+      ErrorManager.recordOrShowError(
+            7366,
+            String.format("Unable to extract BUFFER-VALUE for field %s", 
+                  name().toStringMessage()),
+            false, false, false);
+      return fieldRef.unknownValue();
    }
    
    /**
@@ -835,14 +845,14 @@
    }
    
    /**
-    * HEIGHT-CHARS attribute is not defined for BUFFER-FIELD handle. Calls 
-    * {@link #invalidAttribute} to display appropriate error.
+    * HEIGHT-CHARS attribute is not defined for BUFFER-FIELD handle. Calls {@link #invalidAttribute} to
+    * display appropriate error.
     * 
     * @return  unknown value.
     */
    public decimal getHeightChars()
    {
-      invalidAttribute("HEIGHT-CHARS");
+      invalidAttribute("HEIGHT-CHARS", false);
       
       return new decimal();
    }
@@ -856,7 +866,7 @@
     */
    public void setHeightChars(NumberType h)
    {
-      readOnlyError("HEIGHT");
+      readOnlyError("HEIGHT", handle.UNKNOWN_ARGUMENT);
    }
    
    /**
@@ -868,7 +878,7 @@
     */
    public void setHeightChars(double h)
    {
-      readOnlyError("HEIGHT");
+      readOnlyError("HEIGHT", handle.UNKNOWN_ARGUMENT);
    }
    
    /**
@@ -883,7 +893,7 @@
    {
       String strValue;
       
-      if (getDMOProxy()._available())
+      if (getDMOProxy()._available() && fieldRef.getExtent() == null)
       {
          strValue = stringValue().toStringMessage();
       }
@@ -907,7 +917,7 @@
     */
    public void setWidthChars(NumberType widthChars)
    {
-      readOnlyError("WIDTH");
+      readOnlyError("WIDTH", handle.UNKNOWN_ARGUMENT);
    }
    
    /**
@@ -920,7 +930,7 @@
     */
    public void setWidthChars(double widthChars)
    {
-      readOnlyError("WIDTH");
+      readOnlyError("WIDTH", handle.UNKNOWN_ARGUMENT);
    }
    
    /**
@@ -931,7 +941,7 @@
     */
    public integer getWidthPixels()
    {
-      invalidAttribute("WIDTH-PIXELS");
+      invalidAttribute("WIDTH-PIXELS", false);
       
       return new integer();
    }
@@ -945,7 +955,7 @@
     */
    public void setWidthPixels(NumberType widthPixels)
    {
-      readOnlyError("WIDTH-PIXELS");
+      readOnlyError("WIDTH-PIXELS", handle.UNKNOWN_ARGUMENT);
    }
    
    /**
@@ -957,7 +967,7 @@
     */
    public void setWidthPixels(int widthPixels)
    {
-      readOnlyError("WIDTH-PIXELS");
+      readOnlyError("WIDTH-PIXELS", handle.UNKNOWN_ARGUMENT);
    }
    
    /**
@@ -968,7 +978,7 @@
     */
    public integer getHeightPixels()
    {
-      invalidAttribute("HEIGHT-PIXELS");
+      invalidAttribute("HEIGHT-PIXELS", false);
       
       return new integer();
    }
@@ -982,7 +992,7 @@
     */
    public void setHeightPixels(NumberType heightPixels)
    {
-      readOnlyError("HEIGHT-PIXELS");
+      readOnlyError("HEIGHT-PIXELS", handle.UNKNOWN_ARGUMENT);
    }
    
    /**
@@ -994,7 +1004,7 @@
     */
    public void setHeightPixels(int heightPixels)
    {
-      readOnlyError("HEIGHT-PIXELS");
+      readOnlyError("HEIGHT-PIXELS", handle.UNKNOWN_ARGUMENT);
    }
    
    /**
@@ -1009,7 +1019,7 @@
    }
    
    /**
-    * Setter of FORMAt attribute.
+    * Setter of FORMAT attribute.
     *
     * @param   format
     *          The new value.
@@ -1104,14 +1114,14 @@
    }
    
    /**
-    * Set the <code>DATA-TYPE</code> attribute..
+    * Set the <code>DATA-TYPE</code> attribute.
     *
     * @param    dataType
     *           The DATA-TYPE to be set.
     */
    public void setDataType(String dataType)
    {
-      readOnlyError("DATA-TYPE");
+      readOnlyError("DATA-TYPE", handle.UNKNOWN_ARGUMENT);
    }
    
    /**
@@ -1122,7 +1132,7 @@
     */
    public void setDataType(character dataType)
    {
-      readOnlyError("DATA-TYPE");
+      readOnlyError("DATA-TYPE", handle.UNKNOWN_ARGUMENT);
    }
    
    /**
@@ -1213,30 +1223,17 @@
    @Override
    public logical caseSensitive()
    {
-      UnimplementedFeature.missing("CASE-SENSITIVE attribute is not implemented");
-      return new logical();
+      return new logical(lfi.isCaseSensitive());
    }
    
    /**
     * Implementation of the read access of the {@code SERIALIZE-NAME} attribute.
     *
-    * @return  the current value of the {@code SERIALIZE-NAME} attribute. 
+    * @return  the current value of the {@code SERIALIZE-NAME} attribute.
     */
    @Override
    public character getSerializeName()
    {
-      TempTable tempTable = fieldRef.getParentBuffer().getParentTable();
-      TableMapper.LegacyFieldInfo lfi;
-      if (tempTable == null)
-      {
-         // permanent tables: P4GL allows the attribute to be queried for permanent tables and 
-         // returns the legacy name. 
-         lfi = TableMapper.getLegacyFieldInfo(fieldRef.getDMOInterface(), fieldRef.getProperty());
-         return new character(lfi.getLegacyName());
-      }
-      
-      // temp tables case
-      lfi = TableMapper.getLegacyFieldInfo(tempTable, fieldRef.getProperty());
       String sName = lfi.getSerializeOptions().getSerializeName();
       return new character(sName == null || sName.trim().isEmpty() ? lfi.getLegacyName() : sName);
    }
@@ -1245,7 +1242,7 @@
     * Implementation of the write access of the {@code SERIALIZE-NAME} attribute.
     *
     * @param   sName
-    *          the new value for the {@code SERIALIZE-NAME} attribute. 
+    *          the new value for the {@code SERIALIZE-NAME} attribute.
     */
    @Override
    public void setSerializeName(Text sName)
@@ -1257,26 +1254,15 @@
     * Implementation of the write access of the {@code SERIALIZE-NAME} attribute.
     *
     * @param   sName
-    *          the new value for the {@code SERIALIZE-NAME} attribute. 
+    *          the new value for the {@code SERIALIZE-NAME} attribute.
     */
    @Override
    public void setSerializeName(String sName)
    {
-      TempTable tempTable = fieldRef.getParentBuffer().getParentTable();
-      
-      if (tempTable == null)
-      {
-         // permanent tables cannot change the serialized name. Doing so on P4GL will crash their
-         // client application
-         return;
-      }
-      // temp tables case
-      SerializeOptions so = TableMapper.getLegacyFieldInfo(
-            tempTable, fieldRef.getProperty()).getSerializeOptions();
+      // this actually works for permanent tables, too, although they cannot be serialized
+      lfi.getSerializeOptions().setSerializeName(sName);
+   }
    
-      so.setSerializeName(sName == null ? "" : sName);
-   }
-
    /**
     * Get the property name of this field.
     *
@@ -1286,7 +1272,7 @@
    {
       return fieldRef.getProperty();
    }
-
+   
    /**
     * Delete the resource.
     *
@@ -1446,7 +1432,7 @@
       
       return true;
    }
-
+   
    /**
     * Check if the provided value of the attribute is unknown and raise error in this case.
     *
@@ -1455,22 +1441,20 @@
     * @param  value
     *         Value of the attribute to be checked.
     *
-    * @return <code>false</code> if the value is unknown.
+    * @return {@code false} if the value is unknown.
     */
    private boolean checkUnknown(String attributeName, BaseDataType value)
    {
-      if (value.isUnknown())
+      if (value == null || value.isUnknown())
       {
-         ErrorManager.recordOrShowError(4083,
-               String.format(
-                     "**Unable to assign UNKNOWN value to attribute %s on %s widget",
-                     attributeName, type()), false, false);
+         ErrorManager.recordOrShowError(4083, attributeName, type() + " widget");
+         // **Unable to assign UNKNOWN value to attribute <attribute> on <widget id>.
          return false;
       }
-
+      
       return true;
    }
-
+   
    /**
     * Get the parent record buffer.
     *
@@ -1489,8 +1473,7 @@
    @Override
    public character getXmlDataType()
    {
-      UnimplementedFeature.missing("XML-DATA-TYPE attribute not implemented");
-      return new character();
+      return new character(lfi.getSerializeOptions().getXmlDataType());
    }
    
    /**
@@ -1501,7 +1484,10 @@
    @Override
    public void setXmlDataType(String newType)
    {
-      UnimplementedFeature.missing("XML-DATA-TYPE attribute not implemented");
+      if (mutableOptions)
+      {
+         lfi.getSerializeOptions().setXmlDataType(newType);
+      }
    }
    
    /**
@@ -1512,7 +1498,10 @@
    @Override
    public void setXmlDataType(Text newType)
    {
-      UnimplementedFeature.missing("XML-DATA-TYPE attribute not implemented");
+      if (checkUnknown("XML-DATA-TYPE", newType))
+      {
+         setXmlDataType(newType.toJavaType());
+      }
    }
    
    /**
@@ -1524,8 +1513,7 @@
    @Override
    public character getXmlNodeType()
    {
-      UnimplementedFeature.missing("XML-NODE-TYPE attribute not implemented");
-      return new character();
+      return new character(lfi.getSerializeOptions().getXmlNodeType().name());
    }
    
    /**
@@ -1539,7 +1527,10 @@
    @Override
    public void setXmlNodeType(Text newType)
    {
-      UnimplementedFeature.missing("XML-NODE-TYPE attribute not implemented");
+      if (checkUnknown("XML-NODE-TYPE", newType))
+      {
+         setXmlNodeType(newType.toJavaType());
+      }
    }
    
    /**
@@ -1553,7 +1544,10 @@
    @Override
    public void setXmlNodeType(String newType)
    {
-      UnimplementedFeature.missing("XML-NODE-TYPE attribute not implemented");
+      if (mutableOptions)
+      {
+         lfi.getSerializeOptions().setXmlNodeType(SerializeOptions.XmlNodeType.valueOf(newType));
+      }
    }
    
    /**
@@ -1566,8 +1560,7 @@
    @Override
    public logical getSerializeHidden()
    {
-      UnimplementedFeature.missing("SERIALIZE-HIDDEN attribute not implemented");
-      return new logical();
+      return new logical(lfi.getSerializeOptions().isSerializeHidden());
    }
    
    /**
@@ -1581,7 +1574,10 @@
    @Override
    public void setSerializeHidden(logical val)
    {
-      UnimplementedFeature.missing("SERIALIZE-HIDDEN attribute not implemented");
+      if (checkUnknown("SERIALIZE-HIDDEN", val))
+      {
+         setSerializeHidden(val.booleanValue());
+      }
    }
    
    /**
@@ -1595,7 +1591,10 @@
    @Override
    public void setSerializeHidden(boolean val)
    {
-      UnimplementedFeature.missing("SERIALIZE-HIDDEN attribute not implemented");
+      if (mutableOptions)
+      {
+         lfi.getSerializeOptions().setSerializeHidden(val);
+      }
    }
    
    /**
@@ -1607,9 +1606,51 @@
    @Override
    public integer getDecimals()
    {
-      String property = fieldRef.getProperty();
-      int decimals = TableMapper.getLegacyFieldDecimals(getDMOProxy(), property);
-      return new integer(decimals);
+      return new integer(lfi.getDecimals());
+   }
+   
+   /**
+    * Sets the number of decimal places, after the decimal point, that are stored in this buffer-field
+    * object that corresponds to a DECIMAL field.
+    * <p>
+    * This attribute is writable for temp-tables but only read-only for permanent tables. 
+    *
+    * @param   decimals
+    *          The new number of decimals after the decimal point for this buffer-field.
+    */
+   @Override
+   public void setDecimals(NumberType decimals)
+   {
+      if (!checkUnknown("DECIMALS", decimals))
+      {
+         return;
+      }
+      
+      setDecimals(decimals.longValue());
+   }
+   
+   /**
+    * Sets the number of decimal places, after the decimal point, that are stored in this buffer-field
+    * object that corresponds to a DECIMAL field.
+    * <p>
+    * This attribute is writable for temp-tables but only read-only for permanent tables. 
+    *
+    * @param   decimals
+    *          The new number of decimals after the decimal point for this buffer-field.
+    */
+   @Override
+   public void setDecimals(long decimals)
+   {
+      if (!fieldRef.getParentBuffer().isTemporary())
+      {
+         ErrorManager.recordOrShowError(17092);
+         // Cannot set the DECIMALS attribute for a database field. ()
+         ErrorManager.recordOrShowError(4078, "DECIMALS", "BUFFER-FIELD widget");
+         // **Unable to set attribute <attribute> for <widget id>
+         return;
+      }
+      
+      lfi.setDecimals((int) decimals);
    }
    
    /**
@@ -1634,8 +1675,7 @@
    @Override
    public character getXmlNodeName()
    {
-      UnimplementedFeature.missing("XML-NODE-NAME attribute not implemented");
-      return new character();
+      return new character(lfi.getSerializeOptions().getXmlNodeName());
    }
    
    /**
@@ -1648,7 +1688,10 @@
    @Override
    public void setXmlNodeName(String name)
    {
-      UnimplementedFeature.missing("XML-NODE-NAME attribute not implemented");
+      if (mutableOptions)
+      {
+         lfi.getSerializeOptions().setXmlNodeName(name);
+      }
    }
    
    /**
@@ -1661,7 +1704,10 @@
    @Override
    public void setXmlNodeName(Text name)
    {
-      UnimplementedFeature.missing("XML-NODE-NAME attribute not implemented");
+      if (checkUnknown("XML-NODE-NAME", name))
+      {
+         setXmlNodeName(name.toJavaType());
+      }
    }
    
    /**
@@ -1761,13 +1807,9 @@
    @Override
    public void setDefaultString(character val)
    {
-      ErrorManager.recordOrShowError(4052,
-                                     "DEFAULT-STRING is not a setable attribute for BUFFER-FIELD widget",
-                                     false,
-                                     true,
-                                     false);
+      handle.invalidAttribute("DEFAULT-STRING", true, LegacyResource.BUFFER_FIELD);
    }
-
+   
    /**
     * Returns the value of the HELP attribute
     *
@@ -1848,4 +1890,27 @@
          }
       }
    }
+   
+   /**
+    * Extracts and returns the {@code LegacyFieldInfo} associated with this field. This method also updates
+    * the {@code mutableSerializationOptions} if the field belongs to a temp-table.
+    * 
+    * @return  the {@code LegacyFieldInfo} associated with this field.
+    */
+   private TableMapper.LegacyFieldInfo computeLegacyInfo()
+   {
+      TempTable tempTable = fieldRef.getParentBuffer().getParentTable();
+      if (tempTable == null)
+      {
+         // permanent tables: P4GL allows the attribute to be queried for permanent tables and 
+         // returns the legacy name. 
+         return TableMapper.getLegacyFieldInfo(fieldRef.getDMOInterface(), fieldRef.getProperty());
+      }
+      else
+      {
+         // temp tables case
+         mutableOptions = true;
+         return TableMapper.getLegacyFieldInfo(tempTable, fieldRef.getProperty());
+      }
+   }
 }

=== modified file 'src/com/goldencode/p2j/persist/BufferImpl.java'
--- src/com/goldencode/p2j/persist/BufferImpl.java	2021-01-30 11:21:05 +0000
+++ src/com/goldencode/p2j/persist/BufferImpl.java	2021-01-31 10:14:52 +0000
@@ -2,7 +2,7 @@
 ** Module   : BufferImpl.java
 ** Abstract : Implementation of Buffer interface.
 **
-** Copyright (c) 2013-2020, Golden Code Development Corporation.
+** Copyright (c) 2013-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --------------------------------------Description----------------------------------------
 ** 001 ECF 20130118 Created initial version. Implementation of the Buffer
@@ -164,7 +164,7 @@
 ** 078 IAS 20200221 Reworked RAW-TRANSFER method support.
 ** 079 IAS 20200414 bufferValidate() method implementation.
 **     CA  20200427 Allow bulk assign support for BUFFER-VALUE and ::, in case of extent fields.
-**     CA  20200428 Added LAST-BATCH.
+**     CA  20200428 Added LAST-BATCH runtime stub.
 **     CA  20200503 Added BUFFER:IS-MULTI-TENANT runtime stub.
 ** 080 ECF 20200419 Removed Hibernate dependencies.
 **     CA  20200714 The rowState is available even for temp-tables not part of a dataset.
@@ -172,6 +172,13 @@
 **     CA  20200910 Added BUFFER:SERIALIZE-ROW() runtime stub.
 **         20200911 attachDataSource allows empty include/excludeFields values.
 **         20200914 attachDataSource allows ROWID function for source field.
+**     OM  20201016 Added implementation for LAST-BATCH, DATA-SOURCE-MODIFIED.
+**     OM  20201030 Invalid attribute API support for getters/setters.
+**     OM  20201202 Fixed persistence support for ACCEPT-CHANGES and REJECT-CHANGES methods.
+**     OM  20201205 Added AUTO-DELETE attribute implementation.
+**     OM  20201218 Fixed implementation for error and rejected attributes/hidden fields.
+**     OM  20210127 Replaced TableMapper.getLegacyName() triple map lookup with direct access to local
+**                  dmoMeta.legacyTable. Fixed implementation of validate() method/statement.
 */
 
 /*
@@ -232,8 +239,8 @@
 import java.io.*;
 import java.util.*;
 import java.util.function.*;
-import java.lang.*;
 import java.lang.reflect.*;
+import java.util.logging.*;
 import com.goldencode.p2j.*;
 import com.goldencode.p2j.persist.event.*;
 import com.goldencode.p2j.persist.lock.*;
@@ -242,11 +249,15 @@
 import com.goldencode.p2j.persist.serial.*;
 import com.goldencode.p2j.util.*;
 import com.goldencode.p2j.util.BlockManager.TransactionType;
+import com.goldencode.p2j.util.ErrorManager;
+import com.goldencode.p2j.util.LogHelper;
 import com.goldencode.p2j.util.UniqueIdGenerator.*;
 import com.goldencode.p2j.persist.TempTable.BeforeType;
 import com.goldencode.util.*;
 import com.google.common.collect.*;
 
+import static com.goldencode.p2j.util.BlockManager.*;
+
 /**
  * This class implements services representing Progress builtin functions,
  * methods, attributes, and language statements, which operate on record
@@ -280,10 +291,11 @@
  */
 public abstract class BufferImpl
 extends HandleChain
-implements Buffer,
-           Fillable,
-           QueryAssociable
+implements Buffer
 {
+   /** Logger */
+   private static final Logger log = LogHelper.getLogger(BufferImpl.class.getName());
+   
    /**
     * Special 'pointer' used in management of BUFFER resources. This helps delimit the TEMP-tables
     * from PERMANENT ones in the list of BUFFERs. The TEMP-TABLE buffers are kept always in front
@@ -299,24 +311,6 @@
    /** Corresponds to UNIQUE-ID attribute. */
    private final integer uniqueID = new integer(UniqueIdGenerator.getUniqueId(IdKind.BUFFER));
    
-   /**
-    * The current value of boolean {@code REJECTED} attribute: indicates whether a change to the
-    * data of this {@code DataSet} is rejected. The attribute is writable.
-    */
-   private boolean rejected = false;
-   
-   /**
-    * The default NAMESPACE-URI attribute. Because it is null, it will assigned to BDT as
-    * {@code unknown} value.
-    *
-    * TODO:
-    * This attribute (NAMESPACE-URI) from CREATE TEMP-TABLE is not handled at all in the P2J
-    * conversion so it completely removed in the generated code.
-    * It should be stored in the buffer/table.
-    * For the moment it is stored here so the getter/setter to partially work.
-    */
-   private String namespaceURI = null;
-   
    /** Flag indicating this buffer was deleted. */
    private boolean deleted;
    
@@ -335,12 +329,21 @@
    /** The current value of BATCH-SIZE attribute. Valid only when {@code dataSet} is valid. */
    private int batchSize = 0;
    
+   /** Current value of the {@code DATA-SOURCE-MODIFIED} attribute. */
+   private boolean dataSourceModified = false;
+   
+   /** The current value of LAST-BATCH attribute. Valid only when {@code dataSet} is valid. */
+   private boolean lastBatch = false;
+   
    /**
     * The current value of the {@code FILL-MODE} attribute. The default value is {@code MERGE}.  For buffers
     * not part of a dataset, {@link #fillMode()} will return the unknown value. 
     */
    private String fillMode = FM_MERGE;
    
+   /** The current value of AUTO-DELETE attribute. */
+   private boolean autoDelete = true;
+   
    /**
     * Flag used for bracketing internal management of BEFORE-BUFFER. ABL programmer's direct
     * actions (CREATE/DELETE/ALTER buffer) are outside this bracket and will lead to errors. 
@@ -359,8 +362,8 @@
    /** The mapping of fields in data source. */
    private Map<CaseInsensitiveString, DataSource.FieldReference> dataSrcMapping = null;
    
-   /** A map with all known callbacks. The keys MUST be in UPPERCASE.*/
-   private Map<String, CallbackData> callbacks = new HashMap<>();
+   /** A map with all known callbacks. The keys MUST be in UPPERCASE. */
+   private final Map<String, CallbackData> callbacks = new HashMap<>();
    
    /** This is not null, when a Buffer proxy overrides the name and a backup is required */
    private character oldName;
@@ -369,14 +372,14 @@
     * The cached peer buffer. For AFTER-BUFFER it is the BEFORE-BUFFER and vice-versa. The SIMPLE
     * buffers do not have a peer buffer.
     */
-   private BufferImpl peerBuffer = null;
+   protected BufferImpl peerBuffer = null;
    
    /** The mode for finding (first, last, unique) records in a dynamic call to a buffer handle. */
-   private enum FindMode
+   enum FindMode
    {
       FIRST,   /* apply first() to a query */
-      LAST,    /* apply first() to a query */
-      UNIQUE   /* apply first() to a query */
+      LAST,    /* apply last() to a query */
+      UNIQUE   /* apply unique() to a query */
    }
    
    /**
@@ -507,36 +510,136 @@
     * @return  the value of BUFFER:LAST-BATCH attribute.
     */
    @Override
-   public logical isLastBatch()
-   {
-      UnimplementedFeature.missing("BUFFER:LAST-BATCH");
-      return new logical();
-   }
-
-   /**
-    * Set the BUFFER:LAST-BATCH attribute.
-    * 
-    * @param    lastBatch
-    *           The flag state.
-    */
-   @Override
-   public void setLastBatch(boolean lastBatch)
-   {
-      UnimplementedFeature.missing("BUFFER:LAST-BATCH");
-   }
-   
-   /**
-    * Set the BUFFER:LAST-BATCH attribute.
-    * 
-    * @param    lastBatch
-    *           The flag state.
-    */
-   @Override
-   public void setLastBatch(logical lastBatch)
-   {
-      UnimplementedFeature.missing("BUFFER:LAST-BATCH");
-   }
-
+   public logical lastBatch()
+   {
+      return (dataSet == null) ? new logical() : new logical(lastBatch && batchSize > 0);
+   }
+   
+   /**
+    * Set the BUFFER:LAST-BATCH attribute.
+    * 
+    * @param    lastBatch
+    *           The flag state.
+    */
+   @Override
+   public void lastBatch(boolean lastBatch)
+   {
+      if (dataSet == null)
+      {
+         ErrorManager.recordOrShowError(12360, null, null);
+         return;
+      }
+      
+      // all checked, can set value now:
+      this.lastBatch = lastBatch; 
+   }
+   
+   /**
+    * Set the BUFFER:LAST-BATCH attribute.
+    * 
+    * @param    lastBatch
+    *           The flag state.
+    */
+   @Override
+   public void lastBatch(logical lastBatch)
+   {
+      if (lastBatch == null || lastBatch.isUnknown())
+      {
+         ErrorManager.recordOrShowError(4083, "LAST-BATCH", "BUFFER widget");
+         return;
+      }
+      
+      lastBatch(lastBatch.booleanValue()); 
+   }
+   
+   /**
+    * Get the BUFFER:AUTO-DELETE attribute.
+    *
+    * @return  the value of BUFFER:AUTO-DELETE attribute.
+    */
+   @Override
+   public logical autoDelete()
+   {
+      if (!_dynamic() || dataSet == null)
+      {
+         return new logical();
+      }
+      
+      return new logical(this.autoDelete);
+   }
+   
+   /**
+    * Set the BUFFER:AUTO-DELETE attribute.
+    *
+    * @param    autoDelete
+    *           The flag state.
+    */
+   @Override
+   public void autoDelete(boolean autoDelete)
+   {
+      this.autoDelete = autoDelete;
+   }
+   
+   /**
+    * Set the BUFFER:AUTO-DELETE attribute.
+    *
+    * @param    autoDelete
+    *           The flag state.
+    */
+   @Override
+   public void autoDelete(logical autoDelete)
+   {
+      if (autoDelete == null || autoDelete.isUnknown())
+      {
+         ErrorManager.recordOrShowError(4083, "AUTO-DELETE", LegacyResource.BUFFER + " widget");
+         // **Unable to assign UNKNOWN value to attribute <attribute> on <widget id>.
+         return;
+      }
+      
+      autoDelete(autoDelete.booleanValue());
+   }
+   
+   /**
+    * Checks whether the data in the data source has been modified.
+    *
+    * @return  {@code true} when the data has been modified.
+    */
+   @Override
+   public logical isDataSourceModified()
+   {
+      return new logical(dataSourceModified);
+   }
+   
+   /**
+    * Manually mark the data in the target structure as modified.
+    *
+    * @param   mod
+    *          {@code true} when the data is marked as modified and {@code false} otherwise.
+    */
+   @Override
+   public void setDataSourceModified(logical mod)
+   {
+      if (mod == null || mod.isUnknown())
+      {
+         unableToAssignUnknown("DATA-SOURCE-MODIFIED", "DATASET widget");
+         return;
+      }
+      
+      setDataSourceModified(mod.getValue());
+   }
+   
+   /**
+    * Manually mark the data in the target structure as modified.
+    *
+    * @param   mod
+    *          {@code true} when the data is marked as modified and {@code false} otherwise.
+    */
+   @Override
+   public void setDataSourceModified(boolean mod)
+   {
+      this.dataSourceModified = mod;
+   }
+   
    /**
     * Reports if this object is valid for use.
     *
@@ -778,39 +881,7 @@
    {
       UnimplementedFeature.missing("BUFFER:IS-MULTI-TENANT");
    }
-
-   /**
-    * Definition of the SERIALIZE-ROW method. Writes current row from this buffer into the specified data 
-    * target, using the specified format.
-    * 
-    * @param   targetFormat
-    *          The format ("xml" or "json").
-    * @param   target
-    *          Data target.
-    * @param   formatted
-    *          {@code True} to format the datato make it more readable; {@code false} to write it
-    *          as unformatted text. Unknown value is treated as {@code false}.
-    * @param   encoding
-    *          Name of the character encoding to use.
-    * @param   omitInitialValues
-    *          {@code True} to omit data for fields whose values match their initial values.
-    * @param   omitOuterObject
-    *          {@code True} to omit data for the outermost object from the output.
-    * 
-    * @return  {@code True} if the operation completed successfully, else {@code false}.
-    */
-   @Override
-   public logical serializeRow(character  targetFormat, 
-                               TargetData target, 
-                               logical    formatted, 
-                               character  encoding, 
-                               logical    omitInitialValues,
-                               logical    omitOuterObject)
-   {
-      UnimplementedFeature.missing("BUFFER:SERIALIZE-ROW");
-      return new logical();
-   }
-
+   
    /**
     * Perform a RAW-TRANSFER operation from this buffer to the given raw variable. Serializes the
     * record currently in the buffer into the specified field.
@@ -1324,7 +1395,7 @@
       }
       
       // no validation is taken in consideration
-      return deleteRecord(() -> new logical(true), "");
+      return deleteRecord(() -> new logical(true), () -> new character("")); 
    }
    
    /**
@@ -1384,10 +1455,8 @@
             Class<? extends DataModelObject> iface = buffer.getDMOInterface();
             if (TableMapper.hasValidation(iface))
             {
-               String msg = String.format(
-                  "Table %s is defined with schema delete validation" +
-                  " and may only be deleted by the DELETE statement",
-                  TableMapper.getLegacyName(iface));
+               String msg = "Table " + buffer.dmoInfo.legacyTable + " is defined with schema delete " +
+                            "validation and may only be deleted by the DELETE statement";
                ErrorManager.recordOrShowError(7347, msg, false, false);
                
                return new logical(false);
@@ -1395,18 +1464,27 @@
          }
       }
       
+      if (dataSet != null) // implies buffer.isTemporary()
+      {
+         // checks whether tracking is active
+         if (buffer.getParentTable().isTrackingChanges().toJavaType())
+         {
+            if (!invokeCallback(ROW_DELETE_EVENT))
+            {
+               returnError(); // veto on record delete
+            }
+         }
+      }
+      
       try
       {
          buffer.delete(valexp, valmsg);
-         
-         return new logical(true);
       }
-      catch (PersistenceException exc)
+      catch (PersistenceException e)
       {
-         ErrorManager.recordOrThrowError(exc);
-         
          return new logical(false);
       }
+      return new logical(true);
    }
    
    /**
@@ -1430,7 +1508,7 @@
     *
     * @param   suppDMOs
     *          The DMOs for the external (additional) buffers that are accessed in inner
-    *          subselect, or {@code null} in case of a simple {@code where} predicate.  
+    *          subselect, or {@code null} in case of a simple {@code where} predicate.
     * @param   where
     *          An HQL where clause snippet which defines the restriction criteria to apply to the
     *          delete.  All references to properties in a DMO must be unqualified.
@@ -1442,7 +1520,7 @@
     * @throws  UnsupportedOperationException
     *          if invoked on a buffer associated with a permanent table.
     */
-   public void delete(DataModelObject[] suppDMOs, String where, Object ...args)
+   public void delete(DataModelObject[] suppDMOs, String where, Object... args)
    {
       AbstractQuery.preprocessSubstitutionArguments(BufferManager.get(), args);
       try
@@ -1806,6 +1884,7 @@
     * @throws  ErrorConditionException
     *          if the buffer fails validation.
     */
+   @Override
    public void release()
    {
       buffer().release(true);
@@ -1817,15 +1896,17 @@
     * @throws  ErrorConditionException
     *          if the buffer fails validation.
     */
+   @Override
    public void validate()
    {
       try
       {
-         buffer().validate(false);
-      } 
+         buffer().validate(true);
+      }
       catch (ValidationException e)
       {
-         // should never happen
+         // rethrow as 4GL error condition
+         ErrorManager.recordOrThrowError(e.getNumber(), e.getMessage(), false, false);
       }
    }
    
@@ -1838,18 +1919,21 @@
    @Override
    public logical bufferValidate()
    {
+      RecordBuffer recBuf = buffer();
+      
       try
       {
-         buffer().validate(true);
+         recBuf.validate(true);
          return new logical(true);
       }
       catch (ValidationException e)
       {
-         if (buffer().isNewlyCreated())
+         if (recBuf.isNewlyCreated())
          {
             ErrorManager.recordOrShowError(e.getNumber(), e.getMessage(), false, false, false);
          }
       }
+      
       return new logical(false);
    }
    
@@ -1938,11 +2022,13 @@
    @Override
    public handle bufferField(int fieldNumber)
    {
-      final int fieldCount = _numFields();
+      int fieldCount = _numFields();
+      RecordBuffer recBuf = buffer();
+      String legacyTableName = recBuf.dmoInfo.legacyTable;
       if (fieldNumber <= 0 || fieldNumber > fieldCount)
       {
          String msg = "BUFFER-FIELD sequence number must be from 1 to " +
-                      fieldCount + " for buffer " + TableMapper.getLegacyName(this);
+                      fieldCount + " for buffer " + legacyTableName;
          ErrorManager.recordOrShowError(7350, msg, false, false, false);
          
          return new handle();
@@ -1953,17 +2039,16 @@
       //       greater than the [fieldCount] computed above.
       
       String hibernateName;
-      TempTable parentTempTable = buffer().getParentTable();
+      TempTable parentTempTable = recBuf.getParentTable();
       if (parentTempTable != null && parentTempTable._dynamic())
       {
          // dynamic table
-         hibernateName = DynamicTablesHelper.getHibernateFieldName(buffer().getDMOInterface(),
-                                                                   fieldNumber);
+         hibernateName = DynamicTablesHelper.getHibernateFieldName(recBuf.getDMOInterface(), fieldNumber);
       }
       else
       {
          // static temporary or permanent table
-         Database database = buffer().getDatabase();
+         Database database = recBuf.getDatabase();
          if (database.equals(DatabaseManager.TEMP_TABLE_DB))
          {
             hibernateName = TableMapper.getPropertyName(parentTempTable, fieldNumber);
@@ -1971,7 +2056,6 @@
          else
          {
             String schema = DatabaseManager.getSchema(database);
-            String legacyTableName = TableMapper.getLegacyName(this);
             hibernateName = TableMapper.getPropertyName(schema, legacyTableName, fieldNumber);
          }
       }
@@ -1994,7 +2078,7 @@
    public handle bufferField(String fieldName)
    {
       RecordBuffer buffer = buffer();
-      String legacyTableName = TableMapper.getLegacyName(this);
+      String legacyTableName = buffer().dmoInfo.legacyTable;
       String hibernateName = getHibernateField(fieldName, buffer, legacyTableName);
       
       if (hibernateName == null)
@@ -2460,10 +2544,9 @@
    /**
     * Conversion of BUFFER-CREATE() method (KW_BUF_CREA).
     *
-    * Creates a record, sets fields to their default values, and moves a copy of the record into 
-    * the buffer.
+    * Creates a record, sets fields to their default values, and moves a copy of the record into the buffer.
     *
-    * @return  <code>true</code> if successful
+    * @return  {@code true} if successful
     */
    public logical bufferCreate()
    {
@@ -2481,17 +2564,8 @@
          return new logical(false);
       }
       
-      boolean success = true;
-      try
-      {
-         buffer.create();
-      }
-      catch (ErrorConditionException exc)
-      {
-         success = false;
-      }
-      
-      return new logical(success);
+      buffer.create();
+      return new logical(true);
    }
    
    /**
@@ -3738,8 +3812,7 @@
       final Class<?> dmoBuf = buffer().getDMOBufInterface();
       if (Buffer.class.isAssignableFrom(dmoBuf))
       {
-         DatabaseTriggerManager.disableLoadTriggers((Class<? extends Buffer>) dmoBuf,
-                                                    allowReplication);
+         DatabaseTriggerManager.disableLoadTriggers((Class<? extends Buffer>) dmoBuf, allowReplication);
       }
    }
    
@@ -3770,7 +3843,7 @@
          // permanent table case
          ErrorManager.recordOrShowError(11917, doGetName());
          // Cannot set ERROR if there is no BEFORE-TABLE for <name>.
-         ErrorManager.recordOrShowError(3131, "ERROR-STRING", "", "BUFFER");
+         ErrorManager.recordOrShowError(3131, "ERROR-STRING", "", LegacyResource.BUFFER);
          // Unable to set attribute <attribute name> in widget <widget name> of type <widget-type>.
          return;
       }
@@ -3780,7 +3853,7 @@
          // temp-tables case
          ErrorManager.recordOrShowError(11916, doGetName());
          // <name> record is not available to set ERROR in.
-         ErrorManager.recordOrShowError(3131, "ERROR-STRING", "", "BUFFER");
+         ErrorManager.recordOrShowError(3131, "ERROR-STRING", "", LegacyResource.BUFFER);
          // Unable to set attribute <attribute name> in widget <widget name> of type <widget-type>.
       }
       
@@ -3795,8 +3868,6 @@
          }
       }
       
-      // NOTE: internally, the P4GL database the __error-flag__ is an integer, we do the same,
-      //       but here we need to convert to integer
       buffer().errorString(errStr);
    }
    
@@ -3808,18 +3879,19 @@
    @Override
    public character errorString()
    {
-      if (!buffer().isAvailable() || !buffer().isTemporary())
-      {
-         return new character();
-      }
-      
-      handle hds = isBeforeBuffer() ? peerBuffer.dataSet() : dataSet();
-      if (hds.isUnknown())
-      {
-         return new character();
-      }
-      
-      return buffer().errorString();
+      RecordBuffer recBuf = buffer();
+      if (!recBuf.isAvailable() || !recBuf.isTemporary())
+      {
+         return new character();
+      }
+      
+      DataSet ds = _dataSet();
+      if (ds == null)
+      {
+         return new character();
+      }
+      
+      return recBuf.errorString();
    }
    
    /**
@@ -3827,62 +3899,65 @@
     *
     * @return  Current state of the ERROR attribute.
     */
-   public logical isError()
+   @Override
+   public logical error()
    {
-      if (!buffer().isAvailable() || !buffer().isTemporary())
-      {
-         return new logical(false);
-      }
-      
-      handle hds = isBeforeBuffer() ? peerBuffer.dataSet() : dataSet();
-      if (hds.isUnknown())
-      {
-         return new logical(false);
-      }
-      
-      // NOTE: internally, the P4GL database the __error-flag__ is an integer, we do the same,
-      //       but here we need to convert to logical
-      integer val = buffer().errorFlag();
-      return new logical(!val.isUnknown() && val.intValue() != 0);
+      RecordBuffer recBuf = buffer();
+      if (!recBuf.isAvailable() || !recBuf.isTemporary())
+      {
+         return new logical(false);
+      }
+      
+      DataSet ds = _dataSet();
+      if (ds == null)
+      {
+         return new logical(false);
+      }
+      
+      // NOTE: internally, the P4GL database the __error-flag__ is an integer storing multiple flags.
+      //       We need to extract the right bit (ERROR_ERROR) and convert it to a logical value.
+      Integer flags = recBuf.errorFlags();
+      return new logical(flags != null && (flags & Buffer.ERROR_ERROR) != 0);
    }
    
    /**
-    * Setter for ERROR attribute.
-    * The ERROR attribute is writable for a Buffer object. The attribute can be set
-    * programmatically in order to manage the application response to errors.
-    * If set to FALSE, the application will ignore all errors that might be returned for a
-    * statement using the NO-ERROR option.
-    * However, manually setting this attribute won't raise the ERROR condition.
+    * Setter for {@code ERROR} attribute.<br>
+    * The {@code ERROR} attribute is writable for a {@code Buffer} object. The attribute can be set
+    * programmatically in order to manage the application response to errors.<br>
+    * If set to {@code FALSE}, the application will ignore all errors that might be returned for a
+    * statement using the {@code NO-ERROR} option.<br>
+    * However, manually setting this attribute won't raise the {@code ERROR} condition.
     *
     * @param    value
-    *           The new value of ERROR attribute.
+    *           The new value of {@code ERROR} attribute.
     */
-   public void setError(boolean value)
+   @Override
+   public void error(boolean value)
    {
-      RecordBuffer buf = buffer();
-      if (!buf.isTemporary())
+      RecordBuffer recBuf = buffer();
+      if (!_available())
+      {
+         // temp-tables case
+         ErrorManager.recordOrShowError(11916, doGetName());
+         // <name> record is not available to set ERROR in.
+         ErrorManager.recordOrShowError(3131, "ERROR", "", LegacyResource.BUFFER);
+         // Unable to set attribute <attribute name> in widget <widget name> of type <widget-type>.
+      }
+      
+      if (!recBuf.isTemporary())
       {
          // permanent table case
          ErrorManager.recordOrShowError(11917, doGetName());
          // Cannot set ERROR if there is no BEFORE-TABLE for <name>.
-         ErrorManager.recordOrShowError(3131, "ERROR", "", "BUFFER");
+         ErrorManager.recordOrShowError(3131, "ERROR", "", LegacyResource.BUFFER);
          // Unable to set attribute <attribute name> in widget <widget name> of type <widget-type>.
          return;
       }
       
-      if (!_available())
-      {
-         // temp-tables case
-         ErrorManager.recordOrShowError(11916, doGetName());
-         // <name> record is not available to set ERROR in.
-         ErrorManager.recordOrShowError(3131, "ERROR", "", "BUFFER");
-         // Unable to set attribute <attribute name> in widget <widget name> of type <widget-type>.
-      }
-      
       if (!isBeforeBuffer())
       {
          if (!isAfterBuffer() || // SIMPLE BUFFER
-             (buf.peerRowid() == null || buf.peerRowid().isUnknown())) // no AFTER-IMAGE
+             (recBuf.peerRowid() == null || recBuf.peerRowid().isUnknown())) // no AFTER-IMAGE
          {
             ErrorManager.recordOrShowError(11918, doGetName(), "");
             // Cannot set ERROR if there is no BEFORE-TABLE row for <name>.
@@ -3890,9 +3965,9 @@
          }
       }
       
-      // NOTE: internally, the P4GL database the __error-flag__ is an integer, we do the same,
-      //       but here we need to convert to integer
-      buffer().errorFlag(new integer(value ? 1 : 0));
+      // NOTE: internally, the P4GL database the __error-flag__ is an integer storing multiple flags.
+      //       We need to update the right bit (ERROR_ERROR) to new state (value).
+      recBuf.updateErrorFlags(Buffer.ERROR_ERROR, value);
    }
    
    /**
@@ -3901,9 +3976,10 @@
     * @param   value
     *          The new value of ERROR attribute.
     */
-   public void setError(logical value)
+   @Override
+   public void error(logical value)
    {
-      setError(value.booleanValue());
+      error(value.booleanValue());
    }
    
    /**
@@ -3931,8 +4007,7 @@
     */
    public character getTable()
    {
-      // the buffer().getTable() because is NOT what we need here (the legacy name)
-      return new character(TableMapper.getLegacyName(this));
+      return new character(buffer().dmoInfo.legacyTable);
       // alternately, we could return this.name;
    }
    
@@ -4093,33 +4168,33 @@
     * @return  See above.
     */
    @Override
-   public character getNamespaceURI()
-   {
-      return new character(namespaceURI);
-   }
-   
-   /**
-    * Setter for NAMESPACE-URI attribute.
-    *
-    * @param   uri
-    *          The new value of the NAMESPACE-URI attribute.
-    */
-   @Override
-   public void setNamespaceURI(String uri)
-   {
-      namespaceURI = uri;
-   }
-   
-   /**
-    * Setter for NAMESPACE-URI attribute.
-    *
-    * @param   uri
-    *          The new value of the NAMESPACE-URI attribute.
-    */
-   @Override
-   public void setNamespaceURI(character uri)
-   {
-      setNamespaceURI(uri == null ? null : uri.getValue());
+   public character namespaceURI()
+   {
+      return buffer().getParentTable().namespaceURI();
+   }
+   
+   /**
+    * Setter for NAMESPACE-URI attribute.
+    *
+    * @param   uri
+    *          The new value of the NAMESPACE-URI attribute.
+    */
+   @Override
+   public void namespaceURI(String uri)
+   {
+      buffer().getParentTable().namespaceURI(uri);
+   }
+   
+   /**
+    * Setter for NAMESPACE-URI attribute.
+    *
+    * @param   uri
+    *          The new value of the NAMESPACE-URI attribute.
+    */
+   @Override
+   public void namespaceURI(character uri)
+   {
+      buffer().getParentTable().namespaceURI(uri);
    }
    
    /**
@@ -4130,49 +4205,31 @@
    @Override
    public character getSerializeName()
    {
-      TempTable tempTable = buffer().getParentTable();
-      if (tempTable == null)
-      {
-         // permanent tables cannot change the serialized name. Doing so on P4GL will crash their
-         // client application. However, read access is permitted and the legacy name is returned
-         return new character(TableMapper.getLegacyName(this));
-      }
-      
-      String sName = TableMapper.getSerializeOptions(this).getSerializeName();
-      return new character(
-            sName == null || sName.trim().isEmpty() ? TableMapper.getLegacyName(this) : sName);
+      return buffer().getParentTable().getSerializeName();
    }
    
    /**
     * Implementation of the write access of the {@code SERIALIZE-NAME} attribute.
     *
     * @param   sName
-    *          the new value for the {@code SERIALIZE-NAME} attribute. 
+    *          the new value for the {@code SERIALIZE-NAME} attribute.
     */
    @Override
    public void setSerializeName(Text sName)
    {
-      setSerializeName(sName == null || sName.isUnknown() ? null : sName.getValue());
+      buffer().getParentTable().setSerializeName(sName);
    }
    
    /**
     * Implementation of the write access of the {@code SERIALIZE-NAME} attribute.
     *
     * @param  sName
-    *         The new value for the {@code SERIALIZE-NAME} attribute. 
+    *         The new value for the {@code SERIALIZE-NAME} attribute.
     */
    @Override
    public void setSerializeName(String sName)
    {
-      TempTable tempTable = buffer().getParentTable();
-      if (tempTable == null)
-      {
-         // permanent tables cannot change the serialized name. Doing so on P4GL will crash their
-         // client application
-         return;
-      }
-      
-      TableMapper.getSerializeOptions(this).setSerializeName(sName == null ? "" : sName);
+      buffer().getParentTable().setSerializeName(sName);
    }
    
    /**
@@ -4218,8 +4275,8 @@
    {
       if (fieldNumber == null || fieldNumber.isUnknown())
       {
-         String msg = "Argument for BUFFER-FIELD method for buffer " + 
-                      TableMapper.getLegacyName(this) + " could not be evaluated";
+         String msg = "Argument for BUFFER-FIELD method for buffer " +
+                      buffer().dmoInfo.legacyTable + " could not be evaluated";
          ErrorManager.recordOrShowError(7349, msg, false, false, false);
          return new handle();
       }
@@ -4242,8 +4299,8 @@
    {
       if (fieldName.isUnknown())
       {
-         String msg = "Argument for BUFFER-FIELD method for buffer " + 
-                      TableMapper.getLegacyName(this) + " could not be evaluated";
+         String msg = "Argument for BUFFER-FIELD method for buffer " +
+                      buffer().dmoInfo.legacyTable + " could not be evaluated";
          ErrorManager.recordOrShowError(7349, msg, false, false, false);
          
          // TODO: if this message needs to be displayed, the code must be moved in other place
@@ -4294,8 +4351,7 @@
       // we don't emulate this at this time.
       UnimplementedFeature.missing("BUFFER-POLY(incompatible-BDT) not implemented!");
       
-      String legacyTableName = TableMapper.getLegacyName(this);
-      String msg = "BUFFER-FIELD " + fieldName + " was not found in buffer " + legacyTableName;
+      String msg = "BUFFER-FIELD " + fieldName + " was not found in buffer " + buffer().dmoInfo.legacyTable;
       ErrorManager.recordOrShowError(7351, msg, false, false, false);
       
       // return unknown handle
@@ -4840,6 +4896,136 @@
    }
    
    /**
+    * Definition of the SERIALIZE-ROW method. Writes current row from this buffer into the specified data 
+    * target, using the specified format.
+    *
+    * @param   targetFormat
+    *          The format ("xml" or "json").
+    * @param   target
+    *          Data target.
+    * @param   formatted
+    *          {@code True} to format the data for making it more readable; {@code false} to write it
+    *          as unformatted text. Unknown value is treated as {@code false}.
+    * @param   encoding
+    *          Name of the character encoding to use.
+    * @param   omitInitialValues
+    *          {@code True} to omit data for fields whose values match their initial values.
+    *
+    * @return  {@code True} if the operation completed successfully, else {@code false}.
+    */
+   @Override
+   public logical serializeRow(character  targetFormat,
+                               TargetData target,
+                               logical    formatted,
+                               character  encoding,
+                               logical    omitInitialValues)
+   {
+      return new logical(serializeRowImpl(targetFormat.toJavaType(),
+                                          target,
+                                          formatted.toJavaType(),
+                                          encoding.toJavaType(),
+                                          omitInitialValues.toJavaType(),
+                                          null));
+   }
+   
+   /**
+    * Definition of the SERIALIZE-ROW method. Writes current row from this buffer into the specified data 
+    * target, using the specified format.
+    *
+    * @param   format
+    *          The format ("xml" or "json").
+    * @param   target
+    *          Data target.
+    * @param   formatted
+    *          {@code True} to format the data for making it more readable; {@code false} to write it
+    *          as unformatted text. Unknown value is treated as {@code false}.
+    * @param   encoding
+    *          Name of the character encoding to use.
+    *
+    * @return  {@code True} if the operation completed successfully, else {@code false}.
+    */
+   @Override
+   public logical serializeRow(character format, TargetData target, logical formatted, character encoding)
+   {
+      return new logical(serializeRowImpl(
+            format.toJavaType(), target, formatted.toJavaType(), encoding.toJavaType(), null, null));
+   }
+   
+   /**
+    * Definition of the SERIALIZE-ROW method. Writes current row from this buffer into the specified data 
+    * target, using the specified format.
+    *
+    * @param   format
+    *          The format ("xml" or "json").
+    * @param   target
+    *          Data target.
+    * @param   formatted
+    *          {@code True} to format the data for making it more readable; {@code false} to write it
+    *          as unformatted text. Unknown value is treated as {@code false}.
+    *
+    * @return  {@code True} if the operation completed successfully, else {@code false}.
+    */
+   @Override
+   public logical serializeRow(character format, TargetData target, logical formatted)
+   {
+      return new logical(serializeRowImpl(
+            format.toJavaType(), target, formatted.toJavaType(), null, null, null));
+   }
+   
+   /**
+    * Definition of the SERIALIZE-ROW method. Writes current row from this buffer into the specified data 
+    * target, using the specified format.
+    *
+    * @param   format
+    *          The format ("xml" or "json").
+    * @param   target
+    *          Data target.
+    *
+    * @return  {@code True} if the operation completed successfully, else {@code false}.
+    */
+   @Override
+   public logical serializeRow(character format, TargetData target)
+   {
+      return new logical(serializeRowImpl(format.toJavaType(), target, null, null, null, null));
+   }
+   
+   /**
+    * Definition of the SERIALIZE-ROW method. Writes current row from this buffer into the specified data 
+    * target, using the specified format.
+    *
+    * @param   targetFormat
+    *          The format ("xml" or "json").
+    * @param   target
+    *          Data target.
+    * @param   formatted
+    *          {@code True} to format the data for making it more readable; {@code false} to write it
+    *          as unformatted text. Unknown value is treated as {@code false}.
+    * @param   encoding
+    *          Name of the character encoding to use.
+    * @param   omitInitialValues
+    *          {@code True} to omit data for fields whose values match their initial values.
+    * @param   omitOuterObject
+    *          {@code True} to omit data for the outermost object from the output.
+    *
+    * @return  {@code True} if the operation completed successfully, else {@code false}.
+    */
+   @Override
+   public logical serializeRow(character  targetFormat,
+                               TargetData target,
+                               logical    formatted,
+                               character  encoding,
+                               logical    omitInitialValues,
+                               logical    omitOuterObject)
+   {
+      return new logical(serializeRowImpl(targetFormat.toJavaType(),
+                                          target,
+                                          formatted.toJavaType(),
+                                          encoding.toJavaType(),
+                                          omitInitialValues.toJavaType(),
+                                          omitOuterObject.toJavaType()));
+   }
+   
+   /**
     * Reads XML Schema from an XML document and uses that schema to either create a schema for a
     * {@code TempTable} or {@code TempTable} or verify existing schema in a {@code TempTable},
     * {@code TempTable} or temp-table {@code Buffer} object.
@@ -4908,8 +5094,7 @@
                                 Text mapping,
                                 Text verifyMode)
    {
-      UnimplementedFeature.missing("READ-XMLSCHEMA method not implemented");
-      return new logical();
+      return TempTableBuilder.asTempTable((Temporary) this).readXmlSchema(source, override, mapping, verifyMode);
    }
    
    /**
@@ -5441,10 +5626,7 @@
    @Override
    public void setQueryAsHandle(handle qry)
    {
-      ErrorManager.recordOrShowError(4052,
-                                     "QUERY is not a settable attribute for BUFFER widget",
-                                     true,
-                                     true);
+      handle.invalidAttribute("QUERY", true, LegacyResource.BUFFER);
    }
    
    /**
@@ -5457,10 +5639,7 @@
    @Override
    public void setQueryAsHandle(QueryWrapper qry)
    {
-      ErrorManager.recordOrShowError(4052,
-                                     "QUERY is not a settable attribute for BUFFER widget",
-                                     true,
-                                     true);
+      handle.invalidAttribute("QUERY", true, LegacyResource.BUFFER);
    }
    
    /**
@@ -5526,13 +5705,14 @@
    @Override
    public rowid afterRowid()
    {
-      if (isAfterBuffer() || !buffer().isAvailable())
+      RecordBuffer recBuf = buffer();
+      if (isAfterBuffer() || !recBuf.isAvailable())
       {
          // AFTER-ROWID is only available for BEFORE-BUFFERS of DATASETs
          return new rowid();
       }
       
-      return buffer().peerRowid();
+      return recBuf.peerRowid();
    }
    
    /**
@@ -5546,13 +5726,14 @@
    @Override
    public rowid beforeRowid()
    {
-      if (isBeforeBuffer() || !buffer().isAvailable())
+      RecordBuffer recBuf = buffer();
+      if (isBeforeBuffer() || !recBuf.isAvailable())
       {
          // BEFORE-ROWID is only available for AFTER-BUFFERS of DATASETs
          return new rowid();
       }
       
-      return buffer().peerRowid();
+      return recBuf.peerRowid();
    }
    
    /**
@@ -5565,13 +5746,14 @@
    @Override
    public integer rowState()
    {
-      if (!buffer().isAvailable() || !buffer().isTemporary())
+      RecordBuffer recBuf = buffer();
+      if (!recBuf.isAvailable() || !recBuf.isTemporary() || beforeBufferType == BeforeType.SIMPLE)
       {
          return new integer();
       }
       
       // even if there is no dataset for this table, the rowState can be read.
-      return buffer().rowState();
+      return recBuf.rowState();
    }
    
    /**
@@ -5602,8 +5784,9 @@
          // find and update the after-image/record
          BufferImpl after = (BufferImpl) afterBuffer().unwrapBuffer();
          after.findByRowID(this.afterRowid());
-         after.buffer().peerRowid(new rowid());
-         after.buffer().rowState(Buffer.ROW_UNMODIFIED);
+         RecordBuffer afterRecBuf = after.buffer();
+         afterRecBuf.peerRowid(new rowid());
+         afterRecBuf.rowState(Buffer.ROW_UNMODIFIED);
       }
       // otherwise (DELETE - after image is already deleted)
       
@@ -5640,7 +5823,8 @@
       // find and update the after-image/record
       BufferImpl after = (BufferImpl) afterBuffer().unwrapBuffer();
       TemporaryBuffer afterImage = (TemporaryBuffer) after.buffer();
-      switch (buffer().rowState().toJavaIntegerType())
+      RecordBuffer recBuf = buffer();
+      switch (recBuf.rowState().toJavaIntegerType())
       {
          case Buffer.ROW_CREATED:
             after.findByRowID(this.afterRowid());
@@ -5648,16 +5832,12 @@
             break;
          case Buffer.ROW_DELETED:
             after.create();
-            RecordBuffer.copyDMO(afterImage.getCurrentRecord(),
-                                 buffer().getCurrentRecord(),
-                                 after, this);
+            BaseRecord.copy(afterImage.getCurrentRecord(), recBuf.getCurrentRecord(), false);
             after.release();
             break;
          case Buffer.ROW_MODIFIED:
             after.findByRowID(this.afterRowid());
-            RecordBuffer.copyDMO(afterImage.getCurrentRecord(),
-                                 buffer().getCurrentRecord(),
-                                 after, this);
+            BaseRecord.copy(afterImage.getCurrentRecord(), recBuf.getCurrentRecord(), false);
             afterImage.peerRowid(new rowid());
             afterImage.rowState(Buffer.ROW_UNMODIFIED);
             after.release();
@@ -6003,6 +6183,7 @@
          // ATTACH-DATA-SOURCE must have a valid data-source handle as the first argument.
          return new logical(false);
       }
+      
       DataSource newDSrc = (DataSource) hds.unwrapDataSource();
       if (newDSrc._getNumSourceBuffers() == 0)
       {
@@ -6019,12 +6200,10 @@
          return new logical(false);
       }
       
-      // validate internal state
-      if (dataSource != null && dataSource.valid())
+      // silently return true if same data source is assigned
+      if (newDSrc == dataSource)
       {
-         ErrorManager.recordOrShowError(11958);
-         // ATTACH-DATA-SOURCE may not be called until source buffers have been assigned to the DATA-SOURCE.
-         return new logical(false);
+         return new logical(true);
       }
       
       // this must be a DataSet buffer
@@ -6269,7 +6448,9 @@
    @Override
    public rowid originRowid()
    {
-      if (!buffer().isTemporary() || !buffer().isAvailable())
+      RecordBuffer recBuf = buffer();
+      
+      if (!recBuf.isTemporary() || !recBuf.isAvailable())
       {
          return new rowid();
       }
@@ -6279,13 +6460,12 @@
          return new rowid();
       }
       
-      RecordBuffer buffer = buffer();
-      if (!buffer.isTemporary() || !buffer.isAvailable())
+      if (!recBuf.isTemporary() || !recBuf.isAvailable())
       {
          return new rowid();
       }
       
-      TempRecord record = (TempRecord) buffer.getCurrentRecord();
+      TempRecord record = (TempRecord) recBuf.getCurrentRecord();
       return new rowid(record._originRowid());
    }
    
@@ -6541,6 +6721,16 @@
    }
    
    /**
+    * Get the {@code DataSet} object of which the buffer is a member or {@code null} otherwise.
+    *
+    * @return  the {@code DataSet} object of which the buffer is a member.
+    */
+   public DataSet _dataSet()
+   {
+      return isBeforeBuffer() ? peerBuffer.ref().dataSet : dataSet;
+   }
+   
+   /**
     * Get the handle for the {@code DataSet} object of which the buffer is a member.
     *
     * @return  handle for the {@code DataSet} object of which the buffer is a member.
@@ -6548,11 +6738,7 @@
    @Override
    public handle dataSet()
    {
-      if (isBeforeBuffer())
-      {
-         return ((BufferImpl) afterBuffer().getResource()).ref().dataSet();
-      }
-      return new handle(dataSet);
+      return new handle(_dataSet());
    }
    
    /**
@@ -6598,7 +6784,7 @@
       
       for (DataRelation rel : rels)
       {
-         if (rel.isActive().getValue())
+         if (rel._isActive())
          {
             return new handle(rel);
          }
@@ -6752,33 +6938,33 @@
       }
       
       BufferImpl b4Buffer = (BufferImpl) beforeBuffer().unwrapBuffer();
+      RecordBuffer b4RecBuf = b4Buffer.buffer();
+      RecordBuffer recBuf = buffer();
       b4Buffer.setUpBeforeBuffer(true);
       switch ((int) newState)
       {
          case ROW_CREATED:
             b4Buffer.create();
-            buffer().rowState((int) newState);
-            buffer().peerRowid(b4Buffer.buffer().rowID());
-            b4Buffer.buffer().peerRowid(buffer().rowID());
-            b4Buffer.buffer().rowState((int) newState);
+            recBuf.rowState((int) newState);
+            recBuf.peerRowid(b4RecBuf.rowID());
+            b4RecBuf.peerRowid(recBuf.rowID());
+            b4RecBuf.rowState((int) newState);
             b4Buffer.release();
             break;
          case ROW_MODIFIED:
             b4Buffer.create();
             if (compRB != null)
             {
-               RecordBuffer.copyCommonFields(b4Buffer.buffer().getCurrentRecord(),
-                                             compRB.getCurrentRecord());
+               RecordBuffer.copyCommonFields(b4RecBuf.getCurrentRecord(), compRB.getCurrentRecord());
             }
             else
             {
-               RecordBuffer.copyCommonFields(b4Buffer.buffer().getCurrentRecord(),
-                                             buffer().getCurrentRecord());
+               RecordBuffer.copyCommonFields(b4RecBuf.getCurrentRecord(), recBuf.getCurrentRecord());
             }
-            buffer().rowState((int) newState);
-            buffer().peerRowid(b4Buffer.buffer().rowID());
-            b4Buffer.buffer().peerRowid(buffer().rowID());
-            b4Buffer.buffer().rowState((int) newState);
+            recBuf.rowState((int) newState);
+            recBuf.peerRowid(b4RecBuf.rowID());
+            b4RecBuf.peerRowid(recBuf.rowID());
+            b4RecBuf.rowState((int) newState);
             b4Buffer.release();
             break;
          case ROW_DELETED:
@@ -6786,16 +6972,14 @@
             b4Buffer.create();
             if (compRB != null)
             {
-               RecordBuffer.copyCommonFields(b4Buffer.buffer().getCurrentRecord(),
-                                             compRB.getCurrentRecord());
+               RecordBuffer.copyCommonFields(b4RecBuf.getCurrentRecord(), compRB.getCurrentRecord());
             }
             else 
             {
-               RecordBuffer.copyCommonFields(b4Buffer.buffer().getCurrentRecord(),
-                                             buffer().getCurrentRecord());
+               RecordBuffer.copyCommonFields(b4RecBuf.getCurrentRecord(), recBuf.getCurrentRecord());
             }
-            b4Buffer.buffer().peerRowid(new rowid());
-            b4Buffer.buffer().rowState((int) newState);
+            b4RecBuf.peerRowid(new rowid());
+            b4RecBuf.rowState((int) newState);
             b4Buffer.release();
             break;
       }
@@ -6872,7 +7056,22 @@
    @Override
    public logical rejected()
    {
-      return new logical(rejected);
+      RecordBuffer recBuf = buffer();
+      if (!recBuf.isAvailable() || !recBuf.isTemporary())
+      {
+         return new logical(false);
+      }
+      
+      DataSet ds = _dataSet();
+      if (ds == null)
+      {
+         return new logical(false);
+      }
+      
+      // NOTE: internally, the P4GL database the __error-flag__ is an integer storing multiple flags.
+      //       We need to extract the right bit (ERROR_REJECTED) and convert it to a logical value.
+      Integer flags = recBuf.errorFlags();
+      return new logical(flags != null && (flags & Buffer.ERROR_REJECTED) != 0);
    }
    
    /**
@@ -6883,9 +7082,41 @@
    @Override
    public void rejected(boolean value)
    {
-      setError(true); // TODO probably
-      
-      rejected = value;
+      RecordBuffer recBuf = buffer();
+      
+      if (!_available())
+      {
+         // temp-tables case
+         ErrorManager.recordOrShowError(11916, doGetName());
+         // <name> record is not available to set ERROR in.
+         ErrorManager.recordOrShowError(3131, "REJECTED", "", LegacyResource.BUFFER);
+         // Unable to set attribute <attribute name> in widget <widget name> of type <widget-type>.
+      }
+      
+      if (!recBuf.isTemporary())
+      {
+         // permanent table case
+         ErrorManager.recordOrShowError(11917, doGetName());
+         // Cannot set ERROR if there is no BEFORE-TABLE for <name>.
+         ErrorManager.recordOrShowError(3131, "REJECTED", "", LegacyResource.BUFFER);
+         // Unable to set attribute <attribute name> in widget <widget name> of type <widget-type>.
+         return;
+      }
+      
+      if (!isBeforeBuffer())
+      {
+         if (!isAfterBuffer() || // SIMPLE BUFFER
+             (recBuf.peerRowid() == null || recBuf.peerRowid().isUnknown())) // no AFTER-IMAGE
+         {
+            ErrorManager.recordOrShowError(11918, doGetName(), "");
+            // Cannot set ERROR if there is no BEFORE-TABLE row for <name>.
+            return;
+         }
+      }
+      
+      // NOTE: internally, the P4GL database the __error-flag__ is an integer storing multiple flags.
+      //       We need to update the right bit (ERROR_ERROR) to [value].
+      recBuf.updateErrorFlags(Buffer.ERROR_REJECTED, value);
    }
    
    /**
@@ -6920,6 +7151,8 @@
          return new logical(false);
       }
       
+      lastBatch = false;
+      
       if (FM_NOFILL.equalsIgnoreCase(fillMode))
       {
          // nothing to do
@@ -6934,16 +7167,16 @@
          boolean ok = dataSet.invokeCallback(self, bed);
          if (!ok)
          {
-            dataSet.setError(true);
+            dataSet.error(true);
             return new logical(false);
          }
          // TODO: check: if (!ok) return false?
       }
       else if (dataSource == null || !dataSource.valid())
       {
-         ErrorManager.recordOrShowError(11874, false, doGetName());
+         ErrorManager.recordOrShowError(11874, doGetName());
          // FILL requires an attached data-source for buffer %1, or an active before-fill callback procedure.
-         dataSet.setError(true);
+         dataSet.error(true);
          return new logical(false);
       }
       
@@ -6951,7 +7184,7 @@
       {
          ErrorManager.recordOrShowError(11863, doGetName());
          // FILL is not valid for table <name> when TRACKING-CHANGES is on.
-         dataSet.setError(true);
+         dataSet.error(true);
          return new logical(false);
       }
       
@@ -6970,7 +7203,7 @@
                // Must assign a user query to a data-source that is a join before filling.
                ErrorManager.recordOrShowError(11875, doGetName());
                // FILL of buffer <name> requires a DATA-SOURCE QUERY to be prepared and assigned for this type of buffer.
-               dataSet.setError(true);
+               dataSet.error(true);
                return new logical(false);
             }
             
@@ -6995,16 +7228,15 @@
             srcBuffs[k].buffer().initialize();
          }
          
-         RecordBuffer buffer = buffer();
-         
-         buffer.initialize();
+         RecordBuffer recBuf = buffer();
+         recBuf.initialize();
          
          // flush all of them (including myself)
          boolean inTx = false;
          try
          {
-            inTx = buffer.persistenceContext.beginTransaction(null);
-            buffer.flush();
+            inTx = recBuf.persistenceContext.beginTransaction(null);
+            recBuf.flush();
             
             for (BufferImpl srcBuff : srcBuffs)
             {
@@ -7021,7 +7253,7 @@
             {
                try
                {
-                  buffer.persistenceContext.commit();
+                  recBuf.persistenceContext.commit();
                }
                catch (PersistenceException exc)
                {
@@ -7041,7 +7273,7 @@
             {
                ErrorManager.recordOrShowError(11876, doGetName());
                // FILL of buffer <name> with user-supplied query requires that the query be QUERY-PREPARED. 
-               dataSet.setError(true);
+               dataSet.error(true);
                return new logical(false);
             }
          }
@@ -7077,12 +7309,19 @@
             if (!fillQuery.prepare(sb.toString()).getValue())
             {
                // TODO: is it possible to have an error here?
-               dataSet.setError(true);
+               dataSet.error(true);
                return new logical(false);
             }
          }
          
          final P2JQuery finalFillQuery = fillQuery;
+         ErrorManager.ErrorHelper errHlp = recBuf.bufferManager.getTxHelper().errHlp;
+         boolean wmOn = errHlp.isWarningMode();
+         if (!wmOn)
+         {
+            errHlp.setWarningMode(true);
+         }
+         
          try
          {
             finalFillQuery.queryOpen();
@@ -7091,6 +7330,7 @@
             if (rowids[0] != null)
             {
                finalFillQuery.repositionByID(rowids);
+               
                // if [repositionByID] returns [false] the error message was already displayed 
                finalFillQuery.getNext();
                // [repositionByID] positioned the cursor just before the [rowids], we need to
@@ -7101,6 +7341,18 @@
             boolean isMerge = FM_MERGE.equals(fillMode);
             boolean isReplace = FM_REPLACE.equals(fillMode);
             
+            if (isReplace)
+            {
+               P2JIndex primaryIndex = recBuf.dmoInfo.getPrimaryIndex(true);
+               if (primaryIndex == null || !primaryIndex.isUnique())
+               {
+                  ErrorManager.recordOrShowError(11885);
+                  // A unique primary index is required in the target table, each field of which is mapped to some source field, in order to do a replace-mode or parent-mode COPY/GET/MERGE/FILL type of operation on a dataset table.
+                  dataSet.error(true);
+                  return new logical(false);
+               }
+            }
+            
             List<TableMapper.LegacyFieldInfo> fields = TableMapper.getLegacyOrderedList(this, true);
             List<DataRelation> childRelations = dataSet.getRelations(this, true, false, true);
             
@@ -7108,6 +7360,7 @@
             integer batchRemaining = new integer(batchSize > 0 ? batchSize : -1);
             LogicalOp test = () -> new logical(!finalFillQuery._isOffEnd() && batchRemaining.intValue() != 0);
             String lbl = "fill-buffer-" + name.toStringMessage();
+            logical hasMore = new logical();
             BlockManager.repeatToWhile(TransactionType.SUB, lbl, null, test, new Block((Body) () ->
             {
                if (!fillOk.getValue())
@@ -7127,8 +7380,8 @@
                   for (TableMapper.LegacyFieldInfo f : fields)
                   {
                      String crtField = f.getLegacyName();
-                     DataSource.FieldReference fr = dataSrcMapping.get(
-                           new CaseInsensitiveString(crtField));
+                     DataSource.FieldReference fr = dataSrcMapping.get(new CaseInsensitiveString(crtField));
+                     
                      if (fr != null)
                      {
                         if (fr.getName().equals(Session.PK))
@@ -7147,15 +7400,16 @@
                   // update the ORIGIN-ROWID attribute
                   if (srcBufCount == 1)
                   {
-                     TempRecord newRec = (TempRecord) this.buffer().getCurrentRecord();
+                     TempRecord newRec = (TempRecord) recBuf.getCurrentRecord();
                      newRec._originRowid(srcBuffs[0].buffer().rowID().getValue());
                      
-                     // NOTE: the ORIGIN-ROWID can be queried for any buffer of the DataSource,
-                     //       if there are more than one, see ORIGIN-ROWID(name).
-                     //       In a recursive query, all the levels ROWID should also be stored
-                     //       to support the ORIGIN-ROWID(n).
-                     //       OTOH, in P4GL, not always the ORIGIN-ROWID is found even in
-                     //       single buffer DataSource case.
+                     // NOTES:
+                     // - the ORIGIN-ROWID can be queried for any buffer of the DataSource, if there are
+                     //   more than one, see ORIGIN-ROWID(name).
+                     // - in a recursive query, all the levels ROWID should also be stored to support the
+                     //   ORIGIN-ROWID(n).
+                     // - OTOH, in P4GL, not always the ORIGIN-ROWID is found even in single buffer
+                     //   DataSource case.
                   }
                   
                   if (isMerge || isReplace)
@@ -7163,7 +7417,7 @@
                      boolean validated = false;
                      try
                      {
-                        validated = buffer().validate(false);
+                        validated = recBuf.validate(false);
                      }
                      catch (ValidationException e)
                      {
@@ -7177,17 +7431,21 @@
                         {
                            // merge mode: ignore it, just skip to next record
                            TransactionManager.disableLoopProtection(null);
-                           finalFillQuery.getNext();
-                           BlockManager.undoNext(lbl);
+                           hasMore.assign(finalFillQuery.getNext());
+                           // we need to release the newly created record as if undone. We cannot call
+                           // BlockManager.undoNext(lbl) here as it will affect the buffer(s) from the query
+                           // driving the fill operation.
+                           recBuf.release(true, false);
+                           BlockManager.next(lbl);
                         }
                         else
                         {
-                           // replace mode: eliminate competition,then try again on clean ground
+                           // replace mode: eliminate competition, then try again on clean ground
                            try
                            {
-                              OrmUtils.dropUniqueIndexConflicts(buffer,
-                                                                buffer.getPersistence(),
-                                                                buffer.getMultiplexID());
+                              OrmUtils.dropUniqueIndexConflicts(recBuf,
+                                                                recBuf.getPersistence(),
+                                                                recBuf.getMultiplexID());
                            }
                            catch (PersistenceException e)
                            {
@@ -7202,10 +7460,8 @@
                
                if (isMerge || isReplace)
                {
-                  RecordBuffer rb = buffer();
-                  
-                  rb.txHelper.errHlp.silent(update);
-                  rb.txHelper.errHlp.setPending(false); // clear the possible 'ERROR' flag
+                  recBuf.txHelper.errHlp.silent(update);
+                  recBuf.txHelper.errHlp.setPending(false); // clear the possible 'ERROR' flag
                }
                else
                {
@@ -7236,7 +7492,15 @@
                // call nested fill on child relation buffers
                for (DataRelation rel : childRelations)
                {
-                  fillOk.assign(rel.getChildBuffer().unwrapBuffer().fill().getValue());
+                  // if [reposition] attribute is set, the data-relation is ignored.
+                  Buffer childBuffer = rel.getChildBuffer().unwrapBuffer();
+                  if (rel._isReposition())
+                  {
+                     childBuffer.lastBatch(true);
+                     continue;
+                  }
+                  
+                  fillOk.assign(childBuffer.fill().getValue());
                   if (!fillOk.getValue()) 
                   {
                      break; // the for
@@ -7250,8 +7514,19 @@
                   BlockManager.leave(); // repeatToWhile
                }
                
-               finalFillQuery.getNext();
+               hasMore.assign(finalFillQuery.getNext());
             }));
+            
+            if (batchSize > 0 && batchRemaining.intValue() != 0 && childRelations.isEmpty())
+            {
+               // the batch ended before [batchSize] records were processed
+               lastBatch = true;
+            } 
+            else if (!hasMore.booleanValue())
+            {
+               // the last invocation to fill-query:get-next() returned false so there are no more batches
+               lastBatch = true;
+            }
          }
          finally
          {
@@ -7259,6 +7534,10 @@
             finalFillQuery.queryClose();
             // HandleOps.delete(hQuery);
             this.release();
+            if (!wmOn)
+            {
+               errHlp.setWarningMode(false);
+            }
          }
       }
       
@@ -7266,8 +7545,8 @@
       ok = ok && fillOk.booleanValue();
       
       // NOTE: strange thing, I could not find any proof that the ERROR attribute of [this]
-      //       BUFFER or the TEMP-TABLE is also altered by a FILL failure  
-      dataSet.setError(!ok);
+      //       BUFFER or the TEMP-TABLE is also altered by a FILL failure
+      dataSet.error(!ok);
       return new logical(ok);
    }
    
@@ -7281,21 +7560,6 @@
     * @return  {@code true} if operation is successful.
     */
    @Override
-   public logical applyCallback(Text eventName)
-   {
-      return applyCallback(eventName.toJavaType());
-   }
-   
-   /**
-    * Applies a callback procedure, which allows execution of a defined event without duplicating
-    * the event procedure definition.
-    *
-    * @param   eventName
-    *          The event whose callback will be called.
-    *
-    * @return   {@code true} if operation is successful.
-    */
-   @Override
    public logical applyCallback(String eventName)
    {
       if (dataSet == null || !dataSet.valid())
@@ -7310,23 +7574,7 @@
          return new logical(false);
       }
       
-      return new logical(dataSet.invokeCallback(new handle(this),
-                                                callbacks.get(eventName.toUpperCase())));
-   }
-   
-   /**
-    * Retrieves the name of the internal procedure associated with the ABL callback for the
-    * specified event.
-    *
-    * @param   eventName
-    *          The name of the event.
-    *
-    * @return the name of the internal procedure associated with specified event.
-    */
-   @Override
-   public character getCallbackProcName(Text eventName)
-   {
-      return getCallbackProcName(eventName.toJavaType());
+      return new logical(invokeCallback(eventName.toUpperCase()));
    }
    
    /**
@@ -7365,21 +7613,6 @@
     * @return  a handle to the procedure that contains the callback procedure.
     */
    @Override
-   public handle getCallbackProcContext(Text eventName)
-   {
-      return getCallbackProcContext(eventName.toJavaType());
-   }
-   
-   /**
-    * Retrieves the handle of the procedure that contains the internal procedure associated
-    * with the ABL callback for the specified event
-    *
-    * @param   eventName
-    *          The name of the event.
-    *
-    * @return  a handle to the procedure that contains the callback procedure.
-    */
-   @Override
    public handle getCallbackProcContext(String eventName)
    {
       if (!isCallbackName(eventName))
@@ -7403,22 +7636,6 @@
     *          The eventName of the event.
     * @param   callback
     *          The eventName of the internal procedure associated with the callback event.
-    *
-    * @return  {@code true} when the method ends with success.
-    */
-   @Override
-   public logical setCallbackProcedure(String eventName, String callback)
-   {
-      return setCallbackProcedure(eventName, callback, null);
-   }
-   
-   /**
-    * Associates an internal procedure with an ABL callback event.
-    *
-    * @param   eventName
-    *          The eventName of the event.
-    * @param   callback
-    *          The eventName of the internal procedure associated with the callback event.
     * @param   context
     *          A handle to a procedure that contains the internal procedure specified by
     *          {@code callback}. If not specified, {@code THIS-PROCEDURE} is used as the procedure
@@ -7441,25 +7658,33 @@
          return new logical(false);
       }
       
-      if (callback != null && !callback.isEmpty())
-      {
-         if (context == null || context.isUnknown())
-         {
-            // defaulting to THIS-PROCEDURE
-            context = ProcedureManager.thisProcedure();
-         }
-         else
-         {
-            if (!context._isValid() || !(context.getResource() instanceof PersistentProcedure))
-            {
-               ErrorManager.recordOrShowError(13273);
-               // Third argument to SET-CALLBACK must be a valid procedure handle or object reference.
-               return new logical(false);
-            }
-         }
-         
-         callbacks.put(eventName.toUpperCase(), new CallbackData(callback, context, null));
-      }
+      if (callback == null)
+      {
+         return new logical(true);
+      }
+      
+      if (callback.isEmpty())
+      {
+         callbacks.remove(eventName.toUpperCase());
+         return new logical(true);
+      }
+      
+      if (context == null || context.isUnknown())
+      {
+         // defaulting to THIS-PROCEDURE
+         context = ProcedureManager.thisProcedure();
+      }
+      else
+      {
+         if (!context._isValid() || !(context.getResource() instanceof PersistentProcedure))
+         {
+            ErrorManager.recordOrShowError(13273);
+            // Third argument to SET-CALLBACK must be a valid procedure handle or object reference.
+            return new logical(false);
+         }
+      }
+      
+      callbacks.put(eventName.toUpperCase(), new CallbackData(callback, context, null));
       
       return new logical(true);
    }
@@ -7471,51 +7696,14 @@
     * @param   callbackName
     *          The name of a callback.
     * @param   routineName
-    *          The name of a method or an internal procedure to be asociated.
-    *
-    * @return  {@code true} if operation is successful and {@code false} if the parameters are
-    *          invalid.
-    */
-   @Override
-   public logical setCallback(String callbackName, String routineName)
-   {
-      return setCallback(callbackName, routineName, (object<?>) null);
-   }
-   
-   /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be asociated.
-    *
-    * @return  {@code true} if operation is successful and {@code false} if the parameters are
-    *          invalid.
-    */
-   @Override
-   public logical setCallback(Text callbackName, Text routineName)
-   {
-      return setCallback(callbackName.toJavaType(), routineName.toJavaType(), (object<?>) null);
-   }
-   
-   /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be asociated.
+    *          The name of a method or an internal procedure to be associated.
     * @param   context
     *          The context in which the callback will be executed.
     *
-    * @return  {@code true} if operation is successful and {@code false} if the parameters are
-    *          invalid.
+    * @return  {@code true} if operation is successful and {@code false} if the parameters are invalid.
     */
    @Override
-   public logical setCallback(String callbackName, String routineName, object<? extends Object> context)
+   public logical setCallback(String callbackName, String routineName, object<?> context)
    {
       if (dataSet == null || !dataSet.valid())
       {
@@ -7529,113 +7717,41 @@
          return new logical(false);
       }
       
-      if (routineName != null && !routineName.isEmpty())
-      {
-         CallbackData cbd;
-         if (context == null || context.isUnknown())
+      if (routineName == null)
+      {
+         return new logical(true);
+      }
+      
+      if (routineName.isEmpty())
+      {
+         callbacks.remove(callbackName.toUpperCase());
+         return new logical(true);
+      }
+      
+      CallbackData cbd;
+      if (context == null || context.isUnknown())
+      {
+         // defaulting to THIS-OBJECT or to THIS-PROCEDURE, depending on the context
+         if (ObjectOps.thisObject().isUnknown())
          {
-            // defaulting to THIS-OBJECT or to THIS-PROCEDURE, depending on the context
-            if (ObjectOps.thisObject().isUnknown())
-            {
-               cbd = new CallbackData(routineName, ProcedureManager.thisProcedure(), null);
-            }
-            else
-            {
-               cbd = new CallbackData(routineName, null, ObjectOps.thisObject());
-            }
+            cbd = new CallbackData(routineName, ProcedureManager.thisProcedure(), null);
          }
          else
          {
-            cbd = new CallbackData(routineName, null, context);
+            cbd = new CallbackData(routineName, null, ObjectOps.thisObject());
          }
-         
-         callbacks.put(callbackName.toUpperCase(), cbd);
-      }
+      }
+      else
+      {
+         cbd = new CallbackData(routineName, null, context);
+      }
+      
+      callbacks.put(callbackName.toUpperCase(), cbd);
       
       return new logical(true);
    }
    
    /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be asociated.
-    * @param   context
-    *          The context in which the callback will be executed.
-    *
-    * @return  {@code true} if operation is successful and {@code false} if the parameters are
-    *          invalid.
-    */
-   @Override
-   public logical setCallback(Text callbackName, Text routineName, object<? extends Object> context)
-   {
-      return setCallback(callbackName.toJavaType(), routineName.toJavaType(), context);
-   }
-   
-   /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be asociated.
-    * @param   context
-    *          The context in which the callback will be executed.
-    *
-    * @return  {@code true} if operation is successful and {@code false} if the parameters are
-    *          invalid.
-    */
-   @Override
-   public logical setCallback(String callbackName, String routineName, handle context)
-   {
-      return setCallbackProcedure(callbackName, routineName, context);
-   }
-   
-   /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be asociated.
-    * @param   context
-    *          The context in which the callback will be executed.
-    *
-    * @return  {@code true} if operation is successful and {@code false} if the parameters are
-    *          invalid.
-    */
-   @Override
-   public logical setCallback(Text callbackName, Text routineName, handle context)
-   {
-      return setCallbackProcedure(callbackName.toJavaType(), routineName.toJavaType(), context);
-   }
-   
-   /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be asociated.
-    * @param   context
-    *          The context in which the callback will be executed.
-    *
-    * @return  {@code true} if operation is successful and {@code false} if the parameters are
-    *          invalid.
-    */
-   @Override
-   public logical setCallback(String callbackName, Text routineName, handle context)
-   {
-      return setCallbackProcedure(callbackName, routineName.toJavaType(), context);
-   }
-   
-   /**
     * Loads the empty target {@code TempTable}) object with changed rows from original (source)
     * object. This can be either the BEFORE or the AFTER buffer. If the BEFORE/AFTER temp-tables
     * are already populated, they are emptied before copying the changes.
@@ -7707,22 +7823,39 @@
       }
       
       // @this moment we have the dst/src-Before/After initialized. Be sure dsts are empty first:
-      if (!dstBefore.deleteAll().getValue() || !dstAfter.deleteAll().getValue())
-      {
-         return new logical(false);
+      dstBefore.setUpBeforeBuffer(true);
+      AbstractTempTable dstTT = (AbstractTempTable) dstAfter.tableHandle().getResource();
+      logical trackingChanges = dstTT.isTrackingChanges();
+      dstTT.setTrackingChanges(false);
+      try
+      {
+         if (!dstBefore.deleteAll().getValue() || !dstAfter.deleteAll().getValue())
+         {
+            return new logical(false);
+         }
+      }
+      finally
+      {
+         // restore back
+         if (!trackingChanges.isUnknown() && trackingChanges.booleanValue())
+         {
+            dstTT.setTrackingChanges(true);
+         }
+         dstBefore.setUpBeforeBuffer(false);
       }
       
       boolean ok = TemporaryBuffer.copyChanges((TemporaryBuffer) srcBefore.buffer(),
                                                (TemporaryBuffer) srcAfter.buffer(),
                                                (TemporaryBuffer) dstBefore.buffer(),
                                                (TemporaryBuffer) dstAfter.buffer());
+      srcBefore.release();
+      srcAfter.release();
+      
       if (ok)
       {
          TempTable origin = TempTableBuilder.asTempTable((Temporary) srcAfter);
-         ((AbstractTempTable) TempTableBuilder.asTempTable((Temporary) dstBefore)).setOriginTable(
-               origin);
-         ((AbstractTempTable) TempTableBuilder.asTempTable((Temporary) dstAfter)).setOriginTable(
-               origin);
+         ((AbstractTempTable) TempTableBuilder.asTempTable((Temporary) dstBefore)).setOriginTable(origin);
+         ((AbstractTempTable) TempTableBuilder.asTempTable((Temporary) dstAfter)).setOriginTable(origin);
       }
       return new logical(ok);
    }
@@ -7838,16 +7971,33 @@
          afterBufferChanges = (BufferImpl) afterBuffer().unwrapBuffer();
       }
       
-      TempTable parentTable = TempTableBuilder.asTempTable((Temporary) this.buffer());
-      handle originHandle = parentTable.getOriginHandle();
-      if (originHandle.isUnknown() || originHandle._isValid())
-      {
-         ErrorManager.recordOrShowError(11944, afterBufferChanges.doGetName()); 
-         // MERGE-ROW-CHANGES finds ORIGIN-HANDLE in table <name> is no longer valid.
-         return new logical(false);
-      }
-   
-      TempTable originTable = originHandle.unwrapTempTable();
+      BufferImpl origBuffer;
+      TempTable originTable;
+      if (original == null)
+      {
+         TempTable parentTable = this.buffer().tableHandle().unwrapTempTable();
+         handle originTableHandle = parentTable.getOriginHandle();
+         if (originTableHandle.isUnknown() || !originTableHandle._isValid())
+         {
+            ErrorManager.recordOrShowError(11944, afterBufferChanges.doGetName());
+            // MERGE-ROW-CHANGES finds ORIGIN-HANDLE in table <name> is no longer valid.
+            return new logical(false);
+         }
+         originTable = originTableHandle.unwrapTempTable();
+         origBuffer = (BufferImpl) originTable.defaultBufferHandle().unwrapBuffer(); 
+      }
+      else
+      {
+         if (!original._isValid() || !original.isType(LegacyResource.BUFFER))
+         {
+            ErrorManager.recordOrShowError(11943);
+            // First argument to MERGE-ROW-CHANGES must be a valid BUFFER handle.
+            return new logical(false);
+         }
+         origBuffer = (BufferImpl) original.unwrapBuffer();
+         originTable = origBuffer.tableHandle().unwrapTempTable();
+      }
+      
       if (originTable.isTrackingChanges().getValue())
       {
          ErrorManager.recordOrShowError(11922, originTable.name().toStringMessage());
@@ -7855,9 +8005,7 @@
          return new logical(false);
       }
       
-   
-      UnimplementedFeature.missing("MERGE-ROW-CHANGES method not implemented");
-      return new logical();
+      return new logical(mergeRowChangesImpl(this.ref(), origBuffer.ref()));
    }
    
    /**
@@ -7921,20 +8069,17 @@
    }
    
    /**
-    * Merges the changed rows of all temp-tables or a single temp-table in a source
-    * {@code DataSet} object loaded with the {@code GET-CHANGES()} method into the corresponding
-    * rows of all temp-tables or a single temp-table (respectively) in the original (target)
-    * {@code DataSet} object.
+    * Merges the changed rows of all temp-tables or a single temp-table in a source {@code DataSet} object
+    * loaded with the {@code GET-CHANGES()} method into the corresponding rows of all temp-tables or a single
+    * temp-table (respectively) in the original (target) {@code DataSet} object.
     *
     * @param   original
-    *          A handle to the original (target) {@code DataSet} object or the buffer object of a
-    *          single target {@code DataSet} temp-table to merge with the changed rows from the
-    *          source object.
+    *          A handle to the original (target) {@code DataSet} object or the buffer object of a single
+    *          target {@code DataSet} temp-table to merge with the changed rows from the source object.
     * @param   allCopyMode
-    *          Use {@code TRUE} to indicates that all rows of the source after-image table must be
-    *          merged.
+    *          Use {@code TRUE} to indicates that all rows of the source after-image table must be merged.
     *
-    * @return {@code true} if operation is successful.
+    * @return  {@code true} if operation is successful.
     */
    @Override
    public logical mergeChanges(handle original, boolean allCopyMode)
@@ -7949,9 +8094,7 @@
       
       BufferImpl origBuf = (BufferImpl) original.getResource();
       origBuf = origBuf.ref();
-      TempTable origTT = (TempTable) tableHandle().unwrapTempTable()
-                                                  .getOriginHandle()
-                                                  .getResource();
+      TempTable origTT = (TempTable) tableHandle().unwrapTempTable().getOriginHandle().getResource();
       if (origTT != origBuf.tableHandle().unwrapTempTable())
       {
          ErrorManager.recordOrShowError(11923, origBuf.doGetName(), doGetName());
@@ -8002,25 +8145,30 @@
          return new logical(false);
       }
       
+      RecordBuffer beforeBuf = buffer();
+      Persistence persistence = beforeBuf.getPersistence();
       BufferImpl after = (BufferImpl) afterBuffer().unwrapBuffer();
-      // execute a simple query to update the [_rowState] and [_peerRowid] fields to default
+      RecordBuffer afterBuf = after.buffer();
+      
+      // execute a simple query to update the [_rowState], [_originRowid] and [_peerRowid] fields to default
       // values in the AFTER-BUFFER
       StringBuilder buf = new StringBuilder();
-      buf.append("update ");
-      buf.append(after.buffer().getTable());
-      buf.append(" set _rowState = ");
-      buf.append(Buffer.ROW_UNMODIFIED);
-      buf.append(", _peerRowid = NULL where ");
-      buf.append(TemporaryBuffer.MULTIPLEX_FIELD_NAME);
-      buf.append(" = ");
-      buf.append(after.buffer().getMultiplexID());
+      buf.append("update ").append(afterBuf.getTable()).append(" set ")
+         .append(Buffer.ROW_STATE_FIELD).append("=").append(Buffer.ROW_UNMODIFIED).append(", ")
+         .append(Buffer.ORIGIN_ROWID_FIELD).append("=NULL, ")
+         .append(Buffer.AFTER_ROWID_FIELD).append("=NULL")
+         .append(" where ")
+         .append(TemporaryBuffer.MULTIPLEX_FIELD_NAME).append(" = ").append(afterBuf.getMultiplexID());
       
       try
       {
-         RecordBuffer buffer = buffer();
-         boolean noUndo = !buffer.isUndoable();
-         int cnt = buffer.getPersistence().executeSQL(buf.toString(), null, noUndo);
-         System.out.println(cnt);
+         boolean noUndo = !beforeBuf.isUndoable();
+         int cnt = persistence.executeSQL(buf.toString(), null, noUndo);
+         persistence.getSession().invalidateRecords(afterBuf, afterBuf.getMultiplexID());
+         if (log.isLoggable(Level.FINE))
+         {
+            log.log(Level.FINE, "ACCEPT-CHANGES accepted " + cnt + " changes from " + beforeBuf.getDMOName());
+         }
       }
       catch (PersistenceException e)
       {
@@ -8028,7 +8176,23 @@
       }
       
       // then drop the before-image data for this table:
-      ((AbstractTempTable) TempTableBuilder.asTempTable((Temporary) this)).deleteAllImpl();
+      try
+      {
+         beforeBuf.delete(TemporaryBuffer.MULTIPLEX_FIELD_NAME + "=?", beforeBuf.getMultiplexID());
+      }
+      catch (PersistenceException e)
+      {
+         if (log.isLoggable(Level.WARNING))
+         {
+            log.log(Level.WARNING, 
+                    "ACCEPT-CHANGES: Failed to drop before images of " + afterBuf.getDMOName());
+         }
+      }
+      persistence.getSession().invalidateRecords(beforeBuf, beforeBuf.getMultiplexID());
+      
+      ((AbstractTempTable) afterBuf.tableHandle().getResource()).setOriginTable(null);
+      ((AbstractTempTable) beforeBuf.tableHandle().getResource()).setOriginTable(null);
+      
       return new logical(true);
    }
    
@@ -8048,8 +8212,18 @@
          return new logical(false);
       }
       
-      return new logical(((TemporaryBuffer) buffer()).rejectChanges(
-            this, (BufferImpl) afterBuffer().unwrapBuffer()));
+      TemporaryBuffer buffer = (TemporaryBuffer) buffer();
+      try
+      {
+         buffer.flush();
+      }
+      catch (ValidationException e)
+      {
+         // normally this should not happen because before tables do not have unique indexes
+         // TODO: but if it still happens? which error we we throw?
+         return new logical(false);
+      }
+      return new logical(buffer.rejectChanges((BufferImpl) afterBuffer().unwrapBuffer()));
    }
    
    /**
@@ -8062,7 +8236,8 @@
     */
    protected boolean hasField(String legFieldName)
    {
-      return getHibernateField(legFieldName, buffer(), TableMapper.getLegacyName(this)) != null;
+      RecordBuffer recBuf = buffer();
+      return getHibernateField(legFieldName, recBuf, recBuf.dmoInfo.legacyTable) != null;
    }
    
    /**
@@ -8096,7 +8271,8 @@
          return true;
       }
       
-      return getHibernateField(fieldName, buffer(), TableMapper.getLegacyName(this)) != null;
+      RecordBuffer recBuf = buffer();
+      return getHibernateField(fieldName, recBuf, recBuf.dmoInfo.legacyTable) != null;
    }
    
    /**
@@ -8134,7 +8310,8 @@
       }
       
       detachDataSource();
-      dataSet = ds == null ? null : ds.ref();
+      dataSet = (ds == null) ? null : ds.ref();
+      lastBatch = false;
    }
    
    /**
@@ -8192,6 +8369,17 @@
    }
    
    /**
+    * Constructs and returns a string containing the P4GL schema definition of the table. The result is not
+    * cached so this method is to be used only for debug.
+    *
+    * @return  a string containing the P4GL legacy schema definition of the table.
+    */
+   public String tableDefinition()
+   {
+      return buffer().dmoInfo.getTableDefinition();
+   }
+   
+   /**
     * Computes the buffer type and if it is an {@code AFTER} or a {@code BEFORE} the
     * peer (complementary) buffer is also stored in {@code peerBuffer}.
     */
@@ -8209,7 +8397,7 @@
       handle ttBefore = tempTable.getBeforeTable();
       if (!ttBefore.isUnknown())
       {
-         peerBuffer = (BufferImpl) (ttBefore.unwrapTempTable().defaultBufferHandle()).unwrapBuffer();
+         peerBuffer = (BufferImpl) ttBefore.unwrapTempTable().defaultBufferHandle().getResource();
          peerBuffer = peerBuffer.ref();
          beforeBufferType = BeforeType.AFTER;
          return;
@@ -8218,7 +8406,7 @@
       handle ttAfter = tempTable.getAfterTable();
       if (!ttAfter.isUnknown())
       {
-         peerBuffer = (BufferImpl) (ttAfter.unwrapTempTable().defaultBufferHandle()).unwrapBuffer();
+         peerBuffer = (BufferImpl) ttAfter.unwrapTempTable().defaultBufferHandle().getResource();
          peerBuffer = peerBuffer.ref();
          beforeBufferType = BeforeType.BEFORE;
          return;
@@ -8229,6 +8417,31 @@
    }
    
    /**
+    * Invokes a defined callback if one exist.
+    *
+    * @param   event
+    *          Event name.
+    *
+    * @return  {@code false} if the callback raised an error. If the callback does not exist or ended with
+    *          success {@code true} is returned.
+    */
+   boolean invokeCallback(String event)
+   {
+      if (dataSet == null)
+      {
+         return true;
+      }
+      
+      CallbackData cbd = callbacks.get(event);
+      if (cbd == null)
+      {
+         return true;
+      }
+      
+      return dataSet.invokeCallback(new handle(this), cbd);
+   }
+   
+   /**
     * Set NAME attribute without any checks.
     *
     * @param name
@@ -8240,10 +8453,9 @@
    }
    
    /**
-    * Get the <code>NAME</code> attribute as java string.
+    * Get the {@code NAME} attribute as java string.
     *
-    * @return  the <code>NAME</code> attribute as a java string. <code>null</code> if
-    *          <code>NAME</code> is <code>unknown</code>.
+    * @return  the {@code NAME} attribute as a java string. {@code null} if {@code NAME} is {@code unknown}.
     */
    public String doGetName()
    {
@@ -8392,8 +8604,8 @@
       }
       
       handle ht = tableHandle();
-      RecordBuffer buffer = buffer();
-      if (ht._isValid() && buffer.isTemporary() && !buffer.isDynamic() && buffer.isGlobal())
+      RecordBuffer recBuf = buffer();
+      if (ht._isValid() && recBuf.isTemporary() && !recBuf.isDynamic() && recBuf.isGlobal())
       {
          // if this is the default buffer for a GLOBAL SHARED TEMP-TABLE, then do not delete
          TempTable tt = ht.unwrapTempTable();
@@ -8404,10 +8616,10 @@
       }
       
       deleting = true;
-      buffer.finished();
-      buffer.resourceDeleted();
+      recBuf.finished();
+      recBuf.resourceDeleted();
       
-      SharedVariableManager.cleanupBuffer(this.buffer().getDMOProxy());
+      SharedVariableManager.cleanupBuffer(recBuf.getDMOProxy());
       
       deleted = true;
       deleting = false;
@@ -8472,24 +8684,22 @@
     */
    protected logical deleteRecord(boolean validated)
    {
-      RecordBuffer buffer = buffer();
+      RecordBuffer recBuf = buffer();
       
-      if (!buffer.isTemporary())
+      if (!recBuf.isTemporary())
       {
-         if (!verifyTransaction(buffer))
+         if (!verifyTransaction(recBuf))
          {
             return new logical(false);
          }
          
          if (!validated)
          {
-            Class<? extends DataModelObject> iface = buffer.getDMOInterface();
+            Class<? extends DataModelObject> iface = recBuf.getDMOInterface();
             if (TableMapper.hasValidation(iface))
             {
-               String msg = String.format(
-                  "Table %s is defined with schema delete validation" +
-                  " and may only be deleted by the DELETE statement",
-                  TableMapper.getLegacyName(iface));
+               String msg = "Table " + recBuf.dmoInfo.legacyTable + " is defined with schema delete " +
+                            "validation and may only be deleted by the DELETE statement";
                ErrorManager.recordOrShowError(7347, msg, false, false);
                
                return new logical(false);
@@ -8497,18 +8707,28 @@
          }
       }
       
+      if (dataSet != null) // implies buffer.isTemporary()
+      {
+         // checks whether tracking is active
+         if (recBuf.getParentTable().isTrackingChanges().toJavaType())
+         {
+            if (!invokeCallback(ROW_DELETE_EVENT))
+            {
+               returnError(); // veto on record delete
+            }
+         }
+      }
+      
       try
       {
-         buffer.delete();
-         
-         return new logical(true);
+         recBuf.delete();
       }
       catch (PersistenceException exc)
       {
-         ErrorManager.recordOrThrowError(exc);
-         
          return new logical(false);
       }
+      
+      return new logical(true);
    }
    
    /**
@@ -8619,7 +8839,106 @@
       }
       return lockType;
    }
-
+   
+   /**
+    * Implementation of the SERIALIZE-ROW method. Writes current row from this buffer into the specified data 
+    * target, using the specified format.
+    *
+    * @param   format
+    *          The format ("xml" or "json").
+    * @param   targetData
+    *          Data target.
+    * @param   formatted
+    *          {@code True} to format the data for making it more readable; {@code false} to write it
+    *          as unformatted text. Unknown value is treated as {@code false}.
+    * @param   encoding
+    *          Name of the character encoding to use.
+    * @param   omitInitial
+    *          {@code True} to omit data for fields whose values match their initial values.
+    * @param   omitOuter
+    *          {@code True} to omit data for the outermost object from the output.
+    *
+    * @return  {@code True} if the operation completed successfully, else {@code false}.
+    */
+   private boolean serializeRowImpl(String format,
+                                    TargetData targetData,
+                                    Boolean formatted,
+                                    String encoding,
+                                    Boolean omitInitial,
+                                    Boolean omitOuter)
+   {
+      if (!buffer().isTemporary())
+      {
+         ErrorManager.recordOrShowError(13158);
+         // XML Methods only allowed on TEMP-TABLE buffers.
+         return false;
+      }
+      
+      // the buffer must not be empty
+      if (!_available())
+      {
+         ErrorManager.recordOrShowError(16017);
+         // No record in buffer for SERIALIZE-ROW.
+         return false;
+      }
+      
+      // check the specified target format
+      if (format == null)
+      {
+         ErrorManager.recordOrShowError(16019, "unknown", "");
+         // Invalid target-format '<format>' for SERIALIZE-ROW.
+         return false;
+      }
+      boolean isXML = "XML".equalsIgnoreCase(format);
+      boolean isJSON = "JSON".equalsIgnoreCase(format);
+      if (!isJSON && !isXML)
+      {
+         ErrorManager.recordOrShowError(16019, format, "");
+         // Invalid target-format '<format>' for SERIALIZE-ROW.
+         return false;
+      }
+      
+      if (formatted == null)
+      {
+         formatted = false;
+      }
+      if (omitInitial == null)
+      {
+         omitInitial = false;
+      }
+      if (omitOuter == null)
+      {
+         omitOuter = false;
+      }
+      
+      if (isXML)
+      {
+         if (omitOuter)
+         {
+            ErrorManager.recordOrShowError(16020);
+            // omit-outer-object argument not allowed in SERIALIZE-ROW for XML
+            ErrorManager.recordOrShowError(4065, "SERIALIZE-ROW", "BUFFER widget");
+            // **The <attribute> attribute on the <widget id> has invalid arguments.
+            return false;
+         }
+         XmlExport export = new XmlExport(targetData, formatted, encoding);
+         return export.writeRecord(this, omitInitial);
+      }
+      else 
+      {
+         // is JSON
+         com.fasterxml.jackson.core.JsonEncoding jsonEnc = JsonExport.parseEncoding(new character(encoding));
+         if (jsonEnc == null)
+         {
+            ErrorManager.recordOrShowError(15342, encoding, "WRITE-JSON");
+            // Invalid encoding '<encoding>' argument for <method>.
+            return false;
+         }
+         
+         JsonExport export = new JsonExport();
+         return export.exportRecord(this, targetData, formatted, jsonEnc, omitInitial, omitOuter);
+      }
+   }
    
    /**
     * Getter of NUM-FIELDS attribute.  Only normal fields are counted, the hidden fields are not
@@ -8649,8 +8968,7 @@
       if (parentTempTable != null && parentTempTable._dynamic())
       {
          // dynamic table
-         hibernateName = DynamicTablesHelper.getHibernateFieldName(buffer().getDMOInterface(),
-                                                                   memberName);
+         hibernateName = DynamicTablesHelper.getHibernateFieldName(buffer().getDMOInterface(), memberName);
       }
       else
       {
@@ -8663,8 +8981,7 @@
          else
          {
             String schema = DatabaseManager.getSchema(database);
-            String legacyTableName = TableMapper.getLegacyName(this);
-            hibernateName = TableMapper.getPropertyName(schema, legacyTableName, memberName);
+            hibernateName = TableMapper.getPropertyName(schema, buffer().dmoInfo.legacyTable, memberName);
             // hibernateName should not be null as the memberName should have been already checked
             // at conversion time
          }
@@ -8702,7 +9019,7 @@
     *
     * @return  {@code true} if operation succeeds, else {@code false}.
     */
-   private logical _find(String predicate, FindMode mode, LockType lock, Buffer... substBuffers)
+   logical _find(String predicate, FindMode mode, LockType lock, Buffer... substBuffers)
    {
       final String qName = "find_" + mode + "_" + lock;
       P2JQuery query = DynamicQueryHelper.parseFindQuery(
@@ -8759,28 +9076,28 @@
     */
    private logical _current(LockType lockType)
    {
-      RecordBuffer rb = buffer();
+      RecordBuffer recBuf = buffer();
       
       // make sure to ignore errors caused by LockUnavailableException 
       try
       {
-         rb.txHelper.errHlp.ignore(() ->
+         recBuf.txHelper.errHlp.ignore(() ->
          {
-            rb.armCurrentChanged();
-            rb.reload(lockType, false);
+            recBuf.armCurrentChanged();
+            recBuf.reload(lockType, false);
          });
       }
       
       finally
       {
-         rb.updateCurrentChanged();
+         recBuf.updateCurrentChanged();
       }
       
       // NOTE: the reference manual states that if lock operation fails, a message is displayed.
       //       However, this is not how the behaviour was observed. Actually there is no error
       //       whatsoever. Instead, the buffer is discarded after a failure to acquire the lock.
       //       The error was not observable, in fact at all, in all my testcases.
-      return new logical(rb.isAvailable());
+      return new logical(recBuf.isAvailable());
    }
    
    /**
@@ -8805,113 +9122,220 @@
          return false;
       }
       
-      if (isError().getValue() || rejected().getValue() ||
-          porigBuf.isError().getValue() || porigBuf.rejected().getValue())
+      logical ok = new logical(true);
+      TemporaryBuffer afterBuffer = (TemporaryBuffer) buffer();
+      TemporaryBuffer beforeBuffer = (TemporaryBuffer) peerBuffer.buffer();
+      Class<? extends Record> origAfterImplClass = porigBuf.buffer().dmoInfo.getImplementationClass();
+      Class<? extends Record> origBeforeImplClass = ((BufferImpl) porigBuf.beforeBuffer().getResource())
+            .buffer().dmoInfo.getImplementationClass();
+      Class<? extends Record> afterImplClass = afterBuffer.dmoInfo.getImplementationClass();
+      Session session = afterBuffer.getPersistence().getSession();
+      beforeBuffer.readAllRows(
+         (dmo) -> {
+            if (!ok.booleanValue())
+            {
+               return;
+            }
+            
+            // prepare the original before image
+            TempRecord origBefRecord = null;
+            try
+            {
+               origBefRecord = (TempRecord) session.get(origBeforeImplClass, dmo._originRowid());
+            }
+            catch (PersistenceException | ConditionException e)
+            {
+               // origBefRecord stays null
+            }
+            if (origBefRecord == null)
+            {
+               // this should not happen. The origin-rowid of the dmo should not be unknown! If it was not 
+               // found then the changes in the original table were already accepted (?)
+               
+               ErrorManager.recordOrShowError(11928, doGetName(), porigBuf.doGetName());
+               // INVALID origin-rowid of the change table <name> of <name>.
+               ErrorManager.recordOrShowError(11926);
+               // Found unexpected error while merging changes.
+               
+               ok.assign(false);
+               return;
+            }
+            
+            Integer errFlags = dmo._errorFlags();
+            if (errFlags != null && errFlags != 0)
+            {
+               BufferImpl porigBefBuf = porigBuf.peerBuffer;
+               porigBefBuf.buffer().loadRecord(origBefRecord);
+               
+               // if the record's any error/rejected markers were set, drop it from merge operation
+               ok.assign(porigBefBuf.rejectRowChanges());
+            }
+            else
+            {
+               // prepare the original after image and put it in the [porigBuf] buffer
+               TempRecord origRecord = null;
+               try
+               {
+                  origRecord = (TempRecord) session.get(origAfterImplClass, origBefRecord._peerRowid());
+               }
+               catch (PersistenceException | ConditionException e)
+               {
+                  // origRecord stays null
+               }
+               porigBuf.buffer().loadRecord(origRecord);
+               
+               // prepare the after image/record in current buffer 
+               TempRecord afterRecord;
+               try
+               {
+                  afterRecord = (TempRecord) session.get(afterImplClass, dmo._peerRowid());
+               }
+               catch (PersistenceException | ConditionException e)
+               {
+                  afterRecord = null;
+               }
+               afterBuffer.loadRecord(afterRecord);
+               
+               // run the merge-row-changes code for prepared records 
+               ok.assign(mergeRowChangesImpl(this.ref(), porigBuf.ref()));
+            }
+         });
+      
+      return ok.booleanValue();
+   }
+   
+   /**
+    * Implementation of the row merge changes. Always to be called for the AFTER-BUFFER.
+    *
+    * @param   changesBuf
+    *          The changes AFTER buffer.
+    * @param   origAfterBuf
+    *          The original AFTER buffer.
+    *
+    * @return  {@code true} on success. When {@code false} is returned the error code was already
+    *          configured in {@code ErrorManager}.
+    */
+   private static boolean mergeRowChangesImpl(BufferImpl changesBuf, BufferImpl origAfterBuf)
+   {
+      TempRecord dmo = (TempRecord) changesBuf.buffer().getCurrentRecord();
+      if (dmo == null)
       {
-         UnimplementedFeature.missing(
-               "MERGE-CHANGES behaviour is HERE altered by values of ERROR and " +
-               "REJECTED attribute, as documented.");
-         /* 
-            TODO: If the ERROR attribute or REJECTED attribute for a changed table is TRUE,
-                  the MERGE-CHANGES( ) method backs out the changes.
-            NOTE: No such behaviour was observed during the tests, for the moment.
-         */
+         log.log(Level.SEVERE, "mergeRowChangesImpl: null TempRecord in changesBuf");
+         return true;
       }
       
-      BufferImpl origBuf = porigBuf.ref();
-      
-      // first process the DELETE of the BEFORE-BUFFER: 
-      ((TemporaryBuffer) peerBuffer.buffer()).readAllRows(
-            (dmo) -> {
-               Long originRowid = dmo._originRowid();
-               if (dmo._rowState() == Buffer.ROW_DELETED &&
-                   origBuf.peerBuffer.findByRowID(new rowid(originRowid)).getValue())
-               {
-                  if (origBuf.peerBuffer.rowState().intValue() != Buffer.ROW_DELETED)
-                  {
-                     ErrorManager.recordOrShowError(11928, doGetName(), origBuf.doGetName());
-                     // INVALID origin-rowid of the change table <name> of <name>.
-                     ErrorManager.recordOrShowError(11926);
-                     // Found unexpected error while merging changes.
-                     return;
-                  }
-                  // just remove the BEFORE-IMAGE, the AFTER-IMAGE is long gone 
-                  origBuf.peerBuffer.setUpBeforeBuffer(true);
-                  origBuf.peerBuffer.deleteRecord();
-                  origBuf.peerBuffer.setUpBeforeBuffer(false);
-               }
-            });
-      
-      // them process the MODIFIED & CREATED records from this TEMP-TABLE 
-      ((TemporaryBuffer) buffer()).readAllRows(
-            (dmo) -> {
-               Long originB4Rowid = dmo._originRowid();
-               if (originB4Rowid == null ||
-                   !origBuf.peerBuffer.findByRowID(new rowid(originB4Rowid)).getValue())
-               {
-                  ErrorManager.recordOrShowError(11923, origBuf.doGetName(), doGetName());
-                  // MERGE-CHANGES run on original table <name> that does not match the ORIGIN-HANDLE in the GET-CHANGES table <name>.
-                  return;
-                  // exits lambda, continue with next record.
-                  // The error message will be displayed multiple times, one for each record.
-               }
-               
-               Long afterRowid = origBuf.peerBuffer.afterRowid().getValue();
-               if (afterRowid == null || !origBuf.findByRowID(new rowid(afterRowid)).getValue())
-               {
-                  ErrorManager.recordOrShowError(11923, origBuf.doGetName(), doGetName());
-                  // MERGE-CHANGES run on original table <name> that does not match the ORIGIN-HANDLE in the GET-CHANGES table <name>.
-                  return;
-                  // exits lambda, continue with next record.
-                  // The error message will be displayed multiple times, one for each record.
-               }
-               
-               TempRecord dstRec = (TempRecord) origBuf.buffer().getCurrentRecord();
-               if (dstRec._rowState() == null || dstRec._rowState() == Buffer.ROW_UNMODIFIED)
-               {
-                  ErrorManager.recordOrShowError(11928, doGetName(), origBuf.doGetName());
+      Long originB4Rowid = dmo._originRowid();
+      BufferImpl origB4Buffer = origAfterBuf.peerBuffer;
+      
+      switch (changesBuf.rowState().intValue())
+      {
+         case ROW_DELETED:
+            if (dmo._rowState() == Buffer.ROW_DELETED &&
+                origB4Buffer.findByRowID(new rowid(originB4Rowid)).getValue())
+            {
+               if (origB4Buffer.rowState().intValue() != Buffer.ROW_DELETED)
+               {
+                  ErrorManager.recordOrShowError(11928, changesBuf.doGetName(), origAfterBuf.doGetName());
                   // INVALID origin-rowid of the change table <name> of <name>.
                   ErrorManager.recordOrShowError(11926);
                   // Found unexpected error while merging changes.
-                  return;
-               }
-               Record snapshot = dstRec.snapshot();
-               
-               // accepts the changes by copying the after-image table rows to the corresponding
-               // after-image table rows in the original DataSet temp-table.
-               TemporaryBuffer.copyDMO(dstRec, dmo, origBuf, this);
-               
-               Long oldBefore = dstRec._peerRowid();
-               if (origBuf.isAfterBuffer() && oldBefore != null)
-               {
-                  // removes the before-image table row (if it has one).
-                  if (origBuf.peerBuffer.findByRowID(new rowid(oldBefore)).getValue())
-                  {
-                     origBuf.peerBuffer.setUpBeforeBuffer(true);
-                     origBuf.peerBuffer.deleteRecord();
-                     origBuf.peerBuffer.setUpBeforeBuffer(false);
-                  }
-               }
-               
-               // also sets the BEFORE-ROWID attribute of the row in the after-image table to the
-               // Unknown value (?), sets the ROW-STATE of the row in the after-image table to
-               // ROW-UNMODIFIED (0)
-               dstRec._peerRowid(null);
-               dstRec._rowState(Buffer.ROW_UNMODIFIED);
-               
-               try
-               {
-                  Map<String, List<Integer>> props = new HashMap<>();
-                  props.put(Buffer.ROW_STATE_FIELD, null);
-                  props.put(Buffer.AFTER_ROWID_FIELD, null);
-                  origBuf.buffer().getChangeBroker().stateChanged(
-                        RecordChangeEvent.Type.UPDATE, origBuf.buffer(), dstRec, snapshot, props);
-               }
-               catch (PersistenceException e)
-               {
-                  throw new RuntimeException(e);
-               }
-            });
+                  return false;
+               }
+               // just remove the BEFORE-IMAGE, the AFTER-IMAGE is long gone 
+               origB4Buffer.setUpBeforeBuffer(true);
+               origB4Buffer.deleteRecord();
+               origB4Buffer.setUpBeforeBuffer(false);
+            }
+            break;
+            
+         case ROW_MODIFIED:
+         case ROW_CREATED:
+            if (originB4Rowid == null)
+            {
+               ErrorManager.recordOrShowError(11923, origAfterBuf.doGetName(), changesBuf.doGetName());
+               // MERGE-CHANGES run on original table <name> that does not match the ORIGIN-HANDLE in the GET-CHANGES table <name>.
+               return false;
+            }
+            else if (!origB4Buffer.findByRowID(new rowid(originB4Rowid)).getValue())
+            {
+               ErrorManager.recordOrShowError(11928, changesBuf.doGetName(), origAfterBuf.doGetName());
+               // INVALID origin-rowid of the change table <name> of <name>.
+               ErrorManager.recordOrShowError(11926);
+               // Found unexpected error while merging changes.
+               return false;
+            }
+            
+            Long afterRowid = origB4Buffer.afterRowid().getValue();
+            if (afterRowid == null)
+            {
+               ErrorManager.recordOrShowError(11926);
+               // Found unexpected error while merging changes.
+               return false;
+               // exits lambda, continue with next record.
+               // The error message will be displayed multiple times, one for each record.
+            }
+            else if (!origAfterBuf.findByRowID(new rowid(afterRowid)).getValue())
+            {
+               ErrorManager.recordOrShowError(11923, origAfterBuf.doGetName(), changesBuf.doGetName());
+               // MERGE-CHANGES run on original table <name> that does not match the ORIGIN-HANDLE in the GET-CHANGES table <name>.
+               return false;
+               // exits lambda, continue with next record.
+               // The error message will be displayed multiple times, one for each record.
+            }
+            
+            RecordBuffer origAfterRecBuf = origAfterBuf.buffer();
+            TempRecord dstRec = (TempRecord) origAfterRecBuf.getCurrentRecord();
+            if (dstRec._rowState() == null || dstRec._rowState() == Buffer.ROW_UNMODIFIED)
+            {
+               ErrorManager.recordOrShowError(11928, changesBuf.doGetName(), origAfterBuf.doGetName());
+               // INVALID origin-rowid of the change table <name> of <name>.
+               ErrorManager.recordOrShowError(11926);
+               // Found unexpected error while merging changes.
+               return false;
+            }
+            Record snapshot = dstRec.snapshot();
+            
+            // accepts the changes by copying the after-image table rows to the corresponding
+            // after-image table rows in the original DataSet temp-table.
+            BaseRecord.copy(dstRec, dmo, false);
+            
+            Long oldBefore = dstRec._peerRowid();
+            if (origAfterBuf.isAfterBuffer() && oldBefore != null)
+            {
+               // removes the before-image table row (if it has one).
+               if (origB4Buffer.findByRowID(new rowid(oldBefore)).getValue())
+               {
+                  origB4Buffer.setUpBeforeBuffer(true);
+                  origB4Buffer.deleteRecord();
+                  origB4Buffer.setUpBeforeBuffer(false);
+               }
+            }
+            
+            // also:
+            //    sets the BEFORE-ROWID attribute of the row in the after-image table to the Unknown value (?)
+            //    sets the ROW-STATE of the row in the after-image table to ROW-UNMODIFIED (0)
+            //    resets ERROR/REJECTED attributes and ERROR-STRING to unknown value.
+            dstRec._peerRowid(null);
+            dstRec._errorFlags(null);
+            dstRec._errorString(null);
+            dstRec._peerRowid(null);
+            dstRec._rowState(Buffer.ROW_UNMODIFIED);
+            
+            try
+            {
+               Map<String, List<Integer>> props = new HashMap<>();
+               props.put(Buffer.ROW_STATE_FIELD, null);
+               props.put(Buffer.AFTER_ROWID_FIELD, null);
+               props.put(Buffer.ERROR_FLAG_FIELD, null);
+               props.put(Buffer.ERROR_STRING_FIELD, null);
+               origAfterRecBuf.getChangeBroker().stateChanged(
+                     RecordChangeEvent.Type.UPDATE, origAfterRecBuf, dstRec, snapshot, props);
+            }
+            catch (PersistenceException e)
+            {
+               throw new RuntimeException(e);
+            }
+      }
       
       // great, return with success
       return true;
@@ -8926,15 +9350,15 @@
     */
    private void setOriginRowidImpl(Long val)
    {
-      TempRecord dmo = (TempRecord) buffer().getCurrentRecord();
+      RecordBuffer recBuf = buffer();
+      TempRecord dmo = (TempRecord) recBuf.getCurrentRecord();
       TempRecord snapshot = (TempRecord) dmo.deepCopy();
       dmo._originRowid(val);
       try
       {
          Map<String, List<Integer>> props = new HashMap<>();
          props.put(Buffer.ORIGIN_ROWID_FIELD, null);
-         buffer().getChangeBroker().stateChanged(
-               RecordChangeEvent.Type.UPDATE, buffer(), dmo, snapshot, props);
+         recBuf.getChangeBroker().stateChanged(RecordChangeEvent.Type.UPDATE, recBuf, dmo, snapshot, props);
       }
       catch (PersistenceException e)
       {
@@ -9073,6 +9497,7 @@
       int rowState = rowState().intValue();
       character allPairs = new character();
       character allSrcFields = new character();
+      
       if (rowState != ROW_DELETED)
       {
          StringBuilder sb = new StringBuilder();
@@ -9102,255 +9527,277 @@
          allSrcFields.assign(sbAllSrc.toString());
       }
       
-      if (rowState == ROW_CREATED)
-      {
-         srcBuff.create();
-         
-         after.findByRowID(afterRowid());
-         logical ok = TemporaryBuffer.copy(
-               srcBuff.buffer(), after.buffer(), allSrcFields, allPairs, new logical(noLobs));
-         
-         if (ok.getValue())
-         {
-            setOriginRowidImpl(srcBuff.rowID().getValue());
-            after.setOriginRowidImpl(srcBuff.rowID().getValue());
-         }
-         
-         if (!ok.booleanValue())
-         {
-            setErrorOnSave();
-         }
-         return ok;
-      }
-      
-      logical ok = new logical();
-      ErrorManager.nestedSilent(() -> ok.assign(srcBuff._find(saveWhere, 
-                                                              FindMode.UNIQUE, 
-                                                              LockType.EXCLUSIVE, 
-                                                              this)));
-      
-      if (ok.isUnknown() || !ok.getValue() || !srcBuff._available())
-      {
-         if (rowState == ROW_DELETED)
-         {
-            // this is a silent acceptance of the fact that the record was deleted from both
-            // locations (source and dataset table)
-            
-            // in any case, update peer: the deleted row is now gone for good
-            setOriginRowidImpl(null);
-            return new logical(true);
-         }
-         
-         ErrorManager.recordOrShowError(11912, srcBuff.doGetName());
-         // Unable to find record for db buffer <name> during SAVE-ROW-CHANGES
+      logical retval = new logical();
+      doBlock(TransactionType.FULL, "save-row-changes-label", new Block() {
+         @Override
+         public void body()
+         {
+            if (rowState == ROW_CREATED)
+            {
+               srcBuff.create();
+               
+               after.findByRowID(afterRowid());
+               logical ok = TemporaryBuffer.copy(
+                     srcBuff.buffer(), after.buffer(), allSrcFields, allPairs, new logical(noLobs));
+               
+               if (ok.getValue())
+               {
+                  setOriginRowidImpl(srcBuff.rowID().getValue());
+                  after.setOriginRowidImpl(srcBuff.rowID().getValue());
+               }
+               
+               if (!ok.booleanValue())
+               {
+                  setErrorOnSave();
+               }
+               retval.assign(ok);
+               return;
+            }
+            
+            // first, detect whether the record loaded in buffer has been changed. If so (changed or modified), 
+            // update the DATA-SOURCE-MODIFIED attribute for me, my temp-table, the temp-table of the
+            // after-buffer, and dataset. The newly created record will not affect this attribute.
+            // NOTE: the attribute/function name suggests that the data source buffer was altered but, from my
+            //       tests, changing the source buffers does not affect this attribute. Having an modified or
+            //       deleted before-image loaded in before-buffer(this) will set the attribute, instead.
+            if (rowState == ROW_MODIFIED || rowState == ROW_DELETED)
+            {
+               BufferImpl.this.setDataSourceModified(true);
+               tableHandle().unwrapDataSourceModifiable().setDataSourceModified(true);
+               after.tableHandle().unwrapDataSourceModifiable().setDataSourceModified(true);
+               peerBuffer.dataSet.setDataSourceModified(true);
+            }
+            
+            logical ok = new logical();
+            ErrorManager.silent(() -> ok.assign(
+                  srcBuff._find(saveWhere, FindMode.UNIQUE, LockType.EXCLUSIVE, BufferImpl.this)));
+            
+            if (ok.isUnknown() || !ok.getValue() || !srcBuff._available())
+            {
+               if (rowState == ROW_DELETED)
+               {
+                  // this is a silent acceptance of the fact that the record was deleted from both
+                  // locations (source and dataset table)
+                  
+                  // in any case, update peer: the deleted row is now gone for good
+                  setOriginRowidImpl(null);
+                  retval.assign(true);
+                  return;
+               }
+               
+               ErrorManager.recordOrShowError(11912, srcBuff.doGetName());
+               // Unable to find record for db buffer <name> during SAVE-ROW-CHANGES
+               setErrorOnSave();
+               retval.assign(false);
+               return;
+            }
+            
+            if (rowState == ROW_DELETED)
+            {
+               srcBuff.deleteRecord();
+               // update peer: the deleted row is now gone for good
+               setOriginRowidImpl(null);
+               retval.assign(true);
+               return;
+            }
+            
+            if (rowState == ROW_MODIFIED)
+            {
+               after.findByRowID(afterRowid());
+               
+               boolean preferDataset = dSrc.getPreferDataset().getValue();
+               boolean mergeByField = dSrc.getMergeByField().getValue();
+               List<TableMapper.LegacyFieldInfo> myFields = 
+                     TableMapper.getLegacyOrderedList(BufferImpl.this, true);
+               logical res = new logical();
+               
+               try
+               {
+                  if (preferDataset)
+                  {
+                     if (!mergeByField)
+                     {
+                        // overwrite and lose any DB changes to entire row 
+                        res.assign(TemporaryBuffer.copy(srcBuff.buffer(),
+                                                        after.buffer(),
+                                                        allSrcFields,
+                                                        allPairs,
+                                                        new logical(noLobs)));
+                     }
+                     else
+                     {
+                        // save DS changes. Non overlapping DB field changes are kept.
+                        StringBuilder sb = new StringBuilder();
+                        for (TableMapper.LegacyFieldInfo fieldInfo : myFields)
+                        {
+                           String fldName = fieldInfo.getLegacyName();
+                           if (!after.dereference(fldName).equals(dereference(fldName)))
+                           {
+                              DataSource.FieldReference srcField =
+                                    after.dataSrcMapping.get(new CaseInsensitiveString(fldName));
+                              if (srcField == null)
+                              {
+                                 continue;
+                              }
+                              
+                              String srcName = srcField.getName();
+                              if (sb.length() != 0)
+                              {
+                                 sb.append(",");
+                              }
+                              sb.append(fldName).append(",").append(srcName);
+                           }
+                        }
+                        character dsChangedPairs = new character(sb.toString());
+                        
+                        res.assign(TemporaryBuffer.copy(srcBuff.buffer(),
+                                                        after.buffer(),
+                                                        allSrcFields,
+                                                        dsChangedPairs,
+                                                        new logical(noLobs)));
+                     }
+                  }
+                  else
+                  {
+                     if (!mergeByField)
+                     {
+                        // if any field was modified in database raise error, otherwise update all fields
+                        for (TableMapper.LegacyFieldInfo fieldInfo : myFields)
+                        {
+                           String fldName = fieldInfo.getLegacyName();
+                           DataSource.FieldReference srcField =
+                                 after.dataSrcMapping.get(new CaseInsensitiveString(fldName));
+                           if (srcField == null)
+                           {
+                              continue;
+                           }
+                           
+                           String srcName = srcField.getName();
+                           // before-buffer and source must be the same (otherwise, there was a change
+                           // in the database).
+                           if (!srcBuff.dereference(srcName).equals(dereference(fldName)))
+                           {
+                              // synchronize before & after buffers with the source
+                              TemporaryBuffer.copy(after.buffer(),
+                                                   srcBuff.buffer(),
+                                                   allSrcFields,
+                                                   allPairs,
+                                                   new logical(noLobs));
+                              setUpBeforeBuffer(true);
+                              TemporaryBuffer.copy(buffer(),
+                                                   srcBuff.buffer(),
+                                                   allSrcFields,
+                                                   allPairs,
+                                                   new logical(noLobs));
+                              setUpBeforeBuffer(false);
+                              
+                              // set ERROR & DATA-SOURCE-MODIFIED attributes
+                              ErrorManager.recordOrShowError(11913, srcBuff.doGetName());
+                              // SAVE-ROW-CHANGES found <name> record with conflicting change by another user.
+                              setErrorOnSave();
+                              res.assign(false);
+                              break;
+                           }
+                        }
+                        
+                        if (res.isUnknown()) // ie. no 11913 was encountered
+                        {
+                           res.assign(TemporaryBuffer.copy(srcBuff.buffer(),
+                                                           after.buffer(),
+                                                           allSrcFields,
+                                                           allPairs,
+                                                           new logical(noLobs)));
+                        }
+                     }
+                     else
+                     {
+                        // attempt to save DS changes for each field. If the field was altered in source
+                        // buffer raise error and return.
+                        StringBuilder sb = new StringBuilder();
+                        for (TableMapper.LegacyFieldInfo fieldInfo : myFields)
+                        {
+                           String fldName = fieldInfo.getLegacyName();
+                           BaseDataType originalVal = dereference(fldName);
+                           if (!after.dereference(fldName).equals(originalVal))
+                           {
+                              DataSource.FieldReference srcField =
+                                    after.dataSrcMapping.get(new CaseInsensitiveString(fldName));
+                              if (srcField == null)
+                              {
+                                 continue;
+                              }
+                              
+                              String srcName = srcField.getName();
+                              if (!srcBuff.dereference(srcName).equals(originalVal))
+                              {
+                                 // synchronize before & after buffers with the source
+                                 TemporaryBuffer.copy(after.buffer(),
+                                                      srcBuff.buffer(),
+                                                      allSrcFields,
+                                                      allPairs,
+                                                      new logical(noLobs));
+                                 setUpBeforeBuffer(true);
+                                 TemporaryBuffer.copy(buffer(),
+                                                      srcBuff.buffer(),
+                                                      allSrcFields,
+                                                      allPairs,
+                                                      new logical(noLobs));
+                                 setUpBeforeBuffer(false);
+                                 
+                                 // set ERROR & DATA-SOURCE-MODIFIED attributes
+                                 ErrorManager.recordOrShowError(11913, srcBuff.doGetName());
+                                 // SAVE-ROW-CHANGES found <name> record with conflicting change by another user.
+                                 res.assign(false);
+                                 break;
+                              }
+                              
+                              if (sb.length() != 0)
+                              {
+                                 sb.append(",");
+                              }
+                              sb.append(fldName).append(",").append(srcName);
+                           }
+                        }
+                        
+                        if (res.isUnknown()) // ie. no 11913 was encountered
+                        {
+                           res.assign(TemporaryBuffer.copy(srcBuff.buffer(),
+                                                           after.buffer(),
+                                                           allSrcFields,
+                                                           new character(sb.toString()),
+                                                           new logical(noLobs)));
+                        }
+                     }
+                  }
+               }
+               catch (ErrorConditionException ex)
+               {
+                  ErrorManager.recordOrShowError(11910, srcBuff.doGetName());
+                  // SAVE-ROW-CHANGES was unable to update the database table <table>.
+                  setErrorOnSave();
+                  retval.assign(false);
+                  return;
+               }
+               
+               srcBuff.release();
+               if (!res.booleanValue())
+               {
+                  setErrorOnSave();
+               }
+               retval.assign(res);
+               return;
+            }
+         }
+      });
+      
+      if (retval.isUnknown())
+      {
+         // something has gone wrong, there is no other valid value for [rowState]
          setErrorOnSave();
-         return new logical(false);
-      }
-      
-      if (rowState == ROW_DELETED)
-      {
-         srcBuff.deleteRecord();
-         // update peer: the deleted row is now gone for good
-         setOriginRowidImpl(null);
-         return new logical(true);
-      }
-      
-      if (rowState == ROW_MODIFIED)
-      {
-         after.findByRowID(afterRowid());
-         
-         boolean preferDataset = dSrc.getPreferDataset().getValue();
-         boolean mergeByField = dSrc.getMergeByField().getValue();
-         List<TableMapper.LegacyFieldInfo> myFields = TableMapper.getLegacyOrderedList(this, true);
-         logical res = new logical();
-         
-         try
-         {
-            if (preferDataset)
-            {
-               if (!mergeByField)
-               {
-                  // overwrite and lose any DB changes to entire row 
-                  res.assign(TemporaryBuffer.copy(
-                        srcBuff.buffer(),
-                        after.buffer(),
-                        allSrcFields,
-                        allPairs,
-                        new logical(noLobs)));
-               }
-               else
-               {
-                  // save DS changes. Non overlapping DB field changes are kept.
-                  StringBuilder sb = new StringBuilder();
-                  for (TableMapper.LegacyFieldInfo fieldInfo : myFields)
-                  {
-                     String fldName = fieldInfo.getLegacyName();
-                     if (!after.dereference(fldName).equals(dereference(fldName)))
-                     {
-                        DataSource.FieldReference srcField = 
-                           after.dataSrcMapping.get(new CaseInsensitiveString(fldName));
-                        if (srcField == null)
-                        {
-                           continue;
-                        }
-                        
-                        String srcName = srcField.getName();
-                        if (sb.length() != 0)
-                        {
-                           sb.append(",");
-                        }
-                        sb.append(fldName).append(",").append(srcName);
-                     }
-                  }
-                  character dsChangedPairs = new character(sb.toString());
-                  
-                  res.assign(TemporaryBuffer.copy(
-                        srcBuff.buffer(),
-                        after.buffer(),
-                        allSrcFields,
-                        dsChangedPairs,
-                        new logical(noLobs)));
-               }
-            }
-            else
-            {
-               if (!mergeByField)
-               {
-                  // if any field was modified in database raise error, otherwise update all fields
-                  for (TableMapper.LegacyFieldInfo fieldInfo : myFields)
-                  {
-                     String fldName = fieldInfo.getLegacyName();
-                     DataSource.FieldReference srcField = 
-                        after.dataSrcMapping.get(new CaseInsensitiveString(fldName));
-                     if (srcField == null)
-                     {
-                        continue;
-                     }
-                     
-                     String srcName = srcField.getName();
-                     // before-buffer and source must be the same (otherwise, there was a change
-                     // in the database).
-                     if (!srcBuff.dereference(srcName).equals(dereference(fldName)))
-                     {
-                        // synchronize before & after buffers with the source
-                        TemporaryBuffer.copy(
-                              after.buffer(),
-                              srcBuff.buffer(),
-                              allSrcFields,
-                              allPairs,
-                              new logical(noLobs));
-                        setUpBeforeBuffer(true);
-                        TemporaryBuffer.copy(
-                              buffer(),
-                              srcBuff.buffer(),
-                              allSrcFields,
-                              allPairs,
-                              new logical(noLobs));
-                        setUpBeforeBuffer(false);
-                        
-                        // set ERROR & DATA-SOURCE-MODIFIED attributes
-                        ErrorManager.recordOrShowError(11913, srcBuff.doGetName());
-                        // SAVE-ROW-CHANGES found <name> record with conflicting change by another user.
-                        setErrorOnSave();
-                        res.assign(false);
-                        break;
-                     }
-                  }
-                  
-                  if (res.isUnknown()) // ie. no 11913 was encountered
-                  {
-                     res.assign(TemporaryBuffer.copy(
-                           srcBuff.buffer(),
-                           after.buffer(),
-                           allSrcFields,
-                           allPairs,
-                           new logical(noLobs)));
-                  }
-               }
-               else
-               {
-                  // attempt to save DS changes for each field. If the field was altered in source
-                  // buffer raise error and return.
-                  StringBuilder sb = new StringBuilder();
-                  for (TableMapper.LegacyFieldInfo fieldInfo : myFields)
-                  {
-                     String fldName = fieldInfo.getLegacyName();
-                     BaseDataType originalVal = dereference(fldName);
-                     if (!after.dereference(fldName).equals(originalVal))
-                     {
-                        DataSource.FieldReference srcField = 
-                           after.dataSrcMapping.get(new CaseInsensitiveString(fldName));
-                        if (srcField == null)
-                        {
-                           continue;
-                        }
-                        
-                        String srcName = srcField.getName();
-                        if (!srcBuff.dereference(srcName).equals(originalVal))
-                        {
-                           // synchronize before & after buffers with the source
-                           TemporaryBuffer.copy(
-                                 after.buffer(),
-                                 srcBuff.buffer(),
-                                 allSrcFields,
-                                 allPairs,
-                                 new logical(noLobs));
-                           setUpBeforeBuffer(true);
-                           TemporaryBuffer.copy(
-                                 buffer(),
-                                 srcBuff.buffer(),
-                                 allSrcFields,
-                                 allPairs,
-                                 new logical(noLobs));
-                           setUpBeforeBuffer(false);
-                           
-                           // set ERROR & DATA-SOURCE-MODIFIED attributes
-                           ErrorManager.recordOrShowError(11913, srcBuff.doGetName());
-                           // SAVE-ROW-CHANGES found <name> record with conflicting change by another user.
-                           res.assign(false);
-                           break;
-                        }
-                        
-                        if (sb.length() != 0)
-                        {
-                           sb.append(",");
-                        }
-                        sb.append(fldName).append(",").append(srcName);
-                     }
-                  }
-                  
-                  if (res.isUnknown()) // ie. no 11913 was encountered
-                  {
-                     res.assign(TemporaryBuffer.copy(
-                           srcBuff.buffer(),
-                           after.buffer(),
-                           allSrcFields,
-                           new character(sb.toString()),
-                           new logical(noLobs)));
-                  }
-               }
-            }
-         }
-         catch (ErrorConditionException ex)
-         {
-            ErrorManager.recordOrShowError(11910, srcBuff.doGetName());
-            // SAVE-ROW-CHANGES was unable to update the database table <table>.
-            setErrorOnSave();
-            res.assign(false);
-            return new logical(false);
-         }
-         
-         srcBuff.release();
-         if (!res.booleanValue())
-         {
-            setErrorOnSave();
-         }
-         return res;
-      }
-      
-      // something has gone wrong, there is no other valid value for [rowState]
-      setErrorOnSave();
-      return new logical(false);
+         retval.assign(false);
+      }
+      
+      return retval;
    }
    
    /**
@@ -9376,19 +9823,19 @@
          return;
       }
       
-      setError(true);               // current IMAGE (it is a BEFORE IMAGE)
-      peerBuffer.setError(true);    // the AFTER-IMAGE of this BEFORE-IMAGE
+      error(true);               // current IMAGE (it is a BEFORE IMAGE)
+      peerBuffer.error(true);    // the AFTER-IMAGE of this BEFORE-IMAGE
       
       TempTable beforeTable = TempTableBuilder.asTempTable((Temporary) this);
       TempTable afterTable = (TempTable) beforeTable.getAfterTable().getResource();
       
-      beforeTable.setError(true);   // the TEMP-TABLE of current BUFFER
-      afterTable.setError(true);    // the TEMP-TABLE of the AFTER-BUFFER
+      beforeTable.error(true);   // the TEMP-TABLE of current BUFFER
+      afterTable.error(true);    // the TEMP-TABLE of the AFTER-BUFFER
       
       DataSet ds = this.dataSet != null ? this.dataSet : peerBuffer.dataSet;
       if (ds != null && ds.valid())
       {
-         ds.setError(true);       // the DATASET of the BUFFER
+         ds.error(true);       // the DATASET of the BUFFER
       }
    }
    

=== modified file 'src/com/goldencode/p2j/persist/BufferManager.java'
--- src/com/goldencode/p2j/persist/BufferManager.java	2020-10-03 16:02:03 +0000
+++ src/com/goldencode/p2j/persist/BufferManager.java	2021-01-13 21:04:41 +0000
@@ -396,6 +396,7 @@
 **     CA  20200927          Use IdentityHashMap instead of plain map when the key is a Class.
 **     CA  20201003          Replaced Guava identity HashSet with Collections.newSetFromMap(IdentityHashMap).
 **                           Allow dictionaries with an identity map.
+**     OM  20201231          Fixed buffer state in resetState().
 */
 
 /*
@@ -1463,7 +1464,7 @@
          {
             if (!buffer.isPendingRollbackProcessed())
             {
-               buffer.release(true, false);
+               buffer.release(false, false);
             }
             else
             {
@@ -2829,6 +2830,9 @@
       NameConverter nc = new NameConverter();
       String javaName = nc.convert(legacyBufferName, MatchPhraseConstants.TYPE_VARIABLE);
       
+      // this [javaName] is also used in FQL/SQL queries, be sure we have no collisions with reserved keywords 
+      javaName = NameConverter.resolvePossibleKeywordConflict(javaName, MatchPhraseConstants.TYPE_TABLE);
+      
       // quick return if base java name is not in use
       if (lookupBuffer(javaName) == null)
       {

=== modified file 'src/com/goldencode/p2j/persist/CompoundQuery.java'
--- src/com/goldencode/p2j/persist/CompoundQuery.java	2020-09-06 23:15:41 +0000
+++ src/com/goldencode/p2j/persist/CompoundQuery.java	2020-10-14 21:06:19 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2004-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ----------------------------Description-----------------------------
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 ECF 20051112   @23394 Created initial version. Implementation of an
 **                           iterative, multi-table query. Component
 **                           queries are added and the join of the results
@@ -210,6 +210,7 @@
 ** 079 AIL 20200610          Added support for afterReposition: validate buffers and release last buffer.
 **     SVL 20200619          Fixed issues caused by the previous entry.
 ** 080 ECF 20200906          New ORM implementation.
+** 081 OM  20201012          Use locally cached meta information instead of map lookup.
 */
 
 /*
@@ -3897,7 +3898,7 @@
             return false;
          }
          
-         if (!DmoMetadataManager.isLeadingIndexComponent(buffer.getDMOInterface(), joinProp))
+         if (!buffer.dmoInfo.isLeadingIndexComponent(joinProp))
          {
             if (fine)
             {

=== modified file 'src/com/goldencode/p2j/persist/DBUtils.java'
--- src/com/goldencode/p2j/persist/DBUtils.java	2020-09-06 23:15:41 +0000
+++ src/com/goldencode/p2j/persist/DBUtils.java	2021-01-28 20:00:25 +0000
@@ -2,9 +2,9 @@
 ** Module   : DBUtils.java
 ** Abstract : Static helper methods for DB services
 **
-** Copyright (c) 2004-2019, Golden Code Development Corporation.
+** Copyright (c) 2004-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ----------------------------Description-----------------------------
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 ECF 20060712   @28043 Created initial version. Static utility methods for the persistence
 **                           framework.
 ** 002 ECF 20060714   @28136 Made class and most methods public. Access is required from the
@@ -76,6 +76,9 @@
 **     CA  20190829          Virtual properties (starting with '_') are looked in the 
 **                           TempTableRecord interface.
 ** 045 ECF 20200906          New ORM implementation.
+** 046 OM  20201012          Force use locally cached meta information instead of map lookup.
+**     OM  20210127          Replaced TableMapper.getLegacyName() triple map lookup with direct access to
+**                           local dmoMeta.legacyTable.
 */
 
 /*
@@ -428,8 +431,12 @@
     * @throws  IllegalArgumentException
     *          if <code>entityName</code> does not represent a loaded class,
     *          or if there is any other error loading the class.
+    *
+    * @deprecated use {@link DmoMetadataManager#getDmoInfo(String, String)} for faster result with a richer
+    *             feature result structure.
     */
    @SuppressWarnings("unchecked")
+   @Deprecated
    public static Class<? extends Record> dmoClassForEntity(String entityName)
    {
       try
@@ -454,7 +461,10 @@
     *          DMO interface.
     * 
     * @return  DMO implementation class name.
+    * 
+    * @deprecated unused(?)
     */
+   @Deprecated
    public static String entityForDMOInterface(Class<? extends DataModelObject> dmoIface)
    {
       return dmoIface.getName() + IMPL_SUFFIX;
@@ -739,8 +749,7 @@
     *         If the field expression references an extent field, multiple field references
     *         for each extent element are returned.
     */
-   public static FieldReference[] getFieldForAddLikeColumn(P2JQuery query,
-                                                           character fieldExpression)
+   public static FieldReference[] getFieldForAddLikeColumn(P2JQuery query, character fieldExpression)
    {
       String fullSource = fieldExpression.getValue();
       if (fullSource == null)
@@ -780,7 +789,7 @@
          RecordBuffer recordBuffer = ((BufferImpl) buffer).buffer();
          
          String bufferName = buffer.name().getValue();
-         String defaultBufferName = TableMapper.getLegacyName(buffer);
+         String defaultBufferName = recordBuffer.dmoInfo.legacyTable;
          String databaseName = recordBuffer.getDatabase().getName();
          
          boolean databaseMatch = srcDatabaseName != null && srcDatabaseName.equals(databaseName);
@@ -1029,30 +1038,23 @@
     *          String buffer into which results are emitted.
     * @param   type
     *          Database type, which drives the dialect to use to compose the name.
-    * 
-    * @throws  PersistenceException
-    *          if any errors occur looking up metadata regarding the property.
     */
-   static void composePropertyName(RecordBuffer buffer,
-                                   String name,
-                                   StringBuilder buf,
-                                   Database.Type type)
-   throws PersistenceException
+   static void composePropertyName(RecordBuffer buffer, String name, StringBuilder buf, Database.Type type)
    {
-      boolean isCharacter = false;
+      boolean isChar = false;
       boolean ignoreCase = false;
       String computedColumnPrefix = null;
-      
-      Class<? extends DataModelObject> dmoIface = buffer.getDMOInterface();
-      if (character.class.equals(getDMOPropertyType(dmoIface, name)))
-      {
-//         String schema = buffer.getSchema();
-         isCharacter = true;
-         ignoreCase = !DmoMetadataManager.isCaseSensitive(/*schema,*/ dmoIface, name);
-      }
-      
       Dialect dialect = null;
-      if (isCharacter)
+      
+      DmoMeta dmoInfo = buffer.dmoInfo;
+      Property propInfo = dmoInfo.getFieldInfo(name);
+      if (propInfo._isCharacter)
+      {
+         isChar = true;
+         ignoreCase = !propInfo.caseSensitive;
+      }
+      
+      if (isChar)
       {
          if (!Database.Type.PRIMARY.equals(type))
          {
@@ -1067,8 +1069,7 @@
          
          if (dialect.needsComputedColumns())
          {
-            Class<? extends Record> dmoClass = buffer.getDMOImplementationClass();
-            Boolean ccIgnoreCase = DatabaseManager.getIgnoreCase(dmoClass, name);
+            Boolean ccIgnoreCase = dmoInfo.isIndexedIgnoreCase(name);
             if (ccIgnoreCase != null)
             {
                computedColumnPrefix = dialect.getComputedColumnPrefix(!ignoreCase);
@@ -1076,46 +1077,8 @@
          }
       }
       
-      composePropertyName(isCharacter,
-                          ignoreCase,
-                          computedColumnPrefix,
-                          buffer.getDMOAlias(),
-                          name,
-                          buf, 
-                          dialect);
-   }
-   
-   /**
-    * Determine whether the given property in the context of the given DMO class represents a
-    * mandatory (i.e., non-nullable) database column.
-    * 
-    * @param   database
-    *          Database containing table represented by DMO class.
-    * @param   dmoClass
-    *          DMO implementation class.
-    * @param   property
-    *          Property name.
-    * 
-    * @return  <code>true</code> if the property is mandatory, else <code>false</code>.
-    */
-   /*
-   static boolean isMandatoryProperty(Database database, Class<?> dmoClass, String property)
-   {
-      Set<String> notNullProps = notNullPropSets.get(dmoClass);
-      if (notNullProps == null)
-      {
-         notNullProps = new HashSet<>();
-         Iterator<String> iter = DatabaseManager.notNullProperties(database, dmoClass);
-         while (iter.hasNext())
-         {
-            notNullProps.add(iter.next());
-         }
-         notNullPropSets.put(dmoClass, notNullProps);
-      }
-      
-      return notNullProps.contains(property);
-   }
-   */
+      composePropertyName(isChar, ignoreCase, computedColumnPrefix, buffer.getDMOAlias(), name, buf, dialect);
+   }
    
    /**
     * Right-trim array according to the query's table count.

=== modified file 'src/com/goldencode/p2j/persist/DataRelation.java'
--- src/com/goldencode/p2j/persist/DataRelation.java	2020-01-20 11:21:22 +0000
+++ src/com/goldencode/p2j/persist/DataRelation.java	2021-01-28 20:00:25 +0000
@@ -2,9 +2,9 @@
 ** Module   : DataRelation.java
 ** Abstract : A data relation object.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20190403 Created initial version.
 ** 002 OM  20190611 Added runtime implementation.
 ** 003 OM  20190716 Calling the right super c'tor based on the parent dataset's dynamic attribute.
@@ -12,6 +12,8 @@
 **     CA  20190812 Changes to allow for mutable buffers; any API which receives a Buffer instance 
 **                  and is invoked from converted code must resolve the runtime instance before
 **                  saving the instance.
+** 004 OM  20201030 Invalid attribute API support for getters/setters.
+**     OM  20201202 Improved compatibility of attributes with P4GL.
 */
 
 /*
@@ -188,7 +190,6 @@
       this.childBuffer = ((BufferImpl) child).ref();
       this.relationFields = relationFields;
       this.recursive = recursive;
-      this.reposition = false;
       
       // create the default WHERE-STRING
       String pbn = parent.name().toJavaType();
@@ -212,9 +213,8 @@
    }
    
    /**
-    * Creates a new simple {@code DataRelation} based on join between pairs of fields from parent
-    * and child buffer. This is the constructor called when a {@code ADD-PARENT-ID-RELATION}
-    * method is successful.
+    * Creates a new simple {@code DataRelation} based on join between pairs of fields from parent and child
+    * buffer. This is the constructor called when a {@code ADD-PARENT-ID-RELATION} method is successful.
     *
     * @param   parent
     *          The parent buffer.
@@ -227,33 +227,54 @@
     *          The list of fields to be serialized before.
     * @param   afterFields
     *          The list of fields to be serialized after.
+    * @param   dynamic
+    *          Use {@code true} for dynamically created relations.
     */
    public DataRelation(DataSet dataSet, 
                        Buffer parent,
                        Buffer child,
                        String parentLink,
                        List<String> beforeFields,
-                       List<String> afterFields)
+                       List<String> afterFields,
+                       boolean dynamic)
    {
       super(dataSet._dynamic());
       this.dataSet = dataSet.ref();
       this.parentBuffer = ((BufferImpl) parent).ref();
       this.childBuffer = ((BufferImpl) child).ref();
       this.parentLink = parentLink;
-      this.beforeFields = beforeFields;
-      this.afterFields = afterFields;
-      this.reposition = true;
+      this.beforeFields = beforeFields.isEmpty() ? null : beforeFields;
+      this.afterFields = afterFields.isEmpty() ? null : afterFields;
       
       // create the default WHERE-STRING
       String pbn = parent.name().getValue();
       String cbn = child.name().getValue();
       
       // use lazy-initialization for [query]
-      this.whereString = "WHERE " + cbn + '.' + parentLink + "=RECID(" + pbn + ')';
+      // I found different "styles" of essentially the same predicate, the only differences being the single
+      // space prefix and capitalization for WHERE and RECID keywords 
+      // this.whereString = "WHERE " + cbn + '.' + parentLink + "=RECID(" + pbn + ')';
+      this.whereString = " where " + cbn + '.' + parentLink + "=recid(" + pbn + ')';
       
       // mark unused fields for this kind of DataRelation:
       this.recursive = false;
       this.relationFields = null;
+      
+      if (dynamic)
+      {
+         confirmDynamic();
+      }
+   }
+   
+   /**
+    * Confirms that this object is dynamic.<p>
+    * This method finishes setting this object parent-procedure and makes sure it is deleted at the
+    * appropriate moment (when the parent dataset is deleted). This is only needed for dynamically created
+    * relations.
+    */
+   void confirmDynamic()
+   {
+      ProcedureManager.processResource(this, true);
    }
    
    /**
@@ -273,7 +294,7 @@
     * {@code DataSet} object.
     *
     * @param   active
-    *          The new state of {@code ACTIVE} attribute. 
+    *          The new state of {@code ACTIVE} attribute.
     */
    @Override
    public void setActive(boolean active)
@@ -283,10 +304,22 @@
          return;
       }
       
-      if (!active || dataSet.allowsActiveChild(childBuffer))
+      if (_isParentIdRelation() || !active)
       {
          this.active = active;
       }
+      else 
+      {
+         if (dataSet.allowsActiveChild(childBuffer) == null)
+         {
+            this.active = true;
+         }
+         else
+         {
+            ErrorManager.recordOrShowError(11979, childBuffer.name().toStringMessage());
+            // Buffer <name> can have only 1 active parent relation.
+         }
+      }
    }
    
    /**
@@ -387,10 +420,6 @@
    @Override
    public character getWhereString()
    {
-      if (query == null)
-      {
-         createQuery(whereString);
-      }
       return new character(whereString);
    }
    
@@ -404,12 +433,25 @@
    @Override
    public void setWhereString(String where)
    {
-      createQuery(where);
+      if (createQuery(where))
+      {
+         whereString = where;
+      }
+      else
+      {
+         ErrorManager.recordOrShowError(11981);
+         // Failed to auto-prepare an automatic fill query.
+         ErrorManager.recordOrShowError(3131, "WHERE-STRING", "", LegacyResource.DATA_RELATION);
+         // Unable to set attribute %1 in widget %2 of type %3.
+      }
    }
    
    /**
     * Modifies the current WHERE expression that links the child table to its parent. This is the
     * setter implementation for {@code WHERE-STRING} ABL attribute.
+    * <p>
+    * Unlike other attributes, this attribute can be set tu unknown value!
+    * 
     *
     * @param   where
     *          the new predicate.
@@ -417,7 +459,7 @@
    @Override
    public void setWhereString(Text where)
    {
-      createQuery(where.toJavaType());
+      setWhereString(where.toJavaType());
    }
    
    /**
@@ -565,7 +607,7 @@
    @Override
    public character getParentFieldsAfter()
    {
-      if (_isParentIdRelation())
+      if (!_isParentIdRelation() || afterFields == null)
       {
          return new character();
       }
@@ -593,7 +635,7 @@
    @Override
    public character getParentFieldsBefore()
    {
-      if (_isParentIdRelation())
+      if (!_isParentIdRelation() || beforeFields == null)
       {
          return new character();
       }
@@ -719,8 +761,7 @@
    @Override
    public void setQueryAsHandle(handle qry)
    {
-      ErrorManager.recordOrShowError(4052, "QUERY", "setable", "DATA-RELATION widget");
-      // **<attribute> is not a <settable/queryable> attribute for <widget id>.
+      handle.invalidAttribute("QUERY", true, LegacyResource.DATA_RELATION);
    }
    
    /**
@@ -732,8 +773,7 @@
    @Override
    public void setQueryAsHandle(QueryWrapper qry)
    {
-      ErrorManager.recordOrShowError(4052, "QUERY", "setable", "DATA-RELATION widget");
-      // **<attribute> is not a <settable/queryable> attribute for <widget id>.
+      handle.invalidAttribute("QUERY", true, LegacyResource.DATA_RELATION);
    }
    
    /**
@@ -802,7 +842,7 @@
       
       if (!HandleChain.validateName(name))
       {
-         ErrorManager.recordOrThrowError(3131, "NAME", "",  "DATA-RELATION");
+         ErrorManager.recordOrThrowError(3131, "NAME", "", LegacyResource.DATA_RELATION);
          // Unable to set attribute <attribute name> in widget <widget name> of type <widget-type>.
          return;
       }
@@ -840,7 +880,7 @@
    @Override
    public handle getNextSibling()
    {
-      invalidAttribute("NEXT-SIBLING");
+      handle.invalidAttribute("NEXT-SIBLING", false, LegacyResource.DATA_RELATION);
       return new handle();
    }
    
@@ -852,7 +892,7 @@
    @Override
    public handle getPrevSibling()
    {
-      invalidAttribute("PREV-SIBLING");
+      handle.invalidAttribute("PREV-SIBLING", false, LegacyResource.DATA_RELATION);
       return new handle();
    }
    
@@ -967,7 +1007,7 @@
    
    /**
     * Checks whether this relation is active.
-    *
+    * 
     * @return  the current state of {@code ACTIVE} attribute.
     */
    boolean _isActive()
@@ -976,6 +1016,16 @@
    }
    
    /**
+    * Query the current value of {@code REPOSITION} attribute.
+    * 
+    * @return  the current value of {@code REPOSITION} attribute.
+    */
+   boolean _isReposition()
+   {
+      return reposition;
+   }
+   
+   /**
     * Internal check whether this is a parent-id-relation.
     * 
     * @return  {@code true} when {@link #parentLink} is not {@code null}.
@@ -991,8 +1041,9 @@
     *
     * @param   where
     *          The new predicate.
+    * @return  {@code true} if operation is successful.
     */
-   private void createQuery(String where)
+   private boolean createQuery(String where)
    {
       // prepare the query
       String pbn = parentBuffer.name().toJavaType();
@@ -1016,17 +1067,7 @@
       query = (QueryWrapper) hQuery.unwrapQuery();
       query.setBuffers(childBuffer);
       query.setSubstitutionBuffers(parentBuffer);
-      if (query.prepare(sb.toString()).booleanValue())
-      {
-         this.whereString = where;
-      }
-      else
-      {
-         ErrorManager.recordOrShowError(11981);
-         // Failed to auto-prepare an automatic fill query.
-         ErrorManager.recordOrShowError(3131, "WHERE-STRING", "", "DATA-RELATION");
-         // Unable to set attribute %1 in widget %2 of type %3.
-      }
+      return query.prepare(sb.toString()).booleanValue();
    }
    
    /**

=== modified file 'src/com/goldencode/p2j/persist/DataSet.java'
--- src/com/goldencode/p2j/persist/DataSet.java	2020-04-27 16:17:03 +0000
+++ src/com/goldencode/p2j/persist/DataSet.java	2021-01-21 22:49:45 +0000
@@ -2,9 +2,9 @@
 ** Module   : DataSet.java
 ** Abstract : Abstracts the DATASET ABL structure.
 **
-** Copyright (c) 2019-2020, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20190403 Created initial version with stubbed methods.
 ** 002 OM  20190508 Ported createDynamicDataSet().
 **     CA  20190513 DATASET can use the '::' operator.  Added 'asHandle'.
@@ -34,6 +34,11 @@
 **                  source definition class.
 **     CA  20200110 More fixes for DATASET parameters and resource delete.
 ** 006 CA  20200427 Allow a DATASET to be read from JSON argument, in case of a remote REST call.
+** 007 OM  20201030 Invalid attribute API support for getters/setters.
+**     OM  20201118 Extracted SERIALIZE-HIDDEN into independent interface.
+**     OM  20201120 Fixed of methods and attributes implementations.
+**     OM  20201218 Fixed implementation for error and rejected attributes/hidden fields.
+**     OM  20210115 OE quirk/bug: allowed duplicate relations for same buffer pair.
 */
 
 /*
@@ -94,8 +99,11 @@
 import com.goldencode.p2j.persist.TemporaryBuffer.CopyTableMode;
 import com.goldencode.p2j.persist.serial.*;
 import com.goldencode.p2j.util.*;
+import com.goldencode.p2j.util.ErrorManager;
 
+import java.sql.*;
 import java.util.*;
+import java.util.logging.*;
 
 /**
  * {@code DataSet} objects are collections of one or more related temp-tables. Each temp-table of
@@ -113,6 +121,7 @@
            CreateLike,
            DataSetChangeable,
            DataSetInterface,
+           DataSourceModifiable,
            Dereferenceable,
            DynamicResource,
            Errorable,
@@ -121,6 +130,7 @@
            NamedSerializable,
            NamespaceURI,
            Rejectable,
+           SerializeHiddenable,
            TempTableDuplicator,
            UniqueID,
            XmlData,
@@ -135,6 +145,9 @@
    /** Corresponds to UNIQUE-ID attribute. */
    private final integer uuid = UniqueIdGenerator.getUniqueId(UniqueIdGenerator.IdKind.DATASET);
    
+   /** Logger for objects of this type. */
+   private static final Logger log = LogHelper.getLogger(DataSet.class.getName());
+   
    /** The value of {@code ADM-DATA} ABL attribute. */
    private String admData = null;
    
@@ -173,7 +186,7 @@
    private boolean rejected = false;
    
    /** A map with all known callbacks. The keys MUST be in UPPERCASE.*/
-   private Map<String, CallbackData> callbacks = new HashMap<>();
+   private final Map<String, CallbackData> callbacks = new HashMap<>();
    
    /**
     * Flags the dynamically constructed objects (using {@code CREATE} as opposed to statically
@@ -217,7 +230,7 @@
    private Set<DataSetParameter> outputParams = null;
    
    /** The list of references of this object. */
-   private Set<StaticDataSet> refs = new HashSet<>();
+   private final Set<StaticDataSet> refs = new HashSet<>();
    
    /**
     * Factory method. Corresponds to {@code CREATE DATASET} statement. Creates a new
@@ -756,14 +769,14 @@
       {
          ErrorManager.recordOrShowError(12411);
          // Cannot set attribute for a static object.
-         ErrorManager.recordOrThrowError(3131, "NAME", "",  "DATASET");
+         ErrorManager.recordOrThrowError(3131, "NAME", "",  LegacyResource.DATASET);
          // Unable to set attribute <attribute name> in widget <widget name> of type <widget-type>.
          return;
       }
       
       if (!validateName(name))
       {
-         ErrorManager.recordOrThrowError(3131, "NAME", this.name,  "DATASET");
+         ErrorManager.recordOrThrowError(3131, "NAME", this.name,  LegacyResource.DATASET);
          // Unable to set attribute <attribute name> in widget <widget name> of type <widget-type>.
          return;
       }
@@ -840,6 +853,33 @@
    }
    
    /**
+    * Get the {@code PREV-SIBLING} attribute of this DataSet. Actually always returns {@code null} because
+    * this attribute is not supported by DataSets. Only {@code NEXT-SIBLING} is supported.
+    *
+    * @return  Always {@code null}.
+    */
+   @Override
+   public handle getPrevSibling()
+   {
+      handle.invalidAttribute("PREV-SIBLING", false, LegacyResource.DATASET);
+      return new handle();
+   }
+   
+   /**
+    * Get the {@code NEXT-SIBLING} attribute of this DataSet. Actually always returns the super's 
+    * {@code getPrevSibling()} because DataSets are queued in reverse order(!).
+    * <p>
+    * TODO: investigate other handle resource that manifest the same from the point of NEXT/PREV-SIBLING.
+    *
+    * @return  Always {@code null}.
+    */
+   @Override
+   public handle getNextSibling()
+   {
+      return super.getPrevSibling();
+   }
+   
+   /**
     * Returns the resource to it's clear state. The buffers and relations are removed. However,
     * the content of the dataset tables is not dropped (ie, the tables are not cleared and will
     * keep their current data).
@@ -856,7 +896,7 @@
          return new logical(false);
       }
       
-      clearImpl(true);
+      clearImpl(false, true);
       
       // TODO: when is false returned?
       return new logical(true);
@@ -867,14 +907,19 @@
     * to default values.
     * <p>
     * After being invoked on a dynamic {@code DataSet} the object gets ready to be repopulated.
-    * In this case the method can be invoked multiple times. 
-    * TODO: dynamic buffers that are added to a ProDataSet are deleted when the DataSet is
-    *       deleted, unless you set the buffer's AUTO-DELETE attribute to false.    
+    * In this case the method can be invoked multiple times.
     * <p>
     * In the case of a static {@code DataSet}s, the method is called only once, when the object is
     * destroyed. It only makes it easy for GC to free the occupied resources.
+    *
+    * @param   delete
+    *          The dataset will be deleted. If there are dynamic buffers associated with it having AUTO-DELETE
+    *          attribute set they will be also deleted.
+    * @param   resetProperties
+    *          If {@code true} all attributes of the dataset are set to unknown values.
+    *
     */
-   private void clearImpl(boolean resetProperties)
+   private void clearImpl(boolean delete, boolean resetProperties)
    {
       for (DataRelation rel : relations)
       {
@@ -884,23 +929,20 @@
       
       for (BufferImpl buf : buffers)
       {
-         buf.setDataSet(null);
-         
-         if (buf._dynamic())
+         // delete dynamic buffers unless the buffer's AUTO-DELETE attribute is set to FALSE
+         if (delete && buf._dynamic() && buf.autoDelete().toJavaType())
          {
-            // TODO: delete dynamic buffers UNLESS the buffer's AUTO-DELETE attribute is set to false
             handle tt = buf.tableHandle();
-            if (tt._isValid() && tt.unwrapDynamicResource()._dynamic())
+            if (tt._isValid() && tt.unwrapDynamicResource()._dynamic()) 
             {
                // delete the temp-table
                ((AbstractTempTable) tt.getResource()).delete();
             }
-            else
-            {
-               // delete the buffer
-               buf.delete();
-            }
+            // delete the buffer
+            buf.delete();
          }
+         
+         buf.setDataSet(null);
       }
       buffers.clear();
       
@@ -1169,10 +1211,26 @@
          return new logical(false);
       }
       
+      if (buffers.isEmpty())
+      {
+         return new logical(true);
+      }
+      
+      // NOTE: this is probably a bug / quirk: if an unrelated (ie. not original) dataset is passed as
+      //       parameter, the method returns with success without altering the tables
+      //       TODO: prove the last affirmation
+      TempTable ttChanges = (TempTable) buffers.get(0).tableHandle().getResource();
+      TempTable ttOriginal = (TempTable) dsOriginal.getBuffers().get(0).tableHandle().getResource();
+      WrappedResource ufo = ttChanges.getOriginHandle().getResource();
+      if (ufo != null && ufo != ttOriginal)
+      {
+         return new logical(true);
+      }
+      
       for (int i = 0; i < buffers.size(); i++)
       {
-         BufferImpl myBuf = buffers.get(i);              // contains the changes
-         BufferImpl origBuf = dsOriginal.getBuffers().get(i); // the target temp-table
+         BufferImpl myBuf = buffers.get(i);                    // contains the changes
+         BufferImpl origBuf = dsOriginal.getBuffers().get(i);  // the target temp-table
          
          logical res = myBuf.mergeChanges(new handle(origBuf), allCopyMode);
          if (!res.getValue())
@@ -1181,7 +1239,7 @@
          }
       }
       
-      setError(false); // clear the ERROR attribute in the process
+      error(false); // clear the ERROR attribute in the process
       return new logical(true);
    }
    
@@ -1557,8 +1615,7 @@
                                 logical looseCopy,
                                 character prefix)
    {
-      ErrorManager.recordOrShowError(4052, "COPY-TEMP-TABLE", "queryable", "DATASET widget");
-      // **COPY-TEMP-TABLE is not a queryable attribute for DATASET widget.
+      handle.invalidAttribute("COPY-TEMP-TABLE", false, LegacyResource.DATASET);
       return new logical();
    }
    
@@ -1593,23 +1650,11 @@
                                 boolean looseCopy,
                                 String prefix)
    {
-      ErrorManager.recordOrShowError(4052, "COPY-TEMP-TABLE", "queryable", "DATASET widget");
-      // **COPY-TEMP-TABLE is not a queryable attribute for DATASET widget.
+      handle.invalidAttribute("COPY-TEMP-TABLE", false, LegacyResource.DATASET);
       return new logical();
    }
    
    /**
-    * Set the FILL-MODE attribute.
-    * 
-    * @param    mode
-    *           The FILL-MODE.
-    */
-   public void fillMode(character mode)
-   {
-      UnimplementedFeature.missing("DATASET:FILL-MODE");
-   }
-   
-   /**
     * Fills a {@code DataSet} object, recursively, based on its defined data sources, data
     * relations, and queries. When invoked on one of its member {@code Buffer} objects a partial
     * fill is performed, by starting at the respective level.
@@ -1621,29 +1666,138 @@
    {
       if (!invokeCallback(asHandle(), callbacks.get(BEFORE_FILL_EVENT)))
       {
-         setError(true);
+         error(true);
          return new logical(false);
       }
       
-      logical fillOk = new logical(true);
-      // start with the current set of top-buffers
-      List<Buffer> topBuffers = getTopBufferList();
-      for (Buffer crtBuffer : topBuffers)
-      {
-         // fill this buffer. It will invoke fill for all buffers in parent relation (nesting)
-         fillOk.assign(crtBuffer.fill());
-         if (!fillOk.getValue())
-         {
-            break;
+      ErrorManager.ErrorHelper errHlp = ErrorManager.getErrorHelper();
+      boolean wmOn = errHlp.isWarningMode();
+      if (!wmOn)
+      {
+         errHlp.setWarningMode(true);
+      }
+      
+      try
+      {
+         // start with the current set of top-buffers
+         List<Buffer> topBuffers = getTopBufferList();
+         for (Buffer crtBuffer : topBuffers)
+         {
+            // fill this buffer. It will invoke fill for all buffers in parent relation (nesting)
+            logical fillOk = new logical(crtBuffer.fill());
+            if (!fillOk.getValue())
+            {
+               return fillOk;
+            }
+         }
+      }
+      finally
+      {
+         if (!wmOn)
+         {
+            errHlp.setWarningMode(false);
          }
       }
       
       boolean ok = invokeCallback(asHandle(), callbacks.get(AFTER_FILL_EVENT));
-      ok = ok && fillOk.booleanValue();
-      setError(!ok);
+      error(!ok);
       return new logical(ok);
    }
    
+   
+   /**
+    * Obtain the mode in which the {@link DataSet#fill()} method fills a {@code DataSet} member buffer. The
+    * default mode is {@code MERGE}.
+    * <p>
+    * <strong>Note:</strong>
+    *         Undocumented feature: query all buffers and returns the common fill mode if one exist. Otherwise
+    *         returns unknown value.
+    *
+    * @return  always unknown value.
+    */
+   @Override
+   public character fillMode()
+   {
+      String mode = null;
+      for (int i = 0; i < buffers.size(); i++)
+      {
+         String crtFillMode = buffers.get(i).fillMode().toJavaType();
+         if (i == 0)
+         {
+            // assume the fill-mode value of first buffer 
+            mode = crtFillMode;
+         }
+         else if (mode == null || !mode.equals(crtFillMode))
+         {
+            return new character();
+         }
+      }
+      
+      return new character(mode);
+   }
+   
+   /**
+    * Configures the mode in which the {@link DataSet#fill()} method fills a {@code DataSet} member buffer.
+    * The allowed modes are: {@code APPEND}, {@code EMPTY}, {@code MERGE}, {@code NO-FILL}, and
+    * {@code REPLACE}.
+    * <p>
+    * <strong>Note:</strong>
+    *         Undocumented feature: set the fill mode on all buffers.
+    *
+    * @param   mode
+    *          The new fill mode for the buffers of this dataset.
+    */
+   @Override
+   public void fillMode(String mode)
+   {
+      if (mode == null)
+      {
+         unableToAssignUnknown("FILL-MODE", "DATASET widget");
+         return;
+      }
+      
+      String upperMode = mode.toUpperCase();
+      switch (upperMode)
+      {
+         case FM_APPEND:
+         case FM_EMPTY:
+         case FM_MERGE:
+         case FM_NOFILL:
+         case FM_REPLACE:
+            // one of these is expected
+            break;
+         default:
+            // but this is not. Complain about it.
+            ErrorManager.recordOrShowError(11960);
+            // FILL-MODE must be one of NO-FILL, MERGE, EMPTY, etc. 
+            ErrorManager.recordOrShowError(4058, "FILL-MODE", "DATASET widget", mode);
+            // **Attribute <attribute> for the <widget id> has an invalid value of <string>.
+      }
+      
+      // set the fill mode on all buffers
+      for (BufferImpl buffer : buffers)
+      {
+         buffer.fillMode(mode);
+      }
+   }
+   
+   /**
+    * Configures the mode in which the {@link DataSet#fill()} method fills a {@code DataSet} member buffer.
+    * The allowed modes are: {@code APPEND}, {@code EMPTY}, {@code MERGE}, {@code NO-FILL},
+    * and {@code REPLACE}.
+    * <p>
+    * <strong>Note:</strong>
+    *         Undocumented feature: set the fill mode on all buffers.
+    *
+    * @param   mode
+    *          the new fill mode for this buffer.
+    */
+   @Override
+   public void fillMode(Text mode)
+   {
+      fillMode(mode == null ? null : mode.toJavaType());
+   }
+   
    /**
     * Obtain number of references to a {@code Buffer}, {@code DataSet}, or {@code TempTable}
     * object that is defined as a parameter to which reference-only objects are bound.
@@ -1722,7 +1876,7 @@
          }
       }
       
-      setError(false); // clear the ERROR attribute in the process
+      error(false); // clear the ERROR attribute in the process
       return new logical(true);
    }
    
@@ -1750,7 +1904,7 @@
          }
       }
       
-      setError(false); // clear the ERROR attribute in the process
+      error(false); // clear the ERROR attribute in the process
       return new logical(true);
    }
    
@@ -1760,21 +1914,6 @@
     *
     * @param   eventName
     *          The event whose callback will be called.
-    * 
-    * @return  {@code true} if operation is successful.
-    */
-   @Override
-   public logical applyCallback(Text eventName)
-   {
-      return applyCallback(eventName.toJavaType());
-   }
-   
-   /**
-    * Applies a callback procedure, which allows execution of a defined event without duplicating
-    * the event procedure definition.
-    *
-    * @param   eventName
-    *          The event whose callback will be called.
     *
     * @return   {@code true} if operation is successful.
     */
@@ -1799,21 +1938,6 @@
     * @return the name of the internal procedure associated with specified event.
     */
    @Override
-   public character getCallbackProcName(Text eventName)
-   {
-      return getCallbackProcName(eventName.toJavaType());
-   }
-   
-   /**
-    * Retrieves the name of the internal procedure associated with the ABL callback for the
-    * specified event.
-    *
-    * @param   eventName
-    *          The name of the event.
-    *
-    * @return the name of the internal procedure associated with specified event.
-    */
-   @Override
    public character getCallbackProcName(String eventName)
    {
       if (!isCallbackName(eventName))
@@ -1840,21 +1964,6 @@
     * @return  a handle to the procedure that contains the callback procedure.
     */
    @Override
-   public handle getCallbackProcContext(Text eventName)
-   {
-      return getCallbackProcContext(eventName.toJavaType());
-   }
-   
-   /**
-    * Retrieves the handle of the procedure that contains the internal procedure associated
-    * with the ABL callback for the specified event
-    *
-    * @param   eventName
-    *          The name of the event.
-    *
-    * @return  a handle to the procedure that contains the callback procedure.
-    */
-   @Override
    public handle getCallbackProcContext(String eventName)
    {
       if (!isCallbackName(eventName))
@@ -1879,42 +1988,6 @@
     *          The name of a callback.
     * @param   routineName
     *          The name of a method or an internal procedure to be associated.
-    *
-    * @return  {@code true} if {@code callbackName} is a correct callback name. The rest of
-    *          parameters are ignored (note: manual states otherwise).
-    */
-   @Override
-   public logical setCallback(String callbackName, String routineName)
-   {
-      return setCallback(callbackName, routineName, (object<?>) null);
-   }
-   
-   /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be associated.
-    *
-    * @return  {@code true} if {@code callbackName} is a correct callback name. The rest of
-    *          parameters are ignored (note: manual states otherwise).
-    */
-   @Override
-   public logical setCallback(Text callbackName, Text routineName)
-   {
-      return setCallback(callbackName.toJavaType(), routineName.toJavaType(), (object<?>) null);
-   }
-   
-   /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be associated.
     * @param   context
     *          The context in which the callback will be executed.
     *
@@ -1929,129 +2002,41 @@
          return new logical(false);
       }
       
-      if (routineName != null)
-      {
-         CallbackData cbd;
-         if (context == null || context.isUnknown())
+      if (routineName == null)
+      {
+         return new logical(true);
+      }
+      
+      if (routineName.isEmpty())
+      {
+         callbacks.remove(callbackName.toUpperCase());
+         return new logical(true);
+      }
+      
+      CallbackData cbd;
+      if (context == null || context.isUnknown())
+      {
+         // defaulting to THIS-OBJECT or to THIS-PROCEDURE, depending on the context
+         if (ObjectOps.thisObject().isUnknown())
          {
-            // defaulting to THIS-OBJECT or to THIS-PROCEDURE, depending on the context
-            if (ObjectOps.thisObject().isUnknown())
-            {
-               cbd = new CallbackData(routineName, ProcedureManager.thisProcedure(), null);
-            }
-            else
-            {
-               cbd = new CallbackData(routineName, null, ObjectOps.thisObject());
-            }
+            cbd = new CallbackData(routineName, ProcedureManager.thisProcedure(), null);
          }
          else
          {
-            cbd = new CallbackData(routineName, null, context);
+            cbd = new CallbackData(routineName, null, ObjectOps.thisObject());
          }
-         
-         callbacks.put(callbackName.toUpperCase(), cbd);
-      }
+      }
+      else
+      {
+         cbd = new CallbackData(routineName, null, context);
+      }
+      
+      callbacks.put(callbackName.toUpperCase(), cbd);
       
       return new logical(true);
    }
    
    /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be associated.
-    * @param   context
-    *          The context in which the callback will be executed.
-    *
-    * @return  {@code true} if {@code callbackName} is a correct callback name. The rest of
-    *          parameters are ignored (note: manual states otherwise).
-    */
-   @Override
-   public logical setCallback(Text callbackName, Text routineName, object<?> context)
-   {
-      return setCallback(callbackName.toJavaType(), routineName.toJavaType(), context);
-   }
-   
-   /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be associated.
-    * @param   context
-    *          The context in which the callback will be executed.
-    *
-    * @return  {@code true} if {@code callbackName} is a correct callback name. The rest of
-    *          parameters are ignored (note: manual states otherwise).
-    */
-   @Override
-   public logical setCallback(String callbackName, String routineName, handle context)
-   {
-      return setCallbackProcedure(callbackName, routineName, context);
-   }
-   
-   /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be associated.
-    * @param   context
-    *          The context in which the callback will be executed.
-    *
-    * @return  {@code true} if {@code callbackName} is a correct callback name. The rest of
-    *          parameters are ignored (note: manual states otherwise).
-    */
-   @Override
-   public logical setCallback(Text callbackName, Text routineName, handle context)
-   {
-      return setCallback(callbackName.toJavaType(), routineName.toJavaType(), context);
-   }
-   
-   /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be associated.
-    * @param   context
-    *          The context in which the callback will be executed.
-    *
-    * @return  {@code true} if {@code callbackName} is a correct callback name. The rest of
-    *          parameters are ignored (note: manual states otherwise).
-    */
-   @Override
-   public logical setCallback(String callbackName, Text routineName, handle context)
-   {
-      return setCallback(callbackName, routineName.toJavaType(), context);
-   }
-   
-   /**
-    * Associates an internal procedure with an ABL callback event.
-    *
-    * @param   name
-    *          The name of the event.
-    * @param   callback
-    *          The name of the internal procedure associated with the callback event.
-    *
-    * @return  {@code true} when the method ends with success.
-    */
-   @Override
-   public logical setCallbackProcedure(String name, String callback)
-   {
-      return setCallbackProcedure(name, callback, null);
-   }
-   
-   /**
     * Associates an internal procedure with an ABL callback event.
     *
     * @param   eventName
@@ -2073,160 +2058,43 @@
          return new logical(false);
       }
       
-      if (callback != null)
-      {
-         if (context == null || context.isUnknown())
-         {
-            // defaulting to THIS-PROCEDURE
-            context = ProcedureManager.thisProcedure();
-         }
-         else
-         {
-            if (!context._isValid() || !(context.getResource() instanceof PersistentProcedure))
-            {
-               ErrorManager.recordOrShowError(13273);
-               // Third argument to SET-CALLBACK must be a valid procedure handle or object reference.
-               return new logical(false);
-            }
-         }
-         
-         callbacks.put(eventName.toUpperCase(), new CallbackData(callback, context, null));
-      }
+      if (callback == null)
+      {
+         return new logical(true);
+      }
+      
+      if (callback.isEmpty())
+      {
+         callbacks.remove(eventName.toUpperCase());
+         return new logical(true);
+      }
+      
+      if (context == null || context.isUnknown())
+      {
+         // defaulting to THIS-PROCEDURE
+         context = ProcedureManager.thisProcedure();
+      }
+      else
+      {
+         if (!context._isValid() || !(context.getResource() instanceof PersistentProcedure))
+         {
+            ErrorManager.recordOrShowError(13273);
+            // Third argument to SET-CALLBACK must be a valid procedure handle or object reference.
+            return new logical(false);
+         }
+      }
+      
+      callbacks.put(eventName.toUpperCase(), new CallbackData(callback, context, null));
       return new logical(true);
    }
    
    /**
-    * Associates an internal procedure with an ABL callback event.
-    *
-    * @param   event
-    *          The event name.
-    * @param   proc
-    *          The internal procedure to be executed for this event, which will be executed using
-    *          the current THIS-PROCEDURE reference. To remove a callback mapping, set the this
-    *          parameter to the empty string.
-    *
-    * @return  {@code true} if the event was registered.
-    */
-   @Override
-   public logical setCallbackProcedure(character event, String proc)
-   {
-      return setCallbackProcedure(event.toJavaType(), proc, null);
-   }
-   
-   /**
-    * Associates an internal procedure with an ABL callback event.
-    * <p>
-    * This method returns false if the event name is not valid.
-    *
-    * @param   event
-    *          The event name.
-    * @param   proc
-    *          The internal procedure to be executed for this event, which will be executed using
-    *          the current THIS-PROCEDURE reference. To remove a callback mapping, set the this
-    *          parameter to the empty string.
-    *
-    * @return  {@code true} if the event was registered.
-    */
-   @Override
-   public logical setCallbackProcedure(String event, character proc)
-   {
-      return setCallbackProcedure(event, proc.toJavaType(), null);
-   }
-   
-   /**
-    * Associates an internal procedure with an ABL callback event.
-    * <p>
-    * This method returns false if the event name is not valid.
-    *
-    * @param   event
-    *          The event name.
-    * @param   proc
-    *          The internal procedure to be executed for this event, which will be executed using
-    *          the current THIS-PROCEDURE reference. To remove a callback mapping, set the this
-    *          parameter to the empty string.
-    *
-    * @return  {@code true} if the event was registered.
-    */
-   @Override
-   public logical setCallbackProcedure(character event, character proc)
-   {
-      return setCallbackProcedure(event.toJavaType(), proc.toJavaType(), null);
-   }
-   
-   /**
-    * Associates an internal procedure with an ABL callback event.
-    * <p>
-    * This method returns false if the event name is not valid or if the procedure's context is
-    * not a valid handle.
-    *
-    * @param   event
-    *          The event name.
-    * @param   proc
-    *          The internal procedure to be executed for this event, which will be executed using
-    *          the current THIS-PROCEDURE reference. To remove a callback mapping, set the this
-    *          parameter to the empty string.
-    *
-    * @return  {@code true} if the event was registered.
-    */
-   @Override
-   public logical setCallbackProcedure(character event, String proc, handle context)
-   {
-      return setCallbackProcedure(event.toJavaType(), proc, context);
-   }
-   
-   /**
-    * Associates an internal procedure with an ABL callback event.
-    * <p>
-    * This method returns false if the event name is not valid or if the procedure's context is
-    * not a valid handle.
-    *
-    * @param   event
-    *          The event name.
-    * @param   proc
-    *          The internal procedure to be executed for this event, which will be executed using
-    *          the current THIS-PROCEDURE reference. To remove a callback mapping, set the this
-    *          parameter to the empty string.
-    * @param   context
-    *          The procedure handle where the internal procedure will be searched and executed.
-    *
-    * @return  {@code true} if the event was registered.
-    */
-   @Override
-   public logical setCallbackProcedure(String event, character proc, handle context)
-   {
-      return setCallbackProcedure(event, proc.toJavaType(), context);
-   }
-   
-   /**
-    * Associates an internal procedure with an ABL callback event.
-    * <p>
-    * This method returns false if the event name is not valid or if the procedure's context is
-    * not a valid handle.
-    *
-    * @param   event
-    *          The event name.
-    * @param   proc
-    *          The internal procedure to be executed for this event, which will be executed using
-    *          the current THIS-PROCEDURE reference. To remove a callback mapping, set the this
-    *          parameter to the empty string.
-    * @param   context
-    *          The procedure handle where the internal procedure will be searched and executed.
-    *
-    * @return  {@code true} if the event was registered.
-    */
-   @Override
-   public logical setCallbackProcedure(character event, character proc, handle context)
-   {
-      return setCallbackProcedure(event.toJavaType(), proc.toJavaType(), context);
-   }
-   
-   /**
     * Returns the value of the the NAMESPACE-URI attribute.
     *
     * @return See above.
     */
    @Override
-   public character getNamespaceURI()
+   public character namespaceURI()
    {
       return new character(nsUri);
    }
@@ -2237,7 +2105,7 @@
     * @param uri The new value of the NAMESPACE-URI attribute.
     */
    @Override
-   public void setNamespaceURI(String uri)
+   public void namespaceURI(String uri)
    {
       if (uri == null)
       {
@@ -2254,9 +2122,9 @@
     * @param uri The new value of the NAMESPACE-URI attribute.
     */
    @Override
-   public void setNamespaceURI(character uri)
+   public void namespaceURI(character uri)
    {
-      setNamespaceURI(uri.toJavaType());
+      namespaceURI(uri.toJavaType());
    }
    
    /**
@@ -2360,7 +2228,7 @@
     * @return Current state of the ERROR attribute.
     */
    @Override
-   public logical isError()
+   public logical error()
    {
       return new logical(error);
    }
@@ -2371,7 +2239,7 @@
     * @param value The new value of ERROR attribute.
     */
    @Override
-   public void setError(boolean value)
+   public void error(boolean value)
    {
       this.error = value;
    }
@@ -2382,14 +2250,14 @@
     * @param value The new value of ERROR attribute.
     */
    @Override
-   public void setError(logical value)
+   public void error(logical value)
    {
       if (value == null || value.isUnknown())
       {
          unableToAssignUnknown("ERROR", "DATASET widget");
          return;
       }
-      setError(value.getValue());
+      error(value.getValue());
    }
    
    /**
@@ -2411,7 +2279,7 @@
    @Override
    public void rejected(boolean value)
    {
-      this.rejected = false;
+      this.rejected = value;
    }
    
    /**
@@ -2482,17 +2350,17 @@
    @Override
    public logical emptyDataset()
    {
-      // TODO:
-      // When you invoke this method, the ABL Virtual Machine (AVM) sets the ORIGIN-HANDLE
-      // attribute on any changed temp-tables corresponding to the source temp-tables of this
-      // DataSet to the Unknown value (?).
+      // TODO: When you invoke this method, the ABL Virtual Machine (AVM) sets the ORIGIN-HANDLE attribute on
+      //       any changed temp-tables corresponding to the source temp-tables of this DataSet to the Unknown
+      //       value (?).
+      //       If TRACKING-CHANGES is true, the AVM raises an error.
       
       for (BufferImpl buffer : buffers)
       {
          buffer.deleteAll();
       }
       
-      setError(false); // clear the ERROR attribute in the process
+      error(false); // clear the ERROR attribute in the process
       return new logical(true);
    }
    
@@ -2761,33 +2629,18 @@
    {
       if (index < 1 || index > _getNumTopBuffers())
       {
-         ErrorManager.recordOrShowError(14293, "");
-         // TOP-NAV-QUERY requires a valid query on top dataset buffer <name>.
-         ErrorManager.recordOrShowError(4056, "TOP-NAV-QUERY", "DATASET widget");
-         // **Attribute <attribute> for the <widget id> has an invalid value of UNKNOWN.
+         invalidTopNavQuery(4056, "");
+         return;
+      }
+      
+      if (queryHandle.getResource() == null)
+      {
+         // silently accept invalid values
          return;
       }
       
       BufferImpl topBuffer = (BufferImpl) getTopBuffer(index).unwrapBuffer();
-      if (queryHandle == null || queryHandle.isUnknown())
-      {
-         ErrorManager.recordOrShowError(14293, topBuffer.name().toStringMessage());
-         // TOP-NAV-QUERY requires a valid query on top dataset buffer <name>.
-         ErrorManager.recordOrShowError(4056, "TOP-NAV-QUERY", "DATASET widget");
-         // **Attribute <attribute> for the <widget id> has an invalid value of UNKNOWN.
-         return;
-      }
-      
-      if (!queryHandle.isType(LegacyResource.QUERY))
-      {
-         ErrorManager.recordOrShowError(14293, topBuffer.name().toStringMessage());
-         // TOP-NAV-QUERY requires a valid query on top dataset buffer <name>.
-         ErrorManager.recordOrShowError(4061, "TOP-NAV-QUERY", "DATASET widget");
-         // **Attribute  for the <widget id> has an invalid value.
-         return;
-      }
-      
-      topNavQueries.put(topBuffer, (QueryWrapper) queryHandle.unwrapQuery());
+      _setTopBufferQuery(queryHandle, topBuffer);
    }
    
    /**
@@ -2817,35 +2670,13 @@
    @Override
    public void setTopNavQuery(String bufName, handle queryHandle)
    {
-      BufferImpl topBuffer = getBufferByName(bufName);
-      if (topBuffer == null || !getTopBufferList().contains(topBuffer))
-      {
-         ErrorManager.recordOrShowError(14293, "");
-         // TOP-NAV-QUERY requires a valid query on top dataset buffer <name>.
-         ErrorManager.recordOrShowError(4056, "TOP-NAV-QUERY", "DATASET widget");
-         // **Attribute <attribute> for the <widget id> has an invalid value of UNKNOWN.
-         return;
-      }
-      
-      if (queryHandle == null || queryHandle.isUnknown())
-      {
-         ErrorManager.recordOrShowError(14293, topBuffer.name().toStringMessage());
-         // TOP-NAV-QUERY requires a valid query on top dataset buffer <name>.
-         ErrorManager.recordOrShowError(4056, "TOP-NAV-QUERY", "DATASET widget");
-         // **Attribute <attribute> for the <widget id> has an invalid value of UNKNOWN.
-         return;
-      }
-      
-      if (!queryHandle.isType(LegacyResource.QUERY))
-      {
-         ErrorManager.recordOrShowError(14293, topBuffer.name().toStringMessage());
-         // TOP-NAV-QUERY requires a valid query on top dataset buffer <name>.
-         ErrorManager.recordOrShowError(4061, "TOP-NAV-QUERY", "DATASET widget");
-         // **Attribute  for the <widget id> has an invalid value.
-         return;
-      }
-      
-      topNavQueries.put(topBuffer, (QueryWrapper) queryHandle.unwrapQuery());
+      if (queryHandle.getResource() == null)
+      {
+         // silently accept invalid values
+         return;
+      }
+      
+      _setTopBufferQuery(queryHandle, getBufferByName(bufName));
    }
    
    /**
@@ -2964,96 +2795,70 @@
    @Override
    public integer getNumTopBuffers()
    {
-      if (buffers.isEmpty())
-      {
-         return new integer(0);
-      }
-      else if (relations.isEmpty())
-      {
-         return new integer(buffers.size());
-      }
-      
-      // initially all buffers are TOP-LEVEL. For each active relation, one buffer becomes a child
-      // so it is removed from TOP-LEVEL list. Since a buffer can be a child in not more than a
-      // relation, each relation will have unique child buffers. As result, the number of
-      // TOP-LEVEL buffer list is the difference between the buffer number and the number of 
-      // active relations.
-      int topBuffs = buffers.size();
-      for (DataRelation relation : relations)
-      {
-         if (relation._isActive())
-         {
-            topBuffs--;
-         }
-      }
-      
-      return new integer(topBuffs);
+      return new integer(_getNumTopBuffers());
    }
    
    /**
-    * Adds a data-relation object for a pair of parent and child buffers to this {@code DataSet}
-    * object. This DataSet must be dynamically created. 
+    * Creates a new data-relation object for a pair of parent and child buffers of this {@code DataSet}
+    * object. This method applies only to {@code DataSet} objects dynamically created. 
     *
     * @param   parent
     *          The handle to the parent buffer in the data-relation object.
     * @param   child
     *          The handle to the child buffer in the data-relation object.
     * @param   pairs
-    *          A comma-delimited list of parent-field, child-field pairs describing the
-    *          relationship between parent and child buffers in the new data-relation object.
+    *          A comma-delimited list of parent-field, child-field pairs describing the relationship between
+    *          parent and child buffers in the new data-relation object.
     *
     * @return  A {@code handle} to the newly created {@code DataRelation}.
     */
    @Override
    public handle addRelation(handle parent, handle child, Text pairs)
    {
-      return addRelation(parent, child, pairs, null, null, null, null, null);
+      return addRelationImpl(parent, child, pairs, null, null, null, null, null, false);
    }
    
    /**
-    * Adds a data-relation object for a pair of parent and child buffers to this {@code DataSet}
-    * object. This DataSet must be dynamically created. 
+    * Creates a new data-relation object for a pair of parent and child buffers of this {@code DataSet}
+    * object. This method applies only to {@code DataSet} objects dynamically created. 
     *
     * @param   parent
     *          The handle to the parent buffer in the data-relation object.
     * @param   child
     *          The handle to the child buffer in the data-relation object.
     * @param   pairs
-    *          A comma-delimited list of parent-field, child-field pairs describing the
-    *          relationship between parent and child buffers in the new data-relation object.
+    *          A comma-delimited list of parent-field, child-field pairs describing the relationship between
+    *          parent and child buffers in the new data-relation object.
     * @param   reposition
     *          The reposition mode. If {@code TRUE}, the relation mode is {@code REPOSITION}.
-    *          Otherwise the relation mode is {@code SELECTION}. The default value is
-    *          {@code SELECTION}.
+    *          Otherwise the relation mode is {@code SELECTION}. The default value is {@code SELECTION}.
     *
     * @return  A {@code handle} to the newly created {@code DataRelation}.
     */
    @Override
    public handle addRelation(handle parent, handle child, Text pairs, logical reposition)
    {
-      return addRelation(parent, child, pairs, reposition, null, null, null, null);
+      return addRelationImpl(parent, child, pairs, reposition, null, null, null, null, false);
    }
    
    /**
-    * Adds a data-relation object for a pair of parent and child buffers to this {@code DataSet}
-    * object. This DataSet must be dynamically created. 
+    * Creates a new data-relation object for a pair of parent and child buffers of this {@code DataSet}
+    * object. This method applies only to {@code DataSet} objects dynamically created.
     *
     * @param   parent
     *          The handle to the parent buffer in the data-relation object.
     * @param   child
     *          The handle to the child buffer in the data-relation object.
     * @param   pairs
-    *          A comma-delimited list of parent-field, child-field pairs describing the
-    *          relationship between parent and child buffers in the new data-relation object.
+    *          A comma-delimited list of parent-field, child-field pairs describing the relationship between
+    *          parent and child buffers in the new data-relation object.
     * @param   reposition
     *          The reposition mode. If {@code TRUE}, the relation mode is {@code REPOSITION}.
-    *          Otherwise the relation mode is {@code SELECTION}. The default value is
-    *          {@code SELECTION}.
+    *          Otherwise the relation mode is {@code SELECTION}. The default value is {@code SELECTION}.
     * @param   nested
     *          Use {@code TRUE} to nest child rows of {@code DataSet} buffers within their parent
     *          rows when writing the XML representation of data. When {@code FALSE} is passed, all
-    *          child rows are written after all parent rows are written. The default value is
-    *          {@code FALSE}.
+    *          child rows are written after all parent rows are written. The default value is {@code FALSE}.
     *
     * @return  A {@code handle} to the newly created {@code DataRelation}.
     */
@@ -3064,31 +2869,29 @@
                              logical reposition,
                              logical nested)
    {
-      return addRelation(parent, child, pairs, reposition, nested, null, null, null);
+      return addRelationImpl(parent, child, pairs, reposition, nested, null, null, null, false);
    }
    
    /**
-    * Adds a data-relation object for a pair of parent and child buffers to this {@code DataSet}
-    * object. This DataSet must be dynamically created. 
+    * Creates a new data-relation object for a pair of parent and child buffers of this {@code DataSet}
+    * object. This method applies only to {@code DataSet} objects dynamically created.
     *
     * @param   parent
     *          The handle to the parent buffer in the data-relation object.
     * @param   child
     *          The handle to the child buffer in the data-relation object.
     * @param   pairs
-    *          A comma-delimited list of parent-field, child-field pairs describing the
-    *          relationship between parent and child buffers in the new data-relation object.
+    *          A comma-delimited list of parent-field, child-field pairs describing the relationship between
+    *          parent and child buffers in the new data-relation object.
     * @param   reposition
     *          The reposition mode. If {@code TRUE}, the relation mode is {@code REPOSITION}.
-    *          Otherwise the relation mode is {@code SELECTION}. The default value is
-    *          {@code SELECTION}.
+    *          Otherwise the relation mode is {@code SELECTION}. The default value is {@code SELECTION}.
     * @param   nested
     *          Use {@code TRUE} to nest child rows of {@code DataSet} buffers within their parent
     *          rows when writing the XML representation of data. When {@code FALSE} is passed, all
-    *          child rows are written after all parent rows are written. The default value is
-    *          {@code FALSE}.
-    * @param   notActive
-    *          Use {@code true} to make the newly created relation inactive. 
+    *          child rows are written after all parent rows are written. The default value is {@code FALSE}.
+    * @param   active
+    *          Use {@code false} to make the newly created relation inactive.
     *
     * @return  A {@code handle} to the newly created {@code DataRelation}.
     */
@@ -3098,33 +2901,31 @@
                              Text pairs,
                              logical reposition,
                              logical nested,
-                             logical notActive)
+                             logical active)
    {
-      return addRelation(parent, child, pairs, reposition, nested, notActive, null, null);
+      return addRelationImpl(parent, child, pairs, reposition, nested, active, null, null, false);
    }
    
    /**
-    * Adds a data-relation object for a pair of parent and child buffers to this {@code DataSet}
-    * object. This DataSet must be dynamically created. 
+    * Creates a new data-relation object for a pair of parent and child buffers of this {@code DataSet}
+    * object. This method applies only to {@code DataSet} objects dynamically created.
     *
     * @param   parent
     *          The handle to the parent buffer in the data-relation object.
     * @param   child
     *          The handle to the child buffer in the data-relation object.
     * @param   pairs
-    *          A comma-delimited list of parent-field, child-field pairs describing the
-    *          relationship between parent and child buffers in the new data-relation object.
+    *          A comma-delimited list of parent-field, child-field pairs describing the relationship between
+    *          parent and child buffers in the new data-relation object.
     * @param   reposition
     *          The reposition mode. If {@code TRUE}, the relation mode is {@code REPOSITION}.
-    *          Otherwise the relation mode is {@code SELECTION}. The default value is
-    *          {@code SELECTION}.
+    *          Otherwise the relation mode is {@code SELECTION}. The default value is {@code SELECTION}.
     * @param   nested
     *          Use {@code TRUE} to nest child rows of {@code DataSet} buffers within their parent
     *          rows when writing the XML representation of data. When {@code FALSE} is passed, all
-    *          child rows are written after all parent rows are written. The default value is
-    *          {@code FALSE}.
-    * @param   notActive
-    *          Use {@code true} to make the newly created relation inactive. 
+    *          child rows are written after all parent rows are written. The default value is {@code FALSE}.
+    * @param   active
+    *          Use {@code false} to make the newly created relation inactive. 
     * @param   recursive
     *          Using {@code TRUE} till causes the data-relation to be filled recursively.
     *
@@ -3136,40 +2937,43 @@
                              Text pairs,
                              logical reposition,
                              logical nested,
-                             logical notActive,
+                             logical active,
                              logical recursive)
    {
-      return addRelation(parent, child, pairs, reposition, nested, notActive, recursive, null);
+      return addRelationImpl(parent, child, pairs, reposition, nested, active, recursive, null, false);
    }
    
    /**
-    * Adds a data-relation object for a pair of parent and child buffers to this {@code DataSet}
-    * object. This DataSet must be dynamically created. 
+    * Creates a new data-relation object for a pair of parent and child buffers of this {@code DataSet}
+    * object. This method applies only to {@code DataSet} objects dynamically created.
+    * <p>
+    * <b>Note:</b><br>
+    *    There is a bug/quirk in OE when this is performed. If a relation (for same buffer pair) is added a
+    *    second time, it is accepted, leading to two "parallel" relations to be created. FWD will warn this in
+    *    log. When/if OE decides to fix the bug/quirk, the handling code should also be removed.
     *
     * @param   parent
     *          The handle to the parent buffer in the data-relation object.
     * @param   child
     *          The handle to the child buffer in the data-relation object.
     * @param   pairs
-    *          A comma-delimited list of parent-field, child-field pairs describing the
-    *          relationship between parent and child buffers in the new data-relation object.
+    *          A comma-delimited list of parent-field, child-field pairs describing the relationship between
+    *          parent and child buffers in the new data-relation object.
     * @param   reposition
     *          The reposition mode. If {@code TRUE}, the relation mode is {@code REPOSITION}.
-    *          Otherwise the relation mode is {@code SELECTION}. The default value is
-    *          {@code SELECTION}.
+    *          Otherwise the relation mode is {@code SELECTION}. The default value is {@code SELECTION}.
     * @param   nested
     *          Use {@code TRUE} to nest child rows of {@code DataSet} buffers within their parent
     *          rows when writing the XML representation of data. When {@code FALSE} is passed, all
-    *          child rows are written after all parent rows are written. The default value is
-    *          {@code FALSE}.
-    * @param   notActive
-    *          Use {@code true} to make the newly created relation inactive. 
+    *          child rows are written after all parent rows are written. The default value is {@code FALSE}.
+    * @param   active
+    *          Use {@code false} to make the newly created relation inactive. 
     * @param   recursive
     *          Using {@code TRUE} till causes the data-relation to be filled recursively.
     * @param   fkeyHidden
-    *          When set to {@code TRUE} the foreign key fields in nested data-relations will be
-    *          omitted when writing the XML representation of data. If this option is used, the
-    *          {@code NESTED} argument must be {@code TRUE}.
+    *          When set to {@code TRUE} the foreign key fields in nested data-relations will be omitted when
+    *          writing the XML representation of data. If this option is used, the {@code NESTED} argument
+    *          must be {@code TRUE}.
     *
     * @return  A {@code handle} to the newly created {@code DataRelation}.
     */
@@ -3179,10 +2983,62 @@
                              Text pairs,
                              logical reposition,
                              logical nested,
-                             logical notActive,
+                             logical active,
                              logical recursive,
                              logical fkeyHidden)
    {
+      return addRelationImpl(parent, child, pairs, reposition, nested, active, recursive, fkeyHidden, false); 
+   }
+   
+   /**
+    * Actual implementation of {@code addRelation}.<p>
+    *
+    * Creates a new data-relation object for a pair of parent and child buffers of this {@code DataSet}
+    * object. This method applies only to {@code DataSet} objects dynamically created.
+    * <p>
+    * <b>Note:</b><br>
+    *    There is a bug/quirk in OE when this is performed. If a relation (for same buffer pair) is added a
+    *    second time, it is accepted, leading to two "parallel" relations to be created. FWD will warn this in
+    *    log. When/if OE decides to fix the bug/quirk, the handling code should also be removed.
+    *
+    * @param   parent
+    *          The handle to the parent buffer in the data-relation object.
+    * @param   child
+    *          The handle to the child buffer in the data-relation object.
+    * @param   pairs
+    *          A comma-delimited list of parent-field, child-field pairs describing the relationship between
+    *          parent and child buffers in the new data-relation object.
+    * @param   reposition
+    *          The reposition mode. If {@code TRUE}, the relation mode is {@code REPOSITION}.
+    *          Otherwise the relation mode is {@code SELECTION}. The default value is {@code SELECTION}.
+    * @param   nested
+    *          Use {@code TRUE} to nest child rows of {@code DataSet} buffers within their parent
+    *          rows when writing the XML representation of data. When {@code FALSE} is passed, all
+    *          child rows are written after all parent rows are written. The default value is {@code FALSE}.
+    * @param   active
+    *          Use {@code false} to make the newly created relation inactive. 
+    * @param   recursive
+    *          Using {@code TRUE} till causes the data-relation to be filled recursively.
+    * @param   fkeyHidden
+    *          When set to {@code TRUE} the foreign key fields in nested data-relations will be omitted when
+    *          writing the XML representation of data. If this option is used, the {@code NESTED} argument
+    *          must be {@code TRUE}.
+    * @param   nullOnDuplicate
+    *          if {@code true} the method will return {@code null} if a duplicate relation is detected.
+    *          Otherwise it will throw error condition #11979, eventually returning invalid handle.
+    *
+    * @return  A {@code handle} to the newly created {@code DataRelation}.
+    */
+   public handle addRelationImpl(handle parent,
+                                 handle child,
+                                 Text pairs,
+                                 logical reposition,
+                                 logical nested,
+                                 logical active,
+                                 logical recursive,
+                                 logical fkeyHidden, 
+                                 boolean nullOnDuplicate)
+   {
       if (parent == null || parent.isUnknown() || !parent.isType(LegacyResource.BUFFER) ||
           child == null  || child.isUnknown()  || !child.isType(LegacyResource.BUFFER))
       {
@@ -3193,6 +3049,7 @@
       
       BufferImpl bufParent = ((BufferImpl) parent.getResource()).ref();
       BufferImpl bufChild = ((BufferImpl) child.getResource()).ref();
+      boolean throw11979 = false;
       
       if (!buffers.contains(bufParent) || !buffers.contains(bufChild))
       {
@@ -3201,9 +3058,40 @@
          return new handle();
       }
       
-      if (!allowsActiveChild(bufChild))
-      {
-         return new handle();
+      boolean bActive = _areRelationsActive();
+      if (active != null && !active.isUnknown())
+      {
+         // if this flag is not specified, use the negated value of RELATIONS-ACTIVE 
+         bActive = active.getValue();
+      }
+      
+      // check whether a new relation can be added at this moment for the child buffer. If the new relation is
+      // inactive it can be added anyway
+      if (bActive)
+      {
+         DataRelation dr = allowsActiveChild(bufChild);
+         if (dr != null)
+         {
+            //Note: There is a bug/quirk in OE when this is performed. If a relation (for same buffer pair) is
+            //      added a second time, it is accepted, leading to two "parallel" relations to be created.
+            //      FWD will warn this in * log. When/if OE decides to fix the bug/quirk, this code must be
+            //      removed or conditioned on emulated OE version
+            BufferImpl existingParent = (BufferImpl) dr.getParentBuffer().getResource();
+            if (existingParent != bufParent)
+            {
+               ErrorManager.recordOrShowError(11979, bufChild.doGetName());
+               // Buffer <name> can have only 1 active parent relation.
+               return new handle();
+            }
+            else
+            {
+               if (nullOnDuplicate)
+               {
+                  return null;
+               }
+               throw11979 = true;
+            }
+         }
       }
       
       if (pairs == null || pairs.isUnknown())
@@ -3222,7 +3110,13 @@
       
       String strPairs = pairs.getValue();
       String[] fields = strPairs.split(",");
-      if (fields.length == 0 || fields.length % 2 == 1)
+      if (fields.length == 0 || fields.length == 1 && fields[0].isEmpty())
+      {
+         ErrorManager.recordOrShowError(11964);
+         // ADD-RELATION join pairs list was not valid.
+         return new handle();
+      }
+      else if (fields.length % 2 == 1)
       {
          ErrorManager.recordOrShowError(11962);
          // Odd number of join pairs in ADD-RELATON.
@@ -3256,24 +3150,27 @@
       
       boolean bRepos = reposition != null && !reposition.isUnknown() && reposition.getValue();
       boolean bNested = nested != null && !nested.isUnknown() && nested.getValue();
-      boolean bInactive = !_areRelationsActive();
-      if (notActive != null && !notActive.isUnknown())
-      {
-         // if this flag is not specified, use the negated value of RELATIONS-ACTIVE 
-         bInactive = notActive.getValue(); 
-      }
       boolean bRecurs = recursive != null && !recursive.isUnknown() && recursive.getValue();
       boolean bfkHidden = fkeyHidden != null && !fkeyHidden.isUnknown() && fkeyHidden.getValue();
       
-      return addRelationWorker(null, bufParent, bufChild, fields, strPairs,
-                               bRepos, bNested, bInactive, bRecurs, bfkHidden);
+      handle ret = addRelationWorker(null, bufParent, bufChild, fields, strPairs,
+                                     bRepos, bNested, bActive, bRecurs, bfkHidden, true);
+      
+      if (throw11979)
+      {
+         ErrorManager.recordOrShowError(11979, bufChild.doGetName());
+         // Buffer <name> can have only 1 active parent relation.
+         return new handle();
+      }
+      
+      return ret;
    }
    
    /**
-    * Adds a data-relation object for a pair of parent and child buffers that is based on the
-    * {@code RECID} of the parent buffer to this {@code DataSet} object. This DataSet must be
-    * dynamically created. The newly created object will have the {@code PARENT-ID-RELATION}
-    * attribute set to {@code TRUE}.
+    * Creates a new data-relation object for a pair of parent and child buffers of this {@code DataSet} based
+    * on the {@code RECID} of the parent buffer to this {@code DataSet} object. This method applies only to
+    * {@code DataSet} objects dynamically created. The newly created object will have the
+    * {@code PARENT-ID-RELATION} attribute set to {@code TRUE}.
     *
     * @param   parent
     *          The handle to the parent buffer in the data-relation object.
@@ -3289,10 +3186,10 @@
    }
    
    /**
-    * Adds a data-relation object for a pair of parent and child buffers that is based on the
-    * {@code RECID} of the parent buffer to this {@code DataSet} object. This DataSet must be
-    * dynamically created. The newly created object will have the {@code PARENT-ID-RELATION}
-    * attribute set to {@code TRUE}.
+    * Creates a new data-relation object for a pair of parent and child buffers of this {@code DataSet} based
+    * on the {@code RECID} of the parent buffer to this {@code DataSet} object. This method applies only to
+    * {@code DataSet} objects dynamically created. The newly created object will have the
+    * {@code PARENT-ID-RELATION} attribute set to {@code TRUE}.
     *
     * @param   parent
     *          The handle to the parent buffer in the data-relation object.
@@ -3311,10 +3208,10 @@
    }
    
    /**
-    * Adds a data-relation object for a pair of parent and child buffers that is based on the
-    * {@code RECID} of the parent buffer to this {@code DataSet} object. This DataSet must be
-    * dynamically created. The newly created object will have the {@code PARENT-ID-RELATION}
-    * attribute set to {@code TRUE}.
+    * Creates a new data-relation object for a pair of parent and child buffers of this {@code DataSet} based
+    * on the {@code RECID} of the parent buffer to this {@code DataSet} object. This method applies only to
+    * {@code DataSet} objects dynamically created. The newly created object will have the
+    * {@code PARENT-ID-RELATION} attribute set to {@code TRUE}.
     *
     * @param   parent
     *          The handle to the parent buffer in the data-relation object.
@@ -3339,10 +3236,10 @@
    }
    
    /**
-    * Adds a data-relation object for a pair of parent and child buffers that is based on the
-    * {@code RECID} of the parent buffer to this {@code DataSet} object. This DataSet must be
-    * dynamically created. The newly created object will have the {@code PARENT-ID-RELATION}
-    * attribute set to {@code TRUE}.
+    * Creates a new data-relation object for a pair of parent and child buffers of this {@code DataSet} based
+    * on the {@code RECID} of the parent buffer to this {@code DataSet} object. This method applies only to
+    * {@code DataSet} objects dynamically created. The newly created object will have the
+    * {@code PARENT-ID-RELATION} attribute set to {@code TRUE}.
     *
     * @param   parent
     *          The handle to the parent buffer in the data-relation object.
@@ -3383,18 +3280,18 @@
       
       if (!buffers.contains(bufParent) || !buffers.contains(bufChild))
       {
-         ErrorManager.recordOrShowError(11961);
-         // Buffers in ADD-RELATION must be members of the dataset.
+         ErrorManager.recordOrShowError(16027);
+         // Buffers in ADD-PARENT-ID-RELATION must be members of the dataset.
          return new handle();
       }
       
-      if (!allowsActiveChild(bufChild))
-      {
-         return new handle();
-      }
+//      if (!allowsActiveChild(bufChild))
+//      {
+//         return new handle();
+//      }
       
       String parLink = null;
-      if (parentIdField == null || parentIdField.isUnknown())
+      if (parentIdField == null || parentIdField.isUnknown() || parentIdField.toJavaType().isEmpty())
       {
          parLink = bufParent.name().toJavaType() + "_id";
       }
@@ -3404,7 +3301,7 @@
       }
       handle hfparent = bufChild.bufferField(parLink);
       if (hfparent.isUnknown() ||
-          !"RECID".equalsIgnoreCase(hfparent.unwrapBufferField().getDataType().getValue())) 
+          !"RECID".equalsIgnoreCase(hfparent.unwrapBufferField().getDataType().getValue()))
       {
          ErrorManager.recordOrShowError(16028, parLink);
          // ADD-PARENT-ID-RELATION parent-id-field <field> is not valid.
@@ -3453,8 +3350,9 @@
          }
       }
       
-      DataRelation dR = new DataRelation(
-            this, bufParent, bufChild, parLink, beforeFields, afterFields);
+      DataRelation dR = new DataRelation(this, bufParent, bufChild, parLink, beforeFields, afterFields, true);
+      // the REPOSITION attribute might be set, depending on the OE version
+      // dR.setReposition(true);
       relations.add(dR);
       return new handle(dR);
    }
@@ -3679,7 +3577,7 @@
       List<BufferImpl> localBuffers = new ArrayList<>(hBuffers.length);
       for (int i = 0; i < hBuffers.length; i++)
       {
-         // references must be valid:
+         // references must be valid
          if (hBuffers[i].isUnknown())
          {
             ErrorManager.recordOrShowError(7319, Integer.toString(i + 1));
@@ -3687,6 +3585,14 @@
             return new logical(false);
          }
          
+         // references must be BUFFER handles (the error number is rather strange!)
+         if (!hBuffers[i].isType(LegacyResource.BUFFER))
+         {
+            ErrorManager.recordOrShowError(11860, Integer.toString(i + 1));
+            // Buffer <argnumber> may not appear more than once in any dataset
+            return new logical(false);
+         }
+         
          BufferImpl buffer = (BufferImpl) hBuffers[i].unwrapBuffer();
          buffer = buffer.ref();
          
@@ -3705,7 +3611,8 @@
          }
          
          // check for duplications:
-         if (localBuffers.contains(buffer) || buffer.dataSet()._isValid())
+         DataSet ds = buffer._dataSet();
+         if (localBuffers.contains(buffer) || (ds != null) && ds.valid() && ds != this)
          {
             ErrorManager.recordOrShowError(11860, buffer.doGetName());
             // Buffer <name> may not appear more than once in any dataset.
@@ -3768,7 +3675,8 @@
          }
          
          // check for duplications:
-         if (localBuffers.contains(bufRef) || bufRef.dataSet()._isValid())
+         DataSet ds = bufRef._dataSet();
+         if (localBuffers.contains(bufRef) || (ds != null) && ds.valid() && ds != this)
          {
             ErrorManager.recordOrShowError(11860, bufRef.doGetName());
             // Buffer <name> may not appear more than once in any dataset.
@@ -3868,7 +3776,8 @@
             return new logical(false);
          }
          
-         if (localBuffers.contains(crtBuff) || crtBuff.dataSet()._isValid())
+         DataSet ds = crtBuff._dataSet();
+         if (localBuffers.contains(crtBuff) || (ds != null) && ds.valid() && ds != this)
          {
             ErrorManager.recordOrShowError(11860, crtBuff.doGetName());
             // Buffer <name> may not appear more than once in any dataset.
@@ -3918,6 +3827,14 @@
          res = ((TempTable) res).defaultBufferHandle().getResource();
       }
       
+      if (!(res instanceof Buffer))
+      {
+         // NOTE: trying to add an invalid handle - this is probably OE bug, should throw other error
+         ErrorManager.recordOrShowError(11860, bufHandle.unwrap().name().toStringMessage());
+         // Buffer <name> may not appear more than once in any dataset. (11860)
+         return new logical(false);
+      }
+      
       return addBuffer((Buffer) res);
    }
    
@@ -3956,7 +3873,8 @@
          return new logical(false);
       }
       
-      if (buffers.contains(bufImpl) || bufImpl.dataSet()._isValid())
+      DataSet ds = bufImpl._dataSet();
+      if (buffers.contains(bufImpl) || (ds != null) && ds.valid() && ds != this)
       {
          ErrorManager.recordOrShowError(11860, bufImpl.doGetName());
          // Buffer <name> may not appear more than once in any dataset.
@@ -4178,7 +4096,7 @@
     * @return    See above.
     */
    @Override
-   public character getNamespacePrefix()
+   public character namespacePrefix()
    {
       return new character(nsPrefix);
    }
@@ -4190,7 +4108,7 @@
     *           The new value of the NAMESPACE-PREFIX attribute.
     */
    @Override
-   public void setNamespacePrefix(String prefix)
+   public void namespacePrefix(String prefix)
    {
       if (prefix == null)
       {
@@ -4208,9 +4126,9 @@
     *           The new value of the NAMESPACE-PREFIX attribute.
     */
    @Override
-   public void setNamespacePrefix(character prefix)
+   public void namespacePrefix(character prefix)
    {
-      setNamespacePrefix(prefix.toJavaType());
+      namespacePrefix(prefix.toJavaType());
    }
    
    /**
@@ -4434,8 +4352,7 @@
    @Override
    public character getXmlDataType()
    {
-      ErrorManager.recordOrShowError(4052, "XML-DATA-TYPE", "queryable", "DATASET widget");
-      // **<attribute> is not a <settable/queryable> attribute for <widget id>.
+      handle.invalidAttribute("XML-DATA-TYPE", false, LegacyResource.DATASET);
       return new character();
    }
    
@@ -4447,8 +4364,7 @@
    @Override
    public void setXmlDataType(String newType)
    {
-      ErrorManager.recordOrShowError(4052, "XML-DATA-TYPE", "setable", "DATASET widget"); // yes, single 't'
-      // **<attribute> is not a <settable/queryable> attribute for <widget id>.
+      handle.invalidAttribute("XML-DATA-TYPE", true, LegacyResource.DATASET);
    }
    
    /**
@@ -4459,8 +4375,7 @@
    @Override
    public void setXmlDataType(Text newType)
    {
-      ErrorManager.recordOrShowError(4052, "XML-DATA-TYPE", "setable", "DATASET widget"); // yes, single 't'
-      // **<attribute> is not a <settable/queryable> attribute for <widget id>.
+      handle.invalidAttribute("XML-DATA-TYPE", true, LegacyResource.DATASET);
    }
    
    /**
@@ -4605,7 +4520,7 @@
     * @param   overrideDefaultMapping
     *          {@code True} to override the default string-to-binary data type mappings when
     *          creating a temp-table schema from an XML schema.
-    * @param   fieldTypeMapping
+    * @param   strMapping
     *          Comma-delimited list of field name and data type name pairs to use to override
     *          data type mappings of specific fields. Specify unknown value to use default
     *          mappings.
@@ -4620,16 +4535,40 @@
                           character readMode,
                           character schemaLocation,
                           logical overrideDefaultMapping,
-                          character fieldTypeMapping,
+                          character strMapping,
                           character verifySchemaMode)
    {
+      Map<String, String> mapping = null;
+      if (strMapping != null)
+      {
+         String javaStrMapping = strMapping.toJavaType();
+         if (javaStrMapping != null)
+         {
+            mapping = new HashMap<>();
+            String[] splits = javaStrMapping.split(",");
+            int len = splits.length;
+            if (len == 0 || len % 2 == 1)
+            {
+               ErrorManager.recordOrShowError(13200);
+               // Odd number of values in field-type-mapping argument.
+               return new logical(false);
+            }
+            // no other validation at this time
+            
+            for (int k = 0; k < len; k += 2)
+            {
+               mapping.putIfAbsent(splits[k], splits[k + 1]); // do not overwrite if field is duplicated
+            }
+         }
+      }
+      
       // normalize parameters
       XmlImport xmlImport = new XmlImport(
             source,
             readMode.toJavaType(),
             schemaLocation.toJavaType(),
             !overrideDefaultMapping.isUnknown() && overrideDefaultMapping.booleanValue(),
-            fieldTypeMapping.toJavaType(),
+            mapping,
             verifySchemaMode.toJavaType());
       
       // perform import
@@ -5043,7 +4982,7 @@
     *          If {@code true} the default mapping between XML Schema string and binary data types
     *          and ABL data types when creating an ABL temp-table schema from an XML Schema will
     *          be overwritten.
-    * @param   mapping
+    * @param   strMapping
     *          A comma-delimited list of field name, data type pairs. This allows to specify the
     *          data type for a specific field.
     * @param   verifyMode
@@ -5055,12 +4994,36 @@
    @Override
    public logical readXmlSchema(SourceData source,
                                 logical override,
-                                Text mapping,
+                                Text strMapping,
                                 Text verifyMode)
    {
+      Map<String, String> mapping = null;
+      if (strMapping != null)
+      {
+         String javaStrMapping = strMapping.toJavaType();
+         if (javaStrMapping != null)
+         {
+            mapping = new HashMap<>();
+            String[] splits = javaStrMapping.split(",");
+            int len = splits.length;
+            if (len == 0 || len % 2 == 1)
+            {
+               ErrorManager.recordOrShowError(13200);
+               // Odd number of values in field-type-mapping argument.
+               return new logical(false);
+            }
+            // no other validation at this time
+            
+            for (int k = 0; k < len; k += 2)
+            {
+               mapping.putIfAbsent(splits[k], splits[k + 1]); // do not overwrite if field is duplicated
+            }
+         }
+      }
+      
       XmlImport xmlImport = new XmlImport(source, null, null,
                                           !override.isUnknown() && override.booleanValue(),
-                                          mapping == null ? null : mapping.toJavaType(),
+                                          mapping,
                                           verifyMode == null ? null : verifyMode.toJavaType());
       return new logical(xmlImport.importDatasetSchema(this));
    }
@@ -5124,7 +5087,7 @@
          return false;
       }
       
-      clearImpl(true);
+      clearImpl(true, true);
       deleted = true;
       return true;
    }
@@ -5337,42 +5300,41 @@
       int topBuffs = buffers.size();
       for (DataRelation relation : relations)
       {
-         if (relation._isActive())
+         if (relation._isActive() && !relation._isReposition())
          {
             topBuffs--;
          }
       }
-      
+      // NOTE: because of the #11979 issue described in addRelationImpl() the [topBuffs] may be negative !!!
       return topBuffs;
    }
    
    /**
-    * Checks whether a buffer can be at this moment the child side in a relation of this
-    * {@code DataSet}. When an existing active relation is detected having the buffer as child
-    * the error 11979 is displayed before returning {@code false}.
+    * Checks whether a buffer can be at this moment the child side in a relation of this {@code DataSet}. When
+    * an existing active relation is detected having the buffer as child the error 11979 is displayed before
+    * returning {@code false}.
     * 
-    * @param   aBuffer
-    *          The buffer to test.
+    * @param   childBuffer
+    *          The child buffer to test.
     *
-    * @return  {@code true} if a the requested buffer can be a child buffer in a relation in this
-    *          {@code DataSet} in current configuration.
+    * @return  {@code null} if a the requested buffer can be a child buffer in a relation in this
+    *          {@code DataSet} in current configuration or the {@code DataRelation} that caused the conflict.
     */
-   protected boolean allowsActiveChild(Buffer aBuffer)
+   protected DataRelation allowsActiveChild(Buffer childBuffer)
    {
-      int childUid = aBuffer.getUniqueID().intValue();
+      int childUid = childBuffer.getUniqueID().intValue();
       
       for (DataRelation relation : relations)
       {
-         if (relation._isActive() &&
+         if (relation._isActive()      &&
+             !relation._isReposition() &&
              relation.getChildBuffer().unwrapBuffer().getUniqueID().intValue() == childUid)
          {
-            ErrorManager.recordOrShowError(11979, aBuffer.name().toStringMessage());
-            // Buffer <name> can have only 1 active parent relation.
-            return false;
+            return relation;
          }
       }
       
-      return true;
+      return null;
    }
    
    /**
@@ -5399,7 +5361,7 @@
       List<DataRelation> ret = new LinkedList<>();
       for (DataRelation rel : relations)
       {
-         if (active && !rel.isActive().getValue())
+         if (active && !rel._isActive())
          {
             continue;
          }
@@ -5436,9 +5398,14 @@
          return true; // yep, nothing to do here
       }
       
+      ErrorManager.ErrorHelper errHlp = ErrorManager.getErrorHelper();
+      boolean wasSilent = errHlp.isSilent();
       try
       {
-         ErrorManager.setSilent(false);
+         if (!wasSilent)
+         {
+            errHlp.setSilent(true);
+         }
          
          SelfManager.pushSelf(self);
          // reference already assumes input-output, do not emit append
@@ -5456,18 +5423,23 @@
          }
          
          // NOTE: sometimes the method return *NO* even if the callback was successfully called
-         return true;
+         return !errHlp.isPending(); // !ErrorManager.isError()
       }
-      catch (Exception e)
+      catch (ErrorConditionException e)
       {
-         e.printStackTrace();
+         if (e.getProgressErrorCode() == 14457)
+         {
+            ErrorManager.recordOrShowError(13452, cbd.getTarget());
+         }
          return false;
       }
       finally
       {
          SelfManager.popSelf();
-         
-         // Do not restore silent-mode!
+         if (!wasSilent)
+         {
+            errHlp.setSilent(false);
+         }
       }
    }
    
@@ -5552,8 +5524,18 @@
             
             if (currentOnly)
             {
+               if (!append)
+               {
+                  dst.deleteAll();
+               }
+               if (!dst._available())
+               {
+                  // if destination buffer is empty create a new placeholder for the record to be copied
+                  dst.create();
+               }
+               
                // copy only the current record from the specified temp-table buffers
-               res = src.bufferCopy(dst);
+               res = dst.bufferCopy(src);
                if (!res.getValue())
                {
                   break; // i-for
@@ -5686,6 +5668,58 @@
    }
    
    /**
+    * Notifies the user about an attempt to set an invalid value for {@code TOP-NAV-QUERY } attribute. Two
+    * error messages will be issued, the former being 14293 and the latter the one specified as parameter.
+    *
+    * @param   errCode
+    *          The message code (4056 or 4061).
+    * @param   bufName
+    *          The buffer's name.
+    */
+   private void invalidTopNavQuery(int errCode, String bufName)
+   {
+      ErrorManager.recordOrShowError(14293, bufName);
+      // TOP-NAV-QUERY requires a valid query on top dataset buffer <name>
+      ErrorManager.recordOrShowError(errCode, "TOP-NAV-QUERY", "DATASET widget");
+      // **Attribute <attribute> for the <widget id> has an invalid value of UNKNOWN. (4056)
+      //    or
+      // **Attribute  for the <widget id> has an invalid value. (4061)
+   }
+   
+   /**
+    * Low level implementation of {@code TOP-NAV-QUERY} method. Does the final parameter checking before
+    * mapping the query to the buffer.
+    *
+    * @param   queryHandle
+    *          The query to be set.
+    * @param   topBuffer
+    *          The top level buffer.
+    */
+   private void _setTopBufferQuery(handle queryHandle, BufferImpl topBuffer)
+   {
+      if (queryHandle == null || queryHandle.isUnknown())
+      {
+         invalidTopNavQuery(4056, topBuffer.name().toStringMessage());
+         return;
+      }
+      
+      if (!queryHandle.isType(LegacyResource.QUERY))
+      {
+         invalidTopNavQuery(4061, topBuffer.name().toStringMessage());
+         return;
+      }
+      
+      QueryWrapper qv = (QueryWrapper) queryHandle.unwrapQuery();
+      if (qv.bufferHandle().getResource() != topBuffer)
+      {
+         invalidTopNavQuery(4061, topBuffer.name().toStringMessage());
+         return;
+      }
+      
+      topNavQueries.put(topBuffer, qv);
+   }
+   
+   /**
     * Checks whether <strong>AT LEAST </strong> one data-relation objects in this {@code DataSet}
     * object is active. All data-relation objects in a {@code DataSet} object are active by
     * default.
@@ -5694,14 +5728,16 @@
     */
    private boolean _areRelationsActive()
    {
-      if (relations.isEmpty())
+      if (relations.isEmpty() || !dynamic)
       {
+         // in case of static dataset definition relations-active is still true although all relations were
+         // individually deactivated
          return defaultActive;
       }
       
       for (DataRelation rel : relations)
       {
-         if (rel.isActive().getValue())
+         if (rel._isActive())
          {
             return true;
          }
@@ -5712,8 +5748,7 @@
    }
    
    /**
-    * Adds a data-relation object for a pair of parent and child buffers to this {@code DataSet}
-    * object.
+    * Adds a data-relation object for a pair of parent and child buffers to this {@code DataSet} object.
     *
     * @param   relName
     *          The name of the relation.
@@ -5731,16 +5766,17 @@
     * @param   nested
     *          Use {@code TRUE} to nest child rows of {@code DataSet} buffers within their parent
     *          rows when writing the XML representation of data. When {@code FALSE} is passed, all
-    *          child rows are written after all parent rows are written. The default value is
-    *          {@code FALSE}.
-    * @param   notActive
-    *          Use {@code true} to make the newly created relation inactive.
+    *          child rows are written after all parent rows are written. The default value is {@code FALSE}.
+    * @param   active
+    *          Use {@code true} to make the newly created relation active.
     * @param   recursive
     *          Using {@code TRUE} will cause the data-relation to be filled recursively.
     * @param   fkeyHidden
     *          When set to {@code TRUE} the foreign key fields in nested data-relations will be
     *          omitted when writing the XML representation of data. If this option is used, the
     *          {@code NESTED} argument must be {@code TRUE}.
+    * @param   dynamic
+    *          Use {@code true} for dynamically created relations.
     *
     * @return  A {@code handle} to the newly created {@code DataRelation}.
     */
@@ -5751,16 +5787,21 @@
                                     String strPairs,
                                     boolean reposition,
                                     boolean nested,
-                                    boolean notActive,
+                                    boolean active,
                                     boolean recursive,
-                                    boolean fkeyHidden)
+                                    boolean fkeyHidden,
+                                    boolean dynamic)
    {
       DataRelation dR = new DataRelation(this, parent, child, fields, strPairs, recursive);
       dR.name(relName != null ? relName : "RELATION" + (relations.size() + 1));
       dR.setReposition(reposition);
       dR.setNested(nested);
-      dR.setActive(!notActive);
+      dR.setActive(active);
       dR.setForeignKeyHidden(fkeyHidden);
+      if (dynamic)
+      {
+         dR.confirmDynamic();
+      }
       
       relations.add(dR);
       return new handle(dR);
@@ -5779,9 +5820,9 @@
    }
    
    /**
-    * Test whether a string is a valid CALLBACK name for {@code DataSet}s. This method is
-    * responsible of raising the 11950 error if the name specified is unknown or nor not a name
-    * of a known callback for {@code DataSet}.
+    * Test whether a string is a valid CALLBACK name for {@code DataSet}s. This method is responsible of
+    * raising the 11950 error if the name specified is unknown or not a name of a known callback for
+    * {@code DataSet}.
     * 
     * @param   someName
     *          The name to test.
@@ -5815,7 +5856,7 @@
       
       for (DataRelation relation : relations)
       {
-         if (relation._isActive())
+         if (relation._isActive() && !relation._isReposition())
          {
             topBuffers.remove(relation.getChildBuffer().unwrapBuffer());
          }
@@ -5857,8 +5898,8 @@
          return new logical(false);
       }
       
-      // make sure the old content is gone: 
-      clearImpl(false);
+      // make sure the old content is gone:
+      clearImpl(false, false);
       
       name(prefix + sourceDS.name().getValue());
       
@@ -5879,10 +5920,16 @@
          newBuffers[i] = (BufferImpl) newAtt.defaultBufferHandle().unwrapBuffer();
       }
       setBuffers(newBuffers);
-      if (xmlNodeName == null)
-      {
-         setXmlNodeName(prefix + sourceDS.getXmlNodeName().toStringMessage());
-      }
+      // in OE 11.6 the [xmlNodeName] was observed to be copied in a different fashion 
+      // if (xmlNodeName == null)
+      // {
+      //    setXmlNodeName(prefix + sourceDS.getXmlNodeName().toStringMessage());
+      // }
+      // in OE the attributes are reportedly set as follows:
+      nsUri = null;     //unknown
+      nsPrefix = null;  //unknown
+      xmlNodeName = sourceDS.getXmlNodeName().toJavaType();       // copied
+      serializeName = sourceDS.getSerializeName().toJavaType();   // copied
       
       for (DataRelation srcRel : sourceDS.ref().relations)
       {
@@ -5894,9 +5941,14 @@
          if (srcRel.isParentIdRelation().booleanValue())
          {
             DataRelation dR = new DataRelation(this, bufParent, bufChild, 
-                        srcRel._getRelationFields(), new ArrayList<>(), new ArrayList<>());
-            dR.name(srcRel.name());
+                        srcRel._getRelationFields(), new ArrayList<>(), new ArrayList<>(), true);
             relations.add(dR);
+            
+            // in OE 12+ it is reported that the name is not copied 
+            //    dR.name(srcRel.name());
+            // instead it is generated automatically:
+            dR.name("RELATION" + relations.size());
+            // TODO: test whether this happens for simple (non parent-id) relations
          }
          else 
          {
@@ -5905,11 +5957,12 @@
                               bufChild,
                               srcRel.getRelationFieldArray(),
                               srcRel._getRelationFields(),
-                              srcRel.getReposition().getValue(),
+                              srcRel._isReposition(),
                               srcRel.isNested().getValue(),
                               !srcRel._isActive(),
                               srcRel.isRecursive().getValue(),
-                              srcRel.getForeignKeyHidden().getValue());
+                              srcRel.getForeignKeyHidden().getValue(),
+                              true);
          }
       }
       
@@ -5971,7 +6024,7 @@
       /** This is a reference of a {@code DataSet} defined in another procedure / class. */
       private boolean referenceOnly = false;
       
-      private List<Runnable> buildChain = new ArrayList<>(7);
+      private final List<Runnable> buildChain = new ArrayList<>(7);
       
       private DataSet target = null;
       
@@ -6004,7 +6057,7 @@
        */
       public Builder setNamespaceUri(String namespace)
       {
-         buildChain.add(() -> target.setNamespaceURI(namespace));
+         buildChain.add(() -> target.namespaceURI(namespace));
          return this;
       }
       
@@ -6019,7 +6072,7 @@
        */
       public Builder setNamespacePrefix(String prefix)
       {
-         buildChain.add(() -> target.setNamespacePrefix(prefix));
+         buildChain.add(() -> target.namespacePrefix(prefix));
          return this;
       }
       
@@ -6208,13 +6261,11 @@
                
                fields[2 * i] = parentField;
                fields[2 * i + 1] = childField;
-               strPairs.append(parentField)
-                       .append(",")
-                       .append(childField); // TODO: check if scoping is preserved here
+               strPairs.append(parentField).append(",").append(childField);
             }
             
             target.addRelationWorker(relName, parent, child, fields, strPairs.toString(),
-                                           reposition, nested, inactive, recursive, fkHidden);
+                                     reposition, nested, !inactive, recursive, fkHidden, false);
          });
          
          return ok.getValue() ? this : null;
@@ -6241,14 +6292,12 @@
                                          String parentIdField)
       {
          buildChain.add(() -> {
-            DataRelation dR = new DataRelation(target,
-                                               parentBuffer,
-                                               childBuffer,
-                                               parentIdField,
-                                               new ArrayList<>(),
-                                               new ArrayList<>());
+            DataRelation dR = new DataRelation(target, parentBuffer, childBuffer,
+                                               parentIdField, new ArrayList<>(), new ArrayList<>(), false);
             
             dR.name(relName);
+            // the REPOSITION attribute might be set, depending on the OE version
+            // dR.setReposition(true);
             target.ref().relations.add(dR);
          });
          return this;
@@ -6288,8 +6337,11 @@
                                                childBuffer,
                                                parentIdField,
                                                Arrays.asList(parentFieldsBefore),
-                                               Arrays.asList(parentFieldsAfter));
+                                               Arrays.asList(parentFieldsAfter),
+                                               false);
             dR.name(relName);
+            // the REPOSITION attribute might be set, depending on the OE version
+            // dR.setReposition(true);
             target.ref().relations.add(dR);
          });
          return this;
@@ -6350,36 +6402,100 @@
    }
    
    /**
-    * Get the JSON representation of this DATASET.
+    * Flag for debugging level. When {@code true} the full dataset is returned at the expense of CPU clocks.
+    * When {@code false} only the essential dataset structure is returned. Intentionally this is defined as
+    * non-final private here and has no accessors so that it can be r/w only at debug time.
+    */
+   private static boolean fullDebugString = false;
+   
+   /**
+    * Obtain a short description of the dataset used for debugging. If {@code fullDebugString} is {@code true}
+    * the full dataset (all rows of all buffers) is dumped as a JSON string. If only the dataset structure
+    * is needed, set {@code fullDebugString} to {@code false}.
     * 
-    * @return   See above.
+    * @return  a short description of the dataset used for debugging.
     */
    public String toString()
    {
-      boolean full = false;
-      if (full)
-      {
-         longchar lc = new longchar();
-         writeJson(new TargetData(lc), new logical(true));
-         return lc.getValue();
-      }
-      else
-      {
-         StringBuilder sb = new StringBuilder();
-         sb.append("{").append(name).append(": ");
-         for (BufferImpl buffer : buffers)
-         {
-            sb.append(buffer.doGetName()).append(" ");
-         }
-         sb.append("(");
-         for (DataRelation rel : relations)
-         {
-            sb.append(rel.name().getValue()).append("=");
-            sb.append(((BufferImpl) rel.getParentBuffer().getResource()).doGetName()).append("+");
-            sb.append(((BufferImpl) rel.getChildBuffer().getResource()).doGetName()).append(" ");
-         }
-         sb.append(") }");
-         return sb.toString();
-      }
-   };
+      return fullDebugString ? getSqlData() : getSchema();
+   }
+   
+   /**
+    * Obtain a short description of the dataset structure: buffers and relations between them.
+    * 
+    * @return  a string describing the important elements of the dataset structure.
+    */
+   private String getSchema()
+   {
+      StringBuilder sb = new StringBuilder();
+      sb.append("{").append(name).append(": ");
+      for (BufferImpl buffer : buffers)
+      {
+         sb.append(buffer.doGetName()).append(" ");
+      }
+      sb.append("(");
+      for (DataRelation rel : relations)
+      {
+         sb.append(rel.name().getValue()).append("=");
+         sb.append(((BufferImpl) rel.getParentBuffer().getResource()).doGetName()).append("+");
+         sb.append(((BufferImpl) rel.getChildBuffer().getResource()).doGetName()).append(" ");
+      }
+      sb.append(") }");
+      return sb.toString();
+   }
+   
+   /**
+    * Get the JSON representation of data of this DATASET. The returned value contains data from all tables of
+    * the dataset, but not the relations between them.
+    *
+    * @return   See above.
+    */
+   private String getDataAsJson()
+   {
+      longchar lc = new longchar();
+      writeJson(new TargetData(TargetData.TYPE_LONGCHAR, lc), new logical(true));
+      return lc.getValue();
+   }
+   
+   /**
+    * Get the SQL representation of data of this DATASET. The returned value contains data from all tables of
+    * the dataset, but not the relations between them.
+    *
+    * @return   See above.
+    */
+   private String getSqlData()
+   {
+      StringBuilder sb = new StringBuilder();
+      for (BufferImpl buffer : buffers)
+      {
+         // output the main/after buffer content 
+         if (sb.length() != 0)
+         {
+            sb.append("\n");
+         }
+         try
+         {
+            sb.append(buffer.buffer().sqlTableContent(0));
+         }
+         catch (PersistenceException | SQLException e)
+         {
+            sb.append("Error getting data: ").append(e.getMessage()).append("\n");
+         }
+         
+         // if exists, output the before buffer content, too
+         BufferImpl before = (BufferImpl) buffer.beforeBuffer().getResource();
+         if (before != null && before.valid())
+         {
+            try
+            {
+               sb.append("\n").append(before.buffer().sqlTableContent(0));
+            }
+            catch (PersistenceException | SQLException e)
+            {
+               sb.append("Error getting data: ").append(e.getMessage()).append("\n");
+            }
+         }
+      }
+      return sb.toString();
+   }
 }

=== modified file 'src/com/goldencode/p2j/persist/DataSetInterface.java'
--- src/com/goldencode/p2j/persist/DataSetInterface.java	2019-06-30 21:10:34 +0000
+++ src/com/goldencode/p2j/persist/DataSetInterface.java	2020-12-05 02:01:57 +0000
@@ -2,11 +2,12 @@
 ** Module   : DataSetInterface.java
 ** Abstract : Declares the public methods and attributes of DataSet.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20190403 Created initial version.
 ** 002 OM  20190611 Extracted method to more appropriate interfaces.
+** 003 OM  20201118 Extracted SERIALIZE-HIDDEN and DATA-SOURCE-MODIFIED into independent interfaces.
 */
 
 /*
@@ -82,32 +83,6 @@
    public integer getNumReferences();
    
    /**
-    * Checks whether the data in the data source has been modified.
-    * 
-    * @return  {@code true} when the data has been modified.
-    */
-   @LegacyAttribute(name = "DATA-SOURCE-MODIFIED")
-   public logical isDataSourceModified();
-   
-   /**
-    * Manually mark the data in the target structure as modified.
-    *
-    * @param   mod
-    *          {@code true} when the data is marked as modified and {@code false} otherwise.
-    */
-   @LegacyAttribute(name = "DATA-SOURCE-MODIFIED", setter = true)
-   public void setDataSourceModified(logical mod);
-   
-   /**
-    * Manually mark the data in the target structure as modified.
-    *
-    * @param   mod
-    *          {@code true} when the data is marked as modified and {@code false} otherwise.
-    */
-   @LegacyAttribute(name = "DATA-SOURCE-MODIFIED", setter = true)
-   public void setDataSourceModified(boolean mod);
-   
-   /**
     * Empties this {@code DataSet} object of all records in its associated temp-tables.
     * 
     * @return  {@code true} on success.
@@ -448,7 +423,7 @@
     *          child rows are written after all parent rows are written. The default value is
     *          {@code FALSE}.
     * @param   notActive
-    *          Use {@code true} to make the newly created relation inactive. 
+    *          Use {@code false} to make the newly created relation inactive  (yes, stupid manual). 
     *
     * @return  A handle to the newly created {@link DataRelation} object.
     */
@@ -481,7 +456,7 @@
     *          child rows are written after all parent rows are written. The default value is
     *          {@code FALSE}.
     * @param   notActive
-    *          Use {@code true} to make the newly created relation inactive. 
+    *          Use {@code false} to make the newly created relation inactive  (yes, stupid manual). 
     * @param   recursive
     *          Using {@code TRUE} till causes the data-relation to be filled recursively.
     *
@@ -517,7 +492,7 @@
     *          child rows are written after all parent rows are written. The default value is
     *          {@code FALSE}.
     * @param   notActive
-    *          Use {@code true} to make the newly created relation inactive. 
+    *          Use {@code false} to make the newly created relation inactive (yes, stupid manual). 
     * @param   recursive
     *          Using {@code TRUE} till causes the data-relation to be filled recursively.
     * @param   fkeyHidden
@@ -776,37 +751,5 @@
                               Text pairList,
                               logical currentOnly,
                               Text prefix);
-   
-   /**
-    * Checks whether fields are written when the temp-table is serialized, for example into
-    * JSON or XML.
-    * This represents the getter for {@code SERIALIZE-HIDDEN} ABL attribute.
-    *
-    * @return  {@code true} when the fields are hidden.
-    */
-   @LegacyAttribute(name = "SERIALIZE-HIDDEN")
-   public logical getSerializeHidden();
-   
-   /**
-    * Allow to configure whether fields are written when the temp-table is serialized, for example
-    * into JSON or XML.
-    * This represents the setter for {@code SERIALIZE-HIDDEN} ABL attribute.
-    *
-    * @param   val
-    *          {@code true} when the fields are hidden.
-    */
-   @LegacyAttribute(name = "SERIALIZE-HIDDEN", setter = true)
-   public void setSerializeHidden(logical val);
-   
-   /**
-    * Allow to configure whether fields are written when the temp-table is serialized, for example
-    * into JSON or XML.
-    * This represents the setter for {@code SERIALIZE-HIDDEN} ABL attribute.
-    *
-    * @param   val
-    *          {@code true} when the fields are hidden.
-    */
-   @LegacyAttribute(name = "SERIALIZE-HIDDEN", setter = true)
-   public void setSerializeHidden(boolean val);
 }
 

=== modified file 'src/com/goldencode/p2j/persist/DataSetParameter.java'
--- src/com/goldencode/p2j/persist/DataSetParameter.java	2020-04-27 16:17:03 +0000
+++ src/com/goldencode/p2j/persist/DataSetParameter.java	2021-01-13 21:04:41 +0000
@@ -2,9 +2,9 @@
 ** Module   : DataSetParameter.java
 ** Abstract : Container for DataSet reference/handle and calling-side APPEND option.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20190403 Created initial version.
 ** 002 OM  20190510 Added dataset runtime support. Changed to parameter passing option as enum
 **                  which simplifies API and adds mutual exclusion to options.
@@ -20,6 +20,7 @@
 **                  'inverse binding' (from callee to caller).
 ** 004 CA  20191203 Added toString().
 ** 005 CA  20200427 Allow a DATASET to be read from JSON argument, in case of a remote REST call.
+** 006 OM  20210106 Dropped 2nd parameter of TEMP-TABLE-PREPARE.
 */
 
 /*
@@ -380,12 +381,14 @@
          {
             DsTableDefinition tableDef = tableDefs.get(k);
             
-            buffs[k] = TempTableBuilder.createRemoteTable(tableDef.getName(), 
-                                                          tableDef.isAfterTable(), 
-                                                          tableDef.propertyIterator(), 
-                                                          tableDef.getIndexes(), 
-                                                          tableDef.getXmlns(), 
-                                                          tableDef.getXmlPrefix());
+            if (tableDef.isAfterTable())
+            {
+               Iterator<PropertyDefinition> props = tableDef.propertyIterator();
+               String idx = tableDef.getIndexes();
+               String xmlns = tableDef.getXmlns();
+               String prefix = tableDef.getXmlPrefix();
+               buffs[k] = TempTableBuilder.createRemoteTable(tableDef.getName(), props, idx, xmlns, prefix);
+            }
             
             // flush data from [tableDef.getRows()] to [ttb] / buffs[k]
             TemporaryBuffer.insertAllRows(wrapper.getTableWrapper(k),
@@ -393,6 +396,7 @@
                                           wrapper.isAppend(),
                                           TemporaryBuffer.CopyTableMode.INPUT_PARAM_MODE,
                                           getParameterIndex());
+            // TODO: if (tableDef.isAfterTable()) flush data from (tableDef+1).getRows() to buffs[k].before
          }
          newDS.setBuffers(buffs);
       }

=== modified file 'src/com/goldencode/p2j/persist/DataSource.java'
--- src/com/goldencode/p2j/persist/DataSource.java	2019-09-04 13:07:54 +0000
+++ src/com/goldencode/p2j/persist/DataSource.java	2021-01-28 20:00:25 +0000
@@ -2,9 +2,9 @@
 ** Module   : DataSource.java
 ** Abstract : DataSource implementation.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20190325 Created initial version.
 ** 002 OM  20190611 Added runtime implementation.
 ** 003 OM  20190720 Added NEXT/RESTART-ROWID implementation.
@@ -14,6 +14,7 @@
 **     CA  20190812 Changes to allow for mutable buffers; any API which receives a Buffer instance
 **                  and is invoked from converted code must resolve the runtime instance before
 **                  saving the instance.
+** 004 OM  20201120 Made FILL-WHERE-STRING recompute automatically when conditions change.
 */
 
 /*
@@ -71,6 +72,7 @@
 
 package com.goldencode.p2j.persist;
 
+import com.goldencode.p2j.persist.orm.*;
 import com.goldencode.p2j.util.*;
 import com.goldencode.util.*;
 
@@ -111,13 +113,13 @@
    private String admData = null;
    
    /** The list of buffers of this {@code DataSource}. */
-   private List<BufferImpl> buffers = new LinkedList<>();
+   private final List<BufferImpl> buffers = new LinkedList<>();
    
    /** The current values of NEXT-ROWID attributes. */
-   private Map<BufferImpl, Long> nextRowids = new HashMap<>();
+   private final Map<BufferImpl, Long> nextRowids = new HashMap<>();
    
    /** The current values of RESTART-ROWID attributes. */
-   private Map<BufferImpl, Long> restartRowids = new HashMap<>();
+   private final Map<BufferImpl, Long> restartRowids = new HashMap<>();
    
    /** 
     * The {@code Buffer} attached to this {@code DataSource}. It must be a {@code DataSet} buffer.
@@ -127,12 +129,12 @@
    /** 
     * The set of keys (components of an unique index) that identifies the records in key -buffer.
     */
-   private Map<Buffer, List<String>> keys = new HashMap<>();
+   private final Map<Buffer, List<String>> keys = new HashMap<>();
    
    /** The query that defines the buffers for the data-source object. */
-   private handle query = new handle();
+   private final handle query = new handle();
    
-   /** 
+   /**
     * The current value of the {@code PREFER-DATASET} attribute. Default value is {@code false}.
     */
    private boolean preferDataset = false;
@@ -143,10 +145,10 @@
    private boolean mergeByField = true;
    
    /**
-    * The current value of {@code FILL-WHERE-STRING} attribute. The default value is {@code null}
-    * / {@code unknown}, but this value cannot be set programmatically, at runtime. 
+    * The current value of {@code FILL-WHERE-STRING} attribute, if set programmatically. The default value
+    * is {@code null} / {@code unknown}, but this value cannot be set programmatically, at runtime.
     */
-   private String fillWhereString = null;
+   private String _fillWhereString = null;
    
    /** The current mapping between the {@link #datasetBuffer} and fields from this object. */
    private Map<CaseInsensitiveString, FieldReference> buf2dsrc = null;
@@ -155,7 +157,7 @@
    private Map<CaseInsensitiveString, String> revBuf2src = null;
    
    /** The values of {@code SAVE-WHERE-STRING} attribute, mapped by their buffers. */
-   private Map<Buffer, String> saveWhereStrings = new HashMap<>();
+   private final Map<Buffer, String> saveWhereStrings = new HashMap<>();
    
    /**
     * Factory method. Corresponds to {@code CREATE DATASOURCE} statement. Creates a new 
@@ -421,7 +423,7 @@
    @Override
    public character getFillWhereString()
    {
-      return new character(fillWhereString);
+      return new character(_fillWhereString != null ? _fillWhereString : computeFillWhereString());
    }
    
    /**
@@ -436,7 +438,7 @@
    public void setFillWhereString(String pref)
    {
       // NOTE: IN P4GL, the syntax of the string is NOT checked (at least at this moment)!
-      this.fillWhereString = pref;
+      this._fillWhereString = pref;
    }
    
    /**
@@ -642,7 +644,7 @@
    {
       for (BufferImpl buffer : buffers)
       {
-         if (buffer.name().toStringMessage().equals(buffName))
+         if (buffer.doGetName().equals(buffName))
          {
             return new rowid(nextRowids.get(buffer));
          }
@@ -739,7 +741,7 @@
    {
       for (BufferImpl buffer : buffers)
       {
-         if (buffer.name().toStringMessage().equals(buffName))
+         if (buffer.doGetName().equals(buffName))
          {
             nextRowids.put(buffer, row.getValue());
             return;
@@ -899,7 +901,7 @@
    {
       for (BufferImpl buffer : buffers)
       {
-         if (buffer.name().toStringMessage().equals(buffName))
+         if (buffer.doGetName().equals(buffName))
          {
             return new rowid(restartRowids.get(buffer));
          }
@@ -999,7 +1001,7 @@
    {
       for (BufferImpl buffer : buffers)
       {
-         if (buffer.name().toStringMessage().equals(buffName))
+         if (buffer.doGetName().equals(buffName))
          {
             restartRowids.put(buffer, row.getValue());
             return;
@@ -1059,7 +1061,7 @@
       
       if (datasetBuffer == null)
       {
-         ErrorManager.recordOrShowError(11892, buffers.get(0).name().toStringMessage());
+         ErrorManager.recordOrShowError(11892, buffers.get(0).doGetName());
          // Attempt to reference dataset buffer of a data-source before ATTACH-DATA-SOURCE for data-source buffer <name>.
          return new character();
       }
@@ -1112,14 +1114,14 @@
       
       if (datasetBuffer == null)
       {
-         ErrorManager.recordOrShowError(11892, buffers.get(0).name().toStringMessage());
+         ErrorManager.recordOrShowError(11892, buffers.get(0).doGetName());
          // Attempt to reference dataset buffer of a data-source before ATTACH-DATA-SOURCE for data-source buffer <name>.
          return new character();
       }
       
-      for (Buffer buffer : buffers)
+      for (BufferImpl buffer : buffers)
       {
-         if (buffer.name().toStringMessage().equalsIgnoreCase(buffName))
+         if (buffer.doGetName().equalsIgnoreCase(buffName))
          {
             return new character(getSaveWhereStringImpl(buffer));
          }
@@ -1312,7 +1314,7 @@
       
       if (datasetBuffer == null)
       {
-         ErrorManager.recordOrShowError(11892, buffers.get(0).name().toStringMessage());
+         ErrorManager.recordOrShowError(11892, buffers.get(0).doGetName());
          // Attempt to reference dataset buffer of a data-source before ATTACH-DATA-SOURCE for data-source buffer <name>.
          return;
       }
@@ -1358,14 +1360,14 @@
    {
       if (datasetBuffer == null)
       {
-         ErrorManager.recordOrShowError(11892, buffers.get(0).name().toStringMessage());
+         ErrorManager.recordOrShowError(11892, buffers.get(0).doGetName());
          // Attempt to reference dataset buffer of a data-source before ATTACH-DATA-SOURCE for data-source buffer <name>.
          return;
       }
       
-      for (Buffer buffer : buffers)
+      for (BufferImpl buffer : buffers)
       {
-         if (buffer.name().toStringMessage().equalsIgnoreCase(buffName))
+         if (buffer.doGetName().equalsIgnoreCase(buffName))
          {
             saveWhereStrings.put(buffer, val);
             return;
@@ -1606,6 +1608,7 @@
             return i;
          }
       }
+      
       return -1;
    }
    
@@ -1631,10 +1634,11 @@
     */
    void attach(BufferImpl buffer, Map<CaseInsensitiveString, FieldReference> buf2dsrc)
    {
+      this._fillWhereString = null;
+      
       if (buffer == null)
       {
          // this is a DETACH operation
-         this.fillWhereString = null;
          this.datasetBuffer = null;
          this.buf2dsrc = null;
          this.revBuf2src = null;
@@ -1642,77 +1646,18 @@
          return;
       }
       
-      if (this.datasetBuffer != null)
+      buffer = buffer.ref();
+      
+      if (this.datasetBuffer != null && datasetBuffer != buffer)
       {
-         // detach the old buffer
+         // detach the old buffer, if the same, let it be
          this.datasetBuffer.detachDataSource();
       }
       
-      buffer = buffer.ref();
-      
       this.datasetBuffer = buffer;
       this.buf2dsrc = buf2dsrc;
-      this.fillWhereString = null;
-      
-      // auto-generate a FILL query predicate for this situation 
-      StringBuilder sb = new StringBuilder();
-      String chBuff = buffer.name().toStringMessage();
-      DataSet ds = (DataSet) datasetBuffer.dataSet().unwrapDataSet();
-      List<DataRelation> rels = ds.getRelations(datasetBuffer, false, true, false);
-      
-      if (rels.isEmpty())
-      {
-         // no constraints here
-         return;
-      }
-      
-      for (DataRelation rel : rels)
-      {
-         String parBuff = rel.getParentBuffer().unwrapBuffer().name().toStringMessage();
-         String[] relFields = rel._getRelationFields().split(",");
-         if (relFields.length == 1)
-         {
-            // in PARENT-ID relations, the FILL WHERE is unknown
-            return;
-         }
-         else
-         {
-            for (int k = 0; k < relFields.length; k += 2)
-            {
-               sb.append(sb.length() == 0 ? " WHERE " : "  and "); // extra space!
-               String pf = relFields[k];
-               String cf = relFields[k + 1];
-               FieldReference fr = buf2dsrc.get(new CaseInsensitiveString(cf));
-               if (fr == null && 
-                   cf.toLowerCase().startsWith((buffer.doGetName() + ".").toLowerCase()))
-               {
-                  // second chance, when the [cf] is qualified
-                  cf = cf.substring(buffer.doGetName().length() + 1);
-                  fr = buf2dsrc.get(new CaseInsensitiveString(cf));
-               }
-               if (fr == null)
-               {
-                  // this is but a guess, usually there is only a single buffer in data source,
-                  // but there might be several 
-                  String guess = buffers.get(0).name().toStringMessage();
-                  ErrorManager.recordOrShowError(11883, guess, cf, chBuff);
-                  // Unable to auto-generate a FILL query predicate for <buffer> if field <fieldname> in <buffer> is not mapped.
-                  
-                  return; // not an error, but the fillWhereString remains [null]
-               }
-               sb.append(fr.toString()).append("=");
-               if (!pf.toLowerCase().startsWith((parBuff + ".").toLowerCase()))
-               {
-                  sb.append(parBuff).append(".");
-               }
-               sb.append(pf);
-            }
-         }
-      }
-      
-      // everything is fine
+      
       setParentBuffer();
-      this.fillWhereString = sb.toString();
    }
    
    /**
@@ -1764,6 +1709,72 @@
    }
    
    /**
+    * Computes the value of {@code FILL-WHERE-STRING} attribute at this moment. Depending on the active 
+    * relations from the dataset, this value may change.
+    * 
+    * @return  the value of {@code FILL-WHERE-STRING} attribute.
+    */
+   private String computeFillWhereString()
+   {
+      StringBuilder sb = new StringBuilder();
+      String chBuff = this.datasetBuffer.doGetName();
+      List<DataRelation> rels = datasetBuffer._dataSet().getRelations(datasetBuffer, false, true, false);
+      
+      if (rels.isEmpty())
+      {
+         // no constraints here
+         return null;
+      }
+      
+      for (DataRelation rel : rels)
+      {
+         String parBuff = rel.getParentBuffer().unwrapBuffer().name().toStringMessage();
+         if (rel.isParentIdRelation().booleanValue())
+         {
+            // in PARENT-ID relations, the FILL WHERE is unknown
+            return null;
+         }
+         
+         String[] relFields = rel._getRelationFields().split(",");
+         
+         for (int k = 0; k < relFields.length; k += 2)
+         {
+            sb.append(sb.length() == 0 ? " WHERE " : "  and "); // extra space!
+            String pf = relFields[k];
+            String cf = relFields[k + 1];
+            FieldReference fr = buf2dsrc.get(new CaseInsensitiveString(cf));
+            if (fr == null && cf.toLowerCase().startsWith((datasetBuffer.doGetName() + ".").toLowerCase()))
+            {
+               // second chance, when the [cf] is qualified
+               cf = cf.substring(datasetBuffer.doGetName().length() + 1);
+               fr = buf2dsrc.get(new CaseInsensitiveString(cf));
+            }
+            
+            if (fr == null)
+            {
+               // this is but a guess, usually there is only a single buffer in data source,
+               // but there might be several 
+               String guess = buffers.get(0).doGetName();
+               ErrorManager.recordOrShowError(11883, guess, cf, chBuff);
+               // Unable to auto-generate a FILL query predicate for <buffer> if field <fieldname> in <buffer> is not mapped.
+               
+               return null; // not an error, but the fillWhereString remains [null]
+            }
+            
+            sb.append(fr.toString()).append("=");
+            if (!pf.toLowerCase().startsWith((parBuff + ".").toLowerCase()))
+            {
+               sb.append(parBuff).append(".");
+            }
+            sb.append(pf);
+         }
+      }
+      
+      // everything is fine
+      return sb.toString();
+   }
+   
+   /**
     * The implementation of assignation of QUERY attribute. Validates and link the query.
     * 
     * @param   qry
@@ -1829,6 +1840,40 @@
          return new logical(true);
       }
       
+      if (keyFields == null || keyFields.length == 0)
+      {
+         DmoMeta dmoInfo = buffer.buffer().getDmoInfo();
+         P2JIndex pIndex = dmoInfo.getPrimaryIndex(true);
+         if (pIndex != null && pIndex.isUnique())
+         {
+            String[] keyFieldsBuf = new String[20]; // 16 fields per index max theoretical
+            int fieldCount = 0;
+            
+            Iterator<P2JIndexComponent> idxComps = pIndex.components();
+            while (idxComps.hasNext())
+            {
+               keyFieldsBuf[fieldCount++] = idxComps.next().getName(P2JIndexComponent.LEGACY);
+            }
+            
+            keyFields = new String[fieldCount];
+            System.arraycopy(keyFieldsBuf, 0, keyFields, 0, fieldCount);
+         }
+      }
+      
+      if (keyFields == null)
+      {
+         // to avoid NPE if the next test is disabled
+         keyFields = new String[0];
+      }
+      
+// NOTE: sometimes this is tested, sometimes not. What is the criterion?
+//      if (keyFields == null || keyFields.length == 0)
+//      {
+//         ErrorManager.recordOrShowError(11895, buffer.doGetName());
+//         // Unable to get SAVE-WHERE-STRING because no KEYS phrase given in DATA-SOURCE definition and no unique index found in <buffer-name>.
+//         return new logical(false);
+//      }
+      
       for (String keyField : keyFields)
       {
          if (ROWID_KEY.equalsIgnoreCase(keyField))
@@ -1838,7 +1883,7 @@
          
          if (!buffer.hasField(keyField))
          {
-            ErrorManager.recordOrShowError(11975, keyField, buffer.name().toStringMessage());
+            ErrorManager.recordOrShowError(11975, keyField, buffer.doGetName());
             // ADD-SOURCE-BUFFER key name <name> must be a field in buffer <name>.
             return new logical(false);
          }
@@ -1874,15 +1919,23 @@
     */
    private String getSaveWhereStringImpl(Buffer buf)
    {
+      String bufName = ((BufferImpl)buf).doGetName();
+      
+      List<String> uIndexComp = keys.get(buf);
+      if (uIndexComp == null || uIndexComp.isEmpty())
+      {
+         ErrorManager.recordOrShowError(11895, bufName);
+         // Unable to get SAVE-WHERE-STRING because no KEYS phrase given in DATA-SOURCE definition and no unique index found in <buffer-name>.
+         return null;
+      }
+      
       String saveWhere = saveWhereStrings.get(buf);
       if (saveWhere != null)
       {
          return saveWhere;
       }
-      List<String> uIndexComp = keys.get(buf);
-      if (uIndexComp == null || 
-          uIndexComp.isEmpty() || 
-          uIndexComp.size() == 1 && uIndexComp.get(0).equalsIgnoreCase(ROWID_KEY))
+      
+      if (uIndexComp.size() == 1 && uIndexComp.get(0).equalsIgnoreCase(ROWID_KEY))
       {
          return null;
       }
@@ -1917,7 +1970,6 @@
       String btName = bt.unwrap().name().toStringMessage();
       
       // auto generate the SAVE-WHERE-STRING value on first read access
-      String bufName = buf.name().toStringMessage();
       StringBuilder sb = new StringBuilder();
       for (String comp : uIndexComp)
       {
@@ -2063,7 +2115,7 @@
          
          if (name.contains("."))
          {
-            String buffName = buffer.name().toStringMessage().toLowerCase();
+            String buffName = buffer.doGetName().toLowerCase();
             String prefix = buffName + ".";
             if (name.toLowerCase().startsWith(prefix))
             {
@@ -2107,7 +2159,7 @@
       @Override
       public String toString()
       {
-         return buffer.name().toStringMessage() + "." + name;
+         return buffer.doGetName() + "." + name;
       }
    }
 }

=== added file 'src/com/goldencode/p2j/persist/DataSourceModifiable.java'
--- src/com/goldencode/p2j/persist/DataSourceModifiable.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/persist/DataSourceModifiable.java	2020-11-18 21:54:53 +0000
@@ -0,0 +1,105 @@
+/*
+** Module   : DataSourceModifiable.java
+** Abstract : Declares the public methods for DATA-SOURCE-MODIFIED attributes of DataSet, Buffer, and
+*             TempTable.
+**
+** Copyright (c) 2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
+** 001 OM  20201020 Created initial version.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+**
+** Additional terms under GNU Affero GPL version 3 section 7:
+**
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+**
+**   0. Attribution Requirement.
+**
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+**
+**   1. No License To Use Trademarks.
+**
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+**
+**   2. No Misrepresentation of Affiliation.
+**
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+**
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+**
+**   3. No Misrepresentation of Source or Origin.
+**
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.persist;
+
+import com.goldencode.p2j.util.*;
+
+/**
+ * Declares the public methods and attributes of {@code DataSet}s.
+ */
+public interface DataSourceModifiable
+{
+   /**
+    * Checks whether the data in the data source has been modified.
+    * 
+    * @return  {@code true} when the data has been modified.
+    */
+   @LegacyAttribute(name = "DATA-SOURCE-MODIFIED")
+   public logical isDataSourceModified();
+   
+   /**
+    * Manually mark the data in the target structure as modified.
+    *
+    * @param   mod
+    *          {@code true} when the data is marked as modified and {@code false} otherwise.
+    */
+   @LegacyAttribute(name = "DATA-SOURCE-MODIFIED", setter = true)
+   public void setDataSourceModified(logical mod);
+   
+   /**
+    * Manually mark the data in the target structure as modified.
+    *
+    * @param   mod
+    *          {@code true} when the data is marked as modified and {@code false} otherwise.
+    */
+   @LegacyAttribute(name = "DATA-SOURCE-MODIFIED", setter = true)
+   public void setDataSourceModified(boolean mod);
+   
+   public static logical isDataSourceModified(Buffer rb)
+   {
+      return rb.isDataSourceModified();
+   }
+}
+

=== modified file 'src/com/goldencode/p2j/persist/DatabaseManager.java'
--- src/com/goldencode/p2j/persist/DatabaseManager.java	2020-10-03 16:02:03 +0000
+++ src/com/goldencode/p2j/persist/DatabaseManager.java	2020-10-14 21:06:19 +0000
@@ -243,6 +243,7 @@
 **     OM  20200924          P2JIndexComponent carries multiple information to avoid map lookups for them.
 **     OM  20201001          Improved DMO manipulation performance by caching slow Property annotation access.
 **     CA  20201003          Use an identity HashSet where possible.
+**     OM  20201012          Force use locally cached meta information instead of map lookup.
 */
 
 /*
@@ -1307,9 +1308,7 @@
     * @param   dmoIface
     *          DMO interface class.
     */
-   // TODO: implement w/o Hibernate
    static void registerDynamicTable(Class<? extends DataModelObject> dmoIface)
-   throws PersistenceException
    {
       Context ctx = context.get();
       ctx.dynamicDMOIfaces.add(dmoIface);
@@ -1321,10 +1320,8 @@
     * @param dmoIface
     *        DMO interface class.
     */
-   // TODO: implement w/o Hibernate
    static void deregisterDynamicTable(Class<? extends DataModelObject> dmoIface)
    {
-      Class<? extends Record> dmoClass = DmoMetadataManager.getImplementingClass(dmoIface);
       Context ctx = context.get(false);
       if (ctx == null)
       {
@@ -1357,8 +1354,7 @@
       LockTableUpdater ltu = lockTableUpdaters.get(database);
       if (ltu == null)
       {
-         throw new IllegalArgumentException("No lock table updater found for database " +
-                                            database);
+         throw new IllegalArgumentException("No lock table updater found for database " + database);
       }
       
       return ltu;

=== modified file 'src/com/goldencode/p2j/persist/DsRelationDefinition.java'
--- src/com/goldencode/p2j/persist/DsRelationDefinition.java	2020-09-24 17:41:02 +0000
+++ src/com/goldencode/p2j/persist/DsRelationDefinition.java	2021-01-13 21:04:41 +0000
@@ -4,12 +4,13 @@
 **
 ** Copyright (c) 2019-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20130708 Created initial version.
 **     OM  20190716 Added missing Javadocs. Added missing RELATION attributes.
 **     CA  20190812 Added toString().
 ** 002 IAS 20200908 Rework (de)serialization.
 ** 003 IAS 20200922 Get rid of possible NPE on serialization.
+**     OM  20201231 DataRelation API change. Replaced multiple string concatenation with StringBuilder.
 */
 
 /*
@@ -134,7 +135,7 @@
       this.active = rel._isActive();
       this.parentId = rel.isParentIdRelation().booleanValue();
       this.pairs = rel._getRelationFields();
-      this.reposition = rel.getReposition().getValue();
+      this.reposition = rel._isReposition();
       this.nested = rel.isNested().getValue();
       this.recursive = rel.isRecursive().getValue();
       this.fkeyHidden = rel.getForeignKeyHidden().getValue();
@@ -399,16 +400,14 @@
    /**
     * Read the relation definition from the specified input source.
     * 
-    * @param    in
-    *           The input source from which the relation definition will be read.
+    * @param   in
+    *          The input source from which the relation definition will be read.
     *
-    * @throws   IOException
-    *           In case of I/O errors.
-    * @throws ClassNotFoundException 
+    * @throws  IOException
+    *          In case of I/O errors.
     */
    public final void readExternal(ObjectInput in)
-   throws IOException,
-          ClassNotFoundException
+   throws IOException
    {
       name = readString(in);
       parentBuffer = readString(in);
@@ -431,17 +430,18 @@
    @Override
    public String toString()
    {
-      String s = name + ": " + parentBuffer + " has child " + childBuffer + "\n";
-      
-      s = s + "\twhereString: " + whereString;
-      s = s + "\tpairs: " + pairs;
-      s = s + "\tactive: " + active;
-      s = s + "\tparentId: " + parentId;
-      s = s + "\tfkeyHidden: " + fkeyHidden;
-      s = s + "\trecursive: " + recursive;
-      s = s + "\tnested: " + nested;
-      s = s + "\treposition: " + reposition;
-      
-      return s;
+      StringBuilder sb = new StringBuilder();
+      sb.append(name).append(": ").append(parentBuffer).append(" has child ").append(childBuffer)
+        .append("\n")
+        .append("\twhereString: ").append(whereString)
+        .append("\tpairs: ").append(pairs)
+        .append("\tactive: ").append(active)
+        .append("\tparentId: ").append(parentId)
+        .append("\tfkeyHidden: ").append(fkeyHidden)
+        .append("\trecursive: ").append(recursive)
+        .append("\tnested: ").append(nested)
+        .append("\treposition: ").append(reposition);
+      
+      return sb.toString();
    }
 }

=== modified file 'src/com/goldencode/p2j/persist/DsTableDefinition.java'
--- src/com/goldencode/p2j/persist/DsTableDefinition.java	2020-09-24 17:41:02 +0000
+++ src/com/goldencode/p2j/persist/DsTableDefinition.java	2021-01-13 21:04:41 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2019-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20130708 Created initial version.
 **     OM  20190716 Updated Javadocs.
 **     OM  20190721 Added new table properties to transport protocol.
@@ -15,6 +15,7 @@
 ** 004 OM  20200906 New ORM implementation.
 ** 005 IAS 20200908 Rework (de)serialization.
 ** 006 IAS 20200922 Get rid of possible NPE on serialization.
+**     OM  20201120 Added implementations for XML-NODE-NAME, ERROR-STRING and SCHEMA-MARSHAL attributes.
 */
 
 /*
@@ -72,11 +73,11 @@
 
 package com.goldencode.p2j.persist;
 
-import static com.goldencode.util.NativeTypeSerializer.*; 
 import java.io.*;
 import java.util.*;
-
 import com.goldencode.p2j.util.*;
+import static com.goldencode.p2j.persist.AbstractTempTable.*;
+import static com.goldencode.util.NativeTypeSerializer.*;
 
 /**
  * Container for a temp-table. Used to send the temp-table to a remote side, when remote
@@ -115,6 +116,12 @@
    /** The XML prefix for this table definition. */
    private String xmlPrefix = null;
    
+   /** The XML-NODE-NAME attribute for this table definition. */
+   private String xmlNodeName = null;
+   
+   /** The ERROR-STRING attribute for this table definition. */
+   private String errorString = null;
+   
    /**
     * A string with all indexes of this table definition encoded as a {@code String}.
     * 
@@ -124,11 +131,18 @@
    private String indexes = null;
    
    /**
+    * The SCHEMA-MARSHAL level for the serialized temp-table. It is never {@code SM_DEFAULT} when object is to
+    * be serialized. Always {@code SM_DEFAULT} for a read object.
+    */
+   private final int schemaMarshalLevel;
+   
+   /**
     * Default c'tor, explicitly added to allow instances of this class to be created on 
     * deserialization. Not for public use.
     */
    public DsTableDefinition()
    {
+      schemaMarshalLevel = SM_DEFAULT;
    }
    
    /**
@@ -139,6 +153,7 @@
     */
    public DsTableDefinition(TableResultSet resultSet)
    {
+      schemaMarshalLevel = SM_DEFAULT;
       this.resultSet = resultSet;
    }
    
@@ -157,11 +172,38 @@
                                                   TempTable.BeforeType.SIMPLE).ordinal();
       
       Buffer defBuff = (Buffer) target.defaultBufferHandle().getResource();
+      AbstractTempTable parentTable = (AbstractTempTable) target.buffer().getParentTable();
       
-      this.indexes = TableMapper.getLegacyIndexInfo(defBuff);
-      this.numIndexes = this.indexes.split("\\.").length;
-      this.xmlns = defBuff.getNamespaceURI().toStringMessage();
-      this.xmlPrefix = defBuff.getNamespacePrefix().toStringMessage();
+      int sml = parentTable.getSchemaMarshalLevel();
+      this.schemaMarshalLevel = (sml == SM_DEFAULT) ? SM_FULL : sml;
+      switch (sml)
+      {
+         case SM_FULL:
+         case SM_DEFAULT:
+            // full table schema is serialized with table parameter
+            this.indexes = TableMapper.getLegacyIndexInfo(defBuff);
+            this.numIndexes = this.indexes.split("\\.").length;
+            this.xmlns = parentTable.namespaceURI().toStringMessage();
+            this.xmlPrefix = parentTable.namespacePrefix().toStringMessage();
+            this.xmlNodeName = parentTable.getXmlNodeName().toStringMessage();
+            // no break, fall through
+            
+         case SM_MIN:
+            // marshals:
+            //    field names, data types, and extents;
+            //    temp-table ERROR-STRING
+            // does NOT marshal:
+            //    index descriptions
+            //    field information (label, help, field validation expression, and so on (?))
+            this.errorString = defBuff.errorString().toStringMessage();
+            // no break, fall through
+         
+         case SM_NONE:
+         default:
+            // nothing is marshaled. The protocol is the same but null values are sent instead of data.
+            // The receiver peer must have all information readily available.
+            break;
+      }
       
       if (this.tableType == TempTable.BeforeType.AFTER.ordinal())
       {
@@ -295,6 +337,26 @@
    }
    
    /**
+    * Obtain the XML node name for this table definition.
+    *
+    * @return  the XML node name for this table definition.
+    */
+   public String getXmlNodeName()
+   {
+      return xmlNodeName;
+   }
+   
+   /**
+    * Obtain the ERROR-STRING attribute for this table definition.
+    *
+    * @return  the ERROR-STRING attribute for this table definition.
+    */
+   public String getErrorString()
+   {
+      return errorString;
+   }
+   
+   /**
     * Obtain the set of indexes of this table definition. 
     *
     * @return  the set of indexes of this table definition encoded as a single string.
@@ -329,6 +391,28 @@
    }
    
    /**
+    * Sets the XML node name for this table definition. 
+    *
+    * @param   xmlNodeName
+    *          XML prefix for this table definition.
+    */
+   public void setXmlNodeName(String xmlNodeName)
+   {
+      this.xmlNodeName = xmlNodeName;
+   }
+   
+   /**
+    * Sets the ERROR-STRING attribute for this table definition. 
+    *
+    * @param   err
+    *          ERROR-STRING attribute for this table definition.
+    */
+   public void setErrorString(String err)
+   {
+      this.errorString = err;
+   }
+   
+   /**
     * Configures the index3es for this table.
     *
     * @param   numIndexes
@@ -467,6 +551,8 @@
       writeString(out, indexes);
       writeString(out, xmlns);
       writeString(out, xmlPrefix);
+      writeString(out, xmlNodeName);
+      writeString(out, errorString);
       
       // write properties as a byte(1) separated list, ended with a byte(0)
       Set<Integer> blobProps = null;
@@ -476,9 +562,10 @@
          while (resultSet.hasMoreProperties())
          {
             PropertyDefinition property = resultSet.nextProperty();
+            property.setMarshalLevel(schemaMarshalLevel);
             out.writeByte(1);
             property.writeExternal(out);
-
+            
             if (property.getType() == blob.class)
             {
                if (blobProps == null)
@@ -531,12 +618,13 @@
    /**
     * Read the table definition from the specified input source.
     *
-    * @param    in
-    *           The input source from which the table definition will be read.
+    * @param   in
+    *          The input source from which the table definition will be read.
     *
-    * @throws   IOException
-    *           In case of I/O errors.
-    * @throws ClassNotFoundException 
+    * @throws  IOException
+    *          In case of I/O errors.
+    * @throws  ClassNotFoundException
+    *          If the read {@code type} of a property can't be resolved to a valid class.
     */
    public final void readExternal(ObjectInput in)
    throws IOException,
@@ -548,6 +636,8 @@
       indexes = readString(in);
       xmlns = readString(in);
       xmlPrefix = readString(in);
+      xmlNodeName = readString(in);
+      errorString = readString(in);
       
       // read meta info separated by byte(1). The list ends with a byte(0).
       properties = new ArrayList<>();
@@ -615,24 +705,22 @@
    @Override
    public String toString()
    {
-      String s = "TABLE[" + getName() + "]\n";
-      
-      s = s + "PROPERTIES:\n";
+      StringBuilder sb = new StringBuilder("TABLE[").append(getName()).append("]\n");
+      sb.append("PROPERTIES:\n");
       Iterator<PropertyDefinition> iter = propertyIterator();
       while (iter.hasNext())
       {
-         s = s + iter.next().toString() + "\n";
+         sb.append(iter.next().toString()).append("\n");
       }
-      s = s + "\n";
+      sb.append("\n");
       
-      s = s + "ROWS:\n";
+      sb.append("ROWS:\n");
       Iterator<Object[]> rowIter = rowIterator();
       while (rowIter.hasNext())
       {
-         Object[] data = (Object[]) rowIter.next();
-         for (int i = 0; i < data.length; i++)
+         Object[] data = rowIter.next();
+         for (Object d : data)
          {
-            Object d = data[i];
             String sd = "";
             if (d instanceof BaseDataType)
             {
@@ -642,16 +730,16 @@
             {
                sd = d.toString();
             }
-            s = s + "[" + sd + "]; ";
+            sb.append("[").append(sd).append("]; ");
          }
-         s = s + "\n";
+         sb.append("\n");
       }
-
+      
       if (peerDef != null && isAfterTable())
       {
-         s = s + "BEFORE-" + peerDef.toString();
+         sb.append("BEFORE-").append(peerDef.toString());
       }
       
-      return s;
+      return sb.toString();
    }
 }

=== modified file 'src/com/goldencode/p2j/persist/DynamicConversionHelper.java'
--- src/com/goldencode/p2j/persist/DynamicConversionHelper.java	2020-10-01 22:14:40 +0000
+++ src/com/goldencode/p2j/persist/DynamicConversionHelper.java	2021-01-28 20:00:25 +0000
@@ -2,7 +2,7 @@
 ** Module   : DynamicConversionHelper.java
 ** Abstract : Base class with common functions for DynamicQueryHelper and DynamicValidationHelper.
 **
-** Copyright (c) 2017-2020, Golden Code Development Corporation.
+** Copyright (c) 2017-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 SVL 20171024 Created initial version.
@@ -13,9 +13,12 @@
 ** 003 OM  20200906 New ORM implementation.
 ** 004 OM  20200919 Improved access to dmo metadata.
 **     OM  20200924 P2JIndexComponent carries multiple information to avoid map lookups for them.
-**     CA  20200924 Performance improvement for prepareTempTable - cache the buffer DMO and schema ASTs, and 
+**     CA  20200924 Performance improvement for prepareTempTable - cache the buffer DMO and schema ASTs, and
 **                  also re-use the schema dictionary scope.
 **     OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
+**     OM  20201208 Fixed model and schema AST caching for dynamic DMOs.
+**     OM  20210127 Replaced TableMapper.getLegacyName() triple map lookup with direct access to local
+**                  dmoMeta.legacyTable.
 */
 
 /*
@@ -263,7 +266,7 @@
    private static DataModelAst buildDataModelClass(Buffer buf, RecordBuffer rbuf, String p2oFile)
    throws PersistenceException
    {
-      String historical = normalizeName(TableMapper.getLegacyName(buf)).intern();
+      String historical = normalizeName(rbuf.dmoInfo.legacyTable).intern();
       String dmoName = rbuf.getDMOName().intern();
       
       DataModelAst root = createDataModelAst(DataModelTokenTypes.CLASS, dmoName, p2oFile);
@@ -527,7 +530,7 @@
                   (DataModelAst) child.getImmediateChild(DataModelTokenTypes.INDEX_COL, null);
             while (idxCol != null)
             {
-               String legacyField = (String) child.getAnnotation("historical");
+               String legacyField = (String) idxCol.getAnnotation("historical");
 
                ProgressAst idxField = createProgressAst(SchemaParserTokenTypes.INDEX_FIELD, legacyField);
                if (idxCol.isAnnotation(P2OLookup.ABBREVIATED))
@@ -868,7 +871,7 @@
       DataModelAst p2oRoot = buildRootDataModel(DatabaseManager.TEMP_TABLE_SCHEMA, p2oFile);
       p2oRoot.brainwash(p2oFile);
       ProgressAst schemaRoot = buildRootSchema(DatabaseManager.TEMP_TABLE_SCHEMA);
-
+      
       StringBuilder sb = new StringBuilder();
       long tableOrder = 0;
       for (Buffer buf : buffers)
@@ -876,17 +879,17 @@
          BufferImpl impl = (BufferImpl) buf;
          RecordBuffer rbuf = impl.buffer();
          rbuf.initialize();
-
+         
          String legacyBufName = impl.name().toStringMessage();
-         String legacyTableName = TableMapper.getLegacyName(buf);
-
+         String legacyTableName = rbuf.dmoInfo.legacyTable;
+         
          if (rbuf.isTemporary())
          {
             sb.append(rbuf.getDMOAlias())
               .append('-')
               .append(rbuf.getDMOImplementationClass().getName())
               .append(';');
-
+            
             // create the schema and p2o definition for this temp-table
             DataModelAst model = rbuf.getDataModelAst();
             if (model == null)
@@ -894,12 +897,22 @@
                model = buildDataModelClass(buf, rbuf, p2oFile);
                rbuf.setDataModelAst(model);
             }
+            else
+            {
+               model.setParent(null);
+               model.setNextSibling(null);
+            }
             ProgressAst table = rbuf.getSchemaTableAst();
             if (table == null)
             {
                table = buildTempTable(model, rbuf);
                rbuf.setSchemaTableAst(table);
             }
+            else
+            {
+               table.setParent(null);
+               table.setNextSibling(null);
+            }
 
             table.putAnnotation("lastOrder", tableOrder);
             tableOrder = tableOrder + 10;
@@ -965,9 +978,10 @@
       for (Buffer buf : buffers)
       {
          BufferImpl impl = (BufferImpl) buf;
-         String legacyTableName = normalizeName(TableMapper.getLegacyName(buf));
-
-         if (!impl.buffer().isTemporary())
+         RecordBuffer rbuf = impl.buffer();
+         String legacyTableName = normalizeName(rbuf.dmoInfo.legacyTable);
+         
+         if (!rbuf.isTemporary())
          {
             continue;
          }
@@ -981,15 +995,15 @@
          defChild.putAnnotation("schemaname", legacyTableName);
          defChild.putAnnotation("bufname", legacyTableName);
          defChild.putAnnotation("dbname", "");
-         if (impl.buffer().isDynamic())
+         if (rbuf.isDynamic())
          {
             String legacyBufName = impl.name().toStringMessage();
             if (legacyBufName.equalsIgnoreCase(legacyTableName))
             {
-               defChild.putAnnotation("force_dmo_alias", impl.buffer().getDMOAlias());
+               defChild.putAnnotation("force_dmo_alias", rbuf.getDMOAlias());
             }
             
-            if (DynamicTablesHelper.isDynamicTableBuffer(impl.buffer()))
+            if (DynamicTablesHelper.isDynamicTableBuffer(rbuf))
             {
                defChild.putAnnotation("is_dynamic_table", true);
             }

=== modified file 'src/com/goldencode/p2j/persist/DynamicQuery.java'
--- src/com/goldencode/p2j/persist/DynamicQuery.java	2020-09-06 23:15:41 +0000
+++ src/com/goldencode/p2j/persist/DynamicQuery.java	2020-11-20 18:40:59 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2005-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ------------------Description-------------------
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 ECF 20051215   @23741 Created initial version. Primary purpose at
 **                           this time is to centralize logic and data
 **                           related to scrollable cursor support.
@@ -54,6 +54,7 @@
 ** 022 OM  20190720          Added repositionByID() for internal usage.
 ** 023 SVL 20191218          Handled case when REPOSITION TO ROWID fails.
 ** 024 ECF 20200906          New ORM implementation.
+** 025 OM  20201120          Fixed error message.
 */
 
 /*
@@ -226,10 +227,11 @@
       integer oldCurrentRow = currentRow();
       boolean permitFetch = cursor.repositionByID(id1, joinIDs);
       afterReposition(permitFetch, oldCurrentRow);
-
+      
       if (!permitFetch)
       {
-         ErrorManager.recordOrThrowError(7331, "Cannot reposition query to recid/rowid(s) given");
+         ErrorManager.recordOrThrowError(7331, "", "");
+         // Cannot reposition query <name> to recid/rowid(s) given.
       }
    }
    

=== modified file 'src/com/goldencode/p2j/persist/DynamicTablesHelper.java'
--- src/com/goldencode/p2j/persist/DynamicTablesHelper.java	2020-10-03 16:02:03 +0000
+++ src/com/goldencode/p2j/persist/DynamicTablesHelper.java	2021-01-13 21:04:41 +0000
@@ -62,6 +62,7 @@
 **     OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
 **     OM  20201002 Use DmoMeta cached information instead of map lookups.
 **     CA  20201003 Use an identity HashSet where possible.
+**     OM  20201120 Added DECIMALS attribute support.
 */
 
 /*
@@ -471,6 +472,10 @@
             
             if (!tableExists(persistence, srcTableName))
             {
+               // TODO: if a buffer is dynamically created using CREATE BUFFER bh FOR TABLE "name", the
+               //       table's DMO might have not been processed yet, leading to a negative result here.
+               //       Try adding the table now
+               
                // special handling for metadata table
                if (srcTableName.startsWith("_"))
                {
@@ -593,8 +598,8 @@
       Class<? extends Record> dmoClass = null;
       DMOInfo dmoInfo = null;
       Map<String, Class<?>> classes;
-      Map<String, String> clsFields4GLtoHibernate;
-      Map<String, String> clsFieldsHibernateTo4GL;
+      Map<String, String> clsFields4GLtoORM;
+      Map<String, String> clsFieldsORMTo4GL;
       ArrayList<P2JIndex> fwdIndexes = null;
       
       try
@@ -602,8 +607,8 @@
          if (cacheData == null)
          {
             fwdIndexes = new ArrayList<>();
-            clsFields4GLtoHibernate = new HashMap<>();
-            clsFieldsHibernateTo4GL = new HashMap<>();
+            clsFields4GLtoORM = new HashMap<>();
+            clsFieldsORMTo4GL = new HashMap<>();
             
             long tableId = tableCounter.getAndIncrement();
             sqlTableName = "dtt" + tableId;
@@ -615,16 +620,16 @@
             {
                String fieldName4GL = field.getName();
                String fieldName4GLNorm = normalizeName(fieldName4GL);
-               String fieldNameHibernate = fieldName4GL.startsWith("__") ? fieldName4GL : "field" + (fieldId++);
-               clsFields4GLtoHibernate.put(fieldName4GLNorm, fieldNameHibernate);
-               clsFieldsHibernateTo4GL.put(fieldNameHibernate, fieldName4GL);
+               String fieldNameORM = fieldName4GL.startsWith("__") ? fieldName4GL : "field" + (fieldId++);
+               clsFields4GLtoORM.put(fieldName4GLNorm, fieldNameORM);
+               clsFieldsORMTo4GL.put(fieldNameORM, fieldName4GL);
             }
             
             Aast root = instance.generateSchemaAst(builder,
                                                    ifaceName,
                                                    sqlTableName,
                                                    legacyTableName,
-                                                   clsFields4GLtoHibernate);
+                                                   clsFields4GLtoORM);
             
             try
             {
@@ -641,8 +646,7 @@
                // generate interface Java ASTs
                results = ConversionPool.runTask(ConversionProfile.JAVA_DMO, root);
                Aast iface = (Aast) results.getStoredObject(DMO_IFACE_CATEGORY, ifaceName);
-               fullIfaceName = DMO_BASE_PACKAGE + "." + DatabaseManager.TEMP_TABLE_SCHEMA + "." +
-                               ifaceName;
+               fullIfaceName = DMO_BASE_PACKAGE + "." + DatabaseManager.TEMP_TABLE_SCHEMA + "." + ifaceName;
                fullIfaceBufName = fullIfaceName + "$Buf";
                
                // generate bytecode from Java ASTs
@@ -657,7 +661,7 @@
                   if (cacheData == null)
                   {
                      // TODO: use a separate class loader for each table, so the classes can be
-                     // garbage collected when no longer in use
+                     //       garbage collected when no longer in use
                      AsmClassLoader loader = systemInMemoryClassLoader;
                      List<String> keys;
                      classes = new HashMap<>();
@@ -682,9 +686,7 @@
                      fullImplClassName = dmoClass.getName();
                      classes.put(fullImplClassName, dmoClass);
                      
-                     dmoInfo = new DMOInfo(classes.values(),
-                                           clsFields4GLtoHibernate,
-                                           clsFieldsHibernateTo4GL);
+                     dmoInfo = new DMOInfo(classes.values(), clsFields4GLtoORM, clsFieldsORMTo4GL);
                      
                      CacheData cd = new CacheData(dmoInfo,
                                                   fullIfaceName,
@@ -715,8 +717,8 @@
             sqlTableName = cacheData.getSqlTableName();
             fwdIndexes = cacheData.getFwdIndices();
             classes = cacheData.getClasses();
-            clsFields4GLtoHibernate = dmoInfo.getLegacyToHibernateFields();
-            clsFieldsHibernateTo4GL = dmoInfo.getDmoToLegacyFields();
+            clsFields4GLtoORM = dmoInfo.getLegacyToHibernateFields();
+            clsFieldsORMTo4GL = dmoInfo.getDmoToLegacyFields();
             dmoIface = (Class<? extends DataModelObject>) classes.get(fullIfaceName);
             dmoBufIface = (Class<? extends TempTableBuffer>) classes.get(fullIfaceBufName);
             dmoMeta = DmoMetadataManager.getDmoInfo(dmoIface);
@@ -822,6 +824,10 @@
          {
             tableField.putAnnotation("case-sensitive", field.isCaseSensitive());
          }
+         if (field.getScale() > 0)
+         {
+            tableField.putAnnotation("decimals", (long) field.getScale());
+         }
          
          long extent = field.getExtent();
          if (extent > 1)
@@ -835,13 +841,14 @@
          BaseDataType initial = field.getInitial();
          if (initial != null && !((initial instanceof Text) && TextOps.lengthOf((Text) initial) == 0))
          {
-            ProgressAst initialNode = new ProgressAst(
-               new CommonToken(ProgressParserTokenTypes.KW_INIT, ""));
+            ProgressAst initialNode = new ProgressAst(new CommonToken(ProgressParserTokenTypes.KW_INIT, ""));
             tableField.addChild(initialNode);
             
             int valType;
             if (initial.isUnknown())
+            {
                valType = ProgressParserTokenTypes.UNKNOWN_VAL;
+            }
             else
             {
                switch (type)
@@ -863,9 +870,8 @@
                      break;
                   case DATE:
                      valType = ProgressParserTokenTypes.DATE_LITERAL;
-                     // TODO: what about builtins (today and now)? The above will not handle this
-                     // correctly -- we already have a date object at this point and the builtin
-                     // info is lost
+                     // TODO: what about builtins (today and now)? The above will not handle this correctly --
+                     //       we already have a date object at this point and the builtin info is lost
                      break;
                   case DT:
                      valType = ProgressParserTokenTypes.DATETIME_LITERAL;

=== added file 'src/com/goldencode/p2j/persist/FastCopyHelper.java'
--- src/com/goldencode/p2j/persist/FastCopyHelper.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/persist/FastCopyHelper.java	2020-12-16 19:32:42 +0000
@@ -0,0 +1,1596 @@
+/*
+** Module   : FastCopyHelper.java
+** Abstract : The core of fast-copy technique implementation
+**
+** Copyright (c) 2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
+** 001 AIL 20201201 First revision.
+** 002 AIL 20201203 Added append mode support.
+**         20201215 Temporarily avoided fast-copy for loose-copy-mode.
+**         20201216 Readded support for loose-copy-mode.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+**
+** Additional terms under GNU Affero GPL version 3 section 7:
+**
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+**
+**   0. Attribution Requirement.
+**
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+**
+**   1. No License To Use Trademarks.
+**
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+**
+**   2. No Misrepresentation of Affiliation.
+**
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+**
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+**
+**   3. No Misrepresentation of Source or Origin.
+**
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.persist;
+
+import java.util.*;
+
+import com.goldencode.p2j.persist.RecordBuffer.DatumAccess;
+import com.goldencode.p2j.persist.orm.*;
+import com.goldencode.p2j.util.*;
+
+/**
+ * This helper is used when we need to copy records from one temp-table to another in bulk mode.
+ * Using statements like "insert into select from" significantly improves the time performance. 
+ * However this technique can be used only when the source and destination tables are compatible.
+ * Also, this helper operates directly with the persistence layer (without using intermediate buffer 
+ * validations and such). This means that we need to ensure at SQL level that the records are copied
+ * correctly.
+ */
+public class FastCopyHelper
+{
+   /** Name of the multiplex ID field in temp table DMO classes */
+   private static final String MULTIPLEX_FIELD_NAME = TemporaryBuffer.MULTIPLEX_FIELD_NAME;
+   
+   /** Name of a generic use temporary table, used for intermediary operations for master tables */
+   private static final String MASTER__PK__MAPPING = "MASTER__PK__MAPPING";
+
+   /** Name of a generic use temporary table, used for intermediary operations for before tables */
+   private static final String BEFORE__PK__MAPPING = "BEFORE__PK__MAPPING";
+
+   /** Name of a generic use intermediate table, used for storing the indexes of an extent */
+   private static final String LIST__INDEX__TABLE = "LIST__INDEX__TABLE";
+   
+   /** Name of the field in a database-level pk mapping, which stores a destination pk */
+   private static final String DST__PK ="DST__PK";
+
+   /** Name of the field in a database-level pk mapping, which stores a source pk */
+   private static final String SRC__PK ="SRC__PK";
+   
+   /** Flag which indicates that this is a simpleCopy (no need for property mapping) */
+   private boolean simpleCopy;
+   
+   /** Flag set when a database level mapping exists for the master copy operation */
+   private boolean masterPkMapping;
+
+   /** Flag set when a database level mapping exists for the before table copy operation */
+   private boolean beforePkMapping;
+   
+   /** A buffer over the source master temp-table from which the records should be copied */
+   private TemporaryBuffer srcBuf;
+
+   /** A buffer over the destination master temp-table to which the records should be copied */
+   private TemporaryBuffer dstBuf;
+
+   /** A buffer over the source before temp-table from which the records should be copied */
+   private TemporaryBuffer srcB4Buf;
+
+   /** A buffer over the destination before temp-table to which the records should be copied */
+   private TemporaryBuffer dstB4Buf;
+   
+   /** A property mapping in case this is not a simple copy - dedicated for master tables */
+   private Map<DatumAccess, DatumAccess> propsMap;
+   
+   /** A property mapping in case this is not a simple copy - dedicated for before tables */
+   private Map<DatumAccess, DatumAccess> propsB4Map;
+   
+   /** The list of properties specific to the source master temp-table */
+   private List<Property> srcSimpleProps;
+
+   /** The list of properties specific to the destination master temp-table */
+   private List<Property> dstSimpleProps;
+
+   /** The list of properties specific to the source before temp-table */
+   private List<Property> srcB4SimpleProps;
+
+   /** The list of properties specific to the destination before temp-table */
+   private List<Property> dstB4SimpleProps;
+
+   /** 
+    * A collection of extent fields specific to the master tables. The key is the extent.
+    * The value is a list of two properties (the source property and destination property).
+    */
+   private Map<Integer, List<Property[]>> extentFields;
+   
+   /** 
+    * A collection of extent fields specific to the before tables. The key is the extent.
+    * The value is a list of two properties (the source property and destination property).
+    */
+   private Map<Integer, List<Property[]>> extentB4Fields;
+   
+   /** Information produced after copying the master tables */
+   private CopyMeta masterCopyMeta;
+
+   /** Information produced after copying the before tables */
+   private CopyMeta beforeCopyMeta;
+   
+   /** A cache for the sort clause used when copying master tables */
+   private String masterSort;
+
+   /** A cache for the sort clause used when copying before tables */
+   private String beforeSort;
+
+   /** A cache for the primary key mapping after the copying of master tables */
+   private Map<Long, Long[]> srcToDstPks;
+
+   /** A cache for the primary key mapping after the copying of before tables */
+   private Map<Long, Long[]> srcB4ToDstB4Pks;
+
+   
+   /**
+    * Basic constructor
+    * 
+    * @param    simpleCopy
+    *           Flag identifying if the source and destination tables have the same structure.
+    * @param    srcBuf
+    *           The source buffer.
+    * @param    dstBuf
+    *           The destination buffer.
+    * @param    propsMap
+    *           The property mapping.
+    * @param    srcB4Buf
+    *           The source before buffer.
+    * @param    dstB4Buf
+    *           The destination before buffer.
+    */
+   FastCopyHelper(boolean                       simpleCopy,
+                  TemporaryBuffer               srcBuf, 
+                  TemporaryBuffer               dstBuf, 
+                  Map<DatumAccess, DatumAccess> propsMap,
+                  Map<DatumAccess, DatumAccess> propsB4Map,
+                  TemporaryBuffer               srcB4Buf, 
+                  TemporaryBuffer               dstB4Buf) 
+   {
+      this.simpleCopy = simpleCopy;
+      this.srcBuf = srcBuf;
+      this.dstBuf = dstBuf;
+      this.propsMap = propsMap;
+      this.propsB4Map = propsB4Map;
+      this.srcB4Buf = srcB4Buf;
+      this.dstB4Buf = dstB4Buf;
+   }
+   
+   /**
+    * The main procedure involved when copying the records from a source to a destination.
+    * This processes the tables and executes a fast table copy SQL meant to insert into the destination
+    * a record selection from the source.
+    * The properties given as parameters are already ordered such that the insert SQL will automatically
+    * match the correct fields.
+    * 
+    * @param    srcBuf
+    *           The source buffer.
+    * @param    dstBuf
+    *           The destination buffer.
+    * @param    srcSimpleProps
+    *           A list of properties in the source table.
+    * @param    dstSimpleProps
+    *           A list of properties in the destination table.
+    * @param    sort
+    *           The sort clause which should be used when computing the insert SQL.
+    *           
+    * @return   Information regarding the copy process (for example the first primary key used by 
+    *           a record in the destination temp-table).
+    */
+   private static CopyMeta copyTable(TemporaryBuffer srcBuf,
+                                     TemporaryBuffer dstBuf,
+                                     List<Property> srcSimpleProps,
+                                     List<Property> dstSimpleProps,
+                                     String sort)
+   throws PersistenceException
+   {
+      Persistence persistence = srcBuf.getPersistence();
+      String sequenceName = dstBuf.getSequenceName();
+      DmoMeta srcMeta = srcBuf.getDmoInfo();
+      DmoMeta dstMeta = dstBuf.getDmoInfo();
+      
+      // compute the columns which should be involved in the insertion in the right order
+      StringBuilder columnListSrc = getSrcTempColumns(sequenceName, dstBuf.getMultiplexID());
+      StringBuilder columnListDst = getDstTempColumns();
+      
+      List<Object> args = new ArrayList<>();
+      for (int i = 0; i < srcSimpleProps.size(); i++)
+      {
+         appendColumnName(srcMeta, 
+                          dstMeta, 
+                          srcSimpleProps.get(i), 
+                          dstSimpleProps.get(i), 
+                          columnListSrc, 
+                          columnListDst,
+                          args);
+      }
+      args.add(srcBuf.getMultiplexID());
+      
+      // prepare the copy
+      Long firstDstPK = dstBuf.getCurrentPrimaryKey(dstBuf.getDMOInterface()) + 1;
+      restartSequence(persistence, sequenceName, firstDstPK);
+      String sqlInsert = getFastTableCopySql(srcBuf.getDmoInfo().getSqlTableName(), 
+                                             dstBuf.getDmoInfo().getSqlTableName(), 
+                                             columnListSrc.toString(), 
+                                             columnListDst.toString(), 
+                                             srcBuf.getImplicitSqlIndexName(srcBuf.getDMOInterface()), 
+                                             sort);
+
+      int recNum = persistence.executeSQL(sqlInsert, args.toArray());
+         
+      // update the DMO's primary key generator 
+      dstBuf.setCurrentPrimaryKey(dstBuf.getDMOInterface(), firstDstPK + recNum - 1);
+      
+      // allow post-copy pk mapping
+      return new CopyMeta(firstDstPK, true);
+   }
+   
+   /**
+    * A more complex way to copy a temp-table which ensures that the unique constraints won't
+    * be violated after copy. This only checks that the new records are not already in the 
+    * destination (according to any unique constraint). It does not check for duplicates in the
+    * source; this should be ruled out by the compatibility checker {@link #canFastCopy(boolean)}.
+    * This technique uses a pre-copy pk mapping, which means that at first we will have a 
+    * preselection of the records from the source. Afterwards, we apply a "shadow" copy, meaning
+    * that we won't check the constraints anymore; we just copy the preselected records from
+    * the source to the destination.
+    * This will create a pk mapping. This won't allow post-copy pk mappings as they won't be safe.
+    * 
+    * @param    srcBuf
+    *           The source buffer.
+    * @param    dstBuf
+    *           The destination buffer.
+    * @param    srcSimpleProps
+    *           A list of properties in the source table.
+    * @param    dstSimpleProps
+    *           A list of properties in the destination table.
+    * @param    sort
+    *           The sort clause which should be used when computing the insert SQL.
+    * @param    pkMappingTableName
+    *           The name of the intermediate table which will be used for pk mapping.
+    *           
+    * @return   Information about the copy process.
+    */
+   private static CopyMeta safeTableCopy(TemporaryBuffer srcBuf,
+                                         TemporaryBuffer dstBuf,
+                                         List<Property> srcSimpleProps,
+                                         List<Property> dstSimpleProps,
+                                         String sort,
+                                         String pkMappingTableName)
+   throws PersistenceException
+   {
+      Persistence persistence = srcBuf.getPersistence();
+      String sequenceName = dstBuf.getSequenceName();
+      DmoMeta srcMeta = srcBuf.getDmoInfo();
+      DmoMeta dstMeta = dstBuf.getDmoInfo();
+
+      Long firstDstPK = dstBuf.getCurrentPrimaryKey(dstBuf.getDMOInterface()) + 1;
+      restartSequence(persistence, sequenceName, firstDstPK);
+      
+      List<String> whereClauses = computeUniqueConstraintsClauses(srcBuf.getDmoInfo(), 
+                                                                  dstBuf.getDmoInfo(), 
+                                                                  srcSimpleProps, 
+                                                                  dstSimpleProps);
+      
+      String pkMappingSql = getPkMappingSql(sequenceName, 
+                                            srcBuf.getDmoInfo().getSqlTableName(),
+                                            srcBuf.getImplicitSqlIndexName(srcBuf.getDMOInterface()), 
+                                            whereClauses,
+                                            sort,
+                                            pkMappingTableName);
+
+      // the first multiplex parameter is the multiplex for the source
+      // the rest are part of the unique constraints and refer to the destination multiplex
+      Object[] multiplexArg = new Object[whereClauses.size() + 1];
+      multiplexArg[0] = srcBuf.getMultiplexID();
+      for (int i = 1; i <= whereClauses.size(); i++)
+      {
+         multiplexArg[i] = dstBuf.getMultiplexID();
+      }
+      persistence.executeSQL(pkMappingSql, multiplexArg);
+      
+      // we start preparing the shadow copy sql
+      StringBuilder columnListSrc = getSrcMappedColumns(pkMappingTableName, dstBuf.getMultiplexID());
+      StringBuilder columnListDst = getDstTempColumns();
+
+      
+      List<Object> args = new ArrayList<>();
+      for (int i = 0; i < srcSimpleProps.size(); i++)
+      {
+         appendColumnName(srcMeta, 
+                          dstMeta, 
+                          srcSimpleProps.get(i), 
+                          dstSimpleProps.get(i), 
+                          columnListSrc, 
+                          columnListDst,
+                          args);
+      }
+      
+      // we already have a pk mapping at database-level
+      // using that pk mapping, copy rows from source to destination, considering that
+      // the pk mapping is constraint safe (the unique constraints are already checked, 
+      // the order is correct and the _multiplex is the one desired)
+      
+      String shadowCoySQL = getShadowCopySql(srcBuf.getDmoInfo().getSqlTableName(), 
+                                             dstBuf.getDmoInfo().getSqlTableName(), 
+                                             columnListSrc.toString(), 
+                                             columnListDst.toString(), 
+                                             sort, 
+                                             pkMappingTableName);
+      
+      int recNum;
+      if (args.isEmpty())
+      {
+         recNum = persistence.executeSQL(shadowCoySQL, args.toArray());
+      }
+      else
+      {
+         recNum = persistence.executeSQL(shadowCoySQL);
+      }
+      
+      // update the DMO's primary key generator 
+      dstBuf.setCurrentPrimaryKey(dstBuf.getDMOInterface(), firstDstPK + recNum - 1);
+      
+      // don't allow post-copy pk mapping as they aren't safe (may not respect constraints)
+      // however, we already have a pre-copy pk mapping which can be used further
+      return new CopyMeta(firstDstPK, false);
+   }
+   
+   /**
+    * Identify a list of where clauses which rule out duplicate records when copying from a source
+    * to a destination. A duplicate record is one which will violate destination's unique constraints.
+    * There are multiple such clauses, one for each unique constraint. Each clause will check the 
+    * multiplex value and the properties which take part in the constraint.
+    * 
+    * @param    srcMeta
+    *           The source meta data.
+    * @param    dstMeta
+    *           The destination meta data.
+    * @param    srcSimpleProps
+    *           A list of properties in the source table.
+    * @param    dstSimpleProps
+    *           A list of properties in the destination table.
+    *           
+    * @return   A list of SQL where clauses which can preselect records from the source which 
+    *           won't violate the unique constraints from the destination.
+    */
+   private static List<String> computeUniqueConstraintsClauses(DmoMeta srcMeta, 
+                                                               DmoMeta dstMeta,
+                                                               List<Property> srcSimpleProps,
+                                                               List<Property> dstSimpleProps)
+   {
+      List<String> clauses = new ArrayList<>();
+      
+      String srcTableName = srcMeta.getSqlTableName();
+      String dstTableName = dstMeta.getSqlTableName();
+      
+      List<List<Property>> constraints = dstMeta.getUniqueConstraintsAsProps();
+      
+      for (List<Property> index : constraints)
+      {
+         if (index == null || index.isEmpty())
+         {
+            continue;
+         }
+         
+         StringBuilder sb = new StringBuilder("not exists (");
+         sb.append("select 0 from ").append(dstTableName).append(" where ");
+         sb.append(dstTableName).append(".").append(MULTIPLEX_FIELD_NAME).append(" = ?");
+         
+         for (Property prop : index)
+         {
+            String dstPropName = prop.column;
+            String srcPropName = getMappedPropName(dstPropName, srcSimpleProps, dstSimpleProps);
+            
+            sb.append(" and ");
+            sb.append(srcTableName).append(".").append(srcPropName).append(" = ");
+            sb.append(dstTableName).append(".").append(dstPropName);
+         }
+         
+         sb.append(")");
+         clauses.add(sb.toString());
+      }
+      
+      return clauses;
+   }
+   
+   /**
+    * Identify the name of the property in the destination which should match the provided property
+    * from the source. They should be on the same position in the list of properties. Note that
+    * the result may be the same as the input (in case of a simple copy; the DMO implementation of
+    * the source is the same for destination), but generally they can be different.
+    * 
+    * @param   propName
+    *          The property name for which we search a correspondent.
+    * @param   from
+    *          The list of properties for the DMO containing the provided property name.
+    * @param   to
+    *          The list of properties in which we search for a correspondent.
+    *          
+    * @return  The name of the correspondent property or null if not found.
+    */
+   private static String getMappedPropName(String propName, 
+                                           List<Property> from, 
+                                           List<Property> to)
+   {
+      for (int i=0; i<from.size(); i++)
+      {
+         if (from.get(i).column.equals(propName))
+         {
+            return to.get(i).column;
+         }
+      }
+      
+      return null;
+   }
+   
+   /**
+    * The procedure which handles the copy between extent tables (only when source and destination properties
+    * are both normalized). For this part to work fast (so use the "insert into select from" paradigm), we
+    * will need a primary key mapping. Unless one is already created, this method will create a database
+    * level pkMapping (which can be used further in other scenarios).
+    * 
+    * @param    srcBuf
+    *           The source buffer.
+    * @param    dstBuf
+    *           The destination buffer.
+    * @param    extentFields
+    *           The mapping between the source extent fields and destination extent fields. This mapping 
+    *           is done per extent value.
+    * @param    pkMappingTableName 
+    *           The name of the table which will be used as a database level primary key mapping.
+    */
+   private static void copyExtentFields(TemporaryBuffer srcBuf, 
+                                        TemporaryBuffer dstBuf,
+                                        Map<Integer, List<Property[]>> extentFields,
+                                        String pkMappingTableName)
+   throws PersistenceException
+   {
+      Persistence persistence = srcBuf.getPersistence();
+      DmoMeta srcMeta = srcBuf.getDmoInfo();
+      DmoMeta dstMeta = dstBuf.getDmoInfo();
+      String srcTable = srcMeta.getSqlTableName();
+      String dstTable = dstMeta.getSqlTableName();
+      
+      // insert records in all extent tables
+      for (Map.Entry<Integer, List<Property[]>> extent : extentFields.entrySet())
+      {         
+         // prepare the columns which will be part of the copy - in the right order
+         StringBuilder extColumnListSrc = new StringBuilder(DST__PK + ", " + 
+                                          ReservedProperty.LIST__INDEX.column);
+         StringBuilder extColumnListDst = new StringBuilder(ReservedProperty.PARENT__ID.column + ", " + 
+                                          ReservedProperty.LIST__INDEX.column);
+
+         // there is a possibility that there is no extent table for the source
+         // according to the property mapping, destination's extent field is unmapped
+         // but we still need to set it on a default value
+         // so make sure don't copy from an inexistent table (source extent table)
+         boolean srcExtTableExists = false;
+         List<Object> args = new ArrayList<>();
+         for (Property[] props : extent.getValue())
+         {
+            if (props[0] != null)
+            {
+               srcExtTableExists = true;
+            }
+            appendColumnName(srcMeta,
+                             dstMeta,
+                             props[0],
+                             props[1],
+                             extColumnListSrc,
+                             extColumnListDst,
+                             args);
+         }
+          
+         String insertSql;
+         if (srcExtTableExists)
+         {
+            // insert into the destination extent table all records from source 
+            // but with re-mapped id (based on pkMappingTableName)
+            insertSql = getExtentInsertSql(srcTable + "__" + extent.getKey(), 
+                                           dstTable + "__" + extent.getKey(), 
+                                           extColumnListSrc.toString(), 
+                                           extColumnListDst.toString(),
+                                           pkMappingTableName);
+         }
+         else
+         {
+            // insert into the destination extent table defaults
+            insertSql = getSimpleExtentInsertSql(extent.getKey(),
+                                                 dstTable + "__" + extent.getKey(), 
+                                                 extColumnListSrc.toString(),
+                                                 extColumnListDst.toString(),
+                                                 pkMappingTableName);
+         }
+         
+         if (args.isEmpty())
+         {
+            persistence.executeSQL(insertSql);
+         }
+         else
+         {
+            persistence.executeSQL(insertSql, args.toArray());
+         }
+      }
+   }
+   
+   /**
+    * This will create a database-level primary key mapping which can be used in other operations 
+    * (through join) in order to speed up the copy process. We know that the copied records (in the 
+    * destination table) are consecutive, so we can use a sequence to "regenerate" the destination
+    * primary keys.
+    * 
+    * @param    srcBuf
+    *           The source buffer.
+    * @param    dstBuf
+    *           The destination buffer.
+    * @param    copyMeta
+    *           Information generated by the master table copy (which was done before this step).
+    *           This is important in order to retrieve the first primary key used by a copied record.
+    * @param    sort
+    *           The sort clause used when the records were copied between main tables.
+    * @param    pkMappingTableName
+    *           The name which should be used by the table which will store the primary key mapping.
+    *           This does not check if the pkMappingTableName already exists.
+    */
+   private static void createPkMapping(TemporaryBuffer srcBuf, 
+                                       TemporaryBuffer dstBuf, 
+                                       CopyMeta copyMeta,
+                                       String sort,
+                                       String pkMappingTableName)
+   throws PersistenceException
+   {
+      Persistence persistence = srcBuf.getPersistence();
+      String sequenceName = dstBuf.getSequenceName();
+      Object[] multiplexArg = new Object[] { srcBuf.getMultiplexID() };
+      
+      restartSequence(persistence, sequenceName, copyMeta.firstDstPK);
+      
+      String createTempTable = getPkMappingSql(sequenceName, 
+                                               srcBuf.getDmoInfo().getSqlTableName(),
+                                               srcBuf.getImplicitSqlIndexName(srcBuf.getDMOInterface()), 
+                                               null,
+                                               sort,
+                                               pkMappingTableName);
+                     
+      persistence.executeSQL(createTempTable, multiplexArg);
+   }
+   
+   /**
+    * A generator method which provides a suitable SQL to insert all records from an extent table
+    * to another based on an in-database primary key mapping. This will work only if the pk mapping
+    * was already created.
+    * 
+    * @param    srcExtent
+    *           The name of the source extent temp-table.
+    * @param    dstExtent
+    *           The name of the destination extent temp-table.
+    * @param    extColumnListSrc
+    *           A string containing the columns from which the copy should be done.
+    * @param    extColumnListDst
+    *           A string containing the columns to which the copy should be done.
+    * @param    pkMappingTableName
+    *           The name of the table which stores the primary key mapping.
+    *           
+    * @return   The SQL which copies the records from one source extent table to a destination one.
+    */
+   private static String getExtentInsertSql(String srcExtent,
+                                            String dstExtent,
+                                            String extColumnListSrc, 
+                                            String extColumnListDst,
+                                            String pkMappingTableName)
+   {
+
+      return "insert into " + dstExtent + " (" + extColumnListDst + ") " +
+             "direct sorted select " + extColumnListSrc + " from " + srcExtent + " " +
+             "join " + pkMappingTableName + " on " + srcExtent + "." + ReservedProperty.PARENT__ID.column +
+              " = " + pkMappingTableName + "." + SRC__PK + " order by " + srcExtent + "." + 
+             ReservedProperty.PARENT__ID.column + ", " + ReservedProperty.LIST__INDEX.column;
+   }
+   
+   /**
+    * Special generator method which provides a suitable SQL to insert into a destination table 
+    * only default values. This is based on an in-databse primary key mapping in order to correctly 
+    * set the parent id. The list index will be locally generated and the values are set to default.
+    * This should be used when a source table exists, but an separate extent table for the source doesn't.
+    * 
+    * @param   extent
+    *          The size of the extent for which the insert sql should be generated.
+    * @param   dstExtent
+    *          The name of the destination extent table.
+    * @param   extColumnListSrc
+    *          A list of fields from which the copy should be done. This should be formed only by ?,
+    *          which will be set on the default values.
+    * @param   extColumnListDst
+    *          A list of the names of the extent field properties in the destination.
+    * @param   pkMappingTableName
+    *          The name of the in database pk mapping from which the parent-id will be extracted.
+    *          
+    * @return  The SQL which creates new default records in the destination table.
+    */
+   private static String getSimpleExtentInsertSql(int extent,
+                                                  String dstExtent,
+                                                  String extColumnListSrc, 
+                                                  String extColumnListDst,
+                                                  String pkMappingTableName)
+   {
+      StringBuilder source = new StringBuilder();
+      source.append("(VALUES (0)");
+      for (int i = 1; i < extent; i++)
+      {
+         source.append(", (").append(i).append(")");
+      }
+      source.append(") as ").append(LIST__INDEX__TABLE);
+      source.append("(").append(ReservedProperty.LIST__INDEX.column).append(")");
+      
+      return "insert into " + dstExtent + " (" + extColumnListDst + ")" +
+             " direct sorted select " + extColumnListSrc + " from " + source.toString() +
+             " join " + pkMappingTableName + 
+             " order by " + pkMappingTableName + "." + DST__PK + ", " + ReservedProperty.LIST__INDEX.column;
+   }
+   
+   /**
+    * A generator method which will create a database-level primary key mapping which can be used  
+    * (through join) in order to speed up the copy process. We know that the copied records (in the 
+    * destination table) are consecutive, so we can use a sequence to "regenerate" the destination
+    * primary keys.
+    *  
+    * @param   sequenceName
+    *          The name of the sequence which should be used in order to regenerate the destination pk
+    * @param   srcTable
+    *          The name of the source table.
+    * @param   sqlIndexName
+    *          The SQL name of the index used in the main table copy process
+    * @param   sort
+    *          The sort clause used in the main table copy process
+    * @param   pkMappingTableName
+    *          The name which should be used for the generated table
+    *          
+    * @return  The SQL which creates a database level primary key mapping
+    */
+   private static String getPkMappingSql(String sequenceName, 
+                                         String srcTable, 
+                                         String sqlIndexName, 
+                                         List<String> extraWhereClauses,
+                                         String sort, 
+                                         String pkMappingTableName)
+   {
+      String sql = "create local temporary table " + pkMappingTableName + " transactional " + 
+             "as select " +  sequenceName + ".nextval " + 
+             "as \"" + DST__PK + "\"," + Session.PK + " as \"" + SRC__PK + "\"," + TempRecord._PEER_ROWID +
+             " from " + srcTable + " " + 
+             "use index (" + sqlIndexName + ") " + 
+             "where " + MULTIPLEX_FIELD_NAME + " = ? ";
+      
+      if (extraWhereClauses != null)
+      {
+         for (String clause : extraWhereClauses)
+         {
+            sql += " and " + clause;
+         }
+      }
+      
+      return sql + " order by " + sort;
+   }
+   
+   /**
+    * A generator method which will copy the records from a source table into a destination table
+    * based on an already existing database-level pk mapping.
+    * 
+    * @param   srcTable
+    *          The name of the source table.
+    * @param   dstTable
+    *          the name of the destination table.
+    * @param   columnListSrc
+    *          A string containing the columns from which the copy should be done.
+    * @param   columnListDst
+    *          A string containing the columns to which the copy should be done.
+    * @param   sort
+    *          The sort clause
+    * @param   pkMappingTableName
+    *          The table which contains the pk mapping.
+    *          
+    * @return  The SQL which copies records from the source to the destination based on the provided
+    *          pk mapping.
+    */
+   private static String getShadowCopySql(String srcTable, 
+                                          String dstTable, 
+                                          String columnListSrc, 
+                                          String columnListDst,
+                                          String sort, 
+                                          String pkMappingTableName)
+   {
+      return "insert into " + dstTable + " (" + columnListDst + ") direct sorted " + 
+             "select " + columnListSrc + " from " + srcTable +
+             " join " + pkMappingTableName + " on " + srcTable + "." + Session.PK +
+             " = " + pkMappingTableName + "." + SRC__PK + " order by " + sort;
+            
+   }
+   
+   /**
+    * A generator method which will copy the records from a source table into a destination table.
+    * 
+    * @param   srcTable
+    *          The name of the source table.
+    * @param   dstTable
+    *          the name of the destination table.
+    * @param   columnListSrc
+    *          A string containing the columns from which the copy should be done.
+    * @param   columnListDst
+    *          A string containing the columns to which the copy should be done.
+    * @param   sqlIndexName
+    *          The name of the index which should be used when copying records.
+    * @param   sort
+    *          The sort clause
+    *          
+    * @return  The SQL which copies records from the source to the destination
+    */
+   private static String getFastTableCopySql(String srcTable, 
+                                             String dstTable,
+                                             String columnListSrc, 
+                                             String columnListDst,
+                                             String sqlIndexName,
+                                             String sort)
+   {
+      return "insert into " + dstTable + " ( " + columnListDst + ") direct sorted " + 
+             "select " + columnListSrc + " from " + srcTable + " use index (" + sqlIndexName + ") " + 
+             "where " + MULTIPLEX_FIELD_NAME + " = ? order by " + sort;
+   }
+   
+   /**
+    * This is used in order to restart a sequence with a specific value.
+    * 
+    * @param   persistence
+    *          The persistence instance which is responsible for the sequence.
+    * @param   sequenceName
+    *          The sequence which should be restarted.
+    * @param   start
+    *          The value with which the sequence should be restarted.
+    */
+   private static void restartSequence(Persistence persistence, String sequenceName, Long start) 
+   throws PersistenceException
+   {
+      persistence.executeSQL("alter sequence " + sequenceName + " restart with " + start);
+   }
+   
+   /**
+    * This builds the columns from which the records should be copied. Note that the first columns
+    * are given through parameters: this should stand for the pk and _multiplex. However, when we will
+    * insert into the destination, the pk should be generated by a sequence, while the _multiplex is
+    * fixed.
+    * 
+    * @param   sequenceName
+    *          The name of the sequence which will be used when generating destination pk.
+    * @param   multiplexId
+    *          The multiplex value which will be stored in the copied records.
+    *          
+    * @return  A string builder containing the columns which should be copied in the right order.
+    *          This is a string builder as it is expected that this column list will be completed
+    *          with other names.
+    */
+   private static StringBuilder getSrcTempColumns(String sequenceName, Integer multiplexId)
+   {
+      return new StringBuilder(sequenceName).append(".nextval,")
+                 .append(multiplexId).append(",")
+                 .append(ReservedProperty._ERRORFLAG.column).append(",")
+                 .append(ReservedProperty._ORIGINROWID.column).append(",")
+                 .append(ReservedProperty._ERRORSTRING.column).append(",")
+                 .append(ReservedProperty._PEERROWID.column).append(",")
+                 .append(ReservedProperty._ROWSTATE.column);
+   }
+   
+   /**
+    * A particular method which builds the columns from which the records should be copied in a context
+    * where an intermediate database-level pk mapping is used. For this case, the destination pk won't be
+    * generated by a sequence, but extracted from the provided pk mapping.
+    * 
+    * @param   pkMappingTableName
+    *          The database-level pk mapping which is used when doing the copy.
+    * @param   multiplexId
+    *          The multiplex value which will be stored in the copied records.
+    *          
+    * @return  A string builder containing the columns which should be copied in the right order.
+    *          This is a string builder as it is expected that this column list will be completed
+    *          with other names.
+    */
+   private static StringBuilder getSrcMappedColumns(String pkMappingTableName, Integer multiplexId)
+   {
+      return new StringBuilder(pkMappingTableName).append(".").append(DST__PK).append(",")
+                 .append(multiplexId).append(",")
+                 .append(ReservedProperty._ERRORFLAG.column).append(",")
+                 .append(ReservedProperty._ORIGINROWID.column).append(",")
+                 .append(ReservedProperty._ERRORSTRING.column).append(",")
+                 // we need to quantify _peerrowid, as this field is both in the
+                 // pkMappingTable and source. The quantifier doesn't matter,
+                 // they should be equal anyways
+                 .append(pkMappingTableName).append(".")
+                 .append(ReservedProperty._PEERROWID.column).append(",")
+                 .append(ReservedProperty._ROWSTATE.column);
+   }
+   
+   /**
+    * This builds the columns to which the records should be copied. Note that all columns are
+    * fixed.
+    *          
+    * @return  A string builder containing the target columns in the right order.
+    *          This is a string builder as it is expected that this column list will be completed
+    *          with other names.
+    */
+   private static StringBuilder getDstTempColumns()
+   {
+      return new StringBuilder(Session.PK).append(",")
+                 .append(MULTIPLEX_FIELD_NAME).append(",")
+                 .append(ReservedProperty._ERRORFLAG.column).append(",")
+                 .append(ReservedProperty._ORIGINROWID.column).append(",")
+                 .append(ReservedProperty._ERRORSTRING.column).append(",")
+                 .append(ReservedProperty._PEERROWID.column).append(",")
+                 .append(ReservedProperty._ROWSTATE.column);
+   }
+   
+   /**
+    * This extracts information from the source and destination tables. The most important 
+    * part is the ordering of the properties - which can be done through a specified
+    * property mapping. Also, this will identify the extent fields (and the mapping of them
+    * between the source and destination).
+    * 
+    * @param   simpleCopy
+    *          A flag indicating if this is a simple copy (the schema of the tables is matching)
+    * @param   propsMap
+    *          A mapping between the properties. If the simpleCopy flag is set, this parameter will
+    *          be ignored. Otherwise, it is mandatory to have a not-null property mapping.
+    * @param   srcMeta
+    *          Meta information regarding the source table.
+    * @param   dstMeta
+    *          Meta information regarding the destination table.
+    * @param   srcSimpleProps
+    *          The list of properties which will be found in the source (ordered in a compatible fashion
+    *          with the destination list of properties)
+    * @param   dstSimpleProps
+    *          The list of properties which will be found in the destination (ordered in a compatible fashion
+    *          with the source list of properties)
+    * @param   extentFields
+    *          A mapping done specifically for extent fields (grouped by extent value)
+    */
+   private static void processProperties(boolean simpleCopy,
+                                         Map<DatumAccess, DatumAccess> propsMap,
+                                         DmoMeta srcMeta,
+                                         DmoMeta dstMeta,
+                                         List<Property> srcSimpleProps,
+                                         List<Property> dstSimpleProps,
+                                         Map<Integer, List<Property[]>> extentFields)
+   {
+      if (!simpleCopy)
+      {
+         Set<String> addedDstProps = new HashSet<>();
+         for (Map.Entry<DatumAccess, DatumAccess> prop : propsMap.entrySet())
+         {
+            Property srcProp = srcMeta.getFieldInfo(prop.getKey().getPropertyName());
+            Property dstProp = dstMeta.getFieldInfo(prop.getValue().getPropertyName());
+            
+            addedDstProps.add(dstProp.column);
+            
+            if (srcProp.extent == 0)
+            {
+               srcSimpleProps.add(srcProp);
+               dstSimpleProps.add(dstProp);
+            }
+            else
+            {
+               List<Property[]> extents = 
+                     extentFields.computeIfAbsent(srcProp.extent, k -> new ArrayList<>());
+               extents.add(new Property[] { srcProp, dstProp });
+            }
+         }
+         
+         // we need to make sure we fill all the destination properties accordingly
+         // if they are not in the property mapping, we need to set them to a default value
+         Iterator<Property> iter = dstMeta.getFields(false);
+         while (iter.hasNext())
+         {
+            Property prop = iter.next();
+            if (addedDstProps.contains(prop.column) || getInitialValue(dstMeta, prop) == null)
+            {
+               // this destination property was already resolved or
+               // it allows a null default, so no need to enforce special default value
+               continue;
+            }
+            
+            if (prop.extent == 0)
+            {
+               // mark the lack of a source property with null - this will be replaced with 
+               // the default value when generating the SQLs
+               srcSimpleProps.add(null);
+               dstSimpleProps.add(prop);
+            }
+            else
+            {
+               List<Property[]> extents = 
+                     extentFields.computeIfAbsent(prop.extent, k -> new ArrayList<>());
+               extents.add(new Property[] { null, prop });
+            }
+         }
+      }
+      else
+      {
+         Iterator<Property> iter = dstMeta.getFields(false);
+         while (iter.hasNext())
+         {
+            Property prop = iter.next();
+            if (prop.extent == 0)
+            {
+               srcSimpleProps.add(prop);
+               dstSimpleProps.add(prop);
+            }
+            else
+            {
+               List<Property[]> extents = 
+                     extentFields.computeIfAbsent(prop.extent, k -> new ArrayList<>());
+               extents.add(new Property[] { prop, prop });
+            }
+         }
+      }
+   }
+   
+   /**
+    * A helper method which will append a source and destination property name to correct string builders: 
+    * comma separated and having support for datetime-tz data type. 
+    * Note that this should not be used for the first column (as it will have a leading comma).
+    * This also handles the cases when the source property is null, so a default value should be 
+    * added to the source fields. 
+    * 
+    * @param   srcMeta
+    *          The dmo meta of the source.
+    * @param   dstMeta
+    *          The dmo meta of the destination. Used to retrieve eventual initial values.
+    * @param   srcProp
+    *          The source property which should be appended to the list of source fields.
+    * @param   dstProp
+    *          The destination property which should be appended to the list of source fields.
+    * @param   srcSb
+    *          The string builder which shall hold the information about the source fields.
+    * @param   dstSb
+    *          The string builder which shall hold the information about the destination fields.
+    * @param   args
+    *          The list of parameters which will be used in the SQL. Here the default will be appended
+    *          if needed.
+    */
+   private static void appendColumnName(DmoMeta srcMeta, 
+                                        DmoMeta dstMeta,
+                                        Property srcProp,
+                                        Property dstProp, 
+                                        StringBuilder srcSb, 
+                                        StringBuilder dstSb,
+                                        List<Object> args)
+   {
+      if (srcProp == null)
+      {
+         // this should be a default value
+         args.add(getInitialValue(dstMeta, dstProp));
+         srcSb.append(",").append("?");
+         dstSb.append(",").append(dstProp.column);
+         //TODO: add default for the extra DTZ__OFFSET field
+      }
+      else
+      {
+         srcSb.append(",").append(srcProp.column);
+         dstSb.append(",").append(dstProp.column);
+         if (srcProp._isDatetimeTz)
+         {
+            srcSb.append(",").append(srcProp.column).append(DDLGeneratorWorker.DTZ_OFFSET);
+            dstSb.append(",").append(dstProp.column).append(DDLGeneratorWorker.DTZ_OFFSET);
+         }
+      }
+   }
+   
+   /**
+    * This will return the sort clause which should be used (in case am explicit index name is
+    * provided). If no index name is provided, the sort clause will be a simple combination between
+    * the multiplex and pk fields.
+    * 
+    * @param   buf
+    *          The buffer for which the index should be searched.
+    * @param   indexName
+    *          The index which should be taken in consideration when computing the sort clause.
+    *          This can be null, resulting in a default sort clause.
+    *          
+    * @return  A sort clause suitable for the provided buffer and index name.
+    */
+   private static String getSortClause(TemporaryBuffer buf, String indexName)
+   throws PersistenceException
+   {
+      StringBuilder sort = null;
+      if (indexName != null)
+      {
+         Iterator<P2JIndex> iter = buf.dmoInfo.getDatabaseIndexes();
+         while (iter.hasNext())
+         {
+            P2JIndex idx = iter.next();
+            if (idx.getName().equals(indexName))
+            {
+               sort = new StringBuilder(MULTIPLEX_FIELD_NAME);
+               Iterator<P2JIndexComponent> iterc = idx.components();
+               while (iterc.hasNext())
+               {
+                  P2JIndexComponent idxComp = iterc.next();
+                  String field = idxComp.getColumnName();
+                  if (idxComp.isCharType())
+                  {
+                     // temp-tables always have computed columns
+                     field = buf.getDialect().getComputedColumnPrefix(!idxComp.isIgnoreCase()) + field;
+                  }
+                  sort.append(",").append(field).append(buf.getDialect().orderByNulls(true));
+               }
+               if (!idx.isUnique())
+               {
+                  sort.append(",").append(Session.PK);
+               }
+               break;
+            }
+         }
+         
+         if (sort == null)
+         {
+            throw new PersistenceException("Could not find index for " + indexName);
+         }
+      }
+      
+      if (sort == null)
+      {
+         sort = new StringBuilder(MULTIPLEX_FIELD_NAME).append(",").append(Session.PK);
+      }
+      
+      return sort.toString();
+   }
+   
+   /**
+    * This will retrieve the database-level pk mapping into a local mapping. This should be used only
+    * when the database-level pk mapping can't be used in the desired scenario. 
+    * 
+    * @param   persistence
+    *          A persistence instance which should be usde in order to retrieve the database-level
+    *          pk mapping.
+    * @param   pkMappingTableName
+    *          The name of the table which stored the database-level pk mapping.
+    *          
+    * @return  A map between the source pk and a group formed by the destination pk and source peer id
+    */
+   private static Map<Long, Long[]> getMapping(Persistence persistence, String pkMappingTableName) 
+   throws PersistenceException
+   {
+      Map<Long, Long[]> srcToDstPks = new HashMap<>();
+      ScrollableResults<Long> masterPkMapping = 
+               persistence.executeSQLQuery("select * from " + MASTER__PK__MAPPING, null);
+      
+      while (masterPkMapping.next())
+      {
+         Long dstPk = masterPkMapping.get(0,  Long.class);
+         Long srcPk = masterPkMapping.get(1,  Long.class);
+         Long srcPeerId = masterPkMapping.get(2,  Long.class);
+         srcToDstPks.put(srcPk, new Long[] {dstPk, srcPeerId});
+      }
+      
+      return srcToDstPks;
+   }
+   
+   /**
+    * Retrieve the initial value of a certain property. The meta is used in order to retrieve
+    * the property metas which can be checked against the provided property and find the initial value.
+    * 
+    * @param   meta
+    *          The meta of the dmo for the provided property.
+    * @param   prop
+    *          The property for which the initial value should be retrieved.
+    *          
+    * @return  The initial value of the provided property.
+    */
+   private static Object getInitialValue(DmoMeta meta, Property prop)
+   {
+      RecordMeta recordMeta = meta.getRecordMeta();
+      PropertyMeta[] propMetas = recordMeta.getPropertyMeta(true);
+      for (PropertyMeta propMeta : propMetas)
+      {
+         if (propMeta.getId() == prop.id)
+         {
+            return propMeta.getInitialValue();
+         }
+      }
+      
+      return null;
+   }
+   
+   /**
+    * This should be used in order to detect if this helper can be used in order to execute a fast copy
+    * on the provided temp-tables.
+    * 
+    * @param   looseCopy
+    *          A flag indicating if the desired copy is in loose-copy-mode.
+    *          
+    * @return  {@code true} if this helper can be used for fast-copy.
+    */
+   boolean canFastCopy(boolean looseCopy)
+   {
+      DmoMeta srcMeta = srcBuf.getDmoInfo();
+      DmoMeta dstMeta = dstBuf.getDmoInfo();
+      
+      if (!DMOSignatureHelper.validTempTableBulkCopy(srcMeta.getSignature(),
+                                                     dstMeta.getSignature(),
+                                                     looseCopy))
+      {
+         return false;
+      }
+      
+
+      if (looseCopy)
+      {
+         // make sure that all unique constraints are satisfied by the copied fields
+         // in other words, avoid fast copy if we know that there are fields in the unique constraints
+         // which will be set on the default value
+         Set<Integer> destinationProps = new HashSet<>();
+         if (propsMap != null)
+         {
+            for (Map.Entry<DatumAccess, DatumAccess> entry : propsMap.entrySet())
+            {
+               destinationProps.add(entry.getValue().getPropertyMeta().getId());
+            }
+         }
+         
+         List<List<Property>> uniqueConstraints = dstMeta.getUniqueConstraintsAsProps();
+         for (List<Property> props : uniqueConstraints)
+         {
+            for (Property prop : props)
+            {
+               if (!destinationProps.contains(prop.id))
+               {
+                  return false;
+               }
+            }
+         }
+      }
+      
+      return true;
+   }
+   
+   /**
+    * Performance improved variant, when we know the destination table can have its
+    * records inserted via <code>INSERT INTO ... SELECT FROM</code>, without having to do any validation on
+    * the records, as the destination table will accept them all.
+    * 
+    * @param    srcRecId
+    *           A source record id for which a destination record id should be computed at the end.
+    *           If this is null, then null will be returned.
+    * @param    append
+    *           Flag which indicates if this copy is in append mode.
+    *           
+    * @return   The id of a record in the destination corresponding to the provided record through 
+    *           source record id.
+    */
+   rowid executeCopy(rowid srcRecId, boolean append)
+   throws PersistenceException
+   {
+      copyMasterTable(append);
+      
+      // copy the extent fields if normalized both in source and destination
+      // TODO: we presume that extents are always normalized in both structures, so we need to
+      // add support for the other combinations (denormalized source and destination/
+      // one normalized and the other denormalized)
+      if (extentFields != null && !extentFields.isEmpty())
+      {
+         copyExtentMasterFields();
+      }
+      
+      // if we have before records, copy them
+      if (srcB4Buf != null && dstB4Buf != null && !srcB4Buf.isTableDefinitelyEmpty())
+      {
+         copyBeforeTable(append);
+         if (extentB4Fields != null && !extentB4Fields.isEmpty())
+         {
+            copyExtentB4Fields();
+         }
+         
+         // we need to remap the copied records from the master table with the ones in the before table
+         updatePeerRecords();
+      }
+      
+      // if we need to provide the destination rowid of the srcRecId, query the mapping
+      rowid destRecId = null;
+      if (srcRecId != null)
+      {
+         Map<Long, Long[]> masterPkMapping = getMasterMapping();
+         destRecId = new rowid(masterPkMapping.get(srcRecId.getValue())[0]);
+      }
+      
+      // make sure that intermediate structures are dropped
+      clear();
+      
+      return destRecId;
+   }
+   
+   /**
+    * This method will update the peer values in the master and before tables. This is mandatory 
+    * as long as before tables exist. Otherwise, inconsistencies may appear.
+    */
+   private void updatePeerRecords()
+   throws PersistenceException
+   {
+      // TODO: check if we can't update peer records using the database level mapping
+      // in order to avoid additional mapping query and sequential update statements
+      Map<Long, Long[]> srcToDstPks = getMasterMapping();
+      Map<Long, Long[]> srcB4ToDstB4Pks = getBeforeMapping();
+      
+      String dstTableB4 = dstB4Buf.getDmoInfo().getSqlTableName();
+      
+      List<String> sqls = new ArrayList<>();
+      for (Map.Entry<Long, Long[]> entries : srcToDstPks.entrySet())
+      {
+         Long srcPk = entries.getKey();
+         Long[] pair = entries.getValue();
+         if (pair[1] == null)
+         {
+            continue;
+         }
+         
+         Long dstPk = pair[0];
+         Long srcPeerId = pair[1];
+         Long dstB4Pk = srcB4ToDstB4Pks.get(srcPeerId)[0];
+                  
+         sqls.add("update " + dstTableB4 + 
+                  " set " + TempRecord._PEER_ROWID + " = " + dstPk + 
+                  " where " + Session.PK + " = " + dstB4Pk);
+      }
+
+      String dstTable = dstBuf.getDmoInfo().getSqlTableName();
+      for (Map.Entry<Long, Long[]> entries : srcB4ToDstB4Pks.entrySet())
+      {
+         Long srcB4Pk = entries.getKey();
+         Long[] pair = entries.getValue();
+         if (pair[1] == null)
+         {
+            continue;
+         }
+
+         Long dstB4Pk = pair[0];
+         Long srcB4PeerId = pair[1];
+         Long dstPk = srcToDstPks.get(srcB4PeerId)[0];
+                  
+         sqls.add("update " + dstTable + 
+                  " set " + TempRecord._PEER_ROWID + " = " + dstB4Pk + 
+                  " where " + Session.PK + " = " + dstPk);
+      }
+
+      srcBuf.getPersistence().executeSQLBatch(sqls, true); 
+      
+   }
+   
+   /**
+    * This method will call for {@link #processProperties} with master table specific parameters.
+    */
+   private void processMasterProperties()
+   {
+      srcSimpleProps = new ArrayList<>();
+      dstSimpleProps = new ArrayList<>();
+      extentFields = new HashMap<>();
+      
+      DmoMeta srcMeta = srcBuf.getDmoInfo();
+      DmoMeta dstMeta = dstBuf.getDmoInfo();
+      
+      processProperties(simpleCopy, 
+                        propsMap, 
+                        srcMeta, 
+                        dstMeta, 
+                        srcSimpleProps, 
+                        dstSimpleProps, 
+                        extentFields);
+   }
+   
+   /**
+    * This method will call for {@link #processProperties} with before table specific parameters.
+    */
+   private void processBeforeProperties()
+   {
+      srcB4SimpleProps = new ArrayList<>();
+      dstB4SimpleProps = new ArrayList<>();
+      extentB4Fields = new HashMap<>();
+      
+      DmoMeta srcB4Meta = srcB4Buf.getDmoInfo();
+      DmoMeta dstB4Meta = dstB4Buf.getDmoInfo();
+      
+      processProperties(simpleCopy, 
+                        propsB4Map, 
+                        srcB4Meta, 
+                        dstB4Meta, 
+                        srcB4SimpleProps, 
+                        dstB4SimpleProps, 
+                        extentB4Fields);
+   }
+
+   /**
+    * This method will call for {@link #copyTable} with master table specific parameters. Also this
+    * will trigger {@link #processMasterProperties} which will analyze the master tables and compute
+    * a list of their properties (and extents) in a copy suitable order.
+    */
+   private void copyMasterTable(boolean append) 
+   throws PersistenceException
+   {
+      processMasterProperties();
+      if (append)
+      {
+         clearMaster();
+         masterCopyMeta = safeTableCopy(srcBuf, 
+                                        dstBuf, 
+                                        srcSimpleProps, 
+                                        dstSimpleProps, 
+                                        getMasterSortClause(),
+                                        MASTER__PK__MAPPING);
+         masterPkMapping = true;
+      }
+      else
+      {
+         masterCopyMeta = copyTable(srcBuf, 
+                                    dstBuf, 
+                                    srcSimpleProps, 
+                                    dstSimpleProps, 
+                                    getMasterSortClause());
+      }
+   }
+   /**
+    * This method will call for {@link #copyTable} with before table specific parameters. Also this
+    * will trigger {@link #processMasterProperties} which will analyze the before tables and compute
+    * a list of their properties (and extents) in a copy suitable order.
+    */
+   private void copyBeforeTable(boolean append) 
+   throws PersistenceException
+   {
+      processBeforeProperties();
+      if (append)
+      {
+         clearBefore();
+         beforeCopyMeta = safeTableCopy(srcB4Buf, 
+                                        dstB4Buf, 
+                                        srcB4SimpleProps, 
+                                        dstB4SimpleProps, 
+                                        getBeforeSortClause(),
+                                        BEFORE__PK__MAPPING);
+         beforePkMapping = true;
+      }
+      else
+      {
+         beforeCopyMeta = copyTable(srcB4Buf, 
+                                    dstB4Buf, 
+                                    srcB4SimpleProps, 
+                                    dstB4SimpleProps, 
+                                    getBeforeSortClause());
+      }
+   }
+   
+   /**
+    * This method will call for {@link #getSortClause} with master table specific parameters. This will
+    * also cache the master sort clause.
+    * 
+    * @return   The sort clause which should be used in the master table copy.
+    */
+   private String getMasterSortClause() 
+   throws PersistenceException
+   {
+      if (masterSort == null)
+      {
+         masterSort = getSortClause(srcBuf, srcBuf.getImplicitIndexName(srcBuf.getDMOInterface()));
+      }
+      
+      return masterSort;
+   }
+   
+   /**
+    * This method will call for {@link #getSortClause} with before table specific parameters. This will
+    * also cache the before sort clause.
+    * 
+    * @return   The sort clause which should be used in the before table copy.
+    */
+   private String getBeforeSortClause()
+   throws PersistenceException
+   {
+      if (beforeSort == null)
+      {
+         beforeSort = getSortClause(srcB4Buf, srcB4Buf.getImplicitIndexName(srcB4Buf.getDMOInterface()));
+      }
+      
+      return beforeSort;
+   }
+   
+   /**
+    * This method will call for {@link #copyExtentFields} with master table specific parameters. This will
+    * also try to create a database-level master primary key mapping if it doesn't already exist.
+    */
+   private void copyExtentMasterFields()
+   throws PersistenceException
+   {
+      createMasterPkMapping();
+      copyExtentFields(srcBuf, dstBuf, extentFields, MASTER__PK__MAPPING);
+   }
+   
+   /**
+    * This method will call for {@link #createPkMapping} with master table specific parameters. This will
+    * take care that a single master pk mapping will be online at once.
+    */
+   private void createMasterPkMapping()
+   throws PersistenceException
+   {
+      if (!masterPkMapping)
+      {
+         if (masterCopyMeta == null || !masterCopyMeta.postCopyPkMapping)
+         {
+            throw new IllegalStateException("Can't create pk mapping without a master table copy operation");
+         }
+         createPkMapping(srcBuf, dstBuf, masterCopyMeta, getMasterSortClause(), MASTER__PK__MAPPING);
+         masterPkMapping = true;
+      }
+   }
+   
+   /**
+    * This method will call for {@link #copyExtentFields} with before table specific parameters. This will
+    * also try to create a database-level before primary key mapping if it doesn't already exist.
+    */
+   private void copyExtentB4Fields()
+   throws PersistenceException
+   {
+      createBeforePkMapping();
+      copyExtentFields(srcB4Buf, dstB4Buf, extentB4Fields, BEFORE__PK__MAPPING);
+   }
+   
+   /**
+    * This method will call for {@link #createPkMapping} with before table specific parameters. This will
+    * take care that a single before pk mapping will be online at once.
+    */
+   private void createBeforePkMapping()
+   throws PersistenceException
+   {
+      if (!beforePkMapping)
+      {
+         if (beforeCopyMeta == null || !beforeCopyMeta.postCopyPkMapping)
+         {
+            throw new IllegalStateException("Can't create post-copy pk mapping for before table.");
+         }
+         createPkMapping(srcB4Buf, dstB4Buf, beforeCopyMeta, getBeforeSortClause(), BEFORE__PK__MAPPING);
+         beforePkMapping = true;
+      }
+   }
+   
+   /**
+    * This method will call for {@link #getMapping} with master table specific parameters. This will
+    * cache eventually the mapping. Also, this may trigger a database-level master pk mapping if it 
+    * doesn't already exist.
+    */
+   private Map<Long, Long[]> getMasterMapping() 
+   throws PersistenceException 
+   {
+      if (srcToDstPks == null)
+      {
+         createMasterPkMapping();
+         srcToDstPks = getMapping(srcBuf.getPersistence(), MASTER__PK__MAPPING);
+      }
+      return srcToDstPks;
+   }
+   
+   /**
+    * This method will call for {@link #getMapping} with before table specific parameters. This will
+    * cache eventually the mapping. Also, this may trigger a database-level before pk mapping if it 
+    * doesn't already exist.
+    */
+   private Map<Long, Long[]> getBeforeMapping() 
+   throws PersistenceException 
+   {
+      if (srcB4ToDstB4Pks == null)
+      {
+         createBeforePkMapping();
+         srcB4ToDstB4Pks = getMapping(srcB4Buf.getPersistence(), BEFORE__PK__MAPPING);
+      }
+      return srcB4ToDstB4Pks;
+   }
+   
+   /**
+    * This method is crucial as long as intermediate database-level primary key mappings were done.
+    * This will eventually drop any such table.
+    */
+   private void clear() 
+   throws PersistenceException
+   {
+      clearMaster();
+      clearBefore();
+   }
+   
+   /**
+    * Particular method which clears the intermediate database-level pk mapping for the master table copy.
+    * This will eventually drop any such table.
+    */
+   private void clearMaster() 
+   throws PersistenceException
+   {
+      if (masterPkMapping)
+      {
+         srcBuf.getPersistence().executeSQL("drop table " + MASTER__PK__MAPPING + " transactional");
+         masterPkMapping = false;
+      }
+   }
+   
+   /**
+    * Particular method which clears the intermediate database-level pk mapping for the before table copy.
+    * This will eventually drop any such table.
+    */
+   private void clearBefore() 
+   throws PersistenceException
+   {      
+      if (beforePkMapping)
+      {
+         srcB4Buf.getPersistence().executeSQL("drop table " + BEFORE__PK__MAPPING + " transactional");
+         beforePkMapping = false;
+      }
+   }
+   
+   /**
+    * Meta information generated after a table copy. This can be used by other subsequent copy operations.
+    */
+   static class CopyMeta
+   {
+      /** The first pk used by a copied record in the destination */
+      Long firstDstPK;
+      
+      /** Flag to indicate if this table copy allows further post-copy pk mappings*/
+      boolean postCopyPkMapping;
+      
+      /** Basic constructor */
+      CopyMeta(Long firstDstPK, boolean postCopyPkMapping)
+      {
+         this.firstDstPK = firstDstPK;
+         this.postCopyPkMapping = postCopyPkMapping;
+      }
+      
+   }
+}
+
+

=== modified file 'src/com/goldencode/p2j/persist/FastFindCache.java'
--- src/com/goldencode/p2j/persist/FastFindCache.java	2020-08-24 10:25:52 +0000
+++ src/com/goldencode/p2j/persist/FastFindCache.java	2020-12-01 20:19:23 +0000
@@ -7,6 +7,7 @@
 **
 ** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20200708 First revision.
+** 002 ECF 20201201 Minor optimization.
 */
 
 /*
@@ -256,6 +257,12 @@
     */
    public void invalidate(int dmoUid, Integer multiplex, BitSet unique, BitSet nonUnique)
    {
+      // quick out if nothing to do
+      if ((unique == null || unique.isEmpty()) && (nonUnique == null || nonUnique.isEmpty()))
+      {
+         return;
+      }
+      
       synchronize(() ->
       {
          Map<Integer, Cache<L2Key, RecordIdentifier<String>>> table = cache.get(combine(dmoUid, multiplex));

=== modified file 'src/com/goldencode/p2j/persist/FieldReference.java'
--- src/com/goldencode/p2j/persist/FieldReference.java	2020-10-09 09:56:27 +0000
+++ src/com/goldencode/p2j/persist/FieldReference.java	2020-10-14 21:06:19 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2004-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ----------------------------Description-----------------------------
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 ECF 20051112   @23388 Created initial version. Resolves a buffer
 **                           field reference value at runtime. Used as a
 **                           query substitution parameter for field
@@ -141,6 +141,7 @@
 ** 059 CA  20200924          Replaced Method.invoke with ReflectASM.
 **     SVL 20201009          Index can be represented by an expression. Scalar index is stored as Integer
 **                           rather as NumberType.
+**     OM  20201012          Force use locally cached meta information instead of map lookup.
 */
 
 /*
@@ -659,12 +660,10 @@
       this.index = null;
       this.indexExpr = null;
       
-      if (character.class.equals(getter.getReturnType()))
+      Property propMeta = DmoMetadataManager.getDmoInfo(dmoIface).getFieldInfo(property);
+      if (propMeta._isCharacter && !propMeta.caseSensitive)
       {
-         if (!DmoMetadataManager.isCaseSensitive(dmoIface, property))
-         {
-            this.uppercase = true;
-         }
+         this.uppercase = true;
       }
    }
    

=== modified file 'src/com/goldencode/p2j/persist/Fillable.java'
--- src/com/goldencode/p2j/persist/Fillable.java	2019-04-15 19:25:19 +0000
+++ src/com/goldencode/p2j/persist/Fillable.java	2020-10-31 00:42:17 +0000
@@ -1,11 +1,12 @@
 /*
 ** Module   : Fillable.java
-** Abstract : Declares the FILL public method.
-**
-** Copyright (c) 2019, Golden Code Development Corporation.
-**
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** Abstract : Declares the FILL public method and FILL-MODE attribute.
+**
+** Copyright (c) 2019-2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20190403 Created initial version.
+** 002 OM  20201030 Moved FILL-MODE attribute from buffer to make it available to datasets, too.
 */
 
 /*
@@ -66,18 +67,71 @@
 import com.goldencode.p2j.util.*;
 
 /**
- * Declares the {@code fill} method acessible from {@code DataSet} and {@code Buffer.}
+ * Declares the {@code fill()} method and {@code fillMode} attribute accessible from {@code DataSet} and
+ * {@code Buffer}.
  */
 public interface Fillable
 {
    /**
-    * Fills a {@code DataSet} object, recursively, based on its defined data sources, data
-    * relations, and queries. When invoked on one of its member {@code Buffer} objects a partial
-    * fill is performed, by starting at the respective level.
+    * FILL-MODE constant. FILLing will add new records on top of the ones already existing in the
+    * table. No record comparisons are executed, meaning that duplicate records may be obtained.
+    */
+   public static final String FM_APPEND = "APPEND";
+   
+   /** FILL-MODE constant. The FILL operations start with an empty table. */
+   public static final String FM_EMPTY = "EMPTY";
+   
+   /**
+    * FILL-MODE constant. Merge new records with existing ones. Records are not refreshed.
+    * This is the default.
+    */
+   public static final String FM_MERGE = "MERGE";
+   
+   /** FILL-MODE constant. Does not perform the FILL operation on the table. */
+   public static final String FM_NOFILL = "NO-FILL";
+   
+   /** FILL-MODE constant. Most time consuming mode. Refreshes the old records. */
+   public static final String FM_REPLACE = "REPLACE";
+   
+   /**
+    * Fills a {@code DataSet} object, recursively, based on its defined data sources, data relations, and
+    * queries. When invoked on one of its member {@code Buffer} objects a partial fill is performed, by
+    * starting at the respective level.
     * 
     * @return  {@code true} if operation is successful.
     */
    @LegacyMethod(name = "FILL")
    public logical fill();
+   
+   /**
+    * Obtain the mode in which the {@link DataSet#fill()} method fills a {@code DataSet} member buffer. The
+    * default mode is {@code MERGE}.
+    *
+    * @return  the fill mode for this buffer.
+    */
+   @LegacyAttribute(name = "FILL-MODE")
+   public character fillMode();
+   
+   /**
+    * Configures the mode in which the {@link DataSet#fill()} method fills a {@code DataSet} member buffer.
+    * The allowed modes are: {@code APPEND}, {@code EMPTY}, {@code MERGE}, {@code NO-FILL}, and
+    * {@code REPLACE}.
+    *
+    * @param   mode
+    *          the new fill mode for this buffer.
+    */
+   @LegacyAttribute(name = "FILL-MODE", setter = true)
+   public void fillMode(String mode);
+   
+   /**
+    * Configures the mode in which the {@link DataSet#fill()} method fills a {@code DataSet} member buffer.
+    * The allowed modes are: {@code APPEND}, {@code EMPTY}, {@code MERGE}, {@code NO-FILL}, and
+    * {@code REPLACE}.
+    *
+    * @param   mode
+    *          the new fill mode for this buffer.
+    */
+   @LegacyAttribute(name = "FILL-MODE", setter = true)
+   public void fillMode(Text mode);
 }
 

=== modified file 'src/com/goldencode/p2j/persist/FqlType.java'
--- src/com/goldencode/p2j/persist/FqlType.java	2020-09-06 23:15:41 +0000
+++ src/com/goldencode/p2j/persist/FqlType.java	2020-12-25 12:48:37 +0000
@@ -1,5 +1,5 @@
 /*
-** Module   : HQLTypes.java
+** Module   : FqlType.java
 ** Abstract : Enumeration of data types for various SQL constructs
 **
 ** Copyright (c) 2004-2020, Golden Code Development Corporation.
@@ -10,6 +10,7 @@
 ** 002 ECF 20080805  @39311  Added rowid support. Added LONG type.
 ** 003 SVL 20120331          Added DATETIME and DATETIMETZ types.
 ** 004 OM  20200402          Renamed class to FqlType and move to persist package.
+** 005 IAS 20201123          Added ARRAY type
 */
 
 /*
@@ -105,6 +106,9 @@
    
    /** Date/time with time zone data type */
    DATETIMETZ(Types.TIMESTAMP_WITH_TIMEZONE),
+ 
+   /** ARRAY type */
+   ARRAY(Types.ARRAY),
    
    /** Unknown data type */
    UNKNOWN(-1);

=== modified file 'src/com/goldencode/p2j/persist/HQLHelper.java'
--- src/com/goldencode/p2j/persist/HQLHelper.java	2020-09-06 23:15:41 +0000
+++ src/com/goldencode/p2j/persist/HQLHelper.java	2020-10-09 21:13:00 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2005-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- -----------------------------Description-----------------------------
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 ECF 20051007   @23251 Created initial version. Generates all HQL
 **                           submitted on behalf of random access queries.
 **                           Augments the base where clause of a query to
@@ -125,6 +125,7 @@
 ** 042 CA  20191211          The SortCriterion must know the database, to be able to use the 
 **                           correct UDF, in case of datetime-tz fields.
 ** 043 ECF 20200906          New ORM implementation.
+** 044 OM  20201007          Optimized SortCriterion by using DmoMeta data instead of map lookups.
 */
 
 /*
@@ -335,9 +336,8 @@
          indexedFields.add(criterion.getName());
       }
       
-      // If dirty database dialect differs from that of primary dialect, we
-      // must generate an alternative SortCriteria list and HQLPreprocessor
-      // (non-temp-tables only).
+      // if dirty database dialect differs from that of primary dialect, we must generate an alternative
+      // SortCriteria list and HQLPreprocessor (non-temp-tables only)
       Database primaryDB = buffer.getDatabase();
       Database dirtyDB = new Database(primaryDB, Database.Type.DIRTY);
       Dialect primaryDialect = DatabaseManager.getDialect(primaryDB);
@@ -357,13 +357,11 @@
       this.sortIndex = SortIndex.get(sort, buffer);
       boolean hasWhere = (where != null && where.length() > 0);
       
-      // Multiplex ID semantics are required in the where clause if we have
-      // either a multiplexed temp table, or we have a where clause in a temp
-      // table query.
+      // multiplex ID semantics are required in the where clause if we have either a multiplexed temp table,
+      // or we have a where clause in a temp table query
       this.multiplexed = (buffer.isMultiplexed() || hasWhere) && buffer.getMultiplexID() != null;
       
-      // The order by clause must be augmented with a multiplex ID for any
-      // temp table query.
+      // the order by clause must be augmented with a multiplex ID for any temp table query
       this.multiplexSort = (buffer.getMultiplexID() != null);
       
       if (buffer.isTemporary() || dirtyDialect == null || dirtyDialect.equals(primaryDialect))
@@ -373,10 +371,7 @@
       }
       else
       {
-         Class<? extends DataModelObject> dmoIface = buffer.getDMOInterface();
-         Class<? extends Record> dmoClass = buffer.getDMOImplementationClass();
-         this.altCriteria =
-            SortCriterion.parse(dirtyDialect, dirtyDB, sort, /*schema,*/ dmoAlias, dmoIface, dmoClass, true);
+         this.altCriteria = SortCriterion.parse(dirtyDialect, sort, dmoAlias, buffer.dmoInfo, true);
          this.altPreprocessor = HQLPreprocessor.get(where,
                                                     dirtyDB,
                                                     dirtyDialect,
@@ -980,34 +975,31 @@
    }
    
    /**
-    * Compose an HQL compliant order by clause from the sort components
-    * parsed from the base order by clause submitted at construction,
-    * optionally inverting the sort direction of each component.  The list of
-    * original components will have been augmented with the DMO's primary key,
-    * if this is necessary to disambiguate among non-unique records.
+    * Compose an HQL compliant order by clause from the sort components parsed from the base order by clause
+    * submitted at construction, optionally inverting the sort direction of each component.  The list of
+    * original components will have been augmented with the DMO's primary key, if this is necessary to
+    * disambiguate among non-unique records.
     *
     * @param   invert
-    *          <code>true</code> to invert sort direction (i.e., asc--&gt;desc,
-    *          desc--&gt;asc);  else <code>false</code>.
+    *          {@code true} to invert sort direction (i.e., {@code asc-->desc}, {@code desc-->asc});
+    *          else {@code false}.
     * @param   sortCrit
-    *          List of <code>SortCriterion</code> objects appropriate to the
-    *          database dialect.
+    *          List of {@code SortCriterion} objects appropriate to the database dialect.
     *
     * @return  An HQL compliant order by clause.
     */
-   private String buildSortClause(boolean invert,
-                                  List<SortCriterion> sortCrit)
+   private String buildSortClause(boolean invert, List<SortCriterion> sortCrit)
    {
       StringBuilder buf = new StringBuilder("order by ");
       
-      // Inject multiplex ID for temp table before primary key, so as to
-      // match the way these components are ordered in the table's index.
+      // inject multiplex ID for temp table before primary key, so as to match the way these components are
+      // ordered in the table's index.
       if (multiplexSort)
       {
          injectMultiplexSort(invert, buf);
          buf.append(", ");
       }
-
+      
       int i = 0;
       Iterator<SortCriterion> iter = sortCrit.iterator();
       for (; iter.hasNext(); i++)
@@ -1020,7 +1012,7 @@
          
          buf.append(next.toSortExpression(invert));
       }
-
+      
       return buf.toString();
    }
    

=== modified file 'src/com/goldencode/p2j/persist/HQLPreprocessor.java'
--- src/com/goldencode/p2j/persist/HQLPreprocessor.java	2020-10-01 17:13:26 +0000
+++ src/com/goldencode/p2j/persist/HQLPreprocessor.java	2020-11-20 18:40:59 +0000
@@ -6059,7 +6059,7 @@
       }
    }
    
-   /** A public container for storing a pair of properties. It is immutable, used for transfering data. */
+   /** A public container for storing a pair of properties. It is immutable, used for transferring data. */
    public static final class PropertyPair
    {
       /** Operator used for joining the properties. */

=== modified file 'src/com/goldencode/p2j/persist/IndexHelper.java'
--- src/com/goldencode/p2j/persist/IndexHelper.java	2020-09-23 23:47:02 +0000
+++ src/com/goldencode/p2j/persist/IndexHelper.java	2020-10-14 21:06:19 +0000
@@ -46,6 +46,8 @@
 ** 022 ECF 20200906          New ORM implementation.
 ** 023 OM  20200919          Improved access to dmo metadata.
 **     OM  20200924          P2JIndexComponent carries multiple information to avoid map lookups for them.
+**     OM  20201008          Detected direction of used index and stored for further access.
+**     OM  20201012          Force use locally cached meta information instead of map lookup.
 */
 
 /*
@@ -109,6 +111,7 @@
 import com.goldencode.p2j.persist.lock.*;
 import com.goldencode.p2j.persist.orm.*;
 import com.goldencode.p2j.util.*;
+import org.apache.commons.lang3.tuple.*;
 
 /**
  * Helper object to manage database index information.  One instance of this
@@ -139,14 +142,17 @@
    /** Logger */
    private static final Logger LOG = LogHelper.getLogger(IndexHelper.class);
    
+   /** Is FINE level logging allowed? */
+   private static final boolean LOG_FINE = LOG.isLoggable(Level.FINE);
+   
    /** Cache of instances, mapped by database */
    private static final Map<Database, IndexHelper> cache = new HashMap<>();
    
    /** Primary (non-dirty) database with which this helper is associated */
    private final Database database;
    
-   /** Map of sort clauses to index names */
-   private final Map<SortKey, String> indexBySort = new HashMap<>();
+   /** Map of sort clauses to pair of index names and their direction ({@code false} means reversed). */
+   private final Map<SortKey, Pair<String, Boolean>> indexBySort = new HashMap<>();
    
    /** Map of property names to lists of indexes containing them */
    private final Map<PropertyKey, List<String>> indexesByProperty = new HashMap<>();
@@ -161,8 +167,7 @@
    private final Map<String, P2JIndex> primaryIndexByEntity = new HashMap<>();
    
    /** Map of entity keys to maps of index names to index property names */
-   private final Map<EntityIndexKey, Map<String, List<String>>> indexMapsByEntity =
-      new HashMap<>();
+   private final Map<EntityIndexKey, Map<String, List<String>>> indexMapsByEntity = new HashMap<>();
    
    /** Map of entity keys to indexed properties */
    private final Map<EntityIndexKey, Set<String>> propsByEntity = new HashMap<>();
@@ -287,18 +292,21 @@
       String index = null;
       String entity = buffer.getEntityName();
       SortKey key = new SortKey(entity, sort);
+      Pair<String, Boolean> indexAndDir;
       
       synchronized (indexBySort)
       {
-         index = indexBySort.get(key);
-         if (index == null)
-         {
-            index = lookupIndexForSort(buffer, sort);
-         }
-         else if ("".equals(index))
-         {
-            index = null;
-         }
+         indexAndDir = indexBySort.get(key);
+         if (indexAndDir == null)
+         {
+            indexAndDir = lookupIndexForSort(buffer, sort);
+         }
+      }
+      
+      index = indexAndDir.getLeft();
+      if ("".equals(index))
+      {
+         index = null;
       }
       
       return index;
@@ -384,40 +392,61 @@
    }
    
    /**
-    * Retrieve a {@link DMOSorter} instance which is able to sort DMO
-    * instances according to the sort criteria specified by the given sort
-    * phrase.
+    * Retrieve a {@link DMOSorter} instance which is able to sort DMO instances according to the sort criteria
+    * specified by the given sort phrase.
     * 
     * @param   buffer
-    *          Record buffer which contains information about the DMO entity
-    *          associated with the sort phrase.
+    *          Record buffer which contains information about the DMO entity associated with the sort phrase.
     * @param   sort
-    *          A sort phrase which includes one or more DMO property
-    *          references, each qualified by a DMO alias and followed by a
-    *          keyword indicating sort direction.
+    *          A sort phrase which includes one or more DMO property references, each qualified by a DMO alias
+    *          and followed by a keyword indicating sort direction.
     * 
-    * @return  DMO sorter object which can sort DMOs according to the given
-    *          index.
+    * @return  DMO sorter object which can sort DMOs according to the given index.
     *
     * @throws  PersistenceException
-    *          if there is any error querying index metadata from the JDBC
-    *          driver of the associated database.
+    *          if there is any error querying index metadata from the JDBC driver of the associated database.
     */
    public DMOSorter getSorterForSortPhrase(RecordBuffer buffer, String sort)
    throws PersistenceException
    {
+      Pair<String, Boolean> indexAndDir;
       SortKey key = new SortKey(buffer.getEntityName(), sort);
       
       synchronized (indexBySort)
       {
-         String index = indexBySort.get(key);
-         if (index == null)
+         indexAndDir = indexBySort.get(key);
+         if (indexAndDir == null)
          {
-            // This will add an appropriate sorter to the sorters map, if possible.
+            // this will add an appropriate sorter to the sorters map, if possible
             lookupIndexForSort(buffer, sort);
          }
-         
-         return sorters.get(key);
+      }
+      
+      return sorters.get(key);
+   }
+   
+   /**
+    * Obtain the direction of the index used to sort the buffer by a specified sort phrase.
+    *
+    * @param   buffer
+    *          Record buffer which contains information about the DMO entity associated with the sort phrase.
+    * @param   sort
+    *          A sort phrase which includes one or more DMO property references, each qualified by a DMO alias
+    *          and followed by a keyword indicating sort direction.
+    *
+    * @return  {@code true} if the direction is the same as the index, {@code false} if the direction is
+    *          inversed (I.e. the result set is reversed compared to the index) and {@code null} if the sort
+    *          phrase does not benefit from any index, or the sort phrase was not processed yet for this
+    *          buffer.
+    */
+   public Boolean getIndexDirection(RecordBuffer buffer, String sort)
+   {
+      SortKey key = new SortKey(buffer.getEntityName(), sort);
+      
+      synchronized (indexBySort)
+      {
+         Pair<String, Boolean> indexAndDir = indexBySort.get(key);
+         return indexAndDir == null ? null : indexAndDir.getRight();
       }
    }
    
@@ -651,7 +680,7 @@
          list.trimToSize();
       }
       
-      if (LOG.isLoggable(Level.FINE))
+      if (LOG_FINE)
       {
          LOG.log(Level.FINE,
                  "Indexes " + (unique ? "[unique]" : "[all]") + " for entity '" + entity + "':  " + list);
@@ -734,7 +763,7 @@
          }
       }
       
-      if (LOG.isLoggable(Level.FINE))
+      if (LOG_FINE)
       {
          LOG.log(Level.FINE,
                  "Indexes " + (unique ? "[unique]" : "[non-unique]") +
@@ -796,7 +825,7 @@
          list.trimToSize();
       }
       
-      if (LOG.isLoggable(Level.FINE))
+      if (LOG_FINE)
       {
          LOG.log(Level.FINE, "Indexes for '" + entity + ":" + property + "':  " + list);
       }
@@ -824,10 +853,13 @@
     *          if there is any error querying index metadata from the JDBC driver of the
     *          associated database.
     */
-   private String lookupIndexForSort(RecordBuffer buffer, String sort)
+   private Pair<String, Boolean> lookupIndexForSort(RecordBuffer buffer, String sort)
    throws PersistenceException
    {
+      Pair<String, Boolean> ret = null;
       String indexName = null;
+      Boolean direction = null;
+      int badDirection = -1;
       SortKey key = new SortKey(buffer.getEntityName(), sort);
       Iterator<P2JIndex> iter = buffer.dmoInfo.getDatabaseIndexes();
       Class<? extends DataModelObject> dmoIface = buffer.dmoInfo.getAnnotatedInterface(); 
@@ -839,6 +871,9 @@
          while (iter.hasNext())
          {
             boolean match = true;
+            direction = null;
+            int i = 0;
+            badDirection = -1;
             P2JIndex index = iter.next();
             Iterator<P2JIndexComponent> comps = index.components(true);
             Iterator<SortCriterion> crits = scList.iterator();
@@ -868,20 +903,46 @@
                   match = false;
                   break;
                }
+               
+               i++;
+               boolean sameDir = next.isDescending() != crit.isAscending();
+               if (direction == null)
+               {
+                  // detect index direction (whether the order given by sort is the same as the index)
+                  direction = sameDir; 
+               }
+               else
+               {
+                  // just test whether the direction is kept and the index is a match (even if completely
+                  // reversed). If a discrepancy is detected a warning is issued, but the index is accepted
+                  // TODO: in the latter case there is probably a programming error. The index will not be
+                  //       matched server-side and the query will be slow!
+                  if (direction != sameDir && badDirection == -1)
+                  {
+                     badDirection = i;
+                  }
+               }
             }
             
             if (match)
             {
                indexName = index.getName().intern();
-               indexBySort.put(key, indexName);
+               ret = Pair.of(indexName, direction);
                sorters.put(key, new DMOSorter(buffer.getDatabase(), dmoIface, scList));
                
+               if (badDirection != -1 && LOG.isLoggable(Level.WARNING))
+               {
+                  LOG.log(Level.WARNING, 
+                          "The sort properties (" + sort + ") match the index components (" + index +
+                          ") but the direction of " + badDirection + " component is not consistent with " +
+                          "the first one.  The index will NOT be used!");
+               }
                break;
             }
          }
       }
       
-      if (LOG.isLoggable(Level.FINE))
+      if (LOG_FINE)
       {
          LOG.log(Level.FINE,
                  "Index for sort phrase '" + sort + "':  " +
@@ -890,10 +951,11 @@
       
       if (indexName == null)
       {
-         indexBySort.put(key, "");
+         ret = Pair.of("", true);
       }
       
-      return indexName;
+      indexBySort.put(key, ret);
+      return ret;
    }
    
    /**
@@ -919,9 +981,10 @@
    throws PersistenceException
    {
       Set<String> union = null;
-      Class<? extends Record> dmoClass = DBUtils.dmoClassForEntity(entity);
-      Iterator<P2JIndex> iter = DmoMetadataManager.getDmoInfo(dmoClass).getDatabaseIndexes();
-      Map<String, String> mappedCols = DatabaseManager.getColumnToPropertyMap(database, dmoClass, null, true);
+      DmoMeta dmoInfo = DmoMetadataManager.getDmoInfo(entity, null);
+      Iterator<P2JIndex> iter = dmoInfo.getDatabaseIndexes();
+      Map<String, String> mappedCols = DatabaseManager.getColumnToPropertyMap(
+            database, dmoInfo.getImplementationClass(), null, true);
       
       if (iter == null)
       {
@@ -979,7 +1042,7 @@
          }
       }
       
-      if (LOG.isLoggable(Level.FINE))
+      if (LOG_FINE)
       {
          LOG.log(Level.FINE,
                  "Indexed properties " + (unique ? "[unique]" : "[all]") +

=== modified file 'src/com/goldencode/p2j/persist/P2JIndex.java'
--- src/com/goldencode/p2j/persist/P2JIndex.java	2020-09-25 16:00:36 +0000
+++ src/com/goldencode/p2j/persist/P2JIndex.java	2021-01-25 07:55:58 +0000
@@ -23,6 +23,7 @@
 ** 012 ECF 20150201          Added components(boolean) method.
 ** 013 ECF 20200906          New ORM implementation.
 ** 014 OM  20200925          Separated namespaces for index components.
+** 015 IAS 20201224          Added word tables support
 */
 
 /*
@@ -143,6 +144,9 @@
    /** Does this index define a unique constraint for its table? */
    private boolean unique;
    
+   /** Word table name (for word index)*/
+   private String wordTableName;
+   
    /**
     * Convenience constructor.
     *
@@ -176,13 +180,44 @@
     *          <code>true</code> if this index is a word index, else
     *          <code>false</code>.
     */
-   public P2JIndex(String table, String name, boolean unique, boolean primary, boolean word)
+   public P2JIndex(String table, String name, boolean unique, 
+         boolean primary, boolean word)
+   {
+      this(table, name, unique, primary, word, null);
+   }
+
+   /**
+    * Convenience constructor.
+    *
+    * @param   table
+    *          Name of the table with which the index is associated.
+    * @param   name
+    *          Index name.
+    * @param   unique
+    *          <code>true</code> if this index defines a unique constraint
+    *          for its table, else <code>false</code>.
+    * @param   primary
+    *          <code>true</code> if this index is the primary index for its
+    *          table, else <code>false</code>.
+    * @param   word
+    *          <code>true</code> if this index is a word index, else
+    *          <code>false</code>.
+    * @param   wordTableName
+    *          Word table name (only used for word index).
+    */
+   public P2JIndex(String table,
+                   String name,
+                   boolean unique, 
+                   boolean primary,
+                   boolean word,
+                   String wordTableName)
    {
       this.table = table;
       this.name = name;
       this.unique = unique;
       this.primary = primary;
       this.word = word;
+      this.wordTableName = wordTableName; 
    }
    
    /**
@@ -861,6 +896,27 @@
    }
    
    /**
+    * Get word table names by dialect
+    * 
+    * @return  Word table name.
+    */
+   public String getWordTableName()
+   {
+      return wordTableName;
+   }
+
+   /**
+    * Set word table names
+    * 
+    * @param   wordTableNames
+    *          Word table names by dialect.
+    */
+   public void setWordTableName(String wordTableName)
+   {
+      this.wordTableName = wordTableName;
+   }
+
+   /**
     * Set the table with which this index is associated.
     *
     * @param   table

=== modified file 'src/com/goldencode/p2j/persist/P2JQuery.java'
--- src/com/goldencode/p2j/persist/P2JQuery.java	2020-09-18 09:44:42 +0000
+++ src/com/goldencode/p2j/persist/P2JQuery.java	2020-10-24 00:11:03 +0000
@@ -782,7 +782,7 @@
     *
     * @return  {@code true} on success.
     */
-   /*public*/ boolean repositionByID(Long... joinIDs);
+   public boolean repositionByID(Long... joinIDs);
    
    /**
     * Reposition the cursor to the specified row in the result set.  The row

=== modified file 'src/com/goldencode/p2j/persist/Persistence.java'
--- src/com/goldencode/p2j/persist/Persistence.java	2020-09-20 08:07:24 +0000
+++ src/com/goldencode/p2j/persist/Persistence.java	2021-01-29 19:50:19 +0000
@@ -555,6 +555,9 @@
 **     OM  20200919          Improved access to dmo metadata.
 **     ECF 20200919          Eliminate use of Session.refresh where no longer necessary.
 **     AIL 20200919          Initialize TemporaryDatabaseManager.
+**     ECF 20201026          Increase size of query LRU cache.
+**     OM  20201120          Avoid UniqueResultException reaching client UI.
+**     IAS 20201125          Do not re-use re-written queries
 */
 
 /*
@@ -616,6 +619,7 @@
 import java.sql.*;
 import java.util.*;
 import java.util.Date;
+import java.util.concurrent.*;
 import java.util.function.*;
 import java.util.logging.*;
 import com.goldencode.cache.*;
@@ -1379,6 +1383,9 @@
     * value may allow a JDBC driver to use a server-side cursor to fetch smaller batches of
     * results at a time.  Consult your JDBC driver documentation and/or source code to determine
     * whether this is an issue for your JDBC implementation.
+    *
+    * @param   <T>
+    *          Type of object being listed.
     * 
     * @param   entities
     *          Names of the DMO entities associated with this query statement.
@@ -1395,6 +1402,8 @@
     *          an offset of 0 is used by default.
     * @param   readOnlyQuery
     *          {@code true} to execute the query in read-only mode, else {@code false}.
+    * @param   noFlush
+    *          No longer used. Should be removed.
     *
     * @return  A list of results, or {@code null} if no result was found.
     *
@@ -2557,6 +2566,9 @@
     * 
     * @return  Merged DMO.
     * 
+    * @throws  PersistenceException 
+    *          in error
+    * 
     * @deprecated
     */
    public Record merge(Record dmo)
@@ -2906,7 +2918,7 @@
       // retrieve fully qualified name of LockManager implementation class and instantiate it
       String path = "database/" + database.getName() + "/p2j/lock_manager/class";
       String className = Utils.getDirectoryNodeString(null, path, DEFAULT_LOCK_MANAGER, false);
-      LockManager manager = (LockManager) Class.forName(className).newInstance();
+      LockManager<String> manager = (LockManager<String>) Class.forName(className).newInstance();
       manager.setDatabase(database);
       
       // register lock table updater with lock manager if the former exists
@@ -3609,14 +3621,9 @@
          }
       }
       
-      if (exc != null)
-      {
-         throw new PersistenceException(msg, errnum, exc);
-      }
-      else
-      {
-         throw new PersistenceException(msg, errnum);
-      }
+      // NOTE: do not add the UniqueResultException as cause for the new exception because it will leak 
+      //       into UI (see ErrorManager.compileErrorEntries())
+      throw new PersistenceException(msg, errnum);
    }
    
    /**
@@ -3956,7 +3963,7 @@
    class Context
    {
       /** Cache of FQL strings, with or without max results and start offsets, to queries. */
-      private final ExpiryCache<QueryKey, Query> staticQueryCache = new LRUCache<>(100);
+      private final ExpiryCache<QueryKey, Query> staticQueryCache = new LRUCache<>(1000);
       
       /** Context-local buffer manager */
       private final BufferManager bufferManager = BufferManager.get();
@@ -4094,12 +4101,19 @@
             query = staticQueryCache.get(key);
             if (query == null)
             {
-               query = Session.createQuery(fql);
-               // NOTE: the FQL string is not converted to SQL at this time. The conversion
-               //       is performed once, lazily, when the first navigation is required by a
-               //       call of list(), scroll(), or uniqueResult() on the new query
-               
-               staticQueryCache.put(key, query);
+               String s = fql;
+               query = Session.createQuery(q ->
+               {
+                  synchronized (staticQueryCache)
+                  {
+                     // NOTE: the FQL string is not converted to SQL at this time. The conversion
+                     //       is performed once, lazily, when the first navigation is required by a
+                     //       call of list(), scroll(), or uniqueResult() on the new query
+                     
+                     staticQueryCache.put(key, q);
+                  }
+               }, 
+               fql);
             }
             
             // update [maxResults] and [startOffset] because the cached query might have set 

=== modified file 'src/com/goldencode/p2j/persist/PreselectQuery.java'
--- src/com/goldencode/p2j/persist/PreselectQuery.java	2020-10-01 17:13:26 +0000
+++ src/com/goldencode/p2j/persist/PreselectQuery.java	2021-01-13 21:04:41 +0000
@@ -561,6 +561,9 @@
 **     AIL 20200910          Restrict resetting offSet flag only for browsed queries.
 **     ECF 20200919          Persistence.load API signature change.
 **     OM  20201001          Dropped redundant ORDER BY elements in multi-table queries.
+**     OM  20201007          Optimized SortCriterion by using DmoMeta data instead of map lookups.
+**                           _multiplex sort component matches the index direction.
+**     OM  20201120          Adjusted error messages.
 */
 
 /*
@@ -2980,7 +2983,8 @@
       
       if (!repositionByID(serIDs, false))
       {
-         ErrorManager.recordOrThrowError(7331, "Cannot reposition query to recid/rowid(s) given");
+         ErrorManager.recordOrThrowError(7331, "", "");
+         // "Cannot reposition query <name> to recid/rowid(s) given".
       }
    }
    
@@ -3018,9 +3022,8 @@
       
       if (!repositionByID(serIDs, false))
       {
-         ErrorManager.recordOrThrowError(
-            7331,
-            "Cannot reposition query to recid/rowid(s) given");
+         ErrorManager.recordOrThrowError(7331, "", "");
+         // "Cannot reposition query <name> to recid/rowid(s) given".
       }
    }
    
@@ -3518,7 +3521,7 @@
     */
    public int getTableCount()
    {
-      return components.size();
+      return components == null ? 0 : components.size();
    }
    
    /**
@@ -4829,7 +4832,7 @@
          if (buffer == null)
          {
             throw new PersistenceException(
-               "Order by clause references an unrecognized buffer:  " +alias + " (" + part + ")");
+               "Order by clause references an unrecognized buffer:  " + alias + " (" + part + ")");
          }
          
          // Find or create the sub-list in which to store SortCriterion
@@ -4841,14 +4844,8 @@
             subSortMap.put(buffer, subSortCrit);
          }
          
-         // Create the SortCriterion instance and add it to the master list
-         // and to the appropriate sub-list.
-         
-//         String schema = buffer.getSchema();
-         Class<? extends DataModelObject> dmoIface = buffer.getDMOInterface();
-         Class<? extends Record> dmoClass = buffer.getDMOImplementationClass();
-         
-         SortCriterion crit = new SortCriterion(buffer, part, /*schema,*/ dmoIface, dmoClass);
+         // create the SortCriterion instance and add it to the master list and to the appropriate sub-list
+         SortCriterion crit = new SortCriterion(buffer, part);
          
          sortCriteria.add(crit);
          subSortCrit.add(crit);
@@ -4904,13 +4901,16 @@
       
       if (multiplex)
       {
-         Class<? extends DataModelObject> dmoIface = buffer.getDMOInterface();
-         Class<? extends Record> dmoClass = buffer.getDMOImplementationClass();
-         String text = buffer.getDMOAlias() + "." + TemporaryBuffer.MULTIPLEX_FIELD_NAME + " asc";
+         // the _multiplex is injected so that the query to benefit from the matching index
+         
+         Boolean ascIndex = IndexHelper.get(buffer.getDatabase()).getIndexDirection(buffer, sort);
+         StringBuilder sb = new StringBuilder();
+         sb.append(buffer.getDMOAlias()).append(".").append(TemporaryBuffer.MULTIPLEX_FIELD_NAME);
+         sb.append(ascIndex == null || ascIndex ? " asc" : " desc");
          
          try
          {
-            workList.add(new SortCriterion(buffer, text, dmoIface, dmoClass));
+            workList.add(new SortCriterion(buffer, sb.toString()));
          }
          catch (PersistenceException exc)
          {

=== modified file 'src/com/goldencode/p2j/persist/PresortQuery.java'
--- src/com/goldencode/p2j/persist/PresortQuery.java	2020-10-01 17:13:26 +0000
+++ src/com/goldencode/p2j/persist/PresortQuery.java	2020-10-09 21:13:00 +0000
@@ -89,6 +89,7 @@
 ** 031 ECF 20181106          Added runtime support for {FIRST|LAST}-OF methods.
 ** 032 ECF 20200906          New ORM implementation.
 ** 033 OM  20201001          Dropped redundant ORDER BY elements in multi-table queries.
+**     OM  20201007          Optimized SortCriterion by using DmoMeta data instead of map lookups.
 */
 
 /*
@@ -1492,14 +1493,8 @@
       while (iter.hasNext())
       {
          RecordBuffer buffer = iter.next().getBuffer();
-         Class<? extends DataModelObject> dmoIface = buffer.getDMOInterface();
-         Class<? extends Record> dmoClass   = buffer.getDMOImplementationClass();
-         
          SortCriterion crit = new SortCriterion(
-               buffer,
-               buffer.getDMOAlias() + "." + DatabaseManager.PRIMARY_KEY + " asc",
-               dmoIface,
-               dmoClass);
+               buffer, buffer.getDMOAlias() + "." + DatabaseManager.PRIMARY_KEY + " asc");
          sortCriteria.add(crit);
       }
       

=== modified file 'src/com/goldencode/p2j/persist/PropertyDefinition.java'
--- src/com/goldencode/p2j/persist/PropertyDefinition.java	2020-09-24 17:41:02 +0000
+++ src/com/goldencode/p2j/persist/PropertyDefinition.java	2021-01-13 21:04:41 +0000
@@ -4,18 +4,20 @@
 **
 ** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20130618 Created initial version.
 ** 002 ECF 20140623 Removed Hibernate dependency. This update simplifies the use of the type
 **                  variable; this is a short-term workaround which breaks some result set
-**                  metadata functionality (not currently in use), but it needs further
-**                  analysis/work.
+**                  metadata functionality (not currently in use), but it needs further analysis/work.
 ** 003 ECF 20140626 Simplified type check.
 ** 004 SVL 20140709 Added legacyName field.
 ** 005 CA  20190812 Added toString().
 ** 006 IAS 20200908 Rework (de)serialization.
 ** 007 IAS 20200922 Get rid of possible NPE on serialization.
+**     SVL 20201030 Added format, label and columnLabel fields.
+**     OM  20201120 Added SCHEMA-MARSHAL implementation.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -71,13 +73,19 @@
 
 package com.goldencode.p2j.persist;
 
-import static com.goldencode.util.NativeTypeSerializer.*; 
 import java.io.*;
 import java.util.*;
+import static com.goldencode.p2j.persist.AbstractTempTable.*;
+import static com.goldencode.util.NativeTypeSerializer.*; 
 
 /**
  * Container for a DMO property's metadata: name, type and extent.  Used to send the metadata of a
  * DMO to a remote side, when remote appserver calls are involved.
+ * 
+ * TODO: add the other schema attributes of a property definition: help, initial, mandatory, validateMessage,
+ *       validationExpression, description, decimals (for decimal type), caseSensitive (for character type)
+ *       codePage, serializeName, xmlNodeName, xmlDataType, etc.
+ *       All these will be serialized only if {@code schemaMarshalLevel == SM_FULL}.
  */
 public class PropertyDefinition
 implements Externalizable
@@ -99,8 +107,23 @@
    
    /** The legacy name of this property. */
    private String legacyName;
-
-   static 
+   
+   /** The format of this property. */
+   private String format;
+   
+   /** The label of this property. */
+   private String label;
+   
+   /** The column label of this property. */
+   private String columnLabel;
+   
+   /**
+    * The SCHEMA-MARSHAL level for the parent  temp-table. It is never {@code SM_DEFAULT} when object is to
+    * be serialized. Always {@code SM_DEFAULT} for a read object.
+    */
+   private int schemaMarshalLevel = SM_DEFAULT;
+   
+   static
    {
        primitiveClasses.put("byte", byte.class);
        primitiveClasses.put("short", short.class);
@@ -134,8 +157,7 @@
    throws ClassNotFoundException
    {
       this.name = name;
-      Class<?> cls = primitiveClasses.containsKey(type) ? primitiveClasses.get(type) 
-                                                        : Class.forName(type);
+      Class<?> cls = primitiveClasses.containsKey(type) ? primitiveClasses.get(type) : Class.forName(type);
       verifyType(cls);
       this.type = cls;
       this.extent = NO_EXTENT;
@@ -152,7 +174,7 @@
     *           The extent of this property.
     *
     * @throws   ClassNotFoundException
-    *           If the given <code>type</code> can not be resolved to a valid class.
+    *           If the given {@code type} can not be resolved to a valid class.
     */
    public PropertyDefinition(String name, String type, int extent)
    throws ClassNotFoundException
@@ -186,11 +208,7 @@
     */
    public PropertyDefinition(String name, Class<?> type, String legacyName)
    {
-      this.name = name;
-      verifyType(type);
-      this.type = type;
-      this.extent = NO_EXTENT;
-      this.legacyName = legacyName;
+      this(name, type, legacyName, null, null, null);
    }
    
    /**
@@ -222,11 +240,80 @@
     */
    public PropertyDefinition(String name, Class<?> type, int extent, String legacyName)
    {
-      this(name, type);
+      this(name, type, extent, legacyName, null, null, null);
+   }
+
+   /**
+    * Create a new, no-extent, property definition.
+    *
+    * @param    name
+    *           The name of this property.
+    * @param    type
+    *           A class specifying the type of this property.
+    * @param    legacyName
+    *           The legacy name of this property.
+    * @param    format
+    *           The format of this property.
+    * @param    label
+    *           The label of this property.
+    * @param    columnLabel
+    *           The column label of this property.
+    */
+   public PropertyDefinition(String name,
+                             Class<?> type,
+                             String legacyName,
+                             String format,
+                             String label,
+                             String columnLabel)
+   {
+      this(name, type, NO_EXTENT, legacyName, format, label, columnLabel);
+   }
+
+   /**
+    * Create a new property definition.
+    *
+    * @param    name
+    *           The name of this property.
+    * @param    type
+    *           A class specifying the type of this property.
+    * @param    legacyName
+    *           The legacy name of this property.
+    * @param    format
+    *           The format of this property.
+    * @param    label
+    *           The label of this property.
+    * @param    columnLabel
+    *           The column label of this property.
+    */
+   public PropertyDefinition(String name,
+                             Class<?> type,
+                             int extent,
+                             String legacyName,
+                             String format,
+                             String label,
+                             String columnLabel)
+   {
+      this.name = name;
+      verifyType(type);
+      this.type = type;
       this.extent = extent;
       this.legacyName = legacyName;
-   }
-
+      this.format = format;
+      this.label = label;
+      this.columnLabel = columnLabel;
+   }
+   
+   /**
+    * The SCHEMA-MARSHAL level to be used when serialization of the property.
+    * 
+    * @param   schemaMarshalLevel
+    *          The configured SCHEMA-MARSHAL level. See static constants in {@link AbstractTempTable}.
+    */
+   public void setSchemaMarshalLevel(int schemaMarshalLevel)
+   {
+      this.schemaMarshalLevel = schemaMarshalLevel;
+   }
+   
    /**
     * Get the type of this property.
     * 
@@ -236,7 +323,7 @@
    {
       return type;
    }
-
+   
    /**
     * Get the extent of this property.
     * 
@@ -278,6 +365,36 @@
    }
 
    /**
+    * Get format of this property.
+    *
+    * @return format of this property.
+    */
+   public String getFormat()
+   {
+      return format;
+   }
+
+   /**
+    * Get label of this property.
+    *
+    * @return label of this property.
+    */
+   public String getLabel()
+   {
+      return label;
+   }
+
+   /**
+    * Get column label of this property.
+    *
+    * @return column label of this property.
+    */
+   public String getColumnLabel()
+   {
+      return columnLabel;
+   }
+
+   /**
     * Send the property definition to the specified output destination.
     * 
     * @param    out
@@ -289,12 +406,15 @@
    public final void writeExternal(ObjectOutput out)
    throws IOException
    {
-      writeString(out, name);
-      writeString(out, type == null ? null : type.getName());
-      out.writeInt(extent);
-      writeString(out, legacyName);
+      writeString(out, (schemaMarshalLevel == SM_NONE) ? null : name);
+      writeString(out, (type == null || schemaMarshalLevel == SM_NONE) ? null : type.getName());
+      out.writeInt((schemaMarshalLevel == SM_NONE) ? 0 : extent);
+      writeString(out, (schemaMarshalLevel == SM_NONE) ? null : legacyName);
+      writeString(out, (schemaMarshalLevel == SM_FULL) ? format : null);
+      writeString(out, (schemaMarshalLevel == SM_FULL) ? label : null);
+      writeString(out, (schemaMarshalLevel == SM_FULL) ? columnLabel : null);
    }
-
+   
    /**
     * Read the property definition from the specified input source.
     * 
@@ -303,7 +423,9 @@
     *
     * @throws   IOException
     *           In case of I/O errors.
-    * @throws ClassNotFoundException 
+    *
+    * @throws  ClassNotFoundException
+    *          If the class of property could not be found/loaded.
     */
    public final void readExternal(ObjectInput in)
    throws IOException,
@@ -311,17 +433,20 @@
    {
       name = readString(in);
       String tn = readString(in);
-      type = (Class<?>)(tn == null ? null :  Class.forName(tn));
+      type = (tn == null) ? null : Class.forName(tn);
       extent = in.readInt();
       legacyName = readString(in);
+      format = readString(in);
+      label = readString(in);
+      columnLabel = readString(in);
    }
    
    /**
     * Verify the given type is not null.
-    * 
+    *
     * @param    type
     *           The type to check.
-    *           
+    *
     * @throws   NullPointerException
     *           If <code>type</code> is null.
     */
@@ -341,12 +466,24 @@
    @Override
    public String toString()
    {
-      String s = name + "[legacy: " + legacyName + "]: " + type.getSimpleName();
+      StringBuilder sb = new StringBuilder();
+      sb.append(name).append("[legacy: ").append(legacyName).append("]: ").append(type.getSimpleName());
       if (extent != NO_EXTENT && extent != 0)
       {
-         s = s + "[" + extent + "]";
+         sb.append("[").append(extent).append("]");
       }
       
-      return s;
+      return sb.toString();
+   }
+   
+   /**
+    * Configures the SCHEMA-MARSHAL level used for serialization.
+    * 
+    * @param   schemaMarshalLevel
+    *          The new SCHEMA-MARSHAL level. See {@link AbstractTempTable} static constants for details.
+    */
+   public void setMarshalLevel(int schemaMarshalLevel)
+   {
+      this.schemaMarshalLevel = schemaMarshalLevel;
    }
 }

=== modified file 'src/com/goldencode/p2j/persist/QueryWrapper.java'
--- src/com/goldencode/p2j/persist/QueryWrapper.java	2020-09-18 09:44:42 +0000
+++ src/com/goldencode/p2j/persist/QueryWrapper.java	2021-01-21 22:49:45 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2005-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ----------------------------Description-----------------------------
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 ECF 20060430   @25885 Created initial version. Merged contents of
 **                           AbstractQueryWrapper, CompoundQueryWrapper,
 **                           PreselectQueryWrapper, and RandomAccessQuery-
@@ -239,6 +239,8 @@
 **     CA  20200918          INDEX-INFORMATION requires to interpret the 'execute' method for a dynamic query
 **                           without evaluating the dynamic calls in the WHERE.
 **                           Fixed multiple QUERY-OPEN() calls - must close the query before reopening.
+**     VVT 20210108          repositionByID() fixed to match 4gl behaviour: see #5038-39
+**     OM  20201120          Added OFF-END callback.
 */
 
 /*
@@ -365,11 +367,14 @@
    /** Default delegate to use before a real one is assigned */
    private static final P2JQuery DEFAULT_DELEGATE = new DefaultDelegate();
    
+   /** The {@code OFF-END} event string constant in upper case. */
+   private static final String OFF_END_EVENT = "OFF-END";
+   
    /** Delegate query */
    private P2JQuery delegate = null;
    
    /** Reposition listeners registered with the delegate query */
-   private WeakList<RepositionListener> repoListeners = new WeakList<>();
+   private final WeakList<RepositionListener> repoListeners = new WeakList<>();
    
    /** Should delegate be a scrolling query? */
    private boolean scrolling = false;
@@ -384,7 +389,7 @@
    private boolean browsed = false;
    
    /** Opened listeners registered to get the message about query has been opened. */
-   private List<QueryOpenedListener> openedListeners = new ArrayList<>();
+   private final List<QueryOpenedListener> openedListeners = new ArrayList<>();
    
    /** Flag indicating if the query is closing. */
    private boolean closing = false;
@@ -392,6 +397,9 @@
    /** Flag indicating if the query was explicitly closed or is not open. */
    private boolean closed = true;
    
+   /** Current off-end state. Used to detect when off-end state was encountered and fire OFF-END callback. */
+   private boolean offEnd = false;
+   
    /** Flag indicating if the query has been advanced (via GET NEXT) to the next record. */
    private boolean advanced = false;
    
@@ -437,10 +445,13 @@
     * dynamic query must appear exactly one time in FOR clause. 
     */
    private List<Buffer> substBuffers = null;
-
+   
    /** External handler for create/delete result list entry methods. */
    private ResultListHandler externalResultListHandler = null;
    
+   /** The only possible callback. {@code null} if not set.*/
+   private  CallbackData callback = null;
+   
    /**
     * Constructor which creates a static query and sets query scrolling mode for all delegate 
     * queries assigned to this wrapper.
@@ -702,6 +713,8 @@
       {
          registerCleaner();
       }
+      
+      offEnd = delegate._isOffEnd();
    }
    
    /**
@@ -1787,6 +1800,7 @@
       advanced = true;
       
       handleQueryOffEnd(() -> getDelegate().first());
+      maybeFireCallback();
    }
    
    /**
@@ -1810,6 +1824,7 @@
       
       advanced = true;
       handleQueryOffEnd(() -> getDelegate().first(lockType));
+      maybeFireCallback();
    }
    
    /**
@@ -1937,6 +1952,7 @@
       }
       
       handleQueryOffEnd(() -> getDelegate().last());
+      maybeFireCallback();
    }
    
    /**
@@ -1957,8 +1973,9 @@
       {
          return;
       }
-
+      
       handleQueryOffEnd(() -> getDelegate().last(lockType));
+      maybeFireCallback();
    }
    
    /**
@@ -2092,6 +2109,7 @@
       advanced = true;
       
       getDelegate().next();
+      maybeFireCallback();
    }
    
    /**
@@ -2120,6 +2138,7 @@
       advanced = true;
       
       getDelegate().next(lockType);
+      maybeFireCallback();
    }
    
    /**
@@ -2253,6 +2272,7 @@
       }
       
       getDelegate().previous();
+      maybeFireCallback();
    }
    
    /**
@@ -2279,6 +2299,7 @@
       }
       
       getDelegate().previous(lockType);
+      maybeFireCallback();
    }
    
    /**
@@ -2406,6 +2427,7 @@
       }
       
       getDelegate().current();
+      maybeFireCallback();
    }
    
    /**
@@ -2427,6 +2449,7 @@
       }
       
       getDelegate().current(lockType);
+      maybeFireCallback();
    }
    
    /**
@@ -2444,6 +2467,7 @@
    public void unique()
    {
       getDelegate().unique();
+      maybeFireCallback();
    }
    
    /**
@@ -2465,6 +2489,7 @@
    public void unique(LockType lockType)
    {
       getDelegate().unique(lockType);
+      maybeFireCallback();
    }
    
    /**
@@ -2851,6 +2876,7 @@
       }
       
       getDelegate().repositionByID(id);
+      maybeFireCallback();
    }
    
    /**
@@ -2868,6 +2894,9 @@
     *          right to coincide with the records being joined by the
     *          underlying query.
     *
+    *          If an array element is unknown, this element and all subsequent elements
+    *          are ignored.
+    *
     * @throws  ErrorConditionException
     *          if this query is not a scrolling query;
     *          if any of the specified IDs represents the unknown value.
@@ -2878,8 +2907,20 @@
       {
          return;
       }
-
+      
+      for(int i = 0; i < joinIDs.length; i++)
+      {
+         if(joinIDs[i].isUnknown())
+         {
+            rowid[] newIds = new rowid[i];
+            System.arraycopy(joinIDs, 0, newIds, 0, i);
+            joinIDs = newIds;
+            break;
+         }
+      }
+      
       getDelegate().repositionByID(id1, joinIDs);
+      maybeFireCallback();
    }
    
    /**
@@ -2901,7 +2942,9 @@
    @Override
    public boolean repositionByID(Long... joinIDs)
    {
-      return getDelegate().repositionByID(joinIDs);
+      boolean ret = getDelegate().repositionByID(joinIDs);
+      maybeFireCallback();
+      return ret;
    }
    
    /**
@@ -2924,8 +2967,9 @@
       {
          return;
       }
-
+      
       getDelegate().reposition(row);
+      maybeFireCallback();
    }
    
    /**
@@ -2952,6 +2996,7 @@
       */
       
       getDelegate().reposition(row);
+      maybeFireCallback();
    }
    
    /**
@@ -2980,7 +3025,9 @@
     */
    public boolean forward(NumberType rows)
    {
-      return getDelegate().forward(rows);
+      boolean ret = getDelegate().forward(rows);
+      maybeFireCallback();
+      return ret;
    }
    
    /**
@@ -3008,7 +3055,9 @@
     */
    public boolean forward(int rows)
    {
-      return getDelegate().forward(rows);
+      boolean ret = getDelegate().forward(rows);
+      maybeFireCallback();
+      return ret;
    }
    
    /**
@@ -3037,7 +3086,9 @@
     */
    public boolean backward(NumberType rows)
    {
-      return getDelegate().backward(rows);
+      boolean ret = getDelegate().backward(rows);
+      maybeFireCallback();
+      return ret;
    }
    
    /**
@@ -3065,7 +3116,9 @@
     */
    public boolean backward(int rows)
    {
-      return getDelegate().backward(rows);
+      boolean ret = getDelegate().backward(rows);
+      maybeFireCallback();
+      return ret;
    }
    
    /**
@@ -4354,12 +4407,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return getDelegate().getNext();
+      
+      logical ret = getDelegate().getNext();
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-NEXT method (KW_GET_NEXT).
     *
@@ -4379,12 +4434,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return getDelegate().getNext(lockType);
+      
+      logical ret = getDelegate().getNext(lockType);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-NEXT method (KW_GET_NEXT).
     *
@@ -4407,12 +4464,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return getDelegate().getNext(lock);
+      
+      logical ret = getDelegate().getNext(lock);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-NEXT method (KW_GET_NEXT).
     *
@@ -4435,12 +4494,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return getDelegate().getNext(lock);
+      
+      logical ret = getDelegate().getNext(lock);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-NEXT method (KW_GET_NEXT).
     *
@@ -4465,12 +4526,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return getDelegate().getNext(lock, nowait);
+      
+      logical ret = getDelegate().getNext(lock, nowait);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-NEXT method (KW_GET_NEXT).
     *
@@ -4495,12 +4558,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return getDelegate().getNext(lock, nowait);
+      
+      logical ret = getDelegate().getNext(lock, nowait);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-NEXT method (KW_GET_NEXT).
     *
@@ -4525,12 +4590,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return getDelegate().getNext(lock, nowait);
+      
+      logical ret = getDelegate().getNext(lock, nowait);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-NEXT method (KW_GET_NEXT).
     *
@@ -4555,12 +4622,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return getDelegate().getNext(lock, nowait);
+      
+      logical ret = getDelegate().getNext(lock, nowait);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-PREV method (KW_GET_PREV).
     *
@@ -4577,10 +4646,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getPrevious();
+      
+      logical ret = getDelegate().getPrevious();
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-PREV method (KW_GET_PREV).
     *
@@ -4603,10 +4674,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getPrevious(lock);
+      
+         logical ret = getDelegate().getPrevious(lock);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-PREV method (KW_GET_PREV).
     *
@@ -4629,10 +4702,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getPrevious(lockType);
+      
+      logical ret = getDelegate().getPrevious(lockType);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-PREV method (KW_GET_PREV).
     *
@@ -4655,10 +4730,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getPrevious(lock);
+      
+      logical ret = getDelegate().getPrevious(lock);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-PREV method (KW_GET_PREV).
     *
@@ -4683,10 +4760,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getPrevious(lock, nowait);
+      
+      logical ret = getDelegate().getPrevious(lock, nowait);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-PREV method (KW_GET_PREV).
     *
@@ -4711,10 +4790,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getPrevious(lock, nowait);
+      
+      logical ret = getDelegate().getPrevious(lock, nowait);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-PREV method (KW_GET_PREV).
     *
@@ -4739,10 +4820,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getPrevious(lock, nowait);
+      
+      logical ret = getDelegate().getPrevious(lock, nowait);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-PREV method (KW_GET_PREV).
     *
@@ -4767,10 +4850,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getPrevious(lock, nowait);
+      
+      logical ret = getDelegate().getPrevious(lock, nowait);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-FIRST method (KW_GET_1ST).
     *
@@ -4787,12 +4872,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return handleQueryOffEnd(() -> getDelegate().getFirst());
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getFirst());
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-FIRST method (KW_GET_1ST).
     *
@@ -4815,12 +4902,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return handleQueryOffEnd(() -> getDelegate().getFirst(lock));
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getFirst(lock));
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-FIRST method (KW_GET_1ST).
     *
@@ -4843,12 +4932,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return handleQueryOffEnd(() -> getDelegate().getFirst(lock));
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getFirst(lock));
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-FIRST method (KW_GET_1ST).
     *
@@ -4871,12 +4962,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return handleQueryOffEnd(() -> getDelegate().getFirst(lockType));
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getFirst(lockType));
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-FIRST method (KW_GET_1ST).
     *
@@ -4901,12 +4994,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return handleQueryOffEnd(() -> getDelegate().getFirst(lock, nowait));
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getFirst(lock, nowait));
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-FIRST method (KW_GET_1ST).
     *
@@ -4931,12 +5026,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return handleQueryOffEnd(() -> getDelegate().getFirst(lock, nowait));
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getFirst(lock, nowait));
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-FIRST method (KW_GET_1ST).
     *
@@ -4961,12 +5058,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return handleQueryOffEnd(() -> getDelegate().getFirst(lock, nowait));
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getFirst(lock, nowait));
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-FIRST method (KW_GET_1ST).
     *
@@ -4991,12 +5090,14 @@
       {
          return new logical(false);
       }
-
+      
       advanced = true;
-
-      return handleQueryOffEnd(() -> getDelegate().getFirst(lock, nowait));
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getFirst(lock, nowait));
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-LAST method (KW_GET_LAST).
     *
@@ -5013,10 +5114,12 @@
       {
          return new logical(false);
       }
-
-      return handleQueryOffEnd(() -> getDelegate().getLast());
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getLast());
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-LAST method (KW_GET_LAST).
     *
@@ -5039,10 +5142,12 @@
       {
          return new logical(false);
       }
-
-      return handleQueryOffEnd(() -> getDelegate().getLast(lock));
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getLast(lock));
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-LAST method (KW_GET_LAST).
     *
@@ -5065,10 +5170,12 @@
       {
          return new logical(false);
       }
-
-      return handleQueryOffEnd(() -> getDelegate().getLast(lock));
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getLast(lock));
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-LAST method (KW_GET_LAST).
     *
@@ -5091,10 +5198,12 @@
       {
          return new logical(false);
       }
-
-      return handleQueryOffEnd(() -> getDelegate().getLast(lockType));
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getLast(lockType));
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-LAST method (KW_GET_LAST).
     *
@@ -5119,10 +5228,12 @@
       {
          return new logical(false);
       }
-
-      return handleQueryOffEnd(() -> getDelegate().getLast(lock, nowait));
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getLast(lock, nowait));
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-LAST method (KW_GET_LAST).
     *
@@ -5147,10 +5258,12 @@
       {
          return new logical(false);
       }
-
-      return handleQueryOffEnd(() -> getDelegate().getLast(lock, nowait));
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getLast(lock, nowait));
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-LAST method (KW_GET_LAST).
     *
@@ -5175,10 +5288,12 @@
       {
          return new logical(false);
       }
-
-      return handleQueryOffEnd(() -> getDelegate().getLast(lock, nowait));
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getLast(lock, nowait));
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-LAST method (KW_GET_LAST).
     *
@@ -5203,10 +5318,12 @@
       {
          return new logical(false);
       }
-
-      return handleQueryOffEnd(() -> getDelegate().getLast(lock, nowait));
+      
+      logical ret = handleQueryOffEnd(() -> getDelegate().getLast(lock, nowait));
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-CURRENT() method (KW_GET_CUR).
     *
@@ -5220,10 +5337,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getCurrent();
+      
+      logical ret = getDelegate().getCurrent();
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-CURRENT() method (KW_GET_CUR).
     *
@@ -5240,10 +5359,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getCurrent(lock);
+      
+      logical ret = getDelegate().getCurrent(lock);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-CURRENT() method (KW_GET_CUR).
     *
@@ -5260,10 +5381,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getCurrent(lock);
+      
+      logical ret = getDelegate().getCurrent(lock);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-CURRENT() method (KW_GET_CUR).
     *
@@ -5279,10 +5402,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getCurrent(lockType);
+      
+      logical ret = getDelegate().getCurrent(lockType);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-CURRENT() method (KW_GET_CUR).
     *
@@ -5301,10 +5426,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getCurrent(lock, nowait);
+      
+      logical ret = getDelegate().getCurrent(lock, nowait);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-CURRENT() method (KW_GET_CUR).
     *
@@ -5323,10 +5450,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getCurrent(lock, nowait);
+      
+      logical ret = getDelegate().getCurrent(lock, nowait);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-CURRENT() method (KW_GET_CUR).
     *
@@ -5345,10 +5474,12 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getCurrent(lock, nowait);
+      
+      logical ret = getDelegate().getCurrent(lock, nowait);
+      maybeFireCallback();
+      return ret;
    }
-
+   
    /**
     * Conversion of GET-CURRENT() method (KW_GET_CUR).
     *
@@ -5367,8 +5498,10 @@
       {
          return new logical(false);
       }
-
-      return getDelegate().getCurrent(lock, nowait);
+      
+      logical ret = getDelegate().getCurrent(lock, nowait);
+      maybeFireCallback();
+      return ret;
    }
    
    /**
@@ -5523,6 +5656,208 @@
    }
    
    /**
+    * Associates an internal procedure with an ABL callback event.
+    *
+    * @param   eventName
+    *          The eventName of the event.
+    * @param   callback
+    *          The eventName of the internal procedure associated with the callback event.
+    * @param   context
+    *          A handle to a procedure that contains the internal procedure specified by {@code callback}. If
+    *          not specified, {@code THIS-PROCEDURE} is used as the procedure context.
+    *
+    * @return  {@code true} when the method ends with success.
+    */
+   @Override
+   public logical setCallbackProcedure(String eventName, String callback, handle context)
+   {
+      if (!isCallbackName(eventName))
+      {
+         return new logical(false);
+      }
+      
+      if (getDataSet() == null)
+      {
+         ErrorManager.recordOrShowError(11951);
+         // SET-CALLBACK-PROCEDURE is only valid for buffers that are members of a dataset.
+         return new logical(false);
+      }
+      
+      if (callback != null)
+      {
+         if (context == null || context.isUnknown())
+         {
+            // defaulting to THIS-PROCEDURE
+            context = ProcedureManager.thisProcedure();
+         }
+         else
+         {
+            if (!context._isValid() || !(context.getResource() instanceof PersistentProcedure))
+            {
+               ErrorManager.recordOrShowError(13273);
+               // Third argument to SET-CALLBACK must be a valid procedure handle or object reference.
+               return new logical(false);
+            }
+         }
+         
+         this.callback = new CallbackData(callback, context, null);
+      }
+      
+      return new logical(true);
+   }
+   
+   /**
+    * Configures a callback. Creates an association between a method within a class instance or an internal
+    * procedure within a persistent procedure, with an ABL callback event.
+    *
+    * @param   callbackName
+    *          The name of a callback.
+    * @param   routineName
+    *          The name of a method or an internal procedure to be associated.
+    * @param   context
+    *          The context in which the callback will be executed.
+    *
+    * @return  {@code true} if {@code callbackName} is a correct callback name. The rest of parameters are
+    *          ignored (note: manual states otherwise).
+    */
+   @Override
+   public logical setCallback(String callbackName, String routineName, object<?> context)
+   {
+      if (!isCallbackName(callbackName))
+      {
+         return new logical(false);
+      }
+      
+      if (getDataSet() == null)
+      {
+         ErrorManager.recordOrShowError(11951);
+         // SET-CALLBACK-PROCEDURE is only valid for buffers that are members of a dataset.
+         return new logical(false);
+      }
+      
+      if (routineName != null)
+      {
+         CallbackData cbd;
+         if (context == null || context.isUnknown())
+         {
+            // defaulting to THIS-OBJECT or to THIS-PROCEDURE, depending on the context
+            if (ObjectOps.thisObject().isUnknown())
+            {
+               cbd = new CallbackData(routineName, ProcedureManager.thisProcedure(), null);
+            }
+            else
+            {
+               cbd = new CallbackData(routineName, null, ObjectOps.thisObject());
+            }
+         }
+         else
+         {
+            cbd = new CallbackData(routineName, null, context);
+         }
+         
+         this.callback = cbd;
+      }
+      
+      return new logical(true);
+   }
+   
+   /**
+    * Applies a callback procedure, which allows execution of a defined event without duplicating the event
+    * procedure definition.
+    *
+    * @param   eventName
+    *          The event whose callback will be called.
+    *
+    * @return  {@code true} if operation is successful.
+    */
+   public logical applyCallback(String eventName)
+   {
+      DataSet ds = getDataSet();
+      if (ds == null)
+      {
+         ErrorManager.recordOrShowError(11949);
+         // APPLY-CALLBACK is only for buffers that are members of datasets.
+         return new logical(false);
+      }
+      
+      if (!isCallbackName(eventName))
+      {
+         return new logical(false);
+      }
+   
+      return new logical(invokeCallback(asHandle(), this.callback));
+   }
+   
+   /**
+    * Retrieves the name of the internal procedure associated with the ABL callback for the specified event.
+    *
+    * @param   eventName
+    *          The name of the event.
+    *
+    * @return  the name of the internal procedure associated with specified event.
+    */
+   @Override
+   public character getCallbackProcName(String eventName)
+   {
+      if (getDataSet() == null)
+      {
+         if (buffers != null && buffers.size() > 0)
+         {
+            ErrorManager.recordOrShowError(12788, getName(), ((BufferImpl) buffers.get(0)).doGetName());
+            // OFF-END CALLBACK not supported for query <name> whose buffer <name> is not in a dataset.
+            return new character();
+         }
+      }
+      
+      if (!isCallbackName(eventName))
+      {
+         return new character();
+      }
+      
+      if (this.callback == null)
+      {
+         return new character();
+      }
+   
+      return new character(this.callback.getTarget());
+   }
+   
+   /**
+    * Retrieves the handle of the procedure that contains the internal procedure associated with the ABL
+    * callback for the specified event
+    *
+    * @param   eventName
+    *          The name of the event.
+    *
+    * @return  a handle to the procedure that contains the callback procedure.
+    */
+   @Override
+   public handle getCallbackProcContext(String eventName)
+   {
+      if (getDataSet() == null)
+      {
+         if (buffers != null && buffers.size() > 0)
+         {
+            ErrorManager.recordOrShowError(12788, getName(), ((BufferImpl) buffers.get(0)).doGetName());
+            // OFF-END CALLBACK not supported for query <name> whose buffer <name> is not in a dataset.
+            return new handle();
+         }
+      }
+      
+      if (!isCallbackName(eventName))
+      {
+         return new handle();
+      }
+      
+      if (this.callback == null || this.callback.getProcedure() == null)
+      {
+         return new handle();
+      }
+   
+      return new handle(this.callback.getProcedure());
+   }
+   
+   /**
     * Specifies the fields included in a record retrieval.
     *
     * @param   dmo
@@ -5551,6 +5886,22 @@
    }
    
    /**
+    * Test whether the OFF-END event occurred and if so, fire the callback if one is defined.  
+    */
+   private void maybeFireCallback()
+   {
+      if (!offEnd && getDelegate()._isOffEnd())
+      {
+         offEnd = true;
+         
+         if (getDataSet() != null && callback != null)
+         {
+            invokeCallback(asHandle(), this.callback);
+         }
+      }
+   }
+   
+   /**
     * Add the buffers associated with the given query to this QUERY's buffer list.
     * <p>
     * Will be a no-op when this is a {@link #dynamic} query. 
@@ -6228,6 +6579,103 @@
    }
    
    /**
+    * Invokes a callback procedure or a callback method. The callback procedure/method must have an
+    * {@code INPUT} parameter of type {@code DATASET} or {@code DATASET-HANDLE}. The passed parameter is this
+    * {@code DataSet} object.
+    *
+    * @param   cbd
+    *          A {@code CallbackData} object holding the data necessary for invocation. May be {@code null},
+    *          in which case this method will silently return {@code yes} even though nothing is performed.
+    * @param   self
+    *          The object on which the event is applied (buffer or dataset).
+    *
+    * @return  {@code true} if no errors were encountered during execution. 
+    */
+   protected boolean invokeCallback(handle self, CallbackData cbd)
+   {
+      if (cbd == null)
+      {
+         return true; // yep, nothing to do here
+      }
+      
+      try
+      {
+         ErrorManager.setSilent(false);
+         
+         SelfManager.pushSelf(self);
+         
+         // reference already assumes input-output, do not emit append
+         DataSetParameter dsp = new DataSetParameter(getDataSet(), false, ParameterOption.BY_REFERENCE);
+         if (cbd.getObject() != null)
+         {
+            // TODO:
+            // Method '<methodname>' for callback must be valid public method. (13452)
+            
+            ObjectOps.invokeStandalone(cbd.getObject(), cbd.getTarget(), "I", dsp);
+         }
+         else if (cbd.getProcedure() != null && !cbd.getProcedure().isUnknown())
+         {
+            ControlFlowOps.invokeInWithMode(cbd.getTarget(), cbd.getProcedure(), "I", dsp);
+         }
+         
+         // NOTE: sometimes the method return *NO* even if the callback was successfully called
+         return true;
+      }
+      catch (Exception e)
+      {
+         e.printStackTrace();
+         return false;
+      }
+      finally
+      {
+         SelfManager.popSelf();
+         
+         // Do not restore silent-mode!
+      }
+   }
+   
+   /**
+    * Obtains the {@code Dataset} of the first buffer of this query, if this is defined.
+    * 
+    * @return  the {@code Dataset} of the first buffer of this query, if this is defined.
+    */
+   private DataSet getDataSet()
+   {
+      DataSet ds = null;
+      if (buffers != null && buffers.size() > 0)
+      {
+         BufferImpl buffer = (BufferImpl) buffers.get(0);
+         if (buffer.isAfterBuffer())
+         {
+            ds = buffer._dataSet();
+         }
+      }
+      return ds;
+   }
+   
+   /**
+    * Test whether a string is a valid CALLBACK name for a {@code DataSet Query}. This method is responsible
+    * for raising the 12352 error if the name specified is unknown or not {@code OFF-END} - the only supported
+    * event for dataset queries.
+    *
+    * @param   someName
+    *          The name to test.
+    *
+    * @return  {@code true} only if {@code someName} is equals to "OFF-END".
+    */
+   private static boolean isCallbackName(String someName)
+   {
+      if (!OFF_END_EVENT.equalsIgnoreCase(someName))
+      {
+         ErrorManager.recordOrShowError(12352, someName != null ? someName : "");
+         // Argument <name> to query callback method must be a valid query event name such as OFF-END
+         return false;
+      }
+      
+      return true;
+   }
+   
+   /**
     * A no-op implementation of <code>P2JQuery</code> which is used as the
     * default delegate for the enclosing <code>QueryWrapper</code>.  This
     * implementation behaves as a query which returns no results would,

=== modified file 'src/com/goldencode/p2j/persist/RandomAccessQuery.java'
--- src/com/goldencode/p2j/persist/RandomAccessQuery.java	2020-09-24 17:51:18 +0000
+++ src/com/goldencode/p2j/persist/RandomAccessQuery.java	2021-01-13 21:04:41 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2004-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- --------------------------Description-------------------------------
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 ECF 20051007   @23259 Created initial version. Backing query for
 **                           converted queries which require a dynamic
 **                           record retrieval semantic.
@@ -328,6 +328,7 @@
 ** 114 OM  20200915          Handled query navigation on fatal error cases.
 **     ECF 20200919          Persistence.load API signature change.
 **     CA  20200924          Replaced Method.invoke with ReflectASM.
+**     OM  20201120          Added javadoc note about a possible incorrect logged error.
 */
 
 /*
@@ -1254,8 +1255,7 @@
       
       if (buffer.isReadonly())
       {
-         // TODO: readonly buffers cannot be used in any FIND statement
-         //       but can be used in CAN-FIND functions
+         // TODO: readonly buffers cannot be used in a FIND statement but can be used in CAN-FIND functions
       }
       
       buffer.initialize();
@@ -1300,7 +1300,9 @@
          
          if (indexName == null && LOG.isLoggable(Level.SEVERE))
          {
-            LOG.log(Level.SEVERE, String.format(ERROR_LOCATE_SORT_INDEX, sort));
+            // NOTE: sometimes this is not a real warning: at least in findByRowid(), when a sort order is
+            //       intentionally manufactured just to get [this] initialized, but index is not really used
+             LOG.log(Level.SEVERE, String.format(ERROR_LOCATE_SORT_INDEX, sort));
          }
       }
       
@@ -3380,7 +3382,7 @@
          //  - the query has an embedded CAN-FIND
          //  - the query has a client-side where expression
          if (ffCache != null &&
-             (activeBundleKey == FIRST ||activeBundleKey == LAST || activeBundleKey == UNIQUE) &&
+             (activeBundleKey == FIRST || activeBundleKey == LAST || activeBundleKey == UNIQUE) &&
              join == null && getExternalBuffers() == null)
          {
             key = FastFindCache.createKey(buffer, index, where, activeBundleKey, values);

=== modified file 'src/com/goldencode/p2j/persist/Record.java'
--- src/com/goldencode/p2j/persist/Record.java	2020-09-18 11:12:02 +0000
+++ src/com/goldencode/p2j/persist/Record.java	2021-01-13 21:04:41 +0000
@@ -4,11 +4,12 @@
 **
 ** Copyright (c) 2019-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20191001 Created initial version with basic data and accessors.
 **     OM  20200110 Added support various data types and setter/getter signatures.
 ** 002 AIL 20200826 Handle getters should use a string to handle conversion without zero default
 **                  for invalid resources.
+** 003 OM  20201213 Added utility method used for debugging.
 */
 
 /*
@@ -1810,7 +1811,6 @@
     */
    protected void updateObjectRefCount(object<?> oldVal, object<?> newVal)
    {
-      
    }
    
    /**
@@ -1824,39 +1824,68 @@
       return _recordMeta();
    }
    
-   //@Override
-   public String toString2()
+   /**
+    * Utility method used for debugging.
+    * 
+    * @param   oneLine
+    *          Simplify the result to make it fit on a single line. Some details are skipped and column names.
+    * 
+    * @return  the description of the object as configured by parameter(s).
+    */
+   public String toString2(boolean oneLine)
    {
       StringBuilder sb = new StringBuilder();
-      sb.append("Record(").append(_recordMeta().legacyName).append(":").append(id).append("){\n");
-      PropertyMeta[] pms = _recordMeta().getPropertyMeta(false);
-      for (int i = 0; i < pms.length; i++)
+      
+      RecordMeta meta = _recordMeta();
+      if (oneLine)
       {
-         if (i != 0)
-         {
-            sb.append(",\n");
-         }
-         sb.append('\t').append(pms[i].getLegacyName()).append(": ");
-         
-         int extent = pms[i].getExtent();
-         if (extent == 0)
-         {
+         int last = data.length;
+         int start = (this instanceof TempTableRecord) ? 5 : 0;
+         sb.append(meta.legacyName).append('/').append(meta.tables[0]).append(':').append(id).append(" {");
+         for (int i = start; i < last; i++)
+         {
+            if (i > 0)
+            {
+               sb.append(", ");
+            }
+            
             sb.append(data[i]);
          }
-         else
+         sb.append('}');
+      }
+      else
+      {
+         sb.append("Record(").append(meta.legacyName).append(":").append(id).append("){\n");
+         PropertyMeta[] pms = meta.getPropertyMeta(false);
+         for (int i = 0; i < pms.length; i++)
          {
-            for (int k = 0; k < extent; k++)
+            if (i != 0)
             {
-               sb.append(k == 0 ? "[" : "");
-               sb.append(data[i + k]);
+               sb.append(",\n");
             }
+            sb.append('\t').append(pms[i].getLegacyName()).append(": ");
             
-            i += extent - 1;
-            sb.append("]");
+            int extent = pms[i].getExtent();
+            if (extent == 0)
+            {
+               sb.append(data[i]);
+            }
+            else
+            {
+               for (int k = 0; k < extent; k++)
+               {
+                  sb.append(k == 0 ? "[" : "");
+                  sb.append(data[i + k]);
+               }
+               
+               i += extent - 1;
+               sb.append("]");
+            }
          }
+         
+         sb.append("\n}");
       }
       
-      sb.append("\n}");
       return sb.toString();
    }
 }

=== modified file 'src/com/goldencode/p2j/persist/RecordBuffer.java'
--- src/com/goldencode/p2j/persist/RecordBuffer.java	2020-10-07 16:04:19 +0000
+++ src/com/goldencode/p2j/persist/RecordBuffer.java	2021-01-29 00:53:41 +0000
@@ -2,7 +2,7 @@
 ** Module   : RecordBuffer.java
 ** Abstract : Encapsulates a data record and provides methods to operate on it
 **
-** Copyright (c) 2004-2020, Golden Code Development Corporation.
+** Copyright (c) 2004-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 ECF 20050816   @22479 Created initial version. Abstract base class
@@ -1079,7 +1079,7 @@
 **                           to validate() (conditional ValidationException throw)
 ** 320 AIL 20200611          Moved buffer manager's buffer loaded notify after record loading.
 ** 321 OM  20191101          Used new persistence API.
-**         20200623          Added persistentProcedure member which stores the procedure who
+** 322 OM  20200623          Added persistentProcedure member which stores the procedure who
 **                           opened this buffer for the first time.
 **     IAS 20200819          Added table CRUD ops statistics support
 **     GES 20200731          Eliminated context-local lookups by using ErrorHelper.
@@ -1109,6 +1109,16 @@
 **     CA  20201007          Fixed buffer definitions from internal procedures/functions - the 'defining 
 **                           procedure' was incorrectly assumed as the caller, and not the currently executed
 **                           external program.
+**     AIL 20201210          Added faster buffer-copy only for buffers which compatible explicit signatures.
+**     ECF 20201210          Reworked toString() to use legacy field names.
+**     AIL 20201223          Extended support for buffer-copy in fast mode.
+**         20210104          Fixed assign trigger checking when doing fast buffer copy.
+**         20210129          Setting active buffer before doing fast buffer copy.
+**     OM  20201120          Added DATA-SOURCE-MODIFIED and DECIMALS implementation. Made methods acessible to
+**                           [serial] package. Fixed dataset events firing.
+**     OM  20201218          Fixed implementation for error and rejected attributes/hidden fields.
+**     OM  20210127          Replaced TableMapper.getLegacyName() triple map lookup with direct access to
+**                           local dmoMeta.legacyTable.
 */
 
 /*
@@ -1166,7 +1176,6 @@
 
 package com.goldencode.p2j.persist;
 
-import java.beans.*;
 import java.lang.InstantiationException;
 import java.lang.reflect.*;
 import java.sql.*;
@@ -1175,7 +1184,6 @@
 import java.util.logging.*;
 import com.goldencode.p2j.*;
 import com.goldencode.p2j.persist.orm.*;
-import com.goldencode.p2j.persist.orm.Property;
 import com.goldencode.p2j.persist.orm.types.DataHandler;
 import com.goldencode.p2j.persist.dialect.*;
 import com.goldencode.p2j.persist.dirty.*;
@@ -1609,14 +1617,20 @@
    private final boolean vst;
    
    /**
-    * Flags whether the record stored has been write-touched. That is, whether a setter was
-    * invoked on the DMO, regardless whether the value was not actually changed since the last
-    * load of the record. Unlike {@code recordChanged} that tracks external changes (from other
-    * users), this boolean value tracks write-touches only from current user.
+    * Flags whether the record stored has been write-touched. That is, whether a setter was invoked on the
+    * DMO, regardless whether the value was not actually changed since the last load of the record. Unlike
+    * {@code recordChanged} that tracks external changes (from other users), this boolean value tracks
+    * write-touches only from current user.
     */
    private boolean isTouched = false;
    
    /**
+    * Flag used to avoid recursive call while invoking ROW-UPDATE event procedure while another block is
+    * finished.
+    */
+   private boolean firingRowUpdate = false;
+   
+   /**
     * Collects all {@code Progress.Lang.Object} fields of the record. Only makes sense for temp
     * tables. When empty, the OO support (ref-counting) is disabled.
     */
@@ -1625,6 +1639,14 @@
    /** Determines if this buffer is dynamic. */
    private boolean dynamic = false;
    
+   /**
+    * Marker for a CREATE-ROW callback in process. When this flag is on, the buffer contains a transient
+    * record but the before image was not yet created for it. In the event of a DELETE operation in a
+    * subsequent callback, the record is simply discarded instead of creating a superfluous delete
+    * before-image for it.
+    */
+   protected boolean createRowCallback = false;
+   
    /** The query off-end listener associated with this record buffer. */
    private final QueryOffEndListener offEndListener = new QueryOffEndListener()
    {
@@ -2284,9 +2306,9 @@
       {
          String schema = DatabaseManager.getSchema(database);
          Class<? extends Record> dmoClass = TableMapper.getDMOClass(schema, tableName);
-         Class<?> dmoIface = DmoMetadataManager.getDMOInterface(dmoClass);
+         DmoMeta dmoInfo = DmoMetadataManager.getDmoInfo(dmoClass);
          String ldbName = ConnectionManager.get().getLDBName(database);
-         dmo = createDynamicBufferForPermTable(dmoIface, actualBufName, ldbName);
+         dmo = createDynamicBufferForPermTable(dmoInfo.getAnnotatedInterface(), actualBufName, ldbName);
       }
       else
       {
@@ -2741,8 +2763,7 @@
       else
       {
          // permanent buffer
-         String tableName = TableMapper.getLegacyName((Buffer) srcBuffer.getDMOProxy());
-         String actualBufName = bufName != null ? bufName.getValue() : tableName;
+         String actualBufName = bufName != null ? bufName.getValue() : srcBuffer.dmoInfo.legacyTable;
          
          dmo = createDynamicBufferForPermTable(srcBuffer.getDMOInterface(),
                                                actualBufName,
@@ -3194,7 +3215,7 @@
                               DatabaseTriggerManager.handleError(
                                  1003,
                                  DatabaseEventType.ASSIGN,
-                                 TableMapper.getLegacyName(dmoIface),
+                                 buffer.dmoInfo.legacyTable,
                                  TableMapper.getLegacyFieldName(dmoIface, prop));
                            }
                            
@@ -3903,6 +3924,17 @@
          dstRec = dstBuf.getCurrentRecord();
       }
       
+      boolean hasBefore = ((BufferImpl) srcProxy).isAfterBuffer() && 
+                          ((BufferImpl) dstProxy).isAfterBuffer() && 
+                          srcBuf.tableHandle().unwrapTempTable().isTrackingChanges().booleanValue();
+      
+      // try a fast copy first
+      // if it worked, then we are done with the copy all together
+      if (fastCopy(srcBuf, dstBuf, srcFields != null && srcFields.length > 0, noLobs, validate, hasBefore))
+      {
+         return;
+      }
+      
       Map<String, String> srcLegacyFields = srcBuf.getLegacyFieldNameMap().getLegacyField2Name();
       Map<String, String> dstLegacyFields = dstBuf.getLegacyFieldNameMap().getLegacyField2Name();
       
@@ -3929,33 +3961,28 @@
                                                                    OperationType.COPY);
       Map<DatumAccess, DatumAccess> copyB4Map = null;
       
-      if (((BufferImpl) srcProxy).isAfterBuffer() && ((BufferImpl) dstProxy).isAfterBuffer())
+      if (hasBefore)
       {
-         boolean before = srcBuf.tableHandle().unwrapTempTable().isTrackingChanges().booleanValue();
+         BufferImpl srcB4Proxy = (BufferImpl) ((BufferImpl) srcProxy).beforeBuffer().getResource();
+         BufferImpl dstB4Proxy = (BufferImpl) ((BufferImpl) dstProxy).beforeBuffer().getResource();
+         RecordBuffer srcB4Buf = ((BufferReference) srcB4Proxy).buffer();
+         RecordBuffer dstB4Buf = ((BufferReference) dstB4Proxy).buffer();
          
-         if (before)
-         {
-            BufferImpl srcB4Proxy = (BufferImpl) ((BufferImpl) srcProxy).beforeBuffer().getResource();
-            BufferImpl dstB4Proxy = (BufferImpl) ((BufferImpl) dstProxy).beforeBuffer().getResource();
-            RecordBuffer srcB4Buf = ((BufferReference) srcB4Proxy).buffer();
-            RecordBuffer dstB4Buf = ((BufferReference) dstB4Proxy).buffer();
-            
-            copyB4Map = createSimplePropsMap(lFields,
-                                             srcB4Buf,
-                                             dstB4Buf,
-                                             srcB4Buf.getLegacyGetterMap(),
-                                             dstB4Buf.getLegacySetterMap(),
-                                             srcB4Buf.getExtentMap(),
-                                             dstB4Buf.getExtentMap(),
-                                             srcLegacyFields,
-                                             dstLegacyFields,
-                                             srcB4Buf.getPropsByGetter(),
-                                             dstB4Buf.getPropsBySetter(),
-                                             srcB4Buf.getGetterDatums(),
-                                             dstB4Buf.getSetterDatums(),
-                                             noLobs,
-                                             OperationType.COPY);
-         }
+         copyB4Map = createSimplePropsMap(lFields,
+                                          srcB4Buf,
+                                          dstB4Buf,
+                                          srcB4Buf.getLegacyGetterMap(),
+                                          dstB4Buf.getLegacySetterMap(),
+                                          srcB4Buf.getExtentMap(),
+                                          dstB4Buf.getExtentMap(),
+                                          srcLegacyFields,
+                                          dstLegacyFields,
+                                          srcB4Buf.getPropsByGetter(),
+                                          dstB4Buf.getPropsBySetter(),
+                                          srcB4Buf.getGetterDatums(),
+                                          dstB4Buf.getSetterDatums(),
+                                          noLobs,
+                                          OperationType.COPY);
       }
       
       copy(srcBuf, dstBuf, copyMap, copyB4Map, validate);
@@ -4113,29 +4140,6 @@
    }
    
    /**
-    * Copy the content of a DMO to another. Only matching fields are processed. Only the fields
-    * are copied, the special and surrogate data is not copied.
-    *
-    * @param   dst
-    *          The target DMO.
-    * @param   src
-    *          The source DMO.
-    * @param   dstBuffer
-    *          The destination buffer. Only used to get information on the legacy fields (their
-    *          order and type).
-    * @param   srcBuffer
-    *          The source buffer. Only used to get information on the legacy fields (their
-    *          order and type).
-    *
-    * @return  {@code true} if operation is successful, and {@code false} on error (if the fields
-    *          types are not matching). 
-    */
-   static boolean copyDMO(Record dst, Record src, BufferImpl dstBuffer, BufferImpl srcBuffer)
-   {
-      return BaseRecord.copy(src, dst);
-   }
-   
-   /**
     * BUFFER-COPY() handle-based method runtime.
     *
     * This method copies any common fields, determined by name, data type, and extent-matching,
@@ -4180,8 +4184,23 @@
          dstRec = dstBuf.getCurrentRecord();
       }
       
+      BufferReference srcProxy = srcBuf.getDMOProxy();
+      BufferReference dstProxy = dstBuf.getDMOProxy();
+      boolean hasBefore = ((BufferImpl) srcProxy).isAfterBuffer() && 
+                          ((BufferImpl) dstProxy).isAfterBuffer() && 
+                          srcBuf.tableHandle().unwrapTempTable().isTrackingChanges().booleanValue();
+      boolean hasPairs = !(pairs == null || pairs.isUnknown() || pairs.getValue().length() == 0);
+      boolean hasExcept = !(except == null || except.isUnknown() || except.getValue().length() == 0);
+      
       try
       {
+         // try a fast copy first
+         // if it worked, then we are done with the copy all together
+         if (fastCopy(srcBuf, dstBuf, hasPairs || hasExcept, noLobs.getValue(), true, hasBefore))
+         {
+            return new logical(true);
+         }
+         
          Map<String, Method> dstSetters = dstBuf.getLegacySetterMap();
          Map<DatumAccess, DatumAccess> propsMap = getPropsMap(srcBuf,
                                                               dstBuf,
@@ -4196,32 +4215,25 @@
          {
             Map<DatumAccess, DatumAccess> propsB4Map = null;
             
-            BufferReference srcProxy = srcBuf.getDMOProxy();
-            BufferReference dstProxy = dstBuf.getDMOProxy();
-            if (((BufferImpl) srcProxy).isAfterBuffer() && ((BufferImpl) dstProxy).isAfterBuffer())
+            if (hasBefore)
             {
-               boolean before = srcBuf.tableHandle().unwrapTempTable().isTrackingChanges().booleanValue();
+               BufferImpl srcB4Proxy = (BufferImpl) ((BufferImpl) srcProxy).beforeBuffer().getResource();
+               BufferImpl dstB4Proxy = (BufferImpl) ((BufferImpl) dstProxy).beforeBuffer().getResource();
+               RecordBuffer srcB4Buf = (TemporaryBuffer) ((BufferReference) srcB4Proxy).buffer();
+               RecordBuffer dstB4Buf = (TemporaryBuffer) ((BufferReference) dstB4Proxy).buffer();
+               Map<String, Method> dstB4Setters = dstB4Buf.getLegacySetterMap();
                
-               if (before)
-               {
-                  BufferImpl srcB4Proxy = (BufferImpl) ((BufferImpl) srcProxy).beforeBuffer().getResource();
-                  BufferImpl dstB4Proxy = (BufferImpl) ((BufferImpl) dstProxy).beforeBuffer().getResource();
-                  RecordBuffer srcB4Buf = (TemporaryBuffer) ((BufferReference) srcB4Proxy).buffer();
-                  RecordBuffer dstB4Buf = (TemporaryBuffer) ((BufferReference) dstB4Proxy).buffer();
-                  Map<String, Method> dstB4Setters = dstB4Buf.getLegacySetterMap();
-                  
-                  propsB4Map = getPropsMap(srcB4Buf,
-                                          dstB4Buf,
-                                          dstB4Setters,
-                                          dstB4Buf.getPropsBySetter(),
-                                          dstB4Buf.getSetterDatums(),
-                                          except,
-                                          pairs,
-                                          noLobs,
-                                          OperationType.COPY);
-               }
+               propsB4Map = getPropsMap(srcB4Buf,
+                                       dstB4Buf,
+                                       dstB4Setters,
+                                       dstB4Buf.getPropsBySetter(),
+                                       dstB4Buf.getSetterDatums(),
+                                       except,
+                                       pairs,
+                                       noLobs,
+                                       OperationType.COPY);
             }
-
+            
             return copy(srcBuf, dstBuf, propsMap, propsB4Map, true);
          }
       }
@@ -5521,6 +5533,184 @@
    }
    
    /**
+    * Fast way to do the buffer-copy. This doesn't work in all scenarios, but can greatly fasten
+    * some cases (which are often in practice). This will check if the current scenario is trivial:
+    * no assign triggers, no before buffers, no explicit pair copy and explicit dmo signature match.
+    * For this case, the fields are set in bulk through direct access.
+    * 
+    * @param   srcBuf
+    *          The source buffer from which the copy is done.
+    * @param   dstBuf
+    *          The destination buffer to which the copy is done.
+    * @param   forcePair
+    *          Flag to indicate if an explicit pair of fields should be copied / not copied.
+    * @param   noLobs
+    *          Flag to indicate if lobs should be omitted from the copy.
+    * @param   validate
+    *          {@code true} to validate the destination buffer after the copy.
+    * @param   hasBefore
+    *          Flag to indicate if the buffer have before buffer which should be also copied.
+    *          
+    * @return  {@code true} if the fast copy is eligible and could be done.
+    *          {@code false} if the fast copy couldn't be applied for these buffers.
+    */
+   private static boolean fastCopy(RecordBuffer srcBuf,
+                                   RecordBuffer dstBuf,
+                                   boolean forcePair,
+                                   boolean noLobs,
+                                   boolean validate,
+                                   boolean hasBefore)
+   {
+      Record srcRec = srcBuf.getCurrentRecord();
+      Record dstRec = dstBuf.getCurrentRecord();
+      DmoMeta srcMeta = srcBuf.getDmoInfo();
+      DmoMeta dstMeta = dstBuf.getDmoInfo();
+      DmoSignature srcSignature = srcMeta.getSignature();
+      DmoSignature dstSignature = dstMeta.getSignature();
+      
+      Iterator<Property> dstPropIt = dstBuf.getDmoInfo().getFields(false);
+      Set<String> dstProps = new HashSet<>();
+      while (dstPropIt.hasNext())
+      {
+         Property prop = dstPropIt.next();
+         dstProps.add(prop.name);
+      }
+      
+      if (!noLobs && !forcePair && !hasBefore &&
+          !dstBuf.triggerTracker.hasAnyAssignTrigger(dstProps) &&
+          DMOSignatureHelper.validBufferCopy(srcSignature, dstSignature))
+      {
+         // all the field names are both in the source and the destination
+         // at this point the DMOs are similar enough to fasten the copy
+         boolean success = true;
+         
+         if (DMOSignatureHelper.exactPropertyOrder(srcSignature, dstSignature))
+         {
+            // the fields are also in the same order, which means we can assign directly the values
+            // from the source to the destination
+            boolean batchError = true;
+            boolean error = false;
+            boolean inBatch = dstBuf.getBufferManager().isBatchAssignMode();
+            
+            try 
+            {
+               if (validate)
+               {
+                  startBatch(true);
+               }
+               
+               dstRec.setActiveBuffer(dstBuf);
+               try
+               {
+                  dstBuf.bulkCopy = true;
+                  success = success && OrmUtils.setAllFields(srcRec, dstRec);
+                  batchError = false;
+               }
+               finally
+               {
+                  // make sure reset is called first as endBatch can throw an exception
+                  dstRec.resetActiveState();
+                  
+                  if (validate)
+                  {
+                     endBatch(batchError);
+                  }
+               }
+               
+               if (success)
+               {
+                  return true;
+               }
+               else
+               {
+                  // otherwise, fallback to the classic implementation
+                  if (LOG.isLoggable(Level.SEVERE))
+                  {
+                     LOG.log(Level.SEVERE, 
+                              "Explicit signature checking is broken; unsuccessful fast buffer copy. " +
+                              "Fallback to classic implementation.");
+                  }
+                  return false;
+               }
+            }
+            catch (ConditionException exc)
+            {
+               error = true;
+               throw exc;
+            }
+            catch (Exception exc)
+            {
+               error = true;
+               
+               DBUtils.handleException(srcBuf.getDatabase(), exc);
+               DBUtils.handleException(dstBuf.getDatabase(), exc);
+               
+               String msg = "Error performing buffer copy";
+               if (LOG.isLoggable(Level.SEVERE))
+               {
+                  LOG.log(Level.SEVERE, msg, exc);
+               }
+               
+               // TODO:  use proper error.
+               ErrorManager.recordOrThrowError(-1, msg);
+               return false;
+            }
+            finally
+            {
+               dstBuf.bulkCopy = false;
+               
+               if (dstBuf.isCommitPending() && !inBatch)
+               {
+                  try
+                  {
+                     if (!error)
+                     {
+                        dstBuf.getPersistence().commit(dstBuf.getPersistenceContext());
+                     }
+                     else
+                     {
+                        dstBuf.getPersistence().rollback(dstBuf.getPersistenceContext());
+                     }
+                  }
+                  catch (Exception exc)
+                  {
+                     DBUtils.handleException(srcBuf.getDatabase(), exc);
+                     DBUtils.handleException(dstBuf.getDatabase(), exc);
+                     
+                     String msg = "Error " +
+                                  (error ? "rolling back" : "comitting") +
+                                  " during buffer copy";
+                     if (LOG.isLoggable(Level.SEVERE))
+                     {
+                        LOG.log(Level.SEVERE, msg, exc);
+                     }
+                  }
+                  finally
+                  {
+                     dstBuf.setCommitPending(false);
+                  }
+               }
+            }
+         }
+         else
+         {
+            // TODO: implement a faster copy in case the signatures match but the field order 
+            // doesn't match
+            if (LOG.isLoggable(Level.WARNING))
+            {
+               LOG.log(Level.WARNING, 
+                        "Unimplememted fast copy for explicit signature match, but different field order." +
+                        "Fallback to classic implementation.");
+            }
+            return false;
+         }
+      }
+      
+      // we don't have proper conditions for fast-copy
+      return false;
+   }
+   
+   /**
     * Get the {@link #undoable} instance.
     * 
     * @return   See above.
@@ -5713,7 +5903,7 @@
          // at a sub-transaction boundary, validate and flush a new or changed record
          
          // Note: for a new record, this means default values will be saved in any fields which have not
-         // otherwise been explicitly updated
+         //       otherwise been explicitly updated
          
          boolean global = registeredWithGlobalScope == 0;
          int blockDepth = bufferManager.getCurrentScope();
@@ -5780,6 +5970,13 @@
          return;
       }
       
+      if (transaction && isTouched && !firingRowUpdate)
+      {
+         firingRowUpdate = true;
+         maybeFireRowUpdateEvent();
+         isTouched = false; // prevent firing ROW-UPDATE a second time when record is released
+         firingRowUpdate = false;
+      }
       int blockDepth = bufferManager.getCurrentScope();
       triggerTracker.commit(blockDepth);
    }
@@ -6555,10 +6752,6 @@
       {
          ErrorManager.recordOrThrowError(exc);
       }
-      finally
-      {
-         isTouched = false;
-      }
    }
    
    /**
@@ -6649,6 +6842,17 @@
    }
    
    /**
+    * Constructs and returns a string containing the P4GL schema definition of the table. The result is not
+    * cached so this method is to be used only for debug.
+    *
+    * @return  a string containing the P4GL legacy schema definition of the table.
+    */
+   public String tableDefinition()
+   {
+      return dmoInfo.getTableDefinition();
+   }
+   
+   /**
     * Get the DMO proxy which references this buffer instance.
     *
     * @return  DMO proxy object.
@@ -6959,10 +7163,10 @@
     */
    protected String getFieldHelp(String property)
    {
-      return (String) getFieldValue(property,
-                                    fieldHelp,
-                                    RecordBuffer::getFieldHelp,
-                                    TableMapper::getLegacyFieldHelp);
+      return getFieldValue(property,
+                           fieldHelp,
+                           RecordBuffer::getFieldHelp,
+                           TableMapper::getLegacyFieldHelp);
    }
    
    /**
@@ -6975,10 +7179,10 @@
     */
    protected String getFieldColumnLabel(String property)
    {
-      return (String) getFieldValue(property,
-                                    fieldColumnLabels,
-                                    RecordBuffer::getFieldColumnLabel,
-                                    TableMapper::getLegacyFieldColumnLabel);
+      return getFieldValue(property,
+                           fieldColumnLabels,
+                           RecordBuffer::getFieldColumnLabel,
+                           TableMapper::getLegacyFieldColumnLabel);
    }
    
    /**
@@ -7040,10 +7244,10 @@
     */
    protected String getFieldLabel(String property)
    {
-      return (String) getFieldValue(property,
-                                    fieldLabels,
-                                    RecordBuffer::getFieldLabel,
-                                    TableMapper::getLegacyFieldLabel);
+      return getFieldValue(property,
+                           fieldLabels,
+                           RecordBuffer::getFieldLabel,
+                           TableMapper::getLegacyFieldLabel);
    }
    
    /**
@@ -7074,10 +7278,10 @@
     */
    protected String getFieldValidateExpression(String property)
    {
-      return (String) getFieldValue(property,
-                                    fieldValidateExpressions,
-                                    RecordBuffer::getFieldValidateExpression,
-                                    TableMapper::getLegacyFieldValidateExpression);
+      return getFieldValue(property,
+                           fieldValidateExpressions,
+                           RecordBuffer::getFieldValidateExpression,
+                           TableMapper::getLegacyFieldValidateExpression);
    }
    
    /**
@@ -7108,10 +7312,10 @@
     */
    protected String getFieldValidateMessage(String property)
    {
-      return (String) getFieldValue(property,
-                                    fieldValidateMessages,
-                                    RecordBuffer::getFieldValidateMessage,
-                                    TableMapper::getLegacyFieldValidateMessage);
+      return getFieldValue(property,
+                           fieldValidateMessages,
+                           RecordBuffer::getFieldValidateMessage,
+                           TableMapper::getLegacyFieldValidateMessage);
    }
    
    /**
@@ -7142,10 +7346,10 @@
     */
    protected String getFieldFormat(String property)
    {
-      return (String) getFieldValue(property,
-                                    fieldFormats,
-                                    RecordBuffer::getFieldFormat,
-                                    TableMapper::getLegacyFieldFormat);
+      return getFieldValue(property,
+                           fieldFormats,
+                           RecordBuffer::getFieldFormat,
+                           TableMapper::getLegacyFieldFormat);
    }
    
    /**
@@ -7176,10 +7380,10 @@
     */
    protected logical getFieldLiteralQuestion(String property)
    {
-      return (logical) getFieldValue(property,
-                                     fieldLiteralQuestions,
-                                     RecordBuffer::getFieldLiteralQuestion,
-                                     TableMapper::getLegacyFieldLiteralQuestion);
+      return getFieldValue(property,
+                           fieldLiteralQuestions,
+                           RecordBuffer::getFieldLiteralQuestion,
+                           TableMapper::getLegacyFieldLiteralQuestion);
    }
    
    /**
@@ -7207,7 +7411,6 @@
    protected void rowState(Integer state)
    {
       // not a temp-table record
-      return;
    }
    
    /**
@@ -7228,36 +7431,51 @@
     * is the {@code after-rowid} and {@code before-rowid} for AFTER-TABLE record.
     *
     * @param   peer
-    *          The new long rowid value of the peer record or {@code null}.
+    *          The new rowid value of the peer record or {@code null}.
     */
    protected void peerRowid(rowid peer)
    {
       // not a temp-table record
-      return;
+   }
+   
+   /**
+    * Sets the {@code origin-rowid} for AFTER-TABLE record.
+    *
+    * @param   peer
+    *          The new rowid value of the record or {@code null}.
+    */
+   public void originRowid(rowid peer)
+   {
+      // not a temp-table record
    }
    
    /**
     * Gets {@code errorFlag} of this record. 
     *
-    * @return  Since this method is invoked for permanent records this will always return
-    *          {@code unknown} value.
+    * @return  the {@code errorFlag} of this record or {@code null} if it was not configured. If not null,
+    *          the value is a bitwise combination of ERROR and REJECTED attribute. It's up to the called to
+    *          extract the bit(s) it needs.<br>
+    *          Since this method is invoked for permanent records this will always return {@code unknown}
+    *          value.
     */
-   protected integer errorFlag()
+   protected Integer errorFlags()
    {
       // not a temp-table record
-      return new integer();
+      return null;
    }
    
    /**
-    * Sets the {@code errorFlag} value this peer record.
+    * Sets or removes the {@code errorFlag} value this peer record. The {@code error} attribute of the record
+    * is composed of multiple bit flags. This method manages its value based on the parameters it receives.
     *
-    * @param   err
-    *          The new error flag.
+    * @param   errFlag
+    *          The error bit to be set or removed.
+    * @param   set
+    *          Use {@code true} to set the flag and {@code false} to remove it.
     */
-   protected void errorFlag(integer err)
+   protected void updateErrorFlags(int errFlag, boolean set)
    {
       // not a temp-table record
-      return;
    }
    
    /**
@@ -7281,7 +7499,6 @@
    protected void errorString(Text string)
    {
       // not a temp-table record
-      return;
    }
    
    /**
@@ -7334,26 +7551,26 @@
     * buffer-specific value, it is returned. Then, for temp-tables, buffer-specific value of the
     * default buffer if returned. Then the value specified in schema is returned.
     *
-    * @param property
-    *        Property name of the target buffer field.
-    * @param bufFieldVals
-    *        Map of the buffer-specific attribute values for the fields of this buffer.
-    * @param defaultBufValGetter
-    *        Function for getting buffer-specific attribute values for the fields of the default
-    *        buffer (for temp tables only).
-    * @param schemaValGetter
-    *        Function for getting attribute values defined in schema.
+    * @param   property
+    *          Property name of the target buffer field.
+    * @param   bufFieldVals
+    *          Map of the buffer-specific attribute values for the fields of this buffer.
+    * @param   defaultBufValGetter
+    *          Function for getting buffer-specific attribute values for the fields of the default
+    *          buffer (for temp tables only).
+    * @param   schemaValGetter
+    *          Function for getting attribute values defined in schema.
     *
     * @return value of the target attribute for the given buffer field.
     */
-   protected Object getFieldValue(String property,
-                                  Map bufFieldVals,
+   protected <T> T getFieldValue(String property,
+                                  Map<String, T> bufFieldVals,
                                   BiFunction<RecordBuffer, String, Object> defaultBufValGetter,
                                   BiFunction<Buffer, String, Object> schemaValGetter)
    {
       if (bufFieldVals != null)
       {
-         Object res = bufFieldVals.get(property);
+         T res = bufFieldVals.get(property);
          if (res != null)
          {
             return res;
@@ -7365,11 +7582,11 @@
          RecordBuffer defaultBuffer = getDefaultBuffer();
          if (!RecordBuffer.this.equals(defaultBuffer))
          {
-            return defaultBufValGetter.apply(defaultBuffer, property);
+            return (T) defaultBufValGetter.apply(defaultBuffer, property);
          }
       }
       
-      return schemaValGetter.apply((Buffer) getDMOProxy(), property);
+      return (T) schemaValGetter.apply((Buffer) getDMOProxy(), property);
    }
    
    /**
@@ -7699,7 +7916,7 @@
     *
     * @return  <code>null</code>.
     */
-   protected Integer getMultiplexID()
+   public Integer getMultiplexID()
    {
       return null;
    }
@@ -7870,8 +8087,7 @@
             if (topEvent != null)
             {
                // cannot fire DELETE trigger while any other trigger is executing
-               String legacyTable = TableMapper.getLegacyName(dmoInterface);
-               DatabaseTriggerManager.handleError(3169, topEvent, legacyTable, null);
+               DatabaseTriggerManager.handleError(3169, topEvent, dmoInfo.legacyTable, null);
             }
             else
             {
@@ -7994,11 +8210,11 @@
     * parameters.
     * <p>
     * This method is invalid in base class so it will always throw an exception. It must be
-    * overwritten by {@link TemporaryBuffer#delete} with correct logic.  
+    * overwritten by {@link TemporaryBuffer#delete} with correct logic.
     *
     * @param   suppDMOs
     *          The DMOs for the external (additional) buffers that are accessed in inner
-    *          subselect, or {@code null} in case of a simple {@code where} predicate.  
+    *          subselect, or {@code null} in case of a simple {@code where} predicate.
     * @param   where
     *          An HQL where clause snippet which defines the restriction criteria to apply to the
     *          delete.  All references to properties in a DMO must be unqualified.
@@ -8008,7 +8224,7 @@
     * @throws  PersistenceException
     *          always.
     */
-   protected void delete(DataModelObject[] suppDMOs, String where, Object[] args)
+   protected void delete(DataModelObject[] suppDMOs, String where, Object... args)
    throws PersistenceException
    {
       if (suppDMOs != null)
@@ -8038,7 +8254,7 @@
     * @throws  PersistenceException
     *          if an error occurs performing the bulk delete operation.
     */
-   protected void delete(String where, Object[] args)
+   protected void delete(String where, Object... args)
    throws PersistenceException
    {
       release(true);
@@ -8401,11 +8617,7 @@
     */
    protected int lookupNumFields()
    {
-      Class<? extends DataModelObject> dmoIface = getDMOInterface();
-      String schema = getSchema();
-      String legacyName = TableMapper.getLegacyName(dmoIface);
-      
-      return TableMapper.getNumFields(schema, legacyName);
+      return TableMapper.getNumFields(getSchema(), dmoInfo.legacyTable);
    }
    
    /**
@@ -8843,66 +9055,42 @@
          return buf.toString();
       }
       
-      String name = null;
-      try
+      if (metadata != null)
       {
-         Map<String, Method> getters = new LinkedHashMap<>();
+         String name = null;
+         PropertyMeta[] propMeta = metadata.getPropertyMeta(false);
+         int len = propMeta.length;
+         String[] names = new String[len];
          int maxWidth = 0;
-         Method[] methods = dmoClass.getDeclaredMethods();
          
-         int len = methods.length;
          for (int i = 0; i < len; i++)
          {
-            Method next = methods[i];
-            name = next.getName();
-            boolean prefixGet = name.startsWith("get");
-            boolean prefixIs = name.startsWith("is");
-            if ((prefixGet || prefixIs)              &&
-                next.getParameterTypes().length == 0 &&
-                !Collection.class.isAssignableFrom(next.getReturnType()))
+            PropertyMeta next = propMeta[i];
+            name = next.getLegacyName();
+            int extent = next.getExtent();
+            if (extent > 0)
             {
-               name = name.substring(prefixGet ? 3 : 2);
-               name = Introspector.decapitalize(name);
-               getters.put(name, next);
-               maxWidth = Math.max(maxWidth, name.length());
+               name = name + '[' + extent + ']';
             }
+            names[i] = name;
+            maxWidth = Math.max(maxWidth,  name.length());
          }
          
          buf.append("   ");
-         StringHelper.leftAlignText(DatabaseManager.PRIMARY_KEY, maxWidth, buf);
+         StringHelper.leftAlignText(Session.PK, maxWidth, buf);
          buf.append(" :  ");
          buf.append(record.primaryKey());
          
-         for (Map.Entry<String, Method> entry : getters.entrySet())
+         Object[] data = currentRecord.getData(this);
+         
+         for (int i = 0; i < len; i++)
          {
-            name = entry.getKey();
-            Method next = entry.getValue();
+            name = names[i];
             buf.append(sep);
             buf.append("   ");
             StringHelper.leftAlignText(name, maxWidth, buf);
             buf.append(" :  ");
-            try
-            {
-               Object value = next.invoke(record, (Object[]) null);
-               buf.append(formatProperty(value));
-            }
-            catch (IllegalAccessException | IllegalArgumentException | InvocationTargetException e)
-            {
-               // eat it
-            }
-         }
-      }
-      catch (Exception exc)
-      {
-         DBUtils.handleException(getDatabase(), exc);
-         
-         if (LOG.isLoggable(Level.WARNING))
-         {
-            LOG.log(Level.WARNING,
-                    describe() + ":  error dumping record contents --> " +
-                    getDMOName() + ":" + record.primaryKey() + " at property '" +
-                    name + "'",
-                    exc);
+            buf.append(formatProperty(data[i]));
          }
       }
       
@@ -9226,7 +9414,7 @@
    {
       if (currentRecord != null)
       {
-         setCurrentRecord(null, false, false, false, allowWriteTrigger);
+         setCurrentRecord(null, undo, false, false, allowWriteTrigger);
       }
    }
    
@@ -9387,8 +9575,7 @@
          {
             if (triggerTracker.isExecuting(det, recId))
             {
-               String legacyTable = TableMapper.getLegacyName(dmoInterface);
-               DatabaseTriggerManager.handleError(2873, det, legacyTable, null);
+               DatabaseTriggerManager.handleError(2873, det, dmoInfo.legacyTable, null);
             }
             else
             {
@@ -9677,7 +9864,7 @@
     *
     * @return  Persistence service object for this buffer's database.
     */
-   protected Persistence getPersistence()
+   public Persistence getPersistence()
    {
       checkActive();
       
@@ -9897,13 +10084,43 @@
          // the record is still transient.
          createScope = bufferManager.getCurrentScope();
          
+         // invoke callback procedures first. Any trigger procedure is executed after this event is handled
+         if (isTemporary())
+         {
+            if (buf._dataSet() != null)
+            {
+               // checks whether tracking is active
+               if (getParentTable().isTrackingChanges().toJavaType())
+               {
+                  try
+                  {
+                     createRowCallback = true;
+                     if (!buf.invokeCallback(Buffer.ROW_CREATE_EVENT))
+                     {
+                        BlockManager.returnError();
+                     }
+                  }
+                  finally
+                  {
+                     createRowCallback = false;
+                  }
+                  
+                  if (currentRecord == null)
+                  {
+                     // the callback procedure/method deleted the newly created transient record
+                     // nothing more to do, just return
+                     return;
+                  }
+               }
+            }
+         }
+         
          DatabaseEventType det = DatabaseEventType.CREATE;
          if (triggerTracker.isTriggerEnabled(det, null))
          {
             if (triggerTracker.isExecuting(det, recId))
             {
-               String legacyTable = TableMapper.getLegacyName(dmoInterface);
-               DatabaseTriggerManager.handleError(3168, det, legacyTable, null);
+               DatabaseTriggerManager.handleError(3168, det, dmoInfo.legacyTable, null);
             }
             else
             {
@@ -9951,9 +10168,9 @@
          
          // if this is buffer of an active AFTER-BUFFER, update the BEFORE-TABLE, too:
          BufferImpl after = (BufferImpl) dmoProxy;
-         if (!ignoreBeforeTracking        &&
-             after.isAfterBuffer()        &&
-             !after.dataSet().isUnknown() &&
+         if (!ignoreBeforeTracking    &&
+             after.isAfterBuffer()    &&
+             after._dataSet() != null &&
              TempTableBuilder.asTempTable((Temporary) after).isTrackingChanges().getValue())
          {
             handle hBefore = after.beforeBuffer();
@@ -10020,7 +10237,7 @@
     * @throws  ErrorConditionException
     *          if the buffer fails validation.
     */
-   protected boolean validate(boolean throwValidationException)
+   public boolean validate(boolean throwValidationException)
    throws ValidationException
    {
       if (!isAvailable())
@@ -10071,8 +10288,7 @@
     * @throws  ValidationException
     *          if the DMO state fails any unique or non-nullable constraint check.
     * @throws  PersistenceException
-    *          if there is any error gathering index metadata or a database
-    *          error performing validation.
+    *          if there is any error gathering index metadata or a database error performing validation.
     */
    void validate(Record dmo)
    throws ValidationException,
@@ -10573,6 +10789,30 @@
    }
    
    /**
+    * Set the DMO implementation instance which backs this buffer with a another record, loaded from database.
+    * The buffer will help updating the new record, usually for internal, more complex processing.
+    * <p>
+    * This is a dedicated method accessible only from a very specific places within the persistence package.
+    * When the new record is set, the one eventually existing is released.
+    * <p>
+    * Note that the triggers are NOT fired when using this method.
+    *
+    * @param   newCrtRecord
+    *          DMO instance which represents the record currently backing this buffer. If {@code null}, the
+    *          record (and possibly its corresponding lock) is released.
+    *
+    * @throws  ErrorConditionException
+    *          if there is an error transitioning a lock when releasing the current record; if there is an
+    *          error validating or saving a transient record during flush.
+    *
+    * @see     #setCurrentRecord(Record, boolean, boolean, boolean, boolean)
+    */
+   void loadRecord(Record newCrtRecord)
+   {
+      setCurrentRecord(newCrtRecord, false, false, false, false);
+   }
+   
+   /**
     * Creates a new {@link Validation} instance using the passed arguments, and calls 
     * {@link Validation#validateMaybeFlush()}. Depending on the {@link Validation#wasFlushed()}
     * state, it will {@link #reportChange report} the change so that listeners will be notified.
@@ -11267,6 +11507,12 @@
                                  boolean dirtyCopy,
                                  boolean allowWriteTrigger)
    {
+      if (dmoProxy != null)
+      {
+         // reset the DATA-SOURCE-MODIFIED
+         ((Buffer) dmoProxy).setDataSourceModified(false);
+      }
+      
       if (newCrtRecord != null)
       {
          getTxHelper().checkTransaction(persistence.getDatabase().getId());
@@ -11306,6 +11552,13 @@
          }
       }
       
+      // the ROW-UPDATE event is fired "immediately before the record is updated in the temp-tables"
+      // NOTE: because the way FWD handles transactions that moment is difficult to intercept. When a change
+      //       operation occurred on the record, our validation has a secondary effect of flushing the
+      //       record to database so at this moment the record is already updated and its flags set to CACHED
+      //       and CHANGED flag is off. To detect if the record was indeed changed we test [isTouched] flag
+      maybeFireRowUpdateEvent();
+      
       boolean clearValidationState = true;
       try
       {
@@ -11388,8 +11641,7 @@
       
       if (this.currentRecord != null)
       {
-         // store placeholder record if releasing current record and we
-         // haven't done so previously
+         // store placeholder record if releasing current record and we haven't done so previously
          if (snapshot == null && (newCrtRecord == null || newlyCreated))
          {
             if (undoable != null)
@@ -11423,7 +11675,7 @@
                else
                {
                   // try to release the lock
-                  RecordIdentifier ident = this.currentRecord.getRecordLockIdentifier();
+                  RecordIdentifier<String> ident = this.currentRecord.getRecordLockIdentifier();
                   lockContext.lock(ident, LockType.NONE, 0L, this);
                }
             }
@@ -11464,9 +11716,7 @@
                {
                   if (LOG.isLoggable(Level.WARNING))
                   {
-                     LOG.log(Level.WARNING,
-                             "Error detaching record from session: " + toString(),
-                             exc);
+                     LOG.log(Level.WARNING, "Error detaching record from session: " + toString(), exc);
                   }
                   
                   ErrorManager.recordOrThrowError(exc);
@@ -11480,6 +11730,7 @@
       {
          this.undoable.checkUndoable(true);
       }
+      
       this.currentRecord = newCrtRecord;
       this.recordChanged = false; // invalidate CURRENT-CHANGED flag (see above)
       this.isTouched = false;
@@ -11521,6 +11772,27 @@
    }
    
    /**
+    * Checks whether the conditions for firing ROW-UPDATE event are met. If affirmative the event is triggered
+    * and the dataset's callback is invoked with a handle to this buffer as parameter.
+    */
+   private void maybeFireRowUpdateEvent()
+   {
+      if (isTouched && isTemporary() && this.currentRecord != null)
+      {
+         BufferImpl buf = (BufferImpl) dmoProxy;
+         if (buf._dataSet() != null)
+         {
+            // checks whether tracking is active
+            if (getParentTable().isTrackingChanges().toJavaType())
+            {
+               buf.invokeCallback(Buffer.ROW_UPDATE_EVENT);
+               ErrorManager.clearPending(); // if an error is raised in this callback it is simply ignored 
+            }
+         }
+      }
+   }
+   
+   /**
     * Store the undoability of this buffer in the record's state. Even though the same record
     * may be stored in multiple buffers at the same time, this is safe because (1) a record
     * instance is unique to a user session, and (2) buffers backed by the same table must have
@@ -11785,7 +12057,7 @@
             }
             
             // TODO: use something more reliable (but efficient) here to determine whether this is a setter
-            isSetter = Void.TYPE.equals(method.getReturnType());
+            isSetter = (method.getReturnType() == Void.TYPE);
             
             // if another buffer created the current record, delegate setter method calls to it,
             // to ensure all validation and flushing is tracked properly
@@ -11873,6 +12145,7 @@
                }
             }
             
+            boolean denormalized = false;
             if (isSetter)
             {
                pm = propsBySetter.get(method);
@@ -11889,6 +12162,7 @@
                {
                   int extIdx = (int) args[0]; // already computed as 0-base
                   pm = metadata.getPropertyMeta(false)[pm.getOffset() + extIdx];
+                  denormalized = true;
                }
                
                property = pm.getName();
@@ -11955,9 +12229,9 @@
                // has a BEFORE-TABLE to keep the changes in and tracking is activated (not in
                // FILL mode)
                BufferImpl after = (BufferImpl) RecordBuffer.this.dmoProxy;
-               if (!ignoreBeforeTracking        &&
-                   after.isAfterBuffer()        &&
-                   !after.dataSet().isUnknown() &&
+               if (!ignoreBeforeTracking    &&
+                   after.isAfterBuffer()    &&
+                   after._dataSet() != null &&
                    TempTableBuilder.asTempTable((Temporary) after).isTrackingChanges().getValue())
                {
                   handle hBefore = after.beforeBuffer();
@@ -11979,6 +12253,7 @@
                         // keep the reference to the datasource-rowid,
                         ((TemporaryBuffer) before.buffer()).getCurrentRecord()._originRowid(
                             ((TemporaryBuffer) after.buffer()).getCurrentRecord()._originRowid());
+                        before.buffer().flush();
                         before.setUpBeforeBuffer(false);
                         // do not release the before buffer, let it hold the newly created row
                      }
@@ -11996,6 +12271,8 @@
             
             if (isSetter)
             {
+               isTouched = true;
+               
                // share dirty if needed
                if (currentRecord!= null && isDirtyRead && dirtyContext != null && !isTemporary())
                {
@@ -12046,7 +12323,10 @@
                changed = diffs != null;
                if (changed)
                {
-                  addUnreportedChanges(ormIndex, extent ? (Integer) args[0] : 0, diffs);
+                  // NOTE: if the property was denormalized, the property index [ormIndex] already contains
+                  //       the extent index 
+                  int extentIndex = extent && !denormalized ? (Integer) args[0] : 0;
+                  addUnreportedChanges(ormIndex, extentIndex, diffs);
                }
             }
             
@@ -12071,7 +12351,7 @@
                   DatabaseTriggerManager.handleError(
                      1003,
                      DatabaseEventType.ASSIGN,
-                     TableMapper.getLegacyName(dmoIface),
+                     dmoInfo.legacyTable,
                      TableMapper.getLegacyFieldName(dmoIface, property));
                }
             }
@@ -13032,25 +13312,6 @@
    }
    
    /**
-    * A <code>Reversible</code> version which affects more than one record.
-    */
-   protected abstract class AbstractBulkReversible
-   extends Reversible
-   {
-      /**
-       * This method checks if this bulk reversible touched the record with
-       * the given key.
-       * 
-       * @param   key
-       *          The record to be checked.
-       *          
-       * @return  <code>true</code> if the record was touched by this bulk
-       *          reversible.
-       */
-      protected abstract boolean containsRecord(Long key);
-   }
-   
-   /**
     * A lightweight implementation of the <code>Undoable</code> interface
     * which restores to the record buffer the current record and snapshot
     * which were active at the time of backup.
@@ -13268,12 +13529,12 @@
        * @param    propertyName
        *           Property name.
        * @param    extentIndex
-       *           Index of an element in an extent property or <code>null</code>. If present, the index should 
+       *           Index of an element in an extent property or {@code null}. If present, the index should 
        *           be zero-based.
        * @param    accessor
        *           The cached accessor for this instance.
        * @param    extent
-       *           The extent value of this property or null.
+       *           The extent value of this property or {@code null}.
        * @param    propertyMeta
        *           The cached property meta.
        * @param    indexed
@@ -13351,15 +13612,21 @@
          
          DatumAccess that = (DatumAccess) o;
          
-         if (extentIndex != null ? !extentIndex.equals(that.extentIndex)
-                                 : that.extentIndex != null)
-         {
+         if ((this.extentIndex == null) != (that.extentIndex == null))
+         {
+            // both must have or both must not have extent
+            return false;
+         }
+         
+         if (this.extentIndex != null && this.extentIndex != that.extentIndex)
+         {
+            // if both have but it is different  
             return false;
          }
          
          return propertyName.equals(that.propertyName);
       }
-
+      
       /**
        * Get the {@link #propertyMeta}.
        * 
@@ -13389,7 +13656,7 @@
       {
          return accessor;
       }
-
+      
       /**
        * Get field name.
        * 
@@ -13410,6 +13677,19 @@
       {
          return extentIndex;
       }
+      
+      @Override
+      public String toString()
+      {
+         StringBuilder sb = new StringBuilder("DatumAccess{");
+         sb.append(propertyName).append("/").append(propertyMeta.getLegacyName());
+         if (extent != null && extent > 0)
+         {
+            sb.append("[").append(extent).append("]");
+         }
+         sb.append("}");
+         return sb.toString();
+      }
    }
    
    /**
@@ -13650,6 +13930,171 @@
          // should be unreachable
          return null;
       }
-      
+   }
+   
+   /**
+    * Obtain a string representation of the table content stored on SQL. This is a SQL-wise view of the
+    * primary table of the DMO, not an actual ABL data. Only to be used in debug purposes.<br>
+    * Notes:
+    * <ul>
+    *    <li>the EXTENT properties are not shown unless the table is denormalized (in which case the these
+    *          properties are stored in the primary table);
+    *    <li>the name of the columns in the returned string are the SQL column names, not the legacy names;
+    *    <li>the hidden, reserved before/after-table specific attributes are visible for temp-tables;
+    *    <li>the larger string/character values are cut to max 32 chars;
+    * </ul>
+    *
+    * @param   limit
+    *          The maximum number of rows to be retrieved. Use 0 or negative to get them all.
+    *
+    * @return  A string with the table content in a tabular format. 
+    *
+    * @throws  PersistenceException
+    * @throws  SQLException
+    *          If any issue was encountered. Since this method is supposed to be called only in debug mode,
+    *          it's up to programmer to decide what went wrong.
+    */
+   public String sqlTableContent(int limit)
+   throws PersistenceException, SQLException
+   {
+      String sql = "select * from " + dmoInfo.sqlTable;
+      if (limit > 0)
+      {
+         sql += " limit " + limit;
+      }
+      
+      ResultSet res = persistence.getSession().getConnection().prepareStatement(sql).executeQuery();
+      ResultSetMetaData md = res.getMetaData();
+      int cc = md.getColumnCount();
+      int[] lens = new int[cc];
+      
+      List<String[]> rows = new ArrayList<>(10);
+      while (res.next())
+      {
+         String[] row = new String[cc];
+         for (int k = 1; k <= cc; k++)
+         {
+            row[k - 1] = res.getString(k);
+            int length = row[k - 1] == null ? 4 : row[k - 1].length();
+            if (lens[k - 1] < length)
+            {
+               lens[k - 1] = length;
+            }
+         }
+         rows.add(row);
+      }
+      
+      StringBuilder sb = new StringBuilder();
+      sb.append("ABL: ").append(dmoInfo.legacyTable).append("/ SQL:").append(dmoInfo.sqlTable).append("\n");
+      for (int k = 1; k <= cc; k++)
+      {
+         String label = md.getColumnLabel(k);
+         if (lens[k - 1] < label.length())
+         {
+            lens[k - 1] = label.length();
+         }
+         
+         if (lens[k - 1] > 32)
+         {
+            lens[k - 1] = 32;
+         }
+         else  if (lens[k - 1] < 4)
+         {
+            lens[k - 1] = 4;
+         }
+         
+         if (k != 1)
+         {
+            sb.append(" | ");
+         }
+         fit(sb, label, lens[k - 1], md.getColumnType(k));
+      }
+      sb.append("\n");
+      
+      for (int k = 1; k <= cc; k++)
+      {
+         if (k != 1)
+         {
+            sb.append("-+-");
+         }
+         int len = lens[k - 1];
+         while (len-- > 0)
+         {
+            sb.append("-");
+         }
+      }
+      sb.append("\n");
+      
+      for (String[] row : rows)
+      {
+         for (int k = 1; k <= cc; k++)
+         {
+            if (k != 1)
+            {
+               sb.append(" | ");
+            }
+            fit(sb, row[k - 1], lens[k - 1], md.getColumnType(k));
+         }
+         
+         sb.append("\n");
+      }
+      
+      res.close();
+      return sb.toString();
+   }
+   
+   /**
+    * Helper method for {@link #sqlTableContent(int)}. Used for generating the tabular pretty format. 
+    *
+    * @param   sb {@code StringBuilder} to put the result into.
+    *          The 
+    * @param   text
+    *          The value to be formatted.
+    * @param   size
+    *          The available space.
+    * @param   type
+    *          The column type. Used for alignment.
+    */
+   private void fit(StringBuilder sb, String text, int size, int type)
+   {
+      boolean leftAlign = false;
+      switch (type)
+      {
+         case Types.NCHAR:
+         case Types.NVARCHAR:
+         case Types.CHAR:
+         case Types.VARCHAR:
+         case Types.LONGVARCHAR:
+            leftAlign = true;
+            break;
+      }
+      
+      String ret;
+      if (text == null)
+      {
+         ret = "null";
+      }
+      else if (text.length() <= size)
+      {
+         ret = text;
+      }
+      else
+      {
+         ret = text.substring(0, size);
+      }
+      
+      int k = size - ret.length();
+      if (leftAlign)
+      {
+         sb.append(ret);
+      }
+      while (k-- > 0)
+      {
+         sb.append(" ");
+      }
+      if (!leftAlign) 
+      {
+         sb.append(ret);
+      }
    }
 }

=== removed file 'src/com/goldencode/p2j/persist/Reversible.java'
--- src/com/goldencode/p2j/persist/Reversible.java	2020-09-06 23:15:41 +0000
+++ src/com/goldencode/p2j/persist/Reversible.java	1970-01-01 00:00:00 +0000
@@ -1,254 +0,0 @@
-/*
-** Module   : Reversible.java
-** Abstract : Abstract base class for reversible database actions
-**
-** Copyright (c) 2004-2020, Golden Code Development Corporation.
-**
-** -#- -I- --Date-- --JPRM-- ---------------------------Description------------------------------
-** 001 ECF 20070130   @32042 Created initial version. Moved implementation
-**                           from inner class of RecordBuffer to a top
-**                           level class.
-** 002 ECF 20071221   @36547 Modified constructor. Throw NPE if dmo
-**                           parameter is null.
-** 003 CA  20080604   @38538 Allow the DMO to be changed (when a DELETE or
-**                           CREATE action is passed to the parent block,
-**                           the DMO must be set to the chain's DMO).
-**                           Added new c'tor variant.
-** 004 CA  20080606   @38598 Added duplicate() method.
-** 005 ECF 20080628   @39071 Track whether DMO was newly created.
-** 006 ECF 20080925   @39944 Refactored to reduce memory use. Some
-**                           functionality moved to AbstractReversible and
-**                           concrete subclasses.
-** 007 ECF 20081020   @40210 Added methods necessary to fix rollback
-**                           problems at the full transaction level.
-** 008 CA  20091202   @44468 Removed the newlyCreated c'tor parameter - the 
-**                           flag will be set on rollback, depending on the 
-**                           existence of Create operations; currently is set
-**                           only for undoable tables.
-** 009 ECF 20140305          Replaced Apache commons logging with J2SE logging.
-** 010 ECF 20200906          New ORM implementation.
-*/
-
-/*
-** This program is free software: you can redistribute it and/or modify
-** it under the terms of the GNU Affero General Public License as
-** published by the Free Software Foundation, either version 3 of the
-** License, or (at your option) any later version.
-**
-** This program is distributed in the hope that it will be useful,
-** but WITHOUT ANY WARRANTY; without even the implied warranty of
-** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-** GNU Affero General Public License for more details.
-**
-** You may find a copy of the GNU Affero GPL version 3 at the following
-** location: https://www.gnu.org/licenses/agpl-3.0.en.html
-** 
-** Additional terms under GNU Affero GPL version 3 section 7:
-** 
-**   Under Section 7 of the GNU Affero GPL version 3, the following additional
-**   terms apply to the works covered under the License.  These additional terms
-**   are non-permissive additional terms allowed under Section 7 of the GNU
-**   Affero GPL version 3 and may not be removed by you.
-** 
-**   0. Attribution Requirement.
-** 
-**     You must preserve all legal notices or author attributions in the covered
-**     work or Appropriate Legal Notices displayed by works containing the covered
-**     work.  You may not remove from the covered work any author or developer
-**     credit already included within the covered work.
-** 
-**   1. No License To Use Trademarks.
-** 
-**     This license does not grant any license or rights to use the trademarks
-**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
-**     of Golden Code Development Corporation. You are not authorized to use the
-**     name Golden Code, FWD, or the names of any author or contributor, for
-**     publicity purposes without written authorization.
-** 
-**   2. No Misrepresentation of Affiliation.
-** 
-**     You may not represent yourself as Golden Code Development Corporation or FWD.
-** 
-**     You may not represent yourself for publicity purposes as associated with
-**     Golden Code Development Corporation, FWD, or any author or contributor to
-**     the covered work, without written authorization.
-** 
-**   3. No Misrepresentation of Source or Origin.
-** 
-**     You may not represent the covered work as solely your work.  All modified
-**     versions of the covered work must be marked in a reasonable way to make it
-**     clear that the modified work is not originating from Golden Code Development
-**     Corporation or FWD.  All modified versions must contain the notices of
-**     attribution required in this license.
-*/
-
-package com.goldencode.p2j.persist;
-
-import java.util.logging.*;
-import com.goldencode.p2j.util.LogHelper;
-
-/**
- * Abstract base class of various types of database actions that must be
- * reversible.  Invocation of the {@link #rollback(boolean, boolean)} method
- * reverses a specific database action on that record.  The action taken to
- * roll back the original action depends upon the subclass' implementation of
- * the <code>rollback</code> method.
- */
-abstract class Reversible
-{
-   /** Logger */
-   protected static final Logger LOG = LogHelper.getLogger(Reversible.class);
-   
-   /** Was DMO record newly created at the time Reversible was created? */
-   private boolean newlyCreated;
-   
-   /**
-    * Get a string representation of the internal state of this object,
-    * primarily for debugging purposes.
-    *
-    * @return  String representing this object's state.
-    */
-   public String toString()
-   {
-      return getAction() + " of " + getDMOName() + " [ID " + getId() + "]";
-   }
-   
-   /**
-    * Get a string which briefly describes the action which this object
-    * will reverse upon rollback.
-    * 
-    * @return  Action string.
-    */
-   protected String getAction()
-   {
-      return null;
-   }
-   
-   /**
-    * Indicate whether this <code>Reversible</code> implementation stores its
-    * DMO locally, as opposed to storing an identifier and having to retrieve
-    * the DMO from the backing database, or not making a DMO available at all.
-    * 
-    * @return  <code>true</code> if the DMO is stored locally, else
-    *          <code>false</code>.
-    */
-   protected abstract boolean storesDMO();
-   
-   /**
-    * Get the unqualified interface name of the DMO being managed by this
-    * reversible.
-    * 
-    * @return  DMO interface name.
-    */
-   protected abstract String getDMOName();
-   
-   /**
-    * Roll back the database change represented by this object.
-    * <p>
-    * Subclasses must implement this method in a manner appropriate to
-    * the database actions they represent.
-    * 
-    * @param   rollForward
-    *          If <code>true</code>, this method is being invoked in order to
-    *          re-roll forward a non-undoable change, after a database-level
-    *          rollback.  This indicates the modification is made within a
-    *          new transaction invoked after the database-level rollback.
-    *          If <code>false</code>, this method is being invoked in order to
-    *          roll back an undoable change within the context of an
-    *          application-level, full transaction or sub-transaction
-    *          rollback.
-    * @param   transaction
-    *          <code>true</code> if this rollback occurs at a full transaction
-    *          boundary, else <code>false</code>.
-    *
-    * @throws  PersistenceException
-    *          if an error occurs at the database or in the persistence
-    *          layer when reversing the action.
-    */
-   protected abstract void rollback(boolean rollForward, boolean transaction)
-   throws PersistenceException;
-   
-   /**
-    * Get the underlying DMO.
-    *
-    * @return  DMO.
-    */
-   protected abstract Record getDMO();
-   
-   /**
-    * Set the underlying DMO for this reversible action.
-    * 
-    * @param   dmo
-    *          The underlying DMO; may not be null.
-    * 
-    * @throws  NullPointerException
-    *          if <code>dmo</code> is <code>null</code>.
-    */
-   protected abstract void setDMO(Record dmo);
-   
-   /**
-    * Get the ID of the underlying DMO.
-    *
-    * @return  DMO ID.
-    */
-   protected abstract Long getId();
-   
-   /**
-    * Prepare for this reversible to be rolled back.  Generally, this will
-    * involve readying the DMO which will be acted upon by the rollback
-    * actions.
-    * 
-    * @param   dmo
-    *          If non-<code>null</code>, the caller is providing a DMO which
-    *          it thinks is the appropriate object to act upon during rollback
-    *          processing.
-    */
-   protected void prepareRollback(Record dmo)
-   {
-   }
-   
-   /**
-    * Indicate whether the DMO which is the target of a rollback was newly
-    * created by the current context.
-    * 
-    * @return  <code>true</code> to indicate target DMO was newly created by
-    *          the current context;  else <code>false</code>.
-    */
-   protected boolean isNewlyCreated()
-   {
-      return newlyCreated;
-   }
-   
-   /**
-    * Indicate whether the DMO which is the target of a rollback was newly
-    * created by the current context.
-    * 
-    * @param   isNew
-    *          <code>true</code> to indicate <code>dmo</code> is newly created
-    *          by the current context;  else <code>false</code>.
-    */
-   protected void setNewlyCreated(boolean isNew)
-   {
-      this.newlyCreated = isNew;
-   }
-   
-   /**
-    * Duplicate this reversible action. Implementations which require 
-    * this behavior must override this method.
-    * 
-    * @param   key
-    *          The key to set for the new reversible action.
-    * 
-    * @return  This implementation does not return normally;  override to
-    *          return a duplicate of this reversible.
-    * 
-    * @throws  UnsupportedOperationException
-    *          If this operation is not supported.
-    */
-   Reversible duplicate(Long key)
-   {
-      throw new UnsupportedOperationException(
-            "Duplicate is not supported for reversible " + 
-            this.toString());
-   }
-}

=== added file 'src/com/goldencode/p2j/persist/SerializeHiddenable.java'
--- src/com/goldencode/p2j/persist/SerializeHiddenable.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/persist/SerializeHiddenable.java	2020-11-18 21:54:53 +0000
@@ -0,0 +1,102 @@
+/*
+** Module   : SerializeHiddenable.java
+** Abstract : Declares the public accessors of SERIALIZE-HIDDEN attribute of DataSet/BufferField.
+**
+** Copyright (c) 2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** 001 OM  20190403 Created initial version.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+**
+** Additional terms under GNU Affero GPL version 3 section 7:
+**
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+**
+**   0. Attribution Requirement.
+**
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+**
+**   1. No License To Use Trademarks.
+**
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+**
+**   2. No Misrepresentation of Affiliation.
+**
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+**
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+**
+**   3. No Misrepresentation of Source or Origin.
+**
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.persist;
+
+import com.goldencode.p2j.util.*;
+
+/**
+ * Declares the public accessors of SERIALIZE-HIDDEN attribute of {@code DataSet}/ {@code BufferField}.
+ */
+public interface SerializeHiddenable
+{
+   /**
+    * Checks whether fields are written when the temp-table is serialized, usually as  JSON or XML.
+    * This represents the getter for {@code SERIALIZE-HIDDEN} ABL attribute.
+    *
+    * @return  {@code true} when the fields are skipped from serialization.
+    */
+   @LegacyAttribute(name = "SERIALIZE-HIDDEN")
+   public logical getSerializeHidden();
+   
+   /**
+    * Allow to configure whether fields are written when the temp-table is serialized, usually as  JSON
+    * or XML. This represents the setter for {@code SERIALIZE-HIDDEN} ABL attribute.
+    *
+    * @param   val
+    *          {@code true} when the fields are to be skipped from serialization.
+    */
+   @LegacyAttribute(name = "SERIALIZE-HIDDEN", setter = true)
+   public void setSerializeHidden(logical val);
+   
+   /**
+    * Allow to configure whether the filed is written when the temp-table is serialized, usually as JSON
+    * or XML. This represents the setter for {@code SERIALIZE-HIDDEN} ABL attribute.
+    *
+    * @param   val
+    *          {@code true} when the fields are to be skipped from serialization.
+    */
+   @LegacyAttribute(name = "SERIALIZE-HIDDEN", setter = true)
+   public void setSerializeHidden(boolean val);
+}
+

=== modified file 'src/com/goldencode/p2j/persist/SortCriterion.java'
--- src/com/goldencode/p2j/persist/SortCriterion.java	2020-10-01 22:14:40 +0000
+++ src/com/goldencode/p2j/persist/SortCriterion.java	2020-10-09 21:13:00 +0000
@@ -90,6 +90,8 @@
 ** 035 ECF 20200906          New ORM implementation.
 ** 036 OM  20201001          Dropped redundant ORDER BY elements in multi-table queries.
 **     OM  20201001          Improved DMO manipulation performance by caching slow Property annotation access.
+**     OM  20201007          Optimized SortCriterion by using DmoMeta data instead of map lookups. Simplified
+**                           API by dropping unneeded parameters. Optimized sort phrase parsing.
 */
 
 /*
@@ -211,6 +213,7 @@
    /** Flag indicating if the 'withNulls' is activated in {@link #toWhereExpression}. */
    private static final boolean WHERE_WITH_NULLS = 
       "true".equalsIgnoreCase(System.getProperty("WHERE_WITH_NULLS"));
+   
    /** Shared cache of immutable {@code SortCriterion} lists */
    private static final ExpiryCache<CacheKey, List<SortCriterion>> cache = new LRUCache<>(65536);
    
@@ -242,7 +245,7 @@
    private final String propertyName;
    
    /** Sort property name, including subscript if any, usually qualified */
-   private String originalName;
+   private final String originalName;
    
    /** Sort property name, usually qualified */
    private String name;
@@ -253,9 +256,6 @@
    /** SQL dialect which used this sort criterion; used for rtrim calls on character properties */
    private Dialect dialect = null;
    
-   /** The target database. */
-   private final Database database;
-   
    /**
     * Constructor which parses original sort component text, deriving the property name, sort
     * direction, getter method for the property, case sensitivity of the property (character type
@@ -271,22 +271,15 @@
     *          Record buffer.
     * @param   text
     *          Text representation of sort component, as provided by query.
-    * @param   dmoIface
-    *          DMO interface.
-    * @param   dmoClass
-    *          DMO implementation class.
     *
     * @throws  PersistenceException
     *          if there is any error with the text representation of the sort
     *          component provided by the caller.
     */
-   SortCriterion(RecordBuffer buffer,
-                 String text,
-                 Class<? extends DataModelObject> dmoIface,
-                 Class<? extends Record> dmoClass)
+   SortCriterion(RecordBuffer buffer, String text)
    throws PersistenceException
    {
-      this(buffer.getDialect(), buffer.getDatabase(), text, dmoIface, dmoClass, false);
+      this(buffer.getDialect(), text, buffer.dmoInfo, false);
    }
    
    /**
@@ -304,27 +297,17 @@
     * 
     * @param   dialect
     *          Database dialect.
-    * @param   database
-    *          The target database.
     * @param   text
     *          Text representation of sort component, as provided by query.
-    * @param   dmoIface
-    *          DMO interface.
-    * @param   dmoClass
-    *          DMO implementation class.
     *
     * @throws  PersistenceException
     *          if there is any error with the text representation of the sort
     *          component provided by the caller.
     */
-   SortCriterion(Dialect dialect,
-                 Database database,
-                 String text,
-                 Class<? extends DataModelObject> dmoIface,
-                 Class<? extends Record> dmoClass)
+   SortCriterion(Dialect dialect, String text, DmoMeta dmoInfo)
    throws PersistenceException
    {
-      this(dialect, database, text, dmoIface, dmoClass, true);
+      this(dialect, text, dmoInfo, true);
    }
    
    /**
@@ -337,14 +320,10 @@
     * 
     * @param   dialect
     *          Database dialect.
-    * @param   database
-    *          The target database.
     * @param   text
     *          Text representation of sort component, as provided by query.
-    * @param   dmoIface
-    *          DMO interface.
-    * @param   dmoClass
-    *          DMO implementation class.
+    * @param   dmoInfo
+    *          Metadata for the table.
     * @param   internStrings
     *          {@code true} to intern string fields, else {@code false}.
     *
@@ -352,24 +331,20 @@
     *          if there is any error with the text representation of the sort
     *          component provided by the caller.
     */
-   SortCriterion(Dialect dialect,
-                 Database database,
-                 String text,
-                 Class<? extends DataModelObject> dmoIface,
-                 Class<? extends Record> dmoClass,
-                 boolean internStrings)
+   SortCriterion(Dialect dialect, String text, DmoMeta dmoInfo, boolean internStrings)
    throws PersistenceException
    {
       this.dialect = dialect;
-      this.database = database;
-      this.dmoClass = dmoClass;
-      String[] tmp = text.split(" ");
-      String rawName = tmp[0].trim();
+      this.dmoClass = dmoInfo.getImplementationClass();
+      
+      // parse the test and extract alias, property and optional extent
+      int spacePos = text.indexOf(' ');
+      String rawName = ((spacePos != -1) ? text.substring(0, spacePos) : text).trim();
       name = rawName;
-      originalName = (internStrings ? rawName.intern() : rawName);
-      int startPos = rawName.indexOf("[");
+      originalName = internStrings ? rawName.intern() : rawName;
+      int bracketPos = rawName.indexOf("[");
       int endPos = -1;
-      if (startPos >= 0)
+      if (bracketPos >= 0)
       {
          endPos = rawName.indexOf("]");
          if (endPos < 0)
@@ -377,39 +352,30 @@
             throw new PersistenceException("Malformed subscript text:  " + text);
          }
          
-         // Extract base name.
-         name = rawName.substring(0, startPos);
+         // extract base name
+         name = rawName.substring(0, bracketPos);
       }
       
-      int dot = name.lastIndexOf(".");
-      if (dot < 0)
+      int dotPos = name.lastIndexOf(".");
+      if (dotPos < 0)
       {
          throw new PersistenceException("Sort property may not be unqualified:  " + rawName);
       }
       
-      String propName = name.substring(dot + 1);
-      String alias = name.substring(0, dot);
-      
-      if (internStrings)
-      {
-         this.propertyName = propName.intern();
-         this.alias = alias.intern();
-      }
-      else
-      {
-         this.propertyName = propName;
-         this.alias = alias;
-      }
-      
-      if (startPos >= 0)
-      {
-         DmoMeta dmoMeta = DmoMetadataManager.getDmoInfo(dmoClass);
-         Property extProperty = dmoMeta.getFieldInfo(propertyName);
-         int extent = extProperty.index > 0 ? 0 : extProperty.extent;
+      String propName = name.substring(dotPos + 1);
+      String alias = name.substring(0, dotPos);
+      DmoMeta dmoMeta = DmoMetadataManager.getDmoInfo(dmoClass);
+      Property propMeta = dmoMeta.getFieldInfo(propName);
+      this.propertyName = propMeta.name; // already interned, anyway
+      this.alias = internStrings ? alias.intern() : alias;
+      
+      if (bracketPos >= 0)
+      {
+         int extent = propMeta.index > 0 ? 0 : propMeta.extent;
          if (extent > 0)
          {
             // extract subscript
-            String sub = rawName.substring(startPos + 1, endPos);
+            String sub = rawName.substring(bracketPos + 1, endPos);
             try
             {
                subscript = Integer.parseInt(sub);
@@ -428,11 +394,11 @@
          name = name.intern();
       }
       
-      // Determine sort direction.
-      ascending = (tmp.length == 1 || !"desc".equalsIgnoreCase(tmp[1].trim()));
+      // determine sort direction
+      ascending = (spacePos == -1 || !"desc".equalsIgnoreCase(text.substring(spacePos + 1).trim()));
       
-      // Get backing getter method.
-      if (TemporaryBuffer.MULTIPLEX_FIELD_NAME.equals(propertyName))
+      // get backing getter method
+      if (propMeta.id == ReservedProperty.ID_MULTIPLEX)
       {
          method = null;
          isCharacter = false;
@@ -442,21 +408,21 @@
       else
       {
          String ccPrefix = null;
-         Class<?> iface = DatabaseManager.PRIMARY_KEY.equals(propertyName)
-                          ? Persistable.class
-                          : dmoIface;
-         method = PropertyHelper.allGettersByProperty(iface).get(propertyName);
+         method = propMeta.id == ReservedProperty.ID_PRIMARY_KEY
+                  ? PropertyHelper.allGettersByProperty(Persistable.class).get(propertyName)
+                  : propMeta.annMethod; 
          
-         // Determine case sensitivity and computed column prefix, if needed.
+         // determine case sensitivity and computed column prefix, if needed
          boolean caseSens = false;
-         isCharacter = character.class.equals(method.getReturnType());
+         isCharacter = propMeta._isCharacter;
          if (isCharacter)
          {
             Boolean ccIgnoreCase = null;
             if (dialect.needsComputedColumns())
             {
-               ccIgnoreCase = DatabaseManager.getIgnoreCase(dmoClass, propertyName);
+               ccIgnoreCase = dmoMeta.isIndexedIgnoreCase(propertyName);
             }
+            
             if (ccIgnoreCase != null)
             {
                caseSens = !ccIgnoreCase;
@@ -464,8 +430,9 @@
             }
             else
             {
-               caseSens = DmoMetadataManager.isCaseSensitive(dmoIface, propertyName);
+               caseSens = propMeta.caseSensitive; 
             }
+            
             if (ccPrefix != null && internStrings)
             {
                ccPrefix = ccPrefix.intern();
@@ -477,44 +444,34 @@
    }
    
    /**
-    * Parse a sort phrase (not including the &quot;order by&quot; preamble)
-    * into a list of <code>SortCriterion</code> objects.  All components of
-    * the phrase are assumed to be properties of the same DMO.
+    * Parse a sort phrase (not including the {@code "order by"} preamble) into a list of {@code SortCriterion}
+    * objects.  All components of the phrase are assumed to be properties of the same DMO.
     *
     * @param   dialect
     *          Database dialect.
-    * @param   database
-    *          The target database.
     * @param   sort
     *          Sort phrase.
-//    * @param   schema
-//    *          Database schema.
     * @param   dmoAlias
     *          Alias qualifier which represents DMO in sort phrase.
-    * @param   dmoClass
-    *          DMO implementation class.
-    * @param   dmoIface
-    *          DMO interface.
+    * @param   dmoInfo
+    *          Metadata for the table.
     * @param   makeUnique
-    *          Indicates whether the <code>&lt;dmoAlias&gt;.recid</code>
-    *          criterion should be appended to the returned criteria list.
+    *          Indicates whether the {@code <dmoAlias>.recid} criterion should be appended to the returned
+    *          criteria list.
     *
-    * @return  List of <code>SortCriterion</code> objects.
+    * @return  List of {@code SortCriterion} objects.
     *
     * @throws  PersistenceException
     *          if there is any error parsing the given string.
     */
    public static List<SortCriterion> parse(Dialect dialect,
-                                           Database database,
                                            String sort,
-                                           /*String schema,*/
                                            String dmoAlias,
-                                           Class<? extends DataModelObject> dmoIface,
-                                           Class<? extends Record> dmoClass,
+                                           DmoMeta dmoInfo,
                                            boolean makeUnique)
    throws PersistenceException
    {
-      CacheKey key = new CacheKey(dialect, sort, /*schema,*/ dmoAlias, dmoClass, makeUnique);
+      CacheKey key = new CacheKey(dialect, sort, dmoAlias, dmoInfo.getImplementationClass(), makeUnique);
       List<SortCriterion> list = null;
       
       synchronized (cacheLock)
@@ -538,7 +495,7 @@
          String[] sortComponents = sort.split(",");
          for (String sortComp : sortComponents)
          {
-            next = new SortCriterion(dialect, database, sortComp.trim(), /*schema,*/ dmoIface, dmoClass);
+            next = new SortCriterion(dialect, sortComp.trim(), dmoInfo);
             sortCriteria.add(next);
             sortNames.add(next.getUnqualifiedName());
          }
@@ -554,16 +511,15 @@
       // criteria, if not redundant with the previous criteria.
       if (makeUnique && !sortNames.contains(DatabaseManager.PRIMARY_KEY))
       {
-         String sortComp = dmoAlias + "." + DatabaseManager.PRIMARY_KEY + " " +
-                           (pKeyAscend ? "asc" : "desc");
-         sortCriteria.add(new SortCriterion(dialect, database, sortComp, /*schema,*/ dmoIface, dmoClass));
+         String sortComp = dmoAlias + "." + DatabaseManager.PRIMARY_KEY + " " + (pKeyAscend ? "asc" : "desc");
+         sortCriteria.add(new SortCriterion(dialect, sortComp, dmoInfo));
       }
       
       // eliminate superfluous sort components if sort criteria define a superset of a unique
       // constraint.
       int size = sortCriteria.size();
       int lastUniqueComp = size;
-      Iterator<Set<String>> uniques = DmoMetadataManager.uniqueConstraints(/*schema,*/ dmoIface);
+      Iterator<Set<String>> uniques = dmoInfo.getUniqueConstraints().iterator();
       while (uniques.hasNext())
       {
          Set<String> compSet = uniques.next();
@@ -649,14 +605,7 @@
    static List<SortCriterion> parse(String sort, RecordBuffer buffer, boolean makeUnique)
    throws PersistenceException
    {
-      Dialect dialect = buffer.getDialect();
-      Database database = buffer.getDatabase();
-//      String schema = buffer.getSchema();
-      String dmoAlias = buffer.getDMOAlias();
-      Class<? extends Record> dmoClass = buffer.getDMOImplementationClass();
-      Class<? extends DataModelObject> dmoIface = buffer.getDMOInterface();
-      
-      return parse(dialect, database, sort, /*schema,*/ dmoAlias, dmoIface, dmoClass, makeUnique);
+      return parse(buffer.getDialect(), sort, buffer.getDMOAlias(), buffer.dmoInfo, makeUnique);
    }
    
    /**

=== modified file 'src/com/goldencode/p2j/persist/SourceData.java'
--- src/com/goldencode/p2j/persist/SourceData.java	2020-05-03 20:30:03 +0000
+++ src/com/goldencode/p2j/persist/SourceData.java	2021-01-29 00:53:41 +0000
@@ -2,14 +2,16 @@
 ** Module   : SourceData.java
 ** Abstract : Describes an external source from which data is read into a buffer.
 **
-** Copyright (c) 2017-2020, Golden Code Development Corporation.
+** Copyright (c) 2017-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20170820 Created initial version.
 ** 002 ECF 20171008 Implemented file as an output resource.
 ** 003 ECF 20190120 Added implementation for c'tor which accepts longchar.
 ** 004 OM  20190327 Renamed to SourceData to avoid conflicts with DataSet source.
 ** 005 CA  20200503 Added c'tor to read data from a JsonObject instance (stubbed).
+** 006 OM  20201120 Implementing Closeable interface. Lazily open the file stream.
+**     OM  20210120 Added full type support, including validation and error handling.
 */
 
 /*
@@ -25,39 +27,39 @@
 **
 ** You may find a copy of the GNU Affero GPL version 3 at the following
 ** location: https://www.gnu.org/licenses/agpl-3.0.en.html
-** 
+**
 ** Additional terms under GNU Affero GPL version 3 section 7:
-** 
+**
 **   Under Section 7 of the GNU Affero GPL version 3, the following additional
 **   terms apply to the works covered under the License.  These additional terms
 **   are non-permissive additional terms allowed under Section 7 of the GNU
 **   Affero GPL version 3 and may not be removed by you.
-** 
+**
 **   0. Attribution Requirement.
-** 
+**
 **     You must preserve all legal notices or author attributions in the covered
 **     work or Appropriate Legal Notices displayed by works containing the covered
 **     work.  You may not remove from the covered work any author or developer
 **     credit already included within the covered work.
-** 
+**
 **   1. No License To Use Trademarks.
-** 
+**
 **     This license does not grant any license or rights to use the trademarks
 **     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
 **     of Golden Code Development Corporation. You are not authorized to use the
 **     name Golden Code, FWD, or the names of any author or contributor, for
 **     publicity purposes without written authorization.
-** 
+**
 **   2. No Misrepresentation of Affiliation.
-** 
+**
 **     You may not represent yourself as Golden Code Development Corporation or FWD.
-** 
+**
 **     You may not represent yourself for publicity purposes as associated with
 **     Golden Code Development Corporation, FWD, or any author or contributor to
 **     the covered work, without written authorization.
-** 
+**
 **   3. No Misrepresentation of Source or Origin.
-** 
+**
 **     You may not represent the covered work as solely your work.  All modified
 **     versions of the covered work must be marked in a reasonable way to make it
 **     clear that the modified work is not originating from Golden Code Development
@@ -67,121 +69,339 @@
 
 package com.goldencode.p2j.persist;
 
+import com.goldencode.p2j.persist.serial.*;
 import com.goldencode.p2j.util.*;
-
 import java.io.*;
+import java.util.*;
 
 /**
- * Object which describes an external source from which data is read into a temp-table buffer
- * or data set member buffer.
+ * Object which describes an external source from which data is read into a temp-table buffer or dataset
+ * member buffer.
  */
 public class SourceData
+implements Serializator
 {
    /** Normalized input stream */
    private InputStream stream = null;
    
-   /**
-    * Constructor.
-    * 
-    * @param   source
-    *          Object from which to read data.  This should be a 
-    *          {@link com.goldencode.p2j.oo.json.objectmodel.JsonConstruct}.
-    *          WARNING: do not add generics to the parameter, as this creates problems in compile.
-    */
-   public SourceData(object source)
-   {
-      UnimplementedFeature.missing("SourceData(jsonObject)");
-   }
-   
-   /**
-    * Constructor.
-    * 
-    * @param   source
-    *          Object from which to read data.
-    */
-   public SourceData(character source)
-   {
-      initializeRemote(source.toStringMessage());
-   }
-   
-   /**
-    * Constructor.
-    * 
-    * @param   source
-    *          Object from which to read data.
-    */
-   public SourceData(String source)
-   {
-      initializeRemote(source);
-   }
-   
-   /**
-    * Constructor.
-    * 
-    * @param   source
-    *          Pointer to area of memory from which to read data.
-    */
-   public SourceData(memptr source)
-   {
-      UnimplementedFeature.missing("SourceData c'tor");
-   }
-   
-   /**
-    * Constructor.
-    * 
-    * @param   source
-    *          Handle of object from which to read data.
-    */
-   public SourceData(handle source)
-   {
-      UnimplementedFeature.missing("SourceData c'tor");
-   }
-   
-   /**
-    * Constructor.
-    * 
-    * @param   source
-    *          Object from which to read data.
-    */
-   public SourceData(longchar source)
-   {
-      // TODO: making a copy of the backing byte array could pose a memory problem for large
-      // longchar values
-      stream = new ByteArrayInputStream(source.asByteArray(0, source.lengthOf()));
-   }
-   
-   /**
-    * Get the input stream representing the source resource from which data will be read.
-    * This may be a remote or a local resource.
-    * 
+   /** The file name if such source was created. */
+   private String fileName = null;
+   
+   /**
+    * Constant used to identify the calls from READ-XML method. Also used to store the supported stream types
+    * for this method.
+    */
+   public static final String SD_READ_XML = "READ-XML";
+   
+   /**
+    * Constant used to identify the calls from READ-XMLSCHEMA method. Also used to store the supported stream
+    * types for this method.
+    */
+   public static final String SD_READ_XMLSCHEMA = "READ-XMLSCHEMA";
+   
+   /**
+    * Constant used to identify the calls from READ-JSON method. Also used to store the supported stream types
+    * for this method.
+    */
+   public static final String SD_READ_JSON = "READ-JSON";
+   
+   /* The initialization of static member data. */
+   private static final Map<String, Integer> supportedStreams = new HashMap<>();
+   static
+   {
+      supportedStreams.put(SD_READ_XML, SER_FILE | SER_MEMPTR | SER_HANDLE | SER_LONGCHAR);
+      supportedStreams.put(SD_READ_XMLSCHEMA, SER_FILE | SER_MEMPTR | SER_HANDLE | SER_LONGCHAR);
+      supportedStreams.put(SD_READ_JSON,
+                           SER_FILE | SER_MEMPTR | SER_HANDLE | SER_LONGCHAR | SER_JSON_ARRAY | SER_JSON_OBJECT);
+   }
+   
+   /** Local copy of the stream type configured in constructor. */
+   private final String origType;
+   
+   /** Local reference to stream (or stream name), as configured in constructor. */
+   private final BaseDataType origSrc;
+   
+   /**
+    * The constructor saves the configured parameters but does not process them in any way. The validation
+    * will be executed later, when the calling method is in progress.
+    * 
+    * @param   type
+    *          The source stream type.
+    * @param   source
+    *          The reference to resource or the file name.
+    */
+   public SourceData(character type, BaseDataType source)
+   {
+      this((type == null) ? null : type.toJavaType(), source);
+   }
+   
+   /**
+    * The constructor saves the configured parameters but does not process them in any way. The validation
+    * will be executed later, when the calling method is in progress.
+    * 
+    * @param   type
+    *          The source stream type.
+    * @param   source
+    *          The reference to resource or the file name.
+    */
+   public SourceData(String type, BaseDataType source)
+   {
+      origType = type;
+      origSrc = source;
+   }
+   
+   /**
+    * The constructor saves the configured parameters but does not process them in any way. The validation
+    * will be executed later, when the calling method is in progress.
+    * 
+    * @param   type
+    *          The source stream type.
+    * @param   source
+    *          The file name.
+    */
+   public SourceData(String type, String source)
+   {
+      origType = type;
+      origSrc = new character(source);
+   }
+   
+   /**
+    * Configures the resource stream types for the current usage. The caller passes in its name and the
+    * method does the selection. It also does the verification whether the already configured parameters (in
+    * the constructor) are valid and eventual raise the error condition.
+    * 
+    * @param   method
+    *          The identifier for the method using the source stream. It is used to get the set of acceptable
+    *          stream types to check against them.
+    * @param   widgetType
+    *          The parent widget. Only used for composing the error messages.
+    *
+    * @return  {@code true} if the parameters configured in constructor seems correct. This method does not
+    *          check the content, only the variable types. If there is not a match with the possible streams
+    *          supported by the {@code method}, {@code false} is returned, after eventually raising a specific
+    *          error condition.
+    */
+   public boolean configureSupportedSources(String method, String widgetType)
+   {
+      boolean isJson = method.contains("JSON");
+      if (origType == null)
+      {
+         ErrorManager.recordOrShowError(5442, method, "character");
+         // Invalid datatype for argument to method ''<name>. Expecting ''<name>
+         return false;
+      }
+      
+      if (origSrc == null || origSrc.isUnknown())
+      {
+         ErrorManager.recordOrShowError(4065, method, widgetType);
+         // **The <attribute> attribute on the <widget id> has invalid arguments. (4065)
+         return false;
+      }
+      
+      // [method] must always be one of the supported methods 
+      int supportedSources = supportedStreams.get(method);
+      
+      switch (origType.toUpperCase())
+      {
+         case TYPE_FILE:
+            if ((supportedSources & SER_FILE) != 0)
+            {
+               if ((origSrc instanceof longchar))
+               {
+                  // no error, but false
+                  return false;
+               }
+               
+               if (!(origSrc instanceof character))
+               {
+                  ErrorManager.recordOrShowError(4065, method, widgetType);
+                  // **The <attribute> attribute on the <widget id> has invalid arguments. (4065)
+                  return false;
+               }
+               return true;
+            }
+            break;
+         
+         case TYPE_STREAM:
+            if ((supportedSources & SER_STREAM) != 0)
+            {
+               return true;
+            }
+            break;
+         
+         case TYPE_STREAM_HANDLE:
+            if ((supportedSources & SER_STREAM_HANDLE) != 0)
+            {
+               return true;
+            }
+            break;
+         
+         case TYPE_MEMPTR:
+            if ((supportedSources & SER_MEMPTR) != 0)
+            {
+               if (!(origSrc instanceof memptr))
+               {
+                  if (isJson)
+                  {
+                     ErrorManager.recordOrShowError(15362);
+                     // READ-JSON source is not a valid LONGCHAR or MEMPTR. (15362)
+                     ErrorManager.recordOrShowError(17956);
+                     // Unable to create reader for READ-JSON (17956)
+                  }
+                  else
+                  {
+                     ErrorManager.recordOrShowError(4065, method, widgetType);
+                     // **The <attribute> attribute on the <widget id> has invalid arguments. (4065)
+                  }
+                  return false;
+               }
+               return true;
+            }
+            break;
+         
+         case TYPE_HANDLE:
+            if (isJson)
+            {
+               ErrorManager.recordOrShowError(15356);
+               // Handle type not valid as JSON input source. (15356)
+               return false;
+            }
+            else
+            {
+               ErrorManager.recordOrShowError(10515);
+               // Handle type not valid as XML input source. (10515)
+               ErrorManager.recordOrShowError(4065, method, widgetType);
+               // **The <attribute> attribute on the <widget id> has invalid arguments. (4065)
+               return false;
+            }
+         
+         case TYPE_LONGCHAR:
+            if ((supportedSources & SER_LONGCHAR) != 0)
+            {
+               if (!(origSrc instanceof longchar))
+               {
+                  if (isJson)
+                  {
+                     ErrorManager.recordOrShowError(15362);
+                     // READ-JSON source is not a valid LONGCHAR or MEMPTR. (15362)
+                     ErrorManager.recordOrShowError(17956);
+                     // Unable to create reader for READ-JSON (17956)
+                  }
+                  else
+                  {
+                     ErrorManager.recordOrShowError(4065, method, widgetType);
+                     // **The <attribute> attribute on the <widget id> has invalid arguments. (4065)
+                     return false;
+                  }
+                  return false;
+               }
+               return true;
+            }
+            break;
+         
+         case TYPE_JSON_OBJECT:
+            if ((supportedSources & SER_JSON_OBJECT) != 0)
+            {
+               return true;
+            }
+            break;
+         
+         case TYPE_JSON_ARRAY:
+            if ((supportedSources & SER_JSON_ARRAY) != 0)
+            {
+               return true;
+            }
+            break;
+      }
+      
+      ErrorManager.recordOrShowError(isJson ? 15357 : 13184, origType);
+      // err 13184: Invalid source-type for READ-XML: <argument>.
+      // err 15357: Invalid source-type for READ-JSON: <type>.
+      return false;
+   }
+   
+   /**
+    * Get the input stream representing the source resource from which data will be read. This may be backed
+    * by a remote or a local resource.
+    *
     * @return  Input stream.
+    * 
+    * @throws  IOException
+    *          if the method encounters issues with the resource.
     */
-   public InputStream getInputStream()
+   @Override
+   public InputStream getStream()
+   throws IOException
    {
-      return stream;
+      // if already built, return it again 
+      if (stream != null)
+      {
+         return stream;
+      }
+      
+      switch (origType.toUpperCase())
+      {
+         case TYPE_FILE:
+            if (origSrc instanceof character)
+            {
+               fileName = ((character) origSrc).toJavaType();
+               try
+               {
+                  stream = new InputStreamWrapper(StreamFactory.openFileStream(fileName, false, false));
+               }
+               catch (ErrorConditionException ece)
+               {
+                  throw new FileNotFoundException(fileName);
+               }
+               return stream;
+            }
+            return null;
+         
+         case TYPE_LONGCHAR:
+            if (origSrc instanceof longchar)
+            {
+               longchar source = (longchar) origSrc;
+               stream = new ByteArrayInputStream(source.asByteArray(0, source.lengthOf()));
+               return stream;
+            }
+            return null;
+         
+         case TYPE_MEMPTR:
+            if (origSrc instanceof memptr)
+            {
+               memptr source = (memptr) origSrc;
+               stream = new ByteArrayInputStream(source.asByteArray(0, source.lengthOf()));
+               return stream;
+            }
+            return null;
+      }
+      
+      return null;
    }
    
    /**
     * Close the input stream underlying this data source.
-    * 
+    *
     * @throws  IOException
     *          if there is an error closing the stream.
     */
-   void close()
+   public void close()
    throws IOException
    {
-      stream.close();
+      if (stream != null)
+      {
+         stream.close();
+      }
    }
    
    /**
-    * Initialize the remote input stream which backs this data source.
-    * 
-    * @param   filename
-    *          Client-side file name.
+    * Obtain the file name of the source, if one was used to create the source.
+    *
+    * @return  the file name of the source, if one was used to create the source. Otherwise {@code null}.
     */
-   private void initializeRemote(String filename)
+   public String getFileName()
    {
-      stream = new InputStreamWrapper(StreamFactory.openFileStream(filename, false, false));
+      return fileName;
    }
 }
 

=== modified file 'src/com/goldencode/p2j/persist/StaticTempTable.java'
--- src/com/goldencode/p2j/persist/StaticTempTable.java	2020-10-02 22:45:29 +0000
+++ src/com/goldencode/p2j/persist/StaticTempTable.java	2021-01-28 20:00:25 +0000
@@ -2,7 +2,7 @@
 ** Module   : StaticTempTable.java
 ** Abstract : Static 4GL temp-table object.
 **
-** Copyright (c) 2013-2020, Golden Code Development Corporation.
+** Copyright (c) 2013-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 SVL 20131115 Created initial version. Most of TODOs is just about throwing a proper error.
@@ -26,8 +26,12 @@
 ** 016 SVL 20190801 Added get/setCodePageSupplier.
 ** 017 ECF 20200906 New ORM implementation.
 ** 018 AIL 20200914 Implemented _prepared abstract method.
-** 019 AIL 20200915 Moved prepared method to superclass.
+**     AIL 20200915 Moved prepared method to superclass.
 **     OM  20201002 Use DmoMeta cached information instead of map lookups.
+**     OM  20201120 Extracted SERIALIZE-NAME to dedicated interface. Implemented CLEAR state awareness.
+**     OM  20210106 Fixed 2nd parameter of TEMP-TABLE-PREPARE.
+**     OM  20210127 Replaced TableMapper.getLegacyName() triple map lookup with direct access to local
+**                  dmoMeta.legacyTable.
 */
 
 /*
@@ -97,7 +101,6 @@
  */
 public class StaticTempTable
 extends AbstractTempTable
-implements NamedSerializable
 {
    /**
     * Code pages of CLOB fields keyed by hibernate property names.
@@ -108,7 +111,7 @@
     * Code page suppliers of CLOB fields keyed by hibernate property names.
     */
    private Map<String, Supplier> codePagesSuppliers;
-
+   
    /**
     * Default constructor.
     *
@@ -121,11 +124,11 @@
       
       defaultBufferHandle = new handle();
       defaultBufferHandle.assign(defaultBuffer);
+      TemporaryBuffer buffer = (TemporaryBuffer) ((BufferImpl) defaultBuffer).buffer();
       
       TableMapper.mapTemporaryTable(this);
-      String name = TableMapper.getLegacyName(this);
-      this.name.assign(name);
-      super.undoable = ((BufferImpl)defaultBuffer).buffer().isUndoable();
+      this.name.assign(buffer.dmoInfo.legacyTable);
+      super.undoable = buffer.isUndoable();
    }
    
    /**
@@ -763,8 +766,7 @@
    @Override
    public logical tempTablePrepare(character name)
    {
-      displayPreparedIgnoring();
-      return new logical(false);
+      return tempTablePrepare((String) null);
    }
    
    /**
@@ -773,8 +775,7 @@
     * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
     *
     * @param   name
-    *          Temp-table name to be used in subsequent query statements which refer to this
-    *          temp-table.
+    *          Temp-table name to be used in subsequent query statements which refer to this temp-table.
     * @param   before
     *          Create the {@code BEFORE-TABLE} also if {@code true}.
     *
@@ -783,18 +784,52 @@
    @Override
    public logical tempTablePrepare(String name, boolean before)
    {
-      displayPreparedIgnoring();
-      return new logical(false);
-   }
-   
-   /**
-    * Signals that all the field and index definitions for a temp-table have been provided. After
-    * the call to this method no fields and indexes can be added to this temporary table.
-    * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
-    *
-    * @param   name
-    *          Temp-table name to be used in subsequent query statements which refer to this
-    *          temp-table.
+      return tempTablePrepare((String) null);
+   }
+   
+   /**
+    * Signals that all the field and index definitions for a temp-table have been provided. After
+    * the call to this method no fields and indexes can be added to this temporary table.
+    * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
+    *
+    * @param   name
+    *          Temp-table name to be used in subsequent query statements which refer to this temp-table.
+    * @param   before
+    *          Create the {@code BEFORE-TABLE} also if {@code true}.
+    *
+    * @return  {@code true} on success.
+    */
+   @Override
+   public logical tempTablePrepare(String name, logical before)
+   {
+      return tempTablePrepare((String) null);
+   }
+   
+   /**
+    * Signals that all the field and index definitions for a temp-table have been provided. After
+    * the call to this method no fields and indexes can be added to this temporary table.
+    * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
+    *
+    * @param   name
+    *          Temp-table name to be used in subsequent query statements which refer to this temp-table.
+    * @param   before
+    *          Create the {@code BEFORE-TABLE} also if {@code true}.
+    *
+    * @return  {@code true} on success.
+    */
+   @Override
+   public logical tempTablePrepare(character name, boolean before)
+   {
+      return tempTablePrepare((String) null);
+   }
+   
+   /**
+    * Signals that all the field and index definitions for a temp-table have been provided. After
+    * the call to this method no fields and indexes can be added to this temporary table.
+    * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
+    *
+    * @param   name
+    *          Temp-table name to be used in subsequent query statements which refer to this temp-table.
     * @param   before
     *          Create the {@code BEFORE-TABLE} also if {@code true}.
     *
@@ -803,8 +838,7 @@
    @Override
    public logical tempTablePrepare(character name, logical before)
    {
-      displayPreparedIgnoring();
-      return new logical(false);
+      return tempTablePrepare((String) null);
    }
    
    /**
@@ -814,12 +848,28 @@
     *
     * @return  true if operation is successful
     */
-   protected boolean _prepared()
+   public boolean _prepared()
    {
       return true;
    }
    
    /**
+    * Check whether this TEMP-TABLE is in CLEAR state: I.e. the temp-table is first created or immediately
+    * after the CLEAR() method is applied. The other two state of a temp-table are: UNPREPARED and PREPARED.
+    * The UNPREPARED state between the first definitional method has been applied and before the
+    * TEMP-TABLE-PREPARE() method is applied.
+    * <p>
+    * This method is FWD-internal. The programmer can check whether the temp-table is in an UNPREPARED or
+    * PREPARED state by checking the PREPARED attribute, but the CLEAR state is transparent.
+    *
+    * @return  Always {@code false} since the static temp-tables cannot be CLEAR-ed. 
+    */
+   public boolean _clear()
+   {
+      return false;
+   }
+   
+   /**
     * Obtain the current UNDO attribute of 4GL temp-table.
     *
     * @return  true if the the temp-table can undo.
@@ -1258,44 +1308,6 @@
    {
       return false;
    }
-   
-   /**
-    * Implementation of the read access of the {@code SERIALIZE-NAME} attribute.
-    *
-    * @return  the current value of the {@code SERIALIZE-NAME} attribute. 
-    */
-   @Override
-   public character getSerializeName()
-   {
-      String sName = TableMapper.getSerializeOptions(this).getSerializeName();
-      String serializeName = sName == null || sName.trim().isEmpty() ? name.getValue() : sName;
-
-      return new character(serializeName);
-   }
-   
-   /**
-    * Implementation of the write access of the {@code SERIALIZE-NAME} attribute.
-    *
-    * @param   sName
-    *          the new value for the {@code SERIALIZE-NAME} attribute. 
-    */
-   @Override
-   public void setSerializeName(Text sName)
-   {
-      setSerializeName(sName == null || sName.isUnknown() ? null : sName.getValue());
-   }
-   
-   /**
-    * Implementation of the write access of the {@code SERIALIZE-NAME} attribute.
-    *
-    * @param   sName
-    *          the new value for the {@code SERIALIZE-NAME} attribute. 
-    */
-   @Override
-   public void setSerializeName(String sName)
-   {
-      TableMapper.getSerializeOptions(this).setSerializeName(sName == null ? "" : sName);
-   }
 
    /**
     * Set code page supplier for the specified CLOB field.

=== modified file 'src/com/goldencode/p2j/persist/TableMapper.java'
--- src/com/goldencode/p2j/persist/TableMapper.java	2020-10-02 22:45:29 +0000
+++ src/com/goldencode/p2j/persist/TableMapper.java	2021-01-29 00:53:41 +0000
@@ -2,7 +2,7 @@
 ** Module   : TableMapper.java
 ** Abstract : Table and field name to converted DMO and property name (bidirectional).
 **
-** Copyright (c) 2013-2020, Golden Code Development Corporation.
+** Copyright (c) 2013-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20131015 Created initial version.
@@ -74,6 +74,12 @@
 **     OM  20200924 P2JIndexComponent carries multiple information to avoid map lookups for them.
 **     OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
 **     OM  20201002 Use DmoMeta cached information instead of map lookups.
+**     SVL 20201111 Support for null LABEL and COLUMN-LABEL.
+**     OM  20201029 Added case sensitive column support.
+**     OM  20201110 TableSerializeOptions are volative and cannot be cached.
+**     OM  20210122 Temp-table attributes in LegacyFieldInfo can be modified.
+**     OM  20210127 Replaced TableMapper.getLegacyName() (now deprecated) triple map lookup with direct access
+**                  to local dmoMeta.legacyTable.
 */
 
 /*
@@ -163,8 +169,7 @@
  * @param    <K>
  *           The type of the key used by the {@link #p2j progress-to-java} map. For permanent
  *           DMOs, this will be a {@link String}. For temporary DMOs, this will be an 
- *           {@link Integer} value with the <code>UNIQUE-ID</code> identifying the 
- *           {@link TempTable} resource.
+ *           {@link Integer} value with the {@code UNIQUE-ID} identifying the {@link TempTable} resource.
  */
 public abstract class TableMapper<K>
 {
@@ -256,29 +261,14 @@
     *           A buffer instance.
     * 
     * @return   The legacy table name.
+    *
+    * @deprecated Use the {@code DmoMeta.legacyTable} directly instead.
     */
+   @Deprecated
    public static String getLegacyName(Buffer buffer)
    {
       RecordBuffer buf = ((BufferImpl) buffer).buffer();
-      if (buf.isTemporary())
-      {
-         TempTable tt = buf.getParentTable();
-         String name = tt.name().getValue();
-         if (name != null)
-         {
-            // return the name of the parent table
-            return name;
-         }
-         else
-         {
-            // name not yet assigned to a static temp table, get it from the mapping
-            return getLegacyName(tt);
-         }
-      }
-      else
-      {
-         return getLegacyName(buf.getDMOInterface());
-      }
+      return buf.dmoInfo.legacyTable;
    }
    
    /**
@@ -865,40 +855,8 @@
     */
    public static String getLegacySchemaName(Class<? extends DataModelObject> dmoIface)
    {
-      String schema = DmoMetadataManager.getDmoInfo(dmoIface).getSchema();
-      
-      return schema + "." + getLegacyName(dmoIface);
-   }
-   
-   /**
-    * Get the legacy table name for the given DMO, which is part of a permanent DB.
-    * 
-    * @param    dmoIface
-    *           The DMO interface for a permanent DMO.
-    *           
-    * @return   The legacy table name.
-    * 
-    * @throws   IllegalStateException
-    *           If a DMO belonging to the {@link DatabaseManager#TEMP_TABLE_SCHEMA} temp schema
-    *           is passed as a parameter; for these cases, {@link #getLegacyName(TempTable)}
-    *           or {@link #getLegacyName(Buffer)} must be used.
-    */
-   public static String getLegacyName(Class<? extends DataModelObject> dmoIface)
-   {
       DmoMeta dmoInfo = DmoMetadataManager.getDmoInfo(dmoIface);
-      if (dmoInfo.isTempTable())
-      {
-         String msg = "Legacy table name for a temporary DMO can not be resolved using this API!";
-         
-         throw new IllegalArgumentException(msg);
-      }
-      
-      synchronized (permanentDBs)
-      {
-         PermanentTableMapper mapper = locatePerm(dmoInfo.getSchema());
-         
-         return mapper.legacyName(dmoIface);
-      }
+      return dmoInfo.getSchema() + "." + dmoInfo.legacyTable;
    }
    
    /**
@@ -931,75 +889,6 @@
    }
    
    /**
-    * Get the legacy table serialize options for the DMO referenced by the given buffer.
-    * 
-    * @param    buffer
-    *           A buffer instance.
-    * 
-    * @return   The serialize options.
-    */
-   public static TableSerializeOptions getSerializeOptions(Buffer buffer)
-   {
-      RecordBuffer buf = ((BufferImpl) buffer).buffer();
-      if (buf.isTemporary())
-      {
-         TempTable tt = buf.getParentTable();
-         return getSerializeOptions(tt);
-      }
-      else
-      {
-         return getSerializeOptions(buf.getDMOInterface());
-      }
-   }
-   
-   /**
-    * Get the legacy serialize options for the given DMO, which is part of a permanent DB.
-    * <p>
-    * This API always throws an {@link IllegalStateException}, as serialize options can be defined
-    * only for temp-tables.
-    * 
-    * @param    dmoIface
-    *           The DMO interface for a permanent DMO.
-    *           
-    * @return   n/a.
-    * 
-    * @throws   IllegalStateException
-    *           Always.
-    */
-   public static TableSerializeOptions getSerializeOptions(Class<? extends DataModelObject> dmoIface)
-   {
-      String msg;
-      if (DmoMetadataManager.getDmoInfo(dmoIface).isTempTable())
-      {
-         msg = "Legacy serialize options for a temporary DMO can not be resolved using this API!";
-      }
-      else
-      {
-         msg = "Legacy serialize options are not available for a permanent DMO!";
-      }
-      
-      throw new IllegalArgumentException(msg);
-   }
-   
-   /**
-    * Get the legacy serialize options for the given {@link TempTable} resource.
-    * 
-    * @param    tt
-    *           The {@link TempTable} resource.
-    *           
-    * @return   The legacy serialize options.
-    */
-   public static TableSerializeOptions getSerializeOptions(TempTable tt)
-   {
-      TempTableMapper mapper = locateTemp(tt);
-      
-      synchronized (mapper)
-      {
-         return mapper.serializeOptions(tt);
-      }
-   }
-   
-   /**
     * Get the legacy field name for the given property, which is defined by a DMO part of a 
     * permanent DB.
     * 
@@ -1083,7 +972,6 @@
       }
    }
    
-
    /**
     * Get the 4GL name of the extent field represented by the given property.
     * 
@@ -1212,24 +1100,6 @@
    }
    
    /**
-    * Get the legacy table name for the given {@link TempTable} resource.
-    * 
-    * @param    tt
-    *           The {@link TempTable} resource.
-    *           
-    * @return   The legacy table name.
-    */
-   public static String getLegacyName(TempTable tt)
-   {
-      TempTableMapper mapper = locateTemp(tt);
-      
-      synchronized (mapper)
-      {
-         return mapper.legacyName(tt);
-      }
-   }
-   
-   /**
     * Get the legacy field name for the given {@link TempTable} resource and property.
     * 
     * @param    tt
@@ -1717,7 +1587,7 @@
       String schema = dmoInfo.getSchema();
       
       // - mapping is kept by schema
-      // - permamentDBs are kept in a global map
+      // - permanentDBs are kept in a global map
       synchronized (permanentDBs)
       {
          PermanentTableMapper mapper = locatePerm(schema);
@@ -2705,6 +2575,7 @@
       {
          Integer key = getLegacyKey(tt);
          p2j.remove(key);
+         j2p.remove(tt);
       }
       
       /**
@@ -2724,22 +2595,6 @@
       }
       
       /**
-       * Get the legacy serialize options for the given {@link TempTable} resource.
-       * 
-       * @param    tt
-       *           The {@link TempTable} resource.
-       *           
-       * @return   The legacy serialize options.
-       */
-      protected TableSerializeOptions serializeOptions(TempTable tt)
-      {
-         Integer key = getLegacyKey(tt);
-         LegacyTableInfo info = p2j.get(key);
-         
-         return info.serializeOptions;
-      }
-      
-      /**
        * Get the mapping of temp-table IDs to {@link LegacyTableInfo} instances.
        * 
        * @return  Map of temp-table IDs to table information objects.
@@ -2940,9 +2795,6 @@
       /** The DMO implementation class. */
       private final Class<? extends Record> dmoClass;
       
-      /** The temp-table serialize options. */
-      private final TableSerializeOptions serializeOptions;
-      
       /** <code>true</code> if the table was defined with LIKE-SEQUENTIAL option. */
       private final boolean likeSequential;
       
@@ -2956,7 +2808,7 @@
        * @param   dmoInfo
        *          Object which contains metadata about the DMO.
        * 
-       * @see      #loadFields(Class)
+       * @see      #loadFields(DmoMeta)
        */
       private LegacyTableInfo(DmoMeta dmoInfo)
       {
@@ -2965,11 +2817,7 @@
          this.dmoClass = dmoInfo.getImplementationClass();
          this.validation = dmoInfo.hasValidation;
          this.likeSequential = dmoInfo.isLikeSequential;
-         this.serializeOptions = new TableSerializeOptions(dmoInfo.serializeName,
-                                                           dmoInfo.xmlNodeName,
-                                                           dmoInfo.namespaceUri,
-                                                           dmoInfo.namespacePrefix);
-         loadFields(dmoIface);
+         loadFields(dmoInfo);
          
          List<LegacyFieldInfo> fieldList = new ArrayList<>(j2p.values());
          Collections.sort(fieldList);
@@ -3032,15 +2880,14 @@
       /**
        * Load all fields from the specified class and add their mappings.
        * 
-       * @param    dmoIface
-       *           The DMO interface or a composite class with the extent fields.
+       * @param    dmoInfo
+       *           The DMO data for the interface or a composite class with the extent fields.
        * 
        * @throws   NullPointerException
        *           If a DMO property does not have a {@link Property} annotation.
        */
-      private void loadFields(Class<? extends DataModelObject> dmoIface)
+      private void loadFields(DmoMeta dmoInfo)
       {
-         DmoMeta dmoInfo = DmoMetadataManager.getDmoInfo(dmoIface);
          for (Iterator<Property> it = dmoInfo.getFields(true); it.hasNext(); )
          {
             Property fieldAnn = it.next();
@@ -3159,31 +3006,34 @@
             boolean firstSeen = fieldInfo == null;
             if (firstSeen || fieldInfo.fieldId != fieldId)
             {
-               fieldInfo = new LegacyFieldInfo(columnLabel,
-                                               fieldId,
-                                               format,
-                                               help,
-                                               initial,
-                                               decimals,
-                                               javaName,
-                                               label,
-                                               legacyName,
-                                               mandatory,
-                                               extent,
-                                               order,
-                                               position,
-                                               original,
-                                               validateMessage,
-                                               validateExpression,
-                                               (Class<? extends BaseDataType>) dataType,
-                                               initialValue,
-                                               serializeHidden,
-                                               serializeName,
-                                               xmlDataType,
-                                               xmlNodeName,
-                                               xmlNodeType,
-                                               like,
-                                               codePage);
+               fieldInfo = new LegacyFieldInfo(
+                     dmoInfo.tempTable, 
+                     columnLabel,
+                     fieldId,
+                     format,
+                     help,
+                     initial,
+                     decimals,
+                     javaName,
+                     label,
+                     legacyName,
+                     mandatory,
+                     extent,
+                     order,
+                     position,
+                     original,
+                     validateMessage,
+                     validateExpression,
+                     (Class<? extends BaseDataType>) dataType,
+                     initialValue,
+                     serializeHidden,
+                     serializeName,
+                     xmlDataType,
+                     xmlNodeName,
+                     xmlNodeType,
+                     like,
+                     codePage,
+                     fieldAnn.caseSensitive);
             }
             
             if (firstSeen) // for extent field store the first representative info only
@@ -3208,31 +3058,34 @@
                javaNames.put(extentIndex, fieldInfo);
                if (extents.get(original) == null)
                {
-                  LegacyFieldInfo extentInfo = new LegacyFieldInfo(columnLabel,
-                                                                   fieldId,
-                                                                   format,
-                                                                   help,
-                                                                   initial,
-                                                                   decimals,
-                                                                   original,
-                                                                   label,
-                                                                   legacyName,
-                                                                   mandatory,
-                                                                   extent,
-                                                                   order,
-                                                                   position,
-                                                                   "",
-                                                                   validateMessage,
-                                                                   validateExpression,
-                                                                   (Class<? extends BaseDataType>) dataType,
-                                                                   initialValue,
-                                                                   serializeHidden,
-                                                                   serializeName,
-                                                                   xmlDataType,
-                                                                   xmlNodeName,
-                                                                   xmlNodeType,
-                                                                   like,
-                                                                   codePage);
+                  LegacyFieldInfo extentInfo = new LegacyFieldInfo(
+                        dmoInfo.tempTable,
+                        columnLabel,
+                        fieldId,
+                        format,
+                        help,
+                        initial,
+                        decimals,
+                        original,
+                        label,
+                        legacyName,
+                        mandatory,
+                        extent,
+                        order,
+                        position,
+                        "",
+                        validateMessage,
+                        validateExpression,
+                        (Class<? extends BaseDataType>) dataType,
+                        initialValue,
+                        serializeHidden,
+                        serializeName,
+                        xmlDataType,
+                        xmlNodeName,
+                        xmlNodeType,
+                        like,
+                        codePage,
+                        fieldAnn.caseSensitive);
                   extents.put(original, extentInfo);
                }
             }
@@ -3386,7 +3239,7 @@
       private final String fieldLegacyName;
       
       /** Determines if this component has descending sorting. */
-      private boolean effectiveDescending;
+      private final boolean effectiveDescending;
       
       /**
        * Create a new index component information container, holding field name and sorting
@@ -3461,8 +3314,8 @@
       private final String initial;
       
       /** DECIMALS attribute of this field. */
-      private final int decimals;
-
+      private int decimals;
+      
       /** The associated DMO property name. */
       private final String javaName;
       
@@ -3473,13 +3326,13 @@
       private final String legacyName;
       
       /** EXTENT attribute of the field (from the legacy schema). */
-      private int extent;
+      private final int extent;
       
       /** ORDER attribute of the field (from the legacy schema). */
-      private int order;
+      private final int order;
       
       /** POSITION attribute of the field (from the legacy schema). */
-      private int position;
+      private final int position;
       
       /** LITERAL-QUESTION attribute of this field. */
       private boolean literalQuestion = false;
@@ -3504,20 +3357,30 @@
       
       /** Options needed when serializing temp-table data to/from external media */
       private final SerializeOptions serializeOptions;
-
+      
       /**
        * Fully qualified name of the source field from which the field definitions were copied
        * using LIKE option.
        */
       private final String like;
-
+      
        /** Code page of the CLOB field. */
       private final String codePage;
       
+      /** Flags case-sensitive character fields. */
+      private final boolean caseSensitive;
+      
+      /** Flags mutable objects. */
+      private final boolean mutable;
+      
       /**
-       * Create a new field information container, holding the legacy and converted names and
-       * field attributes.
+       * Create a new field information container, holding the legacy and converted names and field
+       * attributes.
        * 
+       * @param   mutable
+       *          If this structure is mutable. This is the case of temp-tables, which allow some of theirs
+       *          field properties to be changed programmatically, at runtime. Only the mutable attributes
+       *          have setters and their implementation must check this flag.
        * @param   columnLabel
        *          COLUMN-LABEL attribute.
        * @param   fieldId
@@ -3569,40 +3432,45 @@
        *          copied using LIKE option.
        * @param   codePage
        *          Code page of the CLOB field.
+       * @param   caseSensitive
+       *          Flags case-sensitive character fields.
        */
-      public LegacyFieldInfo(String columnLabel,
-                             Integer fieldId,
-                             String format,
-                             String help,
-                             String initial,
-                             int decimals,
-                             String javaName,
-                             String label,
-                             String legacyName,
-                             boolean mandatory,
-                             int extent,
-                             int order,
-                             int position,
-                             String original,
-                             String validateMessage,
-                             String validateExpression,
-                             Class<? extends BaseDataType> dataType,
-                             BaseDataType initialValue,
-                             boolean serializeHidden,
-                             String serializeName,
-                             String xmlDataType,
-                             String xmlNodeName,
-                             String xmlNodeType,
-                             String like,
-                             String codePage)
+      private LegacyFieldInfo(boolean mutable,
+                              String columnLabel,
+                              Integer fieldId,
+                              String format,
+                              String help,
+                              String initial,
+                              int decimals,
+                              String javaName,
+                              String label,
+                              String legacyName,
+                              boolean mandatory,
+                              int extent,
+                              int order,
+                              int position,
+                              String original,
+                              String validateMessage,
+                              String validateExpression,
+                              Class<? extends BaseDataType> dataType,
+                              BaseDataType initialValue,
+                              boolean serializeHidden,
+                              String serializeName,
+                              String xmlDataType,
+                              String xmlNodeName,
+                              String xmlNodeType,
+                              String like,
+                              String codePage,
+                              boolean caseSensitive)
       {
-         this.columnLabel = columnLabel.intern();
+         this.mutable = mutable;
+         this.columnLabel = columnLabel == null ? null : columnLabel.intern();
          this.fieldId = fieldId;
          this.help = help.intern();
          this.initial = initial == null ? null : initial.intern();
          this.decimals = decimals;
          this.javaName = javaName.intern();
-         this.label = label.intern();
+         this.label = label == null ? null : label.intern();
          this.legacyName = legacyName.intern();
          this.mandatory = mandatory;
          this.extent = extent;
@@ -3611,6 +3479,7 @@
          this.original = original.intern();
          this.validateMessage = validateMessage;
          this.validateExpression = validateExpression;
+         this.caseSensitive = caseSensitive;
          
          String defaultFormat;
          
@@ -3862,6 +3731,44 @@
       }
       
       /**
+       * Checks whether this is a case-sensitive character field.
+       *
+       * @return  {@code true} only if this is a case-sensitive character field.
+       */
+      public boolean isCaseSensitive()
+      {
+         return caseSensitive;
+      }
+      
+      /**
+       * Obtain the precision for decimal fields.
+       * 
+       * @return  the precision for decimal fields.
+       */
+      public int getDecimals()
+      {
+         return decimals;
+      }
+      
+      /**
+       * Sets the precision for decimal fields. Only for mutable objects.
+       *
+       * @param   decimals
+       *          The new precision for decimal fields.
+       *
+       * @throws  IllegalStateException
+       *          if the object is not declared as mutable.
+       */
+      public void setDecimals(int decimals)
+      {
+         if (!mutable)
+         {
+            throw new IllegalStateException("Object not mutable");
+         }
+         this.decimals = decimals;
+      }
+      
+      /**
        * Compare this field info object to another, based on its natural order. Natural order is
        * determined by field IDs.
        * 
@@ -3874,5 +3781,24 @@
       {
          return this.fieldId - o.fieldId;
       }
+      
+      /**
+       * Obtain a short sreing representation of the object used in debugging.
+       *
+       * @return  a short sreing representation of the object used in debugging.
+       */
+      @Override
+      public String toString()
+      {
+         StringBuilder sb = new StringBuilder("LFI{");
+         sb.append(legacyName).append("/").append(javaName);
+         sb.append("(").append(fieldId).append(")").append(":").append(dataType.getSimpleName());
+         if (extent != 0)
+         {
+            sb.append("[").append(extent).append("]");
+         }
+         sb.append('}');
+         return sb.toString();
+      }
    }
 }

=== modified file 'src/com/goldencode/p2j/persist/TableWrapper.java'
--- src/com/goldencode/p2j/persist/TableWrapper.java	2020-09-14 12:05:37 +0000
+++ src/com/goldencode/p2j/persist/TableWrapper.java	2021-01-13 21:04:41 +0000
@@ -1,11 +1,10 @@
 /*
 ** Module   : TableWrapper.java
-** Abstract : A wrapper for table result sets, used to serialize a table data and send it to a 
-*             remote side. 
+** Abstract : A wrapper for table result sets, used to serialize a table data and send it to a remote side.
 **
 ** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20130620 Created initial version.
 ** 002 SVL 20140611 Fixed NPE in writeExternal when no result set is transferred. Added tableName.
 ** 003 SVL 20140797 Added tableHandle field.
@@ -19,6 +18,7 @@
 **     CA  20200514 In some cases, BLOB fields are already MemoryBuffer.
 ** 008 ECF 20200906 New ORM implementation.
 ** 009 IAS 20200908 Rework (de)serialization.
+**     OM  20201120 Added implementation of XML-NODE-NAME and ERROR-STRING attributes
 */
 
 /*
@@ -136,6 +136,12 @@
    /** The XML prefix for this table definition. */
    private String xmlPrefix = null;
    
+   /** The XML-NODE-NAME attribute for this table definition. */
+   private String xmlNodeName = null;
+   
+   /** The ERROR-STRING attribute for this table definition. */
+   private String errorString = null;
+   
    /**
     * A string with all indexes of this table definition encoded as a {@code String}.
     * 
@@ -377,6 +383,48 @@
    }
    
    /**
+    * Obtain the XML node name for this table definition.
+    *
+    * @return  the XML node name for this table definition.
+    */
+   public String getXmlNodeName()
+   {
+      return xmlNodeName;
+   }
+   
+   /**
+    * Sets the XML node name for this table definition.
+    *
+    * @param   xmlNodeName
+    *          XML prefix for this table definition.
+    */
+   public void setXmlNodeName(String xmlNodeName)
+   {
+      this.xmlNodeName = xmlNodeName;
+   }
+   
+   /**
+    * Obtain the ERROR-STRING attribute for this table definition.
+    *
+    * @return  the ERROR-STRING attribute for this table definition.
+    */
+   public String getErrorString()
+   {
+      return errorString;
+   }
+   
+   /**
+    * Sets the ERROR-STRING attribute for this table definition.
+    *
+    * @param   err
+    *          ERROR-STRING attribute for this table definition.
+    */
+   public void setErrorString(String err)
+   {
+      this.errorString = err;
+   }
+   
+   /**
     * Provides an iterator over the read {@link #properties}.  This is used to access the data
     * sent by a remote side, via {@link #readExternal}. Must not be called when {@link #resultSet}
     * is set.
@@ -741,8 +789,8 @@
       Buffer defBuff = (Buffer) table.defaultBufferHandle().getResource();
       this.indexes = TableMapper.getLegacyIndexInfo(defBuff);
       this.numIndexes = indexes.split(".").length;
-      this.xmlns = defBuff.getNamespaceURI().toStringMessage();
-      this.xmlPrefix = defBuff.getNamespacePrefix().toStringMessage();
+      this.xmlns = defBuff.namespaceURI().toStringMessage();
+      this.xmlPrefix = defBuff.namespacePrefix().toStringMessage();
    }
    
    /**

=== modified file 'src/com/goldencode/p2j/persist/TargetData.java'
--- src/com/goldencode/p2j/persist/TargetData.java	2020-09-10 09:54:53 +0000
+++ src/com/goldencode/p2j/persist/TargetData.java	2021-01-29 00:53:41 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2017-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20170820 Created initial version.
 ** 002 CA  20170830 Added missing c'tor.
 ** 003 ECF 20171008 Rolled back #002. Implemented file as an output resource.
@@ -14,6 +14,8 @@
 ** 007 CA  20190720 byte[] must be converted to String before copying it.
 **     CA  20190811 Added memptr support.
 ** 008 CA  20200910 Fixed Json c'tors - these can be any object, the type is checked at runtime.
+**     OM  20201120 Implemented Closable interface. The file stream is lazily opened.
+**     OM  20210120 Added full type support, including validation and error handling.
 */
 
 /*
@@ -29,39 +31,39 @@
 **
 ** You may find a copy of the GNU Affero GPL version 3 at the following
 ** location: https://www.gnu.org/licenses/agpl-3.0.en.html
-** 
+**
 ** Additional terms under GNU Affero GPL version 3 section 7:
-** 
+**
 **   Under Section 7 of the GNU Affero GPL version 3, the following additional
 **   terms apply to the works covered under the License.  These additional terms
 **   are non-permissive additional terms allowed under Section 7 of the GNU
 **   Affero GPL version 3 and may not be removed by you.
-** 
+**
 **   0. Attribution Requirement.
-** 
+**
 **     You must preserve all legal notices or author attributions in the covered
 **     work or Appropriate Legal Notices displayed by works containing the covered
 **     work.  You may not remove from the covered work any author or developer
 **     credit already included within the covered work.
-** 
+**
 **   1. No License To Use Trademarks.
-** 
+**
 **     This license does not grant any license or rights to use the trademarks
 **     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
 **     of Golden Code Development Corporation. You are not authorized to use the
 **     name Golden Code, FWD, or the names of any author or contributor, for
 **     publicity purposes without written authorization.
-** 
+**
 **   2. No Misrepresentation of Affiliation.
-** 
+**
 **     You may not represent yourself as Golden Code Development Corporation or FWD.
-** 
+**
 **     You may not represent yourself for publicity purposes as associated with
 **     Golden Code Development Corporation, FWD, or any author or contributor to
 **     the covered work, without written authorization.
-** 
+**
 **   3. No Misrepresentation of Source or Origin.
-** 
+**
 **     You may not represent the covered work as solely your work.  All modified
 **     versions of the covered work must be marked in a reasonable way to make it
 **     clear that the modified work is not originating from Golden Code Development
@@ -72,9 +74,8 @@
 package com.goldencode.p2j.persist;
 
 import java.io.*;
-
-import com.goldencode.p2j.oo.json.objectmodel.JsonConstruct;
-import com.goldencode.p2j.oo.lang._BaseObject_;
+import java.util.*;
+import com.goldencode.p2j.persist.serial.*;
 import com.goldencode.p2j.util.*;
 
 /**
@@ -82,234 +83,315 @@
  * or data set member buffer.
  */
 public class TargetData
+implements Serializator
 {
    /** Normalized output stream */
    private OutputStream stream;
    
-   /**
-    * Constructor.
-    * 
-    * @param   type
-    *          {@code FILE} or {@code STREAM}.
-    * @param   target
-    *          Name of a file or stream to which data is written.
-    */
-   public TargetData(character type, character target)
-   {
-      initializeRemote(type.toStringMessage(), target.toStringMessage());
-   }
-   
-   /**
-    * Constructor.
-    * 
-    * @param   type
-    *          {@code FILE} or {@code STREAM}.
-    * @param   target
-    *          Name of a file or stream to which data is written.
-    */
-   public TargetData(String type, character target)
-   {
-      initializeRemote(type, target.toStringMessage());
-   }
-   
-   /**
-    * Constructor.
-    * 
-    * @param   type
-    *          {@code FILE} or {@code STREAM}.
-    * @param   target
-    *          Name of a file or stream to which data is written.
-    */
-   public TargetData(character type, String target)
-   {
-      initializeRemote(type.toStringMessage(), target);
-   }
-   
-   /**
-    * Constructor.
-    * 
-    * @param   type
-    *          {@code FILE} or {@code STREAM}.
-    * @param   target
-    *          Name of a file or stream to which data is written.
+   /** The file name if such destination was created. */
+   private String fileName = null;
+   
+   /**
+    * Constant used to identify the calls from WRITE-XML method. Also used to store the supported stream types
+    * for this method.
+    */
+   public static final String TD_WRITE_XML = "WRITE-XML";
+   
+   /**
+    * Constant used to identify the calls from WRITE-XMLSCHEMA method. Also used to store the supported stream
+    * types for this method.
+    */
+   public static final String TD_WRITE_XMLSCHEMA = "WRITE-XMLSCHEMA";
+   
+   /**
+    * Constant used to identify the calls from WRITE-JSON method. Also used to store the supported stream
+    * types for this method.
+    */
+   public static final String TD_WRITE_JSON = "WRITE-JSON";
+   
+   /**
+    * Constant used to identify the calls from SERIALIZE-ROW method. Also used to store the supported stream
+    * types for this method.
+    */
+   public static final String TD_SERIALIZE_ROW = "SERIALIZE-ROW";
+   
+   /* The initialization of static member data. */
+   private static final Map<String, Integer> supportedStreams = new HashMap<>();
+   static
+   {
+      supportedStreams.put(TD_WRITE_XML,
+                           SER_FILE | SER_MEMPTR | SER_HANDLE | SER_LONGCHAR);
+      supportedStreams.put(TD_WRITE_XMLSCHEMA,
+                           SER_FILE | SER_MEMPTR | SER_HANDLE | SER_LONGCHAR);
+      supportedStreams.put(TD_WRITE_JSON,
+                           SER_FILE | SER_MEMPTR | SER_HANDLE | SER_LONGCHAR | SER_JSON_ARRAY | SER_JSON_OBJECT);
+      supportedStreams.put(TD_SERIALIZE_ROW,
+                           SER_FILE | SER_STREAM | SER_STREAM_HANDLE | SER_MEMPTR | SER_LONGCHAR | SER_JSON_OBJECT);
+   }
+   
+   private final String origType;
+   private final BaseDataType origDst;
+   
+   /**
+    * The constructor saves the configured parameters but does not process them in any way. The validation
+    * will be executed later, when the calling method is in progress.
+    *
+    * @param   type
+    *          The source stream type.
+    * @param   target
+    *          The reference to resource or the file name.
+    */
+   public TargetData(character type, BaseDataType target)
+   {
+      this((type == null) ? null : type.toJavaType(), target);
+   }
+   
+   /**
+    * The constructor saves the configured parameters but does not process them in any way. The validation
+    * will be executed later, when the calling method is in progress.
+    *
+    * @param   type
+    *          The source stream type.
+    * @param   target
+    *          The reference to resource or the file name.
+    */
+   public TargetData(String type, BaseDataType target)
+   {
+      origType = type;
+      origDst = target;
+   }
+   
+   /**
+    * The constructor saves the configured parameters but does not process them in any way. The validation
+    * will be executed later, when the calling method is in progress.
+    *
+    * @param   type
+    *          The source stream type.
+    * @param   target
+    *          The file name.
     */
    public TargetData(String type, String target)
    {
-      initializeRemote(type, target);
-   }
-   
-   /**
-    * Constructor.
-    * 
-    * @param   target
-    *          Pointer to an area of memory into which data is written.
-    */
-   public TargetData(memptr target)
-   {
-      // TODO: better way to do this than overriding close()? Overriding flush() may cause to
-      // many assigns to the target longchar
-      stream = new ByteArrayOutputStream()
-      {
-         @Override
-         public void close()
-         throws IOException
-         {
-            flush();
-            super.close();
-            byte[] buf = toByteArray();
-            target.assign(buf);
-         }
-      };
-   }
-   
-   /**
-    * Constructor.
-    * 
-    * @param   type
-    *          {@code STREAM-HANDLE} or {@code HANDLE}.
-    * @param   target
-    *          Handle of a stream object or X-document/X-noderef object into which to write data.
-    */
-   public TargetData(character type, handle target)
-   {
-      initializeRemote(type.toStringMessage(), target);
-   }
-   
-   /**
-    * Constructor.
-    * 
-    * @param   type
-    *          {@code STREAM-HANDLE} or {@code HANDLE}.
-    * @param   target
-    *          Handle of a stream object or X-document/X-noderef object into which to write data.
-    */
-   public TargetData(String type, handle target)
-   {
-      initializeRemote(type, target);
-   }
-   
-   /**
-    * Constructor.
-    * 
-    * @param   type
-    *          {@code STREAM-HANDLE} or {@code HANDLE}.
-    * @param   target
-    *          The target JsonObject or JsonArray instance.
-    */
-   public TargetData(character type, object<? extends _BaseObject_> target)
-   {
-      UnimplementedFeature.todo("BUFFER:{SERIALIZE-ROW|WRITE-JSON}(JsonObject|JsonArray) is not implemented.");
-   }
-   
-   /**
-    * Constructor.
-    * 
-    * @param   type
-    *          {@code STREAM-HANDLE} or {@code HANDLE}.
-    * @param   target
-    *          The target JsonObject or JsonArray instance.
-    */
-   public TargetData(String type, object<? extends _BaseObject_> target)
-   {
-      UnimplementedFeature.todo("BUFFER:{SERIALIZE-ROW|WRITE-JSON}(JsonObject|JsonArray) is not implemented.");
-   }
-   
-   /**
-    * Constructor.
-    * 
-    * @param   target
-    *          Variable into which to write data.
-    */
-   public TargetData(longchar target)
-   {
-      // TODO: better way to do this than overriding close()? Overriding flush() may cause to
-      // many assigns to the target longchar
-      stream = new ByteArrayOutputStream()
-      {
-         @Override
-         public void close()
-         throws IOException
-         {
-            flush();
-            super.close();
-            byte[] buf = toByteArray();
-            target.assign(new String(buf));
-         }
-      };
+      origType = type;
+      origDst = new character(target);
+   }
+   
+   /**
+    * Configures the supported resource types for the current usage. The caller passes in its name and the
+    * method does the selection. It also does the verification whether the already configured parameters (in
+    * the constructor) are valid and eventual raise the error condition.
+    * 
+    * @param   method
+    *          The identifier for the method using the source stream. It is used to get the set of acceptable
+    *          stream types to check against them.
+    * @param   widgetType
+    *          The parent widget. Only used for composing the error messages.
+    *
+    * @return  {@code true} if the parameters configured in constructor seems correct. This method does not
+    *          check the content, only the variable types. If there is not a match with the possible streams
+    *          supported by the {@code method}, {@code false} is returned, after eventually raising a specific
+    *          error condition.
+    */
+   public boolean configureSupportedTargets(String method, String widgetType)
+   {
+      boolean isJson = method.contains("JSON");
+      if (origType == null)
+      {
+         ErrorManager.recordOrShowError(5442, method, "character");
+         // Invalid datatype for argument to method ''<name>. Expecting ''<name>
+         return false;
+      }
+      
+      if (origDst == null || origDst.isUnknown())
+      {
+         ErrorManager.recordOrShowError(4065, method, widgetType);
+         // **The <attribute> attribute on the <widget id> has invalid arguments. (4065)
+         return false;
+      }
+      
+      // [method] must always be one of the supported methods 
+      int supportedDestinations = supportedStreams.get(method);
+      
+      switch (origType.toUpperCase())
+      {
+         case TYPE_FILE:
+            if ((supportedDestinations & SER_FILE) != 0)
+            {
+               if (!(origDst instanceof character))
+               {
+                  ErrorManager.recordOrShowError(4065, method, widgetType);
+                  // **The <attribute> attribute on the <widget id> has invalid arguments. (4065)
+                  return false;
+               }
+               return true;
+            }
+            break;
+         
+         case TYPE_STREAM:
+            if ((supportedDestinations & SER_STREAM) != 0)
+            {
+               return true;
+            }
+            break;
+         
+         case TYPE_STREAM_HANDLE:
+            if ((supportedDestinations & SER_STREAM_HANDLE) != 0)
+            {
+               return true;
+            }
+            break;
+         
+         case TYPE_MEMPTR:
+            if ((supportedDestinations & SER_MEMPTR) != 0)
+            {
+               if (!(origDst instanceof memptr))
+               {
+                  break;
+               }
+               return true;
+            }
+            break;
+         
+         case TYPE_HANDLE:
+            if (!isJson)
+            {
+               ErrorManager.recordOrShowError(13186);
+               // Handle type not valid as WRITE-XML target. (13186)
+               ErrorManager.recordOrShowError(4065, method, widgetType);
+               // **The <attribute> attribute on the <widget id> has invalid arguments. (4065)
+               return false;
+            }
+            break;
+         
+         case TYPE_LONGCHAR:
+            if ((supportedDestinations & SER_LONGCHAR) != 0)
+            {
+               if (!(origDst instanceof longchar))
+               {
+                  ErrorManager.recordOrShowError(4065, method, widgetType);
+                  // **The <attribute> attribute on the <widget id> has invalid arguments. (4065)
+                  return false;
+               }
+               return true;
+            }
+            break;
+         
+         case TYPE_JSON_OBJECT:
+            if ((supportedDestinations & SER_JSON_OBJECT) != 0)
+            {
+               return true;
+            }
+            break;
+         
+         case TYPE_JSON_ARRAY:
+            if ((supportedDestinations & SER_JSON_ARRAY) != 0)
+            {
+               return true;
+            }
+            break;
+      }
+      
+      if (isJson)
+      {
+         ErrorManager.recordOrShowError(15344, origType, method);
+         // Invalid mode '<mode>' for <method>. (15344)
+      }
+      else
+      {
+         ErrorManager.recordOrShowError(13185, origType);
+         // Invalid target-type for WRITE-XML: <argument>. (13185)
+         ErrorManager.recordOrShowError(4065, method, widgetType);
+         // **The <attribute> attribute on the <widget id> has invalid arguments. (4065)
+      }
+      return false;
    }
    
    /**
     * Get the output stream representing the target resource to which data will be written.
     * This may be a remote or a local resource.
-    * 
+    *
     * @return  Output stream.
     */
-   public OutputStream getOutputStream()
+   @Override
+   public OutputStream getStream()
    {
-      return stream;
+      if (stream != null)
+      {
+         return stream;
+      }
+      
+      switch (origType.toUpperCase())
+      {
+         case TYPE_JSON_ARRAY:
+         case TYPE_JSON_OBJECT:
+            UnimplementedFeature.todo("BUFFER:{SERIALIZE-ROW|WRITE-JSON}(JsonObject|JsonArray) is not implemented.");
+            return null;
+         
+         case TYPE_STREAM:
+         case TYPE_STREAM_HANDLE:
+         case TYPE_FILE:
+            if (origDst instanceof character)
+            {
+               fileName = ((character) origDst).toJavaType();
+               stream = new OutputStreamWrapper(StreamFactory.openFileStream(fileName, true, false));
+               return stream;
+            }
+            return null;
+         
+         case TYPE_LONGCHAR:
+            if (origDst instanceof longchar)
+            {
+               longchar dest = (longchar) origDst;
+               stream = new ByteArrayOutputStream()
+               {
+                  @Override
+                  public void close()
+                  throws IOException
+                  {
+                     flush();
+                     super.close();
+                     dest.assign(this.toString());
+                  }
+               };
+               return stream;
+            }
+            return null;
+         
+         case TYPE_MEMPTR:
+            if (origDst instanceof memptr)
+            {
+               memptr dest = (memptr) origDst;
+               stream = new ByteArrayOutputStream()
+               {
+                  @Override
+                  public void close()
+                  throws IOException
+                  {
+                     flush();
+                     super.close();
+                     dest.assign(this.toByteArray());
+                  }
+               };
+               return stream;
+            }
+            return null;
+      }
+      
+      return null;
    }
    
    /**
     * Close the output stream underlying this data source.
-    * 
+    *
     * @throws  IOException
     *          if there is an error closing the stream.
     */
-   void close()
+   public void close()
    throws IOException
    {
-      stream.close();
-   }
-   
-   /**
-    * Initialize a remote file or stream resource as an output stream.
-    * <p>
-    * The stream resource is unimplemented currently.
-    * 
-    * @param   type
-    *          Type of output resource: FILE or STREAM.
-    * @param   name
-    *          The name of the resource (path for a file; name for a stream).
-    */
-   private void initializeRemote(String type, String name)
-   {
-      switch(type.toUpperCase())
-      {
-         case "FILE":
-            stream = new OutputStreamWrapper(StreamFactory.openFileStream(name, true, false));
-            break;
-         case "STREAM":
-            // TODO: get the stream and wrap it in OutputStreamWrapper
-            UnimplementedFeature.missing("TargetData STREAM support");
-            break;
-         default:
-            throw new IllegalArgumentException("Data target type must be FILE or STREAM");
-      }
-   }
-   
-   /**
-    * Initialize a remote stream handle or handle resource as an output stream.
-    * <p>
-    * Both types are unimplemented features currently.
-    * 
-    * @param   type
-    *          Type of output resource: STREAM-HANDLE or HANDLE.
-    * @param   target
-    *          The handle to the resource.
-    */
-   private void initializeRemote(String type, handle target)
-   {
-      switch(type.toUpperCase())
-      {
-         case "STREAM-HANDLE":
-            UnimplementedFeature.missing("TargetData STREAM-HANDLE support");
-            break;
-         case "HANDLE":
-            UnimplementedFeature.missing("TargetData HANDLE support");
-            break;
-         default:
-            throw new IllegalArgumentException(
-               "Data target type must be STREAM-HANDLE or HANDLE");
+      if (stream != null)
+      {
+         stream.close();
       }
    }
 }

=== modified file 'src/com/goldencode/p2j/persist/TempRecord.java'
--- src/com/goldencode/p2j/persist/TempRecord.java	2020-08-28 08:40:21 +0000
+++ src/com/goldencode/p2j/persist/TempRecord.java	2020-12-19 00:59:30 +0000
@@ -9,6 +9,7 @@
 **     OM  20200110 Added constants and method implementations.
 **     CA  20200714 Refactored to keep the reserved properties in the record's data, to be persisted in the 
 **                  table.
+** 002 OM  20201218 Fixed implementation for error and rejected attributes/hidden fields.
 */
 
 /*
@@ -250,7 +251,7 @@
     * @see     #_ERROR_FLAG
     */
    @Override
-   public final Integer _errorFlag()
+   public final Integer _errorFlags()
    {
       return (Integer) data[_ERROR_FLAG_DATA_INDEX];
    }
@@ -264,7 +265,7 @@
     * @see     #_ERROR_FLAG
     */
    @Override
-   public final void _errorFlag(Integer flag)
+   public final void _errorFlags(Integer flag)
    {
       int savedActiveOffset = this.activeOffset;
       try

=== modified file 'src/com/goldencode/p2j/persist/TempTable.java'
--- src/com/goldencode/p2j/persist/TempTable.java	2020-10-02 22:45:29 +0000
+++ src/com/goldencode/p2j/persist/TempTable.java	2021-01-15 23:08:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : TempTable.java
 ** Abstract : Declaration of some dynamic TEMP-TABLES specific features (attributes, methods).
 **
-** Copyright (c) 2013-2020, Golden Code Development Corporation.
+** Copyright (c) 2013-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20130129 Created initial version.
@@ -35,7 +35,9 @@
 ** 023 OM  20191031 Removed method signatures pushed to super interface.
 ** 024 ECF 20200906 New ORM implementation.
 ** 025 AIL 20200911 Added Dereferenceable interface.
-** 026 OM  20201002 Use DmoMeta cached information instead of map lookups.
+**     OM  20201002 Use DmoMeta cached information instead of map lookups.
+**     OM  20201120 Added declarations for SCHEMA-MARSHALL related accessors.
+**     OM  20210106 Fixed 2nd parameter of TEMP-TABLE-PREPARE.
 */
 
 /*
@@ -108,6 +110,8 @@
         Clearable,
         CommonHandleChain,
         CreateLike,
+        DataSourceModifiable,
+        Deletable,
         Dereferenceable,
         DynamicResource,
         EmptyTempTable,
@@ -116,10 +120,14 @@
         InstantiatingProcedure,
         JsonData,
         Nameable,
+        NamedSerializable,
+        NamespaceURI,
+        Rejectable,
         TempTableDuplicator,
         UndoStateProvider,
         UniqueID,
-        XmlData
+        XmlData,
+        XmlNode
 {
    /** The type of this buffer from the {@code DataSet} changes point of view. */
    enum BeforeType
@@ -140,6 +148,20 @@
       SIMPLE
    }
    
+   /** Constant for SCHEMA-MARSHAL attribute: the full schema is serialized with table parameter. */
+   public static final String SCHEMA_MARSHAL_FULL = "FULL";
+   
+   /**
+    * Constant for SCHEMA-MARSHAL attribute: minimal schema is marshalled. When in use, the field names, data
+    * types and extents, and temp-table ERROR-STRING are serialized with table parameter, but index
+    * descriptions and other field information (label, help, field validation expression, and so on (?)) are
+    * not.
+    */
+   public static final String SCHEMA_MARSHAL_MIN = "MIN";
+   
+   /** Constant for SCHEMA-MARSHAL attribute: no schema is marshalled (just table data). */
+   public static final String SCHEMA_MARSHAL_NONE = "NONE";
+   
    /**
     * Adds a field with the specified properties to the temp-table.
     * This method is the P2J equivalent of <code>ADD-NEW-FIELD</code> method
@@ -149,7 +171,7 @@
     *          The name of the field to be created in the temp-table.
     * @param   type
     *          The data type of the specified field.
-    *          
+    *
     * @return  <code>true</code> on success.
     */
    @LegacyMethod(name = "ADD-NEW-FIELD")
@@ -166,12 +188,12 @@
     *          The data type of the specified field.
     * @param   extent
     *          An integer expression specifying the extent of an array.
-    *          
+    *
     * @return  <code>true</code> on success.
     */
    @LegacyMethod(name = "ADD-NEW-FIELD")
    public logical addNewField(character name, character type, integer extent);
-
+   
    /**
     * Adds a field with the specified properties to the temp-table.
     * This method is the P2J equivalent of <code>ADD-NEW-FIELD</code> method
@@ -191,7 +213,7 @@
     */
    @LegacyMethod(name = "ADD-NEW-FIELD")
    public logical addNewField(character name, character type, integer extent, character format);
-
+   
    /**
     * Adds a field with the specified properties to the temp-table.
     * This method is the P2J equivalent of <code>ADD-NEW-FIELD</code> method
@@ -210,7 +232,7 @@
     *          An expression that evaluates to the initial value of the 
     *          defined field. 
     *          TODO: this method will probably be overloaded because of this.
-    *          
+    *
     * @return  <code>true</code> on success.
     */
    @LegacyMethod(name = "ADD-NEW-FIELD")
@@ -219,7 +241,7 @@
                               integer      extent,
                               character    format,
                               BaseDataType initial);
-
+   
    /**
     * Adds a field with the specified properties to the temp-table.
     * This method is the P2J equivalent of <code>ADD-NEW-FIELD</code> method
@@ -487,7 +509,7 @@
     */
    @LegacyMethod(name = "ADD-LIKE-INDEX")
    public logical addIndexLike(character name, character sourceName, handle sourceBuffer);
-
+   
    /**
     * Signals that all the field and index definitions for a temp-table 
     * have been provided. After the call to this method no fields and indexes
@@ -503,7 +525,7 @@
     */
    @LegacyMethod(name = "TEMP-TABLE-PREPARE")
    public logical tempTablePrepare(String name);
-
+   
    /**
     * Signals that all the field and index definitions for a temp-table have been provided. After
     * the call to this method no fields and indexes can be added to this temporary table.
@@ -525,8 +547,7 @@
     * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
     * 
     * @param   name
-    *          Temp-table name to be used in subsequent query statements which refer to this
-    *          temp-table.
+    *          Temp-table name to be used in subsequent query statements which refer to this temp-table.
     * @param   before
     *          Create the {@code BEFORE-TABLE} also if {@code true}.
     *
@@ -541,8 +562,37 @@
     * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
     * 
     * @param   name
-    *          Temp-table name to be used in subsequent query statements which refer to this
-    *          temp-table.
+    *          Temp-table name to be used in subsequent query statements which refer to this temp-table.
+    * @param   before
+    *          Create the {@code BEFORE-TABLE} also if {@code true}.
+    *
+    * @return  {@code true} on success.
+    */
+   @LegacyMethod(name = "TEMP-TABLE-PREPARE")
+   public logical tempTablePrepare(String name, logical before);
+   
+   /**
+    * Signals that all the field and index definitions for a temp-table have been provided. After
+    * the call to this method no fields and indexes can be added to this temporary table.
+    * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
+    * 
+    * @param   name
+    *          Temp-table name to be used in subsequent query statements which refer to this temp-table.
+    * @param   before
+    *          Create the {@code BEFORE-TABLE} also if {@code true}.
+    *
+    * @return  {@code true} on success.
+    */
+   @LegacyMethod(name = "TEMP-TABLE-PREPARE")
+   public logical tempTablePrepare(character name, boolean before);
+   
+   /**
+    * Signals that all the field and index definitions for a temp-table have been provided. After
+    * the call to this method no fields and indexes can be added to this temporary table.
+    * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
+    * 
+    * @param   name
+    *          Temp-table name to be used in subsequent query statements which refer to this temp-table.
     * @param   before
     *          Create the {@code BEFORE-TABLE} also if {@code true}.
     *
@@ -1062,4 +1112,86 @@
     */
    @LegacyAttribute(name = "ORIGIN-HANDLE")
    public handle getOriginHandle();
+   
+   /**
+    * Implements the {@code NO-SCHEMA-MARSHAL} attribute getter.
+    *
+    * @return  {@code true} when {@code SCHEMA-MARSHAL} attribute is set to {@code "NONE"}.
+    */
+   @LegacyAttribute(name = "NO-SCHEMA-MARSHAL")
+   public logical isNoSchemaMarshal();
+   
+   /**
+    * Sets the {@code SCHEMA-MARSHAL} attribute to {@code "NO"} value when {@code on = true} or
+    * back to default value {@code on = false}.
+    *
+    * @param   on
+    *          The new value of {@code SCHEMA-MARSHAL} attribute.
+    */
+   @LegacyAttribute(name = "NO-SCHEMA-MARSHAL", setter = true)
+   public void setNoSchemaMarshal(boolean on);
+   
+   /**
+    * Sets the {@code SCHEMA-MARSHAL} attribute to {@code "NO"} value when {@code on = true} or
+    * back to default value {@code on = false}.
+    *
+    * @param   on
+    *          The new value of {@code SCHEMA-MARSHAL} attribute.
+    */
+   @LegacyAttribute(name = "NO-SCHEMA-MARSHAL", setter = true)
+   public void setNoSchemaMarshal(logical on);
+   
+   /**
+    * Implements the {@code MIN-SCHEMA-MARSHAL} attribute getter.
+    *
+    * @return  {@code true} when {@code SCHEMA-MARSHAL} attribute is set to {@code "MIN"}.
+    */
+   @LegacyAttribute(name = "MIN-SCHEMA-MARSHAL")
+   public logical isMinSchemaMarshal();
+   
+   /**
+    * Sets the {@code SCHEMA-MARSHAL} attribute to {@code "MIN"} value when {@code on = true} or
+    * back to default value {@code on = false}.
+    *
+    * @param   on
+    *          The new value of {@code MIN-SCHEMA-MARSHAL} attribute.
+    */ 
+   @LegacyAttribute(name = "MIN-SCHEMA-MARSHAL", setter = true)
+   public void setMinSchemaMarshal(boolean on);
+   
+   /**
+    * Sets the {@code SCHEMA-MARSHAL} attribute to {@code "MIN"} value when {@code on = true} or
+    * back to default value {@code on = false}.
+    *
+    * @param   on
+    *          The new value of {@code MIN-SCHEMA-MARSHAL} attribute.
+    */
+   @LegacyAttribute(name = "MIN-SCHEMA-MARSHAL", setter = true)
+   public void setMinSchemaMarshal(logical on);
+   
+   /**
+    * Obtain the current value of {@code SCHEMA-MARSHAL} attribute.
+    * 
+    * @return  the current value of {@code SCHEMA-MARSHAL} attribute.
+    */
+   @LegacyAttribute(name = "SCHEMA-MARSHAL")
+   public character getSchemaMarshal();
+   
+   /**
+    * Sets a new value for {@code SCHEMA-MARSHAL} attribute.
+    *
+    * @param   level
+    *          the new value or {@code SCHEMA-MARSHAL} attribute.
+    */
+   @LegacyAttribute(name = "SCHEMA-MARSHAL", setter = true)
+   public void setSchemaMarshal(String level);
+   
+   /**
+    * Sets a new value for {@code SCHEMA-MARSHAL} attribute.
+    *
+    * @param   level
+    *          the new value or {@code SCHEMA-MARSHAL} attribute.
+    */
+   @LegacyAttribute(name = "SCHEMA-MARSHAL", setter = true)
+   public void setSchemaMarshal(Text level);
 }

=== modified file 'src/com/goldencode/p2j/persist/TempTableBuilder.java'
--- src/com/goldencode/p2j/persist/TempTableBuilder.java	2020-10-02 22:45:29 +0000
+++ src/com/goldencode/p2j/persist/TempTableBuilder.java	2021-01-21 22:49:45 +0000
@@ -3,7 +3,7 @@
 ** Abstract : Implementation of the dynamic features for constructing temp-tables  
 *              (attributes, methods and constructors).
 **
-** Copyright (c) 2013-2020, Golden Code Development Corporation.
+** Copyright (c) 2013-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20130129 Created initial version.
@@ -82,6 +82,14 @@
 **     OM  20200924 Objects of this class carry multiple information to avoid map lookups for them.
 **     OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
 **     OM  20201002 Use DmoMeta cached information instead of map lookups.
+**     SVL 20201030 Reflect extension of PropertyDefinition.
+**     SVL 20201110 Manage BufferField handles in addFieldLike.
+**     OM  20201120 Renamed NAMESPACE-URI and NAMESPACE-PREFIX setters to fit buffer attributes naming
+**                  convention. Allowed Object fields to be added to TEMP-TABLEs. Added CLEAR state
+**                  awareness. Exposed addField() to XML deserializer.
+**     OM  20201202 Avoided conditions to be generated while encountered exeptions in debug mode.
+**         20210106 Dropped 2nd parameter of TEMP-TABLE-PREPARE.
+**     OM  20210115 The before-table is automaticaly created when needed.
 */
 
 /*
@@ -233,8 +241,7 @@
                                           ParmType.CHAR})
       {
          String typeName = type.toString();
-         defaultFormatStrings.put(typeName,
-                                  DisplayFormat.instanceOfType(typeName).defaultFormatString());
+         defaultFormatStrings.put(typeName, DisplayFormat.instanceOfType(typeName).defaultFormatString());
       }
       // separately because used "datetimetz" and "datetime-tz"
       defaultFormatStrings.put(ParmType.DTTZ.toString(),
@@ -256,8 +263,6 @@
     * 
     * @param    tableName
     *           The table name.
-    * @param    afterTable
-    *           Flag indentifying if this is an after or before table.
     * @param    props
     *           The property definitions.
     * @param    tableIndexes
@@ -268,7 +273,6 @@
     *           The XML prefix.
     */
    public static BufferImpl createRemoteTable(String tableName,
-                                              boolean afterTable,
                                               Iterator<PropertyDefinition> props,
                                               String tableIndexes, 
                                               String xmlns,
@@ -304,20 +308,20 @@
          }
       }
       
-      ttb.tempTablePrepare(tableName, afterTable);
+      ttb.tempTablePrepare(tableName);
       BufferImpl buff = (BufferImpl) ttb.defaultBufferHandle().getResource();
       if (xmlns != null)
       {
-         buff.setNamespaceURI(xmlns);
+         buff.namespaceURI(xmlns);
       }
       if (xmlPrefix != null)
       {
-         buff.setNamespacePrefix(xmlPrefix);
+         buff.namespacePrefix(xmlPrefix);
       }
       
       return buff;
    }
-
+   
    /**
     * Dynamically creates a temporary table at runtime and assign it to a
     * handle. The table is empty and will be populated with fields, indexes
@@ -446,7 +450,7 @@
    }
    
    /**
-    * Get the field of an existing table.
+    * Get the field (legacy name) of an existing table.
     *
     * @param  persistence
     *         Persistence which corresponds the target database.
@@ -455,22 +459,21 @@
     * @param  fieldName4GL
     *         4GL field name.
     *
-    * @return field with the specified name or <code>null</code> if there is no such field.
+    * @return field with the specified name or {@code null} if there is no such field.
     */
    public static P2JField getExistingField(Persistence persistence, String tableName4GL, String fieldName4GL)
    {
       String normalizedTableName4GL = normalizeName(tableName4GL);
       String normalizedFieldName4GL = normalizeName(fieldName4GL);
-      TempTable tt = null;
       String propertyName;
-      Class<? extends Record> dmoClass;
+      DmoMeta dmoInfo;
       
       Database database = persistence.getDatabase();
       if (DatabaseManager.TEMP_TABLE_DB.equals(database))
       {
-         tt = getExistingTempTable(normalizedTableName4GL);
+         TempTable tt = getExistingTempTable(normalizedTableName4GL);
          propertyName = TableMapper.getPropertyName(tt, normalizedFieldName4GL);
-         dmoClass = tt.getDMOClass();
+         dmoInfo = tt.getDmoMeta();
       }
       else
       {
@@ -478,7 +481,7 @@
          propertyName = TableMapper.getPropertyName(schema,
                                                     normalizedTableName4GL,
                                                     normalizedFieldName4GL);
-         dmoClass = TableMapper.getDMOClass(schema, normalizedTableName4GL);
+         dmoInfo = DmoMetadataManager.getDmoInfo(TableMapper.getDMOClass(schema, normalizedTableName4GL));
       }
       
       if (propertyName == null)
@@ -486,51 +489,49 @@
          return null;
       }
       
-      return getExistingField(DmoMetadataManager.getDMOInterface(dmoClass), propertyName, tt);
+      return getExistingField(dmoInfo, propertyName);
    }
-
+   
    /**
     * Get the field of an existing table.
     *
     * @param  buffer
     *         A record buffer which backs records of the target table.
-    * @param  fieldNameHibernate
-    *         Hibernate field name.
+    * @param  propertyName
+    *         The property name.
     *
-    * @return field with the specified name or <code>null</code> if there is no such field.
+    * @return field with the specified name or {@code null} if there is no such field.
     */
-   public static P2JField getExistingField(RecordBuffer buffer, String fieldNameHibernate)
+   public static P2JField getExistingField(RecordBuffer buffer, String propertyName)
    {
       if (buffer.isDynamic())
       {
          TempTableBuilder table = DynamicTablesHelper.getTableInfo(buffer);
          Class<? extends DataModelObject> dmoIface = buffer.getDMOInterface();
-         String fieldName4GL = DynamicTablesHelper.get4GLFieldName(dmoIface, fieldNameHibernate);
+         String fieldName4GL = DynamicTablesHelper.get4GLFieldName(dmoIface, propertyName);
          return table.getField(fieldName4GL);
       }
       else
       {
          TempTable tt = buffer.isTemporary() ? buffer.getParentTable() : null;
-         return getExistingField(buffer.getDMOInterface(), fieldNameHibernate, tt);
+         return getExistingField(tt.getDmoMeta(), propertyName);
       }
    }
    
    /**
-    * Get the field of an existing table.
+    * Get the field (legacy name) of an existing table.
     *
-    * @param  dmoIface
-    *         DMO interface.
+    * @param  dmoInfo
+    *         DMO metadata for the table.
     * @param  propertyName
     *         Property name of the field.
-    * @param  tempTable
-    *         Temp table object. {@code null} for permanent tables.
     *
     * @return field with the specified name or {@code null} if there is no such field.
     */
-   public static P2JField getExistingField(Class<? extends DataModelObject> dmoIface,
-                                           String propertyName,
-                                           TempTable tempTable)
+   public static P2JField getExistingField(DmoMeta dmoInfo, String propertyName)
    {
+      Class<? extends DataModelObject> dmoIface = dmoInfo.getAnnotatedInterface();
+      
       if (!PropertyHelper.isLoaded(dmoIface))
       {
          // just create an instance and analyze it;
@@ -539,7 +540,6 @@
       
       Map<String, Method> getters = PropertyHelper.legacyGettersByProperty(dmoIface);
       Map<String, Integer> extents = PropertyHelper.extentsByProperty(dmoIface);
-      DmoMeta dmoInfo = DmoMetadataManager.getDmoInfo(dmoIface);
       
       // get legacy property name
       Property fieldInfo = dmoInfo.getFieldInfo(propertyName);
@@ -815,30 +815,30 @@
    public static Collection<P2JField> getExistingFields(Persistence persistence, String tableName4GL)
    {
       String normalizedTableName4GL = normalizeName(tableName4GL);
-      
       Database database = persistence.getDatabase();
-      Class<? extends Record> dmoClass;
       StaticTempTable staticTempTable = null;
+      DmoMeta dmoInfo = null;
       
       if (database.equals(DatabaseManager.TEMP_TABLE_DB))
       {
          staticTempTable = (StaticTempTable) getExistingTempTable(normalizedTableName4GL);
-         dmoClass = staticTempTable.getDMOClass();
+         dmoInfo = staticTempTable.getDmoMeta();
       }
       else
       {
          String schema = DatabaseManager.getSchema(database);
-         dmoClass = TableMapper.getDMOClass(schema, normalizedTableName4GL);
+         dmoInfo = DmoMetadataManager.getDmoInfo(TableMapper.getDMOClass(schema, normalizedTableName4GL));
       }
       
-      Class<? extends DataModelObject> dmoIface = DmoMetadataManager.getDMOInterface(dmoClass);
+      // TODO: use [dmoInfo.getExistingFields()] instead, after adding field/property/column support in P2JField
+      Class<? extends DataModelObject> dmoIface = dmoInfo.getAnnotatedInterface();
       String[] properties = getPropertyNamesArray(dmoIface, staticTempTable);
       
       List<P2JField> res = new ArrayList<>();
       for (String property : properties)
       {
          // TODO: the code below collects "legacy" fields only. Is this correct?
-         P2JField field = getExistingField(dmoIface, property, staticTempTable);
+         P2JField field = getExistingField(dmoInfo, property);
          res.add(field);
       }
       
@@ -1048,11 +1048,15 @@
       // get first word
       int spaceIdx = datatype.indexOf(' ');
       String compareStr = spaceIdx >= 0 ? datatype.substring(0, spaceIdx) : datatype;
-
+      
       if (compareStr.length() > 0)
       {
          compareStr = compareStr.toLowerCase();
-
+         if ("progress.lang.object".equals(compareStr))
+         {
+            compareStr = "object";
+         }
+         
          for (String type : datatypesMatchLen.keySet())
          {
             if (type.startsWith(compareStr))
@@ -1700,9 +1704,25 @@
          // we have the field with the same name
          return new logical(false);
       }
-      
+
+      RecordBuffer buffer;
+      String fieldNameHibernate;
       Object handleValue = source.get();
-      if (!FieldReference.class.isAssignableFrom(handleValue.getClass()))
+      Class<?> cls = handleValue.getClass();
+      if (FieldReference.class.isAssignableFrom(cls))
+      {
+         FieldReference ref = (FieldReference) handleValue;
+         buffer = ref.getParentBuffer();
+         fieldNameHibernate = ref.getProperty();
+      }
+      else if (BufferField.class.isAssignableFrom(cls))
+      {
+         BufferFieldImpl field = (BufferFieldImpl) handleValue;
+         Buffer buf = field.bufferHandle().unwrapBuffer();
+         buffer = RecordBuffer.get((DataModelObject) buf);
+         fieldNameHibernate = field.getProperty();
+      }
+      else
       {
          ErrorManager.displayError(9056,
                                    "ADD-LIKE-FIELD requires valid BUFFER-FIELD object",
@@ -1710,10 +1730,6 @@
          return new logical(false);
       }
       
-      FieldReference ref = (FieldReference) handleValue;
-      RecordBuffer buffer = ref.getParentBuffer();
-      String fieldNameHibernate = ref.getProperty();
-      
       P2JField srcField = getExistingField(buffer, fieldNameHibernate);
       P2JField targetField = copyField(targetName, srcField);
       
@@ -2184,6 +2200,22 @@
    }
    
    /**
+    * Check whether this TEMP-TABLE is in CLEAR state: I.e. the temp-table is first created or immediately
+    * after the CLEAR() method is applied. The other two state of a temp-table are: UNPREPARED and PREPARED.
+    * The UNPREPARED state between the first definitional method has been applied and before the
+    * TEMP-TABLE-PREPARE() method is applied.
+    * <p>
+    * This method is FWD-internal. The programmer can check whether the temp-table is in an UNPREPARED or
+    * PREPARED state by checking the PREPARED attribute, but the CLEAR state is transparent.
+    *
+    * @return  {@code true} if this table is in CLEAR state.
+    */
+   public boolean _clear()
+   {
+      return fields.size() == 0;
+   }
+   
+   /**
     * Checks  whether the resource is dynamic or static.
     * 
     * @return   <code>true</code> if the resource is dynamic, <code>false</code> otherwise. 
@@ -2221,50 +2253,6 @@
    }
    
    /**
-    * Signals that all the field and index definitions for a temp-table have been provided. After
-    * the call to this method no fields and indexes can be added to this temporary table.
-    * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
-    *
-    * @param   name
-    *          Temp-table name to be used in subsequent query statements which refer to this
-    *          temp-table.
-    * @param   before
-    *          Create the {@code BEFORE-TABLE} also if {@code true}.
-    *
-    * @return  {@code true} on success.
-    */
-   @Override
-   public logical tempTablePrepare(String name, boolean before)
-   {
-      return tempTablePrepare(new character(name), new logical(before));
-   }
-   
-   /**
-    * Signals that all the field and index definitions for a temp-table have been provided. After
-    * the call to this method no fields and indexes can be added to this temporary table.
-    * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
-    *
-    * @param   name
-    *          Temp-table name to be used in subsequent query statements which refer to this
-    *          temp-table.
-    * @param   before
-    *          Create the {@code BEFORE-TABLE} also if {@code true}.
-    *
-    * @return  {@code true} on success.
-    */
-   @Override
-   public logical tempTablePrepare(character name, logical before)
-   {
-      String tableName = name.getValue();
-      String beforeName = null;
-      if (before != null && !before.isUnknown() && before.getValue())
-      {
-         beforeName = "BI" + tableName;
-      }
-      return tempTablePrepareImpl(tableName, beforeName);
-   }
-   
-   /**
     * The implementation of {@code TEMP-TABLE-PREPARE} method. This method is invoked from both
     * user API and also from {@code DataSet} when a DATASET is duplicated. 
     * 
@@ -2377,36 +2365,7 @@
          
          if (beforeName != null)
          {
-            // create the BEFORE-TABLE
-            handle btth = TypeFactory.handle();
-            TempTableBuilder.create(btth);
-            BufferImpl srcB4Buff = (BufferImpl) defaultBufferHandle().getResource();
-            
-            TempTableBuilder newBtt = (TempTableBuilder) btth.getResource();
-            newBtt.addField(buildField(ReservedProperty._ERRORFLAG, ParmType.INT, new integer()));
-            newBtt.addField(buildField(ReservedProperty._ORIGINROWID, ParmType.ROWID, new rowid()));
-            newBtt.addField(buildField(ReservedProperty._ERRORSTRING, ParmType.CHAR, new character()));
-            newBtt.addField(buildField(ReservedProperty._PEERROWID, ParmType.ROWID, new rowid()));
-            newBtt.addField(buildField(ReservedProperty._ROWSTATE, ParmType.INT, new integer()));
-            
-            newBtt.createLike(new handle(srcB4Buff));
-            
-            // leave only the rowState index
-            newBtt.indexes.clear();
-            P2JIndex rowStateIndex = new P2JIndex(beforeName, "rowState", false);
-            rowStateIndex.addComponent(ReservedProperty._ROWSTATE.legacy);
-            newBtt.addIndex(rowStateIndex);
-            
-            res = newBtt.tempTablePrepareImpl(beforeName, null).booleanValue();
-            
-            if (res)
-            {
-               // dynamically link the new before TempTable to this after TempTable
-               newBtt.beforeTableType = BeforeType.BEFORE;
-               newBtt.peerTable = this;
-               this.beforeTableType = BeforeType.AFTER;
-               this.peerTable = newBtt;
-            }
+            res = createBeforeTable(beforeName);
          }
          
          if (beforeTableType == BeforeType.UNKNOWN)
@@ -2421,41 +2380,159 @@
       
       return new logical(res);
    }
-      
-   /**
-    * Signals that all the field and index definitions for a temp-table 
-    * have been provided. After the call to this method no fields and indexes
-    * can be added to this temporary table.
-    * This method is the P2J equivalent of <code>TEMP-TABLE-PREPARE</code> 
-    * method of Progress 4GL.
+   
+   /**
+    * Creates the before table and link it to current table.
+    * 
+    * @param   beforeName
+    *          The name of the before table to be build.
+    *
+    * @return  {@code true} if operation is successful and {@code false} otherwise. 
+    */
+   boolean createBeforeTable(String beforeName)
+   {
+      boolean res;
+      // create the BEFORE-TABLE
+      handle btth = TypeFactory.handle();
+      TempTableBuilder.create(btth);
+      BufferImpl srcB4Buff = (BufferImpl) defaultBufferHandle().getResource();
+      
+      TempTableBuilder newBtt = (TempTableBuilder) btth.getResource();
+      newBtt.addField(buildField(ReservedProperty._ERRORFLAG, ParmType.INT, new integer()));
+      newBtt.addField(buildField(ReservedProperty._ORIGINROWID, ParmType.ROWID, new rowid()));
+      newBtt.addField(buildField(ReservedProperty._ERRORSTRING, ParmType.CHAR, new character()));
+      newBtt.addField(buildField(ReservedProperty._PEERROWID, ParmType.ROWID, new rowid()));
+      newBtt.addField(buildField(ReservedProperty._ROWSTATE, ParmType.INT, new integer()));
+      
+      newBtt.createLike(new handle(srcB4Buff));
+      
+      // leave only the rowState index
+      newBtt.indexes.clear();
+      P2JIndex rowStateIndex = new P2JIndex(beforeName, "rowState", false);
+      rowStateIndex.addComponent(ReservedProperty._ROWSTATE.legacy);
+      newBtt.addIndex(rowStateIndex);
+      
+      res = newBtt.tempTablePrepareImpl(beforeName, null).booleanValue();
+      
+      if (res)
+      {
+         // dynamically link the new before TempTable to this after TempTable
+         newBtt.beforeTableType = BeforeType.BEFORE;
+         newBtt.peerTable = this;
+         this.beforeTableType = BeforeType.AFTER;
+         this.peerTable = newBtt;
+         // then update the buffer types and link them using peerBuffer 
+         srcB4Buff.computeBufferType();
+         srcB4Buff.peerBuffer.computeBufferType();
+      }
+      return res;
+   }
+   
+   /**
+    * Signals that all the field and index definitions for a temp-table have been provided. After the call to
+    * this method no fields and indexes can be added to this temporary table.<br>
+    * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
     * 
     * @param   name
-    *          Temp-table name to be used in subsequent query statements that
-    *          refer to this temp-table.
+    *          Temp-table name to be used in subsequent query statements that refer to this temp-table.
     *
-    * @return  <code>true</code> on success.
+    * @return  {@code true} on success.
     */
    public logical tempTablePrepare(String name)
    {
-      return tempTablePrepare(new character(name), new logical(false));
+      return tempTablePrepareImpl(name, null);
    }
    
    /**
-    * Signals that all the field and index definitions for a temp-table 
-    * have been provided. After the call to this method no fields and indexes
-    * can be added to this temporary table.
-    * This method is the P2J equivalent of <code>TEMP-TABLE-PREPARE</code> 
-    * method of Progress 4GL.
-    * 
+    * Signals that all the field and index definitions for a temp-table have been provided. After the call to
+    * this method no fields and indexes can be added to this temporary table.<br>
+    * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
+    *
     * @param   name
-    *          Temp-table name to be used in subsequent query statements that
-    *          refer to this temp-table.
-    *          
-    * @return  <code>true</code> on success.
+    *          Temp-table name to be used in subsequent query statements that refer to this temp-table.
+    *
+    * @return  {@code true} on success.
     */
    public logical tempTablePrepare(character name)
    {
-      return tempTablePrepare(name, new logical(false));
+      String tableName = name.toJavaType();
+      return tempTablePrepareImpl(tableName, null);
+   }
+   
+   /**
+    * Signals that all the field and index definitions for a temp-table have been provided. After
+    * the call to this method no fields and indexes can be added to this temporary table.
+    * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
+    *
+    * @param   name
+    *          Temp-table name to be used in subsequent query statements which refer to this temp-table.
+    * @param   before
+    *          Create the {@code BEFORE-TABLE} also if {@code true}.
+    *
+    * @return  {@code true} on success.
+    */
+   @Override
+   public logical tempTablePrepare(String name, boolean before)
+   {
+      return tempTablePrepareImpl(name, (before && name != null) ? "BI" + name : null);
+   }
+   
+   /**
+    * Signals that all the field and index definitions for a temp-table have been provided. After
+    * the call to this method no fields and indexes can be added to this temporary table.
+    * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
+    *
+    * @param   name
+    *          Temp-table name to be used in subsequent query statements which refer to this temp-table.
+    * @param   before
+    *          Create the {@code BEFORE-TABLE} also if {@code true}.
+    *
+    * @return  {@code true} on success.
+    */
+   @Override
+   public logical tempTablePrepare(String name, logical before)
+   {
+      boolean boolBef = !before.isUnknown() && before.booleanValue();
+      return tempTablePrepareImpl(name, (boolBef && name != null) ? "BI" + name : null);
+   }
+   
+   /**
+    * Signals that all the field and index definitions for a temp-table have been provided. After
+    * the call to this method no fields and indexes can be added to this temporary table.
+    * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
+    *
+    * @param   name
+    *          Temp-table name to be used in subsequent query statements which refer to this temp-table.
+    * @param   before
+    *          Create the {@code BEFORE-TABLE} also if {@code true}.
+    *
+    * @return  {@code true} on success.
+    */
+   @Override
+   public logical tempTablePrepare(character name, boolean before)
+   {
+      String tableName = name.toJavaType();
+      return tempTablePrepareImpl(tableName, (before && tableName != null) ? "BI" + tableName : null);
+   }
+   
+   /**
+    * Signals that all the field and index definitions for a temp-table have been provided. After
+    * the call to this method no fields and indexes can be added to this temporary table.
+    * This method is the P2J equivalent of {@code TEMP-TABLE-PREPARE} method of Progress 4GL.
+    *
+    * @param   name
+    *          Temp-table name to be used in subsequent query statements which refer to this temp-table.
+    * @param   before
+    *          Create the {@code BEFORE-TABLE} also if {@code true}.
+    *
+    * @return  {@code true} on success.
+    */
+   @Override
+   public logical tempTablePrepare(character name, logical before)
+   {
+      boolean boolBef = !before.isUnknown() && before.booleanValue();
+      String tableName = name.toJavaType();
+      return tempTablePrepareImpl(tableName, (boolBef && tableName != null) ? "BI" + tableName : null);
    }
    
    /**
@@ -2897,7 +2974,7 @@
    @Override
    public Class<? extends Record> getDMOClass()
    {
-      return DmoMetadataManager.getImplementingClass(dmoIface);
+      return dmoInfo.getImplementationClass();
    }
    
    /**
@@ -2997,18 +3074,15 @@
       
       // ParmType has this encoded as FWD class names, I'm not changing it there as it might affect conversion
       String dataType = parmType == ParmType.DTTZ ? "datetime-tz" : parmType.toString();
-      
-      if (propertyDefinition.isExtent())
-      {
-         addNewField(new character(propertyDefinition.getLegacyName()),
-                     new character(dataType),
-                     new integer(propertyDefinition.getExtent()));
-      }
-      else
-      {
-         addNewField(new character(propertyDefinition.getLegacyName()),
-                     new character(dataType));
-      }
+      integer extent = propertyDefinition.isExtent() ? new integer(propertyDefinition.getExtent()) : null;
+
+      addNewField(new character(propertyDefinition.getLegacyName()),
+                  new character(dataType),
+                  extent,
+                  new character(propertyDefinition.getFormat()),
+                  null,
+                  new character(propertyDefinition.getLabel()),
+                  new character(propertyDefinition.getColumnLabel()));
    }
    
    /**
@@ -3535,13 +3609,16 @@
    }
    
    /**
-    * Add new field to the table. Doesn't check whether the field with the same name already
-    * exists.
+    * Add new field to the table. Doesn't check whether the field with the same name already exists.
+    * <p>
+    * Note: 
+    * This method was made public in order to be directly accessed from
+    * {@link com.goldencode.p2j.persist.serial.XmlImport}.
     *
     * @param field
     *        Field to add.
     */
-   private void addField(P2JField field)
+   public void addField(P2JField field)
    {
       fields.put(normalizeName(field.getName()), field);
    }
@@ -3635,7 +3712,28 @@
       
       String myName = (name == null) ? "unnamed" : name().getValue();
       longchar lc = new longchar();
-      writeJson(new TargetData(lc), new logical(true));
+      ErrorManager.ErrorHelper eh = ErrorManager.getErrorHelper();
+      boolean ws = eh.isSilent();
+      boolean wp = eh.isPending();
+      if (!ws)
+      {
+         eh.setSilent(true);
+      }
+      try
+      {
+         writeJson(new TargetData(TargetData.TYPE_LONGCHAR, lc), new logical(true));
+      }
+      finally
+      {
+         if (!ws)
+         {
+            eh.setSilent(false);
+         }
+         if (!wp && eh.isPending())
+         {
+            eh.clearPending();
+         }
+      }
       return "DYNAMIC " + myName + ", ID " + getUniqueID().getValue() + "\n" + lc.toStringMessage();
    }
 }

=== modified file 'src/com/goldencode/p2j/persist/TempTableRecord.java'
--- src/com/goldencode/p2j/persist/TempTableRecord.java	2020-09-06 23:15:41 +0000
+++ src/com/goldencode/p2j/persist/TempTableRecord.java	2021-01-13 21:04:41 +0000
@@ -4,12 +4,13 @@
 **
 ** Copyright (c) 2019-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20190604 Initial version.
 ** 002 OM  20190831 Added hidden fields and index specific to BEFORE TEMP-TABLES.
 ** 003 OM  20191014 Before-Buffer specific column constants were moved to Buffer interface.
 ** 004 CA  20191119 Added toArray(), which returns the meta information in an array form.
 ** 005 ECF 20200906 New ORM implementation.
+**     OM  20201218 Fixed implementation for error and rejected attributes/hidden fields.
 */
 
 /*
@@ -158,7 +159,7 @@
     *
     * @see     Buffer#__ERROR_FLAG__
     */
-   public Integer _errorFlag();
+   public Integer _errorFlags();
    
    /**
     * Sets the current value of the {@code __error-flag__} for this record.
@@ -168,7 +169,7 @@
     *
     * @see     Buffer#__ERROR_FLAG__
     */
-   public void _errorFlag(Integer flag);
+   public void _errorFlags(Integer flag);
    
    /**
     * Gets the current value of the {@code __error-string__} for this record.
@@ -202,7 +203,7 @@
          this._rowState(),
          this._peerRowid(),
          this._originRowid(),
-         this._errorFlag(),
+         this._errorFlags(),
          this._errorString()
       };
    }

=== modified file 'src/com/goldencode/p2j/persist/TempTableResultSet.java'
--- src/com/goldencode/p2j/persist/TempTableResultSet.java	2020-10-01 22:14:40 +0000
+++ src/com/goldencode/p2j/persist/TempTableResultSet.java	2020-11-20 18:40:59 +0000
@@ -26,6 +26,7 @@
 ** 014 CA  20200427 Flush the buffer before reading the records.
 ** 015 ECF 20200906 New ORM implementation.
 ** 016 OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
+**     SVL 20201030 Reflect extension of PropertyDefinition.
 */
 
 /*
@@ -356,12 +357,23 @@
          if (extent == 0)
          {
             props[dmoPropIndex.get(prop.name)] = 
-               new PropertyDefinition(prop.name, prop._fwdType, prop.legacy);
+               new PropertyDefinition(prop.name,
+                                      prop._fwdType,
+                                      prop.legacy,
+                                      prop.format,
+                                      prop.label,
+                                      prop.columnLabel);
          }
          else
          {
             props[dmoPropIndex.get(prop.name)] = 
-               new PropertyDefinition(prop.name, prop._fwdType, extent, prop.legacy);
+               new PropertyDefinition(prop.name,
+                                      prop._fwdType,
+                                      extent,
+                                      prop.legacy,
+                                      prop.format,
+                                      prop.label,
+                                      prop.columnLabel);
          }
       }
       

=== modified file 'src/com/goldencode/p2j/persist/TemporaryBuffer.java'
--- src/com/goldencode/p2j/persist/TemporaryBuffer.java	2020-10-05 18:05:51 +0000
+++ src/com/goldencode/p2j/persist/TemporaryBuffer.java	2021-01-29 00:53:41 +0000
@@ -2,7 +2,7 @@
 ** Module   : TemporaryBuffer.java
 ** Abstract : Specialized record buffer which supports temp table semantics
 **
-** Copyright (c) 2004-2020, Golden Code Development Corporation.
+** Copyright (c) 2004-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 ECF 20060125   @24356 Created initial version. Extends RecordBuffer
@@ -441,8 +441,7 @@
 **                           DMO alias binding is limited only for the duration of that top-level
 **                           block call.
 ** 152 IAS 20200413          Fixed DMO instantiation on SESSION:DATE-FORMAT.
-**     CA  20200427          Allow a TABLE to be read from JSON argument, in case of a remote REST 
-**                           call.
+**     CA  20200427          Allow a TABLE to be read from JSON argument, in case of a remote REST call.
 **     CA  20200514          Added support for SOAP web services (field are sent as BDT already, but the 
 **                           'fromJson' flags remains).
 ** 153 ECF 20200419          Removed Hibernate dependencies.
@@ -468,6 +467,20 @@
 **                           Use an identity HashSet where possible.
 **     CA  20201005          Fixed bulkCopyAllRows and copyAllRows - H2 will now match the WHERE and ORDER BY
 **                           indexes, avoiding re-sorting the fetched rows.
+**     AIL 20201031          Added sorted and direct keywords for insert into select from.
+**     AIL 20201118          Made extent fields bulk copy use insert into select from.
+**         20201125          Added fast copy validation using DMO signature.
+**         20201201          Moved fast copy implementation to FastCopyHelper. Added helper methods.
+**     CA  20201202          Record change notifications are processed only if the multiplex ID matches with
+**                           the event's source.
+**     AIL 20201215          Added before table prop mapping to the fast-copy helper call.
+**         20201216          Added support for fast loose-copy.
+**         20201228          Invalidated fast-find cache after fast-copy.
+**     CA  20201118          Fixed a leak related to cleaning up the multiplex scope when deleting a static
+**                           temp-table part of a persistent external program.
+**     OM  20201120          Fixed buffer copy methods. Fixed rejectChanges() method. Fixed management of
+**                           BEFORE-BUFFER atttibutes. Fixed buffer/table copy.
+**     OM  20201218          Fixed implementation for error and rejected attributes/hidden fields.
 */
 
 /*
@@ -691,11 +704,11 @@
    /** The actual proxy instance wrapping the DMO proxy. */
    private Temporary mutableProxy;
    
-   /** 
+   /**
     * For a master buffer, all explicit buffers created for it.
     * TODO: I think there is a memory leak hear, needs to be reviewed.
     */
-   private Set<Temporary> explicitBuffers = Collections.newSetFromMap(new IdentityHashMap<>());
+   private final Set<Temporary> explicitBuffers = Collections.newSetFromMap(new IdentityHashMap<>());
    
    /**
     * Constructor. This class is only instantiated via the {@link #define}
@@ -2757,7 +2770,7 @@
          dstRec._rowState((Integer) rowMeta[1]);
          dstRec._peerRowid((Long) rowMeta[2]); // this will be processed later on
          // TODO: originRowId - does it have any meaning?
-         dstRec._errorFlag((Integer) rowMeta[4]);
+         dstRec._errorFlags((Integer) rowMeta[4]);
          dstRec._errorString((String) rowMeta[5]);
          
          savedAny = true;
@@ -3157,48 +3170,49 @@
    }
    
    /**
-    * Copy all records from one temp table to another, optionally appending to records already
-    * present in the destination table.
+    * Copy all records from one temp table to another, optionally appending to records already present in the
+    * destination table.
     *
     * @param   srcRecId
-    *          The {@link rowid} of the current record in the source buffer - if not null, it will
-    *          be set in the destination buffer, too.
+    *          The {@link rowid} of the current record in the source buffer - if not null, it will be set in
+    *          the destination buffer, too.
     * @param   srcDMO
-    *          DMO instance returned by a previous call to {@link #define} on the source
-    *          temporary buffer.
+    *          DMO instance returned by a previous call to {@link #define} on the source temporary buffer.
     * @param   dstDMO
-    *          DMO instance returned by a previous call to {@link #define} on the
-    *          destination temporary buffer.
+    *          DMO instance returned by a previous call to {@link #define} on the destination temporary
+    *          buffer.
     * @param   append
-    *          <code>true</code> to add new records without affecting existing records;
-    *          <code>false</code> to remove all existing records before the copy takes place.
+    *          {@code true} to add new records without affecting existing records;
+    *          {@code false} to remove all existing records before the copy takes place.
     * @param   errorMode
     *          Table copy mode, affects error handling.
     * @param   skipUniqueConflicts
-    *          Corresponds append-mode in COPY-TEMP-TABLE. If there is a unique index on the
-    *          target temp-table and a row with a duplicate key is found, the row is not replaced.
-    *          This parameter is ignored if <code>replacePrimaryRecords</code> is
-    *          <code>true</code>.
-    * @param   replacePrimaryRecords
-    *          TODO implement support
-    *          Corresponds replace-mode in COPY-TEMP-TABLE. When <code>true</code> records in the
-    *          target temp-table are replaced with corresponding records from the source
-    *          temp-table. The target temp-table must have a unique primary index that be can used
-    *          to find the corresponding record. When the corresponding record is found in the
-    *          target temp-table, the target record is replaced with the source record.
+    *          Corresponds append-mode in COPY-TEMP-TABLE. If there is a unique index on the target temp-table
+    *          and a row with a duplicate key is found, the row is not replaced. This parameter is ignored if
+    *          {@code replaceMode} is {@code true}.
+    * @param   replaceMode
+    *          Corresponds replace-mode in COPY-TEMP-TABLE. When {@code true} records in the target temp-table
+    *          are replaced with corresponding records from the source temp-table. The target temp-table must
+    *          have a unique primary index that be can used to find the corresponding record. When the
+    *          corresponding record is found in the target temp-table, the target record is replaced with the
+    *          source record.
     * @param   looseCopy
-    *          Corresponds loose-copy-mode in COPY-TEMP-TABLE. Only the fields with the same name
-    *          that appear in both the source and target temp-table are copied. Other fields are
-    *          ignored.
+    *          Corresponds loose-copy-mode in COPY-TEMP-TABLE. Only the fields with the same name that appear
+    *          in both the source and target temp-table are copied. Other fields are ignored.
+    *          <p><b>Note:</b><br>
+    *          Because of an undocumented bug in OE, if the {@code replaceMode} is {@code true} the value will
+    *          'leak' and overwrite this parameter. As result, a temp-table can be copied to another,
+    *          incompatible temp-table even if {@code looseCopy} is explicitly set to {@code false}, just by
+    *          passing {@code true} for the previous parameter. 
     *
-    * @return  <code>true</code> if copy was successful. <code>false</code> if validation error
-    *          has occurred or the table is appended to itself.
+    * @return  {@code true} if copy was successful. 
+    *          {@code false} if validation error has occurred or the table is appended to itself.
     *
     * @throws  ErrorConditionException
     *          if a recoverable error occurs copying records.
     * @throws  RuntimeException
-    *          if an unrecoverable error occurs invoking methods on the underlying DMOs to get or
-    *          set data values.
+    *          if an unrecoverable error occurs invoking methods on the underlying DMOs to get or set data
+    *          values.
     */
    static boolean copyAllRows(rowid srcRecId,
                               Temporary srcDMO,
@@ -3206,10 +3220,16 @@
                               boolean append,
                               CopyTableMode errorMode,
                               boolean skipUniqueConflicts,
-                              boolean replacePrimaryRecords,
+                              boolean replaceMode,
                               boolean looseCopy)
    {
-      // Get source and destination buffers, both of which must be TemporaryBuffer instances.
+      if (replaceMode)
+      {
+         // see the javadoc note above for [looseCopy] parameter 
+         looseCopy = true;
+      }
+      
+      // get source and destination buffers, both of which must be TemporaryBuffer instances
       TemporaryBuffer srcBuf = (TemporaryBuffer) ((BufferReference) srcDMO).buffer();
       TemporaryBuffer dstBuf = (TemporaryBuffer) ((BufferReference) dstDMO).buffer();
       
@@ -3222,10 +3242,12 @@
       TemporaryBuffer dstB4Buf = null;
       boolean before = false;
       
-      if (((BufferImpl) srcDMO).isAfterBuffer() && ((BufferImpl) dstDMO).isAfterBuffer())
+      BufferImpl dstBufImpl = (BufferImpl) dstDMO;
+      BufferImpl srcBufImpl = (BufferImpl) srcDMO;
+      if (srcBufImpl.isAfterBuffer() && dstBufImpl.isAfterBuffer())
       {
-         srcB4DMO = (BufferImpl) ((BufferImpl) srcDMO).beforeBuffer().getResource(); 
-         dstB4DMO = (BufferImpl) ((BufferImpl) dstDMO).beforeBuffer().getResource();
+         srcB4DMO = (BufferImpl) srcBufImpl.beforeBuffer().getResource(); 
+         dstB4DMO = (BufferImpl) dstBufImpl.beforeBuffer().getResource();
          srcB4Buf = (TemporaryBuffer) ((BufferReference) srcB4DMO).buffer();
          dstB4Buf = (TemporaryBuffer) ((BufferReference) dstB4DMO).buffer();
          
@@ -3279,8 +3301,8 @@
       {
          if (errorMode == CopyTableMode.COPY_TEMP_TABLE_MODE)
          {
-            String msg = "Source and target are the same table in temp-table copy " +
-                         "operation for " + dstBufName;
+            String msg = "Source and target are the same table in temp-table copy operation for " + 
+                         dstBufName;
             ErrorManager.displayError(12301, msg, false);
             
             return false;
@@ -3299,12 +3321,10 @@
       
       boolean simpleCopy = srcBuf.getDMOImplementationClass().equals(dstBuf.getDMOImplementationClass());
       
-      // PROGRESS does not care if the field names are different; what it
-      // cares about are only the field type and position - if a source field
-      // has the same position and type as the destination field, then they
-      // are a match. If the source and destination fields at a certain
-      // position do not match, then PROGRESS will throw an error and abend
-      // the application.
+      // PROGRESS does not care if the field names are different; what it cares about are only the field type
+      // and position - if a source field has the same position and type as the destination field, then they
+      // are a match. If the source and destination fields at a certain position do not match, then PROGRESS
+      // will throw an error and abend the application.
       
       // if the backing tables are different, check if the fields match
       Map<DatumAccess, DatumAccess> propsMap = null;
@@ -3313,7 +3333,7 @@
       if (!simpleCopy)
       {
          // we need to modify the setter properties, so instantiate a new map
-         propsMap = createPropsMap(looseCopy, (BufferImpl) srcDMO, (BufferImpl) dstDMO, errorMode);
+         propsMap = createPropsMap(looseCopy, srcBufImpl, dstBufImpl, errorMode);
          if (propsMap == null)
          {
             return false;
@@ -3366,122 +3386,79 @@
          
          if (!srcBuf.isTableDefinitelyEmpty())
          {
-            DmoMeta dstMeta = dstBuf.getDmoInfo();
-            
-            // skip validation when:
-            // 1. same table and not in append mode (as dst will be empty) or
-            // 2. there are no unique constraints or mandatory fields in dst table
-            // TODO: enhance this if we are not in append mode, the dst and src tables are different, and they 
-            // have the same set of unique indexes (by the field position, not name) and the same set of
-            // mandatory fields (by field position, not name)
-            boolean bulkInsert = !append &&
-               ((dstBuf.getDMOImplementationClass() == srcBuf.getDMOImplementationClass()) ||
-                (dstMeta.getUniqueConstraints().isEmpty() && dstMeta.getMandatoryFields().isEmpty()));
-            
-            if (bulkInsert)
-            {
-               boolean hasBeforeRecords = before && !srcB4Buf.isTableDefinitelyEmpty();
-               String srcSqlIndexName = srcBuf.local.getImplicitSqlIndexName(srcBuf.getDMOInterface());
-               String srcIndexName = srcBuf.local.getImplicitIndexName(srcBuf.getDMOInterface());
-               
-               Map<Long, Long[]> srcToDstPks = bulkCopyAllRows(simpleCopy, 
-                                                               srcBuf, 
-                                                               dstBuf, 
-                                                               hasBeforeRecords || srcRecId != null, 
-                                                               propsMap,
-                                                               srcSqlIndexName,
-                                                               srcIndexName);
-               if (hasBeforeRecords)
-               {
-                  String srcB4SqlIndexName = srcB4Buf.local.getImplicitSqlIndexName(srcB4Buf.getDMOInterface());
-                  String srcB4IndexName = srcB4Buf.local.getImplicitIndexName(srcB4Buf.getDMOInterface());
-                  Map<Long, Long[]> srcB4ToDstB4Pks = bulkCopyAllRows(simpleCopy, 
-                                                                      srcB4Buf, 
-                                                                      dstB4Buf, 
-                                                                      true, 
-                                                                      propsMap, 
-                                                                      srcB4SqlIndexName,
-                                                                      srcB4IndexName);
-                  
-                  DmoMeta dstB4Meta = dstB4Buf.getDmoInfo();
-                  String dstTableB4 = dstB4Meta.getSqlTableName();
-                  
-                  List<String> sqls = new ArrayList<>();
-                  for (Map.Entry<Long, Long[]> entries : srcToDstPks.entrySet())
-                  {
-                     Long srcPk = entries.getKey();
-                     Long[] pair = entries.getValue();
-                     if (pair[1] == null)
-                     {
-                        continue;
-                     }
-                     
-                     Long dstPk = pair[0];
-                     Long srcPeerId = pair[1];
-                     Long dstB4Pk = srcB4ToDstB4Pks.get(srcPeerId)[0];
-                              
-                     sqls.add("update " + dstTableB4 + 
-                              " set " + TempRecord._PEER_ROWID + " = " + dstPk + 
-                              " where " + Session.PK + " = " + dstB4Pk);
-                  }
-                  
-                  String dstTable = dstMeta.getSqlTableName();
-                  for (Map.Entry<Long, Long[]> entries : srcB4ToDstB4Pks.entrySet())
-                  {
-                     Long srcB4Pk = entries.getKey();
-                     Long[] pair = entries.getValue();
-                     if (pair[1] == null)
-                     {
-                        continue;
-                     }
-                     
-                     Long dstB4Pk = pair[0];
-                     Long srcB4PeerId = pair[1];
-                     Long dstPk = srcToDstPks.get(srcB4PeerId)[0];
-                              
-                     sqls.add("update " + dstTable + 
-                              " set " + TempRecord._PEER_ROWID + " = " + dstB4Pk + 
-                              " where " + Session.PK + " = " + dstPk);
-                  }
-                  
-                  persistence.executeSQLBatch(sqls, true);
-               }
-               
-               // at this point, we are sure the source table is not empty and all records were copied.
-               savedAny = true; 
-               
-               if (srcRecId != null)
-               {
-                  destRecId = new rowid(srcToDstPks.get(srcRecId.getValue())[0]);
-               }
-               
-               return true;
+            String replaceQuery = null;
+            if (replaceMode)
+            {
+               P2JIndex primaryIndex = dstBuf.dmoInfo.getPrimaryIndex(true);
+               if (primaryIndex == null || !primaryIndex.isUnique())
+               {
+                  ErrorManager.recordOrShowError(11885);
+                  // A unique primary index is required in the target table, each field of which is mapped to some source field, in order to do a replace-mode or parent-mode COPY/GET/MERGE/FILL type of operation on a dataset table.
+                  return false;
+               }
+               
+               StringBuilder sb = new StringBuilder("WHERE ");
+               Iterator<P2JIndexComponent> it = primaryIndex.components();
+               boolean first = true;
+               while (it.hasNext())
+               {
+                  if (first)
+                  {
+                     first = false;
+                  }
+                  else
+                  {
+                     sb.append(" and ");
+                  }
+                  
+                  P2JIndexComponent comp = it.next();
+                  sb.append(dstBuf.getLegacyName()).append(".").append(comp.getLegacyName()).append("=")
+                    .append(srcBuf.getLegacyName()).append(".").append(comp.getLegacyName());
+               }
+               
+               replaceQuery = sb.toString();
+            }
+            else
+            {
+               FastCopyHelper fastCopyHelper = new FastCopyHelper(simpleCopy,
+                                                                  srcBuf,
+                                                                  dstBuf,
+                                                                  propsMap,
+                                                                  propsB4Map,
+                                                                  srcB4Buf,
+                                                                  dstB4Buf);
+               if (fastCopyHelper.canFastCopy(looseCopy))
+               {
+                  destRecId = fastCopyHelper.executeCopy(srcRecId, append);
+                  savedAny = true;
+                  return true;
+               }
             }
             
             // get the list of source records to be copied.  These will be all records in
             // srcBuf's backing temp table which have srcDMO's multiplex ID.
-            HQLExpression buf = new HQLExpression("from ");
-            buf.append(srcBuf.getDMOImplementationName());
+            HQLExpression fqlBuilder = new HQLExpression("from ");
+            fqlBuilder.append(srcBuf.getDMOImplementationName());
             
             // srcBuf is a TemporaryBuffer, so it isMultiplexed()
-            buf.append(" where ");
-            buf.append(MULTIPLEX_FIELD_NAME);
-            buf.append(" = ", true);
+            fqlBuilder.append(" where ");
+            fqlBuilder.append(MULTIPLEX_FIELD_NAME);
+            fqlBuilder.append(" = ", true);
             
             // force the records to be ordered by their ID
-            // TODO in copy-temp-table sorting order affects which record remains in constraints
-            // violation case. The correct sorting is by primary index if it presents or by
-            // the index with the lexicographically first name.
-            buf.append(" order by ");
-            buf.append(MULTIPLEX_FIELD_NAME);
-            buf.append(",");
-            buf.append(Session.PK);
+            // TODO: in copy-temp-table sorting order affects which record remains in constraints
+            //       violation case. The correct sorting is by primary index if it presents or by
+            //       the index with the lexicographically first name.
+            fqlBuilder.append(" order by ");
+            fqlBuilder.append(MULTIPLEX_FIELD_NAME);
+            fqlBuilder.append(",");
+            fqlBuilder.append(Session.PK);
             
-            String fql = buf.toFinalExpression();
+            String fql = fqlBuilder.toFinalExpression();
             String[] entities = new String[] { srcBuf.getEntityName() };
             Object[] parms = new Object[] { srcBuf.getMultiplexID() };
             ScrollableResults<TempRecord> results =
-               persistence.scroll(entities, fql, parms, 0, 0, ResultSet.TYPE_FORWARD_ONLY);
+                  persistence.scroll(entities, fql, parms, 0, 0, ResultSet.TYPE_FORWARD_ONLY);
             
             BufferManager bufMgr = srcBuf.getBufferManager();
             
@@ -3492,8 +3469,30 @@
                   // copy each source record into a new destination DMO instance
                   Object[] row = results.get();
                   TempRecord srcRec = (TempRecord) row[0];
-                  TempRecord dstRec = dstBuf.instantiateDMO();
-                  dstRec.initialize(dstBuf.getSession(), false);
+                  srcBuf.loadRecord(srcRec);
+                  TempRecord dstRec = null;
+                  boolean createNew = true;
+                  
+                  if (replaceMode)
+                  {
+                     logical found = dstBufImpl._find(replaceQuery,
+                                                      BufferImpl.FindMode.UNIQUE,
+                                                      LockType.EXCLUSIVE,
+                                                      srcBufImpl);
+                     if (found.booleanValue())
+                     {
+                        // do not create a new record. An existing record matching the index was found and
+                        // loaded into buffer 
+                        createNew = false;
+                        dstRec = ((TempRecord) dstBufImpl.buffer().getCurrentRecord());
+                     }
+                  }
+                  
+                  if (createNew)
+                  {
+                     dstRec = dstBuf.instantiateDMO();
+                     dstRec.initialize(dstBuf.getSession(), true);
+                  }
                   
                   if (simpleCopy)
                   {
@@ -3520,7 +3519,6 @@
                   dstRec.primaryKey(id);
                   
                   // validate a record against the target table
-                  // TODO also validate against already copied records
                   try
                   {
                      dstBuf.validate(dstRec);
@@ -3579,6 +3577,11 @@
                   savedAny = true;
                }
             }
+            catch (Throwable t) // debug block
+            {
+               t.printStackTrace();
+               throw t;
+            }
             finally
             {
                if (results != null)
@@ -3755,10 +3758,10 @@
       
       TempTable srcTempTable = srcBuf.getParentTable();
       TempTable dstTempTable = dstBuf.getParentTable();
-
+      
       String srcBufName = srcDMO.name().getValue();
       String dstBufName = dstDMO.name().getValue();
-
+      
       String[] srcProperties = TempTableBuilder.getOrderedPropertyNames(srcTempTable.getDMOInterface(), 
                                                                         srcTempTable);
       String[] dstProperties = TempTableBuilder.getOrderedPropertyNames(dstTempTable.getDMOInterface(), 
@@ -3808,13 +3811,17 @@
             }
             dstPropName = dstProperties[idx];
          }
-         else
+         else if (i < dstProperties.length)
          {
             dstPropName = dstProperties[i];
          }
+         else
+         {
+            handleTablesDoNotMatch(errorMode, srcBufName, dstBufName);
+            return null;
+         }
          
          String srcPropName = srcProperties[i];
-         
          DatumAccess srcDatum = srcBuf.getGetterDatums().get(srcPropName);
          DatumAccess dstDatum = dstBuf.getSetterDatums().get(dstPropName);
          
@@ -3896,287 +3903,6 @@
    }
    
    /**
-    * Performance improved variant for {@link #copyAllRows}, when we know the destination table can have its
-    * records inserted via <code>INSERT INTO ... SELECT FROM</code>, without having to do any validation on
-    * the records, as the destination table will accept them all.
-    * 
-    * @param    simpleCopy
-    *           Flag identifying if the source and destination tables have the same structure.
-    * @param    srcBuf
-    *           The source buffer.
-    * @param    dstBuf
-    *           The destination buffer.
-    * @param    mapPks
-    *           Flag indicating if the source and destination primary keys (and the <code>after-rowid</code>,
-    *           must be computed mapped.  Required to cross-reference before-table records or to place the
-    *           destination buffer on the proper record, if the source buffer has a record loaded.
-    * @param    propsMap
-    *           The property mapping.
-    * @param    sqlIndexName
-    *           The SQL index name used in SELECT.
-    * @param    indexName
-    *           The index name to compute the ORDER BY clause.
-    *           
-    * @return   If <code>mapPKs</code> is true, it will return a mapping of source primary keys to the pair
-    *           of destination primary key and the source record's after-rowid.
-    *           
-    * @throws   PersistenceException
-    *           In case of problems during insert/select/etc.
-    */
-   private static Map<Long, Long[]> bulkCopyAllRows(boolean                       simpleCopy,
-                                                    TemporaryBuffer               srcBuf, 
-                                                    TemporaryBuffer               dstBuf, 
-                                                    boolean                       mapPks,
-                                                    Map<DatumAccess, DatumAccess> propsMap,
-                                                    String                        sqlIndexName,
-                                                    String                        indexName)
-   throws PersistenceException
-   {
-      Persistence persistence = srcBuf.getPersistence();
-      
-      DmoMeta srcMeta = srcBuf.getDmoInfo();
-      DmoMeta dstMeta = dstBuf.getDmoInfo();
-      
-      String sequenceName = dstBuf.local.sequenceName;
-      String srcTable = srcMeta.getSqlTableName();
-      String dstTable = dstMeta.getSqlTableName();
-      
-      StringBuilder columnListSrc = new StringBuilder("nextval('").append(sequenceName).append("'),")
-          .append(dstBuf.getMultiplexID()).append(",")
-          .append(ReservedProperty._ERRORFLAG.column).append(",")
-          .append(ReservedProperty._ORIGINROWID.column).append(",")
-          .append(ReservedProperty._ERRORSTRING.column).append(",")
-          .append(ReservedProperty._PEERROWID.column).append(",")
-          .append(ReservedProperty._ROWSTATE.column);
-      StringBuilder columnListDst = new StringBuilder(Session.PK).append(",")
-          .append(MULTIPLEX_FIELD_NAME).append(",")
-          .append(ReservedProperty._ERRORFLAG.column).append(",")
-          .append(ReservedProperty._ORIGINROWID.column).append(",")
-          .append(ReservedProperty._ERRORSTRING.column).append(",")
-          .append(ReservedProperty._PEERROWID.column).append(",")
-          .append(ReservedProperty._ROWSTATE.column);
-      
-      Map<Integer, List<Property[]>> extentFields = new HashMap<>();
-      if (!simpleCopy)
-      {
-         for (Map.Entry<DatumAccess, DatumAccess> prop : propsMap.entrySet())
-         {
-            DatumAccess src = prop.getKey();
-            DatumAccess dst = prop.getValue();
-            Property srcProp = srcMeta.getFieldInfo(src.getPropertyName());
-            Property dstProp = dstMeta.getFieldInfo(dst.getPropertyName());
-            
-            if (srcProp.extent == 0)
-            {
-               columnListSrc.append(",").append(srcProp.column);
-               columnListDst.append(",").append(dstProp.column);
-               if (srcProp._isDatetimeTz)
-               {
-                  // adding support for timezone offset, in case of datetime-tz data
-                  columnListSrc.append(",").append(srcProp.column).append(DDLGeneratorWorker.DTZ_OFFSET);
-                  columnListDst.append(",").append(dstProp.column).append(DDLGeneratorWorker.DTZ_OFFSET);
-               }
-            }
-            else
-            {
-               List<Property[]> extents = 
-                     extentFields.computeIfAbsent(srcProp.extent, k -> new ArrayList<>());
-               extents.add(new Property[] { srcProp, dstProp });
-            }
-         }
-      }
-      else
-      {
-         Iterator<Property> iter = dstMeta.getFields(false);
-         while (iter.hasNext())
-         {
-            Property prop = iter.next();
-            if (prop.extent == 0)
-            {
-               columnListSrc.append(",").append(prop.column);
-               columnListDst.append(",").append(prop.column);
-               if (prop._isDatetimeTz)
-               {
-                  // adding support for timezone offset, in case of datetime-tz data
-                  columnListSrc.append(",").append(prop.column).append(DDLGeneratorWorker.DTZ_OFFSET);
-                  columnListDst.append(",").append(prop.column).append(DDLGeneratorWorker.DTZ_OFFSET);
-               }
-            }
-            else
-            {
-               List<Property[]> extents = 
-                     extentFields.computeIfAbsent(prop.extent, k -> new ArrayList<>());
-               extents.add(new Property[] { prop, prop });
-            }
-         }
-      }
-      
-      StringBuilder sort = null;
-      if (indexName != null)
-      {
-         Iterator<P2JIndex> iter = srcBuf.dmoInfo.getDatabaseIndexes();
-         while (iter.hasNext())
-         {
-            P2JIndex idx = iter.next();
-            if (idx.getName().equals(indexName))
-            {
-               sort = new StringBuilder(MULTIPLEX_FIELD_NAME);
-               Iterator<P2JIndexComponent> iterc = idx.components();
-               while (iterc.hasNext())
-               {
-                  P2JIndexComponent idxComp = iterc.next();
-                  String field = idxComp.getColumnName();
-                  if (idxComp.isCharType())
-                  {
-                     // temp-tables always have computed columns
-                     field = srcBuf.getDialect().getComputedColumnPrefix(!idxComp.isIgnoreCase()) + field;
-                  }
-                  sort.append(",").append(field).append(srcBuf.getDialect().orderByNulls(true));
-               }
-               if (!idx.isUnique())
-               {
-                  sort.append(",").append(Session.PK);
-               }
-               break;
-            }
-         }
-         
-         if (sort == null)
-         {
-            throw new PersistenceException("Could not find index for " + indexName);
-         }
-      }
-      if (sort == null)
-      {
-         sort = new StringBuilder(MULTIPLEX_FIELD_NAME).append(",").append(Session.PK);
-      }
-      
-      Object[] multiplexArg = new Object[] { srcBuf.getMultiplexID() };
-      Long firstDstPK = dstBuf.local.getCurrentPrimaryKey(dstBuf.getDMOInterface()) + 1;
-      persistence.executeSQL("alter sequence " + sequenceName + " restart with " + firstDstPK);
-      String sqlInsert = "insert into " + dstTable + " (" + columnListDst.toString() + ")" + 
-                         " select " + columnListSrc.toString() + 
-                         " from " + srcTable + 
-                         " use index (" + sqlIndexName + ")" +
-                         " where " + MULTIPLEX_FIELD_NAME + " = ?" + 
-                         " order by " + sort.toString();
-      
-      int recNum = persistence.executeSQL(sqlInsert, multiplexArg);
-      
-      Map<Long, Long[]> srcToDstPks = null;
-      if (mapPks)
-      {
-         srcToDstPks = new HashMap<>();
-         
-         // create the mappings of original PK to new PKs
-         String sqlPk = "select " + Session.PK + "," + TempRecord._PEER_ROWID +
-                        " from " + srcTable + 
-                        " use index (" + sqlIndexName + ")" +
-                        " where " + MULTIPLEX_FIELD_NAME + " = ?" +  
-                        " order by " + sort;
-         ScrollableResults<Long> srcPks = persistence.executeSQLQuery(sqlPk, multiplexArg);
-         int i = 0;
-         while (srcPks.next())
-         {
-            Long srcPk = srcPks.get(0, Long.class);
-            Long srcPeerId = srcPks.get(1, Long.class);
-            Long dstPk = firstDstPK + i;
-            i = i + 1;
-            
-            srcToDstPks.put(srcPk, new Long[] { dstPk, srcPeerId });
-         }
-      }
-      
-      // update the DMO's primary key generator 
-      dstBuf.local.setCurrentPrimaryKey(dstBuf.getDMOInterface(), firstDstPK + recNum - 1);
-      
-      if (!extentFields.isEmpty())
-      {
-         // insert records in all extent tables
-         for (Map.Entry<Integer, List<Property[]>> extent : extentFields.entrySet())
-         {
-            // the SELECT (part of the INSERT) will not be able to use and INDEX, so we need to fetch all 
-            // records and use INSERT with multiple rows (plus batch inserts).
-            
-            // the PARENT__ID will be computed explicitly
-            StringBuilder extColumnListSrc = new StringBuilder(ReservedProperty.LIST__INDEX.column); 
-            StringBuilder extColumnListDst = new StringBuilder();
-            extColumnListDst.append(ReservedProperty.PARENT__ID.column).append(",")
-                            .append(ReservedProperty.LIST__INDEX.column);
-            StringBuilder values = new StringBuilder("?, ?"); // PARENT__ID, LIST__INDEX
-            for (Property[] props : extent.getValue())
-            {
-               values.append(", ?");
-               
-               extColumnListSrc.append(",").append(props[0].column);
-               if (props[0]._isDatetimeTz)
-               {
-                  // adding support for timezone offset, in case of datetime-tz data
-                  extColumnListSrc.append(",").append(props[0].column).append(DDLGeneratorWorker.DTZ_OFFSET);
-               }
-               
-               extColumnListDst.append(",").append(props[1].column);
-               if (props[1]._isDatetimeTz)
-               {
-                  // adding support for timezone offset, in case of datetime-tz data
-                  extColumnListDst.append(",").append(props[1].column).append(DDLGeneratorWorker.DTZ_OFFSET);
-               }
-            }
-            
-            String sqlExtSelect = 
-                  " select " + extColumnListSrc.toString() + 
-                  " from " + srcTable + "__" + extent.getKey() + 
-                  " join " + srcTable + " on " + ReservedProperty.PARENT__ID.column + " = " + Session.PK +
-                  " where " + MULTIPLEX_FIELD_NAME + " = ?" + 
-                  " order by " + sort + ", " + 
-                               ReservedProperty.PARENT__ID.column + ", " + 
-                               ReservedProperty.LIST__INDEX.column;
-            ScrollableResults<?> results = persistence.executeSQLQuery(sqlExtSelect, multiplexArg);
-            
-            StringBuilder sqlExtInsert = new StringBuilder();
-            sqlExtInsert.append("insert into ").append(dstTable).append("__").append(extent.getKey());
-            sqlExtInsert.append("(").append(extColumnListDst).append(") values ");
-            for (int i = 0; i < extent.getKey(); i++)
-            {
-               sqlExtInsert.append(i == 0 ? "" : ",").append("(").append(values).append(")");
-            }
-            int width = 2 + extent.getValue().size();
-            long[] nextRecPK = new long[] { firstDstPK };
-            Object[] args = new Object[width * extent.getKey()];
-            
-            Supplier<Object[]> applyArgs = () ->
-            {
-               for (int i = 0; i < extent.getKey(); i++)
-               {
-                  if (!results.next())
-                  {
-                     return null;
-                  }
-                  
-                  Object[] next = results.get();
-                  int offset = i * width;
-                  args[offset] = nextRecPK[0];
-                  
-                  for (int k = 0; k < next.length; k++)
-                  {
-                     offset = offset + 1;
-                     args[offset] = next[k];
-                  }
-               }
-               
-               nextRecPK[0]++;
-               
-               return args;
-            };
-            
-            persistence.executeSQLBatch(sqlExtInsert.toString(), applyArgs);
-         }
-      }
-      
-      return srcToDstPks;
-   }
-   
-   /**
     * This is the actual implementation of TEMP-TABLE buffer's GET-CHANGES method. No validation
     * is performed, the method expects the parameters to be validated in calling method.
     * <p>
@@ -4226,8 +3952,7 @@
          // TODO in copy-temp-table sorting order affects which record remains in constraints
          // violation case. The correct sorting is by primary index if it presents or by
          // the index with the lexicographically first name.
-         beforeHql.append(" order by ");
-         beforeHql.append(Session.PK);
+         beforeHql.append(" order by ").append(Buffer.ROW_STATE_FIELD).append(",").append(Session.PK);
          
          ScrollableResults<Record> beforeRes =
             persistence.scroll(new String[] { srcBefore.getEntityName() },
@@ -4246,10 +3971,7 @@
                TempRecord dstBeforeRec = dstBefore.instantiateDMO();
                dstBeforeRec.initialize(dstBefore.getSession(), false);
                
-               copyDMO(dstBeforeRec,
-                       srcBeforeRec,
-                       (BufferImpl) dstBefore.getDMOProxy(),
-                       (BufferImpl) srcBefore.getDMOProxy());
+               BaseRecord.copy(dstBeforeRec, srcBeforeRec, true);
                Integer rowState = srcBeforeRec._rowState();
                dstBeforeRec._rowState(rowState);
                
@@ -4266,10 +3988,7 @@
                   {
                      TempRecord dstAfterRec = dstAfter.instantiateDMO();
                      dstAfterRec.initialize(dstAfter.getSession(), false);
-                     copyDMO(dstAfterRec,
-                             srcAfterRec,
-                             (BufferImpl) dstBefore.getDMOProxy(),
-                             (BufferImpl) srcBefore.getDMOProxy());
+                     BaseRecord.copy(dstAfterRec, srcAfterRec, true);
                      dstAfterRec._rowState(rowState);
                      
                      Long idChAfter = dstAfter.nextPrimaryKey();
@@ -4361,14 +4080,12 @@
    /**
     * Rejects changes to the data in the AFTER-BUFFER of this BEFORE-BUFFER.
     * 
-    * @param   before
-    *          The BEFORE-BUFFER to be processed.
     * @param   after
     *          The AFTER-BUFFER to be processed.
     *
     * @return  {@code true} if operation is successful.
     */
-   protected boolean rejectChanges(BufferImpl before, BufferImpl after)
+   protected boolean rejectChanges(BufferImpl after)
    {
       if (isTableDefinitelyEmpty())
       {
@@ -4412,25 +4129,29 @@
                      // restore back the deleted record:
                      after.create();
                      Record deletedRec = afterDMO.getCurrentRecord();
-                     copyDMO(deletedRec, srcBeforeRec, after, before);
+                     BaseRecord.copy(deletedRec, srcBeforeRec, false);
                      Long idAfter = afterDMO.nextPrimaryKey();
-                     persistence.save(deletedRec, idAfter);
+                     afterDMO.rowState(Buffer.ROW_UNMODIFIED);
+                     afterDMO.originRowid(new rowid());
+                     after.release();
                      savedAny = true;
                      break;
+                     
                   case Buffer.ROW_MODIFIED:
                      // restore old value of fields
                      after.findByRowID(new rowid(afterRowid));
                      if (after._available())
                      {
                         Record afterRec = afterDMO.getCurrentRecord();
-                        copyDMO(afterRec, srcBeforeRec, after, before);
+                        BaseRecord.copy(afterRec, srcBeforeRec, false);
                         afterDMO.peerRowid(new rowid());
                         afterDMO.rowState(Buffer.ROW_UNMODIFIED);
+                        afterDMO.originRowid(new rowid());
                         after.release();
                         savedAny = true;
                      }
+                     break;
                      
-                     break;
                   case Buffer.ROW_CREATED:
                      // delete back this record
                      after.findByRowID(new rowid(afterRowid));
@@ -4441,7 +4162,7 @@
                      break;
                   // otherwise ?
                }
-               afterDMO.setIgnoreBeforeTracking(true);
+               afterDMO.setIgnoreBeforeTracking(false);
             }
          }
          finally
@@ -4454,6 +4175,10 @@
          
          // if everything went fine, delete all data from this table
          deleteAll();
+         
+         // and remove the origin-table link
+         ((AbstractTempTable) this.tableHandle().getResource()).setOriginTable(null);
+         ((AbstractTempTable) after.tableHandle().getResource()).setOriginTable(null);
       }
       catch (PersistenceException exc)
       {
@@ -4646,9 +4371,9 @@
     * @return  {@code true} on success and {@code false} if any error is detected.
     */
    protected static boolean copyParentUnchangedRecords(BufferImpl parentDst,
-                                             BufferImpl parentSrc,
-                                             BufferImpl childSrc,
-                                             String whereStr)
+                                                       BufferImpl parentSrc,
+                                                       BufferImpl childSrc,
+                                                       String whereStr)
    {
       // What this method does:
       //    for each [childSrc.before]
@@ -4683,13 +4408,13 @@
          
          while (!query._isOffEnd())
          {
-            if (parentSrc.rowState().isUnknown() ||
-                parentSrc.rowState().intValue() == Buffer.ROW_UNMODIFIED)
+            integer rowState = parentSrc.rowState();
+            if (rowState.isUnknown() || rowState.intValue() == Buffer.ROW_UNMODIFIED)
             {
                parentDst.create();
                Record dstDMO = parentDst.buffer().getCurrentRecord();
                Record srcDMO = parentSrc.buffer().getCurrentRecord();
-               copyDMO(dstDMO, srcDMO, parentDst, parentSrc);
+               BaseRecord.copy(dstDMO, srcDMO, false);
                parentDst.release();
             }
             query.getNext();
@@ -4737,11 +4462,9 @@
       switch (errorMode)
       {
          case COPY_TEMP_TABLE_MODE:
-            e = new NumberedException("COPY-TEMP-TABLE requires " + srcBufName + " and " +
-                  dstBufName + " columns to match exactly unless the fourth loose-mode " +
-                  "parameter is passed as TRUE", 12303, false);
-            ErrorManager.displayError(e.getNumber(), e.getMessage(), e.isPrefix());
-            throw new InvalidParameterConditionException(e);
+            ErrorManager.recordOrShowError(12303, srcBufName, dstBufName);
+            // COPY-TEMP-TABLE requires <source-name> and <target-name> columns to match exactly unless the fourth loose-mode parameter is passed as TRUE.
+            break;
             
          case INPUT_PARAM_MODE:
             e = new NumberedException("The caller's temp-table parameter " + srcBufName +
@@ -5051,6 +4774,12 @@
    public void stateChanged(RecordChangeEvent event)
    throws PersistenceException
    {
+      Integer srcMPID = event.getSource().getMultiplexID();
+      if (!srcMPID.equals(multiplexID))
+      {
+         return;
+      }
+      
       if (event.isInsert())
       {
          local.emptyTableFlags.put(multiplexID, Boolean.FALSE);
@@ -5076,13 +4805,8 @@
          // know our record must have been deleted.
          if (event.isFullBulkDelete())
          {
-            Integer srcMPID = event.getSource().getMultiplexID();
-            if (srcMPID.equals(multiplexID))
-            {
-               release(false);
-               
-               return;
-            }
+            release(false);
+            return;
          }
          
          // Query whether the buffer's current record still exists.
@@ -5376,6 +5100,68 @@
    {
       return true;
    }
+   
+   /**
+    * Get the current primary key for the specified temp-table.
+    * 
+    * @param    dmoInterface
+    *           Data model object interface.
+    *           
+    * @return   The current primary key.
+    */
+   public long getCurrentPrimaryKey(Class<? extends DataModelObject> dmoInterface)
+   {
+      return local.getCurrentPrimaryKey(dmoInterface);
+   }
+   
+   /**
+    * Set the primary key sequence for the specified temp-table to the new value.
+    * 
+    * @param    dmoIface
+    *           Data model object interface.
+    * @param    value
+    *           The new value for the primary key sequence.
+    */
+   public void setCurrentPrimaryKey(Class<? extends DataModelObject> dmoIface, long value)
+   {
+      local.setCurrentPrimaryKey(dmoIface, value);
+   }
+   
+   /**
+    * Get this user's sequence name in the temporary database.
+    *          
+    * @return  User's sequence name in the temporary database.
+    */
+   public String getSequenceName()
+   {
+      return local.sequenceName;
+   }
+   
+   /**
+    * Get the implicit SQL index name.
+    * 
+    * @param   dmoInterface
+    *          DMO interface which represents the temp table.
+    *          
+    * @return  See the local method implementation.
+    */
+   public String getImplicitSqlIndexName(Class<? extends DataModelObject> dmoInterface)
+   {
+      return local.getImplicitSqlIndexName(dmoInterface);
+   }
+   
+   /**
+    * Get the implicit index name.
+    * 
+    * @param   dmoInterface
+    *          DMO interface which represents the temp table.
+    *          
+    * @return  See the local method implementation.
+    */
+   public String getImplicitIndexName(Class<? extends DataModelObject> dmoInterface)
+   {
+      return local.getImplicitIndexName(dmoInterface);
+   }
 
    /**
     * Get the logical database name associated with this buffer.  This will
@@ -5569,7 +5355,7 @@
     * @return  Multiplex ID for this temporary buffer.
     */
    @Override
-   protected Integer getMultiplexID()
+   public Integer getMultiplexID()
    {
       return multiplexID;
    }
@@ -5789,16 +5575,19 @@
          master.explicitBuffers.remove(mutableProxy);
       }
       
-      if (dynamicMultiplexer != null)
+      if (master == null || dynamicMultiplexer != null)
       {
          closeMultiplexScope();
          
-         // remove multiplexer from TransactionManager's global finalizables, unless we are being
-         // invoked in the global scope, since it will be removed imminently anyway
-         int blockDepth = bufferManager.getCurrentScope();
-         if (blockDepth > 0)
+         if (dynamicMultiplexer != null)
          {
-            txHelper.deregisterGlobalFinalizable(dynamicMultiplexer);
+            // remove multiplexer from TransactionManager's global finalizables, unless we are being
+            // invoked in the global scope, since it will be removed imminently anyway
+            int blockDepth = bufferManager.getCurrentScope();
+            if (blockDepth > 0)
+            {
+               txHelper.deregisterGlobalFinalizable(dynamicMultiplexer);
+            }
          }
       }
    }
@@ -5891,13 +5680,12 @@
     * are defined as constants in {@link Buffer} interface. Additionally, {@code unknown} value is
     * returned if property is not available. 
     *
-    * @return  The current value of the {@code ROW-STATUS} property for this record as
-    *          explained above.
+    * @return  The current value of the {@code ROW-STATUS} property for this record as explained above.
     */
    @Override
    protected integer rowState()
    {
-      if (!isAvailable())
+      if (!isAvailable() || ((BufferImpl) getDMOProxy())._dataSet() == null)
       {
          return new integer();
       }
@@ -5935,7 +5723,8 @@
       
       setupBeforeFlagImpl((r) -> r._rowState(state),
                           Buffer.ROW_STATE_FIELD,
-                          Buffer.__ROW_STATE__);
+                          Buffer.__ROW_STATE__,
+                          false);
    }
    
    /**
@@ -5969,41 +5758,82 @@
    {
       setupBeforeFlagImpl((r) -> r._peerRowid(peer.getValue()),
                           Buffer.AFTER_ROWID_FIELD,
-                          Buffer.__AFTER_ROWID__);
+                          Buffer.__AFTER_ROWID__,
+                          false);
+   }
+   
+   /**
+    * Sets the {@code origin-rowid} for AFTER-TABLE record.
+    *
+    * @param   peer
+    *          The new long rowid value of the record or {@code null}.
+    */
+   @Override
+   public void originRowid(rowid peer)
+   {
+      setupBeforeFlagImpl((r) -> r._peerRowid(peer.getValue()),
+                          Buffer.ORIGIN_ROWID_FIELD,
+                          Buffer.__ORIGIN_ROWID__,
+                          false);
    }
    
    /**
     * Gets {@code errorFlag} of this record. 
     *
-    * @return  the {@code errorFlag} of this record or {@code unknown} if it was not configured.
+    * @return  the {@code errorFlag} of this record or {@code null} if it was not configured. If not null,
+    *          the value is a bitwise combination of ERROR and REJECTED attribute. It's up to the called to
+    *          extract the bit(s) it needs.
     * 
     * @see     Buffer#__ERROR_FLAG__
+    * @see     Buffer#ERROR_ERROR
+    * @see     Buffer#ERROR_REJECTED
     */
    @Override
-   protected integer errorFlag()
+   protected Integer errorFlags()
    {
       if (!isAvailable())
       {
-         return new integer();
+         return null;
       }
       
-      return new integer(getCurrentRecord()._errorFlag());
+      return getCurrentRecord()._errorFlags();
    }
    
    /**
-    * Sets the {@code errorFlag} value this peer record.
+    * Sets or removes the {@code errorFlag} value this peer record. The {@code error} attribute of the record
+    * is composed of multiple bit flags. This method manages its value based on the parameters it receives.
     *
-    * @param   err
-    *          The new error flag.
+    * @param   errFlag
+    *          The error bit to be set or removed.
+    * @param   set
+    *          Use {@code true} to set the flag and {@code false} to remove it.
     *
     * @see     Buffer#__ERROR_FLAG__
+    * @see     Buffer#ERROR_ERROR
+    * @see     Buffer#ERROR_REJECTED
     */
    @Override
-   protected void errorFlag(integer err)
+   protected void updateErrorFlags(int errFlag, boolean set)
    {
-      setupBeforeFlagImpl((r) -> r._errorFlag(err.intValue()),
-                          Buffer.ERROR_FLAG_FIELD,
-                          Buffer.__ERROR_FLAG__);
+      setupBeforeFlagImpl(
+         r -> {
+            Integer errFlags = r._errorFlags();
+            if (errFlags == null)
+            {
+               if (set)
+               {
+                  r._errorFlags(errFlag);
+               }
+               // else let it unchanged (null)
+            }
+            else
+            {
+               r._errorFlags(set ? (errFlags | errFlag) : (errFlags & ~errFlag));
+            }
+         },
+         Buffer.ERROR_FLAG_FIELD,
+         Buffer.__ERROR_FLAG__,
+         true);
    }
    
    /**
@@ -6037,7 +5867,8 @@
    {
       setupBeforeFlagImpl((r) -> r._errorString(string.toJavaType()),
                           Buffer.ERROR_STRING_FIELD,
-                          Buffer.__ERROR_STRING__);
+                          Buffer.__ERROR_STRING__,
+                          true);
    }
    
    /**
@@ -6220,7 +6051,7 @@
                   {
                      String msg = "LIKE option " + like + " of the field " + getLegacyName() + "." + 
                                   field.legacy + " must have a table qualifier";
-                     ErrorManager.displayError(msg, false);
+                     ErrorManager.displayError(msg, false, null);
                      return;
                   }
                   
@@ -6231,7 +6062,7 @@
                   {
                      String msg = "Could not find persistence for LIKE option " + like + " of the field " + 
                                   getLegacyName() + "." + field.legacy;
-                     ErrorManager.displayError(msg, false);
+                     ErrorManager.displayError(msg, false, null);
                      return;
                   }
                   
@@ -6251,7 +6082,7 @@
                   {
                      String msg = "Could not find like-field for LIKE option " + like + " of the field " + 
                                   getLegacyName() + "." + field.legacy;
-                     ErrorManager.displayError(msg, false);
+                     ErrorManager.displayError(msg, false, null);
                      return;
                   }
                   
@@ -6536,7 +6367,7 @@
     * @throws  PersistenceException
     *          if an error occurs performing the bulk delete operation.
     */
-   protected void delete(String where, Object[] args)
+   protected void delete(String where, Object... args)
    throws PersistenceException
    {
       if (!hasOoDestructors())
@@ -6573,7 +6404,7 @@
     * @throws  PersistenceException
     *          if an error occurs performing the bulk delete operation.
     */
-   protected void delete(DataModelObject[] suppDMOs, String where, Object[] args)
+   protected void delete(DataModelObject[] suppDMOs, String where, Object... args)
    throws PersistenceException
    {
       if (!hasOoDestructors())
@@ -6604,6 +6435,13 @@
    protected void delete(Supplier<logical> valexp, Supplier<character> valmsg)
    throws PersistenceException
    {
+      if (createRowCallback)
+      {
+         // deleting a transient record, see [createRowCallback] javadoc
+         release(true, false);
+         return;
+      }
+      
       // check the BEFORE-BUFFER constraints
       BufferImpl buf = (BufferImpl) getDMOProxy();
       if (buf.isBeforeBuffer() && buf.hasBeforeBufferConstraints())
@@ -6623,7 +6461,7 @@
       
       boolean autoCommit = !bufferManager.isTransaction();
       Long id = null;
-      persistenceContext.beginTransaction(null);
+      autoCommit &= persistenceContext.beginTransaction(null);
       
       try
       {
@@ -6636,10 +6474,10 @@
          rowid b4Rowid = null;
          Long originRowid = null;
          BufferImpl after = (BufferImpl) getDMOProxy();
-         if (!ignoreBeforeTracking        &&
-             buffer().isAvailable()       &&
-             after.isAfterBuffer()        &&
-             !after.dataSet().isUnknown() &&
+         if (!ignoreBeforeTracking    &&
+             buffer().isAvailable()   &&
+             after.isAfterBuffer()    &&
+             after._dataSet() != null &&
              TempTableBuilder.asTempTable((Temporary) after).isTrackingChanges().getValue())
          {
             b4Copy = buffer().getCurrentRecord().snapshot();
@@ -6663,7 +6501,8 @@
                   before.findByRowID(b4Rowid);
                   if (before._available())
                   {
-                     if (before.rowState().intValue() == Buffer.ROW_CREATED)
+                     integer rowState = before.rowState();
+                     if (!rowState.isUnknown() && rowState.intValue() == Buffer.ROW_CREATED)
                      {
                         before.deleteRecord();
                      }
@@ -6672,14 +6511,14 @@
                   {
                      // create new before record image, then update my before-rowid and row-state
                      before.create();
-                     copyDMO(b4Buffer.getCurrentRecord(), b4Copy, before, after);
+                     BaseRecord.copy(b4Buffer.getCurrentRecord(), b4Copy, false);
                   }
                }
                else  // ROW-STATE(before) == Buffer.ROW_UNMODIFIED
                {
                   // create new before record image, then update my before-rowid and row-state
                   before.create();
-                  copyDMO(b4Buffer.getCurrentRecord(), b4Copy, before, after);
+                  BaseRecord.copy(b4Buffer.getCurrentRecord(), b4Copy, false);
                }
                
                if (b4Buffer.isAvailable())
@@ -6688,12 +6527,25 @@
                   b4Buffer.peerRowid(new rowid());
                   // keep the reference to the original datasource-rowid
                   // TODO: is this only for DATA-SOURCE? because for a simple TEMP-TABLE (in a DATASET), this
-                  // is not set.
+                  //       is not set.
                   ((TempRecord) b4Buffer.getCurrentRecord())._originRowid(originRowid);
                }
                
                before.setUpBeforeBuffer(false);
-               // do not release the before buffer, let it hold the newly created row
+               // do not release the before buffer, let it hold the newly created row, but flush it!
+               
+               if (b4Buffer.isAvailable())
+               {
+                  try
+                  {
+                     b4Buffer.flush();
+                  }
+                  catch (ValidationException e)
+                  {
+                     // this should not happen, there are no constraints to validate on before records 
+                     throw new PersistenceException(e);
+                  }
+               }
             }
          }
          
@@ -6716,7 +6568,7 @@
                // TODO: what to do here?
                if (LOG.isLoggable(Level.WARNING))
                {
-                  LOG.log(Level.WARNING, "Error commiting delete", exc);
+                  LOG.log(Level.WARNING, "Error committing delete", exc);
                }
             }
          }
@@ -7237,29 +7089,43 @@
     *          The java name of the field to be updated. used to notify the {@code ChangeBroker}. 
     * @param   legacy
     *          The legacy name of the field. Only used for logging when operation fails.
+    * @param   updatePeer
+    *          Update the peer too: make the same change to the peer record.
     */
-   private void setupBeforeFlagImpl(BeforeFieldUpdater updater, String changedField, String legacy)
+   private void setupBeforeFlagImpl(BeforeFieldUpdater updater,
+                                    String changedField,
+                                    String legacy,
+                                    boolean updatePeer)
    {
       if (!isAvailable())
       {
          return;
       }
-   
+      
       TempRecord record = getCurrentRecord();
       TempRecord snapshot = (TempRecord) record.deepCopy();
-      snapshot._rowState(record._rowState());
-      snapshot._peerRowid(record._peerRowid());
-      snapshot._errorFlag(record._errorFlag());
-      snapshot._errorString(record._errorString());
-      snapshot._originRowid(record._originRowid());
       updater.update(record);
+      record.updateState(null, DmoState.CHANGED, true);
       
       try
       {
          Map<String, List<Integer>> props = new HashMap<>();
          props.put(changedField, null);
-         changeBroker.stateChanged(
-               RecordChangeEvent.Type.UPDATE, this, record, snapshot, props);
+         changeBroker.stateChanged(RecordChangeEvent.Type.UPDATE, this, record, snapshot, props);
+         
+         if (updatePeer && record._peerRowid() != null)
+         {
+            Class<? extends Record> peerClass = 
+                  ((BufferImpl) getDMOProxy()).peerBuffer.buffer().getDMOImplementationClass();
+            Session session = getPersistence().getSession();
+            TempRecord peerRecord = (TempRecord) session.get(peerClass, record._peerRowid());
+            TempRecord peerSnapshot = (TempRecord) peerRecord.deepCopy();
+            updater.update(peerRecord);
+            peerRecord.updateState(null, DmoState.CHANGED, true);
+            
+            // reusing props
+            changeBroker.stateChanged(RecordChangeEvent.Type.UPDATE, this, peerRecord, peerSnapshot, props);
+         }
       }
       catch (PersistenceException pe)
       {
@@ -8153,29 +8019,29 @@
       private final Temporary def;
       
       /** A map between the definition-time DMO properties and their indexes. */
-      private Map<String, Integer> propertyIndexes = new HashMap<>();
-
+      private final Map<String, Integer> propertyIndexes = new HashMap<>();
+      
       /** The buffer instance created at the definition time. This is what {@link #def} proxies. */
-      private TemporaryBuffer defBuffer;
-
+      private final TemporaryBuffer defBuffer;
+      
       /** The DMO property setters to their property name. */
       private Map<Method, String> defPropsBySetter;
-
+      
       /** The DMO property getters to their property name. */
       private Map<Method, String> defPropsByGetter;
-
+      
       /** The bound DMO proxy. */
       private Temporary bound = null;
       
       /** The bound DMO property names. */
       private String[] boundProperties = null;
-
+      
       /** The bound DMO property getters. */
       private Map<String, Method> boundGetterByProp;
-
+      
       /** The bound DMO property setters. */
       private Map<String, Method> boundSetterByProp;
-
+      
       /** The bound DMO buffer.  This is what {@link #bound} proxies. */
       private TemporaryBuffer boundBuffer;
       
@@ -8248,7 +8114,6 @@
          for (int i = 0; i < boundFields.size(); i++)
          {
             boundProperties[i] = boundFields.get(i).getJavaName();
-         
             properties.put(cvtFields.get(i).getJavaName(), boundProperties[i]);
          }
          properties = Collections.unmodifiableMap(properties);

=== modified file 'src/com/goldencode/p2j/persist/annotation/Index.java'
--- src/com/goldencode/p2j/persist/annotation/Index.java	2020-09-07 10:42:05 +0000
+++ src/com/goldencode/p2j/persist/annotation/Index.java	2020-12-25 12:48:37 +0000
@@ -2,13 +2,14 @@
 ** Module   : Index.java
 ** Abstract : Annotation used to store information about a legacy table index.
 **
-** Copyright (c) 2013-2019, Golden Code Development Corporation.
+** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 CA  20131021 Created initial version.
 ** 002 VMN 20131125 Added method primary().
 ** 003 SVL 20160704 Added unique(), word(), components().
 ** 004 ECF 20190831 Refactored from LegacyIndex.
+** 005 IAS 20201224 Added 'wordtablename' attribute.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -79,6 +80,9 @@
    
    /** The name of the legacy table index. */
    String legacy();
+
+   /** The names of the word table (for word index). */
+   String wordtablename() default "";
    
    /** Defines whether this table index is primary. */
    boolean primary() default false;
@@ -91,4 +95,4 @@
    
    /** Array of index components (fields with sorting directions). */
    IndexComponent[] components() default {};
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/persist/annotation/Property.java'
--- src/com/goldencode/p2j/persist/annotation/Property.java	2020-10-01 22:14:40 +0000
+++ src/com/goldencode/p2j/persist/annotation/Property.java	2021-01-13 21:04:41 +0000
@@ -24,6 +24,8 @@
 **     IAS 20200804 Added support for the field DESCRIPTION, CASE-SENSITIVE, DECIMALS,
 **                  and MAX-WIDTH attributes
 **     OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
+**     SVL 20201111 Use "reserved null" as a default value for LABEL and COLUMN-LABEL.
+**     OM  20201120 Fixed default value for scale/decimals.
 */
 
 /*
@@ -95,6 +97,12 @@
 public @interface Property
 {
    /**
+    * "Reserved null". Used as a default value for nullable properties because you cannot set null as a
+    * default value for a property. Later it is converted to true null.
+    */
+   String NULL_STRING = "__NULL_STRING__#!^+*__";
+
+   /**
     * The id of this field in the sequence of the fields of the buffer. It is needed by the
     * dynamic {@code bufferField(int)} attribute of the {@code BufferImpl} for
     * emulating the {@code BUFFER-FIELD(integer)} buffer handle attribute.
@@ -144,13 +152,13 @@
    boolean initialNull() default false;
    
    /** LABEL attribute of this field. */
-   String label() default "";
+   String label() default NULL_STRING;
    
    /** LABEL-SA option of this table. */
    String label_sa() default "";
    
    /** COLUMN-LABEL attribute of this field. */
-   String columnLabel() default "";
+   String columnLabel() default NULL_STRING;
    
    /** COLUMN-LABEL-SA attribute of this field. */
    String columnLabel_sa() default "";
@@ -194,7 +202,7 @@
    boolean caseSensitive() default false;
    
    /** Scale for decimal fields (decimals, precision, in 4GL terms). Other datatypes are not affected. */
-   int scale() default 10;
+   int scale() default 0;
    
    /** Flag indicating the field should not be included in serialized output. */
    boolean serializeHidden() default false;

=== modified file 'src/com/goldencode/p2j/persist/annotation/Table.java'
--- src/com/goldencode/p2j/persist/annotation/Table.java	2020-09-07 10:42:05 +0000
+++ src/com/goldencode/p2j/persist/annotation/Table.java	2020-11-20 18:40:59 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2014-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20131015 Created initial version.
 ** 002 VMN 20140422 Added table() method.
 ** 003 SVL 20140502 Added hasValidation() method.
@@ -15,6 +15,7 @@
 ** 007 OM  20190520 Added AFTER-TABLE and BEFORE-TABLE temp-table names.
 ** 008 ECF 20190831 Refactored from LegacyTable.
 **     OM  20200108 Added "dirtyRead" attribute.
+** 009 OM  20201120 Added "no-undo" attribute, specific to TEMP-TABLEs.
 */
 
 /*
@@ -105,6 +106,9 @@
    /** CATEGORY option of this table. */
    String category() default "";
    
+   /** The NO-UNDO option, for TEMP-TABLES only. */
+   boolean noUndo() default false;
+   
    /** If {@code true} then the table has delete validation. */
    boolean hasValidation() default false;
    

=== modified file 'src/com/goldencode/p2j/persist/dialect/Dialect.java'
--- src/com/goldencode/p2j/persist/dialect/Dialect.java	2020-09-23 23:47:02 +0000
+++ src/com/goldencode/p2j/persist/dialect/Dialect.java	2021-01-25 07:55:58 +0000
@@ -71,6 +71,8 @@
 **                           Dropped unused/obsolete methods.
 **     CA  20200624          Augment the index with the NULLS FIRST/LAST depending on the direction and dialect.
 ** 028 OM  20200924          Index components carry multiple information to avoid map lookups for them.
+** 029 IAS 20201204          Added id() method and support for word tables
+**     IAS 20210105          Added isUdfContains() function
 */
 
 /*
@@ -128,6 +130,7 @@
 
 package com.goldencode.p2j.persist.dialect;
 
+import java.io.*;
 import java.sql.*;
 import java.sql.Date;
 import java.util.*;
@@ -136,6 +139,7 @@
 import com.goldencode.p2j.cfg.*;
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.persist.orm.*;
+import com.goldencode.p2j.persist.orm.DDLGeneratorWorker.*;
 import com.goldencode.p2j.persist.sequence.SequenceHandler;
 import com.goldencode.p2j.util.*;
 
@@ -204,6 +208,16 @@
       return dialect;
    }
    
+   /** 
+    * Get known dialects by name
+    * 
+    * @return known dialects by name
+    */
+   public static Map<String, Dialect> dialects()
+   {
+      return Collections.unmodifiableMap(knownDialects);
+   }
+   
    /**
     * Get the instance of a concrete subclass of this class, as specified in the given settings.
     * If the settings do not specify a dialect class, {@code null} is returned.
@@ -295,6 +309,48 @@
    public abstract String getDriverClassName();
    
    /**
+    * Get dialect id.
+    * @return dialect id
+    */
+   public abstract String id(); 
+
+   /**
+    * Check if UDF should be used for converted CONTAINS operator
+    * 
+    * @return <code>true</code> if UDF should be used for converted CONTAINS operator
+    */
+   public abstract boolean useUdf4Contains();
+   
+   /**
+    * Check if the provided name is the name of the CONTAINS UDF
+    * @param name
+    *        name to be checked
+    * @return <code>true</code> if the provided name is the name of the CONTAINS UDF
+    */
+   public boolean isUdfContains(String name)
+   {
+      return "contains".equals(name);
+   }
+   
+   /**
+    * Worker method for {@code generateTriggerDDLs()}. It generates the DDLs needed to create all
+    * triggers in a database with a specific schema and using a certain dialect.
+    *
+    * @param   dbName
+    *          The target schema.
+    * @param   out
+    *          The {@code PrintStream} used for output.
+    * @param   eoln
+    *          OS-specific end of line terminator.
+    * @param   wordTables
+    *          word tables by name
+    */
+   public abstract void generateWordTablesDDLImpl(String dbName,
+                                                  PrintStream out,
+                                                  String eoln,
+                                                  Map<String, WordTable> wordTables);
+   
+   /**
     * Create a data object, the purpose of which is specific to a particular
     * dialect implementation, to be stored as a context-local object.  This
     * allows a dialect to establish context-local data which is stored by the
@@ -1105,8 +1161,10 @@
    /**
     * Determine if the sort component or index needs to be augmented with a NULLS FIRST/LAST option.
     * 
-    * @param    asc
-    *           The sort direction.
+    * @param   asc
+    *          The sort direction.
+    *
+    * @return  NULLS FIRST/LAST string, if needed by this dialect.
     */
    public String orderByNulls(boolean asc)
    {

=== modified file 'src/com/goldencode/p2j/persist/dialect/DialectHelper.java'
--- src/com/goldencode/p2j/persist/dialect/DialectHelper.java	2020-09-06 23:15:41 +0000
+++ src/com/goldencode/p2j/persist/dialect/DialectHelper.java	2020-12-23 16:58:23 +0000
@@ -1,6 +1,6 @@
 /*
 ** Module   : DialectHelper.java
-** Abstract : a helper to P2J dialect classes
+** Abstract : A helper to P2J dialect classes
 **
 ** Copyright (c) 2014-2020, Golden Code Development Corporation.
 **
@@ -9,6 +9,7 @@
 ** 002 OM  20140410 Fixed support case-sensitive fields in indexes.
 ** 003 OM  20150525 Added static method getDialectClass().
 ** 004 ECF 20200906 New ORM implementation.
+** 005 IAS 20201219 Added support for "sqlserver2008" dialect.
 */
 
 /*
@@ -164,6 +165,8 @@
             return P2JPostgreSQLDialect.class;
          case "sqlserver2012":
             return P2JSQLServer2012Dialect.class;
+         case "sqlserver2008":
+            return P2JSQLServer2008Dialect.class;
          default:
             return null;
       }

=== modified file 'src/com/goldencode/p2j/persist/dialect/P2JH2Dialect.java'
--- src/com/goldencode/p2j/persist/dialect/P2JH2Dialect.java	2020-07-14 21:36:53 +0000
+++ src/com/goldencode/p2j/persist/dialect/P2JH2Dialect.java	2021-01-25 07:55:58 +0000
@@ -2,7 +2,7 @@
 ** Module   : P2JH2Dialect.java
 ** Abstract : Concrete implementation of Dialect for an H2 backend
 **
-** Copyright (c) 2008-2020, Golden Code Development Corporation.
+** Copyright (c) 2008-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 ECF 20080223   @37519 Created initial version. Adds P2JDialect
@@ -82,6 +82,9 @@
 ** 031 OM  20200610          Replaced Hibernate with customized ORM.
 **     CA  20200624          Augment the sort with the NULLS FIRST/LAST depending on the direction and dialect.
 **     CA  20200714          Updated the reserved keywords with the 1.4.200 version.
+**     AIL 20201120          Changed syntax for sequence nextval.
+**     IAS 20201204          Added id() method and support stub for word tables
+**     IAS 20210104          Added trigger's for the population/update word tables
 */
 
 /*
@@ -139,6 +142,7 @@
 
 package com.goldencode.p2j.persist.dialect;
 
+import java.io.*;
 import java.net.InetAddress;
 import java.net.URI;
 import java.sql.*;
@@ -147,7 +151,11 @@
 import java.util.List;
 import java.util.Map;
 import java.util.logging.*;
+import java.util.stream.*;
+import com.goldencode.p2j.cfg.*;
 import com.goldencode.p2j.persist.*;
+import com.goldencode.p2j.persist.h2.*;
+import com.goldencode.p2j.persist.orm.DDLGeneratorWorker.*;
 import com.goldencode.p2j.persist.sequence.*;
 import com.goldencode.p2j.util.*;
 
@@ -163,6 +171,9 @@
    /** Logger */
    private static final Logger LOG = LogHelper.getLogger(P2JH2Dialect.class.getName());
    
+   /** Name of the primary key column. */
+   private static final String PK = Configuration.getSchemaConfig().getPrimaryKeyName();
+   
    /** Mapping between the FWD possible field/column types and their SQL counterparts. */
    private static Map<String, String> fwd2sql = new HashMap<>();
    
@@ -190,6 +201,31 @@
       fwd2sql.put("raw",        "binary");
    }
    
+   /** AFTER INSERT trigger for words tables' support template */
+   private static final List<String> AFTER_INSERT_TRIGGER = Collections.unmodifiableList(
+         Arrays.asList(
+               "CREATE TRIGGER %s AFTER INSERT ON %s FOR EACH ROW AS", 
+               "$$org.h2.api.Trigger create() { return new %s(\"%s;%s;%s;%s\"); } $$;"
+         )
+   );
+
+   /** AFTER UPDATE trigger for words tables' support template */
+   private static final List<String> AFTER_UPDATE_TRIGGER = Collections.unmodifiableList(
+         Arrays.asList(
+               "CREATE TRIGGER %s AFTER UPDATE ON %s FOR EACH ROW AS", 
+               "$$org.h2.api.Trigger create() { return new %s(\"%s;%s;%s;%s\"); } $$;"
+         )
+   );
+
+  /*
+CREATE TRIGGER IF2_UPD AFTER UPDATE ON TTWIABCDEFGHIJKLMNOPQRSTUVWXYXZ FOR EACH ROW AS 
+$$org.h2.api.Trigger create() { return new com.goldencode.p2j.persist.h2.OnUpdateWords("RECID;IF2ABCDEFGHIJKLMNOPQRSTUVWXYXZ;TTWIABCDEFGHIJKLMNOPQRSTUVWXYXZ__IF2ABCDEFGHIJKLMNOPQRSTUVWXYXZ;true"); } $$;
+
+CREATE TRIGGER IF1_INS AFTER INSERT ON TTWIABCDEFGHIJKLMNOPQRSTUVWXYXZ FOR EACH ROW AS 
+$$org.h2.api.Trigger create() { return new com.goldencode.p2j.persist.h2.OnInsertWords("RECID;IF1ABCDEFGHIJKLMNOPQRSTUVWXYXZ;TTWIABCDEFGHIJKLMNOPQRSTUVWXYXZ__IF1ABCDEFGHIJKLMNOPQRSTUVWXYXZ;false"); } $$;
+
+ */
+   
 //   /** Actual minimum interval in milliseconds between analyze commands */
 //   private static final long analyzeInterval = 60000;
    
@@ -740,7 +776,7 @@
    @Override
    public String getSequencePrefetchString(String sequenceName)
    {
-      return "select nextval('" + sequenceName + "') from system_range(?, ?)";
+      return "select " + sequenceName + ".nextval from system_range(?, ?)";
    }
    
    /**
@@ -1356,4 +1392,74 @@
          throw new RuntimeException(e);
       }
    }
+
+   /**
+    * Check if UDF should be used for converted CONTAINS operator
+    * 
+    * @return  <code>true</code> if UDF should be used for converted CONTAINS operator.
+    */
+   @Override
+   public boolean useUdf4Contains()
+   {
+      return false;
+   }
+   
+   /**
+    * Check if the provided name is the name of the CONTAINS UDF
+    * @param name
+    *        name to be checked
+    * @return <code>true</code> if the provided name is the name of the CONTAINS UDF
+    */
+   public boolean isUdfContains(String name)
+   {
+      return "contains_1".equals(name) || "contains_2".equals(name); 
+   }
+   
+   /**
+    * Worker method for {@code generateTriggerDDLs()}. It generates the DDLs needed to create all
+    * triggers in a database with a specific schema and using a certain dialect.
+    *
+    * @param   dbName
+    *          The target schema.
+    * @param   out
+    *          The {@code PrintStream} used for output.
+    * @param   eoln
+    *          OS-specific end of line terminator.
+    * @param   wordTables
+    *          word tables by name
+    */
+   @Override
+   public void generateWordTablesDDLImpl(String dbName,
+                                         PrintStream out,
+                                         String eoln,
+                                         Map<String, WordTable> wordTables)
+   {
+      String afterInsertTrigger = AFTER_INSERT_TRIGGER.stream().collect(Collectors.joining(eoln));
+      String afterUpdateTrigger = AFTER_UPDATE_TRIGGER.stream().collect(Collectors.joining(eoln));
+      wordTables.values().stream().forEach(wt -> {
+         out.printf(afterInsertTrigger, 
+               wt.afterInsertTriggerName,  wt.parentTableName, 
+               (wt.extent == 0 ? OnInsertWords.class : OnInsertWordsExt.class).getName(), 
+               PK, wt.fieldName, wt.tableName, wt.caseSensitive);
+         out.print(eoln);
+         out.print(eoln);
+         out.printf(afterUpdateTrigger, 
+               wt.afterUpdateTriggerName,  wt.parentTableName, 
+               (wt.extent == 0 ? OnUpdateWords.class : OnUpdateWordsExt.class).getName(), 
+               PK, wt.fieldName, wt.tableName, wt.caseSensitive);
+         out.print(eoln);
+         out.print(eoln);
+      });
+   }
+
+   /**
+    * Get dialect id.
+    * 
+    * @return  Dialect id.
+    */
+   @Override
+   public String id()
+   {
+      return "h2";
+   }
 }

=== modified file 'src/com/goldencode/p2j/persist/dialect/P2JPostgreSQLDialect.java'
--- src/com/goldencode/p2j/persist/dialect/P2JPostgreSQLDialect.java	2020-07-16 18:02:16 +0000
+++ src/com/goldencode/p2j/persist/dialect/P2JPostgreSQLDialect.java	2021-01-29 19:50:19 +0000
@@ -101,6 +101,7 @@
 ** 038 ECF 20190327          Replaced ContextLocal for inlineLimit variable with more efficient
 **                           ThreadLocal. It is always accessed on the same thread.
 ** 039 OM  20200610          Removed Hibernate dependecies.
+** 040 IAS 20201204          Added id() method and support for word tables
 */
 
 /*
@@ -164,14 +165,17 @@
 import java.text.*;
 import java.util.*;
 import java.util.logging.*;
+import java.util.stream.*;
 
 import org.apache.commons.io.*;
 import org.apache.commons.io.input.*;
 
 import com.goldencode.p2j.util.LogHelper;
 import com.goldencode.util.*;
+import com.goldencode.p2j.cfg.*;
 import com.goldencode.p2j.directory.DirectoryService;
 import com.goldencode.p2j.persist.*;
+import com.goldencode.p2j.persist.orm.DDLGeneratorWorker.*;
 import com.goldencode.p2j.persist.sequence.*;
 import com.goldencode.p2j.util.*;
 
@@ -189,6 +193,109 @@
    /** Logger */
    private static final Logger LOG = LogHelper.getLogger(P2JPostgreSQLDialect.class.getName());
    
+   /** Name of the primary key column. */
+   private static final String PK = Configuration.getSchemaConfig().getPrimaryKeyName();
+   
+   /** words function template */
+   private static final List<String> WORDS_FUNC = Collections.unmodifiableList(
+         Arrays.asList(
+               "create or replace function words (",
+               "      recid int8, txt text, toUpperCase boolean",
+               "   )",
+               "   returns table ( parent int8, word text ) language 'plpgsql' as",
+               "   $$",
+               "   declare arr text[];",
+               "   declare w text;",
+               "   begin",
+               // NB: uppercase at the database side
+               "       arr = words(txt, false);",
+               "       foreach w in array arr loop",
+               "           parent = recid;",
+               "           word = case when touppercase then UPPER(w) else w end;",
+               "           return next;",
+               "       end loop;",
+               "   end",
+               "   $$;"
+         )
+   );
+
+   /** words function template (extent field*/
+   private static final List<String> WORDS_FUNC_EXT = Collections.unmodifiableList(
+         Arrays.asList(
+               "create or replace function words (",
+               "      recid int8, listidx int4, txt text, toUpperCase boolean",
+               "   )",
+               "   returns table ( parent int8, idx int4, word text ) language 'plpgsql' as",
+               "   $$",
+               "   declare arr text[];",
+               "   declare w text;",
+               "   begin",
+               // NB: uppercase at the database side
+               "       arr = words(txt, false);",
+               "       foreach w in array arr loop",
+               "           parent = recid;",
+               "           idx = listidx;",
+               "           word = case when touppercase then UPPER(w) else w end;",
+               "           return next;",
+               "       end loop;",
+               "   end",
+               "   $$;"
+         )
+   );
+
+   /** trigger function for words tables' support template */
+   private static final List<String> TRIGGER_FUNC = Collections.unmodifiableList(
+         Arrays.asList(
+             "create or replace function %s()",
+             "returns trigger", 
+             "language plpgsql",
+             "as",
+             "$$",
+             "begin",
+             "    delete from %s where %s.parent__id = new.%s;",
+             "    insert into %s select * from words(new.%s, new.%s, %s);",
+             "    return new;",
+             "end;",
+             "$$;"
+         )
+   );
+
+   /** trigger function for words tables' support template (extent field*/
+   private static final List<String> TRIGGER_FUNC_EXT = Collections.unmodifiableList(
+         Arrays.asList(
+             "create or replace function %s()",
+             "returns trigger", 
+             "language plpgsql",
+             "as",
+             "$$",
+             "begin",
+             "    delete from %s where %s.parent__id = new.%s and %s.list__index = new.list__index;",
+             "    insert into %s select * from words(new.%s, new.list__index, new.%s, %s);",
+             "    return new;",
+             "end;",
+             "$$;"
+         )
+   );
+   /** AFTER INSERT trigger for words tables' support template */
+   private static final List<String> AFTER_INSERT_TRIGGER = Collections.unmodifiableList(
+         Arrays.asList(
+               "create trigger %s after",
+               "insert",
+               "    on",
+               "    %s for each row execute procedure %s();"
+         )
+   );
+
+   /** AFTER UPDATE trigger for words tables' support template */
+   private static final List<String> AFTER_UPDATE_TRIGGER = Collections.unmodifiableList(
+         Arrays.asList(
+               "create trigger %s after",
+               "update of %s",
+               "    on",
+               "    %s for each row execute procedure %s();"
+         )
+   );
+
    /** Default minimum interval in seconds between temp table vacuums */
    private static final int DEFAULT_VACUUM_INTERVAL = 30;
    
@@ -1899,4 +2006,81 @@
          throw new SQLException("FWDClob:truncate");
       }
    }
+
+   /**
+    * Check if UDF should be used for converted CONTAINS operator
+    * 
+    * @return  <code>true</code> if UDF should be used for converted CONTAINS operator
+    */
+   @Override
+   public boolean useUdf4Contains()
+   {
+      return false;
+   }
+
+   /**
+    * Get dialect id.
+    *
+    * @return  Dialect id
+    */
+   @Override
+   public String id()
+   {
+      return "postgresql";
+   }
+   
+   /**
+    * Worker method for {@code generateTriggerDDLs()}. It generates the DDLs needed to create all
+    * triggers in a database with a specific schema and using a certain dialect.
+    *
+    * @param   dbName
+    *          The target schema.
+    * @param   out
+    *          The {@code PrintStream} used for output.
+    * @param   eoln
+    *          OS-specific end of line terminator.
+    * @param   wordTables
+    *          word tables by name
+    */
+   @Override
+   public void generateWordTablesDDLImpl(String dbName,
+                                         PrintStream out,
+                                         String eoln, 
+                                         Map<String, WordTable> wordTables)
+   {
+      // Create 'words' function
+      WORDS_FUNC.stream().forEach(l -> {out.print(l); out.print(eoln);});
+      out.print(eoln);
+      WORDS_FUNC_EXT.stream().forEach(l -> {out.print(l); out.print(eoln);});
+      out.print(eoln);
+      String triggerFunc = TRIGGER_FUNC.stream().collect(Collectors.joining(eoln));
+      String triggerFuncExt = TRIGGER_FUNC_EXT.stream().collect(Collectors.joining(eoln));
+      String afterInsertTrigger = AFTER_INSERT_TRIGGER.stream().collect(Collectors.joining(eoln));
+      String afterUpdateTrigger = AFTER_UPDATE_TRIGGER.stream().collect(Collectors.joining(eoln));
+      wordTables.values().stream().forEach(wt -> {
+         if (wt.extent == 0)
+         {
+            out.printf(triggerFunc, 
+                  wt.triggerFunctionName, wt.tableName, wt.tableName, PK, 
+                  wt.tableName, PK, wt.fieldName, !wt.caseSensitive);
+         }
+         else
+         {
+            out.printf(triggerFuncExt, 
+                  wt.triggerFunctionName, wt.tableName, wt.tableName, PK, 
+                  wt.tableName, PK, wt.tableName, wt.fieldName, !wt.caseSensitive);
+         }
+         out.print(eoln);
+         out.print(eoln);
+         out.printf(afterInsertTrigger, 
+               wt.afterInsertTriggerName, wt.parentTableName, wt.triggerFunctionName);
+         out.print(eoln);
+         out.print(eoln);
+         out.printf(afterUpdateTrigger, 
+               wt.afterUpdateTriggerName, wt.fieldName, wt.parentTableName, wt.triggerFunctionName);
+         out.print(eoln);
+         out.print(eoln);
+      });
+   }
+
 }

=== modified file 'src/com/goldencode/p2j/persist/dialect/P2JSQLServer2008Dialect.java'
--- src/com/goldencode/p2j/persist/dialect/P2JSQLServer2008Dialect.java	2020-09-27 18:16:32 +0000
+++ src/com/goldencode/p2j/persist/dialect/P2JSQLServer2008Dialect.java	2021-01-25 07:55:58 +0000
@@ -30,6 +30,7 @@
 ** 013 OM  20200610 Removed Hibernate dependencies.
 ** 014 OM  20200924 Index components carry multiple information to avoid map lookups for them.
 **     CA  20200927 Use IdentityHashMap instead of plain map when the key is a Class.
+** 015 IAS 20201204 Added id() method and support stub for word tables
 */
 
 /*
@@ -87,6 +88,7 @@
 
 package com.goldencode.p2j.persist.dialect;
 
+import java.io.*;
 import java.sql.*;
 import java.sql.Date;
 import java.text.NumberFormat;
@@ -95,6 +97,7 @@
 import java.util.Map;
 import java.util.logging.*;
 import com.goldencode.p2j.persist.orm.*;
+import com.goldencode.p2j.persist.orm.DDLGeneratorWorker.*;
 import com.goldencode.p2j.util.*;
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.persist.sequence.SequenceHandler;
@@ -1260,4 +1263,48 @@
          throw new RuntimeException(e);
       }
    }
+
+   /**
+    * Check if UDF should be used for converted CONTAINS operator
+    * 
+    * @return  <code>true</code> if UDF should be used for converted CONTAINS operator
+    */
+   @Override
+   public boolean useUdf4Contains()
+   {
+      return true;
+   }
+
+   /**
+    * Worker method for {@code generateTriggerDDLs()}. It generates the DDLs needed to create all
+    * triggers in a database with a specific schema and using a certain dialect.
+    *
+    * @param   dbName
+    *          The target schema.
+    * @param   out
+    *          The {@code PrintStream} used for output.
+    * @param   eoln
+    *          OS-specific end of line terminator.
+    * @param   wordTables
+    *          word tables by name
+    */
+   @Override
+   public void generateWordTablesDDLImpl(String dbName,
+                                         PrintStream out,
+                                         String eoln,
+                                         Map<String, WordTable> wordTables)
+   {
+      // TODO implement
+   }
+
+   /**
+    * Get dialect id.
+    * 
+    * @return  Dialect id
+    */
+   @Override
+   public String id()
+   {
+      return "sqlserver2008";
+   }
 }

=== modified file 'src/com/goldencode/p2j/persist/dialect/P2JSQLServer2012Dialect.java'
--- src/com/goldencode/p2j/persist/dialect/P2JSQLServer2012Dialect.java	2020-09-06 23:15:41 +0000
+++ src/com/goldencode/p2j/persist/dialect/P2JSQLServer2012Dialect.java	2021-01-25 07:55:58 +0000
@@ -16,6 +16,7 @@
 ** 007 ECF 20160912 Added no-op getSequencePrefetchString as a placeholder. Needs an
 **                  implementation which can generate a series like PostgreSQL dialect.
 ** 008 ECF 20200906 New ORM implementation.
+** 008 IAS 20201204 Added id() method and support stub for word tables
 */
 
 /*
@@ -73,7 +74,9 @@
 
 package com.goldencode.p2j.persist.dialect;
 
+import com.goldencode.p2j.persist.orm.DDLGeneratorWorker.*;
 import com.goldencode.p2j.persist.sequence.*;
+import java.io.*;
 import java.util.*;
 
 /**
@@ -535,4 +538,37 @@
    {
       buf.insert(selectStartPos + "select".length(), " top " + limit);
    }
+
+   /**
+    * Get dialect id.
+    * 
+    * @return  Dialect id
+    */
+   @Override
+   public String id()
+   {
+      return "sqlserver2012";
+   }
+
+   /**
+    * Worker method for {@code generateTriggerDDLs()}. It generates the DDLs needed to create all
+    * triggers in a database with a specific schema and using a certain dialect.
+    *
+    * @param   dbName
+    *          The target schema.
+    * @param   out
+    *          The {@code PrintStream} used for output.
+    * @param   eoln
+    *          OS-specific end of line terminator.
+    * @param   wordTables
+    *          word tables by name
+    */
+   @Override
+   public void generateWordTablesDDLImpl(String dbName,
+                                         PrintStream out,
+                                         String eoln,
+                                         Map<String, WordTable> wordTables)
+   {
+      // TODO implement
+   }
 }

=== modified file 'src/com/goldencode/p2j/persist/dirty/DefaultDirtyShareManager.java'
--- src/com/goldencode/p2j/persist/dirty/DefaultDirtyShareManager.java	2020-09-29 22:47:24 +0000
+++ src/com/goldencode/p2j/persist/dirty/DefaultDirtyShareManager.java	2020-10-14 21:06:19 +0000
@@ -74,6 +74,7 @@
 ** 027 ECF 20160608          Removed unnecessary intern calls.
 ** 028 ECF 20200906          New ORM implementation.
 ** 029 EVL 20200621          Adding NPE protection for lockSingle when index name is NULL or empty.
+** 030 OM  20201012          Force use locally cached meta information instead of map lookup.
 */
 
 /*
@@ -1715,8 +1716,8 @@
             return;
          }
          
-         Class<? extends Record> dmoClass = DBUtils.dmoClassForEntity(entity);
-         Class<? extends DataModelObject> dmoIface = DmoMetadataManager.getDMOInterface(dmoClass);
+         DmoMeta dmoInfo = DmoMetadataManager.getDmoInfo(entity, null);
+         Class<? extends DataModelObject> dmoIface = dmoInfo.getAnnotatedInterface();
          Session session = null;
          Connection conn = null;
          Statement stmt = null;

=== added directory 'src/com/goldencode/p2j/persist/h2'
=== added file 'src/com/goldencode/p2j/persist/h2/OnInsertWords.java'
--- src/com/goldencode/p2j/persist/h2/OnInsertWords.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/persist/h2/OnInsertWords.java	2021-01-05 13:24:19 +0000
@@ -0,0 +1,115 @@
+/*
+** Module   : OnInsertWords.java
+** Abstract : AFTER INSERT trigger populating word table
+**
+** Copyright (c) 2021, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- --------------------------------Description----------------------------------
+** 001 IAS 20210104 Created initial version.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.persist.h2;
+
+import java.sql.*;
+
+/**
+ * AFTER INSERT trigger populating word table
+ */
+public class OnInsertWords 
+extends WordsTrigger
+{
+
+   /**
+    * Constructor
+    * @param init
+    *        initialization string. Contains the following values 
+    *        separated by semicolon:
+    *        - the name of the primary key of the master table
+    *        - the name of the field of the master table
+    *        - the word table name
+    *        - the flag indicating that the field is case sensitive ('true'/'false')
+    */
+    public OnInsertWords(String init)
+   {
+      super(init);
+   }
+
+   /**
+    * This method is called for each triggered action by the default
+    * fire(Connection conn, Object[] oldRow, Object[] newRow) method.
+    * ResultSet.next does not need to be called (and calling it has no effect;
+    * it will always return true).
+    * <p>
+    * For "before" triggers, the new values of the new row may be changed
+    * using the ResultSet.updateX methods.
+    * </p>
+    *
+    * @param conn a connection to the database
+    * @param oldRow the old row, or null if no old row is available (for
+    *            INSERT)
+    * @param newRow the new row, or null if no new row is available (for
+    *            DELETE)
+    * @throws SQLException if the operation must be undone
+    */
+   @Override
+   public void fire(Connection conn, ResultSet oldRow, ResultSet newRow) 
+   throws SQLException
+   {
+      long pk = newRow.getLong(pkName);
+      String field = newRow.getString(fieldName);
+      insertWords(conn, pk, field);
+   }
+}

=== added file 'src/com/goldencode/p2j/persist/h2/OnInsertWordsExt.java'
--- src/com/goldencode/p2j/persist/h2/OnInsertWordsExt.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/persist/h2/OnInsertWordsExt.java	2021-01-16 11:18:16 +0000
@@ -0,0 +1,116 @@
+/*
+** Module   : OnInsertWordsExt.java
+** Abstract : AFTER INSERT trigger populating word table (extent fields)
+**
+** Copyright (c) 2021, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- --------------------------------Description----------------------------------
+** 001 IAS 20210116 Created initial version.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.persist.h2;
+
+import java.sql.*;
+
+/**
+ * AFTER INSERT trigger populating word table (extent fields)
+ */
+public class OnInsertWordsExt 
+extends WordsTrigger
+{
+
+   /**
+    * Constructor
+    * @param init
+    *        initialization string. Contains the following values 
+    *        separated by semicolon:
+    *        - the name of the primary key of the master table
+    *        - the name of the field of the master table
+    *        - the word table name
+    *        - the flag indicating that the field is case sensitive ('true'/'false')
+    */
+    public OnInsertWordsExt(String init)
+   {
+      super(init);
+   }
+
+   /**
+    * This method is called for each triggered action by the default
+    * fire(Connection conn, Object[] oldRow, Object[] newRow) method.
+    * ResultSet.next does not need to be called (and calling it has no effect;
+    * it will always return true).
+    * <p>
+    * For "before" triggers, the new values of the new row may be changed
+    * using the ResultSet.updateX methods.
+    * </p>
+    *
+    * @param conn a connection to the database
+    * @param oldRow the old row, or null if no old row is available (for
+    *            INSERT)
+    * @param newRow the new row, or null if no new row is available (for
+    *            DELETE)
+    * @throws SQLException if the operation must be undone
+    */
+   @Override
+   public void fire(Connection conn, ResultSet oldRow, ResultSet newRow) 
+   throws SQLException
+   {
+      long pk = newRow.getLong(pkName);
+      int index = newRow.getInt(IDX);
+      String field = newRow.getString(fieldName);
+      insertWords(conn, pk, index, field);
+   }
+}

=== added file 'src/com/goldencode/p2j/persist/h2/OnUpdateWords.java'
--- src/com/goldencode/p2j/persist/h2/OnUpdateWords.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/persist/h2/OnUpdateWords.java	2021-01-05 13:24:19 +0000
@@ -0,0 +1,129 @@
+/*
+** Module   : OnUpdateWords.java
+** Abstract : AFTER UPDATE trigger populating word table
+**
+** Copyright (c) 2021, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- --------------------------------Description----------------------------------
+** 001 IAS 20210104 Created initial version.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.persist.h2;
+
+import java.sql.*;
+
+/**
+ * AFTER UPDATE trigger populating word table
+ */
+public class OnUpdateWords
+extends WordsTrigger
+{
+
+   /**
+    * Constructor
+    * @param init
+    *        initialization string. Contains the following values 
+    *        separated by semicolon:
+    *        - the name of the primary key of the master table
+    *        - the name of the field of the master table
+    *        - the word table name
+    *        - the flag indicating that the field is case sensitive ('true'/'false')
+    */
+    public OnUpdateWords(String init)
+   {
+      super(init);
+   }
+
+   /**
+    * This method is called for each triggered action by the default
+    * fire(Connection conn, Object[] oldRow, Object[] newRow) method.
+    * ResultSet.next does not need to be called (and calling it has no effect;
+    * it will always return true).
+    * <p>
+    * For "before" triggers, the new values of the new row may be changed
+    * using the ResultSet.updateX methods.
+    * </p>
+    *
+    * @param conn a connection to the database
+    * @param oldRow the old row, or null if no old row is available (for
+    *            INSERT)
+    * @param newRow the new row, or null if no new row is available (for
+    *            DELETE)
+    * @throws SQLException if the operation must be undone
+    */
+   @Override
+   public void fire(Connection conn, ResultSet oldRow, ResultSet newRow) 
+   throws SQLException
+   {
+      long pk = newRow.getLong(pkName);
+      String field = newRow.getString(fieldName);
+      long oldPk = oldRow.getLong(pkName); 
+      if ( oldPk != pk)
+      {
+         throw new SQLException("PK mismatch: " + pk + "!=" + oldPk);
+      }
+      try(PreparedStatement pstmt = conn.prepareStatement(
+            "DELETE FROM " + wordTableName + " WHERE PARENT__ID = ?"
+      ))
+      {
+         pstmt.setLong(1, pk);
+         int result = pstmt.executeUpdate();
+      }
+      
+      insertWords(conn, pk, field);
+   }
+
+}

=== added file 'src/com/goldencode/p2j/persist/h2/OnUpdateWordsExt.java'
--- src/com/goldencode/p2j/persist/h2/OnUpdateWordsExt.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/persist/h2/OnUpdateWordsExt.java	2021-01-25 07:55:58 +0000
@@ -0,0 +1,133 @@
+/*
+** Module   : OnUpdateWordsExt.java
+** Abstract : AFTER UPDATE trigger populating word table (extent fields)
+**
+** Copyright (c) 2021, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- --------------------------------Description----------------------------------
+** 001 IAS 20210116 Created initial version.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.persist.h2;
+
+import java.sql.*;
+
+/**
+ * AFTER UPDATE trigger populating word table (extent fields)
+ */
+public class OnUpdateWordsExt
+extends WordsTrigger
+{
+
+   /**
+    * Constructor
+    * @param init
+    *        initialization string. Contains the following values 
+    *        separated by semicolon:
+    *        - the name of the primary key of the master table
+    *        - the name of the field of the master table
+    *        - the word table name
+    *        - the flag indicating that the field is case sensitive ('true'/'false')
+    */
+   public OnUpdateWordsExt(String init)
+   {
+      super(init);
+   }
+
+   /**
+    * This method is called for each triggered action by the default
+    * fire(Connection conn, Object[] oldRow, Object[] newRow) method.
+    * ResultSet.next does not need to be called (and calling it has no effect;
+    * it will always return true).
+    * <p>
+    * For "before" triggers, the new values of the new row may be changed
+    * using the ResultSet.updateX methods.
+    * </p>
+    *
+    * @param conn a connection to the database
+    * @param oldRow the old row, or null if no old row is available (for
+    *            INSERT)
+    * @param newRow the new row, or null if no new row is available (for
+    *            DELETE)
+    * @throws SQLException if the operation must be undone
+    */
+   @Override
+   public void fire(Connection conn, ResultSet oldRow, ResultSet newRow) 
+   throws SQLException
+   {
+      long pk = newRow.getLong(pkName);
+      int index = newRow.getInt(IDX);
+      String field = newRow.getString(fieldName);
+      long oldPk = oldRow.getLong(pkName); 
+      int oldIndex = oldRow.getInt(IDX);
+      if ( oldPk != pk || oldIndex != index)
+      {
+         throw new SQLException("PK mismatch: (" 
+               + pk + "," + index + ") != (" + oldPk + "," + oldIndex + ")");
+      }
+      try(PreparedStatement pstmt = conn.prepareStatement(
+            "DELETE FROM " + wordTableName + " WHERE PARENT__ID = ? AND LIST__INDEX = ?"
+      ))
+      {
+         pstmt.setLong(1, pk);
+         pstmt.setInt(2, index);
+         int result = pstmt.executeUpdate();
+      }
+      
+      insertWords(conn, pk, index, field);
+   }
+
+}

=== added file 'src/com/goldencode/p2j/persist/h2/WordsTrigger.java'
--- src/com/goldencode/p2j/persist/h2/WordsTrigger.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/persist/h2/WordsTrigger.java	2021-01-29 19:50:19 +0000
@@ -0,0 +1,188 @@
+/*
+** Module   : WordsTrigger.java
+** Abstract : Base class for triggers populating word table
+**
+** Copyright (c) 2021, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- --------------------------------Description----------------------------------
+** 001 IAS 20210104 Created initial version.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.persist.h2;
+
+import java.sql.*;
+
+import org.h2.tools.*;
+
+import com.goldencode.p2j.persist.pl.*;
+
+/**
+ * Base class for triggers populating word table
+ */
+public abstract class WordsTrigger 
+extends TriggerAdapter
+{
+   /** Index field name in the extent table */
+   protected static final String IDX = "list__index";
+   /** the name of the primary key of the master table */
+   protected final String pkName;
+   /** the name of the field of the master table */
+   protected final String fieldName;
+   /** the word table name */
+   protected final String wordTableName;
+   /** the flag indicating that the field is case sensitive */
+   protected final boolean caseSensitive;
+
+   /**
+    * Constructor
+    * @param init
+    *        initialization string. Contains the following values 
+    *        separated by semicolon:
+    *        - the name of the primary key of the master table
+    *        - the name of the field of the master table
+    *        - the word table name
+    *        - the flag indicating that the field is case sensitive ('true'/'false')
+    */
+   public WordsTrigger(String init)
+   {
+      super();
+      String[] params = init.split(";");
+      this.pkName = params[0];
+      this.fieldName = params[1];
+      this.wordTableName = params[2];
+      this.caseSensitive = Boolean.parseBoolean(params[3]);
+   }
+
+   /**
+    * Populate the word table associated with a field of the master table
+    * @param conn 
+    *        a connection to the database.
+    * @param pk
+    *        the value of the primary key of the master table record
+    * @param field
+    *        the value of the field the word table is associated with
+    * @throws SQLException 
+    *         if the operation must be undone
+    */
+   protected void insertWords(Connection conn, long pk, String field) 
+   throws SQLException
+   {
+      // NB: uppercase at the database side
+      String[] words = Functions.words(field, false);
+      if (words == null || words.length == 0)
+      {
+         return;
+      }
+      StringBuilder sql = new StringBuilder("INSERT INTO ").
+                              append(wordTableName).append(" VALUES");
+      for (int i = 0; i < words.length; i++)
+      {
+         // NB: uppercase at the database side
+         sql.append(i == 0 ? "" : ",").append(caseSensitive ? "(?,?)" : "(?,UPPER(?))");
+      }
+      try(PreparedStatement pstmt = conn.prepareStatement(sql.toString()))
+      {
+         int i = 1;
+         for(String word: words)
+         {
+            pstmt.setLong(i++, pk);
+            pstmt.setString(i++, word);
+         }
+         pstmt.executeUpdate();
+      };
+   }
+   /**
+    * Populate the word table associated with an extent field of the master table
+    * @param conn 
+    *        a connection to the database.
+    * @param pk
+    *        the value of the primary key of the master table record
+    * @param index
+    *        the value of the index key of the extent table record
+    * @param field
+    *        the value of the field the word table is associated with
+    * @throws SQLException 
+    *         if the operation must be undone
+    */
+   protected void insertWords(Connection conn, long pk, int index, String field) 
+   throws SQLException
+   {
+      // NB: uppercase at the database side
+      String[] words = Functions.words(field, false);
+      if (words == null || words.length == 0)
+      {
+         return;
+      }
+      StringBuilder sql = new StringBuilder("INSERT INTO ").
+                              append(wordTableName).append(" VALUES");
+      for (int i = 0; i < words.length; i++)
+      {
+         // NB: uppercase at the database side
+         sql.append(i == 0 ? "" : ",").append(caseSensitive ? "(?,?,?)" : "(?,?,UPPER(?))");
+      }
+      try(PreparedStatement pstmt = conn.prepareStatement(sql.toString()))
+      {
+         int i = 1;
+         for(String word: words)
+         {
+            pstmt.setLong(i++, pk);
+            pstmt.setInt(i++, index);
+            pstmt.setString(i++, word);
+         }
+         pstmt.executeUpdate();
+      };
+   }
+}

=== modified file 'src/com/goldencode/p2j/persist/hql/DataTypeHelper.java'
--- src/com/goldencode/p2j/persist/hql/DataTypeHelper.java	2020-09-27 18:16:32 +0000
+++ src/com/goldencode/p2j/persist/hql/DataTypeHelper.java	2020-11-27 16:16:21 +0000
@@ -34,6 +34,7 @@
 ** 020 CA  20200610          Initialize this class, as can be used outside of the FWD environment, for 
 **                           appserver clients.
 ** 021 CA  20200927          Use IdentityHashMap instead of plain map when the key is a Class.
+** 022 IAS 20201123          Added ARRAY type
 */
 
 /*
@@ -500,6 +501,7 @@
       classes.put(Date.class       , FqlType.DATE);
       classes.put(Timestamp.class  , FqlType.DATETIME);
       classes.put(TimestampWithTimeZone.class, FqlType.DATETIMETZ);
+      classes.put(String[].class   , FqlType.ARRAY);
       //classes.put(Object[].class   , HQLTypes.DATETIMETZ); // datetimetz is represented by a 2-uple (Timestamp, Offset)
       
       // P2J wrapper types.
@@ -518,7 +520,7 @@
       classes.put(comhandle.class  , FqlType.TEXT);
       classes.put(object.class     , FqlType.TEXT);
       classes.put(ObjectVar.class  , FqlType.TEXT);
-   
+      
       bdts.put(Types.BOOLEAN,                   logical.class);
       bdts.put(Types.INTEGER,                   integer.class);
 //      bdts.put(Types.?,     recid.class);

=== modified file 'src/com/goldencode/p2j/persist/meta/LockTableUpdater.java'
--- src/com/goldencode/p2j/persist/meta/LockTableUpdater.java	2020-09-24 17:51:18 +0000
+++ src/com/goldencode/p2j/persist/meta/LockTableUpdater.java	2020-10-14 21:06:19 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20131101 Created initial version.
 ** 002 ECF 20140116 Use session ID as user number (id) for lock events.
 ** 003 ECF 20140213 Change query strings to use JPA-style query substitution placeholders.
@@ -22,6 +22,7 @@
 ** 013 OM  20190111 Added support for LockChain field.
 ** 014 ECF 20200906 New ORM implementation.
 ** 015 CA  20200924 Replaced Method.invoke with ReflectASM.
+**     OM  20201012 Force use locally cached meta information instead of map lookup.
 */
 
 /*
@@ -277,8 +278,8 @@
          String dmoName = DmoMetadataManager.getDmoBasePackage() + "._meta.MetaLock";
          try
          {
-            implementingClass = DmoMetadataManager.getImplementingClass(
-                  (Class<? extends DataModelObject>) Class.forName(dmoName));
+            DmoMeta dmoInfo = DmoMetadataManager.getDmoInfo(Class.forName(dmoName));
+            implementingClass = dmoInfo.getImplementationClass();
             
             // map MinimalLock methods to corresponding dmoClass methods; if we try to use
             // MinimalLock methods with a MetaLockImpl object, we will raise
@@ -286,8 +287,7 @@
             // instance of MinimalLock
             for (Method ifcMeth : MinimalLock.class.getMethods())
             {
-               Method dmoMeth = implementingClass.getMethod(ifcMeth.getName(),
-                                                   ifcMeth.getParameterTypes());
+               Method dmoMeth = implementingClass.getMethod(ifcMeth.getName(), ifcMeth.getParameterTypes());
                methodMap.put(ifcMeth, dmoMeth);
             }
          }

=== modified file 'src/com/goldencode/p2j/persist/meta/MetadataManager.java'
--- src/com/goldencode/p2j/persist/meta/MetadataManager.java	2020-10-03 16:02:03 +0000
+++ src/com/goldencode/p2j/persist/meta/MetadataManager.java	2021-01-17 15:39:44 +0000
@@ -31,6 +31,8 @@
 **     CA  20200927 Use IdentityHashMap instead of plain map when the key is a Class.
 **     OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
 **     CA  20201003 Use an identity HashSet where possible.
+**     OM  20201012 Force use locally cached meta information instead of map lookup.
+**    IAS 20201210 Added support for word tables.
 */
 
 /*
@@ -109,6 +111,7 @@
 import com.goldencode.p2j.persist.annotation.Trigger;
 import com.goldencode.p2j.persist.dialect.*;
 import com.goldencode.p2j.persist.orm.*;
+import com.goldencode.p2j.persist.orm.DmoMeta.*;
 import com.goldencode.p2j.util.*;
 import com.goldencode.p2j.util.LogHelper;
 import com.goldencode.util.*;
@@ -170,6 +173,12 @@
    /** Logger */
    private static final Logger log = LogHelper.getLogger(MetadataManager.class);
    
+   /** Do we log WARNING-level events ? */
+   private static final boolean LOG_WARNING = log.isLoggable(Level.WARNING);
+   
+   /** Do we log INFO-level events ? */
+   private static final boolean LOG_INFO = log.isLoggable(Level.INFO);
+   
    /** The type of PK field. It is the only one that does not extend {@link BaseDataType}. */
    private static final String PK_TYPE = "j"; 
    
@@ -286,6 +295,10 @@
    private static final ConcurrentMap<Database, ConcurrentMap<Class<?>, integer>> FILE_NUM =  
          new ConcurrentHashMap<>();
    
+   /** Word tables' names for the primary databases */
+   private static final ConcurrentMap<String, Map<String, Map<String, WordIndexData>>> WORD_TABLES =  
+         new ConcurrentHashMap<>();
+
    /**
     * Private constructor; this class is not instantiated.
     */
@@ -347,7 +360,7 @@
       
       if (!active)
       {
-         if (log.isLoggable(Level.INFO))
+         if (LOG_INFO)
          {
             log.log(Level.INFO, "Metadata server was not started; no metadata in use");
          }
@@ -396,7 +409,7 @@
          catch (Exception e)
          {
             // catch all error cases; just skip the table, but let a message in log
-            if (log.isLoggable(Level.WARNING))
+            if (LOG_WARNING)
             {
                log.log(Level.WARNING, "Failed to load _meta DMO: " + dmoIfaceName, e);
             }
@@ -407,7 +420,7 @@
          dmoMetaTypes.add(dmoIface);
       }
       
-      if (log.isLoggable(Level.INFO))
+      if (LOG_INFO)
       {
          log.log(Level.INFO, "Metadata server modules: " + helpers.keySet().toString());
       }
@@ -427,14 +440,14 @@
                                                  DatabaseManager.MIXED_MODE_SSL_PORT,
                                                  false);
             String portString = String.valueOf(port);
-            if (log.isLoggable(Level.INFO))
+            if (LOG_INFO)
             {
                log.log(Level.INFO,
                        "Starting secure, mixed mode, H2 metaschema server on port " +
                        portString + "...");
             }
             H2Helper.startMixedModeServer("-tcpSSL", "-tcpPort", portString, "-tcpAllowOthers");
-            if (log.isLoggable(Level.INFO))
+            if (LOG_INFO)
             {
                log.log(Level.INFO, "Successfully started secure mixed mode H2 server");
             }
@@ -587,7 +600,7 @@
    {
       if (!Configuration.getSchemaConfig().isMetadataActive())
       {
-         if (log.isLoggable(Level.INFO))
+         if (LOG_INFO)
          {
             log.log(Level.INFO, "Metadata server was not started; no metadata in use");
          }
@@ -635,8 +648,8 @@
          {
             Element record = (Element) recNodes.item(i);
             Record dmo = prepareRecord(record, schema);
-            Class<? extends DataModelObject> iface = DmoMetadataManager.getDMOInterface(dmo.getClass());
-            SystemTable systemTable = SystemTable.forIface(iface.getSimpleName());
+            DmoMeta dmoInfo = DmoMetadataManager.getDmoInfo(dmo.getClass());
+            SystemTable systemTable = SystemTable.forIface(dmoInfo.getAnnotatedInterface().getSimpleName());
             if (systemTable != null && systemTable.isIgnoredInMetaXML())
             {
                continue;
@@ -659,7 +672,7 @@
          throw new PersistenceException("Error populating metadata database " + metaDb, exc);
       }
       
-      if (log.isLoggable(Level.INFO))
+      if (LOG_INFO)
       {
          log.log(Level.INFO, "Metaschema database " + metaDb + " ready");
          log.log(Level.INFO, "Caching " + templateRecords.size() + " template record ids");
@@ -667,6 +680,33 @@
    }
    
    /**
+    * Get the word index data.
+    *
+    * @param   dbName
+    *          Database name.
+    * @param   tableName
+    *          Master table name.
+    * @param   fieldName
+    *          Field name.
+    * 
+    * @return  The word index data.
+    */
+   public static WordIndexData getWordTableName(String dbName, String tableName, String fieldName)
+   {
+      Map<String, Map<String, WordIndexData>> tables = WORD_TABLES.get(dbName);
+      if (tables == null)
+      {
+         return null;
+      }
+      Map<String, WordIndexData> fields = tables.get(tableName);
+      if (fields == null)
+      {
+         return null;
+      }
+      return fields.get(fieldName);
+   }
+   
+   /**
     * Populates the {@code _File} meta table with initial values. 
     * 
     * @param   database
@@ -679,9 +719,9 @@
    private static void populateFileTable(Database database, Persistence p)
    {
       Helper fileHelper = helpers.get(SystemTable._File.shortName);
-      if (fileHelper == null && log.isLoggable(Level.WARNING))
+      if (fileHelper == null && LOG_WARNING)
       {
-         if (log.isLoggable(Level.WARNING))
+         if (LOG_WARNING)
          {
             log.log(Level.WARNING, "Could not obtain the helper class for calling DMO setter methods.");
          }
@@ -725,13 +765,15 @@
          {
             log.log(Level.FINE, "Failed to load " + dmoName, e);
          }
-         else if (log.isLoggable(Level.WARNING))
+         else if (LOG_WARNING)
          {
             log.log(Level.WARNING, "Failed to load " + dmoName + " (set debug level to FINE for stacktrace)");
          }
          return;
       }
       
+      registerWordTables(dmoMeta);
+      
       Class<? extends Record> dmoImpl = dmoMeta.getImplementationClass();
       
       if (addMetaTableToFile(meta, fileHelper, dmoIface, dmoImpl, p))
@@ -757,6 +799,22 @@
    }
    
    /**
+    * Register word tables for a master table.
+    * 
+    * @param   dmoMeta
+    *          DmoMeta for master table 
+    */
+   private static void registerWordTables( DmoMeta dmoMeta)
+   {
+      Map<String, WordIndexData> wt = dmoMeta.getWordTables();
+      if (!wt.isEmpty())
+      {
+         WORD_TABLES.computeIfAbsent(dmoMeta.schema, db -> new HashMap<>()).
+                     put(dmoMeta.sqlTable, wt);
+      }
+   }
+
+   /**
     * Add record for a table from the meta database to the _File table.
     * 
     * @param   metaDb
@@ -848,7 +906,7 @@
       Helper seqHelper = helpers.get(SystemTable._Sequence.shortName);
       if (seqHelper == null)
       {
-         if (log.isLoggable(Level.WARNING))
+         if (LOG_WARNING)
          {
             log.log(Level.WARNING, "Could not obtain the helper class for calling DMO setter methods.");
          }
@@ -863,7 +921,7 @@
       } 
       catch (ClassNotFoundException e)
       {
-         if (log.isLoggable(Level.INFO))
+         if (LOG_INFO)
          {
             log.log(Level.INFO, "No sequences were detected for " + metaDb.getName() + " database.");
          }
@@ -872,7 +930,7 @@
       
       if (!Enum.class.isAssignableFrom(seqEnum))
       {
-         if (log.isLoggable(Level.WARNING))
+         if (LOG_WARNING)
          {
             log.log(Level.WARNING, "Invalid _Sequences class for " + metaDb.getName() + " database.");
          }
@@ -909,7 +967,7 @@
       } catch (NoSuchMethodException | SecurityException | 
                InvocationTargetException | IllegalAccessException | NoSuchFieldException e)
       {
-         if (log.isLoggable(Level.WARNING))
+         if (LOG_WARNING)
          {
             log.log(Level.WARNING, "Failed to populate _Sequence table", e);
          }
@@ -1482,7 +1540,7 @@
                continue;
             }
             fieldTriggers.add(
-                  new MapBuilder().
+                  new MapBuilder<>().
                   put(Session.PK, nextId(metaDb, SystemTable._Field_Trig._file_name)).
                   put("fieldRecid", fieldRecId).
                   put("fileRecid", new integer(_file_num)).
@@ -1496,7 +1554,7 @@
          else
          {
             fileTriggers.add(
-                  new MapBuilder().
+                  new MapBuilder<>().
                   put(Session.PK, nextId(metaDb, SystemTable._File_Trig._file_name)).
                   put("fileRecid", new integer(_file_num)).
                   put("event", new character(trigger.event())).
@@ -1611,7 +1669,7 @@
       boolean charField = CHAR_TYPES.contains(typeName);
       String charset = charField ?  "iso8859-1" : null;
       String collation =  charField ? (caseSensitive ? "basic_S" : "basic_I") : null;
-      return new MapBuilder().
+      return new MapBuilder<>().
             put(Session.PK, id).
             put("fileRecid", new integer(_file_num)).
             put("fieldName", new character(property.legacy)).
@@ -2000,7 +2058,7 @@
          this.ifaceName = META_PREFIX + shortName;
          this._category = _category;
          this.flags = flags;
-         this.init = init == null || !log.isLoggable(Level.INFO) ? init : (d, p) -> 
+         this.init = init == null || !LOG_INFO ? init : (d, p) -> 
             {
                long start = System.nanoTime();
                log.log(Level.INFO, String.format("Populating [%s]", _file_name));
@@ -2058,17 +2116,17 @@
       {
          this(_file_num, _file_name, _category, 0, populate);
       }
-
+      
       /**
        * Populate all metatables with provided initializer
-       * @param metaDb
-       *        meta database
-       * @param p
-       *        Persistence instance for the meta database
+       * @param   metaDb
+       *          meta database
+       * @param   p
+       *          Persistence instance for the meta database
        */
       public static void populateAll(Database metaDb, Persistence p)
       {
-         Arrays.stream(values()).map(t -> t.init).filter(init -> init != null).
+         Arrays.stream(values()).map(t -> t.init).filter(Objects::nonNull).
                forEach(init -> init.accept(metaDb, p));
       }
       

=== modified file 'src/com/goldencode/p2j/persist/meta/TransactionTableUpdater.java'
--- src/com/goldencode/p2j/persist/meta/TransactionTableUpdater.java	2020-09-24 17:51:18 +0000
+++ src/com/goldencode/p2j/persist/meta/TransactionTableUpdater.java	2020-10-14 21:06:19 +0000
@@ -4,12 +4,13 @@
 **
 ** Copyright (c) 2017-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20171030 Created initial version.
 ** 002 ECF 20180819 Optimized common case of updates at the expense of reads.
 ** 003 OM  20190122 Rewrote the class to work with new TransactionManager.
 ** 004 ECF 20200906 New ORM implementation.
 ** 005 CA  20200924 Replaced Method.invoke with ReflectASM.
+**     OM  20201012 Force use locally cached meta information instead of map lookup.
 */
 
 /*
@@ -105,8 +106,8 @@
       String dmoName = DmoMetadataManager.getDmoBasePackage() + "._meta.MetaTrans";
       try
       {
-         implementingClass = DmoMetadataManager.getImplementingClass(
-               (Class<? extends DataModelObject>) Class.forName(dmoName));
+         DmoMeta dmoInfo = DmoMetadataManager.getDmoInfo(Class.forName(dmoName));
+         implementingClass = dmoInfo.getImplementationClass();
          
          // map MinimalTrans methods to corresponding dmoClass methods; if we try to use
          // MinimalTrans methods with a MetaTransImpl object, we will raise

=== modified file 'src/com/goldencode/p2j/persist/orm/BaseRecord.java'
--- src/com/goldencode/p2j/persist/orm/BaseRecord.java	2020-09-22 22:25:18 +0000
+++ src/com/goldencode/p2j/persist/orm/BaseRecord.java	2021-01-07 03:22:58 +0000
@@ -2,12 +2,18 @@
 ** Module   : BaseRecord.java
 ** Abstract : The abstract base class for all business data model object classes.
 **
-** Copyright (c) 2019-2020, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20191001 Created initial version with basic data and accessors.
 **     OM  20200110 Added support various data types and setter/getter signatures.
 ** 002 CA  20200922 Added getDatum(offset).
+**     ECF 20201201 Cleaned up file and added some missing javadoc.
+**     AIL 20201210 Added bulk set datum for specific buffer-copy operations.
+**     ECF 20201210 Added direct access to data array for RecordBuffer.
+**         20210126 Fixed getUnvalidatedIndices to account optionally for untouched, default property values.
+**     AIL 20210129 Added support for bulkDataChanged. Improved bulk copy (doing lock and report only once).
+**     OM  20201027 copy() method will update the status flags to allow the recored to be correctly saved.
 */
 
 /*
@@ -66,6 +72,7 @@
 package com.goldencode.p2j.persist.orm;
 
 import com.goldencode.p2j.persist.*;
+import com.goldencode.p2j.schema.*;
 import com.goldencode.p2j.util.*;
 import java.sql.*;
 import java.util.*;
@@ -98,7 +105,7 @@
    private final BitSet nullProps;
    
    /** Tracker to manage which indices have been updated by property updates */
-   private IndexState indexState;
+   private final IndexState indexState;
    
    /** Record identifier (lock variant, which uses table name) for this record (created lazily) */
    private RecordIdentifier<String> recid = null;
@@ -148,15 +155,26 @@
    
    /**
     * Copy the source record to the destination record.
+    * <p>
+    * The records are checked first to decide whether they are compatible (I.e. the number of properties
+    * matches and also the type for each field, including the optional extent attribute). If not, the method
+    * returns {@code false} and not copy operation is executed.
+    * <p>
+    * If the records pass validation, all properties are copied from source ({@code from}) to destination
+    * {@code to}). At the same time, the status flags are updated so that the destination record can be
+    * correctly saved.
     * 
-    * @param    from
-    *           The source record.
-    * @param    to
-    *           The destination record.
-    *           
-    * @return   <code>true</code> if the copy was performed (record's tables match).
+    * @param   to
+    *          The destination record.
+    * @param   from
+    *          The source record.
+    * @param   b4reserved
+    *          If {@code true} the before-table specific attributes are copied, too. Otherwise only the normal
+    *          properties are processed.
+    *
+    * @return   {@code true} if the copy was performed (record's tables match).
     */
-   public static boolean copy(BaseRecord from, BaseRecord to)
+   public static boolean copy(BaseRecord to, BaseRecord from, boolean b4reserved)
    {
       PropertyMeta[] fromProps = from._recordMeta().getPropertyMeta(false);
       PropertyMeta[] toProps = to._recordMeta().getPropertyMeta(false);
@@ -175,11 +193,39 @@
          {
             return false;
          }
-         
+      }
+      
+      for (int i = 0; i < fromProps.length; i++)
+      {
+         if (!b4reserved)
+         {
+            switch (fromProps[i].getId())
+            {
+               case ReservedProperty.ID_ERROR_FLAG:
+               case ReservedProperty.ID_ERROR_STRING:
+               case ReservedProperty.ID_ROW_STATE:
+               case ReservedProperty.ID_ORIGIN_ROWID:
+               case ReservedProperty.ID_PEER_ROWID:
+                  // skip these attributes/properties
+                  continue;
+            }
+         }
+            
          // TODO: LOB data is mutable, needs to be duplicated explicitly
-         to.data[i] = from.data[i];
+         boolean change = to.data[i] != from.data[i];
+         if (change)
+         {
+            to.data[i] = from.data[i];
+            
+            // update the null property bitset and mark the property as changed to be able to save it
+            to.nullProps.set(i, to.data[i] == null);
+            to.dirtyProps.set(i);
+         }
       }
       
+      // mark it as changed
+      to.updateState(CHANGED, true);
+      
       return true;
    }
    
@@ -323,7 +369,7 @@
       int len = this.data.length;
       this.id = from.id;
       System.arraycopy(from.data, 0, this.data, 0, len);
-      dirtyProps.set(0, len);
+      dirtyProps.set(0, len); // TODO: nullProps?
    }
    
    /**
@@ -489,9 +535,14 @@
    public String toString()
    {
       String sep = System.lineSeparator();
-      
-      StringBuilder buf = new StringBuilder();
       int len = data.length;
+      
+      StringBuilder buf = new StringBuilder(_recordMeta().tables[0]);
+      buf.append(':').append(primaryKey()).append(sep)
+         .append(state).append(sep)
+         .append("dirty: ").append(dirtyProps).append(sep)
+         .append("unvalidated: ").append(unvalidated).append(sep)
+         .append("data: {");
       for (int i = 0; i < len; i++)
       {
          if (i > 0)
@@ -499,14 +550,11 @@
             buf.append(", ");
          }
          
-         buf.append(String.valueOf(data[i]));
+         buf.append(data[i]);
       }
       
-      return _recordMeta().tables[0] + ':' + primaryKey() + sep +
-             state + sep +
-             "dirty: " + dirtyProps + sep +
-             "unvalidated: " + unvalidated + sep +
-             "data: {" + buf.toString() + "}";
+      buf.append('}');
+      return buf.toString();
    }
    
    /**
@@ -526,7 +574,7 @@
     * @throws  NullPointerException
     *          If the passed in parameter is {@code null}.
     */
-   public Object[] getData(com.goldencode.p2j.schema.PropertyMapper pm)
+   public Object[] getData(PropertyMapper pm)
    {
       Objects.requireNonNull(pm);
       
@@ -534,6 +582,26 @@
    }
    
    /**
+    * This accessor allows direct access to private {@code data} array <strong>only to</strong>
+    * instances of {@code RecordBuffer}.
+    * 
+    * @param   rb
+    *          The {@code RecordBuffer} which requests access.
+    * 
+    * @return  The reference to internal {@code data} array if the passed parameter is a
+    *          {@code RecordBuffer}
+    * 
+    * @throws  NullPointerException
+    *          If the passed in parameter is {@code null}.
+    */
+   public Object[] getData(RecordBuffer rb)
+   {
+      Objects.requireNonNull(rb);
+      
+      return data;
+   }
+   
+   /**
     * Indicate whether any of this record's validatable properties are dirty and have not been validated.
     * 
     * @return  {@code true} if record needs validation, else {@code false}.
@@ -544,6 +612,72 @@
    }
    
    /**
+    * Get a bit set representing dirty unique or non-unique indices, subject to the conditions described by
+    * the parameters. A set bit in the returned set indicates a dirty index. The position of each set bit
+    * corresponds with the 0-based position of the associated index in the array of unique or non-unique
+    * indices for the record.
+    * 
+    * @param   dirtyOffset
+    *          Optional offset of a dirty property which must be a component of the indices returned. If
+    *          less than 0, all dirty properties are considered. If a non-negative offset is provided,
+    *          but the corresponding property is not dirty, an empty bit set is returned.
+    * @param   unique
+    *          {@code true} to return dirty unique indices; {@code false} to return dirty non-unique indices.
+    * @param   remaining
+    *          If {@code true}, only <em>unvalidated</em> indices are returned. Otherwise, validation is not
+    *          considered.
+    * 
+    * @return  A bit set, as described above.
+    */
+   public BitSet getDirtyIndices(int dirtyOffset, boolean unique, boolean remaining)
+   {
+      RecordMeta recMeta = _recordMeta();
+      BitSet filter = new BitSet();
+      BitSet[] indices = unique ? recMeta.uniqueIndices : recMeta.nonuniqueIndices;
+      
+      if (remaining)
+      {
+         filter.or(indexState.getBitSet(unique));
+      }
+      else
+      {
+         filter.set(0, indices.length);
+      }
+      
+      return getDirtyIndices(indices, dirtyOffset, filter, (state.state & NEW) == NEW);
+   }
+   
+   /**
+    * Get a two element array representing the old and new values of the property currently being changed.
+    * The first element is the previous value of the property; the second is the new value. If the property
+    * has not been touched or the old and new values are the same, {@code null} is returned.
+    * <p>
+    * <strong>Note:</strong> this method will only return a non-null result while a property update is
+    * active; that is, while a DMO property is being updated via the {@code RecordBuffer} invocation handler.
+    * It is only at that moment that the previous value for the property being changed is guaranteed to
+    * contain meaningful data.
+    * 
+    * @return  See above.
+    */
+   public Object[] getActiveUpdateDiffs()
+   {
+      if (activeOffset < 0 ||
+          !dirtyProps.get(activeOffset) ||
+          Objects.equals(activePropPreviousValue, data[activeOffset]))
+      {
+         return null;
+      }
+      
+      return new Object[] { activePropPreviousValue, data[activeOffset] };
+   }
+   
+   // TODO: making this public. should return a copy of it?
+   public BitSet getDirtyProps()
+   {
+      return dirtyProps;
+   }
+   
+   /**
     * Set a single datum into the data array, and update the record and property state accordingly.
     * 
     * @param   offset
@@ -590,6 +724,122 @@
    }
    
    /**
+    * Set all datum in the data array. This works only if the source has the same structure as the
+    * destination (this). A prevalidation should be done - this will only check integrity, type and extents.
+    * The order of the matching will be from left to right and it will avoid reserved properties.
+    * 
+    * 
+    * @param   source
+    *          A record from which the data will be copied to this data array.
+    *          
+    * @return  {@code true} if a valid copying could be done; so the properties match in type and extent and
+    *          the number of properties match (except the reserved ones). 
+    */
+   protected boolean setAllDatum(BaseRecord source)
+   {
+      PropertyMeta[] fromProps = source._recordMeta().getPropertyMeta(false);
+      PropertyMeta[] toProps = this._recordMeta().getPropertyMeta(false);
+      Map<Integer, Integer> mapping = new HashMap<>();
+      int i, j;
+      
+      // do the mapping and check if this copy makes sense (we have a correct mapping)
+      for (i = 0, j = 0; i < fromProps.length && j < toProps.length;)
+      {
+         PropertyMeta fromProp = fromProps[i];
+         PropertyMeta toProp = toProps[j];
+         if (fromProp.isReserved())
+         {
+            i++;
+            continue;
+         }
+         if (toProp.isReserved())
+         {
+            j++;
+            continue;
+         }
+         
+         if (fromProp.getType()   != toProp.getType() || 
+             fromProp.getExtent() != toProp.getExtent())
+         {
+            return false;
+         }
+         
+         mapping.put(j, i);
+         j++;
+         i++;
+      }
+      
+      // the mapping is broken; the source can't be copied here so this method was used incorrectly
+      if (!(i == fromProps.length && j == toProps.length))
+      {
+         return false;
+      }
+
+      // do an initial filtering of the offsets which should be updated
+      List<Integer> updatedOffsets = null;
+      List<Object> updatedDatums = null;
+      for (Map.Entry<Integer, Integer> entry : mapping.entrySet())
+      {
+         Integer toOffset = entry.getKey();
+         Integer fromOffset = entry.getValue();
+         Object datum = source.getDatum(fromOffset);
+         
+         // update the bitset of dirty properties
+         dirtyProps.set(toOffset);
+         
+         // for BigDecimal, equals checks the scale - we need compareTo, to check if the values are really the 
+         // same, regardless of the scale value.
+         if (!(Objects.equals(data[toOffset], datum) || 
+              (datum instanceof Comparable && 
+               data[toOffset] != null && 
+               ((Comparable) datum).compareTo(data[toOffset]) == 0)))
+         {            
+            if (updatedOffsets == null)
+            {
+               updatedOffsets = new ArrayList<>();
+               updatedDatums = new ArrayList<>();
+            }
+            
+            updatedOffsets.add(toOffset);
+            updatedDatums.add(datum);
+         }
+      }
+      
+      // we shouldn't do any copy as no offset will be updated
+      if (updatedOffsets == null || updatedOffsets.size() == 0)
+      {
+         return true;
+      }
+      
+      // we will do a copy, so upgrade lock at first
+      if (!lockForUpdate())
+      {
+         return false;
+      }
+      
+      try
+      {
+         // notify data change in bulk mode
+         // NOTE: this does not set activeOffset as we try to update all offsets at once!
+         bulkDataChanged(updatedOffsets, updatedDatums);
+      }
+      catch (PersistenceException exc)
+      {
+         throw new RuntimeException(exc);
+      }
+      
+      // finally, do the data set
+      for (int idx = 0; idx < updatedOffsets.size(); idx++)
+      {
+         int offset = updatedOffsets.get(idx);
+         Object datum = updatedDatums.get(idx);
+         data[offset] = datum; 
+      }
+      
+      return true;
+   }
+   
+   /**
     * Get the field's value on the specified offset.
     * 
     * @param    offset
@@ -650,96 +900,6 @@
    }
    
    /**
-    * Get a bit set, the set bits of which represent the positions of fully dirty unique indices in the
-    * array of this DMO's unique indices. If no unique indices exist, or if none are fully dirty (i.e.,
-    * all fields in the index have been touched), no bits will be set in the returned bit set.
-    * 
-    * @param   dirtyOffset
-    *          If non-negative, the position in the data array of a property which must be included in any
-    *          dirty index included in the result.
-    * 
-    * @return  A bit set, as described above.
-    */
-   /*
-   BitSet getFullyDirtyUniqueIndices(int dirtyOffset)
-   {
-      return getFullyDirtyIndices(_recordMeta().uniqueIndices, dirtyOffset);
-   }
-   */
-   
-   /*
-   BitSet getFullyDirtyUniqueIndices(int dirtyOffset, boolean open)
-   {
-      return getFullyDirtyIndices(_recordMeta().uniqueIndices, dirtyOffset, open);
-   }
-   */
-   
-   /**
-    * Get a bit set, the set bits of which represent the positions of fully dirty nonunique indices in the
-    * array of this DMO's nonunique indices. If no nonunique indices exist, or if none are fully dirty
-    * (i.e., all fields in the index have been touched), no bits will be set in the returned bit set.
-    * 
-    * @param   dirtyOffset
-    *          If non-negative, the position in the data array of a property which must be included in any
-    *          dirty index included in the result.
-    * 
-    * @return  A bit set, as described above.
-    */
-   /*
-   BitSet getFullyDirtyNonuniqueIndices(int dirtyOffset)
-   {
-      return getFullyDirtyIndices(_recordMeta().nonuniqueIndices, dirtyOffset);
-   }
-   */
-   
-   /**
-    * Get a bit set, the set bits of which represent the positions of fully dirty indices in the given
-    * array of indices. If {@code indices} is empty, or if none of the indices in the array are fully
-    * dirty (i.e., all fields in the index have been touched), no bits will be set in the returned bit set.
-    * 
-    * @param   indices
-    *          Array of bit sets, each representing the positions of indexed fields in the DMO's data array.
-    * @param   dirtyOffset
-    *          If non-negative, the position in the data array of a property which must be included in any
-    *          dirty index included in the result.
-    * 
-    * @return  A bit set, as described above.
-    */
-   /*
-   BitSet getFullyDirtyIndices(BitSet[] indices, int dirtyOffset)
-   {
-      BitSet dirty = new BitSet();
-      
-      if (dirtyOffset >= 0 && !dirtyProps.get(dirtyOffset))
-      {
-         // property at offset is not dirty, so there can be no fully dirty indices containing the given
-         // property
-         return dirty;
-      }
-      
-      int len = indices.length;
-      for (int i = 0; i < len; i++)
-      {
-         BitSet orig = indices[i];
-         
-         if (dirtyOffset >= 0 && !orig.get(dirtyOffset))
-         {
-            continue;
-         }
-         
-         BitSet copy = (BitSet) orig.clone();
-         copy.and(dirtyProps);
-         if (copy.equals(orig))
-         {
-            dirty.set(i);
-         }
-      }
-      
-      return dirty;
-   }
-   */
-   
-   /**
     * Mark all dirty properties as having been validated.
     */
    void markValidated()
@@ -761,24 +921,29 @@
    /**
     * Get a bit set representing the unique indices, if any, which are either fully or partially updated
     * and which have not already been validated. If the record is newly created and has not yet been
-    * flushed to the database, a fully updated index is required; otherwise, a partialy updated index is
+    * flushed to the database, a fully updated index is required; otherwise, a partially updated index is
     * sufficient.
     * 
     * @param   dirtyOffset
     *          Optional offset of a dirty property which must be a component of the indices returned. If
     *          less than 0, all dirty properties are considered. If a non-negative offset is provided,
     *          but the corresponding property is not dirty, an empty bit set is returned.
+    * @param   allUnvalidated
+    *          If {@code true}, then any unique index containing any property not previously validated is
+    *          included in the returned bit set. If {@code false}, then only indices containing properties
+    *          that have been explicitly made dirty are included. Setting this to {@code true} effectively
+    *          considers all properties with untouched, default values in the check.
     * 
     * @return  A bit set as described above.
     */
-   BitSet getUnvalidatedIndices(int dirtyOffset)
+   BitSet getUnvalidatedIndices(int dirtyOffset, boolean allUnvalidated)
    {
       BitSet result = new BitSet();
       
       // nothing to do if:
       // * there are no dirty properties; or
       // * the given dirty offset does not represent an unvalidated property
-      if (dirtyProps.isEmpty() || (dirtyOffset >= 0 && !unvalidated.get(dirtyOffset)))
+      if (!allUnvalidated && (dirtyProps.isEmpty() || (dirtyOffset >= 0 && !unvalidated.get(dirtyOffset))))
       {
          return result;
       }
@@ -791,6 +956,18 @@
       {
          BitSet nextUnique = unique[i];
          
+         if (allUnvalidated)
+         {
+            // if the unique index contains any unvalidated property (including untouched default values),
+            // include it in the set of indices which require validation
+            if (nextUnique.intersects(unvalidated))
+            {
+               result.set(i);
+            }
+            
+            continue;
+         }
+         
          // skip this one if:
          // * an offset is provided, but it is not a component of the index; or
          // * no offset is provided, but none of the unvalidated properties are a component of the index
@@ -821,55 +998,6 @@
       return result;
    }
    
-   private BitSet getDirtyIndices(BitSet[] indices, int dirtyOffset, BitSet filter, boolean full)
-   {
-      BitSet dirty = new BitSet();
-      
-      if (filter.isEmpty() || (dirtyOffset >= 0 && !dirtyProps.get(dirtyOffset)))
-      {
-         // filter is set to filter ALL indices OR property at offset is not dirty, so there can be no
-         // fully dirty indices containing the given property
-         return dirty;
-      }
-      
-      for (int i = filter.nextSetBit(0); i >= 0; i = filter.nextSetBit(i + 1))
-      {
-         BitSet orig = indices[i];
-         
-         if (dirtyOffset >= 0 && !orig.get(dirtyOffset))
-         {
-            continue;
-         }
-         
-         BitSet copy = (BitSet) orig.clone();
-         copy.and(dirtyProps);
-         if (full ? copy.equals(orig) : !copy.isEmpty())
-         {
-            dirty.set(i);
-         }
-      }
-      
-      return dirty;
-   }
-   
-   public BitSet getDirtyIndices(int dirtyOffset, boolean unique, boolean remaining)
-   {
-      RecordMeta recMeta = _recordMeta();
-      BitSet filter = new BitSet();
-      BitSet[] indices = unique ? recMeta.uniqueIndices : recMeta.nonuniqueIndices;
-      
-      if (remaining)
-      {
-         filter.or(indexState.getBitSet(unique));
-      }
-      else
-      {
-         filter.set(0, indices.length);
-      }
-      
-      return getDirtyIndices(indices, dirtyOffset, filter, (state.state & NEW) == NEW);
-   }
-   
    /**
     * Get the offset of the property currently being updated, if any. When a DMO's setter method
     * is invoked, the DMO goes into an &apos;active&apos; state, during which the offset of the
@@ -888,36 +1016,6 @@
    }
    
    /**
-    * Get a two element array representing the old and new values of the property currently being changed.
-    * The first element is the previous value of the property; the second is the new value. If the property
-    * has not been touched or the old and new values are the same, {@code null} is returned.
-    * <p>
-    * <strong>Note:</strong> this method will only return a non-null result while a property update is
-    * active; that is, while a DMO property is being updated via the {@code RecordBuffer} invocation handler.
-    * It is only at that moment that the previous value for the property being changed is guaranteed to
-    * contain meaningful data.
-    * 
-    * @return  See above.
-    */
-   public Object[] getActiveUpdateDiffs()
-   {
-      if (activeOffset < 0 ||
-          !dirtyProps.get(activeOffset) ||
-          Objects.equals(activePropPreviousValue, data[activeOffset]))
-      {
-         return null;
-      }
-      
-      return new Object[] { activePropPreviousValue, data[activeOffset] };
-   }
-   
-   // TODO: making this public. should return a copy of it?
-   public BitSet getDirtyProps()
-   {
-      return dirtyProps;
-   }
-   
-   /**
     * Reset record and property state after database is synchronized with the record's data
     * (i.e., the most recent set of changes have been persisted).
     * <p>
@@ -1068,6 +1166,62 @@
    }
    
    /**
+    * Get a bit set representing dirty unique or non-unique indices, subject to the conditions described by
+    * the parameters. A set bit in the returned set indicates a dirty index. The position of each set bit
+    * corresponds with the 0-based position of the associated index in the array of unique or non-unique
+    * indices for the record.
+    * 
+    * @param   indices
+    *          The array of bit sets representing the indices to be checked. This must be either the set of
+    *          unique indices or non-unique indices associated with the record. Only one or the other can be
+    *          checked by a call to this method.
+    * @param   dirtyOffset
+    *          Optional offset of a dirty property which must be a component of the indices returned. If
+    *          less than 0, all dirty properties are considered. If a non-negative offset is provided,
+    *          but the corresponding property is not dirty, an empty bit set is returned.
+    * @param   filter
+    *          An inclusive filter to apply to the results. If non-empty, each bit in the filter's bit set
+    *          represents the position of an index to be checked in the {@code indices} parameter. If empty,
+    *          the returned bit set will be empty.
+    * @param   full
+    *          If {@code true}, ALL index components must be dirty for an index to be considered dirty.
+    *          If {@code false}, one or more index components must be dirty for an index to be considered
+    *          dirty.
+    * 
+    * @return  A bit set, as described above.
+    */
+   private BitSet getDirtyIndices(BitSet[] indices, int dirtyOffset, BitSet filter, boolean full)
+   {
+      BitSet dirty = new BitSet();
+      
+      if (filter.isEmpty() || (dirtyOffset >= 0 && !dirtyProps.get(dirtyOffset)))
+      {
+         // filter is set to filter ALL indices OR property at offset is not dirty, so there can be no
+         // fully dirty indices containing the given property
+         return dirty;
+      }
+      
+      for (int i = filter.nextSetBit(0); i >= 0; i = filter.nextSetBit(i + 1))
+      {
+         BitSet orig = indices[i];
+         
+         if (dirtyOffset >= 0 && !orig.get(dirtyOffset))
+         {
+            continue;
+         }
+         
+         BitSet copy = (BitSet) orig.clone();
+         copy.and(dirtyProps);
+         if (full ? copy.equals(orig) : !copy.isEmpty())
+         {
+            dirty.set(i);
+         }
+      }
+      
+      return dirty;
+   }
+   
+   /**
     * A property's value has changed. Update the record's internal state accordingly and set up rollback
     * information if the record is undoable.
     * 
@@ -1108,6 +1262,57 @@
    }
    
    /**
+    * Multiple property values have changed. Update the record's internal state accordingly and set up rollback
+    * information if the record is undoable.
+    * 
+    * @param   offsets
+    *          A list of offsets for the changed values in record's data array.
+    * @param   datums
+    *          A list of new values for the changed datums.
+    */
+   private void bulkDataChanged(List<Integer> offsets, List<Object> datums)
+   throws PersistenceException
+   {
+      if (activeBuffer == null)
+      {
+         return;
+      }
+      
+      for (int i = 0; i < offsets.size(); i++)
+      { 
+         int offset = offsets.get(i);
+         Object datum = datums.get(i);
+         
+         // update the unvalidated properties bitset
+         if (_recordMeta().validatable.get(offset))
+         {
+            unvalidated.set(offset);
+         }
+         
+         // update the null property bitset
+         nullProps.set(offset, datum == null);
+         
+         // this doesn't make sense as there is no activeOffset set
+         // activePropPreviousValue = data[offset];
+      }      
+      
+      int flags = CHANGED /*| NEEDS_VALIDATION*/;
+      updateState(flags, true);
+      
+      int txLevel = prepareChangeSet(activeBuffer.getSession());
+      if (txLevel >= 0)
+      {
+         changeSet.logStateChange(flags, txLevel);
+         for (int i = 0; i < offsets.size(); i++)
+         { 
+            int offset = offsets.get(i);
+            Object datum = datums.get(i);
+            changeSet.logDataChange(txLevel, offset, datum);
+         }
+      }
+   }
+   
+   /**
     * Updates the set of state flags for this record. Depending on {@code add} parameter, the
     * flags can be set (when {@code true}) or removed (when {@code false}. If one flag is already
     * set and {@code add == true} that flag remains unchanged. The same stands for un-setting a
@@ -1189,6 +1394,13 @@
       return txLevel;
    }
    
+   /**
+    * Obtain an exclusive lock for the current record on behalf of the active buffer, if any.
+    * 
+    * @return  {@code true} if the lock is successfully obtained, or if it is unneeded due to system state,
+    *          or if there is no active buffer. {@code false} if there was an error obtaining the lock (and
+    *          we are in silent error mode).
+    */
    private boolean lockForUpdate()
    {
       if (DatabaseManager.isInitializing())
@@ -1222,6 +1434,11 @@
       }
    }
    
+   /**
+    * Get the name of the primary table associated with this record.
+    * 
+    * @return  Primary table name.
+    */
    private String getTable()
    {
       String[] tables = _recordMeta().tables;

=== modified file 'src/com/goldencode/p2j/persist/orm/DDLGeneratorWorker.java'
--- src/com/goldencode/p2j/persist/orm/DDLGeneratorWorker.java	2020-09-25 16:00:36 +0000
+++ src/com/goldencode/p2j/persist/orm/DDLGeneratorWorker.java	2021-01-29 19:50:19 +0000
@@ -9,6 +9,7 @@
 ** 001 OM  20191009 Created initial version. Supported permanent tables and indexes DDLs.
 **         20200618 Sorted tables alphabetically. Unique indexes are generated first.
 ** 002 OM  20200924 Index components carry multiple information to avoid map lookups for them.
+** 003 IAS 20201203 Added generation database object for the word tables' support.
 */
 
 /*
@@ -66,6 +67,16 @@
 
 package com.goldencode.p2j.persist.orm;
 
+import java.io.*;
+import java.nio.file.*;
+import java.util.*;
+import java.util.function.*;
+import java.util.logging.*;
+import java.util.stream.*;
+
+import org.apache.commons.collections.map.*;
+
+import com.goldencode.ast.*;
 import com.goldencode.p2j.cfg.*;
 import com.goldencode.p2j.convert.*;
 import com.goldencode.p2j.pattern.*;
@@ -75,11 +86,6 @@
 import com.goldencode.p2j.schema.*;
 import com.goldencode.p2j.util.*;
 
-import java.io.*;
-import java.nio.file.*;
-import java.util.*;
-import java.util.logging.*;
-
 /**
  * This worker gathers schema information from TRPL and constructs DDL statements for initializing
  * the permanent database (tables, indexes and sequences).
@@ -122,8 +128,11 @@
     */
    public static final String DTZ_OFFSET = "_offset";
    
+   /** Database objects' names parts' separator */
+   public static final String NAME_PARTS_SEPARATOR = "__";
+
    /** Fixed size space used to make the output pretty. */
-   private final String INDENT = "   ";
+   private static final String INDENT = "   ";
    
    /**
     * The constructor configures the supporting library with exported functionality.
@@ -134,6 +143,261 @@
    }
    
    /**
+    * Get the schema name based on database name.
+    * 
+    * @param   dbName
+    *          The database name.
+    *
+    * @return  The schema name.
+    */
+   private String getSchemaName(String dbName)
+   {
+      if (MetadataManager.META_SCHEMA.equals(dbName))
+      {
+         return Configuration.getSchemaConfig().getMetadata().getName();
+      }
+      return dbName;
+   }
+
+   /** Word table data */
+   public static class WordTable
+   {
+      /** parent table name */
+      public final String parentTableName;
+      /** field name */
+      public final String fieldName;
+      /** extent size. */
+      public final long extent;
+      /** field is case-sensitive flag */
+      public final boolean caseSensitive;
+      /** word table name */
+      public final String tableName;
+      /** word table PK  name */
+      public final String pkName;
+      /** word table FK index name */
+      public final String fkIndexName;
+      /** word table FK constraint name */
+      public final String fkName;
+      /** word table index name */
+      public final String indexName;
+      /** word table trigger function name */
+      public final String triggerFunctionName;
+      /** word table AFTER UPDATE trigger name */
+      public final String afterUpdateTriggerName;
+      /** word table AFTER INSERT trigger name */
+      public final String afterInsertTriggerName;
+      
+      /**
+       * Constructor
+       * 
+       * @param parentTableName
+       *        parent table name  
+       * @param fieldName
+       *        field name
+       * @param extent 
+       *        field extent
+       * @param caseSensitive
+       *        field is case-sensitive flag
+       * @param tableName
+       *        word table name
+       * @param pkName 
+       *        word table PK name
+       * @param fkIndexName
+       *        word table FK index name
+       * @param fkName
+       *        word table FK constraint name
+       * @param indexName
+       *        word table index name
+       * @param triggerFunctionName
+       *        word table trigger function name
+       * @param afterUpdateTriggerName
+       *        word table AFTER UPDATE trigger name
+       * @param afterInsertTriggerName
+       *        word table AFTER INSERT trigger name
+       */
+      public WordTable(
+            String parentTableName, String fieldName, long extent, boolean caseSensitive, 
+            String tableName, String pkName, String fkIndexName, String fkName, String indexName,
+            String triggerFunctionName, 
+            String afterUpdateTriggerName, String afterInsertTriggerName)
+      {
+         this.parentTableName = parentTableName;
+         this.fieldName = fieldName;
+         this.extent = extent;
+         this.caseSensitive = caseSensitive;
+         this.tableName = tableName;
+         this.pkName = pkName;
+         this.fkIndexName = fkIndexName;
+         this.fkName = fkName;
+         this.indexName = indexName;
+         this.triggerFunctionName = triggerFunctionName;
+         this.afterUpdateTriggerName = afterUpdateTriggerName;
+         this.afterInsertTriggerName = afterInsertTriggerName;
+      }
+      /** Wird table data builder */
+      public static class Builder
+      {
+         /** parent table name */
+         private final String parentTableName;
+         /** field name */
+         private final String fieldName;
+         /** extent size. */
+         private final long extent;
+         /** field is case-sensitive flag */
+         private final boolean caseSensitive;
+         /** word table name */
+         private String tableName;
+         /** word table PK  name */
+         private String pkName;
+         /** word table FK index name */
+         private String fkIndexName;
+         /** word table FK constraint name */
+         private String fkName;
+         /** word table index name */
+         private String indexName;
+         /** word table trigger function name */
+         private String triggerFunctionName;
+         /** word table AFTER INSERT trigger name */
+         private String afterInsertTriggerName;
+         /** word table AFTER UPDATE trigger name */
+         private String afterUpdateTriggerName;
+         
+         /**
+          * Constructor
+          * 
+          * @param nb
+          *        The database objects' name builder.
+          * @param parentTableName
+          *        parent table name  
+          * @param fieldName
+          *        field name
+          * @param extent 
+          *        field extent
+          * @param caseSensitive
+          *        field is case-sensitive flag
+          */
+         public Builder(NameBuilder nb,
+               String parentTableName, String fieldName, long extent, boolean caseSensitive)
+         {
+            this.parentTableName = extent == 0 ? parentTableName : parentTableName + "__" + extent;
+            this.fieldName = fieldName;
+            this.extent = extent;
+            this.caseSensitive = caseSensitive;
+            this.tableName = nb.build(parentTableName, fieldName);
+            this.pkName = nb.build("pk", parentTableName, fieldName);
+            this.fkIndexName = nb.build("fkidx", parentTableName, fieldName);
+            this.fkName = nb.build("fk", parentTableName, fieldName);
+            this.indexName = nb.build("idx", parentTableName, fieldName);
+            this.triggerFunctionName = nb.build(parentTableName, fieldName, "trg");
+            this.afterInsertTriggerName = nb.build(parentTableName, fieldName, "ins"); 
+            this.afterUpdateTriggerName = nb.build(parentTableName, fieldName, "upd"); 
+         }
+         
+         /**
+          * Set word table name.
+          * 
+          * @param value
+          *        word table name.
+          * @return <code>this</code> Builder instance
+          */
+         public Builder tableName(String value)
+         {
+            this.tableName = value;
+            return this;
+         }
+         
+         /**
+          * Set word table FK index name.
+          * 
+          * @param value
+          *        word table FK index name.
+          * @return <code>this</code> Builder instance
+          */
+         public Builder fkIndexName(String value)
+         {
+            this.fkIndexName = value;
+            return this;
+         }
+         
+         /**
+          * Set word table FK constraint name.
+          * 
+          * @param value
+          *        word table FK constraint name.
+          * @return <code>this</code> Builder instance
+          */
+         public Builder fkName(String value)
+         {
+            this.fkName = value;
+            return this;
+         }
+         
+         /**
+          * Set word table index name.
+          * 
+          * @param value
+          *        word table index name.
+          * @return <code>this</code> Builder instance
+          */
+         public Builder indexName(String value)
+         {
+            this.indexName = value;
+            return this;
+         }
+         
+         /**
+          * Set word table trigger function name.
+          * 
+          * @param value
+          *        word table trigger function name,
+          * @return <code>this</code> Builder instance
+          */
+         public Builder triggerFunctionName(String value)
+         {
+            this.triggerFunctionName = value;
+            return this;
+         }
+         
+         /**
+          * Set word table AFTER INSERT trigger name.
+          * 
+          * @param value
+          *        word table AFTER INSERT trigger name.
+          * @return <code>this</code> Builder instance
+          */
+         public Builder afterInsertTriggerName(String value)
+         {
+            this.afterInsertTriggerName = value;
+            return this;
+         }
+         
+         /**
+          * Set word table AFTER UPDATE trigger name.
+          * 
+          * @param value
+          *        word table AFTER UPDATE trigger name.
+          * @return <code>this</code> Builder instance
+          */
+         public Builder afterUpdateTriggerName(String value)
+         {
+            this.afterUpdateTriggerName = value;
+            return this;
+         }
+         
+         /**
+          * Build word table data
+          * @return word table data
+          */
+         public WordTable build()
+         {
+            return new WordTable(parentTableName, fieldName, extent, caseSensitive, 
+                      tableName, pkName, fkIndexName, fkName, indexName, 
+                      triggerFunctionName, afterUpdateTriggerName, afterInsertTriggerName); 
+         }
+      }
+      
+   }
+   /**
     * Dialect-independent data structure class for SQL tables. Holds all needed information
     * related to a SQL table (name, fields, indexes). The structure is filled in a granular
     * fashion and iterated when the DDL artifacts are created (table and index DDLs).
@@ -232,7 +496,19 @@
          this.cycle = cycle;
       }
    }
-   
+
+   /** Database object names' builder */
+   private static interface NameBuilder
+   {
+      /**
+       * Construct database object name concatenating parts
+       * 
+       * @param parts
+       *        parts of the name
+       * @return object name
+       */
+      public String build(String... parts);
+   }
    /**
     * The class that exposes its public methods as worker interface in TRPL. The internal data
     * is acquired piece by piece using {@code add***()} methods. When the entire schema
@@ -241,9 +517,21 @@
     */
    public class Helper
    {
+      /** Max length of the database object name (most restrictive limit as for PostgreSQL)*/ 
+      private static final int MAX_OBJECT_NAME_LEN = 63;
+
       /** The set of all tables mapped by their schema. */
       private final Map<String, Map<String, Table>> tables = new TreeMap<>();
       
+      /** The set of all objects' names generated for word tables by mapped by their schema. */
+      private final Map<String, Set<String>> wordTablesNames = new TreeMap<>();
+
+      /** Word tables by name */
+      private final Map<String, WordTable> wordTables = new HashMap<>();
+      
+      /** Word tables' keys DDLs by word table name */
+      private final Map<String, List<String>> wordTablesKeys = new HashMap<>();
+      
       /** The set of all sequences mapped by their schema. */
       private final Map<String, Map<String, Sequence>> sequences = new HashMap<>();
       
@@ -251,6 +539,14 @@
       private final P2JField ID = new P2JField(PK, ParmType.INT64, 0L,
             null, null, null, null, false, null, null, false, null, null, null, null, true, 0);
       
+      /** 'parent' field of the word table */
+      private final P2JField PARENT = new P2JField("parent__id", ParmType.INT64, 0L,
+            null, null, null, null, false, null, null, false, null, null, null, null, true, 0);
+      
+      /** 'word' field of the word table */
+      private final P2JField WORD = new P2JField("word", ParmType.CHAR, 0L,
+            null, null, null, null, false, null, null, false, null, null, null, null, true, 0);
+
       /** 
        * This column is used as foreign key in a normalized composite table. The value refer to
        * the record to which the extent components belongs to.
@@ -414,6 +710,50 @@
       }
       
       /**
+       * Get the name of the word table for the word index 
+       *  
+       * @param   dbName
+       *          The target schema. 
+       * @param   tableName
+       *          The target (legacy) table name .
+       * @param   indexName
+       *          The legacy name of the index.
+       *          
+       * @return  the name of the word table for the word index
+       */
+      public String getWordTableName(String dbName, String tableName, String indexName)
+      {
+         if ("_temp".equals(dbName))
+         {
+            return "";
+         }
+         Map<String, Table> tbl = tables.get(dbName);
+         if (tbl == null)
+         {
+            throw new IllegalArgumentException("Unknown database: [" + dbName + "]");
+         }
+         Table table = tbl.get(tableName);
+         if (table == null)
+         {
+            throw new IllegalArgumentException("Unknown table: [" + tableName + "]");
+         }
+         P2JIndex index = table.indexes.get(indexName);
+         if (index == null)
+         {
+            throw new IllegalArgumentException("Unknown index: [" + indexName + "]");
+         }
+         if (!index.isWord())
+         {
+            throw new IllegalArgumentException("Not a word index: [" + indexName + "]");
+         }
+         P2JIndexComponent component = index.components().next();
+         Map<String, String> wordTableNames = new HashedMap();
+         String fieldName = component.getColumnName();
+         String wordTableName = createDbObjectName(dbName, tableName, fieldName);
+         index.setWordTableName(wordTableName);
+         return wordTableName;
+      }
+      /**
        * Adds a new index to an existing table (added previously with {@code addTable()}). In
        * case of validation error the method logs the event and returns without adding the index.
        *
@@ -631,54 +971,88 @@
             ddlFolder.mkdirs();
          }
          
-         SchemaConfig schemaConfig = Configuration.getSchemaConfig();
          String eoln = EnvironmentOps.OS_WIN.equalsIgnoreCase(Configuration.getParameter("opsys"))
-                        ? "\r\n" /* express to WINDOWS */ : "\n" /* default to Linux */;
-         String dialectStr = schemaConfig.getNamespaceParameter(dbName, "ddl-dialects");
-         String[] dialects = dialectStr == null ? new String[] { "h2" } : dialectStr.split(",");
-         
-         for (String dialectId : dialects)
-         {
-            Class<? extends Dialect> dialectCls = DialectHelper.getDialectClass(dialectId);
-            if (dialectCls != null)
-            {
-               try
-               {
-                  Dialect dialect = dialectCls.newInstance();
-                  String fileName = "schema_table_" + getSchemaName(dbName) + "_" + dialectId + ".sql";
-                  File outFile = new File(ddlFolder, fileName);
-                  PrintStream out = new PrintStream(outFile);
-                  String coll = schemaConfig.getNamespaceParameter(dbName, dialectId + "/collation");
-                  if (coll != null && dialect.explicitSetCollation())
-                  {
-                     out.print("set collation " + coll + dialect.getDelimiter() + eoln);
-                  }
-                  List<String> preps = dialect.getDatabasePrepareStatements(new Database(dbName));
-                  if (preps != null)
-                  {
-                     for (String prep : preps)
-                     {
-                        out.print(prep + eoln);
-                     }
-                     out.print(eoln);
-                  }
-                  generateTableDDLImpl(dbName, dialect, out, eoln);
-                  out.close(); // make sure the file is closed
-                  
-                  if (MetadataManager.META_SCHEMA.equals(dbName))
-                  {
-                     copySqlFile(outFile, MetadataManager.DDL_TABLE);
-                  }
-               }
-               catch (InstantiationException | IllegalAccessException | IOException e)
-               {
-                  e.printStackTrace();
-               }
-            }
-         }
+               ? "\r\n" /* express to WINDOWS */ : "\n" /* default to Linux */;
+         forAllDialects(dbName, dialect -> {
+            String fileName = "schema_table_" + getSchemaName(dbName) + "_" + dialect.id() + ".sql";
+            File outFile = new File(ddlFolder, fileName);
+            try
+            {
+               PrintStream out = new PrintStream(outFile);
+               String coll = Configuration.getSchemaConfig().
+                     getNamespaceParameter(dbName, dialect.id() + "/collation");
+               if (coll != null && dialect.explicitSetCollation())
+               {
+                  out.print("set collation " + coll + dialect.getDelimiter() + eoln);
+               }
+               List<String> preps = dialect.getDatabasePrepareStatements(new Database(dbName));
+               if (preps != null)
+               {
+                  for (String prep : preps)
+                  {
+                     out.print(prep + eoln);
+                  }
+                  out.print(eoln);
+               }
+               generateTableDDLImpl(dbName, dialect, out, eoln);
+               out.close(); // make sure the file is closed
+               
+               if (MetadataManager.META_SCHEMA.equals(dbName))
+               {
+                  copySqlFile(outFile, MetadataManager.DDL_TABLE);
+               }
+            }
+            catch (IOException e)
+            {
+               e.printStackTrace();
+            }
+         });
       }
       
       /**
+       * Generate triggers' DDL to support word tables. 
+       * @param   dbName
+       *          The name of the schema to be processed.
+       */
+      public void generateWordTablesDDLs(String dbName)
+      {
+         if (DatabaseManager.TEMP_TABLE_SCHEMA.equals(dbName) || 
+             !tables.containsKey(dbName))
+         {
+            // quick out. Do not process _temp or other undefined schema. 
+            return;
+         }
+         
+         // make sure the ddl folder exists:
+         File ddlFolder = new File("ddl");
+         if (!ddlFolder.exists())
+         {
+            ddlFolder.mkdirs();
+         }
+         
+         String eoln = EnvironmentOps.OS_WIN.equalsIgnoreCase(Configuration.getParameter("opsys"))
+               ? "\r\n" /* express to WINDOWS */ : "\n" /* default to Linux */;
+         forAllDialects(dbName, dialect -> {
+            String fileName = "schema_word_tables_" + getSchemaName(dbName) + 
+                  "_" + dialect.id() + ".sql";
+            try (PrintStream out = new PrintStream(new File(ddlFolder, fileName)))
+            {
+               dialect.generateWordTablesDDLImpl(dbName, out, eoln, wordTables);
+               wordTablesKeys.values().stream().flatMap(List<String>::stream).forEach(s -> {
+                  out.printf(s); 
+                  out.print(eoln);
+                  out.print(eoln);
+               });
+            }   
+            catch (IOException e)
+            {
+               e.printStackTrace();
+            }
+            
+         });
+      }
+
+      /**
        * Generates the DDLs needed to create all sequences in a database with a specific schema.
        * The sequence DDL statements are APPENDED at the end of table DDL definitions, for each
        * dialect (i.e. {@code ddl/schema_table_<schema>_<dialect>.sql}).
@@ -701,33 +1075,21 @@
          {
             ddlFolder.mkdirs();
          }
-         
-         SchemaConfig schemaConfig = Configuration.getSchemaConfig();
          String eoln = EnvironmentOps.OS_WIN.equalsIgnoreCase(Configuration.getParameter("opsys"))
-                        ? "\r\n" /* express to WINDOWS */ : "\n" /* default to Linux */;
-         String dialectStr = schemaConfig.getNamespaceParameter(dbName, "ddl-dialects");
-         String[] dialects = dialectStr == null ? new String[] { "h2" } : dialectStr.split(",");
-         
-         for (String dialectId : dialects)
-         {
-            Class<? extends Dialect> dialectCls = DialectHelper.getDialectClass(dialectId);
-            if (dialectCls != null)
-            {
-               try
-               {
-                  Dialect dialect = dialectCls.newInstance();
-                  String fileName = 
-                        "schema_table_" + getSchemaName(dbName) + "_" + dialectId + ".sql";
-                  PrintStream out = new PrintStream(
-                                       new FileOutputStream(new File(ddlFolder, fileName), true));
-                  generateSequenceDDLImpl(dbName, dialect, out, eoln);
-               }
-               catch (InstantiationException | IllegalAccessException | FileNotFoundException e)
-               {
-                  e.printStackTrace();
-               }
-            }
-         }
+               ? "\r\n" /* express to WINDOWS */ : "\n" /* default to Linux */;
+         forAllDialects(dbName, dialect -> {
+            String fileName = 
+                  "schema_table_" + getSchemaName(dbName) + "_" + dialect.id() + ".sql";
+            try(PrintStream out = new PrintStream(
+                  new FileOutputStream(new File(ddlFolder, fileName), true)))
+            {
+               generateSequenceDDLImpl(dbName, dialect, out, eoln);
+            }
+            catch (FileNotFoundException e)
+            {
+               e.printStackTrace();
+            }
+         });
       }
       
       /**
@@ -758,6 +1120,37 @@
          
          preprocessIndices(dbName);
          
+         String eoln = EnvironmentOps.OS_WIN.equalsIgnoreCase(Configuration.getParameter("opsys"))
+                        ? "\r\n" /* express to WINDOWS */ : "\n" /* default to Linux */;
+         forAllDialects(dbName, dialect -> {
+            String fileName = "schema_index_" + getSchemaName(dbName) + "_" + dialect.id() + ".sql";
+            File outFile = new File(ddlFolder, fileName);
+            try
+            {
+               PrintStream out = new PrintStream(outFile);
+               generateIndexDDLImpl(dbName, dialect, out, eoln);
+               out.close();
+               if (MetadataManager.META_SCHEMA.equals(dbName))
+               {
+                  copySqlFile(outFile, MetadataManager.DDL_INDEX);
+               }
+            }
+            catch (IOException e)
+            {
+               e.printStackTrace();
+            }
+         });
+      }
+      
+      /**
+       * Do a job for all dialects
+       * @param dbName
+       *        database name
+       * @param worker
+       *        job worker
+       */
+      private void forAllDialects(String dbName, Consumer<Dialect> worker)
+      {
          SchemaConfig schemaConfig = Configuration.getSchemaConfig();
          String eoln = EnvironmentOps.OS_WIN.equalsIgnoreCase(Configuration.getParameter("opsys"))
                         ? "\r\n" /* express to WINDOWS */ : "\n" /* default to Linux */;
@@ -772,25 +1165,15 @@
                try
                {
                   Dialect dialect = dialectCls.newInstance();
-                  String fileName = "schema_index_" + getSchemaName(dbName) + "_" + dialectId + ".sql";
-                  File outFile = new File(ddlFolder, fileName);
-                  PrintStream out = new PrintStream(outFile);
-                  generateIndexDDLImpl(dbName, dialect, out, eoln);
-                  out.close(); // make sure the file is closed
-                  
-                  if (MetadataManager.META_SCHEMA.equals(dbName))
-                  {
-                     copySqlFile(outFile, MetadataManager.DDL_INDEX);
-                  }
+                  worker.accept(dialect);
                }
-               catch (InstantiationException | IllegalAccessException | IOException e)
+               catch (InstantiationException | IllegalAccessException e)
                {
                   e.printStackTrace();
                }
             }
          }
       }
-      
       /**
        * Preprocesses the indexes, dropping the UNIQUE option for those that are implicitly unique due to
        * a previous index having the same components has already been validated as unique.
@@ -816,7 +1199,10 @@
             Set<Map.Entry<String, P2JIndex>> indexEntries = table.indexes.entrySet();
             for (Map.Entry<String, P2JIndex> indexEntry : indexEntries)
             {
-               idxList.add(indexEntry.getValue());
+               if (!indexEntry.getValue().isWord())
+               {
+                  idxList.add(indexEntry.getValue());
+               }
             }
             
             // do the processing:
@@ -994,7 +1380,7 @@
                   addDDLs.add(fkIndex);
                   
                   // add the constraint; the name is the FK prefix followed by the composite table name
-                  String fk = "alter table " + compositeTableName + eoln +
+                  String fk = "alter TABLE " + compositeTableName + eoln +
                               INDENT + "add constraint " + "FK_" + compositeTableName.toUpperCase() + eoln +
                               INDENT + "foreign key (parent__id)" + eoln +
                               INDENT + "references " + table.name + eoln +
@@ -1029,6 +1415,11 @@
                out.print(eoln);
                out.print(eoln);
             }
+            
+            if (!dialect.useUdf4Contains())
+            {
+               generateWordTable(dbName, table, out, dialect, eoln);
+            }
          }
          
          for (String addDLL : addDDLs)
@@ -1039,7 +1430,93 @@
             out.print(eoln);
          }
       }
-      
+
+      /**
+       * Generate auxiliary word table 
+       * 
+       * @param   dbName
+       *          The target schema.
+       * @param   table
+       *          parent table
+       * @param   out
+       *          The {@code PrintStream} used for output.
+       * @param   dialect
+       *          The {@code Dialect} to be used.
+       * @param   eoln
+       *          OS-specific end of line terminator.
+       * @param   addDDLs
+       *          indexes holder
+       */
+      private void generateWordTable(String dbName,
+                                     Table table,
+                                     PrintStream out,
+                                     Dialect dialect,
+                                     String eoln)
+      {
+         List<P2JIndex> wordIndexes = table.indexes.values().
+               stream().filter(P2JIndex::isWord).collect(Collectors.toList());
+         for (P2JIndex wordIndex: wordIndexes)
+         {
+            String tableName = wordIndex.getTable();
+            Iterator<P2JIndexComponent> components = wordIndex.components(); 
+            if (!components.hasNext())
+            {
+               continue;
+            }
+            P2JIndexComponent indexComponent = components.next();
+            String fieldName = indexComponent.getColumnName();
+            long extent = table.fields.get(fieldName).getExtent();
+            boolean caseSensitive = !indexComponent.isIgnoreCase();
+            WordTable.Builder builder = new WordTable.Builder(
+                                             parts -> createDbObjectName(dbName, parts), 
+                                             tableName, fieldName, extent, caseSensitive);
+            // TODO: use hints to override default objects' names
+            WordTable wordTable = builder.build();
+            Table wtable = new Table(wordTable.tableName);
+            wordTables.put(wordTable.tableName, wordTable);
+            StringBuilder wt = new StringBuilder();
+            wt.append(dialect.getCreateTableString()).
+                  append(wordTable.tableName).
+                  append(" (").append(eoln);
+            addFieldImpl(PARENT, dialect, wtable, wt, eoln);
+            if (extent > 0)
+            {
+               addFieldImpl(list__index, dialect, wtable, wt, eoln);
+            }
+            addLastFieldImpl(WORD, dialect, wtable, wt, eoln);
+            wt.append(")");
+            out.print(wt.toString());
+            out.print(dialect.getDelimiter());
+            out.print(eoln);
+            out.print(eoln);
+            List<String> keys = new ArrayList<>();
+            
+            // add the pk constraint; 
+            String pk = "alter table " + wordTable.tableName+ eoln +
+                        INDENT + "add constraint " + wordTable.pkName + eoln +
+                        INDENT + "primary key (parent__id, " +
+                                  (extent == 0 ? "" : "list__index, ") +
+                                  "word);" + eoln;
+            keys.add(pk);
+            // add the foreign index:
+            String fkIndex = "create index " + wordTable.fkIndexName + " on " +
+                  wordTable.tableName + " (parent__id" + 
+                                  (extent == 0 ? "" : ", list__index" ) + ");";
+            keys.add(fkIndex);
+            
+            // add the fk constraint; 
+            String fk = "alter table " + wordTable.tableName+ eoln +
+                        INDENT + "add constraint " + wordTable.fkName + eoln +
+                        INDENT + "foreign key (parent__id" + 
+                                 (extent == 0 ? "" : ", list__index" ) + ")" + eoln +
+                        INDENT + "references " + wordTable.parentTableName + eoln +
+                        INDENT + "on delete cascade" + eoln +
+                        INDENT + "on update cascade;";
+            keys.add(fk);
+            wordTablesKeys.put(wordTable.tableName, keys);
+         }
+      }
+
       /**
        * Appends a field to a table DDL statement. Usually one column is added but, if required
        * (in case of {@code datetime-tz} and case-insensitive {@code character} fields), multiple
@@ -1095,6 +1572,60 @@
       }
       
       /**
+       * Appends a last field to a table DDL statement. Usually one column is added but, if required
+       * (in case of {@code datetime-tz} and case-insensitive {@code character} fields), multiple
+       * column are added.
+       * 
+       * @param   field
+       *          The field to be added.
+       * @param   dialect
+       *          The dialect to be used.
+       * @param   table
+       *          The field's parent table.
+       * @param   sb
+       *          The string builder used for concatenate string data.
+       * @param   eoln
+       *          OS-dependent end of line terminator.
+       */
+      private void addLastFieldImpl(P2JField field,
+                                    Dialect dialect,
+                                    Table table,
+                                    StringBuilder sb,
+                                    String eoln)
+      {
+         sb.append(INDENT).append(field.getName()).append(" ")
+           .append(dialect.getSqlMappedType(field.getType().toString(), field.getScale()))
+           .append(field.isMandatory() ? " not null" : "").append(eoln);
+         
+         // special handling for character fields that are index components:
+         // we handle this in a dialect specific
+         if (dialect.injectComputedColumns()    &&
+             // dialect.needsComputedColumns()  &&
+             isIndexComponent(field, table)     &&
+             "character".equals(field.getType().toString()))
+         {
+            sb.append(INDENT)
+              .append(dialect.getComputedColumnPrefix(field.isCaseSensitive()))
+              .append(field.getName())
+              .append(" ")
+              .append(dialect.getSqlMappedType(field.getType().toString(), field.getScale()))
+              .append(" as ")
+              .append(dialect.getComputedColumnFormula(field.getName(), !field.isCaseSensitive()))
+              .append(eoln);
+         }
+         
+         // special handling for datetime-tz: this is handled in a uniform, dialect-independent
+         // way (Note: this is because in spite of correct time/date arithmetic, the PSQL dialect
+         //            loses the time-zone offset and it cannot be retrieved back)
+         if ("datetimetz".equals(field.getType().toString()))
+         {
+            sb.append(INDENT).append(field.getName()).append(DTZ_OFFSET)
+              .append(" ").append(dialect.getSqlMappedType("integer", 0))
+              .append(field.isMandatory() ? " not null" : "").append(eoln);
+         }
+      }
+
+      /**
        * Checks whether a field is part of an index. The {@code character} case-insensitive fields
        * index components need special handling.
        * 
@@ -1124,20 +1655,43 @@
       }
       
       /**
-       * Get the schema name based on database name.
+       * Construct database object name concatenating parts
        * 
-       * @param   dbName
-       *          The database name.
-       *
-       * @return  The schema name.
+       * @param dbName
+       *        The target schema.
+       * @param dialect
+       *        The {@code Dialect} to be used.
+       * @param parts
+       *        parts of the name
+       * @return object name
        */
-      private String getSchemaName(String dbName)
+      private String createDbObjectName(String dbName, String... parts)
       {
-         if (MetadataManager.META_SCHEMA.equals(dbName))
+         Set<String> wordSupportName = wordTablesNames.computeIfAbsent(dbName, n -> new HashSet<>());
+         String name = Arrays.stream(parts).collect(Collectors.joining(NAME_PARTS_SEPARATOR));
+         int excess = name.length() - MAX_OBJECT_NAME_LEN;
+         if (excess > 0)
          {
-            return Configuration.getSchemaConfig().getMetadata().getName();
+            int np = 0, len = -1;
+            for (int i = 0; i < parts.length; i++)
+            {
+               if (parts[i].length() > len)
+               {
+                  np = i;
+                  len = parts[i].length(); 
+               }
+            }
+            String longest = parts[np];
+            int n = 0;
+            do
+            {
+               String s = String.valueOf(n++);
+               parts[np] = longest.substring(0, len - excess - s.length()) + s;
+               name = Arrays.stream(parts).collect(Collectors.joining(NAME_PARTS_SEPARATOR));
+            }
+            while(!wordSupportName.add(name));
          }
-         return dbName;
+         return name;
       }
    }
 }

=== added file 'src/com/goldencode/p2j/persist/orm/DMOSignatureHelper.java'
--- src/com/goldencode/p2j/persist/orm/DMOSignatureHelper.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/persist/orm/DMOSignatureHelper.java	2020-12-19 00:59:30 +0000
@@ -0,0 +1,841 @@
+/*
+** Module   : DMOSignatureHelper.java
+** Abstract : A collection of methods used for handling DMO signatures.
+**
+** Copyright (c) 2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
+** 001 AIL 20201125 First revision.
+**         20201126 Added unique constraint encoding and checking.
+**         20201210 Added explicit signature for DMO operations in which the property names matter.
+**         20201214 Fixed unique constraint checking.
+**         20201216 Added support for loose-copy-mode.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+**
+** Additional terms under GNU Affero GPL version 3 section 7:
+**
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+**
+**   0. Attribution Requirement.
+**
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+**
+**   1. No License To Use Trademarks.
+**
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+**
+**   2. No Misrepresentation of Affiliation.
+**
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+**
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+**
+**   3. No Misrepresentation of Source or Origin.
+**
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.persist.orm;
+
+import java.util.*;
+import java.util.logging.*;
+import java.util.regex.Pattern;
+
+import com.goldencode.p2j.util.*;
+
+/**
+ * Compute a string based signature for a DMO, which contains information regarding the 
+ * type of each field, extents and eventually some restrictions like mandatory or unique.
+ * In order to have the prefix-code property for each generated string, the following 
+ * standards should be respected:
+ * - The properties are represented in the order they are provided.
+ * - A data type representation should be a single upper case character.
+ * - In case the field has an extent, the length of the extent will follow the data type 
+ * representation as a number (no matter the number of digits)
+ * - At the end of the representation of one property, there will be a sequence of lower-case
+ * characters showing which restrictions are imposed on this property (mandatory). The
+ * order of these is important.
+ * This means that one property will have the following format: 
+ * UpperCaseType ExtentDigit* LowerCaseConstraint*
+ * At the end of the property representation, we will have unique constraint representations,
+ * which is sequence of delimited enumerations of properties id.
+ */
+public class DMOSignatureHelper
+{
+   /** 
+    * A map statically initialized with the classic JVM data type single-char representation.
+    * This can also contain other mappings created at the runtime.
+    */
+   private static final Map<Class<? extends BaseDataType>, Character> typeMapping;
+   
+   /** The character used for representing a mandatory property */
+   private static final char CHAR_MANDANTORY = 'm';
+   
+   /** 
+    * The character used as delimiter between unique constraints which are encoded 
+    * as a sequence of property ids 
+    */
+   private static final char CHAR_UNIQUE_CONSTRAINT_DELIMITER = '|';
+   
+   /** The character used as delimiter between the property ids in the same group (ex: unique constraint) */
+   private static final char CHAR_PROPERTY_ID_DELIMITER = ',';
+   
+   /** The character used before appending a property name to the signature. */
+   private static final char PROPERTY_NAME_DELIMITER_START = '(';
+
+   /** The character used after appending a property name to the signature. */
+   private static final char PROPERTY_NAME_DELIMITER_FINISH = ')';
+   
+   /** A string based delimiter (regex friendly) used for splitting a signature into separate constraints */
+   private static final String FORMATTED_CONSTRAINT_DELIMITER;
+   
+   /** 
+    * A string based delimiter (regex friendly) used for splitting a propriety id group 
+    * into separate property ids 
+    */
+   private static final String FORMATTED_PROPERTY_DELIMITER;
+   
+   /** Logger */
+   private static final Logger LOG = LogHelper.getLogger(DMOSignatureHelper.class.getName());
+   
+   /** A helper to select a suitable unused character for a specified data type. */
+   private static final TypeIdentifierProvider findSuitableCandidate;
+
+   /** A helper to select any unused character for a specified data type. */
+   private static final TypeIdentifierProvider findAnyCandidate;
+   
+   /** Static initialization of the type mapping */
+   static 
+   {
+      typeMapping = new IdentityHashMap<>();
+
+      typeMapping.put(character.class, 'C');
+      typeMapping.put(decimal.class, 'F');
+      typeMapping.put(integer.class, 'I');
+      typeMapping.put(int64.class, 'J');
+      typeMapping.put(logical.class, 'Z');
+      
+      FORMATTED_CONSTRAINT_DELIMITER = Pattern.quote(String.valueOf(CHAR_UNIQUE_CONSTRAINT_DELIMITER));
+      FORMATTED_PROPERTY_DELIMITER = Pattern.quote(String.valueOf(CHAR_PROPERTY_ID_DELIMITER));
+      
+      findSuitableCandidate = (type) -> 
+      {
+         Set<Character> values = new HashSet<Character>(typeMapping.values());
+         for (char raw : type.getName().toCharArray())
+         {
+            char candidate = Character.toUpperCase(raw);
+            if (isType(candidate) && !values.contains(candidate))
+            {
+               typeMapping.put(type, candidate);
+               return candidate;
+            }
+         }
+         return null;
+      };
+      
+      findAnyCandidate = (type) -> 
+      {
+         Set<Character> values = new HashSet<Character>(typeMapping.values());
+         for (char candidate = 'A'; candidate <= 'Z'; candidate++)
+         {
+            if (!values.contains(candidate))
+            {
+               typeMapping.put(type, candidate);
+               return candidate;
+            }
+         }
+         return null;
+      };
+   }
+   
+   /**
+    * This builds a signature which represents a DMO. The DMOs which are compatible under certain
+    * circumstances (structural, by property name etc.) should compatible string signatures.
+    * 
+    * @param   itProvider
+    *          An iterator to the whole collection of properties for the processed DMO.
+    * @param   uniqueConstraints 
+    *          A list of multiple properties which together should be unique.
+    * @param   tempTable 
+    *          A flag to indicate that that the properties are for a temp-table.
+    *          
+    * @return  A DMO signature representing the a DMO having the specified properties and unique constraints.
+    */
+   public static DmoSignature buildSignature(IteratorProvider<Property> itProvider, 
+                                             List<List<Property>> uniqueConstraints, 
+                                             boolean tempTable)
+   {
+      Map<Integer, Integer> explicitIdToPos = new HashMap<>();
+      String quickSignature = buildQuickSignature(itProvider, uniqueConstraints, tempTable);
+      String explicitSignature = buildExplicitSignature(itProvider, 
+                                                        uniqueConstraints, 
+                                                        tempTable,
+                                                        explicitIdToPos);
+      
+      return new DmoSignature(quickSignature,
+                              explicitSignature,
+                              explicitIdToPos);
+   }
+
+   /**
+    * Check if two signatures are compatible from properties name order point of view. This works only
+    * if both the source and destination have explicit signatures - as the property names are relevant here.
+    * 
+    * @param   srcSignature
+    *          The source signature which should be checked.
+    * @param   dstSignature
+    *          The destination signature which should be checked.
+    *          
+    * @return  {@code true} if the DMO signatures shuffled the property names in the explicit signatures
+    *          in the same order. This means that, if the explicit signature match and this returns 
+    *          {@code true}, it means that they have the same order of the properties name/types/extents/
+    *          constraints etc. Otherwise, they only have the same property names but in different order,
+    *          case in which this returns {@code false}.
+    */
+   public static boolean exactPropertyOrder(DmoSignature srcSignature, DmoSignature dstSignature)
+   {
+      if (srcSignature == null || dstSignature == null)
+      {
+         return false;
+      }
+      
+      String srcOrder = srcSignature.getIdToPosAsString();
+      String dstOrder = dstSignature.getIdToPosAsString();
+      
+      if (srcOrder == null || dstOrder == null)
+      {
+         return false;
+      }
+      
+      return srcOrder.equals(dstOrder);
+   }
+
+   /**
+    * Check if the source and destination are compatible for a fast buffer-copy. 
+    * 
+    * @param   src
+    *          The signature of the source DMO.
+    * @param   dst
+    *          The signature of the destination DMO.
+    *          
+    * @return  {@code true} if the explicit signatures are equal, so they have the same property names
+    *          (not always in the same order).
+    */
+   public static boolean validBufferCopy(DmoSignature src, DmoSignature dst)
+   {
+      if (src == null || dst == null)
+      {
+         return false;
+      }
+      
+      String srcSignature = src.getExplicitSignature();
+      String dstSignature = dst.getExplicitSignature();
+      
+      if (srcSignature == null || dstSignature == null)
+      {
+         return false;
+      }
+      
+      return srcSignature.equals(dstSignature);
+   }
+   
+   /**
+    * Check if the destination signature is less restrictive than the source signature. This checks
+    * each field for type and extent compatibility; afterwards it checks if all destination constraints
+    * can be validated by source's constraints. If the signatures are compatible in this way, 
+    * we can allow a fast copy. Note that looseCopy mode will relax the constraints regarding property
+    * order; all we care about are the unique constraints.
+    * 
+    * @param   src
+    *          The signature of the source DMO.
+    * @param   dst
+    *          The signature of the destination DMO.
+    * @param   looseCopy
+    *          Flag which indicates if the DMO signatures are compatible in loose-copy-mode.
+    *          
+    * @return  {@code true} if the signatures are compatible.
+    */
+   public static boolean validTempTableBulkCopy(DmoSignature src, 
+                                                DmoSignature dst, 
+                                                boolean looseCopy)
+   {
+      if (src == null || dst == null)
+      {
+         return false;
+      }
+      
+      String srcSignature = src.getQuickSignature();
+      String dstSignature = dst.getQuickSignature();
+      
+      if (srcSignature == null || dstSignature == null)
+      {
+         return false;
+      }
+      
+      if (srcSignature.equals(dstSignature))
+      {
+         return true;
+      }
+      
+      // fall back to an in-detail analysis of the signatures
+      String[] srcChunks = srcSignature.split(FORMATTED_CONSTRAINT_DELIMITER, 2);
+      String[] dstChunks = dstSignature.split(FORMATTED_CONSTRAINT_DELIMITER, 2);
+
+      // verify the properties first: split after the unique constraint delimiter and get the first chunk
+      // in loose-copy-mode, this step is skipped
+      if (!looseCopy && !propertiesMatch(srcChunks[0], dstChunks[0]))
+      {
+         return false;
+      }
+
+      // verify unique constraints after: take the second chuck and match the unique constraints
+      // both have unique constraints so resolve through special method
+      if (srcChunks.length > 1 && dstChunks.length > 1 && !uniqueConstraintsMatch(srcChunks[1], dstChunks[1]))
+      {
+         return false;
+      }
+      
+      // the destination has unique constraints, but the source doesn't, so this is not a safe copy
+      if (srcChunks.length <= 1 && dstChunks.length > 1)
+      {
+         return false;
+      }
+      
+      return true;
+   }
+   
+   /**
+    * This builds a string which structurally represents a DMO. The DMOs which are compatible,
+    * from strcture's point of view, should have the same signature. This is useful for quickly
+    * checking compatibility (example: copy-temp-table).
+    * 
+    * @param   it
+    *          An iterator to the whole collection of properties for the processed DMO.
+    * @param   uniqueConstraints 
+    *          A list of multiple properties which together should be unique.
+    * @param   tempTable 
+    *          A flag to indicate that that the properties are for a temp-table.
+    *          
+    * @return  A string representing the signature for a DMO having the specified properties.
+    */
+   private static String buildQuickSignature(IteratorProvider<Property> it, 
+                                             List<List<Property>> uniqueConstraints, 
+                                             boolean tempTable)
+   {
+      StringBuilder sb = new StringBuilder();
+      
+      if (!buildPropertySignature(it, tempTable, false, null, sb))
+      {
+         return null;
+      }      
+      
+      if (!buildUniqueConstraintsSignature(uniqueConstraints, null, sb))
+      {
+         return null;
+      }
+      
+      return sb.toString();
+   }
+   
+   private static String buildExplicitSignature(IteratorProvider<Property> it, 
+                                               List<List<Property>> uniqueConstraints, 
+                                               boolean tempTable,
+                                               Map<Integer, Integer> idToPos)
+   {
+      StringBuilder sb = new StringBuilder();
+      
+      if (!buildPropertySignature(it, tempTable, true, idToPos, sb))
+      {
+         return null;
+      }       
+      
+      if (!buildUniqueConstraintsSignature(uniqueConstraints, idToPos, sb))
+      {
+         return null;
+      }     
+      
+      return sb.toString();
+   }
+   
+   /**
+    * Check if two signatures are compatible in terms of properties data types, extent and field-level
+    * constraints.
+    * 
+    * @param   src
+    *          The signature of the source DMO.
+    * @param   dst
+    *          The signature of the destination DMO.
+    *          
+    * @return  {@code true} if the signatures are compatible.
+    */
+   private static boolean propertiesMatch(String src, String dst)
+   {
+      if (src == null || dst == null)
+      {
+         return false;
+      }
+      if (src.equals(dst))
+      {
+         return true;
+      }
+      
+      char[] srcChars = src.toCharArray();
+      char[] dstChars = dst.toCharArray();
+      
+      int srcLength = srcChars.length;
+      int dstLength = dstChars.length;
+      
+      int i, j;
+      for (i = 0, j = 0; i < srcLength && j < dstLength;)
+      {
+         if (!isType(srcChars[i]) || !isType(dstChars[j]))
+         {
+            if (LOG.isLoggable(Level.SEVERE))
+            {
+               LOG.log(Level.SEVERE, "DMO signatures are malformed; "
+                        + "some tokens are not parsed when validating copy");
+            }
+            return false;
+         }
+         
+         // check type
+         if (srcChars[i++] != dstChars[j++])
+         {
+            return false;
+         }
+         
+         // check extent
+         while (i < srcLength && j < dstLength && isDigit(srcChars[i]) && isDigit(dstChars[j]))
+         {
+            if (srcChars[i++] != dstChars[j++])
+            {
+               return false;
+            }
+         }
+         
+         if ((i < srcLength && isDigit(srcChars[i])) || (j < dstLength && isDigit(dstChars[j])))
+         {
+            return false;
+         }
+                  
+         // check constraints
+         while (j < dstLength && isConstraint(dstChars[j]))
+         {
+            while (i < srcLength && isConstraint(srcChars[i]) && srcChars[i] != dstChars[j])
+            {
+               i++;
+            }
+            
+            if (i >= srcLength || !isConstraint(srcChars[i]))
+            {
+               return false;
+            }
+            
+            // the source has a constraint which matches the current destination constraint
+            i++;
+            j++;
+         }
+      }
+      
+      return i == srcLength && j == dstLength;
+   }
+   
+   /**
+    * Check if the second set of unique constraints (encoded in the destination signature) can be implied
+    * by the first set of unique constraints. This will happen if, for each unique constraint in the 
+    * destination, there is a unique constraint in the source which is stronger (having such constraint 
+    * will automatically imply that the destination unique constraint is satisfied).
+    * 
+    * @param   src
+    *          The signature of the source's unique constraints.
+    * @param   dst
+    *          The signature of the destination's unique constraints.
+    *          
+    * @return  {@code true} if the constraints in the destination are satisfied by the unique constraints 
+    *          in the source.
+    */
+   private static boolean uniqueConstraintsMatch(String src, String dst)
+   {
+      if (src == null || dst == null)
+      {
+         return false;
+      }
+      
+      if (src.equals(dst))
+      {
+         return true;
+      }
+      
+      String[] srcConstraints = src.split(FORMATTED_CONSTRAINT_DELIMITER);
+      String[] dstConstraints = dst.split(FORMATTED_CONSTRAINT_DELIMITER);
+      int srcLength = srcConstraints.length;
+      int dstLength = dstConstraints.length;
+      
+      for (int j = 0; j < dstLength; j++)
+      {
+         boolean foundMatch = false;
+         for (int i = 0; i < srcLength; i++)
+         {
+            if (strongerUniqueConstraint(srcConstraints[i], dstConstraints[i]))
+            {
+               foundMatch = true;
+               break;
+            }
+         }
+         if (!foundMatch)
+         {
+            return false;
+         }
+      }
+      
+      return true;
+   }
+   
+   /**
+    * Check if having the first unique constraint will automatically determine that the second unique
+    * constraint will be satisfied. This happens when all fields in the first unique constraint are
+    * included in the second one. From signature's point of view, this will be resolved by 
+    * finding all encoded ids in the first unique constraint in the second one. Having same signature,
+    * will automatically mean that the first unique constraint is stronger.
+    * 
+    * @param   firstConstraint
+    *          The first unique constraint signature which is checked.
+    * @param   secondConstraint
+    *          The second unique constraint signature which is checked.
+    *          
+    * @return  {@code true} if the first unique constraint is included in the second, which means
+    *          that is stronger and can imply the second unique constraint.
+    */
+   private static boolean strongerUniqueConstraint(String firstConstraint, String secondConstraint)
+   {
+      if (firstConstraint == null || secondConstraint == null)
+      {
+         return false;
+      }
+      if (firstConstraint.equals(secondConstraint))
+      {
+         return true;
+      }
+      
+      String[] ids1 = firstConstraint.split(FORMATTED_PROPERTY_DELIMITER);
+      String[] ids2 = secondConstraint.split(FORMATTED_PROPERTY_DELIMITER);
+      int length1 = ids1.length;
+      int length2 = ids2.length;
+      
+      // we make use of the fact that the property ids are sorted in a strictly ascending way
+      int i, j;
+      for (i = 0, j = 0; i < length1 && j < length2; j++)
+      {         
+         if (ids1[i].equals(ids2[j])) // we found a constraint match for property i
+         {
+            i++;
+         }
+      }
+      
+      // first constraint is stronger, if we could find all its properties in the second constraint
+      return i == length1;
+   }
+   
+   /**
+    * This is responsible for encoding the properties and append them to the provided string builder.
+    * The encoding is a non-delimited sequence of property encodings. Each property encoding is
+    * formed out of: data type encoding, extent encoding and field-level constraints.
+    * 
+    * @param   itProvider
+    *          An iterator to a collection of properties which should be encoded.
+    * @param   tempTable
+    *          A flag indicating that the signature is created for a temp-table specific DMO.
+    * @param   explicit
+    *          A flag indicating that this property signature is done for an explicit signature.
+    *          This means that the property names should be included, and the property ordered.
+    * @param   idToPos
+    *          A valid map which will be filled with the correspondence between property id and 
+    *          their order in the generated signature. This is required only if the explicit
+    *          flag is set on true - as only explicit signatures have a different ordering of the props.
+    * @param   sb
+    *          The string builder onto which the signature should be appended.
+    *          
+    * @return  {@code true} if the properties could be encoded in a signature.
+    */
+   private static boolean buildPropertySignature(IteratorProvider<Property> itProvider, 
+                                                 boolean tempTable, 
+                                                 boolean explicit,
+                                                 Map<Integer, Integer> idToPos,
+                                                 StringBuilder sb)
+   {      
+      Map<String, String> nameToSignature = new LinkedHashMap<>();
+      Iterator<Property> it = itProvider.provide();
+      while (it.hasNext())
+      {
+         StringBuilder sbProp = new StringBuilder();
+         Property prop = it.next();
+         Class<? extends BaseDataType> type = (Class<? extends BaseDataType>) prop._fwdType;
+         Character ch = typeMapping.get(type);
+         
+         if (ch == null)
+         {
+            // for this kind of situations, find a suitable representation for this type
+            ch = findSuitableCandidate.provide(type);
+         }
+         
+         if (ch == null)
+         {
+            // can't find a suitable representation, assign a random character
+            ch = findAnyCandidate.provide(type);
+         }
+         
+         if (ch == null)
+         {
+            if (LOG.isLoggable(Level.WARNING))
+            {
+               LOG.log(Level.WARNING, "Couldn't find a character representation for " + type.getName());
+            }
+            return false;
+         }
+         
+         sbProp.append(ch);
+         
+         int extent = prop.extent;
+         if (extent > 0)
+         {
+            sbProp.append(extent);
+         }
+
+         // for explicit signatures, we need to add the name of the property
+         if (explicit && !processFieldName(prop, tempTable, sbProp))
+         {
+            return false;
+         }
+         
+         if (!processFieldConstraints(prop, tempTable, sbProp))
+         {
+            return false;
+         }
+         
+         nameToSignature.put(prop.legacy, sbProp.toString());
+      }
+      
+      if (!explicit)
+      {
+         // this is a quick signature: append the properties in the default order
+         for (String signature : nameToSignature.values())
+         {
+            sb.append(signature);
+         }
+         return true;
+      }
+      
+      // this is an explicit signature: append the properties sorted by the name
+      Map<String, Integer> name2Pos = new HashMap<>();
+      int idx = 1;
+      for (Map.Entry<String, String> entry : new TreeMap<>(nameToSignature).entrySet())
+      {
+         String name = entry.getKey();
+         String signature = entry.getValue();
+         
+         sb.append(signature);
+         name2Pos.put(name, idx++);
+      }
+      
+      // create a positioning mapping as the fields are not in the same order in the
+      // signature as in a record
+      it = itProvider.provide();
+      while (it.hasNext())
+      {
+         Property prop = it.next();
+         idToPos.put(prop.id, name2Pos.get(prop.legacy));
+      }
+      
+      return true;
+   }
+   
+   /**
+    * This is responsible for encoding the unique constraints and append them to the provided string builder.
+    * The encoding is a lexicographically sorted sequence of unique constraint signatures, delimited by a
+    * defined character. Each unique constraint signature is a sorted sequence of property ids, delimited
+    * by a fixed character.
+    * 
+    * @param   uniqueConstraints
+    *          A list of unique constrains (each being a list of properties).
+    * @param   idToPos
+    *          A mapping from the property ids to their position in the signature. This should be 
+    *          {@code null} for quick signatures (as their ids match the position}, which this should be
+    *          not {@code null} null in explicit signatures, where the order doesn't always match.
+    * @param   sb
+    *          The string builder onto which the signature should be appended.
+    *          
+    * @return  {@code true} if the unique constraints could be converted to a signature
+    */
+   private static boolean buildUniqueConstraintsSignature(List<List<Property>> uniqueConstraints, 
+                                                          Map<Integer, Integer> idToPos,
+                                                          StringBuilder sb)
+   {
+      if (uniqueConstraints == null || uniqueConstraints.isEmpty())
+      {
+         return true;
+      }
+      
+      List<String> constraintSignatures = new ArrayList<>();
+      
+      for (List<Property> props : uniqueConstraints)
+      {
+         if (props == null || props.isEmpty())
+         {
+            continue;
+         }
+         
+         StringBuilder signature = new StringBuilder();
+         List<Integer> ids = new ArrayList<>(props.size());
+         
+         props.forEach((prop) -> ids.add(idToPos == null ? prop.id : idToPos.get(prop.id)));
+         
+         // the ids should be sorted in order to do exact matches more easily (string matching)
+         Collections.sort(ids);
+         for (int i = 0; i < ids.size() - 1; i++)
+         {
+            signature.append(ids.get(i)).append(CHAR_PROPERTY_ID_DELIMITER);
+         }
+         signature.append(ids.get(ids.size() - 1));
+         
+         constraintSignatures.add(signature.toString());
+      }
+
+      // the constraints should be sorted in order to do exact matches more easily (string matching)
+      Collections.sort(constraintSignatures);
+      
+      for (int i = 0; i < constraintSignatures.size(); i++)
+      {
+         sb.append(CHAR_UNIQUE_CONSTRAINT_DELIMITER).append(constraintSignatures.get(i));
+      }
+      
+      return true;
+   }
+   
+   /**
+    * Check if the provided character is suitable for data type encoding in the signature.
+    * 
+    * @param   ch
+    *          The character which is checked.
+    *          
+    * @return  {@code true} if the character is suitable.
+    */
+   private static boolean isType(char ch)
+   {
+      return 'A' <= ch && ch <= 'Z';
+   }
+   
+   /**
+    * Check if the provided character is a base-10 digit.
+    * 
+    * @param   ch
+    *          The character which is checked.
+    *          
+    * @return  {@code true} if the character is a digit.
+    */
+   private static boolean isDigit(char ch)
+   {
+      return '0' <= ch && ch <= '9';
+   }
+   
+   /**
+    * Check if the provided character is suitable for constraint encoding in the signature.
+    * 
+    * @param   ch
+    *          The character which is checked.
+    *          
+    * @return  {@code true} if the character is suitable.
+    */
+   private static boolean isConstraint(char ch)
+   {
+      return 'a' <= ch && ch <= 'z';
+   }
+   
+   /**
+    * Helper which sets restrictions like mandatory or unique to a specified field.
+    * 
+    * @param   prop
+    *          The property for which the restriction analysis is done.
+    * @param   tempTable
+    *          Flag which indicates that the property is part of a temporary table.
+    * @param   sb
+    *          The string builder which should be completed with the found restrictions.
+    *          
+    * @return  {@code true} if we could process the constraints of the property    
+    */
+   private static boolean processFieldConstraints(Property prop,
+                                                  boolean tempTable,
+                                                  StringBuilder sb)
+   {
+      if (!tempTable && prop.mandatory)
+      {
+         sb.append(CHAR_MANDANTORY);
+      }
+      
+      return true;
+   }
+   
+   private static boolean processFieldName(Property prop,
+                                           boolean tempTable,
+                                           StringBuilder sb)
+   {
+      String name = prop.legacy;
+      if (name.indexOf(PROPERTY_NAME_DELIMITER_START)  != -1 || 
+          name.indexOf(PROPERTY_NAME_DELIMITER_FINISH) != -1)
+      {
+         return false;
+      }
+      
+      sb.append(PROPERTY_NAME_DELIMITER_START);
+      sb.append(name);
+      sb.append(PROPERTY_NAME_DELIMITER_FINISH);
+      return true;
+   }
+   
+   /**
+    * Helper for anonymous functions used in identifying a suitable character for a specified data type. 
+    */
+   interface TypeIdentifierProvider 
+   {
+      /** Single provider method for a character based on a base data type class. */
+      Character provide(Class<? extends BaseDataType> type);
+   }
+   
+   /**
+    * Helper for anonymous functions used in identifying a suitable character for a specified data type. 
+    */
+   interface IteratorProvider<T>
+   {
+      /** Single provider method for an iterator */
+      Iterator<T> provide();
+   }
+}

=== modified file 'src/com/goldencode/p2j/persist/orm/DmoClass.java'
--- src/com/goldencode/p2j/persist/orm/DmoClass.java	2020-09-20 08:07:24 +0000
+++ src/com/goldencode/p2j/persist/orm/DmoClass.java	2020-10-14 21:06:19 +0000
@@ -180,7 +180,7 @@
          String wide = (String) bdtInfo[i + 2];
          
          BaseDataAccess bda = new BaseDataAccess();
-         bda.logical = type.isAssignableFrom(logical.class);
+         bda.logical = (type == logical.class);
          
          String upperNarrow = StringHelper.changeCase(simpleNarrow, true);
          bda.getter = "_" + (bda.logical ? "is" : "get") + upperNarrow;

=== modified file 'src/com/goldencode/p2j/persist/orm/DmoMeta.java'
--- src/com/goldencode/p2j/persist/orm/DmoMeta.java	2020-10-02 22:45:29 +0000
+++ src/com/goldencode/p2j/persist/orm/DmoMeta.java	2021-01-29 19:50:19 +0000
@@ -14,6 +14,14 @@
 **     CA  20200927 Use IdentityHashMap instead of plain map when the key is a Class.
 **     OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
 **     OM  20201002 Use DmoMeta cached information instead of map lookups.
+**     OM  20201012 Moved here delegated methods from manager.
+**     AIL 20201125 Added DMO signature computation in constructor.
+**         20201126 Added unique constraints to DMO signature.
+**         20201203 Added helper methods.
+**         20201210 Changes signature from string to specialized class.
+**     OM  20201120 Added NO-UNDO attribute support.
+**     OM  20201202 Added getPrimaryIndex() method.
+**     IAS 20201210 Added support for word tables.
 */
 
 /*
@@ -71,6 +79,7 @@
 
 package com.goldencode.p2j.persist.orm;
 
+import com.goldencode.p2j.convert.*;
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.persist.annotation.*;
 import com.goldencode.p2j.persist.annotation.Index;
@@ -84,6 +93,7 @@
 import java.util.concurrent.*;
 import java.util.concurrent.atomic.*;
 import java.util.logging.*;
+import java.util.stream.*;
 
 /**
  * An immutable structure that contains the annotation information on a table and its fields.
@@ -107,6 +117,9 @@
    /** The set of annotations for each declared field, mapped by the FQL property name. */
    protected Map<String, Property> fields = new LinkedHashMap<>();
    
+   /** The set of annotations for each declared field, mapped by its legacy name. */
+   protected Map<String, Property> fieldsByLegacy = null;
+   
    /** The list of indexes of this table. */
    protected List<Index> indexes = new ArrayList<>();
    
@@ -140,6 +153,9 @@
    /** The cached list of sets of properties participating in UNIQUES indexes. */
    private List<Set<String>> uniqueConstraints = null;
    
+   /** The cached list of lists of whole property instances participating in UNIQUES indexes. */
+   private List<List<Property>> uniqueProps = null;
+   
    /** The cached list of mandatory fields. */
    private List<Property> mandatoryFields = null;
    
@@ -197,6 +213,12 @@
    /** Caches the {@code namespacePrefix} attribute from {@link Table} annotation. */
    public final String namespacePrefix;
    
+   /** A signature containing information about the DMO structure and field constraints. */
+   private final DmoSignature signature;
+   
+   /** Caches the {@code NO-UNDO} attribute from {@link Table} annotation (TEMP-TABLE specific). */
+   public final boolean noUndo;
+   
    /** The set of properties and their metadata, indexed by their in-memory positions. */
    private Pair<Property, PropertyMeta>[] properties = null;
    
@@ -254,6 +276,7 @@
       this.xmlNodeName = table.xmlNodeName();
       this.namespaceUri = table.namespaceUri();
       this.namespacePrefix = table.namespacePrefix();
+      this.noUndo = table.noUndo();
       
       this.iface = iface;
       this.dmoImplInterface = dmoImplInterface;
@@ -309,6 +332,14 @@
          fields.put(property.name, property);
       }
       
+      // build a collection of lists containing properties part of the same unique constraint
+      // this will be used when encoding unique constraints in the signature
+      List<List<Property>> uniqueProps = getUniqueConstraintsAsProps();
+      
+      // build a String signature suitable for identifying if two DMOs are compatible in certain 
+      // operations (for example copy-temp-table).
+      signature = DMOSignatureHelper.buildSignature(() -> getFields(false), uniqueProps, tempTable);
+      
       // the eventual relations cannot be created at this moment, they will be processed at a
       // later time, when the respective DMO interfaces will be loaded. 
    }
@@ -466,6 +497,49 @@
    }
    
    /**
+    * Looks up a {@code Property} by its legacy field name.<p>
+    * <b>Note:</b><br>
+    *    This method is rather slow. Do not use it unless you have no other solution.<br>
+    *    At the moment when this method was added, it is only needed from within {@code serial} package. This
+    *    is also the reason it is {@code public}.
+    * 
+    * @param   legacyField
+    *          The name of the legacy field.
+    *
+    * @return  The {@code Property} whose legacy name was passed as parameter.
+    */
+   public Property byLegacyName(String legacyField)
+   {
+      // be sure the name is normalized
+      legacyField = legacyField.toLowerCase().intern();
+      
+      if (fieldsByLegacy == null)
+      {
+         Property ret = null;
+         IdentityHashMap<String, Property> tmpMap = new IdentityHashMap<>();
+         Set<Map.Entry<String, Property>> entries = fields.entrySet();
+         for (Map.Entry<String, Property> entry : entries)
+         {
+            Property prop = entry.getValue();
+            if (prop.id > 0) // skipping reserved properties
+            {
+               String key = prop.legacy.toLowerCase().intern();
+               tmpMap.put(key, prop);
+               if (legacyField == key) // this is OK, they are both interned
+               {
+                  ret = prop;
+               }
+            }
+         }
+         
+         this.fieldsByLegacy = Collections.unmodifiableMap(tmpMap);
+         return ret;
+      }
+      
+      return fieldsByLegacy.get(legacyField);
+   }
+   
+   /**
     * Obtain the list of properties for this DMO.
     * 
     * @param   extra
@@ -502,6 +576,105 @@
    }
    
    /**
+    * Get the fields of a table.
+    *
+    * @return collection of the fields of the target table.
+    */
+   public List<P2JField> getExistingFields()
+   {
+      if (existingFields == null)
+      {
+         Iterator<Property> it = getFields(true);
+         
+         ArrayList<P2JField> ret = new ArrayList<>(fields.size());
+         while (it.hasNext())
+         {
+            Property p = it.next();
+            if (p.id < 0)
+            {
+               // skip ReservedProperties
+               continue;
+            }
+            
+            Class<?> bdtType = p._fwdType;
+            Object init = null;
+            if (BaseDataType.class.isAssignableFrom(bdtType))
+            {
+               try
+               {
+                  Constructor<?> ctor = bdtType.getConstructor(String.class);
+                  init = ctor.newInstance(p.initial);
+               }
+               catch (NoSuchMethodException |
+                     IllegalAccessException |
+                     InstantiationException |
+                     InvocationTargetException e)
+               {
+                  if (log.isLoggable(Level.SEVERE))
+                  {
+                     log.log(Level.SEVERE,
+                             "Failed to instantiate default value for " + p.name + " of " + iface);
+                  }
+               }
+            }
+            ret.add(new P2JField(p.name,
+                                 ParmType.fromClass(bdtType),
+                                 p.extent,
+                                 p.format,
+                                 (BaseDataType) init,
+                                 p.label,
+                                 p.columnLabel,
+                                 p.caseSensitive,
+                                 p.codePage,
+                                 p.help,
+                                 p.serializeHidden,
+                                 p.serializeName,
+                                 p.xmlDataType,
+                                 p.xmlNodeName,
+                                 p.xmlNodeType,
+                                 p.mandatory,
+                                 p.scale));
+            ret.trimToSize();
+            existingFields = Collections.unmodifiableList(ret);
+         }
+      }
+      return existingFields;
+   }
+   
+   /**
+    * Determine whether the given DMO property represents the leading component of any index on this table.
+    *
+    * @param   property
+    *          DMO property to be tested.
+    *
+    * @return  {@code true} if {@code property} is a leading index component; else {@code false}.
+    */
+   public boolean isLeadingIndexComponent(String property)
+   {
+      Iterator<P2JIndex> ixdIt = getDatabaseIndexes();
+      
+      if (ixdIt == null)
+      {
+         return false;
+      }
+      
+      while (ixdIt.hasNext())
+      {
+         Iterator<P2JIndexComponent> propsIter = ixdIt.next().components();
+         if (propsIter.hasNext())
+         {
+            P2JIndexComponent leadingProp = propsIter.next();
+            if (property.equals(leadingProp.getPropertyName()))
+            {
+               return true;
+            }
+         }
+      }
+      
+      return false;
+   }
+   
+   /**
     * Return the number of indices for this table (declared in DMO annotations). Depending on the parameter
     * the number of unique or non-unique indices will be returned.
     * 
@@ -515,8 +688,47 @@
    {
       return unique ? recordMeta.getUniqueIndexNames().length : recordMeta.getNonuniqueIndexNames().length;
    }
+   /**
+    * Get word tables' names map by the field name
+    * 
+    * @return  Word tables' names map by the field name.
+    */
+   public Map<String, WordIndexData> getWordTables()
+   {
+      Map<String, WordIndexData> map = new HashMap<>();
+      for(Index idx: indexes)
+      {
+         if (!idx.word())
+         {
+            continue;
+         }
+         String fieldName = idx.components()[0].name();
+         String wordtablename = idx.wordtablename();
+         String extentTableName = null;
+         Property property = fields.get(fieldName);
+         if (property != null)
+         {
+            int extent = property.extent;
+            extentTableName = extent == 0 ? null: sqlTable + "__" + extent;
+            fieldName = property.column; 
+         }
+         map.put(fieldName, new WordIndexData(wordtablename, extentTableName, 
+               property.caseSensitive));
+      }
+      return map; 
+   }
    
    /**
+    * Get word tables' names map by the index name
+    * 
+    * @return  Word tables' names map by the index name.
+    */
+   public Map<String, String> getWordTablesByIndexName()
+   {
+      return indexes.stream().filter(Index::word).
+            collect(Collectors.toMap(idx -> idx.name(), Index::wordtablename));
+   }
+   /**
     * Get an iterator on all indexes of the DMO. The resulting iterator returns {@code P2JIndex}
     * objects, each of which defines the columns participating in an index.
     *
@@ -530,7 +742,8 @@
          for (Index index : indexes)
          {
             P2JIndex p2jIndex = new P2JIndex(
-                  sqlTable, index.name(), index.unique(), index.primary(), index.word());
+                  sqlTable, index.name(), index.unique(), index.primary(), 
+                  index.word(), index.wordtablename());
             for (IndexComponent comp : index.components())
             {
                String compName = comp.name();
@@ -551,6 +764,38 @@
    }
    
    /**
+    * Get the primary index. If a PRIMARY index is found it is returned. If no index was declared PRIMARY and
+    * {@code implicit == false} the method returns {@code false}. If {@code implicit == true}, the first
+    * declared index is returned. If the table does not define any fields, {@code null} is returned.
+    *
+    * @param   implicit
+    *          If {@code true}, if there is no explicit primary index, the first index is returned as being
+    *          the <i>implicit</i> primary index. Otherwise, in the event there is no primary index declared,
+    *          the method returns {@code null}.
+    *
+    * @return  The PRIMARY index, the primary IMPLICIT index or {@code null} as described above.
+    */
+   public P2JIndex getPrimaryIndex(boolean implicit)
+   {
+      Iterator<P2JIndex> it = getDatabaseIndexes();
+      if (!it.hasNext())
+      {
+         return null; // no indexes defined, whatsoever
+      }
+      
+      while (it.hasNext())
+      {
+         P2JIndex index = it.next();
+         if (index.isPrimary())
+         {
+            return index; 
+         }
+      }
+      
+      return implicit ? this.databaseIndexes.get(0) : null;
+   }
+   
+   /**
     * Get the list of mandatory fields.
     * 
     * @return   The {@link #mandatoryFields}.
@@ -653,6 +898,33 @@
    }
    
    /**
+    * Obtain the lists of unique constraints for each DMO. That is, the list of index components
+    * for each unique index for this DMO. Uses lazy initialization, the list for each DMO is
+    * computed at first access.
+    *
+    * @return  list of lists of whole property instances participating in UNIQUES indexes.
+    */
+   public List<List<Property>> getUniqueConstraintsAsProps()
+   {
+      if (uniqueProps == null)
+      {
+         uniqueProps = new ArrayList<>();
+         List<Set<String>> uniqueIdxs = getUniqueConstraints();
+         for (Set<String> idx : uniqueIdxs)
+         {
+            List<Property> props = new ArrayList<>();
+            for (String prop : idx)
+            {
+               props.add(fields.get(prop));
+            }
+            uniqueProps.add(props);
+         }
+      }
+      
+      return uniqueProps;
+   }
+   
+   /**
     * Get the {@code Property} that correspond to the k-th entry in {@code data} table of the class
     * implementing this DMO.
     * 
@@ -984,6 +1256,16 @@
    }
    
    /**
+    * Get the structure-based signature for this DMO.
+    * 
+    * @return  The signature of this DMO.
+    */
+   public DmoSignature getSignature()
+   {
+      return signature;
+   }
+   
+   /**
     * Obtain a short description of this object, usually for debugging.
     * 
     * @return  a short description of this object.
@@ -993,4 +1275,123 @@
    {
       return "DmoMeta{" + iface.getName() + " SQL:" + sqlTable + " 4GL:" + legacyTable + '}';
    }
+
+   /**
+    * Constructs and returns a string containing the P4GL schema definition of the table. The result is not
+    * cached so this method is to be used only for debug.
+    * 
+    * @return  a string containing the P4GL legacy schema definition of the table.
+    */
+   public String getTableDefinition()
+   {
+      StringBuilder sb = new StringBuilder("DEFINE ");
+      sb.append(tempTable ? "TEMP-TABLE " : "TABLE ").append(legacyTable);
+      if (noUndo)
+      {
+         sb.append(" NO-UNDO");
+      }
+      if (!namespaceUri.isEmpty())
+      {
+         sb.append("\n      NAMESPACE-URI ").append(namespaceUri);
+      }
+      if (!namespacePrefix.isEmpty())
+      {
+         sb.append("\n      NAMESPACE-PREFIX ").append(namespacePrefix);
+      }
+      if (!xmlNodeName.isEmpty())
+      {
+         sb.append("\n      XML-NODE-NAME ").append(xmlNodeName);
+      }
+      if (!serializeName.isEmpty())
+      {
+         sb.append("\n      SERIALIZE-NAME ").append(namespaceUri);
+      }
+      if (!beforeTable.isEmpty())
+      {
+         sb.append("\n      BEFORE-TABLE ").append(beforeTable);
+      }
+      for (Map.Entry<String, Property> entry : fields.entrySet())
+      {
+         Property p = entry.getValue();
+         if (p.id < 0)
+         {
+            continue; // this is a hidden/reserved property, skip it
+         }
+         sb.append("\n   FIELD ").append(p.legacy).append(" AS ").append(p._ablType.toUpperCase());
+         if (p.caseSensitive)
+         {
+            sb.append(" CASE-SENSITIVE");
+         }
+         if (p.extent > 0)
+         {
+            sb.append(" EXTENT ").append(p.extent);
+         }
+         if (p.scale != 0)
+         {
+            sb.append(" DECIMALS ").append(p.scale);
+         }
+         if (p.initialNull)
+         {
+            sb.append(" INITIAL ?");
+         }
+         else if (!p.initial.isEmpty())
+         {
+            sb.append(" INITIAL ").append(p.initial);
+         }
+      }
+      
+      for (Index index : indexes)
+      {
+         sb.append("\n   INDEX ").append(index.legacy()).append(" AS ");
+         if (index.primary())
+         {
+            sb.append("PRIMARY ");
+         }
+         if (index.unique())
+         {
+            sb.append("UNIQUE ");
+         }
+         if (index.word())
+         {
+            sb.append("WORD-INDEX ");
+         }
+         for (IndexComponent comp : index.components())
+         {
+            sb.append(comp.legacy()).append(comp.descending() ? " DESC " : " ");
+         }
+      }
+      return sb.toString();
+   }
+   /**
+    * Word index data. 
+    */
+   public static class WordIndexData
+   {
+      /** word table name */
+      public final String wordTableName;
+      
+      /** extent table name */
+      public final String extentTableName;
+      
+      /** Flag indicating that field is case sensitive */
+      public final boolean caseSensitive;
+      
+      /**
+       * Constructor
+       *
+       * @param   wordTableName
+       *          Word table name
+       * @param   extentTableName
+       *          Extent table name
+       * @param   caseSensitive
+       *          Flag indicating that field is case sensitive 
+       */
+      public WordIndexData(String wordTableName, String extentTableName, boolean caseSensitive)
+      {
+         this.wordTableName = wordTableName;
+         this.extentTableName = extentTableName;
+         this.caseSensitive = caseSensitive;
+      }
+      
+   }
 }

=== modified file 'src/com/goldencode/p2j/persist/orm/DmoMetadataManager.java'
--- src/com/goldencode/p2j/persist/orm/DmoMetadataManager.java	2020-10-01 22:14:40 +0000
+++ src/com/goldencode/p2j/persist/orm/DmoMetadataManager.java	2020-12-24 21:27:01 +0000
@@ -12,6 +12,8 @@
 **                  initialized.
 **     OM  20200924 Index components carry multiple information to avoid map lookups for them.
 **     OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
+**     OM  20201012 Moved delegated method to DmoMeta. Deprecated / dropped unused methods.
+**    IAS  20201224 Added getDmoInfo(String dmoName) method
 */
 
 /*
@@ -69,12 +71,10 @@
 
 package com.goldencode.p2j.persist.orm;
 
-import com.goldencode.p2j.convert.*;
 import com.goldencode.p2j.directory.*;
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.persist.annotation.*;
 import com.goldencode.p2j.util.*;
-import java.lang.reflect.*;
 import java.util.*;
 import java.util.concurrent.*;
 import java.util.logging.*;
@@ -254,69 +254,16 @@
     *
     * @throws  IllegalArgumentException
     *          if any of its interfaces is recognized as a valid DMO interface.
+    *
+    * @deprecated 
     */
+   @Deprecated
    public static Class<? extends DataModelObject> getDMOInterface(Class<? extends Record> dmoClass)
    {
       return getDmoInfo(dmoClass).getAnnotatedInterface();
    }
    
    /**
-    * Get the implementation class mapped to the specified interface.
-    *
-    * @param   iface
-    *          Interface for which an implementing class name is being looked up.
-    *
-    * @return  DMO class which implements interface {@code iface}, or {@code null} if no such
-    *          mapping is found.
-    *
-    * @throws  NullPointerException
-    *          if {@code dmoIface} is null.
-    * @throws  IllegalArgumentException
-    *          if {@code iface} parameter is not recognized.
-    */
-   public static Class<? extends Record> getImplementingClass(Class<? extends DataModelObject> iface)
-   {
-      if (iface == null)
-      {
-         throw new NullPointerException("Parameter of registerDmo() cannot be null.");
-      }
-      
-      DmoMeta dmoMeta = registry.get(iface.getName());
-      return dmoMeta == null ? null : dmoMeta.implClass;
-   }
-   
-   /**
-    * Determine whether the property defined by the given parameters handles
-    * its data in a case-sensitive manner.
-    *
-    * @param   iface
-    *          DMO interface.
-    * @param   propertyName
-    *          Name of property.
-    *
-    * @return  {@code true} if the property is case-sensitive;  else {@code false}.
-    *
-    * @throws  IllegalArgumentException
-    *          if the class passed in is not implementing DMO interface or its interface was not
-    *          registered beforehand or the property is invalid.
-    * @throws  IllegalStateException
-    *          if P2J_HOME is not defined;  if there is any error parsing the DMO index document.
-    *
-    * @deprecated try to use DmoProperty directly
-    */
-   @Deprecated
-   public static boolean isCaseSensitive(Class<?> iface, String propertyName)
-   {
-      Property property = getDmoInfo(iface).fields.get(propertyName);
-      if (property == null)
-      {
-         throw new IllegalArgumentException(
-               "The " + iface.getName() + " does not expose a '" + propertyName + "' property.");
-      }
-      return property.caseSensitive;
-   }
-   
-   /**
     * Searches for a {@code DmoMeta} for a specific alias in the list of all known aliases.
     *
     * @param   dmoName
@@ -365,15 +312,34 @@
     */
    public static DmoMeta getDmoInfo(Class<?> dmo)
    {
-      DmoMeta dmoMeta = registry.get(dmo.getName());
+      return getDmoInfo(dmo.getName());
+   }
+   
+   /**
+    * Searches for a {@code DmoMeta} for a specific alias in the list of all known aliases. The
+    * method does the best effort to find the right information, regardless the {@code dmo}
+    * parameter is a DMO interface or an DMO implementation class.
+    *
+    * @param   dmoName
+    *          The name of the DMO class to be located.
+    *
+    * @return  The {@code DmoMeta} structure corresponding to DMO class
+    * 
+    * @throws  IllegalArgumentException
+    *          if the class passed in is not implementing DMO interface or its interface was not
+    *          registered beforehand.
+    */
+   public static DmoMeta getDmoInfo(String dmoName)
+   {
+      DmoMeta dmoMeta = registry.get(dmoName);
       
       if (dmoMeta == null)
       {
-         throw new IllegalArgumentException("The " + dmo.getName() + " was not registered yet.");
+         throw new IllegalArgumentException("The " + dmoName + " was not registered yet.");
       }
       return dmoMeta;
    }
-   
+
    /**
     * Obtain the {@code DmoMeta} of a DMO/table based on its unique id.
     * 
@@ -398,69 +364,13 @@
     *         DMO class.
     *
     * @return collection of the fields of the target table.
+    * 
+    * @deprecated use {@link DmoMeta#getExistingFields()} instead.
     */
+   @Deprecated
    public static List<P2JField> getExistingFields(Class<? extends Record> dmoClass)
    {
-      Class<? extends DataModelObject> dmoIface = searchDMOInterface(dmoClass);
-      DmoMeta meta = DmoMetadataManager.getDmoInfo(dmoIface);
-      
-      if (meta.existingFields == null)
-      {
-         Iterator<Property> it = meta.getFields(true);
-         
-         ArrayList<P2JField> ret = new ArrayList<>(meta.fields.size());
-         while (it.hasNext())
-         {
-            Property p = it.next();
-            if (p.id < 0)
-            {
-               // skip ReservedProperties
-               continue;
-            }
-            
-            Class<?> bdtType = p._fwdType;
-            Object init = null;
-            if (BaseDataType.class.isAssignableFrom(bdtType))
-            {
-               try
-               {
-                  Constructor<?> ctor = bdtType.getConstructor(String.class);
-                  init = ctor.newInstance(p.initial);
-               }
-               catch (NoSuchMethodException |
-                     IllegalAccessException |
-                     InstantiationException |
-                     InvocationTargetException e)
-               {
-                  if (LOG.isLoggable(Level.SEVERE))
-                  {
-                     LOG.log(Level.SEVERE, 
-                             "Failed to instantiate default value for " + p.name + " of " + dmoIface);
-                  }
-               }
-            }
-            ret.add(new P2JField(p.name,
-                                 ParmType.fromClass(bdtType),
-                                 p.extent,
-                                 p.format,
-                                 (BaseDataType) init,
-                                 p.label,
-                                 p.columnLabel,
-                                 p.caseSensitive,
-                                 p.codePage,
-                                 p.help,
-                                 p.serializeHidden,
-                                 p.serializeName,
-                                 p.xmlDataType,
-                                 p.xmlNodeName,
-                                 p.xmlNodeType,
-                                 p.mandatory,
-                                 p.scale));
-            ret.trimToSize();
-            meta.existingFields = Collections.unmodifiableList(ret);
-         }
-      }
-      return meta.existingFields;
+      return DmoMetadataManager.getDmoInfo(dmoClass).getExistingFields();
    }
    
    /**
@@ -507,24 +417,6 @@
    }
    
    /**
-    * Get an iterator on all unique constraints for the DMO specified by the given (schema ? and)
-    * interface. The resulting iterator returns sets of property names, each of which defines the
-    * properties participating in a unique constraint.
-    *
-    * @param   iface
-    *          DMO interface.
-    *
-    * @return  Iterator on unique constraint property name sets.
-    *
-    * @throws  IllegalArgumentException
-    *          if either the {@code schema} or {@code iface} parameters are not recognized.
-    */
-   public static Iterator<Set<String>> uniqueConstraints(Class<? extends DataModelObject> iface)
-   {
-      return getDmoInfo(iface).getUniqueConstraints().iterator();
-   }
-   
-   /**
     * Determine whether the given DMO property represents the leading component of any index
     * on the table represented by the given buffer.
     *
@@ -534,30 +426,13 @@
     *          DMO property to be tested.
     *
     * @return  {@code true} if {@code property} is a leading index component; else {@code false}.
+    *
+    * @deprecated use {@link DmoMeta#isLeadingIndexComponent(String)}.
     */
+   @Deprecated
    public static boolean isLeadingIndexComponent(Class<? extends DataModelObject> dmo, String property)
    {
-      Iterator<P2JIndex> ixdIt = getDmoInfo(dmo).getDatabaseIndexes();
-      
-      if (ixdIt == null)
-      {
-         return false;
-      }
-      
-      while (ixdIt.hasNext())
-      {
-         Iterator<P2JIndexComponent> propsIter = ixdIt.next().components();
-         if (propsIter.hasNext())
-         {
-            P2JIndexComponent leadingProp = propsIter.next();
-            if (property.equals(leadingProp.getPropertyName()))
-            {
-               return true;
-            }
-         }
-      }
-      
-      return false;
+      return getDmoInfo(dmo).isLeadingIndexComponent(property);
    }
    
    /**
@@ -638,8 +513,7 @@
    }
    
    /**
-    * Searches and returns the super-interface {@code DataModelObject} that has the {@code Table}
-    * annotation.
+    * Searches and returns the super-interface {@code DataModelObject} that has the {@code Table} annotation.
     *
     * @param   dmoIface
     *          The interface to be analysed.
@@ -647,7 +521,7 @@
     * @return  the super-interface {@code DataModelObject} that has the {@code Table} annotation
     *          or {@code null} if no such interface can be found.
     */
-   public static Class<? extends DataModelObject> getAnnotatedInterface(
+   private static Class<? extends DataModelObject> getAnnotatedInterface(
          Class<? extends DataModelObject> dmoIface)
    {
       if (dmoIface.getAnnotation(Table.class) != null)
@@ -658,8 +532,7 @@
       Class<?>[] interfaces = dmoIface.getInterfaces();
       for (Class<?> iface : interfaces)
       {
-         if (DataModelObject.class.isAssignableFrom(iface) &&
-               iface.getAnnotation(Table.class) != null)
+         if (DataModelObject.class.isAssignableFrom(iface) && iface.getAnnotation(Table.class) != null)
          {
             return (Class<? extends DataModelObject>) iface;
          }
@@ -670,50 +543,6 @@
    }
    
    /**
-    * Searches for the DMO interface associated with the given DMO implementation class.
-    *
-    * @param   dmoClass
-    *          DMO implementation class.
-    *
-    * @return  DMO interface.
-    *
-    * @throws  IllegalArgumentException
-    *          if any of its interfaces is recognized as a valid DMO interface.
-    */
-   private static Class<? extends DataModelObject> searchDMOInterface(Class<? extends Record> dmoClass)
-   {
-      // validation first:
-      if (!DataModelObject.class.isAssignableFrom(dmoClass))
-      {
-         throw new IllegalArgumentException("Not implementing DataModelObject.");
-      }
-      
-      List<Class<?>> interfaces = new LinkedList<>(Arrays.asList(dmoClass.getInterfaces()));
-      while (!interfaces.isEmpty())
-      {
-         Class<?> anInterface = interfaces.get(0);
-         interfaces.remove(0);
-         
-         if (DataModelObject.class.isAssignableFrom(anInterface))
-         {
-            if (anInterface.getAnnotation(Table.class) != null)
-            {
-               return (Class<? extends DataModelObject>) anInterface;
-            }
-            else
-            {
-               // recursive call to detect next level interfaces in DFS order
-               interfaces.addAll(0, Arrays.asList(anInterface.getInterfaces()));
-            }
-         }
-      }
-      
-      // this is funny. We should not have got here. Unless the DMO is not annotated with [Table]
-      throw new IllegalArgumentException(
-            "Failed to find the annotated DMO interface for " + dmoClass.getName() + ".");
-   }
-   
-   /**
     * Extracts the schema from a DMO class name. It is computed as a very last package path part from the
     * class/interface full name.
     * 

=== added file 'src/com/goldencode/p2j/persist/orm/DmoSignature.java'
--- src/com/goldencode/p2j/persist/orm/DmoSignature.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/persist/orm/DmoSignature.java	2020-12-14 18:27:21 +0000
@@ -0,0 +1,158 @@
+/*
+** Module   : DmoSignature.java
+** Abstract : A way to structurally identify a DMO through string representations.
+**
+** Copyright (c) 2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
+** 001 AIL 20201214 First revision.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+**
+** Additional terms under GNU Affero GPL version 3 section 7:
+**
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+**
+**   0. Attribution Requirement.
+**
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+**
+**   1. No License To Use Trademarks.
+**
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+**
+**   2. No Misrepresentation of Affiliation.
+**
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+**
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+**
+**   3. No Misrepresentation of Source or Origin.
+**
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+package com.goldencode.p2j.persist.orm;
+
+import java.util.*;
+
+/**
+ * This structure keeps together representative strings for one DMO. This is useful when we need to check
+ * fast if two DMOs are compatible (if they signatures are compatible - eventually equal).  *
+ */
+public class DmoSignature
+{
+   /** Delimiter between the original property id and its position in the explicit signature */
+   private static final String KEY_VALUE_DELIMITER = "->";
+
+   /** Delimiter between multiple pairs of mappings between property id and signature position */
+   private static final String ENTRY_DELIMITER = ",";
+
+   /** A string which has information only about property order, types and constraints */
+   private final String quickSignature;
+   
+   /** A comprehensive string which has information regarding property names, types and constraints */
+   private final String explicitSignature;
+   
+   /** 
+    * A mapping useful only when an explicit signature exists. 
+    * This is used to store a mapping between the original property id (order) 
+    * and their new positions in the explicit signature.
+    */
+   private final Map<Integer, Integer> explicitIdToPos;
+   
+   /** A signature for the {@code explicitIdToPos} mapping, which can fasten the signature matching*/
+   private final String idToPosString;
+
+   /**
+    * Basic constructor.
+    * 
+    * @param   quickSignature
+    *          A quick signature for the target DMO.
+    * @param   explicitSignature
+    *          An explicit signature for the target DMO.
+    * @param   explicitIdToPos
+    *          A mapping between the original property ids and their positions in the explicit signature
+    */
+   public DmoSignature(String quickSignature, 
+                       String explicitSignature,
+                       Map<Integer, Integer> explicitIdToPos)
+   {
+         this.quickSignature = quickSignature;
+         this.explicitSignature = explicitSignature;
+         this.explicitIdToPos = explicitIdToPos;
+         
+         if (explicitIdToPos != null)
+         {
+            List<String> signatures = new ArrayList<>();
+            for (Map.Entry<Integer, Integer> entry : explicitIdToPos.entrySet())
+            {
+               signatures.add(entry.getKey() + KEY_VALUE_DELIMITER + entry.getValue());
+            }
+            idToPosString = String.join(ENTRY_DELIMITER, signatures);
+         }
+         else
+         {
+            idToPosString = null;
+         }
+   }
+
+   /**
+    * Getter for the quick signature.
+    * 
+    * @return   The quick signature.
+    */
+   public String getQuickSignature()
+   {
+      return quickSignature;
+   }
+   
+   /**
+    * Getter for the explicit signature.
+    * 
+    * @return   The explicit signature.
+    */
+   public String getExplicitSignature()
+   {
+      return explicitSignature;
+   }
+   
+   /**
+    * Getter for the id to position mapping signature.
+    * 
+    * @return   The signature of the if to position mapping.
+    */
+   public String getIdToPosAsString()
+   {
+      return idToPosString;
+   }
+
+}

=== modified file 'src/com/goldencode/p2j/persist/orm/FqlToSqlConverter.java'
--- src/com/goldencode/p2j/persist/orm/FqlToSqlConverter.java	2020-10-05 18:05:51 +0000
+++ src/com/goldencode/p2j/persist/orm/FqlToSqlConverter.java	2021-01-29 19:50:19 +0000
@@ -1,14 +1,16 @@
 /*
- ** Module   : FqlToSqlConverter.java
- ** Abstract : Handles conversion of FQL statements to SQL.
- **
+** Module   : FqlToSqlConverter.java
+** Abstract : Handles conversion of FQL statements to SQL.
+**
 ** Copyright (c) 2019-2020, Golden Code Development Corporation.
- **
+**
 ** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20190915 First revision. Converts simple FQL queries into SQL.
-**     OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
+** 002 OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
 **     CA  20201003 Replaced Guava identity HashSet with Collections.newSetFromMap(IdentityHashMap).
 **     CA  20201005 Do not emit NULLS option for _multiplex and PK columns, in ORDER BY.
+**     OM  20201120 Avoid NPE in getScopedDmoInfo(). Changes error message to a more explicit one.
+**     IAS 20201126 Re-write SQL statement with CONTAINS to use words' table
 */
 
 /*
@@ -66,18 +68,28 @@
 
 package com.goldencode.p2j.persist.orm;
 
-import antlr.*;
+import static com.goldencode.p2j.persist.orm.FQLParserTokenTypes.*;
+
+import java.io.*;
+import java.util.*;
+import java.util.function.*;
+import java.util.logging.*;
+import java.util.stream.*;
+
+import org.apache.commons.lang3.tuple.*;
+
 import com.goldencode.ast.*;
+import com.goldencode.p2j.cfg.*;
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.persist.dialect.*;
+import com.goldencode.p2j.persist.orm.Query.*;
+import com.goldencode.p2j.persist.meta.*;
 import com.goldencode.p2j.util.*;
-import org.apache.commons.lang3.tuple.*;
-import java.io.*;
-import java.util.*;
-import java.util.function.*;
-import java.util.logging.*;
+import com.goldencode.p2j.util.ErrorManager;
+import com.goldencode.p2j.util.LogicalExpressionConverter.*;
+import com.goldencode.p2j.persist.orm.DmoMeta.*;
 
-import static com.goldencode.p2j.persist.orm.FQLParserTokenTypes.*;
+import antlr.*;
 
 /**
  * This class handles conversion of FQL statements into SQL using a specified
@@ -89,6 +101,9 @@
    /** Logger */
    private static final Logger LOG = LogHelper.getLogger(FqlToSqlConverter.class.getName());
    
+   /** Name of the primary key column. */
+   private static final String PK = Configuration.getSchemaConfig().getPrimaryKeyName();
+
    /** Constant for a virtual alias when none is specified (used in case of single table statements). */
    private static final String NO_ALIAS = "";
    
@@ -128,6 +143,7 @@
     */
    private final boolean generateUniqueSqlColumnNames;
    
+
    /** The maximum numbers of results in a query. Used for paging results. */
    private int maxResults = -1;
    
@@ -156,6 +172,12 @@
    /** Flag identifying to alias will be emitted for properties.  Required by the UPDATE statement. */
    private boolean forceNoAlias = false;
    
+   /** Query params */
+   private QueryParams queryParams;
+   
+   /** Flags the a query was re-written during conversion to SQL */
+   private boolean queryWasRewritten = false;
+
    /**
     * The constructor is private. To create an instance of this class, use the {@code getInstance}
     * builder method.
@@ -164,14 +186,20 @@
     *          The SQL dialect to be used when generating SQL statements.
     * @param   schema
     *          The schema of the database. This is used to unambiguate short-names entities.
+    * @param   queryParams
+    *          queryParameters;
     * @param   useSqlTableAlias
     *          When {@code true}, the SQL names will be used for table aliases, otherwise the
     *          FQL named received in FQL string will be kept.
     */
-   private FqlToSqlConverter(Dialect dialect, String schema, boolean useSqlTableAlias)
+   private FqlToSqlConverter(Dialect dialect,
+                             String schema,
+                             QueryParams queryParams,
+                             boolean useSqlTableAlias)
    {
       this.dialect = dialect;
       this.schema = schema;
+      this.queryParams = queryParams;
       this.useSqlTableAlias = useSqlTableAlias;
       this.generateUniqueSqlColumnNames = true;
    }
@@ -183,13 +211,41 @@
     *          The SQL dialect to be used when generating SQL statements.
     * @param   schema
     *          The schema of the database. This is used to unambiguate short-names entities.
+    * @return  an instance of this class
     */
    public static FqlToSqlConverter getInstance(Dialect dialect, String schema)
    {
-      return new FqlToSqlConverter(dialect, schema, true);
+      return getInstance(dialect, schema, new QueryParams());
    }
    
    /**
+    * Builder method for create an instance of this class.
+    *
+    * @param   dialect
+    *          The SQL dialect to be used when generating SQL statements.
+    * @param   schema
+    *          The schema of the database. This is used to unambiguate short-names entities.
+    * @param   queryParams
+    *          queryParameters;
+    * @return  an instance of this class
+    */
+   public static FqlToSqlConverter getInstance(Dialect dialect, String schema, 
+         QueryParams queryParams)
+   {
+      return new FqlToSqlConverter(dialect, schema, queryParams, true);
+   }
+
+   /**
+    * Check if the query was re-written 
+    * 
+    * @return <code>true</code> if the query was re-written
+    */
+   public boolean isQueryWasRewritten()
+   {
+      return queryWasRewritten;
+   }
+
+   /**
     * Converts a {@code FQL} statement into its SQL representation.
     * 
     * @param   fql
@@ -1153,10 +1209,10 @@
     * Note: only a one-argument functions are supported (like {@code upper} and {@code rtrim} used
     *       for character fields). If more complex expressions are needed the more generic
     *       {@code generateExpression()} should be used instead. 
-    *  
+    *
     * @param   node
     *          The root node for this expression.
-    *          
+    *
     * @return  <code>true</code> if this is the '_multiplex' or PK column.
     */
    private boolean generateOrderByComponent(FQLAst node)
@@ -1257,11 +1313,36 @@
     * @param   qualified
     *          {@code true} if property is qualified by an alias; {@code false} if {@code node}
     *          represents an unqualified property name.
-    *          
+    *
     * @return  <code>true</code> if this is the '_multiplex' or PK column.
     */
    private boolean generateProperty(FQLAst node, boolean forceCsPrefix, boolean qualified)
    {
+      return generateProperty(node, forceCsPrefix, qualified, null);
+   }
+
+   /**
+    * Converts a FQL property to a SQL field name. The output is directly appended to
+    * {@code sb}.
+    * 
+    * @param   node
+    *          The {@code alias} or {@code property} node. If the former, this represents the table this
+    *          property belongs to. Normally it should have a single child, with the name of the {@code
+    *          PROPERTY}. If the latter, this represents an unqualified property name (and a single-table
+    *          statement is assumed).
+    * @param   forceCsPrefix
+    *          If {@code true}, the dialect specific case-sensitive prefix will be injected.
+    * @param   qualified
+    *          {@code true} if property is qualified by an alias; {@code false} if {@code node}
+    *          represents an unqualified property name.
+    * @param   field String[2] array to hold table alias and field name if found          
+    * @return  <code>true</code> if this is the '_multiplex' or PK column.
+    */
+   private boolean generateProperty(FQLAst node,
+                                    boolean forceCsPrefix,
+                                    boolean qualified,
+                                    String[] field)
+   {
       if (node.getType() == MULTIPLY) // ASTERISK ?
       {
          sb.append(ASTERISK);
@@ -1272,7 +1353,17 @@
       boolean withAlias = !this.forceNoAlias && !aliasStr.isEmpty();
       if (withAlias)
       {
-         sb.append(getSqlTableAliasName(aliasStr));
+         String aliasName = getSqlTableAliasName(aliasStr);
+         if (field != null)
+         {
+            DmoMeta dmoMeta = aliases.peek().get(aliasName);
+            field[0] = dmoMeta != null ? dmoMeta.getSqlTableName() : aliasStr;
+            field[1] = aliasName;
+         }
+         else
+         {
+            sb.append(aliasName);
+         }
       }
       
       boolean reserved = false;
@@ -1291,8 +1382,8 @@
          Property propertyAnn = dmoInfo.fields.get(propertyStr);
          if (propertyAnn == null)
          {
-            // analyze the propertyStr to see whether it is a ComputedColumn (used by case
-            //    insensitive character fields)
+            // analyze the propertyStr to see whether it is a ComputedColumn (used by case insensitive
+            // character fields)
             String csPrefix = dialect.getComputedColumnPrefix(true);
             if (propertyStr.startsWith(csPrefix))
             {
@@ -1318,21 +1409,29 @@
             }
             sb.append(propertyStr);
             // we do not have information on this property. Is this a surrogate?
-            warn("Column not found for '" + propertyStr + "'. Using java name instead." , property);
+            warn("Property '" + propertyStr + 
+                 "' not found to extract column name. Assuming it is a column name already.", property);
          }
          else
          {
             reserved = (propertyAnn instanceof ReservedProperty) && 
                        (Session.PK.equals(propertyStr) || ReservedProperty._MULTIPLEX.name.equals(propertyStr));
-            if (withAlias)
-            {
-               sb.append(".");
-            }
-            if (prefixed || forceCsPrefix)
-            {
-               sb.append(dialect.getComputedColumnPrefix(propertyAnn.caseSensitive));
-            }
-            sb.append(propertyAnn.column);
+            String prefix = (prefixed || forceCsPrefix) ? 
+                  dialect.getComputedColumnPrefix(propertyAnn.caseSensitive) : "";
+
+            if (field != null)
+            {
+               field[2] = prefix + propertyAnn.column;
+            }
+            else 
+            {
+               if (withAlias)
+               {
+                  sb.append(".");
+               }
+               sb.append(prefix);
+               sb.append(propertyAnn.column);
+            }
          }
       }
       else
@@ -1356,7 +1455,7 @@
       if (NO_ALIAS.equals(aliasStr))
       {
          HashMap<String, DmoMeta> innerScope = aliases.peek();
-         if (innerScope.size() == 1)
+         if (innerScope != null && innerScope.size() == 1)
          {
             return innerScope.entrySet().iterator().next().getValue();
          }
@@ -1434,6 +1533,7 @@
     */
    private void generateExpression(FQLAst node)
    {
+      ContainsRewriteData aux = new ContainsRewriteData();
       AstWalkListener awl = new AstWalkListener()
       {
          /**
@@ -1454,11 +1554,93 @@
             {
                case IN:
                case LPARENS:
-               case FUNCTION:
                case CAST:
                   sb.append(")");
                   break;
-                  
+               case FUNCTION:
+                  if (aux.nestedInContains > 0 )
+                  {
+                     aux.nestedInContains--;
+                     if (aux.nestedInContains == 0)
+                     {
+                        queryWasRewritten = true;
+                        List<String> args = new ArrayList<>();
+                        boolean placeHolder = "?".equals(aux.expr);
+                        String exp = placeHolder ? 
+                              ((character)queryParams.parameters[aux.narg]).toStringMessage() : 
+                                 aux.expr;
+                        if (!"_temp".equals(schema))
+                        {
+                           sb.append("(");
+                           containsQuery(sb, aux.tblName, aux.tblAlias, aux.fldName, exp, args);
+                           sb.append(")");
+                           if (placeHolder)
+                           {
+                              queryParams.replaceParam(aux.narg, args);
+                              paramCount = paramCount - 1 + args.size();
+                              aux.narg = aux.narg - 1 + args.size();
+                           }
+                           else
+                           {
+                              queryParams.insertParam(aux.narg, args);
+                              paramCount = paramCount + args.size();
+                              aux.narg = aux.narg + args.size();
+                           }
+                        }
+                        else 
+                        {
+                           DmoMeta meta = getScopedDmoInfo(aux.tblName);
+                           if (meta == null)
+                           {
+                              throw new IllegalStateException("No meta for " + aux.tblName);
+                           }
+                           Property fp = meta.fields.get(aux.fldName);
+                           int extent = fp.extent;
+                           boolean caseSensitive = fp.caseSensitive;
+                           StringBuilder contains = new StringBuilder("contains_1(");
+                           if (!caseSensitive)
+                           {
+                              contains.append("upper(");
+                           }
+                           contains.append(aux.fldName); 
+                           if (!caseSensitive)
+                           {
+                              contains.append(")");
+                           }
+                           contains.append(", ");
+                           if (placeHolder)
+                           {
+                              contains.append("?");
+                           }
+                           else 
+                           {
+                              contains.append("\"").append(aux.expr).append("\"");
+                           }
+                           contains.append(")");
+                           if (extent == 0)
+                           {
+                              sb.append(contains);
+                           }
+                           else
+                           {
+                              sb.append("(").append(PK).
+                                 append(" in (select distinct parent__id  from ").
+                                 append(meta.sqlTable).append("__").append(String.valueOf(extent)).
+                                 append(" where ").append(contains).append("))");
+                                
+                           }
+                        }
+                        aux.tblName = null;
+                        aux.tblAlias = null;
+                        aux.fldName = null;
+                        aux.expr = null;
+                     }
+                  }
+                  else 
+                  {
+                     sb.append(")");
+                  }
+                  break;
                case TERNARY:
                   sb.append(") end");
                   break;
@@ -1570,7 +1752,10 @@
                switch (ast.getType())
                {
                   case FUNCTION:
-                     sb.append(", ");
+                     if (aux.nestedInContains == 0)
+                     {
+                        sb.append(", ");
+                     }
                      break;
                   
                   case CAST:
@@ -1623,11 +1808,20 @@
             switch (ttype)
             {
                case SUBST:
+                  sb.append("?");
+                  break;
                case POSITIONAL:
-                  sb.append("?");
+                  aux.narg++;
+                  if (aux.nestedInContains == 1)
+                  {
+                     aux.expr = "?";
+                  }
+                  else
+                  {
+                     sb.append("?");
+                  }
                   break;
                
-               case FUNCTION:
                case CAST:
                   sb.append(text);
                   sb.append("(");
@@ -1637,6 +1831,34 @@
                   }
                   break;
                
+               case FUNCTION:
+                  if (!dialect.useUdf4Contains())
+                  {
+                  if (dialect.isUdfContains(text) || (aux.nestedInContains > 0))
+                  {
+                     aux.nestedInContains++;
+                  }
+                     else 
+                     {
+                        sb.append(text);
+                        sb.append("(");
+                        if (next.getNumImmediateChildren() == 0)
+                        {
+                           sb.append(")");
+                        }
+                     }
+                  }
+                  else 
+                  {
+                     sb.append(text);
+                     sb.append("(");
+                     if (next.getNumImmediateChildren() == 0)
+                     {
+                        sb.append(")");
+                     }
+                  }
+                  break;
+
                case TERNARY:
                   sb.append("case when ");
                   break;
@@ -1706,7 +1928,18 @@
                case ALIAS:
                   if (next.getParent().getType() != FROM)
                   {
-                     generateProperty(next, false, true);
+                     if (aux.nestedInContains > 0)
+                     {
+                        String [] fld = new String[3];
+                        generateProperty(next, false, true, fld);
+                        aux.tblName = fld[0];
+                        aux.tblAlias = fld[1];
+                        aux.fldName = fld[2];
+                     }
+                     else
+                     {
+                        generateProperty(next, false, true);
+                     }
                   }
                   // otherwise already processed with the FROM parent
                   break;
@@ -1723,6 +1956,16 @@
                   // do not output this, it was / will be used with the alias in a FROM node
                   break;
                
+               case STRING:
+                  if (aux.nestedInContains == 1)
+                  {
+                     aux.expr = text.substring(1, text.length() - 1);
+                  }
+                  else
+                  {
+                     sb.append(text);
+                  }
+                  break;
                default:
                   sb.append(text);
                   break;
@@ -1978,55 +2221,62 @@
                Aast grandFather = ast.getParent().getParent();
                if (grandFather.getType() == ALIAS)
                {
-                  DmoMeta dmoMeta = aliasesMap.get(grandFather.getText());
-                  String extentName = ast.getParent().getText();
-                  Property extProperty = dmoMeta.fields.get(extentName);
-                  if (extProperty == null && extentName.startsWith("__"))
+                  Aast contains = insideContains(grandFather); 
+                  if (contains != null)
                   {
-                     warn("Failed to process extent ALIAS. " +
-                          "Probable caused by a WORD index which is not supported by FWD yet.", (FQLAst) ast);
-                     
-                     extProperty = dmoMeta.fields.get(extentName.substring(3));
-                     if (extProperty == null)
-                     {
+                     ast.remove();
+                  }
+                  else {
+                     DmoMeta dmoMeta = aliasesMap.get(grandFather.getText());
+                     String extentName = ast.getParent().getText();
+                     Property extProperty = dmoMeta.fields.get(extentName);
+                     if (extProperty == null && extentName.startsWith("__"))
+                     {
+                        warn("Failed to process extent ALIAS. " +
+                             "Probable caused by a WORD index which is not supported by FWD yet.", (FQLAst) ast);
+                        
+                        extProperty = dmoMeta.fields.get(extentName.substring(3));
+                        if (extProperty == null)
+                        {
+                           return;
+                        }
+                     }
+                     // if the extent property was denormalized, treat it as a simple field
+                     int extent = extProperty.index > 0 ? 0 : extProperty.extent;
+                     if (extent == 0)
+                     {
+                        warn("[] syntax for a non extent property.", (FQLAst) grandFather);
                         return;
                      }
-                  }
-                  // if the extent property was denormalized, treat it as a simple field
-                  int extent = extProperty.index > 0 ? 0 : extProperty.extent;
-                  if (extent == 0)
-                  {
-                     warn("[] syntax for a non extent property.", (FQLAst) grandFather);
-                     return;
-                  }
-                  FQLAst subscriptAst = (FQLAst) ast.getFirstChild();
-                  String extIdx = subscriptAst.getText();
-                  String extIdxLit = extIdx;
-                  if (subscriptAst.getType() != NUM_LITERAL)
-                  {
-                     // make the extent index unique - to allow multiple indexed properties with complex exprs
-                     extIdx = "d" + (complexSubscript++);
-                     extIdxLit = "?";
-                  }
-                  String grandfatherSqlAlias = getSqlTableAliasName(grandFather.getText());
-                  String newSqlAlias = grandfatherSqlAlias + "_" + extent + "x" + extIdx + "_"; // aliases(grandfather)
-                  aliasesMap.putIfAbsent(newSqlAlias, new CompositeDmoInfo(dmoMeta, extent));
-                  if (innerJoins != null)
-                  {
-                     innerJoins.putIfAbsent(newSqlAlias, grandfatherSqlAlias);
-                  }
-                  if (subscriptAst.getType() == NUM_LITERAL)
-                  {
-                     staticSubscripts.add((FQLAst) grandFather);
-                  }
-                  else
-                  {
-                     dynamicSubscripts.add((FQLAst) grandFather);
-                  }
-                  grandFather.putAnnotation("parentAlias", grandfatherSqlAlias);
-                  grandFather.putAnnotation("subscript", extIdxLit);
-                  grandFather.setText(newSqlAlias);
-                  ast.remove();
+                     FQLAst subscriptAst = (FQLAst) ast.getFirstChild();
+                     String extIdx = subscriptAst.getText();
+                     String extIdxLit = extIdx;
+                     if (subscriptAst.getType() != NUM_LITERAL)
+                     {
+                        // make the extent index unique - to allow multiple indexed properties with complex exprs
+                        extIdx = "d" + (complexSubscript++);
+                        extIdxLit = "?";
+                     }
+                     String grandfatherSqlAlias = getSqlTableAliasName(grandFather.getText());
+                     String newSqlAlias = grandfatherSqlAlias + "_" + extent + "x" + extIdx + "_"; // aliases(grandfather)
+                     aliasesMap.putIfAbsent(newSqlAlias, new CompositeDmoInfo(dmoMeta, extent));
+                     if (innerJoins != null)
+                     {
+                        innerJoins.putIfAbsent(newSqlAlias, grandfatherSqlAlias);
+                     }
+                     if (subscriptAst.getType() == NUM_LITERAL)
+                     {
+                        staticSubscripts.add((FQLAst) grandFather);
+                     }
+                     else
+                     {
+                        dynamicSubscripts.add((FQLAst) grandFather);
+                     }
+                     grandFather.putAnnotation("parentAlias", grandfatherSqlAlias);
+                     grandFather.putAnnotation("subscript", extIdxLit);
+                     grandFather.setText(newSqlAlias);
+                     ast.remove();
+                  }
                }
                else
                {
@@ -2035,6 +2285,28 @@
             }
          }
          
+         /**
+          * Check if the given Ast is inside a CONTAINS UDF call.
+          *
+          * @param   grandFather
+          *          AST to be checked.
+          * 
+          * @return  CONTAINS UDF call AST or <code>null</code>
+          */
+         private Aast insideContains(Aast node)
+         {
+            Aast parent = node.getParent();
+            while (parent != null && parent.getType() == FUNCTION)
+            {
+               if (dialect.isUdfContains(parent.getText()))
+               {
+                  return parent;
+               }
+               parent = parent.getParent();
+            }
+            return null;
+         }
+         
          @Override
          public void nextChild(Aast ast, int index)
          {
@@ -2255,6 +2527,125 @@
    }
    
    /**
+    * Generate a replacement for the CONTANS UDF call.
+    * 
+    * @param sb
+    *        output buffer
+    * @param tblName
+    *        table name
+    * @param tblAlias
+    *        table alias
+    * @param field
+    *        field name
+    * @param expr
+    *        CONTAINS operator argument value
+    * @param args
+    *        holder for the generated query parameters 
+    */
+   public void containsQuery(StringBuilder sb,
+                             String tblName,
+                             String tblAlias, 
+                             String field,
+                             String expr,
+                             List<String> args)
+   {
+      List<List<EToken>> cnf = new LogicalExpressionConverter(expr, false).toCNF(false);
+      if (cnf.isEmpty())
+      {
+         sb.append("1 = 0");
+         return;
+      }
+      WordIndexData indexData = MetadataManager.getWordTableName(schema, tblName, field);
+      sb.append(tblAlias).append(".").append(PK).append(" in (\n \tselect distinct ").
+               append(PK).append(" from ").
+               append(tblName).append(" t\n"); 
+      if (indexData.extentTableName != null)
+      {
+         sb.append("\t\tjoin ").
+            append(indexData.extentTableName).
+            append(" e on (e.parent__id = t.").append(PK).append(")\n");
+      }
+      int joinN = 1;
+      for (List<EToken> andTerm: cnf)
+      {
+         String walias = "w"+joinN++;
+         sb.append("\t\tjoin ").
+               append(indexData.wordTableName).append(" as ").append(walias).
+               append(" on (").append(walias);
+               if (indexData.extentTableName != null)
+               {
+                  sb.append(".parent__id = e.parent__id and ").
+                     append(walias).append(".list__index  = e.list__index");
+               }
+               else
+               {
+                  sb.append(".parent__id = t.").append(PK);
+               }
+               sb.append(" and (");
+               onClause(sb, walias, andTerm, args, indexData.caseSensitive);
+          sb.append("))\n");
+      }
+      sb.append(")");
+   }
+   
+   /**
+    * Generate an ON clause for a CONTAINS UDF call replacement query.
+    * 
+    * @param sb
+    *        output buffer
+    * @param walias
+    *        word table alias
+    * @param andTerm
+    *        list of tokens in the AND term of the CNF
+    * @param args
+    *        holder for the generated query parameters 
+    * @param caseSensitive
+    *        Flag indicating that field is case sensitive 
+    */
+   private static void onClause(StringBuilder sb, 
+         String walias, List<EToken> andTerm, List<String> args, boolean caseSensitive)
+   {
+      // NB: uppercase at the database side
+      String placeHolder = caseSensitive ? " ?" : " UPPER(?)";
+      Iterator<EToken> tokens = andTerm.iterator();
+      EToken token = tokens.next(); // always exists
+      sb.append(walias).append(".word ").
+         append(op(token, args)).append(placeHolder);
+      while (tokens.hasNext())
+      {
+         token = tokens.next(); // always exists
+         sb.append(" or ").append(walias).append(".word ").
+            append(op(token, args)).append(placeHolder);
+      }
+   }
+   
+   /**
+    * Generate a SQL condition ('=' or 'LIKE') for an operation on the CNF.
+    * 
+    * @param token
+    *        CNF token
+    * @param args
+    *        holder for the generated query parameters 
+    * 
+    * @return a SQL condition ('=' or 'LIKE') for an operation on the CNF
+    */
+   private static String op(EToken token, List<String> args)
+   {
+      if (token instanceof Equals)
+      {
+         args.add(((Equals)token).getValue());
+         return "=";
+      }
+      if (token instanceof StartsWith)
+      {
+         args.add(((StartsWith)token).getValue()+ "%");
+         return "like";
+      }
+      // CNF for a valid CONTAINS argument does not contain negations
+      throw new IllegalStateException("Unexpected CNF token:" + token);
+   }
+   
+   /**
     * The immutable structure for a composite table. It adds only the extent as internal data and
     * foreign key to its {@code parent} DMO table.
     */
@@ -2295,8 +2686,41 @@
       {
          return sqlTableName;
       }
-   }
-   
+      
+      /**
+       * Get parent DmoMeta
+       * @return parent DmoMeta
+       */
+      public DmoMeta getParentDmoInfo()
+      {
+         return parentDmoInfo;
+      }
+   }
+   
+   /**
+    * Auxiliary date used for CONTAINS UDF call re-writing
+    */
+   private static class ContainsRewriteData
+   {
+      /** table name */
+      public String tblName = null;
+      /** table alias */
+      public String tblAlias = null;
+      /** field name */
+      public String fldName = null;
+      /** CONTAINS UDF second argument value */
+      public String expr = null;
+      /** placeholders found so far */
+      int narg = -1;
+      /** depth of nester function's calls */
+      int nestedInContains = 0; 
+   }
+   
+   /**
+    * Test program
+    * @param args
+    *        command line args
+    */
    public static void main(String[] args)
    {
       FqlToSqlConverter fql2sql = getInstance(new P2JH2Dialect(), "fwd");

=== modified file 'src/com/goldencode/p2j/persist/orm/OrmUtils.java'
--- src/com/goldencode/p2j/persist/orm/OrmUtils.java	2020-10-01 22:14:40 +0000
+++ src/com/goldencode/p2j/persist/orm/OrmUtils.java	2021-01-29 11:56:23 +0000
@@ -2,12 +2,13 @@
 ** Module   : OrmUtils.java
 ** Abstract : ORM-related utility methods.
 **
-** Copyright (c) 2020, Golden Code Development Corporation.
+** Copyright (c) 2020-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20200731 First revision.
 ** 002 CA  20200921 Added getField(record, index).
 **     OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
+**     AIL 20201210 Added setAllFields for bulk copy of fields.
 */
 
 /*
@@ -169,6 +170,20 @@
    }
    
    /**
+    * Sets all fields on a record based on a provided record. The low-level values are directly assigned
+    * in the {@code data} array of the record.   
+    * 
+    * @param   src 
+    *          The source record from which the data will be copied.
+    * @param   dst
+    *          The destination record to which the data will be copied.
+    */
+   public static boolean setAllFields(BaseRecord src, BaseRecord dst)
+   {
+      return dst.setAllDatum(src);
+   }
+   
+   /**
     * Get the field on the given index, from the specified record.
     * 
     * @param    record

=== modified file 'src/com/goldencode/p2j/persist/orm/Persister.java'
--- src/com/goldencode/p2j/persist/orm/Persister.java	2020-10-01 22:14:40 +0000
+++ src/com/goldencode/p2j/persist/orm/Persister.java	2021-01-13 21:04:41 +0000
@@ -9,6 +9,8 @@
 **                  the DMO's metadata.
 **     OM  20191120 Some fixes in insert() method. Added delete() method.
 ** 002 OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
+**     OM  20201007 Replaced inlined column name with TemporaryBuffer.MULTIPLEX_FIELD_NAME.
+**     OM  20201218 Fixed implementation for error and rejected attributes/hidden fields.
 */
 
 /*
@@ -598,7 +600,7 @@
                
                if (extent == 0 && dmo instanceof TempRecord) // TempTableRecord
                {
-                  sqlBuilder.append(" and _multiplex=?");
+                  sqlBuilder.append(" and ").append(TemporaryBuffer.MULTIPLEX_FIELD_NAME).append("=?");
                   sqlPar.add(ReservedProperty.ID_MULTIPLEX);  // ((TempRecord) dmo)._multiplex()
                }
                
@@ -663,7 +665,7 @@
                      typeHandler = TypeManager.getTypeHandler(Long.class);
                      break;
                   case ReservedProperty.ID_ERROR_FLAG:
-                     par = ((TempRecord) dmo)._errorFlag();
+                     par = ((TempRecord) dmo)._errorFlags();
                      typeHandler = TypeManager.getTypeHandler(Integer.class);
                      break;
                   case ReservedProperty.ID_MULTIPLEX:

=== modified file 'src/com/goldencode/p2j/persist/orm/PooledDataSourceProvider.java'
--- src/com/goldencode/p2j/persist/orm/PooledDataSourceProvider.java	2020-07-03 22:49:48 +0000
+++ src/com/goldencode/p2j/persist/orm/PooledDataSourceProvider.java	2020-10-16 09:11:30 +0000
@@ -2,10 +2,11 @@
 ** Module   : PooledDataSourceProvider.java
 ** Abstract : Implementation of DataSourceProvider that offers a pooled DataSource.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --------------------------------Description----------------------------------
 ** 001 ECF 20191001 Created initial version with basic runtime support.
+** 002 AIL 20201016 Set c3p0 options through setters instead of system properties.
 */
 
 /*
@@ -64,12 +65,16 @@
 package com.goldencode.p2j.persist.orm;
 
 import java.beans.*;
+import java.lang.reflect.*;
 import java.util.*;
+import java.util.logging.*;
+
 import javax.sql.DataSource;
 import com.mchange.v2.c3p0.*;
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.persist.dialect.*;
 import com.goldencode.p2j.persist.orm.types.*;
+import com.goldencode.p2j.util.*;
 
 /**
  * TBA
@@ -77,6 +82,25 @@
 class PooledDataSourceProvider
 implements DataSourceProvider
 {
+   /** A collection of setters for a ComboPooledDataSource */
+   private static Map<String, Method> cpdsSetters = new HashMap<>();
+   
+   /** Logger */
+   private static final Logger LOG = LogHelper.getLogger(PooledDataSourceProvider.class.getName());
+
+   /** Initialize the cpdsSetters collection */
+   static
+   {
+      Method[] methods = ComboPooledDataSource.class.getMethods();
+      for (Method m : methods)
+      {
+         if (m.getName().substring(0, "set".length()).equals("set"))
+         {
+            cpdsSetters.put(m.getName().substring("set".length()).toLowerCase(), m);
+         }
+      }
+   }
+   
    PooledDataSourceProvider()
    {
    }
@@ -119,8 +143,37 @@
          for (Map.Entry<String, Object> next : settings.getAllForCategory("c3p0").entrySet())
          {
             String key = next.getKey();
-            String value = String.valueOf(next.getValue());
-            System.setProperty(key, value);
+            Object value = next.getValue();
+            
+            try
+            {
+               Method setter = cpdsSetters.get(key.substring("c3p0.".length()).toLowerCase());
+               if (setter == null)
+               {
+                  if (LOG.isLoggable(Level.WARNING))
+                  {
+                     LOG.log(Level.WARNING, "Can't find a setter for the specified c3p0 parameter " + key);
+                  }
+               }
+               else
+               {
+                  setter.invoke(ds, value);
+               }
+            }
+            catch (IllegalArgumentException e)
+            {
+               if (LOG.isLoggable(Level.WARNING))
+               {
+                  LOG.log(Level.WARNING, "The provided value is not suitable for the c3p0 parameter " + key);
+               }
+            }
+            catch (IllegalAccessException | InvocationTargetException e)
+            {
+               if (LOG.isLoggable(Level.SEVERE))
+               {
+                  LOG.log(Level.SEVERE, "Failed to set a value for the c3p0 parameter " + key);
+               }
+            }
          }
          
          // setup the blob and clob creators

=== modified file 'src/com/goldencode/p2j/persist/orm/Property.java'
--- src/com/goldencode/p2j/persist/orm/Property.java	2020-10-01 22:14:40 +0000
+++ src/com/goldencode/p2j/persist/orm/Property.java	2021-01-21 22:49:45 +0000
@@ -6,6 +6,8 @@
 **
 ** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 OM  20200110 First revision.
+** 002 SVL 20201111 Convert "reserved null" to true null for LABEL and COLUMN-LABEL.
+**     OM  20201218 Fixed implementation for error and rejected attributes/hidden fields.
 */
 
 /*
@@ -232,7 +234,7 @@
    public final boolean _isDatetimeTz;
    
    /** The method which was annotated. This is only visible in orm package. */
-   final Method annMethod; 
+   public final Method annMethod; 
    
    /**
     * The constructor that initialize this immutable object.
@@ -257,9 +259,9 @@
       this.initial = source.initial().intern();
       this.initial_sa = source.initial_sa();
       this.initialNull = source.initialNull();
-      this.label = source.label();
+      this.label = convertReservedNull(source.label());
       this.label_sa = source.label_sa();
-      this.columnLabel = source.columnLabel();
+      this.columnLabel = convertReservedNull(source.columnLabel());
       this.columnLabel_sa = source.columnLabel_sa();
       this.mandatory = source.mandatory();
       this.order = source.order();
@@ -282,15 +284,38 @@
       this.viewAs = source.viewAs();
       this.canRead = source.canRead();
       this.canWrite = source.canWrite();
-   
+      
       annMethod = annotatedMethod;
       this._fwdType = annotatedMethod.getReturnType();
-      _ablType = _fwdType.getName().toLowerCase();           // TODO: fix this hack
       _isCharacter = _fwdType == character.class;
       _isDatetimeTz = _fwdType == datetimetz.class;
+      _ablType = getAblType();
    }
    
-   Property(int id, String name, String legacy, String column, boolean mandatory, Class<?> type)
+   /**
+    * Creates a new {@code Property} object. This is a constructor dedicated to building reserved properties
+    * which are not declared in DMO interface.
+    *
+    * @param   id
+    *          The id of this field in the sequence of the fields of the buffer.
+    * @param   name
+    *          The name of the DMO property.
+    * @param   legacy
+    *          The name of the legacy field associated with the DMO property.
+    * @param   column
+    *          The name of the column in the SQL database, associated with the DMO property.
+    * @param   mandatory
+    *          Flag for not-null fields.
+    * @param   initialNull
+    *          The property has {@code null} as default value.
+    */
+   Property(int id,
+            String name,
+            String legacy,
+            String column,
+            boolean mandatory,
+            Class<?> type,
+            boolean initialNull)
    {
       this.id = id;
       this.name = name.intern();
@@ -300,7 +325,7 @@
       this.index = 0;
       this.format = "";
       this.initial = "";
-      this.initialNull = false;
+      this.initialNull = initialNull;
       this.label = "";
       this.columnLabel = "";
       this.mandatory = mandatory;
@@ -330,11 +355,59 @@
       this.canWrite = "*";
       this.desc = null;
       this.width = 0;
-   
+      
       annMethod = null;                         // no method for these properties
       this._fwdType = type;
-      _ablType = type.getName().toLowerCase();  // TODO: fix this hack
-      _isCharacter = type == character.class;
+      _isCharacter = (type == character.class);
       _isDatetimeTz = false;                    // no dtzs here
+      _ablType = getAblType();
+   }
+   
+   /**
+    * Converts "reserved null" to true <code>null</code>. Returns <code>null</code> if the <code>value</code>
+    * equals "reserved null" for {@link com.goldencode.p2j.persist.annotation.Property} annotation. Otherwise
+    * returns the <code>value</code> itself.
+    *
+    * @param  value
+    *         Value to check.
+    *
+    * @return see above.
+    */
+   private String convertReservedNull(String value)
+   {
+      return com.goldencode.p2j.persist.annotation.Property.NULL_STRING.equals(value) ? null : value;
+   }
+   
+   /**
+    * Computes the ABL type name from the Java type. Usually this is the same as java class (because FWD makes
+    * an exception here from standard class naming), but there is also an exception (@code datetime-tz)
+    * because the character {@code -} is not permitted in a Java identifier.
+    * 
+    * @return  The ABL type name mapped by the specified {@code type}.
+    */
+   private String getAblType()
+   {
+      // a bit of a hack to get the proper ABL type name 
+      String strType = _isDatetimeTz ? "datetime-tz" : _fwdType.getSimpleName().toLowerCase();
+      return strType.intern();
+   }
+   
+   /**
+    * Obtain a short description of the object used in debugging.
+    *
+    * @return  a short description of the object used in debugging.
+    */
+   @Override
+   public String toString()
+   {
+      StringBuilder sb = new StringBuilder();
+      sb.append("ORM-Property{").append(name);
+      if (extent > 0)
+      {
+         sb.append("[").append(extent).append("]");
+      }
+      sb.append(":").append(_ablType).append(" OE=").append(legacy)
+        .append(" SQL=").append(column).append(" id=").append(id).append("}");
+      return sb.toString();
    }
 }

=== modified file 'src/com/goldencode/p2j/persist/orm/PropertyMeta.java'
--- src/com/goldencode/p2j/persist/orm/PropertyMeta.java	2020-10-01 22:14:40 +0000
+++ src/com/goldencode/p2j/persist/orm/PropertyMeta.java	2021-01-13 21:04:41 +0000
@@ -8,6 +8,9 @@
 ** 001 ECF 20191001 First revision.
 **     OM  20191110 Added property type support and toString().
 ** 002 OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
+**     AIL 20201210 Added checker for reserved properties.
+**         20201216 Added initial value getter.
+**     OM  20201120 Fixed value returned by getDecimals() method.
 */
 
 /*
@@ -240,13 +243,17 @@
    }
    
    /**
-    * Obtain numeric scale (precision in 4GL terms) (applies to {@code decimal} fields only).
+    * Obtain numeric scale (precision in 4GL terms) (applies to {@code decimal} fields only) ad defined in
+    * the field declaration. The method returns 0 when no such declaration was encountered in ABL source, but
+    * the default value to be used in this case is 10.
     * 
     * @return  the scale/precision type of the {@code decimal} field.
     */
    public int getDecimals()
    {
-      return dmoProperty.scale;
+      // dmoProperty.scale stores the legacy scale, if defined. If not specified in ABL source, it  will
+      // be 0. But the default value is 10 decimals.
+      return dmoProperty.scale != 0 ? dmoProperty.scale : 10; 
    }
    
    /**
@@ -343,6 +350,16 @@
    {
       return dmoProperty.mandatory;
    }
+
+   /**
+    * Check if this property meta is for a reserved property.
+    * 
+    * @return  {@code true} if the referenced property is reserved.
+    */
+   public boolean isReserved()
+   {
+      return dmoProperty.id < 0;
+   }
    
    /**
     * Retrieve the original extent of this property, which differs from @extent@ only for denormalized
@@ -370,6 +387,16 @@
    }
    
    /**
+    * Retrieve the original initial value of this property.
+    * 
+    * @return  The initial value for this property.
+    */
+   public Object getInitialValue()
+   {
+      return this.initialValue;
+   }
+   
+   /**
     * Returns a short text describing this object. Used for debugging.
     * 
     * @return  a short description of this object to be used when debugging.

=== modified file 'src/com/goldencode/p2j/persist/orm/Query.java'
--- src/com/goldencode/p2j/persist/orm/Query.java	2020-09-25 16:00:36 +0000
+++ src/com/goldencode/p2j/persist/orm/Query.java	2021-01-29 19:50:19 +0000
@@ -8,6 +8,7 @@
 ** 001 ECF 20191001 Created initial version with stubbed methods.
 **     OM  20191108 Added method implementations.
 **     ECF 20200419 Added getSQLQuery for UNDO processing.
+** 002 IAS 20201125 Wrap parameters in the auxiliary class
 */
 
 /*
@@ -66,6 +67,11 @@
 package com.goldencode.p2j.persist.orm;
 
 import java.util.*;
+import java.util.function.*;
+import java.util.regex.*;
+import java.util.stream.*;
+
+import com.goldencode.p2j.util.*;
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.persist.dialect.*;
 import com.goldencode.p2j.persist.meta.*;
@@ -75,13 +81,19 @@
  */
 public class Query
 {
+   /** Caching lambda */
+   Consumer<Query> cache;
+   
    /** The query as a FQL (FWD Query Language) statement. */
    private final String fql;
    
    /** Flags a read-only query. */
    private boolean readOnly = false;
    
-   /**
+   /** Flags a query which was re-written */
+   private boolean wasRewritten = false;
+   
+  /**
     * The maximum number of results accepted by the (SELECT) query. Used with {@code firstResult}
     * to configure result pagination.
     */
@@ -92,19 +104,13 @@
     * with {@code firstResult} to configure result pagination.
     */
    private int firstResult = -1;
-   
-   /** The set of positional parameters */
-   private Object[] parameters = null;
-   
-   /** 
-    * The index of the maximum parameter set. It is assumed this is the last positional parameter
-    * for the FQL query.
-    */
-   private int maxParamIndex = -1;
-   
+
    /** The number of parameter as detected after parsing the FQL statement. */
    private int paramCount = 0;
    
+   /** Query parameters' data */
+   private final QueryParams params = new QueryParams();
+
    /** The cached SQL query. */
    private SQLQuery sqlQuery = null;
    
@@ -117,30 +123,27 @@
    
    /**
     * Creates a new {@code Query} object.
-    * 
+    * @param   cache 
+    *          query cache  
     * @param   fql
     *          The query as a FQL (FWD Query Language) statement.
     */
-   public Query(String fql)
+   public Query(Consumer<Query> cache, String fql)
    {
+      this.cache = cache;
       this.fql = fql;
    }
    
    /**
-    * Sets the value of a parameter for this query. This is done before parsing the HQL so the
-    * index of the parameter is NOT checked.
-    *  
-    * @param   index
-    *          The index of the parameter to be set (0-base).
-    * @param   arg
-    *          The parameter value.
+    * Check if the query was re-written 
+    * 
+    * @return <code>true</code> if the query was re-written
     */
-   public void setParameter(int index, Object arg)
+   public boolean isWasRewritten()
    {
-      ensureParameterSize(index);
-      parameters[index] = arg;
+      return wasRewritten;
    }
-   
+
    /**
     * Configures the maximum number of rows returned by this query. Depending on the SQL dialect
     * from the {@code session}, the value is injected as the parameter of SQL {@code limit}
@@ -182,6 +185,20 @@
    }
    
    /**
+    * Sets the value of a parameter for this query. This is done before parsing the HQL so the
+    * index of the parameter is NOT checked.
+    *  
+    * @param   index
+    *          The index of the parameter to be set (0-base).
+    * @param   arg
+    *          The parameter value.
+    */
+   public void setParameter(int index, Object arg)
+   {
+      params.setParameter(index, arg);
+   }
+
+   /**
     * Returns a scrollable list of rows of type {@code <T>} by converting the {@code fql} to SQL
     * and executing the query against the SQL server.
     *
@@ -218,7 +235,9 @@
     *          The {@code Session} to be used.
     *          
     * @return  A row of type {@code <T>} from SQL server, as specified by the {@code fql} query.
-    *
+    * 
+    * @throws  UniqueResultException 
+    *          if the result set contains not an exactly one row.
     * @throws  PersistenceException
     *          when an error occurred while performing the requested operations.
     */
@@ -291,43 +310,7 @@
       return sqlQuery;
    }
    
-   /**
-    * Makes sure the array that holds the parameters for this query is large enough to accommodate
-    * the {@code fitIndex}-th parameter. If the index fits the current size nothing is performed.
-    * Otherwise the array is reallocated and the existing parameters are copied to their fixed
-    * positions. To improve performance, more space is allocated so that this operation will not
-    * happen at each method call.
-    * 
-    * @param   fitIndex
-    *          The index of the latest added parameter.
-    */
-   private void ensureParameterSize(int fitIndex)
-   {
-      if (maxParamIndex < fitIndex)
-      {
-         maxParamIndex = fitIndex;
-      }
-      
-      if (parameters == null)
-      {
-         parameters = new Object[Math.max(5, fitIndex + 1)]; // TODO: optimize this ?
-         return;
-      }
-      
-      if (parameters.length > fitIndex)
-      {
-         // nothing to do
-         return;
-      }
-      
-      // create a new array and copy from previously set [parameters] to new location
-      Object[] newParam = new Object[1 + fitIndex * 3 / 2]; // TODO: optimize this ?
-      System.arraycopy(parameters, 0, newParam, 0, parameters.length);
-      
-      this.parameters = newParam;
-   }
-   
-   /**
+    /**
     * Creates the delegating SQL query. The {@code fql} statement is converted to SQL and a
     * {@code SQLQuery} is created from current session. The pagination are configured and the
     * eventual parameters are set. When finished, the SQL query is returned.
@@ -347,36 +330,42 @@
    {
       if (sqlQuery == null)
       {
-         FqlToSqlConverter fql2sql = FqlToSqlConverter.getInstance(dialect, schema);
+         FqlToSqlConverter fql2sql = FqlToSqlConverter.getInstance(dialect, schema, params);
          rowStructure = new ArrayList<>(2); // this should be enough for most cases
-         sqlQuery = Session.createSQLQuery(fql2sql.toSQL(fql, maxResults, firstResult, rowStructure));
+         String sql = fql2sql.toSQL(fql, maxResults, firstResult, rowStructure);
          paramCount = fql2sql.getLastConversionParamCount();
+         wasRewritten = fql2sql.isQueryWasRewritten();
+         if (!wasRewritten)
+         {
+            cache.accept(this);
+         }
+         sqlQuery = Session.createSQLQuery(sql);
       }
       
       // [paramCount] includes optional [maxResults], [firstResult] positions
-      ensureParameterSize(paramCount);
+      params.ensureParameterSize(paramCount);
       int paging = paramCount; 
       
       if (firstResult > 0)
       {
          // add [firstResult] at the end of parameter list
-         parameters[--paging] = firstResult;
+         params.parameters[--paging] = firstResult;
       }
       
       if (maxResults > 0)
       {
          // add [maxResults] at the end of parameter list
-         parameters[--paging] = maxResults;
+         params.parameters[--paging] = maxResults;
       }
       
       for (int i = 0; i < paramCount; i++)
       {
-         sqlQuery.setParameter(i, parameters[i]);
+         sqlQuery.setParameter(i, params.parameters[i]);
       }
       
       return sqlQuery;
    }
-   
+
    /**
     * Get the dialect of the database the session is connected to.
     * 
@@ -403,4 +392,125 @@
       Database db = session.getDatabase();
       return db.isMeta() ? MetadataManager.META_SCHEMA : db.getName();
    }
+   
+   /**
+    * Parameters' data holder
+    */
+   public static class QueryParams
+   {
+      /** The set of positional parameters */
+      public Object[] parameters = null;
+      
+      /** 
+       * The index of the maximum parameter set. It is assumed this is the last positional parameter
+       * for the FQL query.
+       */
+      public int maxParamIndex = -1;
+      
+      /**
+       * Makes sure the array that holds the parameters for this query is large enough to accommodate
+       * the {@code fitIndex}-th parameter. If the index fits the current size nothing is performed.
+       * Otherwise the array is reallocated and the existing parameters are copied to their fixed
+       * positions. To improve performance, more space is allocated so that this operation will not
+       * happen at each method call.
+       * 
+       * @param   fitIndex
+       *          The index of the latest added parameter.
+       */
+      public void ensureParameterSize(int fitIndex)
+      {
+         if (maxParamIndex < fitIndex)
+         {
+            maxParamIndex = fitIndex;
+         }
+         
+         if (parameters == null)
+         {
+            parameters = new Object[Math.max(5, fitIndex + 1)]; // TODO: optimize this ?
+            return;
+         }
+         
+         if (parameters.length > fitIndex)
+         {
+            // nothing to do
+            return;
+         }
+         
+         // create a new array and copy from previously set [parameters] to new location
+         Object[] newParam = new Object[1 + fitIndex * 3 / 2]; // TODO: optimize this ?
+         System.arraycopy(parameters, 0, newParam, 0, parameters.length);
+         
+         this.parameters = newParam;
+      }
+     
+      /**
+       * Sets the value of a parameter for this query. This is done before parsing the HQL so the
+       * index of the parameter is NOT checked.
+       *  
+       * @param   index
+       *          The index of the parameter to be set (0-base).
+       * @param   arg
+       *          The parameter value.
+       */
+      public void setParameter(int index, Object arg)
+      {
+         ensureParameterSize(index);
+         parameters[index] = arg;
+      }
+      
+      /**
+       * Replace parameter
+       * @param narg
+       *        parameter number
+       * @param args
+       *        list of replacement parameters
+       */
+      public void replaceParam(int narg, List<String> args)
+      {
+         int oldnPar = parameters.length;
+         Object[] newParams = new Object[oldnPar - 1 + args.size()];
+         int np = 0;
+         for (int i = 0; i < narg; i++)
+         {
+            newParams[np++] = parameters[i];
+         }
+         for (String s: args)
+         {
+            newParams[np++] = new character(s);
+         }
+         for (int i = narg + 1; i < oldnPar; i++)
+         {
+            newParams[np++] = parameters[i];
+         }
+         parameters = newParams;
+         maxParamIndex = maxParamIndex - 1 + args.size();
+      }
+      /**
+       * Insert parameter(s)
+       * @param narg
+       *        parameter number after which to insert
+       * @param args
+       *        list of added parameters
+       */
+      public void insertParam(int narg, List<String> args)
+      {
+         int oldnPar = parameters == null ? 0 : parameters.length;
+         Object[] newParams = new Object[oldnPar + args.size()];
+         int np = 0;
+         for (int i = 0; i <= narg; i++)
+         {
+            newParams[np++] = parameters[i];
+         }
+         for (String s: args)
+         {
+            newParams[np++] = new character(s);
+         }
+         for (int i = narg + 1; i < oldnPar; i++)
+         {
+            newParams[np++] = parameters[i];
+         }
+         parameters = newParams;
+         maxParamIndex = maxParamIndex + args.size();
+      }
+   }
 }

=== modified file 'src/com/goldencode/p2j/persist/orm/RecordMeta.java'
--- src/com/goldencode/p2j/persist/orm/RecordMeta.java	2020-10-02 22:45:29 +0000
+++ src/com/goldencode/p2j/persist/orm/RecordMeta.java	2020-10-09 21:13:00 +0000
@@ -12,6 +12,7 @@
 **                  performance optimization.
 **     OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
 **     OM  20201002 Use DmoMeta cached information instead of map lookups.
+**     OM  20201007 Replaced inlined column name with TemporaryBuffer.MULTIPLEX_FIELD_NAME.
 */
 
 /*
@@ -550,7 +551,7 @@
          
          if (temporary)
          {
-            sql.append(" and _multiplex = ?");
+            sql.append(" and ").append(TemporaryBuffer.MULTIPLEX_FIELD_NAME).append(" = ?");
          }
          
          BitSet uIndex = uniqueIndices[k];
@@ -593,7 +594,8 @@
       for (int k = 0; k < len; k++)
       {
          StringBuilder sql = new StringBuilder();
-         sql.append("delete from ").append(sqlTableName).append(" where _multiplex = ?");
+         sql.append("delete from ").append(sqlTableName).append(" where ")
+            .append(TemporaryBuffer.MULTIPLEX_FIELD_NAME).append(" = ?");
          
          BitSet uIndex = uniqueIndices[k];
          for (int i = uIndex.nextSetBit(0); i >= 0; i = uIndex.nextSetBit(i + 1))

=== modified file 'src/com/goldencode/p2j/persist/orm/ReservedProperty.java'
--- src/com/goldencode/p2j/persist/orm/ReservedProperty.java	2020-10-01 22:14:40 +0000
+++ src/com/goldencode/p2j/persist/orm/ReservedProperty.java	2021-01-13 21:04:41 +0000
@@ -9,6 +9,7 @@
 ** 001 OM  20200110 Added constants and method implementations.
 ** 002 CA  20200922 Added getByName(), to resolve the reserved property for a 'hidden field' in 4GL.
 **     OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
+**     OM  20201218 Fixed implementation for error and rejected attributes/hidden fields.
 */
 
 /*
@@ -115,39 +116,39 @@
    
    /** The {@code id} reserved (by FWD) property. */
    public static final ReservedProperty ID = new ReservedProperty(
-         ID_PRIMARY_KEY, Session.PK, null, Session.PK, true, Long.class);
+         ID_PRIMARY_KEY, Session.PK, null, Session.PK, true, Long.class, false);
    
    /** The {@code _multiplex} reserved (by FWD) property. */
    public static final ReservedProperty _MULTIPLEX = new ReservedProperty(
-         ID_MULTIPLEX, TemporaryBuffer.MULTIPLEX_FIELD_NAME, null, TemporaryBuffer.MULTIPLEX_FIELD_NAME, true, Integer.class);
+         ID_MULTIPLEX, TemporaryBuffer.MULTIPLEX_FIELD_NAME, null, TemporaryBuffer.MULTIPLEX_FIELD_NAME, true, Integer.class, false);
    
    /** The {@code __error-flag__} reserved (by P4GL) property. */
    public static final ReservedProperty _ERRORFLAG = new ReservedProperty(
-         ID_ERROR_FLAG, TempRecord._ERROR_FLAG, "__error-flag__", TempRecord._ERROR_FLAG, false, integer.class);
+         ID_ERROR_FLAG, TempRecord._ERROR_FLAG, "__error-flag__", TempRecord._ERROR_FLAG, false, integer.class, true);
    
    /** The {@code __origin-rowid__} reserved (by P4GL) property. */
    public static final ReservedProperty _ORIGINROWID = new ReservedProperty(
-         ID_ORIGIN_ROWID, TempRecord._ORIGIN_ROWID, "__origin-rowid__", TempRecord._ORIGIN_ROWID, false, rowid.class);
+         ID_ORIGIN_ROWID, TempRecord._ORIGIN_ROWID, "__origin-rowid__", TempRecord._ORIGIN_ROWID, false, rowid.class, true);
    
    /** The {@code _errorString} reserved (by P4GL) property. */
    public static final ReservedProperty _ERRORSTRING = new ReservedProperty(
-         ID_ERROR_STRING, TempRecord._ERROR_STRING, "__error-string__", TempRecord._ERROR_STRING, false, character.class);
+         ID_ERROR_STRING, TempRecord._ERROR_STRING, "__error-string__", TempRecord._ERROR_STRING, false, character.class, true);
    
    /** The {@code __after-rowid__} reserved (by P4GL) property. */
    public static final ReservedProperty _PEERROWID = new ReservedProperty(
-         ID_PEER_ROWID, TempRecord._PEER_ROWID, "__after-rowid__", TempRecord._PEER_ROWID, false, rowid.class);
+         ID_PEER_ROWID, TempRecord._PEER_ROWID, "__after-rowid__", TempRecord._PEER_ROWID, false, rowid.class, true);
    
    /** The {@code __row-state__} reserved (by P4GL) property. */
    public static final ReservedProperty _ROWSTATE = new ReservedProperty(
-         ID_ROW_STATE, TempRecord._ROW_STATE, "__row-state__", TempRecord._ROW_STATE, false, integer.class);
+         ID_ROW_STATE, TempRecord._ROW_STATE, "__row-state__", TempRecord._ROW_STATE, false, integer.class, true);
    
    /** The {@code list__index} reserved (by FWD) property. */
    public static final ReservedProperty LIST__INDEX = new ReservedProperty(
-         ID_LIST__INDEX, "list__index", "index", "list__index", true, Integer.class);  // or integer ?
+         ID_LIST__INDEX, "list__index", "index", "list__index", true, Integer.class, false);  // or integer ?
    
    /** The {@code list__index} reserved (by FWD) property. */
    public static final ReservedProperty PARENT__ID = new ReservedProperty(
-         ID_PARENT__ID, "parent__id", "fk_parent", "parent__id", true, Long.class);    // or int64 ?
+         ID_PARENT__ID, "parent__id", "fk_parent", "parent__id", true, Long.class, false);    // or int64 ?
    
    /** The map of reserved properties which exist in 4GL, but are hidden. */
    private static final Map<String, ReservedProperty> HIDDEN_PROPERTIES = new HashMap<>();
@@ -174,10 +175,18 @@
     *          The name of the column in the SQL database, associated with the DMO property.
     * @param   mandatory
     *          Flag for not-null fields.
+    * @param   initialNull
+    *          The property has {@code null} as default value.
     */
-   public ReservedProperty(int id, String name, String legacy, String column, boolean mandatory, Class<?> type)
+   public ReservedProperty(int id,
+                           String name,
+                           String legacy,
+                           String column,
+                           boolean mandatory,
+                           Class<?> type,
+                           boolean initialNull)
    {
-      super(id, name, legacy, column, mandatory, type);
+      super(id, name, legacy, column, mandatory, type, initialNull);
    }
    
    /**

=== modified file 'src/com/goldencode/p2j/persist/orm/Session.java'
--- src/com/goldencode/p2j/persist/orm/Session.java	2020-10-02 22:45:29 +0000
+++ src/com/goldencode/p2j/persist/orm/Session.java	2021-01-29 19:50:19 +0000
@@ -11,6 +11,9 @@
 ** 002 ECF 20200910 Verify a record is not stale before saving or caching it.
 **     OM  20200924 Enforced no-stale-in-cache rule.
 **     OM  20201002 Use DmoMeta cached information instead of map lookups.
+**     OM  20201202 Exposed API for removing cached records which were afected by explicit SQL statements
+**                  (these changes invalidate data in cache).
+**     IAS 20201123 createQuary with delayed caching
 */
 
 /*
@@ -70,9 +73,10 @@
 
 import java.lang.reflect.*;
 import java.sql.*;
-import javax.sql.DataSource;
 import java.util.*;
+import java.util.function.*;
 import java.util.logging.*;
+import javax.sql.DataSource;
 import com.goldencode.asm.*;
 import com.goldencode.p2j.cfg.*;
 import com.goldencode.p2j.directory.*;
@@ -283,7 +287,24 @@
     */
    public static Query createQuery(String fql)
    {
-      return new Query(fql);
+      return createQuery(q -> {}, fql);
+   }
+
+   /** Flags a warning regarding "subscript on array field in CONTAINS phrase"  is suppressed  */
+   /**
+    * Creates and returns a {@code Query} based on a FQL statement. The returned object is not
+    * bounded to any session; the {@code Session} upon which it will be executed will be provided
+    * at the time of execution.
+    *
+    * @param   cache
+    *          caching lambda
+    * @param   fql
+    *          The FQL statement that will be executed by the returned {@code Query}.
+    * @return  a {@code SQLQuery} that can be used to execute the specified SQL statement.
+    */
+   public static Query createQuery(Consumer<Query> cache, String fql)
+   {
+      return new Query(cache, fql);
    }
    
    /**
@@ -507,17 +528,17 @@
       }
       
       if (dmoImplClass == null)
-      try
-      {
-         // normally, [entity] is class dynamically generated by [DmoClass] and loaded by [AsmClassLoader].
-         // it will generate [ClassNotFoundException] when queried using the simpler Class.forName() method
-         dmoImplClass = (Class<T>) Class.forName(key.getTable().toString(),
-                                                 true,
-                                                 AsmClassLoader.getInstance());
-      }
-      catch (ClassNotFoundException e)
-      {
-         throw new PersistenceException(e);
+      {
+         try
+         {
+            // normally, [entity] is class dynamically generated by [DmoClass] and loaded by [AsmClassLoader].
+            // it will generate [ClassNotFoundException] when queried using the simpler Class.forName() method
+            dmoImplClass = (Class<T>) Class.forName(key.getTable(), true, AsmClassLoader.getInstance());
+         }
+         catch (ClassNotFoundException e)
+         {
+            throw new PersistenceException(e);
+         }
       }
       
       if (!Record.class.isAssignableFrom(dmoImplClass))
@@ -688,8 +709,11 @@
    /**
     * Delete the DMO's record(s) from the database and remove it from the cache.
     * 
+    * @param   <T> 
+    *          DMO type
     * @param   dmo
     *          DMO to be deleted.
+    * @return  <code>true</code> on success
     * 
     * @throws  PersistenceException
     *          if there is a database error, or if a different DMO instance with the same ID as
@@ -860,6 +884,54 @@
    }
    
    /**
+    * Invalidates all records from cache belonging to a specific table. If provided a multiplex, only
+    * those records are affected.
+    *
+    * @param   buf
+    *          A buffer of the table whose records are going to be invalidated.
+    * @param   multiplex
+    *          Optional multiplex used to filter which records are deleted.
+    */
+   public void invalidateRecords(RecordBuffer buf, Integer multiplex)
+   {
+      if (cache == null)
+      {
+         return; // nothing to do
+      }
+      
+      String tableName = buf.getDmoInfo().getImplementationClass().getName();
+      
+      Set<Map.Entry<RecordIdentifier<String>, BaseRecord>> entries = cache.entrySet();
+      Set<RecordIdentifier<String>> toDelete = new HashSet<>();
+      for (Map.Entry<RecordIdentifier<String>, BaseRecord> entry : entries)
+      {
+         if (!entry.getKey().getTable().equals(tableName))
+         {
+            continue;
+         }
+         
+         if (multiplex != null)
+         {
+            TempRecord value = (TempRecord) entry.getValue();
+            if (value._multiplex().intValue() != multiplex.intValue())
+            {
+               continue;
+            }
+         }
+         
+         toDelete.add(entry.getKey());
+      }
+      
+      if (!toDelete.isEmpty())
+      {
+         for (RecordIdentifier<String> ri : toDelete)
+         {
+            cache.remove(ri);
+         }
+      }
+   }
+   
+   /**
     * Refresh the given DMO with data from the database, bypassing the cache. The DMO's primary
     * key is assumed to represent a valid identifier. If no record is found with this primary
     * key, the existing DMO (if any) with that identifier is removed from the cache, and {@code
@@ -905,6 +977,14 @@
    // NOTE: Hibernate's Session.merge() saves the record if not done already. FWD ORM does the
    //       same in order to keep the existing code assumptions.
    // TODO: can we get rid of this?
+   /**
+    * @param <T>
+    *        dmo TYPE
+    * @param dmo
+    *        DMO
+    * @return saved record
+    * @throws PersistenceException
+    */
    public <T extends BaseRecord> T merge(T dmo)
    throws PersistenceException
    {
@@ -1303,8 +1383,6 @@
    
    /**
     * Clear the session DMO cache.
-    * 
-    * @throws PersistenceException
     */
    public void clear()
    throws PersistenceException

=== modified file 'src/com/goldencode/p2j/persist/orm/Settings.java'
--- src/com/goldencode/p2j/persist/orm/Settings.java	2020-09-18 11:12:02 +0000
+++ src/com/goldencode/p2j/persist/orm/Settings.java	2020-12-20 17:05:05 +0000
@@ -8,6 +8,8 @@
 ** 001 ECF 20191001 Created initial version. ORM layer configuration information.
 ** 002 IAS 20200914 Re-work (de)serialization
 ** 003 AIL 20200918 Made Settings use the dynamically computed URL for per-session databases.
+** 004 AIL 20201016 Increased searching interval for getAllForCategory.
+** 005 IAS 20201219 Added 'CPSTREAM' import task argument
 */
 
 /*
@@ -93,6 +95,9 @@
    /** Connection password key */
    public static final String PASSWORD = "connection.password";
    
+   /** table dump file codepage, optional */
+   public static final String CPSTREAM = "dump.cpstream";
+
    /** Connection driver class key */
    public static final String DRIVER = "connection.driver";
    
@@ -299,7 +304,7 @@
     */
    public Map<String, Object> getAllForCategory(String qualifier)
    {
-      return config.subMap(qualifier + '.', true, qualifier + "._", true);
+      return config.subMap(qualifier + '.', true, qualifier + ".~", true);
    }
 
    /**

=== modified file 'src/com/goldencode/p2j/persist/orm/TempTableDataSourceProvider.java'
--- src/com/goldencode/p2j/persist/orm/TempTableDataSourceProvider.java	2020-08-14 00:21:10 +0000
+++ src/com/goldencode/p2j/persist/orm/TempTableDataSourceProvider.java	2020-10-22 18:16:39 +0000
@@ -1,13 +1,15 @@
 /*
 ** Module   : TempTableDataSourceProvider.java
-** Abstract : Provides the context-local data source for temporary database.
+** Abstract : Provides the context-local data source for legacy temp-table use.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --------------------------------Description----------------------------------
 ** 001 ECF 20191001 Created initial version with basic runtime support.
 **     OM  20191202 Implemented getConnection() methods. Using delegation instead of proxy because
 **                  the proxied object lacks the default c'tor.
+** 002 AIL 20201020 Added prepared statement cache at connection level.
+**     ECF 20201022 Javadoc cleanup.
 */
 
 /*
@@ -71,13 +73,20 @@
 import java.util.concurrent.*;
 import java.util.logging.*;
 import javax.sql.DataSource;
+import com.goldencode.cache.*;
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.persist.dialect.*;
 import com.goldencode.p2j.persist.orm.types.*;
 import com.goldencode.p2j.security.*;
+import com.goldencode.p2j.util.LogHelper;
 
 /**
- * TBA
+ * A data source provider which supplies a JDBC connection for legacy temp-table use. The connection is not
+ * closed until all temp-tables have been dropped explicitly. The connection provided is a hard-coded proxy
+ * which delegates most service requests to a backing, physical JDBC connection, but intercepts certain
+ * requests to implement the desired behavior.
+ * <p>
+ * Implements prepared statement caching in a manner compatible with H2's prepared statement implementation.
  */
 class TempTableDataSourceProvider
 implements DataSourceProvider
@@ -96,9 +105,16 @@
       return new DataSourceImpl();
    }
    
+   /**
+    * Implementation of the {@code DataSource} interface, which maintains context-local data for each
+    * private temp-table connection.
+    */
    private static class DataSourceImpl
    implements DataSource
    {
+      /** Logger */
+      private static final Logger LOG = LogHelper.getLogger(DataSourceImpl.class.getName());
+      
       /**
        * Attempts to establish a connection with the data source of the {@code _temp} database.
        * Uses the credentials from the {@code DatabaseManager} configuration.
@@ -168,20 +184,69 @@
             Dialect dialect = Dialect.getDialect(settings);
             TypeManager.addBlobCreator(url, dialect::blobCreator);
             TypeManager.addClobCreator(url, dialect::clobCreator);
+            
+            ctx.psCache = new LRUCache<>(100);
+            ctx.psCache.addCacheExpiryListener(ctx);
          }
          
          if (ctx.proxyConn == null)
          {
-            ctx.proxyConn = new Connection() {
+            ctx.proxyConn = new Connection()
+            {
                public void close() throws SQLException
                {
                   DataSourceImpl.this.close();
                }
                
+               public PreparedStatement prepareStatement(String sql)
+               throws SQLException
+               {
+                  // prepare using default result set type and concurrency
+                  return prepareStatement(sql, ResultSet.TYPE_FORWARD_ONLY, ResultSet.CONCUR_READ_ONLY);
+               }
+               
+               public PreparedStatement prepareStatement(String sql,
+                                                         int resultSetType,
+                                                         int resultSetConcurrency)
+               throws SQLException
+               {
+                  PSKey key = new PSKey(sql, resultSetType, resultSetConcurrency);
+                  UnclosablePreparedStatement ps = ctx.psCache.get(key);
+                  
+                  if (ps == null || ps.isClosed())
+                  {
+                     if (ps != null)
+                     {
+                        if (LOG.isLoggable(Level.SEVERE))
+                        {
+                           LOG.log(Level.SEVERE, "Closed statements shouldn't be cached.");
+                        }
+                     }
+                     
+                     PreparedStatement raw = ctx.physicalConn.prepareStatement(sql, resultSetType, resultSetConcurrency);
+                     ps = new UnclosablePreparedStatement(raw, false);
+                     ctx.psCache.put(key, ps);
+                  }
+                  else if (ps.isCheckedOut())
+                  {
+                     // the prepared statement is already in use
+                     // create another one which will not be cached
+                     PreparedStatement raw = ctx.physicalConn.prepareStatement(sql, resultSetType, resultSetConcurrency);
+                     ps = new UnclosablePreparedStatement(raw, true); 
+                     
+                     if (LOG.isLoggable(Level.FINE))
+                     {
+                        LOG.log(Level.FINE, "Multiply-cached PreparedStatement: " + sql);
+                     }
+                  }
+                  
+                  ps.checkOut();
+                  return ps;
+               }
+               
                public <T> T unwrap(Class<T> iface) throws SQLException { return ctx.physicalConn.unwrap(iface); }
                public boolean isWrapperFor(Class<?> iface) throws SQLException { return ctx.physicalConn.isWrapperFor(iface); }
                public Statement createStatement() throws SQLException { return ctx.physicalConn.createStatement(); }
-               public PreparedStatement prepareStatement(String sql) throws SQLException { return ctx.physicalConn.prepareStatement(sql); }
                public CallableStatement prepareCall(String sql) throws SQLException { return ctx.physicalConn.prepareCall(sql); }
                public String nativeSQL(String sql) throws SQLException { return ctx.physicalConn.nativeSQL(sql); }
                public void setAutoCommit(boolean autoCommit) throws SQLException { ctx.physicalConn.setAutoCommit(autoCommit); }
@@ -200,8 +265,6 @@
                public void clearWarnings() throws SQLException { ctx.physicalConn.clearWarnings(); }
                public Statement createStatement(int resultSetType, int resultSetConcurrency) throws SQLException {
                   return ctx.physicalConn.createStatement(resultSetType, resultSetConcurrency); }
-               public PreparedStatement prepareStatement(String sql, int resultSetType, int resultSetConcurrency) throws SQLException {
-                  return ctx.physicalConn.prepareStatement(sql, resultSetType, resultSetConcurrency); }
                public CallableStatement prepareCall(String sql, int resultSetType, int resultSetConcurrency) throws SQLException {
                   return ctx.physicalConn.prepareCall(sql, resultSetType, resultSetConcurrency); }
                public Map<String, Class<?>> getTypeMap() throws SQLException {
@@ -284,6 +347,13 @@
          throw new SQLFeatureNotSupportedException();
       }
       
+      /**
+       * Intercept close requests to close the physical database connection only when there is no temp-table
+       * which still needs it.
+       * 
+       * @throws  SQLException
+       *          if there is an error closing the connection.
+       */
       public void close()
       throws SQLException
       {
@@ -293,9 +363,11 @@
          {
             ctx.physicalConn.close();
             ctx.physicalConn = null;
+            ctx.psCache = null;
          }
       }
       
+      /** Context local variable to hold context-specific data */
       private static final ContextLocal<Context> context = new ContextLocal<Context>()
       {
          /**
@@ -349,13 +421,145 @@
          }
       };
       
+      /**
+       * Context-specific data.
+       */
       private static class Context
+      implements CacheExpiryListener<PSKey, UnclosablePreparedStatement>
       {
          /** Physical JDBC connection */
          private Connection physicalConn = null;
          
          /** Proxied JDBC connection which overrides close behavior */
          private Connection proxyConn = null;
+         
+         /** Prepared statement cache which closes statements as they expire from the cache */
+         private ExpiryCache<PSKey, UnclosablePreparedStatement> psCache = null;
+         
+         /**
+          * Manage prepared statements which expire from the cache, by closing them.
+          * 
+          * @param   event
+          *          Event which contains the prepared statement(s) which have expired from the cache.
+          */
+         @Override
+         public void cacheExpired(CacheExpiryEvent<PSKey, UnclosablePreparedStatement> event)
+         {
+            for (UnclosablePreparedStatement ps : event.getExpiredEntries().values())
+            {
+               try
+               {
+                  if (!ps.isClosed())
+                  {
+                     if (ps.isCheckedOut())
+                     {
+                        ps.setCloseOnCheckIn(true);
+                     }
+                     else
+                     {
+                        ps.forceClose();
+                     }
+                  }
+               }
+               catch (SQLException exc)
+               {
+                  // eat it
+               }
+            }
+         }
+      }
+   }
+   
+   /**
+    * Prepared statement cache key.
+    */
+   private static class PSKey
+   {
+      /** SQL string, including placeholders */
+      private final String sql;
+      
+      /** Statement result set type */
+      private final int resultSetType;
+      
+      /** Statement result set concurrency */
+      private final int resultSetConcurrency;
+      
+      /** Cached hash code */
+      private final int hashCode;
+      
+      /**
+       * Constructor.
+       * 
+       * @param   sql
+       *          SQL string, including placeholders
+       * @param   resultSetType
+       *          Statement result set type
+       * @param   resultSetConcurrency
+       *          Statement result set concurrency
+       */
+      private PSKey(String sql, int resultSetType, int resultSetConcurrency)
+      {
+         this.sql = sql;
+         this.resultSetType = resultSetType;
+         this.resultSetConcurrency = resultSetConcurrency;
+         this.hashCode = computeHash();
+      }
+      
+      /**
+       * Compute and return a well distributed hash code.
+       * 
+       * @return  Computed hash code.
+       */
+      private int computeHash()
+      {
+         int result = 17;
+         result = 37 * result + sql.hashCode();
+         result = 37 * result + resultSetType;
+         result = 37 * result + resultSetConcurrency;
+         
+         return result;
+      }
+      
+      /**
+       * Return a hash code for this object.
+       * 
+       * @return  Hash code.
+       */
+      @Override
+      public int hashCode()
+      {
+         return hashCode;
+      }
+      
+      /**
+       * Test this object for equality (equivalence) with the given object.
+       * 
+       * @param   o
+       *          Object to test.
+       * 
+       * @return  {@code true} if this object is the same instance as the given object, or if it is
+       *          considered equivalent to the given object, else {@code false}.
+       */
+      @Override
+      public boolean equals(Object o)
+      {
+         if (this == o)
+         {
+            // same instance
+            return true;
+         }
+         
+         if (!(o instanceof PSKey))
+         {
+            // impossible to be equivalent
+            return false;
+         }
+         
+         PSKey that = (PSKey) o;
+         
+         return this.resultSetType == that.resultSetType &&
+                this.resultSetConcurrency == that.resultSetConcurrency &&
+                this.sql.equals(that.sql);
       }
    }
 }

=== added file 'src/com/goldencode/p2j/persist/orm/UnclosablePreparedStatement.java'
--- src/com/goldencode/p2j/persist/orm/UnclosablePreparedStatement.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/persist/orm/UnclosablePreparedStatement.java	2021-01-13 21:04:41 +0000
@@ -0,0 +1,373 @@
+/*
+** Module   : UnclosablePreparedStatement.java
+** Abstract : Provides a prepared statement proxy suitable for caching.
+**
+** Copyright (c) 2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- --------------------------------Description----------------------------------
+** 001 AIL 20201020 Created initial version.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+**
+** Additional terms under GNU Affero GPL version 3 section 7:
+**
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+**
+**   0. Attribution Requirement.
+**
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+**
+**   1. No License To Use Trademarks.
+**
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+**
+**   2. No Misrepresentation of Affiliation.
+**
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+**
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+**
+**   3. No Misrepresentation of Source or Origin.
+**
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+package com.goldencode.p2j.persist.orm;
+
+import java.io.*;
+import java.math.BigDecimal;
+import java.net.URL;
+import java.sql.*;
+import java.util.Calendar;
+import java.util.logging.*;
+
+import com.goldencode.p2j.util.LogHelper;
+
+/**
+ * Prepared statement proxy used for caching statements at connection level.
+ */
+public class UnclosablePreparedStatement implements PreparedStatement
+{
+   /** The proxied prepared statement */
+   private PreparedStatement target;
+   
+   /** Flag to indicate if this statement is checked-out */
+   private boolean checkedOut;
+   
+   /** Flag to indicate if this statement should close itself on check-in */
+   private boolean closeOnCheckIn;
+   
+   /** Logger */
+   private static final Logger LOG = LogHelper.getLogger(UnclosablePreparedStatement.class.getName());
+
+   /**
+    * Default constructor
+    */
+   public UnclosablePreparedStatement(PreparedStatement target)
+   {
+      this(target, true);
+   }
+   
+   /**
+    * Constructor.
+    * 
+    * @param   target
+    *          Represents the prepared statement instance which should be proxied
+    * @param   closeOnCheckIn
+    *          Flag to indicate id the statement should be closed when checked-in
+    */
+   public UnclosablePreparedStatement(PreparedStatement target, boolean closeOnCheckIn)
+   {
+      this.target = target;
+      this.closeOnCheckIn = closeOnCheckIn;
+      this.checkedOut = false;
+   }
+   
+   /**
+    * Set the checkOut flag on true.
+    */
+   public void checkOut()
+   {
+      if (!isCheckedOut())
+      {
+         this.checkedOut = true;
+      }
+      else
+      {
+         throw new IllegalStateException("Can't check out a statement which was already checked-out.");
+      }
+   }
+   
+   /**
+    * Set the checkOut flag on false. If the closeOnCheckIn is set, force close this statement.
+    */
+   public void checkIn()
+   {
+      if (isCheckedOut())
+      {
+         this.checkedOut = false;
+         
+         try
+         { 
+            if (isCloseOnCheckIn())
+            {
+               forceClose();
+            }
+            else
+            {
+               // make sure that the result set will be closed
+               // cached statements will also automatically cache the result-set
+               if (this.target.getResultSet() != null)
+               {               
+                  this.target.getResultSet().close();
+               }
+
+               // make sure that the generated keys will be closed
+               // cached statements will also automatically cache the generated-keys
+               if (this.target.getGeneratedKeys() != null)
+               {               
+                  this.target.getGeneratedKeys().close();
+               }
+            }
+               
+         }
+         catch (SQLException e)
+         {
+            if (LOG.isLoggable(Level.WARNING))
+            {
+               LOG.log(Level.WARNING, "Can't close the freshly checked-in statement: " + target.toString());
+            }
+         }
+      }
+      else
+      {
+         throw new IllegalStateException("Can't check in a statement which wasn't yet checked-out.");
+      }
+   }
+   
+   /**
+    * Check if this statement is checked out
+    * 
+    * @return   true if this statement is checked out
+    */
+   public boolean isCheckedOut()
+   {
+      return this.checkedOut;
+   }
+   
+   /**
+    * Check if this statement should close when checked-in
+    * 
+    * @return  true if this statement should close when checked-in
+    */
+   public boolean isCloseOnCheckIn()
+   {
+      return this.closeOnCheckIn;
+   }
+   
+   /**
+    * Set the closeOnCheckIn flag.
+    * 
+    * @param    closeOnCheckIn
+    *           The new value for the closeOnCheckIn flag.
+    */
+   public void setCloseOnCheckIn(boolean closeOnCheckIn)
+   {
+      this.closeOnCheckIn = closeOnCheckIn;
+   }
+   
+   /**
+    * Close the proxy. This will flag that this statement is inactive and can be checked-in the pool.
+    */
+   public void close() throws SQLException 
+   { 
+      // closing a statement will eventually mean the return of it in the pool - so check-in
+      checkIn();
+   }
+
+   /**
+    * Permanently close the prepared statement as this will be removed from the pool.
+    * @throws SQLException
+    */
+   public void forceClose() throws SQLException
+   {
+      // close such prepared statements only in force mode
+      // this also closes the attached result set if any
+      if (!isCheckedOut())
+      {
+         this.target.close();
+      }
+      else
+      {
+         throw new IllegalStateException("Can't close a statement which is still checked-out.");
+      }
+   }
+
+   public ResultSet executeQuery(String sql) throws SQLException { return this.target.executeQuery(sql); }
+   public int executeUpdate(String sql) throws SQLException { return this.target.executeUpdate(sql); }
+   public int getMaxFieldSize() throws SQLException { return this.target.getMaxFieldSize(); }
+   public void setMaxFieldSize(int max) throws SQLException { this.target.setMaxFieldSize(max); }
+   public int getMaxRows() throws SQLException { return this.target.getMaxRows(); }
+   public void setMaxRows(int max) throws SQLException { this.target.setMaxRows(max); }
+   public void setEscapeProcessing(boolean enable) throws SQLException { this.target.setEscapeProcessing(enable); }
+   public int getQueryTimeout() throws SQLException { return this.target.getQueryTimeout(); }
+   public void setQueryTimeout(int seconds) throws SQLException { this.target.setQueryTimeout(seconds); }
+   public void cancel() throws SQLException { this.target.cancel(); }
+   public SQLWarning getWarnings() throws SQLException { return this.target.getWarnings(); }
+   public void clearWarnings() throws SQLException { this.target.clearWarnings(); }
+   public void setCursorName(String name) throws SQLException { this.target.setCursorName(name); }
+   public boolean execute(String sql) throws SQLException { return this.target.execute(sql); }
+   public ResultSet getResultSet() throws SQLException { return this.target.getResultSet(); }
+   public int getUpdateCount() throws SQLException { return this.target.getUpdateCount(); }
+   public boolean getMoreResults() throws SQLException { return this.target.getMoreResults(); }
+   public void setFetchDirection(int direction) throws SQLException { this.target.setFetchDirection(direction); }
+   public int getFetchDirection() throws SQLException { return this.target.getFetchDirection(); }
+   public void setFetchSize(int rows) throws SQLException { this.target.setFetchSize(rows); }
+   public int getFetchSize() throws SQLException { return this.target.getFetchSize(); }
+   public int getResultSetConcurrency() throws SQLException { return this.target.getResultSetConcurrency(); }
+   public int getResultSetType() throws SQLException { return this.target.getResultSetType(); }
+   public void addBatch(String sql) throws SQLException { this.target.addBatch(sql); }
+   public void clearBatch() throws SQLException { this.target.clearBatch(); }
+   public int[] executeBatch() throws SQLException { return this.target.executeBatch(); }
+   public Connection getConnection() throws SQLException { return this.target.getConnection(); }
+   public boolean getMoreResults(int current) throws SQLException { return this.target.getMoreResults(current); }
+   public ResultSet getGeneratedKeys() throws SQLException { return this.target.getGeneratedKeys(); }
+   public int executeUpdate(String sql, int autoGeneratedKeys) throws SQLException { 
+      return this.target.executeUpdate(sql, autoGeneratedKeys); }
+   public int executeUpdate(String sql, int[] columnIndexes) throws SQLException { 
+      return this.target.executeUpdate(sql, columnIndexes); }
+   public int executeUpdate(String sql, String[] columnNames) throws SQLException { 
+      return this.target.executeUpdate(sql, columnNames); }
+   public boolean execute(String sql, int autoGeneratedKeys) throws SQLException { 
+      return this.target.execute(sql, autoGeneratedKeys); }
+   public boolean execute(String sql, int[] columnIndexes) throws SQLException { 
+      return this.target.execute(sql, columnIndexes); }
+   public boolean execute(String sql, String[] columnNames) throws SQLException { 
+      return this.target.execute(sql, columnNames); }
+   public int getResultSetHoldability() throws SQLException { return this.target.getResultSetHoldability(); }
+   public boolean isClosed() throws SQLException { return this.target.isClosed(); }
+   public void setPoolable(boolean poolable) throws SQLException { this.target.setPoolable(poolable); }
+   public boolean isPoolable() throws SQLException { return this.target.isPoolable(); }
+   public void closeOnCompletion() throws SQLException { this.target.isCloseOnCompletion(); }
+   public boolean isCloseOnCompletion() throws SQLException { return this.target.isCloseOnCompletion(); }
+   public <T> T unwrap(Class<T> iface) throws SQLException { return this.target.unwrap(iface); }
+   public boolean isWrapperFor(Class<?> iface) throws SQLException { return this.target.isWrapperFor(iface); }
+   public ResultSet executeQuery() throws SQLException { return this.target.executeQuery(); }
+   public int executeUpdate() throws SQLException { return this.target.executeUpdate(); }
+   public void setNull(int parameterIndex, int sqlType) throws SQLException { 
+      this.target.setNull(parameterIndex, sqlType); }
+   public void setBoolean(int parameterIndex, boolean x) throws SQLException { 
+      this.target.setBoolean(parameterIndex, x); }
+   public void setByte(int parameterIndex, byte x) throws SQLException { this.target.setByte(parameterIndex, x); }
+   public void setShort(int parameterIndex, short x) throws SQLException { this.target.setShort(parameterIndex, x); }
+   public void setInt(int parameterIndex, int x) throws SQLException { this.target.setInt(parameterIndex, x); }
+   public void setLong(int parameterIndex, long x) throws SQLException { this.target.setLong(parameterIndex, x); }
+   public void setFloat(int parameterIndex, float x) throws SQLException { this.target.setFloat(parameterIndex, x); }
+   public void setDouble(int parameterIndex, double x) throws SQLException { 
+      this.target.setDouble(parameterIndex, x); }
+   public void setBigDecimal(int parameterIndex, BigDecimal x) throws SQLException { 
+      this.target.setBigDecimal(parameterIndex, x); }
+   public void setString(int parameterIndex, String x) throws SQLException { 
+      this.target.setString(parameterIndex, x); }
+   public void setBytes(int parameterIndex, byte[] x) throws SQLException { this.target.setBytes(parameterIndex, x); }
+   public void setDate(int parameterIndex, Date x) throws SQLException { this.target.setDate(parameterIndex, x); }
+   public void setTime(int parameterIndex, Time x) throws SQLException { this.target.setTime(parameterIndex, x); }
+   public void setTimestamp(int parameterIndex, Timestamp x) throws SQLException { 
+      this.target.setTimestamp(parameterIndex, x); }
+   public void setAsciiStream(int parameterIndex, InputStream x, int length) throws SQLException { 
+      this.target.setAsciiStream(parameterIndex, x, length); }
+   public void setUnicodeStream(int parameterIndex, InputStream x, int length) throws SQLException {
+      this.target.setUnicodeStream(parameterIndex, x, length);}
+   public void setBinaryStream(int parameterIndex, InputStream x, int length) throws SQLException { 
+      this.target.setBinaryStream(parameterIndex, x, length); }
+   public void clearParameters() throws SQLException { this.target.clearParameters(); }
+   public void setObject(int parameterIndex, Object x, int targetSqlType) throws SQLException { 
+      this.target.setObject(parameterIndex, x, targetSqlType);}
+   public void setObject(int parameterIndex, Object x) throws SQLException { 
+      this.target.setObject(parameterIndex, x); }
+   public boolean execute() throws SQLException { return this.target.execute(); }
+   public void addBatch() throws SQLException { this.target.addBatch(); }
+   public void setCharacterStream(int parameterIndex, Reader reader, int length) throws SQLException { 
+      this.target.setCharacterStream(parameterIndex, reader, length); }
+   public void setRef(int parameterIndex, Ref x) throws SQLException { this.target.setRef(parameterIndex, x); }
+   public void setBlob(int parameterIndex, Blob x) throws SQLException { this.target.setBlob(parameterIndex, x); }
+   public void setClob(int parameterIndex, Clob x) throws SQLException { this.target.setClob(parameterIndex, x); }
+   public void setArray(int parameterIndex, Array x) throws SQLException { this.target.setArray(parameterIndex, x); }
+   public ResultSetMetaData getMetaData() throws SQLException { return this.target.getMetaData(); }
+   public void setDate(int parameterIndex, Date x, Calendar cal) throws SQLException { 
+      this.target.setDate(parameterIndex, x, cal); }
+   public void setTime(int parameterIndex, Time x, Calendar cal) throws SQLException { 
+      this.target.setTime(parameterIndex, x, cal); }
+   public void setTimestamp(int parameterIndex, Timestamp x, Calendar cal) throws SQLException { 
+      this.target.setTimestamp(parameterIndex, x, cal); }
+   public void setNull(int parameterIndex, int sqlType, String typeName) throws SQLException { 
+      this.target.setNull(parameterIndex, sqlType, typeName); }
+   public void setURL(int parameterIndex, URL x) throws SQLException { this.target.setURL(parameterIndex, x); }
+   public ParameterMetaData getParameterMetaData() throws SQLException { return this.target.getParameterMetaData(); }
+   public void setRowId(int parameterIndex, RowId x) throws SQLException { this.target.setRowId(parameterIndex, x); }
+   public void setNString(int parameterIndex, String value) throws SQLException { 
+      this.target.setNString(parameterIndex, value); }
+   public void setNCharacterStream(int parameterIndex, Reader value, long length) throws SQLException { 
+      this.target.setNCharacterStream(parameterIndex, value, length); }
+   public void setNClob(int parameterIndex, NClob value) throws SQLException { 
+      this.target.setNClob(parameterIndex, value); }
+   public void setClob(int parameterIndex, Reader reader, long length) throws SQLException { 
+      this.target.setClob(parameterIndex, reader, length); }
+   public void setBlob(int parameterIndex, InputStream inputStream, long length) throws SQLException { 
+      this.target.setBlob(parameterIndex, inputStream, length); }
+   public void setNClob(int parameterIndex, Reader reader, long length) throws SQLException {
+      this.target.setNClob(parameterIndex, reader, length); }
+   public void setSQLXML(int parameterIndex, SQLXML xmlObject) throws SQLException { 
+      this.target.setSQLXML(parameterIndex, xmlObject); }
+   public void setObject(int parameterIndex, Object x, int targetSqlType, int scaleOrLength) throws SQLException { 
+      this.target.setObject(parameterIndex, x, targetSqlType, scaleOrLength); }
+   public void setAsciiStream(int parameterIndex, InputStream x, long length) throws SQLException { 
+      this.target.setAsciiStream(parameterIndex, x, length); }
+   public void setBinaryStream(int parameterIndex, InputStream x, long length) throws SQLException { 
+      this.target.setBinaryStream(parameterIndex, x, length); }
+   public void setCharacterStream(int parameterIndex, Reader reader, long length) throws SQLException { 
+      this.target.setCharacterStream(parameterIndex, reader, length); }
+   public void setAsciiStream(int parameterIndex, InputStream x) throws SQLException { 
+      this.target.setAsciiStream(parameterIndex, x); }
+   public void setBinaryStream(int parameterIndex, InputStream x) throws SQLException { 
+      this.target.setBinaryStream(parameterIndex, x); }
+   public void setCharacterStream(int parameterIndex, Reader reader) throws SQLException { 
+      this.target.setCharacterStream(parameterIndex, reader); }
+   public void setNCharacterStream(int parameterIndex, Reader value) throws SQLException { 
+      this.target.setNCharacterStream(parameterIndex, value); }
+   public void setClob(int parameterIndex, Reader reader) throws SQLException { 
+      this.target.setClob(parameterIndex, reader); }
+   public void setBlob(int parameterIndex, InputStream inputStream) throws SQLException { 
+      this.target.setBlob(parameterIndex, inputStream); }
+   public void setNClob(int parameterIndex, Reader reader) throws SQLException { 
+      this.target.setNClob(parameterIndex, reader); }
+   
+}

=== modified file 'src/com/goldencode/p2j/persist/orm/Validation.java'
--- src/com/goldencode/p2j/persist/orm/Validation.java	2020-10-01 22:14:40 +0000
+++ src/com/goldencode/p2j/persist/orm/Validation.java	2021-01-26 21:32:14 +0000
@@ -2,7 +2,7 @@
 ** Module   : Validation.java
 ** Abstract : Database record validation and persistence operation.
 **
-** Copyright (c) 2004-2020, Golden Code Development Corporation.
+** Copyright (c) 2004-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20200207 First revision. Validates non-nullable fields and unique constraints.
@@ -13,6 +13,9 @@
 **         20200929 Performance: UNION ALL multiple unique index validation SQL statements together to
 **                  reduce number of queries prepared/sent.
 **     OM  20201001 Improved DMO manipulation performance by caching slow Property annotation access.
+**     AIL 20201020 Closed unclosed prepared statement.
+**     ECF 20201201 Fixed FFC invalidation for flush update case when record was validated previously.
+**         20210126 Ensure all unvalidated unique indices are validated at flush time.
 */
 
 /*
@@ -298,7 +301,7 @@
          Object[] diff = singleProp ? dmo.getActiveUpdateDiffs() : null;
          
          // validate fully updated unique indices, if any
-         BitSet valUnique = dmo.getUnvalidatedIndices(offset);
+         BitSet valUnique = dmo.getUnvalidatedIndices(offset, flush);
          if (!valUnique.isEmpty())
          {
             // validate unique indices (and flush, if flush was requested)
@@ -490,8 +493,8 @@
       {
          // invalidate only affected indexes on update
          int dirtyOffset = dmo.getActiveOffset();
-         BitSet dirtyUnique = dmo.getDirtyIndices(dirtyOffset, true, true);
-         BitSet dirtyNonunique = dmo.getDirtyIndices(dirtyOffset, false, true);
+         BitSet dirtyUnique = dmo.getDirtyIndices(dirtyOffset, true, false);
+         BitSet dirtyNonunique = dmo.getDirtyIndices(dirtyOffset, false, false);
          ffc.invalidate(recMeta.getDmoMeta().getId(), multiplex, dirtyUnique, dirtyNonunique);
       }
       
@@ -1009,9 +1012,8 @@
          query = uniqueSQLs[check.nextSetBit(0)];
       }
       
-      try
+      try (PreparedStatement ps = session.getConnection().prepareStatement(query))
       {
-         PreparedStatement ps = session.getConnection().prepareStatement(query);
          int psOffset = 0;
          
          for (int k = check.nextSetBit(0); k >= 0; k = check.nextSetBit(k + 1))

=== modified file 'src/com/goldencode/p2j/persist/orm/types/TypeManager.java'
--- src/com/goldencode/p2j/persist/orm/types/TypeManager.java	2020-07-02 19:29:20 +0000
+++ src/com/goldencode/p2j/persist/orm/types/TypeManager.java	2020-12-15 19:03:37 +0000
@@ -7,6 +7,7 @@
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 OM  20191101 Created initial version. Basic BDT support in both direction.
 **     CA  20200622 Small performance improvement - use IdentityHashMap if the key is java.lang.Class.
+** 002 CA  20201214 Fixed setByteArrayParameter when the value is null - the type is VARBINARY.
 */
 
 /*
@@ -539,7 +540,7 @@
    {
       if (val == null)
       {
-         stmt.setNull(index, Types.BLOB);
+         stmt.setNull(index, Types.VARBINARY);
       }
       else
       {

=== modified file 'src/com/goldencode/p2j/persist/pl/Contains.java'
--- src/com/goldencode/p2j/persist/pl/Contains.java	2020-01-20 11:21:22 +0000
+++ src/com/goldencode/p2j/persist/pl/Contains.java	2020-12-23 16:58:23 +0000
@@ -8,6 +8,7 @@
 ** 001 ECF 20180830 Created initial version.
 ** 002 ECF 20190309 Silently tolerate, but do not match on an empty string expression.
 ** 003 CA  20190821 Allow a specified set of characters to be used as word delimiters.
+** 004 IAS 20201113 Re-worked using Reverse Polish Notation and LogicalExpressionConverter
 */
 
 /*
@@ -69,6 +70,7 @@
 import java.util.*;
 import java.util.concurrent.*;
 import com.goldencode.p2j.util.*;
+import com.goldencode.p2j.util.LogicalExpressionConverter.*;
 
 /**
  * Simplified implementation of the CONTAINS operator for lightweight use. Evaluates a data
@@ -118,29 +120,8 @@
  */
 public final class Contains
 {
-   /** Constant for no match expression token type */
-   private static final int NONE = -1;
-   
-   /** Constant for full word match expression token type */
-   private static final int WORD = 1;
-   
-   /** Constant for word prefix match expression token type */
-   private static final int PREFIX = 2;
-   
-   /** Constant for logical AND operator match expression token type */
-   private static final int AND = 3;
-   
-   /** Constant for logical OR operator match expression token type */
-   private static final int OR = 4;
-   
-   /** Constant for left parenthesis match expression token type */
-   private static final int LPARENS = 5;
-   
-   /** Constant for right parenthesis match expression token type */
-   private static final int RPARENS = 6;
-   
    /** Cache of match expressions to parsed ASTs */
-   private static final Map<String, Ast> cache = new ConcurrentHashMap<>();
+   private static final Map<String, List<EToken>> cache = new ConcurrentHashMap<>();
    
    /** Single character word delimiter for data strings */
    private final Set<String> delim = new HashSet<>();
@@ -148,8 +129,8 @@
    /** Should matches be checked case-sensitively? */
    private final boolean caseSensitive;
    
-   /** Parsed match expression AST, used to evaluate matches with string data */
-   private final Ast exprAst;
+   /** Parsed match expression RPN, used to evaluate matches with string data */
+   private final List<EToken> exprRPN;
    
    /**
     * Constructor.
@@ -188,83 +169,10 @@
          this.delim.add(String.valueOf(ch));
       }
       this.caseSensitive = caseSensitive;
-      Ast ast = cache.get(expr);
-      if (ast == null)
-      {
-         ast = parseExpression(expr);
-         cache.putIfAbsent(expr, ast);
-      }
-      this.exprAst = ast;
-   }
-   
-   /**
-    * Look up the string representation of a match expression token type.
-    * 
-    * @param   type
-    *          Token type.
-    * 
-    * @return  Symbolic token name.
-    */
-   private static String lookupTokenName(int type)
-   {
-      String name = null;
-      
-      switch (type)
-      {
-         case WORD:
-            name = "WORD";
-            break;
-         case PREFIX:
-            name = "PREFIX";
-            break;
-         case AND:
-            name = "AND";
-            break;
-         case OR:
-            name = "OR";
-            break;
-         case LPARENS:
-            name = "LPARENS";
-            break;
-         case RPARENS:
-            name = "RPARENS";
-            break;
-         case NONE:
-            name = "NONE";
-            break;
-         default:
-            name = "<unknown>";
-            break;
-      }
-      
-      return name;
-   }
-   
-   /**
-    * Parse the given match expression into an AST which can be used to evaluate matches.
-    * 
-    * @param   expr
-    *          Match expression which uses CONTAINS operator syntax.
-    * 
-    * @return  AST representing the match expression.
-    * 
-    * @throws  ErrorConditionException
-    *          if there is a syntax or an I/O error parsing the match expression.
-    */
-   private Ast parseExpression(String expr)
-   {
-      try
-      {
-         Reader reader = new StringReader(expr);
-         Lexer lexer = new Lexer(reader, delim, caseSensitive);
-         Parser parser = new Parser(lexer);
-         
-         return parser.parse();
-      }
-      catch (IOException exc)
-      {
-         throw new ErrorConditionException(exc);
-      }
+      this.exprRPN = expr == null ? Collections.emptyList() : cache.computeIfAbsent(
+            expr,
+            exp -> new LogicalExpressionConverter(exp, caseSensitive, delim).toRPN(false)
+      );
    }
    
    /**
@@ -282,105 +190,67 @@
     */
    public boolean evaluate(String data)
    {
-      boolean result = false;
-      
+      Stack<Boolean> stack = new Stack<>();
+      Set<String> words = words(data);
       try
       {
-         Reader reader = new StringReader(data);
-         int size = exprAst.getSize();
-         boolean[] results = new boolean[size];
-         
+         for (EToken token: exprRPN)
+         {
+            if (token instanceof Term)
+            {
+               stack.push(((Term)token).evaluate(words));
+            }
+            else if (token instanceof Op)
+            {
+               switch ((Op)token)
+               {
+               case NOT:
+                  stack.push(!stack.pop());
+                  break;
+               case AND:
+                  stack.push(stack.pop() & stack.pop());
+                  break;
+               case OR:
+                  stack.push(stack.pop() | stack.pop());
+                  break;
+               }
+            }
+         }
+         return stack.pop();
+      }
+      catch (EmptyStackException e)
+      {
+         throw new ErrorConditionException(e);
+      }
+   }
+   /**
+    * Split a string to a set of words
+    * @param data
+    *        string to be parsed
+    * @return
+    *        words contained in a string
+    */
+   public Set<String> words(String data)
+   {
+      Set<String> words = new HashSet<>();
+      try (Reader reader = new StringReader(data))
+      {
          String word;
-         while (!result && (word = nextWord(reader)) != null)
+         while ((word = nextWord(reader)) != null)
          {
-            result = evaluate(exprAst, word, results);
+            if (!caseSensitive)
+            {
+               word = word.toUpperCase();
+            }
+            words.add(word);
          }
-      }
-      catch (IOException exc)
-      {
-         throw new ErrorConditionException(exc);
-      }
-      
-      return result;
-   }
-   
-   /**
-    * Evaluate the match expression for a single expression node and return the result.
-    * <p>
-    * Positive results of individual AST node matches for each invocation of this method are
-    * preserved in the given array of results, which is indexed by the zero-based, contiguously
-    * assigned IDs of the nodes. This array is first consulted before evaluating a node match.
-    * If the result for that node already is set to {@code true} from a previous invocation for
-    * an earlier word in the data stream, the evaluation of that node is bypassed and the {@code
-    * true} result is returned.
-    * 
-    * @param   node
-    *          AST node currently being visited for evaluation.
-    * @param   word
-    *          Current word from the data stream to be matched.
-    * @param   results
-    *          Stateful array of results from previous invocations of this method against earlier
-    *          words in the data stream. If the current node of the AST match expression 
-    *          evaluates to {@code true}, the corresponding element in the array is updated
-    *          accordingly.
-    * 
-    * @return  {@code true} if the match operation for the current node succeeded, else {@code
-    *          false}.
-    */
-   private boolean evaluate(Ast node, String word, boolean[] results)
-   {
-      int i = node.id;
-      
-      if (results[i])
-      {
-         return true;
-      }
-      
-      boolean match = false;
-      
-      int type = node.getType();
-      switch (type)
-      {
-         case WORD:
-            // full word match
-            match = word.equals(node.getText());
-            break;
-         case PREFIX:
-            // partial (starts with) word match
-            match = word.startsWith(node.getText());
-            break;
-         case NONE:
-            // empty expression is silently ignored, but does not produce a match
-            break;
-         case AND:
-            // logical AND of two child nodes
-            {
-               boolean b1 = evaluate(node.down, word, results);
-               boolean b2 = evaluate(node.down.right, word, results);
-               match = b1 && b2;
-            }
-            break;
-         case OR:
-            // logical OR of two child nodes
-            {
-               boolean b1 = evaluate(node.down, word, results);
-               boolean b2 = evaluate(node.down.right, word, results);
-               match = b1 || b2;
-            }
-            break;
-         default:
-            break;
-      }
-      
-      if (match)
-      {
-         // update corresponding element in results array
-         results[i] = true;
-      }
-      
-      return match;
-   }
-   
+         return words;
+      }
+      catch (IOException | EmptyStackException e)
+      {
+         throw new ErrorConditionException(e);
+      }
+   }
    /**
     * Get the next word from the match string, using this object's delimiter.
     * <p>
@@ -405,7 +275,7 @@
       {
          char c = (char) next;
          
-         if (delim.contains(String.valueOf(c)))
+         if (Character.isWhitespace(c) || delim.contains(String.valueOf(c)))
          {
             reader.mark(1);
             
@@ -443,665 +313,6 @@
       return word;
    }
    
-   /**
-    * Lexer which builds a token stream from the match expression. Used by the parser to build
-    * an AST. Since the expressions syntax is very simple, lookahead is limited to one (the
-    * current) token.
-    */
-   private static class Lexer
-   {
-      /** String reader stream */
-      private final Reader reader;
-      
-      /** Should matches be checked case-sensitively? */
-      private final boolean caseSensitive;
-
-      /** The word-delimiter characters. */
-      private final Set<String> delim;
-      
-      /** Token most recently read from the expression */
-      private Token current = null;
-      
-      /** Flag indicating if the last char(s) read was a word delimiter. */
-      private boolean hasDelim = false;
-      
-      /**
-       * Constructor.
-       * 
-       * @param   reader
-       *          Reader stream on the match expression text.
-       * @param   caseSensitive
-       *          {@code true} to perform word match comparisons case-sensitively, {@code false}
-       *          to ignore case.
-       */
-      private Lexer(Reader reader, Set<String> delim, boolean caseSensitive)
-      {
-         this.reader = reader;
-         this.delim = delim;
-         this.caseSensitive = caseSensitive;
-      }
-      
-      /**
-       * Report the type of the most recently read token, or {@code NONE} if no more tokens are
-       * available.
-       * 
-       * @return  Token type of current token, or {@code NONE}.
-       * 
-       * @throws  IOException
-       *          if there is an I/O error reading from the stream.
-       */
-      int type()
-      throws IOException
-      {
-         if (current == null)
-         {
-            readNextToken();
-         }
-         
-         return (current != null ? current.type : NONE);
-      }
-      
-      /**
-       * Return the most recently read token, or {@code null} if no more tokens are available.
-       * 
-       * @return  Current token or {@code null}.
-       * 
-       * @throws  IOException
-       *          if there is an I/O error reading from the stream.
-       */
-      Token token()
-      throws IOException
-      {
-         if (current == null)
-         {
-            readNextToken();
-         }
-         
-         return current;
-      }
-      
-      /**
-       * Mark the current token as having been consumed.
-       */
-      void consume()
-      {
-         current = null;
-      }
-      
-      /**
-       * Read the next token from the match expression and store it as the lexer's current token.
-       * 
-       * @throws  IOException
-       *          if there is an I/O error reading from the stream.
-       */
-      private void readNextToken()
-      throws IOException
-      {
-         if (hasDelim)
-         {
-            current = new Token(AND, "");
-            hasDelim = false;
-
-            // consume all delimiter chars
-            reader.mark(1);
-            int next;
-            while ((next = reader.read()) >= 0)
-            {
-               char c = (char) next;
-               if (!delim.contains(String.valueOf(c)))
-               {
-                  break;
-               }
-
-               reader.mark(1);
-            }
-            
-            // reset just before the last non-delimiter char was read
-            reader.reset();
-            return;
-         }
-         
-         StringBuilder buf = new StringBuilder();
-         int type = NONE;
-         int next;
-         
-         read:
-         while ((next = reader.read()) >= 0)
-         {
-            char c = (char) next;
-            
-            if (delim.contains(String.valueOf(c)))
-            {
-               // consume all delimiter chars
-               hasDelim = true;
-               break;
-            }
-            
-            switch (c)
-            {
-               case '*':
-                  // wildcard which marks the current word as a prefix to be matched
-                  if (buf.length() == 0)
-                  {
-                     // wildcard cannot start a token
-                     wildcardError();
-                     
-                     break read;
-                  }
-                  type = PREFIX;
-                  reader.mark(0);
-                  break;
-                  
-               case '&':
-               case '|':
-               case '^':
-               case '!':
-               case '(':
-               case ')':
-                  if (buf.length() > 0)
-                  {
-                     // if a token is not finished being processed when we encounter this
-                     // character, we reset the reader to just before this character and
-                     // process that token first; the next time through, we'll process this
-                     // character in the else block below
-                     reader.reset();
-                  }
-                  else
-                  {
-                     switch (c)
-                     {
-                        case '&':
-                           type = AND;
-                           break;
-                        case '|':
-                        case '^':
-                        case '!':
-                           type = OR;
-                           break;
-                        case '(':
-                           type = LPARENS;
-                           break;
-                        case ')':
-                           type = RPARENS;
-                           break;
-                     }
-                     buf.append(c);
-                  }
-                  break read;
-                  
-               default:
-                  
-                  // if we've already encountered the wildcard indicator and we're now reading
-                  // more text to match, we have a syntax error
-                  if (type == PREFIX)
-                  {
-                     wildcardError();
-                     
-                     break read;
-                  }
-                  
-                  // all other content is interpreted as text to match
-                  buf.append(c);
-                  
-                  // mark the stream in case we need to reset upon hitting an operator or
-                  // parenthesis character before we have processed the current word/prefix
-                  reader.mark(0);
-                  break;
-            }
-         }
-         
-         Token tok = null;
-         
-         // if there is content in the buffer or a type has been assigned, create a token
-         if (type != NONE || buf.length() > 0)
-         {
-            String text = buf.toString();
-            if (!caseSensitive)
-            {
-               text = text.toUpperCase();
-            }
-            
-            if (type == NONE)
-            {
-               type = WORD;
-            }
-            
-            tok = new Token(type, text);
-         }
-         else if (type == NONE)
-         {
-            if (hasDelim)
-            {
-               hasDelim = false;
-               readNextToken();
-               return;
-            }
-            
-            tok = new Token(type, "");
-         }
-         
-         current = tok;
-      }
-      
-      /**
-       * Record or throw an error about incorrect wildcard syntax.
-       * 
-       * @throws  ErrorConditionException
-       *          always.
-       */
-      private void wildcardError()
-      {
-         String msg = "QBW syntax error - An asterisk (*) is allowed only at the end of a word";
-         
-         throw new ErrorConditionException(4686, msg);
-      }
-   }
-   
-   /**
-    * Contains match expression parser. Creates an AST that can be used to evaluate the
-    * expression against a data string.
-    */
-   private static class Parser
-   {
-      /** Contains match expression lexer */
-      private final Lexer lexer;
-      
-      /** Stack for intermediate AST nodes created during parsing */
-      private final Deque<Ast> stack = new LinkedList<>();
-      
-      /**
-       * Constructor.
-       * 
-       * @param   lexer
-       *          Contains match expression lexer.
-       */
-      Parser(Lexer lexer)
-      {
-         this.lexer = lexer;
-      }
-      
-      /**
-       * Parse the contains match expression.
-       * 
-       * @return  An AST representing the parsed expression.
-       * 
-       * @throws  ErrorConditionException
-       *          if there is any error recognizing expected tokens.
-       * @throws  IOException
-       *          if there is any error lexing tokens.
-       */
-      Ast parse()
-      throws IOException
-      {
-         orExpr();
-         
-         // at this point, we've parsed a complete expression; anything left is garbage
-         if (lexer.type() != NONE)
-         {
-            throw new ErrorConditionException("Unexpected token: " + lexer.token());
-         }
-         
-         Ast ast = popAst();
-         
-         ast.initialize(0);
-         
-         return ast;
-      }
-      
-      /**
-       * Parse the first (lowest) level of expression precedence: the binary OR operator.
-       * 
-       * @throws  ErrorConditionException
-       *          if there is any error recognizing expected tokens.
-       * @throws  IOException
-       *          if there is any error lexing tokens.
-       */
-      private void orExpr()
-      throws IOException
-      {
-         if (lexer.type() != OR)
-         {
-            andExpr();
-         }
-         
-         do
-         {
-            if (lexer.type() == OR)
-            {
-               Token operator = lexer.token();
-               Ast c1 = popAst();
-               lexer.consume();
-               andExpr();
-               Ast c2 = popAst();
-               
-               Ast ast = new Ast(operator);
-               ast.addChild(c1);
-               ast.addChild(c2);
-               stack.push(ast);
-            }
-            else
-            {
-               break;
-            }
-         } while (true);
-      }
-      
-      /**
-       * Parse the second level of expression precedence: the binary AND operator.
-       * 
-       * @throws  ErrorConditionException
-       *          if there is any error recognizing expected tokens.
-       * @throws  IOException
-       *          if there is any error lexing tokens.
-       */
-      private void andExpr()
-      throws IOException
-      {
-         if (lexer.type() != AND)
-         {
-            primaryExpr();
-         }
-         
-         do
-         {
-            if (lexer.type() == AND)
-            {
-               Token operator = lexer.token();
-               Ast c1 = popAst();
-               lexer.consume();
-               primaryExpr();
-               Ast c2 = popAst();
-               
-               Ast ast = new Ast(operator);
-               ast.addChild(c1);
-               ast.addChild(c2);
-               stack.push(ast);
-            }
-            else
-            {
-               break;
-            }
-         } while (true);
-      }
-      
-      /**
-       * Parse the third (highest) level of expression precedence: the primary match word or
-       * prefix, or a sub-expression in parentheses. Parenthesis tokens are not included as
-       * nodes in the AST, but they may change its structure.
-       * 
-       * @throws  ErrorConditionException
-       *          if there is any error recognizing expected tokens.
-       * @throws  IOException
-       *          if there is any error lexing tokens.
-       */
-      private void primaryExpr()
-      throws IOException
-      {
-         switch (lexer.type())
-         {
-            case NONE:
-               if (!stack.isEmpty())
-               {
-                  // TODO: proper Progress error
-                  throw new ErrorConditionException("Expression ended prematurely");
-               }
-               // fall-through intentional; we want to create a NONE token, if it is the only
-               // content of the expression (i.e., the full expression was empty string)
-            case WORD:
-            case PREFIX:
-               Ast ast = new Ast(lexer.token());
-               stack.push(ast);
-               lexer.consume();
-               break;
-            case LPARENS:
-               // uncomment the lines below to add LPARENS node to AST
-               // Ast lpAst = new Ast(lexer.token());
-               // stack.push(lpAst);
-               lexer.consume();
-               orExpr();
-               if (lexer.type() != RPARENS)
-               {
-                  // TODO: proper Progress error
-                  throw new ErrorConditionException("Expected closing parenthesis");
-               }
-               lexer.consume();
-               // uncomment the lines below to add LPARENS node to AST
-               // Ast child = popAst();
-               // lpAst.addChild(child);
-               // stack.push(lpAst);
-               break;
-            case RPARENS:
-               // TODO: proper Progress error
-               String msg = "Unexpected closing parenthesis " + lexer.token();
-               throw new ErrorConditionException(msg);
-            default:
-               throw new ErrorConditionException("Unrecognized token: " + lexer.token());
-         }
-      }
-      
-      /**
-       * Pop the top-most AST from the working stack.
-       * 
-       * @return  The top-most AST node.
-       * 
-       * @throws  ErrorConditionException
-       *          if there was no AST node on the working stack.
-       */
-      private Ast popAst()
-      {
-         try
-         {
-            return stack.pop();
-         }
-         catch (NoSuchElementException exc)
-         {
-            throw new ErrorConditionException("Internal parsing error");
-         }
-      }
-   }
-   
-   /**
-    * Match expression token.
-    */
-   private static class Token
-   {
-      /** Token type */
-      private final int type;
-      
-      /** Token text */
-      private final String text;
-      
-      /**
-       * Constructor.
-       * 
-       * @param   type
-       *          Token type.
-       * @param   text
-       *          Token text.
-       */
-      private Token(int type, String text)
-      {
-         this.type = type;
-         this.text = text;
-      }
-      
-      /**
-       * Return a string representation of this token.
-       * 
-       * @return  String representation for debug purposes.
-       */
-      @Override
-      public String toString()
-      {
-         return text + " <" + lookupTokenName(type) + ">";
-      }
-   }
-   
-   /**
-    * A minimalist AST implementation for match expressions.
-    */
-   private static class Ast
-   {
-      /** Token associated with this node */
-      private final Token token;
-      
-      /** Unique identifier of this node */
-      private int id = -1;
-      
-      /** First child node */
-      private Ast down = null;
-      
-      /** Next sibling node */
-      private Ast right = null;
-      
-      /** Number of nodes including and under this node */
-      private int size = -1;
-      
-      /**
-       * Constructor for a single AST expression node.
-       * 
-       * @param   token
-       *          Expression token.
-       */
-      private Ast(Token token)
-      {
-         this.token = token;
-      }
-      
-      /**
-       * Return a string representation of this node.
-       * 
-       * @return  See above.
-       */
-      @Override
-      public String toString()
-      {
-         return token.toString() + " id=" + id + " size=" + size;
-      }
-      
-      /**
-       * Get the number of nodes including and under this node.
-       * 
-       * @return  See above.
-       */
-      int getSize()
-      {
-         return size;
-      }
-      
-      /**
-       * Get the token type associated with this node.
-       * 
-       * @return  Token type.
-       */
-      int getType()
-      {
-         return token.type;
-      }
-      
-      /**
-       * Get the token text associated with this node.
-       * 
-       * @return  See above.
-       */
-      String getText()
-      {
-         return token.text;
-      }
-      
-      /**
-       * Add a child to this node.
-       * 
-       * @param   child
-       *          Child node to add.
-       */
-      void addChild(Ast child)
-      {
-         if (down == null)
-         {
-            down = child;
-            
-            return;
-         }
-         
-         Ast next = down;
-         while (next.right != null)
-         {
-            next = next.right;
-         }
-         
-         next.right = child;
-      }
-      
-      /**
-       * Initialize the {@code id} and {@code size} attributes of this and all descendant nodes.
-       * Walks the tree in a depth-first enumeration.
-       * 
-       * @param   next
-       *          ID to assign to this node.
-       * 
-       * @return  Next unique ID to be assigned to this node's first child or next sibling.
-       */
-      int initialize(int next)
-      {
-         id = next++;
-         
-         if (down != null)
-         {
-            next = down.initialize(next);
-         }
-         
-         size = next - id;
-         
-         if (right != null)
-         {
-            next = right.initialize(next);
-         }
-         
-         return next;
-      }
-      
-      /**
-       * Print a string representation of this tree to the given print stream for debug
-       * purposes.
-       * 
-       * @param   out
-       *          Target print stream.
-       */
-      void print(PrintStream out)
-      {
-         print(out, 0);
-      }
-      
-      /**
-       * Print a properly indented string representation of this single node to the given print
-       * stream.
-       * 
-       * @param   out
-       *          Target print stream.
-       * @param   level
-       *          Descendant level of this node in relation to the root node.
-       */
-      private void print(PrintStream out, int level)
-      {
-         for (int i = 0; i < level; i++)
-         {
-            out.append("   ");
-         }
-         
-         out.println(this);
-         
-         if (down != null)
-         {
-            down.print(out, level + 1);
-         }
-         
-         if (right != null)
-         {
-            right.print(out, level);
-         }
-      }
-   }
    
    /**
     * Simple test harness for command line testing.
@@ -1115,16 +326,19 @@
       try
       {
          String expr = args[0];
-         String data = args[1];
-         boolean caseSens = args.length > 2 && !"0".equals(args[2]);
-         Contains contains = new Contains(expr, caseSens, ' ');
-         contains.exprAst.print(System.out);
-         boolean match = contains.evaluate(data);
-         System.out.println("Result = " + match);
+//         boolean caseSens = args.length > 2 && !"0".equals(args[2]);
+         Contains contains = new Contains(expr, true);
+         System.out.println(contains.exprRPN);
+         for (int i = 1; i < args.length; i++)
+         {
+            String data = args[i];
+            boolean match = contains.evaluate(data);
+            System.out.printf("[%s]: %s\n", data, match);
+         }
       }
-      catch (Exception exc)
+      catch (Exception e)
       {
-         exc.printStackTrace();
+         e.printStackTrace();
       }
    }
 }

=== modified file 'src/com/goldencode/p2j/persist/pl/Functions.java'
--- src/com/goldencode/p2j/persist/pl/Functions.java	2020-09-06 23:15:41 +0000
+++ src/com/goldencode/p2j/persist/pl/Functions.java	2020-12-23 16:58:23 +0000
@@ -91,6 +91,7 @@
 ** 039 AIL 20191111          Change initialization of ErrorHandler's static context.
 ** 040 ECF 20200504          Added missing alias for entryIn(Long, String).
 ** 041 OM  20200212          Unknown value fixes.
+** 042 IAS 20201121          Added 'words' functions.
 */
 
 /*
@@ -250,6 +251,46 @@
    }
    
    /**
+    * Split a string to an array of words
+    * @param data
+    *        string to be parsed
+    * @return
+    *        words contained in a string
+    */
+   @HQLFunction
+   public static String[] words(String data)
+   {
+      return words(data, false);
+   }
+   
+   /**
+    * Split a string to an array of words
+    * @param data
+    *        string to be parsed
+    * @param toUpperCase
+    *        convert words to uppercase
+    * @return
+    *        words contained in a string
+    */
+   @HQLFunction
+   public static String[] words(String data, boolean toUpperCase)
+   {
+      if (data == null)
+      {
+         return new String[0];
+      }
+      try
+      {
+         return new Contains(null, !toUpperCase, delims()).words(data.trim()).toArray(new String[0]);
+      }
+      catch (RuntimeException exc)
+      {
+         ErrorHandler.handleError(exc);
+         return null;
+      }
+   }
+   
+   /**
     * Test whether a data string contains the word(s) indicated by the given expression.
     * optionally taking case into account.
     */
@@ -268,41 +309,47 @@
    {
       try
       {
-         String explicitDelims = System.getProperty(WORD_DELIMITERS);
-         if (explicitDelims == null)
-         {
-            explicitDelims = System.getenv(WORD_DELIMITERS);
-         }
-         char[] delims = null;
-         if (explicitDelims == null)
-         {
-            // WARNING: this list is not exhaustive.  4GL has a kind of 'if it can't be part of
-            // a word, then it must be a delimiter' approach, as there is no explicit list of
-            // delimiters in the proword.0 (or proword.def) file
-            // TODO: enhance this to all the proper default delimiter chars.
-            delims = DEFAULT_WORD_DELIMITERS;
-         }
-         else
-         {
-            String[] toks = explicitDelims.split(",");
-            delims = new char[toks.length];
-            for (int i = 0; i < toks.length; i++)
-            {
-               delims[i] = (char) Integer.parseInt(toks[i], 16);
-            }
-         }
-         
-         Contains contains = new Contains(expr, caseSensitive, delims);
-         
-         return contains.evaluate(data);
+         return new Contains(expr, caseSensitive, delims()).evaluate(data);
+         
       }
       catch (RuntimeException exc)
       {
          ErrorHandler.handleError(exc);
-         
          return null;
       }
    }
+
+   /**
+    * Get word delimiters 
+    * @return word delimiters.
+    */
+   private static char[] delims()
+   {
+      String explicitDelims = System.getProperty(WORD_DELIMITERS);
+      if (explicitDelims == null)
+      {
+         explicitDelims = System.getenv(WORD_DELIMITERS);
+      }
+      char[] delims = null;
+      if (explicitDelims == null)
+      {
+         // WARNING: this list is not exhaustive.  4GL has a kind of 'if it can't be part of
+         // a word, then it must be a delimiter' approach, as there is no explicit list of
+         // delimiters in the proword.0 (or proword.def) file
+         // TODO: enhance this to all the proper default delimiter chars.
+         delims = DEFAULT_WORD_DELIMITERS;
+      }
+      else
+      {
+         String[] toks = explicitDelims.split(",");
+         delims = new char[toks.length];
+         for (int i = 0; i < toks.length; i++)
+         {
+            delims[i] = (char) Integer.parseInt(toks[i], 16);
+         }
+      }
+      return delims;
+   }
    
    /**
     * Returns the character value of a numeric expression which must be
@@ -3511,4 +3558,12 @@
    {
       return i == null ? null : i.longValue();
    }
+   
+   public static void main(String... args) throws Exception
+   {
+      for (String s: words(args[0], true))
+      {
+         System.out.println(s);
+      }
+   }
 }

=== modified file 'src/com/goldencode/p2j/persist/serial/ExtentTracker.java'
--- src/com/goldencode/p2j/persist/serial/ExtentTracker.java	2019-01-28 07:24:19 +0000
+++ src/com/goldencode/p2j/persist/serial/ExtentTracker.java	2020-11-20 18:40:59 +0000
@@ -2,11 +2,13 @@
 ** Module   : ExtentTracker.java
 ** Abstract : Helper object to track extents during temp-table data import.
 **
-** Copyright (c) 2017-2019, Golden Code Development Corporation.
+** Copyright (c) 2017-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20190123 Extracted from XmlImport.
+** 002 OM  20201120 Small fix in constructor.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -86,7 +88,7 @@
       for (TempTableSchema.Column column : schema.columns())
       {
          Integer extent = column.getExtent();
-         if (extent != null)
+         if (extent != null && extent > 0)
          {
             String name = column.getName();
             ExtentTracker.Tracker tracker = new Tracker(extent);
@@ -173,4 +175,4 @@
          current = 0;
       }
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/persist/serial/JsonExport.java'
--- src/com/goldencode/p2j/persist/serial/JsonExport.java	2021-01-30 11:24:40 +0000
+++ src/com/goldencode/p2j/persist/serial/JsonExport.java	2021-01-31 10:14:52 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2019-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20190107 Created initial version.
 ** 002 OM  20190327 Renamed DataSource to avoid conflicts with DataSet source.
 ** 003 OM  20190626 Added serialization support for DATASETs.
@@ -16,6 +16,8 @@
 ** 005 ECF 20200906 New ORM implementation.
 ** 006 CA  20200914 Added blob, raw, rowid and handle support.
 ** 007 CA  20200927 Use IdentityHashMap instead of plain map when the key is a Class.
+** 008 OM  20201120 Improved compatibility with P4GL.
+** 009 ME  20210130 Added serializeTempTable method into JsonArray.
 */
 
 /*
@@ -156,7 +158,12 @@
                              boolean beforeImage)
    throws PersistenceException
    {
-      try (OutputStream out = target.getOutputStream())
+      if (!target.configureSupportedTargets(TargetData.TD_WRITE_JSON, LegacyResource.DATASET + " widget"))
+      {
+         return;
+      }
+      
+      try (OutputStream out = target.getStream())
       {
          StreamJsonSerializer sjs = new StreamJsonSerializer(out, encoding, pretty);
          exportDataSet(dataSet, noInit, noOuter, beforeImage, sjs);
@@ -323,7 +330,12 @@
                                 logical omitOuterObject)
    throws PersistenceException
    {
-      try (OutputStream out = target.getOutputStream())
+      if (!target.configureSupportedTargets(TargetData.TD_WRITE_JSON, LegacyResource.TEMP_TABLE + " widget"))
+      {
+         return;
+      }
+      
+      try (OutputStream out = target.getStream())
       {
          boolean pretty = formatted != null && !formatted.isUnknown() && formatted.booleanValue();
          StreamJsonSerializer sjs = new StreamJsonSerializer(out, encoding, pretty);
@@ -380,37 +392,64 @@
    }
    
    /**
-    * Serializes TEMP-TABLE to json.
-    *
-    * @param   buffer
-    *          Temp-table buffer in which data is stored.
-    * @param   omitInitialValues
-    *          {@code True} to omit data for fields whose values match their initial values.
-    * @param   json
-    *          This is the target for the deserialized json data.
-    *
-    * @throws  PersistenceException
-    *          On persistence issues.
+    * Exports a single record in JSON format.
+    *
+    * @param   bufferImpl
+    *          The buffer holding the record to be exported.
+    * @param   targetData
+    *          The output struture.
+    * @param   formatted
+    *          Use {@code true} to have a pretty output. Otherwise the output is generated on a single line.
+    * @param   jsonEncoding
+    *          The encoding to be used.
+    * @param   omitInitial
+    *          If {@code true} the initial/default values are skipped.
+    * @param   omitOuter
+    *          Omit outer values.
+    *
+    * @return  The buffer holding the record to be exported.
     */
-   public void readTempBuffer(TemporaryBuffer buffer,
-                                logical omitInitialValues,
-                                JsonStructureCallback json)
-   throws PersistenceException
+   public boolean exportRecord(BufferImpl bufferImpl,
+                               TargetData targetData,
+                               boolean formatted,
+                               JsonEncoding jsonEncoding,
+                               boolean omitInitial,
+                               boolean omitOuter)
    {
-      boolean noInit = !omitInitialValues.isUnknown() && omitInitialValues.getValue();
-      
-      try
-      {
-         serializeTempTable(json, buffer, noInit);
-      }
-      catch (IOException exc)
-      {
-         throw new PersistenceException("Error exporting JSON data", exc);
-      }
-      catch (RuntimeException exc)
-      {
-         throw new PersistenceException(exc.getMessage(), exc);
-      }
+      if (!targetData.configureSupportedTargets(TargetData.TD_WRITE_JSON, LegacyResource.BUFFER + " widget"))
+      {
+         return false;
+      }
+      
+      TemporaryBuffer tempBuffer = (TemporaryBuffer) bufferImpl.buffer();
+      XmlTempTableSchema schema = new XmlTempTableSchema(tempBuffer);
+//      if (checkSupportedTypes(schema))
+//      {
+//         return false;
+//      }
+      
+      try (OutputStream out = targetData.getStream())
+      {
+         StreamJsonSerializer json = new StreamJsonSerializer(out, jsonEncoding, formatted);
+         if (!omitOuter)
+         {
+            json.startObject();
+            json.fieldName(bufferImpl.doGetName());
+         }
+         writeRecord(json, tempBuffer, tempBuffer.getCurrentRecord(), schema, bufferImpl.doGetName(),
+                     true, false, false, false, omitInitial);
+         if (!omitOuter)
+         {
+            json.endObject();
+         }
+         json.closeStream();
+      }
+      catch (IOException e)
+      {
+         return false;
+      }
+      
+      return true;
    }
    
    /**
@@ -436,34 +475,42 @@
     * @param   dsFlags
     *          {@code true} to add the internal flags specific to DataSet TempTable records.
     * @param   dsBeforeImage
-    *          {@code true} to write the before-image if available. 
-    *  
+    *          {@code true} to write the before-image if available.
+    *
+    * @return  {@code true} if everything went fine, and {@code false} if a non-fatal error was encountered
+    *
     * @throws  IOException
     *          If exceptions occur during the serialization.
     */
-   private void serializeTempTable(JsonStructureCallback json,
-                                   DataRelation relation,
-                                   TemporaryBuffer buffer,
-                                   String overrideBeforeName,
-                                   boolean noInit,
-                                   boolean omitOuter,
-                                   boolean hiddenFields,
-                                   boolean dsFlags,
-                                   boolean dsBeforeImage)
+   private boolean serializeTempTable(JsonStructureCallback json,
+                                      DataRelation relation,
+                                      TemporaryBuffer buffer,
+                                      String overrideBeforeName,
+                                      boolean noInit,
+                                      boolean omitOuter,
+                                      boolean hiddenFields,
+                                      boolean dsFlags,
+                                      boolean dsBeforeImage)
    throws IOException
    {
       TempTableSchema schema = new TempTableSchema(buffer);
       boolean isBefore = (overrideBeforeName != null);
+      TempTable tempTable = (TempTable) buffer.tableHandle().get();
+      String serializeName = tempTable.getSerializeName().toJavaType();
       String tableName = isBefore 
-                            ? overrideBeforeName 
-                            : !schema.getSerializeOptions().getSerializeName().isEmpty() 
-                                ? schema.getSerializeOptions().getSerializeName()
+                            ? overrideBeforeName
+                            : serializeName != null && !serializeName.isEmpty() 
+                                ? serializeName
                                 : schema.getTableName();
-
+      
+//      if (checkSupportedTypes(schema))
+//      {
+//         return false;
+//      }
+      
       if (relation == null)
       {
-         // reads records in order of primary index, if available, else in ascending primary key
-         // order
+         // reads records in order of primary index, if available, else in ascending primary key order
          if (!omitOuter)
          {
             json.startObject();
@@ -473,7 +520,7 @@
             json.fieldName(tableName);
          }
          json.startArray();
-
+         
          buffer.readAllRows(
                (dmo) -> writeRecord(json,
                                     buffer,
@@ -485,14 +532,14 @@
                                     dsFlags && isBefore,
                                     dsBeforeImage,
                                     noInit));
-
+         
          json.endArray();
          if (!omitOuter)
          {
             json.endObject();
          }
          
-         return;
+         return true;
       }
       
       // build a query depending on the relation, and add each record from the relation
@@ -527,12 +574,12 @@
       {
          json.endArray();
       }
+      
+      return true;
    }
    
    /**
-    * Actual implementation of a table serialization. This is called for both for TEMP-TABLEs
-    * (once) and for DATASETs (one time for each member buffer, and supplementary for any eventual
-    * before-buffer)
+    * Actual implementation of a table serialization into a JsonArray (only rows). 
     * 
     * @param   json
     *          The target of the deserialized json data.
@@ -540,21 +587,23 @@
     *          A buffer of the temp-table to be serialized. 
     * @param   noInit
     *          Skip the initial values.
-    *  
+
     * @throws  IOException
     *          If exceptions occur during the serialization.
     */
-   private void serializeTempTable(JsonStructureCallback json,
-                                   TemporaryBuffer buffer,
-                                   boolean noInit)
+   public boolean serializeTempTable(JsonStructureCallback json,
+                                      TemporaryBuffer buffer,
+                                      boolean noInit)
    throws IOException
    {
       TempTableSchema schema = new TempTableSchema(buffer);
-      String tableName = !schema.getSerializeOptions().getSerializeName().isEmpty() 
-                                ? schema.getSerializeOptions().getSerializeName()
+      TempTable tempTable = (TempTable) buffer.tableHandle().get();
+      String serializeName = tempTable.getSerializeName().toJavaType();
+      String tableName = serializeName != null && !serializeName.isEmpty() 
+                                ? serializeName
                                 : schema.getTableName();
-
-      buffer.readAllRows(
+      
+         buffer.readAllRows(
                (dmo) -> writeRecord(json,
                                     buffer,
                                     dmo,
@@ -565,8 +614,8 @@
                                     false,
                                     false,
                                     noInit));
-
-      
+         
+         return true;
    }
    
    /**
@@ -606,8 +655,6 @@
          return;
       }
       
-      // TODO: noInit !!!
-      
       Integer rowState = dmo._rowState();
       if (rowState == null)
       {
@@ -615,19 +662,8 @@
       }
       if (skipCreateFields && rowState == Buffer.ROW_CREATED)
       {
-         // NOTE: it seems like the CREATED records are NOT serialized at all for
-         //       BEFORE TEMP-TABLEs, so these value should not reach past this point, so those
-         //       records are cut here.
-         return;
-      }
-      
-      String unsupportedType = Util.checkSupportedTypes(schema);
-      if (unsupportedType != null)
-      {
-         // NOTE: this test is executed for each serialized row! Error 15391 is printed multiple
-         //       times in message line, one for each record. 
-         ErrorManager.recordOrShowError(15391, unsupportedType);
-         // Unsupported data type for JSON serialization: <datatype>.
+         // NOTE: it seems like the CREATED records are NOT serialized at all for BEFORE TEMP-TABLEs, so these
+         //       values should not reach past this point, so the records are cut here
          return;
       }
       
@@ -665,9 +701,26 @@
             }
             
             Integer extent = column.getExtent();
-            
-            if (extent != null)
+            if (extent != null && extent > 0)
             {
+               if (noInit)
+               {
+                  boolean untouched = true;
+                  for (int i = 0; i < extent; i++)
+                  {
+                     if (column.isChanged((BaseDataType) column.getGetter().invoke(dmo, i)))
+                     {
+                        untouched = false;
+                        break; // drop all other tests from this extent 
+                     }
+                  }
+                  
+                  if (untouched)
+                  {
+                     continue; // skip to next column
+                  }
+               }
+               
                json.fieldName(name);
                json.startArray();
                
@@ -680,6 +733,13 @@
             }
             else
             {
+               if (noInit)
+               {
+                  if (!column.isChanged((BaseDataType) column.getGetter().invoke(dmo)))
+                  {
+                     continue; // skip to next column
+                  }
+               }
                writeDatum(json, column, dmo, null);
             }
          }
@@ -688,7 +748,7 @@
          {
             BufferImpl buf = (BufferImpl) buffer.getDMOProxy();
             
-            DataSet ds = (DataSet) buf.dataSet().getResource();
+            DataSet ds = buf._dataSet();
             if (ds != null)
             {
                // position the buffer on this DMO
@@ -721,6 +781,26 @@
    }
    
    /**
+    * Checks supported data types. The evaluation is delegated to {@code Util.checkSupportedTypes()}.
+    * The method returns {@code true} and prints an error messages is unsupported types are detected.
+    * 
+    * @return  {@code true} if a type problem was discovered.
+    */
+   private boolean checkSupportedTypes(TempTableSchema schema)
+   {
+      String unsupportedType = Util.checkSupportedTypes(schema);
+      if (unsupportedType != null)
+      {
+         // NOTE: this test is executed for each serialized row! Error 15391 is printed multiple
+         //       times in message line, one for each record. 
+         ErrorManager.recordOrShowError(15391, unsupportedType);
+         // Unsupported data type for JSON serialization: <datatype>.
+         return true;
+      }
+      return false;
+   }
+   
+   /**
     * Write a single data value to the JSON generator's output stream, according to the
     * instructions stored in the temp-table schema.
     *
@@ -733,6 +813,8 @@
     * @param   index
     *          Zero-based index of an extent field element. Should be {@code null} for a scalar
     *          field.
+    *
+    * @return  {@code false} on errors. The error was already reported through {@code ErrorManager}.  
     * 
     * @throws  IOException
     *          if the JSON generator cannot write data.
@@ -743,7 +825,7 @@
     * @throws  IllegalAccessException
     *          if there is an access/security problem.
     */
-   private void writeDatum(JsonStructureCallback json,
+   private boolean writeDatum(JsonStructureCallback json,
                            TempTableSchema.Column column,
                            Record dmo,
                            Integer index)
@@ -764,7 +846,13 @@
       if (((BaseDataType) datum).isUnknown())
       {
          json.nullValue();
-         return;
+         return true;
+      }
+      else if (!Util.checkSupportedType(column))
+      {
+         ErrorManager.recordOrThrowError(17586, Util.getLegacyType(column.getType()));
+         // Unsupported data type for JSON serialization: <datatype>.
+         return false;
       }
       
       // lookup JSON writer function by data type; we cache lambdas to minimize use of
@@ -852,7 +940,9 @@
          }
          else
          {
-            throw new RuntimeException("Field type " + type + " is not supportef for JSON!");
+            ErrorManager.recordOrShowError(15391, Util.getLegacyType(type)); 
+            // Unsupported data type for JSON serialization: <datatype>.
+            return false;
          }
          
          // TODO: other data types ?
@@ -865,12 +955,13 @@
       
       if (fn == null)
       {
-         UnimplementedFeature.missing("JSON export for type: " + type);
-         
-         return;
+         ErrorManager.recordOrShowError(15391, Util.getLegacyType(type));
+         // Unsupported data type for JSON serialization: <datatype>.
+         return false;
       }
       
       fn.accept(datum);
+      return true;
    }
    
    /**

=== modified file 'src/com/goldencode/p2j/persist/serial/JsonImport.java'
--- src/com/goldencode/p2j/persist/serial/JsonImport.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/persist/serial/JsonImport.java	2021-01-27 01:54:24 +0000
@@ -2,14 +2,15 @@
 ** Module   : JsonImport.java
 ** Abstract : Read JSON content into a temp-table.
 **
-** Copyright (c) 2017-2019, Golden Code Development Corporation.
+** Copyright (c) 2017-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20190123 Created initial version.
 ** 002 OM  20190327 Renamed DataSource to avoid conflicts with DataSet source.
 ** 003 OM  20190818 Improve reading and validation support.
 ** 004 ECF 20200906 New ORM implementation.
 **     CA  20200906 Batch error fix.
+** 005 OM  20210108 Improve reading compatibility with ABL JSON files.
 */
 
 /*
@@ -71,8 +72,10 @@
 import java.util.*;
 import com.fasterxml.jackson.core.*;
 import com.fasterxml.jackson.databind.*;
+import com.goldencode.p2j.*;
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.persist.lock.*;
+import com.goldencode.p2j.persist.orm.*;
 import com.goldencode.p2j.util.*;
 import static com.fasterxml.jackson.core.JsonToken.*;
 import static com.goldencode.p2j.persist.serial.SerializeOptions.*;
@@ -99,6 +102,9 @@
    /** Helper which tracks current index values for extent fields */
    private ExtentTracker extentTracker;
    
+   /** The primary index which drives the duplicate resolution, in case the read mode is REPLACE. */
+   private P2JIndex primaryIndex = null;
+   
    /** JSON parser */
    private JsonParser parser = null;
    
@@ -108,8 +114,10 @@
    /** Current dataset, if one is being processed. */
    private DataSet ds = null;
    
+   /** {@code true} when reading a before-table image. */
    private boolean readingBefore = false;
    
+   /** Associates the {@code prod:id} to their record's {@code rowid}.*/
    private Map<String, rowid> peerMapping = null;
    
    /**
@@ -142,6 +150,11 @@
    public boolean readTable(TemporaryBuffer buffer)
    throws PersistenceException
    {
+      if (!source.configureSupportedSources(SourceData.SD_READ_JSON, LegacyResource.TEMP_TABLE + " widget"))
+      {
+         return false;
+      }
+      
       this.schema = new TempTableSchema(buffer);
       this.proxy = (Buffer) buffer.getDMOProxy();
       this.extentTracker = new ExtentTracker(schema);
@@ -155,7 +168,7 @@
       JsonFactory factory = mapper.getFactory();
       String tableName = schema.getTableName();
       
-      try (InputStream stream = source.getInputStream();
+      try (InputStream stream = source.getStream();
            JsonParser parser = factory.createParser(stream))
       {
          this.parser = parser;
@@ -214,10 +227,15 @@
    public boolean readDataset(DataSet ds)
    throws PersistenceException
    {
+      if (!source.configureSupportedSources(SourceData.SD_READ_JSON, LegacyResource.DATASET + " widget"))
+      {
+         return false;
+      }
+      
       ObjectMapper mapper = new ObjectMapper();
       JsonFactory factory = mapper.getFactory();
       
-      try (InputStream stream = source.getInputStream();
+      try (InputStream stream = source.getStream();
            JsonParser parser = factory.createParser(stream))
       {
          this.ds = ds;
@@ -232,18 +250,14 @@
          }
          
          String name = parser.nextFieldName();
-         if (!ds.name().toStringMessage().equals(name))
+         String dsName = ds.name().toStringMessage();
+         if (!dsName.equals(name))
          {
-            // TODO: proper message and error reporting
-            String msg = "Mismatched table names in JSON and temp-table schema";
-//                     String msg = "Temp-Table name '" +
-//                                  tableName +
-//                                  "' in namespace '' not found in JSON Document.";
-//                     ErrorManager.displayError(13514, msg);
-
-//               throw new PersistenceException(msg);
+            ErrorManager.recordOrShowError(15375, name, dsName);
+            // Dataset name '<name>' in JSON does not match '<name>'.
             return false;
          }
+         
          if (!readDataSetContent())
          {
             return false;
@@ -253,6 +267,11 @@
             return false;
          }
       }
+      catch (FileNotFoundException exc)
+      {
+         ErrorManager.recordOrShowError(293, source.getFileName());
+         return false;
+      }
       catch (IOException exc)
       {
          throw new PersistenceException(exc);
@@ -339,6 +358,19 @@
                this.schema = new TempTableSchema(buffer.buffer());
                this.proxy = (Buffer) buffer.buffer().getDMOProxy();
                this.extentTracker = new ExtentTracker(schema);
+               this.primaryIndex = null;
+               
+               if (readMode == Read.REPLACE && !readingBefore)
+               {
+                  // the REPLACE mode needs primary unique index declared for the after table
+                  this.primaryIndex = buffer.buffer().getDmoInfo().getPrimaryIndex(true);
+                  if (this.primaryIndex == null)
+                  {
+                     ErrorManager.recordOrShowError(13063, schema.getTableName());
+                     // REPLACE mode requires a unique primary index in the target table <table>.
+                     return false;
+                  }
+               }
                
                readTableContent();
             }
@@ -419,6 +451,7 @@
       String name = null;
       boolean processNested = false;
       boolean batchError = true;
+      RecordBuffer recBuffer = ((BufferImpl) proxy).buffer();
       try
       {
          RecordBuffer.startBatch(true);
@@ -439,7 +472,7 @@
                if (tok == START_ARRAY)
                {
                   // this is a nested DataSet table: the current row is assumed complete,
-                  // allow batch to end and call recursivelly
+                  // allow batch to end and call recursively
                   processNested = true;
                   batchError = false;
                   break;
@@ -525,7 +558,63 @@
       finally
       {
          extentTracker.reset();
+         
+         if (readMode == Read.MERGE || readMode == Read.REPLACE)
+         {
+            boolean validated = false;
+            try
+            {
+               validated = recBuffer.validate(false);
+            }
+            catch (ValidationException e)
+            {
+               // ignore, no 'expected' exception will be thrown
+            }
+            
+            // was there an unique conflict with this record?
+            if (!validated)
+            {
+               if (readMode == Read.MERGE)
+               {
+                  // merge mode: ignore it, just skip to next record
+                  proxy.release(); // TODO: not enough 
+               }
+               else
+               {
+                  // replace mode: eliminate competition, then try again on clean ground
+                  try
+                  {
+                     OrmUtils.dropUniqueIndexConflicts(recBuffer.buffer(),
+                                                       recBuffer.buffer().getPersistence(),
+                                                       recBuffer.buffer().getMultiplexID());
+                  }
+                  catch (PersistenceException e)
+                  {
+                     throw new ErrorConditionException(
+                           "FILL: Failed to make room for new record in REPLACE mode", e);
+                  }
+                  // now there should not be any collisions and the new record should be flushed
+               }
+            }
+         }
+         
+         ErrorManager.ErrorHelper eh = ErrorManager.getErrorHelper();
+         boolean wm = eh.isWarningMode();
+         if (!wm)
+         {
+            // this is mostly for APPEND mode, the other ones will not encounter issues here
+            eh.setWarningMode(true);
+         }
          RecordBuffer.endBatch(batchError);
+         if (!wm)
+         {
+            eh.setWarningMode(false);
+         }
+         // if (ErrorManager.error().toJavaType())
+         if (ErrorManager.isPendingError())
+         {
+            return false;
+         }
       }
       
       if (processNested)

=== added file 'src/com/goldencode/p2j/persist/serial/Serializator.java'
--- src/com/goldencode/p2j/persist/serial/Serializator.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/persist/serial/Serializator.java	2021-01-21 22:49:45 +0000
@@ -0,0 +1,133 @@
+/*
+** Module   : Serializator.java
+** Abstract : An interface for storing common constants from SourceData and TargetData.
+**
+** Copyright (c) 2021, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- -------------------------------Description--------------------------------
+** 001 OM  20210120 Initial version.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+**
+** Additional terms under GNU Affero GPL version 3 section 7:
+**
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+**
+**   0. Attribution Requirement.
+**
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+**
+**   1. No License To Use Trademarks.
+**
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+**
+**   2. No Misrepresentation of Affiliation.
+**
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+**
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+**
+**   3. No Misrepresentation of Source or Origin.
+**
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.persist.serial;
+
+import java.io.*;
+
+/**
+ * An interface for storing common constants from Source and TargetData. It also declares a single method,
+ * {@code getStream()} which will have to be implemented by returning the appropriate stream to be processed
+ * by the XML/JSON processors.
+ */
+public interface Serializator
+extends Closeable
+{
+   /** Bit constant: the method supports FILE read/write operations. */
+   public static final int SER_FILE =           0x0001;
+   
+   /** Bit constant: the method supports STREAM read/write operations. */
+   public static final int SER_STREAM =         0x0002;
+   
+   /** Bit constant: the method supports STREAM_HANDLE read/write operations. */
+   public static final int SER_STREAM_HANDLE =  0x0004;
+   
+   /** Bit constant: the method supports MEMPTR read/write operations. */
+   public static final int SER_MEMPTR =         0x0008;
+   
+   /** Bit constant: the method supports HANDLE read/write operations. */
+   public static final int SER_HANDLE =         0x0010;
+   
+   /** Bit constant: the method supports LONGCHAR read/write operations. */
+   public static final int SER_LONGCHAR =       0x0020;
+   
+   /** Bit constant: the method supports JSON_OBJECT read/write operations. */
+   public static final int SER_JSON_OBJECT =    0x0040;
+   
+   /** Bit constant: the method supports JSON_ARRAY read/write operations. */
+   public static final int SER_JSON_ARRAY =     0x0080;
+   
+   /** String constant: case insensitive (in uppercase) for serialization into/from a FILE. */
+   public static final String TYPE_FILE =           "FILE";
+   
+   /** String constant: case insensitive (in uppercase) for serialization into/from a STREAM variable. */
+   public static final String TYPE_STREAM =         "STREAM";
+   
+   /** String constant: case insensitive (in uppercase) for serialization into/from a STREAM-HANDLE. */
+   public static final String TYPE_STREAM_HANDLE =  "STREAM-HANDLE";
+   
+   /** String constant: case insensitive (in uppercase) for serialization into/from a MEMPTR variable. */
+   public static final String TYPE_MEMPTR =         "MEMPTR";
+   
+   /** String constant: case insensitive (in uppercase) for serialization into/from a HANDLE. */
+   public static final String TYPE_HANDLE =         "HANDLE";
+   
+   /** String constant: case insensitive (in uppercase) for serialization into/from a LONGCHAR variable. */
+   public static final String TYPE_LONGCHAR =       "LONGCHAR";
+   
+   /** String constant: case insensitive (in uppercase) for serialization into/from a JsonObject variable. */
+   public static final String TYPE_JSON_OBJECT =    "JSONOBJECT";
+   
+   /** String constant: case insensitive (in uppercase) for serialization into/from a JsonArray variable. */
+   public static final String TYPE_JSON_ARRAY =     "JSONARRAY";
+   
+   /**
+    * The method to be implemented by the sources.
+    *
+    * @return  The stream as declared in the constructor, if any. Otherwise {@code null}. 
+    * 
+    * @throws  IOException
+    *          In case of errors while opening the stream.
+    */
+   public Closeable getStream() throws IOException;
+}

=== modified file 'src/com/goldencode/p2j/persist/serial/SerializeOptions.java'
--- src/com/goldencode/p2j/persist/serial/SerializeOptions.java	2019-12-03 21:59:03 +0000
+++ src/com/goldencode/p2j/persist/serial/SerializeOptions.java	2021-01-27 01:54:24 +0000
@@ -2,13 +2,14 @@
 ** Module   : SerializeOptions.java
 ** Abstract : Options related to serialized temp-table data.
 **
-** Copyright (c) 2017-2019, Golden Code Development Corporation.
+** Copyright (c) 2017-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 ECF 20171016 Created initial version.
 ** 002 OM  20181114 Made serializeName mutable.
 ** 003 HC  20190301 Extended XmlNodeType with other possible values.
 ** 004 CA  20191203 Made XmlNodeType class public.
+** 005 OM  20010121 Allow the field members be mutable.
 */
 
 /*
@@ -98,19 +99,19 @@
    }
    
    /** Should this field be omitted from serialized output? */
-   private final boolean serializeHidden;
+   private  boolean serializeHidden;
    
    /** Name of field in serialized output (overrides field name). */
    private String serializeName;
    
    /** XML schema data type of field. */
-   private final String xmlDataType;
+   private String xmlDataType;
    
    /** Name of element or attribute representing field in XML output. */
-   private final String xmlNodeName;
+   private String xmlNodeName;
    
    /** Node type of field in XML output. */
-   private final XmlNodeType xmlNodeType;
+   private XmlNodeType xmlNodeType;
    
    /**
     * Constructor.
@@ -142,8 +143,7 @@
    /**
     * Get the value of the serialize-hidden flag.
     * 
-    * @return  {@code true} if the associated field is not included in serialization, else
-    *          {@code false}.
+    * @return  {@code true} if the associated field is not included in serialization, else {@code false}.
     */
    public boolean isSerializeHidden()
    {
@@ -151,6 +151,17 @@
    }
    
    /**
+    * Sets the value of the serialize-hidden flag.
+    *
+    * @param   serializeHidden
+    *          {@code true} if the associated field is not included in serialization, else {@code false}.
+    */
+   public void setSerializeHidden(boolean serializeHidden)
+   {
+      this.serializeHidden = serializeHidden;
+   }
+   
+   /**
     * Get the name of the field in serialized output (overrides field name in table).
     * 
     * @return  Serialize name.
@@ -182,8 +193,18 @@
    }
    
    /**
-    * Get the node name of the field in XML output (overrides serialize-name and field name in
-    * table).
+    * Sets the XML schema data type of the associated field.
+    *
+    * @param   xmlDataType
+    *          The new XML schema data type.
+    */
+   public void setXmlDataType(String xmlDataType)
+   {
+      this.xmlDataType = xmlDataType;
+   }
+   
+   /**
+    * Get the node name of the field in XML output (overrides serialize-name and field name in table).
     * 
     * @return  XML node name.
     */
@@ -193,6 +214,17 @@
    }
    
    /**
+    * Sets the node name of the field in XML output (overrides serialize-name and field name in table).
+    *
+    * @param   xmlNodeName
+    *          The new XML node name.
+    */
+   public void setXmlNodeName(String xmlNodeName)
+   {
+      this.xmlNodeName = xmlNodeName;
+   }
+   
+   /**
     * Get the node type (element or attribute) in XML output.
     * 
     * @return  XML node type.
@@ -201,4 +233,15 @@
    {
       return xmlNodeType;
    }
+   
+   /**
+    * Sets the node type (element or attribute) in XML output.
+    *
+    * @param   xmlNodeType
+    *          The new XML node type.
+    */
+   public void setXmlNodeType(XmlNodeType xmlNodeType)
+   {
+      this.xmlNodeType = xmlNodeType;
+   }
 }

=== modified file 'src/com/goldencode/p2j/persist/serial/TempTableSchema.java'
--- src/com/goldencode/p2j/persist/serial/TempTableSchema.java	2020-09-06 23:15:41 +0000
+++ src/com/goldencode/p2j/persist/serial/TempTableSchema.java	2021-01-29 00:53:41 +0000
@@ -2,9 +2,9 @@
 ** Module   : TempTableSchema.java
 ** Abstract : Temp-table schema used for serialization, based on internal structure of the table.
 **
-** Copyright (c) 2017-2020, Golden Code Development Corporation.
+** Copyright (c) 2017-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20171020 Created initial version.
 ** 002 CA  20180511 Added XML-NODE-NAME table option support.
 ** 003 ECF 20190120 Refactored out XML-specific features into separate XmlTempTableSchema class.
@@ -12,6 +12,9 @@
 ** 005 OM  20190823 Added help and format field option.
 **     CA  20190826 Column lookup must be case-insensitive (as 4GL is case-insensitive).
 ** 006 ECF 20200906 New ORM implementation.
+** 007 OM  20201029 Added case sensitive column support. Added detection for changed fields.
+**     OM  20210127 Replaced TableMapper.getLegacyName() triple map lookup with direct access to local
+**                  dmoMeta.legacyTable.
 */
 
 /*
@@ -96,11 +99,11 @@
    /** List of column schema objects whose data is to be serialized as XML elements */
    private final List<Column> elementColumns;
    
-   /** The serialize options defined at the temp-table. */
-   protected final TableSerializeOptions serializeOptions;
-   
    /** Flags the serialized {@code BEFORE-BUFFERS}. */
-   private final boolean beforeImage; 
+   private final boolean beforeImage;
+   
+   /** Flags the no-undoable temp-tables {@code NO-UNDO} option. */
+   private final boolean noUndo; 
    
    /**
     * Constructor which gathers table and field data from a temp-table buffer.
@@ -111,19 +114,19 @@
    public TempTableSchema(RecordBuffer buffer)
    {
       BufferImpl buf = (BufferImpl) buffer.getDMOProxy();
+      RecordBuffer recBuf = buf.buffer();
       
       // the table name is used for serialization, regardless of the individual buffer name
-      this.name = TableMapper.getLegacyName(buf);
-      this.serializeOptions = TableMapper.getSerializeOptions(buf);
+      this.name = recBuf.getDmoInfo().legacyTable;
       
       Class<? extends DataModelObject> dmoIface = buffer.getDMOInterface();
-      Map<String, Integer> extentMap = PropertyHelper.extentsByProperty(dmoIface);
       Map<String, Method> getterMap = PropertyHelper.allGettersByProperty(dmoIface);
       Map<String, Method> setterMap = PropertyHelper.allSettersByProperty(dmoIface);
       
       TempTable tt = buffer.getParentTable();
       List<TableMapper.LegacyFieldInfo> fields = TableMapper.getAllLegacyFieldInfo(tt);
       Iterator<TableMapper.LegacyFieldInfo> iter = fields.iterator();
+      this.noUndo = !tt.canUndo().toJavaType();
       
       // indexes:
       int k = 0;
@@ -148,18 +151,23 @@
          TableMapper.LegacyFieldInfo info = iter.next();
          
          // add column to schema if it should be serialized
-         if (!info.getSerializeOptions().isSerializeHidden())
-         {
-            Column col = new Column(i + 1, getterMap, setterMap, extentMap, info);
-            columns.put(col.getName().toLowerCase(), col);
-         }
+         if (info.getSerializeOptions().isSerializeHidden())
+         {
+            continue;
+         }
+         
+         Column col = new Column(i + 1, getterMap, setterMap, info, recBuf.getDMOInterface());
+         if (columns.containsKey(col.getName().toLowerCase()))
+         {
+            continue; // exclude extent column duplicates 
+         }
+         
+         columns.put(col.getName().toLowerCase(), col);
       }
       
       this.beforeImage = buf.isBeforeBuffer();
-      this.attributeColumns = filterColumns(columns.values(),
-                                            SerializeOptions.XmlNodeType.ATTRIBUTE);
-      this.elementColumns = filterColumns(columns.values(),
-                                          SerializeOptions.XmlNodeType.ELEMENT);
+      this.attributeColumns = filterColumns(columns.values(), SerializeOptions.XmlNodeType.ATTRIBUTE);
+      this.elementColumns = filterColumns(columns.values(), SerializeOptions.XmlNodeType.ELEMENT);
    }
    
    /**
@@ -214,13 +222,13 @@
    }
    
    /**
-    * Get the serialize options for this temp-table.
+    * Checks whether the temp-table was defined as NO-UNDO.
     * 
-    * @return   The {@link #serializeOptions}.
+    * @return  {@code true} if this is a NO-UNDO temp-table.
     */
-   public TableSerializeOptions getSerializeOptions()
+   public boolean isNoUndo()
    {
-      return serializeOptions;
+      return noUndo;
    }
    
    /**
@@ -323,27 +331,36 @@
       private final String format;
       
       /** The string representation of the INIT option for this column. */
-      private final String defaultVal;
+      private final String initial;
+      
+      /** The initial value as an instance of the appropriate type of the INIT option for this column. */
+      private final BaseDataType initialValue;
+      
+      /** Flags case-sensitive character fields. */ 
+      private final boolean caseSensitive;
+      
+      /** The precision for decimal fields. */ 
+      private final int decimals;
       
       /**
        * Constructor.
-       * 
+       *
        * @param   order
        *          Order of column in serialization output.
        * @param   getterMap
        *          Map of java property names to getter methods.
        * @param   setterMap
        *          Map of java property names to setter methods.
-       * @param   extentMap
-       *          Map of java property names to field extent values.
        * @param   field
        *          Field info object.
+       * @param   dmoInterface
+       *          The DMO interface used to extract EXTENT accessors.
        */
       Column(int order,
              Map<String, Method> getterMap,
              Map<String, Method> setterMap,
-             Map<String, Integer> extentMap,
-             TableMapper.LegacyFieldInfo field)
+             TableMapper.LegacyFieldInfo field,
+             Class<? extends DataModelObject> dmoInterface)
       {
          SerializeOptions opts = field.getSerializeOptions();
          
@@ -367,16 +384,78 @@
          // name used in serialized output is the legacy name of the field, unless overridden
          // by the SERIALIZE-NAME attribute, unless overridden by the XML-NODE-NAME attribute
          // TODO: possibly needs rework to differentiate between XML and JSON serialization
-         this.name = (nodeName != null ? nodeName : serName != null ? serName : fieldName);
+         this.name = (nodeName != null) ? nodeName : (serName != null ? serName : fieldName);
          
          String javaName = field.getJavaName();
-         this.getter = getterMap.get(javaName);
-         this.setter = setterMap.get(javaName);
-         this.extent = extentMap.get(javaName);
+         this.extent = field.getExtent();
+         if (extent == 0 || field.getOriginal().isEmpty())
+         {
+            this.getter = getterMap.get(javaName);
+            this.setter = setterMap.get(javaName);
+         }
+         else
+         {
+            String originalName = field.getOriginal();
+            originalName = Character.toUpperCase(originalName.charAt(0)) + originalName.substring(1); 
+            Method[] allMethods = dmoInterface.getDeclaredMethods();
+            Method setterMeth = null;
+            Method getterMeth = null;
+            for (Method method : allMethods)
+            {
+               if (method.getName().equals("set" + originalName) &&
+                   method.getReturnType() == Void.TYPE           &&
+                   method.getParameterCount() == 2               &&
+                   method.getParameterTypes()[0] == Integer.TYPE)
+               {
+                  setterMeth = method;
+               }
+               else if (method.getParameterCount() == 1               && 
+                        method.getParameterTypes()[0] == Integer.TYPE && 
+                        (method.getName().equals("get" + originalName) ||
+                         method.getName().equals("is" + originalName)))
+               {
+                  getterMeth = method;
+               }
+               if (setterMeth != null && getterMeth != null)
+               {
+                  break;
+               }
+            }
+            this.setter = setterMeth;
+            this.getter = getterMeth;
+         }
+         
          this.type = (Class<? extends BaseDataType>) getter.getReturnType();
-         this.defaultVal = field.getInitial();
+         this.initial = field.getInitial();
+         this.initialValue = field.getInitialValue();
          this.format = field.getFormat();
-         this.help = field.getHelp(); 
+         this.help = field.getHelp();
+         this.caseSensitive = field.isCaseSensitive();
+         this.decimals = field.getDecimals();
+      }
+      
+      public Column(String fieldName,
+                    boolean nillable,
+                    SerializeOptions.XmlNodeType nodeType,
+                    String name,
+                    Class<? extends BaseDataType> type,
+                    String initial, BaseDataType initialValue)
+      {
+         this.fieldName = fieldName;
+         this.nillable = nillable;
+         this.extent = 0;
+         this.order = 0;
+         this.nodeType = nodeType;
+         this.name = name;
+         this.getter = null;
+         this.setter = null;
+         this.type = type;
+         this.help = null;
+         this.format = null;
+         this.initial = initial;
+         this.initialValue = initialValue;
+         this.caseSensitive = false;
+         this.decimals = 0;
       }
       
       /**
@@ -476,7 +555,7 @@
        */
       public String getInitial()
       {
-         return defaultVal;
+         return initial;
       }
       
       /**
@@ -509,5 +588,49 @@
       {
          return fieldName.startsWith("__");
       }
+      
+      /**
+       * Checks whether this is a case-sensitive character field.
+       *
+       * @return  {@code true} only if this is a case-sensitive character field.
+       */
+      public boolean isCaseSensitive()
+      {
+         return caseSensitive;
+      }
+      
+      /**
+       * Obtain the precision for decimal fields.
+       *
+       * @return  the precision for decimal fields.
+       */
+      public int getDecimals()
+      {
+         return decimals;
+      }
+      
+      /**
+       * Test whether a value is different than the initial value for this column.
+       * 
+       * @param   datum
+       *          The value to be tested.
+       *
+       * @return  {@code true} if the value is different.
+       */
+      public boolean isChanged(BaseDataType datum)
+      {
+         boolean initUnknown = initialValue == null || initialValue.isUnknown();
+         if (datum.isUnknown() && initUnknown)
+         {
+            return false; // both unknowns
+         }
+         
+         if (datum.isUnknown() != initUnknown)
+         {
+            return true; // only one of them is unknown
+         }
+         
+         return !datum.equals(initialValue);
+      }
    }
 }

=== modified file 'src/com/goldencode/p2j/persist/serial/Util.java'
--- src/com/goldencode/p2j/persist/serial/Util.java	2020-09-27 18:16:32 +0000
+++ src/com/goldencode/p2j/persist/serial/Util.java	2021-01-27 01:54:24 +0000
@@ -10,6 +10,7 @@
 ** 003 OM  20191014 Added testing utility support methods.
 ** 004 CA  20200914 Added blob/clob support.
 **     CA  20200927 Use IdentityHashMap instead of plain map when the key is a Class.
+**     OM  20201120 Added missing datatypes. Made are immutable now.
 */
 
 /*
@@ -90,57 +91,66 @@
    static final String STR_ROW_MODIFIED= "modified";
    
    /** Mapping between supported ABL/FWD types and XSD type used for writing schema. */
-   static final Map<Class, String> xsdMap = new IdentityHashMap<>();
+   static final Map<Class<? extends BaseDataType>, String> xsdMap;
    
    /** The default values for each supported ABL/FWD types. */
-   static final Map<Class, String> defaultValuesMap = new IdentityHashMap<>();
+   static final Map<Class<? extends BaseDataType>, String> defaultValuesMap;
    
    /** Extended information for XSD types that coalesce multiple ABL/FWD types. */
-   static final Map<Class, String> xsdProdataMap = new IdentityHashMap<>();
+   static final Map<Class<? extends BaseDataType>, String> xsdProdataMap;
    
    /* Initialize the static final internal data. */
    static
    {
-      // TODO: check [defaultValuesMap] values 
-      defaultValuesMap.put(integer.class, "0");
-      defaultValuesMap.put(int64.class, "0");
-      defaultValuesMap.put(decimal.class, "0");
-      defaultValuesMap.put(logical.class, "false");
-      defaultValuesMap.put(date.class, "?");
-      defaultValuesMap.put(datetime.class, "?");
-      defaultValuesMap.put(datetimetz.class, "?");
-      defaultValuesMap.put(raw.class, "");
-      defaultValuesMap.put(rowid.class, "?");
-      defaultValuesMap.put(handle.class, "?");
-      defaultValuesMap.put(recid.class, "?");
-      defaultValuesMap.put(character.class, "");
-      
-      xsdMap.put(integer.class, "xsd:int");
-      xsdMap.put(int64.class, "xsd:long");
-      xsdMap.put(decimal.class, "xsd:decimal");
-      xsdMap.put(logical.class, "xsd:boolean");
-      xsdMap.put(date.class, "xsd:date");
-      xsdMap.put(datetime.class, "xsd:dateTime");
-      xsdMap.put(datetimetz.class, "xsd:dateTime");
-      xsdMap.put(raw.class, "xsd:base64Binary");
-      xsdMap.put(rowid.class, "xsd:base64Binary");
-      xsdMap.put(handle.class, "xsd:long");
-      xsdMap.put(recid.class, "xsd:long");
-      xsdMap.put(character.class, "xsd:string");
-      xsdMap.put(clob.class, "xsd:string");
-      xsdMap.put(blob.class, "xsd:base64Binary");
-      
-      xsdProdataMap.put(datetime.class, "prodata:dateTime");
-      xsdProdataMap.put(rowid.class, "prodata:rowid");
-      xsdProdataMap.put(handle.class, "prodata:handle");
-      xsdProdataMap.put(recid.class, "prodata:recid");
-      xsdProdataMap.put(blob.class, "prodata:blob");
-      xsdProdataMap.put(clob.class, "prodata:clob");
+      Map<Class<? extends BaseDataType>, String> mutableDefMap = new IdentityHashMap<>();
+      mutableDefMap.put(blob.class, "?");
+      mutableDefMap.put(character.class,  "");
+      mutableDefMap.put(clob.class,       "?");
+      mutableDefMap.put(comhandle.class,  "?");
+      mutableDefMap.put(date.class,       "?");
+      mutableDefMap.put(datetime.class,   "?");
+      mutableDefMap.put(datetimetz.class, "?");
+      mutableDefMap.put(decimal.class,    "0");
+      mutableDefMap.put(int64.class,      "0");
+      mutableDefMap.put(integer.class,    "0");
+      mutableDefMap.put(logical.class,    "false");
+      mutableDefMap.put(raw.class,        "");
+      mutableDefMap.put(recid.class,      "?");
+      mutableDefMap.put(rowid.class,      "?");
+      mutableDefMap.put(handle.class,     "?"); /*widget-handle*/
+      defaultValuesMap = Collections.unmodifiableMap(mutableDefMap);
+      
+      Map<Class<? extends BaseDataType>, String> mutableTypeMap = new IdentityHashMap<>();
+      mutableTypeMap.put(blob.class,       "xsd:base64Binary");
+      mutableTypeMap.put(character.class,  "xsd:string");
+      mutableTypeMap.put(clob.class,       "xsd:string");
+      mutableTypeMap.put(comhandle.class,  "xsd:long");
+      mutableTypeMap.put(date.class,       "xsd:date");
+      mutableTypeMap.put(datetime.class,   "xsd:dateTime");
+      mutableTypeMap.put(datetimetz.class, "xsd:dateTime");
+      mutableTypeMap.put(decimal.class,    "xsd:decimal");
+      mutableTypeMap.put(int64.class,      "xsd:long");
+      mutableTypeMap.put(integer.class,    "xsd:int");
+      mutableTypeMap.put(logical.class,    "xsd:boolean");
+      mutableTypeMap.put(raw.class,        "xsd:base64Binary");
+      mutableTypeMap.put(recid.class,      "xsd:long");
+      mutableTypeMap.put(rowid.class,      "xsd:base64Binary");
+      mutableTypeMap.put(handle.class,     "xsd:long"); /*widget-handle*/
+      xsdMap = Collections.unmodifiableMap(mutableTypeMap);
+      
+      Map<Class<? extends BaseDataType>, String> mutableSubTypeMap = new IdentityHashMap<>();
+      mutableSubTypeMap.put(blob.class,      "prodata:blob");
+      mutableSubTypeMap.put(clob.class,      "prodata:clob");
+      mutableSubTypeMap.put(comhandle.class, "prodata:comHandle");
+      mutableSubTypeMap.put(datetime.class,  "prodata:dateTime");
+      mutableSubTypeMap.put(recid.class,     "prodata:recid");
+      mutableSubTypeMap.put(rowid.class,     "prodata:rowid");
+      mutableSubTypeMap.put(handle.class,    "prodata:handle"); /*widget-handle*/
+      xsdProdataMap = Collections.unmodifiableMap(mutableSubTypeMap);
       
       // longchar not supported
       // memptr not supported
       // class Progress.Lang.Object not supported at runtime
-      // comhandle not supported
    }
    
    /**
@@ -217,6 +227,20 @@
    }
    
    /**
+    * Checks whether a column of a TEMP-TABLE might not be supported by XML/JSON serialization.
+    *
+    * @param   column
+    *          The column of the TEMP-TABLE to be checked.
+    *
+    * @return  {@code true} if the whose TEMP-TABLE is compatible to be XML serialized. 
+    */
+   static boolean checkSupportedType(TempTableSchema.Column column)
+   {
+      Class<? extends BaseDataType> bdtClass = column.getType();
+      return xsdMap.containsKey(bdtClass);
+   }
+   
+   /**
     * Resolve the legacy name based on the FWD BDT implementation class.
     *
     * @param   bdtClass

=== modified file 'src/com/goldencode/p2j/persist/serial/XmlExport.java'
--- src/com/goldencode/p2j/persist/serial/XmlExport.java	2020-09-14 09:17:21 +0000
+++ src/com/goldencode/p2j/persist/serial/XmlExport.java	2021-01-27 01:54:24 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2017-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20171016 Created initial version.
 ** 002 CA  20180511 Added XML-NODE-NAME table option support.
 ** 003 ECF 20190123 Replaced TempTableSchema with XmlTempTableSchema.
@@ -16,6 +16,9 @@
 ** 007 CA  20191119 Do not explicitly XML-escape the value, as the writer will do this on its own.
 ** 008 ECF 20200906 New ORM implementation.
 ** 009 CA  20200914 Fixed raw/blob field export.
+**     OM  20201120 Added SERIALIZE-ROW. Improved TEMP-TABLE attribute serialization and compatibility with
+**                  the output of P4GL.
+**     OM  20201218 Fixed serialization of BEFORE-BUFFER specific attributes.
 */
 
 /*
@@ -75,10 +78,10 @@
 
 import java.io.*;
 import java.lang.reflect.*;
+import java.math.*;
 import java.util.*;
 import javax.xml.stream.*;
 import org.apache.commons.lang3.tuple.*;
-import org.apache.commons.lang.*;
 import com.ctc.wstx.api.*;
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.util.*;
@@ -132,7 +135,33 @@
    private boolean isSchemaOnly = false;
    
    /** The list of indexes, in order of their buffers. */
-   private Map<Integer, Pair<String, TableMapper.LegacyIndexInfo>> indexes = new HashMap<>();
+   private final Map<Integer, Pair<String, TableMapper.LegacyIndexInfo>> indexes = new HashMap<>();
+   
+   /** The map with eventual error strings. */
+   private final Map<String, Pair<String, String>> prodsErrors = new LinkedHashMap<>();
+   
+   /** The namespace prefix for the currently exported temp-table, if any. */
+   private String ttNsPrefix = null;
+   
+   private static final TempTableSchema.Column ERROR_FLAG = 
+         new TempTableSchema.Column(Buffer.ERROR_FLAG_FIELD, true, SerializeOptions.XmlNodeType.ELEMENT,
+                                    Buffer.__ERROR_FLAG__, integer.class, null, new integer());
+   
+   private static final TempTableSchema.Column ORIGIN_ROWID = 
+         new TempTableSchema.Column(Buffer.ORIGIN_ROWID_FIELD, true, SerializeOptions.XmlNodeType.ELEMENT,
+                                    Buffer.__ORIGIN_ROWID__, rowid.class, null, new rowid());
+   
+   private static final TempTableSchema.Column ERROR_STRING = 
+         new TempTableSchema.Column(Buffer.ERROR_STRING_FIELD, true, SerializeOptions.XmlNodeType.ELEMENT,
+                                    Buffer.__ERROR_STRING__, character.class, null, new character());
+   
+   private static final TempTableSchema.Column AFTER_ROWID = 
+         new TempTableSchema.Column(Buffer.AFTER_ROWID_FIELD, true, SerializeOptions.XmlNodeType.ELEMENT,
+                                    Buffer.__AFTER_ROWID__, rowid.class, null, new rowid());
+   
+   private static final TempTableSchema.Column ROW_STATE = 
+         new TempTableSchema.Column(Buffer.ROW_STATE_FIELD, true, SerializeOptions.XmlNodeType.ELEMENT,
+                                    Buffer.__ROW_STATE__, integer.class, null, new integer());
    
    /**
     * Constructor which saves the internal data for writing a XML/XSD stream.
@@ -183,6 +212,11 @@
                                boolean writeBeforeImage,
                                boolean omitInitialValues)
    {
+      if (!target.configureSupportedTargets(TargetData.TD_WRITE_XML, LegacyResource.DATASET + " widget"))
+      {
+         return false;
+      }
+      
       if (writeXmlSchema && schemaLocation != null && !schemaLocation.isEmpty())
       {
          ErrorManager.recordOrShowError(13031);
@@ -196,7 +230,7 @@
          dsName1 = "ProDataSet";
       }
       final String dsName = dsName1;
-      character nsUri = dataSet.getNamespaceURI();
+      character nsUri = dataSet.namespaceURI();
       String nsUriStr = (nsUri.isUnknown()) ? "" : nsUri.toStringMessage();
       String nodeNameStr = dataSet.getXmlNodeNameInternal();
       this.ds = dataSet;
@@ -218,7 +252,7 @@
          if (writeXmlSchema)
          {
             if (!writeDatasetSchemaImpl(
-                  dataSet, minXmlSchema, !omitInitialValues, dsName, nsUriStr, nodeNameStr))
+                     dataSet, minXmlSchema, !omitInitialValues, dsName, nsUriStr, nodeNameStr))
             {
                return false;
             }
@@ -327,6 +361,32 @@
             lineBreak();
          }
          
+         if (!prodsErrors.isEmpty())
+         {
+            indent();
+            writer.writeStartElement("prods:errors");
+            lineBreak();
+            ++indentLevel;
+            
+            Set<Map.Entry<String, Pair<String, String>>> errors = prodsErrors.entrySet();
+            for (Map.Entry<String, Pair<String, String>> error : errors)
+            {
+               indent();
+               writer.writeStartElement(error.getValue().getLeft());
+               writer.writeAttribute("prods:id", error.getKey());
+               writer.writeAttribute("prods:error", error.getValue().getRight());
+               writer.writeEndElement();
+               lineBreak();
+            }
+            
+            --indentLevel;
+            indent();
+            writer.writeEndElement(); // prods:errors
+            lineBreak();
+            
+            prodsErrors.clear();
+         }
+         
          if (writeBeforeImage)
          {
             --indentLevel;
@@ -375,10 +435,17 @@
                                  boolean writeBeforeImage,
                                  boolean omitInitialValues)
    {
+      if (!target.configureSupportedTargets(TargetData.TD_WRITE_XML, LegacyResource.TEMP_TABLE + " widget"))
+      {
+         return false;
+      }
+      
       if (writeXmlSchema && schemaLocation != null && !schemaLocation.isEmpty())
       {
          ErrorManager.recordOrShowError(13031);
          // Cannot have both schema-location and write-schema arguments set.
+         ErrorManager.recordOrShowError(4065, "WRITE-XML", "TEMP-TABLE widget");
+         // **The <attribute> attribute on the <widget id> has invalid arguments.
          return false;
       }
       
@@ -401,8 +468,23 @@
       
       return write(() -> {
          String tableName = schema.getTableName();
-         writer.writeStartElement(tableName);
+         TempTable tt = buffer.getParentTable();
+         ttNsPrefix = tt.namespacePrefix().toJavaType();
+         String nsUri = tt.namespaceURI().toJavaType();
+         String nodeName = tt.getXmlNodeName().toJavaType();
+         String xmlNodeName = ttNsPrefix == null || nodeName == null ? tableName : ttNsPrefix + ":" + nodeName;
+         
+         writer.writeStartElement(xmlNodeName);
+         if (ttNsPrefix != null)
+         {
+            writer.writeAttribute("xmlns:" + ttNsPrefix, nsUri);
+         }
+         else
+         {
+//            writer.writeAttribute("xmlns", "");
+         }
          writer.writeAttribute(ATTR_NS_XSI, NS_URI);
+         
          if (schemaLocation != null && !schemaLocation.isEmpty())
          {
             writer.writeAttribute("xsi:noNamespaceSchemaLocation", schemaLocation);
@@ -420,7 +502,8 @@
             }
          }
          
-         if (!serializeTempTable(null, buffer, tableName + "Row", null, 
+         String rowName = xmlNodeName + "Row";
+         if (!serializeTempTable(null, buffer, rowName, null,
                                  omitInitialValues, dmoProxy.isBeforeBuffer(), false, false))
          {
             return false;
@@ -453,8 +536,14 @@
     */
    public boolean writeDatasetSchema(DataSet dataSet, boolean minSchema, boolean noInitial)
    {
+      if (!target.configureSupportedTargets(TargetData.TD_WRITE_XMLSCHEMA,
+                                            LegacyResource.DATASET + " widget"))
+      {
+         return false;
+      }
+      
       String dsName = dataSet.name().toStringMessage();
-      character nsUri = dataSet.getNamespaceURI();
+      character nsUri = dataSet.namespaceURI();
       String nsUriStr = (nsUri.isUnknown()) ? "" : nsUri.toStringMessage();
       String nodeNameStr = dataSet.getXmlNodeNameInternal();
       this.ds = dataSet;
@@ -481,6 +570,12 @@
     */
    public boolean writeTableSchema(TemporaryBuffer buffer, boolean minSchema, boolean noInitial)
    {
+      if (!target.configureSupportedTargets(TargetData.TD_WRITE_XMLSCHEMA,
+                                            LegacyResource.TEMP_TABLE + " widget"))
+      {
+         return false;
+      }
+      
       this.isSchemaOnly = true;
       return write(() -> writeTableSchema(
             (BufferImpl) buffer.getDMOProxy(),
@@ -490,6 +585,69 @@
    }
    
    /**
+    * Writes a single record.
+    * 
+    * @param   bufferImpl
+    *          The buffer which holds the record to be exported.
+    * @param   omitInitial
+    *          If {@code true} the unmodified fields (those that are equals to the declared initial value)
+    *          are skipped in order to minimize the output.
+    * 
+    * @return  {@code true} if operation is successful and {@code false} if an error occurred.
+    */
+   public boolean writeRecord(BufferImpl bufferImpl, boolean omitInitial)
+   {
+      if (!target.configureSupportedTargets(TargetData.TD_WRITE_XML, LegacyResource.BUFFER + " widget"))
+      {
+         return false;
+      }
+      
+      TemporaryBuffer tempBuffer = (TemporaryBuffer) bufferImpl.buffer();
+      XmlTempTableSchema schema = new XmlTempTableSchema(tempBuffer);
+      
+      String unsupportedType = Util.checkSupportedTypes(schema);
+      if (unsupportedType != null)
+      {
+         ErrorManager.recordOrShowError(13078, unsupportedType);
+         // Unsupported data type for XML Serialization: <type>.
+         ErrorManager.recordOrShowError(13093);
+         // Write temp-table data failed for WRITE-XML.
+         return false;
+      }
+      
+      return write(() -> {
+         String tableName = schema.getTableName();
+         writer.writeStartElement(tableName);
+         writer.writeAttribute(ATTR_NS_XSI, NS_URI);
+         lineBreak();
+         ++indentLevel;
+         
+         try
+         {
+            TempRecord dmo = tempBuffer.getCurrentRecord();
+            
+            // write all columns which must be serialized to attributes first, while the start element for the
+            // row is open
+            writeColumns(dmo, schema.attributeColumns(), false, omitInitial);
+            
+            // write all columns which must be serialized to elements as separate XML elements
+            writeColumns(dmo, schema.elementColumns(), false, omitInitial);
+         }
+         catch (IllegalAccessException | InvocationTargetException e)
+         {
+            return false;
+         }
+         
+         --indentLevel;
+         indent();
+         writer.writeEndElement();
+         lineBreak();
+         
+         return true;
+      });
+   }
+   
+   /**
     * Performs the export of a TEMP-TABLE schema.
     *
     * @param   buffer
@@ -526,28 +684,50 @@
    {
       String tableName = schema.getTableName();
       String legacyName = schema.getName();
+      AbstractTempTable tempTable = (AbstractTempTable) buffer.buffer().tableHandle().get();
+      String xmlNodeName = tempTable.getXmlNodeName().toJavaType();
+      String nsPrefix = tempTable.namespacePrefix().toJavaType();
+      String nsUri = tempTable.namespaceURI().toJavaType();
       boolean isDataSet = buffer.isBeforeBuffer() || buffer.isAfterBuffer();
       
       indent();
       writer.writeStartElement("xsd:schema");
       writer.writeAttribute("xmlns:xsd", "http://www.w3.org/2001/XMLSchema");
-      writer.writeAttribute("xmlns", "");
+      writer.writeAttribute("xmlns", nsUri == null ? "" : nsUri);
+      if (nsPrefix != null && !nsPrefix.isEmpty() && nsUri != null)
+      {
+         writer.writeAttribute("xmlns:" + nsPrefix, nsUri);
+         writer.writeAttribute("targetNamespace", nsUri);
+         writer.writeAttribute("elementFormDefault", "qualified");
+      }
       writer.writeAttribute("xmlns:prodata", "urn:schemas-progress-com:xml-prodata:0001");
       lineBreak();
       ++indentLevel;
       {
          indent();
          writer.writeStartElement("xsd:element");
-         writer.writeAttribute("name", tableName);
-         writer.writeAttribute("prodata:proTempTable", String.valueOf(isDataSet));
+         writer.writeAttribute("name", xmlNodeName == null ? tableName : xmlNodeName);
+         writer.writeAttribute("prodata:proTempTable", "true"); // String.valueOf(isDataSet)); TODO: when is this attribute 'false' ? 
          if (isDataSet && !legacyName.equals(tableName))
          {
             writer.writeAttribute("prodata:tableName", legacyName);
          }
-         if (!minSchema)
+         
+         if (nsPrefix != null && !nsPrefix.isEmpty())
+         {
+            writer.writeAttribute("prodata:prefix", nsPrefix);
+         }
+         
+         if (!minSchema && !schema.isNoUndo())
          {
             writer.writeAttribute("prodata:undo", "true"); // TODO: where this value came from ?
          }
+         
+         if (xmlNodeName != null && !xmlNodeName.equals(tableName))
+         {
+            writer.writeAttribute("prodata:tableName", tableName);
+         }
+         
          lineBreak();
          ++indentLevel;
          {
@@ -561,7 +741,8 @@
                lineBreak();
                ++indentLevel;
                {
-                  if (!writeTableSchemaImpl(buffer, schema, tableName + "Row", defaultValues, minSchema, false))
+                  String rowName = (xmlNodeName == null ? tableName : xmlNodeName) + "Row";
+                  if (!writeTableSchemaImpl(buffer, schema, rowName, defaultValues, minSchema, false))
                   {
                      return false;
                   }
@@ -601,7 +782,10 @@
                   {
                      indent();
                      writer.writeEmptyElement("xsd:selector");
-                     writer.writeAttribute("xpath", ".//" + idxPair.getLeft());
+                     String idxName = (nsPrefix == null)
+                           ? (".//" + idxPair.getLeft())
+                           : (".//" + nsPrefix + ":" + idxPair.getLeft());
+                     writer.writeAttribute("xpath", idxName);
                      lineBreak();
                      
                      String[] comps = index.getComponents();
@@ -610,7 +794,8 @@
                      {
                         indent();
                         writer.writeEmptyElement("xsd:field");
-                        writer.writeAttribute("xpath", comps[i]);
+                        String compName = (nsPrefix == null) ? comps[i] : (nsPrefix + ":" + comps[i]);
+                        writer.writeAttribute("xpath", compName);
                         if (!dirs[i])
                         {
                            writer.writeAttribute("prodata:descending", "true");
@@ -631,8 +816,23 @@
          writer.writeEndElement(); // xsd:element
          lineBreak();
          
+         boolean hasIndexes = !minSchema && this.ds == null && !this.isSchemaOnly && !indexes.isEmpty();
+         int idxCounter = 0;
+         if (hasIndexes)
+         {
+            idxCounter = indexes.size();
+            for (Map.Entry<Integer, Pair<String, TableMapper.LegacyIndexInfo>> pair : indexes.entrySet())
+            {
+               if (pair.getValue().getRight().isUnique())
+               {
+                  // decrement counter for unique indexes. The remainder is the count of non-unique indexes 
+                  --idxCounter;
+               }
+            }
+         }
+         
          // in case of standalone TEMP-TABLE schema serialization non unique indexes go here:
-         if (!minSchema && this.ds == null && !this.isSchemaOnly && !indexes.isEmpty())
+         if (hasIndexes && idxCounter > 0)
          {
             indent();
             writer.writeStartElement("xsd:annotation");
@@ -814,8 +1014,7 @@
          }
          
          // dump all UNIQUE indexes here
-         for (Map.Entry<Integer, Pair<String, TableMapper.LegacyIndexInfo>> indexEntry :
-               indexes.entrySet())
+         for (Map.Entry<Integer, Pair<String, TableMapper.LegacyIndexInfo>> indexEntry : indexes.entrySet())
          {
             Pair<String, TableMapper.LegacyIndexInfo> idxPair = indexEntry.getValue();
             TableMapper.LegacyIndexInfo index = idxPair.getRight();
@@ -998,13 +1197,14 @@
    throws XMLStreamException
    {
       String legacyName = schema.getName();
+      boolean isDataset = (ds != null);
       
       indent();
       writer.writeStartElement("xsd:element");
       writer.writeAttribute("name", tableName);
       writer.writeAttribute("minOccurs", "0");
       writer.writeAttribute("maxOccurs", "unbounded");
-      if (this.ds != null && !legacyName.equals(tableName))
+      if (isDataset && !legacyName.equals(tableName))
       {
          writer.writeAttribute("prodata:tableName", legacyName);
       }
@@ -1013,7 +1213,8 @@
          writer.writeAttribute("prodata:undo", "true"); // special flag for this?
          if (buffer.isAfterBuffer())
          {
-            String beforeName = buffer.beforeBuffer().unwrap().name().toStringMessage();
+            // using [buffer.beforeBuffer().unwrap().name()] will raise a [DeferredLegacyErrorException]
+            String beforeName = ((BufferImpl) buffer.beforeBuffer().getResource()).doGetName();
             writer.writeAttribute("prodata:beforeTable", beforeName);
          }
       }
@@ -1032,10 +1233,11 @@
             {
                for (TempTableSchema.Column column : schema.columns())
                {
-                  String type = Util.xsdMap.get(column.getType());
+                  Class<? extends BaseDataType> columnType = column.getType();
+                  String type = Util.xsdMap.get(columnType);
                   if (type == null)
                   {
-                     ErrorManager.recordOrShowError(13078, Util.getLegacyType(column.getType()));
+                     ErrorManager.recordOrShowError(13078, Util.getLegacyType(columnType));
                      // Unsupported data type for XML Serialization: <type>.
                      ErrorManager.recordOrShowError(13066, schema.getTableName());
                      // Unable to write XML Schema for temp-table <table-name>.
@@ -1044,22 +1246,43 @@
                      return false;
                   }
                   
-                  String addType = Util.xsdProdataMap.get(column.getType());
+                  String addType = Util.xsdProdataMap.get(columnType);
                   indent();
                   writer.writeEmptyElement("xsd:element");
                   writer.writeAttribute("name", column.getName());
                   writer.writeAttribute("type", type);
                   writer.writeAttribute("nillable", String.valueOf(column.isNillable()));
                   Integer extent = column.getExtent();
-                  if (extent != null)
-                  {
-                     writer.writeAttribute("minOccurs", String.valueOf(extent));
-                     writer.writeAttribute("maxOccurs", String.valueOf(extent));
+                  if (isDataset)
+                  {
+                     if (extent != null && extent > 0)
+                     {
+                        writer.writeAttribute("minOccurs", String.valueOf(extent));
+                        writer.writeAttribute("maxOccurs", String.valueOf(extent));
+                     }
+                  }
+                  else
+                  {
+                     if (!defaultValues)
+                     {
+                        writer.writeAttribute("minOccurs", "0");
+                     }
+                     else if (extent != null && extent > 0)
+                     {
+                        writer.writeAttribute("minOccurs", String.valueOf(extent));
+                     }
+                     
+                     if (extent != null && extent > 0)
+                     {
+                        writer.writeAttribute("maxOccurs", String.valueOf(extent));
+                     }
                   }
                   if (!isSchemaOnly)
                   {
                      String fmt = column.getFormat();
-                     if (fmt != null && !fmt.isEmpty())
+                     
+                     BaseDataType defValue = BaseDataType.generateDefault(columnType);
+                     if (fmt != null && !fmt.isEmpty() && !fmt.equals(defValue.defaultFormatString()))
                      {
                         writer.writeAttribute("prodata:format", fmt);
                      }
@@ -1073,20 +1296,120 @@
                   {
                      writer.writeAttribute("prodata:dataType", addType);
                   }
-                  if (defaultValues)
+                  
+                  if (isDataset)
+                  {
+                     if (defaultValues)
+                     {
+                        String initial = column.getInitial();
+                        String defVal = Util.defaultValuesMap.get(columnType);
+                        if (initial != null && !initial.equals(defVal))
+                        { 
+                           writer.writeAttribute("prodata:initial",
+                                                 initial.equals("?") ? "prodata:unknown" : initial);
+                        }
+                     }
+                  }
+                  else
                   {
                      String initial = column.getInitial();
-                     String defVal = Util.defaultValuesMap.get(column.getType()); 
-                     if (initial != null && !initial.equals(defVal))
-                     {
-                        writer.writeAttribute("prodata:initial",
-                                              initial.equals("?") ? "prodata:unknown" : initial);
-                     }
-                  }
-                  lineBreak();
-               }
-               
-               DataSet ds = (DataSet) buffer.dataSet().getResource();
+                     if (initial != null)
+                     {
+                        boolean initialNull = "?".equals(initial);
+                        if (!defaultValues || !initial.equals(Util.defaultValuesMap.get(columnType)))
+                        {
+                           if (!initialNull && type.contains("decimal") && !initial.contains("."))
+                           {
+                              // use [decimal] property attribute instead?
+                              initial += ".0";
+                           }
+                           writer.writeAttribute("default", initialNull ? "prodata:unknown" : initial);
+                        }
+                     }
+                     else if (!defaultValues)
+                     {
+                        initial = Util.defaultValuesMap.get(columnType);
+                        if ("?".equals(initial))
+                        {
+                           writer.writeAttribute("prodata:initial", "prodata:unknown");
+                        }
+                        else
+                        {
+                           if (type.contains("decimal") && !initial.contains("."))
+                           {
+                              // use [decimal] property attribute instead?
+                              initial += ".0";
+                           }
+                           writer.writeAttribute("default", initial);
+                        }
+                     }
+                  }
+                  
+                  if (!minSchema && columnType == character.class && column.isCaseSensitive())
+                  {
+                     writer.writeAttribute("prodata:caseSensitive", "true");
+                  }
+                  if (!minSchema && columnType == decimal.class && column.getDecimals() > 0)
+                  {
+                     writer.writeAttribute("prodata:decimals", Integer.toString(column.getDecimals()));
+                  }
+                  lineBreak();
+               }
+               
+               if (buffer.isBeforeBuffer() && ds == null) // only for TEMP-TABLE:WRITE-XML(SCHEMA) API
+               {
+                  // <xsd:element name="__error-flag__" type="xsd:int" nillable="true" prodata:initial="prodata:unknown"/>
+                  indent();
+                  writer.writeStartElement("xsd:element");
+                  writer.writeAttribute("name", Buffer.__ERROR_FLAG__);
+                  writer.writeAttribute("type", "xsd:int");
+                  writer.writeAttribute("nillable", "true");
+                  writer.writeAttribute("prodata:initial", "prodata:unknown");
+                  writer.writeEndElement();
+                  lineBreak();
+                  
+                  // <xsd:element name="__origin-rowid__" type="xsd:base64Binary" nillable="true" prodata:dataType="prodata:rowid"/>
+                  indent();
+                  writer.writeStartElement("xsd:element");
+                  writer.writeAttribute("name", Buffer.__ORIGIN_ROWID__);
+                  writer.writeAttribute("type", "xsd:base64Binary");
+                  writer.writeAttribute("nillable", "true");
+                  writer.writeAttribute("prodata:dataType", "prodata:rowid");
+                  writer.writeEndElement();
+                  lineBreak();
+                  
+                  // <xsd:element name="__error-string__" type="xsd:string" nillable="true" prodata:initial="prodata:unknown"/>
+                  indent();
+                  writer.writeStartElement("xsd:element");
+                  writer.writeAttribute("name", Buffer.__ERROR_STRING__);
+                  writer.writeAttribute("type", "xsd:string");
+                  writer.writeAttribute("nillable", "true");
+                  writer.writeAttribute("prodata:initial", "prodata:unknown");
+                  writer.writeEndElement();
+                  lineBreak();
+                  
+                  // <xsd:element name="__after-rowid__" type="xsd:base64Binary" nillable="true" prodata:dataType="prodata:rowid"/>
+                  indent();
+                  writer.writeStartElement("xsd:element");
+                  writer.writeAttribute("name", Buffer.__AFTER_ROWID__);
+                  writer.writeAttribute("type", "xsd:base64Binary");
+                  writer.writeAttribute("nillable", "true");
+                  writer.writeAttribute("prodata:dataType", "prodata:rowid");
+                  writer.writeEndElement();
+                  lineBreak();
+                  
+                  // <xsd:element name="__row-state__" type="xsd:int" nillable="true" prodata:initial="prodata:unknown"/>
+                  indent();
+                  writer.writeStartElement("xsd:element");
+                  writer.writeAttribute("name", Buffer.__ROW_STATE__);
+                  writer.writeAttribute("type", "xsd:int");
+                  writer.writeAttribute("nillable", "true");
+                  writer.writeAttribute("prodata:initial", "prodata:unknown");
+                  writer.writeEndElement();
+                  lineBreak();
+               }
+               
+               DataSet ds = buffer._dataSet();
                if (inDataset && ds != null)
                {
                   List<DataRelation> childRels = ds.getRelations(buffer, true, false, true);
@@ -1134,7 +1457,7 @@
       return true;
    }
    
-   /***
+   /**
     * Writes the content of a TEMP-TABLE to serializer.
     * 
     * @param   relation
@@ -1171,15 +1494,14 @@
       {
          ErrorManager.recordOrShowError(13093);
          // Write temp-table data failed for WRITE-XML.
-         ErrorManager.recordOrShowError(13078, unsupportedType);
+         ErrorManager.recordOrThrowError(13078, unsupportedType, "");
          // Unsupported data type for XML Serialization: <type>.
          return false;
       }
       
       if (relation == null)
       {
-         // reads records in order of primary index, if available, else in ascending primary key
-         // order
+         // reads records in order of primary index, if available, else in ascending primary key order
          buffer.readAllRows(
                (dmo) -> writeRecord(
                      buffer, dmo, rowName, schema, xmlns, includeHidden, includeProds, before, noInit));
@@ -1286,24 +1608,49 @@
                // CREATED or MODIFIED before images
                writer.writeAttribute("prods:id", rowName + dmo._peerRowid());
             }
-            if (rowState != Buffer.ROW_UNMODIFIED)
+            
+            if (!before)
             {
-               writer.writeAttribute("prods:rowState", Util.getRowStateAsString(rowState));
+               if (rowState != Buffer.ROW_UNMODIFIED)
+               {
+                  writer.writeAttribute("prods:rowState", Util.getRowStateAsString(rowState));
+               }
+               
+               Integer errorFlags = dmo._errorFlags();
+               if (errorFlags != null && errorFlags != 0) // also only for 'changes' dataset (?)
+               {
+                  writer.writeAttribute("prods:hasErrors", "true");
+               }
+               
+               String errorString = dmo._errorString();
+               if (errorString != null)  // also only for 'changes' dataset (?)
+               {
+                  prodsErrors.put(rowName + dmo.primaryKey(), Pair.of(rowName, errorString));
+               }
             }
          }
          ++indentLevel;
          
-         // write all columns which must be serialized to attributes first, while the start
-         // element for the row is open
-         writeColumns(dmo, schema.attributeColumns(), hidden);
+         // write all columns which must be serialized to attributes first, while the start element for the
+         // row is open
+         writeColumns(dmo, schema.attributeColumns(), hidden, omitInitialValues);
          
          lineBreak();
          
          // write all columns which must be serialized to elements as separate XML elements
-         writeColumns(dmo, schema.elementColumns(), hidden);
+         writeColumns(dmo, schema.elementColumns(), hidden, omitInitialValues);
          
          BufferImpl buf = (BufferImpl) buffer.getDMOProxy();
-         DataSet ds = (DataSet) buf.dataSet().getResource();
+         if (buf.isBeforeBuffer() && ds == null)
+         {
+            writeDatum(ERROR_FLAG, new integer(dmo._errorFlags()));
+            writeDatum(ORIGIN_ROWID, new rowid(dmo._originRowid()));
+            writeDatum(ERROR_STRING, new character(dmo._errorString()));
+            writeDatum(AFTER_ROWID, new rowid(dmo._peerRowid()));
+            writeDatum(ROW_STATE, new integer(dmo._rowState()));
+         }
+         
+         DataSet ds = buf._dataSet();
          if (this.ds != null && ds != null)
          {
             // position the buffer on this DMO
@@ -1359,7 +1706,8 @@
     */
    private void writeColumns(Record dmo,
                              Iterable<TempTableSchema.Column> columns,
-                             boolean hidden)
+                             boolean hidden,
+                             boolean noInit)
    throws IllegalAccessException,
           IllegalArgumentException,
           InvocationTargetException,
@@ -1376,8 +1724,26 @@
          Integer extent = column.getExtent();
          Method getter = column.getGetter();
          
-         if (extent != null)
+         if (extent != null && extent > 0)
          {
+            if (noInit)
+            {
+               boolean untouched = true;
+               for (int i = 0; i < extent; i++)
+               {
+                  if (column.isChanged((BaseDataType) column.getGetter().invoke(dmo, i)))
+                  {
+                     untouched = false;
+                     break; // drop all other tests from this extent 
+                  }
+               }
+               
+               if (untouched)
+               {
+                  continue; // skip to next column
+               }
+            }
+            
             for (int i = 0; i < extent; i++)
             {
                BaseDataType datum = (BaseDataType) getter.invoke(dmo, i);
@@ -1386,6 +1752,14 @@
          }
          else
          {
+            if (noInit)
+            {
+               if (!column.isChanged((BaseDataType) column.getGetter().invoke(dmo)))
+               {
+                  continue; // skip to next column
+               }
+            }
+            
             BaseDataType datum = (BaseDataType) getter.invoke(dmo);
             writeDatum(column, datum);
          }
@@ -1407,8 +1781,8 @@
    private void writeDatum(TempTableSchema.Column column, BaseDataType datum)
    throws XMLStreamException
    {
-      String name = column.getName();
-      String value = null;
+      String name = ttNsPrefix != null ? (ttNsPrefix + ":" + column.getName()) : column.getName();
+      String value;
       if (datum instanceof date)
       {
          // this includes datetime and datetime-tz, too
@@ -1424,22 +1798,34 @@
       }
       else if (datum instanceof raw || datum instanceof blob)
       {
-         Base64.Encoder enc = Base64.getEncoder();
-         value = enc.encodeToString(((BinaryData) datum).getByteArray());
+         if (!datum.isUnknown())
+         {
+            Base64.Encoder enc = Base64.getEncoder();
+            value = enc.encodeToString(((BinaryData) datum).getByteArray());
+         }
+         else
+         {
+            value = ""; // or null
+         }
       }
       else
       {
          value = datum.toStringMessage();
-         if (datum instanceof decimal && !value.contains("."))
-         {
-            value += ".0";
-         }
-         else if (datum instanceof raw && ((raw)datum).length().longValue() == 0L)
-         {
-            value = "";
+         if (datum instanceof decimal)
+         {
+            int colDecs = column.getDecimals();
+            if (colDecs > 0)
+            {
+               value = ((decimal) datum).toJavaType().setScale(colDecs, BigDecimal.ROUND_HALF_UP).toString();
+            }
+            else if (!value.contains("."))
+            {
+               // use [decimal] property attribute instead?
+               value += ".0";
+            }
          }
       }
-
+      
       // no need to escape, the writer will automatically escape the value
       
       switch (column.getNodeType())
@@ -1533,7 +1919,7 @@
             return (char) c;
          }
       });
-      try (OutputStream stream = target.getOutputStream())
+      try (OutputStream stream = target.getStream())
       {
          try
          {

=== modified file 'src/com/goldencode/p2j/persist/serial/XmlImport.java'
--- src/com/goldencode/p2j/persist/serial/XmlImport.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/persist/serial/XmlImport.java	2021-01-27 01:54:24 +0000
@@ -2,9 +2,9 @@
 ** Module   : XmlImport.java
 ** Abstract : Read XML content into a temp-table.
 **
-** Copyright (c) 2017-2020, Golden Code Development Corporation.
+** Copyright (c) 2017-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20171016 Created initial version.
 ** 002 CA  20180511 Added XML-NODE-NAME table option support.
 ** 003 ECF 20190123 Replaced TempTableSchema with XmlTempTableSchema. Refactored ExtentTracker
@@ -14,6 +14,11 @@
 ** 006 OM  20190909 Added TempTable read and schema validation.
 ** 007 ECF 20200906 New ORM implementation.
 **     CA  20200906 Batch error fix.
+** 008 OM  20201120 Added missing features: useLobs, schema location, field mapping.
+**                  Fixed restoring table/fields attributes: case-sensitivity, decimals, xml uri, xml prefix,
+**                  xml namespace, read-mode, etc
+**         20210106 Dropped false parameter of TEMP-TABLE-PREPARE API.
+**         20210108 Improve error handling when reading XML serialized files.
 */
 
 /*
@@ -72,12 +77,17 @@
 package com.goldencode.p2j.persist.serial;
 
 import java.io.*;
+import java.lang.reflect.*;
 import java.util.*;
+import java.util.logging.*;
 import javax.xml.namespace.*;
 import javax.xml.stream.*;
+import com.goldencode.p2j.convert.*;
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.persist.lock.*;
+import com.goldencode.p2j.persist.orm.*;
 import com.goldencode.p2j.util.*;
+import com.goldencode.p2j.util.ErrorManager;
 import com.goldencode.util.CaseInsensitiveString;
 
 import static com.goldencode.p2j.persist.serial.SerializeOptions.*;
@@ -92,6 +102,9 @@
  */
 public final class XmlImport
 {
+   /** Logger for objects of this type. */
+   private static final Logger log = LogHelper.getLogger(XmlImport.class.getName());
+   
    /** XSD schema element name */
    private static final String ELEM_SCHEMA = "schema";
    
@@ -107,6 +120,9 @@
    /** Verify schema mode. */
    private final Verify verifySchemaMode;
    
+   /** Use CLOB/BLOB instead of character/raw type? (Value of {@code override-default-mapping} parameter). */
+   private final boolean useLobs; 
+   
    /** Buffer proxy. */
    private Buffer proxy;
    
@@ -122,12 +138,24 @@
    /** Current dataset, if one is being processed. */
    private DataSet ds = null;
    
+   /** Current temp-table, if one is being processed. */
+   private AbstractTempTable tt = null;
+   
+   /** The future name of the read temp-table. */
+   private String ttName = null;
+   
+   /** The desired mapping of fields to new type, if one is defined. */
+   private Map<String, String> fieldTypeMapping = null;
+   
+   /** 'External' schema location, if one is provided. */
+   private String schemaLocation = null;
+   
    /**
     * The set of temp-table builders for a dataset. They are mapped by their (XML-) names. They
     * are collected while parsing the schema and since their indexes are available only at the end
     * they are TABLE-PREPARED only on DataSet's end element.
     */
-   private Map<String, TempTableBuilder> tables = new LinkedHashMap<>();
+   private final Map<String, AbstractTempTable> tables = new LinkedHashMap<>();
    
    /** The mapping of the legacy table names by their (case-insensitive) XML name. */
    private Map<CaseInsensitiveString, String> tablesByXmlName = null;
@@ -185,13 +213,16 @@
                     String readMode,
                     String schemaLocation,
                     boolean overrideDefaultMapping,
-                    String fieldTypeMapping,
+                    Map<String, String> fieldTypeMapping,
                     String verifySchemaMode)
    {
       this.source = source;
       this.readMode = (readMode == null) ? Read.MERGE : Read.valueOf(readMode.toUpperCase());
+      this.useLobs = overrideDefaultMapping;
       this.verifySchemaMode = (verifySchemaMode == null) ? Verify.LOOSE :
             Verify.valueOf(verifySchemaMode.toUpperCase());
+      this.fieldTypeMapping = fieldTypeMapping;
+      this.schemaLocation = schemaLocation;
    }
    
    /**
@@ -206,15 +237,20 @@
     */
    public boolean importDatasetSchema(DataSet ds)
    {
+      if (!source.configureSupportedSources(SourceData.SD_READ_XMLSCHEMA, LegacyResource.DATASET + " widget"))
+      {
+         return false;
+      }
+      
       this.ds = ds;
       this.tablesByXmlName = new HashMap<>();
       this.relations = new LinkedList<>();
       
-      try (InputStream stream = source.getInputStream())
+      try (InputStream stream = source.getStream())
       {
          reader = XMLInputFactory.newInstance().createXMLStreamReader(stream);
          
-         if (!readDatasetSchema())
+         if (!readDatasetSchema(true))
          {
             ErrorManager.recordOrShowError(13033);
             // Verify Temp-Table or dataset schema against XML Schema failed.
@@ -247,6 +283,71 @@
    }
    
    /**
+    * Configures a temp-table schema or validates it against the XML file. The other parameters are set in
+    * the constructor.
+    * 
+    * @param   tt
+    *          The destination for read schema.
+    * 
+    * @return  {@code true} on success. On failure, {@code false} is returned and the eventual error is
+    *          already displayed.
+    */
+   public boolean importTempTableSchema(AbstractTempTable tt)
+   {
+      if (!source.configureSupportedSources(SourceData.SD_READ_XMLSCHEMA,
+                                            LegacyResource.TEMP_TABLE + " widget"))
+      {
+         return false;
+      }
+      
+      this.tt = tt;
+      this.tablesByXmlName = new HashMap<>();
+      
+      try (InputStream stream = source.getStream())
+      {
+         reader = XMLInputFactory.newInstance().createXMLStreamReader(stream);
+         
+         if (!readTableSchema((String) null, null, null))
+         {
+            if (tt.prepared().toJavaType())
+            {
+               ErrorManager.recordOrShowError(13033);
+               // Verify Temp-Table or dataset schema against XML Schema failed.
+            }
+            else
+            {
+               ErrorManager.recordOrShowError(13032);
+               // Unable to create Temp-Table or dataset schema from XML Schema.
+            }
+            return false;
+         }
+         return true;
+      }
+      catch (IOException | XMLStreamException exc)
+      {
+         return false;
+      }
+      finally
+      {
+         if (reader != null)
+         {
+            try
+            {
+               reader.close();
+            }
+            catch (XMLStreamException exc)
+            {
+               // TODO: log
+            }
+            reader = null;
+         }
+         
+         this.tt = null;
+         this.tablesByXmlName = null;
+      }
+   }
+   
+   /**
     * Imports a dataset. The other parameters are set in constructor.
     *
     * @param   dataSet
@@ -257,6 +358,11 @@
     */
    public boolean importDataset(DataSet dataSet)
    {
+      if (!source.configureSupportedSources(SourceData.SD_READ_XML, LegacyResource.DATASET + " widget"))
+      {
+         return false;
+      }
+      
       this.ds = dataSet;
       this.tablesByXmlName = new HashMap<>();
       this.relations = new LinkedList<>();
@@ -268,7 +374,7 @@
       }
       
       XMLInputFactory factory = XMLInputFactory.newInstance();
-      try (InputStream stream = source.getInputStream())
+      try (InputStream stream = source.getStream())
       {
          reader = factory.createXMLStreamReader(stream);
          boolean isRoot = true;
@@ -286,7 +392,7 @@
                      case ELEM_SCHEMA:
                         // the [schema] node is lost at this moment and "xmlns:xsd", "xmlns", and
                         // "xmlns:prodata" attributes might not be accessible
-                        if (!readDatasetSchema())
+                        if (!readDatasetSchema(false))
                         {
                            ErrorManager.recordOrShowError(13033);
                            // Verify Temp-Table or dataset schema against XML Schema failed.
@@ -324,12 +430,29 @@
                            }
                            if (!found)
                            {
-                              // TODO: report error
-                              return false;
-                           }
-                           
-                           this.schema = new XmlTempTableSchema((TemporaryBuffer) buffer.buffer());
-                           this.proxy = (Buffer) buffer.buffer().getDMOProxy();
+                              // if the table is not found in database, the record is simply skipped
+                              if (!skipRecord(name))
+                              {
+                                 return false;
+                              }
+                              break;
+                           }
+                           
+                           TemporaryBuffer ttBuffer = (TemporaryBuffer) buffer.buffer();
+                           if (readMode == Read.REPLACE && !readingBefore)
+                           {
+                              // the REPLACE mode needs primary unique index declared for the after table
+                              P2JIndex primaryIndex = ttBuffer.getDmoInfo().getPrimaryIndex(true);
+                              if (primaryIndex == null)
+                              {
+                                 ErrorManager.recordOrShowError(13063, ttBuffer.getDmoInfo().legacyTable);
+                                 // REPLACE mode requires a unique primary index in the target table <table>.
+                                 return false;
+                              }
+                           }
+                           
+                           this.schema = new XmlTempTableSchema(ttBuffer);
+                           this.proxy = (Buffer) ttBuffer.getDMOProxy();
                            this.extentTracker = new ExtentTracker(this.schema);
                            
                            if (!readRecord())
@@ -348,14 +471,16 @@
       }
       catch (IOException | XMLStreamException | PersistenceException exc)
       {
-         exc.printStackTrace();
          return false;
       }
       catch (Throwable exc)
       {
-         exc.printStackTrace();
-         System.out.println(reader.getLocation());
-         
+         // intercept all exceptions 
+         if (log.isLoggable(Level.SEVERE))
+         {
+            log.log(Level.SEVERE, exc.getMessage() + reader.getLocation(), exc);
+         }
+         // the rethrow it back
          throw exc;  
       }
       finally
@@ -392,7 +517,15 @@
     */
    public boolean importTable(AbstractTempTable tempTable)
    {
-      knownTableSchema = !tempTable._dynamic() || ((TempTableBuilder) tempTable)._prepared();
+      if (!source.configureSupportedSources(SourceData.SD_READ_XML, LegacyResource.TEMP_TABLE + " widget"))
+      {
+         return false;
+      }
+      
+      String nsPrefix = null;
+      String nsURI = null;
+      
+      knownTableSchema = !tempTable._dynamic() || tempTable._prepared();
       
       if (knownTableSchema)
       {
@@ -406,9 +539,19 @@
             proxy.deleteAll();
          }
       }
+      else if (schemaLocation != null)
+      {
+         XmlImport xmlImport = new XmlImport(this.source, null, null, this.useLobs,
+                                             this.fieldTypeMapping, this.verifySchemaMode.toString());
+         boolean b = xmlImport.importTempTableSchema(tempTable);
+         if (!b)
+         {
+            return false;
+         }
+      }
       
       XMLInputFactory factory = XMLInputFactory.newInstance();
-      try (InputStream stream = source.getInputStream())
+      try (InputStream stream = source.getStream())
       {
          reader = factory.createXMLStreamReader(stream);
          String tableName = schema == null ? null : schema.getTableName();
@@ -422,6 +565,8 @@
                case XMLStreamReader.START_ELEMENT:
                   if (isRoot)
                   {
+                     nsPrefix = reader.getPrefix();
+                     nsURI = reader.getNamespaceURI();
                      isRoot = false;
                      break;
                   }
@@ -430,7 +575,7 @@
                   
                   if (ELEM_SCHEMA.equals(name))
                   {
-                     if (!readTableSchema(tempTable))
+                     if (!readTableSchema(tempTable, nsPrefix, nsURI))
                      {
                         ErrorManager.recordOrShowError(13033);
                         // Verify Temp-Table or dataset schema against XML Schema failed.
@@ -451,7 +596,7 @@
                      return false;
                   }
                   
-                  String rowName = tableName + "Row";
+                  String rowName = tempTable.getXmlNodeName().toJavaType() + "Row";
                   if (rowName.equalsIgnoreCase(name))
                   {
                      if (!readRecord())
@@ -473,8 +618,33 @@
             }
          }
       }
-      catch (IOException | XMLStreamException | PersistenceException exc)
-      {
+      catch (XMLStreamException xexc)
+      {
+         ErrorManager.recordOrShowError(13035, source.getFileName(), "");
+         // Error reading XML file '<file>'.
+         
+         int line = xexc.getLocation().getLineNumber();
+         int col = xexc.getLocation().getColumnNumber();
+         String err = "FATAL ERROR: file '" + source.getFileName() + "', line '" + line +
+                      "', column '" + col + "', message '" + xexc.getMessage().replace('\n', ' ') + "'";
+         ErrorManager.recordOrShowError(13064, err, "");
+         // READ-XML encountered an error while parsing the XML Document: <error>. (13064)
+         return false;
+      }
+      catch (PersistenceException pexc)
+      {
+         // intercept all exceptions 
+         if (log.isLoggable(Level.SEVERE))
+         {
+            log.log(Level.SEVERE, pexc.getMessage() + reader.getLocation(), pexc);
+         }
+         return false;
+      }
+      catch (IOException exc)
+      {
+         // this is a bit strange:
+         ErrorManager.recordOrShowError(4065, "READ-XML", "TEMP-TABLE widget");
+         // **The <attribute> attribute on the <widget id> has invalid arguments.
          return false;
       }
       finally
@@ -498,18 +668,24 @@
    /**
     * Reads and processes a {@code TEMP-TABLE} schema.
     *
+    * @param   nsPrefix
+    *          The detected XML namespace prefix.
+    * @param   nsUri
+    *          The detected XML namespace URI.
+    *
     * @return  {@code true} on success and {@code false} otherwise. When {@code false} is returned
-    *          then the error message has already been dispatched to {@code ErrorManager}.  
+    *          then the error message has already been dispatched to {@code ErrorManager}.
     *
     * @throws  XMLStreamException
     *          If a XML-related error occurs (like an unexpected end of stream).
     */
-   private boolean readTableSchema(AbstractTempTable tempTable)
+   private boolean readTableSchema(AbstractTempTable tempTable, String nsPrefix, String nsUri)
    throws XMLStreamException
    {
       TempTableBuilder ttb = tempTable._dynamic() ? (TempTableBuilder) tempTable : null;
       String legacyTableName = null;
       String xmlName = null;
+      String undoable = null;
       
       List<String> readFields = new LinkedList<>();
       while (reader.hasNext())
@@ -534,6 +710,7 @@
                         // this is the table definition
                         legacyTableName = getXmlAttribute("prodata:tableName");
                         xmlName = getXmlAttribute("name");
+                        undoable = getXmlAttribute("prodata:undo");
                         
                         if (ttb != null)
                         {
@@ -543,30 +720,62 @@
                         break;
                      }
                      
-                     String fieldName = getXmlAttribute("name");
                      String fieldType = getXmlAttribute("type");
-                     String extentMax = getXmlAttribute("maxOccurs");
-                     String ablDataType = getXmlAttribute("prodata:dataType");
-                     String nullable = getXmlAttribute("nullable");
                      
                      if (fieldType != null)
                      {
+                        String fieldName = getXmlAttribute("name");
+                        String extentMax = getXmlAttribute("maxOccurs");
+                        String ablDataType = getXmlAttribute("prodata:dataType");
+                        String nullable = getXmlAttribute("nullable");
+                        String defaultStrVal = getXmlAttribute("default");
+                        String decimals = getXmlAttribute("prodata:decimals");
+                        String format = getXmlAttribute("prodata:format");
+                        String cs = getXmlAttribute("prodata:caseSensitive");
+                        String optional = getXmlAttribute("nillable");
+                        
                         // this a field definition
-                        String ablType = get4GLType(fieldType, ablDataType, nullable);
+                        String ablType = get4GLType(
+                              fieldType, ablDataType, nullable, useLobs, legacyTableName, fieldName);
                         if (ttb != null)
                         {
-                           // constructing table from schema
-                           if (extentMax == null)
-                           {
-                              // plain, no extent
-                              ttb.addNewField(new character(fieldName), new character(ablType));
-                           }
-                           else
-                           {
-                              ttb.addNewField(new character(fieldName),
-                                              new character(ablType),
-                                              new integer(Integer.parseInt(extentMax)));
-                           }
+                           ParmType parmType = TempTableBuilder.validateDatatype(ablType);
+                           if (parmType == null)
+                           {
+                              ErrorManager.recordOrShowError(13201, ablType, fieldName);
+                              // Invalid data type override '<type>' for field '<field>'.
+                              ErrorManager.recordOrShowError(13032);
+                              // Unable to create Temp-Table or dataset schema from XML Schema.
+                              return false;
+                           }
+                           
+                           if (format == null)
+                           {
+                              format = TempTableBuilder.getDefaultDataTypeFormat(ablType);
+                           }
+                           long extent = extentMax == null ? 0 : Long.parseLong(extentMax);
+                           BaseDataType defVal = null;
+                           if (BaseDataType.class.isAssignableFrom(parmType.getParamType()) && 
+                               defaultStrVal != null)
+                           {
+                              try
+                              {
+                                 Constructor<? extends BaseDataType> ctor =
+                                       (Constructor<? extends BaseDataType>)
+                                             parmType.getParamType().getConstructor(String.class);
+                                 defVal = ctor.newInstance(defaultStrVal);
+                              }
+                              catch (NoSuchMethodException | IllegalAccessException | 
+                                     InstantiationException | InvocationTargetException e)
+                              {
+                                 return false;
+                              }
+                           }
+                           
+                           ttb.addField(new P2JField(fieldName, parmType, extent, format, defVal, null, null,
+                                                     Boolean.parseBoolean(cs), null, null, false, null,
+                                                     null, null, null, !Boolean.parseBoolean(optional),
+                                                     decimals == null ? 0 : Integer.parseInt(decimals)));
                         }
                         else if (verifySchemaMode != Verify.IGNORE)
                         {
@@ -600,7 +809,7 @@
                   case "unique":
                      // found an unique index
                      String primary = getXmlAttribute("prodata:primaryIndex");
-                     if (!readIndex(getXmlAttribute("name"), Boolean.parseBoolean(primary), true))
+                     if (!readIndex(getXmlAttribute("name"), nsPrefix, Boolean.parseBoolean(primary), true))
                      {
                         return false;
                      }
@@ -608,7 +817,7 @@
                   
                   case "index":
                      // found an non-unique index
-                     if (!readIndex(getXmlAttribute("name"), false, false))
+                     if (!readIndex(getXmlAttribute("name"), nsPrefix, false, false))
                      {
                         return false;
                      }
@@ -645,23 +854,26 @@
                            }
                         }
                      }
-                     this.schema.setXmlTableName(xmlName);
                      return true;
                   }
                   
-                  logical ok = ttb.tempTablePrepare(legacyTableName, true); // TODO: where do we get [before] flag?
-                  if (!ok.getValue())
+                  if (!ttb._prepared())
                   {
-                     // TODO: report error? already reported? 
-                     return false;
+                     ttb.setCanUndo(new logical(Boolean.parseBoolean(undoable)));
+                     logical ok = ttb.tempTablePrepare(legacyTableName);
+                     if (!ok.getValue())
+                     {
+                        // TODO: report error? already reported? 
+                        return false;
+                     }
+                     ttb.setXmlNodeName(xmlName);
+                     ttb.namespaceURI(nsUri);
+                     ttb.namespacePrefix(nsPrefix);
+                     BufferImpl defaultBuffer = (BufferImpl) ttb.defaultBufferHandle().getResource();
+                     this.schema = new XmlTempTableSchema((TemporaryBuffer) defaultBuffer.buffer());
+                     this.extentTracker = new ExtentTracker(schema);
+                     this.proxy = (Buffer) defaultBuffer.buffer().getDMOProxy();
                   }
-                  // TODO: [AbstractTempTable] must implement [XmlNode]
-                  // ttb.setXmlNodeName(xmlName);
-                  BufferImpl defaultBuffer = (BufferImpl) ttb.defaultBufferHandle().getResource();
-                  this.schema = new XmlTempTableSchema((TemporaryBuffer) defaultBuffer.buffer());
-                  this.schema.setXmlTableName(xmlName);
-                  this.extentTracker = new ExtentTracker(schema);
-                  this.proxy = (Buffer) defaultBuffer.buffer().getDMOProxy();
                   
                   return true;
                }
@@ -676,6 +888,10 @@
     * Reads and processes a {@code DataSet} schema. If the {@code DataSet} is in CLEAR state, the
     * structure is initialized and its tables and relations are set up. Otherwise the schema is
     * checked according to {@code verifySchemaMode}.
+    *
+    * @param   verify
+    *          When {@code true} the schema is only verified. Otherwise the methods attempts to create the
+    *          read schema into the dataset.
     * 
     * @return  {@code true} on success and {@code false} otherwise. When {@code false} is returned
     *          then the error message has already been dispatched to {@code ErrorManager}.  
@@ -683,7 +899,7 @@
     * @throws  XMLStreamException
     *          If a XML-related error occurs (like an unexpected end of stream).
     */
-   private boolean readDatasetSchema()
+   private boolean readDatasetSchema(boolean verify)
    throws XMLStreamException
    {
       while (reader.hasNext())
@@ -723,10 +939,21 @@
                         String tableName = getXmlAttribute("prodata:tableName");
                         if (tableName == null)
                         {
-                           // if dedicated attribute not found, use the xml name attribute 
+                           // if dedicated attribute not found, use the xml name attribute
                            tableName = getXmlAttribute("name");
                         }
-                        if (!readTableSchema(tableName))
+                        handle buffer = ds.bufferHandle(tableName);
+                        if (verifySchemaMode == Verify.STRICT && verify && !buffer._isValid())
+                        {
+                           // TODO: 4GL will test the other way around: collects all table definitions from
+                           //       file and attempt to match dataset in that collection, throwing 10779
+                           //       errors first. Then the difference is computed and 13138 is eventually raised
+                           
+                           ErrorManager.recordOrShowError(13138, tableName);
+                           // Temp-table '<table>' not found in XML Schema
+                           return false;
+                        }
+                        if (!readTableSchema(tableName, null))
                         {
                            return false;
                         }
@@ -740,7 +967,7 @@
                   case "unique":
                      // found an unique index
                      String primary = getXmlAttribute("prodata:primaryIndex");
-                     if (!readIndex(getXmlAttribute("name"), Boolean.parseBoolean(primary), true))
+                     if (!readIndex(getXmlAttribute("name"), null, Boolean.parseBoolean(primary), true))
                      {
                         return false;
                      }
@@ -748,7 +975,7 @@
                      
                   case "index":
                      // found an non-unique index
-                     if (!readIndex(getXmlAttribute("name"), false, false))
+                     if (!readIndex(getXmlAttribute("name"), null, false, false))
                      {
                         return false;
                      }
@@ -768,7 +995,7 @@
                   case "sequence":
                   case "annotation":
                   case "appinfo":
-                     // tolerate them, nothing to do ta this time
+                     // tolerate them, nothing to do at this time
                      break;
                }
                break;
@@ -793,7 +1020,7 @@
                         {
                            xmlName = tablesByXmlName.get(new CaseInsensitiveString(xmlName));
                         }
-                        TempTableBuilder ttb = tables.get(xmlName);
+                        AbstractTempTable ttb = tables.get(xmlName);
                         if (ttb == null)
                         {
                            ErrorManager.recordOrShowError(13079, xmlName);
@@ -803,7 +1030,7 @@
                      }
                      
                      // check the other way around: all read tables must be present in DS:
-                     for (Map.Entry<String, TempTableBuilder> entry : tables.entrySet())
+                     for (Map.Entry<String, AbstractTempTable> entry : tables.entrySet())
                      {
                         String dstt = entry.getKey();
                         if (!ds.bufferHandle(dstt)._isValid())
@@ -870,25 +1097,37 @@
                         String xmlName = schema.getTableName();
                         if (xmlName != null && !xmlName.equals(buff.doGetName()))
                         {
-                           tablesByXmlName.put(new CaseInsensitiveString(xmlName),
-                                               buff.doGetName());
+                           tablesByXmlName.put(new CaseInsensitiveString(xmlName), buff.doGetName());
                         }
                      }
                      
                      return true;
                   }
                   
-                  // create tables from [tables]
-                  Buffer[] dsBuffs = new Buffer[tables.size()];
-                  int k = 0;
-                  for (Map.Entry<String, TempTableBuilder> entry : tables.entrySet())
+                  for (Map.Entry<String, AbstractTempTable> entry : tables.entrySet())
                   {
-                     TempTableBuilder ttb = entry.getValue();
-                     
-                     logical ok = ttb.tempTablePrepare(entry.getKey(), true); // TODO: where do we get [before] flag?
+                     AbstractTempTable atb = entry.getValue();
+                     if (atb instanceof StaticTempTable)
+                     {
+                        continue;
+                     }
+                     
+                     TempTableBuilder ttb = (TempTableBuilder) atb;
+                     if (ttb._prepared())
+                     {
+                        continue;
+                     }
+                     
+                     logical ok = ttb.tempTablePrepare(entry.getKey());
                      if (ok.getValue())
                      {
-                        dsBuffs[k++] = (BufferImpl) ttb.defaultBufferHandle().getResource();
+                        // set them in dataset:
+                        BufferImpl defBuffer = (BufferImpl) ttb.defaultBufferHandle().getResource();
+                        if (!ds.addBuffer(defBuffer).getValue())
+                        {
+                           // TODO: report error? already reported? 
+                           return false;
+                        }
                      }
                      else 
                      {
@@ -897,23 +1136,24 @@
                      }
                   }
                   
-                  // set them in dataset:
-                  if (!ds.setBuffers(dsBuffs).getValue())
-                  {
-                     return false;
-                  }
-                  
-                  // add the relations, if any:
-                  for (Relation rel : relations)
-                  {
-                     handle hRel = ds.addRelation(ds.bufferHandle(rel.parent),
-                                                  ds.bufferHandle(rel.child),
-                                                  new character(rel.fields));
-                     DataRelation relation = (DataRelation) hRel.getResource();
-                     if (relation != null)
+                  if (ds._dynamic() && verifySchemaMode != Verify.STRICT) // if (!verify)
+                  {
+                     // add the relations, if not already added (?)
+                     for (Relation rel : relations)
                      {
-                        relation.name(rel.name);
-                        relation.setNested(rel.nested);
+                        handle hRel = ds.addRelationImpl(
+                              ds.bufferHandle(rel.parent), ds.bufferHandle(rel.child),
+                              new character(rel.fields), null, null, null, null, null, true);
+                        if (hRel == null)
+                        {
+                           continue; // duplicate relation
+                        }
+                        DataRelation relation = (DataRelation) hRel.getResource();
+                        if (relation != null)
+                        {
+                           relation.name(rel.name);
+                           relation.setNested(rel.nested);
+                        }
                      }
                   }
                   return true;
@@ -926,10 +1166,151 @@
    }
    
    /**
+    * Reads and processes an {@code AbstractTempTable} schema. If the {@code TempTable} is in CLEAR state, the
+    * structure is initialized. Otherwise the schema is checked according to {@code verifySchemaMode}.
+    *
+    * @param   xmlNodeName
+    *          The detected XML node name.
+    * @param   nsPrefix
+    *          The detected XML namespace prefix.
+    * @param   nsUri
+    *          The detected XML namespace URI.
+    *
+    * @return  {@code true} on success and {@code false} otherwise. When {@code false} is returned
+    *          then the error message has already been dispatched to {@code ErrorManager}.
+    *
+    * @throws  XMLStreamException
+    *          If a XML-related error occurs (like an unexpected end of stream).
+    */
+   private boolean readTableSchema(String xmlNodeName, String nsPrefix, String nsUri)
+   throws XMLStreamException
+   {
+      boolean undo = false;
+      while (reader.hasNext())
+      {
+         int type = reader.next();
+         String name = null; 
+         switch (type)
+         {
+            case XMLStreamReader.START_ELEMENT:
+               if (verifySchemaMode == Verify.IGNORE && !ds._dynamic())
+               {
+                  // for static datasets, IGNORE mode will ignore all schema nodes
+                  break;
+               }
+               
+               name = reader.getLocalName();
+               switch (name)
+               {
+                  case "element":
+                     boolean isTT = Boolean.parseBoolean(getXmlAttribute("prodata:proTempTable"));
+                     if (isTT) 
+                     {
+                        String tableName = getXmlAttribute("prodata:tableName");
+                        if (tableName == null)
+                        {
+                           // if dedicated attribute not found, use the xml name attribute 
+                           tableName = getXmlAttribute("name");
+                        }
+                        else if (xmlNodeName == null && !tableName.equals(getXmlAttribute("name")))
+                        {
+                           xmlNodeName = getXmlAttribute("name");
+                        }
+                        if (nsPrefix == null)
+                        {
+                           nsPrefix = getXmlAttribute("prodata:prefix");
+                        }
+                        undo = Boolean.parseBoolean(getXmlAttribute("prodata:undo"));
+                        
+                        ttName = tableName;
+                        if (!readTableSchema(tableName, nsPrefix))
+                        {
+                           return false;
+                        }
+                     }
+                     else 
+                     {
+                        // what? log something?
+                        return false;
+                     }
+                     break;
+                     
+                  case ELEM_SCHEMA:
+                     if (nsUri == null)
+                     {
+                        nsUri = getXmlAttribute("targetNamespace");
+                     }
+                     // check "xmlns:xsd", "xmlns", and "xmlns:prodata" attributes
+                     break;
+                     
+                  case "unique":
+                     // found an unique index
+                     String primary = getXmlAttribute("prodata:primaryIndex");
+                     if (!readIndex(getXmlAttribute("name"), nsPrefix, Boolean.parseBoolean(primary), true))
+                     {
+                        return false;
+                     }
+                     break;
+                     
+                  case "index":
+                     // found an non-unique index
+                     if (!readIndex(getXmlAttribute("name"), nsPrefix, false, false))
+                     {
+                        return false;
+                     }
+                     break;
+                     
+                  case "complexType":
+                  case "sequence":
+                  case "annotation":
+                  case "appinfo":
+                     // tolerate them, nothing to do at this time
+                     break;
+               }
+               break;
+               
+            case XMLStreamReader.END_ELEMENT:
+               name = reader.getLocalName();
+               if (ELEM_SCHEMA.equals(name))
+               {
+                  if (tt._dynamic() && !tt.prepared().booleanValue())
+                  {
+                     TempTableBuilder ttb = (TempTableBuilder) tt;
+                     ttb.setCanUndo(new logical(undo));
+                     if (xmlNodeName != null)
+                     {
+                        ttb.setXmlNodeName(xmlNodeName);
+                     }
+                     if (nsPrefix != null)
+                     {
+                        ttb.namespacePrefix(nsPrefix);
+                     }
+                     if (nsUri != null)
+                     {
+                        ttb.namespaceURI(nsUri);
+                     }
+                     if (!ttb.tempTablePrepare(ttName).booleanValue())
+                     {
+                        // TODO: report error? already reported? 
+                        return false;
+                     }
+                  }
+               }
+               break;
+         }
+      }
+      
+      return true;
+      //throw new XMLStreamException("Unexpected EOS in readTableSchema().", reader.getLocation());
+   }
+   
+   /**
     * Reads and process an index from the XML stream.
     * 
     * @param   indexName
     *          The index name.
+    * @param   nsPrefix
+    *          The detected XML namespace prefix.
     * @param   primary
     *          {@code true} if this is a primary index.
     * @param   unique
@@ -941,10 +1322,10 @@
     * @throws  XMLStreamException
     *          If a XML-related error occurs (like an unexpected end of stream).
     */
-   private boolean readIndex(String indexName, boolean primary, boolean unique)
+   private boolean readIndex(String indexName, String nsPrefix, boolean primary, boolean unique)
    throws XMLStreamException
    {
-      TempTableBuilder ttb = null;
+      AbstractTempTable ttb = null;
       while (reader.hasNext())
       {
          int type = reader.next();
@@ -956,33 +1337,65 @@
                {
                   case "table": // in case of NON-unique indexes
                      ttb = tables.get(getXmlAttribute("name"));
-                     ttb.addNewIndex(new character(indexName),
-                                     new logical(unique),
-                                     new logical(primary));
+                     if (ttb != null && !ttb._prepared())
+                     {
+                        ttb.addNewIndex(new character(indexName), new logical(unique), new logical(primary));
+                     }
+                     // if the table is already prepared, the indexes in schema are not verified, not even if
+                     // STRICT mode was specified.
                      break;
                      
                   case "selector": // in case of unique indexes
                      String xpath = getXmlAttribute("xpath");
                      if (xpath.startsWith(".//"))
                      {
-                        xpath = tablesByXmlName.get(new CaseInsensitiveString(xpath.substring(3)));
-                     }
+                        xpath = xpath.substring(3);
+                     }
+                     
+                     if (nsPrefix != null && xpath.startsWith(nsPrefix))
+                     {
+                        // drop the [nsPrefix], including the COLON, if any
+                        xpath = xpath.substring(nsPrefix.length() + 1);
+                     }
+                     
+                     if (tablesByXmlName != null)
+                     {
+                        xpath = tablesByXmlName.get(new CaseInsensitiveString(xpath));
+                     }
+                     else if (xpath.endsWith("Row"))
+                     {
+                        xpath = xpath.substring(0, xpath.length() - 3);
+                     }
+                     
                      ttb = tables.get(xpath);
-                     ttb.addNewIndex(new character(indexName),
-                                     new logical(unique),
-                                     new logical(primary));
+                     if (ttb != null && !ttb._prepared())
+                     {
+                        ttb.addNewIndex(new character(indexName), new logical(unique), new logical(primary));
+                     }
+                     // if the table is already prepared, the indexes in schema are not verified, not even if
+                     // STRICT mode was specified.
                      break;
                      
                   case "field":
                      String field = getXmlAttribute(unique ? "xpath" : "name");
+                     if (nsPrefix != null && field.startsWith(nsPrefix))
+                     {
+                        // drop the [nsPrefix], including the COLON, if any
+                        field = field.substring(nsPrefix.length() + 1);
+                     }
                      boolean desc = Boolean.parseBoolean(getXmlAttribute("prodata:descending"));
-                     ttb.addFieldToIndex(new character(indexName),
-                                         new character(field),
-                                         new character(desc ? "desc" : "asc"));
+                     if (ttb != null && !ttb._prepared())
+                     {
+                        ttb.addFieldToIndex(new character(indexName),
+                                            new character(field),
+                                            new character(desc ? "desc" : "asc"));
+                     }
+                     // if the table is already prepared, the indexes in schema are not verified, not even if
+                     // STRICT mode was specified.
                      break;
                }
                break;
-         
+            
             case XMLStreamReader.END_ELEMENT:
                String localName = reader.getLocalName();
                if ("unique".equals(localName) || "index".equals(localName))
@@ -1090,19 +1503,46 @@
     * 
     * @param   tableName
     *          The name of the table which is being processed.
-    * 
-    * @return  {@code true} if the operation is successful. If the operation failed {@code false}
-    *          is returned.
-    * 
-    * @throws XMLStreamException
+    * @param   nsPrefix
+    *          The detected XML namespace prefix.
+    * 
+    * @return  {@code true} if the operation is successful. If the operation fails, {@code false} is returned.
+    * 
+    * @throws  XMLStreamException
+    *          in the event of an exception occurred while reading the XML stream.
     */
-   private boolean readTableSchema(String tableName)
+   private boolean readTableSchema(String tableName, String nsPrefix)
    throws XMLStreamException
    {
-      TempTableBuilder ttb = new TempTableBuilder();
-      this.tables.put(tableName, ttb);
-      this.tablesByXmlName.put(new CaseInsensitiveString(getXmlAttribute("name")), tableName);
-   
+      // detect the working mode
+      AbstractTempTable att = null;
+      DmoMeta toMatch = null; // the DMO to verify against
+      if (ds != null)
+      {
+         BufferImpl existingBuffer = (BufferImpl) ds.bufferHandle(tableName).getResource();
+         if (existingBuffer != null)
+         {
+            // if the default buffer of the table already exists we need just to verify the schema of the
+            // static/dynamic table, not to create it from the ground up. In this case [att] is null.
+            toMatch = existingBuffer.buffer().getDmoInfo();
+            att = (AbstractTempTable) existingBuffer.buffer().tableHandle().getResource();
+         }
+      }
+      if (toMatch == null)
+      {
+         att = (tt == null) ? new TempTableBuilder() : (TempTableBuilder) tt;
+      }
+      this.tables.put(tableName, att);
+      String xmlName = getXmlAttribute("name");
+      this.tablesByXmlName.put(new CaseInsensitiveString(xmlName), tableName);
+      
+      Set<Property> fieldsToMatch = null;
+      if (verifySchemaMode == Verify.STRICT && toMatch != null)
+      {
+         fieldsToMatch = new LinkedHashSet<>();
+         toMatch.getFields(false).forEachRemaining(fieldsToMatch::add);
+      }
+      
       // allows to distinct between table-ELEMENT and field-ELEMENT
       boolean moreFields = true;
       while (reader.hasNext())
@@ -1125,7 +1565,7 @@
                      {
                         // in this case the read [name] attribute is, in fact, the name of the nested table
                         String legacy = getXmlAttribute("prodata:tableName");
-                        if (!readTableSchema(legacy == null ? fieldName : legacy))
+                        if (!readTableSchema(legacy == null ? fieldName : legacy, nsPrefix))
                         {
                            return false;
                         }
@@ -1134,18 +1574,114 @@
                      {
                         String ablType = get4GLType(type,
                                                     getXmlAttribute("prodata:dataType"),
-                                                    getXmlAttribute("nullable"));
-                        if (extentMax == null)
-                        {
-                           // plain, no extent
-                           ttb.addNewField(new character(fieldName), new character(ablType));
-                        }
-                        else
-                        {
-                           ttb.addNewField(new character(fieldName),
-                                           new character(ablType),
-                                           new integer(Integer.parseInt(extentMax)));
-                        }
+                                                    getXmlAttribute("nullable"),
+                                                    useLobs && toMatch == null,
+                                                    tableName,
+                                                    fieldName);
+                        boolean cs = Boolean.parseBoolean(getXmlAttribute("prodata:caseSensitive"));
+                        int decimals;
+                        try
+                        {
+                           decimals = Integer.parseInt(getXmlAttribute("prodata:decimals"), 10);
+                        }
+                        catch (NumberFormatException e)
+                        {
+                           decimals = 0;
+                        }
+                        
+                        String defaultStrVal = getXmlAttribute("default");
+                        
+                        ParmType fieldType = TempTableBuilder.validateDatatype(ablType);
+                        if (fieldType == null)
+                        {
+                           ErrorManager.recordOrShowError(13201, ablType, fieldName);
+                           // Invalid data type override '<type>' for field '<field>'.
+                           ErrorManager.recordOrShowError(13032);
+                           // Unable to create Temp-Table or dataset schema from XML Schema.
+                           return false;
+                        }
+                        
+                        String format = TempTableBuilder.getDefaultDataTypeFormat(ablType);
+                        long extent = extentMax == null ? 0 : Long.parseLong(extentMax);
+                        
+                        BaseDataType defVal = null;
+                        Class<?> fwdType = fieldType.getParamType();
+                        if (BaseDataType.class.isAssignableFrom(fwdType) && defaultStrVal != null)
+                        {
+                           if (fwdType == clob.class || fwdType == blob.class)
+                           {
+                              ErrorManager.recordOrShowError(13143, defaultStrVal, fieldName);
+                              // Unable to set initial value '<value>' from XML Schema for field '<field>'.
+                              return false;
+                           }
+                           
+                           try
+                           {
+                              Constructor<? extends BaseDataType> ctor = 
+                                 (Constructor<? extends BaseDataType>) fwdType.getConstructor(String.class);
+                              defVal = ctor.newInstance(defaultStrVal);
+                           }
+                           catch (NoSuchMethodException | IllegalAccessException | 
+                                  InstantiationException | InvocationTargetException e)
+                           {
+                              ErrorManager.recordOrShowError(13143, defaultStrVal, fieldName);
+                              // Unable to set initial value '<value>' from XML Schema for field '<field>'.
+                              return false;
+                           }
+                        }
+                        
+                        if (toMatch == null)
+                        {
+                           P2JField newField = new P2JField(
+                                 fieldName, fieldType, extent, format, defVal, null, null, cs, null, null,
+                                 false, null, null, null, null, false, decimals);
+                           ((TempTableBuilder) att).addField(newField);
+                        }
+                        else if (verifySchemaMode != Verify.IGNORE)
+                        {
+                           Property prop = toMatch.byLegacyName(fieldName);
+                           if (prop == null || !prop._ablType.equals(ablType) || prop.extent != extent)
+                           {
+                              if (verifySchemaMode == Verify.STRICT)
+                              {
+                                 ErrorManager.recordOrShowError(13201, ablType, fieldName);
+                                 return false;
+                              }
+                           }
+                           if (extent != 0 && useLobs && 
+                               ("character".equalsIgnoreCase(ablType) ||
+                                "raw".equalsIgnoreCase(ablType)))
+                           {
+                              // LOBS (BLOB or CLOB) cannot have extents
+                              ErrorManager.recordOrShowError(13141, fieldName);
+                              // Invalid 'maxOccurs' attribute value set for BLOB or CLOB field '<field>'.
+                              ErrorManager.recordOrShowError(13033);
+                              // Verify Temp-Table or dataset schema against XML Schema failed.
+                              return false;
+                           }
+                           
+                           if (fieldsToMatch != null) // implies [verifySchemaMode == Verify.STRICT]
+                           {
+                              fieldsToMatch.remove(prop);
+                           }
+                        }
+                     }
+                     break;
+                  
+                  case "unique":
+                     // found an unique index
+                     String primary = getXmlAttribute("prodata:primaryIndex");
+                     if (!readIndex(getXmlAttribute("name"), nsPrefix, Boolean.parseBoolean(primary), true))
+                     {
+                        return false;
+                     }
+                     break;
+                  
+                  case "index":
+                     // found an non-unique index
+                     if (!readIndex(getXmlAttribute("name"), nsPrefix, false, false))
+                     {
+                        return false;
                      }
                      break;
                   
@@ -1161,6 +1697,13 @@
                if ("complexType".equals(name))
                {
                   moreFields = false;
+                  if (fieldsToMatch != null && !fieldsToMatch.isEmpty()) // implies [verifySchemaMode == Verify.STRICT]
+                  {
+                     Property fail = fieldsToMatch.iterator().next();
+                     ErrorManager.recordOrShowError(13090, fail.legacy, name);
+                     // XML Schema definition for field '<field>' in table '<table>' not found.
+                     return false;
+                  }
                } 
                if (!moreFields && "element".equals(name))
                {
@@ -1250,6 +1793,36 @@
    }
    
    /**
+    * Skip the whole subtree because the record belongs to an unknown table. Fast forward to the end tag of
+    * the record.
+    * 
+    * @param   tableName
+    *          The table name.
+    *
+    * @return  {@code true} on success. Otherwise an error is issued before returning {@code false}.
+    *
+    * @throws  XMLStreamException
+    *          if the XML stream cannot be parsed. 
+    */
+   private boolean skipRecord(String tableName)
+   throws XMLStreamException
+   {
+      while (reader.hasNext())
+      {
+         int type = reader.next();
+         if (type == XMLStreamReader.END_ELEMENT)
+         {
+            String name = reader.getLocalName();
+            if (tableName.equals(name))
+            {
+               return true; // all OK
+            }
+         }
+      }
+      throw new XMLStreamException("Unexpected EOS in readSchema().", reader.getLocation());
+   }
+   
+   /**
     * Read XML content from the stream corresponding with a single data record and store it in
     * the temp-table.
     * 
@@ -1279,6 +1852,7 @@
       boolean processNested = false;
       String name = null;
       boolean batchError = true;
+      RecordBuffer recBuffer = ((BufferImpl) proxy).buffer();
       try
       {
          RecordBuffer.startBatch(true);
@@ -1309,7 +1883,7 @@
                      {
                         after.findByRowID(peer, LockType.EXCLUSIVE);
                         ((TemporaryBuffer) after.buffer()).peerRowid(proxy.rowID());
-                        ((TemporaryBuffer) ((BufferImpl) proxy).buffer()).peerRowid(after.rowID());
+                        ((TemporaryBuffer) recBuffer).peerRowid(after.rowID());
                         after.release();
                      }
                      else
@@ -1326,7 +1900,7 @@
                            value.equalsIgnoreCase(STR_ROW_DELETED) ? Buffer.ROW_DELETED :
                            value.equalsIgnoreCase(STR_ROW_MODIFIED) ? Buffer.ROW_MODIFIED :
                                  Buffer.ROW_UNMODIFIED;
-               ((TemporaryBuffer) ((BufferImpl) proxy).buffer()).rowState(state);
+               ((TemporaryBuffer) recBuffer).rowState(state);
                if (state == Buffer.ROW_CREATED)
                {
                   // a bit clumsy: we need to create the before image for this kind of record
@@ -1337,7 +1911,7 @@
                      before.create();
                      ((TemporaryBuffer) before.buffer()).rowState(Buffer.ROW_CREATED);
                      ((TemporaryBuffer) before.buffer()).peerRowid(proxy.rowID());
-                     ((TemporaryBuffer) ((BufferImpl) proxy).buffer()).peerRowid(before.rowID());
+                     ((TemporaryBuffer) recBuffer).peerRowid(before.rowID());
                      before.setUpBeforeBuffer(false);
                      before.release();
                   }
@@ -1369,7 +1943,7 @@
                   TempTableSchema.Column column = schema.getColumn(name);
                   if (column == null)
                   {
-                     // maybe this is a record of a nested table of teh dataset?
+                     // maybe this is a record of a nested table of the dataset?
                      if (ds != null)
                      {
                         if (ds.bufferHandle(name) != null)
@@ -1404,10 +1978,71 @@
          
          batchError = false;
       }
+      catch (XMLStreamException xmlEx)
+      {
+         ErrorManager.recordOrShowError(13035, source.getFileName(), "");
+         // Error reading XML file '<file>'.
+         return false;
+      }
       finally
       {
          extentTracker.reset();
+         
+         if (readMode == Read.MERGE || readMode == Read.REPLACE)
+         {
+            boolean validated = false;
+            try
+            {
+               validated = recBuffer.validate(false);
+            }
+            catch (ValidationException e)
+            {
+               // ignore, no 'expected' exception will be thrown
+            }
+            
+            // was there an unique conflict with this record?
+            if (!validated)
+            {
+               if (readMode == Read.MERGE)
+               {
+                  // merge mode: ignore it, just skip to next record
+                  proxy.release(); // TODO: not enough 
+               }
+               else
+               {
+                  // replace mode: eliminate competition, then try again on clean ground
+                  try
+                  {
+                     OrmUtils.dropUniqueIndexConflicts(recBuffer.buffer(),
+                                                       recBuffer.buffer().getPersistence(),
+                                                       recBuffer.buffer().getMultiplexID());
+                  }
+                  catch (PersistenceException e)
+                  {
+                     throw new ErrorConditionException(
+                           "FILL: Failed to make room for new record in REPLACE mode", e);
+                  }
+                  // now there should not be any collisions and the new record should be flushed
+               }
+            }
+         }
+         
+         ErrorManager.ErrorHelper eh = ErrorManager.getErrorHelper();
+         boolean wm = eh.isWarningMode();
+         if (!wm)
+         {
+            // this is mostly for APPEND mode, the other ones will not encounter issues here
+            eh.setWarningMode(true);
+         }
          RecordBuffer.endBatch(batchError);
+         if (!wm)
+         {
+            eh.setWarningMode(false);
+         }
+         if (ErrorManager.isPendingError())
+         {
+            return false;
+         }
       }
       
       if (processNested)
@@ -1615,9 +2250,18 @@
     * @param   type
     *          The pure {@code xsd} type. 
     * @param   proType
-    *          Addtional information needed to distinct the original 4GL type.
+    *          Additional information needed to distinct the original 4GL type.
     * @param   nullable
     *          Whether the original field type was nullable.
+    * @param   useLobs
+    *          If {@code true}, {@code clob} and {@code blob} types will be used instead of {@code character}
+    *          and {@code raw}, respectively.
+    * @param   tableName
+    *          Optional. If specified the table name is looked up in the type map instead of the type
+    *          specified in XML file.
+    * @param   fieldName
+    *          Optional. If specified the field name is looked up in the type map instead of the type
+    *          specified in XML file.
     *
     * @return  The original 4GL type of the field. If one cannot be detected using the provided
     *          data, {@code null} is returned.
@@ -1625,16 +2269,41 @@
     * @see com.goldencode.p2j.persist.serial.Util#xsdMap
     * @see com.goldencode.p2j.persist.serial.Util#xsdProdataMap
     */
-   private static String get4GLType(String type, String proType, String nullable)
+   private String get4GLType(String type,
+                             String proType,
+                             String nullable,
+                             boolean useLobs,
+                             String tableName,
+                             String fieldName)
    {
       if (type == null)
       {
          return null;
       }
+      
+      if (fieldTypeMapping != null && fieldName != null)
+      {
+         // TODO: is un-scoped field lookup necessary?
+         String prefType = fieldTypeMapping.get(fieldName);
+         if (prefType != null)
+         {
+            return prefType;
+         }
+         
+         if (tableName != null)
+         {
+            prefType = fieldTypeMapping.get(tableName + "." + fieldName);
+            if (prefType != null)
+            {
+               return prefType;
+            }
+         }
+      }
+      
       switch (type)
       {
          case "xsd:string":
-            return "character";
+            return useLobs || "prodata:clob".equals(proType) ? "clob" : "character";
          case "xsd:int":
             return "integer";
          case "xsd:decimal":
@@ -1646,7 +2315,11 @@
          case "xsd:dateTime":
             return "prodata:dateTime".equals(proType) ? "datetime" : "datetime-tz";
          case "xsd:base64Binary":
-            return "prodata:rowid".equals(proType) ? "rowid" : "raw";
+            if ("prodata:rowid".equals(proType))
+            {
+               return "rowid";
+            }
+            return useLobs || "prodata:blob".equals(proType) ? "blob" : "raw";
          case "xsd:long":
             if ("prodata:recid".equals(proType))
             {

=== modified file 'src/com/goldencode/p2j/persist/serial/XmlTempTableSchema.java'
--- src/com/goldencode/p2j/persist/serial/XmlTempTableSchema.java	2019-10-26 18:06:55 +0000
+++ src/com/goldencode/p2j/persist/serial/XmlTempTableSchema.java	2020-11-20 18:40:59 +0000
@@ -1,12 +1,14 @@
 /*
-** Module   : XmlExport.java
+** Module   : XmlTempTableSchema.java
 ** Abstract : Write temp-table data into an XML stream.
 **
-** Copyright (c) 2017-2019, Golden Code Development Corporation.
+** Copyright (c) 2017-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20190123 Extracted from TempTableSchema.
 ** 002 OM  20190831 Added XML name support for reading table schema.
+** 003 OM  20201120 xmlTableName is not permanent and cannot be cached here. Since this attribute was removed
+**                  this class is subject to deletion and replacement with its super class.
 */
 
 /*
@@ -63,9 +65,7 @@
 */
 package com.goldencode.p2j.persist.serial;
 
-import java.util.*;
 import com.goldencode.p2j.persist.*;
-import com.goldencode.p2j.util.*;
 
 /**
  * The schema used for serialization of a temp-table to XML.
@@ -73,9 +73,6 @@
 class XmlTempTableSchema
 extends TempTableSchema
 {
-   /** The name of table XML file. */
-   private String xmlTableName = null;
-   
    /**
     * Constructor which gathers table and field data from a temp-table buffer.
     * 
@@ -86,39 +83,4 @@
    {
       super(buffer);
    }
-   
-   /**
-    * Compute the XML node name for this table, from the {@link #serializeOptions}.
-    * 
-    * @return  See above.
-    */
-   public String getTableName()
-   {
-      if (xmlTableName == null)
-      {
-         if (serializeOptions.getXmlNodeName().length() > 0)
-         {
-            xmlTableName = serializeOptions.getXmlNodeName();
-         }
-         else
-         {
-            xmlTableName = getName();
-            
-            // TODO: compute from serialize-name, namespace-prefix and namespace-uri
-         }
-      }
-      
-      return xmlTableName;
-   }
-   
-   /**
-    * Sets the XML table name when the chame is read from XML file.
-    * 
-    * @param   xmlTableName
-    *          The new XML name for the table.
-    */
-   public void setXmlTableName(String xmlTableName)
-   {
-      this.xmlTableName = xmlTableName;
-   }
 }

=== modified file 'src/com/goldencode/p2j/persist/trigger/TriggerTracker.java'
--- src/com/goldencode/p2j/persist/trigger/TriggerTracker.java	2020-07-05 23:27:34 +0000
+++ src/com/goldencode/p2j/persist/trigger/TriggerTracker.java	2021-01-04 12:29:06 +0000
@@ -2,7 +2,7 @@
 ** Module   : TriggerTracker.java
 ** Abstract : Helper class to manage database trigger information for a single record buffer
 **
-** Copyright (c) 2014-2020, Golden Code Development Corporation.
+** Copyright (c) 2014-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --------------------------------------Description----------------------------------------
 ** 001 ECF 20140801 Created initial version.
@@ -10,6 +10,8 @@
 ** 003 AIL 20180821 Switched pendingBatchFields to LinkedList to be aware of 
 **                  multiple firing of the same trigger in the same batch.
 ** 004 ECF 20200705 Eliminated resetState to enable performance optimization in caller.
+** 005 AIL 20201210 Added helper to check if any assign trigger is up for the buffer.
+**         20210104 Updated hasAnyAssignTrigger to take in account a predefined set of properties.
 */
 
 /*
@@ -175,28 +177,8 @@
       // assign triggers require per-property handling, but can be disabled en masse
       if (DatabaseEventType.ASSIGN.equals(det))
       {
-         if ((state & checkedMask) == UNCHECKED)
-         {
-            if (manager.areAssignTriggersEnabled(bufferClass))
-            {
-               // assign triggers enabled, but we don't yet know which are registered
-               state |= enabledMask;
-               assignTriggers = new HashMap<>();
-            }
-            else
-            {
-               assignTriggers = null;
-            }
-            
-            // remember we checked enable status for this block
-            state |= checkedMask;
-         }
-         
-         if ((state & enabledMask) != enabledMask)
-         {
-            // all assign triggers are disabled
+         if (!areAssignTriggersEnabled())
             return false;
-         }
          
          Boolean enabled = assignTriggers.get(property);
          if (enabled == null)
@@ -225,6 +207,38 @@
    }
    
    /**
+    * Check if there are any assign triggers up for this buffer.
+    * 
+    * @param   props
+    *          The property names of the properties for which the assign triggers should be
+    *          checked.
+    * 
+    * @return  {@code true} if there is any enabled assign trigger. 
+    */
+   public boolean hasAnyAssignTrigger(Set<String> props)
+   {
+      if (!areAssignTriggersEnabled())
+         return false;
+      
+      for (String prop : props)
+      {
+         Boolean enabled = assignTriggers.get(prop);
+         if (enabled == null)
+         {
+            enabled = manager.isAssignTrigger(bufferClass, prop);
+            assignTriggers.put(prop, enabled);
+         }
+         
+         if (enabled)
+         {
+            return true;
+         }
+      }
+      
+      return false;
+   }
+   
+   /**
     * Push a trigger type onto the stack of trigger types currently executing for the record from
     * the associated record. This should done just before the trigger of this type is fired.
     * 
@@ -512,4 +526,34 @@
          resetOldDMO();
       }
    }
+   
+   /**
+    * Check if the assign triggers are enabled, as they can be bulk disabled.
+    * 
+    * @return  {@code true} if they aren't bulk disabled.
+    */
+   private boolean areAssignTriggersEnabled()
+   {
+      int enabledMask = DatabaseEventType.ASSIGN.getMask();
+      int checkedMask = enabledMask << 8;
+      
+      if ((state & checkedMask) == UNCHECKED)
+      {
+         if (manager.areAssignTriggersEnabled(bufferClass))
+         {
+            // assign triggers enabled, but we don't yet know which are registered
+            state |= enabledMask;
+            assignTriggers = new HashMap<>();
+         }
+         else
+         {
+            assignTriggers = null;
+         }
+         
+         // remember we checked enable status for this block
+         state |= checkedMask;
+      }
+      
+      return (state & enabledMask) == enabledMask;
+   }
 }

=== modified file 'src/com/goldencode/p2j/preproc/Environment.java'
--- src/com/goldencode/p2j/preproc/Environment.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/preproc/Environment.java	2020-10-15 07:54:57 +0000
@@ -56,6 +56,7 @@
 **                           detect unbalanced end of include file markers.
 **     GES 20200629          Made the unbalanced eoi into a warning (an error is too much since this
 **                           condition can be ignored).
+** 020 CA  20201015          Replaced java.util.Stack with ArrayDeque (as synchronization is not required).
 */
 
 /*
@@ -1199,7 +1200,7 @@
    {
       int index = 0;
       List  list  = hints.getHintsList();
-      Stack stack = hints.getHintsStack();
+      Deque stack = hints.getHintsStack();
 
       if (label.length() > 0)
       {

=== modified file 'src/com/goldencode/p2j/preproc/Hints.java'
--- src/com/goldencode/p2j/preproc/Hints.java	2017-08-25 15:21:27 +0000
+++ src/com/goldencode/p2j/preproc/Hints.java	2020-10-15 07:54:57 +0000
@@ -2,7 +2,7 @@
 ** Module   : Hints.java
 ** Abstract : Encapsulates elementary hints and corresponding XML tree.
 **
-** Copyright (c) 2004-2017, Golden Code Development Corporation.
+** Copyright (c) 2004-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------Description-----------------------------
 ** 001 NVS 20050513   @21162 Created. Initial implementation.
@@ -14,6 +14,7 @@
 ** 005 GES 20090515   @42217 Import changes.
 ** 006 CA  20170825          Enhanced to allow collection and reporting of preprocessor constant
 **                           symbols.
+** 007 CA  20201015          Replaced java.util.Stack with ArrayDeque (as synchronization is not required).
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -94,13 +95,13 @@
    private List list = null;
 
    /** stack of include hints */
-   private Stack includes = null;
+   private Deque includes = null;
 
    /** XML document */
    private Document dom = null;
 
    /** stack of DOM parents */
-   private Stack parents = null;
+   private Deque parents = null;
 
    /** count of essential elements */
    private int elementsCount = 0;
@@ -120,8 +121,8 @@
           IOException
    {
       list = new LinkedList();
-      includes = new Stack();
-      parents  = new Stack();
+      includes = new ArrayDeque();
+      parents  = new ArrayDeque();
 
       this.filename = filename;
       if (filename != null)
@@ -157,7 +158,7 @@
     * @return
     *         the hints stack
     */
-   public Stack getHintsStack()
+   public Deque getHintsStack()
    {
       return includes;
    }

=== modified file 'src/com/goldencode/p2j/reporting/Metafile.java'
--- src/com/goldencode/p2j/reporting/Metafile.java	2019-06-18 01:07:56 +0000
+++ src/com/goldencode/p2j/reporting/Metafile.java	2021-01-15 02:45:37 +0000
@@ -2,11 +2,18 @@
 ** Module   : Metafile.java
 ** Abstract : Class to provide GUI metafile service.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 EVL 20190514 Created initial version.
 ** 002 EVL 20190617 Improving line style/width implementation.
+** 003 EVL 20210107 Many bug fixing and improvements.
+**     EVL 20210108 Completed approach for page footer generation.  Added more fixes and improvements to
+**                  clean up some cosmetic deviations.
+**     EVL 20210111 Continue fixup for cosmetic issues.
+**     EVL 20210113 Resolution for underlined text issues and improvements for text width calculation.
+**                  Several fixes for filled rectangle painting and adding coordinates validity check.
+**     EVL 20210114 Fix for text height and space between lines mismatches.  Improved line thick setup.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -77,9 +84,6 @@
 public class Metafile
 implements PdfProvider
 {
-   /** Default DPI value for Windows metafile documenet. */
-   public static final int DPI_DEFAULT = 96;
-   
    /** Left image alignment. */
    public static final int IMAGE_ALIGN_LEFT = 0;
    
@@ -117,13 +121,26 @@
    private static final int FONT_SIZE_DEFAULT = 12;
    
    /** Font name default value for metafile. */
-   private static final String FONT_NAME_DEFAULT = "courier new";
+   private static final String FONT_NAME_DEFAULT = "Courier";
    
    /** Zoom type default value for metafile. */
    private static final String ZOOM_TYPE_DEFAULT = "page";
    
+   /** Optional scaling from PDF coord to metafile. */
+   private static final double pdf2MfDpi = 96.0 / (double)Xpr2PdfWorker.DPI_DEFAULT;
+   
    /** To convert columns to metafile pixels */
-   private static double pixPerColMf = (double)DPI_DEFAULT / (double)XprEntity.CPI_DEFAULT;
+   private static final double pixPerColMf = (double)Xpr2PdfWorker.DPI_DEFAULT /
+                                             (double)XprEntity.CPI_DEFAULT;
+   
+   /** Constant vertical shift for object. Text, line, image and rectangle are involved. */
+   private static final double OBJ_Y_SHIFT = 0.45;
+   
+   /** If X coord is on the lefd edge (0.0), the value must be increased. */
+   private static final double EDGE_LINE_X_SHIFT = 0.125;
+   
+   /** Vertical lines should be shifted with this value. */
+   private static final double VERT_LINE_Y_SHIFT = 0.01;
    
    /** The Z-ordered list of the objects recognized inside current file entity, paginated. */
    private List<List<XprObjBase>> pages = new ArrayList<List<XprObjBase>>();
@@ -152,6 +169,9 @@
    /** Current font size (default is 12). */
    private int fontSize = FONT_SIZE_DEFAULT;
    
+   /** Current font size in metric units (default is 12). */
+   private double fontSizeMetric = MetafileHelper.pix2MfUnits(fontSize);
+   
    /** Flag indicating if the font is currently bold or not. */
    private boolean isBold = false;
    
@@ -170,12 +190,6 @@
    /** Background color for filled rectangles.*/
    private int fillColor = 0xFFFFFFFF;
    
-   /** Current X value in new entity. */
-   private double xCurr = 0.0;
-   
-   /** Current Y value in new entity. */
-   private double yCurr = 0.0;
-   
    /** Current X value for page number text. */
    private double xPageNum = 0.0;
    
@@ -183,16 +197,31 @@
    private double yPageNum = 0.0;
    
    /** Page number texts. */
-   private String[] pageNumberText = new String[10];
+   private List<XprObjText> pageNumberTextObj = new ArrayList<XprObjText>();
    
    /** Left margin value. */
-   private double leftMargin = 0.0;
+   private double leftMargin = 0.5;
    
    /** Top margin value. */
    private double topMargin = 0.0;
    
+   /** Footer reserverd size value. */
+   private double footerHeight = 0.0;
+   
    /** Extra vertical distance between two sequential rows of the text. */
-   private double extraRowDistance = 0.0;
+   private double extraRowDistance = 0.05125;
+   
+   /** Current page width in device independent units. */
+   private double diPageWidth = 0.0;
+   
+   /** Current page height in device independent units. */
+   private double diPageHeight = 0.0;
+   
+   /** Current X value in new entity. */
+   private double xCurr = 0.0;
+   
+   /** Current Y value in new entity. */
+   private double yCurr = 0.0;
    
    /** Current line thickness value. */
    private int lineWidth = 1;
@@ -204,10 +233,10 @@
    private int textAlignVertCurr = TEXT_ALIGN_TOP;
    
    /** Current horizontal image alignment. */
-   private int imageAlignHorizCurr = TEXT_ALIGN_LEFT;
+   private int imageAlignHorizCurr = IMAGE_ALIGN_LEFT;
    
    /** Current vertical image alignment. */
-   private int imageAlignVertCurr = TEXT_ALIGN_TOP;
+   private int imageAlignVertCurr = IMAGE_ALIGN_TOP;
    
    /** Flag indicating if the footer will be shown or not. */
    private boolean showFooter = false;
@@ -215,6 +244,12 @@
    /** Current line style value. */
    private LineStyleEnum lineStyle = LineStyleEnum.SOLID;
    
+   /** Flag indicating there are possibly records to commit. */
+   private boolean recordingStopped = false;
+   
+   /** Temporary directory to store the intermediate files. */
+   private String pdfDir = null;
+   
    /**
     * Default metafile object constructor.
     */
@@ -223,9 +258,7 @@
       // and create new object room for next page objects
       objects = new ArrayList<XprObjBase>();
       // new page options set with current default page size 
-      pageOptions.add(new XprPageOptions(XprHelper.getPdfPageWidth(),
-                                         XprHelper.getPdfPageHeight(),
-                                         pageOrientation));
+      setPageOptions();
    }
    
    /**
@@ -336,7 +369,10 @@
    public void startNewPage()
    {
       // add objects of the current page to the page list
-      pages.add(objects);
+      if (currPageNum > 1)
+      {
+         pages.add(objects);
+      }
       // and create new object room for next page objects
       objects = new ArrayList<XprObjBase>();
       // start recording new page
@@ -346,10 +382,8 @@
       {
          maxPageNum++;
       }
-      // new page options set with current default page size 
-      pageOptions.add(new XprPageOptions(XprHelper.getPdfPageWidth(),
-                                         XprHelper.getPdfPageHeight(),
-                                         pageOrientation));
+      // new page options set with current default page size
+      setPageOptions();
    }
 
    /**
@@ -369,11 +403,32 @@
          return;
       }
       
-      // normalize to the lower case
-      fontName = fontName.toLowerCase();
+      // normalize the font names to use with PDF font mapper
+      if (fontName.startsWith("Times "))
+      {
+         currFontName = "Times";
+      }
+      else if (fontName.startsWith("Courier ") || fontName.equals("default"))
+      {
+         currFontName = "Courier";
+      }
+      else
+      {
+         currFontName = fontName;
+      }
    }
 
    /**
+    * Resets new value for text style to be off.
+    */
+   public void resetTextStyle()
+   {
+      isItalic = false;
+      isBold = false;
+      isUnderline = false;
+   }
+   
+   /**
     * Gets the current font value.
     * 
     * @param    fontName
@@ -419,7 +474,7 @@
     */
    public void getFontHeight(decimal fontHeight)
    {
-      fontHeight.assign(new decimal(fontSize));
+      fontHeight.assign(new decimal(fontSizeMetric));
    }
 
    /**
@@ -429,7 +484,7 @@
     */
    public double getFontHeight()
    {
-      return fontSize;
+      return fontSizeMetric;
    }
 
    /**
@@ -440,7 +495,8 @@
     */
    public void setFontHeight(int fontHeight)
    {
-      fontSize = fontHeight;
+      fontSize = (int)Math.ceil((double)fontHeight / pdf2MfDpi);
+      fontSizeMetric = MetafileHelper.pix2MfUnits(fontSize);
    }
 
    /**
@@ -468,19 +524,51 @@
     */
    public double getTextWidth(String textToMeasure)
    {
+      return getTextWidth(textToMeasure, -1, isBold, isItalic);
+   }
+
+   /**
+    * Gets the given text width value.  Custom font size is taking into account.
+    * 
+    * @param    textToMeasure
+    *           The text to calculate width.
+    * @param    customFontSize
+    *           The optional font size to use instead of current one.
+    * @param    bold
+    *           The bold font in use to measure text.
+    * @param    italic
+    *           The italic font in use to measure text.
+    *
+    * @return   The width of the text in metric units.
+    */
+   public double getTextWidth(String textToMeasure, int customFontSize, boolean bold, boolean italic)
+   {
       double res = 0.0;
+      boolean customFontUsage = false;
       
       // TODO: this can be inaccurate calculaton, might need to be re-worked
       if (textToMeasure != null && !textToMeasure.isEmpty())
       {
+         if (customFontSize > 0)
+         {
+            customFontSize = (int)Math.round((double)customFontSize / pdf2MfDpi);
+            customFontUsage = true;
+         }
+         else
+         {
+            customFontSize = fontSize;
+         }
+         
          int length = textToMeasure.length();
          res = MetafileHelper.pix2MfUnits((int)Math.round((double)length * pixPerColMf *
-                                                          (double)fontSize /
-                                                          (double)FONT_SIZE_DEFAULT));
+                                                          (double)customFontSize /
+                                                          (double)(FONT_SIZE_DEFAULT)));
       }
       
-      return res;
+      return customFontUsage ? res * 0.95 : res * MetafileHelper.getTextWeightScale(textToMeasure,
+                                                                                    currFontName);
    }
+
    /**
     * Sets the new current position for cursor.  Can be used a starting point for text/line/image
     * draw.
@@ -528,7 +616,7 @@
     */
    public void startNewTextLine()
    {
-      xCurr = leftMargin;
+      xCurr = 0.0;
       yCurr += getFontHeight() + extraRowDistance;
    }
 
@@ -551,8 +639,7 @@
     */
    public void getFreeSpaceDown(decimal freeSpaceDown)
    {
-      double val = MetafileHelper.pix2MfUnits(pageOptions.get(currPageNum - 1).getHeightPix()) -
-                      yCurr - topMargin;
+      double val = diPageHeight - yCurr - footerHeight;
       freeSpaceDown.assign(new decimal(val));
    }
 
@@ -564,8 +651,7 @@
     */
    public void getFreeSpaceRight(decimal freeSpaceRight)
    {
-      double val = MetafileHelper.pix2MfUnits(pageOptions.get(currPageNum - 1).getWidthPix()) -
-                      xCurr - leftMargin;
+      double val = diPageWidth - xCurr;
       freeSpaceRight.assign(new decimal(val));
    }
 
@@ -577,11 +663,25 @@
     */
    public void drawText(String text)
    {
-      XprObjText xprText = new XprObjText(currFontName, fontSize, isBold, isItalic,
-                                          textColor, MetafileHelper.y2Row(yCurr),
-                                          MetafileHelper.x2Col(xCurr), text);
-      xprText.setMargins(leftMargin, topMargin);
-      objects.add(xprText);
+      double x = xCurr;
+      // consider current alignment and adjust X position
+      switch (textAlignHorizCurr)
+      {
+         case TEXT_ALIGN_RIGHT:
+         {
+            x -= getTextWidth(text);
+            // shift the current X position to the end of the text
+            break;
+         }
+         case TEXT_ALIGN_CENTER:
+         {
+            x -= getTextWidth(text) / 2.0;
+            // shift the current X position to the end of the text
+            break;
+         }
+      }
+      
+      addTextObject(text, x, yCurr);
       // shift the current X position to the end of the text
       xCurr += getTextWidth(text);
    }
@@ -657,11 +757,7 @@
          }
       }
       
-      XprObjText xprText = new XprObjText(currFontName, fontSize, isBold, isItalic,
-                                          textColor, MetafileHelper.y2Row(yCurr),
-                                          MetafileHelper.x2Col(x), text);
-      xprText.setMargins(leftMargin, topMargin);
-      objects.add(xprText);
+      addTextObject(text, x, yCurr);
    }
 
    /**
@@ -703,7 +799,7 @@
       double boundWidth = right - left;
       for (int i = text.length() - 1; i >= 0; i--)
       {
-         String textMatch = text.substring(0, i);
+         String textMatch = text.substring(0, i + 1);
          if (getTextWidth(textMatch) <= boundWidth)
          {
             text = textMatch;
@@ -732,15 +828,11 @@
          }
       }
       
-      XprObjText xprText = new XprObjText(currFontName, fontSize, isBold, isItalic,
-                                          textColor, MetafileHelper.y2Row(yCurr),
-                                          MetafileHelper.x2Col(left), text);
-      xprText.setMargins(leftMargin, topMargin);
-      objects.add(xprText);
+      addTextObject(text, left, yCurr);
       // shift the current X position to the end of the text
       xCurr = right;
    }
-
+   
    /**
     * Sets new values for line attributes.
     * 
@@ -759,13 +851,9 @@
    public void setLineAttributes(String style, double thickness,
                                  int redColor, int greenColor, int blueColor)
    {
-      // simple protection from empty style value
-      if (style != null && !style.isEmpty())
-      {
-         lineStyle = getLineType(style.toLowerCase());
-      }
-      
-      lineWidth = MetafileHelper.mfUnits2pix(thickness);
+      // line style and thick
+      setLineStyle(style, thickness);
+      // and color
       lineColor = (redColor & 0x000000FF) | (greenColor & 0x000000FF) << 8 |
                   (blueColor & 0x000000FF) << 16;
    }
@@ -798,7 +886,14 @@
          lineStyle = getLineType(style.toLowerCase());
       }
       
-      lineWidth = MetafileHelper.mfUnits2pix(thickness);
+      if (thickness == 0.0)
+      {
+         lineWidth = 1;
+      }
+      else
+      {
+         lineWidth = MetafileHelper.mfUnits2pix(thickness) + 1;
+      }
    }
 
    /**
@@ -827,9 +922,41 @@
     */
    public void drawLine(double left, double top, double right, double bottom)
    {
-      XprObjLine xprLine = new XprObjLine(lineColor, MetafileHelper.y2Row(top),
+      // coordinates check
+      if (top > bottom)
+      {
+         // need to have bottom >= top condition
+         double swapY = top;
+         top = bottom;
+         bottom = swapY;
+      }
+      if (left > right)
+      {
+         // need to have bottom >= top condition
+         double swapX = left;
+         left = right;
+         right = swapX;
+      }
+
+      // make some adjustments for linex with left edge X coord
+      if (left == 0.0)
+      {
+         left = EDGE_LINE_X_SHIFT;
+      }
+      if (right == 0.0)
+      {
+         right = EDGE_LINE_X_SHIFT;
+      }
+      // and some Y adjust to the all vertical lines
+      if (left == right)
+      {
+         top += VERT_LINE_Y_SHIFT;
+         bottom += VERT_LINE_Y_SHIFT;
+      }
+      
+      XprObjLine xprLine = new XprObjLine(lineColor, MetafileHelper.y2Row(top + OBJ_Y_SHIFT),
                                           MetafileHelper.x2Col(left),
-                                          MetafileHelper.y2Row(bottom),
+                                          MetafileHelper.y2Row(bottom + OBJ_Y_SHIFT),
                                           MetafileHelper.x2Col(right), lineWidth, lineStyle);
       xprLine.setMargins(leftMargin, topMargin);
       objects.add(xprLine);
@@ -850,9 +977,25 @@
     */
    public void drawRect(double left, double top, double right, double bottom)
    {
-      XprObjRectangle xprRect = new XprObjRectangle(lineColor, MetafileHelper.y2Row(top),
+      // coordinates check
+      if (top > bottom)
+      {
+         // need to have bottom >= top condition
+         double swapY = top;
+         top = bottom;
+         bottom = swapY;
+      }
+      if (left > right)
+      {
+         // need to have bottom >= top condition
+         double swapX = left;
+         left = right;
+         right = swapX;
+      }
+
+      XprObjRectangle xprRect = new XprObjRectangle(lineColor, MetafileHelper.y2Row(top + OBJ_Y_SHIFT),
                                                     MetafileHelper.x2Col(left),
-                                                    MetafileHelper.y2Row(bottom),
+                                                    MetafileHelper.y2Row(bottom + OBJ_Y_SHIFT),
                                                     MetafileHelper.x2Col(right),
                                                     lineWidth, false, lineStyle);
       xprRect.setMargins(leftMargin, topMargin);
@@ -874,9 +1017,32 @@
     */
    public void drawFilledRect(double left, double top, double right, double bottom)
    {
+      // coordinates check
+      if (top > bottom)
+      {
+         // need to have bottom >= top condition
+         double swapY = top;
+         top = bottom;
+         bottom = swapY;
+      }
+      if (left > right)
+      {
+         // need to have bottom >= top condition
+         double swapX = left;
+         left = right;
+         right = swapX;
+      }
+
+      // small boxes need additional adjust
+      if (bottom - top < 2.0 * (getFontHeight() + extraRowDistance))
+      {
+         bottom += 0.03;
+      }
+      // filled rectangle needs special attention because the border should not be painted
       XprObjFilledRectangle xprFillRect =
-         new XprObjFilledRectangle(lineColor, fillColor, MetafileHelper.y2Row(top),
-                                   MetafileHelper.x2Col(left), MetafileHelper.y2Row(bottom),
+         new XprObjFilledRectangle(fillColor, fillColor, MetafileHelper.y2Row(top + OBJ_Y_SHIFT + 0.04),
+                                   MetafileHelper.x2Col(left + 0.01),
+                                   MetafileHelper.y2Row(bottom + OBJ_Y_SHIFT),
                                    MetafileHelper.x2Col(right), lineWidth, false, lineStyle);
       xprFillRect.setMargins(leftMargin, topMargin);
       objects.add(xprFillRect);
@@ -960,12 +1126,12 @@
          // consider current alignment and adjust X and Y positions
          switch (imageAlignHorizCurr)
          {
-            case TEXT_ALIGN_RIGHT:
+            case IMAGE_ALIGN_RIGHT:
             {
                x -= width;
                break;
             }
-            case TEXT_ALIGN_CENTER:
+            case IMAGE_ALIGN_CENTER:
             {
                x -= width / 2.0;
                break;
@@ -973,12 +1139,12 @@
          }
          switch (imageAlignVertCurr)
          {
-            case TEXT_ALIGN_RIGHT:
+            case IMAGE_ALIGN_BOTTOM:
             {
                y -= height;
                break;
             }
-            case TEXT_ALIGN_CENTER:
+            case IMAGE_ALIGN_CENTER:
             {
                x -= height / 2.0;
                break;
@@ -986,6 +1152,8 @@
          }
          
          // set up image object
+         x += 0.15;
+         y += 0.15 + OBJ_Y_SHIFT;
          XprObjImage xprImage = new XprObjImage(MetafileHelper.y2Row(y), MetafileHelper.x2Col(x),
                                                 MetafileHelper.y2Row(y + height),
                                                 MetafileHelper.x2Col(x + width), filename);
@@ -1049,6 +1217,8 @@
          return;
       }
       
+      // normalize oriantation name
+      mode = mode.toLowerCase();
       // update page orientation
       if (mode.equals("standard") || mode.equals("portrait"))
       {
@@ -1068,9 +1238,7 @@
     */
    public void getPageWidth(decimal pageWidth)
    {
-      double val = MetafileHelper.pix2MfUnits(pageOptions.get(currPageNum - 1).getWidthPix()) -
-                      2.0 * leftMargin;
-      pageWidth.assign(new decimal(val));
+      pageWidth.assign(new decimal(diPageWidth));
    }
 
    /**
@@ -1081,9 +1249,7 @@
     */
    public void getPageHeight(decimal pageHeight)
    {
-      double val = MetafileHelper.pix2MfUnits(pageOptions.get(currPageNum - 1).getHeightPix()) -
-                      2.0 * topMargin;
-      pageHeight.assign(new decimal(val));
+      pageHeight.assign(new decimal(diPageHeight - footerHeight));
    }
 
    /**
@@ -1153,7 +1319,7 @@
    public void setPageNumberPosition(double x, double y)
    {
       xPageNum = x;
-      yPageNum = y;
+      yPageNum = y + 0.2;
    }
 
    /**
@@ -1166,7 +1332,11 @@
     */
    public void setPageNumberText(String text, int pgNumberNdx)
    {
-      pageNumberText[pgNumberNdx-1] = new String(text);
+      // the X and Y positions will be set later
+      XprObjText xprText = new XprObjText(currFontName, fontSize, isBold, isItalic,
+                                          textColor, 0.0, 0.0, text);
+      xprText.setMargins(leftMargin, topMargin);
+      pageNumberTextObj.add(xprText);
    }
 
    /**
@@ -1192,8 +1362,99 @@
     */
    public void initialize(double footerTextHeight, String tmpDir, integer ok)
    {
+      // reserve several lines for page footer
+      footerHeight = 1.5 * footerTextHeight;
+      pdfDir = tmpDir;
       ok.assign(new integer(1));
    }
+   
+   /**
+    * Stops all operation for the current metafile and commit remaining objects to the current page.
+    */
+   public void stopRecording()
+   {
+      // already stopped current recording
+      if (recordingStopped)
+      {
+         return;
+      }
+      
+      // commit remaining objects
+      if (objects.size() > 0)
+      {
+         pages.add(objects);
+      }
+      
+      // now add the optional page number texts
+      int pageNumberObjSize = pageNumberTextObj.size();
+      if (pageNumberObjSize > 0)
+      {
+         // prepare total pages string value to put into every page
+         int pagesTotalInt = pages.size();
+         String pagesTotalStr = String.valueOf(pagesTotalInt);
+         // modify total pages number object
+         XprObjText xprTextTotal = pageNumberTextObj.get(2);
+         if (xprTextTotal != null)
+         {
+            xprTextTotal.appendText(pagesTotalStr);
+         }
+         // need to walk through all pages
+         for (int i = 0; i < pagesTotalInt; i++)
+         {
+            List<XprObjBase> pageCurr = getObjectsInPage(i);
+            double xPageNumCurrent = xPageNum;
+            // now enumerate all page number texts in reverse order and finalize object preparation
+            for (int j = pageNumberObjSize - 2; j >= 0; j--)
+            {
+               XprObjText xprOldText = pageNumberTextObj.get(j);
+               int customFontSize = xprOldText.getFontSize();
+               XprObjText xprNewText = null;
+               String newFooterText = null;
+               switch (j)
+               {
+                  case 1:
+                  {
+                     // need to crate new text object for every page in the document,
+                     // because this part of the text is different for each page
+                     newFooterText = xprOldText.getValue() + String.valueOf(i + 1) +
+                                     (xprTextTotal != null ? xprTextTotal.getValue() : "");
+                     break;
+                  }
+                  case 0:
+                  {
+                     newFooterText = xprOldText.getValue();
+                     break;
+                  }
+               }
+               if (newFooterText != null)
+               {
+                  xPageNumCurrent -= getTextWidth(newFooterText, customFontSize,
+                                                  xprOldText.isBold(), xprOldText.isItalic());
+                  xprNewText = new XprObjText(xprOldText.getFontName(), customFontSize,
+                                              xprOldText.isBold(), xprOldText.isItalic(),
+                                              xprOldText.getColor(), MetafileHelper.y2Row(yPageNum),
+                                              MetafileHelper.x2Col(xPageNumCurrent), newFooterText);
+                  pageCurr.add(xprNewText);
+               }
+            }
+         }
+      }
+      // clean up page number list
+      pageNumberTextObj.clear();
+      
+      // all done
+      recordingStopped = true;
+   }
+   
+   /**
+    * Gets optionally set temporary directory to store generated PDF temporary files.
+    * 
+    * @return   The currently used temporary directory.
+    */
+   public String getTmpDirectory()
+   {
+      return pdfDir;
+   }
 
    /**
     * Converts line style string into JasperReports compatible line type.
@@ -1220,6 +1481,65 @@
       return lsRet;
    }
    
+   /**
+    * Set up options for new current document page.
+    */
+   private void setPageOptions()
+   {
+      pageOptions.add(new XprPageOptions(XprHelper.getPdfPageWidth(), XprHelper.getPdfPageHeight(),
+                                         pageOrientation));
+      diPageWidth = MetafileHelper.pix2MfUnits(pageOptions.get(currPageNum - 1).getWidthPix());
+      diPageHeight = MetafileHelper.pix2MfUnits(pageOptions.get(currPageNum - 1).getHeightPix());
+      
+   }
+   
+   /**
+    * Internal method to construct and add new text object.
+    * 
+    * @param    textToAdd
+    *           The line of the text to be added..
+    * @param    xText
+    *           The X text position.
+    * @param    yText
+    *           The Y text position.
+    */
+   private void addTextObject(String textToAdd, double xText, double yText)
+   {
+      xText += 0.1;
+      // consider current alignment and adjust Y position
+      switch (textAlignVertCurr)
+      {
+         case TEXT_ALIGN_BASELINE:
+         {
+            yText -= 0.125 + fontSizeMetric / 2.0;
+            // shift the current X position to the end of the text
+            break;
+         }
+         case TEXT_ALIGN_BOTTOM:
+         {
+            yText -= fontSizeMetric;
+            // shift the current X position to the end of the text
+            break;
+         }
+      }
+      
+      XprObjText xprText = new XprObjText(currFontName, fontSize, isBold, isItalic,
+                                          textColor, MetafileHelper.y2Row(yText + OBJ_Y_SHIFT),
+                                          MetafileHelper.x2Col(xText), textToAdd);
+      xprText.setMargins(leftMargin, topMargin);
+      objects.add(xprText);
+      // simulate underlined text with additional line when necessary
+      if (isUnderline)
+      {
+         yText += getFontHeight();
+         // current line width may be other than 1 we need to keep this value untouched
+         int savedLineWidth = lineWidth;
+         lineWidth = 2;
+         drawLine(xText - 0.01, yText, xText + getTextWidth(textToAdd) - 0.04, yText);
+         lineWidth = savedLineWidth;
+      }
+   }
+
    //-------------------- Implementation of the PdfProvoder interface ---------------------------
    /**
     * Getting internal object list from XPR object for particular page.

=== modified file 'src/com/goldencode/p2j/reporting/MetafileHelper.java'
--- src/com/goldencode/p2j/reporting/MetafileHelper.java	2019-06-19 01:10:28 +0000
+++ src/com/goldencode/p2j/reporting/MetafileHelper.java	2021-01-15 03:10:10 +0000
@@ -2,11 +2,16 @@
 ** Module   : MetafileHelper.java
 ** Abstract : Helper class to provide report generation from generic GUI metafile.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 EVL 20190510 Created initial version.
 ** 002 EVL 20190618 Removed printDoc and sendOptionalText from metafile extension set.
+** 003 EVL 20201216 Added more clean up for metafile stop/interrupt processing.
+**     EVL 20210106 Added code to properly finalize the metafile recording.
+**     EVL 20210107 Added new helper methods to get current temporary directory and reset text styles.
+**     EVL 20210113 Added new helper method to calculate text scaling factor.
+**     EVL 20210114 Changed to use common constant from Xpr2PdfWorker.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -174,6 +179,14 @@
    }
 
    /**
+    * Resets new value for text style to be off.
+    */
+   public static void resetTextStyle()
+   {
+      resolveCurrentMetafile().resetTextStyle();
+   }
+   
+   /**
     * Starts the new page construction for the document that is currently processing.
     */
    public static void startNewPage()
@@ -1470,6 +1483,16 @@
    }
 
    /**
+    * Gets optionally set temporary directory to store generated PDF temporary files.
+    * 
+    * @return   The currently used temporary directory.
+    */
+   public static String getTmpDirectory()
+   {
+      return resolveCurrentMetafile().getTmpDirectory();
+   }
+
+   /**
     * Makes PDF file from the currently recorded metafile.
     * 
     * @param    pdfFileName
@@ -1483,6 +1506,9 @@
       // intercept Jasper related issues tp avoid client abend too
       try
       {
+         // ensure all pending objects are committed
+         wa.currentMf.stopRecording();
+      
          // time to create jasper related worker
          Xpr2PdfWorker pdfOutput = new Xpr2PdfWorker(wa.currentMf, pdfFileName);
          // export to PDF
@@ -1526,6 +1552,15 @@
     */
    public static void stopRecording()
    {
+      resolveCurrentMetafile().stopRecording();
+   }
+
+   /**
+    * Interrupts all operation for the current metafile.
+    */
+   public static void interruptRecording()
+   {
+      work.obtain().currentMf = null;
    }
 
    /**
@@ -1598,7 +1633,7 @@
    public static double pix2MfUnits(int pixelValue)
    {
       // defaulting to inches
-      double res = (double)pixelValue / (double) (Metafile.DPI_DEFAULT);
+      double res = (double)pixelValue / (double) (Xpr2PdfWorker.DPI_DEFAULT);
       
       // can be CM or MM as well
       if (units == UNITS_MM)
@@ -1624,7 +1659,7 @@
    public static int mfUnits2pix(double mfValue)
    {
       // defaulting to use inches
-      double res = (double)mfValue * (double) (Metafile.DPI_DEFAULT);
+      double res = (double)mfValue * (double) (Xpr2PdfWorker.DPI_DEFAULT);
       
       // can be CM or MM as well
       if (units == UNITS_MM)
@@ -1651,6 +1686,79 @@
    {
       return op != null && !op.isUnknown();
    }
+   
+   /**
+    * Calculates the scaling factor for given text.  Different letters have different width for variable
+    * size fonts like Arial.  We need to compensate this difference to get proper text width.
+    * 
+    * @param    textToTest
+    *           The text to measure letters scale.
+    * @param    fontName
+    *           The font to be used to draw the text.
+    *
+    * @return   The scaling for given string to calculate text width.
+    */
+   public static double getTextWeightScale(String textToTest, String fontName)
+   {
+      double res = 0.0;
+
+      // some simple NPE and errors protection
+      // fixed width font can also be exculded
+      if (textToTest == null || textToTest.isEmpty() || fontName.equals("Courier"))
+      {
+         return 1.0;
+      }
+      
+      // text length
+      int length = textToTest.length();
+      for (int i = 0; i < length; i++)
+      {
+         char chNext = textToTest.charAt(i);
+         switch (chNext)
+         {
+            case 'I':
+            case 'i':
+            case 'L':
+            case 'l':
+            case ' ':
+            case '.':
+            case ',':
+            case '/':
+            case '-':
+            case '*':
+            {
+               // narrow letters
+               res += 0.75;
+               break;
+            }
+            case 'W':
+            case 'w':
+            case 'M':
+            case 'm':
+            case 'G':
+            case 'E':
+            case 'A':
+            case 'R':
+            case 'O':
+            case 'D':
+            {
+               // wide letters
+               res += 1.25;
+               break;
+            }
+            default:
+            {
+               // all other letters are regular
+               res += 1.0;
+               break;
+            }
+         }
+      }
+      // normalize the scale factor
+      res /= (double)length;
+      
+      return res;
+   }
 
    /**
     * Gets the instance of the current metafile to process.

=== modified file 'src/com/goldencode/p2j/reporting/XprObjBase.java'
--- src/com/goldencode/p2j/reporting/XprObjBase.java	2018-06-05 21:54:04 +0000
+++ src/com/goldencode/p2j/reporting/XprObjBase.java	2021-01-08 04:40:56 +0000
@@ -2,13 +2,14 @@
 ** Module   : XprObjBase.java
 ** Abstract : Class to represent base object feature for XPR content elements.
 **
-** Copyright (c) 2018, Golden Code Development Corporation.
+** Copyright (c) 2018-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 EVL 20180510 Created initial version.
 ** 002 EVL 20180530 Adding left margin field support.
 ** 003 EVL 20180602 Minor javadoc fix.  Changed default color to full non-transparent. Adding
 **                  support for top margin tag.
+** 004 EVL 20210107 Adding new method to change object position after creation.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -202,6 +203,20 @@
    }
 
    /**
+    * Sets the object new position coordinates.
+    *
+    * @param    row
+    *           The new value for text row.
+    * @param    column
+    *           The new value for text column.
+    */
+   public void setPosition(double row, double column)
+   {
+      rowStart = row;
+      colStart = column;
+   }
+
+   /**
     * Returns the object type value.
     *
     * @return   The type of the given object.

=== modified file 'src/com/goldencode/p2j/schema/ImportWorker.java'
--- src/com/goldencode/p2j/schema/ImportWorker.java	2020-09-25 16:00:36 +0000
+++ src/com/goldencode/p2j/schema/ImportWorker.java	2021-01-29 19:50:19 +0000
@@ -142,6 +142,8 @@
 ** 051 OM  20191120          Transaction.rollback throws exception.
 **     OM  20200507          Upgraded to new persistence framework, without Hibernate.
 ** 052 OM  20200924          P2JIndexComponent carries multiple information to avoid map lookups for them.
+** 053 IAS 20201219          Added 'CPSTREAM' use on import
+**                           Added word tables population on import
 */
 
 /*
@@ -206,14 +208,20 @@
 import java.sql.Statement;
 import java.util.*;
 import java.util.logging.*;
+import java.util.stream.*;
+
+import org.apache.commons.lang3.*;
+import org.apache.log4j.lf5.*;
+
 import com.goldencode.p2j.cfg.*;
-import com.goldencode.p2j.util.ErrorManager;
 import com.goldencode.p2j.pattern.*;
 import com.goldencode.p2j.persist.*;
+import com.goldencode.p2j.persist.dialect.*;
 import com.goldencode.p2j.persist.orm.*;
 import com.goldencode.p2j.persist.orm.types.*;
-import com.goldencode.p2j.persist.dialect.*;
+import com.goldencode.p2j.persist.pl.*;
 import com.goldencode.p2j.util.*;
+import com.goldencode.p2j.util.ErrorManager;
 import com.mchange.v2.c3p0.*;
 
 /**
@@ -840,6 +848,8 @@
       /**
        * Sets the values of the  sequences. All sequences must be already added to the list.
        *
+       * @param   path
+       *          Path to the file file to which the sequences' values have been exported
        * @param   seqDumpFile
        *          The file to which the sequences' values have been exported
        *
@@ -986,8 +996,8 @@
       }
       
       /**
-       * Import all data for a table into the database, using the given record
-       * loader and current session factory. Uses the {@link Stream#readField}
+       * Import all data for a table into the database, using the given record loader 
+       * and current session factory. Uses the {@link com.goldencode.p2j.util.Stream#readField}
        * to scan the input file. Each record's data is stored in a new
        * instance of a data model object (DMO). Hibernate is used to persist
        * the DMO to the backing database.
@@ -1053,6 +1063,11 @@
          
          try
          {
+            List<WordTableInfo> wordTables = indexes.stream().filter(P2JIndex::isWord).
+                  filter(index -> index.components().hasNext()).
+                  map(idx -> new WordTableInfo(loader, idx)).
+                  filter(wt -> wt.isValid).
+                  collect(Collectors.toList());
             // Attempt to drop indexes.
             List<P2JIndex> nonRedundantIndexes = P2JIndex.nonRedundantIndexes(indexes);
             dropIndexes(nonRedundantIndexes);
@@ -1171,9 +1186,11 @@
                      nextID = idCtx.getNextID();
                      dmo.primaryKey(nextID);
                      session.save(dmo, false);
-                     
                      // flush insert and release memory
                      session.clear();
+
+                     populateWordTables(session, dmo, wordTables);
+                     
                      
                      // commit transaction
                      if (inTx)
@@ -1198,10 +1215,15 @@
                      
                      // insert records using SQL batching
                      session.bulkSave(records);
-                     
                      // release memory
                      // TODO: implement cache-less session and drop this
                      session.clear();
+
+                     for (BaseRecord dmo : records)
+                     {
+                        populateWordTables(session, dmo, wordTables);
+                     }
+                     
                      
                      // commit transaction
                      session.commit();
@@ -1322,7 +1344,7 @@
          {
             int processed = adjustedCounter(counter, badIndex, dropCount);
             int lost = counter % batchSize;
-            long recCount = stream.getRecordCount();
+            long recCount = stream == null ? - 1 : stream.getRecordCount();
             LOG.log(Level.SEVERE,
                     "Error processing import data from " + dataFile + ";  " + processed + " of " +
                     (recCount < 0 ? "?" : recCount) + " record(s) successfully processed;  " +
@@ -1360,6 +1382,155 @@
       }
       
       /**
+       * Populate word tables with data from the record.
+       * 
+       * @param session
+       *        Database session.
+       * @param dmo
+       *        Master record.
+       * @param wordTables
+       *        word tables' data
+       * @throws PersistenceException
+       * @throws SQLException
+       */
+      private void populateWordTables(Session session, BaseRecord dmo, 
+            List<WordTableInfo> wordTables) throws PersistenceException, SQLException
+      {
+         if (wordTables.isEmpty())
+         {
+            return;
+         }
+         Object[] data = dmo.getData(wordTables.get(0).mapper);
+         if (data == null)
+         {
+            return;
+         }
+         Connection conn = session.getConnection();
+         for (WordTableInfo wordTable: wordTables)
+         {
+            if (wordTable.extent == 0)
+            {
+               String value = (String) data[wordTable.offset];
+               // NB: uppercase at the database side
+               String[] words = Functions.words(value, false);
+               populateWordTable(conn, wordTable.wordTableName, dmo.primaryKey(), 
+                     words, !wordTable.caseSensitive);
+            }
+            else 
+            {
+               for (int i = 0; i < wordTable.extent; i++)
+               {
+                  String value = (String) data[wordTable.offset + i];
+                  // NB: uppercase at the database side
+                  String[] words = Functions.words(value, false);
+                  populateWordTable(conn, wordTable.wordTableName, dmo.primaryKey(), i,
+                        words, !wordTable.caseSensitive);
+               }
+            }
+         }
+      }
+
+      /**
+       * Populate word tables with data.
+       *  
+       * @param conn
+       *        Database connection.
+       * @param wordTableName
+       *        word table name.
+       * @param primaryKey
+       *        primary key of the master record
+       * @param words
+       *        words in the field
+       * @param toUppercase
+       *        convert words to uppercase
+       * @throws SQLException
+       */
+      private void populateWordTable(Connection conn, String wordTableName, Long primaryKey, 
+            String[] words, boolean toUppercase) throws SQLException
+      {
+         if (words == null || words.length == 0)
+         {
+            return;
+         }
+         StringBuilder sql = new StringBuilder("INSERT INTO ").
+               append(wordTableName).append(" VALUES");
+         for (int i = 0; i < words.length; i++)
+         {
+            // NB: uppercase at the database side
+            sql.append(i == 0 ? "" : ",").append(toUppercase ? "(?,UPPER(?))" : "(?,?)");
+         }
+         Savepoint sp = conn.setSavepoint();
+         try(PreparedStatement pstmt = conn.prepareStatement(sql.toString()))
+         {
+            int i = 1;
+            for(String word: words)
+            {
+               pstmt.setLong(i++, primaryKey);
+               pstmt.setString(i++, word);
+            }
+            pstmt.executeUpdate();
+         }
+         catch(SQLException e)
+         {
+            LOG.log(Level.WARNING, "Failed to populate word table: " + wordTableName +
+                  " pk = " + primaryKey, e);
+            conn.rollback(sp);
+         }
+      }
+
+      /**
+       * Populate word tables with data.
+       *  
+       * @param conn
+       *        Database connection.
+       * @param wordTableName
+       *        word table name.
+       * @param primaryKey
+       *        primary key of the master record
+       * @param index
+       *        index in the extent
+       * @param words
+       *        words in the field
+       * @param toUppercase
+       *        convert words to uppercase
+       * @throws SQLException
+       */
+      private void populateWordTable(Connection conn, String wordTableName, 
+            Long primaryKey, int index, 
+            String[] words, boolean toUppercase) throws SQLException
+      {
+         if (words == null || words.length == 0)
+         {
+            return;
+         }
+         StringBuilder sql = new StringBuilder("INSERT INTO ").
+               append(wordTableName).append(" VALUES");
+         for (int i = 0; i < words.length; i++)
+         {
+            // NB: uppercase at the database side
+            sql.append(i == 0 ? "" : ",").append(toUppercase ? "(?,?,UPPER(?))" : "(?,?,?)");
+         }
+         Savepoint sp = conn.setSavepoint();
+         try(PreparedStatement pstmt = conn.prepareStatement(sql.toString()))
+         {
+            int i = 1;
+            for(String word: words)
+            {
+               pstmt.setLong(i++, primaryKey);
+               pstmt.setInt(i++, index);
+               pstmt.setString(i++, word);
+            }
+            pstmt.executeUpdate();
+         }
+         catch(SQLException e)
+         {
+            LOG.log(Level.WARNING, "Failed to populate word table: " + wordTableName +
+                  " pk = " + primaryKey + "index = " + index, e);
+            conn.rollback(sp);
+         }
+      }
+
+      /**
        * Generate the DDL to drop and recreate the list of indexes for the given table. Indexes on
        * {@code table} which are not within the list are ignored. Also, the redundant indexes are
        * filtered out so only the minimum list of required indexes is written to the given output
@@ -1375,6 +1546,7 @@
        *          Table which is to be reindexed.
        * @param   indexes
        *          List of index definitions.
+       * @throws  IOException 
        */
       public void generateIndexDDL(String dialectName,
                                    String filename,
@@ -1420,8 +1592,6 @@
        * @param   indexes
        *          List of index definitions.
        *
-       * @throws  SQLException
-       *          if any error occurs opening or closing JDBC statements.
        * @throws  PersistenceException
        *          if any error occurs opening or closing sessions, or obtaining database
        *          connections.
@@ -1462,6 +1632,19 @@
       }
       
       /**
+       * Get word table name for the DMO and index name
+       * @param ifaceName
+       *        DMP interface name
+       * @param indexName
+       *        index name
+       * @return word table name
+       */
+      public String getWordTableName(String ifaceName, String indexName) 
+      {
+         DmoMeta meta = DmoMetadataManager.getDmoInfo(ifaceName);
+         return meta.getWordTablesByIndexName().get(indexName);
+      }
+      /**
        * Return the next import bundle which is eligible for import.  A bundle is eligible for
        * import if all of the tables upon which it is dependent already have been loaded.  Bundles
        * are returned from this method in the order in which they were ranked, except that a
@@ -2364,6 +2547,7 @@
       /** The date format  as it was set when the table was dumped. */
       private String dateFormat = null;
       
+
       /**
        * Constructor.
        * 
@@ -2384,7 +2568,6 @@
             {
                processPscHeader();
             }
-            
             // read only files shift directly into memory mapped mode at the start of the file
             map(0L);
          }
@@ -2550,6 +2733,7 @@
          }
          catch (IOException | InterruptedException exc)
          {
+            exc.printStackTrace();
             // ignore
          }
          
@@ -2614,4 +2798,60 @@
          }
       }
    }
+
+   /**
+    * Auxiliary data for the word table
+    */
+   private static class WordTableInfo
+   {
+      /** Word table name */
+      public final String wordTableName;
+      /** field name */
+      public final String fieldName;
+      /** flag indication that the field is case-sensitive */
+      public final boolean caseSensitive;
+      /** PropertyMapper for the DMO record property */
+      public final PropertyMapper mapper;
+      public final int extent;
+      public final int offset; 
+      /** Flag indicating that data is valid */ 
+      public final boolean isValid;
+
+      /**
+       * Constructor
+       * @param loader
+       *        record loader
+       * @param index
+       *        word index descriptor
+       */
+      public WordTableInfo(RecordLoader loader, P2JIndex index)
+      {
+         boolean ok = true;
+         P2JIndexComponent indexComponent = index.components().next();
+         this.wordTableName = index.getWordTableName();
+         if (StringUtils.isEmpty(wordTableName))
+         {
+            LOG.log(Level.WARNING, "wordTableName is empty for index: [" +
+                  index.getTable() + "." + index.getName() + "]");
+            ok = false;
+         }
+         this.fieldName = indexComponent.getColumnName();
+         this.caseSensitive = !indexComponent.isIgnoreCase();
+         this.mapper = loader.getPropertyMapperByColumn(fieldName);
+         if (mapper == null)
+         {
+            LOG.log(Level.WARNING, "No PropertyMapper  for [" + 
+                  index.getTable() + "." + fieldName + "]");
+            extent = -1;
+            offset  = -1;
+            ok = false;
+         }
+         else 
+         {
+            extent = mapper.getPropertyMeta().getExtent();
+            offset = mapper.getIndex();
+         }
+         isValid = ok;
+      }
+   }
 }

=== modified file 'src/com/goldencode/p2j/schema/P2OAccessWorker.java'
--- src/com/goldencode/p2j/schema/P2OAccessWorker.java	2020-10-08 20:26:22 +0000
+++ src/com/goldencode/p2j/schema/P2OAccessWorker.java	2021-01-21 22:49:45 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2005-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ---------------------------- Description ----------------------------
+** -#- -I- --Date-- --JPRM-- ---------------------------------- Description ----------------------------------
 ** 001 ECF 20050921   @22771 Created initial version. Lazily loads P2O
 **                           ASTs and enables lookups of Java names for
 **                           legacy Progress table and field names.
@@ -58,7 +58,9 @@
 ** 021 CA  20200122          Javadoc fixes.
 ** 022 CA  20200412          Added incremental conversion support.
 ** 023 CA  20201008          Added APIs to obtain an iterator over the indexes or properties of a table.
+**     OM  20201231          Avoid java name conflicts.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -148,10 +150,10 @@
       types.add(ProgressParserTokenTypes.TEMP_TABLE);
       types.add(ProgressParserTokenTypes.WORK_TABLE);
       types.add(ProgressParserTokenTypes.BUFFER);
-   };
+   }
    
    /** List of objects describing potentially suspicious query index selection */
-   private List<QueryIndexInfo> suspiciousQueries = new ArrayList<>();
+   private final List<QueryIndexInfo> suspiciousQueries = new ArrayList<>();
    
    /** Source file name whose AST currently is being visited */
    private String sourceFile = null;
@@ -203,9 +205,7 @@
             throw new SchemaException("Unexpected token: " + ast.toString());
       }
       
-      String table = (String) child.getAnnotation("schemaname");
-      
-      return table;
+      return  (String) child.getAnnotation("schemaname");
    }
    
    /**
@@ -382,7 +382,7 @@
       public String javaPropertyName(String historical, boolean qualified)
       throws SchemaException
       {
-         return P2OLookup.javaPropertyName(historical, qualified);
+         return P2OLookup.javaPropertyName(historical, qualified, null);
       }
       
       /**
@@ -414,7 +414,7 @@
       }
       
       /**
-       * Retrieve the full set of fully quallified, legacy field names for a
+       * Retrieve the full set of fully qualified, legacy field names for a
        * legacy Progress table.  The set is guaranteed to iterate in the
        * default display order defined for the original, Progress schema for
        * that table.
@@ -431,7 +431,7 @@
        *          if there is any error loading the AST from persistence;
        *          if <code>historical</code> does not represent a known table.
        */
-      public Set legacyFieldNames(String historical, boolean includeHidden)
+      public Set<String> legacyFieldNames(String historical, boolean includeHidden)
       throws SchemaException
       {
          return P2OLookup.legacyFieldNames(historical, includeHidden);

=== modified file 'src/com/goldencode/p2j/schema/P2OLookup.java'
--- src/com/goldencode/p2j/schema/P2OLookup.java	2020-10-08 20:26:22 +0000
+++ src/com/goldencode/p2j/schema/P2OLookup.java	2021-01-21 22:49:45 +0000
@@ -2,7 +2,7 @@
 ** Module   : P2OLookup.java
 ** Abstract : Helper class which loads P2O ASTs and enables lookup access
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- ---------------------------------- Description ----------------------------------
 ** 001 ECF 20051013   @23034 Created initial version. Lazily loads P2O
@@ -65,8 +65,7 @@
 ** 024 OM  20131030          Added support for checking if a schema contains a certain dmo iface.
 ** 025 VMN 20140328          Added support for denormalized fields with extent.
 ** 026 SVL 20140329          loadAst loads data from a resource in runtime mode.
-** 027 OM  20140424          Added CASE_SENSITIVE constant used for dynamic temp-tables
-**                           generation.
+** 027 OM  20140424          Added CASE_SENSITIVE constant used for dynamic temp-tables generation.
 ** 028 ECF 20140921          Memory optimization: intern many duplicated strings.
 ** 029 OM  20150212          Forced lowercase legacy access for javaName accessors while saving 
 **                           the original legacy names for later extraction.
@@ -91,6 +90,7 @@
 ** 041 OM  20200924          P2JIndexComponent carries multiple information to avoid map lookups for them.
 **     CA  20201008          Added API to get an iterator over the property ASTs.  The propsMap is no longer
 **                           cleared for normal conversion - just for runtime conversion.
+**     OM  20210118          Avoid java name conflicts with SQL keywords.
 */
 
 /*
@@ -152,6 +152,7 @@
 import java.util.*;
 import java.util.function.*;
 import com.goldencode.ast.*;
+import com.goldencode.p2j.convert.*;
 import com.goldencode.util.*;
 import com.goldencode.p2j.cfg.*;
 import com.goldencode.p2j.persist.*;
@@ -946,15 +947,14 @@
    {
       P2OLookup lookup = getInstance(historical, EntityName.TABLE);
       List<Aast> propList = lookup.getProperties(historical);
-
+      
       if (propList == null || propList.isEmpty())
       {
          throw new SchemaException("Table '" + historical + "' not recognized");
       }
       
-      Collections.sort(propList, (c1, c2) -> Long.compare((Long) c1.getAnnotation("fieldid"), 
-                                                          (Long) c2.getAnnotation("fieldid")));
-
+      propList.sort(Comparator.comparingLong(c -> (Long) c.getAnnotation("fieldid")));
+      
       return propList.iterator();
    }
 
@@ -1473,23 +1473,20 @@
    }
    
    /**
-    * Get the converted, Java name of the class or property associated with
-    * the given, legacy table or field name (respectively).
+    * Get the converted, Java name of the class or property associated with the given, legacy table or field
+    * name (respectively).
     *
     * @param   historical
     *          Fully qualified, legacy table or field name. Must be normalized (in lowercase).
     * @param   index
-    *          Zero-based index of custom property name for denormalized field with extent,
-    *          otherwise null.
+    *          Zero-based index of custom property name for denormalized field with extent, otherwise null.
     *
-    * @return  Unqualified, Java class name (for a table) or property name
-    *          (for a field).
+    * @return  Unqualified, Java class name (for a table) or property name (for a field).
     */
    private String getJavaName(String historical, Long index)
    {
-      String name = javaNameMap.containsKey(historical) 
-                       ? javaNameMap.get(historical).get(index == null ? null : index + 1)
-                       : null;
+      Map<Long, String> innerMap = javaNameMap.get(historical);
+      String name = (innerMap != null) ? innerMap.get(index == null ? null : index + 1) : null;
       
       if (name != null)
       {
@@ -1503,7 +1500,9 @@
             name = parent.getJavaName(historical, index);
             
             if (name != null)
+            {
                return name;
+            }
          }
       }
       
@@ -1551,7 +1550,9 @@
             names = parent.getLegacyFieldNames(historical, includeHidden);
             
             if (!names.isEmpty())
+            {
                break;
+            }
          }
       }
       
@@ -1624,7 +1625,9 @@
             res = parent.getProperties(historical);
             
             if (!res.isEmpty())
+            {
                return res;
+            }
          }
       }
       
@@ -1747,7 +1750,7 @@
          }
          buf.append(nextClass.getAnnotation(HISTORICAL));
          String histTable = buf.toString().intern();
-         addJavaName(histTable, ifaceName, null, null);
+         addJavaName(histTable, ifaceName, null, null, NameConverter.TYPE_TABLE);
          
          // store the meta tables, if the case
          if (meta)
@@ -1784,18 +1787,14 @@
                legacyName = legacyName.toLowerCase().intern();
                if (nextProp.isAnnotation("customextent"))
                {
-                  if (!denormalizedProperties.contains(legacyName))
-                  {
-                     denormalizedProperties.add(legacyName);
-                  }
+                  denormalizedProperties.add(legacyName);
                   long index = (Long)nextProp.getAnnotation("customextent");
-                  String denormalizedpropertyname =
-                        (String)nextProp.getAnnotation("denormalizedpropertyname");
-                  addJavaName(legacyName, nextProp.getText(), index, denormalizedpropertyname);
+                  String dpName= (String) nextProp.getAnnotation("denormalizedpropertyname");
+                  addJavaName(legacyName, nextProp.getText(), index, dpName, NameConverter.TYPE_COLUMN);
                }
                else
                {
-                  addJavaName(legacyName, nextProp.getText(), null, null);
+                  addJavaName(legacyName, nextProp.getText(), null, null, NameConverter.TYPE_COLUMN);
                }
             }
             
@@ -1825,35 +1824,32 @@
    }
    
    /**
-    * Adds property name to javaNameMap where the key is legacy field name and value is map
-    * based on nullable index. Index is not null only for denormalized field with extent, in
-    * this case index corresponds to denormalization table hint.
+    * Adds property name to {@code javaNameMap} where the key is legacy field name and value is map based on
+    * nullable index. Index is not {@code null} only for denormalized field with extent, in this case index
+    * corresponds to denormalization table hint.
     *
     * @param   originalName
     *          Legacy field name (not necessarily normalized).
     * @param   propertyName
     *          Property name.
     * @param   index
-    *          Null-based index of custom property name for denormalized field with extent,
-    *          otherwise null.
+    *          Null-based index of custom property name for denormalized field with extent, otherwise null.
     * @param   denormalizedPropertyName
-    *          Denormalized property name for denormalized field with extent,
-    *          otherwise null.
+    *          Denormalized property name for denormalized field with extent, otherwise {@code null}.
+    * @param   type
+    *          One of the {@code NameConverter} TYPE_ constants which helps resolve possible name conflicts.
     */
    private void addJavaName(String originalName,
                             String propertyName,
                             Long index,
-                            String denormalizedPropertyName)
+                            String denormalizedPropertyName,
+                            int type)
    {
       String normalized = originalName.toLowerCase().intern();
-      propertyName = propertyName.intern();
+      propertyName = NameConverter.resolvePossibleKeywordConflict(propertyName, type).intern();
       
-      Map<Long, String> customProperties;
-      if (javaNameMap.containsKey(normalized))
-      {
-         customProperties = javaNameMap.get(normalized);
-      }
-      else
+      Map<Long, String> customProperties = javaNameMap.get(normalized);
+      if (customProperties == null)
       {
          customProperties = new HashMap<>();
          if (index != null && denormalizedPropertyName != null)

=== modified file 'src/com/goldencode/p2j/schema/RecordLoader.java'
--- src/com/goldencode/p2j/schema/RecordLoader.java	2020-09-10 13:08:11 +0000
+++ src/com/goldencode/p2j/schema/RecordLoader.java	2021-01-17 15:39:44 +0000
@@ -32,6 +32,7 @@
 ** 007 OM  20200906          New ORM implementation.
 ** 008 CA  20200910          Fixed overwriteNullProperty - it was resolving the wrong property for extent 
 **                           fields.
+** 009 IAS 20201224          Added PropertyMapper by column name lookup
 */
 
 /*
@@ -91,6 +92,7 @@
 
 import java.io.*;
 import java.util.*;
+
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.persist.orm.*;
 import com.goldencode.p2j.util.*;
@@ -122,6 +124,9 @@
    /** Property mappers which define column data, by property name */
    private final Map<String, PropertyMapper> mappersByProp = new HashMap<>();
    
+   /** Property mappers which define column data, by column name */
+   private final Map<String, PropertyMapper> mappersByCol = new HashMap<>();
+
    /** Property mappers which define column native index, by property name */
    private final Map<String, Integer> mappersByIndex = new HashMap<>();
    
@@ -175,11 +180,23 @@
          PropertyMapper mapper = new PropertyMapper(meta, meta.getOffset() + index);
          properties[k] = mapper;
          mappersByProp.putIfAbsent(meta.getName(), mapper); // keep only the first in series
+         mappersByCol.putIfAbsent(meta.getColumn(), mapper); // keep only the first in series
          mappersByIndex.putIfAbsent(meta.getName(), k);
       }
    }
    
    /**
+    * Get PropertyMapper by column name.
+    * @param name
+    *        column name
+    * @return PropertyMapper for the property with given name.
+    */
+   public PropertyMapper getPropertyMapperByColumn(String name)
+   {
+      return mappersByCol.get(name);
+   }
+
+   /**
     * Overwrites the {@code null} / {@code unknown} values of a specified property and updates it
     * to a specified value (if the property is an extent, all indexes are checked and updated).
     * This happens for mandatory fields because they were declared as not-null.

=== modified file 'src/com/goldencode/p2j/schema/SchemaDictionary.java'
--- src/com/goldencode/p2j/schema/SchemaDictionary.java	2020-10-01 22:14:40 +0000
+++ src/com/goldencode/p2j/schema/SchemaDictionary.java	2020-10-15 07:54:57 +0000
@@ -496,6 +496,8 @@
 **                           not re-compute the temp-table scope each time the same list of temp-table buffers
 **                           is used.
 **    OM   20201001          Improved DMO manipulation performance by caching slow Property annotation access.
+**    CA   20201011          Scope.promoted changed to an identity hash set.
+**    CA   20201015          Replaced java.util.Stack with a non-synchronized custom implementation.
 */
 
 /*
@@ -563,6 +565,7 @@
 import com.goldencode.p2j.security.*;
 import com.goldencode.p2j.uast.*;
 import com.goldencode.util.*;
+import com.goldencode.util.Stack;
 import com.goldencode.p2j.util.*;
 
 /**
@@ -5779,7 +5782,7 @@
    private class Scope
    {
       /** Stores the list of name nodes that have been promoted */
-      private Set<NameNode> promoted = new HashSet<>();
+      private Set<NameNode> promoted = Collections.newSetFromMap(new IdentityHashMap<>());
       
       /** Unique identifier for this scope. */
       private int id = -1;

=== modified file 'src/com/goldencode/p2j/security/SecurityManager.java'
--- src/com/goldencode/p2j/security/SecurityManager.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/security/SecurityManager.java	2021-01-13 21:04:41 +0000
@@ -425,6 +425,8 @@
 **                           a new session when forceSecurityContext() is used.
 ***     CA  20200213         Added setHeadless.
 ** 130 IAS  20200722         Refactored to the new NetSocket API.
+**      HC  20201024         Added exception info to an error message.  
+** 131 IAS  20201214         Additional initialization added to the constructor.
 */
 
 /*
@@ -728,6 +730,16 @@
          throw new ConfigurationException("setInitialSecurityContext()", exc);
       }
       
+      try
+      {
+         getSecureSocketContext();
+      } 
+      catch (UnrecoverableKeyException | KeyManagementException | NoSuchAlgorithmException 
+            | KeyStoreException | ConfigurationException e)
+      {
+         throw new ConfigurationException("getSecureSocketContext()", e);
+      }
+
       init = true;
    }
    
@@ -3042,7 +3054,7 @@
          if (LOG.isLoggable(Level.SEVERE))
          {
             String msg = "Could not load the " + alias + " certificate from the provided keystore";
-            LOG.logp(Level.SEVERE, "SecurityManager", "authenticateServer", msg);
+            LOG.logp(Level.SEVERE, "SecurityManager", "authenticateServer", msg + "\n" + e);
          }
          return null;
       }

=== modified file 'src/com/goldencode/p2j/uast/ClassDefinition.java'
--- src/com/goldencode/p2j/uast/ClassDefinition.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/uast/ClassDefinition.java	2021-01-27 00:57:26 +0000
@@ -2,7 +2,7 @@
 ** Module   : ClassDefinition.java
 ** Abstract : defines the 4GL API for a class or interface definition
 **
-** Copyright (c) 2007-2020, Golden Code Development Corporation.
+** Copyright (c) 2007-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- ---------------------------Description----------------------------
 ** 001 GES 20070911   @35134 First version, with support for resolving member variables,
@@ -76,6 +76,18 @@
 **     CA  20200529          Fixed an issue for incremental conversion, when the AST for a skeleton class 
 **                           (which was parsed in a previous conversion) does not exist. 
 ** 017 CA  20200804          Emit bulk setter and getter for an extent property.
+**     CA  20210125          Progress.Lang.Class:Invoke and Progress.Reflect.Method:Invoke must be treated as
+**                           having a POLY returned type.
+**     GES 20210121          Started rework of fuzzy matching to implement missing features.  This first
+**                           pass refactors the fuzzyMethodLookup() processing to make a list of all
+**                           possible matches at the top of the method (by using the new candidates()
+**                           method).  This approach only returns candidates which match the access rights
+**                           and number of parameters checks.  It also returns all candidates from the
+**                           entire inheritance hierarchy.  This is how the 4GL does it, so that better
+**                           matches in the inheritance hierarchy take precedence over local matches.
+**                           The parameter mode processing was also switched. INPUT parameter types
+**                           widen from caller to callee and OUTPUT parameter types narrow from caller
+**                           to callee.
 */
 
 /*
@@ -1546,11 +1558,22 @@
          
          if (mdat != null)
          {
-            // the type may have been set incorrectly based on guessing, since the parameter
-            // signature was not yet available; force it to the correct value here
-            if (node.getType() != FUNC_CLASS)
-            {
-               node.setType(mdat.type);
+            if (mdat.name.equalsIgnoreCase("invoke") && 
+                (mdat.container.name.equalsIgnoreCase("progress.lang.class") || 
+                 mdat.container.name.equalsIgnoreCase("progress.reflect.method")))
+            {
+               // set the node's type to OO_METH_POLY
+               node.putAnnotation("oldtype", (long) node.getType());
+               node.setType(OO_METH_POLY);
+            }
+            else
+            {
+               // the type may have been set incorrectly based on guessing, since the parameter
+               // signature was not yet available; force it to the correct value here
+               if (node.getType() != FUNC_CLASS)
+               {
+                  node.setType(mdat.type);
+               }
             }
             
             // the access mode won't necessarily be the same as that passed in
@@ -3146,7 +3169,7 @@
     *
     * @param    name
     *           Resource name.
-    * @param    sig
+    * @param    caller
     *           Method call signature.
     * @param    access
     *           Access mode (<code>KW_PUBLIC</code>, <code>KW_PROTECTD</code> or
@@ -3162,15 +3185,16 @@
     * @return   Resource found or <code>null</code> if no match exists.
     */
    private MemberData fuzzyMethodLookup(String         name,
-                                        ParameterKey[] sig,
+                                        ParameterKey[] caller,
                                         int            access,
                                         boolean        isStatic,
                                         boolean        internal,
                                         Aast           node)
    {
       MemberData mdat = null;
+      
       boolean polyParams = false;
-      for (ParameterKey p : sig)
+      for (ParameterKey p : caller)
       {
          if ("BaseDataType".equals(p.type))
          {
@@ -3179,290 +3203,441 @@
          }
       }
       
-      synchronized (lock)
+      boolean first = isSetParam(name);
+      
+      if ("Progress.Json.ObjectModel.JsonObject".equalsIgnoreCase(this.name) &&
+          "write".equalsIgnoreCase(name) &&
+          caller.length == 2 &&
+          caller[0].type.equals("longchar") &&
+          caller[1].type.equals("logical"))
       {
-         Map<String, Map<SignatureKey, MemberData>> map = isStatic ? smethods : imethods;
-         
-         if (map != null)
-         {
-            Map<SignatureKey, MemberData> defs = map.get(name.toLowerCase());
+         int bogus = 14;
+      }
+      
+      List<MemberData> list = candidates(name, caller.length, access, isStatic, internal, first, null);
             
-            if (defs != null)
-            {
-               if ("Progress.Lang.ParameterList".equalsIgnoreCase(this.name) && 
-                   "setParameter".equalsIgnoreCase(name))
-               {
-                  return defs.values().iterator().next();
-               }
-               
-               // the fuzzy lookup is done in phases
-               // 1. collect all matches, regardless of parameter modes
-               // 2. if only one match found, use that
-               // 3. if multiple matches found:
-               // - if one exact match by exact parameter type, use that
-               // - if multiple matches, get by parameter modes
-               //   > if caller hasn't specified a mode for an argument, use wildcard
-               //   > only one match should be found
-               //   > if multiple matches, show warning
-               
-               List<MemberData> matches = new ArrayList<>();
-               List<MemberData> exactMatches = new ArrayList<>();
-
-               Iterator<MemberData> iter = defs.values().iterator();
-               outer:
-               while (iter.hasNext())
-               {
-                  MemberData dat = checkAccessRights(iter.next(), access);
-                  
-                  if (dat != null)
-                  {
-                     ParameterKey[] candidate = dat.signature;
-                     
-                     if (sig.length == candidate.length)
-                     {
-                        boolean exact = true;
-                        inner:
-                        for (int i = 0; i < sig.length; i++)
-                        {
-                           String candidateType = candidate[i].type;
-                           String sigType = sig[i].type;
-                           candidateType = fromJava(candidateType);
-                           sigType = fromJava(sigType);
-
-                           if (candidateType.equals(sigType))
-                           {
-                              // exact match, try the next one
-                              continue inner;
-                           }
-                           else
-                           {
-                              if ("TEMP-TABLE".equals(candidateType) || 
-                                  "TABLE-HANDLE".equals(candidateType))
-                              {
-                                 // handle can be passed to TABLE-HANDLE or DATASET-HANDLE in 4GL
-                                 if ("TEMP-TABLE".equals(sigType) || 
-                                     "TABLE-HANDLE".equals(sigType) ||
-                                     "handle".equals(sigType))
-                                 {
-                                    continue inner;
-                                 }
-                                 
-                                 continue outer;
-                              }
-                              else if ("DATASET".equals(candidateType) || 
-                                       "DATASET-HANDLE".equals(candidateType))
-                              {
-                                 // handle can be passed to TABLE-HANDLE or DATASET-HANDLE in 4GL,
-                                 // FWD doesn't support this at this time, so ignore it here.
-                                 if ("DATASET".equals(sigType) || 
-                                     "DATASET-HANDLE".equals(sigType))
-                                 {
-                                    continue inner;
-                                 }
-                                 
-                                 continue outer;
-                              }
-                              else if (candidateType.startsWith("BUFFER"))
-                              {
-                                 if (sigType.equals(candidateType))
-                                 {
-                                    continue inner;
-                                 }
-                                 
-                                 continue outer;
-                              }
-                              
-                              exact = false;
-                              
-                              // unknown value or BDT (POLY cases) match anything
-                              if (sigType == null                     ||
-                                  sigType.equals("BaseDataType")      ||
-                                  sigType.equals("unknown"))
-                              {
-                                 continue inner;
-                              }
-                              
-                              // exact match on type but fuzzy extent spec match
-                              int idx1 = candidateType.indexOf("[");
-                              int idx2 = sigType.indexOf("[");
-                              
-                              boolean extentMatch = isExtentMatch(candidateType, sigType);
-                              if (idx1 != -1 && idx2 != -1)
-                              {
-                                 candidateType = candidateType.substring(0, idx1);
-                                 sigType = sigType.substring(0, idx2);
-                                 
-                                 int ex1 = getExtent(candidateType);
-                                 int ex2 = getExtent(sigType);
-                                 extentMatch = extentMatch || ex1 == ex2 || ex1 == -1 || ex2 == -1;
-                                 
-                                 if (candidateType.equals(sigType))
-                                 {
-                                    if (extentMatch)
-                                    {
-                                       // match
-                                       continue inner;
-                                    }
-                                    else
-                                    {
-                                       // not a match
-                                       continue outer;
-                                    }
-                                 }
-                              }
-                              
-                              // check the parameter mode at the definition
-                              if (candidate[i].mode == KW_INPUT)
-                              {
-                                 // narrowing matches are OK, widening are NOT OK
-                                 if (isNarrowingTypeMatch(candidateType, sigType) && extentMatch)
-                                 {
-                                    // match
-                                    continue inner;
-                                 }
-                                 else
-                                 {
-                                    // not a match
-                                    continue outer;
-                                 }
-                              }
-                              else if (candidate[i].mode == KW_OUTPUT)
-                              {
-                                 // widening matches are OK, narrowing are NOT OK
-                                 if (isWideningTypeMatch(candidateType, sigType) && extentMatch)
-                                 {
-                                    // match
-                                    continue inner;
-                                 }
-                                 else
-                                 {
-                                    // not a match
-                                    continue outer;
-                                 }
-                              }
-                              else if (candidate[i].mode == KW_IN_OUT)
-                              {
-                                 // exact match is required
-                                 if (!candidateType.equals(sigType))
-                                 {
-                                    // not a match
-                                    continue outer;
-                                 }
-                              }
-                           }
-                        }
-                        
-                        // if we are here, we found a signature match; ignore not the right type
-                        if (dat != null && ((!isStatic && (!dat.isStatic || internal)) ||
-                                            (isStatic && dat.isStatic)))
-                        {
-                           matches.add(dat);
-                           
-                           if (exact)
-                           {
-                              exactMatches.add(dat);
-                           }
-                        }
-                        else
-                        {
-                           // clear our result
-                           dat = null;
-                        }
-                     }
-                  }
-               }
-
-               if (matches.size() == 1)
-               {
-                  mdat = matches.get(0);
-                  return mdat;
-               }
-               else if (exactMatches.size() == 1)
-               {
-                  mdat = exactMatches.get(0);
-                  return mdat;
-               }
-               
-               // multiple fuzzy matches, get by parameter mode
-               iter = matches.iterator();
-               outer:
-               while (iter.hasNext())
-               {
-                  MemberData dat = iter.next();
-                  ParameterKey[] candidate = dat.signature;
-                  
-                  inner:
-                  for (int i = 0; i < candidate.length; i++)
-                  {
-                     Integer candidateMode = candidate[i].mode;
-                     Integer sigMode = sig[i].mode;
-                     
-                     if (Objects.equals(candidateMode, sigMode) || sigMode == null)
-                     {
-                        // either the same or the caller hasn't specified the argument mode
-                        // TODO: the mode is not mandatory at the definition... assume INPUT?
+      // quick out if there are no possible matches
+      if (list.isEmpty())
+      {
+         return null;
+      }
+      
+      // special case for ParameterList.setParameter()
+      if (first && list.size() == 1)
+      {
+         return list.get(0);
+      }
+      
+      // the fuzzy lookup is done in phases
+      // 1. collect all matches, regardless of parameter modes
+      // 2. if only one match found, use that
+      // 3. if multiple matches found:
+      // - if one exact match by exact parameter type, use that
+      // - if multiple matches, get by parameter modes
+      //   > if caller hasn't specified a mode for an argument, use wildcard
+      //   > only one match should be found
+      //   > if multiple matches, show warning
+      
+      List<MemberData> matches = new ArrayList<>();
+      List<MemberData> exactMatches = new ArrayList<>();
+      
+      // TODOS:
+      // - constructors
+      // - handle dynamic invocation marking here
+      // - tables/table handles
+      // - datasets/dataset handles
+      // - object fuzziness
+      // - does primitive type fuzziness have less priority than primitive type exact matches?
+
+      // process each parameter from left to right; the processing will vary by the parameter type; some
+      // types (e.g. objects) have multi-phase checks and other types are a simple comparison; at each
+      // step of the way the list of possible candidates will be reduced until there are only candidates
+      // left which match all criteria; at that point if there are more than one then we either have a 
+      // dynamic invocation scenario or there is some ambiguity (which should not happen if the code
+      // compiles in the 4GL)
+      
+      // OUTLINE FOR NEXT CHANGES
+      /* 
+      caller:
+      for (int i = 0; i < caller.length; i++)
+      {
+         // if the caller is passing Java types, then we match them as if they were 4GL types so the get
+         // converted here; if they are already 4GL types then no change will happen
+         String callerType = fromJava(caller[i].type);
+         
+         // wildcards: unknown value or BDT (POLY cases) match anything (no cases can be excluded)
+         if (callerType == null                     ||
+             callerType.equals("BaseDataType")      ||
+             callerType.equals("unknown"))
+         {
+            continue caller;
+         }
+         
+         // primitive types
+         
+         // primitive types widening/narrowing
+         
+         // tables/table handles
+         
+         // handles passed to table
+         
+         // datasets/dataset handles
+         
+         // handles passed to datasets
+         
+         // buffers
+         
+         // extents
+         
+         // object direct match
+         
+         // object fuzziness
+         
+         // parameter modes
+      }
+      */
+      
+      Iterator<MemberData> iter = list.iterator();
+      
+      outer:
+      while (iter.hasNext())
+      {
+         MemberData dat = iter.next();
+         
+         ParameterKey[] candidate = dat.signature;
+         
+         boolean exact = true;
+         
+         inner:
+         for (int i = 0; i < caller.length; i++)
+         {
+            String candidateType = candidate[i].type;
+            String callerType = caller[i].type;
+            candidateType = fromJava(candidateType);
+            callerType = fromJava(callerType);
+
+            if (candidateType.equals(callerType))
+            {
+               // exact match, try the next one
+               continue inner;
+            }
+            else
+            {
+               if ("TEMP-TABLE".equals(candidateType) || 
+                   "TABLE-HANDLE".equals(candidateType))
+               {
+                  // handle can be passed to TABLE-HANDLE or DATASET-HANDLE in 4GL
+                  if ("TEMP-TABLE".equals(callerType) || 
+                      "TABLE-HANDLE".equals(callerType) ||
+                      "handle".equals(callerType))
+                  {
+                     continue inner;
+                  }
+                  
+                  continue outer;
+               }
+               else if ("DATASET".equals(candidateType) || 
+                        "DATASET-HANDLE".equals(candidateType))
+               {
+                  // handle can be passed to TABLE-HANDLE or DATASET-HANDLE in 4GL,
+                  // FWD doesn't support this at this time, so ignore it here.
+                  if ("DATASET".equals(callerType) || 
+                      "DATASET-HANDLE".equals(callerType))
+                  {
+                     continue inner;
+                  }
+                  
+                  continue outer;
+               }
+               else if (candidateType.startsWith("BUFFER"))
+               {
+                  if (callerType.equals(candidateType))
+                  {
+                     continue inner;
+                  }
+                  
+                  continue outer;
+               }
+               
+               exact = false;
+               
+               // unknown value or BDT (POLY cases) match anything
+               if (callerType == null                     ||
+                   callerType.equals("BaseDataType")      ||
+                   callerType.equals("unknown"))
+               {
+                  continue inner;
+               }
+               
+               // exact match on type but fuzzy extent spec match
+               int idx1 = candidateType.indexOf("[");
+               int idx2 = callerType.indexOf("[");
+               
+               boolean extentMatch = isExtentMatch(candidateType, callerType);
+               
+               if (idx1 != -1 && idx2 != -1)
+               {
+                  candidateType = candidateType.substring(0, idx1);
+                  callerType = callerType.substring(0, idx2);
+                  
+                  int ex1 = getExtent(candidateType);
+                  int ex2 = getExtent(callerType);
+                  
+                  extentMatch = extentMatch || ex1 == ex2 || ex1 == -1 || ex2 == -1;
+                  
+                  if (candidateType.equals(callerType))
+                  {
+                     if (extentMatch)
+                     {
+                        // match
                         continue inner;
                      }
                      else
                      {
-                        // mismatch
+                        // not a match
                         continue outer;
                      }
                   }
-                  
-                  // found a match
-                  if (mdat != null)
-                  {
-                     // add a logging that more than one definition matches this fuzzy
-                     // signature
-                     System.out.println("WARNING: more than one method def found " + 
-                                        "using fuzzy lookup: " + mdat.name + 
-                                        " from class " + getName());
-                     
-                     System.out.printf("\n- access %s, static %b\n" +
-                                       "   PARAMETERS: %d\n", 
-                                       ProgressParser.lookupTokenName(mdat.access),
-                                       mdat.isStatic,
-                                       mdat.signature.length);
-                     for (int i = 0; i < mdat.signature.length; i++)
-                     {
-                        System.out.printf("      %s\n", mdat.signature[i]);
-                     }
-
-                     System.out.printf("\n- access %s, static %b\n" +
-                                       "   PARAMETERS: %d\n", 
-                                       ProgressParser.lookupTokenName(dat.access),
-                                       dat.isStatic,
-                                       dat.signature.length);
-                     for (int i = 0; i < dat.signature.length; i++)
-                     {
-                        System.out.printf("      %s\n", dat.signature[i]);
-                     }
-                     
-                     System.out.printf("\nby caller %s\n   PARAMETERS: %d\n", 
-                                       node.dumpTree(true), 
-                                       sig.length);
-                     for (int i = 0; i < sig.length; i++)
-                     {
-                        System.out.printf("      %s\n", sig[i]);
-                     }
-                     
-                     if (polyParams)
-                     {
-                        return null;
-                     }
-                     
-                     break outer;
-                  }
-
-                  mdat = dat;
-               }
-            }
-         }
-         
-         // only look up the parent hierarchy if we haven't got a match yet; static lookups only
-         // work for internal usage, non-static lookups always work
-         if (mdat == null && parents != null && (!isStatic || internal))
+               }
+               
+               // check the parameter mode at the definition
+               if (candidate[i].mode == KW_INPUT)
+               {
+                  // widening matches are OK, narrowing are NOT OK
+                  if (isWideningTypeMatch(callerType, candidateType) && extentMatch)
+                  {
+                     // match
+                     continue inner;
+                  }
+                  else
+                  {
+                     // not a match
+                     continue outer;
+                  }
+               }
+               else if (candidate[i].mode == KW_OUTPUT)
+               {
+                  // narrowing matches are OK, widening are NOT OK
+                  if (isNarrowingTypeMatch(callerType, candidateType) && extentMatch)
+                  {
+                     // match
+                     continue inner;
+                  }
+                  else
+                  {
+                     // not a match
+                     continue outer;
+                  }
+               }
+               else if (candidate[i].mode == KW_IN_OUT)
+               {
+                  // exact match is required
+                  if (!candidateType.equals(callerType))
+                  {
+                     // not a match
+                     continue outer;
+                  }
+               }
+            }
+         }
+         
+         // if we are here, we found a signature match; ignore not the right type
+         if (dat != null && ((!isStatic && (!dat.isStatic || internal)) ||
+                             (isStatic && dat.isStatic)))
+         {
+            matches.add(dat);
+            
+            if (exact)
+            {
+               exactMatches.add(dat);
+            }
+         }
+         else
+         {
+            // clear our result
+            dat = null;
+         }
+      }
+
+      if (matches.size() == 1)
+      {
+         mdat = matches.get(0);
+         return mdat;
+      }
+      else if (exactMatches.size() == 1)
+      {
+         mdat = exactMatches.get(0);
+         return mdat;
+      }
+      
+      // multiple fuzzy matches, get by parameter mode
+      iter = matches.iterator();
+      
+      outer:
+      while (iter.hasNext())
+      {
+         MemberData dat = iter.next();
+         ParameterKey[] candidate = dat.signature;
+         
+         inner:
+         for (int i = 0; i < candidate.length; i++)
+         {
+            Integer candidateMode = candidate[i].mode;
+            Integer callerMode = caller[i].mode;
+            
+            if (Objects.equals(candidateMode, callerMode) || callerMode == null)
+            {
+               // either the same or the caller hasn't specified the argument mode
+               // TODO: the mode is not mandatory at the definition... assume INPUT?
+               continue inner;
+            }
+            else
+            {
+               // mismatch
+               continue outer;
+            }
+         }
+         
+         // found a match
+         if (mdat != null)
+         {
+            // add a logging that more than one definition matches this fuzzy
+            // signature
+            System.out.println("WARNING: more than one method def found " + 
+                               "using fuzzy lookup: " + mdat.name + 
+                               " from class " + getName());
+            
+            System.out.printf("\n- access %s, static %b\n" +
+                              "   PARAMETERS: %d\n", 
+                              ProgressParser.lookupTokenName(mdat.access),
+                              mdat.isStatic,
+                              mdat.signature.length);
+            for (int i = 0; i < mdat.signature.length; i++)
+            {
+               System.out.printf("      %s\n", mdat.signature[i]);
+            }
+
+            System.out.printf("\n- access %s, static %b\n" +
+                              "   PARAMETERS: %d\n", 
+                              ProgressParser.lookupTokenName(dat.access),
+                              dat.isStatic,
+                              dat.signature.length);
+            for (int i = 0; i < dat.signature.length; i++)
+            {
+               System.out.printf("      %s\n", dat.signature[i]);
+            }
+            
+            System.out.printf("\nby caller %s\n   PARAMETERS: %d\n", 
+                              node.dumpTree(true), 
+                              caller.length);
+            for (int i = 0; i < caller.length; i++)
+            {
+               System.out.printf("      %s\n", caller[i]);
+            }
+            
+            if (polyParams)
+            {
+               return null;
+            }
+            
+            break outer;
+         }
+
+         mdat = dat;
+      }
+      
+      return mdat;
+   }
+   
+   /**
+    * Reports if the class name is Progress.Lang.ParameterList and the method name is {@code setParameter()}.
+    *
+    * @param    method
+    *           The method name.
+    *
+    * @return   {@code true} if this is a setParameter call.
+    */
+   private boolean isSetParam(String method)
+   {
+      return "Progress.Lang.ParameterList".equalsIgnoreCase(this.name) &&
+             "setParameter".equalsIgnoreCase(method);
+   }
+   
+   /**
+    * Get the list of all possible methods that could match in this class AND its parent classes. The
+    * actual types are not checked but the method name, access mode, static/instance and number of
+    * parameters must all match.
+    *
+    * @param    name
+    *           Method name.
+    * @param    num
+    *           Number of parameters.
+    * @param    access
+    *           Access mode (<code>KW_PUBLIC</code>, <code>KW_PROTECTD</code> or <code>KW_PRIVATE</code>).
+    * @param    isStatic
+    *           If <code>true</code>, only static methods will be looked up. Otherwise any method can be
+    *           returned.
+    * @param    internal
+    *           {@code true} if the lookup is internal to the current class definition.
+    * @param    first
+    *           {@code true} if the first match should be immediately returned as the result.
+    * @param    exist
+    *           The set of existing methods already represented in the list.
+    *
+    * @return   List of possible methods that match.  This may be an empty list if no match exists.
+    */
+   private List<MemberData> candidates(String            name,
+                                       int               num,
+                                       int               access,
+                                       boolean           isStatic,
+                                       boolean           internal,
+                                       boolean           first,
+                                       Set<SignatureKey> exist)
+   {
+      Set<SignatureKey> existing = exist == null ? new HashSet<>() : exist;
+      List<MemberData>  results  = new ArrayList<>();
+      
+      synchronized (lock)
+      {
+         Map<String, Map<SignatureKey, MemberData>> map = isStatic ? smethods : imethods;
+         
+         if (map != null)
+         {
+            Map<SignatureKey, MemberData> defs = map.get(name.toLowerCase());
+            
+            if (defs != null)
+            {
+               if (first)
+               {
+                  results.add(defs.values().iterator().next());
+                  
+                  return results;
+               }
+               
+               Iterator<MemberData> iter = defs.values().iterator();
+               
+               outer:
+               while (iter.hasNext())
+               {
+                  MemberData dat = checkAccessRights(iter.next(), access);
+                  
+                  if (dat != null && dat.signature.length == num)
+                  {
+                     SignatureKey key = (num > 0) ? new SignatureKey(dat.signature) : null;
+                     
+                     if (num == 0 || !existing.contains(key))
+                     {
+                        results.add(dat);
+                        existing.add(key);
+                     }
+                  }
+               }
+            }
+         }
+         
+         // fuzzy matches are processed up the the parent hierarchy even if there are possible matches in
+         // the current class; static lookups only work for internal usage, non-static lookups always work
+         if (parents != null && (!isStatic || internal))
          {
             // change access mode since we aren't allowed to see private stuff in parent
             int _access = (access == KW_PRIVATE) ? KW_PROTECTD : access;
@@ -3470,15 +3645,12 @@
             for (ClassDefinition parent : parents)
             {
                // recurse up inheritence hierarchy
-               mdat = parent.fuzzyMethodLookup(name, sig, _access, isStatic, internal, node);
-               
-               if (mdat != null)
-                  break;
+               results.addAll(parent.candidates(name, num, _access, isStatic, internal, first, existing));
             }
          }
       }
       
-      return mdat;
+      return results;
    }
    
    /**
@@ -3536,57 +3708,85 @@
    }
    
    /**
-    * Check if the signature type can be widened to the candidate type.
-    *
-    * @param    cand
-    *           The candidate data type.
-    * @param    sig
-    *           The passed signature data type.
+    * Check if the callee's type can be written back to a wider caller's type, when viewed from the
+    * caller to callee, this looks like a "narrowing" operation.
+    * <p>
+    * Primitive types narrow as follows:
+    * <pre>
+    *  Caller Type       Callee Parameter Types
+    * --------------     ----------------------
+    * int64              integer
+    * decimal            integer, int64
+    * longchar           character
+    * datetime           date
+    * datetime-tz        date, datetime
+    * </pre>
+    * <p>
+    * Object types narrow by these rules:
+    *
+    *
+    * @param    caller
+    *           The caller's passed instance's data type.
+    * @param    callee
+    *           The candidate callee method's parameter data type.
+    *
+    * @return   {@code true} if a narrowing operation is possible.
+    */
+   private boolean isNarrowingTypeMatch(String caller, String callee)
+   {
+      if (("int64".startsWith(caller)      && "integer".startsWith(callee))               ||
+          ("longchar".startsWith(caller)   && "character".startsWith(callee))             ||
+          ("datetime".startsWith(caller)   && "date".startsWith(callee))                  ||
+          ("datetimetz".startsWith(caller) && ("date".startsWith(callee) || "datetime".startsWith(callee))))
+      {
+         return true;
+      }
+          
+      if (caller.startsWith("object") && callee.startsWith("object"))
+      {
+         return true;
+      }
+      
+      return false;
+   }
+   
+   /**
+    * Check if the caller's type can be matched to a wider type in the callee's signature.
+    * <p>
+    * Primitive types widen as follows:
+    * <pre>
+    *  Caller Type       Callee Parameter Types
+    * --------------     ----------------------
+    * integer            int64, decimal
+    * int64              decimal
+    * character          longchar
+    * date               datetime, datetime-tz
+    * datetime           datetime-tz
+    * </pre>
+    * <p>
+    * Object types narrow by these rules:
+    *
+    *
+    * @param    caller
+    *           The caller's passed instance's data type.
+    * @param    callee
+    *           The candidate callee method's parameter data type.
     *
     * @return   {@code true} if a widening operation is possible.
     */
-   private boolean isWideningTypeMatch(String cand, String sig)
+   private boolean isWideningTypeMatch(String caller, String callee)
    {
-      if (("int64".startsWith(cand) && "decimal".startsWith(sig))         ||
-          ("integer".startsWith(cand) && ("int64".startsWith(sig)   ||
-                                          "decimal".startsWith(sig)))     ||
-          ("character".startsWith(cand) && "longchar".startsWith(sig))    ||
-          ("datetime".startsWith(cand) && "datetimetz".startsWith(sig))   ||
-          ("date".startsWith(cand) && ("datetime".startsWith(sig)   ||
-                                       "datetimetz".startsWith(sig)))     ||
-          (cand.startsWith("object") && sig.startsWith("object")))
+      if (("int64".startsWith(caller) && "decimal".startsWith(callee))                                   ||
+          ("integer".startsWith(caller) && ("int64".startsWith(callee) || "decimal".startsWith(callee))) ||
+          ("character".startsWith(caller) && "longchar".startsWith(callee))                              ||
+          ("datetime".startsWith(caller) && "datetimetz".startsWith(callee))                             ||
+          ("date".startsWith(caller) && ("datetime".startsWith(callee) || "datetimetz".startsWith(callee))))
       {
-         // TODO: the object case needs to confirm that the sig type is a
-         //       parent class
          return true;
       }
-      
-      return false;
-   }
-   
-   /**
-    * Check if the signature type can be narrowed to the candidate type.
-    *
-    * @param    cand
-    *           The candidate data type.
-    * @param    sig
-    *           The passed signature data type.
-    *
-    * @return   {@code true} if a narrowing operation is possible.
-    */
-   private boolean isNarrowingTypeMatch(String cand, String sig)
-   {
-      if (("int64".startsWith(cand) && "integer".startsWith(sig))         ||
-          ("decimal".startsWith(cand) && ("integer".startsWith(sig) ||
-                                          "int64".startsWith(sig)))       ||
-          ("longchar".startsWith(cand) && "character".startsWith(sig))    ||
-          ("datetime".startsWith(cand) && "date".startsWith(sig))         ||
-          ("datetimetz".startsWith(cand) && ("date".startsWith(sig) ||
-                                             "datetime".startsWith(sig))) ||
-          (cand.startsWith("object") && sig.startsWith("object")))
+                
+      if (caller.startsWith("object") && callee.startsWith("object"))
       {
-         // TODO: the object case should check for the sig as exact match or
-         //       as a subclass
          return true;
       }
       

=== modified file 'src/com/goldencode/p2j/uast/SymbolResolver.java'
--- src/com/goldencode/p2j/uast/SymbolResolver.java	2020-09-30 16:32:34 +0000
+++ src/com/goldencode/p2j/uast/SymbolResolver.java	2020-10-24 00:11:03 +0000
@@ -2,7 +2,7 @@
 ** Module   : SymbolResolver.java
 ** Abstract : manages the symbol dictionaries and lookup process
 **
-** Copyright (c) 2004-2020, Golden Code Development Corporation.
+** Copyright (c) 2004-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- --------------------------------- Description ---------------------------------
 ** 001 GES 20041104   @18650 First version, with support for resolving:
@@ -436,6 +436,9 @@
 ** 093 IAS 20200624          Added checks for <code>null</code> 
 ** 094 CA  20200804          Emit bulk setter and getter for an extent property.
 **     CA  20200930          Use an exemplar instance to pre-populate the dictionaries at runtime conversion.
+**     CA  20210113          If a implemented skeleton's Java method name collides with one part of 
+**                           NameConverter.isInternalMethodName's, fail immediately, as this means the  
+**                           implemented skeleton method's Java name is not following NameConverter's rules. 
 */
 
 /*
@@ -494,6 +497,7 @@
 package com.goldencode.p2j.uast;
 
 import java.io.*;
+import java.lang.reflect.*;
 import java.util.*;
 import java.util.List;
 import java.util.Stack;
@@ -502,7 +506,6 @@
 
 import org.reflections.*;
 
-import antlr.collections.*;
 import com.goldencode.ast.*;
 import com.goldencode.util.*;
 import antlr.*;
@@ -2231,6 +2234,19 @@
                   clsName = _BaseObject_.class.getName();
                }
                wa.legacyToJava.put(lr.resource().toLowerCase(), clsName);
+               
+               // check the method names against NameConverter
+               for (Method m : cls.getDeclaredMethods())
+               {
+                  if (m.isAnnotationPresent(LegacySignature.class) && 
+                      NameConverter.isInternalMethodName(m.getName()))
+                  {
+                     String msg = "Skeleton Java method name collides with FWD internal API: " + 
+                                  cls.getName() + "." + m.toString();
+                     System.err.println(msg);
+                     System.exit(1);
+                  }
+               }
             }
          }
       }
@@ -6211,7 +6227,7 @@
             {
                String fldName = name;
                
-               if (indexFieldSearch && useIndexFieldSearch && name.indexOf(".") == -1)
+               if (indexFieldSearch && useIndexFieldSearch && name.indexOf('.') == -1)
                {
                   fldName = String.format("%s.%s", indexTable, name);
                   if (dict.isField(fldName))

=== modified file 'src/com/goldencode/p2j/uast/progress.g'
--- src/com/goldencode/p2j/uast/progress.g	2020-09-30 16:32:34 +0000
+++ src/com/goldencode/p2j/uast/progress.g	2021-01-15 23:08:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : progress.g
 ** Abstract : Progress 4GL Lexer and Parser Grammar
 **
-** Copyright (c) 2004-2020, Golden Code Development Corporation.
+** Copyright (c) 2004-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- ----------------------------Description-----------------------------
 ** 001 GES 20041116   @18747 First version implementing a complete lexer
@@ -2167,6 +2167,12 @@
 **                           to re-populate the dictionaries.
 **     CA  20200930          Use factory.setASTNodeClass(Class) instead of setASTNodeClass(String), to avoid
 **                           loadClass call.
+**     CA  20201109          Expose the CALENDAR:VALUE as a 'CalendarValue' attribute which follows the 4GL's 
+**                           datetime string representation, and not ISO-8601.
+**     GES 20201125          Added OS-USERID as a FWD-specific 4GL extension.
+**     EVL 20201216          Added function to interrupt current metafile reporting.
+**     CA  20210120          During parsing, if an event name is not registered in FWD's keyboards, report it.
+**     OM  20201120          Added conversion support for KW_DATA_SM function. Fixed get-db-client() type.
 */
 
 /*
@@ -4337,6 +4343,7 @@
       KW_MF_GXY; // FWD extension, not real 4GL!
       KW_MF_GZF; // FWD extension, not real 4GL!
       KW_MF_INIT; // FWD extension, not real 4GL!
+      KW_MF_IR; // FWD extension, not real 4GL!
       KW_MF_MPDF; // FWD extension, not real 4GL!
       KW_MF_P2MU; // FWD extension, not real 4GL!
       KW_MF_RP; // FWD extension, not real 4GL!
@@ -4533,6 +4540,7 @@
       KW_OS_DRV;
       KW_OS_ERR;
       KW_OS_G_ENV;
+      KW_OS_UID;   // FWD extension, not real 4GL!
       KW_OUT_JOIN;
       KW_OUTER;
       KW_OUTPUTCT;
@@ -5329,7 +5337,7 @@
          KW_CALCUFMT;    // CALENDAR:CustomFormat
          KW_CALFMTST;    // CALENDAR:FormatStyle
          KW_CALUPDWN;    // CALENDAR:UpDown
-         KW_CALVALUE;    // CALENDAR:DateTimeValue
+         KW_CALVALUE;    // CALENDAR:CalendarValue
          KW_CLEA_TAB;    // begin SIGNATURE
          KW_CLEA_WIN;
          KW_GET_SIMG;
@@ -7870,7 +7878,7 @@
       sym.addBuiltinFunction("get-codepages"        , FUNC_CHAR       , false);
       sym.addBuiltinFunction("get-collation"        , FUNC_CHAR       , false);
       sym.addBuiltinFunction("get-collations"       , FUNC_CHAR       , true );
-      sym.addBuiltinFunction("get-db-client"        , FUNC_LOGICAL    , false);
+      sym.addBuiltinFunction("get-db-client"        , FUNC_HANDLE     , false);
       sym.addBuiltinFunction("get-double"           , FUNC_DEC        , true );
       sym.addBuiltinFunction("get-float"            , FUNC_DEC        , true );
       sym.addBuiltinFunction("get-int64"            , FUNC_INT64      , false);
@@ -8251,7 +8259,7 @@
       attrsAndMethods.put( KW_CALTITFG, ATTR_INT     ); // FWD CALENDAR:TitleForeColor extension, not real 4GL
       attrsAndMethods.put( KW_CALTRLFG, ATTR_INT     ); // FWD CALENDAR:TrailingForeColor extension, not real 4GL
       attrsAndMethods.put( KW_CALUPDWN, ATTR_LOGICAL ); // FWD CALENDAR:UpDown extension, not real 4GL
-      attrsAndMethods.put( KW_CALVALUE, ATTR_CHAR    ); // FWD CALENDAR:DateTimeValue extension, not real 4GL
+      attrsAndMethods.put( KW_CALVALUE, ATTR_CHAR    ); // FWD CALENDAR:CalendarValue extension, not real 4GL
       attrsAndMethods.put( KW_CANC_BRK, METH_LOGICAL );
       attrsAndMethods.put( KW_CANCEL_B, ATTR_HANDLE  );
       attrsAndMethods.put( KW_CANCEL_R, METH_LOGICAL );
@@ -9527,6 +9535,7 @@
       sym.addGlobalVariable("opsys"              , VAR_CHAR         );
       sym.addGlobalVariable("os-drives"          , VAR_CHAR         );
       sym.addGlobalVariable("os-error"           , VAR_INT          );
+      sym.addGlobalVariable("os-userid"          , VAR_CHAR         );  // FWD extension, not real 4GL!
       sym.addGlobalVariable("page-number"        , FUNC_INT         );
       sym.addGlobalVariable("page-size"          , FUNC_INT         );
       sym.addGlobalVariable("process-architecture", VAR_INT         );
@@ -21022,6 +21031,12 @@
          if (#s != null) convertStringTo(#s, EVENT);
          if (#o != null) #o.setType(EVENT);
          if (#e != null) #e.setType(EVENT);
+         
+         // verify if the event is registered in FWD, accross all keyboards
+         if (!com.goldencode.p2j.ui.Keyboard.registeredEventName(##.getText()))
+         {
+            System.err.println("ERROR: event [" + ##.getText() + "] is not registered in FWD!");
+         }
       }         
    ;
       
@@ -29653,6 +29668,7 @@
                LA(1) != KW_ROWID    && 
                LA(1) != KW_REJECTED && 
                LA(1) != KW_ROW_STAT && 
+               LA(1) != KW_DATA_SM  && 
                LA(1) != KW_REC_LEN) || LA(2) == LPARENS
            }?
            record_funcs
@@ -32590,6 +32606,7 @@
               | ro:KW_ROWID^      { saveAndReplaceType(#ro, FUNC_ROWID); }
               | rj:KW_REJECTED^   { saveAndReplaceType(#rj, FUNC_LOGICAL); }
               | rs:KW_ROW_STAT^   { saveAndReplaceType(#rs, FUNC_INT); }
+              | rd:KW_DATA_SM^    { saveAndReplaceType(#rd, FUNC_LOGICAL); }
               | rl:KW_REC_LEN^    { saveAndReplaceType(#rl, FUNC_INT); }
            )
            lparens nothing = record[true, false, false] rparens
@@ -33626,6 +33643,7 @@
          new Keyword("calendar"                       ,  0, KW_CALENDAR, false), // FWD CALENDAR extension, not a real 4GL keyword
          new Keyword("calendarbackcolor"              ,  0, KW_CALBGCLR, false), // FWD CALENDAR extension
          new Keyword("calendarforecolor"              ,  0, KW_CALFGCLR, false), // FWD CALENDAR extension
+         new Keyword("calendarvalue"                  ,  0, KW_CALVALUE, false), // CALENDAR:CalendarValue extension
          new Keyword("call"                           ,  0, KW_CALL    , true ),
          new Keyword("call-name"                      ,  0, KW_CALL_NAM, false),
          new Keyword("call-type"                      ,  0, KW_CALL_TYP, false),
@@ -33833,7 +33851,6 @@
          new Keyword("dataset-handle"                 ,  0, KW_DSET_HND, true ),
          new Keyword("date"                           ,  0, KW_DATE    , false),
          new Keyword("datetime"                       ,  0, KW_DATETIME, false),  // missing from keyword index and UNTESTED at this time
-         new Keyword("datetimevalue"                  ,  0, KW_CALVALUE, false),  // CALENDAR:VALUE extension
          new Keyword("datetime-tz"                    ,  0, KW_DATE_TZ , false),  // missing from keyword index and UNTESTED at this time
          new Keyword("date-format"                    ,  6, KW_DATE_FMT, false),
          new Keyword("date-separator"                 ,  0, KW_DATE_SEP, false),  // FWD extension, not a real 4GL keyword
@@ -34669,6 +34686,7 @@
          new Keyword("mf-get-xy"                      ,  0, KW_MF_GXY  , false),  // FWD extension, not real 4GL!
          new Keyword("mf-get-zoom-factor"             ,  0, KW_MF_GZF  , false),  // FWD extension, not real 4GL!
          new Keyword("mf-init"                        ,  0, KW_MF_INIT , false),  // FWD extension, not real 4GL!
+         new Keyword("mf-interrupt-recording"         ,  0, KW_MF_IR   , false),  // FWD extension, not real 4GL!
          new Keyword("mf-make-pdf"                    ,  0, KW_MF_MPDF , false),  // FWD extension, not real 4GL!
          new Keyword("mf-pixels-to-metafile-units"    ,  0, KW_MF_P2MU , false),  // FWD extension, not real 4GL!
          new Keyword("mf-reset-page"                  ,  0, KW_MF_RP   , false),  // FWD extension, not real 4GL!
@@ -34954,6 +34972,7 @@
          new Keyword("os-error"                       ,  0, KW_OS_ERR  , false),
          new Keyword("os-getenv"                      ,  0, KW_OS_G_ENV, false),
          new Keyword("os-rename"                      ,  0, KW_OS_REN  , true ),
+         new Keyword("os-userid"                      ,  0, KW_OS_UID  , false),  // FWD-extension, not real 4GL!
          new Keyword("otherwise"                      ,  0, KW_OTHER   , true ),
          new Keyword("outer-join"                     ,  0, KW_OUT_JOIN, false),  // missing in keyword index, found elsewhere in lang ref
          new Keyword("outer"                          ,  0, KW_OUTER   , false),  // missing in keyword index, found elsewhere in lang ref

=== modified file 'src/com/goldencode/p2j/ui/BaseEntity.java'
--- src/com/goldencode/p2j/ui/BaseEntity.java	2020-10-04 18:23:10 +0000
+++ src/com/goldencode/p2j/ui/BaseEntity.java	2020-11-23 20:09:32 +0000
@@ -153,6 +153,11 @@
 **     SBI 20200414          Moved getCaptionFontSize into WithCaption interface.
 ** 083 HC  20201004          Performance optimizations of server-client config state
 **                           synchronization.
+**     EVL 20201021          More optimization for getAttr() usage or widget ID getting.
+**     EVL 20201022          Optimized attributes flush implementation.
+**     CA  20201112          Avoid pushing the entire frame definition when setting the PARENT attribute.
+**     CA  20201123          Fixed a regression in CA/20201112, when the widget is re-attached to another 
+**                           frame, before being realized.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -566,7 +571,7 @@
       double col = ConfigHelper.getEffectiveColumn(config);
       col = col < 0 ? col - 1 : col + 1;
       
-      return new decimal(col - getAttr("frameColumnOffset", () -> config.frameColumnOffset));
+      return new decimal(col - getAttr("frameColumnOffset", () -> config.frameColumnOffset, true));
    }
 
    /**
@@ -769,7 +774,7 @@
     */
    public void setFgColor(int fgcolor)
    {
-      if (getAttr("fgcolor ", () -> config.fgcolor )== fgcolor)
+      if (getAttr("fgcolor", () -> config.fgcolor )== fgcolor)
       {
          return;
       }
@@ -1120,6 +1125,11 @@
       
       GenericWidget<?> parent = LogicalTerminal.getWidgetForId(getAttr("parentId", () -> config.parentId));
       
+      if (parent == widget)
+      {
+         return;
+      }
+      
       if (parent instanceof WidgetContainer)
       {
          WidgetContainer cont = (WidgetContainer) parent;
@@ -1127,6 +1137,14 @@
          {
             cont.removeWidget(this);
          }
+
+         // dettach it to the frame
+         GenericFrame frame = widget.getFrame();
+         if (frame != null)
+         {
+            this.config.frameId = -1;
+            frame.deleteDynamicWidget(this, false);
+         }
       }
 
       this.parent = widget;
@@ -1149,10 +1167,13 @@
          else
          {
             this.config.frameId = -1;
+            pushScreenDefinition();
          }
       }
-
-      pushScreenDefinition();
+      else
+      {
+         pushScreenDefinition();
+      }
    }
 
    /**
@@ -1411,7 +1432,7 @@
       double row = ConfigHelper.getEffectiveRow(config);
       row = row < 0 ? row - 1 : row + 1;
       
-      return new decimal(row - getAttr("frameRowOffset", () -> config.frameRowOffset));
+      return new decimal(row - getAttr("frameRowOffset", () -> config.frameRowOffset, true));
    }
 
    /**
@@ -1485,7 +1506,7 @@
    @Override
    public void setSelected(boolean sel)
    {
-      if (getAttr("selected ", () -> config.selected )== sel)
+      if (getAttr("selected", () -> config.selected )== sel)
       {
          return;
       }
@@ -1549,7 +1570,7 @@
    {
       flushWidgetAttrs();
       int x = ConfigHelper.getEffectiveX(config);
-      return new integer(x - getAttr("frameXOffset", () -> config.frameXOffset));
+      return new integer(x - getAttr("frameXOffset", () -> config.frameXOffset, true));
    }
 
    /**
@@ -1586,7 +1607,7 @@
    {
       flushWidgetAttrs();
       int y = ConfigHelper.getEffectiveY(config);
-      return new integer(y - getAttr("frameYOffset", () -> config.frameYOffset));
+      return new integer(y - getAttr("frameYOffset", () -> config.frameYOffset, true));
    }
 
    /**
@@ -1644,7 +1665,7 @@
          setTooltip((String)null);
          // deactivate tooltip feature for this widget not depending on SESSION:TOOLTIP value
          // the client side call to deactivate tooltip for this widget
-         LogicalTerminal.getClient().deactivateTooltipForWidget(getAttr("id", () -> config.id).asInt());
+         LogicalTerminal.getClient().deactivateTooltipForWidget(getId());
       }
       else
       {
@@ -1658,7 +1679,7 @@
          if (SessionUtils.getSessionTooltips().booleanValue())
          {
             // the client side call to activate tooltip for this widget
-            LogicalTerminal.getClient().activateTooltipForWidget(getAttr("id", () -> config.id).asInt());
+            LogicalTerminal.getClient().activateTooltipForWidget(getId());
          }
       }
    }   
@@ -1838,7 +1859,7 @@
    @Override
    public decimal getFrameColumn()
    {
-      return MathOps.plus(getColumn(), getAttr("frameColumnOffset", () -> config.frameColumnOffset));
+      return MathOps.plus(getColumn(), getAttr("frameColumnOffset", () -> config.frameColumnOffset, true));
    }
 
    /**
@@ -1849,7 +1870,7 @@
    @Override
    public decimal getFrameRow()
    {
-      return MathOps.plus(getRow(), getAttr("frameRowOffset", () -> config.frameRowOffset));
+      return MathOps.plus(getRow(), getAttr("frameRowOffset", () -> config.frameRowOffset, true));
    }
 
    /**
@@ -1861,8 +1882,9 @@
    public integer getFrameX()
    {
       // if we are in ChUI, this actually returns the FRAME-COL
-      return new integer(LogicalTerminal.isChui() ? getFrameColumn() 
-                                                  : MathOps.plus(getX(), getAttr("frameXOffset", () -> config.frameXOffset)));
+      return new integer(LogicalTerminal.isChui()
+                            ? getFrameColumn() 
+                            : MathOps.plus(getX(), getAttr("frameXOffset", () -> config.frameXOffset, true)));
    }
 
    /**
@@ -1874,8 +1896,9 @@
    public integer getFrameY()
    {
       // if we are in ChUI, this actually returns the FRAME-ROW
-      return new integer(LogicalTerminal.isChui() ? getFrameRow() 
-                                                  : MathOps.plus(getY(), getAttr("frameYOffset", () -> config.frameYOffset)));
+      return new integer(LogicalTerminal.isChui()
+                            ? getFrameRow() 
+                            : MathOps.plus(getY(), getAttr("frameYOffset", () -> config.frameYOffset, true)));
    }
 
    /**
@@ -1912,7 +1935,7 @@
    @Override
    public integer getFontSize()
    {
-      return getAttr("fontSize ", () -> config.fontSize )< 0 ? new integer() : new integer(getAttr("fontSize", () -> config.fontSize));
+      return getAttr("fontSize", () -> (config.fontSize < 0 ? new integer() : new integer(config.fontSize)));
    }
 
    /**
@@ -1939,7 +1962,7 @@
    @Override
    public logical isFontBold()
    {
-      return new logical(getAttr("fontStyle ", () -> config.fontStyle )!= null && getAttr("fontStyle", () -> config.fontStyle).isBold());
+      return new logical(getAttr("fontStyle", () -> (config.fontStyle != null && config.fontStyle.isBold())));
    }
 
    /**
@@ -1956,10 +1979,11 @@
          return;
       }
 
-      FontStyle newStyleStyle = FontStyle.createStyle(value.booleanValue(), 
-                                               getAttr("fontStyle ", () -> config.fontStyle )!= null && getAttr("fontStyle", () -> config.fontStyle).isItalic(),
-                                               getAttr("fontStyle ", () -> config.fontStyle )!= null && getAttr("fontStyle", () -> config.fontStyle).isUnderline());
-      setAttr("fontStyle", config.fontStyle, newStyleStyle, (vv) -> config.fontStyle = vv);
+      FontStyle currFontStyle = getAttr("fontStyle", () -> config.fontStyle);
+      FontStyle newStyle = FontStyle.createStyle(value.booleanValue(),
+                                                 currFontStyle != null && currFontStyle.isItalic(),
+                                                 currFontStyle != null && currFontStyle.isUnderline());
+      setAttr("fontStyle", config.fontStyle, newStyle, (vv) -> config.fontStyle = vv);
    }
 
    /**
@@ -1970,7 +1994,8 @@
    @Override
    public logical isFontItalic()
    {
-      return new logical(getAttr("fontStyle ", () -> config.fontStyle )!= null && getAttr("fontStyle", () -> config.fontStyle).isItalic());
+      return new logical(getAttr("fontStyle",
+                                 () -> (config.fontStyle != null && config.fontStyle.isItalic())));
    }
 
    /**
@@ -1987,9 +2012,10 @@
          return;
       }
 
-      FontStyle newStyle = FontStyle.createStyle(getAttr("fontStyle ", () -> config.fontStyle )!= null && getAttr("fontStyle", () -> config.fontStyle).isBold(),
-                                               value.booleanValue(),
-                                               getAttr("fontStyle ", () -> config.fontStyle )!= null && getAttr("fontStyle", () -> config.fontStyle).isUnderline());
+      FontStyle currFontStyle = getAttr("fontStyle", () -> config.fontStyle);
+      FontStyle newStyle = FontStyle.createStyle(currFontStyle != null && currFontStyle.isBold(),
+                                                 value.booleanValue(),
+                                                 currFontStyle != null && currFontStyle.isUnderline());
       setAttr("fontStyle", config.fontStyle, newStyle, (vv) -> config.fontStyle = vv);
    }
 
@@ -2001,7 +2027,8 @@
    @Override
    public logical isFontUnderline()
    {
-      return new logical(getAttr("fontStyle ", () -> config.fontStyle )!= null && getAttr("fontStyle", () -> config.fontStyle).isUnderline());
+      return new logical(getAttr("fontStyle",
+                                 () -> (config.fontStyle != null && config.fontStyle.isUnderline())));
    }
 
    /**
@@ -2018,9 +2045,10 @@
          return;
       }
 
-      FontStyle newStyle = FontStyle.createStyle(getAttr("fontStyle ", () -> config.fontStyle )!= null && getAttr("fontStyle", () -> config.fontStyle).isBold(),
-                                               getAttr("fontStyle ", () -> config.fontStyle )!= null && getAttr("fontStyle", () -> config.fontStyle).isItalic(),
-                                               value.booleanValue());
+      FontStyle currFontStyle = getAttr("fontStyle", () -> config.fontStyle);
+      FontStyle newStyle = FontStyle.createStyle(currFontStyle != null && currFontStyle.isBold(),
+                                                 currFontStyle != null && currFontStyle.isItalic(),
+                                                 value.booleanValue());
       setAttr("fontStyle", config.fontStyle, newStyle, (vv) -> config.fontStyle = vv);
    }
 
@@ -2408,7 +2436,7 @@
          // config stores 0-based value
          value = value < 0 ? value + 1 : value - 1;
          
-         if (!getAttr("realized ", () -> config.realized )|| isInsideSetup)
+         if (!getAttr("realized", () -> config.realized, true) || isInsideSetup)
          {
             config.initRow = value;
             config.initY = y;
@@ -2421,8 +2449,8 @@
          if (!isInsideSetup)
          {
             // adjust for frame offset
-            value += getAttr("frameRowOffset", () -> config.frameRowOffset);
-            y += getAttr("frameYOffset", () -> config.frameYOffset);
+            value += getAttr("frameRowOffset", () -> config.frameRowOffset, true);
+            y += getAttr("frameYOffset", () -> config.frameYOffset, true);
             
             // last check for the new position does not place the widget outside the frame
             // virtual region
@@ -2434,7 +2462,8 @@
                p = getParent(WindowWidget.class);
             }
 
-            double maxHeight = Coordinate.scale(value + getAttr("heightChars", () -> config.heightChars));
+            double maxHeight = Coordinate.scale(value + getAttr("heightChars",
+                                                                () -> config.heightChars, true));
 
             // TODO: Progress doesn't prevent assignment of the new value when it doesn't fit, it only
             //       shows a warning
@@ -2484,7 +2513,7 @@
          // config stores 0-based value
          value = value < 0 ? value + 1 : value - 1;
          
-         if (!getAttr("realized ", () -> config.realized )|| isInsideSetup)
+         if (!getAttr("realized", () -> config.realized, true) || isInsideSetup)
          {
             config.initColumn = value;
             config.initX = x;
@@ -2497,8 +2526,8 @@
          if (!isInsideSetup)
          {
             // adjust for frame offset
-            value += getAttr("frameColumnOffset", () -> config.frameColumnOffset);
-            x += getAttr("frameXOffset", () -> config.frameXOffset);
+            value += getAttr("frameColumnOffset", () -> config.frameColumnOffset, true);
+            x += getAttr("frameXOffset", () -> config.frameXOffset, true);
 
             // last check for the new position does not place the widget outside the frame
             // virtual region
@@ -2510,7 +2539,7 @@
                p = getParent(WindowWidget.class);
             }
 
-            double maxWidth = Coordinate.scale(value + getAttr("widthChars", () -> config.widthChars));
+            double maxWidth = Coordinate.scale(value + getAttr("widthChars", () -> config.widthChars, true));
 
             // TODO: Progress doesn't prevent assignment of the new value when it doesn't fit, it only
             //       shows a warning
@@ -2599,7 +2628,7 @@
          if (!isInsideSetup)
          {
             // adjust for frame offset first
-            value += getAttr("frameXOffset", () -> config.frameXOffset);
+            value += getAttr("frameXOffset", () -> config.frameXOffset, true);
          }
          
          double chValue = cc.columnFromPixels(value);
@@ -2608,7 +2637,7 @@
             chValue = Coordinate.adjustMinMaxGuiChar(chValue);
          }
          
-         if (!getAttr("realized ", () -> config.realized )|| isInsideSetup)
+         if (!getAttr("realized", () -> config.realized, true) || isInsideSetup)
          {
             config.initX = value;
             config.initColumn = chValue;
@@ -2630,7 +2659,7 @@
          if (!isInsideSetup)
          {
             // adjust for frame offset first
-            value += getAttr("frameYOffset", () -> config.frameYOffset);
+            value += getAttr("frameYOffset", () -> config.frameYOffset, true);
          }
          
          double chValue = cc.rowFromPixels(value);
@@ -2639,7 +2668,7 @@
             chValue = Coordinate.adjustMinMaxGuiChar(chValue);
          }
          
-         if (!getAttr("realized ", () -> config.realized )|| isInsideSetup)
+         if (!getAttr("realized", () -> config.realized, true) || isInsideSetup)
          {
             config.initY = value;
             config.initRow = chValue;
@@ -2767,7 +2796,7 @@
       // TO-DO:
       // value > screen-width - frame-width should produce PROGRESS error 4054
       // "**Unable to set COL.  FRAME f does not fit in WINDOW widget. (4054)"
-      if (!validColumnOrRow(isUnknown, value, row) && getAttr("realized", () -> config.realized))
+      if (!validColumnOrRow(isUnknown, value, row) && getAttr("realized", () -> config.realized, true))
       {
          // if the widget was already realized and this is not a valid coordinate, do nothing
          return;
@@ -2778,7 +2807,7 @@
       value = isChui ? Coordinate.scale(value, 0) : Coordinate.scale(value);
       value = isChui ? Coordinate.adjustMinMaxChuiChar(value) : Coordinate.adjustMinMaxGuiChar(value);
       
-      if ((row && getAttr("row ", () -> config.row )== value - 1) || (!row && getAttr("column ", () -> config.column )== value - 1))
+      if ((row && getAttr("row", () -> config.row )== value - 1) || (!row && getAttr("column", () -> config.column )== value - 1))
       {
          return;
       }
@@ -2825,7 +2854,7 @@
          return;
       }
       
-      if ((x && getAttr("x ", () -> config.x )== value - 1) || (!x && getAttr("y ", () -> config.y )== value - 1))
+      if ((x && getAttr("x", () -> config.x )== value - 1) || (!x && getAttr("y", () -> config.y )== value - 1))
       {
          return;
       }
@@ -3146,8 +3175,9 @@
     */
    protected decimal _getWidthChars()
    {
-      return new decimal(getAttr("clientWidthChars ", () -> config.clientWidthChars )!= BaseConfig.INV_COORD ?
-                         getAttr("clientWidthChars ", () -> config.clientWidthChars ): getAttr("widthChars", () -> config.widthChars));
+      double clientWidthCh = getAttr("clientWidthChars", () -> config.clientWidthChars, true);
+      return new decimal(clientWidthCh != BaseConfig.INV_COORD ? clientWidthCh :
+                         getAttr("widthChars", () -> config.widthChars, true));
    }
 
    /**
@@ -3157,8 +3187,9 @@
     */
    protected decimal _getHeightChars()
    {
-      return new decimal(getAttr("clientHeightChars ", () -> config.clientHeightChars )!= BaseConfig.INV_COORD ?
-                         getAttr("clientHeightChars ", () -> config.clientHeightChars ): getAttr("heightChars", () -> config.heightChars));
+      double clientHeightCh = getAttr("clientHeightChars", () -> config.clientHeightChars, true);
+      return new decimal(clientHeightCh != BaseConfig.INV_COORD ? clientHeightCh :
+                         getAttr("heightChars", () -> config.heightChars, true));
    }
 
    /**
@@ -3169,8 +3200,9 @@
     */
    protected integer _getWidthPixels()
    {
-      return new integer(getAttr("clientWidthPixels ", () -> config.clientWidthPixels )!= BaseConfig.INV_COORD ?
-                         getAttr("clientWidthPixels ", () -> config.clientWidthPixels ): getAttr("widthPixels", () -> config.widthPixels));
+      int clientWidthPix = getAttr("clientWidthPixels", () -> config.clientWidthPixels, true);
+      return new integer(clientWidthPix != BaseConfig.INV_COORD ? clientWidthPix :
+                         getAttr("widthPixels", () -> config.widthPixels, true));
    }
 
    /**
@@ -3180,8 +3212,9 @@
     */
    protected integer _getHeightPixels()
    {
-      return new integer(getAttr("clientHeightPixels ", () -> config.clientHeightPixels )!= BaseConfig.INV_COORD ?
-                         getAttr("clientHeightPixels ", () -> config.clientHeightPixels ): getAttr("heightPixels", () -> config.heightPixels));
+      int clientHeightPix = getAttr("clientHeightPixels", () -> config.clientHeightPixels, true);
+      return new integer(clientHeightPix != BaseConfig.INV_COORD ? clientHeightPix :
+                         getAttr("heightPixels", () -> config.heightPixels, true));
    }
 
    /**
@@ -3191,8 +3224,8 @@
     */
    private boolean isRedirected()
    {
-      return UnnamedStreams.isOut() || 
-             (getAttr("frameId ", () -> config.frameId )!= -1 && LogicalTerminal.getFrame(getAttr("frameId", () -> config.frameId)).isOutRedirected());
+      int frId = getAttr("frameId", () -> config.frameId);
+      return UnnamedStreams.isOut() || (frId != -1 && LogicalTerminal.getFrame(frId).isOutRedirected());
    }
 
    /**

=== modified file 'src/com/goldencode/p2j/ui/BrowseColumnWidget.java'
--- src/com/goldencode/p2j/ui/BrowseColumnWidget.java	2020-09-28 10:09:11 +0000
+++ src/com/goldencode/p2j/ui/BrowseColumnWidget.java	2020-10-31 00:42:17 +0000
@@ -2,9 +2,9 @@
 ** Module   : BrowseColumnWidget.java
 ** Abstract : server side browse column widget implementation
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- -----------------------------Description-----------------------------
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 NVS 20051026   @23480 Created initial version.
 ** 002 SIY 20060227   @25122 Changes for the browse controller 
 **                           implementation.
@@ -112,6 +112,14 @@
 ** 068 AIL 20200827          Properly displaying error 382 when setting screen value.
 **     SVL 20200913          Added updateElementAccessor.
 **     SVL 20200925          Added getExpressionFieldReferences and updateExpressionFieldReferences.
+**     EVL 20201022          Optimized attributes flush implementation.
+**     SVL 20201110          name() should return field name, not hibernate property name.
+**     SVL 20201119          Support for column:FONT attribute in a ROW-DISPLAY trigger.
+**     SVL 20201216          Fixed getParent().
+**     CA  20210111          SCREEN-VALUE usage from converted code needs to be distinguished from internal
+**                           usage, within FWD code (see COMBO-BOX:LIST-ITEM-PAIRS behavior).
+**     VVT 20210115          Missing LegacyAttribute annotation(s) added. See #5064.
+**     OM  20201030          Invalid attribute API support for getters/setters.
 */
 
 /*
@@ -238,6 +246,11 @@
    private boolean comboBoxListMode = true;
 
    /**
+    * The parent browse.
+    */
+   private BrowseWidget browse;
+
+   /**
     * Default constructor creates a static browse column
     */
    public BrowseColumnWidget()
@@ -297,6 +310,7 @@
     * @param    r
     *           <code>true</code> if the widget should be write-protected.
     */
+   @LegacyAttribute(name = "READ-ONLY", setter = true)
    @Override
    public void setReadOnly(logical r) 
    {
@@ -327,7 +341,7 @@
    @Override
    public integer getInnerLines()
    {
-      return new integer(getAttr("innerLines", () -> config.innerLines));
+      return new integer(getAttr("innerLines", () -> config.innerLines, true));
    }
    
    /**
@@ -588,7 +602,7 @@
    @Override
    public decimal getWidthChars()
    {
-      return new decimal(getAttr("widthChars", () -> config.widthChars));
+      return new decimal(getAttr("widthChars", () -> config.widthChars, true));
    }
 
    /**
@@ -599,7 +613,7 @@
    @Override
    public integer getWidthPixels()
    {
-      return new integer(getAttr("widthPixels", () -> config.widthPixels));
+      return new integer(getAttr("widthPixels", () -> config.widthPixels, true));
    }
 
    /**
@@ -652,6 +666,18 @@
    }
 
    /**
+    * Gets the PARENT writable attribute. Returns the parent browse.
+    *
+    * @return   the parent widget for this widget
+    */
+   @Override
+   public CommonWidget getParent()
+   {
+      // SVL: I couldn't find a way to set parent for a column in 4GL. So always return the parent browse.
+      return getBrowse();
+   }
+
+   /**
     * Set AUTO-COMPLETION attribute value.
     * 
     * @param    autoCompletion
@@ -1102,6 +1128,30 @@
    }
 
    /**
+    * Set the FONT attribute of this widget.
+    *
+    * @param    fontNum
+    *           An entry in the font-table or unknown to refer the default font.
+    */
+   @Override
+   public void setFont(int64 fontNum)
+   {
+      BrowseWidget browse = getBrowse();
+      if (browse.isInRowDisplayTrigger())
+      {
+         if (!fontNum.isUnknown() && !LogicalTerminal.isChui())
+         {
+            GuiCellAttributes attr = (GuiCellAttributes) browse.getRowInDisplayAttributes(config().ordinal);
+            attr.font = fontNum.intValue();
+         }
+      }
+      else
+      {
+         super.setFont(fontNum);
+      }
+   }
+
+   /**
     * Sets the FGCOLOR writable attribute.
     *
     * @param    fgColor
@@ -1119,7 +1169,7 @@
     *           The new value for the SCREEN-VALUE attribute.
     */
    @Override
-   public void setScreenValue(character screenValue)
+   protected void setScreenValueInt(character screenValue)
    {
       BrowseWidget browse = getBrowse();
       
@@ -1144,7 +1194,7 @@
          try
          {
             setModified(new logical(!getScreenValue().equals(screenValue)));
-            super.setScreenValue(screenValue);
+            super.setScreenValueInt(screenValue);
          }
          catch (ErrorConditionException e)
          {
@@ -1166,17 +1216,6 @@
    }
 
    /**
-    * Sets the SCREEN-VALUE writable attribute.
-    *
-    * @param    screenValue
-    *           The new value for the SCREEN-VALUE attribute.
-    */
-   public void setScreenValue(String screenValue)
-   {
-      setScreenValue(new character(screenValue));
-   }
-
-   /**
     * Gets the SCREEN-VALUE.
     * 
     * @return   The screen value.
@@ -1699,7 +1738,9 @@
          Accessor acc = ((Element) element).getDataAccessor();
          if (acc instanceof FieldReference)
          {
-            result = new character(((FieldReference) acc).getProperty());
+            FieldReference ref = (FieldReference) acc;
+            Buffer buf = (Buffer) ref.getParentBuffer().getDMOProxy();
+            result = new character(TableMapper.getLegacyFieldName(buf, ref.getProperty()));
          }
       }
       
@@ -2314,7 +2355,12 @@
     */
    public BrowseWidget getBrowse()
    {
-      return (BrowseWidget) LogicalTerminal.getWidgetForId(config().browseId);
+      if (browse == null)
+      {
+         browse = (BrowseWidget) LogicalTerminal.getWidgetForId(config().browseId);
+      }
+
+      return browse;
    }
 
    /**
@@ -2584,24 +2630,19 @@
 
       return super.validateFields(enabledOnly);
    }
-
+   
    /**
     * Raise error 4052 "&lt;ATTRIBUTE-NAME&gt; is not a setable attribute for &lt;WIDGET-TYPE&gt;
     * &lt;COLUMN-NAME&gt;".
     *
-    * @param attributeName
-    *        Attribute name.
+    * @param   attributeName
+    *          Attribute name.
     */
    private void errorEditorAttributeNotSettable(String attributeName)
    {
-      ErrorManager.recordOrShowError(4052,
-            String.format("**%s is not a setable attribute for %s %s",
-                  attributeName,
-                  config.widgetType,
-                  name().toStringMessage()),
-            false, false);
+      handle.invalidAttribute(attributeName, "setable", config.widgetType.toString(), name().toStringMessage());
    }
-
+   
    /**
     * Checks if the column is a combo-box column. If not, raises "&lt;ATTRIBUTE&gt; is
     * not a setable attribute" error.

=== modified file 'src/com/goldencode/p2j/ui/BrowseInterface.java'
--- src/com/goldencode/p2j/ui/BrowseInterface.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/BrowseInterface.java	2020-12-25 16:37:53 +0000
@@ -34,6 +34,7 @@
 ** 023 CA  20190703 Added addCalcColumn(character, character, character, String) version.
 ** 024 CA  20200331 Added setTitleColor and setTitleDColor.
 ** 025 GES 20200629 Added an addCalcColumn() variant.
+**     SVL 20201225 MIN-HEIGHT-CHARS moved to MinHeightCharsInterface.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -1605,32 +1606,6 @@
    public void setMaxHeightChars(decimal max);
    
    /**
-    * Implements the MIN-HEIGHT-CHARS attribute getter.<p>
-    *
-    * @return  minimum height of the browse, in character units.
-    */
-   @LegacyAttribute(name = "MIN-HEIGHT-CHARS")
-   public decimal getMinHeightChars();
-
-   /**
-    * Sets the MIN-HEIGHT-CHARS writable attribute.
-    *
-    * @param    min
-    *           The new value for the MIN-HEIGHT-CHARS attribute.
-    */
-   @LegacyAttribute(name = "MIN-HEIGHT-CHARS", setter = true)
-   public void setMinHeightChars(NumberType min);
-   
-   /**
-    * Sets the MIN-HEIGHT-CHARS writable attribute.
-    *
-    * @param    min
-    *           The new value for the MIN-HEIGHT-CHARS attribute.
-    */
-   @LegacyAttribute(name = "MIN-HEIGHT-CHARS", setter = true)
-   public void setMinHeightChars(decimal min);
-   
-   /**
     * Implements the ALLOW-COLUMN-SEARCHING attribute getter.<p>
     *
     * @return <code>true</code> if column searching is allowed for the browse.

=== modified file 'src/com/goldencode/p2j/ui/BrowseWidget.java'
--- src/com/goldencode/p2j/ui/BrowseWidget.java	2020-10-07 11:19:20 +0000
+++ src/com/goldencode/p2j/ui/BrowseWidget.java	2021-01-23 18:01:03 +0000
@@ -2,7 +2,7 @@
 ** Module   : BrowseWidget.java
 ** Abstract : server side BROWSE widget class
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- ----------------------------Description-----------------------------
 ** 001 NVS 20051026   @23481 Created initial version.
@@ -286,6 +286,20 @@
 **                           expression.
 **     SVL 20200927          Fixed NPE for field references not participating in a "compatible" query
 **                           assigned.
+**     HC  20201010          Implemented selective config flushing.
+**     EVL 20201022          Optimized attributes flush implementation.
+**     SVL 20201028          Fixed finishSetup not called if a dynamic browse becomes visible when the parent
+**                           frame is already visible.
+**     SVL 20201111          Support for empty LABEL / COLUMN-LABEL.
+**     SVL 20201221          The widget now implements MinHeightCharsInterface.
+**     VVT 20210104          getMinHeightChars(): cast added to resolve the ambiguity.
+**     CA  20210111          SCREEN-VALUE usage from converted code needs to be distinguished from internal
+**                           usage, within FWD code (see COMBO-BOX:LIST-ITEM-PAIRS behavior).
+**     VVT 20210114          getMaxHeightChars(),setMaxHeightChars(): MAX-HEIGHT-CHARS attribute name must be
+**                           used instead of MAX-HEIGHT
+**     VVT 20210115          Missing LegacyAttribute annotation(s) added. See #5064. Some unnecessary code removed.
+**     CA  20210123          Setting the COMBO-BOX column's data-type clears its items (as it's dynamic) - this
+**                           was solved by setting the DATA-TYPE before the ID is set. 
 */
 
 /*
@@ -381,7 +395,8 @@
            RowDisplayDrawListener,
            WriteProtectable,
            TitledElement,
-           QueryOpenedListener
+           QueryOpenedListener,
+           MinHeightCharsInterface
 {
    /** Logger */
    private static final Logger LOG = LogHelper.getLogger(BrowseWidget.class.getName());
@@ -564,6 +579,7 @@
     * @param    r
     *           <code>true</code> if the widget should be write-protected.
     */
+   @LegacyAttribute(name = "READ-ONLY", setter = true)
    @Override
    public void setReadOnly(logical r) 
    {
@@ -600,7 +616,7 @@
     */
    public logical isModified()
    {
-      return new logical(getAttr("modified", () -> config.modified));
+      return new logical(getAttr("modified", () -> config.modified, true));
    }
    
    /**
@@ -660,7 +676,7 @@
     */
    public void setMultiple(boolean multiple)
    {
-      if (getAttr("realized", () -> config.realized))
+      if (getAttr("realized", () -> config.realized, true))
       {
          errorAlreadyRealized("MULTIPLE");
          return;
@@ -771,7 +787,7 @@
     */
    public void setRowMarkers(boolean markers)
    {
-      if (getAttr("realized", () -> config.realized))
+      if (getAttr("realized", () -> config.realized, true))
       {
          errorAlreadyRealized("ROW-MARKERS");
          return;
@@ -891,7 +907,7 @@
     */
    public void setLabels(boolean labels)
    {
-      if (getAttr("realized ", () -> config.realized )&& LogicalTerminal.isChui())
+      if (getAttr("realized", () -> config.realized, true) && LogicalTerminal.isChui())
       {
          errorAlreadyRealized("LABELS");
          return;
@@ -1215,7 +1231,7 @@
          return;
       }
       
-      if (getAttr("noValidate ", () -> config.noValidate )== value)
+      if (getAttr("noValidate", () -> config.noValidate )== value)
       {
          return;
       }
@@ -1575,7 +1591,7 @@
       if (createOnAdd.isUnknown())
          return;
 
-      if (getAttr("createOnAdd ", () -> config.createOnAdd )== createOnAdd.booleanValue())
+      if (getAttr("createOnAdd", () -> config.createOnAdd )== createOnAdd.booleanValue())
       {
          return;
       }
@@ -2023,7 +2039,7 @@
     */
    public void setTitle(String title)
    {
-      if (getAttr("realized", () -> config.realized) && "".equals(config.title))
+      if (getAttr("realized", () -> config.realized, true) && "".equals(config.title))
       {
          // We are free to change TITLE of a realized browse with a title. But we cannot set a
          // TITLE for a realized browse without title.
@@ -2116,7 +2132,7 @@
    @Override
    public integer visibleIterations()
    {
-      return getAttr("realized", () -> config.realized) ? getDown() : new integer();
+      return getAttr("realized", () -> config.realized, true) ? getDown() : new integer();
    }
    
    /**
@@ -3140,13 +3156,10 @@
             String columnLabel;
             int extentIndex = fieldReference.getIndex();
 
-            // TODO currently P2J returns an empty string if a column label is not specified,
-            // so it is not clear how distinguish cases when column label is not specified and
-            // when an empty one is specified
             columnLabel = TableMapper.getLegacyFieldColumnLabel(buffer, property);
-            if (columnLabel == null || columnLabel.isEmpty()) // TODO fix
+            if (columnLabel == null)
                columnLabel = TableMapper.getLegacyFieldLabel(buffer, property);
-            if (columnLabel == null || columnLabel.isEmpty()) // TODO fix
+            if (columnLabel == null)
                columnLabel = TableMapper.getLegacyFieldName(buffer, property);
 
             if (extentIndex != -1)
@@ -3533,10 +3546,11 @@
     *
     * @return  maximum height of the browse, in character units.
     */
+   @LegacyAttribute(name = "MAX-HEIGHT-CHARS", ignore = true)
    @Override
    public decimal getMaxHeightChars()
    {
-      notQueryable("MAX-HEIGHT");
+      notQueryable("MAX-HEIGHT-CHARS");
       return new decimal();
    }
 
@@ -3561,7 +3575,7 @@
    @Override
    public void setMaxHeightChars(decimal max)
    {
-      ErrorManager.displayError(4052, "MAX-HEIGHT is not a setable attribute for BROWSE "+
+      ErrorManager.displayError(4052, "MAX-HEIGHT-CHARS is not a setable attribute for BROWSE "+
                                 widgetName());
    }
 
@@ -3585,20 +3599,7 @@
    @Override
    public void setMinHeightChars(NumberType min)
    {
-      setMinHeightChars(new decimal(min));
-   }
-
-   /**
-    * Sets the MIN-HEIGHT-CHARS writable attribute.
-    *
-    * @param    min
-    *           The new value for the MIN-HEIGHT-CHARS attribute.
-    */
-   @Override
-   public void setMinHeightChars(decimal min)
-   {
-      ErrorManager.displayError(4052, "MIN-HEIGHT is not a setable attribute for BROWSE "+
-                                widgetName());
+      ErrorManager.displayError(4052, "MIN-HEIGHT is not a setable attribute for BROWSE " + widgetName());
    }
 
    /**
@@ -3684,7 +3685,7 @@
       if (maxDataGuess.isUnknown())
          return;
 
-      if (getAttr("maxDataGuess ", () -> config.maxDataGuess )== maxDataGuess.intValue())
+      if (getAttr("maxDataGuess", () -> config.maxDataGuess )== maxDataGuess.intValue())
       {
          return;
       }
@@ -3933,8 +3934,6 @@
       {
          notSettable("TITLE-BGCOLOR"); // Read-only
       }
-      
-      return;
    }
 
    /**
@@ -3952,7 +3951,7 @@
       }
       else                            // ChUI behavior depends on whether realized or not
       {
-         if (!getAttr("realized", () -> config.realized))        // Unrealized, always ? (unknown)
+         if (!getAttr("realized", () -> config.realized, true))        // Unrealized, always ? (unknown)
          {
             return new integer();
          }
@@ -3999,8 +3998,6 @@
          setAttr("titleDColor", config.titleDColor, new Color(0, (int) dcolor), 
                val -> config.titleDColor = val);
       }
-
-      return;
    }
 
    /**
@@ -4054,8 +4051,6 @@
       {
          notSettable("TITLE-FGCOLOR"); // Read-only
       }
-      
-      return;
    }
 
    /**
@@ -4072,7 +4067,7 @@
       }
       else                            // ChUI, 0 before being realized, ? (unknown) after
       {
-         return (!getAttr("realized", () -> config.realized)) ? new integer(0) : new integer();
+         return (!getAttr("realized", () -> config.realized, true)) ? new integer(0) : new integer();
       }
    }
 
@@ -4103,8 +4098,6 @@
       {
          notSettable("TITLE-FONT"); // Read-only
       }
-      
-      return;
    }
 
    /**
@@ -4592,7 +4585,7 @@
             if (searchMode)
             {
                // trim to DOWN size
-               if (data.size() > getAttr("down", () -> config.down))
+               if (data.size() > getAttr("down", () -> config.down, true))
                {
                   data.remove(0);
                }
@@ -4684,7 +4677,7 @@
                // lower part (optional)  =              =
                //                        =              =
 
-               int rowsToFetch = getAttr("down", () -> config.down) - result.length;
+               int rowsToFetch = getAttr("down", () -> config.down, true) - result.length;
                if (rowsToFetch > 0)
                {
                   int divisionRow = result[0].rowIndex;
@@ -4783,15 +4776,17 @@
             if (currentRowId.isUnknown())
             {
                // empty result set or some current row sync error
-               return getRows(0, getAttr("down", () -> config.down), true, rowDisplayTriggerId, sb, displayStrategy);
+               return getRows(0, getAttr("down", () -> config.down, true), true, rowDisplayTriggerId, sb,
+                              displayStrategy);
             }
 
             int currentRow = currentRowId.intValue() - 1;
             if (viewportTopRow >= 0 && viewportTopRow >= currentRow)
             {
                // current row is before the view - page up (by DOWN - 1)
-               return getRows(Math.max(0, viewportTopRow - (getAttr("down", () -> config.down ) - 1)),
-                              getAttr("down", () -> config.down),
+               int downValue = getAttr("down", () -> config.down, true);
+               return getRows(Math.max(0, viewportTopRow - (downValue - 1)),
+                              downValue,
                               true,
                               rowDisplayTriggerId,
                               sb,
@@ -4806,7 +4801,7 @@
             {
                // current row is after the view - restore the same view
                return getRows(viewportTopRow,
-                              getAttr("down", () -> config.down),
+                              getAttr("down", () -> config.down, true),
                               true,
                               rowDisplayTriggerId,
                               sb,
@@ -5129,7 +5124,7 @@
     */
    public integer getDown()
    {
-      return new integer(getAttr("down", () -> config.down));
+      return new integer(getAttr("down", () -> config.down, true));
    }
 
    /**
@@ -5190,6 +5185,7 @@
     *
     * @return   Always returns the unknown value.
     */
+   @LegacyAttribute(name = "SCREEN-VALUE", ignore = true)
    @Override
    public character getScreenValue()
    {
@@ -5203,8 +5199,9 @@
     * @param    value
     *           Ignored.
     */
+   @LegacyAttribute(name = "SCREEN-VALUE", setter = true, ignore = true)
    @Override
-   public void setScreenValue(character value)   
+   protected void setScreenValueInt(character value)   
    {
       notSettable("SCREEN-VALUE");
    }
@@ -5272,7 +5269,7 @@
     */
    public integer getSeparatorFgColor()
    {
-      return getAttr("separatorFgColor ", () -> config.separatorFgColor) == -1 ? new integer() :
+      return getAttr("separatorFgColor", () -> config.separatorFgColor) == -1 ? new integer() :
          new integer(getAttr("separatorFgColor", () -> config.separatorFgColor));
    }
 
@@ -5410,18 +5407,35 @@
    }
 
    /**
+    * Set the VISIBLE writable attribute.
+    *
+    * @param    visible
+    *           The new value for the VISIBLE attribute.
+    */
+   @Override
+   public void setVisible(boolean visible)
+   {
+      if (visible && frame != null && frame._isVisible())
+      {
+         finishSetup();
+      }
+
+      super.setVisible(true);
+   }
+
+   /**
     * Finish initialization of the browse widget. 
     */
    public void finishSetup()
    {
+      if (initDone)
+         return;
+
       if (getAttr("applyEnhancedLayout", () -> config.applyEnhancedLayout) && !enhancedInitDone && query != null)
       {
          enhancedInit();
       }
 
-      if (initDone)
-         return;
-    
       if (query == null)
       {
          initDone = true;
@@ -7182,7 +7196,7 @@
       {
          return this.getClass().getName() +
                 " id=" + Utils.nonNull(getId(), "<null>") +
-               " proc=" + getAttr("ehKeyProcName ", () -> config.ehKeyProcName )+
+               " proc=" + getAttr("ehKeyProcName", () -> config.ehKeyProcName )+
                " name=" + getAttr("ehKeyBrowseName", () -> config.ehKeyBrowseName);
       }
 
@@ -7374,8 +7388,10 @@
                };
             }
 
+            // WARNING: this needs to be done before the ID is set, otherwise the combo-box items are lost!
+            editor.setDataType(columnConfig.dataType); 
+
             editor.setId(WidgetId.nextID().asInt());
-            editor.setDataType(columnConfig.dataType);
             ValidationExpr<?> validationExpr = column.getValidationExpression();
             editor.setValidation(validationExpr, column.getValidationMessage());
             column.config.validatable = validationExpr != null;
@@ -7666,7 +7682,7 @@
          config.format = "x(" + len + ")";
 
          // reset displayFormat to reflect the format change
-         if (getAttr("displayFormat ", () -> config.displayFormat )!= null)
+         if (getAttr("displayFormat", () -> config.displayFormat )!= null)
          {
             config.displayFormat = null;
             Browse.getDisplayFormat(config);
@@ -7698,7 +7714,7 @@
          return false;
       }
 
-      if (getAttr("realized", () -> config.realized) && LogicalTerminal.isChui())
+      if (getAttr("realized", () -> config.realized, true) && LogicalTerminal.isChui())
       {
          errorAlreadyRealized("WIDTH");
          return false;
@@ -7725,7 +7741,7 @@
          return false;
       }
 
-      if (getAttr("realized", () -> config.realized) && LogicalTerminal.isChui())
+      if (getAttr("realized", () -> config.realized, true) && LogicalTerminal.isChui())
       {
          errorAlreadyRealized("HEIGHT");
          return false;
@@ -8043,7 +8059,7 @@
                                        ScreenBuffer[] sb,
                                        RowDisplayStrategy displayStrategy)
    {
-      int rowsToFetch = getAttr("down", () -> config.down) - upper.length;
+      int rowsToFetch = getAttr("down", () -> config.down, true) - upper.length;
       if (rowsToFetch > 0)
       {
          // still not enough rows to fill the view
@@ -8096,7 +8112,7 @@
     */
    private boolean isRowOnFirstPage(int targetRow)
    {
-      return targetRow < getAttr("down", () -> config.down); // TODO take row gaps into account?
+      return targetRow < getAttr("down", () -> config.down, true); // TODO take row gaps into account?
    }
 
    /**

=== modified file 'src/com/goldencode/p2j/ui/ButtonListWidget.java'
--- src/com/goldencode/p2j/ui/ButtonListWidget.java	2020-09-27 22:30:12 +0000
+++ src/com/goldencode/p2j/ui/ButtonListWidget.java	2020-10-21 23:01:05 +0000
@@ -13,6 +13,7 @@
 **     SBI 20200306 Implemented addGroup, getCurrentGroup and setCurrentGroup.
 ** 003 SBI 20200409 Added updateListOfGroups(), implemented setItemFont, setButtonFont.
 **         20200413 Implemented WithCaption interface.
+** 004 EVL 20201021 More optimization for getAttr() usage or widget ID getting.
 */
 
 /*
@@ -127,14 +128,18 @@
    @Override
    public handle getCurrentGroup()
    {
-      if (groupsList.isEmpty()         ||
-          getAttr("currentGroupIndex", () -> config.currentGroupIndex) < 0 ||
-          getAttr("currentGroupIndex", () -> config.currentGroupIndex) >= groupsList.size())
-      {
-         return new handle();
-      }
-      
-      ButtonListGroupWidget groupWidget = groupsList.get(getAttr("currentGroupIndex", () -> config.currentGroupIndex));
+      if (groupsList.isEmpty())
+      {
+         return new handle();
+      }
+      
+      int currGroupNdx = getAttr("currentGroupIndex", () -> config.currentGroupIndex);
+      if (currGroupNdx < 0 || currGroupNdx >= groupsList.size())
+      {
+         return new handle();
+      }
+      
+      ButtonListGroupWidget groupWidget = groupsList.get(currGroupNdx);
       
       return groupWidget.asWidgetHandle();
    }
@@ -325,8 +330,8 @@
    @Override
    public integer getCaptionFontSize()
    {
-      return getAttr("captionFontSize", () -> config.captionFontSize) < 0 ? new integer() :
-         new integer(getAttr("captionFontSize", () -> config.captionFontSize));
+      return getAttr("captionFontSize",
+                     () -> (config.captionFontSize < 0 ? new integer() : new integer(config.captionFontSize)));
    }
 
    /**

=== modified file 'src/com/goldencode/p2j/ui/ButtonWidget.java'
--- src/com/goldencode/p2j/ui/ButtonWidget.java	2020-09-27 20:52:31 +0000
+++ src/com/goldencode/p2j/ui/ButtonWidget.java	2021-01-15 20:55:46 +0000
@@ -65,6 +65,7 @@
 ** 038 CA  20180313          Added getters for image related attributes.
 ** 039 SVL 20190317          Button with NO-FOCUS option is not a tab widget.
 ** 040 VVT 20200203          Extra items removed from the class 'implements' list.
+** 041 VVT 20210115          Missing LegacyAttribute annotation(s) added. See #5064.
 */ 
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -1378,6 +1379,7 @@
     * @param   flag
     *          New value for the option.
     */
+   @LegacyAttribute(name = "CONVERT-3D-COLORS", setter = true)
    @Override
    public void setConvert3D(boolean flag)
    {
@@ -1390,6 +1392,7 @@
     * @param   flag
     *          New value for the option.
     */
+   @LegacyAttribute(name = "CONVERT-3D-COLORS", setter = true)
    @Override
    public void setConvert3D(logical flag)
    {
@@ -1404,6 +1407,7 @@
     * 
     * @return  CONVERT-3D-COLORS current value.
     */
+   @LegacyAttribute(name = "CONVERT-3D-COLORS")
    @Override
    public logical getConvert3D()
    {
@@ -1431,6 +1435,7 @@
     *          
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public boolean loadImage(String name)
    {
@@ -1449,6 +1454,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public boolean loadImage(String name, long xOffset)
    {
@@ -1469,6 +1475,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public boolean loadImage(String name, long xOffset, long yOffset)
    {
@@ -1491,6 +1498,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public boolean loadImage(String name, long xOffset, long yOffset, long width)
    {
@@ -1519,6 +1527,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public boolean loadImage(String name, long xOffset, long yOffset, long width, long height)
    {
@@ -1537,6 +1546,7 @@
     *          
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public logical loadImage(character name)
    {
@@ -1556,6 +1566,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public logical loadImage(character name, int64 xOffset)
    {
@@ -1577,6 +1588,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public logical loadImage(character name, int64 xOffset, int64 yOffset)
    {
@@ -1600,6 +1612,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public logical loadImage(character name, int64 xOffset, int64 yOffset, int64 width)
    {
@@ -1625,6 +1638,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public logical loadImage(character name,
                             int64 xOffset,

=== modified file 'src/com/goldencode/p2j/ui/Calendar.java'
--- src/com/goldencode/p2j/ui/Calendar.java	2020-02-25 13:01:04 +0000
+++ src/com/goldencode/p2j/ui/Calendar.java	2020-11-09 21:54:37 +0000
@@ -4,8 +4,10 @@
 **
 ** Copyright (c) 2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- --------------------------------------Description-----------------------------------------
 ** 001 SBI 20200114 Created initial version.
+** 002 CA  20201109 Expose the CALENDAR:VALUE as a 'CalendarValue' attribute which follows the 4GL's datetime 
+**                  string representation, and not ISO-8601.
 */
 
 /*
@@ -85,8 +87,8 @@
     * 
     * @return   The current date time value as a character value
     */
-   @LegacyAttribute(name = "DateTimeValue")
-   public character getDateTimeValue();
+   @LegacyAttribute(name = "CalendarValue")
+   public character getCalendarValue();
    
    /**
     * Sets the current date value.
@@ -94,8 +96,8 @@
     * @param    value
     *           The new current date value
     */
-   @LegacyAttribute(name = "DateTimeValue", setter = true)
-   public void setDateTimeValue(date value);
+   @LegacyAttribute(name = "CalendarValue", setter = true)
+   public void setCalendarValue(date value);
 
    /**
     * Sets the current date and time value.
@@ -103,8 +105,8 @@
     * @param    value
     *           The new current date and time value
     */
-   @LegacyAttribute(name = "DateTimeValue", setter = true)
-   public void setDateTimeValue(datetime value);
+   @LegacyAttribute(name = "CalendarValue", setter = true)
+   public void setCalendarValue(datetime value);
 
    /**
     * Sets the current date and time value as a character value.
@@ -112,8 +114,8 @@
     * @param    value
     *           The new current date and time value as a character value
     */
-   @LegacyAttribute(name = "DateTimeValue", setter = true)
-   public void setDateTimeValue(character value);
+   @LegacyAttribute(name = "CalendarValue", setter = true)
+   public void setCalendarValue(character value);
 
    /**
     * Sets the current date and time value representing by a string.
@@ -121,8 +123,8 @@
     * @param    value
     *           The new current date and time value representing by a string
     */
-   @LegacyAttribute(name = "DateTimeValue", setter = true)
-   public void setDateTimeValue(String value);
+   @LegacyAttribute(name = "CalendarValue", setter = true)
+   public void setCalendarValue(String value);
 
    /**
     * Determines whether dates and times are displayed using standard or custom formatting.

=== modified file 'src/com/goldencode/p2j/ui/CalendarConfig.java'
--- src/com/goldencode/p2j/ui/CalendarConfig.java	2020-09-29 02:32:29 +0000
+++ src/com/goldencode/p2j/ui/CalendarConfig.java	2020-12-09 18:05:56 +0000
@@ -9,6 +9,7 @@
 ** 002 SBI 20200329 Added the initial values for rgb values.
 ** 003 IAS 20200823 Rework (de)serialization.
 **     EVL 20200925 Pack all boolean attributes into single 32-bit integer for socket read/write.
+**     CA  20201209 Fixed the default value for the format (short date).
 */
 
 /*
@@ -110,7 +111,7 @@
     * The format style constant, it can be one of DTS_LONGDATEFORMAT, DTS_SHORTDATEFORMAT,
     * DTS_TIMEFORMAT, DTS_CUSTOMFORMAT.
     */
-   public int formatStyle;
+   public int formatStyle = DTS_SHORTDATEFORMAT;
    
    /** Holds the current date time format.*/
    public String customFormat;
@@ -170,10 +171,10 @@
    public int trailingForegroundColor = -1;
    
    /** True if a checkbox to the left of the date must be displayed, otherwise false */
-   public boolean checkBox;
+   public boolean checkBox = false;
    
    /** Its value indicates if the up and down buttons are used to modify dates or not*/
-   public boolean upDown;
+   public boolean upDown = false;
    
    /** Represents an index of the selected field of the date/time content */
    public int selectedFieldIndex;

=== modified file 'src/com/goldencode/p2j/ui/CalendarWidget.java'
--- src/com/goldencode/p2j/ui/CalendarWidget.java	2020-09-27 22:30:12 +0000
+++ src/com/goldencode/p2j/ui/CalendarWidget.java	2020-12-09 18:05:56 +0000
@@ -4,9 +4,14 @@
 **
 ** Copyright (c) 2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- --------------------------------------Description-----------------------------------------
 ** 001 SBI 20200114 Created initial version.
 ** 002 SBI 20200306 Changed to override getScreenValue as it always returns the valid date/time.
+** 003 CA  20201109 Expose the CALENDAR:VALUE as a 'CalendarValue' attribute which follows the 4GL's datetime 
+**                  string representation, and not ISO-8601.
+**     CA  20201119 Rely on CalendarConfig individual fields (month, day, etc) when computing the value for
+**                  CALENDAR:VALUE attribute.
+**     CA  20201209 Added support for COM event procedures.
 */
 
 /*
@@ -67,6 +72,7 @@
 import java.time.LocalDateTime;
 import java.time.format.DateTimeParseException;
 
+import com.goldencode.p2j.comauto.*;
 import com.goldencode.p2j.util.*;
 
 
@@ -75,8 +81,37 @@
  */
 public class CalendarWidget
 extends ControlEntityExt<CalendarConfig>
-implements Calendar
+implements Calendar, 
+           EmitsComEvents
 {
+   /** A definition of a corresponding COM-OBJECT used to raise the COM events. */
+   private ComObject obj = new ComObject()
+   {
+      @Override
+      public void delete()
+      {
+         // no-op
+      }
+      
+      @Override
+      public boolean valid()
+      {
+         return CalendarWidget.this.valid();
+      }
+      
+      @Override
+      public String getActivexName()
+      {
+         return "DTPicker";
+      }
+      
+      @Override
+      public String getName()
+      {
+         return CalendarWidget.this.name().toStringMessage();
+      };
+   };
+
    /**
     * Creates the instance of the calendar widget.
     */
@@ -115,8 +150,26 @@
     * @return   The current date time value as a character value
     */
    @Override
-   public character getDateTimeValue()
+   public character getCalendarValue()
    {
+      if ("?".equals(config.dateTimeValue))
+      {
+         return new character();
+      }
+      
+      // the returned string is formatted based on SESSION:DATE-FORMAT followed by the time, in 'hh:mm:ss.sss'
+      try
+      {
+         datetime dt = new datetime(config.month, config.day, config.year, config.hour, config.minute, config.second);
+         
+         String res = dt.toStringExport();
+         return new character(res);
+      }
+      catch (DateTimeParseException ex)
+      {
+         // ignore 
+      }
+      
       return new character(config.dateTimeValue);
    }
 
@@ -127,14 +180,24 @@
     *           The new current date and time value
     */
    @Override
-   public void setDateTimeValue(datetime value)
+   public void setCalendarValue(datetime value)
    {
       config.dateTimeValue = value.getIsoDate();
+      config.year = value.getYear();
+      config.month = value.getMonth();
+      config.day = value.getDay();
+      config.hour = value.getHours();
+      config.minute = value.getMinutes();
+      config.second = value.getSeconds();
+      config.dayOfWeek = value.getWeekday();
       
       setScreenValue(value);
       
-      pushWidgetAttr(new String[] {"dateTimeValue", "formatStyle"},
-                     new Object[] {config.dateTimeValue, config.formatStyle});
+      pushWidgetAttr(new String[] {"dateTimeValue", "formatStyle", 
+                                   "year", "month", "day", "hour", "minute", "second", "dayOfWeek"},
+                     new Object[] {config.dateTimeValue, config.formatStyle,
+                                   config.year, config.month, config.day,  
+                                   config.hour, config.minute, config.second, config.dayOfWeek});
    }
 
    /**
@@ -144,9 +207,9 @@
     *           The new current date value
     */
    @Override
-   public void setDateTimeValue(date value)
+   public void setCalendarValue(date value)
    {
-      setDateTimeValue(new datetime(value));
+      setCalendarValue(new datetime(value));
    }
 
    /**
@@ -156,14 +219,14 @@
     *           The new current date and time value as a character value
     */
    @Override
-   public void setDateTimeValue(character value)
+   public void setCalendarValue(character value)
    {
       if (value == null || value.isUnknown())
       {
          return;
       }
       
-      setDateTimeValue(value.toJavaType());
+      setCalendarValue(value.toJavaType());
    }
    
    /**
@@ -173,13 +236,13 @@
     *           The new current date and time value representing by a string
     */
    @Override
-   public void setDateTimeValue(String value)
+   public void setCalendarValue(String value)
    {
       LocalDateTime parsedDate = parseIsoDate(value);
       
       if (parsedDate != null)
       {
-         setDateTimeValue(new datetime(parsedDate.getMonthValue(),
+         setCalendarValue(new datetime(parsedDate.getMonthValue(),
                                        parsedDate.getDayOfMonth(),
                                        parsedDate.getYear(),
                                        parsedDate.getHour(),
@@ -189,7 +252,7 @@
       else
       {
          // supposed that value has the current 4GL date time format
-         setDateTimeValue(new datetime(value));
+         setCalendarValue(new datetime(value));
       }
    }
    
@@ -821,4 +884,23 @@
       
       return new character(getAttr("dateTimeValue", () -> config.dateTimeValue));
    }
+   
+   /**
+    * The method is called when a COM event is to be emitted by the means of this instance.
+    *
+    * @param   eventName
+    *          Event name.
+    * @param   args
+    *          Event arguments.
+    *
+    * @return  The array of all output arguments produced by the event, if any.
+    */
+   @Override
+   public BaseDataType[] emitComEvent(String eventName, BaseDataType[] args)
+   {
+      ComEvent event = new ComEvent(obj, eventName, args);
+      ErrorManager.nestedSilent(() -> ComServer.emit(event, true));
+      
+      return args;
+   }
 }

=== modified file 'src/com/goldencode/p2j/ui/ClientConfigManager.java'
--- src/com/goldencode/p2j/ui/ClientConfigManager.java	2020-09-22 23:33:18 +0000
+++ src/com/goldencode/p2j/ui/ClientConfigManager.java	2020-10-13 06:28:13 +0000
@@ -34,6 +34,7 @@
 **                  server config managers can now be dynamically extended with new widget
 **                  configurations.
 ** 021 CA  20200922 Replaced accessIdx map with an array, where the index is the internal field ID.
+**     HC  20201013 Server-pushed config field changes are serialized with field ids instead of names.
 */
 
 /*
@@ -147,6 +148,28 @@
    }
 
    /**
+    * Set the widget config field to the specified value.
+    *
+    * @param    wid
+    *           The widget ID.
+    * @param    wcfg
+    *           The widget configuration; if this is a down widget, this will be used.
+    * @param    fid
+    *           The config field id.
+    * @param    value
+    *           The list of new config field values.
+    */
+   public void setConfigField(WidgetId wid, WidgetConfig wcfg, int fid, Object value)
+   {
+      if (!(wid instanceof WidgetDownId))
+      {
+         wcfg = getActiveConfig(wid);
+      }
+      WidgetConfigDef wdef = getConfigDef(wid.asInt());
+      setWidgetConfig(wcfg, value, wdef, fid);
+   }
+
+   /**
     * Inform the client-side that it can no longer send config updates.
     */
    public void deactivateConfigUpdates()

=== modified file 'src/com/goldencode/p2j/ui/ClientExports.java'
--- src/com/goldencode/p2j/ui/ClientExports.java	2020-09-27 14:46:15 +0000
+++ src/com/goldencode/p2j/ui/ClientExports.java	2020-11-17 20:03:34 +0000
@@ -272,6 +272,8 @@
 ** 160 HC  20200726          Initial implementation of SPREADSHEET widget and related changes.
 **     SBI 20200916          Changed continueEditing to return array of screen buffers or null.
 **     HC  20200927          Batching of server config changes.
+**     CA  20201112          Avoid pushing the entire frame definition when attaching a widget at runtime.
+**     CA  20201117          Added API to delete a widget at runtime.
 */
 
 /*
@@ -1207,6 +1209,29 @@
    public String refreshFrameWidget(int fid, int wid, BaseDataType value);
    
    /**
+    * Attach a widget to a frame, at runtime.  The widget can be a dynamic widget or a full static frame.
+    * 
+    * @param    fid
+    *           The parent frame's ID.
+    * @param    wid
+    *           The widget ID.
+    * @param    cfg
+    *           The widget's configuration.
+    */
+   public void attachRuntimeWidget(int fid, int wid, WidgetConfig cfg);
+   
+   /**
+    * Delete and detach a widget from a frame, at runtime.  The widget can be a dynamic widget or a full
+    * static frame.
+    * 
+    * @param    fid
+    *           The parent frame's ID.
+    * @param    wid
+    *           The widget ID.
+    */
+   public void deleteDynamicWidget(int fid, int wid);
+   
+   /**
     * Send array of frame/widget definitions to the client.
     * 
     * @param   sd

=== modified file 'src/com/goldencode/p2j/ui/ColorTable.java'
--- src/com/goldencode/p2j/ui/ColorTable.java	2020-09-17 11:46:00 +0000
+++ src/com/goldencode/p2j/ui/ColorTable.java	2021-01-13 21:04:41 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2014-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 MAG 20140812 Created initial version.
 ** 002 MAG 20140911 Integrate environment API.
 ** 003 CA  20140926 Added shared widget configuration support, to allow GUI/ChUI concrete
@@ -34,8 +34,9 @@
 **                  it the base for the TREELIST widget.
 ** 017 HC  20200313 Javadoc fixes.
 ** 018 IAS 20200721 EnvironmentColorTable constructor signature changed
-** 019 RFB 20200701 The constructor should allow 0 colorRef index to be passed in. 
+** 019 RFB 20200701 The constructor should allow 0 colorRef index to be passed in.
 **     RFB 20200909 Redo 20200701 update post-rebase for #4711
+**     OM  20201203 Fixed handling of READ/ONLY attributes.
 */
 
 /*
@@ -216,12 +217,11 @@
    }
 
    /**
-    * API needed to implement read-only attribute assignment (a 4GL 
-    * "feature").
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
     * 
     * @param    attribute
     *           The attribute's name.
-    *           
+    *
     * @see      handle#readOnlyError(handle, String)
     */
    public static void readOnlyError(String attribute)
@@ -230,6 +230,21 @@
    }
    
    /**
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
+    * 
+    * @param    attribute
+    *           The attribute's name.
+    * @param    expr
+    *           The value which is attempted to be assigned to the read-only attribute. 
+    *
+    * @see      handle#readOnlyError(handle, String, Object)
+    */
+   public static void readOnlyError(String attribute, Object expr)
+   {
+      handle.readOnlyError(asHandle(), attribute);
+   }
+   
+   /**
     * Get the type of its associated handle.
     * 
     * @return   Always return the PSEUDO-WIDGET value.

=== modified file 'src/com/goldencode/p2j/ui/ComboBoxWidget.java'
--- src/com/goldencode/p2j/ui/ComboBoxWidget.java	2020-09-27 22:30:12 +0000
+++ src/com/goldencode/p2j/ui/ComboBoxWidget.java	2021-01-23 18:01:03 +0000
@@ -2,7 +2,7 @@
 ** Module   : ComboBoxWidget.java
 ** Abstract : server side combo box widget implementation
 **
-** Copyright (c) 2005-2019, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------Description-----------------------------
 ** 001 NVS 20051026   @23483 Created initial version.
@@ -63,6 +63,15 @@
 **                           validations should be enforced on the flag.
 **     HC  20191120          Negative end range for SET-SELECTION must select the whole screen
 **                           value for COMBO-BOX and FILL-IN widgets.
+** 035 HC  20201010          Implemented selective config flushing.
+**     EVL 20201022          Optimized attributes flush implementation.
+**     CA  20201126          COMBO-BOX's items must honor the data-type and format properly.
+**     CA  20210111          Fixed SCREEN-VALUE when the LIST-ITEM-PAIRS is set - there are some quirks where
+**                           an empty LABEL or VALUE will force setting the SCREEN-VALUE to that pair's VALUE.
+**     VVT 20210115          Missing LegacyAttribute annotation(s) added. See #5064.
+**     CA  20210123          FORMAT change must also update the items.
+**                           A single space char " " set to the SCREEN-VALUE will be allowed to select the 
+**                           item with an empty string value.
 */ 
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -150,6 +159,72 @@
    }
    
    /**
+    * Set the widget's DATA-TYPE.  This resets its items and also sets the FORMAT and SCREEN-VALUE accordingly.
+    * 
+    * @param   dataType
+    *          New data type name.
+    */
+   @Override
+   public void setDataType(String dataType)
+   {
+      if (!config.dynamic || config.id == null)
+      {
+         // the 'config.id == null' test is required for BROWSE combo-box columns
+         super.setDataType(dataType);
+         return;
+      }
+      
+      // reset the items
+      setItems(new ControlSetItem[0], false);
+      
+      super.setDataType(dataType);
+   }
+   
+   /**
+    * Sets the format specification.
+    * 
+    * @param    format
+    *           The format specification.
+    */
+   @Override
+   public void setFormat(String format)
+   {
+      String oldFormat = config.getDynamicFormat();
+      if (Utils.equals(oldFormat, format))
+      {
+         return;
+      }
+
+      super.setFormat(format);
+      
+      // re-calculate the items using the new format
+      boolean pairs = config.pairs != null && config.pairs;
+      
+      Class<? extends BaseDataType> cls = BaseDataType.fromTypeName(config.dataType);
+      
+      for (ControlSetItem item : config.items)
+      {
+         item.setFormat(config.format);
+         
+         BaseDataType value = item.getValue();
+         character stringVal = new character(value.toString(config.format)).truncateValue();
+         
+         BaseDataType newValue = GenericFrame.parseScreenValue(cls, stringVal, config.format);
+
+         item.setValue(newValue);
+         
+         if (!pairs)
+         {
+            item.setLabel(stringVal);
+         }
+      }
+
+      checkItems(config.items);
+      
+      pushWidgetAttr("items", config.items);
+   }
+   
+   /**
     * Default constructor.
     * 
     * @param   dynamic
@@ -309,7 +384,7 @@
       {
          end = len;
       }
-      else if (end > getAttr("widthChars", () -> config.widthChars) - 4)
+      else if (end > getAttr("widthChars", () -> config.widthChars, true) - 4)
       {
          return new logical(false);
       }
@@ -347,7 +422,7 @@
       }
       String s = "";
       ControlSetItem[] items = getAttr("items", () -> config.items);
-      int selectedIndex = getAttr("selectedIndex", () -> config.selectedIndex);
+      int selectedIndex = getAttr("selectedIndex", () -> config.selectedIndex, true);
       if (items != null &&
           selectedIndex >= 0 && selectedIndex < items.length)
       {
@@ -355,7 +430,7 @@
          s = item.getLabel().toStringMessage();
       }
 
-      int widthChars = (int) getAttr("widthChars", () -> config.widthChars);
+      int widthChars = (int) getAttr("widthChars", () -> config.widthChars, true);
       int selectionStart = getAttr("selectionStart", () -> config.selectionStart);
       int selectionEnd = getAttr("selectionEnd", () -> config.selectionEnd);
 
@@ -530,11 +605,11 @@
    @Override
    public integer getInnerLines()
    {
-      if (!getAttr("realized", () -> config.realized))
+      if (!getAttr("realized", () -> config.realized, true))
       {
          return new integer(0);
       }
-      return new integer(getAttr("innerLines", () -> config.innerLines));
+      return new integer(getAttr("innerLines", () -> config.innerLines, true));
    }
    
    /**
@@ -634,6 +709,7 @@
     * @param    disableAutoZap
     *           <code>true</code> if the option is set to ON.
     */
+   @LegacyAttribute(name = "DISABLE-AUTO-ZAP", setter = true, ignore = true)
    @Override
    public void setDisableAutoZap(logical disableAutoZap)
    {
@@ -646,6 +722,7 @@
     * @param    disableAutoZap
     *           <code>true</code> if the option is set to ON.
     */
+   @LegacyAttribute(name = "DISABLE-AUTO-ZAP", setter = true, ignore = true)
    @Override
    public void setDisableAutoZap(boolean disableAutoZap)
    {
@@ -657,6 +734,7 @@
     *
     * @return   value of the attribute.
     */
+   @LegacyAttribute(name = "DISABLE-AUTO-ZAP", ignore = true)
    @Override
    public logical isDisableAutoZap()
    {
@@ -670,6 +748,7 @@
     * @param    value
     *           New value for the attribute.
     */
+   @LegacyAttribute(name = "AUTO-ZAP", setter = true, ignore = true)
    @Override
    public void setAutoZap(logical value)
    {
@@ -682,6 +761,7 @@
     * @param    value
     *           New value for the attribute.
     */
+   @LegacyAttribute(name = "AUTO-ZAP", setter = true, ignore = true)
    @Override
    public void setAutoZap(boolean value)
    {
@@ -693,6 +773,7 @@
     *
     * @return   value of the attribute.
     */
+   @LegacyAttribute(name = "AUTO-ZAP", ignore = true)
    @Override
    public logical isAutoZap()
    {
@@ -707,6 +788,7 @@
     * @param    offset
     *           The character index at which the cursor is to be placed.
     */
+   @LegacyAttribute(name = "CURSOR-OFFSET", setter = true, ignore = true)
    @Override
    public void setCursorOffset(double offset)
    {
@@ -720,6 +802,7 @@
     * @param    offset
     *           The character index at which the cursor is to be placed.
     */
+   @LegacyAttribute(name = "CURSOR-OFFSET", setter = true, ignore = true)
    @Override
    public void setCursorOffset(NumberType offset)
    {
@@ -733,6 +816,7 @@
     * 
     * @return   The character index at which the cursor is placed.
     */
+   @LegacyAttribute(name = "CURSOR-OFFSET", ignore = true)
    @Override
    public integer getCursorOffset()
    {
@@ -1020,7 +1104,7 @@
       if (index < 1 || index > items.length)
          return new character();
 
-      return new character(items[(int)index - 1].getValue());
+      return new character(items[(int)index - 1].getCharacterValue());
    }
 
    /**
@@ -1053,11 +1137,14 @@
       {
          character r = super.getScreenValue();
          
+         /*
+         CA: the initial reason for this code is unknown at this time, and contradicts with findings related to
+             LIST-ITEM-PAIRS initial value in GUI and ChUI.
          if (ignore(r) && config.items != null && config.items.length > 0)
          {
             return new character(config.items[0].getValue());
          }
-         
+         */
          return r;
       }
    }
@@ -1151,11 +1238,6 @@
       if (!LogicalTerminal.isChui())
       {
          super.setListItemPairs(list);
-         // in GUI after realization COMBO-BOX resets the screen value to unknown here
-         if (getAttr("realized", () -> config.realized))
-         {
-            setScreenValue(new character());
-         }  
       }
       else
       {
@@ -1164,6 +1246,80 @@
    }
    
    /**
+    * Set the current value in the screen buffer of the backing data for
+    * this widget.  If the given value is <code>null</code> then this
+    * widget will be set to the uninitialized value.
+    *
+    * @param    value
+    *           The new value for the widget, use <code>null</code> to set
+    *           the value as uninitialized.
+    */
+   @Override
+   protected void setScreenValueInt(character value)
+   {
+      if (!internalScreenValueUsage && !value.isUnknown() && value.getValue().isEmpty())
+      {
+         value = new character();
+      }
+      
+      super.setScreenValueInt(value);
+   }
+   
+   /**
+    * Store array of items into config.
+    * 
+    * @param    items
+    *           Array of new items.
+    * @param    pairs
+    *           {@code true} if LIST_ITEM_PAIRS, RADIO_BUTTONS is set false if LIST_ITEMs is set.
+    * @param    checkItems
+    *           If this value is true, then items are checked and truncated.
+    * @param    newAddedItems
+    *           The list of new added items
+    */
+   @Override
+   protected void setItems(ControlSetItem[]     items,
+                           Boolean              pairs,
+                           boolean              checkItems, 
+                           List<ControlSetItem> newAddedItems)
+   {
+      // do some house-keeping special for combo-boxes.
+      // 1. convert the value to the proper data-type
+      // 2. in case of list-items, the 'label' must be the formatted value
+      
+      Class<?> cls = BaseDataType.fromTypeName(config.dataType);
+      
+      for (ControlSetItem item : items)
+      {
+         item.setFormat(config.format);
+         
+         BaseDataType value = item.getValue();
+         
+         BaseDataType newValue = BaseDataType.generateDefault(cls);
+         newValue.assign(value);
+
+         if (value.getTypeName().equals(config.dataType))
+         {
+            continue;
+         }
+         
+         item.setValue(newValue);
+         
+         if (pairs == null || !pairs)
+         {
+            item.setLabel(new character(newValue.toString(config.format)));
+         }
+      }
+
+      super.setItems(items, pairs, checkItems, newAddedItems);
+      
+      if (checkItems)
+      {
+         checkItems(items);
+      }
+   }
+   
+   /**
     * Remove trailing spaces.
     * 
     * @param   value
@@ -1215,9 +1371,11 @@
       int itemId = getAttr("itemId", () -> config.itemId);
       config.itemId = itemId + 1;
 
-      return new ControlSetItem(itemId,
-            label.isUnknown() ? new character(" ") : (character)label.duplicate(),
-            truncateValue(value.duplicate()));
+      label = label.isUnknown() ? new character(" ") : (character)label.duplicate();
+      ControlSetItem item = new ControlSetItem(itemId, label, truncateValue(value.duplicate()));
+      item.setFormat(config.format);
+      
+      return item;
    }
    
    /**
@@ -1343,7 +1501,7 @@
    @Override
    boolean setScreenValue(ScreenBuffer frameBuf, Object value, boolean inUIStmt)
    {
-      if (frameBuf.getWidgetValue(getId()) != null)
+      if (!internalScreenValueUsage || inUIStmt)
       {
          if (value == null || 
              (value instanceof BaseDataType && ((BaseDataType) value).isUnknown()))
@@ -1351,7 +1509,9 @@
             return false;
          }
          
-         if (value instanceof character && ((character) value).toJavaType().length() == 0)
+         boolean pairs = (config.pairs != null && config.pairs);
+         if ((!pairs || inUIStmt) && 
+             (value instanceof character) && ((character) value).toJavaType().length() == 0)
          {
             return false;
          }
@@ -1391,4 +1551,69 @@
 
       return super.isValidScreenValue(value);
    }
+   
+   /**
+    * Verify which items needs to be set as SCREEN-VALUE.
+    *  
+    * @param    items
+    *           The items to be set.
+    */
+   private void checkItems(ControlSetItem[] items)
+   {
+      boolean pairs = config.pairs != null && config.pairs;
+      
+      // empty value has priority over empty label.
+      // during frame setup, the screen-value is always set to the pair's value, not label (in case of cases
+      // when they are both empty).
+      // after frame setup, setting the LIST-ITEM-PAIRS looks only at the label (and *not* the item's value), 
+      // but the screen-value gets set to the item's value.
+      BaseDataType emptyValue = null;
+      BaseDataType emptyLabel = null;
+      
+      if (pairs)
+      {
+         for (ControlSetItem item : items)
+         {
+            BaseDataType value = item.getValue();
+            
+            String valTxt = new character(value.toString(config.format)).truncateValue().toJavaType();
+            String lblTxt = item.getLabel().truncateValue().toJavaType();
+            if (emptyValue == null && valTxt.isEmpty())
+            {
+               emptyValue = value;
+            }
+            if (emptyLabel == null && lblTxt.isEmpty())
+            {
+               emptyLabel = value;
+            }
+         }
+      }
+      
+      if (!LogicalTerminal.isChui())
+      {
+         if (emptyValue != null && frame.isInsideSetup())
+         {
+            setScreenValueInt(new character(emptyValue.toString(config.format)).truncateValue());
+         }
+         else if (emptyLabel != null)
+         {
+            setScreenValueInt(new character(emptyLabel.toString(config.format)).truncateValue());
+         }
+         else if (frame == null || !frame.isInsideSetup())
+         {
+            setScreenValueInt(new character());
+         }
+      }
+      else if (pairs)
+      {
+         if (items.length > 0)
+         {
+            setScreenValueInt(new character(items[0].getCharacterValue().truncateValue()));
+         }
+      }
+      else
+      {
+         setScreenValueInt(new character(" "));
+      }
+   }
 }

=== modified file 'src/com/goldencode/p2j/ui/CommonListWidget.java'
--- src/com/goldencode/p2j/ui/CommonListWidget.java	2019-05-08 21:43:48 +0000
+++ src/com/goldencode/p2j/ui/CommonListWidget.java	2020-12-01 12:59:56 +0000
@@ -2,15 +2,16 @@
 ** Module   : CommonListWidget.java
 ** Abstract : Define all list widgets-related APIs available via a widget handle instance
 **
-** Copyright (c) 2015-2019, Golden Code Development Corporation.
+** Copyright (c) 2015-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 IAS 20150209 Created initial version.
 ** 002 IAS 20150225 Added support for the DELIMITER attribute.
 ** 003 OM  20170428 Added support for the INSERT method.
 ** 004 CA  20181221 Moved LIST-ITEMS from CommonListWidget to CommonWidget, as 4GL allows any 
 **                  widget to access any attribute, and this was found in customer code.
 ** 005 CA  20190508 Added ADD-FIRST(x, <int-val>).
+** 006 CA  20201126 Added ADD-FIRST(x, <double-val>) and ADD-FIRST(x, <logical-val>).
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -184,6 +185,20 @@
     * @return   <code>true</code> if the method succeeds.
     */
    @LegacyMethod(name = "ADD-FIRST")
+   public logical addFirst(String label, boolean value);
+
+   /**
+    * Implements the ADD-FIRST() widget method, which adds a single label
+    * and value pair to the beginning of the list.
+    *
+    * @param    label
+    *           The label of the item to add.
+    * @param    value
+    *           The value of the item to add.
+    *
+    * @return   <code>true</code> if the method succeeds.
+    */
+   @LegacyMethod(name = "ADD-FIRST")
    public logical addFirst(String label, int value);
 
    /**
@@ -198,6 +213,20 @@
     * @return   <code>true</code> if the method succeeds.
     */
    @LegacyMethod(name = "ADD-FIRST")
+   public logical addFirst(String label, double value);
+
+   /**
+    * Implements the ADD-FIRST() widget method, which adds a single label
+    * and value pair to the beginning of the list.
+    *
+    * @param    label
+    *           The label of the item to add.
+    * @param    value
+    *           The value of the item to add.
+    *
+    * @return   <code>true</code> if the method succeeds.
+    */
+   @LegacyMethod(name = "ADD-FIRST")
    public logical addFirst(character label, String value);
 
    /**

=== modified file 'src/com/goldencode/p2j/ui/CommonWidget.java'
--- src/com/goldencode/p2j/ui/CommonWidget.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/CommonWidget.java	2020-10-31 00:42:17 +0000
@@ -92,6 +92,8 @@
 **     RFB 20200415 Changed getFrameName getter to return BDT (character) instead of String.
 **     EVL 20200429 Added new method to get specific widget ID in certain conditions.
 ** 119 GES 20200627 Moved ROW/COLUMN attributes into Coordinates interface (and renamed that interface).
+** 120 VVT 20210115 Missing LegacyAttribute annotation(s) added. See #5064.
+**     OM  20201030 Invalid attribute API support for getters/setters.
 */
 
 /*
@@ -444,6 +446,7 @@
     * 
     * @return  nothing.
     */
+   @LegacyAttribute(name = "MAX-HEIGHT")
    public decimal getMaxHeightChars();
 
    /**
@@ -1986,26 +1989,24 @@
    /**
     * Get the Progress IMAGE attribute
     *
-    * @return the name of the image loaded by LOAD-IMAGE or LOAD-IMAGE-UP for BUTTON. 
+    * @return the name of the image loaded by LOAD-IMAGE or LOAD-IMAGE-UP for BUTTON.
     */
    @LegacyAttribute(name = "IMAGE")
    public character getImage();
-
-
+   
    /**
     * Sets the LIST-ITEMS writeable attribute.
     * 
     * @param    list
-    *           A list of delimited items using the configured delimiter for
-    *           this widget (a comma by default) to split the items.  These
-    *           items will be set as the full list of items in this widget.
+    *           A list of delimited items using the configured delimiter for this widget (a comma by default)
+    *           to split the items.  These items will be set as the full list of items in this widget.
     */
    @LegacyAttribute(name = "LIST-ITEMS", setter = true)
    public default void setListItems(character list)
    {
-      handle.invalidAttribute("LIST-ITEMS", new handle(this));
+      handle.invalidAttribute("LIST-ITEMS", true, getResourceType().toStringMessage()); 
    }
-
+   
    /**
     * Setter for the LIST-ITEMS writeable attribute.
     *
@@ -2015,9 +2016,9 @@
    @LegacyAttribute(name = "LIST-ITEMS", setter = true)
    public default void setListItems(String list)
    {
-      handle.invalidAttribute("LIST-ITEMS", new handle(this));
+      handle.invalidAttribute("LIST-ITEMS", true, getResourceType().toStringMessage());
    }
-
+   
    /**
     * Gets the LIST-ITEMS writeable attribute.
     * 
@@ -2026,10 +2027,10 @@
    @LegacyAttribute(name = "LIST-ITEMS")
    public default character getListItems()
    {
-      handle.invalidAttribute("LIST-ITEMS", new handle(this));
+      handle.invalidAttribute("LIST-ITEMS", false, getResourceType().toStringMessage());
       return new character();
    }
-
+   
    /**
     * Sets the READ-ONLY attribute of the widget.
     * 

=== modified file 'src/com/goldencode/p2j/ui/CommonWindow.java'
--- src/com/goldencode/p2j/ui/CommonWindow.java	2019-11-26 22:20:19 +0000
+++ src/com/goldencode/p2j/ui/CommonWindow.java	2020-12-25 16:37:53 +0000
@@ -22,6 +22,7 @@
 ** 012 HC  20171027 Extended DISABLE-REDRAW to all widget types. Previously only WINDOW widget
 **                  was supported.
 ** 013 HC  20191126 Implemented RESIZE attribute for DIALOG-BOX. This is an extension to 4GL.
+** 014 SVL 20201225 MIN-HEIGHT-CHARS moved to MinHeightCharsInterface.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -215,14 +216,6 @@
    public integer getMaxWidthPixels();
 
    /**
-    * Gets the MIN-HEIGHT-CHARS writable attribute.
-    *
-    * @return current value of MIN-HEIGHT-CHARS attribute
-    */
-   @LegacyAttribute(name = "MIN-HEIGHT-CHARS")
-   public decimal getMinHeightChars();
-
-   /**
     * Gets the MIN-HEIGHT-PIXELS writable attribute.
     *
     * @return current value of MIN-HEIGHT-PIXELS attribute
@@ -420,15 +413,6 @@
    public void setMaxWidthPixels(integer max);
 
    /**
-    * Sets the MIN-HEIGHT-CHARS writable attribute.
-    *
-    * @param    min
-    *           The new value for the MIN-HEIGHT-CHARS attribute.
-    */
-   @LegacyAttribute(name = "MIN-HEIGHT-CHARS", setter = true)
-   public void setMinHeightChars(NumberType min);
-
-   /**
     * Sets the MIN-HEIGHT-PIXELS writable attribute.
     *
     * @param    min

=== modified file 'src/com/goldencode/p2j/ui/ConfigManager.java'
--- src/com/goldencode/p2j/ui/ConfigManager.java	2020-09-27 18:16:32 +0000
+++ src/com/goldencode/p2j/ui/ConfigManager.java	2020-10-13 06:28:13 +0000
@@ -45,6 +45,8 @@
 **     HC  20200924 Enabled config fields tracking. Also added system property to allow to disable this
 **                  feature.
 **     CA  20200927 Use IdentityHashMap instead of plain map when the key is a Class.
+**     CA  20201011 Small performance improvement in addDirtyConfig - exit early if the field is null.
+**     HC  20201013 Server-pushed config field changes are serialized with field ids instead of names.
 */ 
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -273,6 +275,20 @@
    }
 
    /**
+    * Get the {@link WidgetConfigDef} instance associated with the given {@link WidgetConfig}
+    * implementation.
+    *
+    * @param    cls
+    *           The widget config class.
+    *
+    * @return   See above.
+    */
+   public WidgetConfigDef getConfigDef(Class<? extends WidgetConfig> cls)
+   {
+      return cfgDefs.get(cls);
+   }
+
+   /**
     * The method attempts to resolve a {@link ConfigOwner} reference from
     * <code>widgetId</code>.
     * 
@@ -295,20 +311,6 @@
    protected abstract boolean isRegisteredWidget(WidgetId id);
    
    /**
-    * Get the {@link WidgetConfigDef} instance associated with the given {@link WidgetConfig} 
-    * implementation.
-    * 
-    * @param    cls
-    *           The widget config class.
-    *           
-    * @return   See above.
-    */
-   protected WidgetConfigDef getConfigDef(Class<? extends WidgetConfig> cls)
-   {
-      return cfgDefs.get(cls);
-   }
-
-   /**
     * Determine if the specified config instance can be tracked.
     * <p>
     * The config can be tracked if tracking of the config fields is active at this moment and
@@ -349,7 +351,7 @@
     */
    public void addDirtyConfig(WidgetConfig cfg, String field)
    {
-      if (!trackConfig(cfg))
+      if (field == null || !trackConfig(cfg))
       {
          return;
       }
@@ -360,10 +362,7 @@
          dirtyConfigs.put(cfg.id, fields = new HashSet<>());
       }
 
-      if (field != null)
-      {
-         fields.add(field);
-      }
+      fields.add(field);
    }
 
    /**

=== modified file 'src/com/goldencode/p2j/ui/ConfigSyncManager.java'
--- src/com/goldencode/p2j/ui/ConfigSyncManager.java	2018-01-04 18:21:14 +0000
+++ src/com/goldencode/p2j/ui/ConfigSyncManager.java	2020-10-11 16:07:42 +0000
@@ -2,14 +2,15 @@
 ** Module   : ConfigSyncManager.java
 ** Abstract : Implements synchronization of config changes. 
 **
-** Copyright (c) 2015-2018, Golden Code Development Corporation.
+** Copyright (c) 2015-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- --------------------------------------Description-----------------------------------------
 ** 001 HC  20150323 Created initial version
 ** 002 EVL 20160224 Javadoc fixes to make compatible with Oracle Java 8 for Solaris 10.
 ** 003 IAS 20160331 Fixed typo in the markScopeEnd() method
 ** 004 ECF 20171122 Minor optimization in registerConfig.
 ** 005 ECF 20180101 Minimize thread-local access to improve performance.
+** 006 CA  20201011 State.configOwnerMap and pendingConfigs are now identity maps.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -214,10 +215,10 @@
          ConfigManager cm = null;
          
          Map<WidgetConfig, ConfigOwner<?>> ownerMap = state.configOwnerMap;
-         state.configOwnerMap = new HashMap<WidgetConfig, ConfigOwner<?>>();
+         state.configOwnerMap = new IdentityHashMap<WidgetConfig, ConfigOwner<?>>();
          
          Map<WidgetConfig, WidgetConfig> configs = state.pendingConfigs;
-         state.pendingConfigs = new HashMap<WidgetConfig, WidgetConfig>();
+         state.pendingConfigs = new IdentityHashMap<WidgetConfig, WidgetConfig>();
          
          for (Map.Entry<WidgetConfig, WidgetConfig> c : configs.entrySet())
          {
@@ -300,7 +301,7 @@
       {
          Map<WidgetConfig, WidgetConfig> configs = state.pendingConfigs;
          
-         if (!configs.containsKey(config))
+         if (configs.isEmpty() || !configs.containsKey(config))
          {
             state.duplicateInProgress = true;
             
@@ -326,10 +327,10 @@
       int scopeDepth = 0;
       
       /** Map of config references and their respective owners. **/
-      Map<WidgetConfig, ConfigOwner<?>> configOwnerMap = new HashMap<>();
+      Map<WidgetConfig, ConfigOwner<?>> configOwnerMap = new IdentityHashMap<>();
       
       /** Map of configs modified in the current sync scope. **/
-      Map<WidgetConfig, WidgetConfig> pendingConfigs = new HashMap<>();
+      Map<WidgetConfig, WidgetConfig> pendingConfigs = new IdentityHashMap<>();
       
       /** Flag to prevent recursion during config duplication. **/
       boolean duplicateInProgress = false;

=== modified file 'src/com/goldencode/p2j/ui/ControlEntity.java'
--- src/com/goldencode/p2j/ui/ControlEntity.java	2020-09-27 22:30:12 +0000
+++ src/com/goldencode/p2j/ui/ControlEntity.java	2021-01-13 21:04:41 +0000
@@ -2,9 +2,9 @@
 ** Module   : ControlEntity.java
 ** Abstract : server side control widget parent class
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ----------------Description-----------------
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 NVS 20051026   @23486 Created initial version.
 ** 002 GES 20060114   @23908 Removed totally useless screen-value attr.
 ** 003 SIY 20060202   @24235 Added support for TO option.
@@ -74,13 +74,28 @@
 **                           dialogs for validation errors.
 ** 044 CA  20180130          Replaced pushScreenDefinition() with pushWidgetAttr() for cases when
 **                           business logic is assigning a widget attribute.
-** 045 ECF 20180403          Removed UnimplementedFeature.todo calls in is/setModified.
+** 045 ECF 20180403          Removed UnimplementedFeature. TODO calls in is/setModified.
 ** 046 HC  20180628          Added side-labels to the widget chain.
 ** 047 CA  20180723          The side-label must know its associated widget (to be able to access
 **                           or set the SCREEN-VALUE attribute).
 ** 048 VVT 20200203          Class declaration changed to abstract.
 **                           Missing @Override annotation(s) added.
+** 049 EVL 20201022          Optimized attributes flush implementation.
+**     HC  20201024          Implemented SIDE-LABEL-HANDLE attribute.
+**     RFB 20201106          Renamed TextBasedWidget from sideLabel to sideLabelWidget since there is already
+**                           a boolean named sideLabel in the instance. This helps avoid any confusion. #4873
+**     CA  20201117          Delete the static side-label widget, too, when deleting the widget.
+**     CA  20201126          Fixed error message for DATA-TYPE setter (widget's type must be used).
+**     CA  20210122          Fixed side-label problems when they are set via a dynamic widget and 
+**                           SIDE-LABEL-HANDLE.
+**     CA  20210223          Update the SCREEN-VALUE when FORMAT is changed.
+**                           The widgets LABEL (in its config) must be set before the config is updated, to
+**                           keep it in sync with the client-side.
+**     CA  20210128          Fixed a regression related to RADIO-BOX and SELECTION-LIST - these must not check
+**                           the FORMAT, as they do not manage it.
+**     OM  20201231          ErrorManager.displayError() API change.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -171,7 +186,7 @@
     * Reference to the side-label widget (as returned by the SIDE-LABEL-HANDLE).  When
     * <code>null</code>, it means no side-label exists (thus SIDE-LABEL-HANDLE is unknown).
     */
-   private LiteralWidget sideLabel = null;
+   private TextBasedWidget sideLabelWidget = null;
    
    /**
     * Constructor for use by sub-classes.
@@ -331,7 +346,7 @@
       double col = ConfigHelper.getColon(config) + 1;
       return new decimal(col);
    }
-
+   
    /**
     * Sets new value of DATA-TYPE attribute.
     *
@@ -343,9 +358,9 @@
    {
       if (dataType == null || dataType.isUnknown())
       {
-         String txt = 
-           "**Attribute DATA-TYPE for the FILL-IN widget has an invalid value of UNKNOWN. (4056)";
-         ErrorManager.recordOrShowError(4056, txt, false, false, false);
+         ErrorManager.recordOrShowError(4056, type());
+         // ** Attribute DATA-TYPE for the <type> widget has an invalid value of UNKNOWN.
+         return;
       }
       
       setDataType(dataType.toStringMessage());
@@ -366,11 +381,25 @@
       }
 
       config.dataType = dataType;
+      dataTypeClass = null;
       
       // resolve the class now.
       getDataClass();
 
       pushWidgetAttr("dataType", config.dataType);
+      
+      // update the format
+      Class<?> cls = BaseDataType.fromTypeName(dataType);
+      BaseDataType defVal = BaseDataType.generateDefault(cls);
+      if (hasFormat())
+      {
+         setFormat(defVal.defaultFormatString());
+      }
+
+      if (frame == null || !frame.isInsideSetup())
+      {
+         setScreenValueInt(new character(defVal));
+      }
    }
 
    /**
@@ -393,7 +422,7 @@
    @Override
    public logical isModified()
    {
-      return new logical(getAttr("modified", () -> config.modified));
+      return new logical(getAttr("modified", () -> config.modified, true));
    }
    
    /**
@@ -610,7 +639,7 @@
    @Override
    public handle getSideLabelHandle()
    {
-      return sideLabel == null ? new handle() : new handle(sideLabel);
+      return sideLabelWidget == null ? new handle() : new handle(sideLabelWidget);
    }
 
    /**
@@ -647,7 +676,7 @@
    @Override
    public GenericWidget<?> firstChild()
    {
-      return sideLabel == null ? this : sideLabel;
+      return sideLabelWidget == null ? this : sideLabelWidget;
    }
 
    /**
@@ -670,9 +699,63 @@
    @Override
    public handle getPrevSibling()
    {
-      return sideLabel != null ? new handle(sideLabel) : super.getPrevSibling();
-   }
-
+      return sideLabelWidget != null ? new handle(sideLabelWidget) : super.getPrevSibling();
+   }
+
+   /**
+    * {@inheritDoc}
+    */
+   @Override
+   public void setSideLabelHandle(handle label)
+   {
+      if (label.isUnknown() || !validateLabelAssignment())
+      {
+         return;
+      }
+
+      // set the 'labels' attribute, too
+      config.labels = !label.isUnknown();
+
+      if (sideLabelWidget != null)
+      {
+         sideLabelWidget.clearSideLabel();
+      }
+
+      sideLabelWidget = (TextBasedWidget) label.getResource();
+      config.sideLabelId = sideLabelWidget.config.id.asInt();
+      setLabelInt(sideLabelWidget.getScreenValue().toStringMessage());
+      sideLabelWidget.makeSideLabel(this);
+
+      ConfigManager cm = ConfigManager.getInstance();
+      if (cm.getActiveConfig(sideLabelWidget.config.id) == null)
+      {
+         cm.addWidgetConfig(sideLabelWidget.config());
+      }
+   }
+
+   /**
+    * Perform actual delete of an resource. At the time of this call, it is assumed the resource
+    * is valid for deletion (the handle and the resource are both valid).
+    * <p>
+    * The method first calls {@link #resourceDelete()}, if the method returns {@code false}, the deletion
+    * is aborted.
+    */
+   @Override
+   public void delete()
+   {
+      if (!resourceDelete())
+      {
+         return;
+      }
+      
+      super.delete();
+      
+      if (sideLabelWidget != null && !sideLabelWidget._dynamic())
+      {
+         sideLabelWidget.delete();
+      }
+   }
+   
    /**
     * Sets the value for the FONT attribute.
     * Only valid width values must be passed in the font argument.
@@ -685,7 +768,7 @@
    {
       super.changeFontWorker(font);
 
-      if (getAttr("autoResize ", () -> config.autoResize )&& frame != null && !frame.isInsideSetup())
+      if (getAttr("autoResize", () -> config.autoResize )&& frame != null && !frame.isInsideSetup())
       {
          config.fontChanged = true;
          // let the width compute automatically
@@ -773,6 +856,11 @@
     */
    protected boolean hasSideLabelHandle()
    {
+      if (sideLabelWidget != null && sideLabelWidget._dynamic())
+      {
+         return true;
+      }
+      
       FrameConfig fconfig = frame.getFrameWidget().config;
       
       // options which affect this:
@@ -793,7 +881,7 @@
    /**
     * Process the side-label for this widget.
     * <p>
-    * If the widget accepts a side-label, it will construct it if {@link #sideLabel} is not 
+    * If the widget accepts a side-label, it will construct it if {@link #sideLabelWidget} is not 
     * already set.
     * 
     * @param    explicit
@@ -811,36 +899,40 @@
          // do this only once. nothing is initialized here.  
          // all info will be coming from the client-side
 
-         if (sideLabel == null)
+         if (sideLabelWidget == null)
          {
             if (getAttr("sideLabelId", () -> config.sideLabelId) == -1)
             {
-               sideLabel = LiteralWidget.createSideLabel(this);
-               sideLabel.config.widthChars = -1;
-               sideLabel.config.align = ControlEntity.ALIGN_RIGHT;
-               sideLabel.setFrame(ControlEntity.this.getFrame());
+               sideLabelWidget = LiteralWidget.createSideLabel(this);
+               sideLabelWidget.config.widthChars = -1;
+               sideLabelWidget.config.align = ControlEntity.ALIGN_RIGHT;
+               sideLabelWidget.setFrame(ControlEntity.this.getFrame());
    
                config.sideLabelId = WidgetId.nextID().asInt();
-               sideLabel.config.id = new WidgetId(config.sideLabelId);
+               sideLabelWidget.config.id = new WidgetId(config.sideLabelId);
    
-               LogicalTerminal.registerWidget(sideLabel, config.sideLabelId);
-               ConfigManager.getInstance().addWidgetConfig(sideLabel.config);
+               LogicalTerminal.registerWidget(sideLabelWidget, config.sideLabelId);
+               ConfigManager.getInstance().addWidgetConfig(sideLabelWidget.config);
             }
             else
             {
                // someone else has created it (i.e. a shared frame), retrieve it from the registry
-               sideLabel = (LiteralWidget) LogicalTerminal.getWidgetForId(getAttr("sideLabelId", () -> config.sideLabelId));
+               sideLabelWidget = (LiteralWidget) LogicalTerminal.getWidgetForId(getAttr("sideLabelId", () -> config.sideLabelId));
             }
          }
          
          if (explicit)
          {
-            sideLabel.config.align = ControlEntity.ALIGN_LEFT;
+            sideLabelWidget.config.align = ControlEntity.ALIGN_LEFT;
          }
          
          // we are just updating the screen value, we don't need to evaluate header expressions
          // or other dynamic content
-         frame.getFrameBufferRaw().putScreenValue(getAttr("sideLabelId", () -> config.sideLabelId), new character(getAttr("label", () -> config.label)));
+         int lblId = getAttr("sideLabelId", () -> config.sideLabelId);
+         character lbl = new character(getAttr("label", () -> config.label));
+         ScreenBuffer frameBuf = frame.getFrameBufferRaw();
+         frameBuf.putScreenValue(lblId, lbl);
+         frameBuf.putWidgetValue(lblId, lbl);
       }
       
       return getAttr("sideLabelId", () -> config.sideLabelId);
@@ -861,7 +953,7 @@
    @Override
    protected logical validateFields(boolean enabledOnly)
    {
-      if (enabledOnly && !getAttr("enabled", () -> config.enabled))
+      if (enabledOnly && !getAttr("enabled", () -> config.enabled, true))
       {
          return new logical(true);
       }
@@ -901,9 +993,9 @@
       {
          return new logical(true);
       }
-      else if (getAttr("enabled", () -> config.enabled))
+      else if (getAttr("enabled", () -> config.enabled, true))
       {
-         ErrorManager.displayError(validationError, true);
+         ErrorManager.displayError(validationError, true, null);
       }
       
       return new logical(false);

=== modified file 'src/com/goldencode/p2j/ui/ControlEntityExt.java'
--- src/com/goldencode/p2j/ui/ControlEntityExt.java	2020-09-27 22:30:12 +0000
+++ src/com/goldencode/p2j/ui/ControlEntityExt.java	2020-10-22 14:25:52 +0000
@@ -9,6 +9,7 @@
 ** 002 SBI 20200304 Merged OcxDragDropImpl to ControlEntityExt.
 ** 003 EVL 20200428 Added implementation for setComData().
 ** 005 SBI 20200810 Fixed compilation issue due to OcxDragDrop was cleaned.
+** 006 EVL 20201022 Optimized attributes flush implementation.
 */
 
 /*
@@ -244,7 +245,7 @@
    @Override
    public void setMouseIcon(String value)
    {
-      if (!getAttr("realized", () -> config.realized))
+      if (!getAttr("realized", () -> config.realized, true))
       {
          if (config.mouseIcon == value)
          {
@@ -497,7 +498,7 @@
     */
    public void setOleX(double value)
    {
-      if (!getAttr("realized", () -> config.realized))
+      if (!getAttr("realized", () -> config.realized, true))
       {
          if (config.oleX == value)
          {
@@ -554,7 +555,7 @@
     */
    public void setOleY(double value)
    {
-      if (!getAttr("realized", () -> config.realized))
+      if (!getAttr("realized", () -> config.realized, true))
       {
          if (config.oleY == value)
          {

=== modified file 'src/com/goldencode/p2j/ui/ControlFrameWidget.java'
--- src/com/goldencode/p2j/ui/ControlFrameWidget.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/ControlFrameWidget.java	2020-11-17 20:03:34 +0000
@@ -15,6 +15,7 @@
 ** 006 VVT 20200213 getActiveX() fixed: the empty name case is now handled
 ** 007 VVT 20200831 ControlFrameComObjectImpl.valid() overloaded method removed: the base method
 **                  returning true unconditionally is used instead. This complies with the 4gl.
+** 008 CA  20201117 Do not use resourceDelete to delete the widget - use the delete() API for this code.
 */
 
 /*
@@ -139,23 +140,16 @@
    
    /**
     * Delete the resource.
-    * 
-    * @return   <code>true</code> if the resource was deleted.
     */
    @Override
-   protected boolean resourceDelete()
+   public void delete()
    {
-      if (!super.resourceDelete())
-      {
-         return false;
-      }
-      
-      if (comObject != null)
-      {
+      if (resourceDelete())
+      {
+         super.delete();
+
          comObject.destroy();
       }
-      
-      return true;
    }
       
    /**

=== modified file 'src/com/goldencode/p2j/ui/ControlSetEntity.java'
--- src/com/goldencode/p2j/ui/ControlSetEntity.java	2020-09-28 10:09:11 +0000
+++ src/com/goldencode/p2j/ui/ControlSetEntity.java	2021-01-28 11:45:06 +0000
@@ -2,7 +2,7 @@
 ** Module   : ControlSetEntity.java
 ** Abstract : server side grouped control widget parent class
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- ----------------------------Description-----------------------------
 ** 001 NVS 20051026   @23487 Created initial version.
@@ -75,6 +75,15 @@
 **                           initial item list.
 ** 045 IAS 20200306          Fix for LOOKUP method implementation
 ** 046 IAS 20200320          Fixed LIST-ITEMS attribute support
+** 047 EVL 20201022          Optimized attributes flush implementation.
+**     CA  20201126          Added ADD-FIRST(x, <double-val>) and ADD-FIRST(x, <logical-val>).
+**                           COMBO-BOX's items must honor the DATA-TYPE and FORMAT.
+**     VVT 20201215          Fixed: getListItems() must trim item trailing spaces, but not trim
+**                           result leading spaces. (See #5040)
+**     CA  20201221          Additional fix for VVT/20201215 to fix getListItemPairs() in the same way.
+**     CA  20210111          LIST-ITEM-PAIRS attribute set will change the screen-value only in ChUI mode.
+**     CA  20210128          Fixed a regression related to RADIO-BOX and SELECTION-LIST - these must not check
+**                           the FORMAT, as they do not manage it.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -396,6 +405,23 @@
     * @return   <code>true</code> if the method succeeds.
     */
    @Override
+   public logical addFirst(String label, boolean value)
+   {
+      return addFirst(new character(label), new logical(value));
+   }
+
+   /**
+    * Implements the ADD-FIRST() widget method, which adds a single label
+    * and value pair to the beginning of the list.
+    *
+    * @param    label
+    *           The label of the item to add.
+    * @param    value
+    *           The value of the item to add.
+    *
+    * @return   <code>true</code> if the method succeeds.
+    */
+   @Override
    public logical addFirst(String label, int value)
    {
       return addFirst(new character(label), new integer(value));
@@ -413,6 +439,23 @@
     * @return   <code>true</code> if the method succeeds.
     */
    @Override
+   public logical addFirst(String label, double value)
+   {
+      return addFirst(new character(label), new decimal(value));
+   }
+   
+   /**
+    * Implements the ADD-FIRST() widget method, which adds a single label
+    * and value pair to the beginning of the list.
+    *
+    * @param    label
+    *           The label of the item to add.
+    * @param    value
+    *           The value of the item to add.
+    *
+    * @return   <code>true</code> if the method succeeds.
+    */
+   @Override
    public logical addFirst(String label, String value)
    {
       return addFirst(new character(label), new character(value));
@@ -1451,7 +1494,20 @@
       
       setItems(new ControlSetItem[0], false);
       
-      addFirst(list);
+      boolean saveRealize = this.realizeOnAttributeAccess;
+      this.realizeOnAttributeAccess = false;
+      try
+      {
+         addFirst(list);
+      }
+      finally
+      {
+         if (LogicalTerminal.isChui())
+         {
+            setScreenValueInt(new character());
+         }
+         this.realizeOnAttributeAccess = saveRealize;
+      }
    }
    
    /**
@@ -1509,7 +1565,7 @@
          return;
       }
 
-      setListItemPairsWorker(list, getAttr("realized", () -> config.realized));
+      setListItemPairsWorker(list, getAttr("realized", () -> config.realized, true));
    }
    
    /**
@@ -1537,18 +1593,21 @@
       
       StringBuilder sb = new StringBuilder();
       
+      final char delimiter = getAttr("delimiter", () -> config.delimiter);
       for (int i = 0; i < items.length; i++)
       {
-         sb.append(items[i].getLabel().toStringMessage());
+         /**
+          * OE truncates trailing spaces for each item
+          */
+         sb.append(items[i].getLabel().truncateValue().toStringMessage());
          
          if (i < items.length - 1)
          {
-            sb.append(getAttr("delimiter", () -> config.delimiter));
+            sb.append(delimiter);
          }
       }
       
-      // OpenEdge trims the resulting value
-      return new character(sb.toString().trim());
+      return new character(sb.toString());
    }
 
    /**
@@ -1575,9 +1634,9 @@
       
       for (int i = 0; i < items.length; i++)
       {
-         sb.append(items[i].getLabel().toStringMessage());
+         sb.append(items[i].getLabel().truncateValue().toStringMessage());
          sb.append(delimiter);
-         sb.append(items[i].getValue().toStringMessage());
+         sb.append(items[i].getCharacterValue().truncateValue().toStringMessage());
          if (i < items.length - 1)
          {
             sb.append(delimiter);
@@ -2334,7 +2393,13 @@
          {
             continue;
          }
-         newlist.add(new ControlSetItem(config.itemId++, label, value));
+         
+         ControlSetItem item = new ControlSetItem(config.itemId++, label, value);
+         if (hasFormat())
+         {
+            item.setFormat(config.format);
+         }
+         newlist.add(item);
       }
       
       // the format is not used to render list item pairs
@@ -2346,9 +2411,9 @@
       setItems(newlist.toArray(new ControlSetItem[newlist.size()]), true);
       
       // initialize the screen value by the first item
-      if (initScreenValue)
+      if (initScreenValue && LogicalTerminal.isChui())
       {
-         setScreenValue(new character(elem[1]));
+         setScreenValueInt(new character(elem[1]));
       }
    }
    
@@ -2446,9 +2511,13 @@
     */
    protected ControlSetItem controlSetItem(character label, BaseDataType value) 
    {
-      return new ControlSetItem(config.itemId++, 
-            label.isUnknown() ? new character(" ") : (character)label.duplicate(), 
-            value.duplicate()); 
+      label = label.isUnknown() ? new character(" ") : (character)label.duplicate();
+      ControlSetItem item = new ControlSetItem(config.itemId++, label, value.duplicate());
+      if (hasFormat())
+      {
+         item.setFormat(config.format);
+      }
+      return item;
    }
 
    /**
@@ -2775,7 +2844,8 @@
       ControlSetItem[] items = getAttr("items", () -> config.items);
 
       return Boolean.TRUE.equals(pairs) ? Boolean.TRUE :
-         !getAttr("itemsSetWhenRealized", () -> config.itemsSetWhenRealized) && !getAttr("realized", () -> config.realized) &&
+         !getAttr("itemsSetWhenRealized", () -> config.itemsSetWhenRealized) &&
+         !getAttr("realized", () -> config.realized, true) &&
          items != null && items.length > 0 ? pairs : null;
    }
 

=== modified file 'src/com/goldencode/p2j/ui/ControlSetItem.java'
--- src/com/goldencode/p2j/ui/ControlSetItem.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/ControlSetItem.java	2021-01-28 11:45:06 +0000
@@ -2,17 +2,22 @@
 ** Module   : ControlSetItem.java
 ** Abstract : Label-value pair container.
 **
-** Copyright (c) 2006-2020, Golden Code Development Corporation.
-**
-** -#- -I- --Date-- -T- --JPRM-- ----------------Description-----------------
-** 001 SIY 20060205 NEW  @24502  Created initial version
-** 002 IAS 20150205 Added id and selectable fields
-** 003 IAS 20150212 Renamed 'selectable' field to 'enabled' to reflect semantics
-**
-** 004 HC  20150323 Removed business logic from config classes.
-** 005 SBI 20180831 Added getCharacterValue().
-** 006 SBI 20190322 Added implementation of equals and hashCode.
-** 007 IAS 20200823 Rework (de)serialization.
+** Copyright (c) 2006-2021, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
+** 001 SIY 20060205  @24502  Created initial version
+** 002 IAS 20150205          Added id and selectable fields
+** 003 IAS 20150212          Renamed 'selectable' field to 'enabled' to reflect semantics
+** 004 HC  20150323          Removed business logic from config classes.
+** 005 SBI 20180831          Added getCharacterValue().
+** 006 SBI 20190322          Added implementation of equals and hashCode.
+** 007 IAS 20200823          Rework (de)serialization.
+**     CA  20201126          Added format, to allow a COMBO-BOX to properly report the value.
+**     CA  20210123          The characterValue must use the item's format, and not the message-like string.
+**                           This needs to be in sync with GenericFrame.parseScreenValue, as that now uses
+**                           the default format, if the format is not set.
+**     CA  20210128          Fixed a regression related to RADIO-BOX and SELECTION-LIST - these must not check
+**                           the FORMAT, as they do not manage it.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -97,6 +102,9 @@
    /** Item is enabled for RADIO-SET */
    private boolean enabled = true;
    
+   /** The value's format. */
+   private String format = null; 
+   
    /**
     * Default constructor
     * 
@@ -135,7 +143,18 @@
    {
       this(0, label, value);
    }
-   
+
+   /**
+    * Set the value's format, as reported by {@link #getCharacterValue()}.
+    * 
+    * @param    format
+    *           The value's format.
+    */
+   public void setFormat(String format)
+   {
+      this.format = format;
+   }
+
    /**
     * Get item label.
     * 
@@ -223,11 +242,13 @@
    /**
     * Get the character representation of its value.
     * 
-    * @return   The character representation of its value.
+    * @return   The character representation of its value, honoring any set {@link #format}.
     */
    public character getCharacterValue()
    {
-      return new character(getValue().toStringMessage());
+      // use the default format here
+      return format == null ? new character(getValue().toStringMessage()) 
+                            : new character(getValue().toString(format));
    }
 
    /**
@@ -298,6 +319,7 @@
       writeBaseDataType(out, label);
       writeBaseDataType(out, value); 
       out.writeBoolean(enabled);
+      writeString(out, format);
    }
 
    /**
@@ -320,5 +342,6 @@
       label = readBaseDataType(in);
       value = readBaseDataType(in);
       enabled = readBoolean(in);
+      format = readString(in);
    }
 }

=== modified file 'src/com/goldencode/p2j/ui/ControlTextWidget.java'
--- src/com/goldencode/p2j/ui/ControlTextWidget.java	2020-09-28 02:06:35 +0000
+++ src/com/goldencode/p2j/ui/ControlTextWidget.java	2021-01-15 20:55:46 +0000
@@ -2,7 +2,7 @@
 ** Module   : ControlTextWidget.java
 ** Abstract : server side text widget implementation
 **
-** Copyright (c) 2005-2018, Golden Code Development Corporation.
+** Copyright (c) 2005-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------Description-----------------------------
 ** 001 NVS 20051026   @23488 Created initial version.
@@ -50,6 +50,8 @@
 ** 024 OM  20171122          Used WriteProtectable interface for READ-ONLY attribute.
 ** 025 CA  20180130          Replaced pushScreenDefinition() with pushWidgetAttr() for cases when
 **                           business logic is assigning a widget attribute.
+** 026 HC  20201010          Implemented selective config flushing.
+**     EVL 20201022          Optimized attributes flush implementation.
 */ 
 
 /*
@@ -148,6 +150,7 @@
     * @param    r
     *           <code>true</code> if the widget should be write-protected.
     */
+   @LegacyAttribute(name = "READ-ONLY", setter = true)
    @Override
    public void setReadOnly(logical r) 
    {

=== modified file 'src/com/goldencode/p2j/ui/EditorWidget.java'
--- src/com/goldencode/p2j/ui/EditorWidget.java	2020-09-28 10:09:11 +0000
+++ src/com/goldencode/p2j/ui/EditorWidget.java	2020-10-22 14:25:52 +0000
@@ -59,6 +59,9 @@
 **                           Adding EDIT-CAN-UNDO, EDIT-CAN-PASTE support.
 ** 039 AIL 20191024          EditorWidget always ignores the implicit formats.
 ** 040 GES 20200213          Added AUTO-INDENT.
+** 041 HC  20201010          Implemented selective config flushing.
+**     GES 20201018          Simplified the code to eliminate an extra call to the screen-buffer.
+**     EVL 20201022          Optimized attributes flush implementation.
 */
 
 /*
@@ -160,7 +163,7 @@
     * beginning.
     */
    public static final int FIND_SELECT = 32;
-   
+
    /**
     * Default constructor.
     */
@@ -281,7 +284,7 @@
     */
    public integer getInnerLines()
    {
-      return new integer(getAttr("innerLines", () -> config.innerLines));
+      return new integer(getAttr("innerLines", () -> config.innerLines, true));
    }
    
    /**
@@ -338,7 +341,7 @@
     */
    public integer getInnerChars()
    {
-      return new integer(getAttr("innerChars", () -> config.innerChars));
+      return new integer(getAttr("innerChars", () -> config.innerChars, true));
    }
    
    /**
@@ -389,7 +392,7 @@
    @Override
    public void setMaxChars(NumberType chars)
    {
-      if (getAttr("realized", () -> config.realized))
+      if (getAttr("realized", () -> config.realized, true))
       {
          ErrorManager.recordOrShowError(4053, 
                String.format(
@@ -1060,7 +1063,7 @@
    @Override
    public integer getCursorOffset()
    {
-      return new integer(getAttr("cursorOffset", () -> config.cursorOffset));
+      return new integer(getAttr("cursorOffset", () -> config.cursorOffset, true));
    }
 
    /**
@@ -1157,7 +1160,7 @@
    @Override
    public void setReturnInserted(boolean value)
    {
-      if (getAttr("realized", () -> config.realized))
+      if (getAttr("realized", () -> config.realized, true))
       {
          ErrorManager.recordOrShowError(4053, 
                String.format(
@@ -1213,7 +1216,7 @@
    @Override
    public void setWordWrap(final boolean value)
    {
-      if (getAttr("realized", () -> config.realized))
+      if (getAttr("realized", () -> config.realized, true))
       {
          ErrorManager.recordOrShowError(4053, 
                String.format(
@@ -1278,7 +1281,7 @@
    @Override
    public void setBox(boolean value)
    {
-      if (getAttr("realized", () -> config.realized))
+      if (getAttr("realized", () -> config.realized, true))
       {
          ErrorManager.recordOrShowError(4053, 
                String.format(
@@ -1992,14 +1995,13 @@
       {
          ((character) value).assign("");
       }
-      
-      int widgetID = getId();
-      if (frameBuf.isIdValid(widgetID))
+
+      // do not call super method, because [modified] should not be set, instead put the value directly
+      // into the screen-buffer
+      if (frameBuf.putWidgetValue(getId(), value))
       {
-         // do not call super method, because [modified] should not be set, instead put the value
-         // directly:
-         frameBuf.putWidgetValue(widgetID, value);
-         // update the [modified] flag. The UI stmts will reset it back to [false]
+         // the widget is valid in the screen-buffer, now update the [modified] flag; the UI stmts will
+         // reset it back to [false]
          config.modified = !inUIStmt;
       }
       

=== modified file 'src/com/goldencode/p2j/ui/EventDefinition.java'
--- src/com/goldencode/p2j/ui/EventDefinition.java	2020-10-04 20:14:00 +0000
+++ src/com/goldencode/p2j/ui/EventDefinition.java	2021-01-18 17:53:57 +0000
@@ -3,7 +3,7 @@
 ** Abstract : represents events and widgets that determine the condition of
 **            termination of WAIT-FOR statements and/or triggers
 **
-** Copyright (c) 2007-2020, Golden Code Development Corporation.
+** Copyright (c) 2007-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- ----------------------------------Description-----------------------------------
 ** 001 NVS 20070112   @31882 Created initial version.
@@ -55,6 +55,11 @@
 **     CA  20200930          Change 'difference' as it always can return at most 2 values.
 **     GES 20201001          Fix for global anywhere flag.
 **     EVL 20201003          Fix for getRowDisplayEvents().
+**     CA  20201010          Use a fast-access bitmap instead of set for widget and resource IDs.
+**     CA  20201117          Fixed a typo in toString().
+**     SVL 20201219          Added OF BROWSE br ANYWHERE lookup level.
+**     EVL 20201222          Adding NPE protection for lookup code.
+**     CA  20210118          Refactored to rely on the event IDs instead of event names.
 */
 
 /*
@@ -115,6 +120,11 @@
 import static com.goldencode.util.NativeTypeSerializer.*; 
 import java.io.*;
 import java.util.*;
+import java.util.function.Consumer;
+
+import com.goldencode.p2j.ui.chui.*;
+import org.roaringbitmap.*;
+import org.roaringbitmap.longlong.*;
 
 import com.goldencode.p2j.util.*;
 import com.goldencode.p2j.ui.client.*;
@@ -188,23 +198,23 @@
    /** Bitwise mask for the global anywhere flag.  */
    private static final byte MASK_GLOBAL_ANYWHERE = (byte) 0x80;
    
-   /** The event name associated with this instance IF and ONLY IF there is only 1 event. */
-   private String event = null;   
+   /** The event ID associated with this instance IF and ONLY IF there is only 1 event. */
+   private Integer event = null;   
    
-   /** Set of event names associated with this instance IF AND ONLY IF there is more than one event. */
-   private Set<String> events = null;
+   /** Set of event IDs associated with this instance IF AND ONLY IF there is more than one event. */
+   private RoaringBitmap events = null;
 
    /** The widget associated with this instance IF and ONLY IF there is only 1 widget. */
    private int widget = WidgetId.INVALID_WIDGET_ID;
    
    /** Set of widget IDs associated with this instance IF AND ONLY IF there is more than one widget. */
-   private Set<Integer> widgets = null;
+   private RoaringBitmap widgets = null;
 
    /** The resource associated with this instance IF and ONLY IF there is only 1 resource. */
    private long resource = ResourceIdHelper.INVALID_RESOURCE;
    
    /** Set of resources (or not-attached widget) IF AND ONLY IF there is more than one resource. */
-   private Set<Long> resources = null;
+   private Roaring64Bitmap resources = null;
 
    /** Widget-specific ANYWHERE option, if given. */
    private boolean anywhere = false;
@@ -234,7 +244,30 @@
     * @param   anywhere
     *          <code>true</code> if these events are defined as ANYWHERE
     */
-   public EventDefinition(Set<String> events, Set<Integer> widgets, Set<Long> resources, boolean anywhere)
+   public EventDefinition(Set<String> events, RoaringBitmap widgets, Roaring64Bitmap resources, boolean anywhere)
+   {
+      this.events         = new RoaringBitmap();
+      this.widgets        = widgets;
+      this.resources      = resources;
+      this.anywhere       = anywhere;
+      this.globalAnywhere = (widgets == null && resources == null);
+      
+      events.forEach(evt -> this.events.add(EventList.eventCode(evt).intValue()));
+   }
+   
+   /**
+    * A constructor.
+    *
+    * @param   events
+    *          a bitmap of event IDs
+    * @param   widgets
+    *          a Set of widget IDs
+    * @param   resources
+    *          a Set of non-widget resource IDs
+    * @param   anywhere
+    *          <code>true</code> if these events are defined as ANYWHERE
+    */
+   public EventDefinition(RoaringBitmap events, RoaringBitmap widgets, Roaring64Bitmap resources, boolean anywhere)
    {
       this.events         = events;
       this.widgets        = widgets;
@@ -247,7 +280,7 @@
     * A constructor.
     *
     * @param   event
-    *          an event name
+    *          an event ID
     * @param   widget
     *          a widget ID
     * @param   resource
@@ -255,7 +288,7 @@
     * @param   anywhere
     *          <code>true</code> if these events are defined as ANYWHERE
     */
-   public EventDefinition(String event, Integer widget, Long resource, boolean anywhere)
+   public EventDefinition(Integer event, Integer widget, Long resource, boolean anywhere)
    {
       if (widget != null)
       {
@@ -277,7 +310,7 @@
     * A constructor.
     *
     * @param   events
-    *          The event names.
+    *          The event IDs.
     * @param   widget
     *          a widget ID
     * @param   resource
@@ -285,7 +318,7 @@
     * @param   anywhere
     *          <code>true</code> if these events are defined as ANYWHERE
     */
-   public EventDefinition(Set<String> events, Integer widget, Long resource, boolean anywhere)
+   public EventDefinition(RoaringBitmap events, Integer widget, Long resource, boolean anywhere)
    {
       if (widget != null)
       {
@@ -307,7 +340,7 @@
     * A constructor.
     *
     * @param   event
-    *          The event name.
+    *          The event ID.
     * @param   widgets
     *          a Set of widget IDs
     * @param   resources
@@ -315,7 +348,7 @@
     * @param   anywhere
     *          <code>true</code> if these events are defined as ANYWHERE
     */
-   public EventDefinition(String event, Set<Integer> widgets, Set<Long> resources, boolean anywhere)
+   public EventDefinition(Integer event, RoaringBitmap widgets, Roaring64Bitmap resources, boolean anywhere)
    {
       this.event          = event;
       this.widgets        = widgets;
@@ -349,9 +382,9 @@
     * @param    widgetId
     *           The widget ID.
     * @param    event
-    *           The event name.
+    *           The event ID.
     */
-   EventDefinition(boolean anywhere, Integer widgetId, String event)
+   EventDefinition(boolean anywhere, Integer widgetId, Integer event)
    {
       this.event   = event;
       this.widget  = widgetId;
@@ -366,9 +399,9 @@
     * @param    resId
     *           The resource ID.
     * @param    event
-    *           The event name.
+    *           The event ID.
     */
-   EventDefinition(boolean anywhere, Long resId, String event)
+   EventDefinition(boolean anywhere, Long resId, Integer event)
    {
       this.event    = event;
       this.resource = resId;
@@ -379,9 +412,9 @@
     * Create a new global ANYWHERE event definition for the specified event.
     * 
     * @param    event
-    *           The event name.
+    *           The event ID.
     */
-   EventDefinition(String event)
+   EventDefinition(Integer event)
    {
       this.event          = event;
       this.globalAnywhere = true;
@@ -408,7 +441,25 @@
       
       return universal;
    }
-   
+
+   /**
+    * Gather all the event codes in the given bitmap.
+    * 
+    * @param    eventCodes
+    *           The map where to add all event codes.
+    */
+   public void gatherEventCodes(RoaringBitmap eventCodes)
+   {
+      if (event != null)
+      {
+         eventCodes.add(event);
+      }
+      if (events != null && !events.isEmpty())
+      {
+         eventCodes.or(events);
+      }
+   }
+
    /**
     * Copy all events (if they exist) from the given instance into the current instance.
     *
@@ -417,13 +468,14 @@
     */
    public void copyEvents(EventDefinition ed)
    {
-      if (ed.events == null || ed.events.size() == 0)
+      if (ed.events == null || ed.events.isEmpty())
       {
          this.event = ed.event;
       }
       else
       {
-         this.events = new HashSet<>(ed.events);
+         this.events = new RoaringBitmap();
+         this.events.or(ed.events);
       }
    }
 
@@ -435,13 +487,14 @@
     */
    public void copyWidgets(EventDefinition ed)
    {
-      if (ed.widgets == null || ed.widgets.size() == 0)
+      if (ed.widgets == null || ed.widgets.isEmpty())
       {
          this.widget = ed.widget;
       }
       else
       {
-         this.widgets = new HashSet<>(ed.widgets);
+         this.widgets = new RoaringBitmap();
+         this.widgets.or(ed.widgets);
       }
    }
 
@@ -453,13 +506,14 @@
     */
    public void copyResources(EventDefinition ed)
    {
-      if (ed.resources == null || ed.resources.size() == 0)
+      if (ed.resources == null || ed.resources.isEmpty())
       {
          resource = ed.resource;
       }
       else
       {
-         this.resources = new HashSet<>(ed.resources);
+         this.resources = new Roaring64Bitmap();
+         this.resources.or(ed.resources);
       }
    }
    
@@ -505,16 +559,17 @@
          {
             if (other.event != null)
             {
-               return events.size() == 1 && events.contains(other.event);
+               return events.getCardinality() == 1 && events.contains(other.event);
             }
             else
             {
-               return events.size() == 0;
+               return events.isEmpty();
             }
          }
          else
          {
-            return events.size() == other.events.size() && events.containsAll(other.events);
+            return events.getCardinality() == other.events.getCardinality() && 
+                   Utils.containsAll(events, other.events);
          }
       }
       else
@@ -541,11 +596,11 @@
          {
             if (event != null)
             {
-               return other.events.size() == 1 && other.events.contains(event);
+               return other.events.getCardinality() == 1 && other.events.contains(event);
             }
             else
             {
-               return other.events.size() == 0;
+               return other.events.isEmpty();
             }
          }
       }
@@ -566,9 +621,9 @@
       
       if (widgets != null)
       {
-         if (other.widgets == null                   ||
-             widgets.size() != other.widgets.size() ||
-             !widgets.containsAll(other.widgets))
+         if (other.widgets == null                                      ||
+             widgets.getCardinality() != other.widgets.getCardinality() ||
+             !Utils.containsAll(widgets, other.widgets))
             return false;
       }
       else
@@ -595,9 +650,9 @@
       
       if (resources != null)
       {
-         if (other.resources == null                    || 
-             resources.size() != other.resources.size() ||
-             !resources.containsAll(other.resources))
+         if (other.resources == null                                              || 
+             resources.getIntCardinality() != other.resources.getIntCardinality() ||
+             !Utils.containsAll(resources, other.resources))
             return false;
       }
       else
@@ -651,17 +706,17 @@
     * Check if the given event name is part of this instance.
     *
     * @param    name
-    *           The event name to test.  The case sensitivity matters.
+    *           The event ID to test.
     *
     * @return   <code>true</code> if the event has been defined for particular event name.
     */
-   public boolean isEventMatch(String name)
+   public boolean isEventMatch(Integer name)
    {
       if (name == null)
          return false;
       
-      return (events != null && events.size() > 0) ? events.contains(name)
-                                                   : (event != null && event.equals(name));
+      return (events != null && !events.isEmpty()) ? events.contains(name)
+                                                   : event.equals(name);
    }
 
    /**
@@ -684,7 +739,7 @@
     */
    public boolean hasEvent()
    {
-      return (events != null && events.size() > 0) || event != null;
+      return (events != null && !events.isEmpty()) || event != null;
    }
 
    /**
@@ -694,7 +749,7 @@
     */
    public boolean hasWidget()
    {
-      return (widgets != null && widgets.size() > 0) || widget != WidgetId.INVALID_WIDGET_ID;
+      return (widgets != null && !widgets.isEmpty()) || widget != WidgetId.INVALID_WIDGET_ID;
    }
 
    /**
@@ -704,39 +759,66 @@
     */
    public boolean hasResource()
    {
-      return (resources != null && resources.size() > 0) || resource != ResourceIdHelper.INVALID_RESOURCE;
+      return (resources != null && !resources.isEmpty()) || resource != ResourceIdHelper.INVALID_RESOURCE;
    }
 
    /**
     * Search for registered ROW-DISPLAY events.
     * 
-    * @return   a map containing pairs of (widgetId, triggerId). may be null
+    * @return   an array with elements on index 0 being the list of widget IDs and on index 1 the trigger IDs.
     */
-   public Map<Integer, Integer> getRowDisplayEvents()
+   public int[][] getRowDisplayEvents()
    {
-      Map<Integer, Integer> res = null;
+      int[][] res = null;
       
       // TODO: what about global anywhere?
-      if (isEventMatch(Keyboard.ROW_DISPLAY) && (anywhere || hasWidget()))
+      if (isEventMatch(Keyboard.SE_ROW_DISPLAY) && (anywhere || hasWidget()))
       {
-         res = new HashMap<Integer, Integer>();
-         
-         if (anywhere)
-         {
-            res.put(-1, triggerId);
+         int length = 0;
+         
+         if (anywhere)
+         {
+            length++;
+         }
+         
+         if (widgets != null)
+         {
+            length += widgets.getCardinality();
+         }
+         else
+         {
+            if (widget != WidgetId.INVALID_WIDGET_ID)
+            {
+               length++;
+            }
+         }
+         
+         res = new int[2][length];
+
+         int idx = 0;
+         if (anywhere)
+         {
+            res[0][idx] = -1;
+            res[1][idx] = triggerId;
+            idx = idx + 1;
          }
          
          if (widgets != null)
          {
             for (int wid : widgets)
             {
-               res.put(wid, triggerId);
+               res[0][idx] = wid;
+               res[1][idx] = triggerId;
+               idx = idx + 1;
             }
          }
          else
          {
             if (widget != WidgetId.INVALID_WIDGET_ID)
-               res.put(widget, triggerId);
+            {
+               res[0][idx] = widget;
+               res[1][idx] = triggerId;
+            }
          }
       }
       
@@ -775,7 +857,7 @@
     * @param    widgetId
     *           Widget ID to check or -1 if this is a global anywhere event.
     * @param    event
-    *           The event name in the proper case (the caller should take care).
+    *           The event ID.
     * @param    isTrigger
     *           <code>true</code> if the search is for a trigger or <code>false</code> to 
     *           seach for an exit condition.
@@ -783,76 +865,107 @@
     *           <code>true</code> if an exact match is to be returned.
     * @param    universal
     *           <code>true</code> if the event is of the universal class.
-    *
-    * @return   Returns the trigger ID found or -1 for triggers; Returns 0 or -1 for exit
-    *           conditions.  In either case, -1 means no match was found.
+    * @param    result
+    *           On output both trigger ID and matched widget ID may be modified.  If no match
+    *           was found, then the trigger ID will be set to -1.
     */
-   public int lookup(int     frameId,
-                     int     widgetId,
-                     String  event,
-                     boolean isTrigger, 
-                     boolean specific,
-                     boolean universal)
+   public void lookup(int     frameId,
+                      int     widgetId,
+                      Integer event,
+                      boolean isTrigger,
+                      boolean specific,
+                      boolean universal,
+                      TriggerMatch result)
    {
+      result.matchedWidgetId = -1;
+
       // check the search type
       if (isTrigger && triggerId == -1)
       {
          // no match; not a trigger
-         return -1;
+         result.triggerId = -1;
+         return;
       }
 
       if (!isTrigger && triggerId != -1)
       {
          // no match; not an exit condition
-         return -1;
+         result.triggerId = -1;
+         return;
       }
 
       // check if the event is listed
       if (!isEventMatch(event))
       {
-         return -1;
+         result.triggerId = -1;
+         return;
       }
 
       // check global anywhere case
       if (globalAnywhere && widgetId == -1)
       {
-         return isTrigger ? triggerId : 0;
+         result.triggerId = isTrigger ? triggerId : 0;
+         return;
       }
 
       if (!hasWidget() && widgetId != -1)
       {
          // no match; only global anywhere
-         return -1;
+         result.triggerId = -1;
+         return;
       }
 
       if (widgetId == -1)
       {
          // no match; only specific widgets
-         return -1;
+         result.triggerId = -1;
+         return;
       }
 
       // check specific widget
       if (isWidgetMatch(widgetId))
       {
-         return isTrigger ? triggerId : 0;
+         result.triggerId = isTrigger ? triggerId : 0;
+         return;
       }
 
       if (specific && !anywhere) // exact match but if not anywhere
       {
-         return -1;
+         result.triggerId = -1;
+         return;
       }
 
       // check anywhere within the frame
       if (!anywhere && !universal)
       {
-         return -1;
+         result.triggerId = -1;
+         return;
+      }
+
+      // WARNING: This code can currently only run on the client due to direct references to ThinClient,
+      //          Browse, TitledWindow, Window and Widget.
+      Widget<?> w = ThinClient.getInstance().registry().getComponent(widgetId);
+      Browse<?> parentBrowse = w != null ? (Browse<?>) w.parent(Browse.class) : null;
+      if (parentBrowse != null)
+      {
+         // If an event occurs for an in-browse editor, and there is a trigger for the browse column, it
+         // should be fired. But if there is not column trigger and there is an OF BROWSE br ANYWHERE trigger,
+         // it should be fired instead. This case is handled here.
+         int browseId = parentBrowse.getId().asInt();
+         if (isWidgetMatch(browseId))
+         {
+            result.triggerId = isTrigger ? triggerId : 0;
+            result.matchedWidgetId = browseId;
+            return;
+         }
       }
 
       if (frameId != -1)
       {
          if (isWidgetMatch(frameId))
          {
-            return isTrigger ? triggerId : 0;
+            result.triggerId = isTrigger ? triggerId : 0;
+            return;
          }
       }
       else
@@ -867,7 +980,8 @@
             {
                if (widget.getId() != null && isWidgetMatch(widget.getId().asInt()))
                {
-                  return isTrigger ? triggerId : 0;
+                  result.triggerId = isTrigger ? triggerId : 0;
+                  return;
                }
             }
          }
@@ -878,13 +992,14 @@
             {
                if (isWidgetMatch(parentFrameId))
                {
-                  return isTrigger ? triggerId : 0;
+                  result.triggerId = isTrigger ? triggerId : 0;
+                  return;
                }
             }
          }
       }
 
-      return -1;
+      result.triggerId = -1;
    }
 
    /**
@@ -894,7 +1009,7 @@
     * @param    resourceId
     *           The ID of the resource.
     * @param    event
-    *           event name in a proper case (the caller should take care)
+    *           event ID.
     * @param    trigExit
     *           flag, telling the search is for a trigger (<code>true</code>)
     *           or for an exit condition (<code>false</code>).
@@ -903,7 +1018,7 @@
     *           returns event index or -1 for exit conditions. In either case,
     *           -1 means no match was found.
     */
-   public int lookup(long resourceId, String event, boolean trigExit)
+   public int lookup(long resourceId, Integer event, boolean trigExit)
    {
       // check the search type
       if (trigExit && triggerId == -1)
@@ -1125,8 +1240,7 @@
          }
          else
          {
-            ned.events = new HashSet<String>();
-            Utils.intersection(events, ed.events, ned.events);
+            ned.events = RoaringBitmap.and(events, ed.events);
          }
       }
       else
@@ -1173,8 +1287,7 @@
          }
          else
          {
-            ned.widgets = new HashSet<Integer>();
-            Utils.intersection(widgets, ed.widgets, ned.widgets);
+            ned.widgets = RoaringBitmap.and(widgets, ed.widgets);
          }
       }
       else
@@ -1221,8 +1334,9 @@
          }
          else
          {
-            ned.resources = new HashSet<Long>();
-            Utils.intersection(resources, ed.resources, ned.resources);
+            ned.resources = new Roaring64Bitmap();
+            ned.resources.or(resources);
+            ned.resources.and(ed.resources);
          }
       }
       else
@@ -1296,22 +1410,22 @@
          return;
       }
       
-      if (events != null && events.size() > 0)
+      if (events != null && !events.isEmpty())
       {
-         if (ed.events != null && ed.events.size() > 0)
+         if (ed.events != null && !ed.events.isEmpty())
          {
-            ned.events = new HashSet<String>();
-            Utils.difference(events, ed.events, ned.events);
+            ned.events = RoaringBitmap.andNot(events, ed.events);
          }
          else
          {
-            ned.events = new HashSet<String>(events);
+            ned.events = new RoaringBitmap();
+            ned.events.or(events);
             ned.events.remove(ed.event);
          }
       }
       else
       {
-         if (ed.events != null && ed.events.size() > 0)
+         if (ed.events != null && !ed.events.isEmpty())
          {
             if (!ed.events.contains(event))
             {
@@ -1351,22 +1465,22 @@
          return;
       }
       
-      if (widgets != null && widgets.size() > 0)
+      if (widgets != null && !widgets.isEmpty())
       {
-         if (ed.widgets != null && ed.widgets.size() > 0)
+         if (ed.widgets != null && !ed.widgets.isEmpty())
          {
-            ned.widgets = new HashSet<Integer>();
-            Utils.difference(widgets, ed.widgets, ned.widgets);
+            ned.widgets = RoaringBitmap.andNot(widgets, ed.widgets);
          }
          else
          {
-            ned.widgets = new HashSet<Integer>(widgets);
+            ned.widgets = new RoaringBitmap();
+            ned.widgets.or(widgets);
             ned.widgets.remove(ed.widget);
          }
       }
       else
       {
-         if (ed.widgets != null && ed.widgets.size() > 0)
+         if (ed.widgets != null && !ed.widgets.isEmpty())
          {
             if (!ed.widgets.contains(widget))
             {
@@ -1406,22 +1520,24 @@
          return;
       }
       
-      if (resources != null && resources.size() > 0)
+      if (resources != null && !resources.isEmpty())
       {
-         if (ed.resources != null && ed.resources.size() > 0)
+         if (ed.resources != null && !ed.resources.isEmpty())
          {
-            ned.resources = new HashSet<Long>();
-            Utils.difference(resources, ed.resources, ned.resources);
+            ned.resources = new Roaring64Bitmap();
+            ned.resources.or(resources);
+            ned.resources.andNot(ed.resources);
          }
          else
          {
-            ned.resources = new HashSet<Long>(resources);
-            ned.resources.remove(ed.resources);
+            ned.resources = new Roaring64Bitmap();
+            ned.resources.or(resources);
+            ned.resources.removeLong(ed.resource);
          }
       }
       else
       {
-         if (ed.resources != null && ed.resources.size() > 0)
+         if (ed.resources != null && !ed.resources.isEmpty())
          {
             if (!ed.resources.contains(resource))
             {
@@ -1523,12 +1639,9 @@
    {
       if (hasEvent())
       {
-         if (events != null && events.size() > 0)
+         if (events != null && !events.isEmpty())
          {
-            for (String name : events)
-            {
-               generateAtoms(name, atoms);
-            }
+            events.forEach((IntConsumer) evt -> generateAtoms(evt, atoms));
          }
          else
          {
@@ -1536,7 +1649,49 @@
          }
       }
    }
-   
+
+   /**
+    * Apply the given function to all widget IDs.
+    * 
+    * @param    f
+    *           The function to apply.
+    */
+   public void processWidgets(Consumer<Integer> f)
+   {
+      if (widgets == null || widgets.isEmpty())
+      {
+         if (widget != WidgetId.INVALID_WIDGET_ID)
+         {
+            f.accept(widget);
+         }
+      }
+      else
+      {
+         widgets.forEach((IntConsumer) (wid -> f.accept(wid)));
+      }
+   }
+
+   /**
+    * Apply the given function to all resource IDs.
+    * 
+    * @param    f
+    *           The function to apply.
+    */
+   public void processResources(Consumer<Long> f)
+   {
+      if (resources == null || resources.isEmpty())
+      {
+         if (resource != ResourceIdHelper.INVALID_RESOURCE)
+         {
+            f.accept(resource);
+         }
+      }
+      else
+      {
+         resources.forEach((LongConsumer) (resid -> f.accept(resid)));
+      }
+   }
+
    /**
     * Replacement for the default object reading method. The latest
     * state is read from the input source.
@@ -1571,11 +1726,12 @@
       {
          if (eventSet)
          {
-            events = readStringSet(in, true);
+            events = new RoaringBitmap();
+            events.readExternal(in);
          }
          else
          {
-            event = readString(in);
+            event = readInteger(in);
          }
       }
       
@@ -1583,7 +1739,8 @@
       {
          if (widgetSet)
          {
-            widgets = readIntSet(in);
+            widgets = new RoaringBitmap();
+            widgets.readExternal(in);
          }
          else
          {
@@ -1595,7 +1752,8 @@
       {
          if (resourceSet)
          {
-            resources = readLongSet(in);
+            resources = new Roaring64Bitmap();
+            resources.readExternal(in);
          }
          else
          {
@@ -1618,11 +1776,11 @@
    throws IOException
    {
       boolean hasEvents    = hasEvent();
-      boolean eventSet     = events != null && events.size() > 0;
+      boolean eventSet     = events != null && !events.isEmpty();
       boolean hasWidgets   = hasWidget();
-      boolean widgetSet    = widgets != null && widgets.size() > 0;
+      boolean widgetSet    = widgets != null && !widgets.isEmpty();
       boolean hasResources = hasResource();
-      boolean resourceSet  = resources != null && resources.size() > 0;
+      boolean resourceSet  = resources != null && !resources.isEmpty();
       
       byte state = 0x00;
       
@@ -1642,11 +1800,11 @@
       {
          if (eventSet)
          {
-            writeStringSet(out, events);
+            events.writeExternal(out);
          }
          else
          {
-            writeString(out, event);
+            writeInteger(out, event);
          }
       }
       
@@ -1654,7 +1812,7 @@
       {
          if (widgetSet)
          {
-            writeIntSet(out, widgets);
+            widgets.writeExternal(out);
          }
          else
          {
@@ -1666,7 +1824,7 @@
       {
          if (resourceSet)
          {
-            writeLongSet(out, resources);
+            resources.writeExternal(out);
          }
          else
          {
@@ -1685,15 +1843,15 @@
    {
       return String.format("EventDefinition { events %s; widgets %s; resources %s; anywhere %b;" +
                            " globalAnywhere %b; trigger id %d }",
-                           events != null && events.size() > 0 ? events.toString() : "[" + event + "]",
-                           widgets != null && widgets.size() > 0
+                           events != null && !events.isEmpty() ? toString(events) : "[" + toString(event) + "]",
+                           widgets != null && !widgets.isEmpty()
                               ? widgets.toString()
-                              : (widget != WidgetId.INVALID_WIDGET_ID)
+                              : (widget == WidgetId.INVALID_WIDGET_ID)
                                  ? "[]" 
                                  : "[" + Integer.toString(widget) + "]",
-                           resources != null && resources.size() > 0
+                           resources != null && !resources.isEmpty()
                               ? resources.toString()
-                              : (resource != ResourceIdHelper.INVALID_RESOURCE)
+                              : (resource == ResourceIdHelper.INVALID_RESOURCE)
                                  ? "[]" 
                                  : "[" + Long.toString(resource) + "]",
                            anywhere,
@@ -1707,13 +1865,13 @@
     * @param    wids
     *           The collection location.
     */
-   void collectWidgetIds(Set<Integer> wids)
+   void collectWidgetIds(RoaringBitmap wids)
    {
       if (hasWidget())
       {
-         if (widgets != null && widgets.size() > 0)
+         if (widgets != null && !widgets.isEmpty())
          {
-            wids.addAll(widgets);
+            wids.or(widgets);
          }
          else
          {
@@ -1728,9 +1886,9 @@
     * @return   the widget id list registered for this event. may be null, in
     *           case of anywhere globally.
     */
-   Set<Integer> getWidgetIds()
+   RoaringBitmap getWidgetIds()
    {
-      Set<Integer> wids = new HashSet<Integer>();
+      RoaringBitmap wids = new RoaringBitmap();
       
       collectWidgetIds(wids);
       
@@ -1743,13 +1901,13 @@
     * @param    res
     *           The collection location.
     */
-   void collectResourceIds(Set<Long> res)
+   void collectResourceIds(Roaring64Bitmap res)
    {
       if (hasResource())
       {
-         if (resources != null && resources.size() > 0)
+         if (resources != null && !resources.isEmpty())
          {
-            res.addAll(resources);
+            res.or(resources);
          }
          else
          {
@@ -1774,11 +1932,13 @@
       
       if (rid != ResourceIdHelper.INVALID_RESOURCE && hasResource())
       {
-         if (resources != null && resources.size() > 0)
+         if (resources != null && !resources.isEmpty())
          {
-            cleaned = resources.remove(rid);
+            long sz1 = resources.getLongCardinality();
+            resources.removeLong(rid);
+            cleaned = resources.getLongCardinality() != sz1;
             
-            if (resources.size() == 0)
+            if (resources.isEmpty())
             {
                resources = null;
             }
@@ -1795,11 +1955,11 @@
       
       if (wid != WidgetId.INVALID_WIDGET_ID && hasWidget())
       {
-         if (widgets != null && widgets.size() > 0)
+         if (widgets != null && !widgets.isEmpty())
          {
-            cleaned = widgets.remove(wid) || cleaned;
+            cleaned = widgets.checkedRemove(wid) || cleaned;
             
-            if (widgets.size() == 0)
+            if (widgets.isEmpty())
             {
                widgets = null;
             }
@@ -1822,15 +1982,15 @@
     * for global-anywhere (if that is set).  Insert all new atoms into the given list.
     * 
     * @param    name
-    *           The event name.
+    *           The event ID.
     * @param    atoms
     *           The list to collect the results.
     */
-   private void generateAtoms(String name, List<EventDefinition> atoms)
+   private void generateAtoms(Integer name, List<EventDefinition> atoms)
    {
       if (hasWidget())
       {
-         if (widgets != null && widgets.size() > 0)
+         if (widgets != null && !widgets.isEmpty())
          {
             for (Integer wid: widgets)
             {
@@ -1845,12 +2005,9 @@
 
       if (hasResource())
       {
-         if (resources != null && resources.size() > 0)
+         if (resources != null && !resources.isEmpty())
          {
-            for (Long resid: resources)
-            {
-               atoms.add(new EventDefinition(anywhere, resid, name));
-            }
+            resources.forEach(resid -> atoms.add(new EventDefinition(anywhere, resid, name)));
          }
          else
          {
@@ -1863,4 +2020,37 @@
          atoms.add(new EventDefinition(name));
       }
    }
+   
+   /**
+    * Get the string representation of this event.
+    * 
+    * @param    event
+    *           The event ID.
+    */
+   private String toString(Integer event)
+   {
+      return event == null ? "n/a" : Keyboard.eventName(event);
+   }
+   
+   /**
+    * Get the string representation of all the events in this bitmap.
+    * 
+    * @param    events
+    *           The event IDs.
+    */
+   private String toString(RoaringBitmap events)
+   {
+      StringBuilder sb = new StringBuilder();
+      sb.append("[");
+      events.forEach((IntConsumer) (evt -> 
+      {
+         if (sb.length() > 1)
+         {
+            sb.append(", ");
+         }
+         sb.append(Keyboard.eventName(evt));
+      }));
+      sb.append("]");
+      return sb.toString();
+   }
 }

=== modified file 'src/com/goldencode/p2j/ui/EventList.java'
--- src/com/goldencode/p2j/ui/EventList.java	2020-10-08 20:57:05 +0000
+++ src/com/goldencode/p2j/ui/EventList.java	2021-01-22 15:19:01 +0000
@@ -3,7 +3,7 @@
 ** Abstract : encodes events and widgets that determine the condition of
 **            termination of the Progress WAIT-FOR statement
 **
-** Copyright (c) 2007-2020, Golden Code Development Corporation.
+** Copyright (c) 2007-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- ----------------------------------Description-----------------------------------
 ** 001 NVS 20070115   @31883 Created based on the WaitList.java file.
@@ -137,6 +137,14 @@
 **     CA  20201003          Pass the LogicalTerminal instance to cleanup(), to avoid context-local lookups.
 **     GES 20201004          Fixed regression in anywhere flag by change in addEvent().
 ** 053 IAS 20201008          Optimized iteration over LinkedList in the lookupEventHelper.
+**     CA  20201010          Use a fast-access bitmap instead of set for widget and resource IDs.
+**     CA  20201015          Avoid LinkedList 'events' for the instance returned by difference, intersection
+**                           APIs, to allow fast iteration.
+**     SVL 20201219          Reflected changes in EventDefinition.
+**     CA  20210118          Performance improvement: do not transfer same EventList instance more than once 
+**                           to the client-side.  The client is responsible of using the last received 
+**                           instance, instead of reading it from the socket.
+**     CA  20210120          Events prefixed with SHIFT-CTRL- must set the prefix as CTRL-SHIFT-.
 */
 
 /*
@@ -197,8 +205,12 @@
 import static com.goldencode.util.NativeTypeSerializer.*; 
 import java.io.*;
 import java.util.*;
+import java.util.function.Consumer;
 import java.util.stream.*;
 
+import org.roaringbitmap.*;
+import org.roaringbitmap.longlong.*;
+
 import com.goldencode.p2j.ui.chui.ThinClient;
 import com.goldencode.p2j.ui.client.*;
 import com.goldencode.p2j.ui.client.event.*;
@@ -240,6 +252,13 @@
    /** The highest code */
    static final int CODE_MAX = CHOOSE;
 
+   /**
+    * Last-read cache of the EventList instance - used only when the server-side informs the client-side that 
+    * the cache should be used (same instance is re-sent to the client).  Used only by the client's Reader 
+    * thread.
+    */
+   private static final ThreadLocal<EventList> lastReadInstance = new ThreadLocal<>();
+   
    /** Type of operation */
    private int operation = WAIT_FOR;
 
@@ -247,7 +266,7 @@
    private Set<String> goOn = null;
 
    /** Set of validatable widgets, if present. */
-   private Set<Integer> validations = null;
+   private RoaringBitmap validations = null;
 
    /** List of event definitions */
    private List<EventDefinition> events = new ArrayList<>();
@@ -258,6 +277,18 @@
    /** Color values' (de)serializer */
    private static Externalizer<EventList> EXT = new Externalizer<>(EventList.class, GoOn.class);
 
+   /** A cache of {@link #lookup(int, int, boolean, boolean, boolean, TriggerMatch)} results. */
+   private Map<LookupWidgetKey, TriggerMatch> lookupWidgets = null;
+   
+   /** A cache of {@link #lookup(long, boolean, TriggerMatch)} results. */
+   private Map<LookupResourceKey, TriggerMatch> lookupResources = null;
+   
+   /** A bitmap of all event codes in all {@link #events}. */
+   private RoaringBitmap eventCodes = null;
+   
+   /** Flag indicating if this instance was previously sent to the client-side.  Used only on server-side. */
+   private boolean cached = false;
+   
    /**
     * Default constructor with no events.  Call <code>addEvent()</code> to configure this
     * instance.  This would be used for definitions that have multiple mappings of events
@@ -685,6 +716,41 @@
    }
    
    /**
+    * Calculate the event or key code for this event name.
+    * 
+    * @param    name
+    *           The event name.
+    */
+   static Integer eventCode(String name)
+   {
+      int evtCode = Keyboard.eventCode(name);
+      int keyCode = Keyboard.keyCode(name);
+      if (keyCode != -1)
+      {
+         String primary = Keyboard.keyLabel(keyCode);
+         if (!primary.equals(name) && primary.length() > 0)
+         {
+            name = primary;
+            keyCode = Keyboard.keyCode(name);
+            evtCode = Keyboard.eventCode(name);
+         }
+      }
+      
+      if (keyCode == -1 && evtCode == -1)
+      {
+         return null;
+      }
+      else if (keyCode != -1)
+      {
+         return keyCode;
+      }
+      else
+      {
+         return evtCode;
+      }
+   }
+
+   /**
     * Calculate the differences between two event lists. An array of two event lists is returned.
     * The first represents the event definitions present in {@code from}, but not in {@code to}
     * (i.e., the list of dead events). The second represents the event definitions present in
@@ -1183,20 +1249,20 @@
             }
          }
          
-         events.add(new EventDefinition(name, id, hid, anywhere));
+         addEvent(new EventDefinition(eventCode(name), id, hid, anywhere));
          return;
       }
    
       // create a set of events
-      Set<String> evts = null;
+      RoaringBitmap evts = null;
       
       if (event.length > 1)
       {
-         evts = new HashSet<>();
+         evts = new RoaringBitmap();
          
          for (int i = 0; i < event.length; i ++)
          {
-            evts.add(preprocessEventName(event[i]));
+            evts.add(eventCode(preprocessEventName(event[i])));
          }
       }
    
@@ -1218,13 +1284,13 @@
             }
          }
          
-         events.add(new EventDefinition(evts, id, hid, anywhere));
+         addEvent(new EventDefinition(evts, id, hid, anywhere));
          return;
       }      
       
       // create a set of IDs
-      Set<Integer> ids = new HashSet<>();
-      Set<Long> hids = new HashSet<>();
+      RoaringBitmap ids = new RoaringBitmap();
+      Roaring64Bitmap hids = new Roaring64Bitmap();
       
       if (target != null)
       {
@@ -1252,12 +1318,12 @@
       {
          String name = preprocessEventName(event[0]);
          
-         events.add(new EventDefinition(name, ids, hids, anywhere));
+         addEvent(new EventDefinition(eventCode(name), ids, hids, anywhere));
          return;
       }   
       
       // add new event definition to the list (slow/Set version for everything!)
-      events.add(new EventDefinition(evts, ids, hids, anywhere));
+      addEvent(new EventDefinition(evts, ids, hids, anywhere));
    }
    
    /**
@@ -1317,25 +1383,41 @@
    /**
     * Search for registered ROW-DISPLAY events.
     * 
-    * @return   a map containing pairs of (widgetId, triggerId). May be null.
+    * @return   an array with elements on index 0 being the list of widget IDs and on index 1 the trigger IDs.
     */
-   public Map<Integer, Integer> getRowDisplayEvents()
+   public int[][] getRowDisplayEvents()
    {
-      Map<Integer, Integer> res = null;
+      List<int[][]> lres = null;
+      int length = 0;
       
       for (EventDefinition ed : events)
       {
-         Map<Integer, Integer> m = ed.getRowDisplayEvents();
-         if (m != null)
+         int[][] arr = ed.getRowDisplayEvents();
+         if (arr != null)
          {
-            if (res == null)
+            if (lres == null)
             {
-               res = new HashMap<>();
+               lres = new ArrayList<>();
             }
-            res.putAll(m);
+            lres.add(arr);
+            length += arr[0].length;
          }
       }
       
+      if (lres == null || lres.isEmpty())
+      {
+         return null;
+      }
+      
+      int[][] res = new int[2][length];
+      int idx = 0;
+      for (int[][] arr : lres)
+      {
+         System.arraycopy(arr[0], 0, res[0], idx, arr[0].length);
+         System.arraycopy(arr[1], 0, res[1], idx, arr[1].length);
+         idx += arr[0].length;
+      }
+      
       return res;
    }
    
@@ -1350,7 +1432,7 @@
     */
    public int[] getExitWidgetIds()
    {
-      Set<Integer> res = new HashSet<Integer>();
+      RoaringBitmap res = new RoaringBitmap();
       
       for (EventDefinition ed : events)
       {
@@ -1361,7 +1443,7 @@
          }
       }
       
-      return (res.size() == 0) ? null : Utils.integerCollectionToPrimitive(res);
+      return res.isEmpty() ? null : res.toArray();
    }
 
    /**
@@ -1374,7 +1456,7 @@
     */
    public long[] getExitResourceIds()
    {
-      Set<Long> res = new HashSet<Long>();
+      Roaring64Bitmap res = new Roaring64Bitmap();
       
       for (EventDefinition ed : events)
       {
@@ -1385,7 +1467,7 @@
          }
       }
       
-      return (res.size() == 0) ? null : Utils.longCollectionToPrimitive(res);
+      return res.isEmpty() ? null : res.toArray();
    }
 
    /**
@@ -1495,7 +1577,7 @@
       
       if (validations == null)
       {
-         validations = new HashSet<>();
+         validations = new RoaringBitmap();
       }
       
       validations.add(widget.getId());
@@ -1603,6 +1685,9 @@
       
       // save the events
       this.events = keep.events == null ? new ArrayList<>() : keep.events;
+      
+      // invalidate the lookup result cache
+      invalidateCache();
    }
 
    /**
@@ -1680,6 +1765,8 @@
          goOn.addAll(from.goOn);
       }
       
+      invalidateCache();
+      
       return this;
    }
 
@@ -1825,22 +1912,40 @@
     */
   public void lookup(long resourceId, boolean trigExit, TriggerMatch result)
   {
-     String event = Keyboard.eventName(result.eventId);
-
-     for (EventDefinition ed : events)
-     {
-        // always searching for exit conditions
-        result.triggerId = ed.lookup(resourceId, event, trigExit);
-        
-        if (result.triggerId != -1)
-        {
-           break;
-        }
-     }
-
-     if (result.triggerId == -1 && chain != null)
-     {
-        chain.lookup(resourceId, trigExit, result);
+     LookupResourceKey key = new LookupResourceKey(resourceId, trigExit);
+     if (lookupResources == null)
+     {
+        lookupResources = new HashMap<>();
+     }
+     TriggerMatch res = lookupResources.get(key);
+     if (res != null)
+     {
+        result.triggerId = res.triggerId;
+        result.matchedWidgetId = res.matchedWidgetId;
+        return;
+     }
+
+     try
+     {
+        for (EventDefinition ed : events)
+        {
+           // always searching for exit conditions
+           result.triggerId = ed.lookup(resourceId, result.eventId, trigExit);
+           
+           if (result.triggerId != -1)
+           {
+              break;
+           }
+        }
+   
+        if (result.triggerId == -1 && chain != null)
+        {
+           chain.lookup(resourceId, trigExit, result);
+        }
+     }
+     finally
+     {
+        lookupResources.put(key, new TriggerMatch(result));
      }
   }
 
@@ -1948,7 +2053,7 @@
       nel.operation   = this.operation;
       nel.goOn        = this.goOn;
       nel.validations = this.validations;
-      nel.events      = l;
+      nel.events      = new ArrayList<>(l);
       
       return nel;
    }
@@ -2005,7 +2110,7 @@
       nel.operation   = this.operation;
       nel.goOn        = this.goOn;
       nel.validations = this.validations;
-      nel.events      = from;
+      nel.events      = new ArrayList<>(from);
       return nel;
    }
    
@@ -2044,7 +2149,7 @@
       nel.operation   = this.operation;
       nel.goOn        = this.goOn;
       nel.validations = this.validations;
-      nel.events      = l;
+      nel.events      = new ArrayList<>(l);
       return nel;
    }
    
@@ -2089,12 +2194,37 @@
    throws IOException,
           ClassNotFoundException
    {
+      boolean useCache = in.readBoolean();
+      
+      if (useCache)
+      {
+         // set all fields from cache
+         EventList el = lastReadInstance.get();
+         
+         operation       = el.operation;
+         goOn            = el.goOn;
+         validations     = el.validations;
+         events          = el.events;
+         chain           = null; // never serialized
+         lookupWidgets   = el.lookupWidgets;
+         lookupResources = el.lookupResources;
+         cached          = true;
+         
+         return;
+      }
+      
       operation   = in.readInt();
-      goOn        = readStringSet(in, false); 
-      validations = readIntSet(in);
+      goOn        = readStringSet(in, false);
+      if (in.readBoolean())
+      {
+         validations = new RoaringBitmap();
+         validations.readExternal(in);
+      }
       events.addAll(readList(in, EventDefinition::new, true));
       
       // chaining is not transferred
+      
+      lastReadInstance.set(this);
    }
 
    /**
@@ -2143,12 +2273,26 @@
    public void writeExternal(ObjectOutput out)
    throws IOException
    {
+      // we avoid transferring to the client-side the same event list
+      out.writeBoolean(cached);
+      if (cached)
+      {
+         return;
+      }
+      
       out.writeInt(operation);
       writeStringSet(out, goOn);
-      writeIntSet(out, validations);
+      out.writeBoolean(validations != null);
+      if (validations != null)
+      {
+         validations.writeExternal(out);
+      }
       writeList(out, events);
       
       // chaining is not transferred
+      
+      // mark this instance as 'cached' so it will not be transferred again.
+      cached = true;
    }
    
    /**
@@ -2211,6 +2355,28 @@
    }
 
    /**
+    * Apply the given function to all {@link #events}.
+    * 
+    * @param    f
+    *           The function to apply.
+    */
+   public void processDefinitions(Consumer<EventDefinition> f)
+   {
+      if (events != null)
+      {
+         for (EventDefinition ed : events)
+         {
+            f.accept(ed);
+         }
+      }
+      
+      if (chain != null)
+      {
+         chain.processDefinitions(f);
+      }
+   }
+
+   /**
     * Renders the instances as text.
     * 
     * @return   The text representation of this instance. 
@@ -2277,16 +2443,29 @@
     *         original event name
     * @return event name suitable for storing
     */
-   private String setCase(String event)
+   static String setCase(String event)
    {
-      int kc = Keyboard.keyCode(event);
+      Integer kc = eventCode(event);
 
-      if (kc == -1 || event.length() > 1) 
+      if (kc == null || kc == -1 || event.length() > 1) 
       {
          event = event.toUpperCase();
+
          if (event.startsWith("CTRL-ALT-"))
          {
-            event = "ALT-CTRL-" + event.substring("CTRL-ALT-".length());
+            String other = "ALT-CTRL-" + event.substring("CTRL-ALT-".length());
+            if (eventCode(other) != null)
+            {
+               event = other;
+            }
+         }
+         else if (event.startsWith("SHIFT-CTRL-"))
+         {
+            String other = "CTRL-SHIFT-" + event.substring("SHIFT-CTRL-".length());
+            if (eventCode(other) != null)
+            {
+               event = other;
+            }
          }
          
          // translate to upper case
@@ -2323,136 +2502,152 @@
    private void lookupWorker(int fid, int wid, boolean trig, boolean isKey,
                              boolean specificWidget, TriggerMatch result)
    {
-      // obtain the event name and class
-      String event = Keyboard.eventName(result.eventId);
-      boolean universal = EventDefinition.isEventUniversal(result.eventId);
-      
-      // convert the event name to the proper case
-      String ev = setCase(event);
-      // convert the label to a key code, alternate labels are honored here 
-      int code = Keyboard.keyCode(ev);
-      
-      // is this a valid label?
-      if (code != -1)
-      {
-         // yes, it was a label so now convert the common code to the primary label name
-         String primary = Keyboard.keyLabel(code); 
-         ev = (primary.length() > 0) ? primary : ev;
-      }
-
-      // lookup event for a specific widget and honor any-printable/any-key if needed
-      lookupEventHelper(-1, wid, ev, trig, true, false, isKey, result);
-      
-      if (result.triggerId != -1)
-         return;
-
-      if (specificWidget)
-      {
-         return;
-      }
-
-      // lookup event for a anywhere in the frame and honor any-printable/any-key if needed
-      lookupEventHelper(fid, wid, ev, trig, false, universal, isKey, result);
-      
-      if (result.triggerId != -1)
-      {
-         result.matchedWidgetId = wid;
-         return;
-      }
-      
-      // look the list up for the specified event and the containing frame
-      if ((trig && universal) || !trig)
-      {
-         for (EventDefinition ed : events)
-         {
-            result.triggerId = ed.lookup(-1, fid, ev, trig, true, false);
-            
-            if (result.triggerId != -1)
-            {
-               result.matchedWidgetId = fid;
-               return;
-            }
-         }
-      }
-      
-      Widget<?> widget = ThinClient.getInstance().getWidget(wid);
-      
-      if (widget != null)
-      {
-         List<Frame<?>> parentFrames = UiUtils.getParentFrames(widget);
-         
-         // search the target trigger through parent frames
-         for (Frame<?> frame  : parentFrames)
-         {
-            int id = frame.getId().asInt();
-            
-            if (id != wid && id != fid && frame.isVisible() && !frame.hidden())
-            {
-               lookupEventHelper(id, wid, ev, trig, true, false, isKey, result);
-            }
-            
-            if (result.triggerId != -1)
-            {
-               result.matchedWidgetId = wid;
-               return;
-            }
-         }
-         
-         TopLevelWindow<?> win = null;
-         Frame<?> rootFrame =  UiUtils.locateRootFrame(widget);
-         if (rootFrame != null)
-         {
-            win = rootFrame.topLevelWindow();
-         }
-         else if (widget instanceof TopLevelWindow)
-         {
-            win = (TopLevelWindow<?>) widget;
-         }
-         
-         // search the target trigger in its top level window
-         if (win != null &&
-             win.getId() != WidgetId.DEFAULT_WINDOW_ID &&
-             win.isVisible() && !win.hidden())
-         {
-            int winid = win.getId().asInt();
-            // lookup event for a specific widget and honor any-printable/any-key if needed
-            lookupEventHelper(rootFrame == null ? -1 : rootFrame.getId().asInt(),
-                              winid, ev, trig, true, false, isKey, result);
-
-            if (result.triggerId != -1)
-            {
-               result.matchedWidgetId = winid;
-            }
-         }
-      }
-      
-      if (result.triggerId != -1)
-         return;
-      
-      // lookup event for a anywhere globally and honor any-printable/any-key if needed
-      lookupEventHelper(-1, -1, ev, trig, false, false, isKey, result);
-      
-      if (result.triggerId != -1)
-         return;
-      
-      // look the list up for the specified event and the session window
-      if (!trig)
-      {
-         for (EventDefinition ed : events)
-         {
-            result.triggerId = ed.lookup(-1,
-                                         WidgetId.DEFAULT_WINDOW_ID.asInt(),
-                                         ev,
-                                         trig,
-                                         true,
-                                         false);
-            
-            if (result.triggerId != -1)
-            {
-               result.matchedWidgetId = WidgetId.DEFAULT_WINDOW_ID.asInt();
-               return;
-            }
-         }
+      LookupWidgetKey key = new LookupWidgetKey(fid, wid, trig, isKey, specificWidget, result.eventId);
+      if (lookupWidgets == null)
+      {
+         lookupWidgets = new HashMap<>();
+      }
+      TriggerMatch res = lookupWidgets.get(key);
+      if (res != null)
+      {
+         result.triggerId = res.triggerId;
+         result.matchedWidgetId = res.matchedWidgetId;
+         return;
+      }
+      
+      try
+      {
+         // obtain the event name and class
+         String event = Keyboard.eventName(result.eventId);
+         boolean universal = EventDefinition.isEventUniversal(result.eventId);
+         
+         // convert the event name to the proper case
+         String ev = setCase(event);
+         // convert the label to a key code, alternate labels are honored here 
+         int code = Keyboard.keyCode(ev);
+         
+         // is this a valid label?
+         if (code != -1)
+         {
+            // yes, it was a label so now convert the common code to the primary label name
+            String primary = Keyboard.keyLabel(code); 
+            ev = (primary.length() > 0) ? primary : ev;
+         }
+         Integer evCode = eventCode(ev);
+         
+         // lookup event for a specific widget and honor any-printable/any-key if needed
+         lookupEventHelper(-1, wid, evCode, trig, true, false, isKey, result);
+         
+         if (result.triggerId != -1)
+         {
+            return;
+         }
+   
+         if (specificWidget)
+         {
+            return;
+         }
+   
+         // lookup event for a anywhere in the frame and honor any-printable/any-key if needed
+         lookupEventHelper(fid, wid, evCode, trig, false, universal, isKey, result);
+         
+         if (result.triggerId != -1)
+         {
+            result.matchedWidgetId = wid;
+            return;
+         }
+         
+         // look the list up for the specified event and the containing frame
+         if (!trig || universal)
+         {
+            for (EventDefinition ed : events)
+            {
+               ed.lookup(-1, fid, evCode, trig, true, false, result);
+               if (result.triggerId != -1)
+               {
+                  result.matchedWidgetId = fid;
+                  return;
+               }
+            }
+         }
+         
+         Widget<?> widget = ThinClient.getInstance().getWidget(wid);
+         
+         if (widget != null)
+         {
+            List<Frame<?>> parentFrames = UiUtils.getParentFrames(widget);
+            
+            // search the target trigger through parent frames
+            for (Frame<?> frame  : parentFrames)
+            {
+               int id = frame.getId().asInt();
+               
+               if (id != wid && id != fid && frame.isVisible() && !frame.hidden())
+               {
+                  lookupEventHelper(id, wid, evCode, trig, true, false, isKey, result);
+               }
+               
+               if (result.triggerId != -1)
+               {
+                  result.matchedWidgetId = wid;
+                  return;
+               }
+            }
+            
+            TopLevelWindow<?> win = null;
+            Frame<?> rootFrame =  UiUtils.locateRootFrame(widget);
+            if (rootFrame != null)
+            {
+               win = rootFrame.topLevelWindow();
+            }
+            else if (widget instanceof TopLevelWindow)
+            {
+               win = (TopLevelWindow<?>) widget;
+            }
+            
+            // search the target trigger in its top level window
+            if (win != null &&
+                win.getId() != WidgetId.DEFAULT_WINDOW_ID &&
+                win.isVisible() && !win.hidden())
+            {
+               int winid = win.getId().asInt();
+               // lookup event for a specific widget and honor any-printable/any-key if needed
+               lookupEventHelper(rootFrame == null ? -1 : rootFrame.getId().asInt(),
+                                 winid, evCode, trig, true, false, isKey, result);
+   
+               if (result.triggerId != -1)
+               {
+                  result.matchedWidgetId = winid;
+               }
+            }
+         }
+         
+         if (result.triggerId != -1)
+            return;
+         
+         // lookup event for a anywhere globally and honor any-printable/any-key if needed
+         lookupEventHelper(-1, -1, evCode, trig, false, false, isKey, result);
+         
+         if (result.triggerId != -1)
+            return;
+         
+         // look the list up for the specified event and the session window
+         if (!trig)
+         {
+            for (EventDefinition ed : events)
+            {
+               ed.lookup(-1, WidgetId.DEFAULT_WINDOW_ID.asInt(), evCode, trig, true, false, result);
+               if (result.triggerId != -1)
+               {
+                  result.matchedWidgetId = WidgetId.DEFAULT_WINDOW_ID.asInt();
+                  return;
+               }
+            }
+         }
+      }
+      finally
+      {
+         lookupWidgets.put(key, new TriggerMatch(result));
       }
    }
    
@@ -2471,15 +2666,19 @@
       // alternate key labels won't be matched if we don't convert them to the primary label
       
       // convert the label to a key code, alternate labels are honored here 
-      int code = Keyboard.keyCode(caseEvent);
+      Integer code = eventCode(caseEvent);
       
       // is this a valid label?
-      if (code != -1)
+      if (code != null)
       {
          // yes, it was a label so now convert the common code to the primary label name
          String primary = Keyboard.keyLabel(code); 
          caseEvent = (primary.length() > 0) ? primary : caseEvent;
       }
+      else
+      {
+         throw new IllegalStateException("Event [" + name + "] is not registered in FWD!");
+      }
       
       return caseEvent;
    }
@@ -2572,21 +2771,34 @@
     */
    private void lookupEventHelper(int          fid,
                                   int          wid,
-                                  String       ev,
+                                  Integer      evCode,
                                   boolean      trigger,
                                   boolean      specific,
                                   boolean      universal,
                                   boolean      isKey,
                                   TriggerMatch result)
    {
+      if (eventCodes == null)
+      {
+         eventCodes = new RoaringBitmap();
+         events.forEach(evt -> evt.gatherEventCodes(eventCodes));
+      }
+
+      if (!eventCodes.contains(evCode) && 
+          !eventCodes.contains(Keyboard.SE_ANY_KEY) && 
+          !eventCodes.contains(Keyboard.SE_ANY_PRINTABLE))
+      {
+         return;
+      }
+      
       // look the list up for the specified event and widget save the last found anywhere 
       // trigger id
       int anywhereTriggerId = -1;
+      int anywhereTriggerWidget = -1;
       for (EventDefinition ed: events)
       {
-         int triggerId = ed.lookup(fid, wid, ev, trigger, specific, universal);
-         
-         if (triggerId != -1)
+         ed.lookup(fid, wid, evCode, trigger, specific, universal, result);
+         if (result.triggerId != -1)
          {
             if (specific && ed.isAnywhere())
             {
@@ -2594,12 +2806,12 @@
                // replace previously found trigger, exact widget has a priority over parent frame
                if (anywhereTriggerId == -1 || ed.isWidgetMatch(wid))
                {
-                  anywhereTriggerId = triggerId;
+                  anywhereTriggerId = result.triggerId;
+                  anywhereTriggerWidget = result.matchedWidgetId;
                }
             }
             else
             {
-               result.triggerId = triggerId;
                return;
             }
          }
@@ -2608,21 +2820,16 @@
       if (anywhereTriggerId != -1)
       {
          result.triggerId = anywhereTriggerId;
+         result.matchedWidgetId = anywhereTriggerWidget;
          return;
       }
       
       // honor ANY-PRINTABLE event (must be before ANY-KEY)
-      if (Keyboard.isPrintable(ev))
+      if (Keyboard.isPrintable(Keyboard.eventName(evCode)))
       {
          for (EventDefinition ed : events)
          {
-            result.triggerId = ed.lookup(fid,
-                                         wid,
-                                         Keyboard.ANY_PRINTABLE,
-                                         trigger,
-                                         specific,
-                                         universal);
-            
+            ed.lookup(fid, wid, Keyboard.SE_ANY_PRINTABLE, trigger, specific, universal, result);
             if (result.triggerId != -1)
             {
                // prevent recursion later by noting which event was really matched
@@ -2637,13 +2844,7 @@
       {
          for (EventDefinition ed : events)
          {
-            result.triggerId = ed.lookup(fid,
-                                         wid,
-                                         Keyboard.ANY_KEY,
-                                         trigger,
-                                         specific,
-                                         universal);
-            
+            ed.lookup(fid, wid, Keyboard.SE_ANY_KEY, trigger, specific, universal, result);
             if (result.triggerId != -1)
             {
                // prevent recursion later by noting which event was really matched
@@ -2655,6 +2856,17 @@
    }
    
    /**
+    * Invalidate the cached state.
+    */
+   private void invalidateCache()
+   {
+      // invalidate the lookup result cache
+      this.lookupResources = null;
+      this.lookupWidgets = null;
+      this.eventCodes = null;
+   }
+   
+   /**
     * Stores a widget and resource ID pair.
     */
    static class IdPair
@@ -2665,4 +2877,201 @@
       /** Resource ID. */
       long hid = ResourceIdHelper.INVALID_RESOURCE;
    }
+   
+   /**
+    * A key for caching the result of {@link EventList#lookup(long, boolean, TriggerMatch)}. 
+    */
+   static class LookupResourceKey
+   {
+      /** The resource ID. */
+      private final long resourceId;
+      
+      /**
+       * <code>true</code> if the search is for a trigger or <code>false</code> if the  search is for an exit 
+       * condition.
+       */
+      private final boolean trigExit;
+      
+      /** The cached hash value. */
+      private final int hash;
+
+      /**
+       * Create a new instance.
+       * 
+       * @param    resourceId
+       *           The resource ID.
+       * @param    trigExit
+       *           <code>true</code> if the search is for a trigger or <code>false</code> if the  search is  
+       *           for an exit condition.
+       */
+      public LookupResourceKey(long resourceId, boolean trigExit)
+      {
+         this.resourceId = resourceId;
+         this.trigExit = trigExit;
+         
+         this.hash = hash();
+      }
+      
+      /**
+       * The key's hash code.
+       * 
+       * @return   The {@link #hash}
+       */
+      @Override
+      public int hashCode()
+      {
+         return hash;
+      }
+      
+      /**
+       * Check if this instance is the same as the other.
+       * 
+       * @param    obj
+       *           The other instance.
+       *           
+       * @return   <code>true</code> if the instances have the same state.
+       */
+      @Override
+      public boolean equals(Object obj)
+      {
+         if (!(obj instanceof LookupResourceKey))
+         {
+            return false;
+         }
+         
+         LookupResourceKey key = (LookupResourceKey) obj;
+         
+         return resourceId == key.resourceId && trigExit == key.trigExit;
+      }
+      
+      /**
+       * Precalculate the key's hash.
+       * 
+       * @return   See above.
+       */
+      private int hash()
+      {
+         int res = 17;
+         res = res * 37 + Long.hashCode(resourceId);
+         res = res * 37 + Boolean.hashCode(trigExit);
+         return res;
+      }
+   }
+   
+   /**
+    * A key for caching the result of {@link EventList#lookup(int, int, boolean, boolean, boolean, TriggerMatch)}. 
+    */
+   static class LookupWidgetKey
+   {
+      /** Frame ID, can be <code>-1</code> */
+      private final int fid;
+
+      /** widget ID, can't be <code>-1</code>, but can be <code>SESSION_WINDOW_ID</code>. */
+      private final int wid;
+
+      /** 
+       * <code>true</code> if the search is for a trigger or <code>false</code> to search for an exit 
+       * condition. 
+       */
+      private final boolean trig;
+
+      /** Marks real key pressed by user. */
+      private final boolean isKey;
+
+      /** 
+       * When <code>true</code> only the specific widget events are lsearched, i.e. anywhere, session window, 
+       * etc. are ignored.
+       */
+      private final boolean specificWidget;
+
+      /** The event code matched in the lookup. */
+      private final int eventId;
+
+      /** The cached hash value. */
+      private final int hash;
+
+      /**
+       * Create a new instance.
+       * 
+       * @param    fid
+       *           Frame ID, can be <code>-1</code>
+       * @param    wid
+       *           widget ID, can't be <code>-1</code>, but can be <code>SESSION_WINDOW_ID</code>.
+       * @param    trig
+       *           <code>true</code> if the search is for a trigger or <code>false</code> to search for an 
+       *           exit condition.
+       * @param    isKey
+       *           Marks real key pressed by user.
+       * @param    specificWidget
+       *           When <code>true</code> only the specific widget events are lsearched, i.e. anywhere, 
+       *           session window, etc. are ignored.
+       * @param    eventId
+       *           The event code matched in the lookup.
+       */
+      public LookupWidgetKey(int fid, int wid, boolean trig, boolean isKey, boolean specificWidget, int eventId)
+      {
+         this.fid = fid;
+         this.wid = wid;
+         this.trig = trig;
+         this.isKey = isKey;
+         this.specificWidget = specificWidget;
+         this.eventId = eventId;
+         
+         this.hash = hash();
+      }
+      
+      /**
+       * The key's hash code.
+       * 
+       * @return   The {@link #hash}
+       */
+      @Override
+      public int hashCode()
+      {
+         return hash;
+      }
+      
+      /**
+       * Check if this instance is the same as the other.
+       * 
+       * @param    obj
+       *           The other instance.
+       *           
+       * @return   <code>true</code> if the instances have the same state.
+       */
+      @Override
+      public boolean equals(Object obj)
+      {
+         if (!(obj instanceof LookupWidgetKey))
+         {
+            return false;
+         }
+         
+         LookupWidgetKey key = (LookupWidgetKey) obj;
+         
+         return fid == key.fid && 
+                wid == key.wid &&
+                trig == key.trig && 
+                isKey == key.isKey && 
+                specificWidget == key.specificWidget && 
+                eventId == key.eventId;
+      }
+      
+      /**
+       * Precalculate the key's hash.
+       * 
+       * @return   See above.
+       */
+      private int hash()
+      {
+         int res = 17;
+         res = res * 37 + Integer.hashCode(fid);
+         res = res * 37 + Integer.hashCode(wid);
+         res = res * 37 + Boolean.hashCode(trig);
+         res = res * 37 + Boolean.hashCode(isKey);
+         res = res * 37 + Boolean.hashCode(specificWidget);
+         res = res * 37 + Integer.hashCode(eventId);
+         return res;
+      }
+   }
 }

=== modified file 'src/com/goldencode/p2j/ui/FieldGroup.java'
--- src/com/goldencode/p2j/ui/FieldGroup.java	2020-09-27 15:48:49 +0000
+++ src/com/goldencode/p2j/ui/FieldGroup.java	2021-01-27 17:52:59 +0000
@@ -2,7 +2,7 @@
 ** Module   : FieldGroup.java
 ** Abstract : groups widgets in the frame on the server side
 **
-** Copyright (c) 2008-2020, Golden Code Development Corporation.
+** Copyright (c) 2008-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------Description-----------------------------
 ** 001 GES 20080318   @37589 Created initial version to group widgets in
@@ -60,6 +60,12 @@
 **     SVL 20190317          Added cleanNonTabItems.
 ** 040 HC  20200301          Made FIELD-GROUP:FONT non-queriable (CAN-QUERY must return false).
 ** 041 SBI 20200729          Fixed index out of bounds exception if widget is added before/after itself.
+** 042 CA  20201117          Fixed a memory leak - FIELD-GROUP widgets were not being deleted.
+** 043 VVT 20210115          Missing LegacyAttribute annotation(s) added. See #5064.
+**                           FONT attribute is marked and implemented ad not-queriable and
+**                           non-settable.
+**     CA  20210127          Fixed a problem in DOWN frames - the literal field-group gets reconstructed, and
+**                           it must be forced to be deleted.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -156,6 +162,9 @@
    /** Tab item list */ 
    private List<GenericWidget<?>> tabItems;
    
+   /** Flag indicating that the deletion is forced. */
+   private boolean force = true;
+   
    /**
     * Creates an instance to groups related widgets in a frame.
     *
@@ -251,15 +260,41 @@
    /**
     * {@inheritDoc}
     */
-   @LegacyAttribute(name = "FONT", canQuery = false)
+   @LegacyAttribute(name = "FONT", ignore = true)
    @Override
    public integer getFont()
    {
-      // this getter is here to provide LegacyAttribute with canQuery set to false
-      return super.getFont();
+      notQueryable("FONT");
+      return new integer();
    }
 
    /**
+    * Set the FONT attribute of this widget.
+    * 
+    * @param    fontNum
+    *           An entry in the font-table or unknown to refer the default font.
+    */
+   @LegacyAttribute(name = "FONT", setter = true, ignore = true)
+   @Override
+   public void setFont(long fontNum)
+   {
+      notSettable("FONT");
+   }
+   
+   /**
+    * Set the FONT attribute of this widget.
+    * 
+    * @param    fontNum
+    *           An entry in the font-table or unknown to refer the default font.
+    */
+   @LegacyAttribute(name = "FONT", setter = true, ignore = true)
+   @Override
+   public void setFont(int64 fontNum)
+   {
+      notSettable("FONT");
+   }
+   
+   /**
     * Remove the specified widget from this field-group.
     * 
     * @param    widget
@@ -276,6 +311,8 @@
       this.tabItems.remove(widget);
       this.firstTabItem = null;
       this.lastTabItem  = null;
+      
+      frame.removeWidget(widget);
    }
    
    /**
@@ -854,6 +891,28 @@
    }
    
    /**
+    * Delete the resource.
+    * <p>
+    * Field groups need to be manually removed from the registry, when they are deleted.
+    */
+   @Override
+   public void delete()
+   {
+      if (!resourceDelete())
+      {
+         return;
+      }
+      
+      // reset the frame before calling super, so cannDelete will allowthe deletion.
+      GenericFrame fgFrame = frame;
+      frame = null;
+      super.delete();
+      frame = fgFrame;
+      
+      LogicalTerminal.deregisterWidget(getAttr("id", () -> config.id).asInt());
+   }
+
+   /**
     * Moves the target widget to the top of this list.
     * 
     * @param    widget
@@ -957,23 +1016,34 @@
    }
    
    /**
+    * Check if this resource can be deleted (implicitly or not).
+    * 
+    * @return   See above.
+    */
+   @Override
+   protected boolean canDelete()
+   {
+      return force || frame == null || super.canDelete();
+   }
+   
+   /**
     * Delete the resource.
-    * <p>
-    * Field groups need to be manually removed from the registry, when they are deleted.
     * 
     * @return   <code>true</code> if the resource was deleted.
     */
    @Override
    protected boolean resourceDelete()
    {
-      boolean delete = super.resourceDelete();
-      
-      if (delete)
-      {
-         LogicalTerminal.deregisterWidget(getAttr("id", () -> config.id).asInt());
-      }
-      
-      return delete;
+      return force || super.resourceDelete();
+   }
+   
+   /**
+    * Force the delete for this field-group.
+    */
+   void forceDelete()
+   {
+      this.force = true;
+      this.delete();
    }
    
    /**

=== modified file 'src/com/goldencode/p2j/ui/FillInWidget.java'
--- src/com/goldencode/p2j/ui/FillInWidget.java	2020-09-28 02:06:35 +0000
+++ src/com/goldencode/p2j/ui/FillInWidget.java	2021-01-15 20:55:46 +0000
@@ -2,7 +2,7 @@
 ** Module   : FillInWidget.java
 ** Abstract : server side FillIn widget implementation
 **
-** Copyright (c) 2005-2019, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------Description-----------------------------
 ** 001 NVS 20051026   @23490 Created initial version.
@@ -52,6 +52,10 @@
 **                           Adding support for EDIT-CAN-UNDO, EDIT-CAN-PASTE attributes.
 ** 030 HC  20191120          Negative end range for SET-SELECTION must select the whole screen
 **                           value for COMBO-BOX and FILL-IN widgets.
+** 031 EVL 20201022          Optimized attributes flush implementation.
+**     CA  20210111          SCREEN-VALUE usage from converted code needs to be distinguished from internal
+**                           usage, within FWD code (see COMBO-BOX:LIST-ITEM-PAIRS behavior).
+**     VVT 20210115          Missing LegacyAttribute annotation(s) added. See #5064.
 */ 
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -235,6 +239,7 @@
     * @param   newReadOnly
     *          Is widget read only.
     */
+   @LegacyAttribute(name = "READ-ONLY", setter = true)
    public void setReadOnly(boolean newReadOnly)
    {
       if (config.readOnly == newReadOnly)
@@ -415,7 +420,7 @@
          return new character("");
       }
 
-      int widthChars = (int) getAttr("widthChars", () -> config.widthChars);
+      int widthChars = (int) getAttr("widthChars", () -> config.widthChars, true);
       int selectionStart = getAttr("selectionStart", () -> config.selectionStart);
       int selectionEnd = getAttr("selectionEnd", () -> config.selectionEnd);
 
@@ -835,7 +840,8 @@
       if (isFocused())
       {
          // cursor can take position after the last character of the fill-in
-         int offset = Math.min(getAttr("cursorOffset", () -> config.cursorOffset) + 1, (int) getAttr("widthChars", () -> config.widthChars));
+         int offset = Math.min(getAttr("cursorOffset", () -> config.cursorOffset, true) + 1,
+                               (int) getAttr("widthChars", () -> config.widthChars, true));
          return new integer(offset);
       }
       else
@@ -888,7 +894,7 @@
       }
 
       final int val = offset.intValue();
-      if (val < 1 || val > getAttr("widthChars", () -> config.widthChars))
+      if (val < 1 || val > getAttr("widthChars", () -> config.widthChars, true))
       {
          ErrorManager.recordOrShowError(4057,
                String.format("**Attribute CURSOR-OFFSET for the FILL-IN %s has an invalid " +
@@ -950,7 +956,7 @@
     *           the value as uninitialized.
     */
    @Override
-   public void setScreenValue(character value)
+   protected void setScreenValueInt(character value)
    {
       // check if we really need to change anything (input variable chack for null)
       // the new screen value can be the same as the current one and this is not a cause
@@ -966,7 +972,7 @@
       // of the fill-in can become completely inconsistent in some conditions
       // the MODIFIED attribute flag is supposed to change to TRUE too (as it does in the 4GL)
       config.modified = true;
-      super.setScreenValue(value);
+      super.setScreenValueInt(value);
    }
    
    /**

=== modified file 'src/com/goldencode/p2j/ui/FontTable.java'
--- src/com/goldencode/p2j/ui/FontTable.java	2020-01-22 09:15:36 +0000
+++ src/com/goldencode/p2j/ui/FontTable.java	2020-12-05 02:01:57 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2014-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20140701 Created initial version.
 ** 002 CA  20140711 Added legacy metrics support and font details for legacy font-tables.
 ** 003 MAG 20140827 Move common code to BaseSysTable class.
@@ -55,6 +55,7 @@
 **                  CPU cycles for a non-critical message.
 ** 030 HC  20190423 Implemented direct font control, AKA custom font support.
 ** 031 CA  20200122 Javadoc fixes.
+** 032 OM  20201203 Fixed handling of READ/ONLY attributes.
 */
 
 /*
@@ -343,8 +344,7 @@
    }
    
    /**
-    * API needed to implement read-only attribute assignment (a 4GL 
-    * "feature").
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
     * 
     * @param    attribute
     *           The attribute's name.
@@ -357,6 +357,21 @@
    }
    
    /**
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
+    * 
+    * @param    attribute
+    *           The attribute's name.
+    * @param    expr
+    *           The value which is attempted to be assigned to the read-only attribute. 
+    *
+    * @see      handle#readOnlyError(handle, String, Object)
+    */
+   public static void readOnlyError(String attribute, Object expr)
+   {
+      handle.readOnlyError(asHandle(), attribute);
+   }
+   
+   /**
     * Get the type of its associated handle.
     * 
     * @return   Always return the PSEUDO-WIDGET value.

=== modified file 'src/com/goldencode/p2j/ui/FrameWidget.java'
--- src/com/goldencode/p2j/ui/FrameWidget.java	2020-10-04 18:23:10 +0000
+++ src/com/goldencode/p2j/ui/FrameWidget.java	2020-10-31 00:42:17 +0000
@@ -2,9 +2,9 @@
 ** Module   : FrameWidget.java
 ** Abstract : server side frame widget class (contains the configuration)
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ----------------------------Description-----------------------------
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 NVS 20051026   @23491 Created initial version.
 ** 002 NVS 20060114   @24097 Frame is created hidden.
 ** 003 SIY 20060213   @24581 Fixes for the DialogBox support.
@@ -145,6 +145,13 @@
 **     EVL 20200828          Fixed frame name issue when the name is redefining after frame has been created.
 **     HC  20201004          Performance optimizations of server-client config state
 **                           synchronization.
+**     HC  20201010          Implemented selective config flushing.
+**     EVL 20201022          Optimized attributes flush implementation.
+**     CA  20201112          Avoid pushing the entire frame definition when setting the FRAME attribute.
+**     CA  20201117          Fixed a memory leak - FIELD-GROUP widgets were not being deleted.
+**     CA  20210111          SCREEN-VALUE usage from converted code needs to be distinguished from internal
+**                           usage, within FWD code (see COMBO-BOX:LIST-ITEM-PAIRS behavior).
+**     OM  20201030          Invalid attribute API support for getters/setters.
 */
 
 /*
@@ -347,8 +354,7 @@
          handle window = getParentHandle();
          if (!window.isUnknown())
          {
-            sibling = HandleChain.lastResource((HandleChain) window.unwrap(), 
-                                               LegacyResource.WINDOW);
+            sibling = HandleChain.lastResource((HandleChain) window.unwrap(), LegacyResource.WINDOW);
          }
       }
       
@@ -379,10 +385,10 @@
     */
    public character getScreenValue()
    {
-      handle.invalidAttribute("SCREEN-VALUE", asWidgetHandle());
+      handle.invalidAttribute("SCREEN-VALUE", asWidgetHandle(), false);
       return new character();
    }
-
+   
    /**
     * Set the current value in the screen buffer of the backing data for
     * this widget.  If the given value is <code>null</code> then this
@@ -392,7 +398,8 @@
     *           The new value for the widget, use <code>null</code> to set
     *           the value as uninitialized.
     */
-   public void setScreenValue(character value)   
+   @Override
+   protected void setScreenValueInt(character value)   
    {
       handle.readOnlyError(asWidgetHandle(), "SCREEN-VALUE");
    }
@@ -612,7 +619,7 @@
          return;
       }
 
-      if (getAttr("realized", () -> config.realized) &&
+      if (getAttr("realized", () -> config.realized, true) &&
             btn.getAttr("frameId", () -> btn.config.frameId) == -1)
       {
          ErrorManager.recordOrShowError(4040, 
@@ -695,8 +702,8 @@
       }
 
       ButtonWidget btn = (ButtonWidget) value;
-      if (btn.getAttr("frameId ", () -> btn.config.frameId) != -1 &&
-            btn.getAttr("frameId ", () -> btn.config.frameId) != getId())
+      if (btn.getAttr("frameId", () -> btn.config.frameId) != -1 &&
+            btn.getAttr("frameId", () -> btn.config.frameId) != getId())
       {
          ErrorManager.recordOrShowError(4078, 
                String.format(
@@ -707,7 +714,7 @@
          return;
       }
 
-      if (getAttr("realized", () -> config.realized)
+      if (getAttr("realized", () -> config.realized, true)
             && btn.getAttr("frameId", () -> btn.config.frameId) == -1)
       {
          ErrorManager.recordOrShowError(4040, 
@@ -945,7 +952,7 @@
    @Override
    public integer getDown()
    {
-      return new integer(getAttr("down", () -> config.down));
+      return new integer(getAttr("down", () -> config.down, true));
    }
 
    /**
@@ -1283,12 +1290,12 @@
       // TODO: needed?
 //      if (scroll)
 //      {
-//         if (getAttr("virtualHeightChars ", () -> config.virtualHeightChars )== BaseConfig.INV_COORD)
+//         if (getAttr("virtualHeightChars", () -> config.virtualHeightChars, true) == BaseConfig.INV_COORD)
 //         {
 //            config.virtualHeightChars = _getHeightChars().doubleValue();
 //         }
 //
-//         if (getAttr("virtualWidthChars ", () -> config.virtualWidthChars )== BaseConfig.INV_COORD)
+//         if (getAttr("virtualWidthChars", () -> config.virtualWidthChars, true) == BaseConfig.INV_COORD)
 //         {
 //            config.virtualWidthChars = _getWidthChars().doubleValue();
 //         }
@@ -1333,7 +1340,7 @@
       // save this, as it will be overwritten by the super call
       GenericFrame owner = this.frame;
 
-      if (owner != null && getAttr("realized", () -> config.realized))
+      if (owner != null && getAttr("realized", () -> config.realized, true))
       {
          ErrorManager.recordOrShowError(4078,
                   String.format(
@@ -1395,8 +1402,7 @@
 
          // related frames must always land on the same top-level window
          config.windowID = frame.getFrameWidget().config.windowID;
-
-         pushScreenDefinition();
+         pushWidgetAttr("windowID" , config.windowID);
       }
    }
 
@@ -1505,7 +1511,7 @@
    @Override
    public void setBox(boolean value)
    {
-      if (getAttr("realized", () -> config.realized))
+      if (getAttr("realized", () -> config.realized, true))
       {
          ErrorManager.recordOrShowError(4053, 
                String.format(
@@ -1812,7 +1818,7 @@
     */
    protected boolean isRootFrame()
    {
-      return getAttr("frameId ", () -> config.frameId )== -1 || getAttr("frameId ", () -> config.frameId )== getId();
+      return getAttr("frameId", () -> config.frameId )== -1 || getAttr("frameId", () -> config.frameId )== getId();
    }
    
    /**
@@ -1897,7 +1903,7 @@
       // remove the frame, etc
       frame.frameCleanup();
       
-      if (dynamic || !getAttr("realized", () -> config.realized))
+      if (dynamic || !getAttr("realized", () -> config.realized, true))
       {
          LogicalTerminal.deregisterFrame(getId());
       }
@@ -1909,6 +1915,9 @@
       }
       
       ConfigManager.getInstance().removeWidgetConfig(config.id);
+      
+      // delete all registered field-groups
+      frame.deleteFieldGroups();
    }
    
    /**
@@ -2189,7 +2198,7 @@
    {
       if (!LogicalTerminal.isChui())  // GUI behavior depends on whether realized or not
       {
-         if (!getAttr("realized", () -> config.realized))        // Unrealized frame/dialog, always 0 
+         if (!getAttr("realized", () -> config.realized, true))        // Unrealized frame/dialog, always 0 
          {
             return new integer(0);
          }
@@ -2231,7 +2240,7 @@
       }
       else                            // ChUI behavior depends on whether realized or not
       {
-         if (!getAttr("realized", () -> config.realized))        // Unrealized frame/dialog, NOP
+         if (!getAttr("realized", () -> config.realized, true))        // Unrealized frame/dialog, NOP
          {
             return;
          }
@@ -2260,7 +2269,7 @@
       }
       else                            // ChUI behavior depends on whether realized or not
       {
-         if (!getAttr("realized", () -> config.realized))        // Unrealized frame/dialog   
+         if (!getAttr("realized", () -> config.realized, true))        // Unrealized frame/dialog   
          {
             return new integer(0);    // Always 0
          }
@@ -2302,7 +2311,7 @@
       }
       else                            // ChUI behavior depends on whether realized or not
       {
-         if (!getAttr("realized", () -> config.realized))        // Unrealized frame/dialog
+         if (!getAttr("realized", () -> config.realized, true))        // Unrealized frame/dialog
          {
             if (!isDialogBox())       // Frame, NOP
             {
@@ -2330,7 +2339,7 @@
    {
       if (!LogicalTerminal.isChui())  // GUI behavior depends on whether realized or not
       {
-         if (!getAttr("realized", () -> config.realized))        // Unrealized frame/dialog, always 0 
+         if (!getAttr("realized", () -> config.realized, true))        // Unrealized frame/dialog, always 0 
          {
             return new integer(0);
          }
@@ -2372,7 +2381,7 @@
       }
       else                            // ChUI behavior depends on whether realized or not
       {
-         if (!getAttr("realized", () -> config.realized))        // Unrealized frame/dialog 
+         if (!getAttr("realized", () -> config.realized, true))        // Unrealized frame/dialog 
          {
             return;
          }
@@ -2397,7 +2406,7 @@
       }
       else                            // ChUI behavior depends on whether realized or not
       {
-         if (!getAttr("realized", () -> config.realized))        // Unrealized frame/dialog   
+         if (!getAttr("realized", () -> config.realized, true))        // Unrealized frame/dialog   
          {
             // 0 unless 4GL is earlier than 11.x, then ? (unknown)                              
             boolean useZero = EnvironmentOps.versionNumber() >= 11.0f;
@@ -2441,7 +2450,7 @@
       }
       else                            // ChUI behavior depends on whether realized or not
       {
-         if (!getAttr("realized", () -> config.realized))        // Unrealized frame/dialog, NOP
+         if (!getAttr("realized", () -> config.realized, true))        // Unrealized frame/dialog, NOP
          {
             return;
          }
@@ -2862,7 +2871,7 @@
          //     by the runtime
          //   - frame is realized: the new value is ignored
          
-         if (getAttr("realized", () -> config.realized))
+         if (getAttr("realized", () -> config.realized, true))
          {
             return;
          }

=== modified file 'src/com/goldencode/p2j/ui/GenericFrame.java'
--- src/com/goldencode/p2j/ui/GenericFrame.java	2020-10-07 11:19:20 +0000
+++ src/com/goldencode/p2j/ui/GenericFrame.java	2021-01-27 17:52:59 +0000
@@ -2,7 +2,7 @@
 ** Module   : GenericFrame.java
 ** Abstract : implementation of UI frames using dynamic proxy feature
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- ----------------------------------Description-----------------------------------
 ** 001 NVS 20051026   @23332 Created initial version.
@@ -891,6 +891,22 @@
 **     EVL 20200828          Added method to change internal frame name variable.
 **     SBI 20200916          Changed stopEditingMode for the case of UPDATE with editing phrase,
 **                           changed continueEditing and fixed setWorker (refs: #4804-61).
+**     GES 20201010          Pushed processing into screen-buffer to improve encapsulation.
+**     EVL 20201022          Optimized attributes flush implementation.
+**     CA  20201112          Avoid pushing the entire frame definition when setting the FRAME or PARENT 
+**                           attribute.
+**     CA  20201117          Fixed a memory leak - FIELD-GROUP widgets were not being deleted.
+**     SVL 20210105          When the state of a shared frame is restored, call pushScreenDefinition only
+**                           once per frame. This eliminates flickering in ChUI.
+**     SVL 20210112          Do not reset ENTERED flag when exiting an EDITING cycle.
+**     CA  20210111          If the widget rejects the SCREEN-VALUE, do not update the local cache in the
+**                           ScreenBuffer.
+**     CA  20210123          For DATE, DATETIME and DATETIME-TZ, parseScreenValue must yield an unknown date
+**                           instead of an empty string, when SCREEN-VALUE is empty.
+**                           For CHARACTER values, parseScreenValue must use the default format, but only if
+**                           the widget supports FORMAT (EDITOR does not support this attribute).
+**     CA  20210127          Fixed a problem in DOWN frames - the literal field-group gets reconstructed, and
+**                           it must be forced to be deleted.
 */
 
 /*
@@ -1371,9 +1387,15 @@
          @Override
          public void finished()
          {
+            boolean update = false;
             for (GenericWidget<?> gw : mFrame.widgets)
             {
-               gw.restoreSharedState();
+               update = gw.restoreSharedState() || update;
+            }
+
+            if (update)
+            {
+               mFrame.pushScreenDefinition();
             }
          }
          
@@ -1409,7 +1431,7 @@
     */
    public logical validateFields(boolean enabledOnly)
    {
-      if (!frame.getAttr("realized", () -> frame.config.realized))
+      if (!frame.getAttr("realized", () -> frame.config.realized, true))
       {
          return new logical(true);
       }
@@ -2694,7 +2716,7 @@
    @Override
    public void displayUnlessHidden()
    {
-      if (frame.getAttr("hidden", () -> frame.config.hidden))
+      if (frame.getAttr("hidden", () -> frame.config.hidden, true))
       {
          return;
       }
@@ -3475,7 +3497,7 @@
    {
       int wid = widget.getId();
     
-      if (frameDef.isSideLabel(wid))
+      if (frameDef != null && frameDef.isSideLabel(wid))
       {
          GenericWidget<?> parent = getWidgetForId(frameDef.getSideLabelParent(wid));
          parent.setLabel(value);
@@ -3502,8 +3524,16 @@
          }
 
          // some widgets like editor do not have the format option
-         BaseDataType val = parseScreenValue(type, value, widget.hasFormat() ? widget._getFormat()
-                                                                             : null);
+         String format = null;
+         if (widget.hasFormat())
+         {
+            format = widget._getFormat();
+            if (format == null && type.equals(character.class))
+            {
+               format = new character().defaultFormatString();
+            }
+         }
+         BaseDataType val = parseScreenValue(type, value, format);
 
          // set the value in the screen buffer for this widget
          if (widget.setScreenValue(frameBuf, val, false))
@@ -3512,10 +3542,10 @@
             
             // refresh the screen
             LogicalTerminal.refreshFrameWidget(this, wid, val);
+
+            // update local cache
+            frameBuf.putScreenValue(wid, val);
          }
-         
-         // update local cache
-         frameBuf.putScreenValue(wid, val);
       }
    }
 
@@ -3571,17 +3601,17 @@
       }
       else if (type.equals(datetimetz.class))
       {
-         result = isEmptyFormat(value.toStringMessage(), "-/:.+") ? new character("") 
+         result = isEmptyFormat(value.toStringMessage(), "-/:.+") ? new datetimetz() 
                                                                   : new datetimetz(value);
       }
       else if (type.equals(datetime.class))
       {
-         result = isEmptyFormat(value.toStringMessage(), "-/:.+") ? new character("")
+         result = isEmptyFormat(value.toStringMessage(), "-/:.+") ? new datetime()
                                                                   : new datetime(value);
       }
       else if (type.equals(date.class))
       {
-         result = isEmptyFormat(value.toStringMessage(), "-/") ? new character("")
+         result = isEmptyFormat(value.toStringMessage(), "-/") ? new date()
                                                                : new date(value);
       }
       else if (type.equals(decimal.class))
@@ -6118,7 +6148,7 @@
    @Override
    public void setDown(Resolvable down)
    {
-      if (frame.getAttr("realized", () -> frame.config.realized))
+      if (frame.getAttr("realized", () -> frame.config.realized, true))
       {
          // this is a no-op in case of shared frames - the DOWN value is inherited from the source
          // frame.  DOWN can only be overridden by explicitly setting the FRAME's DOWN attribute
@@ -7737,10 +7767,10 @@
             }
          }
       }
-      // It changes the ENTERED state so it is called after copyFromScreenBuffer
+
       if (ids != null)
       {
-         LogicalTerminal.disable(this, ids);
+         LogicalTerminal.disable(this, ids, false);
       }
    }
    
@@ -7819,7 +7849,7 @@
       
       for (GenericWidget<?> widget : widgets)
       {
-         if (widget.getAttr("enabled", () -> widget.config.enabled))
+         if (widget.getAttr("enabled", () -> widget.config.enabled, true))
          {
             // TODO: this needs more testing for ChUI - some color state gets cleared (like INPUT 
             // for editable fill-in) when widgets are enabled. 
@@ -8686,6 +8716,36 @@
    }
 
    /**
+    * Remove the specified widget from this frame.
+    * 
+    * @param    widget
+    *           The widget to remove.
+    */
+   public void removeWidget(GenericWidget<?> widget)
+   {
+      List<GenericWidget<?>> newWidgets = new ArrayList<>(widgets.length);
+      for (int i = 0; i < widgets.length; i++)
+      {
+         if (widgets[i] != widget)
+         {
+            newWidgets.add(widgets[i]);
+         }
+      }
+      
+      widgets = newWidgets.toArray(new GenericWidget[0]);
+      
+      Iterator<Map.Entry<String, GenericWidget<?>>> iter = n2w.entrySet().iterator();
+      while (iter.hasNext())
+      {
+         Map.Entry<String, GenericWidget<?>> entry = iter.next();
+         if (entry.getValue() == widget)
+         {
+            iter.remove();
+         }
+      }
+   }
+
+   /**
     * Adding new dynamic widget to the current frame.
     *
     * @param    dynWidget  The widget to be added to current frame.
@@ -8728,8 +8788,7 @@
       
       // refresh frame definition if exists
       // but if for the given ID we already have definition - skip this step
-      if (frameDef != null &&
-          (!replaceExisted || frameDef.getConfig(dynWidget.getId()) == null))
+      if (frameDef != null && (!replaceExisted || frameDef.getConfig(dynWidget.getId()) == null))
       {
          frameDef.addConfig(dynWidget.config());
          if (frameBuf != null)
@@ -8738,7 +8797,7 @@
          }
       }
       
-      pushScreenDefinition();
+      LogicalTerminal.attachRuntimeWidget(this, dynWidget);
 
       if (!this.getTitle().isUnknown() && dynWidget instanceof BaseEntity)
       {
@@ -8827,13 +8886,7 @@
 
       if (pushScreenDefinitions && !frame.deleted)
       {
-         if (frameDef == null)
-         {
-            initScreenDefinition();
-         }
-
-         frameDef.addDeletedWidget(dynId);
-         pushScreenDefinition();
+         LogicalTerminal.deleteDynamicWidget(this, dynWidget);
       }
    }
 
@@ -10549,11 +10602,7 @@
    {
       if (headers != null)
       {
-         for (int i = 0; i < headers.length; i++)
-         {
-            frameBuf.putHeaderValue(headers[i].getWidget().getId(),
-                                    headers[i].get());
-         }
+         frameBuf.allocateHeaders(headers);
       }
 
       frameBuf.setCurrentStatement(currentStatement);
@@ -10839,7 +10888,7 @@
          }
       }
 
-      if (!frame.getAttr("hidden", () -> frame.config.hidden))
+      if (!frame.getAttr("hidden", () -> frame.config.hidden, true))
       {
          // make the frame visible
          frame.config.wasVisible = frame.config.visible;
@@ -10906,7 +10955,7 @@
       }
 
       // make the frame visible
-      frame.config.wasVisible = frame.getAttr("visible", () -> frame.config.visible);
+      frame.config.wasVisible = frame.getAttr("visible", () -> frame.config.visible, true);
       frame._setVisible(true);
       // set the hidden flag to OFF
       frame._setHidden(false);
@@ -11080,7 +11129,7 @@
     */
    private void displayUnlessHidden(FrameElement[] data, boolean windowClause, handle hWin)
    {
-      if (frame.getAttr("hidden", () -> frame.config.hidden))
+      if (frame.getAttr("hidden", () -> frame.config.hidden, true))
       {
          sendWidgetScreenValue(data);
          
@@ -11732,18 +11781,9 @@
 
       ConfigHelper.setModified(frame.config, true);
       
-      // set all widgets to changed
-      Iterator<Integer> iter = buff.getWidgetIDIterator();
-      ArrayList<Integer> ids = new ArrayList<Integer>();
-      
-      while (iter.hasNext()) 
-      {
-         Integer id = iter.next();
-         ids.add(id);
-         buff.setState(id, ScreenBuffer.CHANGED);
-      }
-      
-      LogicalTerminal.view(this, Utils.integerCollectionToPrimitive(ids));
+      // markAllChanged() will not return null, this is intentional since LT.view() treats that as "all
+      // widgets" instead of "no widgets"; so if there are no widgets the result will be a 0 sized array
+      LogicalTerminal.view(this, buff.markAllChanged());
    }
 
    /**
@@ -12569,7 +12609,7 @@
    @Override
    public void displayUnlessHiddenAndDown(FrameElement[] data)
    {
-      if (frame.getAttr("hidden", () -> frame.config.hidden))
+      if (frame.getAttr("hidden", () -> frame.config.hidden, true))
       {
          sendWidgetScreenValue(data);
          
@@ -12597,7 +12637,7 @@
     */
    public void displayUnlessHiddenAndDown()
    {
-      if (frame.getAttr("hidden", () -> frame.config.hidden))
+      if (frame.getAttr("hidden", () -> frame.config.hidden, true))
       {
          return;
       }
@@ -12654,7 +12694,7 @@
          }
 
          GenericWidget widget = el.getWidget();
-         if (!widget.getAttr("hidden", () -> widget.config.hidden))
+         if (!widget.getAttr("hidden", () -> widget.config.hidden, true))
          {
             el.getWidget().setScreenValue(el.get());
          }
@@ -12860,6 +12900,32 @@
    }
 
    /**
+    * Delete all field-groups created for this frame.
+    */
+   void deleteFieldGroups()
+   {
+      if (fieldGroup != null)
+      {
+         fieldGroup.delete();
+      }
+      
+      if (literalFieldGroup != null)
+      {
+         literalFieldGroup.delete();
+      }
+      
+      for (FieldGroup fg : rows2fg.values())
+      {
+         fg.delete();
+      }
+      
+      if (frame != null && frame.getBackground() != null)
+      {
+         frame.getBackground().delete();
+      }
+   }
+   
+   /**
     * This method prints field-groups of the frame and is needed only for debugging purposes.
     * 
     * Here is a sample output (each triplet group is for a distinct call):
@@ -12948,6 +13014,7 @@
          // the last iteration in recursy needs this to restore literal group to initial state
          if (literalFieldGroup != null)
          {
+            literalFieldGroup.forceDelete();
             literalFieldGroup = initLiteralFG();
          }
          return;
@@ -12997,7 +13064,15 @@
       {
          fg = tmpFg;
       }
-      rows2fg.put(nextRow, fg);
+      FieldGroup oldFg = rows2fg.put(nextRow, fg);
+      if (oldFg != null)
+      {
+         oldFg.delete();
+         if (oldFg == fieldGroup)
+         {
+            fieldGroup = fg;
+         }
+      }
       currentFieldGroup = fg;
       
       updateFieldGroups(lines, nextRow, down, --realstep);

=== modified file 'src/com/goldencode/p2j/ui/GenericWidget.java'
--- src/com/goldencode/p2j/ui/GenericWidget.java	2020-10-07 18:32:15 +0000
+++ src/com/goldencode/p2j/ui/GenericWidget.java	2020-12-05 02:01:57 +0000
@@ -2,9 +2,9 @@
 ** Module   : GenericWidget.java
 ** Abstract : common superclass for all server side widgets
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ----------------------------Description-----------------------------
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 NVS 20051026   @23492 Created initial version.
 ** 002 GES 20060114   @23910 Removed totally useless screen-value attr.
 ** 003 NVS 20060114   @24094 Implemented hide() and view() methods.
@@ -277,6 +277,31 @@
 **     HC  20201004          Performance optimizations of server-client config state
 **                           synchronization.
 **     AIL 20201007          Made setAttr satisfy constraints from child classes by using canPushWidgetAttr.
+**     HC  20201010          Implemented selective config flushing.
+**     HC  20201013          Server-pushed config field changes are serialized with field ids instead of
+**                           names.
+**     GES 20201012          Reworked putWidgetValue() to reduce calls.
+**     EVL 20201019          Optimized getId() call.
+**     EVL 20201021          More optimization for getAttr() usage or widget ID getting.
+**     EVL 20201022          Optimized attributes flush implementation.
+**     HC  20201024          Implemented SIDE-LABEL-HANDLE attribute.
+**     RFB 20201106          Added TextWidget to the list of dynamic widgets that can accept a label. #4873
+**     CA  20201117          Do not use resourceDelete to delete the widget - use the delete() API for this 
+**                           code.
+**     CA  20201126          In some cases of internal usage of an attribute, the widget must not be realized
+**                           (e.g. COMBO-BOX:LIST-ITEMS relies internally on ADD-FIRST, and it must not 
+**                           realize the widget).
+**     SVL 20210105          Removed pushScreenDefinition from restoreSharedState. It should be called
+**                           externally.
+**     CA  20210111          SCREEN-VALUE usage from converted code needs to be distinguished from internal
+**                           usage, within FWD code (see COMBO-BOX:LIST-ITEM-PAIRS behavior).
+**     VVT 20210115          Missing LegacyAttribute annotation(s) added. See #5064.
+**     CA  20210123          getScreenValue must return an empty string for an unknown DATE, DATETIME or 
+**                           DATETIME-TZ, and unknown value otherwise.
+**     CA  20210128          Fixed a regression related to RADIO-BOX and SELECTION-LIST - these must not check
+**                           the FORMAT, as they do not manage it.
+**     OM  20201030          Invalid attribute API support for getters/setters.
+**     OM  20201203          Fixed handling of READ/ONLY attributes.
 */
 
 /*
@@ -338,7 +363,6 @@
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.util.*;
 
-import java.math.*;
 import java.util.*;
 import java.util.function.*;
 
@@ -365,6 +389,15 @@
    /** Flag indicating the resource was deleted. */
    protected boolean deleted = false;
 
+   /** Flag indicating if the widget must be realized on attribute access. */
+   protected boolean realizeOnAttributeAccess = true;
+
+   /** 
+    * Flag indicating if the {@link #setScreenValue} is being called from the converted code or from within 
+    * FWD. 
+    */
+   protected boolean internalScreenValueUsage = true;
+
    /** The validation expression to use to test proposed edits for this widget. */
    private ValidationExpr valexp = null;
    
@@ -426,9 +459,16 @@
    /** When {@code true} config field changes batching is disabled. */
    private static boolean configBatchingDisabled = false;
 
+   /** When {@code true} selective config flushing is disabled. */
+   private static boolean selectiveConfigFlushDisabled = false;
+
+   /** The cached config definition for the widget's config */
+   private WidgetConfigDef configDef;
+
    static
    {
       configBatchingDisabled = System.getProperty("config.batching.disabled") != null;
+      selectiveConfigFlushDisabled = System.getProperty("selective.config.flush.disabled") != null;
    }
 
    /**
@@ -660,7 +700,8 @@
    @Override
    public int getId()
    {
-      return getAttr("id ", () -> config.id )== null ? -1 : getAttr("id", () -> config.id).asInt();
+      // generic ID getter for server driven constant ID
+      return config == null || config.id == null ? -1 : config.id.asInt();
    }
 
    /**
@@ -674,7 +715,7 @@
    public void setId(int id)
    {
       // TODO: for now, ID's are not allowed to be set if the widget's ID is already set
-      if (getAttr("id ", () -> config.id )!= null)
+      if (getId() != -1)
       {
          return;
       }
@@ -773,7 +814,7 @@
     */
    public logical isAutoReturn()
    {
-      handle.invalidAttribute("AUTO-RETURN", asWidgetHandle());
+      handle.invalidAttribute("AUTO-RETURN", asWidgetHandle(), false);
       return new logical();
    }
 
@@ -942,7 +983,7 @@
    @Override
    public character getColumnLabel()
    {
-      invalidAttribute("COLUMN-LABEL");
+      invalidAttribute("COLUMN-LABEL", false);
       return new character();
    }
 
@@ -1133,7 +1174,7 @@
     */
    public String _getFormat()
    {
-      return config.getDynamicFormat();
+      return hasFormat() ? config.getDynamicFormat() : null;
    }
 
    /**
@@ -1330,7 +1371,7 @@
     */
    public boolean _isHidden() 
    {
-      return getAttr("hidden", () -> config.hidden);
+      return getAttr("hidden", () -> config.hidden, true);
    }
 
    /**
@@ -1361,7 +1402,8 @@
       }
 
       // check if the parent frame is set and not visible
-      if (!getAttr("realized", () -> config.realized) && (frame == null || !frame.getFrameWidget()._isVisible()))
+      if (!getAttr("realized", () -> config.realized, true) &&
+          (frame == null || !frame.getFrameWidget()._isVisible()))
       {
          config.hidden = hidden;
 
@@ -1464,37 +1506,10 @@
    @Override
    public void setLabel(String label)
    {
-      // TODO: Some refactoring is required here to avoid instance check and class casting
-      //       the code below is not very good from the architecture perspective. Ideally we need
-      //       to provide some protected method here allowing the particular widget to override it
-      //       and perform widget specific actions, for example ButtonWidget or ToggleBox
-      //       in this case.
-
-      // dynamic widgets can not accept labels, except BUTTON and TOGGLE-BX, BROWSE-COLUMN
-      if (_dynamic() &&
-          !(this instanceof ButtonWidget)    &&
-          !(this instanceof ToggleBoxWidget) &&
-          !(this instanceof BrowseColumnWidget))
+      if (validateLabelAssignment())
       {
-         if (this instanceof FrameWidget)
-         {
-            // form the message and display it
-            ErrorManager.displayError(4052, "LABEL is not a settable attribute for FRAME widget");
-         }
-         else
-         {
-            StringBuilder err = new StringBuilder();
-            // form the message
-            err.append("Unable to set LABEL because no LABEL-HANDLE on the ")
-               .append(type())
-               .append(" widget");
-            // and display it
-            ErrorManager.displayError(4072, err.toString());
-         }
-         return;
+         setLabelInt(label);
       }
-
-      setLabelInt(label);
    }
 
    /**
@@ -1554,7 +1569,7 @@
    @Override
    public logical isModified()
    {
-      return new logical(getAttr("modified", () -> config.modified));
+      return new logical(getAttr("modified", () -> config.modified, true));
    }
    
    /**
@@ -2033,7 +2048,7 @@
    @Override
    public logical isSensitive()
    {
-      return new logical(getAttr("enabled", () -> config.enabled));
+      return new logical(getAttr("enabled", () -> config.enabled, true));
    }
 
    /**
@@ -2095,7 +2110,7 @@
       }
       
       if (!frameLock     &&
-          getAttr("visible", () -> config.visible) &&
+          getAttr("visible", () -> config.visible, true) &&
           frame != null  && 
           frame.getFrameWidget().allFramesVisible())
       {
@@ -2454,7 +2469,7 @@
     */
    public boolean _isVisible()
    {
-      return getAttr("visible", () -> config.visible);
+      return getAttr("visible", () -> config.visible, true);
    }
    
    /**
@@ -3156,19 +3171,29 @@
     *           the value as uninitialized.
     */
    @Override
-   public void setScreenValue(character value)   
+   public final void setScreenValue(character value)
    {
-      // EDITOR/SELECTION-LIST/TOGGLE-BOX: setter changes the MODIFIED to TRUE, even if the
-      // value doesn't change
+      boolean old = internalScreenValueUsage;
+      internalScreenValueUsage = false;
+      try
+      {
+         setScreenValueInt(value);
+      }
+      finally
+      {
+         internalScreenValueUsage = old;
+      }
+   }
 
-      if (frame != null)
-      {
-         frame.setScreenValue(this, value);
-      }
-      else
-      {
-         pendingScreenValue = (character) value.duplicate();
-      }
+   /**
+    * Sets the SCREEN-VALUE writable attribute.
+    *
+    * @param    screenValue
+    *           The new value for the SCREEN-VALUE attribute.
+    */
+   public final void setScreenValue(String screenValue)
+   {
+      setScreenValue(new character(screenValue));
    }
    
    /**
@@ -3194,9 +3219,7 @@
       
       if (bdt.isUnknown())
       {
-         character chRet = new character(bdt.getClass().isAssignableFrom(date.class) ? "" : "?");
-         chRet.setUnknown();
-         return chRet;
+         return bdt.getClass().isAssignableFrom(date.class) ? new character("") : new character();
       }
       
       // format the value
@@ -3226,10 +3249,9 @@
    {
       int widgetID = getId();
       
-      if (frameBuf.isIdValid(widgetID))
+      if (frameBuf.putWidgetValue(widgetID, value))
       {
-         frameBuf.putWidgetValue(widgetID, value);
-         config.modified = true;
+         config.modified = !internalScreenValueUsage;
       }
       
       return true;
@@ -3362,18 +3384,34 @@
    }
    
    /**
-    * API needed to implement read-only attribute assignment (a 4GL 
-    * "feature").
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
     * 
     * @param    attribute
     *           The attribute's name.
     */
    @Override
+   @Deprecated
    public void readOnlyError(String attribute)
    {
-      handle.readOnlyError(asWidgetHandle(), attribute);
-   }
-
+      handle.readOnlyError(asWidgetHandle(), attribute, handle.UNKNOWN_ARGUMENT);
+   }
+   
+   /**
+    * Shows a specific error, as this read-only {@code attribute} was used on the right-side of an assignment.
+    * If the {@code expr} is evaluated to {@code ?} (unknown value) and this attribute does not support it,
+    * a specific error is raised.
+    *
+    * @param    attribute
+    *           The read-only attribute.
+    * @param    expr
+    *           The expression whose value was attempted to be assigned to READ-ONLY attribute.
+    */
+   @Override
+   public void readOnlyError(String attribute, Object expr)
+   {
+      handle.readOnlyError(asWidgetHandle(), attribute, expr);
+   }
+   
    /**
     * Gets the integer value of the window containing the widget.
     * 
@@ -3816,7 +3854,7 @@
    @Override
    public void openPopup()
    {
-      if (getAttr("popupMenuId ", () -> config.popupMenuId )!= -1)
+      if (getAttr("popupMenuId", () -> config.popupMenuId )!= -1)
       {
          LogicalTerminal.getClient().openPopup(getId());
       }
@@ -3994,7 +4032,7 @@
     */
    public boolean _isRealized()
    {
-      return getAttr("realized", () -> config.realized);
+      return getAttr("realized", () -> config.realized, true);
    }
 
    /**
@@ -4073,7 +4111,7 @@
    @Override
    public void setContextHelpId(int id)
    {
-      if (getAttr("contextHelpId ", () -> config.contextHelpId )== id)
+      if (getAttr("contextHelpId", () -> config.contextHelpId )== id)
       {
          return;
       }
@@ -4523,6 +4561,7 @@
     * 
     * @return  TRANSPARENT current value.
     */
+   @LegacyAttribute(name = "TRANSPARENT", ignore = true)
    @Override
    public logical getTransparent()
    {
@@ -4536,6 +4575,7 @@
     * @param   flag
     *          New value for the attribute.
     */
+   @LegacyAttribute(name = "TRANSPARENT", setter = true, ignore = true)
    @Override
    public void setTransparent(boolean flag)
    {
@@ -4548,6 +4588,7 @@
     * @param   flag
     *          New value for the attribute.
     */
+   @LegacyAttribute(name = "TRANSPARENT", setter = true, ignore = true)
    @Override
    public void setTransparent(logical flag)
    {
@@ -4560,6 +4601,7 @@
     * @param    r
     *           <code>true</code> if the widget should be write-protected.
     */
+   @LegacyAttribute(name = "READ-ONLY", setter = true, ignore = true)
    @Override
    public void setReadOnly(boolean r)
    {
@@ -4572,6 +4614,7 @@
     * @param    r
     *           <code>true</code> if the widget should be write-protected.
     */
+   @LegacyAttribute(name = "READ-ONLY", setter = true, ignore = true)
    @Override
    public void setReadOnly(logical r)
    {
@@ -4583,6 +4626,7 @@
     * 
     * @return  STRETCH-TO-FIT current value.
     */
+   @LegacyAttribute(name = "STRETCH-TO-FIT", ignore = true)
    @Override
    public logical getStretchToFit()
    {
@@ -4596,6 +4640,7 @@
     * @param   flag
     *          New value for the attribute.
     */
+   @LegacyAttribute(name = "STRETCH-TO-FIT", setter = true, ignore = true)
    @Override
    public void setStretchToFit(boolean flag)
    {
@@ -4608,6 +4653,7 @@
     * @param   flag
     *          New value for the attribute.
     */
+   @LegacyAttribute(name = "STRETCH-TO-FIT", setter = true, ignore = true)
    @Override
    public void setStretchToFit(logical flag)
    {
@@ -4619,6 +4665,7 @@
     * 
     * @return  RETAIN-SHAPE current value.
     */
+   @LegacyAttribute(name = "RETAIN-SHAPE", ignore = true)
    @Override
    public logical getRetainShape()
    {
@@ -4632,6 +4679,7 @@
     * @param   flag
     *          New value for the attribute.
     */
+   @LegacyAttribute(name = "RETAIN-SHAPE", setter = true, ignore = true)
    @Override
    public void setRetainShape(boolean flag)
    {
@@ -4644,6 +4692,7 @@
     * @param   flag
     *          New value for the attribute.
     */
+   @LegacyAttribute(name = "RETAIN-SHAPE", setter = true, ignore = true)
    @Override
    public void setRetainShape(logical flag)
    {
@@ -4658,6 +4707,7 @@
     *          
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE", ignore = true)
    @Override
    public boolean loadImage(String name)
    {
@@ -4677,6 +4727,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE", ignore = true)
    @Override
    public boolean loadImage(String name, long xOffset)
    {
@@ -4698,6 +4749,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE", ignore = true)
    @Override
    public boolean loadImage(String name, long xOffset, long yOffset)
    {
@@ -4721,6 +4773,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE", ignore = true)
    @Override
    public boolean loadImage(String name, long xOffset, long yOffset, long width)
    {
@@ -4746,6 +4799,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE", ignore = true)
    @Override
    public boolean loadImage(String name, long xOffset, long yOffset, long width, long height)
    {
@@ -4761,6 +4815,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE", ignore = true)
    @Override
    public logical loadImage(character name)
    {
@@ -4780,6 +4835,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE", ignore = true)
    @Override
    public logical loadImage(character name, int64 xOffset)
    {
@@ -4801,6 +4857,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE", ignore = true)
    @Override
    public logical loadImage(character name, int64 xOffset, int64 yOffset)
    {
@@ -4824,6 +4881,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE", ignore = true)
    @Override
    public logical loadImage(character name, int64 xOffset, int64 yOffset, int64 width)
    {
@@ -4849,6 +4907,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE", ignore = true)
    @Override
    public logical loadImage(character name, int64 xOffset, int64 yOffset, int64 width, int64 height)
    {
@@ -4861,6 +4920,7 @@
     * 
     * @return  CONVERT-3D-COLORS current value.
     */
+   @LegacyAttribute(name = "CONVERT-3D-COLORS", ignore = true)
    @Override
    public logical getConvert3D()
    {
@@ -4874,6 +4934,7 @@
     * @param   flag
     *          New value for the option.
     */
+   @LegacyAttribute(name = "CONVERT-3D-COLORS", setter = true, ignore = true)
    @Override
    public void setConvert3D(boolean flag)
    {
@@ -4886,6 +4947,7 @@
     * @param   flag
     *          New value for the option.
     */
+   @LegacyAttribute(name = "CONVERT-3D-COLORS", setter = true, ignore = true)
    @Override
    public void setConvert3D(logical flag)
    {
@@ -4929,7 +4991,24 @@
     */
    public <T> T getAttr(String fname, Supplier<T> getter)
    {
-      if (!configBatchingDisabled)
+      return getAttr(fname, getter, false);
+   }
+
+   /**
+    * Returns config field value.
+    *
+    * @param   fname
+    *          Config field name.
+    * @param   getter
+    *          Supplier responsible for retrieving the field value from the corresponding config instance.
+    * @param   flush
+    *          Flag to make attribute flush before calling the getter.
+    *
+    * @return  Config field value.
+    */
+   public <T> T getAttr(String fname, Supplier<T> getter, boolean flush)
+   {
+      if (!configBatchingDisabled && flush)
       {
          getLogicalTerminal().flushEnqueuedWidgetAttrs();
       }
@@ -4949,7 +5028,24 @@
     */
    public boolean getAttr(String fname, BooleanSupplier getter)
    {
-      if (!configBatchingDisabled)
+      return getAttr(fname, getter, false);
+   }
+
+   /**
+    * Returns config field value.
+    *
+    * @param   fname
+    *          Config field name.
+    * @param   getter
+    *          Supplier responsible for retrieving the field value from the corresponding config instance.
+    * @param   flush
+    *          Flag to make attribute flush before calling the getter.
+    *
+    * @return  Config field value.
+    */
+   public boolean getAttr(String fname, BooleanSupplier getter, boolean flush)
+   {
+      if (!configBatchingDisabled && flush)
       {
          getLogicalTerminal().flushEnqueuedWidgetAttrs();
       }
@@ -4969,7 +5065,24 @@
     */
    public char getAttr(String fname, CharSupplier getter)
    {
-      if (!configBatchingDisabled)
+      return getAttr(fname, getter, false);
+   }
+
+   /**
+    * Returns config field value.
+    *
+    * @param   fname
+    *          Config field name.
+    * @param   getter
+    *          Supplier responsible for retrieving the field value from the corresponding config instance.
+    * @param   flush
+    *          Flag to make attribute flush before calling the getter.
+    *
+    * @return  Config field value.
+    */
+   public char getAttr(String fname, CharSupplier getter, boolean flush)
+   {
+      if (!configBatchingDisabled && flush)
       {
          getLogicalTerminal().flushEnqueuedWidgetAttrs();
       }
@@ -4989,7 +5102,24 @@
     */
    public int getAttr(String fname, IntSupplier getter)
    {
-      if (!configBatchingDisabled)
+      return getAttr(fname, getter, false);
+   }
+
+   /**
+    * Returns config field value.
+    *
+    * @param   fname
+    *          Config field name.
+    * @param   getter
+    *          Supplier responsible for retrieving the field value from the corresponding config instance.
+    * @param   flush
+    *          Flag to make attribute flush before calling the getter.
+    *
+    * @return  Config field value.
+    */
+   public int getAttr(String fname, IntSupplier getter, boolean flush)
+   {
+      if (!configBatchingDisabled && flush)
       {
          getLogicalTerminal().flushEnqueuedWidgetAttrs();
       }
@@ -5009,7 +5139,24 @@
     */
    public long getAttr(String fname, LongSupplier getter)
    {
-      if (!configBatchingDisabled)
+      return getAttr(fname, getter, false);
+   }
+
+   /**
+    * Returns config field value.
+    *
+    * @param   fname
+    *          Config field name.
+    * @param   getter
+    *          Supplier responsible for retrieving the field value from the corresponding config instance.
+    * @param   flush
+    *          Flag to make attribute flush before calling the getter.
+    *
+    * @return  Config field value.
+    */
+   public long getAttr(String fname, LongSupplier getter, boolean flush)
+   {
+      if (!configBatchingDisabled && flush)
       {
          getLogicalTerminal().flushEnqueuedWidgetAttrs();
       }
@@ -5029,7 +5176,24 @@
     */
    public double getAttr(String fname, DoubleSupplier getter)
    {
-      if (!configBatchingDisabled)
+      return getAttr(fname, getter, false);
+   }
+
+   /**
+    * Returns config field value.
+    *
+    * @param   fname
+    *          Config field name.
+    * @param   getter
+    *          Supplier responsible for retrieving the field value from the corresponding config instance.
+    * @param   flush
+    *          Flag to make attribute flush before calling the getter.
+    *
+    * @return  Config field value.
+    */
+   public double getAttr(String fname, DoubleSupplier getter, boolean flush)
+   {
+      if (!configBatchingDisabled && flush)
       {
          getLogicalTerminal().flushEnqueuedWidgetAttrs();
       }
@@ -5065,7 +5229,7 @@
 
       if (!configBatchingDisabled)
       {
-         getLogicalTerminal().enqueuWidgetAttr(config.id.asInt(), fname, newValue);
+         enqueuWidgetAttr(config.id.asInt(), fname, newValue);
       }
       else
       {
@@ -5101,7 +5265,7 @@
 
       if (!configBatchingDisabled)
       {
-         getLogicalTerminal().enqueuWidgetAttr(config.id.asInt(), fname, newValue);
+         enqueuWidgetAttr(config.id.asInt(), fname, newValue);
       }
       else
       {
@@ -5137,7 +5301,7 @@
 
       if (!configBatchingDisabled)
       {
-         getLogicalTerminal().enqueuWidgetAttr(config.id.asInt(), fname, newValue);
+         enqueuWidgetAttr(config.id.asInt(), fname, newValue);
       }
       else
       {
@@ -5173,7 +5337,7 @@
 
       if (!configBatchingDisabled)
       {
-         getLogicalTerminal().enqueuWidgetAttr(config.id.asInt(), fname, newValue);
+         enqueuWidgetAttr(config.id.asInt(), fname, newValue);
       }
       else
       {
@@ -5209,7 +5373,7 @@
 
       if (!configBatchingDisabled)
       {
-         getLogicalTerminal().enqueuWidgetAttr(config.id.asInt(), fname, newValue);
+         enqueuWidgetAttr(config.id.asInt(), fname, newValue);
       }
       else
       {
@@ -5245,7 +5409,7 @@
 
       if (!configBatchingDisabled)
       {
-         getLogicalTerminal().enqueuWidgetAttr(config.id.asInt(), fname, newValue);
+         enqueuWidgetAttr(config.id.asInt(), fname, newValue);
       }
       else
       {
@@ -5281,7 +5445,7 @@
 
       if (!configBatchingDisabled)
       {
-         getLogicalTerminal().enqueuWidgetAttr(config.id.asInt(), fname, newValue);
+         enqueuWidgetAttr(config.id.asInt(), fname, newValue);
       }
       else
       {
@@ -5317,7 +5481,7 @@
 
       if (!configBatchingDisabled)
       {
-         getLogicalTerminal().enqueuWidgetAttr(config.id.asInt(), fname, newValue);
+         enqueuWidgetAttr(config.id.asInt(), fname, newValue);
       }
       else
       {
@@ -5363,7 +5527,7 @@
 
       if (!configBatchingDisabled)
       {
-         getLogicalTerminal().enqueuWidgetAttr(config.id.asInt(), fname, value);
+         enqueuWidgetAttr(config.id.asInt(), fname, value);
       }
       else
       {
@@ -5391,10 +5555,9 @@
 
       if (!configBatchingDisabled)
       {
-         LogicalTerminal lt = getLogicalTerminal();
          for (int i = 0; i < values.length; i++)
          {
-            lt.enqueuWidgetAttr(config.id.asInt(), fnames[i], values[i]);
+            enqueuWidgetAttr(config.id.asInt(), fnames[i], values[i]);
          }
       }
       else
@@ -5433,12 +5596,14 @@
    
    /**
     * Restore the shared state for this widget: HELP and VALEXP.
+    *
+    * @return <code>true</code> if the shared state has been restored.
     */
-   void restoreSharedState()
+   boolean restoreSharedState()
    {
       if (!sharedStateSaved)
       {
-         return;
+         return false;
       }
       
       sharedStateSaved = false;
@@ -5450,14 +5615,14 @@
       valexp = saveValexp;
       valmsg = saveValmsg;
       
-      pushScreenDefinition();
-      
       saveIsDefaultHelp = false;
       saveDefaultHelp = null;
       saveConfigHelp = null;
       
       saveValexp = null;
       saveValmsg = null;
+
+      return true;
    }
    
    /**
@@ -5571,6 +5736,26 @@
          return false;
       }
       
+      return true;
+   }
+   
+   /**
+    * Perform actual delete of an resource. At the time of this call, it is assumed the resource
+    * is valid for deletion (the handle and the resource are both valid).
+    * <p>
+    * The method first calls {@link #resourceDelete()}, if the method returns {@code false}, the deletion
+    * is aborted.
+    */
+   @Override
+   public void delete()
+   {
+      if (!resourceDelete())
+      {
+         return;
+      }
+      
+      super.delete();
+
       // removing dynamic widget from associated frame
       if (_dynamic())
       {
@@ -5583,13 +5768,16 @@
             LogicalTerminal.deregisterWidget(getId());
          }
       }
+      // else: detach it
+      else
+      {
+         LogicalTerminal.deregisterWidget(getId());
+      }
       
       // remove the config for this widget
-      ConfigManager.getInstance().removeWidgetConfig(getAttr("id", () -> config.id));
+      ConfigManager.getInstance().removeWidgetConfig(config.id);
       
       deleted = true;
-      
-      return true;
    }
    
    /**
@@ -5648,7 +5836,7 @@
    @Override
    public void realize()
    {
-      if (getAttr("wasRealized", () -> config.wasRealized))
+      if (getAttr("wasRealized", () -> config.wasRealized, true))
       {
          return;
       }
@@ -5764,8 +5952,15 @@
     */
    protected boolean canAccess(String attr)
    {
-      realize();
-      if (!getAttr("wasRealized", () -> config.wasRealized))
+      if (realizeOnAttributeAccess)
+      {
+         realize();
+      }
+      else
+      {
+         return true;
+      }
+      if (!getAttr("wasRealized", () -> config.wasRealized, true))
       {
          ErrorManager.recordOrShowError(4104, 
                String.format(
@@ -5943,8 +6138,8 @@
     */
    protected boolean moveToWorker(boolean top)
    {
-      Boolean btop = top ? LogicalTerminal.moveToTop(getAttr("id", () -> config.id).asInt())
-                         : LogicalTerminal.moveToBottom(getAttr("id", () -> config.id).asInt());
+      int wid = getId();
+      Boolean btop = top ? LogicalTerminal.moveToTop(wid) : LogicalTerminal.moveToBottom(wid);
       
       if (btop != null && btop.booleanValue())
       {
@@ -5982,6 +6177,48 @@
    }
 
    /**
+    * Implements legacy validations performed at side-label assignment.
+    *
+    * @return  {@code true} if the validation succeeds.
+    */
+   protected boolean validateLabelAssignment()
+   {
+      // TODO: Some refactoring is required here to avoid instance check and class casting
+      //       the code below is not very good from the architecture perspective. Ideally we need
+      //       to provide some protected method here allowing the particular widget to override it
+      //       and perform widget specific actions, for example ButtonWidget or ToggleBox
+      //       in this case.
+
+      // dynamic widgets can not accept labels, except BUTTON, TOGGLE-BX, BROWSE-COLUMN, FILL-IN and TEXT
+      if (_dynamic() &&
+         !(this instanceof ButtonWidget)    &&
+         !(this instanceof ToggleBoxWidget) &&
+         !(this instanceof BrowseColumnWidget) &&
+         !(this instanceof FillInWidget) &&
+         !(this instanceof TextWidget))
+      {
+         if (this instanceof FrameWidget)
+         {
+            // form the message and display it
+            ErrorManager.displayError(4052, "LABEL is not a settable attribute for FRAME widget");
+         }
+         else
+         {
+            StringBuilder err = new StringBuilder();
+            // form the message
+            err.append("Unable to set LABEL because no LABEL-HANDLE on the ")
+               .append(type())
+               .append(" widget");
+            // and display it
+            ErrorManager.displayError(4072, err.toString());
+         }
+         return false;
+      }
+
+      return true;
+   }
+
+   /**
     * Sets the label text.
     * 
     * @param    label
@@ -6031,8 +6268,52 @@
    {
       return !(deleted || frame == null || frame.isInsideSetup());
    }
+
+   /**
+    * Set the current value in the screen buffer of the backing data for
+    * this widget.  If the given value is <code>null</code> then this
+    * widget will be set to the uninitialized value.
+    *
+    * @param    value
+    *           The new value for the widget, use <code>null</code> to set
+    *           the value as uninitialized.
+    */
+   protected void setScreenValueInt(character value)
+   {
+      // EDITOR/SELECTION-LIST/TOGGLE-BOX: setter changes the MODIFIED to TRUE, even if the
+      // value doesn't change
+
+      if (frame != null)
+      {
+         frame.setScreenValue(this, value);
+      }
+      else
+      {
+         pendingScreenValue = (character) value.duplicate();
+      }
+   }
    
    /**
+    * Enqueues widget attribute assignment.
+    *
+    * @param   widgetId
+    *          Widget id.
+    * @param   fname
+    *          Field name.
+    * @param   value
+    *          New value.
+    */
+   private void enqueuWidgetAttr(int widgetId, String fname, Object value)
+   {
+      if (this.configDef == null)
+      {
+         configDef = ConfigManager.getInstance().getConfigDef(config.getClass());
+      }
+
+      getLogicalTerminal().enqueuWidgetAttr(widgetId, fname, configDef.fieldIds.get(fname), value);
+   }
+
+   /**
     * Processes validation rules, error checking and any other user-defined constraint processing
     * that needs to be applied.  This is used to check if a proposed update to an object will
     * pass validation. If the method silently returns then all tests have passed, otherwise an

=== modified file 'src/com/goldencode/p2j/ui/GuiCellAttributes.java'
--- src/com/goldencode/p2j/ui/GuiCellAttributes.java	2020-09-17 11:46:00 +0000
+++ src/com/goldencode/p2j/ui/GuiCellAttributes.java	2020-11-19 21:19:17 +0000
@@ -7,6 +7,7 @@
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 SVL 20170814 Initial version.
 ** 002 IAS 20200914 Re-work (de)serialization
+**     SVL 20201119 Added FONT attribute.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -78,6 +79,9 @@
    /** FGCOLOR attribute. */
    public Integer fgColor = null;
 
+   /** FONT attribute. */
+   public Integer font = null;
+
    /** Default constructor */
    public GuiCellAttributes()
    {
@@ -98,6 +102,7 @@
    {
       writeInteger(out, bgColor);
       writeInteger(out, fgColor);
+      writeInteger(out, font);
    }
 
    /**
@@ -116,5 +121,6 @@
    {
       bgColor = readInteger(in);
       fgColor = readInteger(in);
+      font    = readInteger(in);
    }
 }

=== modified file 'src/com/goldencode/p2j/ui/HtmlBrowserWidget.java'
--- src/com/goldencode/p2j/ui/HtmlBrowserWidget.java	2020-09-28 02:06:35 +0000
+++ src/com/goldencode/p2j/ui/HtmlBrowserWidget.java	2020-10-21 23:01:05 +0000
@@ -10,6 +10,7 @@
 ** 003 CA  20200304 BeforeNavigate2 event is optional.
 ** 004 HC  20200326 Added required method overload for openWebPage and removed openWebPage
 **                  overloads with raw Java parameter types.
+** 005 EVL 20201021 More optimization for getAttr() usage or widget ID getting.
 */
 
 /*
@@ -115,9 +116,9 @@
    };
    
    /**
-    * Default constructor. * @author ca
- *
-
+    * Default constructor.
+    *
+    * @author ca
     */
    public HtmlBrowserWidget()
    {
@@ -202,8 +203,8 @@
    @Override
    public character getResourceBase()
    {
-      return getAttr("resourceBase", () -> config.resourceBase) == null ? new character() :
-         new character(getAttr("resourceBase", () -> config.resourceBase).toString());
+      return getAttr("resourceBase", () -> (config.resourceBase == null ? new character() :
+                                            new character(config.resourceBase.toString())));
    }
 
    /**

=== modified file 'src/com/goldencode/p2j/ui/ImageWidget.java'
--- src/com/goldencode/p2j/ui/ImageWidget.java	2020-09-28 02:06:35 +0000
+++ src/com/goldencode/p2j/ui/ImageWidget.java	2021-01-15 20:55:46 +0000
@@ -24,6 +24,7 @@
 ** 012 CA  20180313 Added getters for BUTTON image related attributes.
 ** 013 SBI 20180705 Changed loadImageInt in order to clear the current image if an unknown image
 **                  is loaded via LOAD-IMAGE(?).
+** 014 VVT 20210115 Missing LegacyAttribute annotation(s) added. See #5064.
 */ 
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -163,6 +164,7 @@
     * @param   flag
     *          New value for the option.
     */
+   @LegacyAttribute(name = "CONVERT-3D-COLORS", setter = true)
    @Override
    public void setConvert3D(boolean flag)
    {
@@ -180,6 +182,7 @@
     * @param   flag
     *          New value for the option.
     */
+   @LegacyAttribute(name = "CONVERT-3D-COLORS", setter = true)
    @Override
    public void setConvert3D(logical flag)
    {
@@ -194,6 +197,7 @@
     * 
     * @return  CONVERT-3D-COLORS current value.
     */
+   @LegacyAttribute(name = "CONVERT-3D-COLORS")
    @Override
    public logical getConvert3D()
    {
@@ -206,6 +210,7 @@
     * @param   flag
     *          New value for the option.
     */
+   @LegacyAttribute(name = "TRANSPARENT", setter = true)
    @Override
    public void setTransparent(boolean flag)
    {
@@ -223,6 +228,7 @@
     * @param   flag
     *          New value for the option.
     */
+   @LegacyAttribute(name = "TRANSPARENT", setter = true)
    @Override
    public void setTransparent(logical flag)
    {
@@ -237,6 +243,7 @@
     * 
     * @return  TRANSPARENT current value.
     */
+   @LegacyAttribute(name = "TRANSPARENT")
    @Override
    public logical getTransparent()
    {
@@ -249,6 +256,7 @@
     * @param   flag
     *          New value for the option.
     */
+   @LegacyAttribute(name = "STRETCH-TO-FIT", setter = true)
    @Override
    public void setStretchToFit(boolean flag)
    {
@@ -266,6 +274,7 @@
     * @param   flag
     *          New value for the option.
     */
+   @LegacyAttribute(name = "STRETCH-TO-FIT", setter = true)
    @Override
    public void setStretchToFit(logical flag)
    {
@@ -280,6 +289,7 @@
     * 
     * @return  STRETCH-TO-FIT current value.
     */
+   @LegacyAttribute(name = "STRETCH-TO-FIT")
    @Override
    public logical getStretchToFit()
    {
@@ -292,6 +302,7 @@
     * @param   flag
     *          New value for the option.
     */
+   @LegacyAttribute(name = "RETAIN-SHAPE", setter = true)
    @Override
    public void setRetainShape(boolean flag)
    {
@@ -309,6 +320,7 @@
     * @param   flag
     *          New value for the option.
     */
+   @LegacyAttribute(name = "RETAIN-SHAPE", setter = true)
    @Override
    public void setRetainShape(logical flag)
    {
@@ -323,6 +335,7 @@
     * 
     * @return  RETAIN-SHAPE current value.
     */
+   @LegacyAttribute(name = "RETAIN-SHAPE")
    @Override
    public logical getRetainShape()
    {
@@ -437,6 +450,7 @@
     *          
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public boolean loadImage(String name)
    {
@@ -455,6 +469,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public boolean loadImage(String name, long xOffset)
    {
@@ -475,6 +490,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public boolean loadImage(String name, long xOffset, long yOffset)
    {
@@ -501,6 +517,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public boolean loadImage(String name, long xOffset, long yOffset, long width)
    {
@@ -529,6 +546,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public boolean loadImage(String name, long xOffset, long yOffset, long width, long height)
    {
@@ -547,6 +565,7 @@
     *          
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public logical loadImage(character name)
    {
@@ -565,6 +584,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public logical loadImage(character name, int64 xOffset)
    {
@@ -585,6 +605,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public logical loadImage(character name, int64 xOffset, int64 yOffset)
    {
@@ -607,6 +628,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public logical loadImage(character name, int64 xOffset, int64 yOffset, int64 width)
    {
@@ -631,6 +653,7 @@
     *
     * @return  <code>true</code> if operation was successful.
     */
+   @LegacyMethod(name = "LOAD-IMAGE")
    @Override
    public logical loadImage(character name, int64 xOffset, int64 yOffset, int64 width, int64 height)
    {

=== modified file 'src/com/goldencode/p2j/ui/Keyboard.java'
--- src/com/goldencode/p2j/ui/Keyboard.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/Keyboard.java	2021-01-27 17:05:13 +0000
@@ -2,7 +2,7 @@
 ** Module   : Keyboard.java
 ** Abstract : A collection of keyboard event mapping methods.
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- ---------------------------Description----------------------------
 ** 001 NVS 20051201   @23590 Created initial version.
@@ -110,6 +110,15 @@
 ** 061 SBI 20200619          Changed NODECLICK, BEFORELABELEDIT, AFTERLABELEDIT to be according with FWD
 **                           widget events naming convention.
 **     HC  20200726          Initial implementation of SPREADSHEET widget and related changes.
+**     CA  20201011          Improved findKey and findKeyEnd performance.
+**     CA  20210118          Added SCROLL-NOTIFY event and SE_ROW_DISPLAY.
+**     CA  20210120          Added registeredEventName, used during parsing to check the event names with the
+**                           FWD runtime.
+**     CA  20210120          Fixed keyCode(String) when the label is prefixed with a modifier and the actual
+**                           label is an 'altLabel'.
+**     CA  20210121          Added OFF-END, OFF-HOME, DESELECT and PARENT-WINDOW-CLOSE.  No runtime exists for 
+**                           them at this time.
+**     CA  20210127          Fixed key-code to detect extended labels.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -591,6 +600,13 @@
    public static final String START_EDIT            = "START-EDIT";
    public static final String TOP_LEFT_CHANGED      = "TOP-LEFT-CHANGED";
 
+   // other event names
+   public static final String SCROLL_NOTIFY       = "SCROLL-NOTIFY";
+   public static final String OFF_END             = "OFF-END";
+   public static final String OFF_HOME            = "OFF-HOME";
+   public static final String DESELECT            = "DESELECT";
+   public static final String PARENT_WINDOW_CLOSE = "PARENT-WINDOW-CLOSE";
+   
    /** Event/action names. */
    private static String[] evNames1 = new String[] 
    {
@@ -638,8 +654,10 @@
       TOP_LEFT_CHANGED   , MOUSE_CLICK       , MOUSE_UP           ,
       MOUSE_DOWN         , MOUSE_MOVE        , OLE_COMPLETE_DRAG  ,
       OLE_DRAG_DROP      , OLE_DRAG_OVER     , OLE_GIVE_FEEDBACK  ,
-      OLE_SET_DATA       , OLE_START_DRAG    , NODE_CLICK,
-      NODE_BEFORE_EDIT   , NODE_AFTER_EDIT
+      OLE_SET_DATA       , OLE_START_DRAG    , NODE_CLICK         ,
+      NODE_BEFORE_EDIT   , NODE_AFTER_EDIT   , SCROLL_NOTIFY      ,
+      PARENT_WINDOW_CLOSE, OFF_END           , OFF_HOME           ,
+      DESELECT
    };
 
    /** Starting point for key action codes. */
@@ -779,6 +797,9 @@
 
    /** synthetic event code */
    public static final int SE_PREV_FRAME = eventCode(PREV_FRAME);
+   
+   /** synthetic event code */
+   public static final int SE_ROW_DISPLAY = eventCode(ROW_DISPLAY);
 
    /** synthetic event code */
    public static final int SE_ENTRY = eventCode(ENTRY);
@@ -914,7 +935,13 @@
    ));
    
    /** Stores context-local state variables. */
-   private static ContextContainer work = new ContextContainer(); 
+   private static ContextContainer work = new ContextContainer();
+   
+   /**
+    * A list of all keyboards implemented in FWD - used during parsing by {@link #registeredEventName(String)}, 
+    * to check if a certain trigger's event is known by the FWD runtime.
+    */
+   private static Keyboard[] kbs = null;
    
    /** mapping of key functions into key labels the function is mapped to*/
    private Map<String, Set<String>> f2l = new HashMap<>();
@@ -937,9 +964,15 @@
    /** basic key names */
    protected String[] basicKeys = new String[655];
    
+   /** A map of each {@link #basicKeys} to their index. */
+   protected Map<String, Integer> basicKeyCodes = new HashMap<>();
+   
    /** extended key names */
    protected Map<Integer, String> extendedKeys = new TreeMap<>();
    
+   /** Extended labels to their keys. */
+   protected Map<String, Integer> extendedLabels = new TreeMap<>();
+   
    /**
     * Constructor.
     * 
@@ -952,6 +985,46 @@
    }
    
    /**
+    * Check if the given event name is registered in any keyboard implementation.
+    * 
+    * @param    event
+    *           The event name, as passed to the trigger.
+    *           
+    * @return   <code>true</code> if {@link EventList#eventCode} can resolve this event's ID.
+    */
+   public static boolean registeredEventName(String event)
+   {
+      if (kbs == null)
+      {
+         kbs = new Keyboard[]
+         {
+            new GuiKeyboard(),
+            new ChuiWindowsKeyboard(),
+            new ChuiLinuxKeyboard()
+         };
+         
+         for (Keyboard kb : kbs)
+         {
+            work.set(kb);
+            kb.init();
+         }
+      }
+      
+      for (Keyboard kb : kbs)
+      {
+         work.set(kb);
+         String evt = EventList.setCase(event);
+         Integer evtCode = EventList.eventCode(evt);
+         if (evtCode != null)
+         {
+            return true;
+         }
+      }
+      
+      return false;
+   }
+   
+   /**
     * Converts a named event into a numeric event code.
     * The conversion takes into account the fact, that the event name may
     * refer to (in the specified order):
@@ -1096,11 +1169,37 @@
       // check alternate key labels for a match
       if (code == -1)
       {
+         String[] prefixes = { "CTRL-", "SHIFT-", kb.bit10 + "-" };
+         String prefix = "";
+         l1: do
+         {
+            for (String p : prefixes)
+            {
+               if (lab.startsWith(p))
+               {
+                  prefix = prefix + p;
+                  lab = lab.substring(p.length());
+                  continue l1;
+               }
+            }
+            
+            break;
+         }
+         while (true);
+         
          Integer kc = (Integer) kb.altLabel.get(lab);
          
          if (kc != null)
          {
-            code = kc.intValue();
+            if (!prefix.isEmpty())
+            {
+               String newLbl = keyLabel(kc);
+               return keyCode(prefix + newLbl);
+            }
+            else
+            {
+               code = kc.intValue();
+            }
          }
       }
 
@@ -1547,6 +1646,11 @@
    @Override
    public void init()
    {
+      for (Map.Entry<Integer, String> ke : extendedKeys.entrySet())
+      {
+         extendedLabels.put(ke.getValue(), ke.getKey());
+      }
+      
       // set "" as the keys for 0 to 655
       Arrays.fill(basicKeys, "");
       
@@ -1841,6 +1945,8 @@
       basicKeys[651] = "MOUSE-MENU-DBLCLICK";
       basicKeys[652] = "MOUSE-EXTEND-DBLCLICK";
       
+      initBasicKeyCodes();
+      
       // filling the map of key functions with standard mappings
       
       Map<String, String[]> standards = standardKeyFunctions();
@@ -1929,6 +2035,8 @@
          
          basicKeys[i] = new String(ch);
       }
+      
+      initBasicKeyCodes();
    }
 
    /**
@@ -2119,16 +2227,19 @@
    private int findKey(String label)
    {
       // some events have special meaning
-      if (osEventsCodes.containsKey(label))
-      {
-         return osEventsCodes.get(label);
-      }
-
-      for (int i = 0; i < basicKeys.length; i ++)
-         if (label.equals(basicKeys[i]))
-             return i;
-
-      return -1;
+      Integer idx = osEventsCodes.get(label);
+      if (idx != null)
+      {
+         return idx;
+      }
+
+      idx = basicKeyCodes.get(label);
+      if (idx == null)
+      {
+         idx = extendedLabels.get(label);
+      }
+      
+      return idx == null ? -1 : idx.intValue();
    }
 
    /**
@@ -2142,31 +2253,38 @@
     */
    private int findKeyEnd(String label)
    {
-      int l = label.length();
-
-      for (int i = 0; i < basicKeys.length; i ++)
-      {
-         if (basicKeys[i].length() == 0)
-            continue;
-
-         if (label.endsWith(basicKeys[i]))
+      String[] prefixes = 
+      {
+         "CTRL-SHIFT-" + bit10 + "-", 
+         "CTRL-" + bit10 + "-",
+         "CTRL-SHIFT-",
+         "SHIFT-" + bit10 + "-",
+         bit10 + "-",
+         "SHIFT-",
+         "CTRL-"
+      };
+      int[] offsets =
+      {
+         0b1110_0000_0000, // 3584
+         0b1100_0000_0000, // 3072
+         0b1010_0000_0000, // 2560
+         0b0110_0000_0000, // 1536
+         0b0100_0000_0000, // 1024
+         0b0010_0000_0000, // 512
+         0b1000_0000_0000 // 2048
+      };
+      
+      for (int i = 0; i < prefixes.length; i++)
+      {
+         String prefix = prefixes[i];
+         if (label.startsWith(prefix))
          {
-            // this is a candidate; check prefix validity
-            String prefix = label.substring(0, l - basicKeys[i].length());
-            if (prefix.equals("CTRL-"))
-               return i + 0b1000_0000_0000; // 2048
-            if (prefix.equals("SHIFT-"))
-               return i + 0b0010_0000_0000; // 512
-            if (prefix.equals(bit10 + "-"))
-               return i + 0b0100_0000_0000; // 1024
-            if (prefix.equals("SHIFT-" + bit10))
-               return i + 0b0110_0000_0000; // 1536
-            if (prefix.equals("CTRL-SHIFT-"))
-               return i + 0b1010_0000_0000; // 2560
-            if (prefix.equals("CTRL-" + bit10))
-               return i + 0b1100_0000_0000; // 3072
-            if (prefix.equals("CTRL-SHIFT-" + bit10))
-               return i + 0b1110_0000_0000; // 3584
+            String suffix = label.substring(prefix.length());
+            Integer idx = basicKeyCodes.get(suffix);
+            if (idx != null)
+            {
+               return idx + offsets[i];
+            }
          }
       }
 
@@ -2300,6 +2418,24 @@
    }
    
    /**
+    * Initialize the {@link #basicKeyCodes} map from the {@link #basicKeys} arrays.
+    * <p>
+    * WARNING: this is called multiple times during {@link #init()} (and for the subclasses), as the 
+    * {@link #basicKeys} array is initialized in phases.  After each phase, {@link #findKey(String)} or
+    * {@link #findKeyEnd(String)} can be used and the {@link #basicKeyCodes} map must reflect the correct
+    * state of {@link #basicKeys}.
+    */
+   protected void initBasicKeyCodes()
+   {
+      basicKeyCodes.clear();
+      
+      for (int i = 0; i < basicKeys.length; i++)
+      {
+         basicKeyCodes.putIfAbsent(basicKeys[i], i);
+      }
+   }
+   
+   /**
     * Simple container that stores and returns a context-local instance of
     * the outer class.
     */

=== modified file 'src/com/goldencode/p2j/ui/LiteralWidget.java'
--- src/com/goldencode/p2j/ui/LiteralWidget.java	2020-09-28 02:06:35 +0000
+++ src/com/goldencode/p2j/ui/LiteralWidget.java	2021-01-23 18:01:03 +0000
@@ -2,7 +2,7 @@
 ** Module   : LiteralWidget.java
 ** Abstract : server-side literal widget representation.
 **
-** Copyright (c) 2013-2020, Golden Code Development Corporation.
+** Copyright (c) 2013-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --------------------------------Description-----------------------------------
 ** 001 CA  20130927 Created initial version.
@@ -11,7 +11,7 @@
 **                  implementation for the same widget ID.  Refactored the widget configuration
 **                  classes: all fields were made public; these classes need to be as dumb as
 **                  possible, all logic related to setting/getting a certain field should be at
-**                  the widget or at the caller. Refs #2254
+**                  the widget or at the calleribute.er. Refs #2254
 ** 004 CA  20141220 Track if an explicit VIEW-AS TEXT phrase is in use.  GUI has code dependent on
 **                  this fact.
 ** 005 CA  20150222 Fixed label's COLUMN and WIDTH-CHARS attributes (in ChUI).
@@ -23,6 +23,11 @@
 ** 011 CA  20190301 Literals used by side-labels don't have the autoResize config.
 ** 012 EVL 20200908 Fix for literal widget custom name issue.  It can return the valid name if was explicitly
 **                  assigned.
+** 013 EVL 20201022 Optimized attributes flush implementation.
+**     HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
+**     CA  20201202 LITERAL:LABEL is not a queryable attribute.
+**     CA  20210121 LITERAL:LABEL is a not a settable attribute, unless this is an explicit LITERAL widget 
+**                  emitted for a frame (and not a side-label). 
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -91,24 +96,15 @@
  */
 @LegacyResource(resource = LegacyResource.LITERAL)
 public class LiteralWidget
-extends ControlTextWidget<TextConfig>
+extends TextBasedWidget
 {
    /**
-    * Side label discriminator, when true this instance represents a side label.
-    */
-   private boolean sideLabel = false;
-   
-   /** The associated side widget for this label (when {@link #sideLabel} is true). */
-   private GenericWidget<?> sideWidget = null;
-   
-   /**
     * Default constructor. To create a side label, instead use
     * {@link #createSideLabel(GenericWidget)}.
     */
    public LiteralWidget()
    {
-      super(false, new TextConfig());
-      setStatic(true);
+      super();
    }
    
    /**
@@ -122,9 +118,7 @@
    public static LiteralWidget createSideLabel(GenericWidget<?> sideWidget)
    {
       LiteralWidget result = new LiteralWidget();
-      result.sideLabel = true;
-      result.sideWidget = sideWidget;
-      
+      result.makeSideLabel(sideWidget);
       return result;
    }
 
@@ -151,140 +145,6 @@
    }
 
    /**
-    * Obtains the next sibling widget in the current field group.
-    *
-    * @return   The next sibling or an unknown handle if this is the only widget or if this is the
-    *           last widget.
-    */
-   @Override
-   public handle getNextSibling()
-   {
-      if (sideLabel && group instanceof FieldGroup)
-      {
-         // find the related widget
-         for (GenericWidget<?> w : ((FieldGroup) group).getWidgets())
-         {
-            if (!(w.config instanceof ControlConfig))
-            {
-               continue;
-            }
-
-            if (config.id.asInt() == ((ControlConfig) w.config).sideLabelId)
-            {
-               return new handle(w);
-            }
-         }
-      }
-
-      return super.getNextSibling();
-   }
-
-   /**
-    * Obtains the previous sibling widget in the current field group.
-    *
-    * @return   The previous sibling or an unknown handle if this only widget or if this is the
-    *           first widget.
-    */
-   @Override
-   public handle getPrevSibling()
-   {
-      if (sideLabel && group instanceof FieldGroup)
-      {
-         // find the related widget
-         for (GenericWidget<?> w : ((FieldGroup) group).getWidgets())
-         {
-            if (!(w.config instanceof ControlConfig))
-            {
-               continue;
-            }
-
-            if (config.id.asInt() == ((ControlConfig) w.config).sideLabelId)
-            {
-               return new handle(((FieldGroup) group).getPrevChild(w));
-            }
-         }
-      }
-
-      return super.getPrevSibling();
-   }
-
-   /**
-    * Get the label text for this widget.
-    * <p>
-    * Unlike other widget attribute getters, this API will raise an ERROR condition.
-    * 
-    * @return   The empty string.
-    */
-   @Override
-   public character getLabel()
-   {
-      notQueryable("LABEL", false);
-      return new character("");
-   }
-
-   /**
-    * This API is a no-op - it just raises an ERROR condition.
-    * 
-    * @param    label
-    *           The new label text.
-    */
-   @Override
-   public void setLabel(String label)
-   {
-      if (frame == null || !frame.isInsideSetup())
-      {
-         notSettable("LABEL", false);
-      }
-      else
-      {
-         super.setLabel(label);
-      }
-   }
-   
-   /**
-    * Obtain the current value in the screen buffer of the backing data for
-    * this widget and return it as a <code>character</code> type. If
-    * there is no value in the screen buffer (if it is <code>null</code>
-    * which is the representation for an uninitialized value), then return
-    * the empty string.
-    *
-    * @return   The value as a <code>character</code> type or the empty
-    *           string if the screen buffer value is uninitialized.
-    */
-   @Override
-   public character getScreenValue()
-   {
-      if (!sideLabel)
-      {
-         return super.getScreenValue();
-      }
-      
-      return sideWidget.getLabel();
-   }
-   
-   /**
-    * Set the current value in the screen buffer of the backing data for
-    * this widget.  If the given value is <code>null</code> then this
-    * widget will be set to the uninitialized value.
-    *
-    * @param    value
-    *           The new value for the widget, use <code>null</code> to set
-    *           the value as uninitialized.
-    */
-   @Override
-   public void setScreenValue(character value)
-   {
-      if (!sideLabel)
-      {
-         super.setScreenValue(value);
-      }
-      else
-      {
-         sideWidget.setLabel(value);
-      }
-   }
-   
-   /**
     * Get the name of this LITERAL widget - always unknown value.
     * 
     * @return    Always unknown value.
@@ -297,136 +157,35 @@
    }
    
    /**
-    * Sets the row or column position for this widget.
-    * <p>
-    * Sub-classes can override this method; at this point, the parameters are valid.
-    * 
-    * @param    isUnknown
-    *           If <code>true</code> the attribute value being set is an unknown value.
-    * @param    value
-    *           The 1-based row or column number.
-    * @param    row
-    *           If <code>true</code> <code>value</code> represents a row number, otherwise 
-    *           a column number.
-    */
-   @Override
-   protected void setColumnOrRowWorker(boolean isUnknown, double value, boolean row)
-   {
-      int align = config.align;
-      
-      super.setColumnOrRowWorker(isUnknown, value, row);
-      
-      // preserve alignment when changing side label position
-      if (sideLabel)
-      {
-         config.align = align;
-      }
-      
-      if (row)
-      {
-         // nothing to do for rows
-         return;
-      }
-      
-      updateSideLabelColumn(value);
-   }
-   
-   /**
-    * Sets the x or y pixel position for this widget.
-    * <p>
-    * Sub-classes can override this method; at this point, the parameters are
-    * valid.
-    * 
-    * @param    isUnknown
-    *           If
-    *           <code>true</code> the attribute value being set is an unknown value.
-    * @param    value
-    *           The x or y pixel value.
-    * @param    x
-    *           If <code>true</code> <code>value</code> represents an x
-    *           position, otherwise y.
-    */
-   @Override
-   protected void setXOrYWorker(boolean isUnknown, int value, boolean x)
-   {
-      int align = config.align;
-      
-      super.setXOrYWorker(isUnknown, value, x);
-      
-      // preserve alignment when changing side label position
-      if (sideLabel)
-      {
-         config.align = align;
-      }
-      
-      if (!x)
-      {
-         // nothing to do for y pixel position change
-         return;
-      }
-      
-      // use the converted column value set in the super implementation
-      updateSideLabelColumn(config.column);
-   }
-   
-   /**
-    * Collect the size-related attributes which can be assigned by this widget.
-    * 
-    * @param    names
-    *           The collection where to add the field names.
-    * @param    vals
-    *           The collection where to add the field values.
-    */
-   @Override
-   protected void getSizeAttrs(List<String> names, List<Object> vals)
-   {
-      if (sideLabel)
-      {
-         names.addAll(Arrays.asList("fixedWidth", "fixedHeight", 
-                                    "heightChars", "widthChars", 
-                                    "heightPixels", "widthPixels", 
-                                    "clientHeightChars", "clientWidthChars", 
-                                    "clientHeightPixels", "clientWidthPixels"));
-         vals.addAll(Arrays.asList(config.fixedWidth, config.fixedHeight, 
-                                   config.heightChars, config.widthChars, 
-                                   config.heightPixels, config.widthPixels, 
-                                   config.clientHeightChars, config.clientWidthChars, 
-                                   config.clientHeightPixels, config.clientWidthPixels));
+    * A custom getter for the LABEL attribute.  In case of LITERAL widgets, this attribute is not queryable.
+    * 
+    * @return   Always empty string.
+    */
+   @Override
+   protected character getLabelWorker()
+   {
+      notQueryable("LABEL", false);
+      return new character("");
+   }
+   
+   /**
+    * A custom setter for the LABEL attribute.  In case of LITERAL widgets, this attribute is not settable.
+    * 
+    * @param    value
+    *           The label.
+    */
+   @Override
+   protected void setLabelWorker(String value)
+   {
+      if (sideLabel)
+      {
+         notSettable("LABEL", false);
       }
       else
       {
-         super.getSizeAttrs(names, vals);
-      }
-   }
-
-   /**
-    * The method updates side label metrics after a change of column
-    * position. If this widget doesn't represent a side label, this
-    * method is a no-op.
-    * 
-    * @param    col
-    *           New widget column position.
-    */
-   private void updateSideLabelColumn(double col)
-   {
-      if (!sideLabel)
-      {
-         return;
-      }
-
-      String name = getAttr("name", () -> config.name);
-
-      // if the literal is not yet realized, compute its width
-      if (!getAttr("realized", () -> config.realized) && name != null && getAttr("align", () -> config.align) == ControlEntity.ALIGN_RIGHT)
-      {
-         if (name.length() > col - 1)
-         {
-            config.column = 0;
-            config.widthChars = col - 1;
-         }
-         else
-         {
-            config.widthChars = name.length() + 1;
+         if (validateLabelAssignment())
+         {
+            setLabelInt(value);
          }
       }
    }

=== modified file 'src/com/goldencode/p2j/ui/LogicalTerminal.java'
--- src/com/goldencode/p2j/ui/LogicalTerminal.java	2020-10-03 16:02:03 +0000
+++ src/com/goldencode/p2j/ui/LogicalTerminal.java	2021-01-26 19:09:30 +0000
@@ -2,7 +2,7 @@
 ** Module   : LogicalTerminal.java
 ** Abstract : server runtime implementation of Progress UI concepts
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- ----------------------------------Description-----------------------------------
 ** 001 NVS 20051026   @23493 Created initial version.
@@ -905,6 +905,16 @@
 **                           registry is modified - this allows to reuse the EventList instance.
 **                           Delay the creation of the ScopeProcessor collections, until they are used.  This 
 **                           will improve the performance of blocks which do not use frames.
+**     CA  20201011          Replaced integer sets with a fast access bitmap.
+**                           Improved getRowDisplayEvents.
+**     HC  20201013          Server-pushed config field changes are serialized with field ids instead of
+**                           names.
+**     CA  20201015          Do not invalidate the cache if there were no events in the current scope.
+**     CA  20201112          Avoid pushing the entire frame definition when setting the FRAME or PARENT 
+**                           attribute.
+**     CA  20201117          Added API to delete a widget at runtime.
+**     SVL 20210112          Added disable(frame, int[], boolean).
+**     EVL 20210126          Considering -1 event code as no-op for apply();
 */
 
 /*
@@ -968,9 +978,12 @@
 import java.util.function.*;
 import java.util.logging.*;
 
+import org.roaringbitmap.*;
+
 import com.goldencode.p2j.comauto.*;
 import com.goldencode.p2j.directory.*;
 import com.goldencode.p2j.extension.*;
+import com.goldencode.p2j.jmx.*;
 import com.goldencode.p2j.main.*;
 import com.goldencode.p2j.net.*;
 import com.goldencode.p2j.net.Session;
@@ -1033,7 +1046,15 @@
    
    /** logger */
    private static final Logger LOG = LogHelper.getLogger(LogicalTerminal.class.getName());
-   
+
+   /** Widget attributes flushes counter */
+   private static final SimpleCounter SIMPLE_COUNTER =
+      SimpleCounter.getInstance(FwdJMX.Counter.WidgetAttrFlushes);
+
+   /** Widget attributes enqueues counter */
+   private static final ValuesCounter VALUES_COUNTER =
+      ValuesCounter.getInstance(FwdJMX.MapCounter.WidgetAttrEnqueues);
+
    /** Context-local instance of LogicalTerminal */
    private static final ContextLocal<LogicalTerminal> instance =
    new ContextLocal<LogicalTerminal>()
@@ -1139,10 +1160,10 @@
    private Map<Integer, GenericFrame> frameRegistry = new HashMap<>();
    
    /** Set of dead frames since the last client-side trip.  Used by {@link #getChanges()}. */
-   private Set<Integer> deadFrameIds = new HashSet<>();
+   private RoaringBitmap deadFrameIds = new RoaringBitmap();
    
    /** Registry of the currently editable frames to get the screen buffers to operate. */
-   private Map<GenericFrame, Set<Integer>> editableFrameRegistry = new HashMap<>();
+   private Map<GenericFrame, RoaringBitmap> editableFrameRegistry = new HashMap<>();
    
    /** Registry for all menus for this user's session. */
    private Map<Integer, MenuContainerWidget<?>> menuRegistry = new HashMap<>();
@@ -1167,7 +1188,7 @@
    private ScopedDictionary scope = new ScopedDictionary(new LinkedList());
    
    /** A set containing the IDs of all ON .. PERSISTENT RUN triggers */
-   private Set<Integer> persistentTriggers = new HashSet<>();
+   private RoaringBitmap persistentTriggers = new RoaringBitmap();
    
    /** CURRENT-WINDOW widget */
    private WindowWidget currentWindow = null;
@@ -1224,7 +1245,7 @@
     * this collection is discarded without other processing, the menus will be cleaned up 
     * naturally, at the end of the scope.
     */
-   private Set<Integer> pendingMenus = new HashSet<>();
+   private RoaringBitmap pendingMenus = new RoaringBitmap();
    
    /** The code of last event function (LAST-EVENT:FUNCTION) */
    private int functionKey;
@@ -7411,7 +7432,14 @@
          return;
       }
       
-      apply(h, eventCode.getValue());
+      long evtCodeLong = eventCode.getValue();
+      if (evtCodeLong == -1L)
+      {
+         // this is a no-op too in case of code is -1
+         return;
+      }
+      
+      apply(h, evtCodeLong);
    }
    
    /**
@@ -7471,7 +7499,14 @@
          return;
       }
       
-      apply(res, eventCode.getValue());
+      long evtCodeLong = eventCode.getValue();
+      if (evtCodeLong == -1L)
+      {
+         // this is a no-op too in case of code is -1
+         return;
+      }
+      
+      apply(res, evtCodeLong);
    }
    
    /**
@@ -8892,14 +8927,14 @@
    {
       return locate().client.searchInEditor(id, pattern, mode);
    }
-      
+
    /**
     * Disables input for all specified field-level widgets of the frame.
     * <p>
     * This method corresponds to these Progress statements: <br>
     * <b>DISABLE ALL </b> <br>
     * <b>DISABLE ALL EXCEPT </b>
-    * 
+    *
     * @param   frame
     *          instance of <code>GenericFrame</code> this request came for
     * @param   widgetId
@@ -8908,12 +8943,36 @@
     */
    public static void disable(GenericFrame frame, int[] widgetId)
    {
+      disable(frame, widgetId, true);
+   }
+      
+   /**
+    * Disables input for all specified field-level widgets of the frame.
+    * <p>
+    * This method corresponds to these Progress statements: <br>
+    * <b>DISABLE ALL </b> <br>
+    * <b>DISABLE ALL EXCEPT </b>
+    * 
+    * @param   frame
+    *          instance of <code>GenericFrame</code> this request came for
+    * @param   widgetId
+    *          array of field level widget IDs to be disabled or
+    *          <code>null</code>, which means all of them.
+    * @param   resetEntered
+    *          If <code>true</code> then <b>ENTERED</b> flag is reset for the
+    *          widgets which are being disabled.
+    */
+   public static void disable(GenericFrame frame, int[] widgetId, boolean resetEntered)
+   {
       // locate the Logical Terminal for this session
       LogicalTerminal lt = locate();
-      
-      // reset ENTERED flag for widgets which are explicitly disabled; no need to dynamically
-      // update headers and other content since we are calling getFrameBuffer() below
-      frame.getFrameBufferRaw().resetEntered(widgetId);
+
+      if (resetEntered)
+      {
+         // reset ENTERED flag for widgets which are explicitly disabled; no need to dynamically
+         // update headers and other content since we are calling getFrameBuffer() below
+         frame.getFrameBufferRaw().resetEntered(widgetId);
+      }
       
       // refresh editable frames list
       lt.removeEditableFrameForWidgets(frame, widgetId);
@@ -9679,6 +9738,72 @@
    }
    
    /**
+    * Delete and detach a widget from a frame, at runtime.  The widget can be a dynamic widget or a full
+    * static frame.
+    * 
+    * @param    frame
+    *           The parent frame.
+    * @param    widget
+    *           The widget.
+    */
+   public static void deleteDynamicWidget(GenericFrame frame, GenericWidget widget)
+   {
+      if (widget instanceof BrowseWidget || 
+          widget instanceof BrowseColumnWidget || 
+          widget instanceof TreeWidgetBase)
+      {
+         // this has some special behavior, as the browse is made from more than one widget...
+         frame.pushScreenDefinition(true);
+         return;
+      }
+      
+      LogicalTerminal lt = locate();
+      
+      lt.client.deleteDynamicWidget(frame.asWidget().getId(), widget.getId());
+   }
+   
+   /**
+    * Attach a widget to a frame, at runtime.  The widget can be a dynamic widget or a full static frame.
+    * 
+    * @param    frame
+    *           The parent frame.
+    * @param    widget
+    *           The widget to attach.
+    */
+   public static void attachRuntimeWidget(GenericFrame frame, GenericWidget widget)
+   {
+      if (widget instanceof BrowseWidget || 
+          widget instanceof BrowseColumnWidget || 
+          widget instanceof TreeWidgetBase)
+      {
+         // this has some special behavior, as the browse is made from more than one widget...
+         frame.pushScreenDefinition(true);
+         return;
+      }
+      
+      if (widget._dynamic())
+      {
+         WidgetConfig cfg = widget.config();
+         ConfigManager mgr = ConfigManager.getInstance();
+         WidgetConfig active = mgr.getActiveConfig(cfg.id);
+         if (active == null)
+         {
+            mgr.addWidgetConfig(cfg);
+         }
+         else
+         {
+            assert(cfg.getClass().equals(active.getClass()));
+         }
+         
+         widget.finishConfigProcessing();
+      }
+      
+      LogicalTerminal lt = locate();
+      
+      lt.client.attachRuntimeWidget(frame.asWidget().getId(), widget.getId(), widget.config());
+   }
+   
+   /**
     * Pushes the screen definition instance down to the client.
     * 
     * @param   frameDef
@@ -9997,7 +10122,7 @@
          return;
       }
       
-      resourceId = (resourceId == null ? -1 : resourceId);
+      resourceId = (resourceId == null ? ResourceIdHelper.INVALID_RESOURCE : resourceId);
       
       // invalidate the cache
       lt.cachedEventList = null;
@@ -10158,12 +10283,11 @@
 
       TriggerManager.register(lt.scope, events, tid);
       
-      Map<Integer, Integer> list = events.getRowDisplayEvents();
+      int[][] list = events.getRowDisplayEvents();
       if (list != null)
       {
-         int[][] map = Utils.integerMapToPrimitive(list);
          // if there is at least one ROW-DISPLAY event, send it to the client
-         lt.client.registerRowDisplayEvents(map[0], map[1]);
+         lt.client.registerRowDisplayEvents(list[0], list[1]);
       }
    }
    
@@ -11111,12 +11235,12 @@
       synchronized (registryLock)
       {
          // getting the ID set from frame that already in the list
-         Set<Integer> widIdSet = editableFrameRegistry.get(widFrame);
+         RoaringBitmap widIdSet = editableFrameRegistry.get(widFrame);
          
          // new frame to add
          if (widIdSet == null)
          {
-            widIdSet = new HashSet<Integer>();
+            widIdSet = new RoaringBitmap();
             editableFrameRegistry.put(widFrame, widIdSet);
          }
          
@@ -11149,7 +11273,7 @@
       synchronized (registryLock)
       {
          // check if the frame is in the list
-         Set<Integer> widIdSet = editableFrameRegistry.get(widFrame);
+         RoaringBitmap widIdSet = editableFrameRegistry.get(widFrame);
          // if none - do nothing
          if (widIdSet != null)
          {
@@ -11298,7 +11422,7 @@
    }
    
    /**
-    * Internal worker for {@link #applyChanges(Serializable)}.
+    * Internal worker for {@link #applyChanges(Externalizable)}.
     * 
     * @param   frameId
     *          The ID of frame which should be removed from registry.
@@ -11569,7 +11693,7 @@
     * @return   The widget which corresponds to the given widget ID, which may
     *           be a frame, or <code>null</code> if the widget ID is invalid.
     */
-   private GenericWidget<?> getWidgetForIdInt(int widgetId)
+   protected GenericWidget<?> getWidgetForIdInt(int widgetId)
    {
       synchronized (registryLock)
       {
@@ -12900,10 +13024,11 @@
             locate().nesting--;
          }
          
-         // invalidate the cache
-         cachedEventList = null;
-
-         TriggerManager.scopeFinished(scope);
+         if (TriggerManager.scopeFinished(scope))
+         {
+            // invalidate the cache
+            cachedEventList = null;
+         }
       }
    }
 
@@ -12982,13 +13107,7 @@
          
          if (!deadFrames.isEmpty())
          {
-            sstate.deadFrames = new int[deadFrames.size()];
-            Iterator<Integer> fitr = deadFrames.iterator();
-            int idx = 0;
-            while (fitr.hasNext())
-            {
-               sstate.deadFrames[idx++] = fitr.next();
-            }
+            sstate.deadFrames = Utils.integerCollectionToPrimitive(deadFrames);
          }
       }
       
@@ -14568,7 +14687,7 @@
       private ArrayList<Integer> hidden = null;
       
       /** Viewed in current iteration frames. */
-      private HashSet<Integer> viewed = null;
+      private RoaringBitmap viewed = null;
       
       /** Track frame hiding in current scope. */
       private boolean canHide = false;
@@ -15164,9 +15283,9 @@
        * 
        * @return   See above.
        */
-      private HashSet<Integer> getViewed()
+      private RoaringBitmap getViewed()
       {
-         return viewed == null ? (viewed = new HashSet<>()) : viewed;
+         return viewed == null ? (viewed = new RoaringBitmap()) : viewed;
       }
       
       /**
@@ -17318,13 +17437,17 @@
     *          Widget id.
     * @param   fname
     *          Field name.
+    * @param   fid
+    *          Field id.
     * @param   value
     *          New value.
     */
-   public void enqueuWidgetAttr(int widgetId, String fname, Object value)
+   public void enqueuWidgetAttr(int widgetId, String fname, int fid, Object value)
    {
+      VALUES_COUNTER.update(fname, 1);
+
       widgetAttrQueue.add(widgetId);
-      widgetAttrQueue.add(fname);
+      widgetAttrQueue.add(fid);
       widgetAttrQueue.add(value);
    }
 
@@ -17339,6 +17462,9 @@
          return;
       }
 
+      SIMPLE_COUNTER.update(1);
+
+      // this will trigger getChanges, the actual flush will happen there
       client.flushEnqueuedWidgetAttrs();
    }
 }

=== modified file 'src/com/goldencode/p2j/ui/MenuContainerWidget.java'
--- src/com/goldencode/p2j/ui/MenuContainerWidget.java	2020-10-07 18:32:15 +0000
+++ src/com/goldencode/p2j/ui/MenuContainerWidget.java	2020-11-17 20:03:34 +0000
@@ -30,6 +30,10 @@
 ** 015 HC  20200313 Javadoc fixes.
 ** 016 HC  20200926 Performance optimizations of server-client config state synchronization.
 **     AIL 20201007 Override canPushWidgetAttr method in order to define custom constraints.
+**     EVL 20201019 Added specific version of getId() for client driven attribute.
+**     EVL 20201021 More optimization for getAttr() usage or widget ID getting.
+**     EVL 20201022 Optimized attributes flush implementation.
+**     CA  20201117 Do not use resourceDelete to delete the widget - use the delete() API for this code.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -379,6 +383,19 @@
    }
 
    /**
+    * Gets the numeric ID of this widget (this is used as an index into the
+    * screen-buffer among other things).
+    * 
+    * @return   The numeric ID of this widget.
+    */
+   @Override
+   public int getId()
+   {
+      // client driven ID getter case
+      return getAttr("id", () -> (int)(config.id != null ? config.id.asInt() : -1), true);
+   }
+
+   /**
     * Core initialization processing. 
     *
     * @param    defClass
@@ -526,7 +543,7 @@
       {
          mgr = ConfigManager.getInstance();
       }
-      WidgetConfig active = mgr.getActiveConfig(getAttr("id", () -> config.id));
+      WidgetConfig active = mgr.getActiveConfig(getAttr("id", () -> config.id, true));
       if (active == null)
       {
          mgr.addWidgetConfig(config);
@@ -635,7 +652,27 @@
          // shared menu can't be deleted until all are out of scope.
          return false;
       }
+
+      return true;
+   }
+   
+   /**
+    * Perform actual delete of an resource. At the time of this call, it is assumed the resource
+    * is valid for deletion (the handle and the resource are both valid).
+    * <p>
+    * The method first calls {@link #resourceDelete()}, if the method returns {@code false}, the deletion
+    * is aborted.
+    */
+   @Override
+   public void delete()
+   {
+      if (!resourceDelete())
+      {
+         return;
+      }
       
+      super.delete();
+
       // let the root delete the entire sub-tree - this is needed to avoid client-side trips
       // for each element in this sub-tree.
       MenuWidget root = (MenuWidget) findRootMenu(this);
@@ -644,9 +681,7 @@
       deleted = true;
       
       LogicalTerminal.deregisterMenu(getId());
-      ConfigManager.getInstance().removeWidgetConfig(getAttr("id", () -> config.id));
-
-      return true;
+      ConfigManager.getInstance().removeWidgetConfig(getAttr("id", () -> config.id, true));
    }   
 
    /**
@@ -748,7 +783,7 @@
     */
    private void pushMenuDescriptionImpl(boolean force)
    {
-      int menuId = getAttr("id", () -> config.id).asInt();
+      int menuId = getId();
       menuDef = new MenuDescription(menuId);
       if (this.getParent() == null)
       {
@@ -766,7 +801,7 @@
             // we are pushing, disable batch for all sub-menu's
             sm.batch = false;
             sm.pushMenuDescriptionImpl(force);
-            menuDef.addChildDescription(sm.menuDef, sm.getAttr("id", () -> sm.config.id).asInt());
+            menuDef.addChildDescription(sm.menuDef, sm.getId());
          }
       }
 

=== modified file 'src/com/goldencode/p2j/ui/MenuItemWidget.java'
--- src/com/goldencode/p2j/ui/MenuItemWidget.java	2020-10-07 18:32:15 +0000
+++ src/com/goldencode/p2j/ui/MenuItemWidget.java	2021-01-15 20:55:46 +0000
@@ -33,6 +33,13 @@
 ** 018 HC  20200313 Javadoc fixes.
 ** 019 HC  20200926 Performance optimizations of server-client config state synchronization.
 **     AIL 20201007 Override canPushWidgetAttr method in order to define custom constraints.
+**     HC  20201010 Implemented selective config flushing.
+**     EVL 20201019 Added specific version of getId() for client driven attribute.
+**     EVL 20201021 More optimization for getAttr() usage or widget ID getting.
+**     EVL 20201022 Optimized attributes flush implementation.
+**     CA  20201028 The SUBTYPE can be set if the owner is not realized.
+**     CA  20201117 Do not use resourceDelete to delete the widget - use the delete() API for this code.
+**     VVT 20210115 Missing LegacyAttribute annotation(s) added. See #5064.
 */
 
 /*
@@ -158,8 +165,9 @@
     */
    public integer getMnemonic()
    {
-      return getAttr("mnemonic", (Supplier<Integer>)() -> config.mnemonic) == null ? new integer() :
-         new integer(getAttr("mnemonic", (Supplier<Integer>)() -> config.mnemonic));
+      return getAttr("mnemonic",
+                     (Supplier<integer>)() -> (config.mnemonic == null ? new integer()
+                                                                       : new integer(config.mnemonic)), true);
    }
 
    /**
@@ -170,9 +178,8 @@
     */
    public character getPreprocessedLabel()
    {
-      return getAttr("preprocessedLabel ", () -> config.preprocessedLabel )== null 
-               ? new character() 
-               : new character(getAttr("preprocessedLabel", () -> config.preprocessedLabel));
+      return getAttr("preprocessedLabel", () -> (config.preprocessedLabel == null ? new character() :
+                                                 new character(config.preprocessedLabel)), true);
    }
 
    /**
@@ -253,6 +260,7 @@
     * @param    r
     *           <code>true</code> if the widget should be write-protected.
     */
+   @LegacyAttribute(name = "READ-ONLY", setter = true)
    @Override
    public void setReadOnly(logical r)
    {
@@ -268,6 +276,7 @@
     * @param    r
     *           <code>true</code> if the widget should be write-protected.
     */
+   @LegacyAttribute(name = "READ-ONLY", setter = true)
    public void setReadOnly(boolean r)
    {
       if (config.readOnly == r)
@@ -457,9 +466,20 @@
          
          if (p._isRealized())
          {
-            String msg = "**Unable to set SUBTYPE because the MENU-ITEM widget has been realised";
-            ErrorManager.recordOrShowError(new int[] {4053}, new String[] {msg}, false, false, false);
-            return;
+            boolean realized = true;
+            p = MenuContainerWidget.findRootMenu(p);
+            if (p != null && p instanceof MenuWidget)
+            {
+               GenericWidget owner = ((MenuWidget) p).getOwner();
+               realized = owner != null && owner._isRealized();
+            }
+            
+            if (realized)
+            {
+               String msg = "**Unable to set SUBTYPE because the MENU-ITEM widget has been realised";
+               ErrorManager.recordOrShowError(new int[] {4053}, new String[] {msg}, false, false, false);
+               return;
+            }
          }
       }
 
@@ -486,6 +506,19 @@
    }
    
    /**
+    * Gets the numeric ID of this widget (this is used as an index into the
+    * screen-buffer among other things).
+    * 
+    * @return   The numeric ID of this widget.
+    */
+   @Override
+   public int getId()
+   {
+      // client driven ID getter case
+      return getAttr("id", () -> (int)(config.id != null ? config.id.asInt() : -1), true);
+   }
+
+   /**
     * Gets the CHECKED writable attribute.
     *
     * @return    The current value of the CHECKED attribute.
@@ -597,15 +630,33 @@
          return false;
       }
 
+      return true;
+   }
+   
+   /**
+    * Perform actual delete of an resource. At the time of this call, it is assumed the resource
+    * is valid for deletion (the handle and the resource are both valid).
+    * <p>
+    * The method first calls {@link #resourceDelete()}, if the method returns {@code false}, the deletion
+    * is aborted.
+    */
+   @Override
+   public void delete()
+   {
+      if (!resourceDelete())
+      {
+         return;
+      }
+      
+      super.delete();
+
       MenuContainerWidget<?> root = MenuContainerWidget.findRootMenu(this);
       ((MenuWidget) root).detachMenu(this);
       
       deleted = true;
       
       LogicalTerminal.deregisterMenu(getId());
-      ConfigManager.getInstance().removeWidgetConfig(getAttr("id", () -> config.id));
-
-      return true;
+      ConfigManager.getInstance().removeWidgetConfig(getAttr("id", () -> config.id, true));
    }   
 
    /**

=== modified file 'src/com/goldencode/p2j/ui/MenuWidget.java'
--- src/com/goldencode/p2j/ui/MenuWidget.java	2020-09-28 02:06:35 +0000
+++ src/com/goldencode/p2j/ui/MenuWidget.java	2020-10-22 14:25:52 +0000
@@ -26,6 +26,8 @@
 **     GES 20200306 Shifted to TitledElement.
 **     RFB 20200330 Full implemented the TitledElement methods.
 **     RFB 20200331 Post-Code Review cleanup in comments.
+** 014 HC  20201010 Implemented selective config flushing.
+**     EVL 20201022 Optimized attributes flush implementation.
 */
 
 /*
@@ -111,7 +113,7 @@
    
    /** Private storage for TITLE-FONT: honored, but not acted upon by the client */
    private int64 titleFont    = null;
-   
+
    /**
     * Default constructor.  
     * 

=== added file 'src/com/goldencode/p2j/ui/MinHeightCharsInterface.java'
--- src/com/goldencode/p2j/ui/MinHeightCharsInterface.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/ui/MinHeightCharsInterface.java	2020-12-25 16:37:53 +0000
@@ -0,0 +1,88 @@
+/*
+ ** Module   : MinHeightCharsInterface.java
+ ** Abstract : Groups widgets that have MIN-HEIGHT-CHARS attribute.
+ **
+ ** Copyright (c) 2020, Golden Code Development Corporation.
+ **
+ ** -#- -I- --Date-- ----------------------------Description--------------------------------------
+ ** 001 SVL 20201221 Created initial version.
+ */
+/*
+ ** This program is free software: you can redistribute it and/or modify
+ ** it under the terms of the GNU Affero General Public License as
+ ** published by the Free Software Foundation, either version 3 of the
+ ** License, or (at your option) any later version.
+ **
+ ** This program is distributed in the hope that it will be useful,
+ ** but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ** GNU Affero General Public License for more details.
+ **
+ ** You may find a copy of the GNU Affero GPL version 3 at the following
+ ** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+ **
+ ** Additional terms under GNU Affero GPL version 3 section 7:
+ **
+ **   Under Section 7 of the GNU Affero GPL version 3, the following additional
+ **   terms apply to the works covered under the License.  These additional terms
+ **   are non-permissive additional terms allowed under Section 7 of the GNU
+ **   Affero GPL version 3 and may not be removed by you.
+ **
+ **   0. Attribution Requirement.
+ **
+ **     You must preserve all legal notices or author attributions in the covered
+ **     work or Appropriate Legal Notices displayed by works containing the covered
+ **     work.  You may not remove from the covered work any author or developer
+ **     credit already included within the covered work.
+ **
+ **   1. No License To Use Trademarks.
+ **
+ **     This license does not grant any license or rights to use the trademarks
+ **     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+ **     of Golden Code Development Corporation. You are not authorized to use the
+ **     name Golden Code, FWD, or the names of any author or contributor, for
+ **     publicity purposes without written authorization.
+ **
+ **   2. No Misrepresentation of Affiliation.
+ **
+ **     You may not represent yourself as Golden Code Development Corporation or FWD.
+ **
+ **     You may not represent yourself for publicity purposes as associated with
+ **     Golden Code Development Corporation, FWD, or any author or contributor to
+ **     the covered work, without written authorization.
+ **
+ **   3. No Misrepresentation of Source or Origin.
+ **
+ **     You may not represent the covered work as solely your work.  All modified
+ **     versions of the covered work must be marked in a reasonable way to make it
+ **     clear that the modified work is not originating from Golden Code Development
+ **     Corporation or FWD.  All modified versions must contain the notices of
+ **     attribution required in this license.
+ */
+
+package com.goldencode.p2j.ui;
+
+import com.goldencode.p2j.util.*;
+
+/**
+ * Groups widgets that have MIN-HEIGHT-CHARS attribute.
+ */
+public interface MinHeightCharsInterface
+{
+   /**
+    * Implements the MIN-HEIGHT-CHARS attribute getter.
+    *
+    * @return  minimum height of the widget, in character units.
+    */
+   @LegacyAttribute(name = "MIN-HEIGHT-CHARS")
+   public decimal getMinHeightChars();
+
+   /**
+    * Sets the MIN-HEIGHT-CHARS writable attribute.
+    *
+    * @param    min
+    *           The new value for the MIN-HEIGHT-CHARS attribute.
+    */
+   @LegacyAttribute(name = "MIN-HEIGHT-CHARS", setter = true)
+   public void setMinHeightChars(NumberType min);
+}
\ No newline at end of file

=== modified file 'src/com/goldencode/p2j/ui/PaneEntity.java'
--- src/com/goldencode/p2j/ui/PaneEntity.java	2020-10-04 18:23:10 +0000
+++ src/com/goldencode/p2j/ui/PaneEntity.java	2020-10-22 14:25:52 +0000
@@ -29,6 +29,8 @@
 **     HC  20191126 Implemented RESIZE attribute for DIALOG-BOX. This is an extension to 4GL.
 ** 014 HC  20200313 Javadoc fixes.
 ** 015 HC  20201004 Performance optimizations of server-client config state synchronization.
+**     HC  20201010 Implemented selective config flushing.
+**     EVL 20201022 Optimized attributes flush implementation.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -178,7 +180,7 @@
    @Override
    public void setThreeD(boolean threeD)
    {
-      if (getAttr("realized", () -> config.realized))
+      if (getAttr("realized", () -> config.realized, true))
       {
          ErrorManager.recordOrShowError(4053, 
                String.format(
@@ -212,7 +214,7 @@
       }
       else
       {
-         return new decimal(getAttr("virtualHeightChars", () -> config.virtualHeightChars));
+         return new decimal(getAttr("virtualHeightChars", () -> config.virtualHeightChars, true));
       }
    }
 
@@ -244,7 +246,7 @@
       }
       else
       {
-         return new decimal(getAttr("virtualWidthChars", () -> config.virtualWidthChars));
+         return new decimal(getAttr("virtualWidthChars", () -> config.virtualWidthChars, true));
       }
    }
 
@@ -276,7 +278,7 @@
       }
       else
       {
-         return new integer(getAttr("virtualHeightPixels", () -> config.virtualHeightPixels));
+         return new integer(getAttr("virtualHeightPixels", () -> config.virtualHeightPixels, true));
       }
    }
 
@@ -308,7 +310,7 @@
       }
       else
       {
-         return new integer(getAttr("virtualWidthPixels", () -> config.virtualWidthPixels));
+         return new integer(getAttr("virtualWidthPixels", () -> config.virtualWidthPixels, true));
       }
    }
 

=== modified file 'src/com/goldencode/p2j/ui/ProgressBarWidget.java'
--- src/com/goldencode/p2j/ui/ProgressBarWidget.java	2020-10-07 11:19:20 +0000
+++ src/com/goldencode/p2j/ui/ProgressBarWidget.java	2020-10-22 14:25:52 +0000
@@ -13,6 +13,7 @@
 **                  resolves compilation issues when converting ProgressBar OCX with literal
 **                  arguments.
 ** 006 SBI 20200810 Removed seValue(double)-the compilation issue when converting ProgressBar.
+** 007 EVL 20201022 Optimized attributes flush implementation.
 */
 
 /*
@@ -122,7 +123,7 @@
    @Override
    public logical isEnabled()
    {
-      return new logical(getAttr("enabled", () -> config.enabled));
+      return new logical(getAttr("enabled", () -> config.enabled, true));
    }
 
    /**
@@ -134,7 +135,7 @@
    @Override
    public void setEnabled(boolean value)
    {
-      if (!getAttr("realized", () -> config.realized))
+      if (!getAttr("realized", () -> config.realized, true))
       {
          if (config.enabled == value)
          {
@@ -457,7 +458,7 @@
          return;
       }
 
-      if (value < 0.0 || value < getAttr("min ", () -> config.min )|| value > getAttr("max", () -> config.max))
+      if (value < 0.0 || value < getAttr("min", () -> config.min )|| value > getAttr("max", () -> config.max))
       {
          ErrorManager.recordOrShowError(5990, String.format(
                   "Error occured while accessing component property/method: Value\n"

=== modified file 'src/com/goldencode/p2j/ui/RadioSetWidget.java'
--- src/com/goldencode/p2j/ui/RadioSetWidget.java	2020-09-28 10:09:11 +0000
+++ src/com/goldencode/p2j/ui/RadioSetWidget.java	2021-01-29 09:30:09 +0000
@@ -2,7 +2,7 @@
 ** Module   : RadioSetWidget.java
 ** Abstract : server side radio-set widget implementation
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------Description-----------------------------
 ** 001 NVS 20051026   @23494 Created initial version.
@@ -48,6 +48,12 @@
 ** 043 EVL 20190806          Fixed the vertical size calculation in certain conditions.
 ** 044 EVL 20191211          Fix for NPE with usage of the config.pairs value.
 ** 045 EVL 20200225          Fix for config.pairs issue when adding items with proper data value.
+** 046 EVL 20201022          Optimized attributes flush implementation.
+**     CA  20210111          SCREEN-VALUE usage from converted code needs to be distinguished from internal
+**                           usage, within FWD code (see COMBO-BOX:LIST-ITEM-PAIRS behavior).
+**     CA  20210123          Changing the FORMAT must set this at the radio-set's items, too.
+**     CA  20210128          Fixed a regression related to RADIO-BOX and SELECTION-LIST - these must not check
+**                           the FORMAT, as they do not manage it.
 */ 
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -163,7 +169,7 @@
    @Override
    public void setHorizontal(boolean value)
    {
-      if (!getAttr("realized", () -> config.realized))
+      if (!getAttr("realized", () -> config.realized, true))
       {
          config.horizontal = value;
          resetSize(config.items);
@@ -259,7 +265,7 @@
    @Override
    public void setExpand(boolean value)
    {
-      if (!getAttr("realized", () -> config.realized))
+      if (!getAttr("realized", () -> config.realized, true))
       {
          if (config.expand == value)
          {
@@ -465,6 +471,52 @@
    }
    
    /**
+    * Sets the format specification.
+    * 
+    * @param    format
+    *           The format specification.
+    */
+   @LegacyAttribute(name = "FORMAT", setter = true, ignore = true)
+   @Override
+   public void setFormat(String format)
+   {
+      if (!config.dynamic && (frame == null || frame.isInsideSetup()))
+      {
+         return;
+      }
+      
+      notSettable("FORM", true);
+   }
+   
+   /**
+    * Gets the format specification.
+    * 
+    * @return   The format specification.
+    */
+   @Override
+   @LegacyAttribute(name = "FORMAT", ignore = true)
+   public character getFormat()
+   {
+      if (!config.dynamic && (frame == null || frame.isInsideSetup()))
+      {
+         return new character();
+      }
+      
+      notQueryable("FORM", true);
+      return new character();
+   }
+   
+   /**
+    * Checks if the given widget has valid format string or even has the format attribute.
+    * 
+    * @return   always <code>FALSE</code>.
+    */
+   public boolean hasFormat()
+   {
+      return false;
+   }
+
+   /**
     * Implements the ADD-FIRST() widget method, which adds a single label
     * and value pair to the beginning of the list.
     *
@@ -1257,7 +1309,7 @@
     *           The new value for the widget, use <code>null</code> to set the value as uninitialized.
     */
    @Override
-   public void setScreenValue(character value)
+   protected void setScreenValueInt(character value)
    {
       if (value != null && "".equals(value.toStringMessage()))
       {
@@ -1265,7 +1317,7 @@
          return;
       }
       
-      super.setScreenValue(value);
+      super.setScreenValueInt(value);
    }
 
    /**

=== modified file 'src/com/goldencode/p2j/ui/ScreenBuffer.java'
--- src/com/goldencode/p2j/ui/ScreenBuffer.java	2020-10-08 19:08:27 +0000
+++ src/com/goldencode/p2j/ui/ScreenBuffer.java	2020-11-02 23:41:12 +0000
@@ -79,6 +79,16 @@
 **     ECF 20200928          Minor optimization.
 **     IAS 20201006          Get rid of map <-> array conversion in (de)serialization
 **     GES 20201008          Fixed regression in readExternal().
+**     GES 20201016          Complete reworking of internal data structures to use arrays instead of maps.
+**     GES 20201018          Added contiguous mode for id to index processing, the first added widget will
+**                           be placed at index 0 and the id will be used as an offset value.  Subsequent
+**                           adds/lookups will use this offset if subtracting it from the widget id yields
+**                           a valid index position. This eliminates map processing for the common cases.   
+**     GES 20201025          Use sparse arrays to maximize the possible usage of contiguous mode.  
+**                           Serialization was changed to compress the arrays during transport. Fixed NPE
+**                           in markAllchanged().
+**     GES 20201030          Fix for reallocate() to handle the scenario where the widget ID is in the
+**                           front of the array and the array length is too large to allocate.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -135,13 +145,14 @@
  
 package com.goldencode.p2j.ui;
 
+import java.util.function.*;
 import static com.goldencode.util.NativeTypeSerializer.*;
 
 import java.io.*;
 import java.util.*;
 
 import com.goldencode.p2j.ui.client.*;
-import com.goldencode.p2j.util.BaseDataType;
+import com.goldencode.p2j.util.*;
 import com.goldencode.util.*;
 
 /**
@@ -176,27 +187,36 @@
 
    /** State flag */
    public static final byte STATE_MAX = UNINITIALIZED + CHANGED + ENTERED;
+   
+   /** Maximum number of elements to allocate for a sparse array. */ 
+   private final int MAX_SPARSE_ARRAY_SIZE = 512;
+   
+   /** Minimum number of elements to allocate when growing the array. */ 
+   private final int MIN_ELEMENTS = 16;
 
-   /** Frame ID where this screen buffer belongs */
+   /** Frame ID where this screen buffer belongs. */
    private int baseId = -1;
 
-   /** Maximum number of entries */
-   private int size = -1;
-
-   /**
-    * Per widget state map.  This map must not be accessed directly to put, remove or get values.
-    * Use helper methods for respective operation.
-    */
-   private Map<Integer, Byte> state = new HashMap<Integer, Byte>();
-
-   /** The map to store (widget ID, current value) pairs */
-   private Map<Integer, Object> buffer = new HashMap<Integer, Object>();
-
-   /** The map to store header widget values. */
-   private Map<Integer, Object> headers = new HashMap<Integer, Object>();
+   /** Number of non-header widgets in the buffer. */
+   private int size = 0;
+   
+   /** Optimized index lookup for contiguous IDs. */
+   private int offset = -1;
+   
+   /** Mapping of widget ID to array index position. */
+   private transient Map<Integer, Integer> indices = new HashMap<Integer, Integer>();
+
+   /** Mark an "extra-sparse" mode. Don't fail putWidgetValue/setState when a widget id is not found. */
+   private transient boolean permissive = false;
+   
+   /** Core storage (widget ID, current value, state flags). */
+   private StatefulWidgetRecord[] buffer = null;
+
+   /** All header widget values for this frame. */
+   private WidgetRecord[] headers = null;
 
    /** The map for some screen values. */
-   private Map<Integer, Object> values = new HashMap<Integer, Object>();
+   private Map<Integer, Object> values = new HashMap<>();
    
    /** Key code which will be transferred in key related events. */
    private int keyCode = -1;
@@ -243,32 +263,57 @@
    private UIStatement currentStatement = null;
    
    /**
-    * The default constructor creates a rudimentary ScreenBuffer which remains
-    * empty.
+    * The default constructor creates a rudimentary ScreenBuffer which remains empty.
     */
    public ScreenBuffer()
    {
-      size = 0;
    }
    
    /**
-    * Constructor.
-    * Prepares internal structures to take the data.
-    *
-    * @param    frameId
-    *           the ID of the frame where this ScreenBuffer belongs
-    * @param    numWidgets
-    *           the total number of widgets in the frame
-    */
-   public ScreenBuffer(int frameId, int numWidgets)
-   {
-      size = numWidgets;
-      baseId = frameId;
-   }
-
-   /**
-    * Constructor.
-    * Prepares internal structures to take the data.
+    * Constructor.  Prepares internal structures to take data up to the given number of widgets.
+    * <p>
+    * Avoid using this constructor for any cases that are performance critical. This approach does not
+    * easily enable all widgets to be stored by offset and often will result in the slower mapping
+    * approach.  The exception is when you know the size of the range (maximum widget ID minus the minimum
+    * widget ID).  In that case the result will work for offset mode.
+    *
+    * @param    frameId
+    *           The ID of the frame to which this screen buffer belongs.
+    * @param    num
+    *           The total number of widgets expected in the frame.
+    */
+   public ScreenBuffer(int frameId, int num)
+   {
+      // make sure we have at a multiple of MIN_ELEMENTS
+      num = ((num % MIN_ELEMENTS) == 0) ? num : ((num / MIN_ELEMENTS) + 1) * MIN_ELEMENTS;
+      
+      buffer     = new StatefulWidgetRecord[num];
+      baseId     = frameId;
+      permissive = true;
+   }
+
+   /**
+    * Constructor which allocates a sparse array buffer (if possible) which will allow all widgets within
+    * the minimum and maximum ID range to be stored/retrieved via the offset method (avoiding the slow
+    * map method of storage).
+    *
+    * @param    frameId
+    *           The ID of the frame to which this screen buffer belongs.
+    * @param    min
+    *           The smallest widget ID to be used for this screen buffer.
+    * @param    max
+    *           The largest widget ID to be used for this screen buffer.
+    */
+   public ScreenBuffer(int frameId, int min, int max)
+   {
+      buffer     = new StatefulWidgetRecord[calcWidgetArraySize(min, max)];
+      offset     = min;
+      baseId     = frameId;
+      permissive = true;
+   }
+
+   /**
+    * Constructor.  Prepares internal structures to take the data.
     *
     * @param    frameId
     *           the ID of the frame where this ScreenBuffer belongs
@@ -278,28 +323,37 @@
    public ScreenBuffer(int frameId, int[] ids)
    {
       baseId = frameId;
-      if (ids != null)
+      
+      if (ids != null && ids.length > 0)
       {
-         size = ids.length;
+         int min = ids[0];
+         int max = ids[0];
+         
          for (int i = 0; i < ids.length; i++)
          {
-            setStateInt(ids[i], UNINITIALIZED);
-         }
-      }
-      else
-      {
-         size = 0;
+            min = Math.min(min, ids[i]);
+            max = Math.max(max, ids[i]);
+         }
+         
+         offset = min;
+         buffer = new StatefulWidgetRecord[calcWidgetArraySize(min, max)];
+         
+         for (int j = 0; j < ids.length; j++)
+         {
+            int idx = calcNextIndex(ids[j]);
+            addWidgetInt(ids[j], idx);
+         }
       }
    }
 
    /**
-    * Gets the maximum size of this screen buffer.
+    * Gets the current number of widgets in this screen buffer.
     *
-    * @return   The total number of widgets in the frame
+    * @return   The total number of non-header widgets in the frame
     */
    public int size()
    {
-      return size;
+      return (buffer == null) ? 0 : size;
    }
 
    /**
@@ -313,18 +367,14 @@
    }
 
    /**
-    * Adding new widget into screen buffer for the given widget ID.
+    * Adds a dynamic widget into the screen buffer.
     * 
     * @param    widgetID
     *           The ID of the widget to be added.
     */
    public void addWidget(int widgetID)
    {
-       // store initial state
-      setStateInt(widgetID, UNINITIALIZED);
-      
-      // and increase the size
-      size++;
+      addWidgetInt(widgetID, calcNextIndex(widgetID));
    }
    
    /**
@@ -335,34 +385,38 @@
     */
    public void removeWidget(int widgetID)
    {
-      // verify the widget ID is valid for this buffer
-      if (!isIdValid(widgetID))
+      int idx = idToIndex(widgetID);
+      
+      // unknown widget, nothing to do
+      if (idx == -1)
          return;
 
-      // remove the state entry
-      state.remove(widgetID);
-      // remove the value itself
-      buffer.remove(widgetID);
-      values.remove(widgetID);
-      // and decrease the total size
-      size--;
+      removeWidgetInt(idx);
    }
    
    /**
-    * Storing the new value for the given widget ID.
+    * Store the new value for the given widget ID.
+    * <p>
+    * In permissive mode, this method will not fail if the widget id is not already known.  Instead, the
+    * widget is added implicitly.  This does not occur under the normal (non-permissive) mode.
     * 
     * @param    widgetID
     *           The ID of the widget to which the data is related.
     * @param    value
     *           New value as an Object instance.
+    *           
+    * @return   {@code true} if this was a valid/existing widget.
     */
-   public void putWidgetValue(int widgetID, Object value)
+   public boolean putWidgetValue(int widgetID, Object value)
    {
-      putWidgetValue(widgetID, value, false);
+      return putWidgetValue(widgetID, value, false);
    }
    
    /**
-    * Storing the new value for the given widget ID.
+    * Store the new value for the given widget ID.
+    * <p>
+    * In permissive mode, this method will not fail if the widget id is not already known.  Instead, the
+    * widget is added implicitly.  This does not occur under the normal (non-permissive) mode.
     * 
     * @param    widgetID
     *           The ID of the widget to which the data is related.
@@ -372,43 +426,56 @@
     *           Flag indicating if the widget's state is preserved. 
     *           When <code>false</code>, the widget state is set to {@link #CHANGED}. Otherwise
     *           it remains unchanged.
+    *           
+    * @return   {@code true} if this was a valid/existing widget.
     */
-   public void putWidgetValue(int widgetID, Object value, boolean preserveState)
+   public boolean putWidgetValue(int widgetID, Object value, boolean preserveState)
    {
-      // verify the widget ID is valid for this buffer
-      if (!isIdValid(widgetID))
-         return;
+      int idx = idToIndex(widgetID);
+      
+      // unknown widget, nothing to do
+      if (idx == -1)
+      {
+         if (permissive)
+         {
+            idx = calcNextIndex(widgetID);
+            addWidgetInt(widgetID, idx);
+         }
+         else
+         {
+            return false;
+         }
+      }
 
+      // change state, if needed
       if (!preserveState)
       {
-         // if widget already changed state override initial
-         byte stateNew = getStateInt(widgetID);
-         
-         // change state
-         stateNew &= STATE_MAX - UNINITIALIZED - ENTERED;
-         stateNew |= CHANGED;
-         // store new state
-         setStateInt(widgetID, stateNew);
+         buffer[idx].state = CHANGED;
       }
       
       // and store new widget value
-      buffer.put(widgetID, value);
+      buffer[idx].value = value;
+      
+      return true;
    }
 
    /**
-    * Storing the new header value for the given widget ID.
+    * Allocate and copy the given header widgets.
     * 
-    * @param    widgetID
-    *           The ID of the widget to which the data is related.
-    * @param    value
-    *           New value as an Object instance.
+    * @param    elements
+    *           The header elements to copy.
     */
-   public void putHeaderValue(int widgetID, Object value)
+   public void allocateHeaders(FrameElement[] elements)
    {
-      if (headers == null)
-         headers = new LinkedHashMap<Integer, Object>();
-      
-      headers.put(widgetID, value);
+      if (elements == null || elements.length == 0)
+         return;
+      
+      headers = new WidgetRecord[elements.length];
+      
+      for (int i = 0; i < elements.length; i++)
+      {
+         headers[i] = new WidgetRecord(elements[i].getWidget().getId(), elements[i].get());
+      }
    }
    
    /**
@@ -416,73 +483,99 @@
     * 
     * @param    widgetID
     *           The ID of the widget to which the data is related.
-    * @return   State of this widget or <code>-1</code> if such ID does not
-    *           exist.
+    * @return   State of this widget or <code>-1</code> if such ID does not exist.
     */
    public byte getState(int widgetID)
    {
-      // verify the widget ID is valid for this buffer
-      if (!isIdValid(widgetID))
-      {
+      int idx = idToIndex(widgetID);
+      
+      // unknown widget, nothing to do
+      if (idx == -1)
          return -1;
-      }
-      
+
       // get the current status
-      return getStateInt(widgetID); 
+      return buffer[idx].state; 
    }
 
    /**
-    * Stores the new state for the widget with the given widget ID.
-    * IF the new state is UNINITIALIZED, the previous value of the widget,
-    * if any, is deleted.
+    * Stores the new state for the widget with the given widget ID.  If the new state is UNINITIALIZED,
+    * the previous value of the widget, if any, is deleted.
+    * <p>
+    * In permissive mode, this method will not fail if the widget id is not already known.  Instead, the
+    * widget is added implicitly.  This does not occur under the normal (non-permissive) mode.
     * 
     * @param    widgetID
     *           The ID of the widget to which the data is related.
     * @param    state
-    *           new state
+    *           The new state flags.
     */
    public void setState(int widgetID, byte state)
    {
-      // verify the widget ID is valid for this buffer
-      if (!isIdValid(widgetID))
+      int idx = idToIndex(widgetID);
+      
+      // unknown widget, nothing to do
+      if (idx == -1)
       {
-         return;
+         if (permissive)
+         {
+            idx = calcNextIndex(widgetID);
+            addWidgetInt(widgetID, idx);
+         }
+         else
+         {
+            return;
+         }         
       }
 
+      // invalid state, nothing to do
       if (state < STATE_MIN || state > STATE_MAX)
          return;
 
       // remove widget value if become uninitialized
       if (state == UNINITIALIZED)
       {
-         buffer.remove(new Integer(widgetID));
+         buffer[idx].value = null;
       }
       
       // store new state value for this widget ID
-      setStateInt(widgetID, (byte)state);
+      buffer[idx].state = state;
    }
    
    /**
-    * Requests the iterator to walk through the content of the screen buffer.
+    * Remove all widget IDs from the given set if the widget has a non-null value in the screen buffer. 
     * 
-    * @return   The iterator for the screen buffer content.
+    * @param    widgets
+    *           The set from which the IDs will be removed.
     */
-   public Iterator<Integer> getWidgetIDIterator()
+   public void removeWidgetIDs(Set<Integer> widgets)
    {
-      return buffer.keySet().iterator();
+      if (buffer != null)
+      {
+         for (int i = 0; i < buffer.length; i++)
+         {
+            if (buffer[i] != null && buffer[i].value != null)
+            {
+               widgets.remove(buffer[i].id);
+            }
+         }
+      }
    }
 
    /**
-    * Requests the iterator to walk through the content of the header widgets.
+    * Executes the given consumer for each header widget.
     * 
-    * @return   The iterator for the screen buffer content.
+    * @param    consume
+    *           The function that consumes the header widget values.
     */
-   public Iterator<Integer> getHeaderIDIterator()
+   public void processHeaders(BiConsumer<Integer, Object> consume)
    {
-      if (headers == null)
-         return (new HashMap<Integer, Object>()).keySet().iterator();
-      
-      return headers.keySet().iterator();
+      if (headers != null)
+      {
+         for (int i = 0; i < headers.length; i++)
+         {
+            consume.accept(headers[i].id, headers[i].value);
+         }
+      }
    }
    
    /**
@@ -495,25 +588,15 @@
     */
    public Object getWidgetValue(int widgetID)
    {
-      return buffer.get(widgetID);
-   }
-
-   /**
-    * Getting the header value in the Object form for the given widget ID.
-    * 
-    * @param    widgetID
-    *           The numeric ID of a widget whose value must be returned.
-    * 
-    * @return   The Object instance of the widget value.
-    */
-   public Object getHeaderValue(int widgetID)
-   {
-      if (headers == null)
+      int idx = idToIndex(widgetID);
+      
+      // unknown widget, nothing to return
+      if (idx == -1)
          return null;
       
-      return headers.get(widgetID);
+      return buffer[idx].value;
    }
-   
+
    /**
     * Set screen value for specified widget.
     * 
@@ -717,7 +800,7 @@
     */
    public ScreenBuffer getChanged()
    {
-      ScreenBuffer diff = new ScreenBuffer(baseId, size);
+      ScreenBuffer diff = new ScreenBuffer(baseId, buffer == null ? 0 : buffer.length);
       
       // copy down value
       diff.down = this.down;
@@ -735,38 +818,35 @@
       // copy current frame value
       diff.frameValue = this.frameValue;
       
-      // copying state info
-      copyState(diff);
-
-      // copy changed widget values
-      Iterator<Integer> iter = buffer.keySet().iterator();
-      
-      Integer id = null;
-      Object value = null;
-      
-      while (iter.hasNext())
+      // copy widget state and values
+      if (buffer != null)
       {
-         id = iter.next();
-
-         // get current state and check for CHANGED flag
-         if (!((getStateInt(id) & CHANGED) == CHANGED))
+         diff.offset = this.offset;
+         
+         for (int j = 0; j < buffer.length; j++)
          {
-            continue;
+            if (buffer[j] != null)
+            {
+               diff.addWidgetInt(buffer[j].id, j);
+               diff.buffer[j].state = buffer[j].state;
+               
+               // get current state and check for CHANGED flag
+               if ((buffer[j].state & CHANGED) == CHANGED)
+               {
+                  diff.buffer[j].value = buffer[j].value;
+               }
+            }
          }
-         
-         value = buffer.get(id);
-         diff.buffer.put(id, value);
       }
-
+      
       // copy header widgets 
       if (headers != null)
       {
-         iter = headers.keySet().iterator();
+         diff.headers = new WidgetRecord[headers.length];
          
-         while(iter.hasNext())
+         for (int i = 0; i < headers.length; i++)
          {
-            id = iter.next();
-            diff.putHeaderValue(id, headers.get(id));
+            diff.headers[i] = new WidgetRecord(headers[i]);
          }
       }
       
@@ -785,33 +865,38 @@
     * one. Changed widgets are marked as ENTERED.
     * 
     * @param    diff
-    *           a differential <code>ScreenBuffer</code> to copy widget values
-    *           from.
+    *           a differential <code>ScreenBuffer</code> to copy widget values from.
     */
    public void mergeChanged(ScreenBuffer diff)
    {
       // copy changed widget values
-      Iterator<Integer> iter = diff.buffer.keySet().iterator();
-      
-      Integer id = null;
-      Object value = null;
-      
-      while (iter.hasNext())
+      if (diff.buffer != null)
       {
-         id = iter.next();
+         for (int i = 0; i < diff.buffer.length; i++)
+         {
+            if (diff.buffer[i] != null)
+            {
+               // get current status from diff buffer and check for CHANGED flag
+               if ((diff.buffer[i].state & CHANGED) == CHANGED)
+               {
+                  int idx = idToIndex(diff.buffer[i].id);
 
-         // get current status from diff buffer and check for CHANGED flag
-         if (!((diff.getStateInt(id) & CHANGED) == CHANGED))
-            continue;
-         
-         value = diff.buffer.get(id);
-         this.buffer.put(id, value);
-         // get current state from this current buffer
-         byte stateCurr = getStateInt(id);
-         // reset UNINITIALIZED
-         stateCurr &= ~UNINITIALIZED;
-         stateCurr |= ENTERED;
-         setStateInt(id, stateCurr);
+                  // if the widget doesn't already exist, we need to add it
+                  if (idx == -1)
+                  {
+                     idx = calcNextIndex(diff.buffer[i].id);
+                     addWidgetInt(diff.buffer[i].id, idx);
+                  }
+                  
+                  buffer[idx].value = diff.buffer[i].value;
+                  buffer[idx].state = diff.buffer[i].state;
+                  
+                  // reset UNINITIALIZED
+                  buffer[idx].state &= ~UNINITIALIZED;
+                  buffer[idx].state |= ENTERED;
+               }
+            }            
+         }
       }
       
       // copy the frame line
@@ -830,32 +915,37 @@
  
    /**
     * Resets all widgets having ENTERED state.
+    * 
     * @param    ids 
     *           Array of IDs of entered widgets.
     */
    public void resetEntered(int[] ids)
    {
+      if (buffer == null)
+         return;
+      
       byte flags = STATE_MAX - ENTERED;
 
+      // reset entered state bit for each widget
       if (ids == null)
       {
-         Iterator<Integer> iter = state.keySet().iterator();
-
-         while (iter.hasNext())
+         for (int j = 0; j < buffer.length; j++)
          {
-            Integer id = iter.next();
-            // reset entered state bit for next widget
-            bitwiseAndState(id.intValue(), flags);
+            if (buffer[j] != null)
+            {
+               buffer[j].state &= flags;
+            }
          }
       }
       else
       {
          for (int i = 0; i < ids.length; i++)
          {
-            if (isIdValid(ids[i]))
+            int idx = idToIndex(ids[i]);
+            
+            if (idx != -1)
             {
-               // reset entered state bit for next widget
-               bitwiseAndState(ids[i], flags);
+               buffer[idx].state &= flags;
             }
          }
       }
@@ -866,25 +956,45 @@
     */
    public void markAllChangedStatesAsEntered()
    {
-      Iterator<Integer> iter = state.keySet().iterator();
-
-      while (iter.hasNext())
-      {
-         Integer id = iter.next();
-         
-         byte stateCurr = getStateInt(id);
-         
-         if (!((stateCurr & CHANGED) == CHANGED))
-         {
-            continue;
+      if (buffer != null)
+      {
+         for (int i = 0; i < buffer.length; i++)
+         {
+            if (buffer[i] != null && (buffer[i].state & CHANGED) == CHANGED)
+            {
+               // reset UNINITIALIZED
+               buffer[i].state &= ~UNINITIALIZED;
+               buffer[i].state |= ENTERED;
+            }
+         }         
+      }
+   }
+   
+   /**
+    * Mark all widgets as changed and return an array of all widget IDs.
+    * 
+    * @return   All widget IDs.  This will be a 0 sized array (not {@code null}) when there are no
+    *           widgets in the buffer.
+    */
+   public int[] markAllChanged()
+   {
+      int[] ids = new int[size];
+      
+      if (buffer != null)
+      {
+         int idx = 0;
+         
+         for (int i = 0; i < buffer.length; i++)
+         {
+            if (buffer[i] != null)
+            {
+               ids[idx++] = buffer[i].id;
+               buffer[i].state = CHANGED;
+            }
          }
-         
-         // reset UNINITIALIZED
-         stateCurr &= ~UNINITIALIZED;
-         stateCurr |= ENTERED;
-         
-         setStateInt(id, stateCurr);
       }
+      
+      return ids;
    }
 
    /**
@@ -892,14 +1002,17 @@
     */
    public void resetChanged()
    {
-      byte flags = STATE_MAX - CHANGED;
-      Iterator<Integer> iter = state.keySet().iterator();
-
-      while (iter.hasNext())
+      if (buffer != null)
       {
-         Integer id = iter.next();
-         // reset changed state bit for next widget
-         bitwiseAndState(id.intValue(), flags);
+         byte flags = STATE_MAX - CHANGED;
+         
+         for (int i = 0; i < buffer.length; i++)
+         {
+            if (buffer[i] != null)
+            {
+               buffer[i].state &= flags;
+            }
+         }         
       }
    }
 
@@ -908,14 +1021,17 @@
     */
    public void reset()
    {
-      Iterator<Integer> iter = state.keySet().iterator();
-
-      while (iter.hasNext())
+      if (buffer != null)
       {
-         setStateInt(iter.next(), UNINITIALIZED);
+         for (int i = 0; i < buffer.length; i++)
+         {
+            if (buffer[i] != null)
+            {
+               buffer[i].state = UNINITIALIZED;
+               buffer[i].value = null;
+            }
+         }         
       }
-      
-      buffer.clear();
    }
 
    /**
@@ -923,19 +1039,19 @@
     *
     * @param    widgetID
     *           The ID of the widget to which the data is related.
+    *           
     * @return   <code>true</code> if the widget has been modified during the 
     *           last input operation.
     */
    public boolean isEntered(int widgetID)
    {
-      // verify the widget ID is valid for this buffer
-      if (!isIdValid(widgetID))
-      {
+      int idx = idToIndex(widgetID);
+      
+      if (idx == -1)
          return false;
-      }
 
       // verify the state has ENTERED flag on
-      return (getStateInt(widgetID) & ENTERED) == ENTERED;
+      return (buffer[idx].state & ENTERED) == ENTERED;
    }
    
    /**
@@ -948,14 +1064,13 @@
     */
    public boolean isChanged(int widgetID)
    {
-      // verify the widget ID is valid for this buffer
-      if (!isIdValid(widgetID))
-      {
+      int idx = idToIndex(widgetID);
+      
+      if (idx == -1)
          return false;
-      }
 
       // verify the state is not UNCHANGED or UNINITIALIZED
-      return getStateInt(widgetID) != UNCHANGED && !isUninitialized(widgetID);
+      return buffer[idx].state != UNCHANGED && !((buffer[idx].state & UNINITIALIZED) == UNINITIALIZED);
    }
 
    /**
@@ -968,16 +1083,16 @@
     */
    public boolean isUninitialized(int widgetID)
    {
-      // verify the widget ID is valid for this buffer
-      if (!isIdValid(widgetID))
+      int idx = idToIndex(widgetID);
+      
+      if (idx == -1)
       {
-         // false means it is initialized which is worse, but this doesn't make much sense
-         // either
-         return true;
+         // false means it is initialized which is worse, but this doesn't make much sense either
+         return true;         
       }
 
       // verify the state has UNINITIALIZED flag on
-      return (getStateInt(widgetID) & UNINITIALIZED) == UNINITIALIZED;
+      return (buffer[idx].state & UNINITIALIZED) == UNINITIALIZED;
    }
 
    /**
@@ -1056,93 +1171,39 @@
    }
    
    /**
-    * Debugging Aid.
-    * Visualizes the contents of this instance.
+    * Debugging aid to visualize the contents of this instance.
     *
     * @return   The array of strings that represent the contents of the buffer.
     */
    public String[] view()   
    {
-      int lsize = size + 1 + buffer.size() + 1 + 
-                  (headers == null ? 0 : headers.size() + 1); 
-      String[] s = new String[lsize];
-      int i = 0;
-
-      // state flags
-      s[0] = String.format("state[%d]:", new Object[] {size});
-
-      Iterator<Integer> it = state.keySet().iterator();
-      Integer id = null;
-      while (it.hasNext())
-      {
-         StringBuffer sb = new StringBuffer();
-         boolean f = false;
-         id = it.next();
-         Byte bw = state.get(id);
-         byte b = (bw != null) ? bw.byteValue() : UNINITIALIZED;
-
-         if (b >= ENTERED)
-         {
-            f = true;
-            sb.append("ENTERED ");
-            b -= ENTERED;
-         }
-
-         if (b >= CHANGED)
-         {
-            f = true;
-            sb.append("CHANGED ");
-            b -= CHANGED;
-         }
+      ArrayList<String> output = new ArrayList<>();
+      
+      if (buffer != null)
+      {
+         output.add(String.format("buffer[%d]:", buffer.length));
+      
+         for (int j = 0; j < buffer.length; j++)
+         {
+            output.add("   " + ((buffer[j] == null) ? "null" : buffer[j].toString()));
+         }
+      }
+      else
+      {
+         output.add("buffer == null");
+      }
+
+      if (headers != null)
+      {
+         output.add(String.format("headers[%d]:", headers.length));
          
-         if (b >= UNINITIALIZED)
-         {
-            f = true;
-            sb.append("UNINITIALIZED ");
-            b -= UNINITIALIZED;
-         }
-
-         if (!f)         
-         {
-            sb.append("UNCHANGED ");
-         }
-
-         s[i + 1] = String.format(" %d: %s", new Object[] {id.intValue(), sb.toString()});
-         i++;
-      }
-
-      // widgets
-      s[i++] = String.format("widgets[%d]:", new Object[] {buffer.size()});
-      it = buffer.keySet().iterator();
-      id = null;
-      Object  v  = null;
-      while (it.hasNext())
-      {
-         id = it.next();
-         v = buffer.get(id);
-         if (v instanceof BaseDataType)
-         {
-            v = ((BaseDataType)v).toStringMessage();
-         }
-         s[i] = String.format(" %d: %s", new Object[] {id, v});
-         i++;
-      }
-
-      // headers
-      if (headers == null)
-         return s;
-
-      s[i++] = String.format("headers[%d]:", new Object[] {headers.size()});
-      it = headers.keySet().iterator();
-      while (it.hasNext())
-      {
-         id = it.next();
-         v = headers.get(id);
-         s[i] = String.format(" %d: %s", new Object[] {id, v});
-         i++;
-      }
-
-      return s;
+         for (int j = 0; j < headers.length; j++)
+         {
+            output.add(String.format("   id = %d; value = %s", headers[j].id, headers[j].value));
+         }
+      }
+
+      return output.toArray(new String[0]);
    }
 
    /**
@@ -1167,8 +1228,7 @@
    }
    
    /**
-    * Replacement for the default object reading method. The latest
-    * state is read from the input source.
+    * Replacement for the default object reading method. The latest state is read from the input source.
     * 
     * @param    in
     *           The input source from which fields will be restored.
@@ -1184,6 +1244,8 @@
           ClassNotFoundException
    {
       baseId     = in.readInt();
+      offset     = in.readInt();
+      size       = in.readInt();
       keyCode    = in.readInt();
       keyState   = in.readByte();
       down       = in.readInt();
@@ -1191,31 +1253,41 @@
       row        = in.readInt();
       column     = in.readInt();
       widgetId   = in.readInt();
-      size       = in.readInt();
       title      = readString(in);
       frameValue = readString(in);
       
-      // convert the widget and header arrays back to maps
-      state   = readMap(in, HashMap::new, NativeTypeSerializer::readInteger, NativeTypeSerializer::readByte);
-      buffer  = readMap(in, HashMap::new, NativeTypeSerializer::readInteger, ObjectInput::readObject);
-      headers = readMap(in, HashMap::new, NativeTypeSerializer::readInteger, ObjectInput::readObject);
+      // convert the widget arrays back to maps
+      buffer  = readSparseExtArray(in, StatefulWidgetRecord[]::new, StatefulWidgetRecord::new);
+      headers = readExtArray(in, WidgetRecord[]::new, WidgetRecord::new);
       values  = readMap(in, HashMap::new, NativeTypeSerializer::readInteger, ObjectInput::readObject);
+
+      if (buffer != null)
+      {
+         for (int i = 0; i < buffer.length; i++)
+         {
+            if (buffer[i] != null)
+            {
+               // detect non-contiguous mode and remember any non-contiguous id mappings
+               if (buffer[i].id - offset != i)
+               {
+                  indices.put(buffer[i].id, i);
+               }
+            }
+         }
+      }
       
-      /** 
-       * downConfigs contains instances of different subclasses of WidgetConfig
-       * hence the information about the class are added to the stream  
-       */
+       // downConfigs contains instances of different subclasses of WidgetConfig
+       // hence the information about the class are added to the stream  
       downConfigs = readArray(in, WidgetConfig[]::new, s -> (WidgetConfig)s.readObject());
       
       currentStatement = readEnum(in, UIStatement.values());
    }
 
    /**
-    * Replacement for the default object writing method. The latest
-    * state is written to the output destination.
+    * Replacement for the default object writing method. Writes the current state to the output destination.
     * 
     * @param    out
-    *           The output destination to which fields will be saved.
+    *           The output destination to which fields will be written.
     *           
     * @throws   IOException
     *           In case of I/O errors.
@@ -1225,6 +1297,8 @@
    throws IOException
    {
       out.writeInt(baseId);
+      out.writeInt(offset);
+      out.writeInt(size);
       out.writeInt(keyCode);
       out.writeByte(keyState);
       out.writeInt(down);
@@ -1232,104 +1306,567 @@
       out.writeInt(row);
       out.writeInt(column);
       out.writeInt(widgetId);
-      out.writeInt(size);
       writeString(out, title);
       writeString(out, frameValue);
-      writeMap(out, state, NativeTypeSerializer::writeInteger, NativeTypeSerializer::writeByte);
-      writeMap(out, buffer, NativeTypeSerializer::writeInteger, ObjectOutput::writeObject);
-      writeMap(out, headers, NativeTypeSerializer::writeInteger, ObjectOutput::writeObject);
+      writeSparseArray(out, buffer);
+      writeArray(out, headers);
       writeMap(out, values, NativeTypeSerializer::writeInteger, ObjectOutput::writeObject);
-      /** 
-       * downConfigs contains instances of different subclasses of WidgetConfig
-       * hence the information about the class should be added to the stream  
-       */
+      
+      // downConfigs contains instances of different subclasses of WidgetConfig
+      // hence the information about the class should be added to the stream  
       writeArray(out, ObjectOutput::writeObject, downConfigs);
       writeEnum(out, currentStatement);
    }
-
-   /**
-    * Checks the ID to be used inside this screen buffer.
-    *
-    * @param    id
-    *           The ID of the widget to verify.
-    * @return   <code>true</code> if the widget ID can be used inside this screen buffer
-    *           <code>false</code> otherwise.
-    */
-   public boolean isIdValid(int id)
-   {
-      return state.containsKey(id) || state.size() < size;
-   }
-
-   /**
-    * Makes bitwise AND operation with the given widget ID state according to mask provided.  The
-    * state byte after operation is storing back to the state map.
-    *
-    * @param    id
-    *           The ID of the widget to reset status.
-    * @param    mask
-    *           The mask to perform bitwise and operation with the current one.
-    */
-   private void bitwiseAndState(int id, byte mask)
-   {
-      // if status exists
-      state.computeIfPresent(id, (k, v) ->
-      {
-         // get current status
-         byte stateNew = v.byteValue();
-         // change it
-         stateNew &= mask;
-         // store it back
-         return stateNew;
-      });
-   }
-
-   /**
-    * Gets the current state for the given widget ID.  Assuming the widget ID is valid for this
-    * screen buffer.  Internal version of the method. 
-    * 
-    * @param    id
-    *           The ID of the widget to which the state byte to be returned.
-    *
-    * @return   State of this widget or <code>UNINITIALIZED</code> if such ID does not exist in
-    *           current state map.
-    */
-   private byte getStateInt(int id)
-   {
-      // get the current status
-      Byte stateByte = state.get(id);
-      
-      return (stateByte != null) ? stateByte.byteValue() : UNINITIALIZED; 
-   }
-
-   /**
-    * Stores the new state for the widget with the given widget ID.  Internal version.  If the
-    * new state is UNINITIALIZED, the previous value of the widget and state, if any, is deleted.
-    * 
-    * @param    id
-    *           The ID of the widget to which the state byte is to be stored.
-    * @param    stateNew
-    *           new state
-    */
-   private void setStateInt(int id, byte stateNew)
-   {
-      // state value should be kept in buffer even if widget become uninitialized or removed
-      state.put(id, stateNew);
-   }
-
-   /**
-    * Copies the state info map from the current state to target screen buffer.  No checking, just
-    * copy existed map entries
-    * 
-    * @param    target
-    *           a <code>ScreenBuffer</code> to copy state map info to.
-    */
-   private void copyState(ScreenBuffer target)
-   {
-      Iterator<Integer> iter = state.keySet().iterator();
-      while (iter.hasNext())
-      {
-         Integer nextId = iter.next();
-         target.state.put(nextId, this.state.get(nextId));
+   
+   /**
+    * Ensure that there is enough capacity in the widget array and return a valid, empty array index.
+    * 
+    * @param    widgetID
+    *           The ID of the widget to which the data is related.
+    *           
+    * @return   A valid, empty array index in which the next widget should be stored.
+    */
+   private int calcNextIndex(int widgetID)
+   {
+      int possible = -1;
+      
+      // allocate the array if it was not otherwise allocated or if it is zero-sized; some callers
+      // (dynamic frames) instantiate using permissive mode and numWidgets == 0 which allocates a
+      // zero-sized array
+      if (buffer == null || buffer.length == 0)
+      {
+         buffer  = new StatefulWidgetRecord[MIN_ELEMENTS];
+         offset  = widgetID;
+         return 0;
+      }
+      else
+      {
+         // buffer exists but it is an empty array, initialize contiguous mode
+         if (size == 0)
+         {         
+            // if the offset was not already initialized, do it here (assumes the first widget is the min
+            // value)
+            if (offset == -1)
+            {
+               offset = widgetID;
+               return 0;
+            }
+         }         
+         
+         // non-empty array try an offset index
+         possible = offsetIndex(widgetID);
+
+         if (possible == -1)
+         {
+            // the offset can't work with this ID
+            if (reallocate(widgetID))
+            {
+               // we have a bigger buffer that should now work in contiguous mode
+               possible = offsetIndex(widgetID);
+            }
+         }
+         
+         if (possible != -1 && buffer[possible] == null)
+         {
+            return possible;
+         }         
+      }
+      
+      // contiguous mode can't be used, just find an open element
+      // DEBUG System.err.printf("ScreenBuffer CONTIGUOUS MODE UNAVAILABLE; wid = %d; possible = %d; size = %d; offset = %d; buffer.length = %d\n", widgetID, possible, size, offset, buffer.length);
+
+      // out of space, enlarge
+      if (size == buffer.length)
+      {
+         buffer = Arrays.copyOf(buffer, buffer.length + MIN_ELEMENTS);
+      }
+      
+      // search from the top down (we often have padding on that end)
+      for (int i = buffer.length - 1; i >= 0; i--)
+      {
+         if (buffer[i] == null)
+         {
+            return i;
+         }
+      }
+      
+      // should not happen
+      // DEBUG System.err.printf("ScreenBuffer calcNextIndex() FAILURE; wid = %d; size = %d; offset = %d; buffer.length = %d\n", widgetID, size, offset, buffer.length);
+      return -1;
+   }
+   
+   /**
+    * Reallocate the buffer to accommodate the given widget in contiguous mode. This should only be called
+    * if the buffer is already allocated AND the widget ID cannot be accommodated already. 
+    * 
+    * @param    wid
+    *           Widget ID.
+    */
+   private boolean reallocate(int wid)
+   {
+      int sz = 0;
+      
+      // the offset (which is the minimum widget id that can be indexed currently) can't work with this
+      // smaller ID
+      if (wid < offset)
+      {
+         int missing = offset - wid;
+         int needed  = buffer.length + missing;
+         
+         // DEBUG
+         // System.err.printf("ScreenBuffer reallocate() FRONT; wid = %d; missing = %d; needed = %d;" +
+         //                   " size = %d; offset = %d; buffer.length = %d\n", 
+         //                   wid, 
+         //                   missing,
+         //                   needed, 
+         //                   size, 
+         //                   offset,
+         //                   buffer.length);
+         
+         if (needed > MAX_SPARSE_ARRAY_SIZE)
+         {
+            // no space to enlarge
+            if (size != buffer.length)
+            {
+               int avail = 0;
+               
+               // calculate how much empty space is at the end of the array
+               for (int i = buffer.length - 1; i >= 0; i--)
+               {
+                  if (buffer[i] != null)
+                  {
+                     break;
+                  }
+                  else
+                  {
+                     avail++;
+                  }
+               }
+               
+               // DEBUG
+               // System.err.printf("ScreenBuffer reallocate() SHIFT; wid = %d; missing = %d; needed = %d;" +
+               //                   " avail = %d; size = %d; offset = %d; buffer.length = %d\n", 
+               //                   wid, 
+               //                   missing,
+               //                   needed, 
+               //                   avail,
+               //                   size, 
+               //                   offset,
+               //                   buffer.length);
+               
+               // shift the existing entries if there is space at the end
+               if (avail >= missing)
+               {
+                  for (int k = buffer.length - (avail + 1); k >= 0; k--)
+                  {
+                     buffer[k + avail] = buffer[k]; 
+                  }
+                  Arrays.fill(buffer, 0, avail, null);
+                  offset = wid;
+               }
+               else
+               {
+                  // the array is sparse, but the first and last widgets are too far apart to shift
+                  return false;
+               }
+            }
+            else
+            {
+               // the array is full and the buffer length is already at the size limit
+               return false;
+            }
+         }
+         else
+         {
+            // try to enlarge from the beginning
+            int min = wid;
+            int max = offset + buffer.length;
+            
+            sz = calcWidgetArraySize(min, max);
+            
+            // DEBUG
+            // System.err.printf("ScreenBuffer reallocate() ENLARGE FRONT; wid = %d; min = %d; max = %d;" +
+            //                   " sz = %d; size = %d; offset = %d; buffer.length = %d\n", 
+            //                   wid, 
+            //                   min,
+            //                   max, 
+            //                   sz, 
+            //                   size, 
+            //                   offset,
+            //                   buffer.length);
+            
+            if (sz != buffer.length)
+            {
+               StatefulWidgetRecord[] replacement = new StatefulWidgetRecord[sz];
+               System.arraycopy(buffer, 0, replacement, offset - min, buffer.length);
+               
+               buffer = replacement;
+               offset = min;            
+            }
+            else
+            {
+               // reallocation failed
+               return false;
+            }            
+         }
+      }
+      else
+      {
+         // enlarge from the end
+         sz = calcWidgetArraySize(offset, wid + MIN_ELEMENTS);
+         
+         // DEBUG
+         // System.err.printf("ScreenBuffer reallocate() ENLARGE BACK; wid = %d; min = %d, max = %d;" +
+         //          " sz = %d; size = %d; offset = %d; buffer.length = %d\n", 
+         //          wid,
+         //          offset,
+         //          wid + MIN_ELEMENTS, 
+         //          sz, 
+         //          size, 
+         //          offset,
+         //          buffer.length);
+                  
+         if (sz != buffer.length)
+         {
+            buffer = Arrays.copyOf(buffer, sz);
+         }               
+         else
+         {
+            // reallocation failed
+            return false;
+         }
+      }
+
+      return true;
+   }
+
+   /**
+    * Add an uninitialized widget to the buffer at the given index.  No error checking is done.  The buffer
+    * index must be valid and unused.
+    * 
+    * @param    id
+    *           The widget ID to add.
+    * @param    idx
+    *           The element index at which to add.
+    */
+   private void addWidgetInt(int id, int idx)
+   {
+      // if not in contiguous mode, we need to add the id to the map
+      if (idx + offset != id)
+      {
+         // DEBUG System.err.printf("ScreenBuffer MAP PUT; wid = %d; idx = %d; size = %d; offset = %d; buffer.length = %d; map size = %d\n", id, idx, size, offset, buffer.length, indices.size());
+         indices.put(id, idx);
+      }
+      
+      buffer[idx] = new StatefulWidgetRecord(id, null, UNINITIALIZED);
+      size++;
+   }
+
+   /**
+    * Remove the widget at the given index position.
+    * 
+    * @param    idx
+    *           The array index to remove.
+    */
+   private void removeWidgetInt(int idx)
+   {
+      if (buffer != null && idx >= 0 && idx < buffer.length && buffer[idx] != null)
+      {
+         // remove the value itself
+         values.remove(buffer[idx].id);
+         
+         if (idx + offset != buffer[idx].id)
+         {
+            indices.remove(buffer[idx].id);   
+         }
+         
+         buffer[idx] = null;
+         size--;         
+      }
+   }
+   
+   /**
+    * The array index of the given widget.
+    * 
+    * @param    id
+    *           The widget to lookup.
+    *           
+    * @return   The array index or -1 if the widget is not present in this screen buffer.
+    */
+   private int idToIndex(int id)
+   {
+      // very quick out, there are no ids
+      if (buffer == null || size == 0)
+         return -1;
+      
+      // next try the offset mode, contiguous ids added starting at index 0 can be found this way
+      int possible = offsetIndex(id);
+      
+      if (possible != -1)
+      {
+         if (buffer[possible] != null && buffer[possible].id == id)
+         {
+            return possible;
+         }
+      }
+      
+      // fallback approach for non-contiguous ids
+      Integer idx = indices.get(id);
+      
+      return (idx == null || buffer[idx] == null) ? -1 : idx;
+   }
+
+   /**
+    * Calculate the index for the given widget in contiguous node.
+    * 
+    * @param    id
+    *           The widget ID.
+    *           
+    * @return   The valid contiguous mode index or -1 if the widget cannot be used in this mode.
+    */
+   private int offsetIndex(int id)
+   {
+      if (offset != -1 && buffer != null)
+      {
+         int possible = id - offset;
+      
+         if (possible >= 0 && possible < buffer.length)
+         {
+            return possible;
+         }
+      }
+
+      return -1;
+   }
+
+  /**
+   * Calculate the buffer array size based on the expected widget ID range.  If possible, the array will
+   * be sized to allow all widgets to be stored/retried via offset mode.
+   *  
+   * @param    min
+   *           The smallest widget ID to be used for this screen buffer.
+   * @param    max
+   *           The largest widget ID to be used for this screen buffer.
+   */
+  private int calcWidgetArraySize(int min, int max)
+  {
+     int size    = (max - min) + 1;
+     int aligned = ((size % MIN_ELEMENTS) == 0) ? size : ((size / MIN_ELEMENTS) + 1) * MIN_ELEMENTS;
+     
+     // DEBUG System.err.printf("ScreenBuffer calcWidgetArraySize() min = %d; max = %d; size = %d; aligned = %d\n", min, max, size, aligned);
+     
+     return (aligned <= MAX_SPARSE_ARRAY_SIZE) ? aligned : MAX_SPARSE_ARRAY_SIZE;
+  }
+   
+   /**
+    * Stores the details of a given widget. 
+    */
+   private static class WidgetRecord
+   implements Externalizable
+   {
+      /** Widget ID for this widget. */
+      int id = -1;
+      
+      /** Value for the widget. */
+      Object value = null;
+      
+      /**
+       * Default constructor.
+       */
+      WidgetRecord()
+      {
+      }
+      
+      /**
+       * Constructor.
+       * 
+       * @param    id
+       *           The widget ID.
+       * @param    value
+       *           The widget value.
+       */
+      WidgetRecord(int id, Object value)
+      {
+         this.id    = id;
+         this.value = value;
+      }
+      
+      /**
+       * Copy constructor.
+       * 
+       * @param    other
+       *           The instance to copy.
+       */
+      WidgetRecord(WidgetRecord other)
+      {
+         this.id    = other.id;
+         this.value = other.value;
+      }
+      
+      /**
+       * Render the instance as text.
+       * 
+       * @return   The rendered text.
+       */
+      @Override
+      public String toString()
+      {
+         return String.format("id: %d; value: %s", id, value);
+      }
+      
+      /**
+       * Replacement for the default object reading method. The latest state is read from the input source.
+       * 
+       * @param    in
+       *           The input source from which fields will be restored.
+       *
+       * @throws   IOException
+       *           In case of I/O errors.
+       * @throws   ClassNotFoundException
+       *           If payload can't be instantiated.
+       */
+      @Override
+      public void readExternal(ObjectInput in)
+      throws IOException,
+             ClassNotFoundException
+      {
+         id    = in.readInt();
+         value = in.readObject();
+      }
+      
+      /**
+       * Replacement for the default object writing method. Writes the current state to the output destination.
+       * 
+       * @param    out
+       *           The output destination to which fields will be written.
+       *           
+       * @throws   IOException
+       *           In case of I/O errors.
+       */
+      @Override
+      public void writeExternal(ObjectOutput out)
+      throws IOException
+      {
+         out.writeInt(id);
+         out.writeObject(value);
+      }
+   }
+   
+   /**
+    * Adds a state bitflag to a widget record.
+    */
+   private static class StatefulWidgetRecord
+   extends WidgetRecord
+   {
+      /** Current state for the widget. */
+      byte state = UNINITIALIZED;
+      
+      /**
+       * Default constructor.
+       */
+      StatefulWidgetRecord()
+      {
+      }
+      
+      /**
+       * Constructor.
+       * 
+       * @param    id
+       *           The widget ID.
+       * @param    value
+       *           The widget value.
+       */
+      StatefulWidgetRecord(int id, BaseDataType value, byte state)
+      {
+         super(id, value);
+         this.state = state;
+      }
+      
+      /**
+       * Copy constructor.
+       * 
+       * @param    other
+       *           The instance to copy.
+       */
+      StatefulWidgetRecord(StatefulWidgetRecord other)
+      {
+         super(other);
+         this.state = other.state;
+      }
+      
+      /**
+       * Render the instance as text.
+       * 
+       * @return   The rendered text.
+       */
+      @Override
+      public String toString()
+      {
+         StringBuffer sb = new StringBuffer();
+
+         boolean f = false; 
+
+         if ((state & ENTERED) == ENTERED)
+         {
+            f = true;
+            sb.append("ENTERED ");
+         }
+
+         if ((state & CHANGED) == CHANGED)
+         {
+            f = true;
+            sb.append("CHANGED ");
+         }
+         
+         if ((state & UNINITIALIZED) == UNINITIALIZED)
+         {
+            f = true;
+            sb.append("UNINITIALIZED");
+         }
+
+         if (!f)         
+         {
+            sb.append("UNCHANGED");
+         }
+
+         return String.format("%s; state [%s]", super.toString(), sb.toString());
+      }
+      
+      /**
+       * Replacement for the default object reading method. The latest state is read from the input source.
+       * 
+       * @param    in
+       *           The input source from which fields will be restored.
+       *
+       * @throws   IOException
+       *           In case of I/O errors.
+       * @throws   ClassNotFoundException
+       *           If payload can't be instantiated.
+       */
+      @Override
+      public void readExternal(ObjectInput in)
+      throws IOException,
+             ClassNotFoundException
+      {
+         super.readExternal(in);
+         state = in.readByte();
+      }
+      
+      /**
+       * Replacement for the default object writing method. Writes the current state to the output destination.
+       * 
+       * @param    out
+       *           The output destination to which fields will be written.
+       *           
+       * @throws   IOException
+       *           In case of I/O errors.
+       */
+      @Override
+      public void writeExternal(ObjectOutput out)
+      throws IOException
+      {
+         super.writeExternal(out);
+         out.writeByte(state);
       }
    }
 }

=== modified file 'src/com/goldencode/p2j/ui/ScreenDefinition.java' (properties changed: -x to +x)
--- src/com/goldencode/p2j/ui/ScreenDefinition.java	2020-09-17 11:46:00 +0000
+++ src/com/goldencode/p2j/ui/ScreenDefinition.java	2020-11-17 20:03:34 +0000
@@ -56,6 +56,7 @@
 ** 020 CA  20151026          Added support for nested frames.
 ** 021 HC  20191111          Implemented widget delete on the client.
 ** 022 IAS 20200901          Rework (de)serialization.
+** 023 CA  20201117          Removed the 'deletedWidgets' field, as that is no longer used.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -143,9 +144,6 @@
    /** For each side-label, specify its parent. */
    private Map<Integer, Integer> sideLabelParents = new HashMap<>();
 
-   /** List of deleted widgets */
-   private List<Integer> deletedWidgets;
-
    /**
     * Default constructor (only used for serialization).
     */
@@ -313,32 +311,6 @@
    }
 
    /**
-    * Adds widget id to the list of deleted widgets.
-    *
-    * @param   widgetId
-    *          Id of the deleted widget.
-    */
-   public void addDeletedWidget(int widgetId)
-   {
-      if (deletedWidgets == null)
-      {
-         deletedWidgets = new ArrayList<>();
-      }
-
-      deletedWidgets.add(widgetId);
-   }
-
-   /**
-    * Returns list of deleted widgets.
-    *
-    * @return  see above.
-    */
-   public List<Integer> getDeletedWidgets()
-   {
-      return deletedWidgets == null ? Collections.emptyList() : Collections.unmodifiableList(deletedWidgets);
-   }
-
-   /**
     * Replacement for the default object reading method. The latest
     * state is read from the input source.
     * 
@@ -357,11 +329,8 @@
    {
       id             = in.readInt();
       suppressRedraw = in.readBoolean();
-      WidgetEntry.arrayToMap(readExtArray(in, WidgetEntry[]::new, WidgetEntry::new), 
-            widgets);
-      WidgetEntry.arrayToMap(readExtArray(in, WidgetEntry[]::new, WidgetEntry::new), 
-            sideLabels);
-      deletedWidgets = readList(in, s -> readInteger(s));
+      WidgetEntry.arrayToMap(readExtArray(in, WidgetEntry[]::new, WidgetEntry::new), widgets);
+      WidgetEntry.arrayToMap(readExtArray(in, WidgetEntry[]::new, WidgetEntry::new), sideLabels);
    }
 
    /**
@@ -382,7 +351,6 @@
       out.writeBoolean(suppressRedraw);
       writeArray(out, WidgetEntry.mapToArray(widgets));
       writeArray(out, WidgetEntry.mapToArray(sideLabels));
-      writeList(out, (o, v) -> writeInteger(o, v), deletedWidgets);
    }
    
    /**

=== modified file 'src/com/goldencode/p2j/ui/SelectionListConfig.java'
--- src/com/goldencode/p2j/ui/SelectionListConfig.java	2020-09-29 02:32:29 +0000
+++ src/com/goldencode/p2j/ui/SelectionListConfig.java	2020-12-08 10:16:22 +0000
@@ -38,6 +38,7 @@
 ** 020 HC  20150323          Removed business logic from config classes.
 ** 021 IAS 20150604          Changed default value for the innerLines field.
 ** 022 EVL 20200925          Pack all boolean attributes into single 32-bit integer for socket read/write.
+** 023 CA  20201207          Changed default value for the innerChars field.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -103,7 +104,7 @@
 extends ControlSetConfig
 {
    /** The width in chars of the item list. */
-   public int innerChars = 10;
+   public int innerChars = -1;
    
    /** The number of text lines in the widget. */
    public int innerLines = -1;
@@ -244,4 +245,4 @@
 
       out.writeInt(booleanAttrs);
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/ui/SelectionListWidget.java'
--- src/com/goldencode/p2j/ui/SelectionListWidget.java	2020-09-28 02:06:35 +0000
+++ src/com/goldencode/p2j/ui/SelectionListWidget.java	2021-01-29 09:30:09 +0000
@@ -2,7 +2,7 @@
 ** Module   : SelectionListWidget.java
 ** Abstract : server side selection list widget implementation
 **
-** Copyright (c) 2005-2018, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------Description----------------------------
 ** 001 NVS 20051026   @23495 Created initial version.
@@ -44,6 +44,9 @@
 ** 024 SBI 20180503          Moved validateLayout() to the client side and fixed setInnerLines(
 **                           double).
 ** 025 EVL 20180809          Adding SELECTION-LIST specific for setting list item pairs.
+** 026 EVL 20201022          Optimized attributes flush implementation.
+**     CA  20210128          Fixed a regression related to RADIO-BOX and SELECTION-LIST - these must not check
+**                           the FORMAT, as they do not manage it.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -145,7 +148,7 @@
     */
    public integer getInnerChars()
    {
-      return new integer(getAttr("innerChars", () -> config.innerChars));
+      return new integer(getAttr("innerChars", () -> config.innerChars, true));
    }
    
    /**
@@ -197,7 +200,7 @@
                type()),
                false);
       }
-      return new integer(Math.max(0, getAttr("innerLines", () -> config.innerLines)));
+      return new integer(Math.max(0, getAttr("innerLines", () -> config.innerLines, true)));
    }
    
    /**
@@ -587,7 +590,7 @@
    public void setFrame(FrameWidget frame)
    {
       super.setFrame(frame);
-      if (getAttr("innerLines", () -> config.innerLines) < 0)
+      if (getAttr("innerLines", () -> config.innerLines, true) < 0)
       {
          config.innerLines = getAttr("items", () -> config.items) == null ? 3 : config.items.length;
          config.heightChars = config.innerLines + 2;
@@ -698,7 +701,7 @@
    @Override
    public void setListItemPairs(character list)
    {
-      if (!getAttr("realized", () -> config.realized))
+      if (!getAttr("realized", () -> config.realized, true))
       {
          super.setListItemPairs(list);
       }
@@ -709,6 +712,52 @@
    }
    
    /**
+    * Sets the format specification.
+    * 
+    * @param    format
+    *           The format specification.
+    */
+   @LegacyAttribute(name = "FORMAT", setter = true, ignore = true)
+   @Override
+   public void setFormat(String format)
+   {
+      if (!config.dynamic && (frame == null || frame.isInsideSetup()))
+      {
+         return;
+      }
+
+      notSettable("FORM", true);
+   }
+   
+   /**
+    * Gets the format specification.
+    * 
+    * @return   The format specification.
+    */
+   @Override
+   @LegacyAttribute(name = "FORMAT", ignore = true)
+   public character getFormat()
+   {
+      if (!config.dynamic && (frame == null || frame.isInsideSetup()))
+      {
+         return new character();
+      }
+
+      notQueryable("FORM", true);
+      return new character();
+   }
+   
+   /**
+    * Checks if the given widget has valid format string or even has the format attribute.
+    * 
+    * @return   always <code>FALSE</code>.
+    */
+   public boolean hasFormat()
+   {
+      return false;
+   }
+   
+   /**
     * Internal worker for getting the SCREEN-VALUE on a per-widget basis.
     * 
     * @param   initialized

=== modified file 'src/com/goldencode/p2j/ui/SliderWidget.java'
--- src/com/goldencode/p2j/ui/SliderWidget.java	2020-09-28 02:06:35 +0000
+++ src/com/goldencode/p2j/ui/SliderWidget.java	2021-01-12 18:46:50 +0000
@@ -2,9 +2,9 @@
 ** Module   : SliderWidget.java
 ** Abstract : Server side slider widget
 **
-** Copyright (c) 2015-2018, Golden Code Development Corporation.
+** Copyright (c) 2015-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 EVL 20150911 Created initial version.
 ** 002 EVL 20160127 Adding dynamic widget constructor.  Default size calculations.
 **                  The NO-CURRENT-VALUE should be inverted while setting to reflect 4GL logic.
@@ -15,6 +15,8 @@
 ** 006 CA  20180130 Replaced pushScreenDefinition() with pushWidgetAttr() for cases when business 
 **                  logic is assigning a widget attribute.
 ** 007 OM  20180713 Fixed TIC-MARKS attribute.
+** 008 CA  20210111 SCREEN-VALUE usage from converted code needs to be distinguished from internal usage, 
+**                  within FWD code (see COMBO-BOX:LIST-ITEM-PAIRS behavior).
 */ 
 
 /*
@@ -528,7 +530,7 @@
     *           the value as uninitialized.
     */
    @Override
-   public void setScreenValue(character value)
+   protected void setScreenValueInt(character value)
    {
       if (value != null && !value.isUnknown())
       {

=== modified file 'src/com/goldencode/p2j/ui/SubMenuWidget.java'
--- src/com/goldencode/p2j/ui/SubMenuWidget.java	2020-09-28 10:09:11 +0000
+++ src/com/goldencode/p2j/ui/SubMenuWidget.java	2020-10-22 14:25:52 +0000
@@ -2,7 +2,7 @@
 ** Module   : SubMenuWidget.java
 ** Abstract : server side sub-menu widget implementation
 **
-** Copyright (c) 2015-2019, Golden Code Development Corporation.
+** Copyright (c) 2015-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ----------------------------Description-----------------------------
 ** 001 VIG 20141124 Created initial version.
@@ -22,6 +22,9 @@
 ** 011 CA  20190308 Partial menu sub-trees can be pushed, we need to push the entire menu tree to 
 **                  the client-side. 
 **     CA  20190322 Avoid unnecessary client-side trips if the attribute isn't changing on set.
+** 012 HC  20201010 Implemented selective config flushing.
+**     EVL 20201021 More optimization for getAttr() usage or widget ID getting.
+**     EVL 20201022 Optimized attributes flush implementation.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -111,8 +114,9 @@
     */
    public integer getMnemonic()
    {
-      return getAttr("mnemonic", (Supplier<Integer>)() -> config.mnemonic) == null ? new integer() :
-         new integer(getAttr("mnemonic", (Supplier<Integer>)() -> config.mnemonic));
+      return getAttr("mnemonic",
+                     (Supplier<integer>)() -> (config.mnemonic == null ? new integer()
+                                                                       : new integer(config.mnemonic)), true);
    }
 
    /**
@@ -123,9 +127,8 @@
     */
    public character getPreprocessedLabel()
    {
-      return getAttr("preprocessedLabel", () -> config.preprocessedLabel) == null
-               ? new character() 
-               : new character(getAttr("preprocessedLabel", () -> config.preprocessedLabel));
+      return getAttr("preprocessedLabel", () -> (config.preprocessedLabel == null ? new character() :
+                                                 new character(config.preprocessedLabel)), true);
    }
 
    /**

=== modified file 'src/com/goldencode/p2j/ui/TabSetWidget.java'
--- src/com/goldencode/p2j/ui/TabSetWidget.java	2020-09-28 02:06:35 +0000
+++ src/com/goldencode/p2j/ui/TabSetWidget.java	2020-10-22 14:25:52 +0000
@@ -16,6 +16,8 @@
 **                  Added TabSet show() method.
 **                  Added ocxId to discriminate among OCX's
 ** 004 AIL 20200406 Fixed the reset of tab index when setting the tabs.
+** 005 HC  20201010 Implemented selective config flushing.
+**     EVL 20201022 Optimized attributes flush implementation.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -86,7 +88,7 @@
 {
    /** Separator for TABSET item names. */
    private final static String TABSET_NAME_SEPARATOR = ",";
-   
+
    /**
     * Default constructor.
     */

=== added file 'src/com/goldencode/p2j/ui/TextBasedWidget.java'
--- src/com/goldencode/p2j/ui/TextBasedWidget.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/ui/TextBasedWidget.java	2021-01-25 13:46:58 +0000
@@ -0,0 +1,406 @@
+/*
+** Module   : TextBasedWidget.java
+** Abstract : Base class for server-side literal or text widgets.
+**
+** Copyright (c) 2020-2021, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- --------------------------------------Description-----------------------------------------
+** 001 HC  20201024 Created initial version.
+**     CA  20201202 LITERAL and TEXT must handle LABEL attribute individually.
+**     CA  20210111 SCREEN-VALUE usage from converted code needs to be distinguished from internal usage, 
+**                  within FWD code (see COMBO-BOX:LIST-ITEM-PAIRS behavior).
+**     CA  20210121 LITERAL and TEXT must handle LABEL attribute individually (for the setter).
+**     CA  20210125 updateSideLabelColumn() is limited only for ChUI.
+*/
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+package com.goldencode.p2j.ui;
+
+import com.goldencode.p2j.util.*;
+
+import java.util.*;
+
+/**
+ * Represents a LITERAL or TEXT widget on server-side.
+ */
+public abstract class TextBasedWidget
+extends ControlTextWidget<TextConfig>
+{
+   /** Side label discriminator, when true this instance represents a side label. */
+   protected boolean sideLabel = false;
+
+   /** The associated side widget for this label (when {@link #sideLabel} is true). */
+   private GenericWidget<?> sideWidget = null;
+
+   /**
+    * Default constructor.
+    */
+   public TextBasedWidget()
+   {
+      super(false, new TextConfig());
+      setStatic(true);
+   }
+
+   /**
+    * A custom getter for the LABEL attribute.  In case of LITERAL widgets, this attribute is not queryable.
+    * For TEXT widgets, the LABEL attribute is allowed.
+    *  
+    * @return   The label text.
+    */
+   protected abstract character getLabelWorker();
+
+   /**
+    * A custom setter for the LABEL attribute.  In case of LITERAL widgets, this attribute is not settable.
+    * For TEXT widgets, the LABEL attribute is allowed.
+    *  
+    * @param    value
+    *           The label.
+    */
+   protected abstract void setLabelWorker(String value);
+   
+   /**
+    * Default constructor.
+    *
+    * @param    dynamic
+    *           Flag indicating if this is a static or dynamic resource.
+    */
+   public TextBasedWidget(boolean dynamic)
+   {
+      super(dynamic, new TextConfig());
+   }
+
+   /**
+    * Obtains the next sibling widget in the current field group.
+    *
+    * @return   The next sibling or an unknown handle if this is the only widget or if this is the
+    *           last widget.
+    */
+   @Override
+   public handle getNextSibling()
+   {
+      if (sideLabel && group instanceof FieldGroup)
+      {
+         // find the related widget
+         for (GenericWidget<?> w : ((FieldGroup) group).getWidgets())
+         {
+            if (!(w.config instanceof ControlConfig))
+            {
+               continue;
+            }
+
+            if (config.id.asInt() == ((ControlConfig) w.config).sideLabelId)
+            {
+               return new handle(w);
+            }
+         }
+      }
+
+      return super.getNextSibling();
+   }
+
+   /**
+    * Obtains the previous sibling widget in the current field group.
+    *
+    * @return   The previous sibling or an unknown handle if this only widget or if this is the
+    *           first widget.
+    */
+   @Override
+   public handle getPrevSibling()
+   {
+      if (sideLabel && group instanceof FieldGroup)
+      {
+         // find the related widget
+         for (GenericWidget<?> w : ((FieldGroup) group).getWidgets())
+         {
+            if (!(w.config instanceof ControlConfig))
+            {
+               continue;
+            }
+
+            if (config.id.asInt() == ((ControlConfig) w.config).sideLabelId)
+            {
+               return new handle(((FieldGroup) group).getPrevChild(w));
+            }
+         }
+      }
+
+      return super.getPrevSibling();
+   }
+
+   /**
+    * Get the label text for this widget.
+    * <p>
+    * The implementation is redirected to {@link #getLabelWorker()}.
+    * 
+    * @return   The empty string.
+    */
+   @Override
+   public character getLabel()
+   {
+      return getLabelWorker();
+   }
+
+   /**
+    * Set the label text for this widget.
+    * <p>
+    * The implementation is redirected to {@link #setLabelWorker()}.
+    * 
+    * @param    label
+    *           The new label text.
+    */
+   @Override
+   public void setLabel(String label)
+   {
+      setLabelWorker(label);
+   }
+   
+   /**
+    * Obtain the current value in the screen buffer of the backing data for
+    * this widget and return it as a <code>character</code> type. If
+    * there is no value in the screen buffer (if it is <code>null</code>
+    * which is the representation for an uninitialized value), then return
+    * the empty string.
+    *
+    * @return   The value as a <code>character</code> type or the empty
+    *           string if the screen buffer value is uninitialized.
+    */
+   @Override
+   public character getScreenValue()
+   {
+      if (!sideLabel)
+      {
+         return super.getScreenValue();
+      }
+      
+      return sideWidget.getLabel();
+   }
+   
+   /**
+    * Set the current value in the screen buffer of the backing data for
+    * this widget.  If the given value is <code>null</code> then this
+    * widget will be set to the uninitialized value.
+    *
+    * @param    value
+    *           The new value for the widget, use <code>null</code> to set
+    *           the value as uninitialized.
+    */
+   @Override
+   protected void setScreenValueInt(character value)
+   {
+      if (!sideLabel)
+      {
+         super.setScreenValueInt(value);
+      }
+      else
+      {
+         sideWidget.setLabel(value);
+      }
+   }
+
+   /**
+    * Make this widget into a side-label.
+    *
+    * @param   sideWidget
+    *          The widget the side-label belongs to.
+    */
+   public void makeSideLabel(GenericWidget<?> sideWidget)
+   {
+      this.sideLabel = true;
+      this.sideWidget = sideWidget;
+   }
+
+   /**
+    * Clears the side-label flags.
+    */
+   public void clearSideLabel()
+   {
+      this.sideLabel = false;
+      this.sideWidget = null;
+   }
+
+   /**
+    * Sets the row or column position for this widget.
+    * <p>
+    * Sub-classes can override this method; at this point, the parameters are valid.
+    * 
+    * @param    isUnknown
+    *           If <code>true</code> the attribute value being set is an unknown value.
+    * @param    value
+    *           The 1-based row or column number.
+    * @param    row
+    *           If <code>true</code> <code>value</code> represents a row number, otherwise 
+    *           a column number.
+    */
+   @Override
+   protected void setColumnOrRowWorker(boolean isUnknown, double value, boolean row)
+   {
+      int align = config.align;
+      
+      super.setColumnOrRowWorker(isUnknown, value, row);
+      
+      // preserve alignment when changing side label position
+      if (sideLabel)
+      {
+         config.align = align;
+      }
+      
+      if (row)
+      {
+         // nothing to do for rows
+         return;
+      }
+      
+      updateSideLabelColumn(value);
+   }
+   
+   /**
+    * Sets the x or y pixel position for this widget.
+    * <p>
+    * Sub-classes can override this method; at this point, the parameters are
+    * valid.
+    * 
+    * @param    isUnknown
+    *           If
+    *           <code>true</code> the attribute value being set is an unknown value.
+    * @param    value
+    *           The x or y pixel value.
+    * @param    x
+    *           If <code>true</code> <code>value</code> represents an x
+    *           position, otherwise y.
+    */
+   @Override
+   protected void setXOrYWorker(boolean isUnknown, int value, boolean x)
+   {
+      int align = config.align;
+      
+      super.setXOrYWorker(isUnknown, value, x);
+      
+      // preserve alignment when changing side label position
+      if (sideLabel)
+      {
+         config.align = align;
+      }
+      
+      if (!x)
+      {
+         // nothing to do for y pixel position change
+         return;
+      }
+      
+      // use the converted column value set in the super implementation
+      updateSideLabelColumn(config.column);
+   }
+   
+   /**
+    * Collect the size-related attributes which can be assigned by this widget.
+    * 
+    * @param    names
+    *           The collection where to add the field names.
+    * @param    vals
+    *           The collection where to add the field values.
+    */
+   @Override
+   protected void getSizeAttrs(List<String> names, List<Object> vals)
+   {
+      if (sideLabel)
+      {
+         names.addAll(Arrays.asList("fixedWidth", "fixedHeight", 
+                                    "heightChars", "widthChars", 
+                                    "heightPixels", "widthPixels", 
+                                    "clientHeightChars", "clientWidthChars", 
+                                    "clientHeightPixels", "clientWidthPixels"));
+         vals.addAll(Arrays.asList(config.fixedWidth, config.fixedHeight, 
+                                   config.heightChars, config.widthChars, 
+                                   config.heightPixels, config.widthPixels, 
+                                   config.clientHeightChars, config.clientWidthChars, 
+                                   config.clientHeightPixels, config.clientWidthPixels));
+      }
+      else
+      {
+         super.getSizeAttrs(names, vals);
+      }
+   }
+
+   /**
+    * The method updates side label metrics after a change of column
+    * position. If this widget doesn't represent a side label, this
+    * method is a no-op.
+    * 
+    * @param    col
+    *           New widget column position.
+    */
+   private void updateSideLabelColumn(double col)
+   {
+      // the following code is ChUI specific.  In GUI, the width must follow the pixels...
+      if (!sideLabel || !LogicalTerminal.isChui())
+      {
+         return;
+      }
+
+      String name = getAttr("name", () -> config.name);
+
+      // if the literal is not yet realized, compute its width
+      if (!getAttr("realized", () -> config.realized) && name != null && getAttr("align", () -> config.align) == ControlEntity.ALIGN_RIGHT)
+      {
+         if (name.length() > col - 1)
+         {
+            config.column = 0;
+            config.widthChars = col - 1;
+         }
+         else
+         {
+            config.widthChars = name.length() + 1;
+         }
+      }
+   }
+}

=== modified file 'src/com/goldencode/p2j/ui/TextConfig.java'
--- src/com/goldencode/p2j/ui/TextConfig.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/p2j/ui/TextConfig.java	2020-12-02 19:15:14 +0000
@@ -2,7 +2,7 @@
 ** Module   : TextConfig.java
 ** Abstract : stores TEXT specific state
 **
-** Copyright (c) 2014-2017, Golden Code Development Corporation.
+** Copyright (c) 2014-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 CA  20140924 Created initial version.
@@ -11,6 +11,8 @@
 ** 003 CA  20150722 In LABEL case, the server and client-side configs are different types 
 ***                 (TextConfig vs LabelConfig) - so, applyConfig is protected to ignore instances
 **                  which are not of this type.
+** 004 CA  20201202 Added 'selfSideLabel', a quirk for 4GL's 'feature' where a TEXT:SIDE-LABEL-HANDLE can be 
+**                  the same as the owner widget.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -78,6 +80,9 @@
    /** Flag indicating this widget is using an explicit VIEW-AS TEXT phrase. */
    public boolean explicitViewAs;
 
+   /** Special flag when the SIDE-LABEL-HANDLE is the same widget as the owner widget. */
+   public boolean selfSideLabel = false;
+   
    /**
     * Default constructor (only used in deserialization).
     */
@@ -126,6 +131,7 @@
       TextConfig cfg = (TextConfig) config;
       
       explicitViewAs = cfg.explicitViewAs;
+      selfSideLabel = cfg.selfSideLabel;
    }
 
    /**
@@ -148,6 +154,7 @@
    {
       super.readExternal(in);
       explicitViewAs = in.readBoolean();
+      selfSideLabel = in.readBoolean();
    }
 
    /**
@@ -167,5 +174,6 @@
    {
       super.writeExternal(out);
       out.writeBoolean(explicitViewAs);
+      out.writeBoolean(selfSideLabel);
   }
 }
\ No newline at end of file

=== modified file 'src/com/goldencode/p2j/ui/TextWidget.java'
--- src/com/goldencode/p2j/ui/TextWidget.java	2020-09-28 02:06:35 +0000
+++ src/com/goldencode/p2j/ui/TextWidget.java	2021-01-22 11:28:28 +0000
@@ -2,7 +2,7 @@
 ** Module   : TextWidget.java
 ** Abstract : server-side text widget representation.
 **
-** Copyright (c) 2013-2019, Golden Code Development Corporation.
+** Copyright (c) 2013-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --------------------------------Description-----------------------------------
 ** 001 CA  20130927 Created initial version.
@@ -19,6 +19,11 @@
 ** 007 CA  20180130 Replaced pushScreenDefinition() with pushWidgetAttr() for cases when business 
 **                  logic is assigning a widget attribute.
 ** 008 CA  20190301 Added LABELS attribute (read-only).
+** 009 HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
+**     CA  20201202 Added 'selfSideLabel', a quirk for 4GL's 'feature' where a TEXT:SIDE-LABEL-HANDLE can be 
+**                  the same as the owner widget.
+**                  TEXT:LABEL is a queryable attribute.
+**     CA  20210121 TEXT:LABEL is a settable attribute.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -87,7 +92,7 @@
  */
 @LegacyResource(resource = LegacyResource.TEXT)
 public class TextWidget
-extends ControlTextWidget<TextConfig>
+extends TextBasedWidget
 implements BlankInterface,
            Labels
 {
@@ -107,7 +112,7 @@
     */
    public TextWidget(boolean dynamic)
    {
-      super(dynamic, new TextConfig());
+      super(dynamic);
 
       setStatic(false);
    }
@@ -122,7 +127,50 @@
    {
       config.explicitViewAs = explicit;
    }
-
+   
+   /**
+    * Sets the side-label to the specified one.  A special case is treated here: if the label is the actual
+    * widget instance for which the SIDE-LABEL-HANDLE attribute is set, the the special 
+    * {@link TextConfig#selfSideLabel} will be set to <code>true</code>.  This is because 4GL allows the
+    * SIDE-LABEL-HANDLE to be set as the same 'owner' widget.
+    * 
+    * @param    label
+    *           The label to set.
+    */
+   @Override
+   public void setSideLabelHandle(handle label)
+   {
+      // set the 'labels' attribute, too
+      config.labels = !label.isUnknown();
+
+      config.selfSideLabel = false;
+      
+      if (!label.isUnknown() && label.get() == this)
+      {
+         config.selfSideLabel = true;
+         return;
+      }
+      
+      super.setSideLabelHandle(label);
+   }
+
+   /**
+    * Get the side-label for this widget.  If the {@link TextConfig#selfSideLabel} flag is set, then this
+    * widget will be returned.  Otherwise, the call is delegated to the super-class.
+    *
+    * @return   The handle to the text widget that is the side label of this widget.
+    */
+   @Override
+   public handle getSideLabelHandle()
+   {
+      if (config.selfSideLabel)
+      {
+         return new handle(this);
+      }
+      
+      return super.getSideLabelHandle();
+   }
+   
    /**
     * Set value of the BLANK attribute.
     *
@@ -193,4 +241,33 @@
    {
       return new logical(getAttr("labels", () -> config.labels) && hasSideLabelHandle());
    }
+
+   /**
+    * A custom getter for the LABEL attribute.  In case of TEXT widgets, this attribute returns the actual 
+    * LABEL value.
+    * 
+    * @return   The label value.
+    */
+   @Override
+   protected character getLabelWorker()
+   {
+      flushWidgetAttrs();
+      return new character(config.getDynamicLabel());
+   }
+   
+   /**
+    * A custom setter for the LABEL attribute.  In case of TEXT widgets, this attribute is allowed to be 
+    * changed.
+    * 
+    * @param    value
+    *           The label.
+    */
+   @Override
+   protected void setLabelWorker(String value)
+   {
+      if (validateLabelAssignment())
+      {
+         setLabelInt(value);
+      }
+   }
 }

=== modified file 'src/com/goldencode/p2j/ui/ToggleBoxConfig.java'
--- src/com/goldencode/p2j/ui/ToggleBoxConfig.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/ToggleBoxConfig.java	2021-01-22 11:28:28 +0000
@@ -2,7 +2,7 @@
 ** Module   : ToggleBoxConfig.java
 ** Abstract : ToggleBox widget configuration.
 **
-** Copyright (c) 2010-2020, Golden Code Development Corporation.
+** Copyright (c) 2010-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 SVL 20101004 Created initial version.
@@ -18,6 +18,7 @@
 ** 021 HC  20150323 Removed business logic from config classes.
 ** 022 IAS 20151214 MOUSE-POINTER attribute support.
 ** 023 IAS 20200823 Rework (de)serialization.
+**     CA  20210122 Added FORMAT attribute.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -88,6 +89,9 @@
    
    /** MOUSE-POINTER attribute */
    public String mousePointer = null;
+   
+   /** The Progress FORMAT attribute. */
+   public String format = null;
 
    /**
     * Default constructor.
@@ -136,6 +140,7 @@
       
       ToggleBoxConfig cfg = (ToggleBoxConfig) config;
       
+      format = cfg.format;
       checked = cfg.checked;
       mousePointer = cfg.mousePointer;
    }
@@ -159,6 +164,7 @@
           ClassNotFoundException
    {
       super.readExternal(in);
+      format = readString(in);
       checked = in.readBoolean();
       mousePointer = readString(in);
    }
@@ -179,6 +185,7 @@
    throws IOException
    {
       super.writeExternal(out);
+      writeString(out, format);
       out.writeBoolean(checked);
       writeString(out, mousePointer);
    }

=== modified file 'src/com/goldencode/p2j/ui/ToggleBoxWidget.java'
--- src/com/goldencode/p2j/ui/ToggleBoxWidget.java	2020-09-28 02:06:35 +0000
+++ src/com/goldencode/p2j/ui/ToggleBoxWidget.java	2021-01-12 18:46:50 +0000
@@ -2,7 +2,7 @@
 ** Module   : ToggleBoxWidget.java
 ** Abstract : Toggle-box widget.
 **
-** Copyright (c) 2010-2020, Golden Code Development Corporation.
+** Copyright (c) 2010-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 SVL 20101004 Created initial version.
@@ -32,6 +32,11 @@
 **                  logic is assigning a widget attribute.
 ** 018 AIL 20191024 Fixed setChecked() to update the ScreenBuffer.
 **         20200401 Fixed isChecked() and setChecked() for when the widget is not realized.
+** 019 EVL 20201022 Optimized attributes flush implementation.
+**     CA  20201119 The DATA-TYPE for a dynamic TOGGLE-BOX must be LOGICAL.
+**     CA  20201126 The SCREEN-VALUE for a TOGGLE-BOX can be either 'yes' or 'no', never unknown.
+**     CA  20210111 SCREEN-VALUE usage from converted code needs to be distinguished from internal usage, 
+**                  within FWD code (see COMBO-BOX:LIST-ITEM-PAIRS behavior).
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -115,16 +120,44 @@
    public ToggleBoxWidget(boolean dynamic)
    {
       super(dynamic, new ToggleBoxConfig());
+      
+      if (dynamic)
+      {
+         config.dataType = "logical";
+      }
    }
 
    /**
+    * Internal worker for setting the SCREEN-VALUE on a per-widget basis.
+    * 
+    * @param   frameBuf
+    *          The frame buffer where to save the value.
+    * @param   value
+    *          The value to be set via SCREEN-VALUE attribute.
+    * @param   inUIStmt
+    *          Flag indicating this call originates from a UI statement.
+    *          
+    * @return  <code>true</code> if the caller can proceed, as the screen-value can be set.
+    */
+   @Override
+   boolean setScreenValue(ScreenBuffer frameBuf, Object value, boolean inUIStmt)
+   {
+      if (value instanceof BaseDataType && ((BaseDataType) value).isUnknown())
+      {
+         ((BaseDataType) value).assign(new logical(false));
+      }
+      
+      return super.setScreenValue(frameBuf, value, inUIStmt);
+   }
+   
+   /**
     * Gets the CHECKED writable attribute.
     *
     * @return    The current value of the CHECKED attribute.
     */
    public logical isChecked()
    {
-      if (!getAttr("realized", () -> config.realized))
+      if (!getAttr("realized", () -> config.realized, true))
       {
          // the toggle box can be checked even if not realized
          return new logical(getAttr("checked", () -> config.checked));
@@ -173,7 +206,7 @@
          return;
       }
       
-      if (getAttr("realized", () -> config.realized))
+      if (getAttr("realized", () -> config.realized, true))
       {
          if (config.checked == checked.booleanValue())
          {
@@ -181,7 +214,7 @@
          }
 
          setAttr("checked", config.checked, checked.booleanValue(), (vv) -> config.checked = vv);
-         setScreenValue(new character(checked));
+         setScreenValueInt(new character(checked));
       }
       else
       {
@@ -199,7 +232,7 @@
    @Override
    public boolean preRealizeCheck()
    {
-      double widthRequested = getAttr("widthChars", () -> config.widthChars);
+      double widthRequested = getAttr("widthChars", () -> config.widthChars, true);
       
       // safe, comparison of scaled doubles
       // this check is done only for ChUI mode - GUI toggle-box has no lower limit on the width

=== modified file 'src/com/goldencode/p2j/ui/TreeFace.java'
--- src/com/goldencode/p2j/ui/TreeFace.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/TreeFace.java	2021-01-29 14:13:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : TreeFace.java
 ** Abstract : Common tree widget interface.
 **
-** Copyright (c) 2019-2020, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 HC  20190313 Created initial version.
@@ -23,6 +23,7 @@
 **                  startLabelEdit.
 ** 009 SBI 20200619 Added getNewNodeLabel() and setNewNodeLabel(character).
 ** 010 SBI 20200722 Added getHWND() to support controlFrame:TreeView:HWND conversion.
+** 011 VVT 20210127 Fixed Javadoc for getSelectedNodeKey() to match original OCX
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -204,7 +205,8 @@
 
    /**
     * Getter for the SELECTED-NODE-KEY attribute.
-    * The method returns a key of the currently selected node or unknown when no node is currently
+    * The method returns keys of the currently selected nodes, delimited with the char(1),
+    * or an empty string when no node is currently
     * selected.
     *
     * @return  the attribute value.

=== modified file 'src/com/goldencode/p2j/ui/TreeListConfig.java'
--- src/com/goldencode/p2j/ui/TreeListConfig.java	2020-09-17 11:46:00 +0000
+++ src/com/goldencode/p2j/ui/TreeListConfig.java	2021-01-29 14:13:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : TreeListConfig.java
 ** Abstract : TreeList widget configuration.
 **
-** Copyright (c) 2019-2020, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 HC  20190313 Created initial version.
@@ -11,6 +11,9 @@
 ** 003 IAS 20200823 Rework (de)serialization.
 ** 004 IAS 20200828 Fixed type parameters for generic classes.
 ** 005 IAS 20200908 Rework (de)serialization.
+**     EVL 20201015 Fixed missed showHeader flag from reading/writing/setting processes.
+**     VVT 20210127 TreeListConfig constructor: the 'visible' flag is now passed an an argument.
+**     VVT 20210128 the 'positions' field removed (the position info is stored iby columns now)
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -85,12 +88,6 @@
    public List<Column> columns = new ArrayList<>();
 
    /**
-    * The columns order. The indexes correspond to the indexes of the columns list above. The values
-    * represent the visual order of the columns starting at 0 being the left-most column.
-    */
-   public List<Integer> positions = new ArrayList<>();
-
-   /**
     * 1-based column indexes (corresponding to the columns list above) of sorted columns, last entry is the
     * most significant. Positive value indicates ascending order, negative descending order. To get the
     * actual column index do Math.abs(value) - 1
@@ -183,9 +180,9 @@
 
       TreeListConfig<N> cfg = (TreeListConfig<N>) config;
       columns = cfg.columns;
-      positions = cfg.positions;
       sort = cfg.sort;
       fixedColumn = cfg.fixedColumn;
+      showHeader = cfg.showHeader;
       thousandSeparator = cfg.thousandSeparator;
       decimalSeparator = cfg.decimalSeparator;
       dateSeparator = cfg.dateSeparator;
@@ -222,9 +219,9 @@
    {
       super.readExternal(in);
       columns = readList(in, newColumn());
-      positions = readList(in, s -> readInteger(s));
       sort = readList(in, s -> readInteger(s));
       fixedColumn = in.readShort();
+      showHeader = in.readBoolean();
       thousandSeparator = in.readUTF();
       decimalSeparator = in.readUTF();
       dateSeparator = in.readUTF();
@@ -248,9 +245,9 @@
    {
       super.writeExternal(out);
       writeList(out, columns);
-      writeList(out, (o, v) -> writeInteger(o, v), positions);
       writeList(out, (o, v) -> writeInteger(o, v), sort);
       out.writeShort(fixedColumn);
+      out.writeBoolean(showHeader);
       out.writeUTF(thousandSeparator);
       out.writeUTF(decimalSeparator);
       out.writeUTF(dateSeparator);
@@ -341,14 +338,18 @@
       public byte align;
       public int bgcolor;
       public int fgcolor;
-      public boolean visible = true;
+      public boolean visible;
+      
+      /**
+       * The column position, can only be changed at the client side.
+       */
+      public int position;
 
       /**
        * Default ctor.
        */
       public Column()
       {
-
       }
 
       /**
@@ -366,8 +367,19 @@
        *          Column background color.
        * @param   fgcolor
        *          Column foreground color.
+       * @param   visible
+       *          Column visibility flag.
+       * @param position
+       *          the column position in visible column order
        */
-      public Column(String caption, byte dataType, int width, byte align, int bgcolor, int fgcolor)
+      public Column(String caption,
+                    byte dataType,
+                    int width,
+                    byte align,
+                    int bgcolor,
+                    int fgcolor,
+                    boolean visible,
+                    int position)
       {
          this.caption = caption;
          this.dataType = dataType;
@@ -375,6 +387,32 @@
          this.align = align;
          this.bgcolor = bgcolor;
          this.fgcolor = fgcolor;
+         this.visible = visible;
+         this.position = position;
+      }
+
+      /**
+       * Ctor. Create a visible column.
+       *
+       * @param   caption
+       *          Column caption.
+       * @param   dataType
+       *          Data type.
+       * @param   width
+       *          Column width.
+       * @param   align
+       *          Horizontal value alignment.
+       * @param   bgcolor
+       *          Column background color.
+       * @param   fgcolor
+       *          Column foreground color.
+       * @param position
+       *          the column position in visible column order
+       */
+      public Column(String caption, byte dataType, int width, byte align, int bgcolor,
+               int fgcolor, int position)
+      {
+         this(caption, dataType, width, align, bgcolor, fgcolor, true, position);
       }
 
       /**
@@ -398,7 +436,7 @@
          out.writeInt(bgcolor);
          out.writeInt(fgcolor);
          out.writeBoolean(visible);
-         
+         out.writeInt(position);         
       }
 
       /**
@@ -424,8 +462,10 @@
          bgcolor = in.readInt();
          fgcolor = in.readInt();
          visible = in.readBoolean();
+         position = in.readInt();
       }
    }
+   
    /**
     * Create node entry instance.
     * @return node entry instance

=== modified file 'src/com/goldencode/p2j/ui/TreeListNodeEntry.java'
--- src/com/goldencode/p2j/ui/TreeListNodeEntry.java	2020-09-14 13:46:01 +0000
+++ src/com/goldencode/p2j/ui/TreeListNodeEntry.java	2021-01-29 14:13:08 +0000
@@ -2,13 +2,14 @@
 ** Module   : TreeListNodeEntry.java
 ** Abstract : Treelist configuration node entry.
 **
-** Copyright (c) 2019-2020, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 HC  20190313 Created initial version.
 ** 002 HC  20190514 Implemented additional set of features for TREELIST widget and related
 **                  changes.
 ** 003 IAS 20200908 Rework (de)serialization, Fixed type parameters for generic classes.
+** 004 VVT 20210127 Added: equals() and hashCode(): all class fields must participate.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -174,4 +175,31 @@
       super.readExternal(in);
       cellValues = readList(in, s -> readCell(s));
    }
+   
+   /**
+    * Indicates whether some other object is "equal to" this one.
+    *
+    * @param   o
+    *          The other object to test.
+    *
+    * @return  {@code true} if this object is equals to the o argument; {@code false} otherwise.
+    */
+   @Override
+   public boolean equals(Object obj)
+   {
+      return super.equals(obj) && Objects.equals(cellValues, ((TreeListNodeEntry) obj).cellValues);
+   }
+
+   /**
+    * Returns a hash code value for the object. This method is
+    * supported for the benefit of hash tables such as those provided by
+    * {@link java.util.HashMap}.
+    *
+    * @return  a hash code value for this object.
+    */
+   @Override
+   public int hashCode()
+   {
+      return 31 + ((cellValues == null) ? 0 : cellValues.hashCode());
+   }
 }

=== modified file 'src/com/goldencode/p2j/ui/TreeListWidget.java'
--- src/com/goldencode/p2j/ui/TreeListWidget.java	2020-09-28 02:06:35 +0000
+++ src/com/goldencode/p2j/ui/TreeListWidget.java	2021-01-29 14:13:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : TreeListWidget.java
 ** Abstract : TreeList widget.
 **
-** Copyright (c) 2019-2020, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 HC  20190313 Created initial version.
@@ -13,6 +13,16 @@
 **                  Unused private methods removed.
 ** 005 HC  20200313 Javadoc fixes.
 ** 006 IAS 20200913 Fixed type parameters for generic classes.
+**     HC  20201010 Implemented selective config flushing.
+**     EVL 20201022 Optimized attributes flush implementation.
+**     VVT 20210120 Missing support for column synchronization added.
+**                  See #5084.
+**     VVT 20210127 clearAll() is now responsive for initial state recreation; the additional
+**                  addColumn() helper method added to add columns created in subclasses;
+**                  setColumnVisible(): attribute synchronization fixed.
+**     VVT 20210127 Fixed: missing client update in setColumnWidth() 
+**     VVT 20210128 The local 'positions' field removed: column positions are never changed
+**                  by the server. Method order changed to conform the FWD style.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -69,6 +79,9 @@
 
 package com.goldencode.p2j.ui;
 
+import java.util.*;
+
+import com.goldencode.p2j.ui.TreeListConfig.*;
 import com.goldencode.p2j.util.*;
 import com.google.common.base.Objects;
 
@@ -81,6 +94,20 @@
 extends TreeWidgetBase<N, TreeListConfig<N>, TreeListNodeResource<N>>
 implements TreeList
 {
+   /** Flag marking columns or column position changes are pending */
+   protected boolean pendingPushColumns;
+   
+   /**
+    * List of columns. In BUILDING-TREE mode, the changes in column
+    * list are reflected in this field value only, and they are
+    * flushed to the client and config.columns when BUILD-TREE mode is
+    * switched off.
+    * <p>
+    * WHen BUILDING-TREE mode of off, this list contains same entries
+    * as config.columns
+    */
+   protected final List<Column> columns = new ArrayList<>();
+
    /**
     * Default constructor.
     */
@@ -99,16 +126,8 @@
    {
       this(dynamic, new TreeListConfig<N>());
 
-      // create the first column for the tree view
-      TreeListConfig.Column col = new TreeListConfig.Column("",
-                                                            TreeListConfig.Column.TYPE_CHAR,
-                                                            200,
-                                                            TreeListConfig.Column.ALIGN_LEFT,
-                                                            ColorTable._rgbValue(0, 0, 0),
-                                                            ColorTable._rgbValue(255, 255, 255));
-      col.visible = true;
-      config.columns.add(col);
-      config.positions.add(0);
+      clearAll();
+
       setAttr("sorted", config.sorted, true, (vv) -> config.sorted = vv);
    }
 
@@ -160,7 +179,7 @@
       else
       {
          int index = value.intValue();
-         if (index >= 0 && index < getAttr("columns", () -> config.columns).size())
+         if (index >= 0 && index < columns.size())
          {
             getAttr("sort", () -> config.sort).remove(index);
             getAttr("sort", () -> config.sort).add(index);
@@ -215,7 +234,7 @@
    }
 
    /**
-    * Adds new column to the tree-list.
+    * Create a new column and append to the tree-list columns.
     *
     * @param   caption
     *          Column caption.
@@ -256,24 +275,40 @@
          return new integer();
       }
 
-      String _caption = caption.toStringMessage();
-      byte _dataType = (byte) dataType.intValue();
-      int _width = width == null || width.isUnknown() ? -1 : width.intValue();
-      byte _align = (byte) (align == null || align.isUnknown() ? -1 : align.intValue());
-      int _bgcolor = (byte) (bgColor == null || bgColor.isUnknown() ? -1 : bgColor.intValue());
-      int _fgcolor = (byte) (fgColor == null || fgColor.isUnknown() ? -1 : fgColor.intValue());
-
-      TreeListConfig.Column col = new TreeListConfig.Column(_caption,
-                                                            _dataType,
-                                                            _width,
-                                                            _align,
-                                                            _bgcolor,
-                                                            _fgcolor);
-      getAttr("columns", () -> config.columns).add(col);
-      int i = getAttr("columns", () -> config.columns).size() - 1;
-      getAttr("positions", () -> config.positions).add(i);
-
-      return new integer(i);
+      final int columnsSize = columns.size();
+      
+      final Column col = new Column(caption.toStringMessage(), (byte) dataType.intValue(),
+               width == null || width.isUnknown() ? -1 : width.intValue(),
+               (byte) (align == null || align.isUnknown() ? -1 : align.intValue()),
+               (int) (byte) (bgColor == null || bgColor.isUnknown() ? -1 : bgColor.intValue()),
+               (int) (byte) (fgColor == null || fgColor.isUnknown() ? -1 : fgColor.intValue()),
+               columnsSize);
+      addColumn(col);
+      
+      return new integer(columnsSize);
+   }
+
+   /**
+    * Setter for the BUILDING-TREE attribute. When set to {@code true}
+    * any model changes (columns added, nodes added or removed) won't
+    * be reflected until the attribute is set back to {@code false}.
+    *
+    * @param   value
+    *          the attribute value
+    */
+   @Override
+   public void setBuildingTree(logical value)
+   {
+      super.setBuildingTree(value);
+      
+      if (buildingTree <= 0)
+      {
+         if (pendingPushColumns)
+         {
+            setAttr("columns", config.columns, columns, v -> config.columns = new ArrayList(v));
+            pendingPushColumns = false;
+        }
+      }
    }
 
    /**
@@ -287,12 +322,22 @@
    @Override
    public void setColumnCaption(NumberType index, character caption)
    {
-      flushWidgetAttrs();
-      TreeListConfig.Column col = config.getColumn(index);
-      if (col != null)
-      {
-         col.caption = caption.toStringMessage();
-      }
+      final TreeListConfig.Column col = config.getColumn(index);
+      if (col == null)
+      {
+         LOG.warning("Invalid column index: " + index);
+         return;
+      }
+
+      final String newCaption = caption.toStringMessage();
+
+      if (col.caption.equals(newCaption))
+      {
+         return;
+      }
+
+      columnUpdate(index.intValue(), new Column(newCaption, col.dataType, col.width, col.align,
+               col.bgcolor, col.fgcolor, col.visible, col.position));
    }
 
    /**
@@ -328,15 +373,46 @@
    {
       if (!assertKnown(index, width))
       {
-         return;
-      }
-
-      flushWidgetAttrs();
-      TreeListConfig.Column col = config.getColumn(index);
-      if (col != null)
-      {
-         col.width = width.intValue();
-      }
+         /**
+          * FIXME: or, must throw an exception?
+          */
+         return;
+      }
+
+      final TreeListConfig.Column col = config.getColumn(index);
+      if (col == null)
+      {
+         LOG.warning("Invalid column index: " + index);
+         return;
+      }
+
+      int newWidth = width.intValue();
+
+      if (newWidth > 46231 || newWidth < 0)
+      {
+         /**
+          * FIXME: an exception is thrown in original OCX 
+          */
+         LOG.warning("Invalid column width: " + index);
+         return;
+      }
+         
+
+      /**
+       * Limit the column width by a minimum value.
+       */
+      if (newWidth < 20)
+      {
+         newWidth = 20;
+      }
+
+      if (col.width == newWidth)
+      {
+         return;
+      }
+
+      columnUpdate(index.intValue(), new TreeListConfig.Column(col.caption, col.dataType,
+               newWidth, col.align, col.bgcolor, col.fgcolor, col.visible, col.position));
    }
 
    /**
@@ -356,12 +432,12 @@
       }
 
       int i = index.intValue();
-      if (i >= 0 && i < getAttr("columns", () -> config.columns).size())
+      if (i < 0 || i >= columns.size())
       {
-         return new integer(getAttr("positions", () -> config.positions).get(i));
+         return new integer();
       }
 
-      return new integer();
+      return new integer(columns.get(i).position);
    }
 
    /**
@@ -542,12 +618,20 @@
          return;
       }
 
-      flushWidgetAttrs();
-      TreeListConfig.Column col = config.getColumn(colIndex);
-      if (col != null)
-      {
-         col.visible = visible.booleanValue();
-      }
+      final TreeListConfig.Column col = config.getColumn(colIndex);
+      if (col == null)
+      {
+         return;
+      }
+      
+      final boolean newVisible = visible.booleanValue();
+      if(col.visible == newVisible)
+      {
+         return;
+      }
+      
+      columnUpdate(colIndex.intValue(), new TreeListConfig.Column(col.caption, col.dataType,
+               col.width, col.align, col.bgcolor, col.fgcolor, newVisible, col.position));
    }
 
    /**
@@ -770,6 +854,72 @@
    }
 
    /**
+    * This methods calls super, then clear all columns.
+    */
+   @Override
+   public void clearAll()
+   {
+      super.clearAll();
+      
+      columns.clear();
+      
+      // create the first column for the tree view
+      addColumn(new Column("", Column.TYPE_CHAR, 200, Column.ALIGN_LEFT,
+               ColorTable._rgbValue(0, 0, 0), ColorTable._rgbValue(255, 255, 255), 0));
+   }
+   
+   /**
+    * The method is called after the configuration associated with
+    * the implementor changes. The parameter points to a reference
+    * representing the original configuration state. This reference
+    * can be used to detect what configuration fields changed and so
+    * optimize any processing related to the configuration change.
+    *
+    * @param   beforeUpdate
+    *          Config reference capturing the config state before
+    *          the owner's config was modified.
+    */
+   @Override
+   public void afterConfigUpdate(TreeListConfig beforeUpdate)
+   {
+      super.afterConfigUpdate(beforeUpdate);
+      
+      if (pendingPushColumns)
+      {
+         return;
+      }
+      
+      /**
+       * Copy columns for now. Note: we have no simple means currently
+       * to compare columns, since no proper equals() method is defined for columns. 
+       */
+      columns.clear();
+      columns.addAll(config.columns);
+   }
+
+   /**
+    * Append a newly-created column to the end of
+    * column list.
+    * 
+    * @param column
+    *        the column to append
+    */
+   protected final void addColumn(Column column)
+   {
+      columns.add(column);      
+      
+      if (buildingTree <= 0)
+      {
+         setAttr("columns", config.columns, columns, v -> config.columns.add(column));
+         pendingPushColumns = false;
+      }
+      else
+      {
+         pendingPushColumns = true;
+      }
+   }
+
+   /**
     * Creates new node.
     *
     * @param   key
@@ -790,6 +940,29 @@
    }
 
    /**
+    * Update a column at the given index.
+    * 
+    * @param index
+    *        valid column index
+    * @param column
+    *        the new column
+    */
+   private void columnUpdate(final int index, final TreeListConfig.Column column)
+   {
+      columns.set(index, column);
+
+      if (buildingTree <= 0)
+      {
+         setAttr("columns", config.columns, columns, v -> config.columns = new ArrayList(v));
+         pendingPushColumns = false;
+      }
+      else
+      {
+         pendingPushColumns = true;
+      }
+   }
+
+   /**
     * Finds column configuration entry from column index.
     *
     * @param   colIndex
@@ -818,12 +991,12 @@
     */
    private TreeListConfig.Column findColumn(int colIndex)
    {
-      if (colIndex < 0 || colIndex >= getAttr("columns", () -> config.columns).size())
+      if (colIndex < 0 || colIndex >= columns.size())
       {
          return null;
       }
 
-      return getAttr("columns", () -> config.columns).get(colIndex);
+      return columns.get(colIndex);
    }
 
    /**
@@ -873,7 +1046,7 @@
 
       int i = colIndex.intValue();
 
-      if (i < 0 || i >= getAttr("columns", () -> config.columns).size())
+      if (i < 0 || i >= columns.size())
       {
          return;
       }

=== modified file 'src/com/goldencode/p2j/ui/TreeNodeCollectionResource.java'
--- src/com/goldencode/p2j/ui/TreeNodeCollectionResource.java	2020-09-22 20:34:41 +0000
+++ src/com/goldencode/p2j/ui/TreeNodeCollectionResource.java	2021-01-28 21:48:33 +0000
@@ -2,7 +2,7 @@
 ** Module   : TreeNodeCollectionResource.java
 ** Abstract : Tree nodes collection resource implementation.
 **
-** Copyright (c) 2019-2020, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 HC  20190313 Created initial version.
@@ -19,6 +19,9 @@
 **         20200529 Added new overload for add(...) with complete list of parameters.
 ** 006 IAS 20200914 Fixed type parameters for generic classes.
 **     SBI 20200922 Changed _addNodeImpl(...) to implement adding a previous node.
+**     CA  20201117 Do not use resourceDelete to delete the widget - use the delete() API for this code.
+**     VVT 20210127 Node with non-unique node IDs can now be created, non-unique IDs recorded in the log.
+**     VVT 20210128 Method order changed to conform the FWD style.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -576,19 +579,22 @@
    }
 
    /**
-    * Worker to be implemented by each resource.  Called by {@link #delete()}.
-    *
-    * @return  <code>true</code> if the resource was deleted.
+    * Perform actual delete of an resource. At the time of this call, it is assumed the resource
+    * is valid for deletion (the handle and the resource are both valid).
+    * <p>
+    * The method first calls {@link #resourceDelete()}, if the method returns {@code false}, the deletion
+    * is aborted.
     */
    @Override
-   protected boolean resourceDelete()
+   public void delete()
    {
-      if (tree == null)
+      if (!resourceDelete())
       {
-         // already deleted
-         return false;
+         return;
       }
-
+      
+      super.delete();
+      
       TreeWidgetBase<N,C,R> tree = this.tree;
       this.tree = null;
 
@@ -602,9 +608,52 @@
       }
 
       tree.pushNodes();
+   }
+
+   /**
+    * Returns the count of all the items in this collection.
+    *
+    * @return   The number of all nodes in this collection
+    */
+   @Override
+   public integer getCount()
+   {
+      ListIterator<R> iter = iterator();
+      
+      int collect = 0;
+      
+      while(iter.hasNext())
+      {
+         R node = iter.next();
+         
+         if (node._getHasChildren())
+         {
+            collect += node._getNodes().getCount().intValue();
+         }
+         
+         collect++;
+      }
+      
+      return new integer(collect);
+   }
+
+   /**
+    * Worker to be implemented by each resource.  Called by {@link #delete()}.
+    *
+    * @return  <code>true</code> if the resource was deleted.
+    */
+   @Override
+   protected boolean resourceDelete()
+   {
+      if (tree == null)
+      {
+         // already deleted
+         return false;
+      }
+
       return true;
    }
-
+   
    /**
     * Recursively removes the specified node from the collection and the tree. This will also delete the
     * resource.
@@ -713,12 +762,6 @@
          text = key;
       }
 
-      R node = tree.findNode(key.toStringMessage());
-      if (node != null)
-      {
-         return new handle();
-      }
-
       R parent = owner;
 
       if (location == Location.CHILD)
@@ -735,7 +778,8 @@
       {
          nodes = new LinkedList<>();
       }
-      node = createNode(key.toStringMessage(), text.toStringMessage(), parent);
+      
+      R node = createNode(key.toStringMessage(), text.toStringMessage(), parent);
 
       switch (location)
       {
@@ -817,12 +861,6 @@
          throw new IllegalArgumentException();
       }
 
-      TreeNodeResource<N> node = tree.findNode(key);
-      if (node != null)
-      {
-         throw new RuntimeException("Cannot create node, duplicate key found.");
-      }
-
       return tree.createNode(key, text, parent);
    }
 
@@ -976,31 +1014,4 @@
          }
       }
    }
-
-   /**
-    * Returns the count of all the items in this collection.
-    *
-    * @return   The number of all nodes in this collection
-    */
-   @Override
-   public integer getCount()
-   {
-      ListIterator<R> iter = iterator();
-      
-      int collect = 0;
-      
-      while(iter.hasNext())
-      {
-         R node = iter.next();
-         
-         if (node._getHasChildren())
-         {
-            collect += node._getNodes().getCount().intValue();
-         }
-         
-         collect++;
-      }
-      
-      return new integer(collect);
-   }
 }

=== modified file 'src/com/goldencode/p2j/ui/TreeNodeEntry.java'
--- src/com/goldencode/p2j/ui/TreeNodeEntry.java	2020-09-14 12:05:37 +0000
+++ src/com/goldencode/p2j/ui/TreeNodeEntry.java	2021-01-28 21:48:33 +0000
@@ -1,8 +1,8 @@
 /*
-** Module   : TreeVNodeEntry.java
+** Module   : TreeNodeEntry.java
 ** Abstract : Tree node configuration entry.
 **
-** Copyright (c) 2019-2020, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 HC  20190313 Created initial version.
@@ -12,6 +12,7 @@
 **                  its values from EditorMode.
 ** 005 IAS 20200828 Fixed type parameters for generic classes.
 ** 006 IAS 20200908 Rework (de)serialization.
+** 007 VVT 20210127 Fixed: equals() and hashCode(): all class fields must participate.
 **                  
 */
 /*
@@ -169,21 +170,33 @@
     * @param   o
     *          The other object to test.
     *
-    * @return  {@code true} if this object is the same as the o argument; {@code false} otherwise.
+    * @return  {@code true} if this object is equals to the o argument; {@code false} otherwise.
     */
    @Override
-   public boolean equals(Object o)
+   public boolean equals(Object obj)
    {
-      if (this == o)
+      if (this == obj)
       {
          return true;
       }
-      if (o == null || getClass() != o.getClass())
-      {
-         return false;
-      }
-      TreeNodeEntry that = (TreeNodeEntry) o;
-      return Objects.equals(nodeId, that.nodeId);
+
+      if (obj == null)
+      {
+         return false;
+      }
+
+      if (getClass() != obj.getClass())
+      {
+         return false;
+      }
+
+      final TreeNodeEntry other = (TreeNodeEntry) obj;
+      return editorMode == other.editorMode && expandIconId == other.expandIconId
+               && expanded == other.expanded && hasChildren == other.hasChildren
+               && iconId == other.iconId && nodeBgColor == other.nodeBgColor
+               && nodeFgColor == other.nodeFgColor && nodeId == other.nodeId
+               && parentId == other.parentId && selectedIconId == other.selectedIconId
+               && Objects.equals(tooltip, other.tooltip);
    }
 
    /**
@@ -196,7 +209,18 @@
    @Override
    public int hashCode()
    {
-      return Objects.hash(nodeId);
+      final int prime = 31;
+      int result = prime + editorMode.hashCode();
+      result = prime * result + expandIconId;
+      result = prime * result + (expanded ? 1231 : 1237);
+      result = prime * result + (hasChildren ? 1231 : 1237);
+      result = prime * result + iconId;
+      result = prime * result + nodeBgColor;
+      result = prime * result + nodeFgColor;
+      result = prime * result + nodeId;
+      result = prime * result + parentId;
+      result = prime * result + selectedIconId;
+      return prime * result + ((tooltip == null) ? 0 : tooltip.hashCode());
    }
    
    /**

=== modified file 'src/com/goldencode/p2j/ui/TreeNodeResource.java'
--- src/com/goldencode/p2j/ui/TreeNodeResource.java	2020-09-14 12:05:37 +0000
+++ src/com/goldencode/p2j/ui/TreeNodeResource.java	2021-01-29 14:13:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : TreeNodeResource.java
 ** Abstract : Tree node resource implementation.
 **
-** Copyright (c) 2019-2020, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 HC  20190313 Created initial version.
@@ -25,6 +25,9 @@
 **                  enumeration type EditorMode.
 ** 009 SBI 20200721 Implemented CHILD, NEXT, PREVIOUS, CHILDREN, FirstSibling, LastSibling attributes.
 ** 010 IAS 20200914 Fixed type parameters for generic classes.
+**     CA  20201117 Do not use resourceDelete to delete the widget - use the delete() API for this code.
+**     VVT 20210127 getTreeNodeIndex(): implementation updated to reflect the root node existance.
+**     VVT 20210128 Method order changed to conform the FWD style.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -737,7 +740,7 @@
          return new integer();
       }
       
-      return new integer(index + 1);
+      return new integer(index);
    }
 
    /**
@@ -893,6 +896,38 @@
    }
 
    /**
+    * Perform actual delete of an resource. At the time of this call, it is assumed the resource
+    * is valid for deletion (the handle and the resource are both valid).
+    * <p>
+    * The method first calls {@link #resourceDelete()}, if the method returns {@code false}, the deletion
+    * is aborted.
+    */
+   @Override
+   public void delete()
+   {
+      if (!resourceDelete())
+      {
+         return;
+      }
+
+      super.delete();
+      
+      TreeWidgetBase<N, TreeConfig<N>, TreeNodeResource<N>> tree = this.tree;
+      this.tree = null;
+
+      if (nodeId == 0)
+      {
+         _removeCollection();
+      }
+      else
+      {
+         parent._getNodes()._removeNode(this, null);
+      }
+
+      tree.removeNode(this, true);
+   }
+
+   /**
     * Worker to be implemented by each resource.  Called by {@link #delete()}.
     *
     * @return  <code>true</code> if the resource was deleted.
@@ -905,24 +940,50 @@
          // already deleted)
          return false;
       }
-
-      TreeWidgetBase<N, TreeConfig<N>, TreeNodeResource<N>> tree = this.tree;
-      this.tree = null;
-
-      if (nodeId == 0)
-      {
-         _removeCollection();
-      }
-      else
-      {
-         parent._getNodes()._removeNode(this, null);
-      }
-
-      tree.removeNode(this, true);
+      
       return true;
    }
 
    /**
+    * The method serializes the node state into new config entry instance.
+    *
+    * @return  new instance of {@link TreeNodeEntry}.
+    */
+   protected abstract N saveToEntry();
+
+   /**
+    * The method serializes the node state into the supplied entry instance.
+    *
+    * @param   entry
+    *          Instance of {@link TreeNodeEntry}.
+    */
+   protected void saveToEntry(TreeNodeEntry entry)
+   {
+      entry.expanded = expanded;
+      entry.nodeBgColor = bgColor;
+      entry.nodeFgColor = fgColor;
+      entry.iconId = iconId;
+      entry.expandIconId = expandIconId;
+      entry.hasChildren = hasChildren;
+      entry.tooltip = tooltip;
+      entry.selectedIconId = selectedIconId;
+      entry.editorMode = editorMode;
+   }
+
+   /**
+    * Loads the state from the supplied instance of {@link TreeNodeEntry}.
+    *
+    * @param   entry
+    *          A valid {@link TreeNodeEntry} instance.
+    */
+   protected void loadFromEntry(N entry)
+   {
+      expanded = entry.expanded;
+      
+      editorMode = entry.editorMode;
+   }
+
+   /**
     * Returns the collection of child nodes.
     *
     * @return  see above.
@@ -990,26 +1051,6 @@
    }
 
    /**
-    * The method serializes the node state into new config entry instance.
-    *
-    * @return  new instance of {@link TreeNodeEntry}.
-    */
-   protected abstract N saveToEntry();
-
-   /**
-    * Loads the state from the supplied instance of {@link TreeNodeEntry}.
-    *
-    * @param   entry
-    *          A valid {@link TreeNodeEntry} instance.
-    */
-   protected void loadFromEntry(N entry)
-   {
-      expanded = entry.expanded;
-      
-      editorMode = entry.editorMode;
-   }
-
-   /**
     * Returns the node's parent.
     *
     * @return  parent node.
@@ -1130,22 +1171,4 @@
       tree.pushNodes();
    }
 
-   /**
-    * The method serializes the node state into the supplied entry instance.
-    *
-    * @param   entry
-    *          Instance of {@link TreeNodeEntry}.
-    */
-   protected void saveToEntry(TreeNodeEntry entry)
-   {
-      entry.expanded = expanded;
-      entry.nodeBgColor = bgColor;
-      entry.nodeFgColor = fgColor;
-      entry.iconId = iconId;
-      entry.expandIconId = expandIconId;
-      entry.hasChildren = hasChildren;
-      entry.tooltip = tooltip;
-      entry.selectedIconId = selectedIconId;
-      entry.editorMode = editorMode;
-   }
 }

=== modified file 'src/com/goldencode/p2j/ui/TreeViewNodeEntry.java'
--- src/com/goldencode/p2j/ui/TreeViewNodeEntry.java	2020-09-14 12:05:37 +0000
+++ src/com/goldencode/p2j/ui/TreeViewNodeEntry.java	2021-01-29 14:13:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : TreeViewNodeEntry.java
 ** Abstract : Treeview node configuration.
 **
-** Copyright (c) 2018-2020, Golden Code Development Corporation.
+** Copyright (c) 2018-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 HC  20181122 Created initial version.
@@ -10,6 +10,7 @@
 **                  it the base for the TREELIST widget.
 ** 003 SBI 20200619 Implemented setValue(int, Object).
 ** 004 IAS 20200908 Rework (de)serialization.
+** 005 VVT 20210127 Added: equals() and hashCode(): all class fields must participate.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -68,6 +69,7 @@
 
 import static com.goldencode.util.NativeTypeSerializer.*;
 import java.io.*;
+import java.util.*;
 
 /**
  * Treeview node configuration.
@@ -174,4 +176,32 @@
       super.readExternal(in);
       text = readString(in);
    }
+   
+   /**
+    * Indicates whether some other object is "equal to" this one.
+    *
+    * @param   o
+    *          The other object to test.
+    *
+    * @return  {@code true} if this object is equals to the o argument; {@code false} otherwise.
+    */
+   @Override
+   public boolean equals(Object obj)
+   {
+      return super.equals(obj) && Objects.equals(text, ((TreeViewNodeEntry) obj).text);
+   }
+
+   /**
+    * Returns a hash code value for the object. This method is
+    * supported for the benefit of hash tables such as those provided by
+    * {@link java.util.HashMap}.
+    *
+    * @return  a hash code value for this object.
+    */
+   @Override
+   public int hashCode()
+   {
+      return 31 + ((text == null) ? 0 : text.hashCode());
+   }
+   
 }
\ No newline at end of file

=== modified file 'src/com/goldencode/p2j/ui/TreeWidgetBase.java' (properties changed: -x to +x)
--- src/com/goldencode/p2j/ui/TreeWidgetBase.java	2020-09-28 02:06:35 +0000
+++ src/com/goldencode/p2j/ui/TreeWidgetBase.java	2021-01-29 14:13:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : TreeWidgetBase.java
 ** Abstract : Tree widget base implementation.
 **
-** Copyright (c) 2019-2020, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 HC  20190313 Created initial version.
@@ -33,6 +33,23 @@
 ** 011 SBI 20200721 Drop highlight node's functionality is different from the selected node logic.
 ** 012 IAS 20200914 Fixed type parameters for generic classes.
 **     HC  20200926 Performance optimizations of server-client config state synchronization.
+**     HC  20201010 Implemented selective config flushing.
+**     EVL 20201021 More optimization for getAttr() usage or widget ID getting.
+**     EVL 20201022 Optimized attributes flush implementation.
+**     CA  20201117 Do not use resourceDelete to delete the widget - use the delete() API for this code.
+**     VVT 20210120 Missing support for column synchronization added.
+**                  See #5084.
+**     AIL 20210126 Added support for selection changing after add/remove/collapse node.
+**     VVT 20210127 Node creation with non-unique IDs is now logged; the tree root node is now
+**                  registered in nodesById, nodesByKey and nodesByIndices; getSelectedNode(): javadoc
+**                  fixed to better match the original OCX; new private helper methods added:
+**                  _getSelecteNodeId() and _getSelectedNode(); removeNode(): the doSelectAfterRemove()
+**                  method inlined, the logic simplified. clearAll(): unnecessary call to pushNodes()
+**                  removed. addNode(): now allows adding nodes with non-uniq IDs. See #5084.
+**     VVT 20210127 Logger access modifier changed to protected to make it accessible in subclasses.
+**     VVT 20210128 Method order changed to conform the FWD style.
+**     VVT 20210129 removeNode(): fixed for the case the selected node descends from the
+**                  node being removed.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -89,13 +106,14 @@
 
 package com.goldencode.p2j.ui;
 
+import java.util.*;
+import java.util.function.*;
+import java.util.logging.*;
+
 import com.goldencode.p2j.ui.TreeNodeEntry.*;
 import com.goldencode.p2j.ui.ocx.*;
 import com.goldencode.p2j.util.*;
 
-import java.util.*;
-import java.util.function.*;
-
 /**
  * Server side Tree widget base implementation.
  * @param <N> 
@@ -139,7 +157,7 @@
    /**
     * The backed field for BUILDING-TREE attribute.
     */
-   private int buildingTree = 0;
+   protected int buildingTree = 0;
 
    /** Flag marking pushNodes call pending */
    private boolean pendingPushNodes;
@@ -156,6 +174,9 @@
    /** Assigned imagelist. */
    private handle imageList;
 
+   /** Logger */
+   protected static final Logger LOG = LogHelper.getLogger(TreeWidgetBase.class.getName());
+
    /**
     * Default constructor.
     *
@@ -168,6 +189,9 @@
    {
       super(dynamic, ctrl);
       rootNode = createNode("", "", null);
+      nodesById.put(Integer.valueOf(0), rootNode);
+      nodesByKey.put("", rootNode);
+      nodesByIndices.add(rootNode);
       resetImageMap();
    }
 
@@ -339,16 +363,15 @@
 
    /**
     * Getter for the SELECTED-NODE attribute.
-    * The method returns a handle the currently selected node or unknown handle when no node is currently
-    * selected. The handle will wrap an instance of {@link TreeNodeFace}.
+    * The method returns a handle the currently selected node or tree root node handle when no node
+    * is currently selected. The handle will wrap an instance of {@link TreeNodeFace}.
     *
     * @return  the attribute value.
     */
    @Override
    public handle getSelectedNode()
    {
-      TreeNodeResource<N> node = nodesById.get(getAttr("selectedNodeId", () -> config.selectedNodeId));
-      return new handle(node);
+      return new handle(_getSelectedNode());
    }
 
    /**
@@ -361,44 +384,29 @@
    @Override
    public void setSelectedNode(handle value)
    {
-      int nodeId = getNodeIdFrom(value);
-      
-      if (!nodesById.containsKey(nodeId))
-      {
-         return;
-      }
-
-      if (config.selectedNodeId == nodeId)
-      {
-         return;
-      }
-
-      setAttr("selectedNodeId", config.selectedNodeId, nodeId, 
-            (int vv) -> config.selectedNodeId = vv);
+      _setSelectedNode(getNodeIdFrom(value));
    }
 
    /**
     * Getter for the SELECTED-NODE-ID attribute.
     * The method returns node id of the currently selected node or unknown when no node is currently
     * selected.
+    * 
+    * FIXME: indeed this method never returns an unknown value. Instead the zero value is returned if no
+    * visible node is selected.
     *
     * @return the attribute value.
     */
    @Override
    public integer getSelectedNodeId()
    {
-      handle node = getSelectedNode();
-      if (node.isUnknown())
-      {
-         return new integer();
-      }
-
-      return ((TreeNodeResource<N>) node.getResource()).getNodeId();
+      return new integer(_getSelecteNodeId());
    }
 
    /**
     * Getter for the SELECTED-NODE-KEY attribute.
-    * The method returns a key of the currently selected node or unknown when no node is currently
+    * The method returns keys of the currently selected nodes, delimited with the char(1),
+    * or an empty string when no node is currently
     * selected.
     *
     * @return  the attribute value.
@@ -406,13 +414,7 @@
    @Override
    public character getSelectedNodeKey()
    {
-      handle node = getSelectedNode();
-      if (node.isUnknown())
-      {
-         return new character();
-      }
-
-      return ((TreeNodeResource<N>) node.getResource()).getNodeKey();
+      return _getSelectedNode().getNodeKey();
    }
 
    /**
@@ -575,7 +577,7 @@
    @Override
    public integer getFirstVisibleNode()
    {
-      return new integer(getAttr("topNode", () -> config.topNode));
+      return new integer(getAttr("topNode", () -> config.topNode, true));
    }
 
    /**
@@ -901,16 +903,58 @@
    @Override
    public void removeNode(NumberType nodeId)
    {
-      doWithNode(nodeId, null, n ->
-      {
-         TreeNodeResource<N> parent = n._getParent();
-         if (parent != null)
+      doWithNode(nodeId, null, n -> {
+         final TreeNodeResource<N> parent = n._getParent();
+         // We are not going to delete the tree root!
+         assert parent != null;
+
+         final TreeNodeCollectionResource<N, C, R> children = parent._getNodes();
+
+         /**
+          * If the selected node is being deleted or the selected node descends from
+          * the node being deleted, adjust the selection.
+          */
+         for (R node = _getSelectedNode(); node != rootNode; node = (R) node._getParent())
          {
-            TreeNodeCollectionResource<N,C,R> nodes = parent._getNodes();
-            nodes._removeNode(n, null);
-            parent._setHasChildren(nodes._getCount() != 0);
-            pushNodes();
+            if (node == n)
+            {
+               // We are about to delete the focused node, transfer focus to:
+               // 1. The previous sibling, if exists
+               // 2. The parent, if it is not the tree root node
+               // 3. The next sibling, if exists
+               // 4. The tree root node
+
+               final int nodeChildIndex = children._indexOf(n);
+               assert nodeChildIndex >= 0;
+
+               final TreeNodeResource<N> newFocused;
+               if (nodeChildIndex > 0)
+               {
+                  newFocused = children._getNode(nodeChildIndex - 1);
+               }
+               else if (parent != rootNode)
+               {
+                  newFocused = parent;
+               }
+               else if (nodeChildIndex < children._getCount() - 1)
+               {
+                  newFocused = children._getNode(nodeChildIndex + 1);
+               }
+               else
+               {
+                  newFocused = rootNode;
+               }
+
+               _setSelectedNode(newFocused._getNodeId());
+
+               break;
+            }
          }
+         
+         children._removeNode(n, null);
+         parent._setHasChildren(children._getCount() != 0);
+
+         pushNodes();
       });
    }
 
@@ -949,7 +993,11 @@
    @Override
    public void collapseNode(NumberType nodeId)
    {
-      doWithNode(nodeId, null, n -> n.setNodeExpanded(new logical(false)));
+      doWithNode(nodeId, null, n -> 
+      {
+         n.setNodeExpanded(new logical(false));
+         doSelectAfterCollapse(n);
+      });
    }
 
    /**
@@ -959,7 +1007,6 @@
    public void clearAll()
    {
       rootNode._removeCollection();
-      pushNodes();
    }
 
    /**
@@ -1245,8 +1292,9 @@
    }
 
    /**
-    * Setter for the BUILDING-TREE attribute. When set to {@code true} any model changes (nodes added or
-    * removed) won't be reflected until the attribute is set back to {@code false}.
+    * Setter for the BUILDING-TREE attribute. When set to {@code true}
+    * any model changes (columns added, nodes added or removed) won't
+    * be reflected until the attribute is set back to {@code false}.
     *
     * @param   value
     *          the attribute value
@@ -1272,6 +1320,7 @@
       if (buildingTree <= 0)
       {
          buildingTree = 0;
+ 
          if (pendingPushNodes)
          {
             pushNodes();
@@ -1354,12 +1403,12 @@
          return unknownKey;
       }
       
-      if (getAttr("id ", () -> config.id )!= null)
+      int wid = getId();
+      if (wid != -1)
       {
          Integer nodeId;
          
-         nodeId = LogicalTerminal.getClient().findTreeNodeByRelativeCoordinates(getAttr("id", () -> config.id).asInt(),
-                                                                                x.intValue(),
+         nodeId = LogicalTerminal.getClient().findTreeNodeByRelativeCoordinates(wid, x.intValue(),
                                                                                 y.intValue());
          if (nodeId != null)
          {
@@ -1640,7 +1689,7 @@
    @Override
    public integer getTopVisibleNodeId()
    {
-      return new integer(getAttr("topNode", () -> config.topNode));
+      return new integer(getAttr("topNode", () -> config.topNode, true));
    }
 
    /**
@@ -1863,21 +1912,145 @@
    }
 
    /**
-    * Delete the resource.
-    *
-    * @return  <code>true</code> if the resource was deleted.
-    */
-   @Override
-   protected boolean resourceDelete()
-   {
-      boolean res = super.resourceDelete();
-      if (res)
-      {
-         rootNode.delete();
-         return true;
-      }
-
-      return false;
+    * Perform actual delete of an resource. At the time of this call, it is assumed the resource
+    * is valid for deletion (the handle and the resource are both valid).
+    * <p>
+    * The method first calls {@link #resourceDelete()}, if the method returns {@code false}, the deletion
+    * is aborted.
+    */
+   @Override
+   public void delete()
+   {
+      if (!resourceDelete())
+      {
+         return;
+      }
+      
+      super.delete();
+      
+      rootNode.delete();
+   }
+
+   /**
+    * Push the specified widget attribute change to the client-side.
+    *
+    * @param   fname
+    *          The config field name.
+    * @param   value
+    *          The new config field value.
+    */
+   @Override
+   public void pushWidgetAttr(String fname, Object value)
+   {
+      if (buildingTree > 0)
+      {
+         pendingAttrs.add(fname);
+         pendingAttrValues.add(value);
+      }
+      else
+      {
+         super.pushWidgetAttr(fname, value);
+      }
+   }
+
+   /**
+    * Push the specified widget attribute changes to the client-side.
+    *
+    * @param   fnames
+    *          The list of config field names.
+    * @param   values
+    *          The list of new config field values.
+    */
+   @Override
+   public void pushWidgetAttr(String[] fnames, Object[] values)
+   {
+      if (buildingTree > 0)
+      {
+         pendingAttrs.addAll(Arrays.asList(fnames));
+         pendingAttrValues.addAll(Arrays.asList(values));
+      }
+      else
+      {
+         super.pushWidgetAttr(fnames, values);
+      }
+   }
+
+   /**
+    * Get the TreeView node under mouse cursor as a node handle.
+    * If no node under cursor return unknown value.
+    * 
+    * @param   x
+    *          Mouse cursor x position. 
+    * @param   y
+    *          Mouse cursor y position.
+    * 
+    * @return  TreeView node under cursor as a handle.
+    */
+   public handle hitTestFwd(NumberType x, NumberType y)
+   {
+      if (x.isUnknown() || y.isUnknown())
+      {
+         return new handle();
+      }
+      
+      R node = getNodeByCoordinates(x.intValue(), y.intValue());
+      
+      return node == null ? new handle() : new handle(node);
+   }
+
+   /**
+    * Get the TreeView node under mouse cursor as a COM object.
+    * If no node under cursor return unknown value.
+    * 
+    * @param   x
+    *          Mouse cursor x position. 
+    * @param   y
+    *          Mouse cursor y position.
+    * 
+    * @return  TreeView node under cursor as a COM object.
+    */
+   public comhandle hitTest(NumberType x, NumberType y)
+   {
+      if (x.isUnknown() || y.isUnknown())
+      {
+         return new comhandle();
+      }
+      
+      R node = getNodeByCoordinates(x.intValue(), y.intValue());
+      
+      if (node instanceof TreeViewNodeResource)
+      {
+         return TreeViewNodeObject.newInstance((TreeViewNodeResource) node);
+      }
+      else
+      {
+         return new comhandle();
+      }
+   }
+   
+   /**
+    * Returns row height for tree based widget.  The units are pixels.
+    *
+    * @return  the tree widget row height in pixels.
+    */
+   @Override
+   public integer getRowHeight()
+   {
+      integer fntSize = getFontSize();
+      
+      return fntSize.isUnknown() ? new integer() : new integer(fntSize.intValue() + 1);
+   }
+
+   /**
+    * Sets row height for tree based widget.  The units are pixels.
+    *
+    * @param   heightValue
+    *          the new row height vale in pixels.
+    */
+   @Override
+   public void setRowHeight(NumberType heightValue)
+   {
+      // stub only
    }
 
    /**
@@ -1890,20 +2063,39 @@
     */
    protected void addNode(R node, boolean pushNodes)
    {
-      if (node.getNodeId().isUnknown())
+      final integer nodeId = node.getNodeId();
+      if (nodeId.isUnknown())
       {
          throw new RuntimeException("Node id value must not be unknown!");
       }
 
-      if (node.getNodeKey().isUnknown())
+      final character nodeKey = node.getNodeKey();
+      if (nodeKey.isUnknown())
       {
          throw new RuntimeException("Node key value must not be unknown!");
       }
 
-      nodesById.put(node.getNodeId().intValue(), node);
-      nodesByKey.put(node.getNodeKey().toStringMessage(), node);
+      nodesById.put(nodeId.intValue(), node);
+
+      /**
+       * Note: to match the original OCX behavior, we allow adding nodes with existing keys.
+       */
+      final String nodeKeyString = nodeKey.toStringMessage();
+      if (nodesByKey.containsKey(nodeKeyString))
+      {
+         LOG.warning("Creating node with duplicate key: " + nodeKeyString);
+      }
+      
+      nodesByKey.put(nodeKeyString, node);
+      
       nodesByIndices.add(node);
 
+      // this is the first node added to the tree-list; select it
+      if (node._getParent() == rootNode && rootNode._getNodes()._getCount() == 1)
+      {
+         _setSelectedNode(node._getNodeId());
+      }
+      
       if (pushNodes)
       {
          pushNodes();
@@ -2094,6 +2286,28 @@
    {
       return nodesByIndices.indexOf(node);
    }
+   
+   /**
+    * Convenient method for setting the selected node just by its id.
+    * 
+    * @param   nodeId
+    *          The id of the tree node which should be selected.
+    */
+   void _setSelectedNode(int nodeId)
+   {      
+      if (!nodesById.containsKey(nodeId))
+      {
+         return;
+      }
+
+      if (config.selectedNodeId == nodeId)
+      {
+         return;
+      }
+
+      setAttr("selectedNodeId", config.selectedNodeId, nodeId, 
+            (int vv) -> config.selectedNodeId = vv);
+   }
 
    /**
     * Validates the supplied array of mandatory arguments and node id, finds the node nodeId and executes
@@ -2283,51 +2497,6 @@
    }
 
    /**
-    * Expands or collapses all nodes.
-    *
-    * @param   expanded
-    *          The new state.
-    * @param   exceptNode
-    *          The node to exclude from collapsing/expanding, if null all nodes will be collapsed/expanded.
-    */
-   private void setAllNodesExpanded(boolean expanded, TreeNodeResource<N> exceptNode)
-   {
-      TreeNodeCollectionResource<N,C,R> nodes = rootNode._getNodes(false);
-      if (nodes != null)
-      {
-         Iterator<R> it = nodes.recursiveIterator(false);
-         while(it.hasNext())
-         {
-            TreeNodeResource<N> node = it.next();
-            if (node._isNodeExpanded() == expanded)
-            {
-               continue;
-            }
-
-            TreeNodeResource<N> check = exceptNode;
-            while(check != null)
-            {
-               if (check._getNodeId() == node._getNodeId())
-               {
-                  break;
-               }
-
-               check = check._getParent();
-            }
-
-            if (check != null)
-            {
-               continue;
-            }
-
-            node._setNodeExpanded(expanded);
-         }
-
-         pushNodes();
-      }
-   }
-
-   /**
     * Removes all collapsed nodes.
     */
    void clearCollapsed()
@@ -2458,125 +2627,68 @@
 //   }
 
    /**
-    * Push the specified widget attribute change to the client-side.
-    *
-    * @param   fname
-    *          The config field name.
-    * @param   value
-    *          The new config field value.
-    */
-   @Override
-   public void pushWidgetAttr(String fname, Object value)
-   {
-      if (buildingTree > 0)
-      {
-         pendingAttrs.add(fname);
-         pendingAttrValues.add(value);
-      }
-      else
-      {
-         super.pushWidgetAttr(fname, value);
-      }
-   }
-
-   /**
-    * Push the specified widget attribute changes to the client-side.
-    *
-    * @param   fnames
-    *          The list of config field names.
-    * @param   values
-    *          The list of new config field values.
-    */
-   @Override
-   public void pushWidgetAttr(String[] fnames, Object[] values)
-   {
-      if (buildingTree > 0)
-      {
-         pendingAttrs.addAll(Arrays.asList(fnames));
-         pendingAttrValues.addAll(Arrays.asList(values));
-      }
-      else
-      {
-         super.pushWidgetAttr(fnames, values);
-      }
-   }
-
-   /**
-    * Get the TreeView node under mouse cursor as a node handle.
-    * If no node under cursor return unknown value.
-    * 
-    * @param   x
-    *          Mouse cursor x position. 
-    * @param   y
-    *          Mouse cursor y position.
-    * 
-    * @return  TreeView node under cursor as a handle.
-    */
-   public handle hitTestFwd(NumberType x, NumberType y)
-   {
-      if (x.isUnknown() || y.isUnknown())
-      {
-         return new handle();
-      }
-      
-      R node = getNodeByCoordinates(x.intValue(), y.intValue());
-      
-      return node == null ? new handle() : new handle(node);
-   }
-
-   /**
-    * Get the TreeView node under mouse cursor as a COM object.
-    * If no node under cursor return unknown value.
-    * 
-    * @param   x
-    *          Mouse cursor x position. 
-    * @param   y
-    *          Mouse cursor y position.
-    * 
-    * @return  TreeView node under cursor as a COM object.
-    */
-   public comhandle hitTest(NumberType x, NumberType y)
-   {
-      if (x.isUnknown() || y.isUnknown())
-      {
-         return new comhandle();
-      }
-      
-      R node = getNodeByCoordinates(x.intValue(), y.intValue());
-      
-      if (node instanceof TreeViewNodeResource)
-      {
-         return TreeViewNodeObject.newInstance((TreeViewNodeResource) node);
-      }
-      else
-      {
-         return new comhandle();
-      }
-   }
-   
-   /**
-    * Returns row height for tree based widget.  The units are pixels.
-    *
-    * @return  the tree widget row height in pixels.
-    */
-   @Override
-   public integer getRowHeight()
-   {
-      integer fntSize = getFontSize();
-      
-      return fntSize.isUnknown() ? new integer() : new integer(fntSize.intValue() + 1);
-   }
-
-   /**
-    * Sets row height for tree based widget.  The units are pixels.
-    *
-    * @param   heightValue
-    *          the new row height vale in pixels.
-    */
-   @Override
-   public void setRowHeight(NumberType heightValue)
-   {
-      // stub only
+    * Expands or collapses all nodes.
+    *
+    * @param   expanded
+    *          The new state.
+    * @param   exceptNode
+    *          The node to exclude from collapsing/expanding, if null all nodes will be collapsed/expanded.
+    */
+   private void setAllNodesExpanded(boolean expanded, TreeNodeResource<N> exceptNode)
+   {
+      TreeNodeCollectionResource<N,C,R> nodes = rootNode._getNodes(false);
+      if (nodes != null)
+      {
+         Iterator<R> it = nodes.recursiveIterator(false);
+         while(it.hasNext())
+         {
+            TreeNodeResource<N> node = it.next();
+            if (node._isNodeExpanded() == expanded)
+            {
+               continue;
+            }
+
+            TreeNodeResource<N> check = exceptNode;
+            while(check != null)
+            {
+               if (check._getNodeId() == node._getNodeId())
+               {
+                  break;
+               }
+
+               check = check._getParent();
+            }
+
+            if (check != null)
+            {
+               continue;
+            }
+
+            node._setNodeExpanded(expanded);
+         }
+
+         pushNodes();
+      }
+   }
+
+   /**
+    * Get selected node by node ID helper method.
+    * 
+    * @return the selected node
+    */
+   private final R _getSelectedNode()
+   {
+      return nodesById.get(_getSelecteNodeId());
+   }
+
+   /**
+    * Get selected node ID helper method.
+    * 
+    * @return see above
+    */
+   private int _getSelecteNodeId()
+   {
+      return getAttr("selectedNodeId", () -> config.selectedNodeId, true);
    }
 
    /**
@@ -2601,9 +2713,10 @@
    {
       Integer nodeId = null;
       
-      if (getAttr("id ", () -> config.id )!= null)
+      int wid = getId();
+      if (wid != -1)
       {
-         nodeId = LogicalTerminal.getClient().hitTest(getAttr("id", () -> config.id).asInt(), x, y);
+         nodeId = LogicalTerminal.getClient().hitTest(wid, x, y);
       }
       
       if (nodeId == null)
@@ -2635,4 +2748,48 @@
       
       return nodeId;
    }
+   
+   /**
+    * Change selection after a collapse operation. This should be triggered after a collapse so
+    * we ensure that if the selected node was part of the collapsed subtree, the new selection 
+    * should be changed to the nearest visible ancestor (the collapsed node).
+    * 
+    * @param   collapsedNode
+    *          The node on which the collapse operation was done.
+    */
+   private void doSelectAfterCollapse(TreeNodeResource<N> collapsedNode)
+   {
+      TreeNodeResource<N> selectedAncestor = ((TreeNodeResource<N>) getSelectedNode().getResource());
+      
+      if (!validSelection() || collapsedNode == selectedAncestor)
+      {
+         return;
+      }
+      
+      while (selectedAncestor != null && 
+             selectedAncestor != collapsedNode && 
+             selectedAncestor != rootNode)
+      {
+         selectedAncestor = selectedAncestor._getParent();
+      } 
+      
+      
+      if (selectedAncestor == collapsedNode)
+      {
+         _setSelectedNode(collapsedNode._getNodeId());
+      }
+   }
+   
+   /**
+    * Check if the current selected node is valid: is known and attached to this tree.
+    * 
+    * @return   {@true} if the selected node is known and belongs to this tree.
+    */
+   private boolean validSelection()
+   {
+      integer selectedNode = getSelectedNodeId();
+      return selectedNode != null && 
+             !selectedNode.isUnknown() && 
+             findNode(selectedNode.intValue()) != null;
+   }
 }

=== modified file 'src/com/goldencode/p2j/ui/TriggerManager.java'
--- src/com/goldencode/p2j/ui/TriggerManager.java	2020-09-30 22:59:47 +0000
+++ src/com/goldencode/p2j/ui/TriggerManager.java	2020-10-15 07:54:57 +0000
@@ -50,6 +50,10 @@
 ** 021 CA  20200927          Avoid context-local lookups by relying on the helper instance.
 **     GES 20200927          Added helper functions for dumping state.
 **     GES 20200930          Changed mergeTriggerRegistry() to use gather() instead of merge().
+**     CA  20201011          Replaced integer sets with a fast access bitmap.
+**                           Improved trigger cleanup - each resource knows the number of events it has 
+**                           registered with (ever), and if this number is zero, there is no work to do when
+**                           the resource gets deleted (including widgets).
 */
 
 /*
@@ -110,6 +114,8 @@
 import java.util.*;
 import java.util.stream.*;
 
+import org.roaringbitmap.*;
+
 import com.goldencode.p2j.util.*;
 
 /**
@@ -148,21 +154,21 @@
     * <p>
     * All non-persistent triggers registered in the scope are deregistered.
     * <p>
-    * All persistent triggers registered in this scope are moved to the
-    * previous scope.
+    * All persistent triggers registered in this scope are moved to the previous scope.
     *
-    * @param registry
-    *        <code>ScopedDictionary</code> that keeps track of trigger
-    *        registrations for this session.
+    * @param     registry
+    *            <code>ScopedDictionary</code> that keeps track of trigger registrations for this session.
+    *        
+    * @return    <code>true</code> if there were any events in the current scope. 
     */
    @SuppressWarnings("unchecked")
-   public static void scopeFinished(ScopedDictionary<?,?> registry)
+   public static boolean scopeFinished(ScopedDictionary<?,?> registry)
    {
       LinkedList<EventList> list = (LinkedList<EventList>) registry.getScope();
       registry.deleteScope();
       LinkedList<EventList> prev = (LinkedList<EventList>) registry.getScope();
       
-      scopeFinished(list, prev, true);
+      return scopeFinished(list, prev, true);
    }
 
    /**
@@ -189,7 +195,28 @@
       // from the registry only and only if its creator procedure (or resource) is deleted
       LinkedList<EventList> list = (LinkedList<EventList>) registry.getScopeAt(0);
       list.addFirst(events);
-      
+      LogicalTerminal lt = LogicalTerminal.getInstance();
+      events.processDefinitions((EventDefinition ed) ->
+      {
+         if (ed.hasWidget())
+         {
+            ed.processWidgets((Integer wid) -> 
+            {
+               lt.getWidgetForIdInt(wid).incrementTrigger();
+            });
+         }
+         if (ed.hasResource())
+         {
+            ed.processResources((Long resid) -> 
+            {
+               WrappedResource res = handle.fromResourceId(resid).getResource();
+               if (res.valid() && res instanceof HandleResource)
+               {
+                  ((HandleResource) res).incrementTrigger();
+               }
+            });
+         }
+      });
       // DEBUG: System.err.printf("REGISTER\n%s", events.toString());
    }
 
@@ -475,22 +502,24 @@
     * @param    cleanup
     *           Flag indicating if the triggers are cleaned up using 
     *           {@link #cleanup(EventList, Set)}.
+    *        
+    * @return    <code>true</code> if there were any events in the current scope. 
     */
-   private static void scopeFinished(LinkedList<EventList> source, 
-                                     LinkedList<EventList> target, 
-                                     boolean               cleanup)
+   private static boolean scopeFinished(LinkedList<EventList> source, 
+                                        LinkedList<EventList> target, 
+                                        boolean               cleanup)
    {
       // DEBUG: System.err.printf("SCOPE_FINISHED\n%s\n%s\n", dumpScope(source, "SOURCE"), dumpScope(target, "BEFORE_TARGET"));
       
       if (source.size() == 0)
       {
-         return;
+         return false;
       }
       
       LogicalTerminal lt = LogicalTerminal.getInstance();
       ProcedureManager.ProcedureHelper pm = ProcedureManager.getProcedureHelper();
       
-      Set<Integer> wids = new HashSet<Integer>(1);
+      RoaringBitmap wids = new RoaringBitmap();
       
       for (EventList events : source)
       {
@@ -525,7 +554,9 @@
          clearRowDisplay(wids);
       }
       
-      // DEBUG: System.err.print(dumpScope(target, "AFTER_TARGET"));      
+      // DEBUG: System.err.print(dumpScope(target, "AFTER_TARGET"));
+      
+      return true;
    }
 
    /**
@@ -543,17 +574,17 @@
     *           This will be modified on output to add any widgets that need
     *           to be removed from the notification list.
     */
-   private static void cleanup(LogicalTerminal lt, EventList list, Set<Integer> triggers)
+   private static void cleanup(LogicalTerminal lt, EventList list, RoaringBitmap triggers)
    {
       lt.deregisterTrigger(list.getTriggerId(), true);
 
-      Map<Integer, Integer> rde = list.getRowDisplayEvents();
+      int[][] rde = list.getRowDisplayEvents();
       
       if (rde != null)
       {
-         for (Map.Entry<Integer, Integer> entry : rde.entrySet())
+         for (int i = 0; i < rde[1].length; i++)
          {
-            triggers.add(entry.getValue());
+            triggers.add(rde[1][i]);
          }
       }
    }
@@ -565,12 +596,11 @@
     * @param    triggers
     *           The list of widgets no longer needing row display notifications.
     */
-   private static void clearRowDisplay(Set<Integer> triggers)
+   private static void clearRowDisplay(RoaringBitmap triggers)
    {
-      if (triggers.size() > 0)
+      if (!triggers.isEmpty())
       {
-         int[] triggerIds = Utils.integerCollectionToPrimitive(triggers);
-         LogicalTerminal.removeRowDisplayEvents(triggerIds);
+         LogicalTerminal.removeRowDisplayEvents(triggers.toArray());
       }
    }
 }

=== modified file 'src/com/goldencode/p2j/ui/TriggerMatch.java'
--- src/com/goldencode/p2j/ui/TriggerMatch.java	2020-09-17 11:46:00 +0000
+++ src/com/goldencode/p2j/ui/TriggerMatch.java	2020-10-11 16:07:42 +0000
@@ -9,6 +9,7 @@
 ** 002 HC  20191019 Improved the logic preventing recursive triggers to consider the cases when
 **                  the widget matching the trigger is different from the source widget.
 ** 003 IAS 20200914 Re-work (de)serialization
+**     CA  20201011 Added a copy constructor.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -103,6 +104,19 @@
    }
 
    /**
+    * Initialize this instance as a copy of the other instance.
+    * 
+    * @param    other
+    *           The other instance.
+    */
+   public TriggerMatch(TriggerMatch other)
+   {
+      this.eventId = other.eventId;
+      this.triggerId = other.triggerId;
+      this.matchedWidgetId = other.matchedWidgetId;
+   }
+
+   /**
     * Replacement for the default object writing method.
     * 
     * @param    out

=== modified file 'src/com/goldencode/p2j/ui/WindowWidget.java'
--- src/com/goldencode/p2j/ui/WindowWidget.java	2020-10-07 18:32:15 +0000
+++ src/com/goldencode/p2j/ui/WindowWidget.java	2021-01-15 20:55:46 +0000
@@ -114,6 +114,10 @@
 ** 065 HC  20200926          Performance optimizations of server-client config state
 **                           synchronization.
 **     AIL 20201007          Override canPushWidgetAttr method in order to define custom constraints.
+**     HC  20201010          Implemented selective config flushing.
+**     EVL 20201022          Optimized attributes flush implementation.
+**     SVL 20201221          The widget now implements MinHeightCharsInterface.
+**     VVT 20210115          Missing LegacyAttribute annotation(s) added. See #5064.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -188,11 +192,12 @@
 implements CommonWindow,
            CommonHandleTree,
            TopOnlyInterface,
-           Hoverable
+           Hoverable,
+           MinHeightCharsInterface
 {
    /** MenuWidget handle owned by this window */
    private MenuWidget menubar;
-   
+
    /**
     * Default constructor.  It is package private because an instance must
     * only be created in a controllable way.
@@ -277,7 +282,7 @@
          return new decimal();
       }
       
-      return new decimal(getAttr("fullHeightChars", () -> config.fullHeightChars));
+      return new decimal(getAttr("fullHeightChars", () -> config.fullHeightChars, true));
    }
    
    /**
@@ -293,7 +298,7 @@
          return new integer();
       }
       
-      return new integer(getAttr("fullHeightPixels", () -> config.fullHeightPixels));
+      return new integer(getAttr("fullHeightPixels", () -> config.fullHeightPixels, true));
    }
    
    /**
@@ -309,7 +314,7 @@
          return new decimal();
       }
 
-      return new decimal(getAttr("fullWidthChars", () -> config.fullWidthChars));
+      return new decimal(getAttr("fullWidthChars", () -> config.fullWidthChars, true));
    }
    
    /**
@@ -325,7 +330,7 @@
          return new integer();
       }
 
-      return new integer(getAttr("fullWidthPixels", () -> config.fullWidthPixels));
+      return new integer(getAttr("fullWidthPixels", () -> config.fullWidthPixels, true));
    }
    
    /**
@@ -333,6 +338,7 @@
     *
     * @return current value of MAX-HEIGHT-CHARS attribute
     */
+   @LegacyAttribute(name = "MAX-HEIGHT-CHARS")
    @Override
    public decimal getMaxHeightChars()
    {
@@ -1866,7 +1872,7 @@
    {
       boolean prevDelayedMinimize = getAttr("delayedMinimize", () -> config.delayedMinimize);
       int prevState = getAttr("windowState", () -> config.windowState);
-      boolean realized = getAttr("realized", () -> config.realized);
+      boolean realized = getAttr("realized", () -> config.realized, true);
 
       // the delayed minimized behavior comes in effect only when the window has been
       // realized; also note that in this case the WINDOW-STATE attribute value is not affected!
@@ -2027,7 +2033,7 @@
    @Override
    public void setHidden(boolean hidden)
    {
-      if (config.hidden == hidden && (getAttr("visible", () -> config.visible) || config.hidden))
+      if (config.hidden == hidden && (getAttr("visible", () -> config.visible, true) || config.hidden))
       {
          // be a no-op only if the widget has been realized.
          return;
@@ -2059,7 +2065,7 @@
    {
       return new integer(getAttr("windowWidthPixels", () -> config.windowWidthPixels) != BaseConfig.INV_COORD ?
                          getAttr("windowWidthPixels", () -> config.windowWidthPixels) :
-                         getAttr("widthPixels", () -> config.widthPixels));
+                         getAttr("widthPixels", () -> config.widthPixels, true));
    }
 
    /**
@@ -2071,7 +2077,7 @@
    {
       return new integer(getAttr("windowHeightPixels", () -> config.windowHeightPixels) != BaseConfig.INV_COORD ?
                          getAttr("windowHeightPixels", () -> config.windowHeightPixels) :
-                         getAttr("heightPixels", () -> config.heightPixels));
+                         getAttr("heightPixels", () -> config.heightPixels, true));
    }
 
    /**

=== modified file 'src/com/goldencode/p2j/ui/chui/AlertBoxImpl.java'
--- src/com/goldencode/p2j/ui/chui/AlertBoxImpl.java	2017-12-04 13:16:35 +0000
+++ src/com/goldencode/p2j/ui/chui/AlertBoxImpl.java	2020-10-24 22:32:57 +0000
@@ -2,7 +2,7 @@
 ** Module   : AlertBoxImpl.java
 ** Abstract :
 **
-** Copyright (c) 2011-2017, Golden Code Development Corporation.
+** Copyright (c) 2011-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 SIY 20111122 Extracted from AlertBox
@@ -21,6 +21,7 @@
 ** 011 VIG 20160315 Removed setUnderscoreOffset() call for button.
 ** 012 SBI 20161101 Added getTabItemList().
 ** 013 HC  20171024 Runtime support for SYSTEM-DIALOG PRINT-SETUP and OUTPUT TO PRINTER.
+** 014 HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -456,9 +457,9 @@
          {
             String s = (String) commons.content[i];
             
-            Label<ChuiOutputManager> ls = widgetFactory.createLabel(WidgetId.nextID(),
-                                                                    s, 
-                                                                    -1);
+            ClientDrivenLabel<ChuiOutputManager> ls = widgetFactory.createLabel(WidgetId.nextID(),
+                                                                                s,
+                                                                                -1);
             ls.config().dcolor = commons.alertColor;
             ls.setRightAligned(false);
             add(ls);

=== modified file 'src/com/goldencode/p2j/ui/chui/ChuiWidgetFactory.java'
--- src/com/goldencode/p2j/ui/chui/ChuiWidgetFactory.java	2017-10-27 17:04:40 +0000
+++ src/com/goldencode/p2j/ui/chui/ChuiWidgetFactory.java	2020-10-24 22:32:57 +0000
@@ -2,7 +2,7 @@
 ** Module   : ChuiWidgetFactory.java
 ** Abstract :
 **
-** Copyright (c) 2011-2017, Golden Code Development Corporation.
+** Copyright (c) 2011-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 SIY 20111221 Created initial version
@@ -34,6 +34,7 @@
 ** 022 OM  20170815 Added createFileSystemChooserDialog() method.
 ** 023 CA  20171020 Added support for FRAMEs sent to named or unnamed streams, in GUI.
 ** 024 OM  20171026 Updated implemenattion of createFileSystemChooserDialog().
+** 025 HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
 */
 
 /*
@@ -163,7 +164,7 @@
    }
    
    /**
-    * Create new {@link Label} instance for given text.
+    * Create new {@link ClientDrivenLabel} instance for given text.
     * 
     * @param   id
     *          The widget's ID.
@@ -173,10 +174,10 @@
     *          The ID of the frame to which the label belongs, or -1 if unknown at the time of the 
     *          creation.
     *
-    * @return  new {@link Label} instance.
+    * @return  new {@link ClientDrivenLabel} instance.
     */
    @Override
-   public LabelImpl createLabel(WidgetId id, String text, int frameId)
+   public ClientDrivenLabel createLabel(WidgetId id, String text, int frameId)
    {
       return new LabelImpl(id, text, frameId);
    }
@@ -307,20 +308,20 @@
    }
 
    /**
-    * Create UI-specific {@link Label} instance as a copy of given {@link Label}.
+    * Create UI-specific {@link ClientDrivenLabel} instance as a copy of given {@link ClientDrivenLabel}.
     * 
     * @param   id
     *          The widget's ID.
     * @param   labelInstance
-    *          Source {@link Label} instance.
+    *          Source {@link ClientDrivenLabel} instance.
     * @param   frameId
     *          The ID of the frame to which the label belongs, or -1 if unknown at the time of the 
     *          creation.
     *          
-    * @return  instance of UI-specific implementation of {@link Label}.
+    * @return  instance of UI-specific implementation of {@link ClientDrivenLabel}.
     */
    @Override
-   public LabelImpl createLabel(WidgetId id, Label<ChuiOutputManager> labelInstance, int frameId)
+   public LabelImpl createLabel(WidgetId id, ClientDrivenLabel<ChuiOutputManager> labelInstance, int frameId)
    {
       return new LabelImpl(id, labelInstance, frameId);
    }

=== modified file 'src/com/goldencode/p2j/ui/chui/ColumnLayout.java'
--- src/com/goldencode/p2j/ui/chui/ColumnLayout.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/p2j/ui/chui/ColumnLayout.java	2020-10-24 22:32:57 +0000
@@ -1,7 +1,7 @@
 /* Module   : ColumnLayout.java
 ** Abstract : Column LayoutManager implementation for CHUI
 **
-** Copyright (c) 2005-2017, Golden Code Development Corporation.
+** Copyright (c) 2005-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------Description-----------------------------
 ** 001 EVL 20050623   @21550 Creation initial version.
@@ -46,6 +46,7 @@
 ** 025 HC  20151013          Changes to extend GUI multi-window focus management and ACTIVE-
 **                           WINDOW system handle processing to modal windows.
 ** 026 OM  20170329          Set the side widget for their labels.
+** 027 HC  20201024          Implemented SIDE-LABEL-HANDLE attribute.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -307,8 +308,8 @@
                                                       text.length() - 2) +
                                                       text;
                WidgetId nextId = c[i].getId().createId(WidgetId.nextID());
-               Label<O> label = (Label<O>) container.screen().getFactory()
-                                                    .createLabel(nextId,
+               ClientDrivenLabel<O> label = container.screen().getFactory()
+                                                     .createLabel(nextId,
                                                                  text + ": ", 
                                                                  c[i].config().frameId);
                label.setLocation(curCol, curRow);

=== modified file 'src/com/goldencode/p2j/ui/chui/EditorImpl.java'
--- src/com/goldencode/p2j/ui/chui/EditorImpl.java	2017-11-26 19:24:12 +0000
+++ src/com/goldencode/p2j/ui/chui/EditorImpl.java	2020-10-24 22:32:57 +0000
@@ -2,7 +2,7 @@
 ** Module   : EditorImpl.java
 ** Abstract : ChUI editor implementation
 **
-** Copyright (c) 2011-2017, Golden Code Development Corporation.
+** Copyright (c) 2011-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 SIY 20111121 Extracted CHUI-specific part from Editor.
@@ -22,6 +22,7 @@
 ** 011 EVL 20151104 Fix for '\r' line separators in incoming character data.  All these characters
 **                  are removed in ChUI.
 ** 012 CA  20171126 If read-only state changes, update the insert mode.
+** 013 HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -293,8 +294,9 @@
       
       if (label != null)
       {
-         label.config().dcolor = config().dcolor;
-         label.config().pfcolor = config().pfcolor;
+         BaseConfig bc = label.config();
+         bc.dcolor = config().dcolor;
+         bc.pfcolor = config().pfcolor;
       }
    }
    

=== modified file 'src/com/goldencode/p2j/ui/chui/LabelImpl.java'
--- src/com/goldencode/p2j/ui/chui/LabelImpl.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/p2j/ui/chui/LabelImpl.java	2020-10-24 22:32:57 +0000
@@ -2,7 +2,7 @@
 ** Module   : LabelImpl.java
 ** Abstract :
 **
-** Copyright (c) 2011-2017, Golden Code Development Corporation.
+** Copyright (c) 2011-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 SIY 20111126 Extracted from Label
@@ -19,6 +19,7 @@
 ** 008 CA  20150222 Fixed label's COLUMN and WIDTH-CHARS attributes (in ChUI).
 ** 009 CA  20150323 Pass the frame ID when creating a label (to properly resolve the font in GUI).
 ** 010 CA  20150406 Added APIs to compute the label's width/height in native units.
+** 011 HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -85,7 +86,7 @@
  */
 @SuppressWarnings("unchecked")
 public class LabelImpl
-extends Label<ChuiOutputManager>
+extends ClientDrivenLabel<ChuiOutputManager>
 {
    /**
     * Constructs label with given text.
@@ -114,7 +115,7 @@
     *          The ID of the frame to which the label belongs, or -1 if unknown at the time of the 
     *          creation.
     */
-   LabelImpl(WidgetId id, Label<ChuiOutputManager> label, int frameId)
+   LabelImpl(WidgetId id, ClientDrivenLabel<ChuiOutputManager> label, int frameId)
    {
       super(id, label, frameId);
    }
@@ -211,4 +212,4 @@
       
       disableEmptyMode = false;
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/ui/chui/ThinClient.java'
--- src/com/goldencode/p2j/ui/chui/ThinClient.java	2020-10-04 18:23:10 +0000
+++ src/com/goldencode/p2j/ui/chui/ThinClient.java	2021-01-28 17:31:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : ThinClient.java
 ** Abstract : Thin Client class for generic UI driver implementation
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- ---------------------------------Description------------------------------------
 ** 001 EVL 20050710   @21707 Creation based on general concept. Necessary
@@ -2622,6 +2622,30 @@
 **     SBI 20200916          Changed continueEditing to apply screen buffers from the client side.
 **     CA  20200923          Changed StateSynchronizer to return Externalizable instances.
 **     HC  20200927          Batching of server config changes.
+**     CA  20201011          Optimized frame processing in getChanges().
+**     HC  20201013          Server-pushed config field changes are serialized with field ids instead of
+**                           names.
+**     CA  20201015          Replaced java.util.Stack with a non-synchronized custom implementation.
+**     GES 20201012          Pushed processing back into screen-buffer to improve encapsulation.
+**     HC  20201024          Implemented SIDE-LABEL-HANDLE attribute.
+**     GES 20201025          Reworked screen-buffer processing to be aware of the range of widget IDs so
+**                           that the more efficient sparse array contiguous mode can be used.
+**     CA  20201102          In GUI, if focus is a BUTTON, then mnemonics work without ALT modifier.
+**     CA  20201112          Avoid pushing the entire frame definition when setting the FRAME or PARENT 
+**                           attribute.
+**     CA  20201117          Added API to delete a widget at runtime.
+**     SVL 20201126          Fixed on-click trigger targets within browse for the case when an in-browse
+**                           editor is active.
+**     SVL 20201130          Browse column can be a valid focus target.
+**     CA  20201201          In case of a TEXT:READ-ONLY=true and TEXT:HIDDEN=true widget, the ENABLE statement
+**                           will not make it visible.
+**     SVL 20201207          Added refreshBrowseColumnBuffers.
+**     CA  20210118          Performance improvements for get/setScreenBuffer - minimize widget lookups.
+**     CA  20210123          If an APPLY "ENTRY" is executed is sent even while within another trigger, the
+**                           pendingFocus must be set.  This check is done only if running under Windows OS,
+**                           but the initial approach to disallow while in another trigger may be related to
+**                           Linux ChUI (or the root cause is not correct).
+**     CA  20210128          Fixed problems with navigating a menubar via ALT and LEFT/RIGHT/UP/DOWN keys.
 */
 
 /*
@@ -2688,6 +2712,7 @@
 import java.util.function.*;
 import java.util.logging.*;
 
+import com.goldencode.util.Stack;
 import com.goldencode.p2j.cfg.*;
 import com.goldencode.p2j.email.*;
 import com.goldencode.p2j.comauto.*;
@@ -4066,7 +4091,6 @@
       setScreenBuffers(inbuf);
 
       Widget inFocus = locateInFocus(widgetId);
-      int inFocusState = FocusManager.focusState(inFocus);
       Frame tmpFrame = UiUtils.locateFrame(inFocus);
 
       if (tmpFrame != null)
@@ -4074,11 +4098,7 @@
          inFocus = tmpFrame.getField(inFocus);
       }
       
-      if (triggerNesting > 0                                                   &&
-          (inFocus instanceof FixedSizeContainer || inFocus instanceof Button) &&
-          inFocus.isVisible()                                                  &&
-          inFocus.isEnabled()                                                  &&
-          (tmpFrame == null || tmpFrame.isVisible()))
+      if (triggerNesting > 0 && isValidFocusTarget(inFocus, tmpFrame))
       {
          // no pending is used after trigger invocation if target is valid
          // before trigger invocation
@@ -4132,11 +4152,7 @@
 
          if (triggerNesting > 0 && !frameChangeEvent)
          {
-            boolean targetValid = (inFocus instanceof FixedSizeContainer ||
-                                   inFocus instanceof Button) &&
-                                  inFocus.isVisible()         &&
-                                  inFocus.isEnabled()         &&
-                                  (tmpFrame == null || tmpFrame.isVisible());
+            boolean targetValid = isValidFocusTarget(inFocus, tmpFrame);
                                   
             if (!explicit)
             {
@@ -4229,8 +4245,7 @@
       currentEventList = save;
 
       return inbuf == null ? null
-                           : getEditableClientScreenBuffers(
-                                getScreenBuffer(inbuf[0].getBaseId(), inbuf[0].size(), true));
+                           : getEditableClientScreenBuffers(getScreenBuffer(inbuf[0].getBaseId(), true));
    }
    
    /**
@@ -4360,6 +4375,26 @@
    }
 
    /**
+    * Determines if the given widget in focus is a valid focus target.
+    *
+    * @param  inFocus
+    *         The widget in focus.
+    * @param  inFocusFrame
+    *         Parent frame of the widget in focus. Can be <code>null</code>.
+    *
+    * @return <code>true</code> if the given widget in focus is a valid focus target.
+    */
+   private boolean isValidFocusTarget(Widget inFocus, Frame inFocusFrame)
+   {
+      return (inFocus instanceof FixedSizeContainer ||
+              inFocus instanceof Button ||
+              inFocus instanceof BrowseColumn) &&
+             inFocus.isVisible()               &&
+             inFocus.isEnabled()               &&
+             (inFocusFrame == null || inFocusFrame.isVisible());
+   }
+
+   /**
     * Adjust focus before processing event.
     *
     * @param   explicit
@@ -5028,6 +5063,22 @@
    }
 
    /**
+    * Refresh server-side screen buffers of the columns of the given browse.
+    *
+    * @param browse
+    *        Target browse.
+    */
+   public void refreshBrowseColumnBuffers(Browse browse)
+   {
+      ScreenBuffer buffer = putBrowseColumnValues(browse, null);
+      if (buffer != null)
+      {
+         ScreenBuffer[] buffers = new ScreenBuffer[] {buffer};
+         server.refreshBuffers(buffers);
+      }
+   }
+
+   /**
     * Delete the line of text in which the targeted editor's cursor currently resides.  Leave
     * the cursor at the leftmost position of the same line number (which will be the line
     * previously below this one if the cursor is not already on the last line) or at the
@@ -5558,7 +5609,7 @@
          frame.setCurrentStatement(null);
       }
 
-      return resolveBuffer ? getEditableClientScreenBuffers(getScreenBuffer(frameId, -1, true))
+      return resolveBuffer ? getEditableClientScreenBuffers(getScreenBuffer(frameId, true))
                            : null;
    }
 
@@ -9555,8 +9606,7 @@
          
          // cleanup
          currentEventList = save;
-         return getEditableClientScreenBuffers(
-                   getScreenBuffer(inbuf[0].getBaseId(), inbuf[0].size()));
+         return getEditableClientScreenBuffers(getScreenBuffer(inbuf[0].getBaseId(), false));
       }
       finally
       {
@@ -9761,12 +9811,12 @@
     *           The current (after config change) visible frame state.
     * @param    id
     *           The widget ID.
-    * @param    fnames
-    *           The list of config field names.
+    * @param    fids
+    *           The list of config field ids.
     * @param    values
     *           The list of new config field values.
     */
-   public void pushWidgetAttrInBatch(boolean frameVisible, int id, String[] fnames, Object[] values)
+   public void pushWidgetAttrInBatch(boolean frameVisible, int id, Integer[] fids, Object[] values)
    {
       ClientConfigManager mgr = ConfigManager.getInstance();
 
@@ -9776,9 +9826,9 @@
          WidgetId wid = widget.getId();
          WidgetConfig wcfg = widget.config();
 
-         for (int i = 0; i < fnames.length; i++)
+         for (int i = 0; i < fids.length; i++)
          {
-            mgr.setConfigField(wid, wcfg, fnames[i], values[i]);
+            mgr.setConfigField(wid, wcfg, fids[i], values[i]);
          }
       });
    }
@@ -9840,6 +9890,87 @@
    }
 
    /**
+    * Attach a widget to a frame, at runtime.  The widget can be a dynamic widget or a full static frame.
+    * 
+    * @param    fid
+    *           The parent frame's ID.
+    * @param    wid
+    *           The widget ID.
+    * @param    cfg
+    *           The widget's configuration.
+    */
+   @Override
+   public void attachRuntimeWidget(int fid, int wid, WidgetConfig cfg)
+   {
+      int tempTerm = forceInteractive();
+      this.savedTermRedir = tempTerm;
+      
+      try
+      {
+         Frame frame = (Frame) getWidget(fid);
+            
+         Frame rootFrame = frame.getRootFrame();
+         FrameConfig rootFrameCfg = rootFrame.config();
+         boolean ignorePaint = inRowDisplayTrigger || (!rootFrame.isVisible() && !rootFrameCfg.visible);
+
+         eventDrawingBracket(rootFrame, ignorePaint, true, () ->
+         {
+            registry().attachRuntimeWidget(frame, wid, cfg);
+         });
+      }
+      finally
+      {
+         restoreRedirection(tempTerm);
+      }
+   }
+   
+   /**
+    * Delete and detach a widget from a frame, at runtime.  The widget can be a dynamic widget or a full
+    * static frame.
+    * 
+    * @param    fid
+    *           The parent frame's ID.
+    * @param    wid
+    *           The widget ID.
+    */
+   @Override
+   public void deleteDynamicWidget(int fid, int wid)
+   {
+      Widget w = getWidget(wid);
+      if (w == null)
+      {
+         return;
+      }
+      Widget label = w instanceof LabeledWidget ? ((LabeledWidget) w).getLabelInstance() : null;
+
+      int tempTerm = forceInteractive();
+      this.savedTermRedir = tempTerm;
+      
+      try
+      {
+         Frame frame = (Frame) getWidget(fid);
+            
+         Frame rootFrame = frame.getRootFrame();
+         FrameConfig rootFrameCfg = rootFrame.config();
+         boolean ignorePaint = inRowDisplayTrigger || (!rootFrame.isVisible() && !rootFrameCfg.visible);
+
+         eventDrawingBracket(rootFrame, ignorePaint, true, () ->
+         {
+            removeWidget(w);
+
+            if (label != null)
+            {
+               removeWidget(label);
+            }
+         });
+      }
+      finally
+      {
+         restoreRedirection(tempTerm);
+      }
+   }
+   
+   /**
     * Process array of frame/widget definitions provided by server.
     *
     * @param   sd
@@ -9932,28 +10063,6 @@
             preprocessFrameDef(frame, cc);
          }
 
-         // remove deleted dynamic widgets
-         for (int id : definition.getDeletedWidgets())
-         {
-            Widget w = getWidget(id);
-            Widget label = null;
-
-            if (w instanceof LabeledWidget)
-            {
-               label = ((LabeledWidget) w).getLabelInstance();
-            }
-
-            if (w != null)
-            {
-               removeWidget(w);
-            }
-
-            if (label != null)
-            {
-               removeWidget(label);
-            }
-         }
-
          registry().pushDefinition(new ScreenDefinition[] { definition });
       });
    }
@@ -11061,8 +11170,9 @@
 
       int frameId = registry().lookupFrameIdFromWidgetId(widgetId);
 
-      ScreenBuffer[] sb = (frameId == -1 ? null : getEditableClientScreenBuffers(
-                                                     getScreenBuffer(frameId, -1, true)));
+      ScreenBuffer[] sb = (frameId == -1) ? null
+                                          : getEditableClientScreenBuffers(getScreenBuffer(frameId, true));
+      
       Frame frame;
       if (frameId != -1)
       {
@@ -11750,7 +11860,7 @@
          startEditingMode(focusWidgetId, el);
          
          // editing phrase needs to know about the frame and the focus...
-         result = getEditableClientScreenBuffers(getScreenBuffer(frameId, -1, true));
+         result = getEditableClientScreenBuffers(getScreenBuffer(frameId, true));
          result[0].putKeyCode(lastKey, lastKeyState);
          FrameData fd = frame.getFrameValue(null);
          result[0].setFrameValue(fd.getValue());
@@ -12212,12 +12322,18 @@
 
       final Boolean[] allDisplayed = new Boolean[1];
       allDisplayed[0] = false;
+      boolean isEnable = stmt == UIStatement.ENABLE;
 
       final Runnable doVisible = () -> {
          for (int i = 0; i < list.length; i++)
          {
             if (list[i] != null)
             {
+               if (isEnable && list[i].ignoreEnable())
+               {
+                  continue;
+               }
+               
                boolean viewed = false;
                UIStatement savedValue = null;
                if (list[i] instanceof Frame)
@@ -12262,12 +12378,7 @@
             {
                Set<Integer> iteration = frame.getIterationIds();
 
-               Iterator<Integer>  iter = frameBuf[0].getWidgetIDIterator();
-
-               while (iter.hasNext())
-               {
-                  iteration.remove(iter.next());
-               }
+               frameBuf[0].removeWidgetIDs(iteration);
 
                allDisplayed[0] = (iteration.size() == 0);
             }
@@ -12417,8 +12528,9 @@
                    updatedHeaders != null &&
                    !updatedHeaders.isEmpty())
                {
+                  WidgetRegistry registry = registry();
                   for (Integer hid : updatedHeaders)
-                     registry().getComponent(hid.intValue()).repaint();
+                     registry.getComponent(hid.intValue()).repaint();
                }
 
                needPause = true;
@@ -12547,6 +12659,11 @@
          {
             if (list[i] != null)
             {
+               if (isEnable && list[i].ignoreEnable())
+               {
+                  continue;
+               }
+               
                if (!list[i].isVisible())
                {
                   final int idx = i;
@@ -13204,8 +13321,11 @@
       boolean explicit = false;
       boolean pendingExplicit = false;
 
+      // TODO: CA: the underWindows check is added because at this time I can't confirm that the fix is valid  
+      // under linux ChUI for 9.x 4GL versions.  Testing under linux ChUI for 10.x shows that underWindows the
+      // 'not in nested trigger mode' check is not OK.  This is left as a precaution for linux 9.x ChUI.
       if (focusWidgetId == -1     &&
-          triggerNesting == 0     &&
+          (triggerNesting == 0 || underWindows)    &&
           pendingFocus != null    &&
           pendingFocus.focusTraversable())
       {
@@ -13904,7 +14024,7 @@
       if (inbuf != null)
       {
          result = getEditableClientScreenBuffers(
-                     getScreenBuffer(inbuf[0].getBaseId(), inbuf[0].size(), force));
+                     getScreenBuffer(inbuf[0].getBaseId(), force));
       }
 
       if (restoreFocus)
@@ -14511,7 +14631,7 @@
              (sbDefault == null || nextFrame.getId().asInt() != sbDefault.getBaseId()))
          {
             // create screen buffer to the given frame
-            ScreenBuffer moreScreenBuff = getScreenBuffer(nextFrame.getId().asInt(), -1, false);
+            ScreenBuffer moreScreenBuff = getScreenBuffer(nextFrame.getId().asInt(), false);
             // and add it to the list for further processing
             if (moreScreenBuff != null)
             {
@@ -15115,17 +15235,15 @@
             continue;
          }
 
-         int[] list = UiUtils.getFrameIDs((TopLevelWindow) wnd);
-         for (int i : list)
+         List<Frame> list = ((TopLevelWindow) wnd).getFrames();
+         for (Frame frame : list)
          {
+            int frameId = UiUtils.getWidgetIdAsInt(frame);
             // skip tinyInput frame
-            if (i == WidgetId.INPUT_FRAME_ID.asInt())
+            if (frameId == WidgetId.INPUT_FRAME_ID.asInt())
                continue;
 
-            Frame frame = (Frame) getWidget(new WidgetId(i));
-
-            if ((frame ==  null) || !frame.isDown() || frame.getDown() == 0 ||
-                 frame.isRedirected())
+            if ((frame ==  null) || !frame.isDown() || frame.getDown() == 0 || frame.isRedirected())
                continue;
 
             if (ids == null)
@@ -15134,7 +15252,7 @@
                down = new ArrayList<>();
             }
             
-            ids.add(i);
+            ids.add(frameId);
             down.add(frame.getDown());
          }
       }
@@ -15818,6 +15936,49 @@
    }
 
    /**
+    * Put the values of the column widgets of the given browse into the given screen buffer.
+    *
+    * @param  browse
+    *         Target browse.
+    * @param  buffer
+    *         Target buffer. If it is <code>null</code>, a new buffer will be created (if there are values to
+    *         put).
+    *
+    * @return target buffer containing the widget values or <code>null</code> if there is no initial target
+    *         buffer and there are no values to put.
+    */
+   public ScreenBuffer putBrowseColumnValues(Browse browse, ScreenBuffer buffer)
+   {
+      int[] ids = browse.getIdsOfColumnWidgets();
+      if (ids.length == 0)
+      {
+         return buffer;
+      }
+
+      ScreenBuffer targetBuffer = buffer;
+      if (targetBuffer == null)
+      {
+         Frame frame = UiUtils.locateFrame(browse);
+         targetBuffer = new ScreenBuffer(frame.getId().asInt(), ids.length);
+      }
+
+      for (int columnId : ids)
+      {
+         BrowseColumn col = (BrowseColumn) registry().getComponent(columnId);
+
+         // This code is also for browse:VALIDATE() function which requires passing values of all
+         // editable columns to server side, in order to validate current row
+         // TODO make getState() work for browse column widgets
+         // at the moment column values are not cached on the server (with the exception of values
+         // for ROW-DISPLAY trigger) and so must be always sent to the server
+         targetBuffer.setState(col.getId().asInt(), ScreenBuffer.CHANGED);
+         putWidgetValue(col, targetBuffer);
+      }
+
+      return targetBuffer;
+   }
+
+   /**
     * Prepare message text for specified time to wait.
     *
     * @param   millis
@@ -16279,7 +16440,7 @@
                // if the key is ALT, send it to the window
                if (key.keyCode() == Key.VK_ALT && !isChui())
                {
-                  focused.ancestor().processEvent(key);
+                  eventDrawingBracket(focused.window(), () -> focused.ancestor().processEvent(key));
                   moreKeys = false;
                }
                else if (currentEventList.isGoEvent(Keyboard.eventName(key.keyCode())) ||
@@ -16378,42 +16539,22 @@
 
       int frameId = frame.getId().asInt();
 
-      return getScreenBuffer(frameId, -1, false);
-   }
-
-   /**
-    * Generate a copy of the <code>ScreenBuffer</code> instance for the given
-    * frame.
-    *
-    * @param    frameId
-    *           The frame whose screen buffer must be returned.
-    * @param    size
-    *           The number of widgets in the screen buffer in total or -1
-    *           to allow this value to be calculated.
-    *
-    * @return   <code>ScreenBuffer</code> instance.
-    */
-   private ScreenBuffer getScreenBuffer(int frameId, int size)
-   {
-      return getScreenBuffer(frameId, size, false);
-   }
-
-   /**
-    * Generate a copy of the <code>ScreenBuffer</code> instance for the given
-    * frame.
-    *
-    * @param    frameId
-    *           The frame whose screen buffer must be returned.
-    * @param    size
-    *           The number of widgets in the screen buffer in total or -1
-    *           to allow this value to be calculated.
+      return getScreenBuffer(frameId, false);
+   }
+
+   /**
+    * Generate a copy of the <code>ScreenBuffer</code> instance for the given
+    * frame.
+    *
+    * @param    frameId
+    *           The frame whose screen buffer must be returned.
     * @param    force
     *           <code>true</code> to copy the current data into the screen
     *           buffer without regard to the changed flag.
     *
     * @return   <code>ScreenBuffer</code> instance.
     */
-   private ScreenBuffer getScreenBuffer(int frameId, int size, boolean force)
+   private ScreenBuffer getScreenBuffer(int frameId, boolean force)
    {
       if (frameId == -1)
       {
@@ -16425,45 +16566,34 @@
       // another NPE protection
       if (frame == null)
       {
-         // this conidition is pretty rare, one known case is when the frame from editable frame
+         // this condition is pretty rare, one known case is when the frame from editable frame
          // list does not exist in general widget registry, can be a kind if race or timing
          LOG.log(Level.WARNING, "Unable to get the screen buffer for frame ID: "+frameId+
                                 ". The frame with given ID is missing in widget registry.");
          return null;
       }
+      
+      WidgetRegistry.IdRange range = new WidgetRegistry.IdRange();
 
       // get the list of all widgets
-      WidgetId[] list = registry().getIDs(frameId);
+      Widget[] list = registry().getWidgets(frame, range);
       int lSize = (list != null) ? list.length : 0;
 
-      // find out the maximum number of widgets, if needed
-      if (size == -1)
-      {
-         size = 0;
-         // do not process any widgets which are client-side only (negative IDs)
-         for (int i = 0; i < lSize; i++)
-         {
-            if (!WidgetId.virtualWidget(list[i]))
-            {
-               size ++;
-            }
-         }
-      }
-
       // create the ScreenBuffer that big
       Widget       comp   = null;
       WidgetConfig config = null;
 
-      ScreenBuffer buffer = new ScreenBuffer(frameId, size);
+      ScreenBuffer buffer = new ScreenBuffer(frameId, range.min, range.max);
 
       for (int i = 0; i < lSize; i++)
       {
-         // skip labels or other widgets widhout server-side counter part
-         if (WidgetId.virtualWidget(list[i]))
+         comp = list[i];
+         
+         // skip labels or other widgets without server-side counter part
+         if (WidgetId.virtualWidget(comp.getId()))
             continue;
 
-         int id = list[i].asInt();
-         comp = registry().getComponent(list[i]);
+         int id = list[i].getId().asInt();
 
          // WARNING: short-cut taken here! Since the only caller that uses
          //          force flag today is CHOOSE, we use this flag for a
@@ -16512,21 +16642,7 @@
          }
          else if (comp instanceof Browse)
          {
-            Browse browse = (Browse) comp;
-            int[] ids = browse.getIdsOfColumnWidgets();
-
-            for (int columnId : ids)
-            {
-               BrowseColumn col = (BrowseColumn) registry().getComponent(columnId);
-
-               // This code is also for browse:VALIDATE() function which requires passing values of all
-               // editable columns to server side, in order to validate current row
-               // TODO make getState() work for browse column widgets
-               // at the moment column values are not cached on the server (with the exception of values
-               // for ROW-DISPLAY trigger) and so must be always sent to the server
-               buffer.setState(col.getId().asInt(), ScreenBuffer.CHANGED);
-               putWidgetValue(col, buffer);
-            }
+            putBrowseColumnValues((Browse) comp, buffer);
          }
          
          processSideLabel(buffer, comp);
@@ -16725,12 +16841,15 @@
    
          // iterate through all widgets and push new values and state as needed, but only for the
          // current row...
-         WidgetId[] list = registry().getIDs(frameId);
+         WidgetRegistry registry = registry();
+         Widget[] list = registry.getWidgets(frame, null);
          
          if (list != null)
          {
-            for (WidgetId wid : list)
+            for (Widget comp : list)
             {
+               WidgetId wid = comp.getId();
+               
                if (frame.isDown())
                {
                   WidgetId resolved = Frame.resolveWidgetId(frame, wid.asInt());
@@ -16750,14 +16869,6 @@
                   continue;
                }
       
-               // get the widget
-               Widget comp = registry().getComponent(id);
-               
-               if (comp == null)
-               {
-                  continue;
-               }
-      
                if (frame.isDown())
                   comp = frame.getField(comp);
       
@@ -16864,29 +16975,24 @@
     */
    private ArrayList<Integer> updateHeaders(ScreenBuffer frameBuf)
    {
-      Iterator<Integer> iter = frameBuf.getHeaderIDIterator();
-      BaseDataType value;
-      ArrayList<Integer> updated = new ArrayList<>();
-
-      while (iter.hasNext())
+      WidgetRegistry     registry = registry();
+      ArrayList<Integer> updated  = new ArrayList<>();
+      
+      frameBuf.processHeaders((Integer id, Object value) ->
       {
-         Integer hid = iter.next();
-
-         Widget comp = registry().getComponent(hid);
+         Widget comp = registry.getComponent(id);
 
          if (comp instanceof DataContainer)
          {
-            value = (BaseDataType) frameBuf.getHeaderValue(hid);
-
             // value is set regardless if changed or not
-            ((DataContainer) comp).setValue(value);
+            ((DataContainer) comp).setValue((BaseDataType) value);
 
             if (!value.equals(((DataContainer) comp).getValue()))
             {
-               updated.add(hid);
+               updated.add(id);
             }
-         }
-      }
+         }         
+      });
 
       return updated;
    }
@@ -16973,7 +17079,7 @@
       }
 
       return resolveBuffer && frame.isRealized()
-               ? getScreenBuffer(UiUtils.getWidgetIdAsInt(frame), -1, true) 
+               ? getScreenBuffer(UiUtils.getWidgetIdAsInt(frame), true) 
                : null;
    }
 
@@ -17590,7 +17696,7 @@
    
          setTriggerNesting(triggerNesting + 1);
    
-         server.help(lastKey, getEditableClientScreenBuffers(getScreenBuffer(focusedFrameId, -1)));
+         server.help(lastKey, getEditableClientScreenBuffers(getScreenBuffer(focusedFrameId, false)));
    
          setTriggerNesting(triggerNesting - 1);
    
@@ -18615,7 +18721,6 @@
            !(src instanceof FillIn        ||
              src instanceof Editor        ||
              src instanceof SelectionList ||
-             src instanceof Button        ||
              src instanceof ComboBox      ||
              src instanceof Browse)) &&
           src.enclosingFrame().isPresent())
@@ -18812,7 +18917,7 @@
 
          Widget<?> legacyMouseSource;
 
-         if (mouseSource instanceof Label)
+         if (mouseSource instanceof ClientDrivenLabel)
          {
             Frame temp = UiUtils.locateFrame(mouseSource);
             legacyMouseSource = temp != null ? temp : mouseSource.getLegacyWidget();
@@ -18880,8 +18985,51 @@
          // from here on, we need to work with the browse
          if (legacyMouseSource != null && legacyMouseSource.parent(Browse.class) != null)
          {
-            legacyMouseSource = legacyMouseSource.parent(Browse.class);
-         }
+            if (!isChui() && evtID == MouseEvt.MOUSE_CLICKED)
+            {
+               // GUI browse click case.
+               if (legacyMouseSource instanceof FillIn ||
+                   legacyMouseSource instanceof ComboBox)
+               {
+                  // BrowseColumn is the legacyMouseSource
+                  legacyMouseSource = legacyMouseSource.getLegacyWidget();
+               }
+               else if (legacyMouseSource instanceof ToggleBox)
+               {
+                  // for some reason in 4GL triggers are not invoked on subsequent clicks on a toggle box
+                  legacyMouseSource = null;
+               }
+               else if (legacyMouseSource instanceof BrowseColumn)
+               {
+                  BrowseGuiImpl browse = (BrowseGuiImpl) legacyMouseSource.parent(Browse.class);
+                  if (browse.getClickStartedEditColumn() == null)
+                  {
+                     legacyMouseSource = browse;
+                  }
+                  // else leave BrowseColumn as the legacyMouseSource
+               }
+               else
+               {
+                  legacyMouseSource = legacyMouseSource.parent(Browse.class);
+               }
+            }
+            else
+            {
+               legacyMouseSource = legacyMouseSource.parent(Browse.class);
+            }
+         }
+         else if (legacyMouseSource instanceof BrowseGuiImpl && evtID == MouseEvt.MOUSE_CLICKED)
+         {
+            // If we click on the empty area to the right of the rightmost column which is an editing column,
+            // editing is started and the trigger for this rightmost column is invoked.
+            BrowseGuiImpl browse = (BrowseGuiImpl) legacyMouseSource;
+            BrowseColumnGuiImpl clickColumn = browse.getClickStartedEditColumn();
+            if (clickColumn != null)
+            {
+               legacyMouseSource = clickColumn;
+            }
+         }
+
          if (newFocus != null && newFocus.parent(Browse.class) != null)
          {
             newFocus = newFocus.parent(Browse.class);
@@ -19589,7 +19737,7 @@
          {
             Browse brws = (Browse) src.parent(Browse.class);
 
-            if (inFocus.parent(Browse.class) != src.parent(Browse.class))
+            if (inFocus != null && inFocus.parent(Browse.class) != src.parent(Browse.class))
             {
                if (brws.isEditPossible())
                {
@@ -19721,7 +19869,10 @@
             // allow the focus change events and rebalance the queue
             if (fire)
             {
-               if (triggerNesting == 0)
+               // TODO: CA: the underWindows check is added because at this time I can't confirm that the fix is valid  
+               // under linux ChUI for 9.x 4GL versions.  Testing under linux ChUI for 10.x shows that underWindows the
+               // 'not in nested trigger mode' check is not OK.  This is left as a precaution for linux 9.x ChUI.
+               if (triggerNesting == 0 || underWindows)
                {
                   // save target widget, so it can be used in subsequent root
                   // level wait-for loops
@@ -19982,7 +20133,7 @@
    {
       Widget frame = UiUtils.locateFrame(widget);
       int frameId = UiUtils.getWidgetIdAsInt(frame);
-      return getEditableClientScreenBuffers(getScreenBuffer(frameId, -1));
+      return getEditableClientScreenBuffers(getScreenBuffer(frameId, false));
    }
 
    /**
@@ -20053,7 +20204,7 @@
                                  -1,
                                  -1,
                                  -1,
-                                 getScreenBuffer(frameId, -1),
+                                 getScreenBuffer(frameId, false),
                                  save);
          }
 
@@ -20444,7 +20595,7 @@
                                  UiUtils.lookupWidgetIdAsInt(other),
                                  resourceId,
                                  result.matchedWidgetId,
-                                 getScreenBuffer(focusFrameId, -1, true),
+                                 getScreenBuffer(focusFrameId, true),
                                  save);
          }
 
@@ -21806,7 +21957,7 @@
    {
       for (Widget widget : widgets)
       {
-         if (widget.isVisible() && UiUtils.isAllShowing(widget, frames))
+         if (widget != null && widget.isVisible() && UiUtils.isAllShowing(widget, frames))
          {
             widget.repaint();
          }
@@ -24726,7 +24877,7 @@
          int i = 0;
          while (i < widgetAttrs.length)
          {
-            ArrayList<String> fnames = new ArrayList<>();
+            ArrayList<Integer> fids = new ArrayList<>();
             ArrayList<Object> values = new ArrayList<>();
 
             int widgetId = -1;
@@ -24744,7 +24895,7 @@
                   break;
                }
 
-               fnames.add((String) widgetAttrs[i + 1]);
+               fids.add((Integer) widgetAttrs[i + 1]);
                values.add(widgetAttrs[i + 2]);
 
                i += 3;
@@ -24752,10 +24903,10 @@
 
             pushWidgetAttrInBatch(false,
                                   widgetId,
-                                  fnames.toArray(new String[0]),
+                                  fids.toArray(new Integer[0]),
                                   values.toArray());
 
-            fnames.clear();
+            fids.clear();
             values.clear();
          }
       }

=== modified file 'src/com/goldencode/p2j/ui/client/Browse.java' (properties changed: -x to +x)
--- src/com/goldencode/p2j/ui/client/Browse.java	2020-09-16 00:56:38 +0000
+++ src/com/goldencode/p2j/ui/client/Browse.java	2020-12-08 14:00:14 +0000
@@ -361,6 +361,11 @@
 **                           process is running.
 **     AIL 20200827          An error is thrown when trying to set column value when no row is selected.
 **     SVL 20200913          isRowSelected is fixed for empty rows.
+**     SVL 20201116          Use setBrowseColumn instead of setBrowse.
+**     CA  20201201          FillIn.update(boolean) must validate the format only when the event loop is 
+**                           finished or focus is lost.  Until then, the triggers must see the actual 
+**                           SCREEN-VALUE that the user entered, even if the value is not validated.
+**     SVL 20201207          On row change refresh column values on the server.
 */
 
 /*
@@ -3346,7 +3351,7 @@
 
       if (!undo && isEditing())
       {
-         if (isEditorFillIn() && !getActiveFillIn().update())
+         if (isEditorFillIn() && !getActiveFillIn().update(true))
          {
             return false;
          }
@@ -3842,8 +3847,8 @@
       screen().getRegistry().addWidget(editorId, fillIn);
       fillIn.initialize(editorId, cfg);
 
-      // reset underline attribute and force Browse colors
-      fillIn.setBrowse(this);
+      BrowseColumn<?> column = (BrowseColumn<?>) ThinClient.getInstance().getWidget(cols[currColumn].id);
+      fillIn.setBrowseColumn(column);
 
       // fixup cell alignment
       if (BrowseTextAlignment.RIGHT.equals(getTextAlign(cols[currColumn])))
@@ -4896,12 +4901,15 @@
             this.currentRow = currRow;
             currentRowAvail = false;
          }
-         
+
          if (updateSelection)
          {
             currRowSelected = true;
          }
       }
+
+      // Refresh column SCREEN-VALUEs on the server.
+      ThinClient.getInstance().refreshBrowseColumnBuffers(this);
    }
 
    /**

=== added file 'src/com/goldencode/p2j/ui/client/ClientDrivenLabel.java'
--- src/com/goldencode/p2j/ui/client/ClientDrivenLabel.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/ui/client/ClientDrivenLabel.java	2021-01-25 13:46:58 +0000
@@ -0,0 +1,758 @@
+/*
+** Module   : ClientDrivenLabel.java
+** Abstract : Abstract base class for client-driven labels.
+**
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ----------------------------------------Description---------------------------------------
+** 001 HC  20201024 Created initial version.
+**     CA  20210125 The 4054/5905 error messages show when the new label must be aware of the NO-ERROR mode.
+**                  Also, the label is set even if it doesn't fit.
+*/
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.ui.client;
+
+import java.util.Objects;
+
+import com.goldencode.p2j.ui.*;
+import com.goldencode.p2j.ui.chui.ThinClient;
+import com.goldencode.p2j.ui.client.widget.*;
+import com.goldencode.p2j.util.ErrorManager;
+
+/**
+ * Abstract base class for client-driven labels.
+ */
+public abstract class ClientDrivenLabel<O extends OutputManager<?>>
+extends FixedSizeContainer<O>
+implements WidgetWithConfig<LabelConfig>,
+           Label<O>
+{
+   /** Widget's size which is set by <code>setSize</code> method. */
+   private boolean forcedSize = false;
+   
+   /** Component attribute container. */
+   protected LabelConfig config = null;
+
+   /** Make label aligned to right boundary. */
+   protected boolean rightAligned = true;
+
+   /** Display additional line */
+   protected boolean underlined = false;
+   
+   /** Flag the special case of use as a separator line. */
+   private boolean delimiter = false;
+
+   /** Label right shift offset. */
+   protected double offset = 0;
+
+   /** If it is <code>true</code>, empty string is displayed.*/
+   protected boolean emptyMode = false;
+   
+   /** Prepare for disabling empty mode. */
+   protected boolean disableEmptyMode = false;
+   
+   /** The side-widget associated with this label, if this is a side-label. */
+   protected Widget<O> sideWidget = null;
+   
+   /**
+    * Constructs label with given text.
+    * 
+    * @param   id
+    *          The widget's ID.
+    * @param   text
+    *          Initial text.
+    * @param   frameId
+    *          The ID of the frame to which the label belongs, or -1 if unknown at the time of the 
+    *          creation.
+    */
+   public ClientDrivenLabel(WidgetId id, String text, int frameId)
+   {
+      config = ConfigManager.getInstance().resolveWidgetConfig(id, LabelConfig.class);
+      config.frameId = frameId;
+
+      setName(text);
+   }
+
+   /**
+    * Create a copy of the label.
+    * 
+    * @param   id
+    *          The widget's ID.
+    * @param   label
+    *          Label to copy parameters from.
+    * @param   frameId
+    *          The ID of the frame to which the label belongs, or -1 if unknown at the time of the 
+    *          creation.
+    */
+   public ClientDrivenLabel(WidgetId id, ClientDrivenLabel<O> label, int frameId)
+   {
+      config = ConfigManager.getInstance().resolveWidgetConfig(id, LabelConfig.class);
+      config.frameId = frameId;
+
+      setName(label.config.name);
+      
+      setUnderlined(label.isUnderlined());
+      setRightAligned(label.isRightAligned());
+      setWidth(label.width());
+      forcedSize = label.forcedSize;
+      setLocation(label.location());
+      setVisible(label.isVisible());
+   }
+   
+   /**
+    * Retrieve the widget's width in native units.
+    * 
+    * @return   See above.
+    */
+   protected abstract int nativeWidth();
+
+   /**
+    * Retrieve the widget's height in native units.
+    * 
+    * @return   See above.
+    */
+   protected abstract int nativeHeight();
+   
+   /**
+    * Set the specified widget as this side-label's {@link #sideWidget}.
+    * 
+    * @param    widget
+    *           The side-widget for this label.
+    */
+   public void setSideWidget(Widget<O> widget)
+   {
+      this.sideWidget = widget;
+      if (widget instanceof LabeledDataContainer)
+      {
+         Label<O> prevLabel = ((LabeledDataContainer) widget).getLabelInstance();
+         if (prevLabel != this && prevLabel != null)
+         {
+            this.config.applyConfig(prevLabel.config());
+         }
+      }
+      updateSize();
+   }
+   
+   /**
+    * Get the side-widget associated with this label.
+    * 
+    * @return   The {@link #sideWidget}.
+    */
+   public Widget<O> getSideWidget()
+   {
+      return sideWidget;
+   }
+   
+   /**
+    * Replacement API for the logic which should exist in the widget's c'tor, but the logic 
+    * can't be executed as it depends on the widget being registered into the official registry.
+    * <p>
+    * This API is called after the widget is created and added to the registry.
+    * 
+    * @param    id
+    *           The widget's ID.
+    * @param    cfg
+    *           The config used to initialize this widget.
+    */
+   @Override
+   public void initialize(WidgetId id, LabelConfig cfg)
+   {
+      config = ConfigManager.getInstance().resolveWidgetConfig(id, cfg);
+      ConfigManager.getInstance().replaceConfig(config, cfg);
+   }
+
+   /**
+    * Create a copy of the label.
+    * 
+    * @param   id
+    *          The widget's ID.
+    * @param   label
+    *          Label to copy parameters from.
+    */
+   public ClientDrivenLabel(WidgetId id, ClientDrivenLabel<O> label)
+   {
+      config = ConfigManager.getInstance().resolveWidgetConfig(id, LabelConfig.class);
+      
+      config.name = label.config.name;
+      setUnderlined(label.isUnderlined());
+      setRightAligned(label.isRightAligned());
+      setWidth(label.width());
+      forcedSize = label.forcedSize;
+      setLocation(label.location());
+      setVisible(label.isVisible());
+   }
+
+   /**
+    * Provide access to the attributes stored in the widget.
+    * 
+    * @return  Reference to attribute container.
+    */
+   @SuppressWarnings("unchecked")
+   @Override
+   public LabelConfig config()
+   {
+      return config;
+   }
+
+   /**
+    * Marks this label as one used to draw a separator line for header
+    * widgets.  In this case there is no label text but the width is
+    * positive and the underline attribute is enabled.
+    *
+    * @param    delimiter
+    *           <code>true</code> to set this as a separator line.
+    */
+   public void setDelimiter(boolean delimiter)
+   {
+      this.delimiter = delimiter;
+   }
+   
+   /**
+    * Gets the flag that marks this label as one used to draw a separator
+    * line for header widgets.
+    *
+    * @return   <code>true</code> if this label is a separator line.
+    */
+   public boolean isDelimiter()
+   {
+      return delimiter;
+   }
+
+   /**
+    * Draws text. Screen value is left justified or padded to the right bound
+    * with spaces. Non first lines are filled with spaces.
+    */
+   @Override
+   public abstract void draw();
+
+   /**
+    * Sets position of terminal's cursor. Really does nothing because this
+    * widget will never get an input focus.
+    */
+   @Override
+   public void drawCaret()
+   {
+   }
+
+   /**
+    * Sets new widget's size. After call to this method the widget will
+    * not change size automatically accordingly to screen value changes.
+    * 
+    * @param   width
+    *          New widget width.
+    * @param   height
+    *          New widget height.
+    */
+   @Override
+   public void setSize(double width, double height)
+   {
+      forcedSize = true;
+      super.setSize(width, height);
+   }
+
+   /**
+    * Set widget width.
+    * 
+    * @param   width
+    *          New widget width.
+    */
+   @Override
+   public void setWidth(double width)
+   {
+      forcedSize = true;
+      super.setWidth(width);
+   }
+   
+   /**
+    * Set widget height.
+    * 
+    * @param   height
+    *          New widget height.
+    */
+   @Override
+   public void setHeight(double height)
+   {
+      forcedSize = true;
+      super.setHeight(height);
+   }
+   
+   /**
+    * This component will not receive an input focus when Tab or Shift-Tab is
+    * pressed.
+    * 
+    * @return  Always <code>false</code>.
+    */
+   @Override
+   public boolean focusTraversable()
+   {
+      return false;
+   }
+
+   /**
+    * Checks whether this attribute container can receive focus generally.
+    * 
+    * @return  <code>true</code> if this container can be focused under
+    *          certain conditions. <code>false</code> if, and only if, this
+    *          attribute container can never receive focus.    
+    */
+   @Override
+   public boolean isFocusable()
+   {
+      return false;
+   }
+
+   /**
+    * Synchronizes the actual size with the default size.
+    */
+   protected void updateSize()
+   {
+      if (forcedSize)
+         return;
+
+      int nativeWith = nativeWidth();
+      int nativeHeight = nativeHeight();
+      
+      CoordinatesConversion cc = screen().coordinates();
+      double width = cc.widthFromNative(nativeWith);
+      double height = cc.heightFromNative(nativeHeight);
+      
+      // call super to avoid setting forcedSize to true
+      super.setSize(width, height);
+      
+      // synchronize the new size with server
+      BaseConfig c = config();
+      c.widthChars = width;
+      c.heightChars = height;
+   }
+
+   /**
+    * Set underlining mode.
+    * 
+    * @param   b
+    *          New value for the mode.
+    */
+   public void setUnderlined(boolean b)
+   {
+      underlined = b;
+      updateSize();
+   }
+
+   /**
+    * Get current value of the underlining flag.
+    * 
+    * @return  <code>true</code> if label is underlined.
+    */
+   public boolean isUnderlined()
+   {
+      return underlined;
+   }
+   
+   /**
+    * Get current value of the alignment.
+    * 
+    * @return  <code>true</code> if right alignment is active.
+    */
+   public boolean isRightAligned()
+   {
+      return rightAligned;
+   }
+   
+   /**
+    * Activate or deactivate right alignment of the text.
+    * 
+    * @param   rightAligned
+    *          <code>true</code> activate right alignment,
+    *          <code>false</code>- deactivate.
+    */
+   public void setRightAligned(boolean rightAligned)
+   {
+      this.rightAligned = rightAligned;
+   }
+
+   /**
+    * Sets the name of the label.
+    * 
+    * @param   name
+    *          New name of the component.
+    */
+   public void setName(String name)
+   {
+      config.name = name;
+
+      //Reset the forcedSize flag so updateSize() can properly adjust the size.
+      forcedSize = false;
+      updateSize();
+   }
+   
+   /**
+    * Get widget name.
+    *
+    * @return  widget name or empty string if is not set.
+    */
+   @Override
+   public String name()
+   {
+      String name = super.name();
+      return name == null ? "" : name;
+   }
+
+   /**
+    * Set extra offset for label.
+    * 
+    * @param   offset
+    *          Size of the shift.
+    */
+   public void setOffset(double offset)
+   {
+      this.offset = Coordinate.scale(offset);
+   }
+
+   /**
+    * Disable empty label mode. Note that actual disabling happens only during
+    * next {@link #draw()} call.
+    */
+   public void setEmptyModeOff()
+   {
+      disableEmptyMode = true;
+   }
+
+   /**
+    * Enable empty mode.
+    */
+   public void setEmptyModeOn()
+   {
+      emptyMode = true;
+   }
+   
+   /**
+    * Process this label so that it's linked with the server-side widget represented by the 
+    * <code>serverSideId</code>.
+    * 
+    * @param    frameId
+    *           The ID of the frame to which this label belongs.
+    * @param    serverSideId
+    *           The server-side ID of this label.
+    */
+   @SuppressWarnings({ "unchecked", "rawtypes" })
+   public void linkTo(int frameId, int serverSideId)
+   {
+      if (serverSideId == -1)
+      {
+         return;
+      }
+      
+      BaseConfig lblCfg = config();
+      WidgetId oldId = lblCfg.id;
+      WidgetId newId = oldId.createId(serverSideId);
+      
+      ConfigManager cm = ConfigManager.getInstance();
+      BaseConfig bc = cm.getActiveConfig(newId);
+      
+      if (bc != null)
+      {
+         Point loc = location();
+        
+         double x = loc.x;
+         double y = loc.y;
+         boolean setLoc = false;
+   
+         double assignedCol = ConfigHelper.getAssignedColumn(bc);
+         double assignedRow = ConfigHelper.getAssignedRow(bc);
+         
+         if (assignedCol != BaseConfig.INV_COORD)
+         {
+            x = assignedCol;
+            setLoc = true;
+         }
+         
+         if (assignedRow != BaseConfig.INV_COORD)
+         {
+            y = assignedRow;
+            setLoc = true;
+         }
+   
+         if (setLoc)
+         {
+            setLocation(x, y);
+         }
+         
+         // inherit width, but only when it is not already set on this
+         if (bc.widthChars != -1 && width() == -1)
+         {
+            setWidth(bc.widthChars);
+            lblCfg.widthChars = bc.widthChars;
+         }
+         
+         lblCfg.align = bc.align;
+         
+         // restore the colors
+         copyColors(bc, lblCfg);
+         lblCfg.dcolor  = bc.dcolor;
+         lblCfg.pfcolor = bc.pfcolor;
+         lblCfg.sysbgcolor = bc.sysbgcolor;
+         lblCfg.sysfgcolor = bc.sysfgcolor;
+         
+         // restore the font
+         lblCfg.font = bc.font;
+      }
+
+      ClientConfigManager mgr = ConfigManager.getInstance();
+      
+      // switch the internal ID for this label (from virtual to real)
+      mgr.switchId(oldId, newId);
+      
+      // mark as dirty all configs which are not the same as what the server has...
+      mgr.trackAllChanges(lblCfg);
+      
+      OutputManager.instance().getRegistry().addWidget((Widget) this);
+   }
+   
+   /**
+    * Update the {@code visible} flag in the configuration and in the widget's state.
+    * <p>
+    * If the widget has just been realized and its width has not yet been set, it will be computed
+    * now.
+    * 
+    * @param    visible
+    *           The widget's visible state.
+    */
+   @Override
+   public void _setVisible(boolean visible)
+   {
+      boolean oldRealized = config.realized;
+      
+      super._setVisible(visible);
+      
+      if (!oldRealized && config.realized && config.widthChars == -1)
+      {
+         config.widthChars = width();
+      }
+   }
+   
+   /**
+    * Get the state of the {@link #forcedSize} flag.
+    * 
+    * @return   See above.
+    */
+   public boolean isForcedSize()
+   {
+      return forcedSize;
+   }
+   
+   /**
+    * Set the {@link #forcedSize} flag to the specified state.
+    * 
+    * @param    forcedSize
+    *           The new state for the {@link #forcedSize} flag.
+    */
+   public void setForcedSize(boolean forcedSize)
+   {
+      this.forcedSize = forcedSize;
+   }
+
+   /**
+    * The method is called after the configuration associated with 
+    * the implementor changes. The parameter points to a reference
+    * representing the original configuration state. This reference
+    * can be used to detect what configuration fields changed and so
+    * optimize any processing related to the configuration change.
+    *
+    * @param   beforeUpdate
+    *          Config reference capturing the config state before
+    *          the owner's config was modified.
+    */
+   @Override
+   public void afterConfigUpdate(LabelConfig beforeUpdate)
+   {
+      super.afterConfigUpdateBase(beforeUpdate);
+      
+      LabelConfig c = config();
+      
+      setWidth(c.widthChars);
+      
+      // name changed?
+      if (!Objects.equals(((BaseConfig) beforeUpdate).name, c.name))
+      {
+         //reset the forcedSize flag so updateSize() can properly adjust the size.
+         forcedSize = false;
+         updateSize();
+      }
+   }
+   
+   /**
+    * Additional processing required when widget configuration is updated AFTER the frame layout
+    * has been performed.
+    */
+   @Override
+   public void postprocessConfig()
+   {
+      super.postprocessConfig();
+      
+      if (sideWidget != null)
+      {
+         double newLblWidth = 0;
+         double oldLblWidth = 0;
+         boolean labelChanged = false;
+         if (sideWidget instanceof LabeledDataContainer)
+         {
+            String newLabel = ((LabeledDataContainer) sideWidget).getLabelText() + ": ";
+            labelChanged = !newLabel.equals(config.name);
+
+            if (labelChanged)
+            {
+               newLblWidth = ZeroColumnLayout.labelWidth((LabeledWidget<?>) sideWidget, newLabel);
+               oldLblWidth = ZeroColumnLayout.labelWidth((LabeledWidget<?>) sideWidget,
+                                                         config.name);
+            }
+         }
+
+         // check the left border
+         if (labelChanged)
+         {
+            double newColumn = Coordinate.scale(ConfigHelper.getEffectiveColumn(config) +
+                                                oldLblWidth - newLblWidth);
+
+            if (newColumn < 0)
+            {
+               if (!ErrorManager.isSilent())
+               {
+                  Frame<O> fr = (Frame<O>) UiUtils.locateFrame(this);
+   
+                  StringBuilder err = new StringBuilder();
+   
+                  if (screen().isChui())
+                  {
+                     err.append("**Unable to set SCREEN-VALUE.  ")
+                        .append("LITERAL widget does not fit in FRAME ")
+                        .append(fr.shortName()).append(". (4054)");
+                  }
+                  else
+                  {
+                     err.append("**All or part of LITERAL widget is being placed outside of FRAME ")
+                        .append(fr.shortName())
+                        .append(" by setting SCREEN-VALUE. (5905)");
+                  }
+
+                  ThinClient.getInstance().displayWarningMessage(err.toString());
+               }
+
+               // no need to restore the label string
+            }
+            else
+            {
+               Point loc = location();
+               config.column = newColumn;
+               setLocation(newColumn, loc.y);
+            }
+
+            // the label is set even if it doesn't fit
+            if (sideWidget.config() instanceof ControlConfig)
+            {
+               // setName will update the size, too
+               setName(((ControlConfig) sideWidget.config()).label + ": ");
+            }
+         }
+      }
+   }
+
+   /**
+    * The method returns the legacy widget representing this widget.
+    *
+    * @return   A non-wirtual widget reference, or <code>null</code> if none found.
+    */
+   @Override
+   public Widget<O> getLegacyWidget()
+   {
+      return getSideWidget();
+   }
+
+   /**
+    * Additional processing required when widget configuration is updated AFTER the frame layout
+    * has been performed.
+    * 
+    * @param    widget
+    *           The widget to which this side-labe is attached.
+    */
+   public void postprocessConfig(LabeledWidget<O> widget)
+   {
+      // check the frame first - this call is only for non-side-labels
+      Frame<O> frame = (Frame<O>) UiUtils.locateFrame((Widget<O>) widget);
+      if (frame.isSideLabels())
+      {
+         return;
+      }
+      
+      String label = ZeroColumnLayout.getLabel(widget, frame.isSideLabels(), frame.hasHeaders());
+      if (label != null && !label.equals(this.name()))
+      {
+         // TODO: if new width is greater than frame width, then the width remains as the 
+         // current label's width - and the new label is trimmed to this width
+         setName(label);
+      }
+   }
+
+   /**
+    * Check the direct manipulation capability of the widget.  LABEL widget does not allow direct
+    * manipulation.
+    * 
+    * @return  <code>TRUE</code> if the widget is able to be directly manipulated,
+    *          <code>FALSE</code> otherwise.
+    */
+   @Override
+   public boolean isDirectManipulable()
+   {
+      return false;
+   }
+}
\ No newline at end of file

=== modified file 'src/com/goldencode/p2j/ui/client/ComboBox.java'
--- src/com/goldencode/p2j/ui/client/ComboBox.java	2019-05-03 20:42:53 +0000
+++ src/com/goldencode/p2j/ui/client/ComboBox.java	2021-01-28 20:16:06 +0000
@@ -2,7 +2,7 @@
 ** Module   : ComboBox.java
 ** Abstract : combo-box implementation
 **
-** Copyright (c) 2005-2019, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- ----------------------------Description-----------------------------
 ** 001 EVL 20050211   @19831 Creation based on CHARVA JComboBox class.
@@ -228,6 +228,15 @@
 ** 123 SBI 20190322          Changed refreshItems, formatValues and setValue to reuse format
 **                           parameters between items in order to improve performance.
 ** 124 SVL 20190415          Support for browsed combo-boxes.
+** 125 CA  20201011          EventDefinition uses a fast access map instead of an integer set, for widget IDs.
+**     SVL 20201116          Store reference to the parent browse column in order to invoke the column
+**                           triggers.
+**     CA  20210111          Fixed the drop-down's selected value when is driven via the SCREEN-VALUE from
+**                           server-side.
+**                           Added ENTER as an event label for the drop-down, when running under ChUI Windows.
+**     CA  20210123          A better fix for the selected value when is driven via SCREEN-VALUE from 
+**                           server-side.
+**     EVL 20210128          Fix for NPE issue/regression.
 */
 
 /*
@@ -287,6 +296,8 @@
 
 import java.util.*;
 
+import org.roaringbitmap.*;
+
 import com.goldencode.p2j.ui.*;
 import com.goldencode.p2j.ui.ComboBoxConfig.Mode;
 import com.goldencode.p2j.ui.chui.ThinClient;
@@ -342,8 +353,8 @@
    /** A helper field for drop-down related event handling. */
    protected boolean endConditionRaised;
 
-   /** Parent browse widget, if any. */
-   protected Browse<O> browse = null;
+   /** Parent browse column widget (if this combo-box is associated to a browse). */
+   protected BrowseColumn<O> browseColumn = null;
 
    /** Component label. */
    private Label<O> label = null;
@@ -581,6 +592,7 @@
    {
       int key = keyEvent.actionCode();
 
+      Browse browse = getBrowse();
       if (browse != null &&
           (key == Keyboard.KA_TAB || key == Keyboard.KA_BACK_TAB || key == Keyboard.KA_RETURN))
       {
@@ -670,20 +682,36 @@
       ComboBoxModel<String> model = model();
       
       FormatParametersHolder params = new FormatParametersHolder();
+      boolean forceFirst = ThinClient.getInstance().isChui() && 
+                           (config.pairs == null || !config.pairs) &&
+                           (value.isUnknown() || value.toStringMessage().trim().isEmpty());
+      int selectedIndex = -1;
       
-      for (int i = 0; i < items.length; i++)
+      for (int i = 0; !forceFirst && i < items.length; i++)
       {
          if (items[i].getValue().toStringMessage().compareToIgnoreCase(value.toStringMessage()) == 0)
          {
-            initValue = items[i].getValue();
-
-            String text = items[i].getLabel().toStringMessage();
-            model.select(formatValue(text, params.format, params.fmtWidth, params.right));
-            model.setSelectedIndex(i);
-
+            selectedIndex = i;
             break;
          }
       }
+      
+      if (items.length > 0 && forceFirst)
+      {
+         // select first item
+         selectedIndex = 0;
+      }
+      
+      if (selectedIndex != -1)
+      {
+         initValue = items[selectedIndex].getValue();
+
+         String text = items[selectedIndex].getLabel().toStringMessage();
+         model.select(formatValue(text, params.format, params.fmtWidth, params.right));
+         model.setSelectedValue(initValue);
+         model.setSelectedId(items[selectedIndex].getItemId());
+         model.setSelectedIndex(selectedIndex);
+      }
    }
 
    /**
@@ -855,7 +883,10 @@
          items = config.items;
       }
 
-      maxlen = 0;
+      if (!config.realized)
+      {
+         maxlen = 0;
+      }
       
       String cbDataType = config.dataType;
       
@@ -881,7 +912,7 @@
          
          String text  = formatValue(item.getLabel().toStringMessage(), format, width, right);
          
-         if (text.length() > maxlen)
+         if (!config.realized && text.length() > maxlen)
          {
             maxlen = text.length();
             width   = (maxlen > fmtWidth) ? maxlen : fmtWidth;
@@ -899,7 +930,7 @@
       config.selectedIndex = idx;
       if (idx > 0) 
       {
-         character label = items[idx].getLabel();
+         character label = config.items[idx].getLabel();
          model.select(label == null ? null : label.toStringMessage().trim());
       }
 
@@ -1190,25 +1221,55 @@
    }
 
    /**
-    * Link editor with the <code>Browse</code> widget.
-    *
-    * @param   browse
-    *          The instance of the <code>Browse</code> to link with.
-    */
-   public void setBrowse(Browse<O> browse)
-   {
-      this.browse = browse;
-   }
-
-   /**
-    * Get the parent {@link Browse} widget, if any.
-    *
-    * @return the parent {@link Browse} widget if this combo-box is browsed or <code>null</code>
-    *         otherwise.
+    * Link this combo-box with the <code>BrowseColumn</code> widget.
+    *
+    * @param browseColumn
+    *        Parent browse column widget.
+    */
+   public void setBrowseColumn(BrowseColumn<O> browseColumn)
+   {
+      this.browseColumn = browseColumn;
+   }
+
+   /**
+    * Determines whether this {@link ComboBox} has an associated {@link Browse}
+    * widget.
+    *
+    * @return   <code>true</code> if this {@link ComboBox} has an associated
+    *           {@link Browse} widget.
+    */
+   public boolean isLinkedToBrowse()
+   {
+      return browseColumn != null;
+   }
+
+   /**
+    * This method returns the widget that should serve as the source of the triggered event. This widget must
+    * always be a non-virtual widget. The method may also return {@code null} which prevents triggering of the
+    * legacy event.<p>
+    * If this combo-box is inside a browse column, that browse column widget is returned.
+    *
+    * @param   evtCode
+    *          The event being triggered.
+    * @param   isKey
+    *          Whether the event being triggered is a real key.
+    *
+    * @return  see above.
+    */
+   public Widget<?> getTriggerWidget(int evtCode, boolean isKey)
+   {
+      return isLinkedToBrowse() ? browseColumn.getTriggerWidget(evtCode, isKey) :
+                                  super.getTriggerWidget(evtCode, isKey);
+   }
+
+   /**
+    * Get associated browse widget, if any.
+    *
+    * @return associated browse widget or <code>null</code> if there is no associated browse widget.
     */
    public Browse<O> getBrowse()
    {
-      return browse;
+      return browseColumn != null ? browseColumn.getBrowse() : null;
    }
 
    /**
@@ -1263,7 +1324,7 @@
       // add the exit event
       EventList list = new EventList();
       Set<String> events = initEventsSet();
-      Set<Integer> widgets = new HashSet<>();
+      RoaringBitmap widgets = new RoaringBitmap();
       widgets.add(fid);
       EventDefinition event = new EventDefinition(events, widgets, null, false);
       event.setTriggerId(-1);
@@ -1315,8 +1376,15 @@
          // will be evaluated just below
          if (focus == null)
          {
-            parent().setFocus(this);
-            focus = (Widget<O>) UiUtils.getCurrentFocus();
+            // class Container is used in roaring bitmap too so we have to define
+            // our one explicitely
+            com.goldencode.p2j.ui.client.widget.Container<O> parent = parent();
+            // MPE protection is required here
+            if (parent != null)
+            {
+               parent.setFocus(this);
+               focus = (Widget<O>) UiUtils.getCurrentFocus();
+            }
          }
          
          if (focus == this)
@@ -1379,6 +1447,11 @@
    {
       Set<String> setResult = new HashSet<>();
       setResult.add("RETURN");
+      // if the ChUI client is on Windows, then add ENTER, too
+      if (ThinClient.getInstance().isUnderWindows())
+      {
+         setResult.add("ENTER");
+      }
       
       return setResult;
    }
@@ -1452,8 +1525,7 @@
 
       ControlSetItem item = items[ndx];
 
-      return (item.getLabel() == null) || "".equals(item.getLabel().toStringMessage()) ? 
-            new character() : item.getValue();
+      return item.getValue();
    }
 
    /**

=== modified file 'src/com/goldencode/p2j/ui/client/FillIn.java'
--- src/com/goldencode/p2j/ui/client/FillIn.java	2020-10-08 21:34:55 +0000
+++ src/com/goldencode/p2j/ui/client/FillIn.java	2021-01-23 18:01:03 +0000
@@ -2,7 +2,7 @@
 ** Module   : FillIn.java
 ** Abstract : text field editor/display implementation
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 SVG 20050609   @21446 Initial version.
@@ -445,7 +445,15 @@
 ** 208 HC  20200313          Javadoc fixes.
 ** 209 RFB 20200919          Added some protection in toString() and getScreenValue() to allow for debug
 **                           to occur prior to some initialization (Ref #4861).
-** 210 IAS 20201007          Re-wojed setValue using Type enum
+** 210 IAS 20201007          Re-worked setValue using Type enum
+**     CA  20201102          update() must call finishEdit() only if we are not in editing mode.
+**     SVL 20201116          Store reference to the parent browse column in order to invoke the column
+**                           triggers.
+**     CA  20201201          FillIn.update(boolean) must validate the format only when the event loop is 
+**                           finished or focus is lost.  Until then, the triggers must see the actual 
+**                           SCREEN-VALUE that the user entered, even if the value is not validated.
+**     CA  20201210          If the frame is NO-AUTO-VALIDATE, the format will not be checked on LEAVE.
+**     CA  20210123          If the FILL-IN:DATA-TYPE is changed, clear the cached displayVar and such.
 */
 
 /*
@@ -503,6 +511,8 @@
 
 package com.goldencode.p2j.ui.client;
 
+import java.util.*;
+
 import com.goldencode.p2j.ui.*;
 import com.goldencode.p2j.ui.chui.ThinClient;
 import com.goldencode.p2j.ui.client.event.*;
@@ -552,9 +562,9 @@
 
    /** Track if format set explicitly or it is determined automatically. */
    private boolean autoFormat = false;
-   
-   /** Browse widget to notify. */
-   protected Browse<O> browse = null;
+
+   /** Parent browse column widget (if this fill-in is associated to a browse). */
+   protected BrowseColumn browseColumn = null;
       
    /** Flag to force left alignment. */
    private boolean forceLeft = false;
@@ -778,7 +788,7 @@
    @Override
    public BaseDataType getValue()
    {
-      update();
+      update(false);
       return getVariable();
    }
 
@@ -837,7 +847,7 @@
          config.appDataPres.setInsertMode(Window.getInsertMode() == Window.INSERT_MODE_INS);
       }
                                                               
-      if (browse != null)
+      if (isLinkedToBrowse())
       {
          Widget<O> oldFocus = (Widget<O>) UiUtils.getCurrentFocus();
          pendingNoZap = (oldFocus != null &&
@@ -922,7 +932,7 @@
             inAutoReturn = false;
          }
          
-         if (browse == null)
+         if (!isLinkedToBrowse())
             ins = config.appDataPres.getInsertMode();
       }
       else
@@ -936,7 +946,7 @@
             skipCursorActivation = false;
          }
          
-         if (browse == null)
+         if (!isLinkedToBrowse())
             ins = false;
       }
 
@@ -1011,11 +1021,14 @@
    /**
     * Updates variable's value with current field's content.
     * 
+    * @param   validate
+    *          Flag indicating if the format should be validated.
+    * 
     * @return  Is update successful. <code>true</code> value may also mean
     *          that FillIn contains <b>unsupported </b> (?????) value. It not
     *          an error but variable's values isn't changed.
     */
-   public boolean update()
+   public boolean update(boolean validate)
    {
       // null presentation implies that data has been not edited
       if (config.appDataPres == null)
@@ -1023,13 +1036,13 @@
          return true;
       }
 
-      if (config.appDataPres.finishEdit())
+      if (validate && !ThinClient.getInstance().isInEditingBlock())
       {
-         // add repainting if required 
-      }
+         if (config.appDataPres.finishEdit())
+         {
+            // add repainting if required 
+         }
 
-      if (!ThinClient.getInstance().isInEditingBlock())
-      {
          // do not check format if we are in an editing block!
          try
          {
@@ -1180,7 +1193,7 @@
       Color dc = UiUtils.getDColor(this);
       Color pf = config.pfcolor;
 
-      if (browse != null)
+      if (isLinkedToBrowse())
          pf = config.dcolor;
 
       @SuppressWarnings("unchecked")
@@ -1190,7 +1203,7 @@
       if (!screen().isRedirected() && (!isVisible() || !frame.isVisible()))
          return;
 
-      Color color = ((config.widgetFocused || browse != null) &&
+      Color color = ((config.widgetFocused || isLinkedToBrowse()) &&
                      isEnabled() && !inChoose) ? pf : dc;
 
       if (focusTraversable() && useUnderline && !inChoose)
@@ -1489,7 +1502,7 @@
                {
                   if (isLinkedToBrowse())
                   {
-                     EventManager.postEvent(new KeyInput(browse,
+                     EventManager.postEvent(new KeyInput(getBrowse(),
                                                          EventType.KEY_TYPED,
                                                          Keyboard.KA_RETURN));
                   }
@@ -1604,9 +1617,9 @@
          // RETURN action key 
          if (key == Keyboard.KA_RETURN)
          {
-            if (browse != null)
+            if (isLinkedToBrowse())
             {
-               browse.processKeyEvent(ke);
+               getBrowse().processKeyEvent(ke);
                return;
             }
 
@@ -1678,9 +1691,9 @@
             if (!completeEdit())
                return;
 
-            if (browse != null)
+            if (isLinkedToBrowse())
             {
-               browse.processKeyEvent(ke);
+               getBrowse().processKeyEvent(ke);
                return;
             }
             
@@ -1697,9 +1710,9 @@
 
          if (key == Keyboard.KA_CURSOR_DOWN)
          {
-            if (browse != null)
+            if (isLinkedToBrowse())
             {
-               browse.processKeyEvent(ke);
+               getBrowse().processKeyEvent(ke);
                return;
             }
             
@@ -1722,9 +1735,9 @@
             if (!completeEdit())
                return;
 
-            if (browse != null)
+            if (isLinkedToBrowse())
             {
-               browse.processKeyEvent(ke);
+               getBrowse().processKeyEvent(ke);
                return;
             }
          }
@@ -1735,9 +1748,9 @@
             if (!completeEdit())
                return;
 
-            if (browse != null)
+            if (isLinkedToBrowse())
             {
-               browse.processKeyEvent(ke);
+               getBrowse().processKeyEvent(ke);
                return;
             }
             
@@ -1755,9 +1768,9 @@
          // CURSOR-UP action key
          if (key == Keyboard.KA_CURSOR_UP)
          {
-            if (browse != null)
+            if (isLinkedToBrowse())
             {
-               browse.processKeyEvent(ke);
+               getBrowse().processKeyEvent(ke);
                return;
             }
             
@@ -1872,7 +1885,7 @@
                else
                {  
                   // the left most widget ignores this condition
-                  if (cursorNav && browse == null && !frame.isLeftMostWidget(this))
+                  if (cursorNav && !isLinkedToBrowse() && !frame.isLeftMostWidget(this))
                   {
                      // act like a back-tab
                      // the following call should be conditional
@@ -1886,7 +1899,7 @@
                if (config.appDataPres.getCursorPos() == 0)
                {
                   // the left most widget ignores this condition
-                  if (cursorNav && browse == null && !frame.isLeftMostWidget(this))
+                  if (cursorNav && !isLinkedToBrowse() && !frame.isLeftMostWidget(this))
                   {
                      // act like a back-tab
                      if (!completeEdit())
@@ -1925,7 +1938,7 @@
                else
                {
                   // the right most widget ignores this condition
-                  if (cursorNav && browse == null && !frame.isRightMostWidget(this))
+                  if (cursorNav && !isLinkedToBrowse() && !frame.isRightMostWidget(this))
                   {
                      // act like a tab
                      // the following call should be conditional
@@ -1939,7 +1952,7 @@
                if (cur >= end && (cursorNav || cur >= getText(true).length()))
                {
                   // the right most widget ignores this condition
-                  if (cursorNav && browse == null && !frame.isRightMostWidget(this))
+                  if (cursorNav && !isLinkedToBrowse() && !frame.isRightMostWidget(this))
                   {
                      // act like a tab
                      if (!completeEdit())
@@ -1964,9 +1977,9 @@
          }
 
          // In-browse HOME and END
-         else if ((key == Keyboard.KA_HOME || key == Keyboard.KA_END) && browse != null)
+         else if ((key == Keyboard.KA_HOME || key == Keyboard.KA_END) && isLinkedToBrowse())
          {
-            browse.processKeyEvent(ke);
+            getBrowse().processKeyEvent(ke);
             return;
          }
 
@@ -2136,9 +2149,9 @@
          }
 
          // PAGE-UP/PAGE-DOWN action key
-         else if ((key == Keyboard.KA_PAGE_DOWN || key == Keyboard.KA_PAGE_UP) && browse != null)
+         else if ((key == Keyboard.KA_PAGE_DOWN || key == Keyboard.KA_PAGE_UP) && isLinkedToBrowse())
          {
-            browse.processKeyEvent(ke);
+            getBrowse().processKeyEvent(ke);
             return;
          }
                            
@@ -2957,14 +2970,14 @@
    }
 
    /**
-    * Link editor with the <code>Browse</code> widget.
-    * 
-    * @param   browse
-    *          The instance of the <code>Browse</code> to link with.
+    * Link this fill-in with the <code>BrowseColumn</code> widget.
+    *
+    * @param browseColumn
+    *        Parent browse column widget.
     */
-   public void setBrowse(Browse<O> browse)
+   public void setBrowseColumn(BrowseColumn<O> browseColumn)
    {
-      this.browse = browse;
+      this.browseColumn = browseColumn;
    }
 
    /**
@@ -2976,7 +2989,17 @@
     */
    public boolean isLinkedToBrowse()
    {
-      return browse != null;
+      return browseColumn != null;
+   }
+
+   /**
+    * Get associated browse widget, if any.
+    *
+    * @return associated browse widget or <code>null</code> if there is no associated browse widget.
+    */
+   protected Browse getBrowse()
+   {
+      return browseColumn != null ? browseColumn.getBrowse() : null;
    }
 
    /**
@@ -3093,7 +3116,9 @@
     */
    public boolean isFormatCheck()
    {
-      return formatCheck && config.appFormat.isFormatCheck();
+      Optional<Frame<?>> frame = enclosingFrame();
+      return formatCheck && config.appFormat.isFormatCheck() && 
+             (!frame.isPresent() || !frame.get().config().noAutoValidate);
    }
    
    /**
@@ -3199,6 +3224,10 @@
       
       FillInConfig c = config();
       
+      if (c.dataType != null && !c.dataType.equals(beforeUpdate.dataType))
+      {
+         clearOverride();
+      }
       setDataType(c.dataType);
       setTextGroup(c.grouping);
       
@@ -3229,6 +3258,25 @@
    }
 
    /**
+    * This method returns the widget that should serve as the source of the triggered event. This widget must
+    * always be a non-virtual widget. The method may also return {@code null} which prevents triggering of the
+    * legacy event.<p>
+    * If this fill-in is an editing fill-in for a browse column, that browse column widget is returned.
+    *
+    * @param   evtCode
+    *          The event being triggered.
+    * @param   isKey
+    *          Whether the event being triggered is a real key.
+    *
+    * @return  see above.
+    */
+   public Widget<?> getTriggerWidget(int evtCode, boolean isKey)
+   {
+      return isLinkedToBrowse() ? browseColumn.getTriggerWidget(evtCode, isKey) :
+                                  super.getTriggerWidget(evtCode, isKey);
+   }
+
+   /**
     * Create the left-edge scroller.  By default, this is a {@link NoOpScroller no-op}.
     * 
     * @return   See above.
@@ -3448,7 +3496,7 @@
       drawLine = widget.drawLine;
       deltaWidth = widget.deltaWidth;
       autoFormat = widget.autoFormat;
-      browse = null;
+      browseColumn = null;
       forceLeft = widget.forceLeft;
       skipActivation = widget.skipActivation;
       inAutoReturn = widget.inAutoReturn;

=== modified file 'src/com/goldencode/p2j/ui/client/FocusManager.java'
--- src/com/goldencode/p2j/ui/client/FocusManager.java	2020-01-26 18:12:38 +0000
+++ src/com/goldencode/p2j/ui/client/FocusManager.java	2021-01-27 17:05:13 +0000
@@ -2,7 +2,7 @@
 ** Module   : FocusManager.java
 ** Abstract :
 **
-** Copyright (c) 2010-2020, Golden Code Development Corporation.
+** Copyright (c) 2010-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 SIY 20100915 Created initial version
@@ -53,6 +53,7 @@
 **                  focus handling.
 **     SVL 20200115 EntryEvent is used instead of KeyInput for an entry event.
 ** 030 VVT 20200203 Javadoc fixes.
+**     CA  20210127 Fixed a NPE when changing focus to the menubar via ALT.
 */
 
 /*
@@ -1518,9 +1519,9 @@
             return false;
          }
          
-         Frame oldFrame = (Frame) oldFocus.enclosingFrame().get();
-         Frame inFrame = (Frame) inFocus.enclosingFrame().get();
-         if (oldFrame != inFrame)
+         Frame oldFrame = (Frame) oldFocus.enclosingFrame().orElse(null);
+         Frame inFrame = (Frame) inFocus.enclosingFrame().orElse(null);
+         if (oldFrame != null && inFrame != null && oldFrame != inFrame)
          {
             // if different frames, send LEAVE to old frame
             if (!tc.sendLeave(oldFrame, inFocus))

=== modified file 'src/com/goldencode/p2j/ui/client/Frame.java' (properties changed: -x to +x)
--- src/com/goldencode/p2j/ui/client/Frame.java	2020-10-04 20:14:00 +0000
+++ src/com/goldencode/p2j/ui/client/Frame.java	2021-01-23 18:01:03 +0000
@@ -2,7 +2,7 @@
 ** Module   : Frame.java
 ** Abstract : Frame implementation for CHUI
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------Description-----------------------------
 ** 001 EVL 20050324   @20506 Creation based on CHARVA JFrame class.
@@ -674,6 +674,12 @@
 **     HC  20201004          Performance optimizations of server-client config state
 **                           synchronization.
 **     GES 20201004          sizeChanged is a local variable, not a member of config.
+**     HC  20201024          Implemented SIDE-LABEL-HANDLE attribute.
+**     CA  20201104          During config update, the layout will not be re-calculated even if the frame is
+**                           realized.  So don't alter the frame widget tree (side-labels and others).
+**     CA  20201201          In case of a TEXT:READ-ONLY=true and TEXT:HIDDEN=true widget, the ENABLE statement
+**                           will not make it visible.
+**     CA  20210123          getFirstEnabledWidget must use the tab order and not the z-order.
 */
 
 /*
@@ -1273,7 +1279,7 @@
    {
       for (Widget<O> comp : getContentPane().widgets())
       {
-         if (comp instanceof Label)
+         if (comp instanceof ClientDrivenLabel)
             continue;
          if (comp instanceof Skip)
             continue;
@@ -2666,32 +2672,35 @@
       {
          savedTabOrder = null;
          
-         // remove all labels (they we'll be re-added by the layout)
-         Widget<O>[] widgets = getContentPane().widgets();
-         for (Widget<O> widget : widgets)
-         {
-            if (widget instanceof Label)
-            {
-               widget.destroy();
-               screen().getRegistry().removeWidget(UiUtils.getWidgetId(widget));
-            }
-         }
-         
-         // remove the down-body widgets before doLayout() is called, frame's 
-         // layout manager has no idea about the down-body and would give unexpected 
-         // results, note that valid down-body is required in the frame initialization 
-         // steps before setVisible() is called
-         if (down && downBody != null)
-         {
-            for (int i = 1; i < downBody.length; i++)
-            {
-               for (Widget<O> w : downBody[i])
+         if (!configUpdateActive)
+         {
+            // remove all client-managed labels (they we'll be re-added by the layout)
+            Widget<O>[] widgets = getContentPane().widgets();
+            for (Widget<O> widget : widgets)
+            {
+               if (widget instanceof ClientDrivenLabel)
                {
-                  getContentPane().remove(w);
+                  widget.destroy();
+                  screen().getRegistry().removeWidget(UiUtils.getWidgetId(widget));
                }
             }
             
-            downBody = null;
+            // remove the down-body widgets before doLayout() is called, frame's 
+            // layout manager has no idea about the down-body and would give unexpected 
+            // results, note that valid down-body is required in the frame initialization 
+            // steps before setVisible() is called
+            if (down && downBody != null)
+            {
+               for (int i = 1; i < downBody.length; i++)
+               {
+                  for (Widget<O> w : downBody[i])
+                  {
+                     getContentPane().remove(w);
+                  }
+               }
+               
+               downBody = null;
+            }
          }
          
          config().realized = true;
@@ -7024,14 +7033,14 @@
       
       for (int i = 0; i < c.length; i++)
       {
-         if ((c[i] instanceof Label)                      ||
+         if ((c[i] instanceof ClientDrivenLabel)                      ||
              (UiUtils.hasConfig(c[i]) && c[i].isHeader()) ||
              (c[i] instanceof Space)                      ||
              (UiUtils.getConfig(c[i]) == null))
          {
             // all these widgets do not belong to down frame body
             
-            if (c[i] instanceof Label && isSideLabels())
+            if (c[i] instanceof ClientDrivenLabel && isSideLabels())
                continue;
        
             if (others != null)
@@ -7468,16 +7477,16 @@
          LabeledWidget<O> lwsrc = (LabeledWidget<O>) source;
          
          boolean sideLabels = isSideLabels();
-         
-         if (lwsrc.getLabelInstance() != null && sideLabels)
+
+         ClientDrivenLabel<O> lblSrc = (ClientDrivenLabel) lwsrc.getLabelInstance();
+         if (lblSrc != null && sideLabels)
          {
-            Label<O> lblSrc = lwsrc.getLabelInstance();
-            Label<O> label = lw.getLabelInstance();
+            ClientDrivenLabel<O> label = (ClientDrivenLabel) lw.getLabelInstance();
             if (label == null)
             {
                WidgetId nextId = dest.config().id.createId(WidgetId.nextID());
-               label = screen().getFactory().createLabel(nextId, 
-                                                         lwsrc.getLabelInstance(), 
+               label = screen().getFactory().createLabel(nextId,
+                                                         lblSrc,
                                                          this.config.id.asInt());
                screen().getRegistry().addWidget((Widget) label);
 
@@ -7519,23 +7528,6 @@
    }
 
    /**
-    * Move the cursor to the component in the nearest row below this widget.
-    * <p>
-    * See {@link FrameFocusTransferManager#moveBelowWidget(Widget, int)} for
-    * more details.
-    *
-    * @param   widget
-    *          widget to check
-    *
-    * @param   validCursorPos
-    *          cursor offset within the widget
-    */
-   public void moveBelowWidget(Widget<O> widget, int validCursorPos)
-   {
-      focusTransferManager.moveBelowWidget(widget, validCursorPos);
-   }
-   
-   /**
     * Check if the specified widget is the left-most component in the current
     * screen row (not the same as the current record which may wrap).
     * <p>
@@ -7544,7 +7536,7 @@
     *
     * @param   widget
     *          widget to check
-    * 
+    *
     * @return  <code>true</code> if this component is the left-most component
     *          in the row.
     */
@@ -7554,6 +7546,23 @@
    }
 
    /**
+    * Move the cursor to the component in the nearest row below this widget.
+    * <p>
+    * See {@link FrameFocusTransferManager#moveBelowWidget(Widget, int)} for
+    * more details.
+    *
+    * @param   widget
+    *          widget to check
+    *
+    * @param   validCursorPos
+    *          cursor offset within the widget
+    */
+   public void moveBelowWidget(Widget<O> widget, int validCursorPos)
+   {
+      focusTransferManager.moveBelowWidget(widget, validCursorPos);
+   }
+
+   /**
     * Check if the specified widget is the right-most component in the current
     * screen row (not the same as the current record which may wrap).
     * <p>
@@ -7663,12 +7672,11 @@
    public Widget<O> getFirstEnabledWidget()
    {
       // find the first enabled widget of this frame
-      Widget<O>[] widgets = getContentPane().widgets();
-      Widget<O> comp = null;
+      List<Widget<O>> widgets = getContentPane().getTabItemList();
    
-      for (int i = 0; i < widgets.length; i++)
+      for (Widget<O> comp : widgets)
       {
-         comp = getField(widgets[i]);
+         comp = getField(comp);
          if (!comp.isVisible() || !comp.isEnabled())
          {
             continue;
@@ -7718,6 +7726,11 @@
       {
          comp = thinClient.getWidget(widgetId[i]);
          
+         if (comp.ignoreEnable())
+         {
+            continue;
+         }
+
          comp = getField(comp);
 
          // even non-focusable widgets may need to be enabled;
@@ -7917,6 +7930,11 @@
       {
          comp = getField(list[i]);
          
+         if (comp.ignoreEnable())
+         {
+            continue;
+         }
+
          if (thinClient.isChui() && !UiUtils.isFocusable(comp))
          {
             // GUI widgets can be enabled even if not focusable. They are still accessible by
@@ -7986,7 +8004,7 @@
       
       for (Widget<O> component : cmp)
       {
-         if (component instanceof Label && 
+         if (component instanceof ClientDrivenLabel &&
              rect.intersects(new Rectangle(component.screenLocation(), 
                                            component.dimension(),
                                            component.screen().coordinates().baseUnits())))
@@ -8174,7 +8192,7 @@
       // determine presence of headers and drawing mode
       for (int i = 0; i < c.length; i++)
       {
-         if (c[i] instanceof Label)
+         if (c[i] instanceof ClientDrivenLabel)
             continue;
          
          if (UiUtils.hasConfig(c[i]))

=== modified file 'src/com/goldencode/p2j/ui/client/Label.java' (properties changed: +x to -x)
--- src/com/goldencode/p2j/ui/client/Label.java	2020-03-16 17:30:47 +0000
+++ src/com/goldencode/p2j/ui/client/Label.java	2020-10-24 22:32:57 +0000
@@ -1,814 +1,171 @@
 /*
-** Module   : Label.java
-** Abstract : Label widget implementation.
-**
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
-**
-** -#- -I- --Date-- --JPRM-- ----------------------------Description------------------------------
-** 001 SVG 20050609   @21452 Initial version.
-** 003 SIY 20050831   @22506 Refactoring (see @@22394-22409).
-** 004 SIY 20050907   @22640 Fixed use of @inheritDoc tag in javadoc.
-** 005 SIY 20050926   @22842 Using ColorTable for drawing.
-** 006 SIY 20060209   @24471 Updated to accommodate changes in xxxConfig
-**                           classes. Minor cleanups.
-** 007 SIY 20060323   @25222 Added copy constructor.
-** 008 SIY 20060615   @27239 Do not draw label if its parent is null.
-** 009 SIY 20060824   @28853 Removed getP2JType() method.
-** 010 SIY 20060908   @29380 Fixed drawing.
-** 011 GES 20061013   @30401 Added a delimiter flag and changed drawing in redirected output mode
-**                           (if we are marked as a delimiter) to avoid the output of the line 
-**                           itself (instead we only output a blank line).
-** 012 SIY 20070214   @32128 Renamed getDelimiter() to isDelimiter() to match common naming 
-**                           convention for boolean properties.
-** 013 SIY 20071004   @35366 Rolled back #011.
-** 014 NVS 20080401   @37778 Added isFocusable() method implementation.
-** 015 SIY 20080401   @38798 Added support for quirks label positioning in ATTR-SPACE handling.
-** 016 SIY 20100111   @44522 Fixed a rare case when drawing of empty space instead of label is 
-**                           necessary. 
-** 017 SIY 20100619          Switching to own implementation of character UI.
-** 018 SIY 20100804          Changes in imports, some refactorings.
-** 019 SIY 20100822          Refactored AttributeContainer support.
-** 020 SIY 20100915          Renamed base class.
-** 021 SIY 20110112          Changes related to new color handling scheme.
-** 022 SIY 20111101          Updated imports.
-** 023 SIY 20111202          Refactored and moved from CHUI package.
-** 024 CA  20140805          Added generics to force the abstract widget classes to not use
-**                           implementation-specific code: the abstract widgets will have access
-**                           only to the base APIs provided by the OutputManager.
-** 025 HC  20140911          GUI coordinate support - data types refactoring.
-** 026 CA  20140926          Added shared widget configuration support, to allow GUI/ChUI
-**                           concrete implementation for the same widget ID.  Refactored the
-**                           widget configuration classes: all fields were made public; these
-**                           classes need to be as dumb as possible, all logic related to
-**                           setting/getting a certain field should be at the widget or at the
-**                           caller. Refs #2254
-** 027 HC  20141021          Implemented window move/position support.
-** 028 CA  20141220          Implemented drawCaret, as is a no-op for LABEL widget.
-** 029 CA  20150105          Changes for SIDE-LABEL-HANDLE runtime support.
-** 030 CA  20150114          Fixed support for changing the ROW/COLUMN attrs from server-side, 
-**                           for a side-label.
-** 031 CA  20150127          If label text is changed, invalidate the location.
-** 032 HC  20150128          Added support for frame widget position changes induced by
-**                           setting ROW/COL/X/Y attributes.
-** 033 HC  20150214          Improved positioning of side labels.
-** 034 CA  20150222          Fixed label's COLUMN and WIDTH-CHARS attributes (in ChUI).
-** 035 CA  20150323          Pass the frame ID when creating a label (to properly resolve the font
-**                           in GUI).
-**                           When linking a label, preserve the label's color attributes, too.
-** 036 HC  20150323          Removed business logic from config classes.
-** 037 CA  20150406          Track the label's side widget (if this is a side-label), as in GUI 
-**                           the side-label implicitly follows the widget's height.
-** 038 CA  20150519          The label's font needs to be copied, when the label is replaced.
-** 039 CA  20150722          Changes to allow frame layout to be done only once, on the frame 
-**                           definition. Subsequent label changes are managed by postprocessConfig.
-** 040 CA  20150728          Added getter for sideWidget field.
-** 041 CA  20151112          "label does not fit in frame" error message is shown only if the label
-**                           changes.
-** 042 EVL 20160413          Label can not have '&' character inside.
-** 043 EVL 20160823          Fix for column calculation with side-labeled widgets.
-** 044 HC  20160922          Added getLegacyWidget() method.
-** 045 HC  20161018          Frame layout improvements.
-** 046 CA  20161101          Added support for mnemonic processing.
-** 047 EVL 20170724          Direct manipulation is not valid with LABEL widget.
-** 048 CA  20171111          Added WIDGET:BGCOLOR-RGB and WIDGET:FGCOLOR-RGB FWD extension
-**                           attributes
-** 049 CA  20180502          Fixed COLOR option, COLOR statement and other color-related issues.
-** 050 HC  20190823          Changed an error message to a warning.
-** 051 HC  20200313          Javadoc fixes.
-*/
+ ** Module   : Label.java
+ ** Abstract : Interface for label widgets.
+ **
+ ** Copyright (c) 2020, Golden Code Development Corporation.
+ **
+ ** -#- -I- --Date-- --------------------------------Description-----------------------------------
+ ** 001 HC  20201024 Created initial version.
+ */
 /*
-** This program is free software: you can redistribute it and/or modify
-** it under the terms of the GNU Affero General Public License as
-** published by the Free Software Foundation, either version 3 of the
-** License, or (at your option) any later version.
-**
-** This program is distributed in the hope that it will be useful,
-** but WITHOUT ANY WARRANTY; without even the implied warranty of
-** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-** GNU Affero General Public License for more details.
-**
-** You may find a copy of the GNU Affero GPL version 3 at the following
-** location: https://www.gnu.org/licenses/agpl-3.0.en.html
-** 
-** Additional terms under GNU Affero GPL version 3 section 7:
-** 
-**   Under Section 7 of the GNU Affero GPL version 3, the following additional
-**   terms apply to the works covered under the License.  These additional terms
-**   are non-permissive additional terms allowed under Section 7 of the GNU
-**   Affero GPL version 3 and may not be removed by you.
-** 
-**   0. Attribution Requirement.
-** 
-**     You must preserve all legal notices or author attributions in the covered
-**     work or Appropriate Legal Notices displayed by works containing the covered
-**     work.  You may not remove from the covered work any author or developer
-**     credit already included within the covered work.
-** 
-**   1. No License To Use Trademarks.
-** 
-**     This license does not grant any license or rights to use the trademarks
-**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
-**     of Golden Code Development Corporation. You are not authorized to use the
-**     name Golden Code, FWD, or the names of any author or contributor, for
-**     publicity purposes without written authorization.
-** 
-**   2. No Misrepresentation of Affiliation.
-** 
-**     You may not represent yourself as Golden Code Development Corporation or FWD.
-** 
-**     You may not represent yourself for publicity purposes as associated with
-**     Golden Code Development Corporation, FWD, or any author or contributor to
-**     the covered work, without written authorization.
-** 
-**   3. No Misrepresentation of Source or Origin.
-** 
-**     You may not represent the covered work as solely your work.  All modified
-**     versions of the covered work must be marked in a reasonable way to make it
-**     clear that the modified work is not originating from Golden Code Development
-**     Corporation or FWD.  All modified versions must contain the notices of
-**     attribution required in this license.
-*/
-
+ ** This program is free software: you can redistribute it and/or modify
+ ** it under the terms of the GNU Affero General Public License as
+ ** published by the Free Software Foundation, either version 3 of the
+ ** License, or (at your option) any later version.
+ **
+ ** This program is distributed in the hope that it will be useful,
+ ** but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ** GNU Affero General Public License for more details.
+ **
+ ** You may find a copy of the GNU Affero GPL version 3 at the following
+ ** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+ **
+ ** Additional terms under GNU Affero GPL version 3 section 7:
+ **
+ **   Under Section 7 of the GNU Affero GPL version 3, the following additional
+ **   terms apply to the works covered under the License.  These additional terms
+ **   are non-permissive additional terms allowed under Section 7 of the GNU
+ **   Affero GPL version 3 and may not be removed by you.
+ **
+ **   0. Attribution Requirement.
+ **
+ **     You must preserve all legal notices or author attributions in the covered
+ **     work or Appropriate Legal Notices displayed by works containing the covered
+ **     work.  You may not remove from the covered work any author or developer
+ **     credit already included within the covered work.
+ **
+ **   1. No License To Use Trademarks.
+ **
+ **     This license does not grant any license or rights to use the trademarks
+ **     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+ **     of Golden Code Development Corporation. You are not authorized to use the
+ **     name Golden Code, FWD, or the names of any author or contributor, for
+ **     publicity purposes without written authorization.
+ **
+ **   2. No Misrepresentation of Affiliation.
+ **
+ **     You may not represent yourself as Golden Code Development Corporation or FWD.
+ **
+ **     You may not represent yourself for publicity purposes as associated with
+ **     Golden Code Development Corporation, FWD, or any author or contributor to
+ **     the covered work, without written authorization.
+ **
+ **   3. No Misrepresentation of Source or Origin.
+ **
+ **     You may not represent the covered work as solely your work.  All modified
+ **     versions of the covered work must be marked in a reasonable way to make it
+ **     clear that the modified work is not originating from Golden Code Development
+ **     Corporation or FWD.  All modified versions must contain the notices of
+ **     attribution required in this license.
+ */
 package com.goldencode.p2j.ui.client;
 
-import java.util.Objects;
-
-import com.goldencode.util.*;
 import com.goldencode.p2j.ui.*;
-import com.goldencode.p2j.ui.chui.ThinClient;
 import com.goldencode.p2j.ui.client.widget.*;
 
 /**
- * Implementation of label for Progress components. Progress uses TEXT
- * components for labels but this seems to be incorrect. TEXT implies
- * underlying variable and complex format.
+ * Interface implemented by widgets that can act as widget labels.
  */
-public abstract class Label<O extends OutputManager<?>>
-extends FixedSizeContainer<O>
-implements WidgetWithConfig<LabelConfig>
+public interface Label<O extends OutputManager<?>>
+extends Widget<O>
 {
-   /** Widget's size which is set by <code>setSize</code> method. */
-   private boolean forcedSize = false;
-   
-   /** Component attribute container. */
-   protected LabelConfig config = null;
-
-   /** Make label aligned to right boundary. */
-   protected boolean rightAligned = true;
-
-   /** Display additional line */
-   protected boolean underlined = false;
-   
-   /** Flag the special case of use as a separator line. */
-   private boolean delimiter = false;
-
-   /** Label right shift offset. */
-   protected double offset = 0;
-
-   /** If it is <code>true</code>, empty string is displayed.*/
-   protected boolean emptyMode = false;
-   
-   /** Prepare for disabling empty mode. */
-   protected boolean disableEmptyMode = false;
-   
-   /** The side-widget associated with this label, if this is a side-label. */
-   protected Widget<O> sideWidget = null;
-   
-   /**
-    * Constructs label with given text.
-    * 
-    * @param   id
-    *          The widget's ID.
-    * @param   text
-    *          Initial text.
-    * @param   frameId
-    *          The ID of the frame to which the label belongs, or -1 if unknown at the time of the 
-    *          creation.
-    */
-   public Label(WidgetId id, String text, int frameId)
-   {
-      config = ConfigManager.getInstance().resolveWidgetConfig(id, LabelConfig.class);
-      config.frameId = frameId;
-
-      setName(text);
-   }
-
-   /**
-    * Create a copy of the label.
-    * 
-    * @param   id
-    *          The widget's ID.
-    * @param   label
-    *          Label to copy parameters from.
-    * @param   frameId
-    *          The ID of the frame to which the label belongs, or -1 if unknown at the time of the 
-    *          creation.
-    */
-   public Label(WidgetId id, Label<O> label, int frameId)
-   {
-      config = ConfigManager.getInstance().resolveWidgetConfig(id, LabelConfig.class);
-      config.frameId = frameId;
-
-      setName(label.config.name);
-      
-      setUnderlined(label.isUnderlined());
-      setRightAligned(label.isRightAligned());
-      setWidth(label.width());
-      forcedSize = label.forcedSize;
-      setLocation(label.location());
-      setVisible(label.isVisible());
-   }
-   
-   /**
-    * Retrieve the widget's width in native units.
-    * 
-    * @return   See above.
-    */
-   protected abstract int nativeWidth();
-
-   /**
-    * Retrieve the widget's height in native units.
-    * 
-    * @return   See above.
-    */
-   protected abstract int nativeHeight();
-   
-   /**
-    * Set the specified widget as this side-label's {@link #sideWidget}.
-    * 
-    * @param    widget
-    *           The side-widget for this label.
-    */
-   public void setSideWidget(Widget<O> widget)
-   {
-      this.sideWidget = widget;
-      updateSize();
-   }
-   
-   /**
-    * Get the side-widget associated with this label.
-    * 
-    * @return   The {@link #sideWidget}.
-    */
-   public Widget<O> getSideWidget()
-   {
-      return sideWidget;
-   }
-   
-   /**
-    * Replacement API for the logic which should exist in the widget's c'tor, but the logic 
-    * can't be executed as it depends on the widget being registered into the official registry.
-    * <p>
-    * This API is called after the widget is created and added to the registry.
-    * 
-    * @param    id
-    *           The widget's ID.
-    * @param    cfg
-    *           The config used to initialize this widget.
-    */
-   @Override
-   public void initialize(WidgetId id, LabelConfig cfg)
-   {
-      config = ConfigManager.getInstance().resolveWidgetConfig(id, cfg);
-      ConfigManager.getInstance().replaceConfig(config, cfg);
-   }
-
-   /**
-    * Create a copy of the label.
-    * 
-    * @param   id
-    *          The widget's ID.
-    * @param   label
-    *          Label to copy parameters from.
-    */
-   public Label(WidgetId id, Label<O> label)
-   {
-      config = ConfigManager.getInstance().resolveWidgetConfig(id, LabelConfig.class);
-      
-      config.name = label.config.name;
-      setUnderlined(label.isUnderlined());
-      setRightAligned(label.isRightAligned());
-      setWidth(label.width());
-      forcedSize = label.forcedSize;
-      setLocation(label.location());
-      setVisible(label.isVisible());
-   }
-
-   /**
-    * Provide access to the attributes stored in the widget.
-    * 
-    * @return  Reference to attribute container.
-    */
-   @SuppressWarnings("unchecked")
-   @Override
-   public LabelConfig config()
-   {
-      return config;
-   }
-
-   /**
-    * Marks this label as one used to draw a separator line for header
-    * widgets.  In this case there is no label text but the width is
-    * positive and the underline attribute is enabled.
-    *
-    * @param    delimiter
-    *           <code>true</code> to set this as a separator line.
-    */
-   public void setDelimiter(boolean delimiter)
-   {
-      this.delimiter = delimiter;
-   }
-   
-   /**
-    * Gets the flag that marks this label as one used to draw a separator
-    * line for header widgets.
-    *
-    * @return   <code>true</code> if this label is a separator line.
-    */
-   public boolean isDelimiter()
-   {
-      return delimiter;
-   }
-
-   /**
-    * Draws text. Screen value is left justified or padded to the right bound
-    * with spaces. Non first lines are filled with spaces.
-    */
-   @Override
-   public abstract void draw();
-
-   /**
-    * Sets position of terminal's cursor. Really does nothing because this
-    * widget will never get an input focus.
-    */
-   @Override
-   public void drawCaret()
-   {
-   }
-
-   /**
-    * Sets new widget's size. After call to this method the widget will
-    * not change size automatically accordingly to screen value changes.
-    * 
-    * @param   width
-    *          New widget width.
-    * @param   height
-    *          New widget height.
-    */
-   @Override
-   public void setSize(double width, double height)
-   {
-      forcedSize = true;
-      super.setSize(width, height);
-   }
-
-   /**
-    * Set widget width.
-    * 
-    * @param   width
-    *          New widget width.
-    */
-   @Override
-   public void setWidth(double width)
-   {
-      forcedSize = true;
-      super.setWidth(width);
-   }
-   
-   /**
-    * Set widget height.
-    * 
-    * @param   height
-    *          New widget height.
-    */
-   @Override
-   public void setHeight(double height)
-   {
-      forcedSize = true;
-      super.setHeight(height);
-   }
-   
-   /**
-    * This component will not receive an input focus when Tab or Shift-Tab is
-    * pressed.
-    * 
-    * @return  Always <code>false</code>.
-    */
-   @Override
-   public boolean focusTraversable()
-   {
-      return false;
-   }
-
-   /**
-    * Checks whether this attribute container can receive focus generally.
-    * 
-    * @return  <code>true</code> if this container can be focused under
-    *          certain conditions. <code>false</code> if, and only if, this
-    *          attribute container can never receive focus.    
-    */
-   @Override
-   public boolean isFocusable()
-   {
-      return false;
-   }
-
-   /**
-    * Synchronizes the actual size with the default size.
-    */
-   protected void updateSize()
-   {
-      if (forcedSize)
-         return;
-
-      int nativeWith = nativeWidth();
-      int nativeHeight = nativeHeight();
-      
-      CoordinatesConversion cc = screen().coordinates();
-      double width = cc.widthFromNative(nativeWith);
-      double height = cc.heightFromNative(nativeHeight);
-      
-      // call super to avoid setting forcedSize to true
-      super.setSize(width, height);
-      
-      // synchronize the new size with server
-      BaseConfig c = config();
-      c.widthChars = width;
-      c.heightChars = height;
-   }
-
-   /**
-    * Set underlining mode.
-    * 
-    * @param   b
-    *          New value for the mode.
-    */
-   public void setUnderlined(boolean b)
-   {
-      underlined = b;
-      updateSize();
+   /**
+    * Process this label so that it's linked with the server-side widget represented by the
+    * <code>serverSideId</code>.
+    *
+    * @param    frameId
+    *           The ID of the frame to which this label belongs.
+    * @param    serverSideId
+    *           The server-side ID of this label.
+    */
+   @SuppressWarnings({ "unchecked", "rawtypes" })
+   default void linkTo(int frameId, int serverSideId)
+   {
+      // no-op by default
    }
 
    /**
     * Get current value of the underlining flag.
-    * 
+    *
     * @return  <code>true</code> if label is underlined.
     */
-   public boolean isUnderlined()
-   {
-      return underlined;
-   }
-   
-   /**
-    * Get current value of the alignment.
-    * 
-    * @return  <code>true</code> if right alignment is active.
-    */
-   public boolean isRightAligned()
-   {
-      return rightAligned;
-   }
-   
+   default boolean isUnderlined()
+   {
+      return false;
+   }
+
    /**
     * Activate or deactivate right alignment of the text.
-    * 
+    *
     * @param   rightAligned
     *          <code>true</code> activate right alignment,
     *          <code>false</code>- deactivate.
     */
-   public void setRightAligned(boolean rightAligned)
-   {
-      this.rightAligned = rightAligned;
-   }
-
-   /**
-    * Sets the name of the label.
-    * 
-    * @param   name
-    *          New name of the component.
-    */
-   public void setName(String name)
-   {
-      config.name = name;
-
-      //Reset the forcedSize flag so updateSize() can properly adjust the size.
-      forcedSize = false;
-      updateSize();
-   }
-   
-   /**
-    * Get widget name.
-    *
-    * @return  widget name or empty string if is not set.
-    */
-   @Override
-   public String name()
-   {
-      String name = super.name();
-      return name == null ? "" : name;
-   }
-
-   /**
-    * Set extra offset for label.
-    * 
-    * @param   offset
-    *          Size of the shift.
-    */
-   public void setOffset(double offset)
-   {
-      this.offset = Coordinate.scale(offset);
+   default void setRightAligned(boolean rightAligned)
+   {
+      // no-op by default
+   }
+
+   /**
+    * Enable empty mode.
+    */
+   default String label()
+   {
+      return name();
+   }
+
+   default void setEmptyModeOn()
+   {
+      // no-op by default
    }
 
    /**
     * Disable empty label mode. Note that actual disabling happens only during
     * next {@link #draw()} call.
     */
-   public void setEmptyModeOff()
-   {
-      disableEmptyMode = true;
-   }
-
-   /**
-    * Enable empty mode.
-    */
-   public void setEmptyModeOn()
-   {
-      emptyMode = true;
-   }
-   
-   /**
-    * Process this label so that it's linked with the server-side widget represented by the 
-    * <code>serverSideId</code>.
-    * 
-    * @param    frameId
-    *           The ID of the frame to which this label belongs.
-    * @param    serverSideId
-    *           The server-side ID of this label.
-    */
-   @SuppressWarnings({ "unchecked", "rawtypes" })
-   public void linkTo(int frameId, int serverSideId)
-   {
-      if (serverSideId == -1)
-      {
-         return;
-      }
-      
-      BaseConfig lblCfg = config();
-      WidgetId oldId = lblCfg.id;
-      WidgetId newId = oldId.createId(serverSideId);
-      
-      ConfigManager cm = ConfigManager.getInstance();
-      BaseConfig bc = cm.getActiveConfig(newId);
-      
-      if (bc != null)
-      {
-         Point loc = location();
-        
-         double x = loc.x;
-         double y = loc.y;
-         boolean setLoc = false;
-   
-         double assignedCol = ConfigHelper.getAssignedColumn(bc);
-         double assignedRow = ConfigHelper.getAssignedRow(bc);
-         
-         if (assignedCol != BaseConfig.INV_COORD)
-         {
-            x = assignedCol;
-            setLoc = true;
-         }
-         
-         if (assignedRow != BaseConfig.INV_COORD)
-         {
-            y = assignedRow;
-            setLoc = true;
-         }
-   
-         if (setLoc)
-         {
-            setLocation(x, y);
-         }
-         
-         // inherit width, but only when it is not already set on this
-         if (bc.widthChars != -1 && width() == -1)
-         {
-            setWidth(bc.widthChars);
-            lblCfg.widthChars = bc.widthChars;
-         }
-         
-         lblCfg.align = bc.align;
-         
-         // restore the colors
-         copyColors(bc, lblCfg);
-         lblCfg.dcolor  = bc.dcolor;
-         lblCfg.pfcolor = bc.pfcolor;
-         lblCfg.sysbgcolor = bc.sysbgcolor;
-         lblCfg.sysfgcolor = bc.sysfgcolor;
-         
-         // restore the font
-         lblCfg.font = bc.font;
-      }
-
-      ClientConfigManager mgr = ConfigManager.getInstance();
-      
-      // switch the internal ID for this label (from virtual to real)
-      mgr.switchId(oldId, newId);
-      
-      // mark as dirty all configs which are not the same as what the server has...
-      mgr.trackAllChanges(lblCfg);
-      
-      OutputManager.instance().getRegistry().addWidget((Widget) this);
-   }
-   
-   /**
-    * Update the {@link #visible} flag in the configuration and in the widget's state.
-    * <p>
-    * If the widget has just been realized and its width has not yet been set, it will be computed
-    * now.
-    * 
-    * @param    visible
-    *           The widget's visible state.
-    */
-   @Override
-   public void _setVisible(boolean visible)
-   {
-      boolean oldRealized = config.realized;
-      
-      super._setVisible(visible);
-      
-      if (!oldRealized && config.realized && config.widthChars == -1)
-      {
-         config.widthChars = width();
-      }
-   }
-   
-   /**
-    * Get the state of the {@link #forcedSize} flag.
-    * 
-    * @return   See above.
-    */
-   public boolean isForcedSize()
-   {
-      return forcedSize;
-   }
-   
-   /**
-    * Set the {@link #forcedSize} flag to the specified state.
-    * 
-    * @param    forcedSize
-    *           The new state for the {@link #forcedSize} flag.
-    */
-   public void setForcedSize(boolean forcedSize)
-   {
-      this.forcedSize = forcedSize;
-   }
-
-   /**
-    * The method is called after the configuration associated with 
-    * the implementor changes. The parameter points to a reference
-    * representing the original configuration state. This reference
-    * can be used to detect what configuration fields changed and so
-    * optimize any processing related to the configuration change.
-    *
-    * @param   beforeUpdate
-    *          Config reference capturing the config state before
-    *          the owner's config was modified.
-    */
-   @Override
-   public void afterConfigUpdate(LabelConfig beforeUpdate)
-   {
-      super.afterConfigUpdateBase(beforeUpdate);
-      
-      LabelConfig c = config();
-      
-      setWidth(c.widthChars);
-      
-      // name changed?
-      if (!Objects.equals(((BaseConfig) beforeUpdate).name, c.name))
-      {
-         //reset the forcedSize flag so updateSize() can properly adjust the size.
-         forcedSize = false;
-         updateSize();
-      }
-   }
-   
-   /**
-    * Additional processing required when widget configuration is updated AFTER the frame layout
-    * has been performed.
-    */
-   @Override
-   public void postprocessConfig()
-   {
-      super.postprocessConfig();
-      
-      if (sideWidget != null)
-      {
-         double newLblWidth = 0;
-         double oldLblWidth = 0;
-         boolean labelChanged = false;
-         if (sideWidget instanceof LabeledDataContainer)
-         {
-            String newLabel = ((LabeledDataContainer) sideWidget).getLabelText() + ": ";
-            labelChanged = !newLabel.equals(config.name);
-
-            if (labelChanged)
-            {
-               newLblWidth = ZeroColumnLayout.labelWidth((LabeledWidget<?>) sideWidget, newLabel);
-               oldLblWidth = ZeroColumnLayout.labelWidth((LabeledWidget<?>) sideWidget,
-                                                         config.name);
-            }
-         }
-
-         // check the left border
-         if (labelChanged)
-         {
-            double newColumn = Coordinate.scale(ConfigHelper.getEffectiveColumn(config) +
-                                                oldLblWidth - newLblWidth);
-
-            if (newColumn < 0)
-            {
-               Frame<O> fr = (Frame<O>) UiUtils.locateFrame(this);
-
-               StringBuilder err = new StringBuilder();
-
-               if (screen().isChui())
-               {
-                  err.append("**Unable to set SCREEN-VALUE.  ")
-                     .append("LITERAL widget does not fit in FRAME ")
-                     .append(fr.shortName()).append(". (4054)");
-               }
-               else
-               {
-                  err.append("**All or part of LITERAL widget is being placed outside of FRAME ")
-                     .append(fr.shortName())
-                     .append(" by setting SCREEN-VALUE. (5905)");
-               }
-
-               ThinClient.getInstance().displayWarningMessage(err.toString());
-
-               // no need to restore the label string
-            }
-            else
-            {
-               Point loc = location();
-               config.column = newColumn;
-               setLocation(newColumn, loc.y);
-
-               if (sideWidget.config() instanceof ControlConfig)
-               {
-                  // setName will update the size, too
-                  setName(((ControlConfig) sideWidget.config()).label + ": ");
-               }
-            }
-         }
-      }
-   }
-
-   /**
-    * The method returns the legacy widget representing this widget.
-    *
-    * @return   A non-wirtual widget reference, or <code>null</code> if none found.
-    */
-   @Override
-   public Widget<O> getLegacyWidget()
-   {
-      return getSideWidget();
-   }
-
-   /**
-    * Additional processing required when widget configuration is updated AFTER the frame layout
-    * has been performed.
-    * 
+   default void setEmptyModeOff()
+   {
+      // no-op by default
+   }
+
+   /**
+    * Additional processing required when widget configuration is updated AFTER the frame layout
+    * has been performed.
+    *
     * @param    widget
     *           The widget to which this side-labe is attached.
     */
-   protected void postprocessConfig(LabeledWidget<O> widget)
+   default void postprocessConfig(LabeledWidget<O> widget)
    {
-      // check the frame first - this call is only for non-side-labels
-      Frame<O> frame = (Frame<O>) UiUtils.locateFrame((Widget<O>) widget);
-      if (frame.isSideLabels())
-      {
-         return;
-      }
-      
-      String label = ZeroColumnLayout.getLabel(widget, frame.isSideLabels(), frame.hasHeaders());
-      if (label != null && !label.equals(this.name()))
-      {
-         // TODO: if new width is greater than frame width, then the width remains as the 
-         // current label's width - and the new label is trimmed to this width
-         setName(label);
-      }
+      // no-op by default
    }
 
    /**
-    * Check the direct manipulation capability of the widget.  LABEL widget does not allow direct
-    * manipulation.
-    * 
-    * @return  <code>TRUE</code> if the widget is able to be directly manipulated,
-    *          <code>FALSE</code> otherwise.
+    * Gets the flag that marks this label as one used to draw a separator
+    * line for header widgets.
+    *
+    * @return   <code>true</code> if this label is a separator line.
     */
-   @Override
-   public boolean isDirectManipulable()
+   default boolean isDelimiter()
    {
       return false;
    }
-}
\ No newline at end of file
+
+   /**
+    * Set container width.
+    *
+    * @param   width
+    *          Width to set.
+    */
+   void setWidth(double width);
+
+   /**
+    * Get externalizable widget config which can be used to restore widget
+    * state after via network.
+    * Note that only very limited set of widgets actually have config.
+    *
+    * @return  Reference to widget config.
+    */
+   BaseConfig config();
+}

=== modified file 'src/com/goldencode/p2j/ui/client/LabeledDataContainer.java'
--- src/com/goldencode/p2j/ui/client/LabeledDataContainer.java	2020-09-19 17:47:54 +0000
+++ src/com/goldencode/p2j/ui/client/LabeledDataContainer.java	2020-10-24 22:32:57 +0000
@@ -42,6 +42,7 @@
 ** 031 HC  20200313 Javadoc fixes.
 ** 032 RFB 20200918 Protect nativeHeight() and nativeWidth() from config being null so some toString()
 **                  calls can be made prior to opening frame scope (#4861).
+**     HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -321,7 +322,18 @@
       super.setVisible(visible);
 
       if (sideLabel != null)
+      {
          sideLabel.setVisible(visible);
+      }
+      else if (config.sideLabelId != -1)
+      {
+         // the case when TEXT widget is assigned to SIDE-LABEL-HANDLE
+         Widget w = ThinClient.getInstance().getWidget(config.sideLabelId);
+         if (w != null)
+         {
+            w.setVisible(visible);
+         }
+      }
    }
 
    /**

=== modified file 'src/com/goldencode/p2j/ui/client/MenuItem.java'
--- src/com/goldencode/p2j/ui/client/MenuItem.java	2020-03-16 17:30:47 +0000
+++ src/com/goldencode/p2j/ui/client/MenuItem.java	2021-01-28 17:31:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : MenuItem.java
 ** Abstract : MenuItem abstract client implementation
 **
-** Copyright (c) 2015-2020, Golden Code Development Corporation.
+** Copyright (c) 2015-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- -----------------------------Description-----------------------------
 ** 001 VIG 20150116 Created initial version.
@@ -29,6 +29,7 @@
 **                  MENU-BAR. Fixed menu item subtype checks.
 **     CA  20180530 Fixed menubar components sensitivity when menubar is disabled.
 ** 019 HC  20200313 Javadoc fixes.
+** 020 CA  20210128 Fixed problems with navigating a menubar via ALT and LEFT/RIGHT/UP/DOWN keys.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -371,6 +372,12 @@
                parentSub.hideBody(false);
             }
          }
+         
+         Widget<?> focus = UiUtils.getCurrentFocus();
+         if (Menu.isMenubarElement(focus) && focus instanceof SubMenu)
+         {
+            ((SubMenu) focus).setInitialFocus();
+         }
 
          return;
       }

=== modified file 'src/com/goldencode/p2j/ui/client/NativeRectangle.java'
--- src/com/goldencode/p2j/ui/client/NativeRectangle.java	2020-03-31 19:34:28 +0000
+++ src/com/goldencode/p2j/ui/client/NativeRectangle.java	2020-10-19 15:27:22 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2014-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 HC  20140911 Created initial version.
 ** 002 HC  20150508 Improvements to GUI window scrolling support.
 ** 003 HC  20150913 Added toString().  
@@ -12,6 +12,9 @@
 **                  case if this object or its parameter are represented by empty rectangles.
 ** 005 VVT 20200207 The equals() method now overloads Object.equal().
 ** 006 HC  20200331 Added dimension() method.
+** 007 CA  20201019 Cache the hash value.
+**                  Added neighbour() API, which checks if two rectangles are neighbours (and can be merged
+**                  into a larger rectangle, the exact union of the two.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -88,6 +91,9 @@
    /** Rectangle top row. */
    private final int top;
 
+   /** The cached hash value. */
+   private final int hash;
+   
    /**
     * Constructor.
     * 
@@ -106,6 +112,8 @@
       this.left = left;
       this.bottom = bottom;
       this.right = right;
+      
+      this.hash = hash();
    }
 
    /**
@@ -122,6 +130,8 @@
       left = topleft.x;
       bottom = top + size.height - 1;
       right = left + size.width - 1;
+      
+      this.hash = hash();
    }
 
    /**
@@ -136,6 +146,8 @@
       left = rect.left();
       bottom = rect.bottom();
       right = rect.right();
+
+      this.hash = hash();
    }
 
    /**
@@ -220,10 +232,7 @@
       }
 
       NativeRectangle rect = (NativeRectangle) o;
-      return top == rect.top &&
-             bottom == rect.bottom &&
-             left == rect.left && 
-             right == rect.right;
+      return top == rect.top && bottom == rect.bottom && left == rect.left && right == rect.right;
    }
    
    /**
@@ -234,13 +243,7 @@
    @Override
    public int hashCode()
    {
-      int r = 17;
-      r = 37 * r + top;
-      r = 37 * r + bottom;
-      r = 37 * r + left;
-      r = 37 * r + right;
-      
-      return r;
+      return hash;
    }
 
    /**
@@ -268,14 +271,10 @@
       if (right < rect.left)
          return null;
 
-      return new NativeRectangle((top > rect.top) ? top
-                                           : rect.top,
-                           (left > rect.left) ? left
-                                             : rect.left,
-                           (bottom < rect.bottom) ? bottom
-                                                 : rect.bottom,
-                           (right < rect.right) ? right
-                                               : rect.right);
+      return new NativeRectangle((top > rect.top)       ? top    : rect.top,
+                                 (left > rect.left)     ? left   : rect.left,
+                                 (bottom < rect.bottom) ? bottom : rect.bottom,
+                                 (right < rect.right)   ? right  : rect.right);
    }
 
    /**
@@ -293,15 +292,11 @@
          return false;
       }
       
-      if (rect.left > right)
-         return false;
-      if (rect.right < left)
-         return false;
-      if (rect.top > bottom)
-         return false;
-      if (rect.bottom < top)
-         return false;
-      
+      if (rect.left > right || rect.right < left || rect.top > bottom || rect.bottom < top)
+      {
+         return false;
+      }
+
       return true;
    }
 
@@ -388,14 +383,44 @@
          return new NativeRectangle(this);
       }
       
-      return new NativeRectangle((top < rect.top) ? top
-                                           : rect.top,
-                           (left < rect.left) ? left
-                                             : rect.left,
-                           (bottom > rect.bottom) ? bottom
-                                                 : rect.bottom,
-                           (right > rect.right) ? right
-                                               : rect.right);
+      return new NativeRectangle((top < rect.top)       ? top    : rect.top,
+                                 (left < rect.left)     ? left   : rect.left,
+                                 (bottom > rect.bottom) ? bottom : rect.bottom,
+                                 (right > rect.right)   ? right  : rect.right);
+   }
+   
+   /**
+    * Check if this an the other rectangle are neighbours.  Two rectangles are neighbours if they can be 
+    * 'glued' together by an edge, thus forming their exact union rectangle.
+    * 
+    * @param    rect
+    *           The other rectangle to check.
+    *           
+    * @return   See above.
+    */
+   public boolean neighbour(NativeRectangle rect)
+   {
+      if (this.top == rect.bottom + 1 && this.left == rect.left && this.right == rect.right)
+      {
+         return true;
+      }
+      
+      if (this.bottom == rect.top - 1 && this.left == rect.left && this.right == rect.right)
+      {
+         return true;
+      }
+      
+      if (this.left == rect.right + 1 && this.top == rect.top && this.bottom == rect.bottom)
+      {
+         return true;
+      }
+
+      if (this.right == rect.left - 1 && this.top == rect.top && this.bottom == rect.bottom)
+      {
+         return true;
+      }
+      
+      return false;
    }
 
    /**
@@ -490,7 +515,22 @@
    @Override
    public String toString()
    {
-      return "NativeRectangle[top=" + top + ", left=" + left + ", bottom=" + bottom + ", right="
-               + right + "]";
+      return "NativeRectangle[top=" + top + ", left=" + left + ", bottom=" + bottom + ", right=" + right + "]";
+   }
+   
+   /**
+    * Compute the hash value, so that it can be cached.
+    * 
+    * @return   See above.
+    */
+   private int hash()
+   {
+      int r = 17;
+      r = 37 * r + top;
+      r = 37 * r + bottom;
+      r = 37 * r + left;
+      r = 37 * r + right;
+      
+      return r;
    }
 }
\ No newline at end of file

=== modified file 'src/com/goldencode/p2j/ui/client/OutputManager.java'
--- src/com/goldencode/p2j/ui/client/OutputManager.java	2018-12-12 23:15:56 +0000
+++ src/com/goldencode/p2j/ui/client/OutputManager.java	2020-10-09 17:55:08 +0000
@@ -543,7 +543,7 @@
     * 
     * @return   See above.
     */
-   public abstract WidgetRegistry<? extends OutputManager<?>> getRegistry();
+   public abstract <O extends OutputManager<?>> WidgetRegistry<O> getRegistry();
    
    /**
     * Check if the given key can raise the STOP condition.

=== modified file 'src/com/goldencode/p2j/ui/client/ScreenBitmap.java'
--- src/com/goldencode/p2j/ui/client/ScreenBitmap.java	2018-06-19 17:08:24 +0000
+++ src/com/goldencode/p2j/ui/client/ScreenBitmap.java	2020-10-19 15:27:22 +0000
@@ -2,16 +2,15 @@
 ** Module   : ScreenBitmap.java
 ** Abstract : Provide clipping behavior for drawing.
 **
-** Copyright (c) 2008-2018, Golden Code Development Corporation.
+** Copyright (c) 2008-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
 ** 001 SIY 20100629 Created initial version
 ** 002 SIY 20100804 Changes in imports, some refactorings.
 ** 003 SIY 20100903 Fixed javadoc.
 ** 004 SIY 20111204 Updated imports.
-** 005 CA  20140729 Removed the matrix bitmap: instead, the activated rectangles are kept in a 
-**                  list, to allow decimal coordinates and a more dynamic approach on the screen's
-**                  dimensions.
+** 005 CA  20140729 Removed the matrix bitmap: instead, the activated rectangles are kept in a  list, to allow 
+**                  decimal coordinates and a more dynamic approach on the screen's dimensions.
 ** 006 CA  20140806 Changes to allow resizable windows and clipping.
 ** 007 HC  20140911 GUI coordinate support - data types refactoring.
 ** 008 CA  20150406 Removed a comment - the bitmap is always kept in native rectangles.
@@ -20,8 +19,9 @@
 **                  clip rectangle.
 ** 011 SBI 20171208 Fixed to discard empty rectangles that cause drawing artifacts.
 ** 012 CA  20180619 Fixed getCopy() - hasRectangles flag must be copied, too.
-**                  Fixed a bug in resetScreen(), where the bitmap rectangles were not being 
-**                  cleared.
+**                  Fixed a bug in resetScreen(), where the bitmap rectangles were not being cleared.
+** 013 CA  20201019 Optimized getClippings - this reduces the number of returned rectangles, by merging all 
+**                  neighbour rectangles, and eliminating overlapping rectangles.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -304,7 +304,7 @@
          return;
       }
       
-      List<NativeRectangle> work = new ArrayList<>();
+      List<NativeRectangle> work = new LinkedList<>();
       
       if (state)
       {
@@ -1022,22 +1022,124 @@
     */
    public List<NativeRectangle> getClippings(NativeRectangle bounds)
    {
-      List<NativeRectangle> res = new ArrayList<>();
-      if (!bounds.empty())
-      {
-         for (NativeRectangle r : bitmap)
-         {
-            if (r.empty())
+      if (bounds.empty())
+      {
+         return Collections.emptyList();
+      }
+      
+      Set<NativeRectangle> res = new HashSet<>();
+      for (NativeRectangle r : bitmap)
+      {
+         if (r.empty())
+         {
+            continue;
+         }
+         NativeRectangle intersection = r.intersection(bounds);
+         if (intersection != null && !intersection.empty())
+         {
+            res.add(intersection);
+         }
+      }
+
+      if (res.isEmpty())
+      {
+         return Collections.emptyList();
+      }
+      
+      if (res.size() == 1)
+      {
+         return new ArrayList<>(res);
+      }
+      
+      Set<NativeRectangle> removed = new HashSet<>();
+      Set<NativeRectangle> added = new HashSet<>();
+      boolean changed = false;
+      do
+      {
+         NativeRectangle[] rectangles = res.toArray(new NativeRectangle[res.size()]);
+         boolean[] touched = new boolean[rectangles.length];
+
+         changed = false;
+         for (int i = 0; i < rectangles.length; i++)
+         {
+            NativeRectangle nr1 = rectangles[i];
+            if (touched[i])
             {
                continue;
             }
-            NativeRectangle intersection = r.intersection(bounds);
-            if (intersection != null && !intersection.empty())
+            
+            for (int j = i + 1; j < rectangles.length; j++)
             {
-               res.add(intersection);
+               NativeRectangle nr2 = rectangles[j];
+               if (touched[j])
+               {
+                  continue;
+               }
+               
+               if (nr1.contains(nr2))
+               {
+                  removed.add(nr2);
+
+                  changed = true;
+
+                  touched[j] = true;
+                  break;
+               }
+               else if (nr2.contains(nr1))
+               {
+                  removed.add(nr1);
+                  
+                  changed = true;
+
+                  touched[i] = true;
+                  break;
+               }
+               else if (nr1.intersects(nr2))
+               {
+                  List<NativeRectangle> diff1 = nr1.difference(nr2, BASE_UNIT);
+                  List<NativeRectangle> diff2 = nr2.difference(nr1, BASE_UNIT);
+                  NativeRectangle intersection = nr1.intersection(nr2);
+                  
+                  removed.add(nr1);
+                  removed.add(nr2);
+                  added.addAll(diff1);
+                  added.addAll(diff2);
+                  added.add(intersection);
+                  
+                  changed = true;
+                  
+                  touched[i] = true;
+                  touched[j] = true;
+                  break;
+               }
+               else if (nr1.neighbour(nr2))
+               {
+                  removed.add(nr1);
+                  removed.add(nr2);
+                  added.add(nr1.union(nr2));
+
+                  changed = true;
+
+                  touched[i] = true;
+                  touched[j] = true;
+                  break;
+               }
             }
          }
+
+         if (!removed.isEmpty())
+         {
+            res.removeAll(removed);
+            removed.clear();
+         }
+         if (!added.isEmpty())
+         {
+            res.addAll(added);
+            added.clear();
+         }
       }
-      return res;
+      while (changed);
+
+      return new ArrayList<>(res);
    }
 }

=== modified file 'src/com/goldencode/p2j/ui/client/SubMenu.java'
--- src/com/goldencode/p2j/ui/client/SubMenu.java	2020-10-06 21:12:12 +0000
+++ src/com/goldencode/p2j/ui/client/SubMenu.java	2021-01-28 17:31:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : SubMenu.java
 ** Abstract : SubMenu abstract client implementation
 **
-** Copyright (c) 2015-2020, Golden Code Development Corporation.
+** Copyright (c) 2015-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- -----------------------------Description-----------------------------
 ** 001 VIG 20150116 Created initial version.
@@ -34,6 +34,7 @@
 ** 021 VVT 20200203 Code cleanup
 ** 022 EVL 20200221 Fixed the wrong menu opening when trigger defined for "menu-drop" event.
 ** 023 HC  20200313 Javadoc fixes.
+** 024 CA  20210128 Fixed problems with navigating a menubar via ALT and LEFT/RIGHT/UP/DOWN keys.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -108,6 +109,9 @@
    /** Menu attribute container. */
    protected SubMenuConfig config = null; 
 
+   /** Flag indicating if the body must be displayed. */
+   protected boolean showBody = false;
+
    /** Label with mnemonic info */
    private MnemonicInfo label;
 
@@ -427,7 +431,8 @@
       {
          // What if body is already displayed? In this case there will be focused item in 
          // the body, that will process this event.
-
+         
+         showBody = true;
          showBody();
          if (key != Keyboard.SE_MENU_DROP)
          {
@@ -656,6 +661,16 @@
    {
       return super.isEnabled() && (!Menu.isMenubarElement(this) || parent().isEnabled());
    }
+   
+   /**
+    * Get the state of the {@link #showBody} flag.
+    * 
+    * @return   See above.
+    */
+   public boolean isShowBody()
+   {
+      return showBody;
+   }
 
    /**
     * Creates new MnemonicInfo instance.
@@ -721,8 +736,16 @@
     */
    protected void setInitialFocus()
    {
+      if (!showBody)
+      {
+         return;
+      }
+      
       Widget<O> firstChild = getFirstFocusableItem();     
-      
+      if (firstChild == null)
+      {
+         return;
+      }
       FocusManager.setInitialFocus(firstChild);
    }
 

=== modified file 'src/com/goldencode/p2j/ui/client/TempContainer.java'
--- src/com/goldencode/p2j/ui/client/TempContainer.java	2018-08-13 12:55:57 +0000
+++ src/com/goldencode/p2j/ui/client/TempContainer.java	2020-10-24 22:32:57 +0000
@@ -2,7 +2,7 @@
 ** Module   : TempContainer.java
 ** Abstract : Temporary container used for layout processing.
 **
-** Copyright (c) 2010-2017, Golden Code Development Corporation.
+** Copyright (c) 2010-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 SIY 20100915 Created initial version
@@ -24,6 +24,7 @@
 ** 010 HC  20150831 Scrolling support overhaul.
 ** 011 CA  20151123 Added APIs to place a widget on a specified location.
 ** 012 HC  20160203 Improved runtime support of FRAME:VIRTUAL* attributes.
+** 013 HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -129,7 +130,7 @@
       
       for (int i = 0; i < c.length; i++)
       {
-         if (c[i] instanceof Label && ((Label<O>) c[i]).isDelimiter())
+         if (c[i] instanceof ClientDrivenLabel && ((Label<O>) c[i]).isDelimiter())
          {
             addDirectly(c[i]);
          }

=== modified file 'src/com/goldencode/p2j/ui/client/Text.java' (properties changed: -x to +x)
--- src/com/goldencode/p2j/ui/client/Text.java	2020-01-16 22:00:48 +0000
+++ src/com/goldencode/p2j/ui/client/Text.java	2020-12-01 12:59:56 +0000
@@ -2,7 +2,7 @@
 ** Module   : Text.java
 ** Abstract : Java standard header
 **
-** Copyright (c) 2005-2019, Golden Code Development Corporation.
+** Copyright (c) 2005-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------------Description-----------------------------
 ** 001 SVG 20050609   @21452 Initial version.
@@ -38,6 +38,9 @@
 ** 022 CA  20171020          Added support for FRAMEs sent to named or unnamed streams, in GUI.
 ** 023 HC  20191204          Improved emulation of setFocus Win32 system function. Plus related
 **                           changes to focus handling.
+** 024 HC  20201024          Implemented SIDE-LABEL-HANDLE attribute.
+**     CA  20201201          In case of a TEXT:READ-ONLY=true and TEXT:HIDDEN=true widget, the ENABLE statement
+**                           will not make it visible.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -103,6 +106,7 @@
  */
 public abstract class Text<O extends OutputManager<?>>
 extends FillIn<O,TextConfig>
+implements Label<O>
 {
    /** Track value assignment.  */
    protected boolean assigned = false;
@@ -203,6 +207,26 @@
    {
       return 0;
    }
+
+   /**
+    * {@inheritDoc}
+    */
+   @Override
+   public String label()
+   {
+      return getScreenValue(false);
+   }
+
+   /**
+    * Some widgets can ignore an ENABLE statement (like read-only, hidden, TEXT).
+    * 
+    * @return   <code>true</code> if the ENABLE statement must ignore it.
+    */
+   @Override
+   public boolean ignoreEnable()
+   {
+      return config.explicitViewAs && config.readOnly && config.hidden;
+   }
    
    /**
     * Copy the widget state from the specified source widget to this instance.

=== modified file 'src/com/goldencode/p2j/ui/client/TypeAhead.java'
--- src/com/goldencode/p2j/ui/client/TypeAhead.java	2019-03-23 19:54:28 +0000
+++ src/com/goldencode/p2j/ui/client/TypeAhead.java	2020-11-25 20:19:41 +0000
@@ -2,7 +2,7 @@
 ** Module   : TypeAhead.java
 ** Abstract : Buffered keyboard with CTRL-C processing.
 **
-** Copyright (c) 2006-2019, Golden Code Development Corporation.
+** Copyright (c) 2006-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- ----------------Description-----------------
 ** 001 NVS 20060206   @24295 Initial version.
@@ -75,6 +75,9 @@
 **                           key reader.
 ** 030 HC  20181212          Implemented support for asynchronous key state read emulation.
 ** 031 CA  20190322          registerMouseWidgets is executed only if we start waiting for events.
+** 032 EVL 20201125          Replaced ArrayList with LinkedBlockingDeque as type ahead buffer to accumulate
+**                           key code events.  Optimized deque entries retrieving.  Also relaxed some sync
+**                           locking for operations with new buffer type.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -132,6 +135,7 @@
 package com.goldencode.p2j.ui.client;
 
 import java.util.*;
+import java.util.concurrent.*;
 import com.goldencode.p2j.security.*;
 import com.goldencode.p2j.ui.client.driver.*;
 import com.goldencode.p2j.ui.client.event.*;
@@ -148,7 +152,7 @@
    private static final ContextLocal<TypeAhead> local = new ContextLocal<>();
    
    /** The type-ahead buffer which keeps a strict FIFO ordering. */
-   private List<KeyCode> taBuf = new ArrayList<>();
+   private Deque<KeyCode> taBuf = new LinkedBlockingDeque<>(512);
    
    /** Suspend/resume flag. */
    private volatile boolean suspended = false;
@@ -310,7 +314,7 @@
    /**
     * Purges the type ahead buffer.
     */
-   public synchronized void clear()
+   public void clear()
    {
       taBuf.clear();
    }
@@ -569,14 +573,13 @@
     * @return   The complete event represented by the key code in the type
     *           ahead queue or <code>null</code> if the queue is empty.
     */
-   private synchronized KeyInput dequeueEvent()
+   private KeyInput dequeueEvent()
    {
       KeyInput event = null;
       
       if (!taBuf.isEmpty())
       {
-         event = EventManager.eventFromKey(taBuf.get(0));
-         taBuf.remove(0);
+         event = EventManager.eventFromKey(taBuf.poll());
       }
       
       return event;
@@ -680,16 +683,16 @@
                continue;
             }
             
+            if (disp == Watcher.CLEAR_AND_QUEUE)
+            {
+               taBuf.clear();
+            }
+               
+            // enqueue the raw key code
+            taBuf.add(key);
+               
             synchronized (TypeAhead.this)
             {
-               if (disp == Watcher.CLEAR_AND_QUEUE)
-               {
-                  taBuf.clear();
-               }
-               
-               // enqueue the raw key code
-               taBuf.add(key);
-               
                // awaken one waiting thread if there are any that are waiting
                TypeAhead.this.notify();
             }

=== modified file 'src/com/goldencode/p2j/ui/client/WidgetRegistry.java'
--- src/com/goldencode/p2j/ui/client/WidgetRegistry.java	2020-10-04 18:23:10 +0000
+++ src/com/goldencode/p2j/ui/client/WidgetRegistry.java	2021-01-18 17:53:57 +0000
@@ -2,7 +2,7 @@
 ** Module   : WidgetRegistry.java
 ** Abstract :
 **
-** Copyright (c) 2010-2020, Golden Code Development Corporation.
+** Copyright (c) 2010-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 SIY 20101015 Widget registry code from Screen moved into separate class. 
@@ -70,7 +70,18 @@
 **     HC  20200928 Fixed widget initialization to prevent editing backup copy. This resolves issues of
 **                  missed config field changes when changes are tracked.
 **     HC  20201004 Performance optimizations of server-client config state synchronization.
+** 042 IAS 20201009 Optimized access to the widgetList, removed getComponents() method
+** 043 CA  20201011 Optimized getComponent - if there is no DOWN widget with the same ID, then there is
+**                  no reason to go through the frame to compute it.
+**     HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
+**     GES 20201022 Added min/max ID range calculation which allows screen buffer offset mode to be used.
+**     EVL 20201106 Optimized getIDs array construction call.  Skip one more intremediate array creation and
+**                  minimize memory usage.
+**     CA  20201112 Avoid pushing the entire frame definition when setting the FRAME or PARENT attribute.
+**     CA  20210118 Replaced getIDs() with getWidgets() - this is used when building the ScreenBuffer instances,
+**                  and this approach avoids re-calculation of Widget instances from the registry.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -127,7 +138,7 @@
 package com.goldencode.p2j.ui.client;
 
 import java.util.*;
-import java.util.concurrent.locks.*;
+import java.util.concurrent.*;
 import java.util.function.Predicate;
 import java.util.logging.*;
 
@@ -145,6 +156,7 @@
  * 
  * @author 	SIY
  * @version 1.0
+ * @param <O> OutputManaget type
  */
 public class WidgetRegistry<O extends OutputManager<?>>
 {
@@ -152,14 +164,14 @@
    private static final Logger LOG = LogHelper.getLogger(WidgetRegistry.class);
    
    /** The list of the widgets in the current screen. */
-   private LinkedHashMap<WidgetId, Widget<O>> widgetList = new LinkedHashMap<>();
+   private ConcurrentMap<WidgetId, Widget<O>> widgetList = new ConcurrentHashMap<>();
+   
+   /** The set of registered widgets in a DOWN frame. */
+   private Set<WidgetDownId> downWidgetIds = Collections.newSetFromMap(new ConcurrentHashMap<>());
    
    /** We need to maintain the list of currently editable frames. */
    private Map<Frame<O>, Set<WidgetId>> editableFramesList = new HashMap<>();
    
-   /** Guard lock for access to the widgetList */
-   private final ReadWriteLock lock = new ReentrantReadWriteLock();
-   
    /** Flag indicating the UI client is in batch mode. */
    private boolean batchMode = false;
    
@@ -174,7 +186,7 @@
     * @return   The ancestor satisfied the target filter condition or null if there are no
     *           widgets satisfied this condition.
     */
-   public static Widget findAncestor(Widget w, Predicate<Widget> filter)
+   public static Widget<?> findAncestor(Widget<?> w, Predicate<Widget<?>> filter)
    {
       return findAncestor(w, false, filter);
    }
@@ -193,9 +205,9 @@
     * @return   The ancestor satisfied the target filter condition or null if there are no
     *           widgets satisfied this condition.
     */
-   public static Widget findAncestor(Widget w, boolean system, Predicate<Widget> filter)
+   public static Widget<?> findAncestor(Widget<?> w, boolean system, Predicate<Widget<?>> filter)
    {
-      Widget c = w;
+      Widget<?> c = w;
       while (c != null)
       {
          if (filter.test(c))
@@ -218,7 +230,7 @@
     * @return   The descendant having the specified type or null if there are no widgets
     *           satisfied this condition.
     */
-   public static Widget findDescendant(Widget w, Class type)
+   public static Widget<?> findDescendant(Widget<?> w, Class<?> type)
    {
       if (w.getClass().equals(type))
       {
@@ -227,9 +239,9 @@
       else if (w instanceof Container)
       {
          int index = 0;
-         Widget c; 
-         Widget target = null; 
-         for ( ;(c = ((Container) w).get(index)) != null && target == null; index++)
+         Widget<?> c; 
+         Widget<?> target = null; 
+         for ( ;(c = ((Container<?>) w).get(index)) != null && target == null; index++)
          {
             target = findDescendant(c, type);
          }
@@ -263,6 +275,7 @@
    public void clear()
    {
       widgetList.clear();
+      downWidgetIds.clear();
       editableFramesList.clear();
    }
    
@@ -354,24 +367,24 @@
       }
    }
 
-   /**
-    * Get all components defined in the screen.
-    * 
-    * @return  Array of component.
-    */
-   @SuppressWarnings("unchecked")
-   public Widget<O>[] getComponents()
-   {
-      lock.readLock().lock();
-      try
-      {
-         return widgetList.values().toArray(new Widget[widgetList.size()]);
-      }
-      finally
-      {
-         lock.readLock().unlock();
-      }
-   }
+//   /**
+//    * Get all components defined in the screen.
+//    * 
+//    * @return  Array of component.
+//    */
+//   @SuppressWarnings("unchecked")
+//   public Widget<O>[] getComponents()
+//   {
+//      lock.readLock().lock();
+//      try
+//      {
+//         return widgetList.values().toArray(new Widget[widgetList.size()]);
+//      }
+//      finally
+//      {
+//         lock.readLock().unlock();
+//      }
+//   }
 
    /**
     * Remove the given frame and all contained components from the master
@@ -453,7 +466,7 @@
     * @param    widToCheck
     *           The widget to check.
     */
-   public void addEditableFrameForWidget(Widget widToCheck)
+   public void addEditableFrameForWidget(Widget<?> widToCheck)
    {
       // wirtual widget will not be considered
       if (WidgetId.virtualWidget(widToCheck.getId()))
@@ -487,7 +500,7 @@
     * @param    widToCheck
     *           The widget to check.
     */
-   public void removeEditableFrameForWidget(Widget widToCheck)
+   public void removeEditableFrameForWidget(Widget<?> widToCheck)
    {
       // wirtual widget will not be considered
       if (WidgetId.virtualWidget(widToCheck.getId()))
@@ -546,22 +559,12 @@
       if (id.equals(WidgetId.DEFAULT_WINDOW_ID))
          return (Widget<O>) WindowManager.getDefaultWindow();
 
-      Widget<O> w = null;
-      lock.readLock().lock();
-      try
-      {
-         w = widgetList.get(id);
-      }
-      finally
-      {
-         lock.readLock().unlock();
-      }
-      
+      Widget<O> w = widgetList.get(id);
       if (w == null)
       {
          w = WindowManager.findWindow(id.asInt());
       }
-
+      
       return w;
    }
 
@@ -588,12 +591,12 @@
       {
          w = getComponent(new WidgetId(id));
       }
-      else 
+      else if (!downWidgetIds.isEmpty() && downWidgetIds.contains(new WidgetDownId(id, 1))) 
       {
          int frameID = lookupFrameIdFromWidgetId(id);
          if (frameID != id && frameID != -1)
          {
-            Frame<?> frame = (Frame<?>) getComponent(frameID);
+            Frame<O> frame = (Frame<O>) getComponent(frameID);
             WidgetId wid = Frame.resolveWidgetId(frame, id);
             Widget<O> widget = getComponent(wid);
 
@@ -606,6 +609,10 @@
             w = getComponent(new WidgetId(id));
          }
       }
+      else
+      {
+         w = getComponent(new WidgetId(id));
+      }
 
       if (w == null)
       {
@@ -627,11 +634,11 @@
    {
       int resultId = -1;
       
-      Widget<?> wid = getComponent(new WidgetId(widgetId));
+      Widget<O> wid = getComponent(new WidgetId(widgetId));
       
       if (wid != null)
       {
-         Frame<?> widFrame = (Frame<?>) UiUtils.locateFrame(wid);
+         Frame<O> widFrame = (Frame<O>) UiUtils.locateFrame(wid);
          
          if (widFrame != null)
          {
@@ -644,6 +651,24 @@
    }
 
    /**
+    * Attach a widget to a frame, at runtime.  The widget can be a dynamic widget or a full static frame.
+    * 
+    * @param    frame
+    *           The parent frame.
+    * @param    wid
+    *           The widget ID.
+    * @param    cfg
+    *           The widget's configuration.
+    */
+   public void attachRuntimeWidget(Frame<O> frame, int wid, WidgetConfig cfg)
+   {
+      reconstructWidget(cfg);
+      Widget<O> widget = getComponent(wid); 
+      
+      attachWidgetToFrame(frame, widget, widget.config());
+   }
+   
+   /**
     * Instantiate screen from the given array of definitions.
     * 
     * @param   sd
@@ -750,15 +775,15 @@
          if (menu != null)
          {
             addWidgetsToMenu(menuId, menuDescr);
-            if (menu instanceof Menu && !((Menu) menu).config().popupOnly)
+            if (menu instanceof Menu && !((Menu<O>) menu).config().popupOnly)
             {
-               ((Menu) menu).setVisible(true);
-               ((Menu) menu).doLayout();
+               ((Menu<O>) menu).setVisible(true);
+               ((Menu<O>) menu).doLayout();
             }
             else if (menu instanceof SubMenu)
             {
-               ((SubMenu) menu).setVisible(true);
-               ((SubMenu) menu).doLayout();
+               ((SubMenu<O>) menu).setVisible(true);
+               ((SubMenu<O>) menu).doLayout();
             }
          }
          
@@ -768,50 +793,70 @@
    }
    
    /**
-    * Get IDs of all widgets in the current screen belonging to the given frame.
-    * 
-    * @param   frameId
-    *          Frame ID whose widget ID info should be returned.
-    * 
-    * @return  Array of all IDs.
+    * Get all widgets in the current screen belonging to the given frame.
+    * 
+    * @param   frame
+    *          Frame whose widget info should be returned.
+    * @param   range
+    *          A container in which to store the minimum and maximum ID range, if non-null.
+    * 
+    * @return  Array of all widgets.
     */
-   public WidgetId[] getIDs(int frameId)
+   public Widget<O>[] getWidgets(Frame<O> frame, IdRange range)
    {
-      // check if the given frame is in registry
-      Frame<O> frame = (Frame<O>) getComponent(frameId);
-      
-      if (frame == null)
-      {
-         return null;
-      }
-      
       // get the list of widgets from frame
-      Widget<O>[] list = frame.getContentPane().widgets();
+      List<Widget<O>> list = frame.getContentPane().widgetsAsList(false);
 
-      if (list == null || list.length == 0)
+      if (list == null || list.size() == 0)
       {
          return null;
       }
       
       // enumerate all widgets and get ID
-      List<WidgetId> res = new ArrayList<>();
+      ArrayList<Widget<O>> res = new ArrayList<>(list.size());
       
-      for (int i = 0; i < list.length; i++)
+      for (Widget<O> w : list)
       {
-         res.add(UiUtils.getWidgetId(list[i]));
-         
-         if (list[i] instanceof Browse)
-         {
-            Browse brws = (Browse) list[i];
-            for (int j = 0; j < brws.getColumnCount(); j++)
+         res.add(w);
+         
+         WidgetId wid = w.getId();
+         
+         if (range != null)
+         {
+            int widAsInt = wid.asInt();
+            range.min = Math.min(range.min, widAsInt);
+            range.max = Math.max(range.max, widAsInt);
+         }
+         
+         if (w instanceof Browse)
+         {
+            Browse<O> brws = (Browse<O>) w;
+            int columnCount = brws.getColumnCount();
+            if (columnCount > 0)
             {
-               BrowseColumnConfig bcfg = brws.getColumnCfg(j);
-               res.add(bcfg.id);
+               // prepare enough room to store colums ID
+               res.ensureCapacity(res.size() + columnCount);
+               for (int j = 0; j < columnCount; j++)
+               {
+                  BrowseColumnConfig bcfg = brws.getColumnCfg(j);
+                  if (bcfg.id != null)
+                  {
+                     res.add(getComponent(bcfg.id));
+               
+                     if (range != null)
+                     {
+                        int col = bcfg.id.asInt();
+                  
+                        range.min = Math.min(range.min, col);
+                        range.max = Math.max(range.max, col);
+                     }
+                  }
+               }
             }
          }
       }
-      
-      return res.toArray(new WidgetId[res.size()]);
+
+      return res.toArray(new Widget[res.size()]);
    }
 
    /**
@@ -835,14 +880,21 @@
     */
    public void addWidget(WidgetId id, Widget<O> widget)
    {
-      lock.writeLock().lock();
-      try
-      {
-         this.widgetList.put(id, widget);
-      }
-      finally
-      {
-         lock.writeLock().unlock();
+      if (id == null)
+      {
+         LOG.warning("An attempt to register widget with null id, widget: " + 
+               (widget == null ? "null" : widget.getClass().getName()));
+         return;
+      }
+      if (widget  == null)
+      {
+         LOG.warning("An attempt to register null widget with id: " + id.toString());
+         return;
+      }
+      this.widgetList.put(id, widget);
+      if (id instanceof WidgetDownId)
+      {
+         this.downWidgetIds.add((WidgetDownId) id);
       }
    }
    
@@ -851,18 +903,21 @@
     * 
     * @param    id
     *           The widget ID.
+    * @return   removed widget
     */
-   public Widget<?> removeWidget(WidgetId id)
+   public Widget<O> removeWidget(WidgetId id)
    {
-      lock.writeLock().lock();
-      try
-      {
-         return this.widgetList.remove(id);
-      }
-      finally
-      {
-         lock.writeLock().unlock();
-      }
+      if (id == null)
+      {
+         LOG.warning("An attempt to remove widget with null id");
+         return null;
+      }
+      
+      if (id instanceof WidgetDownId)
+      {
+         downWidgetIds.remove(id);
+      }
+      return this.widgetList.remove(id);
    }
 
    /**
@@ -1028,68 +1083,85 @@
          WidgetConfig config = screen.getConfig(widgetIndex);
          Widget<O> nextWidget = getComponent(widgetIndex);
          
-         // associate browse columns with their browse widget which is a
-         // container (of sorts) itself
-         if (config instanceof BrowseColumnConfig)
-         {
-            Browse<O> browse = (Browse<O>) getComponent(((BrowseColumnConfig) config).browseId);
-            
-            if (browse != null)
-               ((BrowseColumn<O>) nextWidget).setBrowse(browse);
+         attachWidgetToFrame(frame, nextWidget, config);
+      }
+   }
    
-            continue;
-         }
-         
-         // determine if the frame's parent has changed. if so, attach it
-         if (config instanceof FrameConfig && !((Frame<O>) nextWidget).isRootFrame())
-         {
-            Container<O> nparent = nextWidget.parent();
-            
-            Container<O> parent = (Container<O>) UiUtils.locateFrame(nparent);
-            if (parent == null)
-            {
-               // not attached to a frame, get its direct parent
-               parent = nparent;
-            }
-            
-            if (parent != frame)
-            {
-               if (parent != null)
+   /**
+    * Attach a widget to a frame, at runtime.  The widget can be a dynamic widget or a full static frame.
+    * 
+    * @param    frame
+    *           The parent frame.
+    * @param    widget
+    *           The widget.
+    * @param    cfg
+    *           The widget's configuration.
+    */
+   private void attachWidgetToFrame(Frame<O> frame, Widget<O> widget, WidgetConfig config)
+   {
+      // associate browse columns with their browse widget which is a
+      // container (of sorts) itself
+      if (config instanceof BrowseColumnConfig)
+      {
+         Browse<O> browse = (Browse<O>) getComponent(((BrowseColumnConfig) config).browseId);
+         
+         if (browse != null)
+         {
+            ((BrowseColumn<O>) widget).setBrowse(browse);
+         }
+
+         return;
+      }
+      
+      // determine if the frame's parent has changed. if so, attach it
+      if (config instanceof FrameConfig && !((Frame<O>) widget).isRootFrame())
+      {
+         Container<O> nparent = widget.parent();
+         
+         Container<O> parent = (Container<O>) UiUtils.locateFrame(nparent);
+         if (parent == null)
+         {
+            // not attached to a frame, get its direct parent
+            parent = nparent;
+         }
+         
+         if (parent != frame)
+         {
+            if (parent != null)
+            {
+               nparent.detach(widget);
+               
+               if (widget.isVisible())
                {
-                  nparent.detach(nextWidget);
-                  
-                  if (nextWidget.isVisible())
-                  {
-                     parent.repaint();
-                  }
+                  parent.repaint();
                }
-               
-               frame.addWidget(nextWidget);
             }
+            
+            frame.addWidget(widget);
          }
-
-         // check if this widget has already had the frame assigned as the
-         // parent, if so then we MUST NOT add it to the widget list again
-         // since it is already there (the Container._addComponent() method
-         // sets the parent reference after unconditionally adding the 
-         // component to the components vector
-         if (nextWidget.parent() != null)
-            continue;
-   
-         // make widget disabled by default unless it is dynamic
-         if (nextWidget.isEnabled())
+      }
+
+      // check if this widget has already had the frame assigned as the
+      // parent, if so then we MUST NOT add it to the widget list again
+      // since it is already there (the Container._addComponent() method
+      // sets the parent reference after unconditionally adding the 
+      // component to the components vector
+      if (widget.parent() != null)
+      {
+         return;
+      }
+
+      // make widget disabled by default unless it is dynamic
+      if (widget.isEnabled())
+      {
+         WidgetConfig cfg = widget.config();
+         if (!(cfg != null && cfg instanceof BaseConfig && ((BaseConfig) cfg).dynamic))
          {
-            WidgetConfig cfg = nextWidget.config();
-            if (!(cfg != null &&
-                  cfg instanceof BaseConfig &&
-                  ((BaseConfig) cfg).dynamic))
-            {
-               nextWidget.setEnabled(false);
-            }
+            widget.setEnabled(false);
          }
-   
-         frame.addWidget(nextWidget);
       }
+
+      frame.addWidget(widget);
    }
    
    /**
@@ -1127,13 +1199,13 @@
    /**
     * Reconstruct the side-label with the specified config.
     * <p>
-    * This will not create a new {@link Label} instance.  It will only register the widget 
+    * This will not create a new {@link ClientDrivenLabel} instance.  It will only register the widget
     * configuration with the {@link ConfigManager}, so that changes to the label instance can be
     * tracked and sent back to the server.
     * <p>
     * Note that the registered widget configuration must be "linked" to the related label widget.
     * This is because the widget takes care of unregistering the label configuration. The link 
-    * is established in {@link Label#linkTo(int, int)}. 
+    * is established in {@link ClientDrivenLabel#linkTo(int, int)}.
     * 
     * @param   config
     *          Widget snapshot taken from the server.
@@ -1155,26 +1227,26 @@
       {
          // this may be a side-label in a down body - determine the widget to which it belongs,
          // and from there the row
-         Label<?> lbl = (Label<?>) getComponent(cid);
-         if (lbl != null)
+         Label<O> lbl = (Label<O>) getComponent(cid);
+         if (lbl instanceof ClientDrivenLabel)
          {
-            Widget<?> sideWidget = lbl.getSideWidget();
+            Widget<O> sideWidget = ((ClientDrivenLabel) lbl).getSideWidget();
             if (sideWidget != null && sideWidget instanceof LabeledWidget)
             {
                // determine the frame
-               Frame<?> frame = (Frame<?>) UiUtils.locateFrame(sideWidget);
+               Frame<O> frame = (Frame<O>) UiUtils.locateFrame(sideWidget);
                if (frame != null && frame.isSideLabels())
                {
-                  sideWidget = frame.getField((Widget) sideWidget);
+                  sideWidget = frame.getField((Widget<O>) sideWidget);
                   if (sideWidget instanceof LabeledWidget)
                   {
-                     lbl = ((LabeledWidget) sideWidget).getLabelInstance();
+                     lbl = (ClientDrivenLabel<O>) ((LabeledWidget<O>) sideWidget).getLabelInstance();
                      cid = lbl.getId();
                   }
                }
             }
          }
-         else
+         else if (lbl == null)
          {
             LOG.log(Level.SEVERE, "reconstrctSideLabel missing sideWidget " + cid);
          }
@@ -1191,4 +1263,16 @@
       // restore the id
       config.id = saveID;
    }
+   
+   /**
+    * Container class to store the minimum and maximum widget IDs. 
+    */
+   public static class IdRange
+   {
+      /** Smallest widget ID in the range. */
+      public int min = -1;
+      
+      /** Largest widget ID in the range. */
+      public int max = -1;
+   }
 }

=== modified file 'src/com/goldencode/p2j/ui/client/Window.java'
--- src/com/goldencode/p2j/ui/client/Window.java	2020-04-20 21:50:49 +0000
+++ src/com/goldencode/p2j/ui/client/Window.java	2020-11-20 18:40:59 +0000
@@ -275,7 +275,8 @@
 **                           widgets.
 ** 141 HC  20200313          Javadoc fixes.
 **     RFB 20200420          Added support for KEEP-MESSAGES option when output is redirected.
-**                           Missed the suppression of the pauseBeforeHide when keepMessages is on.                        
+**                           Missed the suppression of the pauseBeforeHide when keepMessages is on.
+** 142 CA  20201015          Replaced java.util.Stack with ArrayDeque (as synchronization is not required).
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -2658,6 +2659,6 @@
    private static final class WorkArea
    {
       /** Statuses data stack. Entry contains statusTypes and input counter */
-      private final Stack<StatusData> statusStack = new Stack<StatusData>();
+      private final Deque<StatusData> statusStack = new ArrayDeque<StatusData>();
    }
 }

=== modified file 'src/com/goldencode/p2j/ui/client/WindowManager.java'
--- src/com/goldencode/p2j/ui/client/WindowManager.java	2020-03-16 17:30:47 +0000
+++ src/com/goldencode/p2j/ui/client/WindowManager.java	2020-11-04 17:08:46 +0000
@@ -116,6 +116,9 @@
 ** 063 HC  20191023 Added support for WM_SIZE, WM_MOVE and WM_EXITSIZEMOVE messages delivered by
 **                  Message blaster.
 ** 064 HC  20200313 Javadoc fixes.
+** 065 CA  20201011 Optimized findWindow(int) - keep a map of windows by their ID, for fast access.
+**     CA  20201015 Optimized isDisplayed(int) - keep a fast-access bitmap of window IDs.
+**     EVL 20201104 Fixed regression in ChUI for drop-down widget without ID.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -177,6 +180,8 @@
 import java.util.logging.*;
 import java.util.stream.*;
 
+import org.roaringbitmap.RoaringBitmap;
+
 import com.goldencode.p2j.security.*;
 import com.goldencode.p2j.ui.*;
 import com.goldencode.p2j.ui.chui.ThinClient;
@@ -341,6 +346,14 @@
          {
             wa.windows.add(window);
             wa.fixedOrderWindows.add(window);
+            // consider ChUI specific here (drop down has no wisget ID)
+            WidgetId wid = window.getId();
+            if (wid != null)
+            {
+               int widInt = wid.asInt();
+               wa.windowIDs.put(widInt, window);
+               wa.windowIDSet.add(widInt);
+            }
          }
       }
    }
@@ -628,10 +641,7 @@
    @SuppressWarnings({ "rawtypes", "unchecked" })
    public static <T extends TitledWindow> T findWindow(int windowId)
    {
-      return (T) windowList().stream()
-               .filter((TitledWindow w) -> WidgetId.equals(w.getId(), windowId))
-               .findFirst()
-               .orElse(null);
+      return (T) work.get().windowIDs.get(windowId);
    }
 
    /**
@@ -666,6 +676,8 @@
       synchronized (wa.windows)
       {
          wa.windows.clear();
+         wa.windowIDs.clear();
+         wa.windowIDSet.clear();
          wa.fixedOrderWindows.clear();
       }
    }
@@ -680,7 +692,7 @@
    {
       // ChUI has a peculiarity here... it requires the top window (if is a message-box or 
       // something else) regardless of visibility state.
-      boolean isChui = ThinClient.getInstance().isChui();
+      boolean isChui = work.get().isChUI;
 
       return Utils.reverseStream(windowList())
                .filter((TitledWindow w) -> isChui || (w.isVisible() && !(w instanceof DropDown)))
@@ -1058,7 +1070,7 @@
          
          // activate the window only after it has been added to window manager
          om.registerWindow(window);
-         if (ThinClient.getInstance().isChui())
+         if (work.get().isChUI)
          {
             // in ChUI the default window is always the active window
             window.setVisible(true);
@@ -1133,7 +1145,16 @@
       
       synchronized (wa.windows)
       {
-         return wa.windows.contains(window);
+         // ChUI has specific for drop-down, no widget ID
+         WidgetId wid = window.getId();
+         if (wa.isChUI || wid == null)
+         {
+            return wa.windows.contains(window);
+         }
+         else
+         {
+            return wa.windowIDSet.contains(wid.asInt());
+         }
       }
    }
 
@@ -1179,6 +1200,14 @@
          wa.windows.remove(window);
          wa.fixedOrderWindows.remove(window);
          wa.currentWindowsStack.remove(window);
+         // in ChUI the widget ID is null for drop-down
+         WidgetId wid = window.getId();
+         if (wid != null)
+         {
+            int widInt = wid.asInt();
+            wa.windowIDs.remove(widInt);
+            wa.windowIDSet.remove(widInt);
+         }
          
          Map<GuiWindow, Set<TopLevelWindow>> delayed = wa.delayedMinimizeWindows;
          delayed.remove(window);
@@ -2300,9 +2329,18 @@
     * Stores global data relating to the state of the current context.
     */
    private static class WorkArea
-   {  
+   {
+      /** Check if the current session GUI or ChUI. */
+      private boolean isChUI = ThinClient.getInstance().isChui();
+      
+      /** A map to identify each window by its ID. */
+      private Map<Integer, TitledWindow<?>> windowIDs = new HashMap<>();
+      
       /** Storage for windows. */
       private List<TitledWindow<?>> windows = new ArrayList<>();
+      
+      /** A bitmap for all window IDs. */
+      private RoaringBitmap windowIDSet = new RoaringBitmap();
 
       /** Storage for windows, following their creation order. */
       private List<TitledWindow<?>> fixedOrderWindows = new ArrayList<>();

=== modified file 'src/com/goldencode/p2j/ui/client/ZeroColumnLayout.java'
--- src/com/goldencode/p2j/ui/client/ZeroColumnLayout.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/ZeroColumnLayout.java	2020-10-24 22:32:57 +0000
@@ -313,6 +313,7 @@
 **     HC  20180611          Fixed calculation of frame header when the frame has no labels
 **                           defined.
 ** 142 SBI 20200820          Fixed field placements with no-labels.
+**     HC  20201024          Implemented SIDE-LABEL-HANDLE attribute.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -666,7 +667,7 @@
       // determine presence of headers and drawing mode
       for (int i = 0; i < c.length; i++)
       {
-         if (c[i] instanceof Label)
+         if (c[i] instanceof ClientDrivenLabel)
             continue;
          
          if (UiUtils.hasConfig(c[i]))
@@ -814,7 +815,7 @@
          if (hasHeaders && i <= (lastHeader + 1))
             continue;
          
-         if (c[i] instanceof Label)
+         if (c[i] instanceof ClientDrivenLabel)
             continue;
          
          if (c[i] instanceof Skip)
@@ -940,16 +941,16 @@
       
       // this is used to draw the horizontal line below headers, it is a
       // bogus widget with no text but with underlining
-      Label<O> delimiter = null;
+      ClientDrivenLabel<O> delimiter = null;
       
       // first pass, calculate size
       for (int i = 0; i < c.length; i++)
       {
-         if (c[i] instanceof Label)
+         if (c[i] instanceof ClientDrivenLabel)
          {
-            if (((Label<O>) c[i]).isDelimiter())
+            if (((ClientDrivenLabel<O>) c[i]).isDelimiter())
             {
-               delimiter = (Label<O>) c[i];
+               delimiter = (ClientDrivenLabel<O>) c[i];
             }
             
             continue;
@@ -1144,7 +1145,7 @@
       // second pass, calculate/relocate
       for (int i = 0; i < c.length; i++)
       {
-         if (c[i] instanceof Label)
+         if (c[i] instanceof ClientDrivenLabel)
          {
             continue;
          }
@@ -1553,7 +1554,7 @@
       {
          vars.startColumn = 0;
          
-         if (c[i] instanceof Label && ((Label) c[i]).isDelimiter())
+         if (c[i] instanceof ClientDrivenLabel && ((ClientDrivenLabel) c[i]).isDelimiter())
          {
             container.remove(c[i]);
             continue;
@@ -1566,7 +1567,7 @@
                vars.hdrWidth = vars.nextColumn;
          }
          
-         if (c[i] instanceof Label)
+         if (c[i] instanceof ClientDrivenLabel)
             continue;
          
          vars.initWidgetLocation(i);
@@ -1919,7 +1920,7 @@
             // safe, comparison of scaled doubles
             if (labelText != null && (labels || fin.isForceLabel()) && !fin.isNoLabels())
             {
-               Label<O> label = null;
+               ClientDrivenLabel<O> label = null;
                Dimension sz = c[i].dimension();
                
                WidgetId nextId = c[i].getId().createId(WidgetId.nextID());
@@ -2295,8 +2296,8 @@
          Dimension sz = c[i].dimension();
          String labelText = getLabel(fin);
          Label<O> removed = fin.getLabelInstance();
-         
-         Label<O> label = null;
+
+         ClientDrivenLabel<O> label = null;
          WidgetId nextId = c[i].getId().createId(WidgetId.nextID());
          
          // side-label space width including colon and space
@@ -2930,7 +2931,7 @@
          {
             Label label = ((LabeledWidget) w).getLabelInstance();
             if (label != null &&
-                ConfigHelper.getAssignedColumn(label.config) == BaseConfig.INV_COORD)
+                ConfigHelper.getAssignedColumn(label.config()) == BaseConfig.INV_COORD)
             {
                String labelText = getLabel((LabeledWidget<O>) w);
                double labelSpaceWith = labelWidth((LabeledWidget<?>) w, labelText + ": ");
@@ -2952,7 +2953,7 @@
       private void setLabelLocation(Label<O> label, double col, double row)
       {
          label.setLocation(col, row);
-         label.config.widgetPlaced = true;
+         label.config().widgetPlaced = true;
       }
    }
    

=== modified file 'src/com/goldencode/p2j/ui/client/chui/ChuiLinuxKeyboard.java'
--- src/com/goldencode/p2j/ui/client/chui/ChuiLinuxKeyboard.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/p2j/ui/client/chui/ChuiLinuxKeyboard.java	2020-10-11 16:07:42 +0000
@@ -2,10 +2,11 @@
 ** Module   : ChuiLinuxKeyboard.java
 ** Abstract : Keyboard configuration for Linux ChUI clients. 
 **
-** Copyright (c) 2014-2017, Golden Code Development Corporation.
+** Copyright (c) 2014-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 CA  20141029 Created initial version.
+** 002 CA  20201011 Improved findKey and findKeyEnd performance.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -96,7 +97,9 @@
       basicKeys[618] = "MOUSE-MOVE-DOWN";
       basicKeys[626] = "MOUSE-MOVE-CLICK";
       basicKeys[650] = "MOUSE-MOVE-DBLCLICK";
-
+      
+      initBasicKeyCodes();
+      
       // filling the map of alternate key labels
       addAltLabel("ENTER", 13);
       addAltLabel("SHIFT-TAB", 509);

=== modified file 'src/com/goldencode/p2j/ui/client/chui/ChuiWindowsKeyboard.java'
--- src/com/goldencode/p2j/ui/client/chui/ChuiWindowsKeyboard.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/p2j/ui/client/chui/ChuiWindowsKeyboard.java	2021-01-28 20:00:25 +0000
@@ -2,10 +2,12 @@
 ** Module   : ChuiWindowsKeyboard.java
 ** Abstract : Keyboard configuration for Windows ChUI clients. 
 **
-** Copyright (c) 2014-2017, Golden Code Development Corporation.
+** Copyright (c) 2014-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 CA  20141029 Created initial version.
+** 002 CA  20201011 Improved findKey and findKeyEnd performance.
+** 003 CA  20210127 Fixed key-code to detect extended labels.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -86,17 +88,6 @@
    @Override
    public void init()
    {
-      super.init();
-
-      basicKeys[13] = "ENTER";
-      basicKeys[509] = "SHIFT-TAB";
-      basicKeys[512] = "DELETE";
-      basicKeys[525] = "ENTER";
-      basicKeys[610] = "MIDDLE-MOUSE-UP";
-      basicKeys[618] = "MIDDLE-MOUSE-DOWN";
-      basicKeys[626] = "MIDDLE-MOUSE-CLICK";
-      basicKeys[650] = "MIDDLE-MOUSE-DBLCLICK";
-      
       // differences for multi-byte keys
       extendedKeys.put(1021, "SHIFT-SHIFT-TAB");
       extendedKeys.put(1024, "ALT");
@@ -118,6 +109,19 @@
       extendedKeys.put(3597, "CTRL-SHIFT-ALT-ENTER");
       extendedKeys.put(4093, "CTRL-SHIFT-ALT-SHIFT-TAB");
 
+      super.init();
+
+      basicKeys[13] = "ENTER";
+      basicKeys[509] = "SHIFT-TAB";
+      basicKeys[512] = "DELETE";
+      basicKeys[525] = "ENTER";
+      basicKeys[610] = "MIDDLE-MOUSE-UP";
+      basicKeys[618] = "MIDDLE-MOUSE-DOWN";
+      basicKeys[626] = "MIDDLE-MOUSE-CLICK";
+      basicKeys[650] = "MIDDLE-MOUSE-DBLCLICK";
+      
+      initBasicKeyCodes();
+      
       // filling the map of alternate key labels
       addAltLabel("RETURN", 13);
       addAltLabel("BACK-TAB", 509);
@@ -272,4 +276,4 @@
    {
       return code == 634 || super.useRule3(code);
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/ui/client/chui/driver/web/ChuiWebPageHandler.java'
--- src/com/goldencode/p2j/ui/client/chui/driver/web/ChuiWebPageHandler.java	2018-04-05 06:32:08 +0000
+++ src/com/goldencode/p2j/ui/client/chui/driver/web/ChuiWebPageHandler.java	2021-01-14 08:53:32 +0000
@@ -2,7 +2,7 @@
 ** Module   : ChuiWebPageHandler.java
 ** Abstract : ChUI-specific page handler
 **
-** Copyright (c) 2013-2017 Golden Code Development Corporation.
+** Copyright (c) 2013-2021 Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 MAG 20131105 Created initial version.
@@ -16,6 +16,7 @@
 ** 008 GES 20150717 Moved clipboard processing back here because it is not conditional for GUI.
 ** 009 SBI 20160601 Added graphicsCached parameter to the index.html template.
 ** 010 SBI 20180405 Changed to use template key and value provider.
+** 011 HC  20210114 Added missing template parameters.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -204,6 +205,10 @@
          {
             return "false";
          });
+
+         add("disablePixelManipulation", () -> "false");
+
+         add("renderer", () -> "canvas2d");
       }
    }
 }
\ No newline at end of file

=== modified file 'src/com/goldencode/p2j/ui/client/driver/WidgetFactory.java'
--- src/com/goldencode/p2j/ui/client/driver/WidgetFactory.java	2020-03-16 17:30:47 +0000
+++ src/com/goldencode/p2j/ui/client/driver/WidgetFactory.java	2020-10-24 22:32:57 +0000
@@ -32,6 +32,7 @@
 ** 017 OM  20170815 Added createFileSystemChooserDialog() method.
 ** 019 HC  20200130 Added support for dynamic registration of widget implementations.
 ** 020 HC  20200313 Javadoc fixes.
+** 021 HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
 */
 
 /*
@@ -112,7 +113,7 @@
    MnemonicInfo createMnemonic();
    
    /**
-    * Create new {@link Label} instance for given text.
+    * Create new {@link ClientDrivenLabel} instance for given text.
     * 
     * @param   id
     *          The widget's ID.
@@ -122,9 +123,9 @@
     *          The ID of the frame to which the label belongs, or -1 if unknown at the time of the 
     *          creation.
     * 
-    * @return  new {@link Label} instance.
+    * @return  new {@link ClientDrivenLabel} instance.
     */
-   Label<O> createLabel(WidgetId id, String text, int frameId);
+   ClientDrivenLabel<O> createLabel(WidgetId id, String text, int frameId);
 
    /**
     * Create new button for given container and text.
@@ -235,19 +236,19 @@
    ScrollPane<O> createScrollPane(ScrollableWidget<O> widget, Supplier<TopLevelWindow<O>> wnd);
    
    /**
-    * Create UI-specific {@link Label} instance as a copy of given {@link Label}.
+    * Create UI-specific {@link ClientDrivenLabel} instance as a copy of given {@link ClientDrivenLabel}.
     * 
     * @param   id
     *          The widget's ID.
     * @param   labelInstance
-    *          Source {@link Label} instance.
+    *          Source {@link ClientDrivenLabel} instance.
     * @param   frameId
     *          The ID of the frame to which the label belongs, or -1 if unknown at the time of the 
     *          creation.
     *          
-    * @return  instance of UI-specific implementation of {@link Label}.
+    * @return  instance of UI-specific implementation of {@link ClientDrivenLabel}.
     */
-   Label<O> createLabel(WidgetId id, Label<O> labelInstance, int frameId);
+   ClientDrivenLabel<O> createLabel(WidgetId id, ClientDrivenLabel<O> labelInstance, int frameId);
    
    /**
     * Create UI-specific {@link RadioButton} instance.

=== modified file 'src/com/goldencode/p2j/ui/client/driver/swing/WinKeyboardReader.java'
--- src/com/goldencode/p2j/ui/client/driver/swing/WinKeyboardReader.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/driver/swing/WinKeyboardReader.java	2021-01-28 17:31:08 +0000
@@ -3,7 +3,7 @@
 ** Abstract : process swing key events and convert them to 4GL keys, compatible with Windows 
 **            clients.
 **
-** Copyright (c) 2014-2020, Golden Code Development Corporation.
+** Copyright (c) 2014-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 CA  20141029 Created initial version.
@@ -40,6 +40,7 @@
 **     AIL 20200309 Restored the key release event generation.
 **     AIL 20200525 Changed KeyCode called constructor.
 **     AIL 20200803 Avoid generating key released events for SPACE keys with modifiers.
+**     CA  20210128 A pure ALT key must be sent to the client (menubar processing).
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -411,7 +412,7 @@
          else
          {
             Integer mappedCode;
-            if (isModifier(lastKeyCode))
+            if (isModifier(lastKeyCode) && lastKeyCode != KeyEvent.VK_ALT)
             {
                mappedCode = -1;
             }

=== modified file 'src/com/goldencode/p2j/ui/client/driver/web/WebClientMessageTypes.java'
--- src/com/goldencode/p2j/ui/client/driver/web/WebClientMessageTypes.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/driver/web/WebClientMessageTypes.java	2021-01-24 20:39:20 +0000
@@ -2,7 +2,7 @@
 ** Module   : WebClientMessageTypes.java
 ** Abstract : defines the message header type code for all possible web client protocol messages
 **
-** Copyright (c) 2014-2020, Golden Code Development Corporation.
+** Copyright (c) 2014-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ------------------------------Description----------------------------------
 ** 001 GES 20150317 Copied from ChuiWebSimulator for shared usage.
@@ -56,6 +56,7 @@
 ** 026 HC  20200408 Implemented JS client - Java client message throttling, multiple messages
 **                  sent in a group as a single message.
 ** 027 HC  20200726 Initial implementation of SPREADSHEET widget and related changes.
+**     HC  20210124 Added messages for enabling or disabling graphics caching. 
 */
 
 /*
@@ -414,9 +415,6 @@
    /** Ask clipboard contents to be pasted in web client. */
    public static final byte MSG_CLIPBOARD_ASK_FOR_PASTE   = (byte) 0xB8;
 
-   /** Message for triggering high-level driver widget events. */
-   public static final byte MSG_TRIGGER_EVENT   = (byte) 0xB9;
-
    /** Getting the client's hostname. */
    public static final byte MSG_GET_HOST_NAME   = (byte) 0xB9;
    
@@ -429,6 +427,15 @@
    /** File choose dialog for upload or file selection */
    public static final byte MSG_FILE_CHOOSE = (byte) 0xBC;
 
+   /** Message for triggering high-level driver widget events. */
+   public static final byte MSG_TRIGGER_EVENT   = (byte) 0xBD;
+
+   /** Enables graphics caching */
+   public static final byte MSG_ENABLE_GRAPHICS_CACHE = (byte) 0xBE;
+
+   /** Disables graphics caching */
+   public static final byte MSG_DISABLE_GRAPHICS_CACHE = (byte) 0xBF;
+
    /** Requests the client if the target font is installed. */
    public static final byte MSG_IS_FONT_INSTALLED  = (byte) 0xF1;
 

=== modified file 'src/com/goldencode/p2j/ui/client/driver/web/WebClientProtocol.java'
--- src/com/goldencode/p2j/ui/client/driver/web/WebClientProtocol.java	2020-04-08 22:25:30 +0000
+++ src/com/goldencode/p2j/ui/client/driver/web/WebClientProtocol.java	2020-11-30 18:01:47 +0000
@@ -25,6 +25,9 @@
 ** 011 HC  20191120 Extended SYSTEM-DIALOG GET-FILE with AT-WEB-BROWSER option.
 ** 012 HC  20200408 Implemented JS client - Java client message throttling, multiple messages
 **                  sent in a group as a single message.
+** 013 EVL 20201026 Converting if ... else if into usage of the switch ... case to enable using jump table on
+**                  the JIT compiler optimization.
+**     EVL 20201130 Small optimizations for text message reading/writing.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -397,84 +400,104 @@
    {
       boolean handled = false;
       
-      if (length == 1 && message[offset] == MSG_PAGE_LOADED)
-      {
-         receiveResult(MSG_PAGE_LOADED, new Object());
-      }
-      else if (length == 25 && message[offset] == MSG_GET_WEB_BASIC_PALETTE)
-      {
-         int msgId = readMessageInt32(message, offset + 1);
-         
-         int i = 0;
-         
-         int c1 = readMessageInt32(message, offset + 5);
-         int c2 = readMessageInt32(message, offset + 9);
-         int c3 = readMessageInt32(message, offset + 13);
-         int c4 = readMessageInt32(message, offset + 17);
-         int c5 = readMessageInt32(message, offset + 21);
-         
-         receiveResult(msgId, new int[] {c1, c2, c3, c4, c5});
-         handled = true;
-      }
-      else if (length == 4 && message[offset] == MSG_KEY)
-      {
-         int keystroke = readMessageInt16(message, offset + 1);
-         byte keystate =  message[offset + 3];
-         
-         synchronized (lock)
-         {
-            keyBuffer.offerLast(new KeyCode(keystroke, keystate));
-            lock.notifyAll();
-         }
-         
-         handled = true;
-      }
-      else if (length == 5 && message[offset] == MSG_KEY_VT100)
-      {
-         int keyCode  = readMessageInt16(message, offset + 1);
-         int charCode = readMessageInt16(message, offset + 3);
-         
-         callbacks.injectVT100Key(keyCode, (char) charCode);
-         
-         handled = true;
-      }
-      else if (length > 1 && message[offset] == MSG_PASTE)
-      {
-         paste(message, offset, length);
-         handled = true;
-      }
-      else if (length > 11 && message[offset] == MSG_PARTIAL)
-      {
-         getMessagesCollector().processPartialMesssage(message, offset);
-         handled = true;
-      }
-      else if (message[offset] == MSG_PING_PONG && length == 1)
-      {
-         sendBinaryMessage(MSG_PING_PONG);
-         handled = true;
-      }
-      else if (message[offset] == MSG_QUIT && length == 1)
-      {
-         // exit the client session
-         System.exit(0);
-      }
-      else if (message[offset] == MSG_MULTIPLEX)
-      {
-         offset++;
-
-         int msgCount = readMessageInt32(message, offset);
-         offset += 4;
-
-         for (int i = 0; i < msgCount; i++)
-         {
-            int len = readMessageInt32(message, offset);
+      switch (message[offset])
+      {
+         case MSG_PAGE_LOADED:
+            if (length == 1)
+            {
+               receiveResult(MSG_PAGE_LOADED, new Object());
+            }
+            break;
+         case MSG_GET_WEB_BASIC_PALETTE:
+            if (length == 25)
+            {
+               int msgId = readMessageInt32(message, offset + 1);
+         
+               int i = 0;
+         
+               int c1 = readMessageInt32(message, offset + 5);
+               int c2 = readMessageInt32(message, offset + 9);
+               int c3 = readMessageInt32(message, offset + 13);
+               int c4 = readMessageInt32(message, offset + 17);
+               int c5 = readMessageInt32(message, offset + 21);
+         
+               receiveResult(msgId, new int[] {c1, c2, c3, c4, c5});
+               handled = true;
+            }
+            break;
+         case MSG_KEY:
+            if (length == 4)
+            {
+               int keystroke = readMessageInt16(message, offset + 1);
+               byte keystate =  message[offset + 3];
+         
+               synchronized (lock)
+               {
+                  keyBuffer.offerLast(new KeyCode(keystroke, keystate));
+                  lock.notifyAll();
+               }
+         
+               handled = true;
+            }
+            break;
+         case MSG_KEY_VT100:
+            if (length == 5)
+            {
+               int keyCode  = readMessageInt16(message, offset + 1);
+               int charCode = readMessageInt16(message, offset + 3);
+         
+               callbacks.injectVT100Key(keyCode, (char) charCode);
+         
+               handled = true;
+            }
+            break;
+         case MSG_PASTE:
+            if (length > 1)
+            {
+               paste(message, offset, length);
+               handled = true;
+            }
+            break;
+         case MSG_PARTIAL:
+            if (length > 11)
+            {
+               getMessagesCollector().processPartialMesssage(message, offset);
+               handled = true;
+            }
+            break;
+         case MSG_PING_PONG:
+            if (length == 1)
+            {
+               sendBinaryMessage(MSG_PING_PONG);
+               handled = true;
+            }
+            break;
+         case MSG_QUIT:
+            if (length == 1)
+            {
+               // exit the client session
+               System.exit(0);
+            }
+            break;
+         case MSG_MULTIPLEX:
+            offset++;
+
+            int msgCount = readMessageInt32(message, offset);
             offset += 4;
 
-            processBinaryMessage(message, offset, len);
-            offset += len;
-         }
-
-         handled = true;
+            for (int i = 0; i < msgCount; i++)
+            {
+               int len = readMessageInt32(message, offset);
+               offset += 4;
+
+               processBinaryMessage(message, offset, len);
+               offset += len;
+            }
+
+            handled = true;
+            break;
+         default:
+            // nothing to do here
       }
       
       return handled;
@@ -711,14 +734,20 @@
     */
    public String readMessageText(byte[] message, int startPos, int endPos)
    {
-      StringBuilder sb = new StringBuilder();
-      
-      for (int i = startPos; i < endPos; i += 2)
-      {
-         sb.append((char) readMessageInt16(message, i));
-      }
-      
-      return sb.toString();
+      if (endPos > startPos + 1)
+      {
+         char[] chars = new char[(endPos - startPos)/2];
+         for (int i = startPos, j = 0; i < endPos; i += 2, j++)
+         {
+            chars[j] = (char) readMessageInt16(message, i);
+         }
+      
+         return new String(chars);
+      }
+      else
+      {
+         return "";
+      }
    }
 
    /**
@@ -806,7 +835,15 @@
       for (int i = 0; i < len; i++)
       {
          // TODO: all unicode chars won't necessarily fit in 16-bits
-         offset = writeMessageInt16(message, offset, (int) text.charAt(i));
+         if (i + 1 < len)
+         {
+            offset = writeMessageInt32(message, offset,
+                                       (((int) text.charAt(i)) << 16) | (int) text.charAt(++i));
+         }
+         else
+         {
+            offset = writeMessageInt16(message, offset, (int) text.charAt(i));
+         }
       }
       return offset;
    }

=== modified file 'src/com/goldencode/p2j/ui/client/driver/web/index.html'
--- src/com/goldencode/p2j/ui/client/driver/web/index.html	2020-06-13 18:20:42 +0000
+++ src/com/goldencode/p2j/ui/client/driver/web/index.html	2020-12-02 15:02:19 +0000
@@ -57,6 +57,8 @@
       
       <link rel="stylesheet" type="text/css" href="${webRoot}/dojo-toolkit/dijit/themes/claro/claro.css">
       <link rel="stylesheet" type="text/css" href="${webRoot}/dojo-toolkit/dojox/form/resources/UploaderFileList.css" />
+      <link rel="stylesheet" type="text/css" href="${webRoot}/dojo-toolkit/dojox/grid/enhanced/resources/claro/EnhancedGrid.css" />
+      <link rel="stylesheet" type="text/css" href="${webRoot}/dojo-toolkit/dojox/grid/enhanced/resources/EnhancedGrid_rtl.css" />
       <style type="text/css">
          .wait, .wait * { cursor: wait !important; }
          .hidden   {
@@ -114,6 +116,8 @@
       <script type="text/javascript" src="${webRoot}/common/p2j.sound.js"></script>
       <script type="text/javascript" src="${webRoot}/client/p2j.strokes.js"></script>
       <script type="text/javascript" src="${webRoot}/client/p2j.canvas_renderer.js"></script>
+      <script type="text/javascript" src="${webRoot}/client/p2j.strokes.webgl.js"></script>
+      <script type="text/javascript" src="${webRoot}/client/p2j.canvas_renderer_webgl.js"></script>
       <script type="text/javascript" src="${webRoot}/client/p2j.virtual_desktop.js"></script>
       <script type="text/javascript" src="${webRoot}/client/p2j.mouse.js"></script>
       <script type="text/javascript" src="${webRoot}/client/p2j.screen.js"></script>
@@ -124,6 +128,7 @@
       <script type="text/javascript" src="${webRoot}/common/p2j.clipboard.js"></script>
       <script type="text/javascript" src="${webRoot}/common/p2j.fonts.js"></script>
       <script type="text/javascript" src="${webRoot}/common/p2j.remote.js"></script>
+      <script type="text/javascript" src="${webRoot}/client/p2j.perf_tests.js"></script>
       
       <script>
       require(["dojo"], function(dojo)
@@ -166,8 +171,61 @@
                'container' : 'cont',
                'embedded'  : ${embedded},
                'graphicsCached' : ${graphicsCached},
-               'webRoot'   : '${webRoot}'
+               'disablePixelManipulation' : ${disablePixelManipulation},
+               'webRoot'   : '${webRoot}',
+               'renderer'  : '${renderer}'
             });
+            
+            
+            /** Task bar context menu */
+            require(["dojo/dom", "dijit/Menu", "dijit/MenuItem", "dijit/MenuSeparator", "dijit/PopupMenuItem", "dojo/domReady!"],
+                    function(dom, Menu, MenuItem, MenuSeparator)
+                    {
+                       var taskBarContextMenu = new Menu({
+                           targetNodeIds: ["taskBar"],
+                           ownerDocument: document,
+                           selector: "canvas",
+                           title: "Debug tools",
+                           onBlur: function()
+                           {
+                              p2j.clipboard.enabled = true;
+                           },
+                           onOpen: function(event)
+                           {
+                              p2j.clipboard.enabled = false;
+                           },
+                       });
+                       taskBarContextMenu.addChild(new MenuItem({
+                          label: "View Log Output",
+                          onClick: function(evt)
+                          {
+                             p2j.clipboard.enabled = true;
+                             p2j.logger.viewLog();
+                          }
+                       }));
+                       taskBarContextMenu.addChild(new MenuSeparator());
+                       taskBarContextMenu.addChild(new MenuItem({
+                          label: "Performance Tests",
+                          onClick: function(evt)
+                          {
+                             p2j.clipboard.enabled = true;
+                             p2j.perfTests.open();
+                          }
+                       }));
+                       
+                       taskBarContextMenu.startup();
+                       
+                       Object.defineProperty(
+                             p2j,
+                             "taskBarContextMenu",
+                             {
+                                get: function ()
+                                {
+                                   return taskBarContextMenu;
+                                }
+                             });
+
+                    });
          });
       });
       </script>
@@ -187,4 +245,4 @@
       </div>
       <textarea name="copy" id="copy" value="" class="hidden"></textarea>
    </body>
-</html>
\ No newline at end of file
+</html>

=== modified file 'src/com/goldencode/p2j/ui/client/driver/web/res/p2j.clipboard.js'
--- src/com/goldencode/p2j/ui/client/driver/web/res/p2j.clipboard.js	2019-04-03 03:41:01 +0000
+++ src/com/goldencode/p2j/ui/client/driver/web/res/p2j.clipboard.js	2020-10-16 18:08:44 +0000
@@ -302,6 +302,10 @@
     */
    function focusHiddenInputField()
    {
+      if (!me.enabled)
+      {
+         return;
+      }
       inputText.focus();
       inputText.select();
    }

=== modified file 'src/com/goldencode/p2j/ui/client/driver/web/res/p2j.js'
--- src/com/goldencode/p2j/ui/client/driver/web/res/p2j.js	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/driver/web/res/p2j.js	2021-01-24 20:39:20 +0000
@@ -2,7 +2,7 @@
 ** Module   : p2j.js
 ** Abstract : top-level web client java script object 
 **
-** Copyright (c) 2014-2020, Golden Code Development Corporation.
+** Copyright (c) 2014-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ------------------------------Description----------------------------------
 ** 001 MAG 20140110 First version.
@@ -41,6 +41,8 @@
 **     SBI 20191218 Fixed the document view to be scrollable, webrtc is not supported with IE11.
 ** 020 HC  20200714 Improved canvas drawing performance.
 **     HC  20200726 Initial implementation of SPREADSHEET widget and related changes.
+** 021 SBI 20201218 Added saveAs to export the given content to the file on the client file system.
+**     HC  20210124 Added methods getCookie and setCookie.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -343,6 +345,7 @@
                queryCommandSupported[cmd] = false;
             }
          });
+      
       Object.defineProperty(
          p2j,
          "commandSupported",
@@ -366,6 +369,16 @@
                }
             });
       
+      Object.defineProperty(
+            p2j,
+            "disablePixelManipulation",
+            {
+               get: function ()
+               {
+                  return cfg.disablePixelManipulation;
+               }
+            });
+      
       /** Set up callback to store the client IP. */
       getUserIP(setIP);
       
@@ -480,6 +493,39 @@
    };
 
    /**
+    * Enable or disable image smoothing for the given graphics context.
+    * 
+    * @param    {CanvasRenderingContext2D} graphicsContext
+    *           The given graphics context
+    * @param    {boolean} enabled
+    *           The enable flag that must be true to enable image smoothing and false to disable.
+    */
+   me.setImageSmoothing = function(graphicsContext, enabled)
+   {
+      if (graphicsContext.imageSmoothingEnabled)
+      {
+         graphicsContext.imageSmoothingEnabled = enabled;
+      }
+      else
+      {
+         if (graphicsContext.mozImageSmoothingEnabled)
+         {
+            graphicsContext.mozImageSmoothingEnabled = enabled;
+         }
+         
+         if (graphicsContext.webkitImageSmoothingEnabled)
+         {
+            graphicsContext.webkitImageSmoothingEnabled = enabled;
+         }
+         
+         if (graphicsContext.msImageSmoothingEnabled)
+         {
+            graphicsContext.msImageSmoothingEnabled = enabled;
+         }
+      }
+   }
+
+   /**
     * Save the target JS object serialized to a string value with the given key.
     * 
     * @param    {String} key
@@ -1108,7 +1154,8 @@
        *  Canvas created with document.createElement is very slow in Chrome, use OffscreenCanvas instead.
        *  Chrome version 79 is known to have drawing issues with OffscreenCanvas, see #4473.
        */
-      if (p2j.isChrome && typeof OffscreenCanvas != "undefined" && p2j.chromeVersion.major != 79)
+      if (p2j.isChrome && typeof OffscreenCanvas != "undefined" && p2j.chromeVersion.major != 79 &&
+            !p2j.disablePixelManipulation)
       {
          return new OffscreenCanvas(1, 1);
       }
@@ -1120,6 +1167,48 @@
    me.createOffscreenCanvas = createOffscreenCanvas;
    
    /**
+    * Export the given content to the file on the client file system.
+    * 
+    * @param    {String} mimeType
+    *           The content mime type
+    * @param    {String} fileName
+    *           The target file name
+    * @param    {Array} content
+    *           The array of strings that represents the exported content.
+    */
+   function saveAs(mimeType, fileName, content)
+   {
+      var blob = new Blob(content, {type: mimeType});
+      var object_url = URL.createObjectURL(blob);
+      var save_link = document.createElementNS("http://www.w3.org/1999/xhtml", "a");
+      var can_use_save_link = "download" in save_link;
+      var click = function(node)
+      {
+         var event = new MouseEvent("click");
+         node.dispatchEvent(event);
+      }
+      if (can_use_save_link)
+      {
+         save_link.href = object_url;
+         save_link.download = fileName;
+         click(save_link);
+      }
+      else
+      {
+         var opened = window.open(object_url, "_blank");
+         if (!opened)
+         {
+            window.location.href = object_url;
+         }
+      }
+      
+      URL.revokeObjectURL(object_url);
+   }
+   
+   /** Export the given content to the file on the client file system. */
+   me.saveAs = saveAs;
+   
+   /**
     * Creates and displays the modal dialog.
     * 
     * @param    {String} id
@@ -1253,7 +1342,57 @@
          return dialogId + "_overlay";
       }
    };
-   
+
+   /**
+    * Sets a cookie.
+    *
+    * @param   name
+    *          Cookie name.
+    * @param   value
+    *          Cookie value.
+    * @param   expiresDays
+    *          Number of expiration days.
+    */
+   me.setCookie = function(name, value, expiresDays)
+   {
+      var expires = "";
+
+      if (expiresDays)
+      {
+         var date = new Date();
+         date.setTime(date.getTime() + (expiresDays * 24 * 60 * 60 * 1000));
+         expires = "; expires=" + date.toUTCString();
+      }
+
+      document.cookie = name + "=" + value + expires + "; path=/";
+   }
+
+   /**
+    * Gets a cookie.
+    *
+    * @param   name
+    *          Cookie name.
+    *
+    * @returns {string|null}
+    *          Cookie string value or {@code null} if the cookie doesn't exist.
+    */
+   me.getCookie = function(name)
+   {
+      var nameEq = name + "=";
+      var cookies = document.cookie.split(';');
+
+      for(var i = 0; i < cookies.length; i++)
+      {
+         var c = cookies[i].trim();
+         if (c.indexOf(nameEq) == 0)
+         {
+            return c.substring(nameEq.length, c.length);
+         }
+      }
+
+      return null;
+   }
+
    /* exports */
    return me;
 }());

=== modified file 'src/com/goldencode/p2j/ui/client/driver/web/res/p2j.keyboard.js'
--- src/com/goldencode/p2j/ui/client/driver/web/res/p2j.keyboard.js	2020-09-15 14:26:57 +0000
+++ src/com/goldencode/p2j/ui/client/driver/web/res/p2j.keyboard.js	2021-01-28 17:31:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : p2j.keyboard.js
 ** Abstract : keystroke management
 **
-** Copyright (c) 2014-2020, Golden Code Development Corporation.
+** Copyright (c) 2014-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ------------------------------Description----------------------------------
 ** 001 MAG 20140110 First version.
@@ -37,6 +37,7 @@
 **     SBI 20200802 Clear the keyboard reader internal buffer iff window loses its focus.
 ** 019 AIL 20200803 Avoid generating key released events for SPACE keys with modifiers.
 **     HC  20200915 Prevented NPE condition.
+**     CA  20210128 The pure ALT key must be sent to the FWD client-side.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -766,6 +767,10 @@
             {
                return true;
             }
+            else if (evt.keyCode == keys.ALT)
+            {
+               return true;
+            }
          }
          
          return false;
@@ -1302,7 +1307,7 @@
             return false;
          }
          
-         if (!isModifier(lastKey.keyCode))
+         if (!isModifier(lastKey.keyCode) || lastKey.keyCode == keys.ALT)
          {
             handleKeyPress(evt, lastKey);
          }

=== modified file 'src/com/goldencode/p2j/ui/client/driver/web/res/p2j.logger.js'
--- src/com/goldencode/p2j/ui/client/driver/web/res/p2j.logger.js	2018-05-31 09:35:04 +0000
+++ src/com/goldencode/p2j/ui/client/driver/web/res/p2j.logger.js	2020-12-18 18:19:12 +0000
@@ -2,13 +2,15 @@
 ** Module   : p2j.logger.js
 ** Abstract : Application logger.
 **
-** Copyright (c) 2015-2017, Golden Code Development Corporation.
+** Copyright (c) 2015-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ------------------------------Description----------------------------------
 ** 001 SBI  20150905 The first version of the p2j logger.
 ** 002 SBI  20151217 Added to turn on/off logging.
 ** 003 SBI  20160415 Changed log() to accept unspecified number of parameters.
-** 004 SBI 20180531 Changed p2j.logger.error function in order to use beep by business logic only.
+** 004 SBI  20180531 Changed p2j.logger.error function in order to use beep by business logic only.
+** 005 SBI  20201018 Changed to be able to access logs within the same application page.
+**     SBI  20201218 Added export logs to file functionality.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -79,6 +81,93 @@
    /** The log is on.*/
    var isOn;
    
+   /** The logs view dialog */ 
+   var dialog;
+   
+   require(["dojo/dom","dojo/dom-style", "dojo/dom-construct", "dijit/Dialog", "dijit/form/Textarea", "dijit/form/Button", "dojo/domReady!"],
+         function(dom, domStyle, domConstruct, Dialog, Textarea, Button)
+         {
+            var style = "width:800px;height:600px;display:flex;flex-direction:column;";
+            var div = domConstruct.create("div", { style: style });
+            dialog = new Dialog(
+            {
+               title: "Log Output",
+               content: div,
+               autofocus: false,
+               refocus: false,
+            });
+            style = "width:100%;height:auto;";
+            var textareaElement = domConstruct.create("textarea", { style: style }, div);
+            textareaElement.id = textareaElement.id || "logsTextarea";
+            var textarea = new Textarea({ name: textareaElement.id}, textareaElement.id);
+            textarea.startup();
+            
+            dialog.textarea = textarea;
+            
+            function addLogs()
+            {
+               dialog.textarea.set("value", logstack.join("\n\r"));
+            }
+            
+            dialog.addLogs = addLogs;
+            
+            style = "width:100%;height:100px;display:flex;flex-direction: row;padding:10px;";
+            var buttonPanelDiv = domConstruct.create("div", { style: style }, div);
+            var button = domConstruct.create("button", { }, buttonPanelDiv);
+            button.id = "copyLogsToClipboard";
+            var copyButton = new Button({
+               label: "Copy",
+               onClick: function()
+               {
+                  var copy = dom.byId("logsTextarea");
+                  copy.focus();
+                  copy.select();
+                  var maxZIndex = p2j.getMaxZIndex();
+                  p2j.createDialog(
+                        "writeClipboard",
+                        1000 + maxZIndex,
+                        document.body,
+                        p2j.prompts("copy"),
+                        p2j.hints("copy"),
+                        function (evt)
+                        {
+                           if ((evt.metaKey && (evt.keyCode === keys.C) && p2j.isSafari) ||
+                               (evt.ctrlKey && (evt.keyCode === keys.C || evt.keyCode === keys.INSERT) &&
+                                     !p2j.isSafari))
+                           {
+                              copy.focus();
+                              copy.select();
+                              p2j.closeDialog();
+                           }
+                        });
+               }
+            }, "copyLogsToClipboard");
+            copyButton.startup();
+            button = domConstruct.create("button", { }, buttonPanelDiv);
+            button.id = "exportToFile";
+            var exportButton = new Button({
+               label: "Export",
+               onClick: function()
+               {
+                  var copy = dom.byId("logsTextarea");
+                  copy.focus();
+                  copy.select();
+                  p2j.saveAs("plain/text", "p2j_logger_" + Date.now() + ".log", [copy.value]);
+               }
+            }, "exportToFile");
+            exportButton.startup();
+            button = domConstruct.create("button", { }, buttonPanelDiv);
+            button.id = "cancelLogOutput";
+            var cancelButton = new Button({
+               label: "Cancel",
+               onClick: function()
+               {
+                  dialog.hide();
+               }
+            }, "cancelLogOutput");
+            cancelButton.startup();
+         });
+   
    /**
     * Initialize the logger with the storage capacity.
     * 
@@ -170,27 +259,11 @@
     */
    me.viewLog = function()
    {
-      var text = "<!DOCTYPE html>\n"                         +
-                 "<html>\n"     +
-                 "   <head>\n"                               +
-                 "      <title>Log Output</title>\n"         +
-                 "   </head>\n"                              +
-                 "   <body>\n"                               +
-                 "      <textarea rows=\"10\" cols=\"60\">\n";
-
-      for (var i = 0; i < logstack.length; i++)
+      if (dialog)
       {
-         text = text + "\n" + logstack[i];
+         dialog.addLogs();
+         dialog.show();
       }
-      
-      text = text                  +
-             "      </textarea>\n" +
-             "   </body>\n"        +
-             "</html>\n";
-      
-      window.open("data:text/html;charset=utf-8," + encodeURIComponent(text),
-                  "",
-                  "width=500,height=500");
    };
    return me;
 }());
\ No newline at end of file

=== modified file 'src/com/goldencode/p2j/ui/client/driver/web/res/p2j.socket.js'
--- src/com/goldencode/p2j/ui/client/driver/web/res/p2j.socket.js	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/driver/web/res/p2j.socket.js	2021-01-24 20:39:20 +0000
@@ -2,7 +2,7 @@
 ** Module   : p2j.socket.js
 ** Abstract : WebSockets communication management
 **
-** Copyright (c) 2014-2020, Golden Code Development Corporation.
+** Copyright (c) 2014-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ------------------------------Description----------------------------------
 ** 001 MAG 20140110 First version.
@@ -106,6 +106,13 @@
 ** 047 SVL 20200623 Fixed wrong parameter order in writeStringBinaryMessage.
 **     HC  20200726 Initial implementation of SPREADSHEET widget and related changes.
 **     SBI 20200812 Added message_names.
+**     CA  20201019 Avoid an extra calculation when reading multi-byte integer values from the message, if
+**                  the current byte is zero.
+**     EVL 20201103 Optimizing cursor change for busy with painting.  Eliminated extra timer creation.  Small
+**                  change for dead getTime() call.
+**     EVL 20201104 More rework for busy socket state cursor change.
+**     HC  20210120 Added new argument to layoutParagraphWorker to reflect the function's signature change.
+**     HC  20210124 Added messages for enabling or disabling graphics caching.
 */
 
 /*
@@ -482,7 +489,13 @@
                   MSG_FILE_CHOOSE : 0xBC,
 
                   /** Message for triggering high-level driver widget events. */
-                  MSG_TRIGGER_EVENT : 0xB9,
+                  MSG_TRIGGER_EVENT : 0xBD,
+
+                  /** Enables graphics caching */
+                  MSG_ENABLE_GRAPHICS_CACHE : 0xBE,
+
+                  /** Disables graphics caching */
+                  MSG_DISABLE_GRAPHICS_CACHE : 0xBF,
 
                   /** Requests the client if the target font is installed. */
                   MSG_IS_FONT_INSTALLED  : 0xF1,
@@ -610,6 +623,9 @@
    /** Throttle timer */
    var throttleTimer;
    
+   /** Flag indicating the cursor shape changed to wait state informing engine is busy. */
+   var waitCursorOn = false;
+   
    /**
     * The task executor or fast timer to run tasks in the UI thread synchronously or postponed
     * to the next nearest system scheduled time.
@@ -1982,6 +1998,26 @@
 
       send(msg);
    };
+
+   /**
+    * Sends a message to enable graphics caching on the Java client.
+    */
+   me.enableGraphicsCache = function()
+   {
+      var msg = new Array();
+      msg.push(types.MSG_ENABLE_GRAPHICS_CACHE);
+      send(msg);
+   }
+
+   /**
+    * Sends a message to disable graphics caching on the Java client.
+    */
+   me.disableGraphicsCache = function()
+   {
+      var msg = new Array();
+      msg.push(types.MSG_DISABLE_GRAPHICS_CACHE);
+      send(msg);
+   }
     
    /**
     * Send a binary message with the given message type and the specified byte array serialized.
@@ -2209,7 +2245,11 @@
 
       for (var i = 0; i < 4; i++)
       {
-         num |= message[offset + i] << (8 * (3 - i));
+         var v = message[offset + i];
+         if (v != 0)
+         {
+            num |= v << (8 * (3 - i));
+         }
       }
       
       return num;
@@ -2231,7 +2271,11 @@
 
       for (var i = 0; i < 8; i++)
       {
-         num |= message[offset + i] << (8 * (7 - i));
+         var v = message[offset + i];
+         if (v != 0)
+         {
+            num |= v << (8 * (7 - i));
+         }
       }
       
       return num;
@@ -2348,7 +2392,11 @@
 
       for (var i = 0; i < 2; i++)
       {
-         num |= message[offset + i] << (8 * (1 - i));
+         var v = message[offset + i];
+         if (v != 0)
+         {
+            num |= v << (8 * (1 - i));
+         }
       }
       
       return num;
@@ -2373,7 +2421,7 @@
             drawNo++;
             
             p2j.screen.drawRectangles(message);
-            var t2 = (new Date()).getTime();
+            //var t2 = (new Date()).getTime();
             
             //console.log(callNo + ":" + drawNo + " draw: " + message.length + " done in " + (t2 - t1));
             return;
@@ -2469,6 +2517,7 @@
             offset = offset + 2;
 
             var pheight = p2j.screen.layoutParagraphWorker(null,
+                                                           null,
                                                            text,
                                                            font, 
                                                            0,
@@ -4400,20 +4449,15 @@
       {
          var data = evt.data;
          
+         // if message handling duration exceeds 500 ms - display wait curspr
+         var cursorTimer = setTimeout(function() { p2j.displayWaitCursor(); waitCursorOn = true; }, 500);
+         
          if (data instanceof ArrayBuffer)
          {
             // binary messages
             var message = new Uint8Array(data);
-            var isDrawing = message[0] === types.MSG_DRAW;
-            if (isDrawing)
-            {
-               p2j.displayWaitCursor();
-            }
-            setTimeout(function() { messageHandler(message); }, 0);
-            if (isDrawing)
-            {
-               setTimeout(function() { p2j.restoreCursor(); }, 0);
-            }
+            // message handler
+            messageHandler(message);
          }
          else
          {
@@ -4431,6 +4475,17 @@
                      };
                   }, 0);
          }
+
+         // cancel the scheduled cursor shape change
+         setTimeout(function() { 
+                                   clearTimeout(cursorTimer);
+                                   // if cursor shape was changed - restore original one
+                                   if (waitCursorOn)
+                                   {
+                                      p2j.restoreCursor();
+                                      waitCursorOn = false;
+                                   }
+                               }, 0);
       }
 
       /**

=== modified file 'src/com/goldencode/p2j/ui/client/event/EventManager.java'
--- src/com/goldencode/p2j/ui/client/event/EventManager.java	2020-03-17 14:52:00 +0000
+++ src/com/goldencode/p2j/ui/client/event/EventManager.java	2020-10-15 07:54:57 +0000
@@ -41,6 +41,8 @@
 ** 022 HC  20181212 Implemented support for asynchronous key state read emulation.
 ** 023 AIL 20190621 Generate key inputs with a release flag
 **         20200317 Adapted key inputs generation to the new keycode model.
+** 024 CA  20201011 Use a fast-access bitmap instead of set for widget and resource IDs.
+** 025 CA  20201015 Replaced java.util.Stack with a non-synchronized custom implementation.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -104,11 +106,12 @@
 import java.util.*;
 import java.util.logging.*;
 
+import org.roaringbitmap.*;
+
+import com.goldencode.util.Stack;
 import com.goldencode.p2j.security.*;
-import com.goldencode.p2j.ui.*;
 import com.goldencode.p2j.ui.client.*;
 import com.goldencode.p2j.ui.client.driver.*;
-import com.goldencode.p2j.ui.client.gui.ButtonGuiImpl;
 import com.goldencode.p2j.ui.client.widget.*;
 import com.goldencode.p2j.util.*;
 
@@ -405,11 +408,8 @@
       WorkArea wa = work.get();
       
       // build a set so we can ease lookup
-      Set<Integer> ids = new HashSet<Integer>();
-      for (int id : eventIds)
-      {
-         ids.add(id);
-      }
+      RoaringBitmap ids = new RoaringBitmap();
+      ids.add(eventIds);
       
       synchronized (wa.serverEvents)
       {

=== modified file 'src/com/goldencode/p2j/ui/client/event/PaintEvent.java'
--- src/com/goldencode/p2j/ui/client/event/PaintEvent.java	2019-03-18 22:26:58 +0000
+++ src/com/goldencode/p2j/ui/client/event/PaintEvent.java	2020-10-11 16:07:42 +0000
@@ -2,7 +2,7 @@
 ** Module   : PaintEvent.java
 ** Abstract : Repaint request event.
 **
-** Copyright (c) 2010-2019, Golden Code Development Corporation.
+** Copyright (c) 2010-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 SIY 20100629 Created initial version
@@ -12,6 +12,7 @@
 **                  a user-interactive state.
 ** 005 HC  20190318 Focused widgets must not be drawn outside of the regular event cycle,
 **                  together with the other non-focused widgets.
+** 006 CA  20201010 Cache the hash value.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -87,6 +88,9 @@
    /** Flag indicating this repaint is being postponed. All paint events are postponed. */
    private boolean delayed = true;
    
+   /** Cached value of the hash. */
+   private final int hash;
+   
    /**
     * Construct an instance of Paint event from given widget and rectangle.
     * 
@@ -99,6 +103,11 @@
    {
       super(source, EventType.PAINT_EVENT);
       updateRect = rect;
+
+      int result = 17;
+      result = 37 * result + source().hashCode();
+      result = 37 * result + updateRect.hashCode();
+      this.hash = result;
    }
 
    /**
@@ -145,9 +154,7 @@
       {
          PaintEvent pe = (PaintEvent) obj;
 
-         if (pe.source().hashCode() == source().hashCode()
-             && pe.updateRect.equals(updateRect))
-            return true;
+         return pe.source().hashCode() == source().hashCode() && pe.updateRect.equals(updateRect);
       }
       return false;
    }
@@ -160,11 +167,6 @@
    @Override
    public int hashCode()
    {
-      int result = 17;
-
-      result = 37 * result + source().hashCode();
-      result = 37 * result + updateRect.hashCode();
-
-      return result;
+      return hash;
    }
 }
\ No newline at end of file

=== modified file 'src/com/goldencode/p2j/ui/client/gui/AlertBoxGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/AlertBoxGuiImpl.java	2019-02-20 19:03:34 +0000
+++ src/com/goldencode/p2j/ui/client/gui/AlertBoxGuiImpl.java	2020-12-16 16:22:49 +0000
@@ -36,6 +36,7 @@
 ** 020 HC  20180116 Prevented an unexpected exception.
 ** 021 OM  20180321 Fixed message geometry.
 ** 022 SBI 20190219 Changed init() to set the client control on.
+** 023 VVT 20201215 Null icon case #5043 handled properly (see #5043).
 */
 
 /*
@@ -470,7 +471,11 @@
             case LogicalTerminal.ALERT_QUESTION: iconName = "question"; break;
             case LogicalTerminal.ALERT_WARNING: iconName = "warning"; break;
          }
-         icon = ThemeManager.getCurrentTheme().getImage(iconName, 32, 32, true);
+
+         if (iconName != null)
+         {
+            icon = ThemeManager.getCurrentTheme().getImage(iconName, 32, 32, true);
+         }
          
          GuiColorResolver gc = new GuiColorResolver(gd, 
                                                     new BaseConfig(), 

=== modified file 'src/com/goldencode/p2j/ui/client/gui/BrowseGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/BrowseGuiImpl.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/gui/BrowseGuiImpl.java	2020-11-26 21:39:33 +0000
@@ -152,6 +152,12 @@
 ** 074 SVL 20200608 Set columnsInUpdate to suppress column value error while accessing outdated
 **                  {@link #dcData}. We cannot clear {@link #dcData} because we need to preserve the top
 **                  row for refresh.
+**     SVL 20201027 Fixed ROW-HEIGHT not applied properly to the layout.
+**     CA  20201028 The window ID must be passed to gd.cacheTextMetrics.
+**     SVL 20201108 Update browse if DOWN has been changed.
+**     SVL 20201116 Use setBrowseColumn instead of setBrowse.
+**     SVL 20201119 Cache fonts used for cells in a ROW-DISPLAY trigger.
+**     SVL 20201126 Added clickStartedEditColumn.
 */
 
 /*
@@ -544,6 +550,17 @@
     * <code>true</code> if browse widget will draw help string on repaint.
     */
    private boolean drawHelpOnRepaint = false;
+
+   /**
+    * Cached font details (by font number) for fonts used for cells in the ROW-DISPLAY trigger.
+    */
+   private Map<Integer, FontDetails> rowDisplayFonts = null;
+
+   /**
+    * Reference to the last browse column which had an editor initiated by a mouse click. May be used as a
+    * target for a browse click trigger.
+    */
+   private BrowseColumnGuiImpl clickStartedEditColumn = null;
    
    /**
     * Constructs the Browse widget.
@@ -631,13 +648,7 @@
 
          if (oldDown != getDown())
          {
-            // refresh data
-            conditionalPendingExtraRowFetch();
-            int topRow = getFirstExistingRow();
-            if (topRow >= 0)
-            {
-               scrollToRow(topRow, false, false);
-            }
+            refreshAfterDownChange();
          }
       }
    }
@@ -685,8 +696,10 @@
             // browse has been resized
             doLayout();
          }
-
-         updateBrowseDimensions();
+         else if (config.realized)
+         {
+            updateBrowseDimensions();
+         }
       }
 
       setSelectionMultiple(config.multiple);
@@ -726,6 +739,18 @@
             {
                updateRowHeight();
             }
+
+            if (beforeUpdate.down != config.down)
+            {
+               int nativeHeight = calcImplicitBrowseHeightNoScrollbar();
+               if (needsHorizontalScrollbar())
+               {
+                  nativeHeight += getScrollbarThickness(ScrollBar.Orientation.HORIZONTAL);
+               }
+
+               setHeight(cc.heightFromNative(nativeHeight));
+               refreshAfterDownChange();
+            }
          }
       }
 
@@ -1091,6 +1116,8 @@
       resolveColors();
       updateLabelsVisible();
 
+      updateBrowseDimensions();
+
       paddedRowHeight = calcRowHeight();
       config.rowHeightPixels = paddedRowHeight - CELL_OFFSET_TOP - CELL_OFFSET_BOTTOM;
       config.rowHeightChars = cc.heightFromNative(config.rowHeightPixels);
@@ -2021,6 +2048,38 @@
    }
 
    /**
+    * Get cached font details for a font set for a cell in the ROW-DISPLAY trigger.
+    *
+    * @param  font
+    *         Font number.
+    *
+    * @return font details for the given font number.
+    */
+   public FontDetails getRowDisplayFont(int font)
+   {
+      if (rowDisplayFonts == null)
+      {
+         rowDisplayFonts = new HashMap<>();
+      }
+
+      FontDetails res = rowDisplayFonts.get(font);
+      if (res != null)
+      {
+         return res;
+      }
+      else if (!rowDisplayFonts.containsKey(font))
+      {
+         res = FontManager.resolveFont(window(), font, gd);
+         rowDisplayFonts.put(font, res);
+         return res;
+      }
+      else
+      {
+         return null;
+      }
+   }
+
+   /**
     * Get the top offset of the Apply/Reset Sorting/Filtering panel relatively to the browse's
     * top edge, in pixels.
     *
@@ -3003,10 +3062,9 @@
 
       screen().getRegistry().addWidget(editorId, toggleBox);
       toggleBox.initialize(editorId, cfg);
-      ((ToggleBoxGuiImpl) toggleBox).setBrowse(this);
-
-      // reset underline attribute and force Browse colors
-      //toggleBox.setBrowse(this);
+      BrowseColumn<GuiOutputManager> column =
+            (BrowseColumn<GuiOutputManager>) ThinClient.getInstance().getWidget(cols[currColumn].id);
+      ((ToggleBoxGuiImpl) toggleBox).setBrowseColumn(column);
 
       BaseDataType toggleValue = useValue ? value : getValue(visibleToOrdinal(currColumn));
       if (toggleValue != null)
@@ -3084,7 +3142,9 @@
       WidgetFactory<?> factory = screen().getFactory();
       WidgetId editorId = cfg.id;
       ComboBox comboBox = factory.create(ComboBox.class, editorId, cfg);
-      comboBox.setBrowse(this);
+      BrowseColumn<GuiOutputManager> column =
+            (BrowseColumn<GuiOutputManager>) ThinClient.getInstance().getWidget(cols[currColumn].id);
+      comboBox.setBrowseColumn(column);
 
       screen().getRegistry().addWidget(editorId, comboBox);
       comboBox.initialize(editorId, cfg);
@@ -3289,7 +3349,9 @@
                }
             }
          }
-         gd.cacheTextMetrics(texts, null);
+         
+         Widget tlw = parentOrSelf(TopLevelWindow.class);
+         gd.cacheTextMetrics(texts, tlw.getId().asInt());
       }
       layoutHyperlinks();
    }
@@ -3838,23 +3900,19 @@
       updateVerticalScrollbarVisibility();
       rebuildColumns();
 
-      int hBarHeight = getScrollbarThickness(ScrollBar.Orientation.HORIZONTAL);
-      int vBarWidth = config.scrollbarVertical ?
-                        getScrollbarThickness(ScrollBar.Orientation.VERTICAL) : 0;
-
       scrollableColumnSet.setWidth(cc.widthFromNative(totalColumnsWidth));
 
       // resize browse according to columns width
       if (implicitWidth)
       {
+         int vBarWidth = config.scrollbarVertical ?
+               getScrollbarThickness(ScrollBar.Orientation.VERTICAL) : 0;
          int widthNative = totalColumnsWidth + vBarWidth +
                               (config.box ? 2 * BORDER_THICKNESS : 0);
          setWidth(cc.widthFromNative(widthNative));
       }
 
-      int viewportWidth = physicalDimension().width - vBarWidth -
-                              (config.box ? 2 * BORDER_THICKNESS : 0);
-      boolean useHorizontalScrollbar = totalColumnsWidth > viewportWidth;
+      boolean useHorizontalScrollbar = needsHorizontalScrollbar();
       showHorizontalScrollbar(useHorizontalScrollbar);
 
       if (implicitHeight)
@@ -3862,7 +3920,7 @@
          int nativeHeight = calcImplicitBrowseHeightNoScrollbar();
          if (useHorizontalScrollbar)
          {
-            nativeHeight += hBarHeight;
+            nativeHeight += getScrollbarThickness(ScrollBar.Orientation.HORIZONTAL);
          }
 
          setHeight(cc.heightFromNative(nativeHeight));
@@ -4241,7 +4299,8 @@
 
       if (isLabelsVisible())
       {
-         nativeHeight += rowHeight + 2 * BORDER_THICKNESS;
+         updateLabelsHeight();
+         nativeHeight += getLabelsAreaHeight();
       }
 
       int down = config.down > 0 ? config.down : DEFAULT_DYNAMIC_DOWN_SIZE;
@@ -4370,7 +4429,7 @@
     */
    private int calcRowHeight()
    {
-      if (!config.realized || config.rowHeightChars <= 0)
+      if (config.rowHeightChars <= 0)
       {
          return calcImplicitRowHeight();
       }
@@ -4704,6 +4763,18 @@
    }
 
    /**
+    * Get reference to the last browse column which had an editor initiated by a mouse click. May be used as a
+    * target for a browse click trigger.
+    *
+    * @return reference to the last browse column which had an editor initiated by a mouse click or
+    *         <code>null</code>.
+    */
+   public BrowseColumnGuiImpl getClickStartedEditColumn()
+   {
+      return clickStartedEditColumn;
+   }
+
+   /**
     * Returns <code>true</code> if CTRL key was held down when a mouse button was pressed.
     *
     * @param  e
@@ -4729,7 +4800,7 @@
    {
       meColumn = col;
    }
-   
+
    /**
     * Handle row clicks.
     *
@@ -4743,6 +4814,7 @@
     */
    void rowClicked(int viewportRowIndex, int visibleColumnIndex, MouseEvent e)
    {
+      clickStartedEditColumn = null;
       boolean priorEditing = isEditing();
       
       // Special case when the area UNDER a toggle-box widget is clicked. That can happen when
@@ -4836,6 +4908,7 @@
                }
 
                startEdit();
+               clickStartedEditColumn = column;
 
                if (toggleClicked)
                {
@@ -6380,6 +6453,32 @@
    }
 
    /**
+    * Returns <code>true</code> if horizontal scrollbar is needed (i.e. if the total width of all columns is
+    * more than the viewport width).
+    *
+    * @return <code>true</code> if horizontal scrollbar is needed.
+    */
+   private boolean needsHorizontalScrollbar()
+   {
+      int vBarWidth = config.scrollbarVertical ? getScrollbarThickness(ScrollBar.Orientation.VERTICAL) : 0;
+      int viewportWidth = physicalDimension().width - vBarWidth - (config.box ? 2 * BORDER_THICKNESS : 0);
+      return totalColumnsWidth > viewportWidth;
+   }
+
+   /**
+    * Refresh browse data after DOWN value has been changed.
+    */
+   private void refreshAfterDownChange()
+   {
+      conditionalPendingExtraRowFetch();
+      int topRow = getFirstExistingRow();
+      if (topRow >= 0)
+      {
+         scrollToRow(topRow, false, false);
+      }
+   }
+
+   /**
     * Class for handling horizontal scrolling.
     */
    private class HorizontalColumnScroller

=== modified file 'src/com/goldencode/p2j/ui/client/gui/ButtonListGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/ButtonListGuiImpl.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/gui/ButtonListGuiImpl.java	2021-01-20 11:17:52 +0000
@@ -2,7 +2,7 @@
 ** Module   : ButtonListGuiImpl.java
 ** Abstract : ButtonListGuiImpl implements the button list widget.
 **
-** Copyright (c) 2020, Golden Code Development Corporation.
+** Copyright (c) 2020-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --------------------------------Description-----------------------------------
 ** 001 SBI 20200305 Created initial version.
@@ -13,6 +13,8 @@
 **     SBI 20200726 Simplified, cleaned up the code.
 **         20200803 Fixed group button's components z-order and the background color that is defined
 **                  by the background color of the group items.
+**         20210120 Changed to trigger value-changed and right-mouse-click events iff items is changed
+**                  or right mouse is clicked.
 */
 
 /*
@@ -161,6 +163,10 @@
    
    /** The available vertical space to extend the number of visible items */
    private double availableSpaceInChars;
+   
+   /** The curently selected item index */
+   private int selectedItemIndex = -1;
+   
    /**
     * Creates the button list widget.
     * 
@@ -646,6 +652,18 @@
    }
 
    /**
+    * Fire a new value changed event.
+    */
+   public void fireValueChanged()
+   {
+      KeyInput vchng = new KeyInput(this,
+                                    EventType.KEY_PRESSED,
+                                    Keyboard.SE_VALUE_CHANGED,
+                                    true);
+      EventManager.postEvent(vchng);
+   }
+
+   /**
     * Update widget's size.
     */
    public void updateSize()
@@ -871,7 +889,17 @@
       if (isEnabled())
       {
          ocxMouseClick(this);
-         int evCode = Keyboard.keyCode(Keyboard.MOUSE_SELECT_CLICK);
+         
+         int evCode;
+         if (e.getButton() != getMenuMouse())
+         {
+            evCode = Keyboard.keyCode(Keyboard.MOUSE_SELECT_CLICK);
+         }
+         else
+         {
+            evCode = Keyboard.keyCode(Keyboard.RIGHT_MOUSE_CLICK);
+         }
+         
          ThinClient.getInstance().invokeTriggers(this, evCode, false);
       }
    }
@@ -997,12 +1025,14 @@
                {
                   onClick(true);
                   ButtonListGuiImpl.this.config().currentGroupIndex = -1;
+                  ButtonListGuiImpl.this.selectedItemIndex = -1;
                }
                else
                {
                   ButtonListGuiImpl.this.colapseAllItems();
                   ButtonListGuiImpl.this.config().currentGroupIndex =
                            ButtonListGuiImpl.this.widgetsAsList().indexOf(GroupButton.this);
+                  ButtonListGuiImpl.this.selectedItemIndex = -1;
                   onClick(false);
                }
                
@@ -1622,7 +1652,7 @@
          
          for(ButtonListGroupItemConfig config : configs)
          {
-            Item item = new Item(config);
+            Item item = new Item(config, this);
             add(item);
             screen.getRegistry().addWidget(item);
          }
@@ -1660,7 +1690,7 @@
             }
             else
             {
-               item = new Item(itemConfig);
+               item = new Item(itemConfig, this);
                add(item);
             }
             
@@ -1672,6 +1702,27 @@
       }
       
       /**
+       * Get the item's index assigned by this item's container.
+       * 
+       * @param    item
+       *           The target item
+       * 
+       * @return   The item's index or -1 iff item is not found within this items
+       */
+      public int indexOf(Item item)
+      {
+         for (int i = 0; i < configs.length; i++)
+         {
+            if (item.config.id.asInt() == configs[i].id.asInt())
+            {
+               return i;
+            }
+         }
+         
+         return -1;
+      }
+      
+      /**
        * Shows this widget and recalculates its native dimension.
        */
       public void onShow()
@@ -2012,19 +2063,27 @@
       
       /** The item's label */
       private TextCell textWidget;
+      
+      /** Its parent container*/
+      private Items container;
+      
       /**
        * Creates the item panel from the given configuration.
        * 
        * @param    config
        *           The given item's configuration
+       * @param    container
+       *           The item's container
        */
-      public Item(ButtonListGroupItemConfig config)
+      public Item(ButtonListGroupItemConfig config, Items container)
       {
          super(new StackLayout<GuiOutputManager>(Direction.HORIZONTAL),
                   new EmptyBorder<GuiOutputManager>());
          this.config = ConfigManager.getInstance().resolveWidgetConfig(config.id, config);
          ConfigManager.getInstance().replaceConfig(this.config, config);
          
+         this.container = container;
+         
          setId(config.id);
          setColorResolver(itemsColorResolver);
          
@@ -2358,6 +2417,15 @@
       @Override
       public void mouseClicked(MouseEvent e)
       {
+         if (e.getButton() != getMenuMouse())
+         {
+            int index = this.container.indexOf(this);
+            if (selectedItemIndex != index)
+            {
+               selectedItemIndex = index;
+               fireValueChanged();
+            }
+         }
          ButtonListGuiImpl.this.mouseClicked(e);
          super.mouseClicked(e);
       }

=== modified file 'src/com/goldencode/p2j/ui/client/gui/CalendarGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/CalendarGuiImpl.java	2020-05-27 06:52:36 +0000
+++ src/com/goldencode/p2j/ui/client/gui/CalendarGuiImpl.java	2020-12-09 18:05:56 +0000
@@ -14,6 +14,9 @@
 **         20200518 Fixed the bg and fg colors for selected text were unset when using Classic theme.
 **         20200521 Fixed updateDateTimeDisplayValue(...) found by VVT, extracted CalendarPopup.
 **         20200525 Added public update methods for client usages.
+** 005 CA  20201209 Fixed locale - it relies on the directory's 'calendarLocale' setting, which will
+**                  be used to format and display the date.
+**                  Added support for 'Change' and 'KeyPress' COM events.
 */
 
 /*
@@ -81,6 +84,7 @@
 import java.util.*;
 import java.util.function.*;
 
+import com.goldencode.p2j.directory.*;
 import com.goldencode.p2j.ui.*;
 import com.goldencode.p2j.ui.CalendarConfig.*;
 import com.goldencode.p2j.ui.chui.ThinClient;
@@ -155,10 +159,11 @@
    private GuiFontResolver fontResolver;
    
    /** The system locale */
-   private Locale locale;
-   
+   private static final Locale locale;
+
    /** The system calendar */
-   private Chronology chrono;
+   private static final Chronology chrono;
+   
    
    /** The date time formatter */
    private DateTimeFormatter dateTimeFormatter;
@@ -205,6 +210,24 @@
    /** The flag indicating that the calendar popup is active or not */
    boolean popupIsActive;
    
+   static
+   {
+      Directory dir = DirectoryManager.getInstance();
+      String calendarLocale = dir.getString(Directory.ID_RELATIVE, "calendarLocale", null);
+      if (calendarLocale != null)  
+      {
+         int idx = calendarLocale.indexOf('_');
+         String pLang = idx == -1 ? calendarLocale : calendarLocale.substring(0, idx);
+         String pCountry = idx == -1 ? null : calendarLocale.substring(idx + 1);
+         locale = pCountry == null ? new Locale(pLang) : new Locale(pLang, pCountry);
+      }
+      else
+      {
+         locale = Locale.getDefault();
+      }
+
+      chrono = Chronology.ofLocale(locale);
+   }
    
    /**
     * Creates the calendar widget.
@@ -716,8 +739,6 @@
       config = ConfigManager.getInstance().resolveWidgetConfig(id, cfg);
       ConfigManager.getInstance().replaceConfig(config, cfg);
       setId(id);
-      locale = Locale.getDefault();
-      chrono = Chronology.ofLocale(locale);
       
       updateDateTimePattern(config.formatStyle, config.customFormat);
       
@@ -1299,6 +1320,13 @@
       if (hasFocus())
       {
          int key = keyEvent.actionCode();
+
+         // emit the COM event first
+         BaseDataType[] args = new BaseDataType[1];
+         args[0] = new integer(key);
+         args = ThinClient.getInstance().getServer().emitComEvent(getId().asInt(), "KeyPress", args);
+         // override the key
+         key = ((integer) args[0]).intValue();
          
          boolean respond = key == Keyboard.KA_CURSOR_LEFT || key == Keyboard.KA_CURSOR_RIGHT ||
                            key == Keyboard.KA_CURSOR_UP || key == Keyboard.KA_CURSOR_DOWN ||
@@ -1386,6 +1414,9 @@
     */
    public void fireValueChanged()
    {
+      // emit the COM event first
+      ThinClient.getInstance().getServer().emitComEvent(getId().asInt(), "Change", new BaseDataType[0]);
+
       // honor any Progress triggers
       KeyInput vchng = new KeyInput(this,
                                     EventType.KEY_PRESSED,

=== modified file 'src/com/goldencode/p2j/ui/client/gui/CalendarPopup.java'
--- src/com/goldencode/p2j/ui/client/gui/CalendarPopup.java	2020-05-21 17:22:22 +0000
+++ src/com/goldencode/p2j/ui/client/gui/CalendarPopup.java	2020-12-09 18:05:56 +0000
@@ -6,6 +6,7 @@
 **
 ** -#- -I- --Date-- --------------------------------Description-----------------------------------
 ** 001 SBI 20200521 Extracted from CalendarGuiImpl.
+** 002 CA  20201209 Added and highlighted 'Today:' date.
 */
 
 /*
@@ -350,12 +351,17 @@
       
       TextCell today = new TextCell(contentWidth,
                                     rowHeight,
-                                    model.getToday(),
+                                    "Today: " + model.getToday(),
                                     this.bodyColorResolver,
                                     this.fontResolver);
-      
+      today.setBold(true);
       currentDatePanel.add(today);
-      
+
+      TextCell red = new TextCell(cellWidth, cellHeight, " ", this.bodyColorResolver, this.fontResolver);
+      red.setPreferredBgColor(ColorRgb.RED);
+      red.setPreferredFgColor(null);
+      currentDatePanel.add(red);
+
       add(currentDatePanel);
       
       nextMonthButton.addListener(new ActionListener()
@@ -614,6 +620,7 @@
       {
          selected = -1;
       }
+      LocalDate today = LocalDate.now();
       
       for (int i = firstTrailing; i <= endTrailing; i++)
       {
@@ -622,13 +629,20 @@
                                             String.valueOf(i),
                                             this.bodyColorResolver,
                                             this.fontResolver);
+         LocalDate currDay = start.plusDays(i - firstTrailing);
+         boolean isToday = currDay.equals(today);
          
          if (i == selected)
          {
             dayInMonth.setSelected(true);
          }
          
-         if (prefBgColor != null)
+         if (isToday)
+         {
+            dayInMonth.setPreferredBgColor(ColorRgb.RED);
+            dayInMonth.setPreferredFgColor(null);
+         }
+         else if (prefBgColor != null)
          {
             dayInMonth.setPreferredBgColor(prefBgColor);
          }
@@ -650,6 +664,7 @@
       int widgetsNumber = daysInMonthPanel.widgets().length; // 42
       
       LocalDate firstDay = model.getFirstVisibleDate();
+      LocalDate today = LocalDate.now();
       
       for(int i = 0; i < widgetsNumber; i++)
       {
@@ -657,6 +672,8 @@
          if (widget instanceof TextCell)
          {
             LocalDate currDay = firstDay.plusDays(i);
+            boolean isToday = currDay.equals(today);
+            
             int day = currDay.get(ChronoField.DAY_OF_MONTH);
             ((TextCell) widget).setText(String.valueOf(day));
             if (currDay.equals(model.selected))
@@ -668,7 +685,12 @@
                ((TextCell) widget).setSelected(false);
             }
             
-            if ((model.startFirstTrailingDay != null &&
+            if (isToday)
+            {
+               ((TextCell) widget).setPreferredBgColor(ColorRgb.RED);
+               ((TextCell) widget).setPreferredFgColor(null);
+            }
+            else if ((model.startFirstTrailingDay != null &&
                      (model.startFirstTrailingDay.equals(currDay) ||
                       (model.startFirstTrailingDay.isBefore(currDay) &&
                        model.endFirstTrailingDay.isAfter(currDay)) ||
@@ -753,7 +775,17 @@
          
          updateDisplayedDateTimeValue();
       }
-      
+      else
+      {
+         area = currentDatePanel.physicalBounds();
+         if (area.contains(mousePoint))
+         {
+            // select 'today'
+            model.set(LocalDate.now());
+            
+            updateDisplayedDateTimeValue();
+         }
+      }
    }
 
    /**

=== modified file 'src/com/goldencode/p2j/ui/client/gui/ComboBoxGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/ComboBoxGuiImpl.java	2020-05-08 21:53:42 +0000
+++ src/com/goldencode/p2j/ui/client/gui/ComboBoxGuiImpl.java	2021-01-23 18:01:03 +0000
@@ -2,7 +2,7 @@
 ** Module   : ComboBoxGuiImpl.java
 ** Abstract : GUI combo-box implementation
 **
-** Copyright (c) 2015-2019, Golden Code Development Corporation.
+** Copyright (c) 2015-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 EVL 20150421 Initial version.
@@ -83,6 +83,10 @@
 ** 240 SVL 20190502 Proper handling of values in SIMPLE and DROP-DOWN combos.
 ** 241 HC  20191218 Added the support for a notification when widget ancestor changes.
 ** 242 VVT 20200507 Theme.drawComboBoxButton() call syntax changed (see. #4636).
+** 243 SVL 20201116 Reflected changes in the parent class.
+**     CA  20210112 Fixed an issue with the widget for LIST-ITEMS case.
+**     VVT 20210114 Fixed NPE in createEntryField(). See #5073.
+**     CA  20210123 If the combo's items are set before its realized, then its width must be changed, too.
 */
 
 /*
@@ -1208,20 +1212,24 @@
       
       int pixelWidth;
       
-      if (!isFormatHonored())
-      {
-         // the extra 27 pixels cover the button, borders and padding,
-         // the value was determined experimentally
-         pixelWidth = getItemMaximalWidth(font) + 27;
-      }
-      else
-      {
-         // TODO: variable button size
-         // the extra 28 pixels cover the button, borders and padding,
-         // the value was determined experimentally
-         pixelWidth = cc.widthToNative(charWidth, window.getId(), font) + 28;
-      }
-      config.clientWidthPixels = pixelWidth;
+      if (!config.realized)
+      {
+         if (!isFormatHonored() && !ThinClient.getInstance().isChui())
+         {
+            // the extra 27 pixels cover the button, borders and padding,
+            // the value was determined experimentally
+            pixelWidth = getItemMaximalWidth(font) + 27;
+         }
+         else
+         {
+            // TODO: variable button size
+            // the extra 28 pixels cover the button, borders and padding,
+            // the value was determined experimentally
+            pixelWidth = cc.widthToNative(charWidth, window.getId(), font) + 28;
+         }
+
+         config.clientWidthPixels = pixelWidth;
+      }
    }
 
    /**
@@ -1551,8 +1559,11 @@
       finCfg.dataType = config.dataType;
       copyColors(config, finCfg);
       // format must be ignored if not explicitly defined, compute from item values
-      String fmt = config.format != null && !config.format.isEmpty() ? config.format : null;  
-      finCfg.setDynamicFormat(fmt);
+      final String fmt = config.format;
+      if (fmt != null && !fmt.isEmpty())
+      {
+         finCfg.setDynamicFormat(fmt);
+      }
 
       // create entry field
       entryField = new EntryFieldGuiImpl(finCfg, this);
@@ -1564,7 +1575,7 @@
       ConfigManager.getInstance().addWidgetConfig(finCfg);
       
       // add the widget to the frame the combo-box belongs to
-      if (browse != null)
+      if (getBrowse() != null)
       {
          parent().add(entryField);
       }

=== modified file 'src/com/goldencode/p2j/ui/client/gui/DropDownGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/DropDownGuiImpl.java	2020-03-16 17:30:47 +0000
+++ src/com/goldencode/p2j/ui/client/gui/DropDownGuiImpl.java	2020-10-12 15:54:44 +0000
@@ -36,6 +36,7 @@
 ** 022 EVL 20190403 Adding implementation support for AUTO-COMPLETION attribute.
 ** 023 SBI 20200225 Reused the common code.
 ** 024 HC  20200313 Javadoc fixes.
+** 025 EVL 20201012 Fix for NPE with GUI combo-box closing drop-down.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -117,6 +118,9 @@
    /** Screen driver */
    private GuiDriver gd;
    
+   /** The overlay window reference as the top level window for GUI drop-down to get ID. */
+   private OverlayWindow overlay = null;
+   
    /**
     * Create a drop-down container based on the parent combo-box and it's
     * associated data model.
@@ -131,7 +135,7 @@
       // disable layout manager
       setLayout(null);
       // set up overlay window
-      new OverlayWindow(this, parent.topLevelWindow());
+      overlay = new OverlayWindow(this, parent.topLevelWindow());
       topLevelWindow().setSize(width(), height());
    }
 
@@ -402,6 +406,18 @@
    }   
    
    /**
+    * Widget ID.
+    * 
+    * @return  see above.
+    */
+   @Override
+   public WidgetId getId()
+   {
+      // we returm the ID of the overlay window behind as the widget ID
+      return overlay != null ? overlay.getId() : null;
+   }
+   
+   /**
     * Get the combo-box GUI specific visible row adjust.
     * 
     * @param    visibleRows

=== modified file 'src/com/goldencode/p2j/ui/client/gui/FillInGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/FillInGuiImpl.java	2020-05-22 16:14:25 +0000
+++ src/com/goldencode/p2j/ui/client/gui/FillInGuiImpl.java	2021-01-23 18:01:03 +0000
@@ -2,7 +2,7 @@
 ** Module   : FillInGuiImpl.java
 ** Abstract : text field editor/display implementation, GUI-specific version
 **
-** Copyright (c) 2014-2020, Golden Code Development Corporation.
+** Copyright (c) 2014-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 CA  20141220 Created initial version.
@@ -125,6 +125,8 @@
 ** 075 HC  20200331 Implemented support for OPEN-POPUP legacy method, which opens popup menu set
 **                  on the widget.
 ** 076 AIL 20200522 Fixed left scrolling when the text is longer than the widget.
+** 077 SVL 20201116 Reflected changes in the parent class.
+**     CA  20210123 An implicit ENTRY (from i.e. an event listening loop) must not move the widget to top.
 */
 
 /*
@@ -706,9 +708,9 @@
    @Override
    public void mouseWheelMoved(MouseWheelEvent e)
    {
-      if (browse != null)
+      if (isLinkedToBrowse())
       {
-         browse.mouseWheelMoved(e);
+         getBrowse().mouseWheelMoved(e);
       }
    }
 
@@ -736,9 +738,9 @@
       int lastOffset = getLastOffset();
       int offset = getCursorOffset();
 
-      if (browse != null)
+      if (isLinkedToBrowse())
       {
-         browse.notifyKeyPressedInEditor(ke);
+         getBrowse().notifyKeyPressedInEditor(ke);
       }
 
       if (key == Key.VK_SHIFT_CURSOR_RIGHT)
@@ -973,8 +975,9 @@
          // ENTRY event in GUI with fill-in that is not yet visible causes the fill-in
          // to be painted over other possible widgets that can overlap the fill-in in other
          // circumstances
-         if (!wasVisible())
+         if (!wasVisible() && !ke.isSpecial())
          {
+            // an implicit entry will *not* move the widget to top
             AbstractContainer parentCont = (AbstractContainer) parent();
             if (parentCont != null)
             {

=== modified file 'src/com/goldencode/p2j/ui/client/gui/FrameGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/FrameGuiImpl.java	2020-10-04 18:23:10 +0000
+++ src/com/goldencode/p2j/ui/client/gui/FrameGuiImpl.java	2020-12-21 21:52:42 +0000
@@ -133,6 +133,8 @@
 **                  during direct manipulation.
 **     EVL 20200512 Enable to set up the frame height less than minimal for fixed size frames.
 ** 069 HC  20201004 Performance optimizations of server-client config state synchronization.
+**     CA  20201221 A DIALOG-BOX needs to have its layout in 'initialize' for the title-height to be computed
+**                  properly (which affects the HEIGHT-CHARS/PIXELS attributes for the frame).
 */
 
 /*
@@ -505,6 +507,8 @@
          if (cfg.dialog)
          {
             DialogBoxWindow dialogWindow = (DialogBoxWindow) topLevelWindow();
+            // the window's layout will set and compute the title-bar size. 
+            dialogWindow.doLayout();
             
             // can be missing in the web client when in the embedded mode
             if (dialogWindow.hasTitlebar())

=== modified file 'src/com/goldencode/p2j/ui/client/gui/GuiKeyboard.java'
--- src/com/goldencode/p2j/ui/client/gui/GuiKeyboard.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/p2j/ui/client/gui/GuiKeyboard.java	2021-01-28 20:00:25 +0000
@@ -2,7 +2,7 @@
 ** Module   : GuiKeyboard.java
 ** Abstract : Keyboard configuration for Windows GUI clients. 
 **
-** Copyright (c) 2014-2017, Golden Code Development Corporation.
+** Copyright (c) 2014-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 CA  20141029 Created initial version.
@@ -11,7 +11,8 @@
 ** 004 VIG 20150916 Added keyboard layout support.
 ** 005 SBI 20151011 Added SHIFT + DEL key label to return 639 as its key code.
 ** 006 CA  20161101 Added API to check if a key can be used as a mnemonic.
-*/
+** 007 CA  20210127 Fixed key-code to detect extended labels.
+/
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -86,7 +87,6 @@
    public GuiKeyboard()
    {
       super();
-      extendedKeys.put(639, "SHIFT-DEL"); // since code 127 has DEL as a label
    }
 
    /**
@@ -95,6 +95,8 @@
    @Override
    public void init()
    {
+      extendedKeys.put(639, "SHIFT-DEL"); // since code 127 has DEL as a label
+
       super.init();
       
       layout.init();
@@ -202,4 +204,4 @@
 
       return res;
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/ui/client/gui/GuiWidgetFactory.java'
--- src/com/goldencode/p2j/ui/client/gui/GuiWidgetFactory.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/gui/GuiWidgetFactory.java	2020-10-24 22:32:57 +0000
@@ -56,6 +56,7 @@
 ** 036 SBI 20200225 Added Calendar widget support.
 ** 037 SBI 20200329 Added ButtonListGuiImpl.
 ** 038 HC  20200726 Initial implementation of SPREADSHEET widget and related changes.
+**     HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
 */
 
 /*
@@ -346,26 +347,26 @@
    }
    
    /**
-    * Create UI-specific {@link Label} instance as a copy of given {@link Label}.
+    * Create UI-specific {@link ClientDrivenLabel} instance as a copy of given {@link ClientDrivenLabel}.
     * 
     * @param   id
     *          The widget's ID.
     * @param   labelInstance
-    *          Source {@link Label} instance.
+    *          Source {@link ClientDrivenLabel} instance.
     * @param   frameId
     *          The ID of the frame to which the label belongs, or -1 if unknown at the time of the 
     *          creation.
     *          
-    * @return  instance of UI-specific implementation of {@link Label}.
+    * @return  instance of UI-specific implementation of {@link ClientDrivenLabel}.
     */
    @Override
-   public LabelGuiImpl createLabel(WidgetId id, Label<GuiOutputManager> labelInstance, int frameId)
+   public LabelGuiImpl createLabel(WidgetId id, ClientDrivenLabel<GuiOutputManager> labelInstance, int frameId)
    {
       return new LabelGuiImpl(id, labelInstance, frameId);
    }
    
    /**
-    * Create new {@link Label} instance for given text.
+    * Create new {@link ClientDrivenLabel} instance for given text.
     * 
     * @param   id
     *          The widget's ID.
@@ -375,7 +376,7 @@
     *          The ID of the frame to which the label belongs, or -1 if unknown at the time of the 
     *          creation.
     * 
-    * @return  new {@link Label} instance.
+    * @return  new {@link ClientDrivenLabel} instance.
     */
    @Override
    public LabelGuiImpl createLabel(WidgetId id, String text, int frameId)

=== modified file 'src/com/goldencode/p2j/ui/client/gui/LabelGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/LabelGuiImpl.java	2019-03-02 02:53:10 +0000
+++ src/com/goldencode/p2j/ui/client/gui/LabelGuiImpl.java	2021-01-25 13:46:58 +0000
@@ -2,7 +2,7 @@
 ** Module   : LabelGuiImpl.java
 ** Abstract : Implementation for LABEL in GUI clients.
 **
-** Copyright (c) 2014-2019, Golden Code Development Corporation.
+** Copyright (c) 2014-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 CA  20141220 Created initial version.
@@ -30,6 +30,9 @@
 ** 018 CA  20161101 Added support for mnemonic drawing.
 ** 019 OM  20170320 Added support for Themes.
 ** 020 EVL 20190301 Small improvements for labels painting.
+** 021 HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
+**     CA  20210125 If a LABEL is already built by server-side, and its X location was explicitly set, do not
+**                  re-compute its width based on the side-widget's location.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -89,7 +92,7 @@
 import com.goldencode.p2j.ui.*;
 import com.goldencode.p2j.ui.chui.ThinClient;
 import com.goldencode.p2j.ui.client.*;
-import com.goldencode.p2j.ui.client.Label;
+import com.goldencode.p2j.ui.client.ClientDrivenLabel;
 import com.goldencode.p2j.ui.client.Window;
 import com.goldencode.p2j.ui.client.gui.driver.*;
 import com.goldencode.p2j.ui.client.gui.theme.*;
@@ -99,7 +102,7 @@
  * Implementation for a widget's LABEL, in a GUI client.
  */
 public class LabelGuiImpl
-extends Label<GuiOutputManager>
+   extends ClientDrivenLabel<GuiOutputManager>
 {
    /** Font resolver */
    private GuiFontResolver gf;
@@ -118,7 +121,7 @@
     *          The ID of the frame to which the label belongs, or -1 if unknown at the time of the 
     *          creation.
     */
-   public LabelGuiImpl(WidgetId id, Label<GuiOutputManager> labelInstance, int frameId)
+   public LabelGuiImpl(WidgetId id, ClientDrivenLabel<GuiOutputManager> labelInstance, int frameId)
    {
       super(id, labelInstance, frameId);
 
@@ -317,7 +320,7 @@
    {
       NativeDimension dim = super.physicalDimension();
       
-      if (sideWidget != null)
+      if (sideWidget != null && config.x == BaseConfig.INV_COORD)
       {
          NativePoint swLoc = sideWidget.physicalLocation();
          NativePoint thisLoc = physicalLocation();
@@ -333,4 +336,4 @@
       
       return dim;
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/ui/client/gui/MenuGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/MenuGuiImpl.java	2020-04-01 09:04:51 +0000
+++ src/com/goldencode/p2j/ui/client/gui/MenuGuiImpl.java	2020-11-03 09:09:38 +0000
@@ -42,6 +42,8 @@
 ** 024 SBI 20180916 Changed doShowPopup to remove an extra repaint drawing bracket operation.
 ** 025 HC  20200331 Implemented support for OPEN-POPUP legacy method, which opens popup menu set
 **                  on the widget.
+** 026 EVL 20201009 Adding logic to bypass visibility change if nothing is really changing.
+**     SVL 20201103 Fixed regression caused by the previous entry.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -498,6 +500,11 @@
    @Override
    public void setVisible(boolean visible)
    {
+      if (visible == isVisible() && visible == isDisplayed())
+      {
+         return;
+      }
+      
       super.setVisible(visible);
 
       if (gd != null && config().popupOnly)

=== modified file 'src/com/goldencode/p2j/ui/client/gui/MenuItemGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/MenuItemGuiImpl.java	2018-05-26 00:56:53 +0000
+++ src/com/goldencode/p2j/ui/client/gui/MenuItemGuiImpl.java	2021-01-28 17:31:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : MenuItemGuiImpl.java
 ** Abstract : GUI client implementation of MenuItem.
 **
-** Copyright (c) 2015-2018, Golden Code Development Corporation.
+** Copyright (c) 2015-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- -----------------------------Description-----------------------------
 ** 001 VIG 20150525 Created initial version.
@@ -53,6 +53,7 @@
 **                  MENU-BAR. Fixed CHOOSE event originated in a menu item didn't break current
 **                  WAIT-FOR loop.
 ** 029 CA  20180526 Fixed window resolution.
+** 030 CA  20210128 Fixed problems with navigating a menubar via ALT and LEFT/RIGHT/UP/DOWN keys.
 */
 
 /*
@@ -486,6 +487,18 @@
       cachedWidth = screen().coordinates().widthFromNative(width);
       return cachedWidth;
    }
+   
+   /**
+    * Check if the current widget can manage non-global system actions on its own, and not via the
+    * enclosing event loop.
+    * 
+    * @return   Always <code>true</code>.
+    */
+   @Override
+   public boolean manageSystemActions()
+   {
+      return true;
+   }
 
    /**
     * Get widget minimum size.

=== modified file 'src/com/goldencode/p2j/ui/client/gui/RectangleGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/RectangleGuiImpl.java	2019-09-09 04:06:40 +0000
+++ src/com/goldencode/p2j/ui/client/gui/RectangleGuiImpl.java	2020-12-01 12:59:56 +0000
@@ -2,7 +2,7 @@
 ** Module   : RectangleGuiImpl.java
 ** Abstract : GUI rectangle implementation
 **
-** Copyright (c) 2014-2019, Golden Code Development Corporation.
+** Copyright (c) 2014-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 EVL 20141114 Initial version.
@@ -24,6 +24,7 @@
 ** 012 OM  20170406 Added support for Themes.
 ** 013 EVL 20170629 Enable mouse events for widget to be selected with direct manipulation.
 ** 014 EVL 20190808 Including edge values into rectangle bounds.
+** 015 CA  20201201 Fixed bounds(), to convert the edge chars for horizontal and vertical explicitly.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -184,11 +185,13 @@
    {
       RectangleConfig config = config();
       Rectangle result = super.bounds();
-      
-      return new Rectangle(result.top() - config.edgeChars/2.0,
-                           result.left() - config.edgeChars/2.0,
-                           result.bottom() + config.edgeChars/2.0,
-                           result.right() + config.edgeChars/2.0);
+      CoordinatesConversion cc = screen().coordinates();
+      double edgeVert = cc.heightFromNative(config.edgePixels) / 2;
+      double edgeHoriz = cc.widthFromNative(config.edgePixels) / 2;
+      return new Rectangle(result.top() - edgeVert,
+                           result.left() - edgeHoriz,
+                           result.bottom() + edgeVert,
+                           result.right() + edgeHoriz);
    }
    
    /**

=== modified file 'src/com/goldencode/p2j/ui/client/gui/SelectionListGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/SelectionListGuiImpl.java	2020-01-22 12:54:19 +0000
+++ src/com/goldencode/p2j/ui/client/gui/SelectionListGuiImpl.java	2020-12-08 10:16:22 +0000
@@ -28,6 +28,8 @@
 ** 016 EVL 20181226 Fix for wrong visible size calculation issue.
 ** 017 MAG 20190902 Check when selectable property change and activate/deactivate direct manipulation
 **                  of scrollpane widget.
+** 018 CA  20201208 Refactored adjustSizeImpl to consider all variations of size change (width/height, inner
+**                  lines/chars, scrollbars).
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -164,29 +166,10 @@
          gf = new GuiFontResolver(WindowManager.resolveWindow(this), gd, cfg, false);
       }
       
-      ScrollPaneGuiImpl sl = (ScrollPaneGuiImpl) scrollpane;
-      
-      // set up the scrollbars, the first part is the scrollpane
-      if (config.scrollbarVertical && config.scrollbarHorizontal)
-      {
-         sl.setScrollBars(Bars.BOTH);
-      }
-      else if (config.scrollbarVertical)
-      {
-         sl.setScrollBars(Bars.VERTICAL);
-      }
-      else if (config.scrollbarHorizontal)
-      {
-         sl.setScrollBars(Bars.HORIZONTAL);
-      }
-
-      // the scrollbars should always be visible if defined
-      if (config.scrollbarVertical || config.scrollbarHorizontal)
-      {
-         sl.setShowBars(ScrollPaneGuiImpl.ShowBars.ALWAYS);
-      }
+      adjustScrollBars();
 
       SelectionListBodyGuiImpl body = (SelectionListBodyGuiImpl) list;
+      ScrollPaneGuiImpl sl = (ScrollPaneGuiImpl) scrollpane;
       ((BorderedPanelGuiImpl) sl.getRootPanel()).setColorResolver(body.gc);
       
       // set up some internals with the selection-list body
@@ -369,7 +352,13 @@
          scrollpane.config().selectable = config().selectable;
          scrollpane.afterConfigUpdate(scrollpane.config());
       }
-   }   
+      
+      if (config().scrollbarHorizontal != beforeUpdate.scrollbarHorizontal || 
+          config().scrollbarVertical != beforeUpdate.scrollbarVertical)
+      {
+         adjustScrollBars();
+      }
+   }
 
    /**
     * Create handler for processing mouse hover events
@@ -393,33 +382,70 @@
    {
       Theme theme = ThemeManager.getCurrentTheme();
       
+      CoordinatesConversion cc = screen().coordinates();
+      
       // native width and height for selection list
       int nativeWidth = 0;
       int nativeHeight = 0;
       // current row height and char width for selection list
       int slRowHeight = ((SelectionListBodyGuiImpl)list).getRowHeight();
       int slCharWidth = ((SelectionListBodyGuiImpl)list).getCharWidth();
-      // do we need to update inner chars and lines flag(no need by default)
-      boolean explicitSizeSetup = config.widthChars != 0 && config.heightChars != 0;
-      // there are two possible ways to set up the selection-list size:
-      //  - size phrase when we have to be based on the width/height chars/pixels
-      //  - inner-lines and inner-chars options given character units
-      // both cases are considered below
-      boolean innerLinesChanged = config.innerLines != beforeUpdate.innerLines;
-      if (explicitSizeSetup && !innerLinesChanged)
-      {
-         // for compatibility reasons the insets size preserved here however looks like
-         // the insets are always 0 for GUI selection list
-         nativeWidth = screen().coordinates().widthToNative(config.widthChars - insets().left
-                  - insets().right);
-         nativeHeight = screen().coordinates().heightToNative(config.heightChars - insets().top 
-                  - insets().bottom);
-      }
-      else
-      {
-         // in this case we use inner chars and lines option as the base for size calculation
+      
+      
+      // we need to find what has changed, by comparing the 'before' and current config
+      // 1. changed widthChars - recompute innerChars
+      // 2. changed heightChars - recompute innerLines
+      // 3. changed innerChars - recompute widthChars
+      // 4. changed innerLines - recompute heightChars
+      // 5. changed horizontal scrollbar - recompute innerLines
+      // 5. changed vertical scrollbar - recompute innerChars
+      double innerChars = config.innerChars;
+      double innerLines = config.innerLines;
+      double widthChars = config.widthChars;
+      double heightChars = config.heightChars;
+      if (Double.compare(beforeUpdate.widthChars, config.widthChars) != 0)
+      {
+         // for compatibility reasons the insets size preserved here however looks like
+         // the insets are always 0 for GUI selection list
+         nativeWidth = cc.widthToNative(config.widthChars - insets().left - insets().right);
+         innerChars = -1; // re-compute it
+      }
+      else if (beforeUpdate.innerChars != config.innerChars)
+      {
+         nativeWidth = config.innerChars * slCharWidth + BORDER_SIZE;
+         widthChars = -1; // re-compute it
+      }
+      else if (beforeUpdate.scrollbarHorizontal != config.scrollbarHorizontal)
+      {
+         // recompute inner lines
+         innerLines = -1;
+      }
+
+      if (Double.compare(beforeUpdate.heightChars, config.heightChars) != 0)
+      {
+         // for compatibility reasons the insets size preserved here however looks like
+         // the insets are always 0 for GUI selection list
+         nativeHeight = cc.heightToNative(config.heightChars - insets().top  - insets().bottom);
+         innerLines = -1; // re-compute it
+      }
+      else if (beforeUpdate.innerLines != config.innerLines)
+      {
          nativeHeight = config.innerLines * slRowHeight + BORDER_SIZE;
-         nativeWidth = config.innerChars * slCharWidth + BORDER_SIZE;
+         heightChars = -1;
+      }
+      else if (beforeUpdate.scrollbarVertical != config.scrollbarVertical)
+      {
+         // recompute inner chars
+         innerLines = -1;
+      }
+      
+      if (nativeWidth == 0)
+      {
+         nativeWidth = cc.widthToNative(config.widthChars);
+      }
+      if (nativeHeight == 0)
+      {
+         nativeHeight = cc.heightToNative(config.heightChars);
       }
       
       // inner size in pixels(without the border)
@@ -432,79 +458,73 @@
       if (config.scrollbarHorizontal)
       {
          int barHeight = ((ScrollPaneGuiImpl)scrollpane).barSizeNative(Orientation.HORIZONTAL);
-         if (explicitSizeSetup && !innerLinesChanged)
+         if (innerLines == -1)
          {
+            // height has changed, adjust the inner lines height
             innerLinesInPixels -= barHeight != 0 ? barHeight : theme.getScrollBarGaugeWidth();
          }
-         else
+         else if (heightChars == -1)
          {
+            // inner lines has changed, adjust the full height
             nativeHeight += barHeight != 0 ? barHeight : theme.getScrollBarGaugeWidth();
          }
       }
-      // the following two doubles are not the same innerLines >= inCharHeight
-      double inCharHeight = screen().coordinates().heightFromNative(nativeHeight);
-      double innerLines = (double)innerLinesInPixels / (double)slRowHeight;
 
-      // calculate pixel width
-      //
       // vertical scrollbar adds additional space
       if (config.scrollbarVertical)
       {
          int barWidth = ((ScrollPaneGuiImpl)scrollpane).barSizeNative(Orientation.VERTICAL);
-         if (explicitSizeSetup && !innerLinesChanged)
+         if (innerChars == -1)
          {
+            // width has changed, adjust the inner chars width
             innerCharsInPixels -= barWidth != 0 ? barWidth : theme.getScrollBarGaugeWidth();
          }
-         else
+         else if (widthChars == -1)
          {
+            // inner chars has changed, adjust the full width
             nativeWidth += barWidth != 0 ? barWidth : theme.getScrollBarGaugeWidth();
          }
       }
-      // the following two doubles are not the same innerChars >= inCharWidth
-      double inCharWidth = screen().coordinates().widthFromNative(nativeWidth);
-      double innerChars = (double)innerCharsInPixels / (double)slCharWidth;
+      
+      if (heightChars == -1)
+      {
+         heightChars = cc.heightFromNative(nativeHeight);
+      }
+      if (widthChars == -1)
+      {
+         widthChars = cc.widthFromNative(nativeWidth);
+      }
+      if (innerLines == -1)
+      {
+         innerLines = (double) innerLinesInPixels / (double) slRowHeight;
+      }
+      if (innerChars == -1)
+      {
+         innerChars = (double) innerCharsInPixels / (double) slCharWidth;
+      }
       
       // set new size for GUI selection-list
-      setSize(new Dimension(inCharWidth, inCharHeight));
+      setSize(new Dimension(widthChars, heightChars));
 
       // and set size related variables for all components inside selection-list
-      scrollpane.setWidth(inCharWidth);
-      scrollpane.setHeight(inCharHeight);
+      scrollpane.setWidth(widthChars);
+      scrollpane.setHeight(heightChars);
 
       // using ceil() guarantees the empty cells missing
-      list.setColumns((int)Math.ceil(innerChars));
+      list.setColumns((int) Math.ceil(innerChars));
       // this is a workaround to fix issues related to wrong visible size returns
       // possible we need to use floor() instead of the round() but ceratinly the ceil()
       // call produces the wrong result
       // the alternative(and the best one) solution is to use the pixel based values here 
-      list.setVisibleRows((int)Math.round(innerLines));
+      list.setVisibleRows((int) Math.round(innerLines));
 
       // sets the exact internal pixel width
       ((SelectionListBodyGuiImpl)list).setInternalWidth(innerCharsInPixels);
       
-      // update widget config size if necessary
-      if (config.widthChars == 0.0)
-      {
-         config.widthChars = inCharWidth;
-      }
-      if (config.heightChars == 0.0 || innerLinesChanged)
-      {
-         config.heightChars = inCharHeight;
-      }
-      // update widget config inner chars and lines if necessary 
-      if (explicitSizeSetup && !innerLinesChanged)
-      {
-         // using floor() guarantees all lines/cells will be completely visible
-         if (config.innerChars < 0) // don't change the server value
-         {
-            config.innerChars = (int)Math.floor(innerChars);
-         }
-         
-         if (config.innerLines < 0) // don't change the server value
-         {
-            config.innerLines = (int)Math.floor(innerLines);
-         }
-      }
+      config.widthChars = widthChars;
+      config.heightChars = heightChars;
+      config.innerChars = (int)Math.floor(innerChars);
+      config.innerLines = (int)Math.floor(innerLines);
    }
    
    /**
@@ -547,4 +567,40 @@
          }
       }
    }
-}
\ No newline at end of file
+   
+   /**
+    * Adjust the scrollbars based on the config attributes (which can be changed until the widget is realized).
+    */
+   private void adjustScrollBars()
+   {
+      ScrollPaneGuiImpl sl = (ScrollPaneGuiImpl) scrollpane;
+      
+      // set up the scrollbars, the first part is the scrollpane
+      if (config.scrollbarVertical && config.scrollbarHorizontal)
+      {
+         sl.setScrollBars(Bars.BOTH);
+      }
+      else if (config.scrollbarVertical)
+      {
+         sl.setScrollBars(Bars.VERTICAL);
+      }
+      else if (config.scrollbarHorizontal)
+      {
+         sl.setScrollBars(Bars.HORIZONTAL);
+      }
+      else
+      {
+         sl.setScrollBars(Bars.NONE);
+      }
+
+      // the scrollbars should always be visible if defined
+      if (config.scrollbarVertical || config.scrollbarHorizontal)
+      {
+         sl.setShowBars(ScrollPaneGuiImpl.ShowBars.ALWAYS);
+      }
+      else
+      {
+         sl.setShowBars(ScrollPaneGuiImpl.ShowBars.NEVER);
+      }
+   }
+}

=== modified file 'src/com/goldencode/p2j/ui/client/gui/SubMenuGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/SubMenuGuiImpl.java	2020-10-08 21:40:29 +0000
+++ src/com/goldencode/p2j/ui/client/gui/SubMenuGuiImpl.java	2021-01-28 17:31:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : SubMenuGuiImpl.java
 ** Abstract : SubMenuGuiImpl client implementation
 **
-** Copyright (c) 2015-2020, Golden Code Development Corporation.
+** Copyright (c) 2015-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- -----------------------------Description-----------------------------
 ** 001 VIG 20150525 Created initial version.
@@ -55,6 +55,7 @@
 **                  fixed focus-related draw artifacts.
 ** 026 HC  20190401 Fixed unexpected NPE during destroy of menu widget.
 ** 027 EVL 20201008 Adding logic to bypass visibility change if nothing is really changing.
+**     CA  20210128 Fixed problems with navigating a menubar via ALT and LEFT/RIGHT/UP/DOWN keys.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -605,6 +606,23 @@
    }
    
    /**
+    * Get widget which is in focus.
+    *
+    * @return  focused widget.
+    */
+   @Override
+   public Widget<GuiOutputManager> currentFocus()
+   {
+      Widget<GuiOutputManager> focus = super.currentFocus();
+      if (focus == null)
+      {
+         focus = this;
+      }
+      
+      return focus;
+   }
+   
+   /**
     * Lay out container. Set children locations.
     */
    @Override
@@ -773,6 +791,8 @@
          return;
       }
 
+      showBody = false;
+      
       // force the driver to be in control, as this affects UI
       gd.setControl(true);
       
@@ -930,6 +950,18 @@
 
          event.consume();
       }
+      else if (!showBody && event.keyCode() == Key.VK_CURSOR_DOWN && Menu.isMenubarElement(this))
+      {
+         showBody = true;
+         
+         ThinClient.getInstance().invokeLaterOS(() ->
+         {
+            requestFocus(true);
+            showBody();
+         });
+         
+         // don't consume the event here
+      }
       
       super.processKeyEvent(event);
    } 
@@ -1058,7 +1090,15 @@
       if (!isBodyDisplayed())
       {
          stopScheduledShowHide();
-         ThinClient.getInstance().invokeLaterOS(this::showBody);
+         ThinClient tc = ThinClient.getInstance();
+         tc.invokeLaterOS(() ->
+         {
+            tc.eventDrawingBracket(this, () ->
+            {
+               showBody = true;
+               showBody();
+            });
+         });
       }
    }
 
@@ -1115,11 +1155,21 @@
    @Override
    public void onFocusGained(FocusEvent event)
    {
+      if (event.other() instanceof SubMenu)
+      {
+         SubMenu other = (SubMenu) event.other();
+         
+         if (!showBody)
+         {
+            showBody = other.isShowBody();
+         }
+      }
+      
       SubMenuGuiImpl.clearHighlights(getParentMenuContainer());
       setHighlighted(true);
       parent().repaint();
 
-      if (!isBodyDisplayed())
+      if (!isBodyDisplayed() && showBody)
       {
          if (Menu.isMenubarElement(this))
          {
@@ -1353,7 +1403,7 @@
    @Override
    protected void showBody() 
    {
-      if (isBodyDisplayed() || parent() == null)
+      if (!showBody || isBodyDisplayed() || parent() == null)
       {
          return;
       }
@@ -1432,6 +1482,7 @@
                {
                   tc.eventDrawingBracket(this, () ->
                   {
+                     showBody = true;
                      requestFocus(true);
                      if (!Menu.isMenubarElement(this))
                      {
@@ -1446,6 +1497,7 @@
       }
       else
       {
+         showBody = true;
          ThinClient.getInstance().invokeLater(this::showBody);
       }
    }
@@ -1458,6 +1510,7 @@
    {
       // the body is not always become null when body is closing
       body = null;
+      showBody = false;
       setHighlighted(false);
       for (Widget<GuiOutputManager> w : widgets())
       {
@@ -1676,7 +1729,7 @@
       public Widget<GuiOutputManager> currentFocus(boolean recurse)
       {
          Widget<GuiOutputManager> current = getFocusInt();
-         return current == null ? this : current;
+         return current == null ? SubMenuGuiImpl.this : current;
       }
 
       /**

=== modified file 'src/com/goldencode/p2j/ui/client/gui/TextCell.java'
--- src/com/goldencode/p2j/ui/client/gui/TextCell.java	2020-04-10 20:57:11 +0000
+++ src/com/goldencode/p2j/ui/client/gui/TextCell.java	2020-12-09 18:05:56 +0000
@@ -7,6 +7,7 @@
 ** -#- -I- --Date-- --------------------------------Description-----------------------------------
 ** 001 SBI 20200326 Moved into new unit.
 **         20200409 Added setFontResolver, setColorResolver.
+** 002 CA  20201209 Added 'bold' support.
 */
 
 /*
@@ -131,6 +132,9 @@
     */
    private GuiFontResolver fontResolver;
    
+   /** Flag indicating if the text must be bold. */
+   private boolean bold = false;
+   
    /**
     * Creates this text cell using the given size in character units and displaying the given
     * text at the bottom.
@@ -314,7 +318,10 @@
       gd.draw(getId(), p, clip, () ->
       {
          gd.setGuiFont(fntCache.font);
-         
+         if (bold)
+         {
+            gd.setFontStyle(FontStyle.BOLD);
+         }
          ColorRgb bgColor;
          ColorRgb fgColor;
          
@@ -448,6 +455,16 @@
    }
    
    /**
+    * Set the {@link #bold} flag.
+    * 
+    * @param    The new bold value.
+    */
+   public void setBold(boolean bold)
+   {
+      this.bold = bold;
+   }
+   
+   /**
     * Sets the new size of this text cell.
     * 
     * @param    width

=== modified file 'src/com/goldencode/p2j/ui/client/gui/ToggleBoxGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/ToggleBoxGuiImpl.java	2020-02-25 17:21:25 +0000
+++ src/com/goldencode/p2j/ui/client/gui/ToggleBoxGuiImpl.java	2021-01-23 18:01:03 +0000
@@ -2,7 +2,7 @@
 ** Module   : ToggleBoxGuiImpl.java
 ** Abstract : GUI toggle-box implementation
 **
-** Copyright (c) 2014-2020, Golden Code Development Corporation.
+** Copyright (c) 2014-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 VIG 20150210 Initial version.
@@ -41,6 +41,11 @@
 ** 025 HC  20190418 Reverted "The widget should emit one time VALUE-CHANGED when initial value is set.".
 ** 026 SVL 20190502 Support for RETURN key for browsed toggle-boxes.
 ** 027 SBI 20200225 Added setColorResolver.
+** 028 RFB 20201113 Added a new helper (getLabelNativeWidth) to compute label width in native coordinates.
+**                  This is used in width() and added to setWidthInt(). Ref #4872.
+**     RFB 20201113 Minor cleanup of #4872 based on code review.
+**     SVL 20201116 Store reference to the parent browse column in order to invoke the column triggers.
+**     CA  20210123 If the TOGGLE-BOX is not realized, then its LABEL can be changed.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -135,8 +140,8 @@
    /** Pressed button state flag. */
    private boolean pressed = false;
 
-   /** Browse widget to notify. */
-   private Browse browse = null;
+   /** Parent browse column widget (if this toggle-box is associated to a browse). */
+   protected BrowseColumn<GuiOutputManager> browseColumn = null;
    
    /**
     * Constructor.
@@ -197,7 +202,6 @@
    @Override
    public double width()
    {
-      Theme theme = ThemeManager.getCurrentTheme();
       // check if the width was set explicitly, return it instead
       if (config.widthChars > 0.0)
       {
@@ -205,11 +209,8 @@
       }
       
       Window<?> window = WindowManager.resolveWindow(this);
-      int font = gf.resolveFontNum();
-      int nativeW = theme.getCheckBoxSize() + 
-                    theme.getCheckBoxSpace() +
-                    FontManager.getTextWidth(textLabel(), window, font, gd) + 
-                    3; /* space at the end, to allow the selection dotted line to be drawn */
+      
+      int nativeW = getLabelNativeWidth(window); 
       
       // update widget width if necessary
       if (config.widthPixels == 0.0 || config.widthPixels != nativeW)
@@ -305,9 +306,8 @@
    public void setWidthInt()
    {
       // method calls server-side to get legacy text metrics, so current changes could be sent.
-      int nativeWidth = getTextWidth(config.label, gf.resolveFontNum());
       CoordinatesConversion cc = screen().coordinates();
-      config.widthChars = cc.widthFromNative(nativeWidth) + 5;
+      config.widthPixels = getLabelNativeWidth(WindowManager.resolveWindow(this));
    }
    
    /**
@@ -385,6 +385,7 @@
    @Override
    public void mouseWheelMoved(MouseWheelEvent e)
    {
+      Browse browse = getBrowse();
       if (browse != null)
       {
          browse.mouseWheelMoved(e);
@@ -404,9 +405,11 @@
    @Override
    public void afterConfigUpdate(ToggleBoxConfig beforeUpdate)
    {
-      if (!StringHelper.equal(beforeUpdate.label, config().label) && config.autoResize)
+      if (!StringHelper.equal(beforeUpdate.label, config().label) && (!config.realized || config.autoResize))
       {
          setTextLabel(config().label);
+         // Label changed, set widthChars, as well
+         setWidthInt();
       }
       
       super.afterConfigUpdateBase(beforeUpdate);
@@ -498,6 +501,7 @@
    @Override
    public void processKeyEvent(KeyInput keyEvent)
    {
+      Browse browse = getBrowse();
       if (browse != null)
       {
          browse.notifyKeyPressedInEditor(keyEvent);
@@ -518,14 +522,55 @@
    }
 
    /**
-    * Link editor with the <code>Browse</code> widget.
-    *
-    * @param   browse
-    *          The instance of the <code>Browse</code> to link with.
-    */
-   public void setBrowse(Browse browse)
-   {
-      this.browse = browse;
+    * Link this toggle-box with the <code>BrowseColumn</code> widget.
+    *
+    * @param browseColumn
+    *        Parent browse column widget.
+    */
+   public void setBrowseColumn(BrowseColumn<GuiOutputManager> browseColumn)
+   {
+      this.browseColumn = browseColumn;
+   }
+
+   /**
+    * Determines whether this {@link ToggleBoxGuiImpl} has an associated {@link Browse}
+    * widget.
+    *
+    * @return   <code>true</code> if this {@link ToggleBoxGuiImpl} has an associated
+    *           {@link Browse} widget.
+    */
+   public boolean isLinkedToBrowse()
+   {
+      return browseColumn != null;
+   }
+
+   /**
+    * This method returns the widget that should serve as the source of the triggered event. This widget must
+    * always be a non-virtual widget. The method may also return {@code null} which prevents triggering of the
+    * legacy event.<p>
+    * If this toggle-box is inside a browse column, that browse column widget is returned.
+    *
+    * @param   evtCode
+    *          The event being triggered.
+    * @param   isKey
+    *          Whether the event being triggered is a real key.
+    *
+    * @return  see above.
+    */
+   public Widget<?> getTriggerWidget(int evtCode, boolean isKey)
+   {
+      return isLinkedToBrowse() ? browseColumn.getTriggerWidget(evtCode, isKey) :
+                                  super.getTriggerWidget(evtCode, isKey);
+   }
+
+   /**
+    * Get associated browse widget, if any.
+    *
+    * @return associated browse widget or <code>null</code> if there is no associated browse widget.
+    */
+   protected Browse<GuiOutputManager> getBrowse()
+   {
+      return browseColumn != null ? browseColumn.getBrowse() : null;
    }
 
    /**
@@ -585,4 +630,20 @@
    {
       return key == Key.VK_SPACE;
    }
+   
+   /**
+    * Return the width of the actual label in native pixels.
+    */
+   protected int getLabelNativeWidth(Window<?> window)
+   {
+      // method calls server-side to get legacy text metrics, so current changes could be sent.
+      Theme theme = ThemeManager.getCurrentTheme();
+      int font = gf.resolveFontNum();
+      int nativeW = theme.getCheckBoxSize() + 
+                    theme.getCheckBoxSpace() +
+                    FontManager.getTextWidth(textLabel(), window, font, gd) + 
+                    3; /* space at the end, to allow the selection dotted line to be drawn */
+
+      return nativeW;
+   }  
 }

=== modified file 'src/com/goldencode/p2j/ui/client/gui/TreeBodyGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/TreeBodyGuiImpl.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/gui/TreeBodyGuiImpl.java	2020-11-04 10:40:38 +0000
@@ -25,6 +25,7 @@
 **                  a child of the tree body, changed ensureVisible to scroll nodes horizontally into view
 **                  iff the node editor mode is activated.
 ** 007 IAS 20200828 Fixed type parameters for generic classes.
+**     EVL 20201104 Small optimization for repaint the new node.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -332,8 +333,12 @@
       TreeGuiImpl.TreeNode<N> node = isNodeContentAtLocation(n);
       if (node != null)
       {
-         tree.setCurrentNode(node, true);
-         repaint();
+         TreeGuiImpl.TreeNode<N> nodeCurr = tree.getCurrentNode();
+         if (node != nodeCurr)
+         {
+            tree.setCurrentNode(node, true);
+            repaint();
+         }
       }
       else
       {
@@ -361,7 +366,7 @@
       NativePoint n = translate(e);
       
       TreeGuiImpl.TreeNode<N> node = isNodeContentAtLocation(n);
-      
+
       if (node != null)
       {
          fireNodeClickEvent(node); // fires for any single or double clicks

=== modified file 'src/com/goldencode/p2j/ui/client/gui/TreeListCaptionItem.java'
--- src/com/goldencode/p2j/ui/client/gui/TreeListCaptionItem.java	2020-09-21 23:10:28 +0000
+++ src/com/goldencode/p2j/ui/client/gui/TreeListCaptionItem.java	2021-01-28 21:48:33 +0000
@@ -2,7 +2,7 @@
  ** Module   : TreeListCaptionItem.java
  ** Abstract : TREELIST caption item (column) widget implementation.
  **
- ** Copyright (c) 2019-2020, Golden Code Development Corporation.
+ ** Copyright (c) 2019-2021, Golden Code Development Corporation.
  **
  ** -#- -I- --Date-- ---------------------------------Description---------------------------------
  ** 001 HC  20190313 Created initial version.
@@ -11,6 +11,8 @@
  ** 003 HC  20200313 Javadoc fixes.
  ** 004 IAS 20200828 Fixed type parameters for generic classes.
  ** 005 VVT 20200822 Fixed NPE in mouseReleased(). See #4908.
+ ** 006 VVT 20210128 Fixed AssertionError in mouseReleased() (see #5117).
+ **                  relocateColumn() moved to TreeListGuiImpl.
  */
 /*
  ** This program is free software: you can redistribute it and/or modify
@@ -67,7 +69,9 @@
 package com.goldencode.p2j.ui.client.gui;
 
 import com.goldencode.p2j.ui.*;
+import com.goldencode.p2j.ui.TreeListConfig.*;
 import com.goldencode.p2j.ui.client.*;
+import com.goldencode.p2j.ui.client.gui.TreeListGuiImpl.*;
 import com.goldencode.p2j.ui.client.gui.driver.*;
 import com.goldencode.p2j.ui.client.gui.theme.*;
 import com.goldencode.p2j.ui.client.widget.*;
@@ -84,7 +88,7 @@
 extends AbstractWidget<GuiOutputManager>
 {
    /** The column this caption item wraps up */
-   TreeListGuiImpl.ColumnCache column;
+   ColumnCache column;
 
    /** Column resize edge size */
    private static final int RESIZE_EDGE_WIDTH = 4;
@@ -137,7 +141,7 @@
     * @param   column
     *          Cached column info.
     */
-   public TreeListCaptionItem(TreeListGuiImpl<?> tree, TreeListGuiImpl.ColumnCache column)
+   public TreeListCaptionItem(TreeListGuiImpl<?> tree, ColumnCache column)
    {      
       this.id = WidgetId.nextID();
       this.tree = tree;
@@ -303,12 +307,12 @@
                (Supplier<String>)() -> String.format("Caption mouse released: button %s at (%s, %s)",
                         e.getButton(), e.getX(), e.getY()));
       
-      TreeListConfig<?> c = tree.config();
+      final TreeListConfig<?> c = tree.config();
 
       // column resizing
       if (atResizeEdge && pushLocation != null)
       {
-         ClientConfigManager.getInstance().addDirtyConfig(c, "columns");
+         ConfigManager.getInstance().addDirtyConfig(c, "columns");
       }
       // column move
       else if (ghostCaptionItem != null)
@@ -327,8 +331,7 @@
 
          if (columnMove)
          {
-            assert dragTargetItem != null;
-            dragTargetItem.relocateColumn(dragTargetItem.column, column);
+            tree.relocateColumn(dragTargetItem != null ? dragTargetItem.column : null, column);
             dragTargetItem = null;
          }
       }
@@ -344,7 +347,7 @@
             c.setAscendingOrder(column.index);
          }
 
-         ClientConfigManager.getInstance().addDirtyConfig(c, "sort");
+         ConfigManager.getInstance().addDirtyConfig(c, "sort");
          tree.buildTreeModel();
          tree.repaint();
       }
@@ -511,48 +514,6 @@
    }
 
    /**
-    * Relocates sourceItem column after the targetItem column.
-    *
-    * @param   targetItem
-    *          Target column.
-    * @param   sourceItem
-    *          Source column.
-    */
-   private void relocateColumn(TreeListGuiImpl.ColumnCache targetItem, TreeListGuiImpl.ColumnCache sourceItem)
-   {
-      ArrayList<TreeListGuiImpl.ColumnCache> newlist = new ArrayList<>();
-
-      if (targetItem == null)
-      {
-         newlist.add(sourceItem);
-      }
-
-      TreeListGuiImpl<?> tlist = parent(TreeListGuiImpl.class);
-      TreeListConfig<?> c = tlist.config();
-
-      for (TreeListGuiImpl.ColumnCache col : tlist.getColumns())
-      {
-         if (!Objects.equals(col, sourceItem))
-         {
-            newlist.add(col);
-         }
-
-         if (Objects.equals(col, targetItem))
-         {
-            newlist.add(sourceItem);
-         }
-      }
-
-      for (int i = 0; i < newlist.size(); i++)
-      {
-         c.positions.set(newlist.get(i).index, i);
-      }
-
-      ConfigManager.getInstance().addDirtyConfig(c, "positions");
-      tree.buildTreeModel();
-   }
-
-   /**
     * Creates caption item for mouse dragging.
     *
     * @return  the created widget.

=== modified file 'src/com/goldencode/p2j/ui/client/gui/TreeListGuiImpl.java'
--- src/com/goldencode/p2j/ui/client/gui/TreeListGuiImpl.java	2020-09-22 06:39:27 +0000
+++ src/com/goldencode/p2j/ui/client/gui/TreeListGuiImpl.java	2021-01-29 14:13:08 +0000
@@ -2,7 +2,7 @@
 ** Module   : TreeListGuiImpl.java
 ** Abstract : TREELIST widget client-side implementation.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 HC  20190313 Created initial version.
@@ -13,6 +13,9 @@
 ** 004 IAS 20200828 Fixed type parameters for generic classes.
 ** 005 IAS 20200913 Fixed type parameters for generic classes.
 ** 006 VVT 20200822 Logger added.
+** 007 VVT 20210128 Updated to handle tree with no columns situation.
+**                  buildTreeModel(): code cleaned up.
+**                  relocateColumns() re-designed and moved here from TreeListCaptionItem
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -69,8 +72,10 @@
 package com.goldencode.p2j.ui.client.gui;
 
 import com.goldencode.p2j.ui.*;
+import com.goldencode.p2j.ui.TreeListConfig.*;
 import com.goldencode.p2j.ui.client.*;
 import com.goldencode.p2j.ui.client.layout.*;
+import com.google.common.collect.*;
 
 import java.util.*;
 import java.util.logging.*;
@@ -88,7 +93,7 @@
    TreeListCaption caption;
 
    /** Cached column definitions */
-   private ArrayList<TreeListGuiImpl.ColumnCache> columns;
+   private final List<TreeListGuiImpl.ColumnCache> columns = new ArrayList<>();
 
    /** Logger used to log all this treelist events */
    Logger LOGGER = Logger.getLogger(TreeListGuiImpl.class.getName());
@@ -203,9 +208,11 @@
    @Override
    protected String getNodeText(TreeNode<N> node)
    {
-      int index = config.positions.get(0);
+      final List<Column> cols = config.columns;
+      assert !cols.isEmpty();
+      final int position = cols.get(0).position;
       List<Object> values = node.value.cellValues;
-      return index >= 0 && index < values.size() ? values.get(index).toString() : "";
+      return position >= 0 && position < values.size() ? values.get(position).toString() : "";
    }
 
    /**
@@ -240,44 +247,28 @@
    @Override
    protected void buildTreeModel()
    {
-      TreeListConfig<N> cfg = config();
-
-      // when new column is created this method is called for each config field changed, wait for all fields
-      // are set
-      if (cfg.positions.size() == cfg.columns.size())
-      {
-         gd.withSelectedWindow(WindowManager.resolveWindow(this).getId().asInt(), () ->
-         {
-            ArrayList<TreeListGuiImpl.ColumnCache> tempColumns =
-               new ArrayList<>(Collections.nCopies(cfg.columns.size(), null));
-
-
-            for (int i = 0; i < cfg.columns.size(); i++)
-            {
-               TreeListConfig.Column c = cfg.columns.get(i);
-               if (!c.visible)
-               {
-                  continue;
-               }
-               String caption = gd.fitStringWithEllipsis(c.caption, gf.font().font, c.width);
-               TreeListGuiImpl.ColumnCache cc = new TreeListGuiImpl.ColumnCache(c, caption, false, i);
-               int pos = cfg.positions.get(i);
-               tempColumns.set(pos, cc);
-            }
-
-            columns = new ArrayList<>();
-            for (ColumnCache cc : tempColumns)
-            {
-               if (cc != null)
-               {
-                  columns.add(cc);
-               }
-            }
-         });
-
-         caption.buildItems(columns);
-         caption.doLayout();
-      }
+      /**
+       * Transform config.columns to this.columns:
+       * <li>select only visible columns
+       * <li>sort by column positions
+       */
+      gd.withSelectedWindow(WindowManager.resolveWindow(this).getId().asInt(), () -> {
+         final TreeListConfig<N> cfg = config();
+         final List<Column> cfgColumns = cfg.columns;
+         final Column[] visibleColumns = Iterables
+                  .toArray(Iterables.filter(cfgColumns, c -> c.visible), Column.class);
+
+         Arrays.sort(visibleColumns, Comparator.comparingInt(c -> c.position));
+
+         columns.clear();
+         columns.addAll(Lists.newArrayList(Iterables.transform(Arrays.asList(visibleColumns),
+                  c -> new ColumnCache(c,
+                           gd.fitStringWithEllipsis(c.caption, gf.font().font, c.width), false,
+                           cfgColumns.indexOf(c)))));
+      });
+
+      caption.buildItems(columns);
+      caption.doLayout();
 
       super.buildTreeModel();
    }
@@ -415,4 +406,78 @@
          return Objects.hash(index);
       }
    }
+   
+   /**
+    * Update config column positions after a column position was changed
+    * by the user.
+    *
+    * @param   targetColumn
+    *          Target column or {@code null} to place at the beginning of the list
+    * @param   sourceColumn
+    *          Source column.
+    */   
+   final void relocateColumn(final ColumnCache targetColumn, final ColumnCache sourceColumn)
+   {
+      final int sourceIndex = columns.indexOf(sourceColumn);
+      final int newSourceIndex;
+
+      if (targetColumn == null)
+      {
+         newSourceIndex = 0;
+      }
+      else
+      {
+         final int targetIndex = columns.indexOf(targetColumn);
+         assert targetIndex != -1;
+         newSourceIndex = targetIndex < (columns.size() - 1) ? targetIndex + 1 : targetIndex;
+      }
+
+      if (newSourceIndex == sourceIndex)
+      {
+         /**
+          * Position was not changed, nothing to do
+          */
+         return;
+      }
+
+      final TreeListConfig<?> config = config();
+      final List<Column> configColumns = config.columns;
+      final int configColumnsSize = configColumns.size();
+      if (newSourceIndex > sourceIndex)
+      {
+         /**
+          * Column was moved right
+          */
+         for (int pos = sourceIndex + 1; pos <= newSourceIndex; pos++)
+         {
+            final int index = columns.get(pos).index;
+            assert index < configColumnsSize;
+            configColumns.get(index).position--;
+         }
+
+         final int index = columns.get(sourceIndex).index;
+         assert index < configColumnsSize;
+         configColumns.get(index).position += newSourceIndex - sourceIndex;
+      }
+      else
+      {
+         /**
+          * Move column left
+          */
+         for (int pos = newSourceIndex; pos <= sourceIndex - 1; pos++)
+         {
+            final int index = columns.get(pos).index;
+            assert index < configColumnsSize;
+            configColumns.get(index).position++;
+         }
+
+         final int index = columns.get(sourceIndex).index;
+         assert index < configColumnsSize;
+         configColumns.get(index).position -= sourceIndex - newSourceIndex;
+      }
+
+      ConfigManager.getInstance().addDirtyConfig(config, "columns");
+
+      buildTreeModel();
+   }
 }

=== modified file 'src/com/goldencode/p2j/ui/client/gui/WindowTitleBar.java'
--- src/com/goldencode/p2j/ui/client/gui/WindowTitleBar.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/gui/WindowTitleBar.java	2020-11-17 20:03:34 +0000
@@ -74,6 +74,8 @@
 ** 
 ** 044 HC  20200313 Javadoc fixes.
 ** 045 SBI 20200622 Changed WindowIcon to expose useSmallIconSize.
+**     HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
+**     CA  20201117 Fixed a leak for the caption buttons, which need to be deleted explicitly. 
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -139,7 +141,7 @@
 import com.goldencode.p2j.ui.*;
 import com.goldencode.p2j.ui.chui.*;
 import com.goldencode.p2j.ui.client.*;
-import com.goldencode.p2j.ui.client.Label;
+import com.goldencode.p2j.ui.client.ClientDrivenLabel;
 import com.goldencode.p2j.ui.client.event.*;
 import com.goldencode.p2j.ui.client.gui.driver.*;
 import com.goldencode.p2j.ui.client.gui.theme.*;
@@ -497,6 +499,20 @@
    }
    
    /**
+    * Destroy this widget.  Notify all of its components that the widget has been destroyed.
+    */
+   @Override
+   public void destroy()
+   {
+      super.destroy();
+      
+      for (CaptionButton button : allButtons)
+      {
+         button.destroy();
+      }
+   }
+   
+   /**
     * Activates tooltips for caption buttons.
     */
    public void activateTooltips()
@@ -871,7 +887,7 @@
     * The window's title.
     */
    private class WindowTitle
-   extends Label<GuiOutputManager>
+   extends ClientDrivenLabel<GuiOutputManager>
    {
       /** The cached window title */
       private String title;

=== modified file 'src/com/goldencode/p2j/ui/client/gui/driver/AbstractGuiDriver.java'
--- src/com/goldencode/p2j/ui/client/gui/driver/AbstractGuiDriver.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/AbstractGuiDriver.java	2020-10-09 18:00:55 +0000
@@ -116,6 +116,7 @@
 **                  limit the bounds of widget move and resize.
 ** 056 VVT 20200820 Changed moveResource and copyResource to preserve original file extensions.
 ** 057 HC  20200726 Initial implementation of SPREADSHEET widget and related changes.
+**     VVT 20201007 A new drawing primitive was added: drawEdge()
 */
 
 /*
@@ -1428,6 +1429,39 @@
    }
 
    /**
+    * Draw one or more edges of rectangle.
+    * 
+    * See {@link GuiDriver#drawEdge(int, int, int, int, int, int)} for details.
+    * 
+    * @param left
+    *        the rectangle left side coordinate
+    * @param top
+    *        the rectangle top side coordinate
+    * @param width
+    *        the rectangle width
+    * @param height
+    *        the rectangle height
+    * @param edgeType
+    *        Flags defining the edge type (flat, bevelled etc.)
+    * @param flags
+    *        Flags defining which rectangle edges to draw
+    *        (left, top, right, bottom)
+    */
+   @Override
+   public void drawEdge(int left, int top, int width, int height, int edgeType, int flags)
+   {
+      PaintStructure ps = new PaintStructure(PaintPrimitives.DRAW_EDGE);
+      ps.x = left;
+      ps.y = top;
+      ps.width = width;
+      ps.height = height;
+      ps.edgeType = edgeType;
+      ps.edgeFlags = flags;
+      
+      ews.offer(ps);
+   }
+
+   /**
     * Draws a text fields caret, using the current color, between the points
     * <code>(x1,&nbsp;y1)</code> and <code>(x2,&nbsp;y2)</code>
     * in this graphics context's coordinate system.
@@ -3116,7 +3150,6 @@
 
          core.run();
       }
-
       finally
       {
          if (useClips != null)

=== modified file 'src/com/goldencode/p2j/ui/client/gui/driver/GuiDriver.java'
--- src/com/goldencode/p2j/ui/client/gui/driver/GuiDriver.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/GuiDriver.java	2020-10-09 18:00:55 +0000
@@ -124,6 +124,7 @@
 ** 072 MAG 20191017 Added set mouse icon from image resource.
 ** 073 HC  20200313 Javadoc fixes.
 ** 074 HC  20200726 Initial implementation of SPREADSHEET widget and related changes.
+**     VVT 20201007 A new drawing primitive was added: drawEdge()
 */
 
 /*
@@ -641,6 +642,46 @@
                                  int fontDescent);
 
    /**
+    * Draw one or more edges of rectangle.
+    * <p> 
+    * The edgeType parameter is a bit mask, defining which edges of the rectangle
+    * must be drawn and some other features:
+    * <li>BF_LEFT (0x0001): draw the left edge;
+    * <li>BF_TOP (0x0002): draw the top edge;
+    * <li>BF_RIGHT (0x0004): draw the right edge;
+    * <li>BF_BOTTOM (0x0008): draw the bottom edge.
+    * <li>BF_FLAT (0x4000): flat border (only two colors are used: one to
+    *     draw entire inner border, another for the entire outer border)
+    * <p> 
+    * The edgeFlags parameter is a bit mask, the types of inner and outer edges:
+    * <p>
+    * <li>BDR_RAISEDOUTER (0x0001): raise the outer edge;
+    * <li>BDR_SUNKENOUTER (0x0002): sunk the outer edge;
+    * <li>BDR_RAISEDINNER (0x0004): raise the inner edge;
+    * <li>BDR_SUNKENINNER (0x0008): sunk the inner edge.
+    * <p>
+    * 
+    * @see https://docs.microsoft.com/en-us/windows/win32/api/winuser/nf-winuser-drawedge
+    * <p>
+    * Note: not all the features of the original MS-Windows function are implemented in FWD.
+    * 
+    * @param left
+    *        the rectangle left side coordinate
+    * @param top
+    *        the rectangle top side coordinate
+    * @param width
+    *        the rectangle width
+    * @param height
+    *        the rectangle height
+    * @param edgeType
+    *        Flags defining the edge type (flat, bevelled etc.)
+    * @param flags
+    *        Flags defining which rectangle edges to draw
+    *        (left, top, right, bottom)
+    */
+   public void drawEdge(int left, int top, int width, int height, int edgeType, int flags);
+   
+   /**
     * Reset selection boxes painting mode and return to normal drawing mode.
     */
    public default void resetSelection()

=== modified file 'src/com/goldencode/p2j/ui/client/gui/driver/MouseHandler.java'
--- src/com/goldencode/p2j/ui/client/gui/driver/MouseHandler.java	2020-04-14 19:21:00 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/MouseHandler.java	2020-10-11 16:07:42 +0000
@@ -26,6 +26,7 @@
 ** 015 CA  20190322 Cache the mouse actions.
 ** 016 MAG 20190912 Handle mouse events for selectable widgets.
 ** 017 EVL 20200414 Fixed bug when handleMouseEventIfSelectable() incorrectly returns true.
+** 018 CA  20201011 Use a fast-access bitmap instead of set for widget and resource IDs.
 */
 
 /*
@@ -89,6 +90,8 @@
 import java.util.*;
 import java.util.function.*;
 
+import org.roaringbitmap.*;
+
 import com.goldencode.p2j.security.*;
 import com.goldencode.p2j.ui.*;
 import com.goldencode.p2j.ui.chui.*;
@@ -128,11 +131,11 @@
     *           The resolver for the widget's mouse actions, if not cached.
     * @return   cached mouse actions for this widget.
     */
-   public static Set<Integer> getCachedActions(int wid, Supplier<Set<Integer>> calc)
+   public static RoaringBitmap getCachedActions(int wid, Supplier<RoaringBitmap> calc)
    {
       WorkArea wa = local.get();
       
-      Set<Integer> res = wa.cachedActions.get(wid);
+      RoaringBitmap res = wa.cachedActions.get(wid);
       if (res == null)
       {
          res = calc.get();
@@ -438,11 +441,11 @@
     *           
     * @return   See above.
     */
-   public static Set<Integer> getWidgetActions(int widgetId)
+   public static RoaringBitmap getWidgetActions(int widgetId)
    {
       WorkArea wa = local.get();
       
-      Set<Integer> actions = new TreeSet<>();
+      RoaringBitmap actions = new RoaringBitmap();
       
       if (wa.actions.containsKey(widgetId))
       {
@@ -769,7 +772,7 @@
       private boolean state = false;
       
       /** Cache of widget's mouse actions. */
-      private Map<Integer, Set<Integer>> cachedActions = new HashMap<>();
+      private Map<Integer, RoaringBitmap> cachedActions = new HashMap<>();
    }
    
    /**

=== modified file 'src/com/goldencode/p2j/ui/client/gui/driver/MouseWidgetAction.java'
--- src/com/goldencode/p2j/ui/client/gui/driver/MouseWidgetAction.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/MouseWidgetAction.java	2020-10-11 16:07:42 +0000
@@ -2,13 +2,14 @@
 ** Module   : MouseWidgetAction.java
 ** Abstract : Definition of a generic mouse action, to be applied to a widget.
 **
-** Copyright (c) 2014-2017, Golden Code Development Corporation.
+** Copyright (c) 2014-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 CA  20140805 Created initial version.
 ** 002 GES 20150501 Moved to a more generic package.
 ** 003 CA  20150826 Added explicit mouse events on which an instance can operate.
 ** 004 IAS 20160217 Added new constructor.
+** 005 CA  20201011 Use a fast-access bitmap instead of set for widget and resource IDs.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -71,10 +72,10 @@
 
 import java.util.*;
 
+import org.roaringbitmap.*;
+
 import com.goldencode.p2j.ui.client.*;
-import com.goldencode.p2j.ui.client.event.MouseEvt;
 import com.goldencode.p2j.ui.client.widget.*;
-import com.goldencode.p2j.util.*;
 
 /**
  * A generic action which can be applied to a specified widget, via mouse.
@@ -89,7 +90,7 @@
    protected final GuiDriver gd;
 
    /** The low-level mouse actions on which this instance can operate. */
-   protected Set<Integer> mouseActions;
+   protected RoaringBitmap mouseActions;
 
    /** The {@link MouseEvt} event ID for this high-level action. */
    private final int eventId;
@@ -146,8 +147,8 @@
       
       if (mouseActions != null)
       {
-         this.mouseActions = new HashSet<>(Utils.primitiveToIntegerList(mouseActions));
-         this.mouseActions = Collections.unmodifiableSet(this.mouseActions);
+         this.mouseActions = new RoaringBitmap();
+         this.mouseActions.add(mouseActions);
       }
       else
       {

=== modified file 'src/com/goldencode/p2j/ui/client/gui/driver/PaintPrimitives.java'
--- src/com/goldencode/p2j/ui/client/gui/driver/PaintPrimitives.java	2019-02-20 19:03:34 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/PaintPrimitives.java	2020-10-09 18:00:55 +0000
@@ -36,6 +36,7 @@
 ** 020 EVL 20180824 Adding support for drawing I-Beam cursor in text fields.
 ** 021 EVL 20181119 Adding direct manipulation start operation to be used in Web client JS.
 ** 022 SBI 20190129 Added DRAW_STRING_WITHIN_BOX and DRAW_STRING_WITHIN_BOX_SCALED.
+** 022 VVT 20201007 Support for the new drawing primitive was added: DRAW_EDGE
 */
 
 /*
@@ -161,5 +162,6 @@
    DRAW_IBEAM,
    START_DIRECT_MANIPULATION,
    DRAW_STRING_WITHIN_BOX,
-   DRAW_STRING_WITHIN_BOX_SCALED,
+   DRAW_STRING_WITHIN_BOX_SCALED,   
+   DRAW_EDGE
 }

=== modified file 'src/com/goldencode/p2j/ui/client/gui/driver/PaintStructure.java'
--- src/com/goldencode/p2j/ui/client/gui/driver/PaintStructure.java	2018-08-15 22:33:43 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/PaintStructure.java	2020-10-09 18:00:55 +0000
@@ -29,6 +29,8 @@
 **                  an infinite loop.  In Swing driver, it will not flush until all batch, 
 **                  translate and clip brackets reach 0.
 ** 015 OM  20180815 Added support for drawing ellipse primitives.
+** 016 VVT 20201007 Fields for the new drawing primitive drawEdge() were added: edgeType
+**                  and edgeFlags
 */
 
 package com.goldencode.p2j.ui.client.gui.driver;
@@ -176,6 +178,12 @@
 
    /** Clipping rectangles */
    public Set<NativeRectangle> clip;
+   
+   /** Edge type for drawEdge */
+   public int edgeType;
+   
+   /** Edge flags for drawEdge */
+   public int edgeFlags;
 
    /**
     * Constructor.

=== modified file 'src/com/goldencode/p2j/ui/client/gui/driver/swing/SwingEmulatedWindow.java'
--- src/com/goldencode/p2j/ui/client/gui/driver/swing/SwingEmulatedWindow.java	2020-09-27 18:16:32 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/swing/SwingEmulatedWindow.java	2020-10-10 18:47:02 +0000
@@ -146,6 +146,8 @@
 ** 067 SBI 20200225 Fixed DRAW_STRING_WITHIN_BOX drawing operation.
 ** 068 VVT 20200203 Functions made static if appropriate.
 ** 069 CA  20200927 Use IdentityHashMap instead of plain map when the key is a Class.
+**     VVT 20201007 A new drawing primitive was added: drawEdge()
+**     VVT 20201010 Fixed: drawEdge(). See #4950.
 */
 
 /*
@@ -354,6 +356,53 @@
     */
    private volatile boolean windowActivatedHandled = false;
    
+   /** Edge type for drawEdge */
+   private static final int BF_LEFT = 0x0001;
+   private static final int BF_TOP = 0x0002;
+   private static final int BF_RIGHT = 0x0004;
+   private static final int BF_BOTTOM = 0x0008;
+
+   private static final int BF_FLAT = 0x4000;
+
+   /* 3D border styles */
+   private static final int BDR_RAISEDOUTER = 0x0001;
+   private static final int BDR_SUNKENOUTER = 0x0002;
+   private static final int BDR_RAISEDINNER = 0x0004;
+   private static final int BDR_SUNKENINNER = 0x0008;
+
+   private static final int COLOR_INDEX_MASK =
+            BDR_RAISEDINNER | BDR_SUNKENINNER | BDR_RAISEDOUTER | BDR_SUNKENOUTER;
+   private static final Color clBtnHighlight = Color.white;     // 255,255,255
+   private static final Color cl3DDkShadow   = Color.darkGray;  // 64, 64, 64
+   private static final Color cl3DLight      = new Color(212, 208, 200);
+   private static final Color clBtnShadow    = Color.gray;      // 128, 128, 128
+   private static final Color clBtnFace      = cl3DLight;       // 212, 208, 200
+
+   private static final Color[] LEFTTOP_INNER_NORMAL_COLORS = { null, null, null, null, null,
+            clBtnHighlight, clBtnHighlight, null, null, cl3DDkShadow, cl3DDkShadow, null, null,
+            null, null, null };
+
+   private static final Color[] LEFTTOP_OUTER_NORMAL_COLORS = { null, cl3DLight, clBtnShadow,
+            null, clBtnHighlight, cl3DLight, clBtnShadow, null, cl3DDkShadow, cl3DLight,
+            clBtnShadow, null, null, cl3DLight, clBtnShadow, null };
+
+   private static final Color[] RIGHTBOTTOM_INNER_NORMAL_COLORS = { null, null, null, null, null,
+            clBtnShadow, clBtnShadow, null, null, cl3DLight, cl3DLight, null, null, null, null,
+            null };
+
+   private static final Color[] RIGHTBOTTOM_OUTER_NORMAL_COLORS = { null, cl3DDkShadow,
+            clBtnHighlight, null, clBtnShadow, cl3DDkShadow, clBtnHighlight, null, cl3DLight,
+            cl3DDkShadow, clBtnHighlight, null, null, cl3DDkShadow, clBtnHighlight, null };
+
+   private static final Color[] LEFTTOP_RIGHTBOTTOM_OUTER_FLAT_COLORS = { null, clBtnShadow,
+            clBtnShadow, clBtnShadow, clBtnFace, clBtnShadow, clBtnShadow, clBtnShadow, clBtnFace,
+            clBtnShadow, clBtnShadow, clBtnShadow, clBtnFace, clBtnShadow, clBtnShadow,
+            clBtnShadow };
+
+   private static final Color[] LEFTTOP_RIGHTBOTTOM_INNER_FLAT_COLORS = { null, null, null, null,
+            null, clBtnFace, clBtnFace, clBtnFace, null, clBtnFace, clBtnFace, clBtnFace, null,
+            clBtnFace, clBtnFace, clBtnFace };
+
    /**
     * Constructor.
     * 
@@ -1134,6 +1183,10 @@
             g2.drawLine(ps.x, ps.y, ps.width, ps.height);
             break;
          
+         case DRAW_EDGE:
+            drawEdge(g2, ps.x, ps.y, ps.width, ps.height, ps.edgeType, ps.edgeFlags);
+            break;
+         
          case DRAW_RECT:
             g2.drawRect(ps.x, ps.y, ps.width, ps.height);
             break;
@@ -1238,6 +1291,7 @@
                case DOTTED_LARGE:
                   stroke = dotLargeStroke;
                   break;
+               default:
             }
             
             g2.setStroke(stroke);
@@ -1447,6 +1501,133 @@
    }
    
    /**
+    * Draw one or more edges of rectangle.
+    * 
+    * See {@link GuiDriver#drawEdge(int, int, int, int, int, int)} for details.
+    *  
+    * @param g2
+    *        graphic context
+    * @param left
+    *        the rectangle left side coordinate
+    * @param top
+    *        the rectangle top side coordinate
+    * @param width
+    *        the rectangle width
+    * @param height
+    *        the rectangle height
+    * @param edgeType
+    *        Flags defining the edge type (flat, bevelled etc.)
+    * @param flags
+    *        Flags defining which rectangle edges to draw
+    *        (left, top, right, bottom)
+    */
+   private static final void drawEdge(Graphics2D g2, final int left, final int top,
+            final int width, final int height, final int edgeType, final int flags)
+   {
+      final boolean flat = (flags & BF_FLAT) != 0;
+
+      /* Determine the colors of the edges */
+      Color leftTopInnerColor;
+      Color leftTopOuterColor;
+      Color rightBottomInnerColor;
+      Color rightBottomOuterColor;
+
+      final int colorIndex = edgeType & COLOR_INDEX_MASK;
+      if (flat)
+      {
+         leftTopInnerColor = rightBottomInnerColor = LEFTTOP_RIGHTBOTTOM_INNER_FLAT_COLORS[colorIndex];
+         leftTopOuterColor = rightBottomOuterColor = LEFTTOP_RIGHTBOTTOM_OUTER_FLAT_COLORS[colorIndex];
+
+         if (leftTopInnerColor != null)
+         {
+            leftTopInnerColor = rightBottomInnerColor = clBtnFace;
+         }
+      }
+      else
+      {
+         leftTopInnerColor = LEFTTOP_INNER_NORMAL_COLORS[colorIndex];
+         leftTopOuterColor = LEFTTOP_OUTER_NORMAL_COLORS[colorIndex];
+         rightBottomInnerColor = RIGHTBOTTOM_INNER_NORMAL_COLORS[colorIndex];
+         rightBottomOuterColor = RIGHTBOTTOM_OUTER_NORMAL_COLORS[colorIndex];
+      }
+
+      final boolean topEdge = (flags & BF_TOP) != 0;
+      final boolean leftEdge = (flags & BF_LEFT) != 0;
+      final boolean bottomEdge = (flags & BF_BOTTOM) != 0;
+      final boolean rightEdge = (flags & BF_RIGHT) != 0;
+
+      final int lbiOffset = (bottomEdge && leftEdge) ? 1 : 0;
+      final int ltiOffset = (topEdge && leftEdge) ? 1 : 0;
+      final int rtiOffset = (topEdge && rightEdge) ? 1 : 0;
+      final int rbiOffset = (bottomEdge && rightEdge) ? 1 : 0;
+
+      final int right = left + width - 1;
+      final int bottom = top + height - 1;
+
+      /* Draw the outer edge */
+
+      if (leftTopOuterColor != null)
+      {
+         if (topEdge)
+         {
+            g2.setColor(leftTopOuterColor);
+            g2.drawLine(left, top, right, top);
+         }
+
+         if (leftEdge)
+         {
+            g2.setColor(leftTopOuterColor);
+            g2.drawLine(left, top, left, bottom);
+         }
+      }
+
+      if (rightBottomOuterColor != null)
+      {
+         if (bottomEdge)
+         {
+            g2.setColor(rightBottomOuterColor);
+            g2.drawLine(left, bottom, right, bottom);
+	      }
+
+         if (rightEdge)
+         {
+            g2.setColor(rightBottomOuterColor);
+            g2.drawLine(right, top, right, bottom);
+         }
+      }
+
+      if (leftTopInnerColor != null)
+      {
+         if (topEdge)
+         {
+            g2.setColor(leftTopInnerColor);
+            g2.drawLine(left + ltiOffset, top + 1, right - rtiOffset, top + 1);
+         }
+         
+         if (leftEdge)
+         {
+            g2.setColor(leftTopInnerColor);
+            g2.drawLine(left + 1, top + ltiOffset, left + 1, bottom - lbiOffset);
+         }
+      }
+
+      if (rightBottomInnerColor != null)
+      {
+         if (bottomEdge)
+         {
+            g2.setColor(rightBottomInnerColor);
+            g2.drawLine(left + lbiOffset, bottom - 1, right - rbiOffset, bottom - 1);
+         }
+         
+         if (rightEdge)
+         {
+            g2.setColor(rightBottomInnerColor);
+            g2.drawLine(right - 1, top + rtiOffset, right - 1, bottom - rbiOffset);
+         }
+      }
+   }
+
+   /**
     * Returns bounds of a physical screen the top-level window this instance 
     * represents is positioned on.
     * The bounds are in virtual device coordinate system. For more information
@@ -1641,6 +1822,7 @@
          case PLAIN:
             result = Font.PLAIN;
             break;
+         default:
       }
       
       return result;
@@ -1713,6 +1895,8 @@
    
    /**
     * Draw a string using the current font.
+    * 
+    * FIXME: remove me! This private method is not referenced.
     *
     * @param   ps
     *          The structure with the drawing details.

=== modified file 'src/com/goldencode/p2j/ui/client/gui/driver/web/GuiWebDriver.java'
--- src/com/goldencode/p2j/ui/client/gui/driver/web/GuiWebDriver.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/web/GuiWebDriver.java	2020-10-27 16:57:20 +0000
@@ -157,6 +157,8 @@
 **     HC  20200408 Multiple fixes to widget direct manipulation implementation in web client.
 ** 066 EVL 20200718 Fix for NPE in widget bounds calculation.
 ** 067 HC  20200726 Initial implementation of SPREADSHEET widget and related changes.
+** 068 CA  20201011 Use a fast-access bitmap instead of an integer set.
+**     EVL 20201027 Relacing hash map usage with simple array for storing scale cache to iprove seach time. 
 */
 
 /*
@@ -234,6 +236,7 @@
 
 import org.eclipse.jetty.server.Handler;
 import org.eclipse.jetty.util.resource.*;
+import org.roaringbitmap.RoaringBitmap;
 
 import com.goldencode.p2j.cfg.*;
 import com.goldencode.p2j.main.*;
@@ -284,14 +287,12 @@
    };
    
    /** Actions for hoverable widgets */
-   private static final Set<Integer> HOVER_ACTIONS =
-         Collections.unmodifiableSet(
-                  new HashSet<Integer>() {{
-                     add(MouseEvent.MOUSE_ENTERED);
-                     add(MouseEvent.MOUSE_EXITED);
-                     add(MouseEvt.MOUSE_HOVERABLE);
-                  }}
-               );
+   private static final int[] HOVER_ACTIONS = new int[] 
+   {
+      MouseEvent.MOUSE_ENTERED,
+      MouseEvent.MOUSE_EXITED,
+      MouseEvt.MOUSE_HOVERABLE
+   };
 
    /**
     * Max age of print outputs in milliseconds. When a PDF print output is delivered to the driver it is
@@ -331,7 +332,7 @@
     * Image usages is a mapping of an image loaded by a client to its owner windows.
     * The loaded image is represented by its image seal 6-tuple integer array.
     **/
-   private final Map<List<Integer>, Set<Integer> > imageUsages;
+   private final Map<List<Integer>, RoaringBitmap> imageUsages;
    
    /** Owned images is a mapping of a window to its owned images seals. */
    private final Map<Integer, Set<List<Integer>> > ownedImages;
@@ -346,13 +347,13 @@
     * A map with the last widgets sent to the JS side in [ windowid : [widgetId : actions] ]
     * form.
     */
-   private Map<Integer, Map<Integer, Set<Integer>>> lastMouseWidgets = new HashMap<>();
+   private Map<Integer, Map<Integer, RoaringBitmap>> lastMouseWidgets = new HashMap<>();
    
    /** 
     * A map with the last widgets listening for "any mouse action" sent to the JS side in 
     * [ windowid : [widgetId(s) ... ] ] form.
     */
-   private Map<Integer, Set<Integer>> lastAnyWidgets = new HashMap<>();
+   private Map<Integer, RoaringBitmap> lastAnyWidgets = new HashMap<>();
    
    /** Collects the mouse widgets belonging to a window. */
    private Map<Integer, Map<Integer, NativeRectangle>> widgetsRegions = new HashMap<>();
@@ -384,11 +385,11 @@
     */
    private boolean registerMouseWidgets = true;
    
-   /** A cache of font scaling factors, by their remote font ID. */
-   private Map<FontDetails<Integer>, Double> fontScaleX = new HashMap<>();
+   /** A cache of font scaling factors, by their remote font ID. 32 items initial slots. */
+   private double[] fontScaleX = new double [32];
    
    /** Set of widget IDs for which their state has changed. */
-   private Set<Integer> stateChanged = new HashSet<>();
+   private RoaringBitmap stateChanged = new RoaringBitmap();
 
    /** Active uploads */
    private HashMap<Integer, FileUploadInfo> uploads = new HashMap<>();
@@ -709,13 +710,13 @@
    {
       boolean newLoadedImage = false;
       
-      Set<Integer> usages = imageUsages.get(imageHash);
+      RoaringBitmap usages = imageUsages.get(imageHash);
 
       newLoadedImage = usages == null || !usages.contains(windowId);
 
       if (usages == null)
       {
-         usages = new HashSet<>();
+         usages = new RoaringBitmap();
          imageUsages.put(imageHash, usages);
       }
       usages.add(windowId);
@@ -734,16 +735,16 @@
     * 
     * @return The set of all unused images.
     */
-   public Set<Integer> removeUnusedImages(int windowId)
+   public int[] removeUnusedImages(int windowId)
    {
-      Set<Integer> imagesToRemove = new HashSet<>();
+      RoaringBitmap imagesToRemove = new RoaringBitmap();
       Set<List<Integer>> images = ownedImages.remove(windowId);
       if (images != null && !images.isEmpty())
       {
          for (List<Integer> imageSeal : images)
          {
-            Set<Integer> usages = imageUsages.get(imageSeal);
-            if (usages.remove(windowId))
+            RoaringBitmap usages = imageUsages.get(imageSeal);
+            if (usages.checkedRemove(windowId))
             {
                if (usages.isEmpty())
                {
@@ -760,7 +761,7 @@
          }
       }
       
-      return imagesToRemove;
+      return imagesToRemove.toArray();
    }
    
    /**
@@ -1678,16 +1679,16 @@
       this.registerMouseWidgets = false;
       
       // track widgets registered for complex mouse actions
-      InstrumentedMap<Integer, Map<Integer, Set<Integer>>> allWidgets = 
+      InstrumentedMap<Integer, Map<Integer, RoaringBitmap>> allWidgets = 
                                                 new InstrumentedMap<>(LinkedHashMap::new);
-      InstrumentedMap<Integer, Map<Integer, Set<Integer>>> newWidgets = 
+      InstrumentedMap<Integer, Map<Integer, RoaringBitmap>> newWidgets = 
                                                 new InstrumentedMap<>(LinkedHashMap::new);
       // track widgets bounds
       InstrumentedMap<Integer, Map<Integer, NativeRectangle>> newWidgetsBounds = 
                                                 new InstrumentedMap<>(LinkedHashMap::new);
       // track widgets registered for "any mouse action"
-      InstrumentedMap<Integer, Set<Integer>> newAnyWidgets = new InstrumentedMap<>(TreeSet::new);
-      InstrumentedMap<Integer, Set<Integer>> allAnyWidgets = new InstrumentedMap<>(TreeSet::new);
+      InstrumentedMap<Integer, RoaringBitmap> newAnyWidgets = new InstrumentedMap<>(RoaringBitmap::new);
+      InstrumentedMap<Integer, RoaringBitmap> allAnyWidgets = new InstrumentedMap<>(RoaringBitmap::new);
       // track existed widgets: mouse widgets and any widgets
       Map<Integer,List<Integer>> existingMouseWidgets = new HashMap<>();
       Map<Integer,List<Integer>> existingAnyWidgets = new HashMap<>();
@@ -1697,7 +1698,7 @@
       Consumer<Widget> actionsCollector = widget ->
       {
          int widgetId = widget.getId().asInt();
-         Set<Integer> webActions = getWebActions(widget);
+         RoaringBitmap webActions = getWebActions(widget);
          boolean hasAnyAction = MouseHandler.hasAnyAction(widgetId);
          Integer windowId = collectorWindowId[0];
 
@@ -1983,21 +1984,22 @@
     *           The collected mouse widget.
     * @return   The web actions that are handled by the given widget.
     */
-   private Set<Integer> getWebActions(Widget widget)
+   private RoaringBitmap getWebActions(Widget widget)
    {
       return MouseHandler.getCachedActions(widget.getId().asInt(), () ->
       {
-         Set<Integer> mouseActions = new TreeSet<>();
-         mouseActions.addAll(widget.getMouseActions());
-         mouseActions.addAll(MouseHandler.getWidgetActions(widget.getId().asInt()));
+         RoaringBitmap mouseActions = new RoaringBitmap();
+         mouseActions.or(widget.getMouseActions());
+         mouseActions.or(MouseHandler.getWidgetActions(widget.getId().asInt()));
          if (widget.supportsCustomMousePointer())
          {
-            mouseActions.addAll(HOVER_ACTIONS);
+            mouseActions.add(HOVER_ACTIONS);
          }
-         
-         return Arrays.stream(MouseOps.values()).
-                        filter(op -> mouseActions.contains(op.awtEventCode)).
-                        map(op -> op.code).collect(Collectors.toSet());
+         RoaringBitmap res = new RoaringBitmap();
+         Arrays.stream(MouseOps.values()).
+                       filter(op -> mouseActions.contains(op.awtEventCode)).
+                       map(op -> op.code).forEach(i -> res.add(i));
+         return res;
       });
    }
    
@@ -2030,7 +2032,8 @@
     */
    private boolean isInLastAnyWidgets(Integer widgetId, Integer windowId)
    {
-      return lastAnyWidgets.getOrDefault(windowId, Collections.emptySet()).contains(widgetId);
+      RoaringBitmap list = lastAnyWidgets.get(windowId);
+      return list != null && list.contains(widgetId);
    }
    
    /**
@@ -2356,25 +2359,25 @@
 
             synchronized (repaints)
             {
-                  if (repaints.isEmpty())
-                  {
-                     try
-                     {
-                        repaints.wait();
-                     }
-                     catch (InterruptedException e)
-                     {
-                        break;
-                     }
-                  }
+               if (repaints.isEmpty())
+               {
+                  try
+                  {
+                     repaints.wait();
+                  }
+                  catch (InterruptedException e)
+                  {
+                     break;
+                  }
+               }
 
-                  if (!repaints.isEmpty())
-                  {
-                     ews = repaints.removeFirst();
-                  }
-                  else
-                  {
-                     continue;
+               if (!repaints.isEmpty())
+               {
+                  ews = repaints.removeFirst();
+               }
+               else
+               {
+                  continue;
                }
             }
             
@@ -2626,8 +2629,30 @@
       // check if we have a valid text
       int textLength = text == null || text.isEmpty() ? 0 : text.length();
       
-      Double scaleX = fontScaleX.get(fd);
-      if (scaleX == null)
+      // integer for number
+      int fntNum = fd.font.intValue();
+      double scaleX;
+
+      // if the font number within slot numbers try to use cache first
+      if (fntNum < fontScaleX.length)
+      {
+         scaleX = fontScaleX[fntNum];
+      }
+      else
+      {
+         // the font number undex exceeds slots size, need to reallocate cache array
+         // to cover new index with some headroom in advance
+         int newScaleArraySize = 2 * fontScaleX.length * ((fntNum + 1) / fontScaleX.length);
+         double[] newFontScaleX = new double[newScaleArraySize];
+         // copy already existed cache to new array
+         System.arraycopy(fontScaleX, 0, newFontScaleX, 0, fontScaleX.length);
+         // will use new cache buffer from now
+         fontScaleX = newFontScaleX;
+         scaleX = 0.0;
+      }
+
+      // check if scaling is in cache or not
+      if (scaleX == 0.0)
       {
          if (fd.fixedSize)
          {
@@ -2639,20 +2664,21 @@
             scaleX = (double)websock.getTextWidth(TEXT_SAMPLE, fd.font)/
                      (double)super.getTextWidth(TEXT_SAMPLE, fd);
          }
-         fontScaleX.put(fd, scaleX);
+         // store new scaling in cache
+         fontScaleX[fntNum] = scaleX;
       }
       if (fd.fixedSize)
       {
          wRes = super.getTextWidth("0", fd) * textLength;
          // special processing for monospaced fonts
-         if (scaleX.doubleValue() <= 1.1)
+         if (scaleX <= 1.1)
          {
-            wRes = (int)Math.ceil((double)wRes * scaleX.doubleValue());
+            wRes = (int)Math.ceil((double)wRes * scaleX);
          }
       }
       else
       {
-         wRes = (int)Math.ceil((double)super.getTextWidth(text, fd) * scaleX.doubleValue());
+         wRes = (int)Math.ceil((double)super.getTextWidth(text, fd) * scaleX);
       }
       
       return wRes;

=== modified file 'src/com/goldencode/p2j/ui/client/gui/driver/web/GuiWebEmulatedWindow.java'
--- src/com/goldencode/p2j/ui/client/gui/driver/web/GuiWebEmulatedWindow.java	2019-04-09 12:21:15 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/web/GuiWebEmulatedWindow.java	2020-10-19 15:27:22 +0000
@@ -2,7 +2,7 @@
 ** Module   : GuiWebEmulatedWindow.java
 ** Abstract : core GUI renderer for web client
 **
-** Copyright (c) 2015-2019, Golden Code Development Corporation.
+** Copyright (c) 2015-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description---------------------------------
 ** 001 GES 20150504 First version which is just stubbed out.
@@ -55,6 +55,12 @@
 ** 023 SBI 20190129 Implemented DRAW_STRING_WITHIN_BOX and DRAW_STRING_WITHIN_BOX_SCALED.
 ** 024 HC  20190213 Prevent a NPE in SET_FONT, when a custom font is used.
 **                  TODO: fix this NPE's root cause, this should never happen.
+** 025 VVT 20201007 Support for the new drawing primitive was added: drawEdge()
+**     CA  20201011 Do not notify the graphics pool if the batch drawing is active.  Wait until the end batch
+**                  primitive is received.
+**     CA  20201019 If there are relocation or resize operations, and there are no recording or batch brackets
+**                  active, flush the current operations to the JS side when the first batch starts.
+**                  Otherwise, mixing resize/relocation operations will not allow MD5 caches to be computed.
 */
 
 /*
@@ -118,6 +124,7 @@
 import java.io.*;
 import java.util.*;
 import java.util.concurrent.*;
+import java.util.concurrent.atomic.*;
 import java.util.logging.*;
 
 import com.goldencode.p2j.ui.chui.ThinClient;
@@ -176,6 +183,15 @@
    /** Track translate operations. */
    private int trans = 0;
 
+   /** The 'batch' drawing depth.  While batching is active, the graphic pool will not be notified. */
+   private AtomicInteger waitForBatch = new AtomicInteger(0);
+
+   /** The depth of START_RECORDING bracket. */
+   private volatile int inRecording = 0;
+   
+   /** The number of resize or relocation operations. */
+   private volatile int resizeOps = 0;
+   
    /**
     * Constructor.
     *
@@ -206,9 +222,9 @@
    @Override
    public void quit()
    {
-      Set<Integer> imagesToRemove = webdriver.removeUnusedImages(windowId);
+      int[] imagesToRemove = webdriver.removeUnusedImages(windowId);
       
-      websock.destroyWindow(windowId, imagesToRemove.toArray(new Integer[imagesToRemove.size()]));
+      websock.destroyWindow(windowId, imagesToRemove);
    }
 
    /**
@@ -235,7 +251,12 @@
       {
          graphicPool.offerLast(ps);
 
-         lock().notifyAll();
+         if (waitForBatch.get() == 0 || 
+             ps.id == PaintPrimitives.START_BATCH || 
+             ps.id == PaintPrimitives.END_BATCH)
+         {
+            lock().notifyAll();
+         }
       }
    }
 
@@ -428,6 +449,9 @@
          case DRAW_LINE:
             websock.drawLine(ps.x, ps.y, ps.width, ps.height);
             break;
+         case DRAW_EDGE:
+            websock.drawEdge(ps.x, ps.y, ps.width, ps.height, ps.edgeType, ps.edgeFlags);
+            break;         
          case DRAW_IBEAM:
             websock.drawIbeam(ps.x, ps.y, ps.width, ps.height);
             break;
@@ -563,6 +587,8 @@
                x = ps.x;
                y = ps.y;
                websock.setWindowLocation(x, y);
+               
+               resizeOps++;
             }
             break;
          case SET_WINDOW_BOUNDS:
@@ -574,6 +600,8 @@
                width  = ps.width;
                height = ps.height;
                websock.setWindowBounds(x, y, width, height);
+               
+               resizeOps++;
             }
             break;
          case RESIZE_WINDOW:
@@ -582,6 +610,8 @@
                width  = ps.width;
                height = ps.height;
                websock.resizeWindow(width, height);
+               
+               resizeOps++;
             }
             break;
          case DRAW_HIGHLIGHT:
@@ -610,9 +640,11 @@
             }
             break;
          case START_RECORDING:
+            inRecording++;
             websock.startRecording(ps.x, ps.y, ps.width, ps.height);
             break;
          case STOP_RECORDING:
+            inRecording--;
             websock.stopRecording();
             break;
          case SET_DESKTOP_BGCOLOR:
@@ -738,7 +770,7 @@
     */
    void drawOnScreenBitmap()
    {
-      int waitForBatch = 0;
+      waitForBatch.set(0);
       
       if (DEBUG)
       {
@@ -748,10 +780,10 @@
       // wait for both clipping and translate brackets to reach 0, beside batch - this is required
       // because there is no limit to use a batch start/stop inside a GuiDriver.draw, which will
       // force a flush even if the clip/translate is not yet finished.
-      while (!graphicPool.isEmpty() || waitForBatch != 0 || trans != 0 || clips != 0)
+      while (!graphicPool.isEmpty() || waitForBatch.get() != 0 || trans != 0 || clips != 0)
       {
          // if a batch was started, wait for it to end.
-         if (graphicPool.isEmpty() && waitForBatch != 0)
+         if (graphicPool.isEmpty() && waitForBatch.get() != 0)
          {
             synchronized (lock())
             {
@@ -806,7 +838,17 @@
                   break;
                // batch bracketing:
                case START_BATCH:
-                  waitForBatch++;
+                  
+                  if (resizeOps != 0 && inRecording == 0 && waitForBatch.get() == 0)
+                  {
+                     // reset this counter
+                     resizeOps = 0;
+                     
+                     // push all ops now, otherwise we will not be able to compute the MD5 for cache draw
+                     websock.sendPendingDrawingOps(windowId);
+                  }
+                  
+                  waitForBatch.incrementAndGet();
                   if (DEBUG)
                   {
                      log += " " + waitForBatch;
@@ -817,7 +859,7 @@
                   {
                      log += " " + waitForBatch;
                   }
-                  waitForBatch--;
+                  waitForBatch.decrementAndGet();
                   break;
             }
             
@@ -840,6 +882,7 @@
       }
       
       websock.sendPendingDrawingOps(windowId);
+      resizeOps = 0;
       
       if (DEBUG)
       {

=== modified file 'src/com/goldencode/p2j/ui/client/gui/driver/web/GuiWebPageHandler.java'
--- src/com/goldencode/p2j/ui/client/gui/driver/web/GuiWebPageHandler.java	2018-04-05 06:32:08 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/web/GuiWebPageHandler.java	2021-01-24 20:39:20 +0000
@@ -2,12 +2,14 @@
 ** Module   : GuiWebPageHandler.java
 ** Abstract : GUI-specific page handler
 **
-** Copyright (c) 2015-2017 Golden Code Development Corporation.
+** Copyright (c) 2015-2020 Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 GES 20150325 Created initial version patterned after the ChuiWebPageHandler.
 ** 002 GES 20150710 Implemented additional configuration options.
 ** 003 SBI 20160427 Added graphicsCached parameter to turn off the graphics cache for testing.
+** 004 HC  20201116 Added renderer web client option.
+**     HC  20210124 Made WebGL the default renderer.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -191,6 +193,14 @@
             boolean graphicsCached = config.getBoolean("client", "gui", "graphicsCached", true);
             return graphicsCached ? "true" : "false";
          });
+         
+         add("disablePixelManipulation", () ->
+         {
+            boolean disablePixelManipulation = config.getBoolean("client", "gui", "disablePixelManipulation", true);
+            return disablePixelManipulation ? "true" : "false";
+         });
+
+         add("renderer", () -> config.getString("client", "gui", "renderer", "webgl"));
       }
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/ui/client/gui/driver/web/GuiWebSocket.java'
--- src/com/goldencode/p2j/ui/client/gui/driver/web/GuiWebSocket.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/web/GuiWebSocket.java	2021-01-24 20:39:20 +0000
@@ -2,7 +2,7 @@
 ** Module   : GuiWebSocket.java
 ** Abstract : web-sockets implementation which provides a protocol for GUI
 **
-** Copyright (c) 2015-2020, Golden Code Development Corporation.
+** Copyright (c) 2015-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --------------------------------Description----------------------------------
 ** 001 GES 20150331 First version which is a placeholder using the common parent code as ChUI.
@@ -122,6 +122,13 @@
 ** 047 HC  20200403 Improved web gui widget direct manipulation to allow widget move, and to
 **                  limit the bounds of widget move and resize.
 ** 048 HC  20200726 Initial implementation of SPREADSHEET widget and related changes.
+**     VVT 20201007 Support for the new drawing primitive was added: drawEdge()
+**     CA  20201011 Use a fast-access bitmap instead of set for widget and resource IDs.
+**     CA  20201019 Do not calculate the MD5 drawing signature if there are resize operations (as the MD5 will
+**                  not be used anyway).
+**     EVL 20201026 Converting if ... elfe if into usage of the switch ... case to enable using jump table on
+**                  the JIT compiler optimization.
+**     HC  20210124 Added messages for enabling or disabling graphics caching.
 */
 
 /*
@@ -190,6 +197,7 @@
 
 import com.goldencode.p2j.ui.client.gui.*;
 import org.eclipse.jetty.websocket.api.annotations.WebSocket;
+import org.roaringbitmap.*;
 
 import com.goldencode.p2j.ui.client.driver.web.*;
 import com.goldencode.cache.*;
@@ -635,7 +643,7 @@
     * @param    cachedImages
     *           The array of client cached images to remove.
     */
-   public void destroyWindow(int id, Integer[] cachedImages)
+   public void destroyWindow(int id, int[] cachedImages)
    {
       byte[] message = new byte[9 + cachedImages.length * 4];
       
@@ -643,7 +651,7 @@
       writeMessageInt32(message, 1, id);
       writeMessageInt32(message, 5, cachedImages.length);
       int idx = 9;
-      for(Integer imageHash : cachedImages)
+      for (int imageHash : cachedImages)
       {
          writeMessageInt32(message, idx, imageHash);
          idx += 4;
@@ -672,6 +680,31 @@
    }
    
    /**
+    * Draw one or more edges of rectangle.
+    * 
+    * See {@link GuiDriver#drawEdge(int, int, int, int, int, int)} for details.
+    * 
+    * @param left
+    *        the rectangle left side coordinate
+    * @param top
+    *        the rectangle top side coordinate
+    * @param width
+    *        the rectangle width
+    * @param height
+    *        the rectangle height
+    * @param edgeType
+    *        Flags defining the edge type (flat, bevelled etc.)
+    * @param flags
+    *        Flags defining which rectangle edges to draw
+    *        (left, top, right, bottom)
+    */
+   void drawEdge(final int left, final int top, final int width,
+            final int height, final int edgeType, final int flags)
+   {
+      allocateAndSend(PaintPrimitives.DRAW_EDGE, left, top, width, height, edgeType, flags);   
+   }
+   
+   /**
     * Draws a text fields caret with current color/stroke from the given starting and ending
     * points.
     * 
@@ -1654,38 +1687,6 @@
    }
    
    /**
-    * Allocate and send message with 5 integers.
-    *
-    * @param    type
-    *           Message type.
-    * @param    one
-    *           First integer to send.
-    * @param    two
-    *           Second integer to send.
-    * @param    three
-    *           Third integer to send.
-    * @param    four
-    *           Fourth integer to send.
-    * @param    five
-    *           Fifth integer to send.
-    */
-   public void allocateAndSend(PaintPrimitives type,
-                               int             one,
-                               int             two,
-                               int             three,
-                               int             four,
-                               int             five)
-   {
-      byte[] message = allocateDrawingOp(type, 21);
-      
-      writeMessageInt32(message, 1, one);
-      writeMessageInt32(message, 5, two);
-      writeMessageInt32(message, 9, three);
-      writeMessageInt32(message, 13, four);
-      writeMessageInt32(message, 17, five);
-   }
-   
-   /**
     * Allocate and send message with 4 integers and a boolean.
     *
     * @param    type
@@ -1719,6 +1720,74 @@
    }
    
    /**
+    * Allocate and send message with 5 integers.
+    *
+    * @param    type
+    *           Message type.
+    * @param    one
+    *           First integer to send.
+    * @param    two
+    *           Second integer to send.
+    * @param    three
+    *           Third integer to send.
+    * @param    four
+    *           Fourth integer to send.
+    * @param    five
+    *           Fifth integer to send.
+    */
+   public void allocateAndSend(PaintPrimitives type,
+                               int             one,
+                               int             two,
+                               int             three,
+                               int             four,
+                               int             five)
+   {
+      byte[] message = allocateDrawingOp(type, 21);
+      
+      writeMessageInt32(message, 1, one);
+      writeMessageInt32(message, 5, two);
+      writeMessageInt32(message, 9, three);
+      writeMessageInt32(message, 13, four);
+      writeMessageInt32(message, 17, five);
+   }
+   
+   /**
+    * Allocate and send message with 6 integers.
+    *
+    * @param    type
+    *           Message type.
+    * @param    one
+    *           First integer to send.
+    * @param    two
+    *           Second integer to send.
+    * @param    three
+    *           Third integer to send.
+    * @param    four
+    *           Fourth integer to send.
+    * @param    five
+    *           Fifth integer to send.
+    * @param    six
+    *           Sixth integer to send.
+    */
+   public void allocateAndSend(PaintPrimitives type,
+                               int             one,
+                               int             two,
+                               int             three,
+                               int             four,
+                               int             five,
+                               int             six)
+   {
+      byte[] message = allocateDrawingOp(type, 25);
+      
+      writeMessageInt32(message, 1, one);
+      writeMessageInt32(message, 5, two);
+      writeMessageInt32(message, 9, three);
+      writeMessageInt32(message, 13, four);
+      writeMessageInt32(message, 17, five);
+      writeMessageInt32(message, 21, six);
+   }
+   
+   /**
     * Set the window title at the OS level.
     * 
     * @param    title
@@ -1810,50 +1879,53 @@
 
       if (graphicsCached)
       {
-         byte[] drawHash = md5Hash(buildDrawingMessage(windowId, 
-                                                       drawingNoCacheOps,
-                                                       pendingNoCacheBytes));
-         if (drawHash != null)
-         {
-            if (resizeOps > 0)
-            {
-               System.arraycopy(MAGIC, 0, total, 1, HASH_LENGTH);
-            }
-            else if (Arrays.equals(drawHash, lastHash))
-            {
-               // do not send if duplicated message
-               doSend = false;
-            }
-            else
-            {
-               // set the hash
-               System.arraycopy(drawHash, 0, total, 1, drawHash.length);
-   
-               ExpiryCache<String, byte[]> windowCache = fullWindowCache.get(windowId);
-               if (windowCache == null)
-               {
-                  windowCache = new LFUAgingCache<>("window " + windowId, MAX_DRAW_CACHE_SIZE);
-                  fullWindowCache.put(windowId, windowCache);
-                  windowCache.addCacheExpiryListener(new DrawCacheExpiryListener(windowId));
-               }
-   
-               String hash = XmlHelper.convertBytesToHex(drawHash);
-               if (windowCache.get(hash) != null)
-               {
-                  // the hash is already known by the JS side; send only the:
-                  // type (DRAW) (1 byte)
-                  // hash (16 bytes)
-                  // window ID (4 bytes)
-                  
-                  total = Arrays.copyOf(total, 1 + HASH_LENGTH + 4);
+         if (resizeOps > 0)
+         {
+            System.arraycopy(MAGIC, 0, total, 1, HASH_LENGTH);
+         }
+         else
+         {
+            byte[] drawHash = md5Hash(buildDrawingMessage(windowId, 
+                                                          drawingNoCacheOps,
+                                                          pendingNoCacheBytes));
+            if (drawHash != null)
+            {
+               if (Arrays.equals(drawHash, lastHash))
+               {
+                  // do not send if duplicated message
+                  doSend = false;
                }
                else
                {
-                  // cache it and let the JS side cache the draw, too
-                  windowCache.put(hash, drawHash);
+                  // set the hash
+                  System.arraycopy(drawHash, 0, total, 1, drawHash.length);
+      
+                  ExpiryCache<String, byte[]> windowCache = fullWindowCache.get(windowId);
+                  if (windowCache == null)
+                  {
+                     windowCache = new LFUAgingCache<>("window " + windowId, MAX_DRAW_CACHE_SIZE);
+                     fullWindowCache.put(windowId, windowCache);
+                     windowCache.addCacheExpiryListener(new DrawCacheExpiryListener(windowId));
+                  }
+      
+                  String hash = XmlHelper.convertBytesToHex(drawHash);
+                  if (windowCache.get(hash) != null)
+                  {
+                     // the hash is already known by the JS side; send only the:
+                     // type (DRAW) (1 byte)
+                     // hash (16 bytes)
+                     // window ID (4 bytes)
+                     
+                     total = Arrays.copyOf(total, 1 + HASH_LENGTH + 4);
+                  }
+                  else
+                  {
+                     // cache it and let the JS side cache the draw, too
+                     windowCache.put(hash, drawHash);
+                  }
                }
+               lastHash = drawHash;
             }
-            lastHash = drawHash;
          }
       }
       
@@ -2219,1218 +2291,1285 @@
       }
       
       // now try GUI processing if the message was not handled by common processing
-      if (message[offset] == MSG_CLIPBOARD_CONTENTS)
-      {
-         synchronized (clipboardLock)
-         {
-            clipboardContents = readMessageText(message, offset + 1, length);
-            clipboardLock.notify();
-         }
-         
-         handled = true;
-      }
-      else if (message[offset] == MSG_CLIPBOARD_SOFT_PASTE_READY)
-      {
-         synchronized (clipboardLock)
-         {
-            clipboardPasteReady = true;
-            clipboardLock.notify();
-         }
-         
-         handled = true;
-      }
-      else if (length == 1 && message[offset] == MSG_CLIPBOARD_PREPARE)
-      {
-         String text = UiUtils.getCurrentFocus().getSelectedText();
-         sendBinaryMessage(MSG_WRITE_CLIPBOARD, (text == null) ? "" : text);
-         handled = true;
-      }
-      else if (length == 7 && message[offset] == MSG_SENT_PAR_HEIGHT)
-      {
-         int msgId = readMessageInt32(message, offset + 1);
-         int msg = readMessageInt16(message, offset + 5);
-         
-         receiveResult(msgId, msg);
-         handled = true;
-      }
-      else if (length == 6 && message[offset] == MSG_SENT_TEXT_HEIGHT)
-      {
-         int msgId = readMessageInt32(message, offset + 1);
-         int msg = message[offset + 5];
-         
-         receiveResult(msgId, msg);
-         handled = true;
-      }
-      else if (length == 7 && message[offset] == MSG_SENT_TEXT_WIDTH)
-      {
-         int msgId = readMessageInt32(message, offset + 1);
-         int msg = readMessageInt16(message, offset + 5);
-         
-         receiveResult(msgId, msg);
-         handled = true;
-      }
-      else if (length >= 9 && message[offset] == MSG_SENT_TEXT_WIDTHS)
-      {
-         offset = offset + 1;
-
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         int no = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         int[] widths = new int[no];
-         for (int i = 0; i < widths.length; i++)
-         {
-            widths[i] = readMessageInt16(message, offset);
-            offset = offset + 2;
-         }
-         
-         receiveResult(msgId, widths);
-         handled = true;
-      }
-      else if (length >= 7 && message[offset] == MSG_SENT_TEXT_WIDTHS_BATCH)
-      {
-         offset = offset + 1;
-
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         int arraySize = readMessageInt16(message, offset);
-         offset = offset + 2;
-         
-         int[][] res = new int[arraySize][];
-         
-         for (int i = 0; i < arraySize; i++)
-         {
-            int subArraySize = readMessageInt16(message, offset);
-            offset = offset + 2;
-
-            res[i] = new int[subArraySize];
-            for (int j = 0; j < subArraySize; j++)
-            {
-               res[i][j] = readMessageInt16(message, offset);
-               offset = offset + 2;
-            }
-         }
-         
-         receiveResult(msgId, res);
-         handled = true;
-      }
-      else if (length == 6 && message[offset] == MSG_SENT_FONT_HEIGHT)
-      {
-         int msgId = readMessageInt32(message, offset + 1);
-         int msg = message[offset + 5];
-         
-         receiveResult(msgId, msg);
-         handled = true;
-      }
-      else if (length > 5 && message[offset] == MSG_SENT_FONT_WIDTHS)
-      {
-         offset = offset + 1;
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         // the length fits 2 bytes
-         int wlength = message[offset];
-         offset = offset + 1;
-         wlength = (message[offset] << 8) | wlength;
-         offset = offset + 1;
-
-         int[] widths = new int[wlength];
-         for (int i = 0; i < wlength; i++)
-         {
-            // each width can fit in a byte, but the API expects a int[] array
-            widths[i] = message[offset];
-            offset = offset + 1;
-         }
-         
-         receiveResult(msgId, widths);
-         handled = true;
-      }
-      else if (length == 9 && message[offset] == MSG_DONE_CREATE_FONT)
-      {
-         int msgId = readMessageInt32(message, offset + 1);
-
-         int msg = readMessageInt32(message, offset + 5);
-
-         receiveResult(msgId, msg);
-         handled = true;
-      }
-      else if (length == 6 && message[offset] == MSG_DONE_DERIVE_FONT)
-      {
-         int msgId = readMessageInt32(message, offset + 1);
-
-         receiveResult(msgId, new Object());
-         handled = true;
-      }
-      else if ((length == 21 || length == 25 || length == 23 || length == 27) &&
-               message[offset] == MSG_MOUSE_EVENT)
-      {
-         int idx = offset + 1;
-         
-         int windowId = readMessageInt32(message, idx);
-         idx = idx + 4;
-
-         int mouseOpCode = message[idx];
-         idx = idx + 1;
-         
-         long tstamp = readMessageInt64(message, idx);
-         idx = idx + 8;
-         
-         int mouseX = readMessageInt16(message, idx);
-         idx = idx + 2;
-         
-         int mouseY = readMessageInt16(message, idx);
-         idx = idx + 2;
-         
-         int clickCount = message[idx];
-         idx = idx + 1;
-         
-         int button = message[idx];
-         idx = idx + 1;
-         
-         int modifiersMask = message[idx];
-         idx = idx + 1;
-
-         int[] wheelParameters = null;
-         if (length == 23 || length == 27)
-         {
-            int delta = message[idx];
-            idx = idx + 1;
-            int unit  = message[idx];
-            idx = idx + 1;
-            wheelParameters = new int[] { delta, unit};
-         }
-         
-         int wid = -1;
-         if (length == 25 || length == 27)
-         {
-            wid = readMessageInt32(message, idx);
-            idx = idx + 4;
-         }
-         
-         this.callbacks.raiseMouseEvent(windowId,
-                                        mouseOpCode, 
-                                        tstamp, 
-                                        mouseX, 
-                                        mouseY,
-                                        button,
-                                        clickCount, 
-                                        modifiersMask,
-                                        wheelParameters,
-                                        wid);
-         
-         handled = true;
-      }
-      else if (length == 13 && message[offset] == MSG_SET_WINDOW_LOC)
-      {
-         int idx = offset + 1;
-         
-         int windowId = readMessageInt32(message, idx);
-         idx = idx + 4;
-
-         int x = readMessageInt32(message, idx);
-         idx = idx + 4;
-         
-         int y = readMessageInt32(message, idx);
-         idx = idx + 4;
-         
-         this.callbacks.setWindowLocation(windowId, x, y);
-         
-         handled = true;
-      }
-      else if (length == 9 && message[offset] == MSG_WINDOW_ACTIVATED)
-      {
-         int idx = offset + 1;
-         
-         int deactivatingWindowId = readMessageInt32(message, idx);
-         idx = idx + 4;
-         
-         int activatingWindowId = readMessageInt32(message, idx);
-         idx = idx + 4;
-
-         ThinClient tc = ThinClient.getInstance();
-         tc.invokeLaterOS(true, () ->
-         {
-            tc.independentEventDrawingBracket(null, 
-                       () -> callbacks.windowActivated(deactivatingWindowId, activatingWindowId));
-         });
-      }
-      else if (length == 6 && message[offset] == MSG_WINDOW_ICONIFY)
-      {
-         int idx = offset + 1;
-         
-         int windowId = readMessageInt32(message, idx);
-         idx = idx + 4;
-         
-         boolean state = message[idx] == 1;
-
-         this.callbacks.windowIconified(windowId, state);
-      }
-      else if (length == 17 && message[offset] == MSG_WINDOW_RESIZED)
-      {
-         int idx = offset + 1;
-         
-         int windowId = readMessageInt32(message, idx);
-         idx = idx + 4;
-         
-         int y = readMessageInt32(message, idx);
-         idx = idx + 4;
-         
-         int x = readMessageInt32(message, idx);
-         idx = idx + 4;
-         
-         int width = readMessageInt16(message, idx);
-         idx = idx + 2;
-         
-         int height = readMessageInt16(message, idx);
-         idx = idx + 2;
-
-         this.callbacks.setWindowLocation(windowId, x, y);
-         this.callbacks.setWindowDimension(windowId, width, height);
-      }
-      else if (length == 6 && message[offset] == MSG_IS_FONT_INSTALLED)
-      {
-         int msgId = readMessageInt32(message, offset + 1);
-         byte msg = message[offset + 5];
-         receiveResult(msgId, Boolean.valueOf(msg == 1));
-         handled = true;
-      }
-      else if (length == 6 && message[offset] == MSG_DRAW_HASH_REMOVED)
-      {
-         int msgId = readMessageInt32(message, offset + 1);
-
-         receiveResult(msgId, new Object());
-         handled = true;
-      }
-      else if (length == 9 && message[offset] == MSG_DESKTOP_RESIZED)
-      {
-         int idx = offset + 1;
-
-         int width = readMessageInt32(message, idx);
-         idx = idx + 4;
-
-         int height = readMessageInt32(message, idx);
-
-         this.callbacks.desktopResized(width, height);
-      }
-      else if (length == 25 && message[offset] == MSG_OS_LL_MESSAGE)
-      {
-         ++ offset;
-         // the widget
-         int widget = readMessageInt32(message, offset);
-         offset += 4;
-         // the widget
-         int winId = readMessageInt32(message, offset);
-         offset += 4;
-         
-         // the messageId
-         int messageId = readMessageInt32(message, offset);
-         offset += 4;
-         
-         // all 3 parameters
-         int p1 = readMessageInt32(message, offset);
-         offset += 4;
-         int p2 = readMessageInt32(message, offset);
-         offset += 4;
-         int p3 = readMessageInt32(message, offset);
-         
-         this.callbacks.lowLevelEvent(widget, winId, messageId, p1, p2, p3);
-      }
-      else if (message[offset] == MSG_PARSE_EDITOR_CONTENT)
-      {
-         int[][] result = new int[2][];
-         
-         offset = offset + 1;
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         int splitNo = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         result[0] = new int[splitNo];
-         List<Integer> newLines = new ArrayList<>();
-         for (int i = 0; i < splitNo; i++)
-         {
-            result[0][i] = readMessageInt32(message, offset);
-            offset += 4;
-            
-            boolean newLine = message[offset] == 1;
-            offset = offset + 1;
-            if (newLine)
-            {
-               newLines.add(result[0][i]);
-            }
-         }
-         
-         result[1] = Utils.integerCollectionToPrimitive(newLines);
-         
-         receiveResult(msgId, result);
-         handled = true;
-      }
-      else if (message[offset] == MSG_P2J_INVOKE)
-      {
-         offset = offset + 1;
-
-         // read from socket
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         // the call type: 0-extprog, 1-proc, 2-funct
-         InvokeType type = InvocationRequestPayload.InvokeType.fromByte(message[offset]);
-         offset = offset + 1;
-
-         // NO-ERROR mode
-         boolean noError = (message[offset] == 1);
-         offset = offset + 1;
-
-         // notification on wait
-         boolean needsNotificationOnWait = (message[offset] == 1);
-         offset = offset + 1;
-
-         // read the target's name
-         int nameLength = readMessageInt16(message, offset);
-         offset = offset + 2;
-         String name = readMessageText(message, offset, offset + 2 * nameLength);
-         offset = offset + 2 * name.length();
-
-         final boolean persistent;
-         String inHandle;
-
-         if (type == InvocationRequestPayload.InvokeType.EXTERNAL_PROGRAM)
-         {
-            // persistent - only for external programs
-            persistent = message[offset] == 1;
-            offset = offset + 1;
-            
-            inHandle = null;
-         }
-         else
-         {
-            persistent = false;
-            
-            // read the handle - only for function or procedure
-            // handle = 0 means is not specified
-
-            // read its hex representation (16 bits)
-            int handleStringLen = message[offset];
-            offset = offset + 1;
-
-            inHandle = readMessageText(message, offset, offset + 2 * handleStringLen);
-            offset = offset + 2 * handleStringLen;
-         }
-         
-         Map<String, String> arguments = new HashMap<>();
-         // read the arguments
-         int argNo = readMessageInt16(message, offset);
-         offset = offset + 2;
-
-         for (int i = 0; i < argNo; i++)
-         {
-            // read the arg name
-            int argNameLength = message[offset];
-            offset = offset + 1;
-            String argName = readMessageText(message, offset, offset + 2 * argNameLength);
-            offset = offset + 2 * argName.length();
-            
-            // read the arg value
-            int argValueLength = readMessageInt16(message, offset);
-            offset = offset + 2;
-            String argValue = readMessageText(message, offset, offset + 2 * argValueLength);
-            offset = offset + 2 * argValue.length();
-            
-            arguments.put(argName, argValue);
-         }
-         
-         ThinClient tc = ThinClient.getInstance();
-         tc.invokeLaterOS(() ->
-         {
-            if (!tc.isEmbedded())
-            {
-               String msg =
-                 "Attempted to execute a remote invoke request in a non-embedded client.";
-               throw new SilentUnwindException(new IllegalStateException(msg));
-            }
-
-            // if not positive, abend!
-            if (msgId <= 0)
-            {
-               String msg = 
-                "Attempted to execute a remote invoke request with a non-positive message ID: %d";
-               
-               msg = String.format(msg, msgId);
-               
-               throw new SilentUnwindException(new IllegalStateException(msg));
-            }
-
-            boolean error = false;
-            String errorMessage = null;
-            
-            long handle = 0;
-            try
-            {
-               handle = (inHandle == null || inHandle.length() == 0 
-                           ? 0 
-                           : Long.parseLong(inHandle, 16));
-            }
-            catch (NumberFormatException e)
-            {
-               handle = 0;
-               error = true;
-               errorMessage = "Error resolving the handle ID " + inHandle + ": " + e.getMessage();
-            }
-            
-            InvocationResponsePayload resp;
-            
-            if (error)
-            {
-               resp = new InvocationResponsePayload();
-               resp.error = true;
-               resp.errorMessage = errorMessage;
-            }
-            else
-            {
-               InvocationRequestPayload payload = new InvocationRequestPayload();
-               payload.name = name;
-               payload.handle = handle;
-               payload.type = type;
-               payload.arguments = arguments;
-               payload.persistent = persistent;
-               payload.noError = noError;
-
-               resp = (InvocationResponsePayload) tc.invokeOnServer(() ->
-               {
-                  if (needsNotificationOnWait)
-                  {
-                     callbacks.setNeedsNotificationOnWait(true);
-                  }
-
-                  try
-                  {
-                     ServerReturnValue ret = tc.getServer().invoke(payload);
-                     return ret;
-                  }
-                  finally
-                  {
-                     if (needsNotificationOnWait)
-                     {
-                        callbacks.setNeedsNotificationOnWait(false);
-                     }
-                  }
-               });
-
-               if (resp == null)
-               {
-                  resp = new InvocationResponsePayload();
-                  resp.error = true;
-                  resp.errorMessage = "An unknown error occurred while executing the request";
-               }
-            }
-            
-            String shandle = (resp.handle == 0 ? "" : Long.toHexString(resp.handle));
-            
-            Map<String, String> output = resp.outputArguments;
-            if (output == null)
-            {
-               output = Collections.emptyMap();
-            }
-
-            int responseLength = 1 + 4; // type + msgId
-            // handle (this must always be sent, as on the JS side we won't check if the call was
-            // ran persistent or not); the number is sent as a 64-bit value, encoded in hex
-            responseLength += 1 + 2 * shandle.length();
-            // return-value
-            // length
-            responseLength += 4;
-            // content
-            responseLength += 2 * (resp.returnValue == null ? 0 : resp.returnValue.length()); 
-            // ERROR
-            responseLength += 1;
-            if (resp.error)
-            {
-               // error+number + error-message-length + error-message
-               responseLength += 4 + 2 + 2 * resp.errorMessage.length();
-            }
-            // quit
-            responseLength += 1;
-            // stop
-            responseLength += 1;
-            
-            // output arguments
-            responseLength += 2;
-            for (String key : output.keySet())
-            {
-               // key length + key
-               responseLength += 1;
-               responseLength += 2 * key.length();
-               
-               // value length + value
-               String val = output.get(key);
-               responseLength += 2;
-               responseLength += 2 * val.length(); 
-            }
-            
-            BinaryMessage msg = new BinaryMessage(MSG_P2J_INVOKE, responseLength);
-            msg.writeInt32(msgId);
-            msg.writeByte((byte) shandle.length());
-            msg.writeText(shandle);
-            msg.writeInt32(resp.returnValue == null ? 0 : resp.returnValue.length());
-            msg.writeText(resp.returnValue);
-            msg.writeBoolean(resp.error);
-            if (resp.error)
-            {
-               msg.writeInt32(resp.errorNumber);
-               msg.writeInt16(resp.errorMessage == null ? 0 : resp.errorMessage.length());
-               msg.writeText(resp.errorMessage);
-            }
-            msg.writeBoolean(resp.quit);
-            msg.writeBoolean(resp.stop);
-            
-            // write the output arguments
-            msg.writeInt16(output.size());
-            for (String key : output.keySet())
-            {
-               msg.writeByte((byte) key.length());
-               msg.writeText(key);
-               
-               String val = output.get(key);
-               msg.writeInt16(val.length());
-               msg.writeText(val);
-            }
-            
-            sendBinaryMessage(msg.message);
-            
-            // if a condition was raised by the converted code, then re-throw it; the business
-            // logic might have called an explicit i.e. QUIT, and this needs to be handled by
-            // down-stream logic
-            String conditionMsg = "Re-throwing a condition raised by a remote invoke API.";
-            if (resp.error)
-            {
-               // for MSG_P2J_INVOKE, the ControlFlowOps.invoke(InvocationRequestPayload) will
-               // eat any conditions; the reason is because we want to send the response to the
-               // JS side BEFORE re-raising the conditions to allow the business logic to
-               // intercept/treat them; for the ERROR (without NO-ERROR mode) case, we need to
-               // throw it unconditionally; since this is client-side processing AND there is no
-               // 4GL compatibility requires here, we don't need to use recordOrThrowError()
-               if (!noError)
-               {
-                  throw new ErrorConditionException(resp.errorNumber, resp.errorMessage);
-               }
-            }
-            else if (resp.quit)
-            {
-               throw new QuitConditionException(conditionMsg);
-            }
-            else if (resp.stop)
-            {
-               throw new StopConditionException(conditionMsg);
-            }
-         });
-         
-         handled = true;
-      }
-      else if (message[offset] == MSG_REMOTE_CALL)
-      {
-         offset = offset + 1;
-
-         // read from socket
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         int payloadLength = readMessageInt32(message, offset);
-         offset = offset + 4;
-         String payload = readMessageText(message, offset, offset + 2 * payloadLength);
-         
-         UnformattedPayload result = new UnformattedPayload();
-         result.payload = payload;
-         
-         receiveResult(msgId, result);
-         
-         handled = true;
-      }
-      else if (message[offset] == MSG_P2J_DELETE_HANDLE)
-      {
-         offset = offset + 1;
-
-         // read from socket
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         boolean noError = (message[offset] == 1);
-         offset = offset + 1;
-
-         // read its hex representation (16 bits)
-         int handleStringLen = message[offset];
-         offset = offset + 1;
-
-         String shandle = readMessageText(message, offset, offset + 2 * handleStringLen);
-         offset = offset + 2 * handleStringLen;
-
-         ThinClient tc = ThinClient.getInstance();
-         tc.invokeLaterOS(() ->
-         {
-            if (!tc.isEmbedded())
-            {
-               String msg = 
-                  "Attempted to execute a delete handle request in a non-embedded client.";
-               throw new SilentUnwindException(new IllegalStateException(msg));
-            }
-            
-            // if not positive, abend!
-            if (msgId <= 0)
-            {
-               String msg = 
-                "Attempted to execute a delete handle request with a non-positive message ID: %d";
-               
-               msg = String.format(msg, msgId);
-               
-               throw new SilentUnwindException(new IllegalStateException(msg));
-            }
-
-            BlockRunner block = new BlockRunner((BlockRunner br) ->
-            { 
-               long handleId = 0;
-               
-               try
-               {
-                  handleId = (handleStringLen == 0 ? 0 : Long.parseLong(shandle, 16));
-               }
-               catch (NumberFormatException e)
-               {
-                  br.error = true;
-                  br.errorNumber = 0;
-                  br.errorMessage = "Error resolving the handle id " + shandle + ": " +
-                                       e.getMessage();
-               }
-               
-               if (!br.error)
-               {
-                  tc.getServer().deleteHandle(handleId, noError);
-               }
-               
-               return (BaseDataType) null;
-            }); 
-
-            block.execute();
-            
-            int msgLength = 1 + 4 + 1; // msgId + error
-            if (block.error)
-            {
-               msgLength += 4 + 2 + 2 * block.errorMessage.length();
-            }
-            
-            BinaryMessage msg = new BinaryMessage(MSG_P2J_DELETE_HANDLE, msgLength);
-            msg.writeInt32(msgId);
-            msg.writeBoolean(block.error);
-            if (block.error)
-            {
-               msg.writeInt32(block.errorNumber);
-               msg.writeInt16(block.errorMessage.length());
-               msg.writeText(block.errorMessage);
-            }
-            
-            sendBinaryMessage(msg.message);
-         });
-         
-         handled = true;
-      }
-      else if (message[offset] == MSG_P2J_SUBSCRIBE)
-      {
-         offset = offset + 1;
-
-         // read from socket
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-
-         boolean noError = (message[offset] == 1);
-         offset = offset + 1;
-         
-         boolean global = (message[offset] == 1);
-         offset = offset + 1;
-         
-         // read subscriber hex representation (16 bits)
-         // this is a procedure/external resource handle ID
-         int subidStringLen = message[offset];
-         offset = offset + 1;
-         String subscriberId = readMessageText(message, offset, offset + 2 * subidStringLen);
-         offset = offset + 2 * subidStringLen;
-         Long subscriber = (subidStringLen == 0 ? null : Long.parseLong(subscriberId, 16));
-         
-         int eventStringLen = message[offset];
-         offset = offset + 1;
-         String event = readMessageText(message, offset, offset + 2 * eventStringLen);
-         offset = offset + 2 * eventStringLen;
-         
-         // read publisher hex representation (16 bits)
-         // this is a procedure/external resource handle ID
-         int phandleStringLen = message[offset];
-         offset = offset + 1;
-         String phandle = readMessageText(message, offset, offset + 2 * phandleStringLen);
-         offset = offset + 2 * phandleStringLen;
-         Long publisher = (phandleStringLen == 0 ? null : Long.parseLong(phandle, 16));
-
-         ThinClient tc = ThinClient.getInstance();
-         tc.invokeLaterOS(() ->
-         {
-            long sub = 0;
-            
-            BlockRunner block = new BlockRunner((BlockRunner br) ->
-            {
-               long l = tc.getServer().subscribeExternal(global,
-                                                         subscriber,
-                                                         event,
-                                                         publisher,
-                                                         noError);
-               return new int64(l);
-            }); 
-
-            block.execute();
-            
-            if (block.result != null)
-            {
-               sub = ((int64) block.result).longValue();
-            }
-
-            // WARNING: do not use handle.resourceId(), as we are on the client-side!
-            String hexsub = Long.toHexString(sub);
-
-            // msgId + computed subscriber's handle ID
-            int msgLength = 1 + 4 + 2 + 2 * hexsub.length() + 1;
-            
-            if (block.error)
-            {
-               msgLength += 4 + 2 + 2 * block.errorMessage.length();
-            }
-            
-            BinaryMessage msg = new BinaryMessage(MSG_P2J_SUBSCRIBE, msgLength);
-            msg.writeInt32(msgId);
-            msg.writeByte((byte) hexsub.length());
-            msg.writeText(hexsub);
-            msg.writeBoolean(block.error);
-            if (block.error)
-            {
-               msg.writeInt32(block.errorNumber);
-               msg.writeInt16(block.errorMessage.length());
-               msg.writeText(block.errorMessage);
-            }
-            
-            sendBinaryMessage(msg.message);
-         });
-         
-         handled = true;
-      }
-      else if (message[offset] == MSG_P2J_UNSUBSCRIBE)
-      {
-         offset = offset + 1;
-
-         // read from socket
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-
-         boolean noError = (message[offset] == 1);
-         offset = offset + 1;
-         
-         boolean global = (message[offset] == 1);
-         offset = offset + 1;
-
-         // read subscriber hex representation (16 bits)
-         // this is a procedure/external resource handle ID
-         int subidStringLen = message[offset];
-         offset = offset + 1;
-         String subscriberId = readMessageText(message, offset, offset + 2 * subidStringLen);
-         offset = offset + 2 * subidStringLen;
-         Long subscriber = (subidStringLen == 0 ? null : Long.parseLong(subscriberId, 16));
-         
-         // event may be null (when empty text)
-         int eventStringLen = message[offset];
-         offset = offset + 1;
-         String event;
-         if (eventStringLen > 0)
-         {
-            event = readMessageText(message, offset, offset + 2 * eventStringLen);
-            offset = offset + 2 * eventStringLen;
-         }
-         else
-         {
-            event = null;
-         }
-         
-         // read publisher hex representation (16 bits)
-         // this is a procedure/external resource handle ID
-         int phandleStringLen = message[offset];
-         offset = offset + 1;
-         String phandle = readMessageText(message, offset, offset + 2 * phandleStringLen);
-         offset = offset + 2 * phandleStringLen;
-         Long publisher = phandleStringLen == 0 ? null : Long.parseLong(phandle, 16);
-
-         ThinClient tc = ThinClient.getInstance();
-         tc.invokeLaterOS(() ->
-         {
-            BlockRunner block = new BlockRunner((BlockRunner br) ->
-            {
-               // noError can be ignored here because this is always implicitly noError
-               tc.getServer().unsubscribeExternal(global, subscriber, event, publisher);
-               return (BaseDataType) null;
-            });
-            
-            block.execute();
-
-            // msgId
-            int msgLength = 1 + 4 + 1;
-            if (block.error)
-            {
-               msgLength += 4 + 2 + 2 * block.errorMessage.length();
-            }
-            
-            BinaryMessage msg = new BinaryMessage(MSG_P2J_UNSUBSCRIBE, msgLength);
-            msg.writeInt32(msgId);
-            msg.writeBoolean(block.error);
-            if (block.error)
-            {
-               msg.writeInt32(block.errorNumber);
-               msg.writeInt16(block.errorMessage.length());
-               msg.writeText(block.errorMessage);
-            }
-
-            sendBinaryMessage(msg.message);
-         });
-         
-         handled = true;
-      }
-      else if (message[offset] == MSG_P2J_PUBLISH)
-      {
-         offset = offset + 1;
-
-         // read from socket
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-
-         // event may be null (when empty text)
-         int eventStringLen = message[offset];
-         offset = offset + 1;
-         String event = readMessageText(message, offset, offset + 2 * eventStringLen);
-         offset = offset + 2 * eventStringLen;
-         
-         // read publisher hex representation (16 bits)
-         // this is a procedure/external resource handle ID
-         int phandleStringLen = message[offset];
-         offset = offset + 1;
-         String phandle = readMessageText(message, offset, offset + 2 * phandleStringLen);
-         offset = offset + 2 * phandleStringLen;
-         Long publisher = Long.parseLong(phandle, 16);
-
-         // read arg num
-         int argNum = message[offset];
-         offset = offset + 1;
-         String[] args = new String[argNum];
-         for (int i = 0; i < argNum; i++)
-         {
-            // read arg
-            int argLen = message[offset];
-            offset = offset + 1;
-            String arg = readMessageText(message, offset, offset + 2 * argLen);
-            offset = offset + 2 * argLen;
-            
-            args[i] = arg;
-         }
-         
-         ThinClient tc = ThinClient.getInstance();
-         tc.invokeLaterOS(() ->
-         {
-            try
-            {
-               // no return value or output arguments are supported
-               tc.getServer().publishExternal(event, publisher, args);
-            }
-            catch (Throwable t)
-            {
-               t.printStackTrace(System.err);
-            }
-
-            // no response is sent for remote PUBLISH 
-         });
-         
-         handled = true;
-      }
-      else if (message[offset] == MSG_P2J_CREATE_RESOURCE)
-      {
-         offset = offset + 1;
-
-         // read from socket
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         ThinClient tc = ThinClient.getInstance();
-         tc.invokeLaterOS(() ->
-         {
-            long resId = tc.getServer().createExternal();
-            String hexId = Long.toHexString(resId);
-
-            // type + msgId + hexId.length + 2 * hexId.length
-            int msgLength = 1 + 4 + 1 + 2 * hexId.length();
-            
-            BinaryMessage msg = new BinaryMessage(MSG_P2J_CREATE_RESOURCE, msgLength);
-            msg.writeInt32(msgId);
-            msg.writeByte((byte) hexId.length());
-            msg.writeText(hexId);
-
-            sendBinaryMessage(msg.message);
-         });
-         
-         handled = true;
-      }
-      else if (length == 9 && message[offset] == MSG_SENT_DESKTOP_DIMENSION)
-      {
-         offset = offset + 1;
-         
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         int width = readMessageInt16(message, offset);
-         offset = offset + 2;
-         
-         int height = readMessageInt16(message, offset);
-         offset = offset + 2;
-         
-         receiveResult(msgId, new int[] { width, height });
-         handled = true;
-      }
-      else if (message[offset] == MSG_DROP_FILE_NOTIFY)
-      {
-         offset = offset + 1;
-         
-         // getting the target window
-         int winID = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         // getting the target widget candidate
-         int widTargetID = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         // getting the file list size
-         int listSize = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         // getting the file names and building the Java list
-         List<String> fileNameList = new ArrayList<String>();
-         
-         for (int i = 0; i < listSize; i++)
-         {
-            int nameLength = readMessageInt16(message, offset);
-            offset = offset + 2;
-            String fileName = readMessageText(message, offset, offset + 2 * nameLength);
-            offset = offset + 2 * nameLength;
-            // new File object
-            fileNameList.add(fileName);
-         }
-         
-         // process dropping if list is not empty
-         if (!fileNameList.isEmpty())
-         {
-            // calling gui driver to continue processing
-            this.callbacks.startDropTarget(winID, widTargetID, fileNameList);
-         }
-         
-         handled = true;
-      }
-      else if (message[offset] == MSG_FILE_UPLOADING)
-      {
-         offset = offset + 1;
-         
-         // file name length
-         int nameLength = readMessageInt16(message, offset);
-         offset = offset + 2;
-         
-         // file name
-         String fileName = readMessageText(message, offset, offset + 2 * nameLength);
-         offset = offset + 2 * nameLength;
-         
-         // file size
-         int fileSize = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         // file content itself
-         byte[] fileData = readByteArray(message, offset, fileSize);
-         
-         // content can be empty
-         if (fileData != null)
-         {
-            // ask java to store the file locally in temp directory
-            this.callbacks.saveDropTargetFile(fileName, fileData, fileSize);
-         }
-         
-         handled = true;
-      }
-      else if (length == 9 && message[offset] == MSG_GET_MOUSE_POSITION)
-      {
-         offset = offset + 1;
-
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-
-         int x = readMessageInt16(message, offset);
-         offset = offset + 2;
-
-         int y = readMessageInt16(message, offset);
-
-         receiveResult(msgId, new int[] { x, y });
-         handled = true;
-      }
-      else if (message[offset] == MSG_P2J_APPLY_EVENT)
-      {
-         offset = offset + 1;
-
-         // read from socket
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-
-         // event may be null (when empty text)
-         int eventStringLen = message[offset];
-         offset = offset + 1;
-         String event = readMessageText(message, offset, offset + 2 * eventStringLen);
-         offset = offset + 2 * eventStringLen;
-         
-         // read the target's HWND id (i.e. the widget ID)
-         int widgetId = readMessageInt32(message, offset);
-         offset = offset + 4;
-
-         ThinClient tc = ThinClient.getInstance();
-         tc.invokeLaterOS(() ->
-         {
-            try
-            {
-               tc.apply(widgetId, Keyboard.eventCode(event), null, new EventList(), true);
-            }
-            catch (Throwable t)
-            {
-               t.printStackTrace(System.err);
-            }
-
-            // no response is sent for remote PUBLISH 
-         });
-         
-         handled = true;
-      }
-      else if (length > 9 && message[offset] == MSG_SENT_HOST_NAME)
-      {
-         offset++;
-         int msgId = readMessageInt32(message, offset);
-
-         offset += 4;
-         int nameLength = readMessageInt32(message, offset);
-         
-         offset += 4;
-         String name = readMessageText(message, offset, offset + 2 * nameLength);
-
-         receiveResult(msgId, name);
-         handled = true;
-      }
-      else if (length == 13 && message[offset] == MSG_SENT_HOST_BY_NAME)
-      {
-         offset++;
-         int msgId = readMessageInt32(message, offset);
-
-         offset += 4;
-         long ip = readMessageInt64(message, offset);
-
-         receiveResult(msgId, ip);
-         handled = true;
-      }
-      else if (message[offset] == MSG_GET_KEY_VALUE || message[offset] == MSG_GET_KEY)
-      {
-         offset = offset + 1;
-
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         int valueLen = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         String value = readMessageText(message, offset, offset + 2 * valueLen);
-         
-         receiveResult(msgId, value);
-         
-         handled = true;
-      }
-      else if (message[offset] == MSG_GET_STORAGE_SIZE)
-      {
-         offset = offset + 1;
-
-         int msgId = readMessageInt32(message, offset);
-         offset = offset + 4;
-         
-         int size = readMessageInt32(message, offset);
-         
-         receiveResult(msgId, Integer.valueOf(size));
-         
-         handled = true;
-      }
-      else if (message[offset] == MSG_FILE_CHOOSE)
-      {
-         offset += 1;
-
-         int msgId = readMessageInt32(message, offset);
-         offset += 4;
-
-         int count = readMessageInt32(message, offset);
-         offset += 4;
-         String[] selectedFiles = new String[count];
-
-         for (int i = 0; i < count; i++)
-         {
-            int len = readMessageInt32(message, offset);
-            offset += 4;
-            if (len > 0)
-            {
-               selectedFiles[i] = readMessageText(message, offset, offset + 2*len);
-               offset += len * 2;
-            }
-         }
-
-         count = readMessageInt32(message, offset);
-         offset += 4;
-         String[] uploadedFiles = new String[count];
-
-         for (int i = 0; i < count; i++)
-         {
-            int len = readMessageInt32(message, offset);
-            offset += 4;
-            if (len > 0)
-            {
-               uploadedFiles[i] = readMessageText(message, offset, offset + 2*len);
-               offset += len * 2;
-            }
-         }
-
-         receiveResult(msgId, new Object[] {selectedFiles, uploadedFiles});
-         handled = true;
-      }
-      else if (message[offset] == MSG_TRIGGER_EVENT)
-      {
-         int idx = offset + 1;
-
-         int widgetId = readMessageInt32(message, idx);
-         idx = idx + 4;
-
-         byte eventId = message[idx];
-         idx = idx + 1;
-
-         byte[] paramsData = null;
-         if (length > idx)
-         {
-            paramsData = readByteArray(message, idx, length - idx);
-         }
-
-         ThinClient tc = ThinClient.getInstance();
-         DriverWidgetHost dw = (DriverWidgetHost) tc.getWidget(widgetId);
-         if (dw != null)
-         {
-            byte[] finalParamsData = paramsData;
-            tc.invokeLaterOS(true, () -> dw.triggerEvent(eventId, finalParamsData));
-         }
-
-         handled = true;
+      switch (message[offset])
+      {
+         case MSG_CLIPBOARD_CONTENTS:
+            synchronized (clipboardLock)
+            {
+               clipboardContents = readMessageText(message, offset + 1, length);
+               clipboardLock.notify();
+            }
+         
+            handled = true;
+            break;
+         case MSG_CLIPBOARD_SOFT_PASTE_READY:
+            synchronized (clipboardLock)
+            {
+               clipboardPasteReady = true;
+               clipboardLock.notify();
+            }
+         
+            handled = true;
+            break;
+         case MSG_CLIPBOARD_PREPARE:
+            if (length == 1)
+            {
+               String text = UiUtils.getCurrentFocus().getSelectedText();
+               sendBinaryMessage(MSG_WRITE_CLIPBOARD, (text == null) ? "" : text);
+               handled = true;
+            }
+            break;
+         case MSG_SENT_PAR_HEIGHT:
+            if (length == 7)
+            {
+               int msgId = readMessageInt32(message, offset + 1);
+               int msg = readMessageInt16(message, offset + 5);
+         
+               receiveResult(msgId, msg);
+               handled = true;
+            }
+            break;
+         case MSG_SENT_TEXT_HEIGHT:
+            if (length == 6)
+            {
+               int msgId = readMessageInt32(message, offset + 1);
+               int msg = message[offset + 5];
+         
+               receiveResult(msgId, msg);
+               handled = true;
+            }
+            break;
+         case MSG_SENT_TEXT_WIDTH:
+            if (length == 7)
+            {
+               int msgId = readMessageInt32(message, offset + 1);
+               int msg = readMessageInt16(message, offset + 5);
+         
+               receiveResult(msgId, msg);
+               handled = true;
+            }
+            break;
+         case MSG_SENT_TEXT_WIDTHS:
+            if (length >= 9)
+            {
+               offset = offset + 1;
+
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               int no = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               int[] widths = new int[no];
+               for (int i = 0; i < widths.length; i++)
+               {
+                  widths[i] = readMessageInt16(message, offset);
+                  offset = offset + 2;
+               }
+         
+               receiveResult(msgId, widths);
+               handled = true;
+            }
+            break;
+         case MSG_SENT_TEXT_WIDTHS_BATCH:
+            if (length >= 7)
+            {
+               offset = offset + 1;
+
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               int arraySize = readMessageInt16(message, offset);
+               offset = offset + 2;
+         
+               int[][] res = new int[arraySize][];
+         
+               for (int i = 0; i < arraySize; i++)
+               {
+                  int subArraySize = readMessageInt16(message, offset);
+                  offset = offset + 2;
+
+                  res[i] = new int[subArraySize];
+                  for (int j = 0; j < subArraySize; j++)
+                  {
+                     res[i][j] = readMessageInt16(message, offset);
+                     offset = offset + 2;
+                  }
+               }
+         
+               receiveResult(msgId, res);
+               handled = true;
+            }
+            break;
+         case MSG_SENT_FONT_HEIGHT:
+            if (length == 6)
+            {
+               int msgId = readMessageInt32(message, offset + 1);
+               int msg = message[offset + 5];
+         
+               receiveResult(msgId, msg);
+               handled = true;
+            }
+            break;
+         case MSG_SENT_FONT_WIDTHS:
+            if (length > 5)
+            {
+               offset = offset + 1;
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               // the length fits 2 bytes
+               int wlength = message[offset];
+               offset = offset + 1;
+               wlength = (message[offset] << 8) | wlength;
+               offset = offset + 1;
+
+               int[] widths = new int[wlength];
+               for (int i = 0; i < wlength; i++)
+               {
+                  // each width can fit in a byte, but the API expects a int[] array
+                  widths[i] = message[offset];
+                  offset = offset + 1;
+               }
+         
+               receiveResult(msgId, widths);
+               handled = true;
+            }
+            break;
+         case MSG_DONE_CREATE_FONT:
+            if (length == 9)
+            {
+               int msgId = readMessageInt32(message, offset + 1);
+
+               int msg = readMessageInt32(message, offset + 5);
+
+               receiveResult(msgId, msg);
+               handled = true;
+            }
+            break;
+         case MSG_DONE_DERIVE_FONT:
+            if (length == 6)
+            {
+               int msgId = readMessageInt32(message, offset + 1);
+
+               receiveResult(msgId, new Object());
+               handled = true;
+            }
+            break;
+         case MSG_MOUSE_EVENT:
+            if (length == 21 || length == 25 || length == 23 || length == 27)
+            {
+               int idx = offset + 1;
+         
+               int windowId = readMessageInt32(message, idx);
+               idx = idx + 4;
+
+               int mouseOpCode = message[idx];
+               idx = idx + 1;
+         
+               long tstamp = readMessageInt64(message, idx);
+               idx = idx + 8;
+         
+               int mouseX = readMessageInt16(message, idx);
+               idx = idx + 2;
+         
+               int mouseY = readMessageInt16(message, idx);
+               idx = idx + 2;
+         
+               int clickCount = message[idx];
+               idx = idx + 1;
+         
+               int button = message[idx];
+               idx = idx + 1;
+         
+               int modifiersMask = message[idx];
+               idx = idx + 1;
+
+               int[] wheelParameters = null;
+               if (length == 23 || length == 27)
+               {
+                  int delta = message[idx];
+                  idx = idx + 1;
+                  int unit  = message[idx];
+                  idx = idx + 1;
+                  wheelParameters = new int[] { delta, unit};
+               }
+         
+               int wid = -1;
+               if (length == 25 || length == 27)
+               {
+                  wid = readMessageInt32(message, idx);
+                  idx = idx + 4;
+               }
+         
+               this.callbacks.raiseMouseEvent(windowId,
+                                              mouseOpCode, 
+                                              tstamp, 
+                                              mouseX, 
+                                              mouseY,
+                                              button,
+                                              clickCount, 
+                                              modifiersMask,
+                                              wheelParameters,
+                                              wid);
+         
+               handled = true;
+            }
+            break;
+         case MSG_SET_WINDOW_LOC:
+            if (length == 13)
+            {
+               int idx = offset + 1;
+         
+               int windowId = readMessageInt32(message, idx);
+               idx = idx + 4;
+
+               int x = readMessageInt32(message, idx);
+               idx = idx + 4;
+         
+               int y = readMessageInt32(message, idx);
+               idx = idx + 4;
+         
+               this.callbacks.setWindowLocation(windowId, x, y);
+         
+               handled = true;
+            }
+            break;
+         case MSG_WINDOW_ACTIVATED:
+            if (length == 9)
+            {
+               int idx = offset + 1;
+         
+               int deactivatingWindowId = readMessageInt32(message, idx);
+               idx = idx + 4;
+         
+               int activatingWindowId = readMessageInt32(message, idx);
+               idx = idx + 4;
+
+               ThinClient tc = ThinClient.getInstance();
+               tc.invokeLaterOS(true, () ->
+               {
+                  tc.independentEventDrawingBracket(null, 
+                              () -> callbacks.windowActivated(deactivatingWindowId, activatingWindowId));
+               });
+            }
+            break;
+         case MSG_WINDOW_ICONIFY:
+            if (length == 6)
+            {
+               int idx = offset + 1;
+         
+               int windowId = readMessageInt32(message, idx);
+               idx = idx + 4;
+         
+               boolean state = message[idx] == 1;
+
+               this.callbacks.windowIconified(windowId, state);
+            }
+            break;
+         case MSG_WINDOW_RESIZED:
+            if (length == 17)
+            {
+               int idx = offset + 1;
+         
+               int windowId = readMessageInt32(message, idx);
+               idx = idx + 4;
+         
+               int y = readMessageInt32(message, idx);
+               idx = idx + 4;
+         
+               int x = readMessageInt32(message, idx);
+               idx = idx + 4;
+         
+               int width = readMessageInt16(message, idx);
+               idx = idx + 2;
+         
+               int height = readMessageInt16(message, idx);
+               idx = idx + 2;
+
+               this.callbacks.setWindowLocation(windowId, x, y);
+               this.callbacks.setWindowDimension(windowId, width, height);
+            }
+            break;
+         case MSG_IS_FONT_INSTALLED:
+            if (length == 6)
+            {
+               int msgId = readMessageInt32(message, offset + 1);
+               byte msg = message[offset + 5];
+               receiveResult(msgId, Boolean.valueOf(msg == 1));
+               handled = true;
+            }
+            break;
+         case MSG_DRAW_HASH_REMOVED:
+            if (length == 6)
+            {
+               int msgId = readMessageInt32(message, offset + 1);
+
+               receiveResult(msgId, new Object());
+               handled = true;
+            }
+            break;
+         case MSG_DESKTOP_RESIZED:
+            if (length == 9)
+            {
+               int idx = offset + 1;
+
+               int width = readMessageInt32(message, idx);
+               idx = idx + 4;
+
+               int height = readMessageInt32(message, idx);
+
+               this.callbacks.desktopResized(width, height);
+            }
+            break;
+         case MSG_OS_LL_MESSAGE:
+            if (length == 25)
+            {
+               ++ offset;
+               // the widget
+               int widget = readMessageInt32(message, offset);
+               offset += 4;
+               // the widget
+               int winId = readMessageInt32(message, offset);
+               offset += 4;
+         
+               // the messageId
+               int messageId = readMessageInt32(message, offset);
+               offset += 4;
+         
+               // all 3 parameters
+               int p1 = readMessageInt32(message, offset);
+               offset += 4;
+               int p2 = readMessageInt32(message, offset);
+               offset += 4;
+               int p3 = readMessageInt32(message, offset);
+         
+               this.callbacks.lowLevelEvent(widget, winId, messageId, p1, p2, p3);
+            }
+            break;
+         case MSG_PARSE_EDITOR_CONTENT:
+            {
+               int[][] result = new int[2][];
+         
+               offset = offset + 1;
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               int splitNo = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               result[0] = new int[splitNo];
+               List<Integer> newLines = new ArrayList<>();
+               for (int i = 0; i < splitNo; i++)
+               {
+                  result[0][i] = readMessageInt32(message, offset);
+                  offset += 4;
+            
+                  boolean newLine = message[offset] == 1;
+                  offset = offset + 1;
+                  if (newLine)
+                  {
+                     newLines.add(result[0][i]);
+                  }
+               }
+         
+               result[1] = Utils.integerCollectionToPrimitive(newLines);
+         
+               receiveResult(msgId, result);
+               handled = true;
+            }
+            break;
+         case MSG_P2J_INVOKE:
+            {
+               offset = offset + 1;
+
+               // read from socket
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               // the call type: 0-extprog, 1-proc, 2-funct
+               InvokeType type = InvocationRequestPayload.InvokeType.fromByte(message[offset]);
+               offset = offset + 1;
+
+               // NO-ERROR mode
+               boolean noError = (message[offset] == 1);
+               offset = offset + 1;
+
+               // notification on wait
+               boolean needsNotificationOnWait = (message[offset] == 1);
+               offset = offset + 1;
+
+               // read the target's name
+               int nameLength = readMessageInt16(message, offset);
+               offset = offset + 2;
+               String name = readMessageText(message, offset, offset + 2 * nameLength);
+               offset = offset + 2 * name.length();
+
+               final boolean persistent;
+               String inHandle;
+
+               if (type == InvocationRequestPayload.InvokeType.EXTERNAL_PROGRAM)
+               {
+                  // persistent - only for external programs
+                  persistent = message[offset] == 1;
+                  offset = offset + 1;
+            
+                  inHandle = null;
+               }
+               else
+               {
+                  persistent = false;
+            
+                  // read the handle - only for function or procedure
+                  // handle = 0 means is not specified
+
+                  // read its hex representation (16 bits)
+                  int handleStringLen = message[offset];
+                  offset = offset + 1;
+
+                  inHandle = readMessageText(message, offset, offset + 2 * handleStringLen);
+                  offset = offset + 2 * handleStringLen;
+               }
+         
+               Map<String, String> arguments = new HashMap<>();
+               // read the arguments
+               int argNo = readMessageInt16(message, offset);
+               offset = offset + 2;
+
+               for (int i = 0; i < argNo; i++)
+               {
+                  // read the arg name
+                  int argNameLength = message[offset];
+                  offset = offset + 1;
+                  String argName = readMessageText(message, offset, offset + 2 * argNameLength);
+                  offset = offset + 2 * argName.length();
+            
+                  // read the arg value
+                  int argValueLength = readMessageInt16(message, offset);
+                  offset = offset + 2;
+                  String argValue = readMessageText(message, offset, offset + 2 * argValueLength);
+                  offset = offset + 2 * argValue.length();
+            
+                  arguments.put(argName, argValue);
+               }
+         
+               ThinClient tc = ThinClient.getInstance();
+               tc.invokeLaterOS(() ->
+               {
+                  if (!tc.isEmbedded())
+                  {
+                     String msg = "Attempted to execute a remote invoke request in a non-embedded client.";
+                     throw new SilentUnwindException(new IllegalStateException(msg));
+                  }
+
+                  // if not positive, abend!
+                  if (msgId <= 0)
+                  {
+                     String msg = 
+                        "Attempted to execute a remote invoke request with a non-positive message ID: %d";
+               
+                     msg = String.format(msg, msgId);
+               
+                     throw new SilentUnwindException(new IllegalStateException(msg));
+                  }
+
+                  boolean error = false;
+                  String errorMessage = null;
+            
+                  long handle = 0;
+                  try
+                  {
+                     handle = (inHandle == null || inHandle.length() == 0 
+                                 ? 0 
+                                 : Long.parseLong(inHandle, 16));
+                  }
+                  catch (NumberFormatException e)
+                  {
+                     handle = 0;
+                     error = true;
+                     errorMessage = "Error resolving the handle ID " + inHandle + ": " + e.getMessage();
+                  }
+            
+                  InvocationResponsePayload resp;
+            
+                  if (error)
+                  {
+                     resp = new InvocationResponsePayload();
+                     resp.error = true;
+                     resp.errorMessage = errorMessage;
+                  }
+                  else
+                  {
+                     InvocationRequestPayload payload = new InvocationRequestPayload();
+                     payload.name = name;
+                     payload.handle = handle;
+                     payload.type = type;
+                     payload.arguments = arguments;
+                     payload.persistent = persistent;
+                     payload.noError = noError;
+
+                     resp = (InvocationResponsePayload) tc.invokeOnServer(() ->
+                     {
+                        if (needsNotificationOnWait)
+                        {
+                           callbacks.setNeedsNotificationOnWait(true);
+                        }
+
+                        try
+                        {
+                           ServerReturnValue ret = tc.getServer().invoke(payload);
+                           return ret;
+                        }
+                        finally
+                        {
+                           if (needsNotificationOnWait)
+                           {
+                              callbacks.setNeedsNotificationOnWait(false);
+                           }
+                        }
+                     });
+
+                     if (resp == null)
+                     {
+                        resp = new InvocationResponsePayload();
+                        resp.error = true;
+                        resp.errorMessage = "An unknown error occurred while executing the request";
+                     }
+                  }
+            
+                  String shandle = (resp.handle == 0 ? "" : Long.toHexString(resp.handle));
+            
+                  Map<String, String> output = resp.outputArguments;
+                  if (output == null)
+                  {
+                     output = Collections.emptyMap();
+                  }
+
+                  int responseLength = 1 + 4; // type + msgId
+                  // handle (this must always be sent, as on the JS side we won't check if the call was
+                  // ran persistent or not); the number is sent as a 64-bit value, encoded in hex
+                  responseLength += 1 + 2 * shandle.length();
+                  // return-value
+                  // length
+                  responseLength += 4;
+                  // content
+                  responseLength += 2 * (resp.returnValue == null ? 0 : resp.returnValue.length()); 
+                  // ERROR
+                  responseLength += 1;
+                  if (resp.error)
+                  {
+                     // error+number + error-message-length + error-message
+                     responseLength += 4 + 2 + 2 * resp.errorMessage.length();
+                  }
+                  // quit
+                  responseLength += 1;
+                  // stop
+                  responseLength += 1;
+            
+                  // output arguments
+                  responseLength += 2;
+                  for (String key : output.keySet())
+                  {
+                     // key length + key
+                     responseLength += 1;
+                     responseLength += 2 * key.length();
+               
+                     // value length + value
+                     String val = output.get(key);
+                     responseLength += 2;
+                     responseLength += 2 * val.length(); 
+                  }
+            
+                  BinaryMessage msg = new BinaryMessage(MSG_P2J_INVOKE, responseLength);
+                  msg.writeInt32(msgId);
+                  msg.writeByte((byte) shandle.length());
+                  msg.writeText(shandle);
+                  msg.writeInt32(resp.returnValue == null ? 0 : resp.returnValue.length());
+                  msg.writeText(resp.returnValue);
+                  msg.writeBoolean(resp.error);
+                  if (resp.error)
+                  {
+                     msg.writeInt32(resp.errorNumber);
+                     msg.writeInt16(resp.errorMessage == null ? 0 : resp.errorMessage.length());
+                     msg.writeText(resp.errorMessage);
+                  }
+                  msg.writeBoolean(resp.quit);
+                  msg.writeBoolean(resp.stop);
+            
+                  // write the output arguments
+                  msg.writeInt16(output.size());
+                  for (String key : output.keySet())
+                  {
+                     msg.writeByte((byte) key.length());
+                     msg.writeText(key);
+               
+                     String val = output.get(key);
+                     msg.writeInt16(val.length());
+                     msg.writeText(val);
+                  }
+            
+                  sendBinaryMessage(msg.message);
+            
+                  // if a condition was raised by the converted code, then re-throw it; the business
+                  // logic might have called an explicit i.e. QUIT, and this needs to be handled by
+                  // down-stream logic
+                  String conditionMsg = "Re-throwing a condition raised by a remote invoke API.";
+                  if (resp.error)
+                  {
+                     // for MSG_P2J_INVOKE, the ControlFlowOps.invoke(InvocationRequestPayload) will
+                     // eat any conditions; the reason is because we want to send the response to the
+                     // JS side BEFORE re-raising the conditions to allow the business logic to
+                     // intercept/treat them; for the ERROR (without NO-ERROR mode) case, we need to
+                     // throw it unconditionally; since this is client-side processing AND there is no
+                     // 4GL compatibility requires here, we don't need to use recordOrThrowError()
+                     if (!noError)
+                     {
+                        throw new ErrorConditionException(resp.errorNumber, resp.errorMessage);
+                     }
+                  }
+                  else if (resp.quit)
+                  {
+                     throw new QuitConditionException(conditionMsg);
+                  }
+                  else if (resp.stop)
+                  {
+                     throw new StopConditionException(conditionMsg);
+                  }
+               });
+         
+               handled = true;
+            }
+            break;
+         case MSG_REMOTE_CALL:
+            {
+               offset = offset + 1;
+
+               // read from socket
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               int payloadLength = readMessageInt32(message, offset);
+               offset = offset + 4;
+               String payload = readMessageText(message, offset, offset + 2 * payloadLength);
+         
+               UnformattedPayload result = new UnformattedPayload();
+               result.payload = payload;
+         
+               receiveResult(msgId, result);
+         
+               handled = true;
+            }
+            break;
+         case MSG_P2J_DELETE_HANDLE:
+            {
+               offset = offset + 1;
+
+               // read from socket
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               boolean noError = (message[offset] == 1);
+               offset = offset + 1;
+
+               // read its hex representation (16 bits)
+               int handleStringLen = message[offset];
+               offset = offset + 1;
+
+               String shandle = readMessageText(message, offset, offset + 2 * handleStringLen);
+               offset = offset + 2 * handleStringLen;
+
+               ThinClient tc = ThinClient.getInstance();
+               tc.invokeLaterOS(() ->
+               {
+                  if (!tc.isEmbedded())
+                  {
+                     String msg = "Attempted to execute a delete handle request in a non-embedded client.";
+                     throw new SilentUnwindException(new IllegalStateException(msg));
+                  }
+            
+                  // if not positive, abend!
+                  if (msgId <= 0)
+                  {
+                     String msg = 
+                        "Attempted to execute a delete handle request with a non-positive message ID: %d";
+               
+                     msg = String.format(msg, msgId);
+               
+                     throw new SilentUnwindException(new IllegalStateException(msg));
+                  }
+
+                  BlockRunner block = new BlockRunner((BlockRunner br) ->
+                  { 
+                     long handleId = 0;
+               
+                     try
+                     {
+                        handleId = (handleStringLen == 0 ? 0 : Long.parseLong(shandle, 16));
+                     }
+                     catch (NumberFormatException e)
+                     {
+                        br.error = true;
+                        br.errorNumber = 0;
+                        br.errorMessage = "Error resolving the handle id " + shandle + ": " + e.getMessage();
+                     }
+               
+                     if (!br.error)
+                     {
+                        tc.getServer().deleteHandle(handleId, noError);
+                     }
+               
+                     return (BaseDataType) null;
+                  }); 
+
+                  block.execute();
+            
+                  int msgLength = 1 + 4 + 1; // msgId + error
+                  if (block.error)
+                  {
+                     msgLength += 4 + 2 + 2 * block.errorMessage.length();
+                  }
+            
+                  BinaryMessage msg = new BinaryMessage(MSG_P2J_DELETE_HANDLE, msgLength);
+                  msg.writeInt32(msgId);
+                  msg.writeBoolean(block.error);
+                  if (block.error)
+                  {
+                     msg.writeInt32(block.errorNumber);
+                     msg.writeInt16(block.errorMessage.length());
+                     msg.writeText(block.errorMessage);
+                  }
+            
+                  sendBinaryMessage(msg.message);
+               });
+         
+               handled = true;
+            }
+            break;
+         case MSG_P2J_SUBSCRIBE:
+            {
+               offset = offset + 1;
+
+               // read from socket
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+
+               boolean noError = (message[offset] == 1);
+               offset = offset + 1;
+         
+               boolean global = (message[offset] == 1);
+               offset = offset + 1;
+         
+               // read subscriber hex representation (16 bits)
+               // this is a procedure/external resource handle ID
+               int subidStringLen = message[offset];
+               offset = offset + 1;
+               String subscriberId = readMessageText(message, offset, offset + 2 * subidStringLen);
+               offset = offset + 2 * subidStringLen;
+               Long subscriber = (subidStringLen == 0 ? null : Long.parseLong(subscriberId, 16));
+         
+               int eventStringLen = message[offset];
+               offset = offset + 1;
+               String event = readMessageText(message, offset, offset + 2 * eventStringLen);
+               offset = offset + 2 * eventStringLen;
+         
+               // read publisher hex representation (16 bits)
+               // this is a procedure/external resource handle ID
+               int phandleStringLen = message[offset];
+               offset = offset + 1;
+               String phandle = readMessageText(message, offset, offset + 2 * phandleStringLen);
+               offset = offset + 2 * phandleStringLen;
+               Long publisher = (phandleStringLen == 0 ? null : Long.parseLong(phandle, 16));
+
+               ThinClient tc = ThinClient.getInstance();
+               tc.invokeLaterOS(() ->
+               {
+                  long sub = 0;
+            
+                  BlockRunner block = new BlockRunner((BlockRunner br) ->
+                  {
+                     long l = tc.getServer().subscribeExternal(global,
+                                                               subscriber,
+                                                               event,
+                                                               publisher,
+                                                               noError);
+                     return new int64(l);
+                  }); 
+
+                  block.execute();
+            
+                  if (block.result != null)
+                  {
+                     sub = ((int64) block.result).longValue();
+                  }
+
+                  // WARNING: do not use handle.resourceId(), as we are on the client-side!
+                  String hexsub = Long.toHexString(sub);
+
+                  // msgId + computed subscriber's handle ID
+                  int msgLength = 1 + 4 + 2 + 2 * hexsub.length() + 1;
+            
+                  if (block.error)
+                  {
+                     msgLength += 4 + 2 + 2 * block.errorMessage.length();
+                  }
+            
+                  BinaryMessage msg = new BinaryMessage(MSG_P2J_SUBSCRIBE, msgLength);
+                  msg.writeInt32(msgId);
+                  msg.writeByte((byte) hexsub.length());
+                  msg.writeText(hexsub);
+                  msg.writeBoolean(block.error);
+                  if (block.error)
+                  {
+                     msg.writeInt32(block.errorNumber);
+                     msg.writeInt16(block.errorMessage.length());
+                     msg.writeText(block.errorMessage);
+                  }
+            
+                  sendBinaryMessage(msg.message);
+               });
+         
+               handled = true;
+            }
+            break;
+         case MSG_P2J_UNSUBSCRIBE:
+            {
+               offset = offset + 1;
+
+               // read from socket
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+
+               boolean noError = (message[offset] == 1);
+               offset = offset + 1;
+         
+               boolean global = (message[offset] == 1);
+               offset = offset + 1;
+
+               // read subscriber hex representation (16 bits)
+               // this is a procedure/external resource handle ID
+               int subidStringLen = message[offset];
+               offset = offset + 1;
+               String subscriberId = readMessageText(message, offset, offset + 2 * subidStringLen);
+               offset = offset + 2 * subidStringLen;
+               Long subscriber = (subidStringLen == 0 ? null : Long.parseLong(subscriberId, 16));
+         
+               // event may be null (when empty text)
+               int eventStringLen = message[offset];
+               offset = offset + 1;
+               String event;
+               if (eventStringLen > 0)
+               {
+                  event = readMessageText(message, offset, offset + 2 * eventStringLen);
+                  offset = offset + 2 * eventStringLen;
+               }
+               else
+               {
+                  event = null;
+               }
+         
+               // read publisher hex representation (16 bits)
+               // this is a procedure/external resource handle ID
+               int phandleStringLen = message[offset];
+               offset = offset + 1;
+               String phandle = readMessageText(message, offset, offset + 2 * phandleStringLen);
+               offset = offset + 2 * phandleStringLen;
+               Long publisher = phandleStringLen == 0 ? null : Long.parseLong(phandle, 16);
+
+               ThinClient tc = ThinClient.getInstance();
+               tc.invokeLaterOS(() ->
+               {
+                  BlockRunner block = new BlockRunner((BlockRunner br) ->
+                  {
+                     // noError can be ignored here because this is always implicitly noError
+                     tc.getServer().unsubscribeExternal(global, subscriber, event, publisher);
+                     return (BaseDataType) null;
+                  });
+            
+                  block.execute();
+
+                  // msgId
+                  int msgLength = 1 + 4 + 1;
+                  if (block.error)
+                  {
+                     msgLength += 4 + 2 + 2 * block.errorMessage.length();
+                  }
+            
+                  BinaryMessage msg = new BinaryMessage(MSG_P2J_UNSUBSCRIBE, msgLength);
+                  msg.writeInt32(msgId);
+                  msg.writeBoolean(block.error);
+                  if (block.error)
+                  {
+                     msg.writeInt32(block.errorNumber);
+                     msg.writeInt16(block.errorMessage.length());
+                     msg.writeText(block.errorMessage);
+                  }
+
+                  sendBinaryMessage(msg.message);
+               });
+         
+               handled = true;
+            }
+            break;
+         case MSG_P2J_PUBLISH:
+            {
+               offset = offset + 1;
+
+               // read from socket
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+
+               // event may be null (when empty text)
+               int eventStringLen = message[offset];
+               offset = offset + 1;
+               String event = readMessageText(message, offset, offset + 2 * eventStringLen);
+               offset = offset + 2 * eventStringLen;
+         
+               // read publisher hex representation (16 bits)
+               // this is a procedure/external resource handle ID
+               int phandleStringLen = message[offset];
+               offset = offset + 1;
+               String phandle = readMessageText(message, offset, offset + 2 * phandleStringLen);
+               offset = offset + 2 * phandleStringLen;
+               Long publisher = Long.parseLong(phandle, 16);
+
+               // read arg num
+               int argNum = message[offset];
+               offset = offset + 1;
+               String[] args = new String[argNum];
+               for (int i = 0; i < argNum; i++)
+               {
+                  // read arg
+                  int argLen = message[offset];
+                  offset = offset + 1;
+                  String arg = readMessageText(message, offset, offset + 2 * argLen);
+                  offset = offset + 2 * argLen;
+            
+                  args[i] = arg;
+               }
+         
+               ThinClient tc = ThinClient.getInstance();
+               tc.invokeLaterOS(() ->
+               {
+                  try
+                  {
+                     // no return value or output arguments are supported
+                     tc.getServer().publishExternal(event, publisher, args);
+                  }
+                  catch (Throwable t)
+                  {
+                     t.printStackTrace(System.err);
+                  }
+
+                  // no response is sent for remote PUBLISH 
+               });
+         
+               handled = true;
+            }
+            break;
+         case MSG_P2J_CREATE_RESOURCE:
+            {
+               offset = offset + 1;
+
+               // read from socket
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               ThinClient tc = ThinClient.getInstance();
+               tc.invokeLaterOS(() ->
+               {
+                  long resId = tc.getServer().createExternal();
+                  String hexId = Long.toHexString(resId);
+
+                  // type + msgId + hexId.length + 2 * hexId.length
+                  int msgLength = 1 + 4 + 1 + 2 * hexId.length();
+            
+                  BinaryMessage msg = new BinaryMessage(MSG_P2J_CREATE_RESOURCE, msgLength);
+                  msg.writeInt32(msgId);
+                  msg.writeByte((byte) hexId.length());
+                  msg.writeText(hexId);
+
+                  sendBinaryMessage(msg.message);
+               });
+         
+               handled = true;
+            }
+            break;
+         case MSG_SENT_DESKTOP_DIMENSION:
+            if (length == 9)
+            {
+               offset = offset + 1;
+         
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               int width = readMessageInt16(message, offset);
+               offset = offset + 2;
+         
+               int height = readMessageInt16(message, offset);
+               offset = offset + 2;
+         
+               receiveResult(msgId, new int[] { width, height });
+               handled = true;
+            }
+            break;
+         case MSG_DROP_FILE_NOTIFY:
+            {
+               offset = offset + 1;
+         
+               // getting the target window
+               int winID = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               // getting the target widget candidate
+               int widTargetID = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               // getting the file list size
+               int listSize = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               // getting the file names and building the Java list
+               List<String> fileNameList = new ArrayList<String>();
+         
+               for (int i = 0; i < listSize; i++)
+               {
+                  int nameLength = readMessageInt16(message, offset);
+                  offset = offset + 2;
+                  String fileName = readMessageText(message, offset, offset + 2 * nameLength);
+                  offset = offset + 2 * nameLength;
+                  // new File object
+                  fileNameList.add(fileName);
+               }
+         
+               // process dropping if list is not empty
+               if (!fileNameList.isEmpty())
+               {
+                  // calling gui driver to continue processing
+                  this.callbacks.startDropTarget(winID, widTargetID, fileNameList);
+               }
+         
+               handled = true;
+            }
+            break;
+         case MSG_FILE_UPLOADING:
+            {
+               offset = offset + 1;
+         
+               // file name length
+               int nameLength = readMessageInt16(message, offset);
+               offset = offset + 2;
+         
+               // file name
+               String fileName = readMessageText(message, offset, offset + 2 * nameLength);
+               offset = offset + 2 * nameLength;
+         
+               // file size
+               int fileSize = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               // file content itself
+               byte[] fileData = readByteArray(message, offset, fileSize);
+         
+               // content can be empty
+               if (fileData != null)
+               {
+                  // ask java to store the file locally in temp directory
+                  this.callbacks.saveDropTargetFile(fileName, fileData, fileSize);
+               }
+         
+               handled = true;
+            }
+            break;
+         case MSG_GET_MOUSE_POSITION:
+            if (length == 9)
+            {
+               offset = offset + 1;
+
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+
+               int x = readMessageInt16(message, offset);
+               offset = offset + 2;
+
+               int y = readMessageInt16(message, offset);
+
+               receiveResult(msgId, new int[] { x, y });
+               handled = true;
+            }
+            break;
+         case MSG_P2J_APPLY_EVENT:
+            {
+               offset = offset + 1;
+
+               // read from socket
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+
+               // event may be null (when empty text)
+               int eventStringLen = message[offset];
+               offset = offset + 1;
+               String event = readMessageText(message, offset, offset + 2 * eventStringLen);
+               offset = offset + 2 * eventStringLen;
+         
+               // read the target's HWND id (i.e. the widget ID)
+               int widgetId = readMessageInt32(message, offset);
+               offset = offset + 4;
+
+               ThinClient tc = ThinClient.getInstance();
+               tc.invokeLaterOS(() ->
+               {
+                  try
+                  {
+                     tc.apply(widgetId, Keyboard.eventCode(event), null, new EventList(), true);
+                  }
+                  catch (Throwable t)
+                  {
+                     t.printStackTrace(System.err);
+                  }
+
+                  // no response is sent for remote PUBLISH 
+               });
+         
+               handled = true;
+            }
+            break;
+         case MSG_SENT_HOST_NAME:
+            if (length > 9)
+            {
+               offset++;
+               int msgId = readMessageInt32(message, offset);
+
+               offset += 4;
+               int nameLength = readMessageInt32(message, offset);
+         
+               offset += 4;
+               String name = readMessageText(message, offset, offset + 2 * nameLength);
+
+               receiveResult(msgId, name);
+               handled = true;
+            }
+            break;
+         case MSG_SENT_HOST_BY_NAME:
+            if (length == 13)
+            {
+               offset++;
+               int msgId = readMessageInt32(message, offset);
+
+               offset += 4;
+               long ip = readMessageInt64(message, offset);
+
+               receiveResult(msgId, ip);
+               handled = true;
+            }
+            break;
+         case MSG_GET_KEY_VALUE:
+         case MSG_GET_KEY:
+            {
+               offset = offset + 1;
+
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               int valueLen = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               String value = readMessageText(message, offset, offset + 2 * valueLen);
+         
+               receiveResult(msgId, value);
+         
+               handled = true;
+            }
+            break;
+         case MSG_GET_STORAGE_SIZE:
+            {
+               offset = offset + 1;
+
+               int msgId = readMessageInt32(message, offset);
+               offset = offset + 4;
+         
+               int size = readMessageInt32(message, offset);
+         
+               receiveResult(msgId, Integer.valueOf(size));
+         
+               handled = true;
+            }
+            break;
+         case MSG_FILE_CHOOSE:
+            {
+               offset += 1;
+
+               int msgId = readMessageInt32(message, offset);
+               offset += 4;
+
+               int count = readMessageInt32(message, offset);
+               offset += 4;
+               String[] selectedFiles = new String[count];
+
+               for (int i = 0; i < count; i++)
+               {
+                  int len = readMessageInt32(message, offset);
+                  offset += 4;
+                  if (len > 0)
+                  {
+                     selectedFiles[i] = readMessageText(message, offset, offset + 2*len);
+                     offset += len * 2;
+                  }
+               }
+
+               count = readMessageInt32(message, offset);
+               offset += 4;
+               String[] uploadedFiles = new String[count];
+
+               for (int i = 0; i < count; i++)
+               {
+                  int len = readMessageInt32(message, offset);
+                  offset += 4;
+                  if (len > 0)
+                  {
+                     uploadedFiles[i] = readMessageText(message, offset, offset + 2*len);
+                     offset += len * 2;
+                  }
+               }
+
+               receiveResult(msgId, new Object[] {selectedFiles, uploadedFiles});
+               handled = true;
+            }
+            break;
+         case MSG_TRIGGER_EVENT:
+            {
+               int idx = offset + 1;
+
+               int widgetId = readMessageInt32(message, idx);
+               idx = idx + 4;
+
+               byte eventId = message[idx];
+               idx = idx + 1;
+
+               byte[] paramsData = null;
+               if (length > idx)
+               {
+                  paramsData = readByteArray(message, idx, length - idx);
+               }
+
+               ThinClient tc = ThinClient.getInstance();
+               DriverWidgetHost dw = (DriverWidgetHost) tc.getWidget(widgetId);
+               if (dw != null)
+               {
+                  byte[] finalParamsData = paramsData;
+                  tc.invokeLaterOS(true, () -> dw.triggerEvent(eventId, finalParamsData));
+               }
+
+               handled = true;
+            }
+            break;
+         case MSG_ENABLE_GRAPHICS_CACHE:
+            this.graphicsCached = true;
+            break;
+         case MSG_DISABLE_GRAPHICS_CACHE:
+            this.graphicsCached = false;
+            break;
+         default:
+            // nothing to do here
       }
 
       return handled;
@@ -4465,12 +4604,12 @@
     *           Details about the "any mouse" widgets which no longer process mouse events
     *           (i.e. they were hidden/disabled/etc).
     */
-   void processMouseWidgets(Map<Integer, Map<Integer, Set<Integer>>>    allWidgets,
-                            Map<Integer, Map<Integer, Set<Integer>>>    newWidgets,
+   void processMouseWidgets(Map<Integer, Map<Integer, RoaringBitmap>>    allWidgets,
+                            Map<Integer, Map<Integer, RoaringBitmap>>    newWidgets,
                             Map<Integer, Map<Integer, NativeRectangle>> newWidgetsBounds,
-                            Map<Integer, Map<Integer, Set<Integer>>>    deadWidgets,
-                            Map<Integer, Set<Integer>>                  newAnyWidgets,
-                            Map<Integer, Set<Integer>>                  deadAnyWidgets)
+                            Map<Integer, Map<Integer, RoaringBitmap>>    deadWidgets,
+                            Map<Integer, RoaringBitmap>                  newAnyWidgets,
+                            Map<Integer, RoaringBitmap>                  deadAnyWidgets)
    {
       if (newWidgets.isEmpty()    &&
           deadWidgets.isEmpty()   &&
@@ -4487,7 +4626,7 @@
       length = length + 2;
       for (Integer windowId : newWidgets.keySet())
       {
-         Map<Integer, Set<Integer>> widgets = newWidgets.get(windowId);
+         Map<Integer, RoaringBitmap> widgets = newWidgets.get(windowId);
          
          // the window ID
          length = length + 4;
@@ -4506,7 +4645,7 @@
       length = length + 2;
       for (Integer windowId : deadWidgets.keySet())
       {
-         Map<Integer, Set<Integer>> widgets = deadWidgets.get(windowId);
+         Map<Integer, RoaringBitmap> widgets = deadWidgets.get(windowId);
          
          // the window ID
          length = length + 4;
@@ -4522,7 +4661,7 @@
       length = length + 2;
       for (Integer windowId : newAnyWidgets.keySet())
       {
-         Set<Integer> widgets = newAnyWidgets.get(windowId);
+         RoaringBitmap widgets = newAnyWidgets.get(windowId);
          
          // the window ID
          length = length + 4;
@@ -4531,14 +4670,14 @@
          length = length + 2;
          
          // the widgets: widget ID
-         length = length + widgets.size() * 4;
+         length = length + widgets.getCardinality() * 4;
       }
 
       // 2 bytes for the number of windows with dead "any widgets"
       length = length + 2;
       for (Integer windowId : deadAnyWidgets.keySet())
       {
-         Set<Integer> widgets = deadAnyWidgets.get(windowId);
+         RoaringBitmap widgets = deadAnyWidgets.get(windowId);
          
          // the window ID
          length = length + 4;
@@ -4547,7 +4686,7 @@
          length = length + 2;
          
          // the widgets: widget ID
-         length = length + widgets.size() * 4;
+         length = length + widgets.getCardinality() * 4;
       }
       
       byte[] message = new byte[length];
@@ -4563,7 +4702,7 @@
       
       for (Integer windowId : newWidgets.keySet())
       {
-         Map<Integer, Set<Integer>> widgets = newWidgets.get(windowId);
+         Map<Integer, RoaringBitmap> widgets = newWidgets.get(windowId);
          
          // the window ID
          writeMessageInt32(message, offset, windowId);
@@ -4611,7 +4750,7 @@
          // the z-order widgets
 
          // the number of all widgets in this window
-         Map<Integer, Set<Integer>> all = allWidgets.get(windowId);
+         Map<Integer, RoaringBitmap> all = allWidgets.get(windowId);
          writeMessageInt16(message, offset, all.size());
          offset = offset + 2;
          
@@ -4628,7 +4767,7 @@
       
       for (Integer windowId : deadWidgets.keySet())
       {
-         Map<Integer, Set<Integer>> widgets = deadWidgets.get(windowId);
+         Map<Integer, RoaringBitmap> widgets = deadWidgets.get(windowId);
          
          // the window ID
          writeMessageInt32(message, offset, windowId);
@@ -4653,14 +4792,14 @@
       
       for (Integer windowId : newAnyWidgets.keySet())
       {
-         Set<Integer> widgets = newAnyWidgets.get(windowId);
+         RoaringBitmap widgets = newAnyWidgets.get(windowId);
          
          // the window ID
          writeMessageInt32(message, offset, windowId);
          offset = offset + 4;
          
          // the number of new "any widgets" in this window
-         writeMessageInt16(message, offset, widgets.size());
+         writeMessageInt16(message, offset, widgets.getCardinality());
          offset = offset + 2;
          
          // the new "any widgets"
@@ -4678,14 +4817,14 @@
       
       for (Integer windowId : deadAnyWidgets.keySet())
       {
-         Set<Integer> widgets = deadAnyWidgets.get(windowId);
+         RoaringBitmap widgets = deadAnyWidgets.get(windowId);
          
          // the window ID
          writeMessageInt32(message, offset, windowId);
          offset = offset + 4;
          
          // the number of dead widgets in this window
-         writeMessageInt16(message, offset, widgets.size());
+         writeMessageInt16(message, offset, widgets.getCardinality());
          offset = offset + 2;
          
          // the dead widgets

=== modified file 'src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.canvas_renderer.js'
--- src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.canvas_renderer.js	2020-10-09 09:08:16 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.canvas_renderer.js	2021-01-24 20:39:20 +0000
@@ -43,8 +43,15 @@
 ** 020 SBI 20191002 Changed drawImage for Chrome major >= 77, added flash() and renamed canvas to
 **                  offscreenCanvas and ctx to offscreenCtx.
 ** 021 HC  20200712 Canvas drawing performance improvements.
-**     SBI 20201005 Improved drawImage, changed the canvas constant for using with setXORComposite,
-**                  replaced xor to difference.
+**     SBI 20201007 Improved drawImage, changed the canvas constant for using with setXORComposite,
+**                  replaced xor to difference, changed drawLine, drawLineSegment and drawRect to
+**                  improve line drawings.
+**     VVT 20201007 Support for the new drawing primitive was added: drawEdge()
+**     VVT 20201010 Fixed: drawEdge(). See #4950.
+**     CA  20201019 'clip()' must calculate only unique, non-repeating, rectangles.
+**     SBI 20201221 Fixed cutLine in the case of slopped line given by x1, y1 and x2, y2.
+**                  Fixed drawSlopedLineSegment if coordinates are not all whole numbers.
+**                  Changed strokeRect if disable pixel manipulation flag is set on.
 */
 
 /*
@@ -131,7 +138,6 @@
 
    /** The peer canvas to draw selection boxes. */
    this.selectionCanvas = document.createElement('canvas');
-   this.selectionCtx = this.selectionCanvas.getContext("2d");
 
    /** Color scaling factor, compatible with Java2D. */
    var SCALE_FACTOR = 0.7;
@@ -948,18 +954,28 @@
       var dx = x2 - x1;
       var dy = y2 - y1;
 
-      // vertical and horizontal lines are handled by the current stroke renderer (optimization)
-      // if dx == 0, then a line (x1, y1, x2, y2) is a vertical
-      // if dy == 0, then a line (x1, y1, x2, y2) is a horizontal
-      if (dx === 0 || dy === 0)
+      if (p2j.disablePixelManipulation)
       {
-         // to draw a line as an image for the default stroke and widen stroke styles
-         // we have x2 >= x1 and y2 >= y1 and dx or dy equals zero.
-         strokeRenderer.strokeLine(x1, y1, x2, y2);//optimization
+         this.offscreenCtx.beginPath();
+         this.offscreenCtx.moveTo(x1 - this.origin.x, y1 - this.origin.y);
+         this.offscreenCtx.lineTo(x2 - this.origin.x, y2 - this.origin.y);
+         this.offscreenCtx.stroke();
       }
       else
       {
-         this.drawSlopedLineSegment(x1, y1, x2, y2, strokeRenderer);
+         // vertical and horizontal lines are handled by the current stroke renderer (optimization)
+         // if dx == 0, then a line (x1, y1, x2, y2) is a vertical
+         // if dy == 0, then a line (x1, y1, x2, y2) is a horizontal
+         if (dx === 0 || dy === 0)
+         {
+            // to draw a line as an image for the default stroke and widen stroke styles
+            // we have x2 >= x1 and y2 >= y1 and dx or dy equals zero.
+            strokeRenderer.strokeLine(x1, y1, x2, y2);//optimization
+         }
+         else
+         {
+            this.drawSlopedLineSegment(x1, y1, x2, y2, strokeRenderer);
+         }
       }
    }
 };
@@ -985,8 +1001,10 @@
    var dx = Math.abs(x2 - x1);
    var dy = Math.abs(y2 - y1);
 
-   var xIncr = x1 < x2 ? 1 : -1;
-   var yIncr = y1 < y2 ? 1 : -1;
+   var bxIncr = x1 < x2;
+   var xIncr = bxIncr ? 1 : -1;
+   var byIncr = y1 < y2;
+   var yIncr = byIncr ? 1 : -1;
    
    dy = -dy;
    
@@ -999,12 +1017,7 @@
    
    while (true)
    {
-      // use a pixel drawing method to stroke the point
-      strokeRenderer.strokePoint(x, y);
-      
-      tooMany++;
-      
-      if (x == x2 && y == y2)
+      if (((bxIncr && (x > x2)) || (!bxIncr && (x < x2))) || ((byIncr && (y > y2))||!byIncr && (y < y2)))
       {
          break;
       }
@@ -1018,7 +1031,12 @@
             break;
          }
       }
-         
+      
+      // use a pixel drawing method to stroke the point
+      strokeRenderer.strokePoint(x, y);
+      
+      tooMany++;
+      
       err2 = err * 2;
       
       if (err2 >= dy)
@@ -1191,7 +1209,11 @@
    // use vector operations for the interior of the rectangle
    if (fill)
    {
-      inset = 1;
+      if (!p2j.disablePixelManipulation)
+      {
+         inset = 1;
+      }
+      
       this.offscreenCtx.beginPath();
       this.offscreenCtx.rect(x, y, width - inset, height - inset);
       this.renderClosedPath(fill);
@@ -1790,6 +1812,7 @@
    var prevClip = this.lastClippedRegion(false);
    if (prevClip)
    {
+      var clipSet = {};
       for (var i = 0; i < prevClip.length; i++)
       {
           var prevR =
@@ -1823,14 +1846,20 @@
                    "bottom" : (prevR.bottom < newR.bottom ? prevR.bottom : newR.bottom),
                    "right"  : (prevR.right  < newR.right  ? prevR.right  : newR.right),
                 };
-
-                newClip.push
-                ({
-                   x : intersect.left,
-                   y : intersect.top,
-                   width : intersect.right - intersect.left + 1,
-                   height : intersect.bottom - intersect.top + 1
-                });
+                var rkey = intersect.top + ";" + intersect.left + ";" + 
+                           intersect.bottom + ";" + intersect.right;
+                if (!(rkey in clipSet))
+                {
+                   clipSet[rkey] = intersect;
+ 
+                   newClip.push
+                   ({
+                      x : intersect.left,
+                      y : intersect.top,
+                      width : intersect.right - intersect.left + 1,
+                      height : intersect.bottom - intersect.top + 1
+                   });
+                }
              }
           }
       }
@@ -1970,26 +1999,57 @@
    var result = [];
    for (var i = 0; i < clipped.length; i++)
    {
-      xa = clipped[i].left;
-      ya = clipped[i].top;
-      xb = clipped[i].right;
-      yb = clipped[i].bottom;
+      var left = clipped[i].left;
+      var top = clipped[i].top;
+      var right = clipped[i].right;
+      var bottom = clipped[i].bottom;
 
       // check that it is vertical or horizontal
       if ((x1 == x2) || (y1 == y2))
       {
+         result.push([left, top, right, bottom]);
+      }
+      else
+      {
+         ya = (y1 * (x2 - xa) / (x2 - x1)) + (y2 * (xa - x1) / (x2 - x1));
+         yb = (y1 * (x2 - xb) / (x2 - x1)) + (y2 * (xb - x1) / (x2 - x1));
+         
+         if (yb <= top && ya <= top)
+         {
+            continue;
+         }
+         
+         if (ya >= bottom && yb >= bottom)
+         {
+            continue;
+         }
+         
+         if (ya >= bottom && yb <= bottom)
+         {
+            xa = (bottom*(x2-x1) + y2*x1 - y1*x2)/(y2-y1);
+            ya = bottom;
+         }
+         
+         if (ya <= bottom && yb >= bottom)
+         {
+            xb = (bottom*(x2-x1) + y2*x1 - y1*x2)/(y2-y1);
+            yb = bottom;
+         }
+         
+         if (ya >= top && yb <= top)
+         {
+            xb = (top*(x2-x1) + y2*x1 - y1*x2)/(y2-y1);
+            yb = top;
+         }
+         
+         if (ya <= top && yb >= top)
+         {
+            xa = (top*(x2-x1) + y2*x1 - y1*x2)/(y2-y1);
+            ya = top;
+         }
+         
          result.push([xa, ya, xb, yb]);
       }
-      else
-      {
-         var fxa;
-         var fxb;
-
-         fxa = (y1 * (x2 - xa) / (x2 - x1)) + (y2 * (xa - x1) / (x2 - x1));
-         fxb = (y1 * (x2 - xb) / (x2 - x1)) + (y2 * (xb - x1) / (x2 - x1));
-
-         result.push([xa, fxa, xb, fxb]);
-      }
    }
 
    return result.length > 0 ? result : null;
@@ -2338,3 +2398,174 @@
    this.offscreenCtx.fillText(text, x * scaleBackWidth, y * scaleBackHeight);
    this.offscreenCtx.restore();
 }
+
+/**
+ * Draw one or more edges of rectangle.
+ * 
+ * See {@link GuiDriver#drawEdge(int, int, int, int, int, int)} for details.
+ *
+ * @param    {Number} left
+ *           The rectangle left side coordinate.
+ * @param    {Number} top
+ *           The rectangle top side coordinate.
+ * @param    {Number} width
+ *           The rectangle width.
+ * @param    {Number} height
+ *           The rectangle height.
+ * @param    {Number} edgeType
+ *           Flags defining the edge type (flat, bevelled etc.)
+ * @param    {Number} flags
+ *           Flags defining which rectangle edges to draw
+ *           (left, top, right, bottom)
+ */
+CanvasRenderer.prototype.drawEdge = (function() {
+   "use strict";
+   const BF_LEFT         = 0x0001;
+   const BF_TOP          = 0x0002;
+   const BF_RIGHT        = 0x0004;
+   const BF_BOTTOM       = 0x0008;
+   const BF_FLAT         = 0x4000;
+
+   /* 3D border styles */
+   const BDR_RAISEDOUTER = 0x0001;
+   const BDR_SUNKENOUTER = 0x0002;
+   const BDR_RAISEDINNER = 0x0004;
+   const BDR_SUNKENINNER = 0x0008;
+
+   const COLOR_INDEX_MASK = BDR_RAISEDOUTER | BDR_SUNKENOUTER | BDR_RAISEDINNER | BDR_SUNKENINNER;
+
+   const clBtnHighlight = [255,255,255];   // white
+   const cl3DDkShadow   = [64, 64, 64];    // darkGray
+   const cl3DLight      = [212, 208, 200];
+   const clBtnShadow    = [128, 128, 128]; // gray
+   const clBtnFace      = [212, 208, 200];
+
+   const LEFTTOP_INNER_NORMAL_COLORS = [
+      false, false, false, false, false,
+      clBtnHighlight, clBtnHighlight, false, false, cl3DDkShadow,
+      cl3DDkShadow, false, false,
+      false, false, false ];
+
+   const LEFTTOP_OUTER_NORMAL_COLORS = [
+      false, cl3DLight, clBtnShadow,
+      false, clBtnHighlight, cl3DLight, clBtnShadow, false, cl3DDkShadow,
+      cl3DLight, clBtnShadow, false, false, cl3DLight, clBtnShadow, false ];
+   
+   const RIGHTBOTTOM_INNER_NORMAL_COLORS = [
+      false, false, false, false, false,
+      clBtnShadow, clBtnShadow, false, false, cl3DLight, cl3DLight,
+      false, false, false, false,
+      false ];
+
+   const RIGHTBOTTOM_OUTER_NORMAL_COLORS = [
+      false, cl3DDkShadow,
+      clBtnHighlight, false, clBtnShadow, cl3DDkShadow, clBtnHighlight, false, cl3DLight,
+      cl3DDkShadow, clBtnHighlight, false, false, cl3DDkShadow, clBtnHighlight, false ];
+
+   const LEFTTOP_RIGHTBOTTOM_OUTER_FLAT_COLORS = [
+      false, clBtnShadow,
+      clBtnShadow, clBtnShadow, clBtnFace, clBtnShadow, clBtnShadow, clBtnShadow, clBtnFace,
+      clBtnShadow, clBtnShadow, clBtnShadow, clBtnFace, clBtnShadow, clBtnShadow,
+      clBtnShadow ];
+
+   const LEFTTOP_RIGHTBOTTOM_INNER_FLAT_COLORS = [
+      false, false, false, false,
+      false, clBtnFace, clBtnFace, clBtnFace, false, clBtnFace, clBtnFace, clBtnFace, false,
+      clBtnFace, clBtnFace, clBtnFace ];
+
+   return function(left, top, width, height, edgeType, flags)
+   {
+      var flat = (flags & BF_FLAT) != 0;
+      var leftTopInnerColor;
+      var leftTopOuterColor;
+      var rightBottomInnerColor;
+      var rightBottomOuterColor;
+
+      var colorIndex = edgeType & COLOR_INDEX_MASK;
+
+      var topEdge = (flags & BF_TOP) != 0;
+      var leftEdge = (flags & BF_LEFT) != 0;
+      var bottomEdge = (flags & BF_BOTTOM) != 0;
+      var rightEdge = (flags & BF_RIGHT) != 0;
+
+      var lbiOffset = (bottomEdge && leftEdge) ? 1 : 0;
+      var ltiOffset = (topEdge && leftEdge) ? 1 : 0;
+      var rtiOffset = (topEdge && rightEdge) ? 1 : 0;
+      var rbiOffset = (bottomEdge && rightEdge) ? 1 : 0;
+
+      var right = left + width - 1;
+      var bottom = top + height - 1;
+
+      /* Determine the colors of the edges */
+      if (flat)
+      {
+         leftTopInnerColor = rightBottomInnerColor = LEFTTOP_RIGHTBOTTOM_INNER_FLAT_COLORS[colorIndex];
+         leftTopOuterColor = rightBottomOuterColor = LEFTTOP_RIGHTBOTTOM_OUTER_FLAT_COLORS[colorIndex];
+
+         if (leftTopInnerColor)
+         {
+            leftTopInnerColor = rightBottomInnerColor = clBtnFace;
+         }
+      }
+      else
+      {
+         leftTopInnerColor = LEFTTOP_INNER_NORMAL_COLORS[colorIndex];
+         leftTopOuterColor = LEFTTOP_OUTER_NORMAL_COLORS[colorIndex];
+         rightBottomInnerColor = RIGHTBOTTOM_INNER_NORMAL_COLORS[colorIndex];
+         rightBottomOuterColor = RIGHTBOTTOM_OUTER_NORMAL_COLORS[colorIndex];
+      }
+
+      /* Draw the outer edge */
+      if (leftTopOuterColor)
+      {
+         if (topEdge)
+         {
+            this.drawLine(left, top, right, top, leftTopOuterColor);
+         }
+
+         if (leftEdge)
+         {
+            this.drawLine(left, top, left, bottom, leftTopOuterColor);
+         }
+      }
+
+      if (rightBottomOuterColor)
+      {
+         if (bottomEdge)
+         {
+            this.drawLine(left, bottom, right, bottom, rightBottomOuterColor);
+         }
+
+         if (rightEdge)
+         {
+            this.drawLine(right, top, right, bottom, rightBottomOuterColor);
+         }
+      }
+
+      if (leftTopInnerColor)
+      {
+         if (topEdge)
+         {
+            this.drawLine(left + ltiOffset, top + 1, right - rtiOffset, top + 1, leftTopInnerColor);
+         }
+
+         if (leftEdge)
+         {
+            this.drawLine(left + 1, top + ltiOffset, left + 1, bottom - lbiOffset, leftTopInnerColor);
+         }
+      }
+
+      if (rightBottomInnerColor)
+      {
+         if (bottomEdge)
+         {
+            this.drawLine(left + lbiOffset, bottom - 1, right - rbiOffset, bottom - 1, rightBottomInnerColor);
+         }
+
+         if (rightEdge)
+         {
+            this.drawLine(right - 1, top + rtiOffset, right - 1, bottom - rbiOffset, rightBottomInnerColor);
+         }
+      }      
+};
+})();

=== added file 'src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.canvas_renderer_webgl.js'
--- src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.canvas_renderer_webgl.js	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.canvas_renderer_webgl.js	2021-01-25 21:31:58 +0000
@@ -0,0 +1,4195 @@
+/*
+** Module   : p2j.canvas_renderer_webgl.js
+** Abstract : GUI-specific WebGL canvas renderer
+**
+** Copyright (c) 2014-2021, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ------------------------------Description----------------------------------
+** 001 HC  20201021 Created initial version.
+**     SBI 20201031 Fixed cutLine in the case of slopped line given by x1, y1 and x2, y2.
+**         20201228 Changed flash in order to use it for intermediate drawings in the current drawing batch.
+**         20210124 Fixed buildEllipseByTringles, drawRoundRect to use coordinates with respect to the origin.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+"use strict";
+
+/**
+ * Creates the canvas renderer.
+ * 
+ * @param    {HtmlCanvasElement} canvas
+ *           The html canvas element.
+ * @param    {CanvasRenderingContext2D} ctx
+ *           The canvas 2D graphics context on which to draw.
+ * @param    {HtmlCanvasElement} screenCanvas
+ *           The html canvas element having the actual screen content.
+ * @param    {LinesStroke} strokesManager
+ *           The stroke manager
+ * @param    {Object} fontsManager
+ *           The p2j fonts manager.
+ * @param    {Object} logger
+ *           The p2j logger.
+ */
+function WebGLCanvasRenderer(canvas, ctx, screenCanvas, strokesManager, fontsManager, logger)
+{
+   this.offscreenCanvas = canvas;
+   this.offscreenCtx = ctx;
+   this.strokesManager = strokesManager;
+   this.logger = logger;
+   this.fontsManager = fontsManager;
+   /** This is the pointer to real screen context to take the current pixel values. */
+   this.screenCanvas = screenCanvas;
+   this.screenCtx = screenCanvas.getContext("2d", {alpha : true});
+
+   /** The peer canvas to draw selection boxes. */
+   this.selectionCanvas = document.createElement('canvas');
+
+   /** Color scaling factor, compatible with Java2D. */
+   var SCALE_FACTOR = 0.7;
+
+   /** Minimum color value for darkening/lightening. */
+   var MIN_COLOR_VALUE = Math.floor(1.0 / (1.0 - SCALE_FACTOR));
+
+   /** Common data structure used in direct drawing operations. */
+   this.pixel = this.offscreenCtx.createImageData(1, 1);
+   
+   /** Internal portion of the pixel data structure used in direct drawing operations. */
+   this.pixData = this.pixel.data;
+   
+   // force alpha to 100% opaque
+   this.pixData[3] = 0xFF;
+   
+   // eliminate anti-aliasing of images
+   this.offscreenCtx.imageSmoothingEnabled = false;
+   
+   /** Tracks the current cumulative coordinate translation that is in effect. */
+   this.origin = { "x" : 0, "y" : 0 };
+
+   /** Stack of graphics context state, used for managing drawing, clipping and transforms. */
+   this.state = new Array();
+
+   /** Current color for direct drawing (in the form [ red, green, blue ]). */
+   this.rawColor = new Array(0, 0, 0);
+
+   /** Current color for direct drawing (in the form [ red, green, blue ]). */
+   this.xorColor = new Array(255, 255, 255);
+
+   /** Current color for I-Beam cursor drawing (in the form [ red, green, blue ]). */
+   this.iBeamColor = new Array(1, 1, 1);
+
+   /** The current window stroke style id. */
+   this.strokeStyleId = strokesManager.getDefaultStrokeStyle();
+   
+   /** The current window stroke width. */
+   this.strokeWidth = 1;
+   
+   /** This stack will contain the drawing operation recordings. */
+   this.recordings = new Array();
+
+   //sets the default stroke for the canvas
+   this.strokesManager.applyStrokeToCanvas(this.offscreenCtx, this.strokeStyleId, this.strokeWidth);
+   
+   /** True value indicates XOR composite operation will be applied. */
+   this.compositeModeOn = false;
+   
+   /** The screen capture used by drawing primitives */
+   this.screenCapture = this.offscreenCtx.getImageData(0, 0, 1, 1);
+   
+   // force all drawing to be inside pixel "cells" instead of "stradling" between two cells
+   // which is the default; this eliminates much of the worst of the anti-aliasing and
+   // positioning problems inherent in canvas operations; this will also save off the
+   // current state of the graphics context so that it can be restored later
+   // CA: this line is commented out, as after some repaint improvements (now only the affected
+   // widgets are being repainted, and not the entire frame) Web clients starting showing 
+   // artefacts; the cause is this translation, as the upper and left part of pixel cell remained
+   // untouched.
+   // this.translate(0.5, 0.5);
+   
+   /** Flag to control selection canvas init. */
+   this.selectionCanvasReady = false;
+   
+   /** If something was drawn on the selection canvas it becomes dirty. */
+   this.selectionCanvasDirty = false;
+   
+   /** Flag to control selection canvas visibility. */
+   this.selectionCanvasVisible = false;
+
+   /** Array of text objects to render during flash. */
+   this.texts = [];
+
+   /** Invalidation rectangle used to track invalidated screen area. */
+   this.invalidationRectangle = new Rectangle();
+
+   // initialize the shared webgl context
+   if (!p2j.screen.webgl)
+   {
+      // WebGL stuff
+      var options = { };
+
+      options.id     = "glOffscreenCanvas";
+      options.width  = screenCanvas.width || 400;
+      options.height = screenCanvas.height || 600;
+      options.style  = screenCanvas.style || { };
+
+      // do NOT set the tabIndex, that causes the canvas to get a selection highlight when a
+      // mouse clicks into the canvas (it is a small dotted rectangle just outside of the
+      // canvas' border), to avoid this we don't set tabIndex
+      // options.tabIndex = options.tabIndex || 1;
+
+      // this must always be set so that the canvas element is removed from the normal layout
+      // processing of the document
+      options.style.position = "absolute";
+
+      var webglCanvas = p2j.createCanvas(null, options);
+      webglCanvas.visibility = "hidden";
+      var gl = webglCanvas.getContext("webgl", {antialias: false,
+         preserveDrawingBuffer: true,
+         premultipliedAlpha: false,
+         stencil: true});
+
+      if (!gl)
+      {
+         throw "Failed to initialize WebGL context!";
+      }
+
+      gl.enable(gl.BLEND);
+      gl.blendFunc(gl.ONE, gl.ONE_MINUS_SRC_ALPHA);
+
+      p2j.screen.webgl = {};
+
+      var vertexShaderSource =
+         "attribute vec2 a_position;\n" +
+         "attribute vec4 a_color;\n" +
+         "attribute vec2 a_normal;\n" +
+         "attribute vec2 a_point;\n" +
+         "attribute float a_dash;\n" +
+         "attribute vec2 a_dash_pattern;\n" +
+         "uniform vec2 u_resolution;\n" +
+         "varying vec4 v_color;\n" +
+         "varying vec2 v_texCoords;\n" +
+         "varying vec2 p0;\n" +
+         "varying vec2 n;\n" +
+         "varying vec2 p;\n" +
+         "varying float dash;\n" +
+         "varying vec2 dash_pattern;\n" +
+         "\n" +
+         "void main()\n" +
+         "{\n" +
+         "  // convert the rectangle from pixels to 0.0 to 1.0\n" +
+         "  vec2 zeroToOne = a_position / u_resolution;\n" +
+         "  // convert from 0->1 to 0->2\n" +
+         "  vec2 zeroToTwo = zeroToOne * 2.0;\n" +
+         "  // convert from 0->2 to -1->+1 (clipspace)\n" +
+         "  vec2 clipSpace = zeroToTwo - 1.0;\n" +
+         "  gl_Position = vec4(clipSpace * vec2(1, -1), 0, 1);\n" +
+         "  v_color = a_color;\n" +
+         "  v_texCoords = zeroToOne;\n" +
+         "  p0 = a_position;\n" +
+         "  p = a_point;\n" +
+         "  n = a_normal;\n" +
+         "  dash = a_dash;\n" +
+         "  dash_pattern = a_dash_pattern;\n" +
+         "  gl_PointSize = 1.0;\n" +
+         "}\n";
+
+      var fragmentShaderSource =
+         "// fragment shaders don't have a default precision so we need\n" +
+         "// to pick one. mediump is a good default\n" +
+         "precision highp float;\n" +
+         "uniform sampler2D u_image0;\n" +
+         "uniform vec2 u_origin_img_0;\n" +
+         "uniform sampler2D u_image1;\n" +
+         "uniform vec2 u_origin_img_1;\n" +
+         "varying vec4 v_color;\n" +
+         "varying vec2 v_texCoords;\n" +
+         "uniform sampler2D u_image;\n" +
+         "uniform highp vec2 u_resolution;\n" +
+         "varying vec2 p0;\n" +
+         "varying vec2 p;\n" +
+         "varying vec2 n;\n" +
+         "varying float dash;\n" +
+         "varying vec2 dash_pattern;\n" +
+         "\n" +
+         "void main()\n" +
+         "{\n" +
+         "  vec2 v = vec2(p0.x - p.x, p0.y - p.y);\n" +
+         "  float d0 = abs(dot(n, v));\n" +
+         "  float period = dash_pattern.x + dash_pattern.y;\n" +
+         "  float m = d0 - floor(d0  / period) * period;\n" +
+         "  if (v_color.y == 0.0 && v_color.z == 0.0 && v_color.a == 0.0)\n" +
+         "  {\n" +
+         "     vec4 c = v_color.x == 0.0 ? texture2D(u_image0, v_texCoords - u_origin_img_0) : texture2D(u_image1, v_texCoords - u_origin_img_1);\n" +
+         "     gl_FragColor = c;\n" +
+         "  }\n" +
+         "  else if (dash == 1.0)\n" +
+         "  {\n" +
+         "    if (m <= dash_pattern.x)\n" +
+         "    {\n" +
+         "      gl_FragColor = v_color / 255.0;\n" +
+         "    }\n" +
+         "    else\n" +
+         "    {\n" +
+         "      discard;\n" +
+         "    }\n" +
+         "  } else if (dash == 0.0)\n" +
+         "  {\n" +
+         "    gl_FragColor = v_color / 255.0;\n" +
+         "  }\n" +
+         "}\n";
+      /*
+         var vertexShaderSource = `
+            attribute vec2 a_position;
+            attribute vec4 a_color;
+            uniform vec2 u_resolution;
+            varying vec4 v_color;
+            varying vec2 v_texCoords;
+
+            void main()
+            {
+              // convert the rectangle from pixels to 0.0 to 1.0
+              vec2 zeroToOne = a_position / u_resolution;
+              // convert from 0->1 to 0->2
+              vec2 zeroToTwo = zeroToOne * 2.0;
+              // convert from 0->2 to -1->+1 (clipspace)
+              vec2 clipSpace = zeroToTwo - 1.0;
+              gl_Position = vec4(clipSpace * vec2(1, -1), 0, 1);
+              v_color = a_color;
+              v_texCoords = zeroToOne;
+            }
+            `;
+
+         var fragmentShaderSource = `
+            // fragment shaders don't have a default precision so we need
+            // to pick one. mediump is a good default
+            precision mediump float;
+            varying vec4 v_color;
+            varying vec2 v_texCoords;
+            uniform sampler2D u_image;
+
+            void main()
+            {
+              // TODO
+              if (v_color.x == 0.0 && v_color.y == 255.0 && v_color.z == 203.0)
+              {
+                 vec4 c = texture2D(u_image, v_texCoords);
+                 //c.x = c.x / 255.0;
+                 //c.y = c.y / 255.0;
+                 //c.z = c.z / 255.0;
+                 //c.w = 0.0;
+                 gl_FragColor = c;
+              }
+              else
+              {
+                 gl_FragColor = v_color / 255.0;
+              }
+            }
+            `;
+      */
+      function createShader(gl, type, source)
+      {
+         var shader = gl.createShader(type);
+         gl.shaderSource(shader, source);
+         gl.compileShader(shader);
+         var success = gl.getShaderParameter(shader, gl.COMPILE_STATUS);
+         if (success)
+         {
+            return shader;
+         }
+
+         console.log(gl.getShaderInfoLog(shader));
+         gl.deleteShader(shader);
+      }
+
+      function createProgram(gl, vertexShader, fragmentShader)
+      {
+         var program = gl.createProgram();
+         gl.attachShader(program, vertexShader);
+         gl.attachShader(program, fragmentShader);
+         gl.linkProgram(program);
+         var success = gl.getProgramParameter(program, gl.LINK_STATUS);
+         if (success)
+         {
+            return program;
+         }
+
+         console.log(gl.getProgramInfoLog(program));
+         gl.deleteProgram(program);
+      }
+
+      // create GLSL shaders, upload the GLSL source, compile the shaders
+      var vertexShader = createShader(gl, gl.VERTEX_SHADER, vertexShaderSource);
+      var fragmentShader = createShader(gl, gl.FRAGMENT_SHADER, fragmentShaderSource);
+
+      // Link the two shaders into a program
+      var program = createProgram(gl, vertexShader, fragmentShader);
+      // WebGL program
+      // look up where the vertex data needs to go.
+      var positionAttributeLocation = gl.getAttribLocation(program, "a_position");
+      // look up uniform locations
+      var resolutionUniformLocation = gl.getUniformLocation(program, "u_resolution");
+      p2j.screen.webgl.glResolutionUniformLocation = resolutionUniformLocation;
+      var colorAttributeLocation = gl.getAttribLocation(program, "a_color");
+      var dashAttrLoc = gl.getAttribLocation(program, "a_dash");
+      var pointAttrLoc = gl.getAttribLocation(program, "a_point");
+      var normalAttrLoc = gl.getAttribLocation(program, "a_normal");
+      var dashPatternAttrLoc = gl.getAttribLocation(program, "a_dash_pattern");
+      p2j.screen.webgl.uOriginImg0 = gl.getUniformLocation(program, "u_origin_img_0");
+      p2j.screen.webgl.uOriginImg1 = gl.getUniformLocation(program, "u_origin_img_1");
+
+      // Create a buffer to put three 2d clip space points in
+      var positionBuffer = gl.createBuffer();
+
+      gl.viewport(0, 0, gl.canvas.width, gl.canvas.height);
+
+      // Clear the canvas.
+      gl.clear(gl.COLOR_BUFFER_BIT);
+
+      // Tell it to use our program (pair of shaders)
+      gl.useProgram(program);
+
+      // Turn on the attribute
+      gl.enableVertexAttribArray(positionAttributeLocation);
+
+      // Bind the position buffer.
+      gl.bindBuffer(gl.ARRAY_BUFFER, positionBuffer);
+
+      // Tell the attribute how to get data out of positionBuffer (ARRAY_BUFFER)
+      var size = 2;          // 2 components per iteration
+      var type = gl.FLOAT;   // the data is 32bit floats
+      var normalize = false; // don't normalize the data
+      var stride = 40;        // 0 = move forward size * sizeof(type) each iteration to get the next position
+      var offset = 0;        // start at the beginning of the buffer
+      gl.vertexAttribPointer(
+         positionAttributeLocation, size, type, normalize, stride, offset);
+
+      // Turn on the attribute
+      gl.enableVertexAttribArray(colorAttributeLocation);
+      // Tell the attribute how to get data out of positionBuffer (ARRAY_BUFFER)
+      var size = 4;          // 4 components per iteration
+      var type = gl.UNSIGNED_BYTE;   // the data is [0-255]
+      var normalize = false; // don't normalize the data
+      var stride = 40;        // 0 = move forward size * sizeof(type) each iteration to get the next position
+      var offset = 8;        // start at the beginning of the buffer
+      gl.vertexAttribPointer(
+         colorAttributeLocation, size, type, normalize, stride, offset);
+
+      gl.enableVertexAttribArray(dashAttrLoc);
+      var size = 1;          // 1 components per iteration
+      var type = gl.FLOAT;   // the data is 32bit float
+      var normalize = false; // don't normalize the data
+      var stride = 40;        // 0 = move forward size * sizeof(type) each iteration to get the next position
+      var offset = 12;        // start at the beginning of the buffer
+      gl.vertexAttribPointer(dashAttrLoc, size, type, normalize, stride, offset);
+
+      gl.enableVertexAttribArray(pointAttrLoc);
+      var size = 2;          // 2 components per iteration
+      var type = gl.FLOAT;   // the data is 32bit floats
+      var normalize = false; // don't normalize the data
+      var stride = 40;        // 0 = move forward size * sizeof(type) each iteration to get the next position
+      var offset = 16;        // start at the beginning of the buffer
+      gl.vertexAttribPointer(pointAttrLoc, size, type, normalize, stride, offset);
+
+      gl.enableVertexAttribArray(normalAttrLoc);
+      var size = 2;          // 2 components per iteration
+      var type = gl.FLOAT;   // the data is 32bit floats
+      var normalize = false; // don't normalize the data
+      var stride = 40;        // 0 = move forward size * sizeof(type) each iteration to get the next position
+      var offset = 24;        // start at the beginning of the buffer
+      gl.vertexAttribPointer(normalAttrLoc, size, type, normalize, stride, offset);
+
+      gl.enableVertexAttribArray(dashPatternAttrLoc);
+      var size = 2;          // 2 components per iteration
+      var type = gl.FLOAT;   // the data is 32bit float
+      var normalize = false; // don't normalize the data
+      var stride = 40;        // 0 = move forward size * sizeof(type) each iteration to get the next position
+      var offset = 32;        // start at the beginning of the buffer
+      gl.vertexAttribPointer(dashPatternAttrLoc, size, type, normalize, stride, offset)
+
+      // set the resolution
+      gl.uniform2f(resolutionUniformLocation, gl.canvas.width, gl.canvas.height);
+
+      p2j.screen.webgl.baseTexture = gl.createTexture();
+      p2j.screen.webgl.imageTexture = gl.createTexture();
+
+      // lookup the sampler locations
+      var u_image0Location = gl.getUniformLocation(program, "u_image0");
+      var u_image1Location = gl.getUniformLocation(program, "u_image1");
+      gl.uniform1i(u_image0Location, 0);
+      gl.uniform1i(u_image1Location, 1);
+
+      /** Internal webgl canvas application state that indicates that batch drawing is already started */
+      this.batchDrawing = false;
+      
+      p2j.screen.webgl.canvas = webglCanvas;
+      p2j.screen.webgl.gl = gl;
+
+      this.resize(screenCanvas.width, screenCanvas.height);
+   }
+
+   /** WebGL version of strokes manager */
+   this.glStrokesManager = new LineStrokesWebGL();
+
+   // triangle vertices and additional data
+   // contains arrays [x1, y1, x2, y2, x3, y3, c[0], c[1], c[2], c[3]]
+   this.triangles = [];
+
+   // cache texture - used to render cached images, these are images that are already composited
+   this.cacheTextureData = null;
+
+   // the valid area of the texture data array
+   this.cacheTextureArea = null;
+
+   // image texture - used to render individual images, images require composition as they may have variable alpha channel values
+   this.imageTextureData = null;
+
+   /** Set to true when cacheTextureData contains any valid data to be flashed during current draw cycle */
+   this.cacheTextureDirty = false;
+
+   /** Set to true when imageTextureData contains any valid data to be flashed during current draw cycle */
+   this.imageTextureDirty = false;
+
+   /**
+    * Convert a standard fillStyle or strokeStyle color into an array of [ R, G, B ] values.
+    *
+    * @param    {String} spec
+    *           Input string which must be in the form "#RRGGBB" where RR, GG and BB are 2-digit
+    *           hexadecimal numbers.
+    *
+    * @return   The parsed raw color array of integers in [ R, G, B ] form.
+    */
+   this.parseColor = function(spec)
+   {
+      if (typeof spec !== "string")
+      {
+         p2j.logger.error("parseColor() spec must be a string");
+         return null;
+      }
+      
+      if (spec.length !== 7)
+      {
+         p2j.logger.error("parseColor() spec must have length of 7");
+         return null;
+      }
+      
+      if (spec.charAt(0) !== "#")
+      {
+         p2j.logger.error("parseColor() spec must start with #");
+         return null;
+      }
+      
+      var r = parseInt(spec.substr(1, 2), 16);
+      var g = parseInt(spec.substr(3, 2), 16);
+      var b = parseInt(spec.substr(5, 2), 16);
+
+      if (r === NaN || g === NaN || b === NaN)
+      {
+         return null;
+      }
+      
+      return [ r, g, b ];
+   };
+
+   /**
+    * Test if the given argument is an array of 3 integer values.
+    *
+    * @param    {Number[]} color
+    *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+    *
+    * @return   {Boolean} <code>true</code> if the argument is in [ R, G, B ] form.
+    */
+   this.validateColor = function(color)
+   {
+      if (!(color instanceof Array))
+      {
+         return false;
+      }
+      
+      if (color.length !== 3)
+      {
+         return false;
+      }
+      
+      if (typeof color[0] !== "number" ||
+          typeof color[1] !== "number" ||
+          typeof color[2] !== "number")
+      {
+         return false;
+      }
+      
+      if (color[0] < 0 || color[0] > 255 ||
+          color[1] < 0 || color[1] > 255 ||
+          color[2] < 0 || color[2] > 255)
+      {
+         return false;
+      }
+      
+      return true;
+   };
+
+   /**
+    * Convert the given array of 3 integer values into an HTML color string.
+    *
+    * @param    {Number[]} color
+    *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+    *
+    * @return   {String} A valid HTML color string.
+    */
+   this.createColorString = function(color)
+   {
+      if (!this.validateColor(color))
+      {
+         return null;
+      }
+                                         
+      return "rgb(" + color[0].toString() + ", "
+                    + color[1].toString() + ", "
+                    + color[2].toString() + ")";
+   };
+
+   /**
+    * Convert the given array of RGB values into a lighter color in a manner that is compatible 
+    * with Java2D.
+    *
+    * @param    {Number[]} color
+    *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+    *
+    * @return   {Number[]} A lighter shade of the same color.
+    */
+   this.lightenColor = function(color)
+   {
+      if (!this.validateColor(color))
+      {
+         return null;
+      }
+      
+      // handle black directly, the result is NOT very much different but this is how it is
+      // done in Java
+      if (color[0] == 0 && color[1] == 0 && color[2] == 0)
+         return [ MIN_COLOR_VALUE, MIN_COLOR_VALUE, MIN_COLOR_VALUE ];
+      
+      // force inputs to a minimim color value if between 0 and that minimum color value
+      // (yes, this is how Java does it)
+      var rIn = (color[0] > 0 && color[0] < MIN_COLOR_VALUE) ? MIN_COLOR_VALUE : color[0];
+      var gIn = (color[1] > 0 && color[1] < MIN_COLOR_VALUE) ? MIN_COLOR_VALUE : color[1];
+      var bIn = (color[2] > 0 && color[2] < MIN_COLOR_VALUE) ? MIN_COLOR_VALUE : color[2];
+      
+      // scale it
+      var r = Math.min(Math.floor(rIn / SCALE_FACTOR), 255);
+      var g = Math.min(Math.floor(gIn / SCALE_FACTOR), 255);
+      var b = Math.min(Math.floor(bIn / SCALE_FACTOR), 255);
+      
+      return [ r, g, b ];
+   };
+
+   /**
+    * Convert the given array of RGB values into a darker color in a manner that is compatible 
+    * with Java2D.
+    *
+    * @param    {Number[]} color
+    *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+    *
+    * @return   {Number[]} A darker shade of the same color.
+    */
+   this.darkenColor = function(color)
+   {
+      if (!this.validateColor(color))
+      {
+         return null;
+      }
+      
+      var r = Math.max(0, Math.floor(color[0] * SCALE_FACTOR));
+      var g = Math.max(0, Math.floor(color[1] * SCALE_FACTOR));
+      var b = Math.max(0, Math.floor(color[2] * SCALE_FACTOR));
+      
+      return [ r, g, b ];
+   };
+   
+   /**
+    * Adjust x and y coordinates of a given triangle in respect to the origin point.
+    * 
+    * @param    {Number[]} t
+    *           An array of triangle attributes.
+    * 
+    * @return   The same array of attributes with modified coordinates.
+    */
+   this.adjustTriangle = function(t)
+   {
+      for(var k, i = 0; i < 3; i++)
+      {
+         k = 2 * i;
+         t[k] = t[k] + this.origin.x;
+         t[k + 1] = t[k + 1] + this.origin.y;
+      }
+      
+      return t;
+   }
+}
+
+/**
+ * Initialize the selection canvas.
+ */
+WebGLCanvasRenderer.prototype.initSelectionCanvas = function()
+{
+   var win = p2j.screen.getActiveWindow();
+   if (win)
+   {
+      var parent = win.canvas.parentNode;
+      if (parent)
+      {
+         this.selectionCanvas.id = "cloned_selection_boxes_canvas";
+         this.selectionCanvas.style["position"] = "fixed";
+         this.showSelectionCanvas();
+         // insert canvas into stack
+         parent.appendChild(this.selectionCanvas);
+         this.selectionCanvasReady = true;
+      }
+   }
+}
+
+/**
+ * Reset selection canvas.
+ */
+WebGLCanvasRenderer.prototype.showSelectionCanvas = function()
+{
+   var win = p2j.screen.getActiveWindow();
+   if (!this.selectionCanvasVisible && win)
+   {
+      // make selection canvas visible
+      this.selectionCanvas.style.visibility  = "visible";
+      this.selectionCanvas.height = win.canvas.height;
+      this.selectionCanvas.width  = win.canvas.width;
+      this.selectionCanvas.style.top  = win.canvas.style.top;
+      this.selectionCanvas.style.left = win.canvas.style.left;
+      // this must give enough room for other possible canvas between selection and window
+      this.selectionCanvas.style.zIndex = win.canvas.style.zIndex + 10;
+      this.selectionCanvasVisible = true;
+   }
+}
+
+/**
+ * Reset selection canvas.
+ */
+WebGLCanvasRenderer.prototype.resetSelection = function()
+{
+   if (this.selectionCanvasVisible)
+   {
+      if (this.selectionCanvasDirty)
+      {
+         // clean up canvas if dirty
+         var selCtx = this.selectionCanvas.getContext("2d");
+         if (selCtx)
+         {
+            selCtx.clearRect(0, 0, this.selectionCanvas.width, this.selectionCanvas.height);
+            this.selectionCanvasDirty = false;
+         }
+      }
+      // hide the selection canvas
+      this.selectionCanvas.style.visibility  = "hidden";
+      // reset completed
+      this.selectionCanvasVisible = false;
+   }
+};
+
+/**
+ * Clear the canvas.
+ */
+WebGLCanvasRenderer.prototype.clear = function()
+{
+   this.offscreenCtx.save();
+   this.offscreenCtx.translate(-this.origin.x, -this.origin.y);
+   this.offscreenCtx.clearRect(0, 0, this.offscreenCanvas.width, this.offscreenCanvas.height);
+   this.offscreenCtx.translate(this.origin.x, this.origin.y);
+   this.offscreenCtx.restore();
+
+   p2j.screen.webgl.gl.clear(p2j.screen.webgl.gl.COLOR_BUFFER_BIT);
+}
+
+/**
+ * Mark the start of recording the drawing operations.
+ * 
+ * @param    x
+ *           The X origin at the time recording was started. 
+ * @param    y
+ *           The Y origin at the time recording was started.
+ * @param    width
+ *           The width of the resulted image, which will be captured and cached.
+ * @param    height
+ *           The height of the resulted image, which will be captured and cached.
+ * @param    md5
+ *           The hash key used to cache the resulted image.
+ */
+WebGLCanvasRenderer.prototype.startRecording = function(x, y, width, height, md5)
+{
+   this.recordings.push(
+   {
+      x      : x,
+      y      : y,
+      width  : width,
+      height : height,
+      md5    : md5
+   });
+}
+
+/**
+ * Mark the stop of the drawing operations recording.  This will save the resulted image in the
+ * p2j.screen.globalCache variable.
+ */
+WebGLCanvasRenderer.prototype.stopRecording = function()
+{
+   var recording = this.recordings.pop();
+   this.flash();
+   var imgData = this.offscreenCtx.getImageData(recording.x,
+                                                recording.y,
+                                                recording.width,
+                                                recording.height);
+
+   p2j.screen.globalCache[recording.md5] = imgData;
+}
+
+/**
+ * Draw the image with the specified hash from the global cache, at the specified location.
+ * 
+ * @param    x
+ *           The X where to draw the cached image.
+ * @param    y
+ *           The Y where to draw the cached image.
+ */
+WebGLCanvasRenderer.prototype.drawCached = function(x, y, md5)
+{
+   var cachedDraw = p2j.screen.globalCache[md5];
+
+   if (!cachedDraw)
+   {
+      p2j.screen.error("Trying to draw unknown cached image for md5 " + md5 + "!");
+      console.trace();
+      return;
+   }
+
+   // draw the image at the specified coordinates (these are screen coordinates, not translated)
+   this.drawImage(x, y, cachedDraw.width, cachedDraw.height, cachedDraw.data, true, false, true, true);
+}
+
+/**
+ * Adjusts the origin for pixel drawing on the canvas and transforms the stacked clipping regions
+ * by the given x and y factors in order to be consistent with the new coordinates origin.
+ *
+ * @param    {Number} x
+ *           The translate along X-axis.
+ * @param    {Number} y
+ *           The translate along Y-axis.
+ */
+WebGLCanvasRenderer.prototype.adjustOrigin = function(x, y)
+{
+   this.origin.x += x;
+   this.origin.y += y;
+   
+   var last = 0;
+   while (last < this.state.length)
+   {
+      var s = this.state[last];
+      
+      if (s.clip != undefined)
+      {
+         for (var i = 0; i < s.clip.length; i++)
+         {
+            s.clip[i].x -= x;
+            s.clip[i].y -= y;
+         }
+      }
+      last = last + 1;
+   }
+};
+
+/**
+ * Directly draw the specified pixel in the given color.
+ *
+ * @param    {Number} x
+ *           X coordinate of the pixel to be drawn.
+ * @param    {Number} y
+ *           Y coordinate of the pixel to be drawn.
+ * @param    {Number[]} color
+ *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+ */
+WebGLCanvasRenderer.prototype.drawPixel = function(x, y, color)
+{
+   this.drawRect(x, y, 1, 1, color, true);
+};
+
+/**
+ * If the pixel location is outside of the last clipped rectangle return false, otherwise
+ * return true.
+ *
+ * @param    {Number} x
+ *           X coordinate of the pixel to be checked.
+ * @param    {Number} y
+ *           Y coordinate of the pixel to be checked.
+ * 
+ * @return   {Boolean}
+ *           The boolean value indicates the given pixel is in the last clipping region.
+ */
+WebGLCanvasRenderer.prototype.isInClipRegion = function(x, y)
+{
+   var lastClip = this.lastClippedRegion(true);
+   if (lastClip == undefined)
+   {
+      return true;
+   }
+   
+   for (var i = 0; i < lastClip.length; i++)
+   {
+      var top = lastClip[i].y;
+      var bottom = lastClip[i].y + lastClip[i].height - 1;
+      var left = lastClip[i].x;
+      var right = lastClip[i].x + lastClip[i].width - 1;
+
+      if (y >= top && y <= bottom && x >= left && x <= right)
+      {
+         return true;
+      }
+   }
+
+   return false;
+};
+
+/**
+ * Calculates the intersection of the input region {left: xa, top: ya, right: xb, bottom: yb}
+ * with the last clipping region.
+ * 
+ * @param    {Number} xa
+ *           X coordinate of the left corner of the input region.
+ * @param    {Number} ya
+ *           Y coordinate of the top corner of the input region.
+ * @param    {Number} xb
+ *           X coordinate of the right corner of the input region.
+ * @param    {Number} yb
+ *           Y coordinate of the bottom corner of the input region.
+ * 
+ * @return   {left: xa, top: ya, right: xb, bottom: yb}
+ *           The intersection with the last clipping region or null if it is empty.
+ */
+WebGLCanvasRenderer.prototype.clipRegion = function(xa, ya, xb, yb)
+{
+   var result = [];
+   var lastClip = this.lastClippedRegion(true);
+   if (lastClip)
+   {
+      for (var i = 0; i < lastClip.length; i++)
+      {
+         var top    = lastClip[i].y;
+         var bottom = lastClip[i].y + Math.max(lastClip[i].height - 1, 0);
+         var left   = lastClip[i].x;
+         var right  = lastClip[i].x + Math.max(lastClip[i].width - 1, 0);
+
+         if (yb < top || ya > bottom || xb < left || xa > right)
+         {
+            continue;
+         }
+
+         result.push(
+            {
+               left: Math.max(left, xa),
+               top: Math.max(top, ya),
+               right: Math.min(right, xb),
+               bottom: Math.min(bottom, yb)
+            });
+      }
+   }
+   else
+   {
+      result.push({left: xa, top: ya, right: xb, bottom: yb});
+   }
+
+   return result.length > 0 ? result : null;
+};
+
+/**
+ * Calculates the common part of the triangle's side and the clip rectangle given by
+ * its left top, right and bottom positions and it saves
+ * the order from the left point to the right point.
+ * 
+ * @param    {Number} x1
+ *           X coordinate of the left vertex of the given triangle's side.
+ * @param    {Number} y1
+ *           Y coordinate of the left vertex of the given triangle's side.
+ * @param    {Number} x2
+ *           X coordinate of the right vertex of the given triangle's side.
+ * @param    {Number} y2
+ *           Y coordinate of the right vertex of the given triangle's side.
+ * @param    {Number} x3
+ *           X coordinate of the third vertex of the target triangle.
+ * @param    {Number} y3
+ *           Y coordinate of the third vertex of the target triangle.
+ * @param    {Number} left
+ *           The left position of the clip rectangle
+ * @param    {Number} top
+ *           The top position of the clip rectangle
+ * @param    {Number} right
+ *           The right position of the clip rectangle
+ * @param    {Number} bottom
+ *           The bottom position of the clip rectangle
+ * 
+ * @return   {Array}
+ *           The boundary part of the given triangle's side and the clip rectangle [new_x1, new_y1, new_x2, new_y2],
+ *           and [new_x2, new_y2, new_x3, new_y3],
+ *           these vertices have the same order from the left point to the right point, otherwise
+ *           it returns a condition that proves that there is no common part.
+ */
+WebGLCanvasRenderer.prototype.cutTriangleLine = function(x1, y1, x2, y2, x3, y3, left, top, right, bottom)
+{
+   //xa, ya xb, yb is normalized region covered this line segment
+   var xa;
+   var xb;
+   var incx = (x1 < x2);
+   if (incx)
+   {
+      xa = x1;
+      xb = x2;
+   }
+   else
+   {
+      xa = x2;
+      xb = x1;
+   }
+   var ya;
+   var yb;
+   var incy = (y1 < y2);
+   if (incy)
+   {
+      ya = y1;
+      yb = y2;
+   }
+   else
+   {
+      ya = y2;
+      yb = y1;
+   }
+
+   if (yb < top)
+   {
+      return incx ? [[left, top], [right,top]] : [[right, top], [left, top]];
+   }
+   
+   if (ya > bottom)
+   {
+      return incx ? [[left, bottom], [right, bottom]] : [[right, bottom], [left, bottom]];
+   }
+   
+   if (xb < left)
+   {
+      return incy ? [[left, top], [left, bottom]] : [[left, bottom], [left, top]];
+   }
+
+   if (xa > right)
+   {
+      return incy ? [[right, top], [right, bottom]] : [[right, bottom], [right, top]];
+   }
+   
+   xa = Math.max(left, xa),
+   ya = Math.max(top, ya),
+   xb = Math.min(right, xb),
+   yb = Math.min(bottom, yb)
+
+   // check that it is vertical or horizontal
+   if ((x1 == x2) || (y1 == y2))
+   {
+      if (incx || incy)
+      {
+         return [xa, ya, xb, yb];
+      }
+      else
+      {
+         return [xb, yb, xa, ya];
+      }
+   }
+   else
+   {
+      ya = (y1 * (x2 - xa) / (x2 - x1)) + (y2 * (xa - x1) / (x2 - x1));
+      yb = (y1 * (x2 - xb) / (x2 - x1)) + (y2 * (xb - x1) / (x2 - x1));
+      
+      var txa = null, tya = null;
+      var txb = null, tyb = null;
+      if (yb <= top && ya <= top)
+      {
+         return incx ? [[left, top], [right,top]] : [[right, top], [left, top]];
+      }
+      
+      if (ya >= bottom && yb >= bottom)
+      {
+         return incx ? [[left, bottom], [right, bottom]] : [[right, bottom], [left, bottom]];
+      }
+      
+      if (ya >= bottom && yb <= bottom)
+      {
+         txa = xa;
+         tya = bottom;
+         
+         xa = (bottom*(x2-x1) + y2*x1 - y1*x2)/(y2-y1);
+         ya = bottom;
+         
+         if (!this.isInTriangle(txa, tya, x1, y1, x2, y2, x3, y3))
+         {
+            txa = null;
+            tya = null;
+         }
+      }
+      
+      if (ya <= bottom && yb >= bottom)
+      {
+         txb = xb;
+         tyb = bottom;
+         xb = (bottom*(x2-x1) + y2*x1 - y1*x2)/(y2-y1);
+         yb = bottom;
+         if (!this.isInTriangle(txb, tyb, x1, y1, x2, y2, x3, y3))
+         {
+            txb = null;
+            tyb = null;
+         }
+      }
+      
+      if (ya >= top && yb <= top)
+      {
+         txb = xb;
+         tyb = top;
+         xb = (top*(x2-x1) + y2*x1 - y1*x2)/(y2-y1);
+         yb = top;
+         if (!this.isInTriangle(txb, tyb, x1, y1, x2, y2, x3, y3))
+         {
+            txb = null;
+            tyb = null;
+         }
+      }
+      
+      if (ya <= top && yb >= top)
+      {
+         txa = xa;
+         tya = top;
+         xa = (top*(x2-x1) + y2*x1 - y1*x2)/(y2-y1);
+         ya = top;
+         
+         if (!this.isInTriangle(txa, tya, x1, y1, x2, y2, x3, y3))
+         {
+            txa = null;
+            tya = null;
+         }
+      }
+
+      if (incx)
+      {
+         if (txa != null)
+         {
+            return [txa, tya, xa, ya, xb, yb];
+         }
+         else if (txb != null)
+         {
+            return [xa, ya, xb, yb, txb, tyb];
+         }
+         
+         return [xa, ya, xb, yb];
+      }
+
+      if (txa != null)
+      {
+         return [xb, yb, xa, ya, txa, tya];
+      }
+      else if (txb != null)
+      {
+         return [txb, tyb, xb, yb, xa, ya];
+      }
+
+      return [xb, yb, xa, ya];
+   }
+}
+
+/**
+ * Tests if the [x,y] is inside the triangle given by coordinates of its vertices [x1, y1], [x2, y2] and
+ * [x3, y3].
+ * 
+ * @param    {Number} x
+ *           X coordinate of the target point.
+ * @param    {Number} y
+ *           Y coordinate of the target point.
+ * @param    {Number} x1
+ *           X coordinate of the first vertex of the given triangle.
+ * @param    {Number} y1
+ *           Y coordinate of the first vertex of the given triangle.
+ * @param    {Number} x2
+ *           X coordinate of the second vertex of the given triangle.
+ * @param    {Number} y2
+ *           Y coordinate of the second vertex of the given triangle.
+ * @param    {Number} x3
+ *           X coordinate of the third vertex of the given triangle.
+ * @param    {Number} y3
+ *           Y coordinate of the third vertex of the given triangle.
+ * 
+ * @return   True iff [x,y] is inside the given [x1, y1], [x2, y2] and [x3, y3].
+ */
+WebGLCanvasRenderer.prototype.isInTriangle = function(x, y, x1, y1, x2, y2, x3, y3)
+{
+   var d = (x1-x3)*(y2-y3) - (x2-x3)*(y1-y3);
+   
+   var d1 = (x-x3)*(y2-y3) - (x2-x3)*(y-y3);
+   
+   var d2 = (x1-x3)*(y-y3) - (x-x3)*(y1-y3);
+
+   var d3 = d - d1 - d2;
+   
+   if (d > 0)
+   {
+      return d1 >= 0 && d2 >= 0 && d3 >= 0;
+   }
+   else if (d < 0)
+   {
+      return d1 <= 0 && d2 <= 0 && d3 <= 0;
+   }
+   
+   var m = Math.min(x1, x2, x3);
+   var M = Math.max(x1, x2, x3);
+   
+   return (d1 == 0) && (d2 == 0) && (x >= m) && (x <= M); 
+}
+
+/**
+ * Clip triangles.
+ * 
+ * @parameter    {Array} triangles
+ *               The input triangles
+ * 
+ * @return       The array of triangles for the last clipped regions.
+ */
+WebGLCanvasRenderer.prototype.clipTriangles = function(triangles)
+{
+   var result = [];
+   var lastClip = this.lastClippedRegion(true);
+   if (lastClip)
+   {
+      var clippedTriangles = [];
+      for (var k = 0; k < triangles.length; k++)
+      {
+         var triangle = triangles[k];
+         
+         var x1 = triangle[0];
+         var y1 = triangle[1];
+         var x2 = triangle[2];
+         var y2 = triangle[3];
+         var x3 = triangle[4];
+         var y3 = triangle[5];
+         
+         var c = [triangle[6], triangle[7], triangle[8], triangle[9]];
+         
+         var lineStyleObject;
+         
+         if (triangle.length >= 11)
+         {
+            lineStyleObject = triangle[10];
+         }
+         
+         for (var i = 0; i < lastClip.length; i++)
+         {
+            var rect = lastClip[i];
+            
+            var top    = rect.y;
+            var bottom = rect.y + Math.max(rect.height - 1, 0);
+            var left   = rect.x;
+            var right  = rect.x + Math.max(rect.width - 1, 0);
+            
+            var ab = this.cutTriangleLine(x1, y1, x2, y2, x3, y3, left, top, right, bottom);
+            var bc = this.cutTriangleLine(x2, y2, x3, y3, x1, y1, left, top, right, bottom);
+            var ac = this.cutTriangleLine(x1, y1, x3, y3, x2, y2, left, top, right, bottom);
+            
+            var vertices = [];
+            var last;
+            var first;
+            
+            // a - > b -> c
+            if (ab.length == 6)
+            {
+               var abx1 = ab[0];
+               var aby1 = ab[1];
+               var abx2 = ab[2];
+               var aby2 = ab[3];
+               var abx3 = ab[4];
+               var aby3 = ab[5];
+               //console.debug("ab= " + JSON.stringify(ab));
+               if (abx1 != abx2 || aby1 != aby2)
+               {
+                  first = [abx1, aby1];
+                  vertices.push(first);
+                  last = [abx2, aby2];
+                  vertices.push(last);
+               }
+               else
+               {
+                  last = [abx1, aby1];
+                  first = last;
+                  vertices.push(last);
+               }
+               
+               if (last[0] != abx3 || last[1] != aby3)
+               {
+                  last = [abx3, aby3];
+                  vertices.push(last);
+               }
+            }
+            else if (ab.length == 4)
+            {
+               var abx1 = ab[0];
+               var aby1 = ab[1];
+               var abx2 = ab[2];
+               var aby2 = ab[3];
+               if (abx1 != abx2 || aby1 != aby2)
+               {
+                  first = [abx1, aby1];
+                  vertices.push(first);
+                  last = [abx2, aby2];
+                  vertices.push(last);
+               }
+               else
+               {
+                  last = [abx1, aby1];
+                  first = last;
+                  vertices.push(last);
+               }
+            }
+            else
+            {
+               var v = ab[0];
+               if (this.isInTriangle(v[0], v[1], x1, y1, x2, y2, x3, y3))
+               {
+                  first = v;
+                  last = v;
+                  vertices.push(first);
+               }
+               v = ab[1];
+               if (this.isInTriangle(v[0], v[1], x1, y1, x2, y2, x3, y3))
+               {
+                  if (last)
+                  {
+                     if (last[0] != v[0] || last[1] != v[1])
+                     {
+                        last = v;
+                        vertices.push(v);
+                     }
+                  }
+                  else
+                  {
+                     first = v;
+                     last = v;
+                     vertices.push(first);
+                  }
+               }
+            }
+            
+            if (bc.length == 6)
+            {
+               //console.debug("bc= " + JSON.stringify(bc));
+               var bcx2 = bc[0];
+               var bcy2 = bc[1];
+               var bcx3 = bc[2];
+               var bcy3 = bc[3];
+               var bcx1 = bc[4];
+               var bcy1 = bc[5];
+               if (bcx2 != bcx3 || bcy2 != bcy3)
+               {
+                  if (last)
+                  {
+                     if (last[0] != bcx2 || last[1] != bcy2)
+                     {
+                        vertices.push([bcx2, bcy2]);
+                     }
+                  }
+                  else
+                  {
+                     first = [bcx2, bcy2];
+                     vertices.push(first);
+                  }
+                  
+                  last = [bcx3, bcy3];
+                  vertices.push(last);
+               }
+               else
+               {
+                  if (last)
+                  { 
+                     if (last[0] != bcx2 || last[1] != bcy2)
+                     {
+                        last = [bcx2, bcy2];
+                        vertices.push(last);
+                     }
+                  }
+                  else
+                  {
+                     first = [bcx2, bcy2];
+                     last = first;
+                     vertices.push(last);
+                  }
+               }
+               
+               if (bcx1 != last[0] || bcy1 != last[1])
+               {
+                  last = [bcx1, bcy1];
+                  vertices.push(last);
+               }
+            }
+            else if (bc.length == 4)
+            {
+               var bcx2 = bc[0];
+               var bcy2 = bc[1];
+               var bcx3 = bc[2];
+               var bcy3 = bc[3];
+               if (bcx2 != bcx3 || bcy2 != bcy3)
+               {
+                  if (last)
+                  {
+                     if (last[0] != bcx2 || last[1] != bcy2)
+                     {
+                        vertices.push([bcx2, bcy2]);
+                     }
+                  }
+                  else
+                  {
+                     first = [bcx2, bcy2];
+                     vertices.push(first);
+                  }
+                  
+                  last = [bcx3, bcy3];
+                  vertices.push(last);
+               }
+               else
+               {
+                  if (last)
+                  { 
+                     if (last[0] != bcx2 || last[1] != bcy2)
+                     {
+                        last = [bcx2, bcy2];
+                        vertices.push(last);
+                     }
+                  }
+                  else
+                  {
+                     first = [bcx2, bcy2];
+                     last = first;
+                     vertices.push(last);
+                  }
+               }
+            }
+            else
+            {
+               var v = bc[0];
+               if (this.isInTriangle(v[0], v[1], x1, y1, x2, y2, x3, y3))
+               {
+                  if (last)
+                  {
+                     var t = vertices.every(function(el) { return el[0] != v[0] || el[1] != v[1]});
+                     if (t)
+                     {
+                        last = v;
+                        vertices.push(v);
+                     }
+                  }
+                  else
+                  {
+                     first = v;
+                     last = v;
+                     vertices.push(first);
+                  }
+               }
+               v = bc[1];
+               if (this.isInTriangle(v[0], v[1], x1, y1, x2, y2, x3, y3))
+               {
+                  if (last)
+                  {
+                     var t = vertices.every(function(el) { return el[0] != v[0] || el[1] != v[1]});
+                     if (t)
+                     {
+                        last = v;
+                        vertices.push(v);
+                     }
+                  }
+                  else
+                  {
+                     first = v;
+                     last = v;
+                     vertices.push(first);
+                  }
+               }
+            }
+            
+            if (ac.length == 6)
+            {
+               var acx1 = ac[0];
+               var acy1 = ac[1];
+               var acx2 = ac[2];
+               var acy2 = ac[3];
+               var acx3 = ac[4];
+               var acy3 = ac[5];
+               //console.debug("ac= " + JSON.stringify(ac));
+               if (acx1 != acx3 || acy1 != acy3)
+               {
+                  if (last)
+                  {
+                     if (last[0] != acx3 || last[1] != acy3)
+                     {
+                        last = [acx3, acy3];
+                        vertices.push(last);
+                     }
+                  }
+                  else
+                  {
+                     first = [acx3, acy3];
+                     last = first;
+                     vertices.push(first);
+                  }
+                  
+                  if (last[0] != acx2 || last[1] != acy2)
+                  {
+                     last = [acx2, acy2];
+                     vertices.push(last);
+                  }
+                  
+                  if ((first[0] != acx1 || first[1] != acy1) && (last[0] != acx1 || last[1] != acy1))
+                  {
+                     vertices.push([acx1, acy1]);
+                  }
+               }
+               else
+               {
+                  if (last)
+                  {
+                     if ((last[0] != acx3 || last[1] != acy3) && (first[0] != acx3 || first[1] != acy3))
+                     {
+                        vertices.push([acx3, acy3]);
+                     }
+                  }
+                  else
+                  {
+                     first = [acx3, acy3];
+                     last = first;
+                     vertices.push(last);
+                  }
+               }
+            }
+            else if (ac.length == 4)
+            {
+               var acx1 = ac[0];
+               var acy1 = ac[1];
+               var acx3 = ac[2];
+               var acy3 = ac[3];
+               if (acx1 != acx3 || acy1 != acy3)
+               {
+                  if (last)
+                  {
+                     if (last[0] != acx3 || last[1] != acy3)
+                     {
+                        vertices.push([acx3, acy3]);
+                     }
+                  }
+                  else
+                  {
+                     first = [acx3, acy3];
+                     vertices.push(first);
+                  }
+                  
+                  if (first[0] != acx1 || first[1] != acy1)
+                  {
+                     vertices.push([acx1, acy1]);
+                  }
+               }
+               else
+               {
+                  if (last)
+                  {
+                     if ((last[0] != acx3 || last[1] != acy3) && (first[0] != acx3 || first[1] != acy3))
+                     {
+                        vertices.push([acx3, acy3]);
+                     }
+                  }
+                  else
+                  {
+                     first = [acx3, acy3];
+                     last = first;
+                     vertices.push(last);
+                  }
+               }
+            }
+            else
+            {
+               var v = ac[1];
+               if (this.isInTriangle(v[0], v[1], x1, y1, x2, y2, x3, y3))
+               {
+                  if (last)
+                  {
+                     var t = vertices.every(function(el) { return el[0] != v[0] || el[1] != v[1]});
+                     if (t)
+                     {
+                        last = v;
+                        vertices.push(v);
+                     }
+                  }
+                  else
+                  {
+                     first = v;
+                     last = v;
+                     vertices.push(first);
+                  }
+               }
+               v = ac[0];
+               if (this.isInTriangle(v[0], v[1], x1, y1, x2, y2, x3, y3))
+               {
+                  var t = vertices.every(function(el) { return el[0] != v[0] || el[1] != v[1]});
+                  if (t)
+                  {
+                     vertices.push(v);
+                  }
+               }
+            }
+            var v0, v1, v, trg;
+            if (vertices.length >= 3)
+            {
+               v0 = vertices[0];
+               v1 = vertices[1];
+               
+               for (var j = 2; j < vertices.length; j++)
+               {
+                  v = vertices[j];
+                  trg = v0.concat(v1).concat(v).concat(c);
+                  trg[10] = lineStyleObject;
+                  clippedTriangles.push(trg);
+                  v1 = v;
+               }
+            }
+            else if (vertices.length == 2)
+            {
+               v0 = vertices[0];
+               v1 = vertices[1];
+               trg = v0.concat(v1).concat(v1).concat(c);
+               trg[10] = lineStyleObject;
+               clippedTriangles.push(trg);
+            }
+            else if (vertices.length == 1)
+            {
+               v0 = vertices[0];
+               trg = v0.concat(v0).concat(v0).concat(c);
+               trg[10] = lineStyleObject;
+               clippedTriangles.push(trg);
+            }
+         }//end for lastClip
+      }//end for triangles
+      
+      result = clippedTriangles;
+   }
+   else
+   {
+      result = triangles;
+   }
+
+   return result;
+};
+
+/**
+ * Renders the given image on the canvas at the point (x,y) given by its coordinates in the
+ * canvas associated coordinate system.
+ *
+ * @param    {ImageData} imageData
+ *           The imageData to be drawn.
+ * @param    {Number} x
+ *           X coordinate of the pixel to be drawn.
+ * @param    {Number} y
+ *           Y coordinate of the pixel to be drawn.
+ */
+WebGLCanvasRenderer.prototype.putImageData = function(imageData, x, y)
+{
+   if (this.compositeModeOn)
+   {
+      this.applyCompositeMode(imageData, x, y);
+   }
+   try
+   {
+      this.offscreenCtx.putImageData(imageData, x, y);
+   }
+   catch(ex)
+   {
+      console.log("putImageData(imageData=" + (imageData ? imageData.width : "") + "x" +
+                  (imageData ? imageData.height : "") +
+                  " data.byteLength=" + (imageData ? imageData.data.byteLength : "") +
+                  ", x=" + x + ", y=" + y + ")" + " compositeModeOn=" + this.compositeModeOn);
+      console.log(ex.stack);
+   }
+};
+
+/**
+ * Transforms a given image according to the current composite mode. The input image is changed.
+ *
+ * @param    {ImageData} imageData
+ *           The input image to be transformed.
+ * @param    {Number} x
+ *           X coordinate of the left image corner.
+ * @param    {Number} y
+ *           Y coordinate of the top image corner.
+ */
+WebGLCanvasRenderer.prototype.applyCompositeMode = function(imageData, x, y)
+{
+   // TODO: how does this apply to GL?
+
+   if (this.compositeModeOn)
+   {
+      var w = imageData.width;
+      var h = imageData.height;
+      var screenShot = this.screenCtx.getImageData(x, y, w, h);
+      var pixelsInBytes = 4 * w * h;
+      for (var i = 0; i < pixelsInBytes; i += 4)
+      {
+         imageData.data[i]     = imageData.data[i]     ^ screenShot.data[i];
+         imageData.data[i + 1] = imageData.data[i + 1] ^ screenShot.data[i + 1];
+         imageData.data[i + 2] = imageData.data[i + 2] ^ screenShot.data[i + 2];
+         imageData.data[i + 3] = 255;
+      }
+   }
+};
+
+/**
+ * Blasts the offscreen image on the screen.
+ * 
+ * @param    {Boolean} isIntermediateDrawing
+ *           Intermediate drawing state indicating that current drawings must be printed on the webgl canvas only.
+ */
+WebGLCanvasRenderer.prototype.flash = function(isIntermediateDrawing)
+{
+   var gl = p2j.screen.webgl.gl;
+   var triangles = this.triangles;
+   var numTriangles = this.triangles.length;
+
+   // clear the previous output
+   this.triangles = [];
+   
+   if (!this.batchDrawing)
+   {
+      // clear the viewport given by its origin coordinates (0, 0) and its dimension gl.canvas.width and gl.canvas.height
+      gl.clear(gl.COLOR_BUFFER_BIT);
+      this.batchDrawing = true;
+   }
+   
+   if (numTriangles > 0)
+   {
+      var numVertices = 3 * numTriangles;
+      var buffer = new ArrayBuffer(40 * numVertices);
+      //Fill array buffer
+      var dv = new DataView(buffer);
+      var j = 0;
+      
+      for (var i = 0; i < numTriangles; i++)
+      {
+         var t = triangles[i];
+         var x1 = t[0];
+         var y1 = t[1];
+         var x2 = t[2];
+         var y2 = t[3];
+         var x3 = t[4];
+         var y3 = t[5];
+         var c1 = t[6];
+         var c2 = t[7];
+         var c3 = t[8];
+         var c4 = t[9];
+         var lineStyleObject = t[10];
+         var dash;
+         var point;
+         var normal;
+         var dashStep;
+         var dashFree;
+         var dashPattern;
+         if (lineStyleObject)
+         {
+            var basicStroke = lineStyleObject.basicStroke;
+            point = lineStyleObject.point;
+            normal = lineStyleObject.dir;
+            dashPattern = basicStroke.getDash();
+            //dashOffset = basicStroke.getDashOffset();//always zero for our base dotted line styles
+         }
+         else
+         {
+            point = [0.0, 0.0];
+            normal = [1.0, 0.0];
+         }
+         
+         if (dashPattern)
+         {
+            dash = 1.0;
+            dashStep = dashPattern[0];
+            dashFree = dashPattern[1];
+         }
+         else
+         {
+            dash = 0.0;
+            dashStep = 1.0;
+            dashFree = 0.0;
+         }
+         
+         dv.setFloat32(j, x1, true);
+         dv.setFloat32(j + 4, y1, true);
+         dv.setUint8(j + 8, c1);
+         dv.setUint8(j + 9, c2);
+         dv.setUint8(j + 10, c3);
+         dv.setUint8(j + 11, c4);
+         dv.setFloat32(j + 12, dash, true);
+         dv.setFloat32(j + 16, point[0], true);
+         dv.setFloat32(j + 20, point[1], true);
+         dv.setFloat32(j + 24, normal[0], true);
+         dv.setFloat32(j + 28, normal[1], true);
+         dv.setFloat32(j + 32, dashStep, true);
+         dv.setFloat32(j + 36, dashFree, true);
+         j += 40;
+
+         dv.setFloat32(j, x2, true);
+         dv.setFloat32(j + 4, y2, true);
+         dv.setUint8(j + 8, c1);
+         dv.setUint8(j + 9, c2);
+         dv.setUint8(j + 10, c3);
+         dv.setUint8(j + 11, c4);
+         dv.setFloat32(j + 12, dash, true);
+         dv.setFloat32(j + 16, point[0], true);
+         dv.setFloat32(j + 20, point[1], true);
+         dv.setFloat32(j + 24, normal[0], true);
+         dv.setFloat32(j + 28, normal[1], true);
+         dv.setFloat32(j + 32, dashStep, true);
+         dv.setFloat32(j + 36, dashFree, true);
+         j += 40;
+
+         dv.setFloat32(j, x3, true);
+         dv.setFloat32(j + 4, y3, true);
+         dv.setUint8(j + 8, c1);
+         dv.setUint8(j + 9, c2);
+         dv.setUint8(j + 10, c3);
+         dv.setUint8(j + 11, c4);
+         dv.setFloat32(j + 12, dash, true);
+         dv.setFloat32(j + 16, point[0], true);
+         dv.setFloat32(j + 20, point[1], true);
+         dv.setFloat32(j + 24, normal[0], true);
+         dv.setFloat32(j + 28, normal[1], true);
+         dv.setFloat32(j + 32, dashStep, true);
+         dv.setFloat32(j + 36, dashFree, true);
+         j += 40;
+      }
+
+      function initTexture(id, texture, data)
+      {
+         gl.activeTexture(id);
+         gl.bindTexture(gl.TEXTURE_2D, texture);
+         gl.texImage2D(
+            gl.TEXTURE_2D,
+            0,
+            gl.RGBA,
+            gl.drawingBufferWidth,
+            gl.drawingBufferHeight,
+            0,
+            gl.RGBA,
+            gl.UNSIGNED_BYTE,
+            data
+         );
+         gl.texParameteri(gl.TEXTURE_2D, gl.TEXTURE_WRAP_S, gl.CLAMP_TO_EDGE);
+         gl.texParameteri(gl.TEXTURE_2D, gl.TEXTURE_WRAP_T, gl.CLAMP_TO_EDGE);
+         gl.texParameteri(gl.TEXTURE_2D, gl.TEXTURE_MIN_FILTER, gl.NEAREST);
+         gl.texParameteri(gl.TEXTURE_2D, gl.TEXTURE_MAG_FILTER, gl.NEAREST);
+      }
+
+      // fill textures
+      if (this.cacheTextureDirty)
+      {
+         initTexture(gl.TEXTURE0, p2j.screen.webgl.baseTexture, this.cacheTextureData);
+         this.cacheTextureDirty = false;
+      }
+
+      if (this.imageTextureDirty)
+      {
+         initTexture(gl.TEXTURE1, p2j.screen.webgl.imageTexture, this.imageTextureData);
+         this.imageTextureDirty = false;
+      }
+
+      gl.bufferData(gl.ARRAY_BUFFER, dv, gl.STATIC_DRAW);
+
+      // draw
+      var primitiveType = gl.TRIANGLES;
+      var offset = 0;
+      var count = 3 * numTriangles;
+      gl.drawArrays(primitiveType, offset, count);
+   }
+
+   if (!isIntermediateDrawing)
+   {
+      for (var j = this.state.length - 1; j >= 0; j--)
+      {
+         this.offscreenCtx.restore();
+      }
+      this.offscreenCtx.save();
+      this.offscreenCtx.globalAlpha = 1;
+      this.offscreenCtx.globalCompositeOperation = "source-over";
+
+      var bounds = this.invalidationRectangle.getBounds();
+      if (!bounds)
+      {
+         bounds = [0, 0, this.offscreenCanvas.height - 1, this.offscreenCanvas.width - 1];
+      }
+
+      var y = bounds[0];
+      var x = bounds[1];
+      var h = bounds[2] - y + 1;
+      var w = bounds[3] - x + 1;
+      // TODO: this operation performs very slowly (hundreds of ms) on Firefox running in VirtualBox after canvas resize,
+      //       the execution time increases with canvas size
+      this.offscreenCtx.drawImage(p2j.screen.webgl.canvas, x, y, w, h, x, y, w, h);
+
+      this.invalidationRectangle.reset();
+      this.offscreenCtx.restore();
+      this.flashTexts(this.offscreenCtx);
+      this.replay(true);
+
+      this.screenCtx.save();
+      this.screenCtx.globalAlpha = 1;
+      this.screenCtx.globalCompositeOperation = "source-over";
+      this.screenCtx.drawImage(this.offscreenCanvas, 0, 0);
+      this.screenCtx.restore();
+   }
+   
+   if (!isIntermediateDrawing)
+   {
+      this.batchDrawing = false;
+   }
+};
+
+/**
+ * Reset composite mode.
+ *
+ */
+WebGLCanvasRenderer.prototype.resetComposite = function()
+{
+   this.compositeModeOn = false;
+   this.offscreenCtx.globalCompositeOperation = "source-over";
+   p2j.screen.webgl.gl.blendFunc(p2j.screen.webgl.gl.ONE, p2j.screen.webgl.gl.ONE_MINUS_SRC_ALPHA);
+};
+
+/**
+ * Set XOR composite mode.
+ */
+WebGLCanvasRenderer.prototype.setXORComposite = function()
+{
+   this.compositeModeOn = true;
+   this.offscreenCtx.globalCompositeOperation = "difference";
+   p2j.screen.webgl.gl.blendFunc(p2j.screen.webgl.gl.ONE_MINUS_DST_COLOR, p2j.screen.webgl.gl.ZERO);
+};
+
+/**
+ * Set XOR mode.
+ *
+ * @param    {Number[]} or {String} color
+ *           This must be either a valid array of 3 integers between 0 and 255 inclusive OR it
+ *           an HTML color specification in "#RRGGBB" form.
+ */
+WebGLCanvasRenderer.prototype.setXORMode = function(color)
+{
+   // TODO: how does this apply to WebGL?
+
+   var xorColorSpec;
+
+   if (color instanceof Array)
+   {
+      if (this.validateColor(color))
+      {
+         xorColorSpec = this.createColorString(color);
+         
+         // store the color in a form that can be used for direct drawing
+         this.xorColor = [ color[0], color[1], color[2] ];
+      }
+      else
+      {
+         this.logger.error("Invalid array form of color specification.");
+         return;
+      }
+   }
+   else
+   {
+      if (typeof color === "string")                  
+      {
+         xorColorSpec = color;
+         
+         // store the color in a form that can be used for direct drawing
+         this.xorColor = this.parseColor(color);
+      }
+      else
+      {
+         this.logger.error("Invalid string form of color specification.");
+         return;
+      }
+   }
+   
+   this.compositeModeOn = true;
+   this.offscreenCtx.globalCompositeOperation = "difference";
+};
+
+/**
+ * Creates a new ImageData object with the specified width and height. The new object is filled
+ * with transparent black pixels.
+ * 
+ * @param    {Number} width
+ *           The image width in pixels.
+ * @param    {Number} height
+ *           The image height in pixels.
+ * 
+ * @return   {ImageData}
+ *           The ImageData object with the specified width and height.
+ */
+WebGLCanvasRenderer.prototype.createImageData = function(width, height)
+{
+   // TODO: how does this apply to WebGL?
+
+   return this.offscreenCtx.createImageData(width, height);
+};
+
+/**
+ * Creates a new html5 canvas with the specified width and height.
+ * 
+ * @param    {Number} width
+ *           The image width in pixels.
+ * @param    {Number} height
+ *           The image height in pixels.
+ * 
+ * @return   {HtmlCanvasElement}
+ *           The new html5 canvas having the specified width and height.
+ */
+WebGLCanvasRenderer.prototype.createCanvas = function(width, height)
+{
+   var canvas = document.createElement('canvas');
+   
+   canvas.width = width;
+   canvas.height = height;
+   
+   return canvas;
+};
+
+/**
+ * Draw a line from (x1, y1) to (x2, y2) inclusive, using the given stroke renderer.
+ *
+ * @param    {Number} x1
+ *           X coordinate of the starting pixel to be drawn.
+ * @param    {Number} y1
+ *           Y coordinate of the starting pixel to be drawn.
+ * @param    {Number} x2
+ *           X coordinate of the ending pixel to be drawn.
+ * @param    {Number} y2
+ *           Y coordinate of the ending pixel to be drawn.
+ * @param    {StrokeRenderer} strokeRenderer
+ *           The current stroke renderer.
+ */
+WebGLCanvasRenderer.prototype.drawLineSegment = function(x1, y1, x2, y2, strokeRenderer)
+{
+   this.pushTriangles(this.drawLineSegmentByTriangles(x1, y1, x2, y2, strokeRenderer));
+};
+
+/**
+ * Draw a line from (x1, y1) to (x2, y2) inclusive, using the given stroke renderer.
+ *
+ * @param    {Number} x1
+ *           X coordinate of the starting pixel to be drawn.
+ * @param    {Number} y1
+ *           Y coordinate of the starting pixel to be drawn.
+ * @param    {Number} x2
+ *           X coordinate of the ending pixel to be drawn.
+ * @param    {Number} y2
+ *           Y coordinate of the ending pixel to be drawn.
+ * @param    {StrokeRenderer} strokeRenderer
+ *           The current stroke renderer.
+ */
+WebGLCanvasRenderer.prototype.drawLineSegmentByTriangles = function(x1, y1, x2, y2, strokeRenderer)
+{
+   var triangles = [];
+   x1 = x1 + this.origin.x;
+   x2 = x2 + this.origin.x;
+
+   y1 = y1 + this.origin.y;
+   y2 = y2 + this.origin.y;
+
+   // intersect with clipping region
+   // and normalize this region, thus (d[0],d[1]) defines the left top cone point and (d[2],d[3])
+   // defines the right bottom cone point of the clipping region
+   var d = this.cutLine(x1, y1, x2, y2);
+   if (d === null)
+   {
+      return triangles;
+   }
+
+   for (var i = 0; i < d.length; i++)
+   {
+      x1 = d[i][0];
+      y1 = d[i][1];
+      x2 = d[i][2];
+      y2 = d[i][3];
+
+      var line = strokeRenderer.strokeLine(x1, y1, x2, y2);
+      var barier = line.length;
+      outer:
+      for (var j = 0; j < barier; j++)
+      {
+         // TODO: remove the check for NaN
+         for (var k = 0; k < line[j].length; k++)
+         {
+            if (Number.isNaN(line[j][k]))
+            {
+               continue outer;
+            }
+         }
+
+         triangles.push(line[j]);
+      }
+   }
+   
+   return triangles;
+};
+
+/**
+ * 
+ * Draw a line in the given color from (x1, y1) to (x2, y2) inclusive, using direct drawing and
+ * add its pixels path to the end of the provided pixels path.
+ * <p>
+ * This is an implementation of the well known 50+ year old Bresenham algorithm.
+ *
+ * @param    {Number} x1
+ *           X coordinate of the starting pixel to be drawn.
+ * @param    {Number} y1
+ *           Y coordinate of the starting pixel to be drawn.
+ * @param    {Number} x2
+ *           X coordinate of the ending pixel to be drawn.
+ * @param    {Number} y2
+ *           Y coordinate of the ending pixel to be drawn.
+ * @param    {Number[]} color
+ *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+ */
+WebGLCanvasRenderer.prototype.drawLine = function(x1, y1, x2, y2, color)
+{
+   var strokeRenderer = this.glStrokesManager.getStrokePathRenderer(this, this.strokeStyleId,
+         this.strokeWidth, color);
+   strokeRenderer.beginStroke();
+   this.drawLineSegment(x1, y1, x2, y2, strokeRenderer);
+}
+
+/**
+ * 
+ * Draw a line in the given color from (x1, y1) to (x2, y2) inclusive, using direct drawing and
+ * add its pixels path to the end of the provided pixels path.
+ * <p>
+ * This is an implementation of the well known 50+ year old Bresenham algorithm.
+ *
+ * @param    {Number} x1
+ *           X coordinate of the starting pixel to be drawn.
+ * @param    {Number} y1
+ *           Y coordinate of the starting pixel to be drawn.
+ * @param    {Number} x2
+ *           X coordinate of the ending pixel to be drawn.
+ * @param    {Number} y2
+ *           Y coordinate of the ending pixel to be drawn.
+ * @param    {Number[]} color
+ *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+ */
+WebGLCanvasRenderer.prototype.drawIbeam = function(x1, y1, x2, y2, color)
+{
+   // alternative version of I-beam painter.
+   var strokeRenderer = this.glStrokesManager.getStrokeDefaultPathRenderer(this, color);
+   strokeRenderer.beginStroke();
+
+   // find out the line parts are not clipped.
+   var d = this.cutLine(x1 + this.origin.x, y1 + this.origin.y,
+                        x2 + this.origin.x, y2 + this.origin.y);
+   // all clipped, nothing to draw
+   if (d === null)
+   {
+      return;
+   }
+   // enumerate all visible parts and draw
+   for (var i = 0; i < d.length; i++)
+   {
+      strokeRenderer.xorLine(d[i][0], d[i][1], d[i][2], d[i][3]);
+   }
+}
+
+/**
+ * Stroke a line in the given color from (x1, y1) to (x2, y2) inclusive.
+ * <p>
+ * This is an implementation of the well known 50+ year old Bresenham algorithm.
+ *
+ * @param    {Number} x1
+ *           X coordinate of the starting pixel to be drawn.
+ * @param    {Number} y1
+ *           Y coordinate of the starting pixel to be drawn.
+ * @param    {Number} x2
+ *           X coordinate of the ending pixel to be drawn.
+ * @param    {Number} y2
+ *           Y coordinate of the ending pixel to be drawn.
+ * @param    {Number[]} color
+ *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+ */
+WebGLCanvasRenderer.prototype.strokeLineSegment = function(x1, y1, x2, y2, color)
+{
+   var strokeRenderer = this.glStrokesManager.getStrokePathRenderer(this, this.strokeStyleId,
+         this.strokeWidth, color);
+   strokeRenderer.beginStroke();
+   this.drawLineSegment(x1, y1, x2, y2, strokeRenderer);
+}
+
+/**
+ * Draw a rectangle in the given color and dimensions with the line drawing being overwritten
+ * using direct drawing to eliminate the negative/unwanted effects of anti-aliasing.
+ *
+ * @param    {Number} x
+ *           X coordinate of the top left corner.
+ * @param    {Number} y
+ *           Y coordinate of the top left corner.
+ * @param    {Number} width
+ *           Width of the rectangle in pixels.
+ * @param    {Number} height
+ *           Height of the rectangle in pixels.
+ * @param    {Number[]} color
+ *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+ *           This will be used for the border lines and when in fill mode, also the interior.
+ * @param    {Boolean} fill
+ *           <code>true</code> to fill the drawn rectangle with the given color.
+ */
+WebGLCanvasRenderer.prototype.drawRect = function(x, y, width, height, color, fill)
+{
+   this.strokeRect(x, y, width, height, color, fill);
+};
+
+/**
+ * Stroke a rectangle in the given color and dimensions with the line drawing being overwritten
+ * using direct drawing to eliminate the negative/unwanted effects of anti-aliasing.
+ *
+ * @param    {Number} x
+ *           X coordinate of the top left corner.
+ * @param    {Number} y
+ *           Y coordinate of the top left corner.
+ * @param    {Number} width
+ *           Width of the rectangle in pixels.
+ * @param    {Number} height
+ *           Height of the rectangle in pixels.
+ * @param    {Number[]} color
+ *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+ *           This will be used for the border lines and when in fill mode, also the interior.
+ * @param    {Boolean} fill
+ *           <code>true</code> to fill the drawn rectangle with the given color.
+ */
+WebGLCanvasRenderer.prototype.strokeRect = function(x, y, width, height, color, fill)
+{
+   if (fill)
+   {
+      var x1 = x + this.origin.x;
+      var x2 = x + width - 1 + this.origin.x;
+      var y1 = y + this.origin.y;
+      var y2 = y + height - 1 + this.origin.y;
+
+      var clipped = this.clipRegion(x1, y1, x2, y2);
+      var w =  this.strokeWidth;
+      if (clipped)
+      {
+         for (var i = 0; i < clipped.length; i++)
+         {
+            var clip = clipped[i];
+            x1 = clip.left;
+            y1 = clip.top;
+            x2 = clip.right;
+            y2 = clip.bottom;
+
+            this.invalidate(y1, x1, y2, x2);
+            this.pushTriangles([[x1, y1, x2 + 1, y1, x1, y2 + 1, color[0], color[1], color[2], 255],
+                                [x1, y2 + 1, x2 + 1, y1, x2 + 1, y2 + 1, color[0], color[1], color[2], 255]]);
+         }
+      }
+   }
+   else
+   {
+      var renderer = this.glStrokesManager.getStrokePathRenderer(this, this.strokeStyleId,
+            this.strokeWidth, color);
+      
+      renderer.beginStroke();
+      var w2 = this.strokeWidth >> 1;
+      w2 = w2 >= 1 ? Math.max(w2 - 1, 1) : 0;
+      this.drawLineSegment(x, y, x + width - w2, y, renderer);
+      this.drawLineSegment(x + width - w2, y, x + width - w2, y + height - w2, renderer);
+      this.drawLineSegment(x + width - w2, y + height - w2, x, y + height - w2, renderer);
+      this.drawLineSegment(x, y + height - w2, x, y, renderer);// close the path
+//      var triangles = [];
+//      var line = this.drawLineSegmentByTriangles(x, y, x + width - 1, y, renderer);
+//      var len = line.length;
+//      for(var j = 0; j < len; j++)
+//      {
+//         triangles.push(line[j]);
+//      }
+//      line = this.drawLineSegmentByTriangles(x + width - 1, y, x + width - 1, y + height - 1, renderer);
+//      len = line.length;
+//      for(var j = 0; j < len; j++)
+//      {
+//         triangles.push(line[j]);
+//      }
+//      line = this.drawLineSegmentByTriangles(x + width - 1, y + height - 1, x, y + height - 1, renderer);
+//      len = line.length;
+//      for(var j = 0; j < len; j++)
+//      {
+//         triangles.push(line[j]);
+//      }
+//      line = this.drawLineSegmentByTriangles(x, y + height - 1, x, y, renderer);// close the path
+//      len = line.length;
+//      for(var j = 0; j < len; j++)
+//      {
+//         triangles.push(line[j]);
+//      }
+//      this.pushTriangles(this.clipTriangles(triangles));
+   }
+};
+
+/**
+ * Stroke an ellipse in the given color and dimensions with the line drawing being overwritten
+ * using direct drawing to eliminate the negative/unwanted effects of anti-aliasing.
+ *
+ * @param    {Number} x
+ *           X coordinate of the top left corner.
+ * @param    {Number} y
+ *           Y coordinate of the top left corner.
+ * @param    {Number} w
+ *           Width of the ellipse in pixels.
+ * @param    {Number} h
+ *           Height of the ellipse in pixels.
+ * @param    {Number[]} color
+ *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+ *           This will be used for the border lines and when in fill mode, also the interior.
+ * @param    {Boolean} fill
+ *           <code>true</code> to fill the drawn ellipse with the given color.
+ */
+WebGLCanvasRenderer.prototype.strokeEllipse = function(x, y, w, h, color, fill)
+{
+   var dim = Math.max(w, h);
+   var count;
+   
+   if (dim >= 20)
+   {
+      var dim10 = Math.round(dim / 10);
+      count = 180 * dim10;
+   }
+   else
+   {
+      count = 180;
+   }
+   
+   var a = w / 2;
+   var b = h / 2;
+   var xc = x + a;
+   var yc = y + b;
+   var yc2 = yc * 2;
+   var ang = Math.PI / count;
+   var results = [];
+   var barrier = count - 1;
+   var fi = ang;
+   var stroke = !fill;
+   var thickness = this.strokeWidth;
+   var x1, y1, x2, y2, ix1, iy1, ix2, iy2;
+   var cfi = 1, sfi = 0;
+   
+   var ix1_prev, iy1_prev, x1_prev = a + xc, y1_prev = yc;
+   
+   if (stroke)
+   {
+      ix1_prev = x1_prev - thickness;
+      iy1_prev = y1_prev;
+   }
+   
+   for (var i = 1; i < barrier; i++, fi += ang)
+   {
+      cfi = Math.cos(fi);
+      sfi = Math.sin(fi);
+      
+      x1 = a * cfi + xc;
+      y1 = b * sfi + yc;
+      
+      if (stroke)
+      {
+         ix1 = x1 - thickness * cfi;
+         iy1 = y1 - thickness * sfi;
+         results.push([ix1_prev, iy1_prev, x1_prev, y1_prev, x1, y1, color[0], color[1], color[2], 255]);
+         results.push([ix1_prev, iy1_prev, ix1, iy1, x1, y1, color[0], color[1], color[2], 255]);
+         
+         results.push([ix1_prev, yc2 - iy1_prev, x1_prev, yc2 - y1_prev, x1, yc2 - y1, color[0], color[1], color[2], 255]);
+         results.push([ix1_prev, yc2 - iy1_prev, ix1, yc2 - iy1, x1, yc2 - y1, color[0], color[1], color[2], 255]);
+      }
+      else
+      {
+         results.push([xc, yc, x1_prev, y1_prev, x1, y1, color[0], color[1], color[2], 255]);
+         results.push([xc, yc, x1_prev, yc2 - y1_prev, x1, yc2 - y1, color[0], color[1], color[2], 255]);
+      }
+      
+      x1_prev = x1;
+      y1_prev = y1;
+      
+      if (stroke)
+      {
+         ix1_prev = ix1;
+         iy1_prev = iy1;
+      }
+   }
+
+   var t = this.clipTriangles(results);
+   this.pushTriangles(t);
+};
+
+/**
+ * Build the mesh of triangles that cover the target elliptical arc given by its center and
+ * its sector position. The given center is adjusted with respect to the origin.
+ * 
+ * @param    {Number} xc
+ *           The x coordinate of the center of the target arc's containing ellipse
+ * @param    {Number} yc
+ *           The y coordinate of the center of the target arc's containing ellipse
+ * @param    {Number} a
+ *           The half width of the target arc's containing ellipse
+ * @param    {Number} b
+ *           The half height of the target arc's containing ellipse
+ * @param    {Number} ang0
+ *           The position of the target arc in radians.
+ * @param    {Number} arc
+ *           The measure of the target arc in radians.
+ * @param    {Number[]} color
+ *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+ *           This will be used for the border lines and when in fill mode, also the interior.
+ * @param    {Boolean} fill
+ *           <code>true</code> to fill the drawn ellipse with the given color.
+ * 
+ * @return   The mesh of triangles that cover the target elliptical arc.
+ */
+WebGLCanvasRenderer.prototype.buildEllipseByTriangles = function(xc, yc, a, b, ang0, arc, color, fill)
+{
+   xc = xc + this.origin.x;
+   yc = yc + this.origin.y;
+
+   var dim = Math.max(a, b);
+   var count;
+   
+   if (dim >= 10)
+   {
+      var dim10 = Math.round(dim / 10);
+      count = 180 * dim10;
+   }
+   else
+   {
+      count = 180;
+   }
+   var results = [];
+   var strokeWidth = Math.max(1, this.strokeWidth);
+   var yc2 = yc * 2;
+   for(var k = 1; k <= strokeWidth; k++)
+   {
+      var ang = arc / count;
+      var barrier = count;
+      var fi = ang + ang0;
+      var stroke = !fill;
+      var thickness = 1;
+      var x1, y1, x2, y2, ix1, iy1, ix2, iy2;
+      var cfi = Math.cos(ang0), sfi = Math.sin(ang0);
+      
+      var ix1_prev, iy1_prev, x1_prev = a * cfi + xc, y1_prev = b * sfi + yc;
+      
+      if (stroke)
+      {
+         ix1_prev = x1_prev - thickness * cfi;
+         iy1_prev = y1_prev - thickness * sfi;
+      }
+      
+      for (var i = 1; i <= barrier; i++, fi += ang)
+      {
+         cfi = Math.cos(fi);
+         sfi = Math.sin(fi);
+         
+         x1 = a * cfi + xc;
+         y1 = b * sfi + yc;
+         
+         if (stroke)
+         {
+            ix1 = x1 - thickness * cfi;
+            iy1 = y1 - thickness * sfi;
+            results.push([ix1_prev, iy1_prev, x1_prev, y1_prev, x1, y1, color[0], color[1], color[2], 255]);
+            results.push([ix1_prev, iy1_prev, ix1, iy1, x1, y1, color[0], color[1], color[2], 255]);
+   //         results.push([ix1_prev, yc2 - iy1_prev, x1_prev, yc2 - y1_prev, x1, yc2 - y1, color[0], color[1], color[2], 255]);
+   //         results.push([ix1_prev, yc2 - iy1_prev, ix1, yc2 - iy1, x1, yc2 - y1, color[0], color[1], color[2], 255]);
+         }
+         else
+         {
+            results.push([xc, yc, x1_prev, y1_prev, x1, y1, color[0], color[1], color[2], 255]);
+   //         results.push([xc, yc, x1_prev, yc2 - y1_prev, x1, yc2 - y1, color[0], color[1], color[2], 255]);
+         }
+         
+         x1_prev = x1;
+         y1_prev = y1;
+         
+         if (stroke)
+         {
+            ix1_prev = ix1;
+            iy1_prev = iy1;
+         }
+      }
+      a = a - 1;
+      b = b - 1;
+   }
+   return results;
+};
+
+/**
+ * It draws an image on the canvas.
+ * 
+ * @param    {Number} x
+ *           X coordinate of the top left corner.
+ * @param    {Number} y
+ *           Y coordinate of the top left corner.
+ * @param    {Number} width
+ *           Width of the image in pixels.
+ * @param    {Number} height
+ *           Height of the image in pixels.
+ * @param    {Array} imgData
+ *           The image data array contains the encoded image started from the given offset.
+ * @param    {Boolean} noTranslate
+ *           Set to true if the coordinates are already in screen coordinates.
+ * @param    {Boolean} invert
+ *           Set to true if the image data has inverted lines, i.e. first line as seen on the screen
+ *           is the last line in the data array.
+ * @param    {Boolean} noClip
+ *           Set to true to skip clipping of the drawn image.
+ * @param    {Boolean} cached
+ *           This parameter must be set to true when the function is used to draw a cached image.
+ */
+WebGLCanvasRenderer.prototype.drawImage = function(x, y, width, height, imgData, noTranslate, invert, noClip, cached)
+{
+   var originX = this.origin.x;
+   var originY = this.origin.y;
+
+   if (noTranslate === true)
+   {
+      originX = 0;
+      originY = 0;
+   }
+
+   var x1 = Math.round(x + originX);
+   var x2 = x1 + width - 1;
+   var y1 = Math.round(y + originY);
+   var y2 = y1 + height - 1;
+
+   var clipped = null;
+   if (noClip === true)
+   {
+      clipped = [{left: x1, right: x2, top: y1, bottom: y2}];
+   }
+   else
+   {
+      clipped = this.clipRegion(x1, y1, x2, y2);
+   }
+
+   if (clipped)
+   {
+      var textureData = cached ? this.cacheTextureData : this.imageTextureData;
+      var cwidth = p2j.screen.webgl.gl.drawingBufferWidth;
+      var tlen = textureData.length;
+
+      var startOffset = y1 * cwidth + x1;
+      
+      for (var j = 0; j < height; j++)
+      {
+         var srcLine = width * j;
+         var toffset = (startOffset + j * cwidth) * 4;
+         if (toffset >= tlen)
+         {
+            break;
+         }
+
+         var srcLineEnd = srcLine * 4 + Math.min(width * 4, tlen - toffset);
+         textureData.set(imgData.subarray(srcLine * 4, srcLineEnd), toffset);
+      }
+      
+      for (var i = 0; i < clipped.length; i++)
+      {
+         var clip = clipped[i];
+         var cx1 = clip.left;
+         var cy1 = clip.top;
+         var cx2 = clip.right;
+         var cy2 = clip.bottom;
+         
+         var txid = cached ? 0 : 1;
+         this.invalidate(cy1, cx1, cy2, cx2);
+         this.pushTriangles([[cx1, cy1, cx2 + 1, cy1, cx1, cy2 + 1, txid, 0, 0, 0],
+                             [cx1, cy2 + 1, cx2 + 1, cy1, cx2 + 1, cy2 + 1, txid, 0, 0, 0]]);
+      }
+
+      if (cached)
+      {
+         this.cacheTextureDirty = true;
+      }
+      else
+      {
+         this.imageTextureDirty = true;
+      }
+   }
+};
+
+/**
+ * Draw a rounded rectangle with the given context, dimensions and fill.
+ *
+ * @param    {Number} x
+ *           X coordinate of the top left of the rectangle (if a square corner was placed
+ *           there).
+ * @param    {Number} y
+ *           Y coordinate of the top left of the rectangle (if a square corner was placed
+ *           there).
+ * @param    {Number} width
+ *           Width of the rectangle.
+ * @param    {Number} height
+ *           Height of the rectangle.
+ * @param    {Number} diameter
+ *           Diameter of the arc that defines the rounded corner.
+ * @param    {Number[]} color  
+ *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+ * @param    {Boolean} fill
+ *           <code>true</code> to fill the rectangle with the current color, otherwise just
+ *           stroke the rectangle.
+ */
+WebGLCanvasRenderer.prototype.drawRoundRect = function(x, y, width, height, diameter, color, fill)
+{
+   var radius = diameter / 2;
+   
+   // arc control points
+   var northWestX = x;
+   var northWestY = y;
+   var northEastX = x + width;
+   var northEastY = y;
+   var southWestX = x;
+   var southWestY = y + height;
+   var southEastX = x + width;
+   var southEastY = y + height;
+   
+   // line end points                                       
+   var topLeftX     = northWestX + radius;
+   var topLeftY     = northWestY;
+   var topRightX    = northEastX - radius;
+   var topRightY    = northEastY;
+   var rightUpX     = northEastX;
+   var rightUpY     = northEastY + radius;
+   var rightDownX   = southEastX;
+   var rightDownY   = southEastY - radius;
+   var bottomRightX = southEastX - radius;
+   var bottomRightY = southEastY;
+   var bottomLeftX  = southWestX + radius;
+   var bottomLeftY  = southWestY;
+   var leftDownX    = southWestX;
+   var leftDownY    = southWestY - radius;
+   var leftUpX      = northWestX;
+   var leftUpY      = northWestY + radius;
+   
+   var c1 = color[0];
+   var c2 = color[1];
+   var c3 = color[2];
+   var c4 = 255;
+
+   var triangles = [];
+   
+   var ang0 = Math.PI / 2;
+   var arc = Math.PI / 2;
+   var xc = topLeftX;
+   var yc = leftDownY;
+   var yc2 = leftUpY + leftDownY + 2 * this.origin.y; // this coordinate adjusted to the origin
+   
+   var triangleMesh = this.buildEllipseByTriangles(xc, yc, radius, radius, ang0, arc, color, fill);
+   var num = triangleMesh.length;
+   for (var i = 0; i < num; i++)
+   {
+      var t = triangleMesh[i];
+      triangles.push(t);
+      triangles.push([t[0], yc2 - t[1], t[2], yc2 - t[3], t[4], yc2 - t[5], c1, c2, c3, c4]);
+   }
+   
+   ang0 = 0;
+   arc = Math.PI / 2;
+   xc = topRightX;
+   yc = rightDownY;
+   
+   triangleMesh = this.buildEllipseByTriangles(xc, yc, radius, radius, ang0, arc, color, fill);
+   num = triangleMesh.length;
+   for (var i = 0; i < num; i++)
+   {
+      var t = triangleMesh[i];
+      triangles.push(t);
+      triangles.push([t[0], yc2 - t[1], t[2], yc2 - t[3], t[4], yc2 - t[5], c1, c2, c3, c4]);
+   }
+
+   if (fill)
+   {
+      triangles.push(this.adjustTriangle([topLeftX, topLeftY, topRightX + 1, topRightY, topLeftX, leftUpY + 1, c1, c2, c3, c4]));
+      triangles.push(this.adjustTriangle([topRightX + 1, leftUpY + 1, topRightX + 1, topRightY, topLeftX, leftUpY + 1, c1, c2, c3, c4]));
+      triangles.push(this.adjustTriangle([leftUpX, leftUpY, rightUpX + 1, rightUpY, leftDownX, leftDownY + 1, c1, c2, c3, c4]));
+      triangles.push(this.adjustTriangle([rightDownX + 1, rightDownY + 1, rightUpX + 1, rightUpY, leftDownX, leftDownY + 1, c1, c2, c3, c4]));
+      triangles.push(this.adjustTriangle([bottomLeftX, bottomLeftY + 1, bottomRightX + 1, bottomRightY + 1, bottomLeftX, leftDownY, c1, c2, c3, c4]));
+      triangles.push(this.adjustTriangle([bottomRightX + 1, leftDownY, bottomRightX + 1, bottomRightY + 1, bottomLeftX, leftDownY, c1, c2, c3, c4]));
+   }
+   else
+   {
+      var renderer = this.glStrokesManager.getStrokePathRenderer(this, this.strokeStyleId,
+            this.strokeWidth, color);
+      renderer.beginStroke();
+      var w2 = this.strokeWidth >> 1;
+      
+      var line = this.drawLineSegmentByTriangles(leftUpX + w2, leftUpY, leftDownX + w2, leftDownY, renderer);
+      var len = line.length;
+      for(var j = 0; j < len; j++)
+      {
+         triangles.push(line[j]);
+      }
+      
+      line = this.drawLineSegmentByTriangles(topLeftX, topLeftY, topRightX - w2, topRightY, renderer);
+      len = line.length;
+      for(var j = 0; j < len; j++)
+      {
+         triangles.push(line[j]);
+      }
+      w2 = Math.max(w2, 1);
+      line = this.drawLineSegmentByTriangles(bottomLeftX, bottomLeftY - w2, bottomRightX, bottomRightY - w2, renderer);
+      len = line.length;
+      for(var j = 0; j < len; j++)
+      {
+         triangles.push(line[j]);
+      }
+      line = this.drawLineSegmentByTriangles(rightUpX - w2, rightUpY, rightDownX - w2, rightDownY, renderer);
+      len = line.length;
+      for(var j = 0; j < len; j++)
+      {
+         triangles.push(line[j]);
+      }
+   }
+
+   var t = this.clipTriangles(triangles);
+   this.pushTriangles(t);
+};
+
+/**
+ * Draw a slightly shaded "3D" rectangle with the given context, dimensions and fill. In
+ * raised mode the rectangle is drawn with a lighter color used for the top and left borders
+ * and any fill that is needed, while the bottom and right borders are a darker version of
+ * the given color.  If not raised, a darker shade of the given color is used for the top
+ * and left borders and any requested fill, while a lighter shade is used for the bottom and
+ * right borders.
+ *
+ * @param    {Number} x
+ *           X coordinate of the top left of the rectangle.
+ * @param    {Number} y
+ *           Y coordinate of the top left of the rectangle.
+ * @param    {Number} width
+ *           Width of the rectangle in pixels.
+ * @param    {Number} height
+ *           Height of the rectangle in pixels.
+ * @param    {Number[]} color  
+ *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+ * @param    {Boolean} fill
+ *           <code>true</code> to fill the rectangle with the current color, otherwise just
+ *           stroke the rectangle.
+ * @param    {Boolean} raise
+ *           <code>true</code> to draw in raised mode.
+ */
+WebGLCanvasRenderer.prototype.draw3DRect = function(x, y, width, height, color, fill, raised)
+{
+   // save off our colors
+   var oriFillColor   = this.offscreenCtx.fillStyle;
+   var oriStrokeColor = this.offscreenCtx.strokeStyle;
+   
+   var darker  = this.darkenColor(color);
+   var lighter = this.lightenColor(color);
+   
+   // the Java implementation draws 1 pixel larger in each dimension
+   width  = width + 1;
+   height = height + 1;
+   
+   
+   var inset = 0;
+   
+   var current = raised ? color : darker;
+   
+   // fill the rectangle with the original color (raised mode) or the darker color otherwise
+   if (fill)
+   {
+      inset = 1;
+      var x1 = x + this.origin.x;
+      var x2 = x + width - 2 + this.origin.x;
+      var y1 = y + this.origin.y;
+      var y2 = y + height - 2 + this.origin.y;
+
+      var clipped = this.clipRegion(x1, y1, x2, y2);
+      if (clipped)
+      {
+         for (var i = 0; i < clipped.length; i++)
+         {
+            var clip = clipped[i];
+            x1 = clip.left;
+            y1 = clip.top;
+            x2 = clip.right;
+            y2 = clip.bottom;
+            this.invalidate(y1, x1, y2, x2);
+            this.pushTriangles([[x1, y1, x2 + 1, y1, x1, y2 + 1, current[0], current[1], current[2], 255],
+                                [x1, y2 + 1, x2 + 1, y1, x2 + 1, y2 + 1, current[0], current[1], current[2], 255]]);
+         }
+      }
+   }
+   
+   current = raised ? lighter : darker;
+   var renderer1 = this.glStrokesManager.getStrokePathRenderer(this, this.strokeStyleId,
+         this.strokeWidth, current);
+   renderer1.beginStroke();
+   // draw the top and left sides in the contrasting color (raised mode) or the darker color
+   // otherwise
+   this.drawLineSegment(x, y, x + width - 2 - inset, y, renderer1);
+   this.drawLineSegment(x, y, x, y + height - 1 - inset, renderer1);
+
+   // draw the bottom and right sides in the darker color (raised mode) or the contrasting
+   // color otherwise
+   current = raised ? darker : lighter;
+   var renderer2 = this.glStrokesManager.getStrokePathRenderer(this, this.strokeStyleId,
+         this.strokeWidth, current);
+   renderer2.beginStroke();
+   this.drawLineSegment(x + 1, y + height - 1 - inset, x + width - 1 - inset,
+         y + height - 1 - inset, renderer2);
+   this.drawLineSegment(x + width - 1 - inset, y, x + width - 1 - inset, y + height - 2,
+         renderer2);
+};
+
+/**
+ * Draw a closed polygon with the given context, vertices and fill.
+ *
+ * @param    {Number} xPoints
+ *           X coordinates of the points.
+ * @param    {Number} yPoints
+ *           Y coordinates of the points.
+ * @param    {Number} num
+ *           Number of points to draw.
+ * @param    {Number[]} color  
+ *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+ * @param    {Boolean} fill
+ *           <code>true</code> to fill the rectangle with the current color, otherwise just
+ *           stroke the rectangle.
+ */
+WebGLCanvasRenderer.prototype.drawPolygon = function(xPoints, yPoints, num, color, fill)
+{
+   var i;
+   var barier = num - 1;
+   var triangles = [];
+   if (fill)
+   {
+      var t;
+      var c1 = color[0];
+      var c2 = color[1];
+      var c3 = color[2];
+      var c4 = 255;
+      for (i = 1; i < barier; i++)
+      {
+         t = [xPoints[0], yPoints[0], xPoints[i], yPoints[i], xPoints[i + 1], yPoints[i + 1], c1, c2, c3, c4];
+         triangles.push(t);
+      }
+   }
+   else
+   {
+      var renderer = this.glStrokesManager.getStrokePathRenderer(this, this.strokeStyleId,
+            this.strokeWidth, color);
+      renderer.beginStroke();
+      var line;
+      var len;
+      // now overdraw the stroked portion
+      for (i = 0; i < barier; i++)
+      {
+         line = this.drawLineSegmentByTriangles(xPoints[i], yPoints[i], xPoints[i + 1], yPoints[i + 1], renderer);
+         len = line.length;
+         for(var j = 0; j < len; j++)
+         {
+            triangles.push(line[j]);
+         }
+      }
+      // close the path
+      line = this.drawLineSegmentByTriangles(xPoints[num - 1], yPoints[num - 1], xPoints[0], yPoints[0], renderer);
+      len = line.length;
+      for(var j = 0; j < len; j++)
+      {
+         triangles.push(line[j]);
+      }
+   }
+
+   var t = this.clipTriangles(triangles);
+   this.pushTriangles(t);
+};
+
+/**
+ * Stroke a closed polygon with the given context, vertices and fill.
+ *
+ * @param    {Number} xPoints
+ *           X coordinates of the points.
+ * @param    {Number} yPoints
+ *           Y coordinates of the points.
+ * @param    {Number} num
+ *           Number of points to draw.
+ * @param    {Number[]} color  
+ *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+ * @param    {Boolean} fill
+ *           <code>true</code> to fill the rectangle with the current color, otherwise just
+ *           stroke the rectangle.
+ */
+WebGLCanvasRenderer.prototype.strokePolygon = function(xPoints, yPoints, num, color, fill)
+{
+   this.drawPolygon(xPoints, yPoints, num, color, fill);
+};
+
+/**
+ * Draw a dotted selection box rectangle with the given dimensions.
+ *
+ * @param    {Number} x
+ *           X coordinate of the top left of the rectangle (if a square corner was placed
+ *           there).
+ * @param    {Number} y
+ *           Y coordinate of the top left of the rectangle (if a square corner was placed
+ *           there).
+ * @param    {Number} width
+ *           Width of the rectangle.
+ * @param    {Number} height
+ *           Height of the rectangle.
+ * @param    {Number[]} color  
+ *           Array of 3 integer values between 0 and 255 inclusive, representing an RGB color.
+ * @param    {Boolean} clear
+ *           <code>true</code> to clear the area instead of drawing.
+ */
+WebGLCanvasRenderer.prototype.drawSelection = function(x, y, width, height, color, clear)
+{
+   // initiate selection canvas if not yet done
+   if (!this.selectionCanvasReady)
+   {
+      this.initSelectionCanvas();
+   }
+   
+   // if selection canvas was hidden at the end of previous selection - make it visible
+   if (!this.selectionCanvasVisible)
+   {
+      this.showSelectionCanvas();
+   }
+   
+   // get context for selection canvas and draw rectangle
+   var selCtx = this.selectionCanvas.getContext("2d");
+   if (selCtx)
+   {
+      if (clear)
+      {
+         // clean mode means just empty all canvas if something was drawn
+         if (this.selectionCanvasDirty)
+         {
+            selCtx.clearRect(0, 0, this.selectionCanvas.width, this.selectionCanvas.height);
+            this.selectionCanvasDirty = false;
+         }
+      }
+      else
+      {
+         // draw dotted selection rectangle
+         // using dots with combination of the given color and inverted one
+         // this make it visible on every color
+         // inverted rectangle is solid line behind the dotted on the top
+         selCtx.strokeStyle = this.createColorString([255-color[0], 255-color[1], 255-color[2]]);
+         selCtx.strokeRect(x + this.origin.x, y + this.origin.y, width, height);
+         selCtx.setLineDash([2, 2]);
+         selCtx.strokeStyle = this.createColorString(color);
+         selCtx.strokeRect(x + this.origin.x, y + this.origin.y, width, height);
+         selCtx.setLineDash([]);
+         this.selectionCanvasDirty = true;
+      }
+   }
+}
+
+/**
+ * Set the color for future graphics operations on this window.
+ *
+ * @param    {Number[]} or {String} color
+ *           This must be either a valid array of 3 integers between 0 and 255 inclusive OR it
+ *           an HTML color specification in "#RRGGBB" form.
+ */
+WebGLCanvasRenderer.prototype.setColor = function(color)
+{
+   var colorSpec;
+
+   if (color instanceof Array)
+   {
+      if (this.validateColor(color))
+      {
+         colorSpec = this.createColorString(color);
+         
+         // store the color in a form that can be used for direct drawing
+         this.rawColor = [ color[0], color[1], color[2] ];
+      }
+      else
+      {
+         this.logger.error("Invalid array form of color specification.");
+         return;
+      }
+   }
+   else
+   {
+      if (typeof color === "string")                  
+      {
+         colorSpec = color;
+         
+         // store the color in a form that can be used for direct drawing
+         this.rawColor = this.parseColor(color);
+      }
+      else
+      {
+         this.logger.error("Invalid string form of color specification.");
+         return;
+      }
+   }
+   
+   // change the canvas colors
+   this.offscreenCtx.fillStyle   = colorSpec;
+   this.offscreenCtx.strokeStyle = colorSpec;
+};
+
+/**
+ * Sets the stroke style.
+ *                              
+ * @param    {Number} strokeStyleId
+ *           The predefined stroke style.
+ */
+WebGLCanvasRenderer.prototype.setStrokeStyleId = function(strokeStyleId)
+{
+   this.strokeStyleId = strokeStyleId;
+};
+
+/**
+ * Sets the stroke line width.
+ *                              
+ * @param    {Number} width
+ *           The stroke line width.
+ */
+WebGLCanvasRenderer.prototype.setStrokeWidth = function(width)
+{
+   this.strokeWidth = width;    
+};
+
+
+/**
+ * Sets the line stroke.
+ * 
+ * @param    {Number} strokeStyleId
+ *           The predefined stroke style id.
+ * @param    {Number} width
+ *           The stroke line width.
+ */
+WebGLCanvasRenderer.prototype.setLineStroke = function(strokeStyleId, width)
+{
+   this.setStrokeStyleId(strokeStyleId);
+   this.setStrokeWidth(width);
+   this.strokesManager.applyStrokeToCanvas(this.offscreenCtx, strokeStyleId, width);
+};
+
+/**
+ * Add the given area to the current clipping region.
+ * 
+ * @param    {Array} area
+ *           The array of objects representing multiple rectangular areas.
+ *           The object defines properties x, y, width, height.
+ */
+WebGLCanvasRenderer.prototype.clip = function(area)
+{
+    var newClip = [];
+
+   // find the previous clipping rectangle
+   var prevClip = this.lastClippedRegion(false);
+   if (prevClip)
+   {
+      var clipSet = {};
+      for (var i = 0; i < prevClip.length; i++)
+      {
+          var prevR =
+          {
+             "top"    : prevClip[i].y,
+             "left"   : prevClip[i].x,
+             "bottom" : prevClip[i].y + prevClip[i].height - 1,
+             "right"  : prevClip[i].x + prevClip[i].width - 1
+          };
+
+          for (var j = 0; j < area.length; j++)
+          {
+             var newR =
+             {
+                "top"    : area[j].y,
+                "left"   : area[j].x,
+                "bottom" : area[j].y + area[j].height - 1,
+                "right"  : area[j].x + area[j].width - 1
+             };
+
+             var intersect = undefined;
+             if (!(prevR.top    > newR.bottom ||
+                   prevR.bottom < newR.top    ||
+                   prevR.left   > newR.right  ||
+                   prevR.right  < newR.left))
+             {
+                intersect =
+                {
+                   "top"    : (prevR.top    > newR.top    ? prevR.top    : newR.top),
+                   "left"   : (prevR.left   > newR.left   ? prevR.left   : newR.left),
+                   "bottom" : (prevR.bottom < newR.bottom ? prevR.bottom : newR.bottom),
+                   "right"  : (prevR.right  < newR.right  ? prevR.right  : newR.right),
+                };
+                var rkey = intersect.top + ";" + intersect.left + ";" + 
+                           intersect.bottom + ";" + intersect.right;
+                if (!(rkey in clipSet))
+                {
+                   clipSet[rkey] = intersect;
+ 
+                   newClip.push
+                   ({
+                      x : intersect.left,
+                      y : intersect.top,
+                      width : intersect.right - intersect.left + 1,
+                      height : intersect.bottom - intersect.top + 1
+                   });
+                }
+             }
+          }
+      }
+   }
+   else
+   {
+      newClip = area;
+   }
+   this.save({ clip : newClip });
+   this.offscreenCtx.beginPath();
+
+   for (var i = 0; i < newClip.length; i++)
+   {
+      this.offscreenCtx.rect(newClip[i].x, newClip[i].y, newClip[i].width, newClip[i].height);
+   }
+
+   this.offscreenCtx.clip();
+   /*
+   if (false)
+   {
+      // enable this code to show the clipped rectangles
+      this.offscreenCtx.beginPath();
+      var f1 = this.offscreenCtx.fillStyle;
+      var f2 = this.offscreenCtx.strokeStyle;
+      this.offscreenCtx.strokeStyle = "#FF0000";
+      for (var i = 0; i < newClip.length; i++)
+      {
+         this.offscreenCtx.rect(newClip[i].x, newClip[i].y, newClip[i].width, newClip[i].height);
+      }
+      this.offscreenCtx.stroke();
+
+      this.offscreenCtx.fillStyle = f1;
+      this.offscreenCtx.strokeStyle = f2;
+   }
+   */
+};
+
+/**
+ * Find the last clipping area.
+ * <p>
+ * If the <code>toScreen</code> flat is true, it will translate the clipping area top-left
+ * corner to absolute coordinates.  Otherwise, it will translate it to relative coordinates to
+ * the current origin, by applying all the translation operations after the clip area was set.
+ * 
+ * @param    {boolean} toScreen
+ *           Flag indicating if the return clipped rectangle needs to be translated to screen 
+ *           coordinates.
+ *
+ * @return   {Array} The last clip rectangles or undefined if no clipping area exists.
+ */
+WebGLCanvasRenderer.prototype.lastClippedRegion = function(toScreen)
+{
+   var last = this.state.length - 1;
+   var prevClip = undefined;
+   var xoffset = toScreen ? this.origin.x : 0;
+   var yoffset = toScreen ? this.origin.y : 0;
+
+   while (last >= 0)
+   {
+      var s = this.state[last];
+      if (s.clip != undefined)
+      {
+         var i = s.clip.length;
+         prevClip = Array(i);
+
+         while(i--)
+         {
+            prevClip[i] =
+               {
+                  "x"     : s.clip[i].x + xoffset,
+                  "y"     : s.clip[i].y + yoffset,
+                  "width" : s.clip[i].width,
+                  "height": s.clip[i].height
+               };
+         }
+         break;
+      }
+      
+      last = last - 1;
+   }
+
+   return prevClip;
+};
+
+/**
+ * Calculates the intersection of the given line segment with the last clipping region.
+ * 
+ * @param    {Number} x1
+ *           X coordinate of the starting pixel to be drawn.
+ * @param    {Number} y1
+ *           Y coordinate of the starting pixel to be drawn.
+ * @param    {Number} x2
+ *           X coordinate of the ending pixel to be drawn.
+ * @param    {Number} y2
+ *           Y coordinate of the ending pixel to be drawn.
+ * 
+ * @return   {Array}
+ *           The line intersection with the last clipping region in the form of this array 
+ *           [new_x1, new_y1, new_x2, new_y2].
+ */
+WebGLCanvasRenderer.prototype.cutLine = function (x1, y1, x2, y2)
+{
+   //xa, ya xb, yb is normalized region covered this line segment
+   var xa;
+   var xb;
+   var incx = (x1 < x2);
+   if (incx)
+   {
+      xa = x1;
+      xb = x2;
+   }
+   else
+   {
+      xa = x2;
+      xb = x1;
+   }
+   var ya;
+   var yb;
+   var incy = (y1 < y2);
+   if (incy)
+   {
+      ya = y1;
+      yb = y2;
+   }
+   else
+   {
+      ya = y2;
+      yb = y1;
+   }
+   // {left : xa, top : ya, right : xb, bottom : yb}
+   var clipped = this.clipRegion(xa, ya, xb, yb);
+   if (clipped == null)
+   {
+      return null;
+   }
+
+   var result = [];
+   for (var i = 0; i < clipped.length; i++)
+   {
+      var left = clipped[i].left;
+      var top = clipped[i].top;
+      var right = clipped[i].right;
+      var bottom = clipped[i].bottom;
+
+      // check that it is vertical or horizontal
+      if ((x1 == x2) || (y1 == y2))
+      {
+         result.push([left, top, right, bottom]);
+      }
+      else
+      {
+         ya = (y1 * (x2 - xa) / (x2 - x1)) + (y2 * (xa - x1) / (x2 - x1));
+         yb = (y1 * (x2 - xb) / (x2 - x1)) + (y2 * (xb - x1) / (x2 - x1));
+         
+         if (yb <= top && ya <= top)
+         {
+            continue;
+         }
+         
+         if (ya >= bottom && yb >= bottom)
+         {
+            continue;
+         }
+         
+         if (ya >= bottom && yb <= bottom)
+         {
+            xa = (bottom*(x2-x1) + y2*x1 - y1*x2)/(y2-y1);
+            ya = bottom;
+         }
+         
+         if (ya <= bottom && yb >= bottom)
+         {
+            xb = (bottom*(x2-x1) + y2*x1 - y1*x2)/(y2-y1);
+            yb = bottom;
+         }
+         
+         if (ya >= top && yb <= top)
+         {
+            xb = (top*(x2-x1) + y2*x1 - y1*x2)/(y2-y1);
+            yb = top;
+         }
+         
+         if (ya <= top && yb >= top)
+         {
+            xa = (top*(x2-x1) + y2*x1 - y1*x2)/(y2-y1);
+            ya = top;
+         }
+         
+         result.push([xa, ya, xb, yb]);
+      }
+   }
+
+   return result.length > 0 ? result : null;
+}
+
+/**
+ * Remove the most recently added rectangle from the current clipping region. The graphics
+ * context state is popped to restore the previously used values.
+ */
+WebGLCanvasRenderer.prototype.unclip = function()
+{
+   this.restore();
+};
+
+/**
+ * Save graphics context state to the stack.
+ *
+ * @param    {Object} additional
+ *           Caller provided name/value pairs to add to the state.
+ */
+WebGLCanvasRenderer.prototype.save = function(additional)
+{
+   var cur = 
+   {
+      fillstyle     : this.offscreenCtx.fillStyle,
+      strokeStyle   : this.offscreenCtx.strokeStyle,
+      strokeStyleId : this.strokeStyleId,
+      strokeWidth   : this.strokeWidth,
+      compositeModeOn : this.compositeModeOn
+   };
+   
+   if (additional)
+   {
+      for (var prop in additional)
+      {
+         if (additional.hasOwnProperty(prop))
+         {
+            cur[prop] = additional[prop];
+         }
+      }
+   }
+   
+   this.state.push(cur);
+   
+   // now force the context to push its state internally (only the context itself can save off
+   // its accumulated clip region and its cumulative transforms)
+   this.offscreenCtx.save();
+};
+
+/**
+ * Restore the graphics context state to the state as stored on the top of the stack.
+ * <p>
+ * The state in our own custom state stack is not actually used for the restore, instead the
+ * context's internal stack is used (ctx.restore()).  Our stack is used for other purposes
+ * and we simply clear it here.
+ */
+WebGLCanvasRenderer.prototype.restore = function()
+{
+   this.state.pop();
+   this.offscreenCtx.restore();
+};
+
+/**
+ * Obtain the graphics context state as stored on the top of the stack.
+ *
+ * @return   The top of state stack object.
+ */
+WebGLCanvasRenderer.prototype.peek = function()
+{
+   var last = this.state.length - 1;
+   
+   return last >= 0 ? this.state[last] : {};
+};
+
+/**
+ * Replay the saved graphics context state back into a newly reset graphics context. This
+ * should only be used after a canvas resize operation.
+ */
+WebGLCanvasRenderer.prototype.replay = function(saveContext)
+{
+   var len = this.state.length;
+
+   for (var i = 0; i < len; i++)
+   {
+      if (saveContext)
+      {
+         this.offscreenCtx.save();
+      }
+
+      var next = this.state[i];
+      
+      this.offscreenCtx.fillstyle   = next.fillStyle;
+      this.offscreenCtx.strokeStyle = next.strokeStyle;
+      this.setLineStroke(next.strokeStyleId, next.strokeWidth);
+      this.compositeModeOn = next.compositeModeOn;
+      var x;
+      var y;
+      var width;
+      var height;
+      
+      if (next.translate)
+      {
+         x = next.translate.x;
+         y = next.translate.y;
+         
+         // don't call the this.translate() method here because it modifies the stack that
+         // we are simply trying to replay; we don't want the stack to be modified
+         try
+         {
+            this.offscreenCtx.translate(x, y);
+         }
+         catch(ex)
+         {
+            console.log("this.offscreenCtx.translate(x=" + x + ", y=" + y + ")");
+            console.log(ex);
+            console.log(ex.stack);
+         }
+      }
+   
+      if (next.clip)
+      {
+         x      = next.clip.x;
+         y      = next.clip.y;
+         width  = next.clip.width;
+         height = next.clip.height;                               
+                                                                  
+         // don't call the this.translate() method here because it modifies the stack that
+         // we are simply trying to replay; we don't want the stack to be modified
+         this.offscreenCtx.beginPath();
+         this.offscreenCtx.rect(x, y, width, height);
+         this.offscreenCtx.clip();
+      }
+   }
+};
+
+/**
+ * Untranslate the graphics context by the given X and Y factors. This does a restore on
+ * the previously saved context state.  It will error out if some sanity checks don't pass.
+ * Make sure that calls to this function are always properly paired with equal and opposite
+ * calls to translate().
+ *
+ * @param    {Number} x
+ *           X dimension factor.
+ * @param    {Number} y
+ *           Y dimension factor.
+ */
+WebGLCanvasRenderer.prototype.untranslate = function(x, y)
+{
+   var top = this.peek();
+   
+   if (top.translate)
+   {
+      if (top.translate.x === -x && top.translate.y === -y)
+      {
+         // clear our state back to the version that doesn't have this translate
+         this.restore();
+         
+         this.adjustOrigin(x, y);
+      }
+      else
+      {
+         this.logger.error("Mismatching translate pop values, expected (" +
+                  top.translate.x.toString() + ", " + top.translate.y.toString() +
+                  ") and found " + x.toString() + ", " + y.toString() + ").");
+      }
+   }
+   else
+   {
+      this.logger.error("Out of order translate pop!");
+   }
+};
+
+/**
+ * Resize the canvas to the given width and height.
+ *
+ * @param    {Number} width
+ *           The new canvas width in pixels.
+ * @param    {Number} height
+ *           The new canvas height in pixels.
+ */
+WebGLCanvasRenderer.prototype.resize = function(width, height)
+{
+   if (!width || !height)
+   {
+      return;
+   }
+
+   if (this.offscreenCanvas.width != width || this.offscreenCanvas.height != height)
+   {
+      // save off the previously drawn content
+      var oldPixels;
+      if (this.offscreenCanvas.width > 0 && this.offscreenCanvas.height > 0)
+      {
+         oldPixels = this.offscreenCtx.getImageData(0, 0, this.offscreenCanvas.width, this.offscreenCanvas.height);
+      }
+
+      // this is expensive, but we really do need to change the overall size of the canvas
+      this.offscreenCanvas.width = width;
+      this.offscreenCanvas.height = height;
+
+      // all of the current state including colors, line stroke, translation and clipping
+      // must be reapplied to the context because changing the size resets everything
+      this.replay();
+
+      // re-blit the previously drawn content
+      if (oldPixels)
+      {
+         this.putImageData(oldPixels, 0, 0);
+      }
+   }
+
+   var glCanvasDiff = p2j.screen.webgl.canvas.width != width || p2j.screen.webgl.canvas.height != height;
+
+   if (glCanvasDiff)
+   {
+      p2j.screen.webgl.canvas.width = width;
+      p2j.screen.webgl.canvas.height = height;
+      p2j.screen.webgl.gl.viewport(0, 0, width, height);
+      p2j.screen.webgl.gl.uniform2f(p2j.screen.webgl.glResolutionUniformLocation, width, height);
+   }
+
+   if (!this.cacheTextureData || glCanvasDiff)
+   {
+      this.cacheTextureData = new Uint8ClampedArray(width * height * 4);
+      this.imageTextureData = new Uint8ClampedArray(width * height * 4);
+   }
+};
+
+/**
+ * Translate the graphics context by the given X and Y factors.  This will also save the state
+ * of the context before the translate is applied, so that the translate values can be
+ * reversed later.
+ *
+ * @param    {Number} x
+ *           X dimension factor.
+ * @param    {Number} y
+ *           Y dimension factor.
+ */
+WebGLCanvasRenderer.prototype.translate = function(x, y)
+{
+   this.save({ translate : { "x" : x, "y" : y } });
+   
+   this.adjustOrigin(x, y);
+   try
+   {
+      this.offscreenCtx.translate(x, y);
+   }
+   catch(ex)
+   {
+      console.log("this.offscreenCtx.translate(x=" + x + ", y=" + y + ")");
+      console.log(ex);
+      console.log(ex.stack);
+   }
+};
+
+/**
+ * Draws a given text at the given (x,y) position.
+ * 
+ * @param    {Number} text
+ *           The text to draw.
+ * @param    {Number} x
+ *           The X-axis of the coordinate for the text starting point.
+ * @param    {Number} y
+ *           The Y-axis of the coordinate for the text starting point or the height
+ *           of the text rectangle from the most top screen position.
+ * @param    {Boolean} centered
+ *           Defines the text base line and the interpretation of y.
+ *           If it is true, the text base line is set to 'middle' and interprets y as a height,
+ *           otherwise the text base line is set to 'bottom'.
+ */
+WebGLCanvasRenderer.prototype.drawText = function(text, x, y, centered)
+{
+   var textObj = {};
+
+   if (centered)
+   {
+      // in this case, the "y" is the height in which it needs to be vertically centered
+      textObj.textBaseline = 'middle';
+      y += 2;
+   }
+   else
+   {
+      textObj.textBaseline = 'alphabetic'; // matches the Swing's baseline
+   }
+
+   var screenX = x + this.origin.x;
+   var screenY = y + this.origin.y;
+
+   textObj.font = p2j.screen.getCurrentFont();
+   textObj.text = text;
+   textObj.x = screenX;
+   textObj.y = screenY;
+   textObj.fillStyle = this.offscreenCtx.fillStyle;
+   textObj.strokeStyle = this.offscreenCtx.strokeStyle;
+   textObj.clips = this.lastClippedRegion(true);
+
+   if (this.fontsManager.isUnderlined(textObj.font))
+   {
+      // if the style is underline, draw a line under the text
+      var txtHeight = this.fontsManager.getTextHeight(textObj.font, text);
+      var textWidth = this.fontsManager.getTextWidth(textObj.font, text);
+
+      var x1 = x;
+      var x2 = x + textWidth;
+      if (centered)
+      {
+         y = y + Math.round(txtHeight / 2) - Math.round(txtHeight / 6);
+      }
+
+      this.strokeLineSegment(x1, y, x2, y, this.rawColor);
+   }
+
+   this.texts.push(textObj);
+}
+
+WebGLCanvasRenderer.prototype.flashTexts = function(ctx)
+{
+   /*start debug*/
+   //   var txtHeight = this.fontsManager.getTextHeight(cfont, text);
+   //   var textWidth = this.fontsManager.getTextWidth(cfont, text);
+   //   
+   //   if (centered)
+   //   {
+   //      this.drawRect(x, y - txtHeight / 2, textWidth, txtHeight, new Array(255, 255, 0), false);
+   //   }
+   //   else 
+   //   {
+   //      this.drawRect(x, y - 3 * txtHeight / 4, textWidth, txtHeight, new Array(0, 255, 0), false);
+   //   }
+   /*end debug*/
+
+   if (this.texts.length == 0)
+   {
+      return;
+   }
+
+   var font = undefined;
+   var fname = undefined;
+
+   // apply the invisibility mask
+   var screenRect = [0, 0, this.offscreenCanvas.height - 1, this.offscreenCanvas.width - 1];
+   for (var i = this.texts.length - 1; i >= 0; i--)
+   {
+      var textObj = this.texts[i];
+      if (textObj.mask)
+      {
+         ctx.save();
+         ctx.beginPath();
+         this.invalidationRectangle.invert(screenRect, textObj.mask).forEach( r =>
+         {
+            var top = r[0];
+            var left = r[1];
+            var bottom = r[2];
+            var right = r[3];
+            ctx.rect(left, top, right - left + 1, bottom - top + 1);
+         });
+         ctx.clip();
+      }
+   }
+
+   // process all text objects
+   for (var i = 0; i < this.texts.length; i++)
+   {
+      ctx.save();
+
+      var textObj = this.texts[i];
+
+      if (font != textObj.font)
+      {
+         font = textObj.font;
+         fname = p2j.fonts.getFontName(font);
+      }
+
+      ctx.font = fname;
+      ctx.fillStyle = textObj.fillStyle;
+      ctx.strokeStyle = textObj.strokeStyle;
+      ctx.textBaseline = textObj.textBaseline;
+
+      var clips = textObj.clips;
+      if (clips)
+      {
+         ctx.beginPath();
+         for (var j = 0; j < clips.length; j++)
+         {
+            var clip = clips[j];
+            ctx.rect(clip.x, clip.y, clip.width, clip.height);
+         }
+         ctx.clip();
+      }
+
+      ctx.fillText(textObj.text, textObj.x, textObj.y);
+      ctx.restore();
+
+      if (textObj.mask)
+      {
+         ctx.restore();
+      }
+   }
+
+   this.texts = [];
+}
+
+/**
+ * Draws a given text at the given (x,y) position fitted to the given text rectangle.
+ * 
+ * @param    {Number} currentFont
+ *           The current font ID, in the js font-table.
+ * @param    {Number} text
+ *           The text to draw.
+ * @param    {Number} x
+ *           The X-axis of the coordinate for the text starting point.
+ * @param    {Number} y
+ *           The Y-axis of the coordinate for the text starting point or the height
+ *           of the text rectangle from the most top screen position.
+ * @param    {Boolean} centered
+ *           Defines the text base line and the interpretation of y.
+ *           If it is true, the text base line is set to 'middle' and interprets y as a height,
+ *           otherwise the text base line is set to 'bottom'.
+ * @param    {Number} lwidth
+ *           The space width to be used to display the given text.
+ *           The text is scaled to fit this width, squeezed or extended
+ * @param    {Number} lheight
+ *           The space height to be used to display the given text.
+ *           The text is scaled to fit this height, squeezed or extended.
+ */
+WebGLCanvasRenderer.prototype.drawScaledText = function(currentFont, text, x, y, centered, lwidth, lheight)
+{
+   var textWidth = this.fontsManager.getTextWidth(currentFont, text);
+   var textHeight = this.fontsManager.getTextHeight(currentFont, text);
+
+   var widthScale = lwidth / textWidth;
+   var heightScale = lheight / textHeight;
+
+   // scale drawing context to computed width
+   // this scales the desired structure.x as well so it needs adjusting
+   this.offscreenCtx.save();
+   this.offscreenCtx.scale(widthScale, heightScale);
+
+   var scaleBackWidth = 1 / widthScale;
+   var scaleBackHeight = 1 / heightScale;
+
+   if (centered)
+   {
+      // in this case, the "y" is the height in which it needs to be vertically centered
+      y = y / 2;
+
+      this.offscreenCtx.textBaseline = 'middle';
+   }
+   else
+   {
+      this.offscreenCtx.textBaseline = 'bottom';
+   }
+
+   var tm = this.offscreenCtx.measureText(text);
+   var tx = x * scaleBackWidth;
+   var ty = y * scaleBackHeight - tm.actualBoundingBoxAscent;
+   var twidth = tm.width;
+   var theight = tm.actualBoundingBoxAscent + tm.actualBoundingBoxDescent;
+
+   this.offscreenCtx.fillText(text, x * scaleBackWidth, y * scaleBackHeight);
+   this.offscreenCtx.restore();
+
+   var txtImg = this.offscreenCtx.getImageData(this.origin.x + tx, this.origin.y + ty, twidth, theight);
+   this.drawImage(tx, ty, txtImg.width, txtImg.height, txtImg.data);
+}
+
+/**
+ * Draw one or more edges of rectangle.
+ * 
+ * See {@link GuiDriver#drawEdge(int, int, int, int, int, int)} for details.
+ *
+ * @param    {Number} left
+ *           The rectangle left side coordinate.
+ * @param    {Number} top
+ *           The rectangle top side coordinate.
+ * @param    {Number} width
+ *           The rectangle width.
+ * @param    {Number} height
+ *           The rectangle height.
+ * @param    {Number} edgeType
+ *           Flags defining the edge type (flat, bevelled etc.)
+ * @param    {Number} flags
+ *           Flags defining which rectangle edges to draw
+ *           (left, top, right, bottom)
+ */
+WebGLCanvasRenderer.prototype.drawEdge = (function() {
+   "use strict";
+   const BF_LEFT         = 0x0001;
+   const BF_TOP          = 0x0002;
+   const BF_RIGHT        = 0x0004;
+   const BF_BOTTOM       = 0x0008;
+   const BF_FLAT         = 0x4000;
+
+   /* 3D border styles */
+   const BDR_RAISEDOUTER = 0x0001;
+   const BDR_SUNKENOUTER = 0x0002;
+   const BDR_RAISEDINNER = 0x0004;
+   const BDR_SUNKENINNER = 0x0008;
+
+   const COLOR_INDEX_MASK = BDR_RAISEDOUTER | BDR_SUNKENOUTER | BDR_RAISEDINNER | BDR_SUNKENINNER;
+
+   const clBtnHighlight = [255,255,255];   // white
+   const cl3DDkShadow   = [64, 64, 64];    // darkGray
+   const cl3DLight      = [212, 208, 200];
+   const clBtnShadow    = [128, 128, 128]; // gray
+   const clBtnFace      = [212, 208, 200];
+
+   const LEFTTOP_INNER_NORMAL_COLORS = [
+      false, false, false, false, false,
+      clBtnHighlight, clBtnHighlight, false, false, cl3DDkShadow,
+      cl3DDkShadow, false, false,
+      false, false, false ];
+
+   const LEFTTOP_OUTER_NORMAL_COLORS = [
+      false, cl3DLight, clBtnShadow,
+      false, clBtnHighlight, cl3DLight, clBtnShadow, false, cl3DDkShadow,
+      cl3DLight, clBtnShadow, false, false, cl3DLight, clBtnShadow, false ];
+   
+   const RIGHTBOTTOM_INNER_NORMAL_COLORS = [
+      false, false, false, false, false,
+      clBtnShadow, clBtnShadow, false, false, cl3DLight, cl3DLight,
+      false, false, false, false,
+      false ];
+
+   const RIGHTBOTTOM_OUTER_NORMAL_COLORS = [
+      false, cl3DDkShadow,
+      clBtnHighlight, false, clBtnShadow, cl3DDkShadow, clBtnHighlight, false, cl3DLight,
+      cl3DDkShadow, clBtnHighlight, false, false, cl3DDkShadow, clBtnHighlight, false ];
+
+   const LEFTTOP_RIGHTBOTTOM_OUTER_FLAT_COLORS = [
+      false, clBtnShadow,
+      clBtnShadow, clBtnShadow, clBtnFace, clBtnShadow, clBtnShadow, clBtnShadow, clBtnFace,
+      clBtnShadow, clBtnShadow, clBtnShadow, clBtnFace, clBtnShadow, clBtnShadow,
+      clBtnShadow ];
+
+   const LEFTTOP_RIGHTBOTTOM_INNER_FLAT_COLORS = [
+      false, false, false, false,
+      false, clBtnFace, clBtnFace, clBtnFace, false, clBtnFace, clBtnFace, clBtnFace, false,
+      clBtnFace, clBtnFace, clBtnFace ];
+
+   return function(left, top, width, height, edgeType, flags)
+   {
+      var flat = (flags & BF_FLAT) != 0;
+      var leftTopInnerColor;
+      var leftTopOuterColor;
+      var rightBottomInnerColor;
+      var rightBottomOuterColor;
+
+      var colorIndex = edgeType & COLOR_INDEX_MASK;
+
+      var topEdge = (flags & BF_TOP) != 0;
+      var leftEdge = (flags & BF_LEFT) != 0;
+      var bottomEdge = (flags & BF_BOTTOM) != 0;
+      var rightEdge = (flags & BF_RIGHT) != 0;
+
+      var lbiOffset = (bottomEdge && leftEdge) ? 1 : 0;
+      var ltiOffset = (topEdge && leftEdge) ? 1 : 0;
+      var rtiOffset = (topEdge && rightEdge) ? 1 : 0;
+      var rbiOffset = (bottomEdge && rightEdge) ? 1 : 0;
+
+      var right = left + width - 1;
+      var bottom = top + height - 1;
+
+      /* Determine the colors of the edges */
+      if (flat)
+      {
+         leftTopInnerColor = rightBottomInnerColor = LEFTTOP_RIGHTBOTTOM_INNER_FLAT_COLORS[colorIndex];
+         leftTopOuterColor = rightBottomOuterColor = LEFTTOP_RIGHTBOTTOM_OUTER_FLAT_COLORS[colorIndex];
+
+         if (leftTopInnerColor)
+         {
+            leftTopInnerColor = rightBottomInnerColor = clBtnFace;
+         }
+      }
+      else
+      {
+         leftTopInnerColor = LEFTTOP_INNER_NORMAL_COLORS[colorIndex];
+         leftTopOuterColor = LEFTTOP_OUTER_NORMAL_COLORS[colorIndex];
+         rightBottomInnerColor = RIGHTBOTTOM_INNER_NORMAL_COLORS[colorIndex];
+         rightBottomOuterColor = RIGHTBOTTOM_OUTER_NORMAL_COLORS[colorIndex];
+      }
+
+      /* Draw the outer edge */
+      if (leftTopOuterColor)
+      {
+         if (topEdge)
+         {
+            this.drawLine(left, top, right, top, leftTopOuterColor);
+         }
+
+         if (leftEdge)
+         {
+            this.drawLine(left, top, left, bottom, leftTopOuterColor);
+         }
+      }
+
+      if (rightBottomOuterColor)
+      {
+         if (bottomEdge)
+         {
+            this.drawLine(left, bottom, right, bottom, rightBottomOuterColor);
+         }
+
+         if (rightEdge)
+         {
+            this.drawLine(right, top, right, bottom, rightBottomOuterColor);
+         }
+      }
+
+      if (leftTopInnerColor)
+      {
+         if (topEdge)
+         {
+            this.drawLine(left + ltiOffset, top + 1, right - rtiOffset, top + 1, leftTopInnerColor);
+         }
+
+         if (leftEdge)
+         {
+            this.drawLine(left + 1, top + ltiOffset, left + 1, bottom - lbiOffset, leftTopInnerColor);
+         }
+      }
+
+      if (rightBottomInnerColor)
+      {
+         if (bottomEdge)
+         {
+            this.drawLine(left + lbiOffset, bottom - 1, right - rbiOffset, bottom - 1, rightBottomInnerColor);
+         }
+
+         if (rightEdge)
+         {
+            this.drawLine(right - 1, top + rtiOffset, right - 1, bottom - rbiOffset, rightBottomInnerColor);
+         }
+      }      
+};
+})();
+
+/**
+ * Pushes triangle coordinates with colors and other metadata.
+ * <p>
+ * The pushed coordinates are exclusive. When pushing coordinates for a square with size of 1 pixel, for example, the
+ * lower right vertex must be 1 pixel greater than the top left vertex.
+ *
+ * @param   {Array} triangles
+ *          Array of triangles.
+ */
+WebGLCanvasRenderer.prototype.pushTriangles = function(triangles)
+{
+   if (!triangles)
+   {
+      return;
+   }
+
+   for (var i = 0; i < triangles.length; i++)
+   {
+      this.triangles.push(triangles[i]);
+   }
+}
+
+WebGLCanvasRenderer.prototype.saveCaches = function()
+{
+   if (this.recordings.length == 0)
+   {
+      return;
+   }
+
+   var cwidth = p2j.screen.webgl.gl.drawingBufferWidth;
+   var cheight = p2j.screen.webgl.gl.drawingBufferHeight;
+
+   // call readPixels only once, this operation is expensive, it waits for data from GPU
+   var imgData = this.readPixels(0, 0, cwidth, cheight);
+
+   // debug
+   // var imgData2 = new Uint8Array(cwidth * cheight * 4);
+   // for (var i  = 0; i < cheight; i++)
+   // {
+   //    imgData2.set(imgData.subarray((cheight - i) * cwidth * 4, cwidth * 4), i * rec.width * 4);
+   // }
+
+   while (this.recordings.length > 0)
+   {
+      var rec = this.recordings.pop();
+      var recImgData = new Uint8Array(rec.width * rec.height * 4);
+
+      for (var j = 0; j < rec.height; j++)
+      {
+         var srcOffset = (cheight - rec.y - j - 1) * cwidth + rec.x;
+         recImgData.set(imgData.subarray(srcOffset * 4, srcOffset * 4 + rec.width * 4), j * rec.width * 4);
+      }
+
+      // debug
+      // for (var i = 0; i < recImgData.length; i += 4)
+      // {
+      //    recImgData[i] = 100;
+      //    recImgData[i + 1] = 200;
+      //    recImgData[i + 2] = 10;
+      //    recImgData[i + 3] = 255;
+      // }
+
+      var cachedObj = {data: recImgData, width: rec.width, height: rec.height};
+      p2j.screen.globalCache[rec.md5] = cachedObj;
+   }
+}
+
+WebGLCanvasRenderer.prototype.readPixels = function(x, y, width, height)
+{
+   if (this.triangles.length > 0)
+   {
+      this.flash();
+   }
+
+   var data = new Uint8Array(width * height * 4);
+   p2j.screen.webgl.gl.readPixels(x, y, width, height, p2j.screen.webgl.gl.RGBA, p2j.screen.webgl.gl.UNSIGNED_BYTE, data);
+   return data;
+}
+
+WebGLCanvasRenderer.prototype.notifyWindowDrawStart = function(numOps)
+{
+   this.resize(this.screenCanvas.width, this.screenCanvas.height);
+}
+
+WebGLCanvasRenderer.prototype.invalidateTriangles = function(triangles)
+{
+   if (!triangles || triangles.length == 0)
+   {
+      return;
+   }
+
+   var minX = Number.MAX_SAFE_INTEGER;
+   var minY = Number.MAX_SAFE_INTEGER;
+   var maxX = Number.MIN_SAFE_INTEGER;
+   var maxY = Number.MIN_SAFE_INTEGER;
+
+   for (var i = 0; i < triangles.length; i++)
+   {
+      var t = triangles[i];
+      minX = Math.min(minX, t[0]);
+      minY = Math.min(minY, t[1]);
+      minX = Math.min(minX, t[2]);
+      minY = Math.min(minY, t[3]);
+      minX = Math.min(minX, t[4]);
+      minY = Math.min(minY, t[5]);
+      maxX = Math.max(maxX, t[0]);
+      maxY = Math.max(maxY, t[1]);
+      maxX = Math.max(maxX, t[2]);
+      maxY = Math.max(maxY, t[3]);
+      maxX = Math.max(maxX, t[4]);
+      maxY = Math.max(maxY, t[5]);
+   }
+
+   // triangle coordinates are exclusive
+}
+
+WebGLCanvasRenderer.prototype.invalidate = function(top, left, bottom, right)
+{
+   this.invalidationRectangle.inflate(top, left, bottom, right);
+   if (this.texts.length > 0)
+   {
+      var t = this.texts[this.texts.length - 1];
+      if (!t.mask)
+      {
+         t.mask = [];
+      }
+
+      t.mask.push([top, left, bottom, right]);
+   }
+}
+
+
+function Rectangle()
+{
+   this.bounds = null;
+}
+
+Rectangle.prototype.getBounds = function()
+{
+   return this.bounds;
+}
+
+Rectangle.prototype.inflate = function(top, left, bottom, right)
+{
+   if (!this.bounds)
+   {
+      this.bounds = [top, left, bottom, right];
+   }
+   else
+   {
+      this.bounds[0] = Math.min(this.bounds[0], top);
+      this.bounds[1] = Math.min(this.bounds[1], left);
+      this.bounds[2] = Math.max(this.bounds[2], bottom);
+      this.bounds[3] = Math.max(this.bounds[3], right);
+   }
+}
+
+Rectangle.prototype.reset = function()
+{
+   this.bounds = null;
+}
+
+Rectangle.prototype.isEmpty = function(bounds)
+{
+   var top = bounds[0];
+   var left = bounds[1];
+   var bottom = bounds[2];
+   var right = bounds[3];
+
+   return top > bottom || right < left;
+}
+
+Rectangle.prototype.intersection = function(rect1, rect2)
+{
+   if (this.isEmpty(rect1) || this.isEmpty(rect2))
+   {
+      return null;
+   }
+
+   var top = rect1[0];
+   var left = rect1[1];
+   var bottom = rect1[2];
+   var right = rect1[3];
+
+   var rtop = rect2[0];
+   var rleft = rect2[1];
+   var rbottom = rect2[2];
+   var rright = rect2[3];
+
+   if (top > rbottom)
+      return null;
+   if (bottom < rtop)
+      return null;
+   if (left > rright)
+      return null;
+   if (right < rleft)
+      return null;
+
+   return [top > rtop       ? top    : rtop,
+           left > rleft     ? left   : rleft,
+           bottom < rbottom ? bottom : rbottom,
+           right < rright   ? right  : rright];
+}
+
+Rectangle.prototype.difference = function(rect1, rect2)
+{
+   var res = [];
+
+   var rect = this.intersection(rect1, rect2);
+   if (!rect)
+   {
+      // nothing to remove, return rect1
+      res.push(rect1);
+      return res;
+   }
+
+   // at this point, is just a matter of removing the intersection
+
+   var top = rect1[0];
+   var left = rect1[1];
+   var bottom = rect1[2];
+   var right = rect1[3];
+
+   var rtop = rect[0];
+   var rleft = rect[1];
+   var rbottom = rect[2];
+   var rright = rect[3];
+
+   if (rtop - 1 >= top)
+   {
+      // rectangle found above the intersection
+      res.push([top, left, rtop - 1, right]);
+   }
+
+   if (rbottom + 1 <= bottom)
+   {
+      // rectangle found bellow the intersection
+      res.push([rbottom + 1, left, bottom, right]);
+   }
+
+   if (rleft - 1 >= left)
+   {
+      // rectangle found on the left-side of the intersection
+      res.push([rtop, left, rbottom, rleft - 1]);
+   }
+
+   if (rright + 1 <= right)
+   {
+      // rectangle found on the right-side of the intersection
+      res.push([rtop, rright + 1, rbottom, right]);
+   }
+
+   return res;
+}
+
+Rectangle.prototype.invert = function(boundingRect, rectangles)
+{
+   var output = [boundingRect];
+   var _this = this;
+
+   rectangles.forEach(r =>
+   {
+      output = output.flatMap(or => _this.difference(or, r));
+   });
+
+   return output;
+}

=== added file 'src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.perf_tests.js'
--- src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.perf_tests.js	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.perf_tests.js	2021-01-21 20:13:02 +0000
@@ -0,0 +1,1643 @@
+/*
+** Module   : p2j.perf_tests.js
+** Abstract : Measure performance counters for drawings
+**
+** Copyright (c) 2020-2021, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ------------------------------Description----------------------------------
+** 001 SBI 20201014 The module to measure performance counters for drawings.
+**         20210121 Cleaned the code.
+*/
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+"use strict";
+
+/**
+ * Defines performance tests for drawings.
+ */
+p2j.perfTests = (function ()
+{
+
+/** The container for protected shared variables */
+   var me = {};
+   
+   var that = {};
+   
+   function clear()
+   {
+      me.ctx.setTransform(1,0,0,1,0,0);
+      me.ctx.clearRect(0, 0, me.width, me.height);
+      me.offscreenContext.setTransform(1,0,0,1,0,0);
+      me.offscreenContext.clearRect(0, 0, me.width, me.height);
+      
+      me.canvasRenderer.clear();
+      me.canvasRenderer.flash();
+      me.glCanvasRenderer.clear();
+      me.glCanvasRenderer.flash();
+      var color = [0, 0, 0];
+      me.canvasRenderer.drawRect(1, 1, me.width - 2, me.height - 2, color, false);
+      me.canvasRenderer.flash();
+
+      if (me.glCanvasRenderer.gl)
+      {
+         me.glCanvasRenderer.gl.viewport(0, 0, me.glCanvasRenderer.gl.canvas.width, me.glCanvasRenderer.gl.canvas.height);
+         // Clear the canvas.
+         me.glCanvasRenderer.gl.clear(me.glCanvasRenderer.gl.COLOR_BUFFER_BIT);
+      }
+   };
+
+   function restoreLineStyle()
+   {
+      //restore line style
+      me.strokeStyle = 0;
+      me.glCanvasRenderer.setLineStroke(me.strokeStyle, 1);
+      me.canvasRenderer.setLineStroke(me.strokeStyle, 1);
+      me.strokesManager.applyStrokeToCanvas(me.ctx, me.strokeStyle, 1);
+   }
+
+   function init()
+   {
+      /** The off screen canvas to be used to make batch drawing. */
+      me.offscreenCanvas = p2j.createOffscreenCanvas();
+      
+      me.offscreenContext = me.offscreenCanvas.getContext('2d', {alpha : true});
+
+      p2j.setImageSmoothing(me.offscreenContext, false);
+
+      /** Canvas 2D graphics context. */
+      me.ctx = me.canvas.getContext('2d', {alpha : true});
+
+      p2j.setImageSmoothing(me.ctx, false);
+      
+      me.strokesManager = new LineStrokes();
+      
+      /** Creates canvas renderer. */
+      me.canvasRenderer = new CanvasRenderer(me.offscreenCanvas, me.offscreenContext,
+                                             me.canvas, me.strokesManager, p2j.fonts, p2j.logger);
+      me.canvasRenderer.resize(me.width, me.height);
+      
+      me.canvasRenderer.setLineStroke(me.strokeStyle, me.strokeWidth);
+      me.strokesManager.applyStrokeToCanvas(me.ctx, me.strokeStyle, me.strokeWidth);
+      
+      
+      me.glCanvasRenderer = new WebGLCanvasRenderer(me.offscreenCanvas, me.offscreenContext,
+            me.canvas, me.strokesManager, p2j.fonts, p2j.logger);
+      me.glCanvasRenderer.resize(me.width, me.height);
+      
+      clear();
+      
+   }
+
+   function drawPrimitivesTest()
+   {
+      clear();
+      var x1 = 100;
+      var y1 = 20;
+      var x2 = 300;
+      var y2 = 200;
+      var black = [0, 0, 0];
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 5, 1);//set style
+      me.canvasRenderer.setLineStroke(5, 1);
+      me.glCanvasRenderer.setLineStroke(5, 1);
+      me.glCanvasRenderer.drawLine(x1, y1, x2, y1, [255, 0, 0]);
+      me.glCanvasRenderer.drawText("Abnormal End", (x1+x2)/2, (y1 + y2)/2, false);
+      me.glCanvasRenderer.drawLine(x2, y1, x2, y2, [0, 255, 0]);
+      me.glCanvasRenderer.drawLine(x1, y2, x2, y2, [0, 0, 255]);
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 3, 1);//set style
+      me.canvasRenderer.setLineStroke(3, 1);
+      me.glCanvasRenderer.setLineStroke(3, 1);
+      me.glCanvasRenderer.drawLine(x1, y2, x1, y1, [0, 0, 0]);
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 1);//set style
+      me.canvasRenderer.setLineStroke(0, 1);
+      me.glCanvasRenderer.setLineStroke(0, 1);
+      me.glCanvasRenderer.drawLine(x1, y1, x2, y2, [0, 0, 0]);
+      //restore line style
+      restoreLineStyle();
+      const t0 = performance.now();
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 1);//set style
+      me.canvasRenderer.setLineStroke(1, 1);
+      me.glCanvasRenderer.setLineStroke(1, 1);
+      var color = [255, 0, 0];
+      me.glCanvasRenderer.strokeEllipse(350, 5, 50, 30, [0, 255, 0], true);
+      me.glCanvasRenderer.strokeEllipse(400, 20, 100, 60, [0, 255, 0], true);
+      me.glCanvasRenderer.strokeEllipse(500, 40, 200, 120, [0, 255, 0], true);
+      
+      me.glCanvasRenderer.strokeEllipse(350, 40, 50, 30, color, false);
+      me.glCanvasRenderer.strokeEllipse(380, 80, 100, 60, color, false);
+      me.glCanvasRenderer.strokeEllipse(450, 150, 200, 120, color, false);
+      
+      me.glCanvasRenderer.draw3DRect(10, 340, 100, 60, [0, 255, 0], true, false);
+      me.glCanvasRenderer.draw3DRect(140, 340, 100, 60, [0, 0, 255], true, true);
+      
+      me.glCanvasRenderer.drawRoundRect(245, 340, 100, 60, 20, [255, 127, 63], false);
+      
+      me.glCanvasRenderer.drawRoundRect(350, 340, 100, 60, 20, [255, 127, 63], true);
+      
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 2);
+      me.canvasRenderer.setLineStroke(1, 2);
+      me.glCanvasRenderer.setLineStroke(1, 2);
+      me.glCanvasRenderer.strokeEllipse(500, 110, 50, 30, color, false);
+      me.glCanvasRenderer.strokeEllipse(550, 130, 100, 60, color, false);
+      me.glCanvasRenderer.strokeEllipse(630, 170, 200, 120, color, false);
+      
+      me.glCanvasRenderer.draw3DRect(540, 340, 100, 60, [0, 255, 0], false, false);
+      me.glCanvasRenderer.draw3DRect(650, 340, 100, 60, [0, 0, 255], false, true);
+      
+      me.glCanvasRenderer.strokeRect(10, 500, 100, 60, [0, 255, 0], false);
+      me.glCanvasRenderer.strokeRect(140, 500, 100, 60, [0, 0, 255], true);
+      
+      var num = 7;
+      var ang = 2 * Math.PI / num;
+      var fi = Math.PI / 13;
+      var xc = 350;
+      var yc = 500;
+      var R = 100;
+      var xPoints = [];
+      var yPoints = [];
+      for (var i = 0; i < num; i++)
+      {
+         xPoints.push(xc + R*Math.cos(i*ang + fi));
+         yPoints.push(yc + R*Math.sin(i*ang + fi));
+      }
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 3);
+      me.canvasRenderer.setLineStroke(1, 3);
+      me.glCanvasRenderer.setLineStroke(1, 3);
+      
+      me.glCanvasRenderer.drawPolygon(xPoints, yPoints, num, color, false);
+      
+      xPoints = [];
+      yPoints = [];
+      fi = 3*Math.PI / 13;
+      for (var i = 0; i < num; i++)
+      {
+         xPoints.push(xc + R*Math.cos(i*ang + fi));
+         yPoints.push(yc + R*Math.sin(i*ang + fi));
+      }
+      me.glCanvasRenderer.drawPolygon(xPoints, yPoints, num, color, false);
+
+      num = 11;
+      ang = 2 * Math.PI / num;
+      fi = Math.PI / 13;
+      xc = 560;
+      yc = 500;
+      R = 90;
+      xPoints = [];
+      yPoints = [];
+      for (var i = 0; i < num; i++)
+      {
+         xPoints.push(xc + R*Math.cos(i*ang + fi));
+         yPoints.push(yc + R*Math.sin(i*ang + fi));
+      }
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 3);
+      me.canvasRenderer.setLineStroke(1, 3);
+      me.glCanvasRenderer.setLineStroke(1, 3);
+      
+      var clipRegions = [{x: 560, y: 500, width: 101, height: 201}, {x: 560, y: 400, width: 101, height: 90}];
+      me.glCanvasRenderer.clip(clipRegions);
+      me.glCanvasRenderer.drawPolygon(xPoints, yPoints, num, [255, 127, 63], true);
+      me.glCanvasRenderer.unclip();
+      
+      
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 30);
+      me.canvasRenderer.setLineStroke(1, 30);
+      me.glCanvasRenderer.setLineStroke(1, 30);
+      
+      me.glCanvasRenderer.drawPolygon([40, 80, 160], [195, 290, 310], 3, color, false);
+      
+      me.glCanvasRenderer.flash();
+      const t1 = performance.now();
+      append("WebGL Primitives Drawing Test finished in", t1-t0);
+
+      //restore line style
+      restoreLineStyle();
+
+      
+   }
+   
+   function drawPrimitivesTest2()
+   {
+      clear();
+      //restore line style
+      restoreLineStyle();
+      const t0 = performance.now();
+
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 0, 1);//set style
+      me.canvasRenderer.setLineStroke(0, 1);
+      me.glCanvasRenderer.setLineStroke(0, 1);
+      
+      me.glCanvasRenderer.draw3DRect(10, 10, 100, 60, [0, 255, 0], true, false);
+      me.glCanvasRenderer.draw3DRect(140, 10, 100, 60, [0, 0, 255], true, true);
+      
+      me.glCanvasRenderer.draw3DRect(245, 10, 100, 60, [0, 255, 0], false, false);
+      me.glCanvasRenderer.draw3DRect(350, 10, 100, 60, [0, 0, 255], false, true);
+      
+      me.glCanvasRenderer.drawRoundRect(540, 10, 100, 60, 20, [255, 127, 63], false);
+      me.glCanvasRenderer.drawRoundRect(650, 10, 100, 60, 20, [255, 127, 63], true);
+      
+      me.glCanvasRenderer.strokeRect(10, 80, 100, 60, [0, 255, 0], false);
+      me.glCanvasRenderer.strokeRect(140, 80, 100, 60, [0, 0, 255], true);
+      
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 2);
+      me.canvasRenderer.setLineStroke(1, 2);
+      me.glCanvasRenderer.setLineStroke(1, 2);
+      
+      me.glCanvasRenderer.draw3DRect(10, 150, 100, 60, [0, 255, 0], true, false);
+      me.glCanvasRenderer.draw3DRect(140, 150, 100, 60, [0, 0, 255], true, true);
+      
+      me.glCanvasRenderer.draw3DRect(245, 150, 100, 60, [0, 255, 0], false, false);
+      me.glCanvasRenderer.draw3DRect(350, 150, 100, 60, [0, 0, 255], false, true);
+      
+      me.glCanvasRenderer.drawRoundRect(540, 150, 100, 60, 20, [255, 127, 63], false);
+      me.glCanvasRenderer.drawRoundRect(650, 150, 100, 60, 20, [255, 127, 63], true);
+      
+      me.glCanvasRenderer.strokeRect(10, 220, 100, 60, [0, 255, 0], false);
+      me.glCanvasRenderer.strokeRect(140, 220, 100, 60, [0, 0, 255], true);
+      
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 3);
+      me.canvasRenderer.setLineStroke(1, 3);
+      me.glCanvasRenderer.setLineStroke(1, 3);
+      me.glCanvasRenderer.draw3DRect(10, 290, 100, 60, [0, 255, 0], true, false);
+      me.glCanvasRenderer.draw3DRect(140, 290, 100, 60, [0, 0, 255], true, true);
+      
+      me.glCanvasRenderer.draw3DRect(245, 290, 100, 60, [0, 255, 0], false, false);
+      me.glCanvasRenderer.draw3DRect(350, 290, 100, 60, [0, 0, 255], false, true);
+      
+      me.glCanvasRenderer.drawRoundRect(540, 290, 100, 60, 20, [255, 127, 63], false);
+      me.glCanvasRenderer.drawRoundRect(650, 290, 100, 60, 20, [255, 127, 63], true);
+      
+      me.glCanvasRenderer.strokeRect(10, 360, 100, 60, [0, 255, 0], false);
+      me.glCanvasRenderer.strokeRect(140, 360, 100, 60, [0, 0, 255], true);
+      
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 0.5);
+      me.canvasRenderer.setLineStroke(1, 0.5);
+      me.glCanvasRenderer.setLineStroke(1, 0.5);
+      me.glCanvasRenderer.draw3DRect(10, 430, 100, 60, [0, 255, 0], true, false);
+      me.glCanvasRenderer.draw3DRect(140, 430, 100, 60, [0, 0, 255], true, true);
+      
+      me.glCanvasRenderer.draw3DRect(245, 430, 100, 60, [0, 255, 0], false, false);
+      me.glCanvasRenderer.draw3DRect(350, 430, 100, 60, [0, 0, 255], false, true);
+      
+      me.glCanvasRenderer.drawRoundRect(540, 430, 100, 60, 20, [255, 127, 63], false);
+      me.glCanvasRenderer.drawRoundRect(650, 430, 100, 60, 20, [255, 127, 63], true);
+      
+      me.glCanvasRenderer.strokeRect(10, 500, 100, 60, [0, 255, 0], false);
+      me.glCanvasRenderer.strokeRect(140, 500, 100, 60, [0, 0, 255], true);
+      me.glCanvasRenderer.flash();
+      
+      const t1 = performance.now();
+      append("WebGL Primitives Drawing Test 2 finished in", t1-t0);
+
+      //restore line style
+      restoreLineStyle();
+
+      
+   }
+   
+   function drawImageTest()
+   {
+      clear();
+      //restore line style
+      restoreLineStyle();
+      const t0 = performance.now();
+
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 0, 1);//set style
+      me.canvasRenderer.setLineStroke(0, 1);
+      me.glCanvasRenderer.setLineStroke(0, 1);
+      var x = 0;
+      var y = 0;
+      var width = 256;
+      var height = 256;
+      var len = width * height * 4;
+      var imgData = new Uint8ClampedArray(len);
+      for (var j = 0; j < height; j++)
+      {
+         for (var i = 0; i < width; i++)
+         {
+            var p = 4 * j * width + 4 * i;
+            if (Math.max(i,j)%128 <= 64)
+            {
+               imgData[p] = 255;
+               imgData[p + 1] = 0;
+               imgData[p + 2] = 0;
+            }
+            else
+            {
+               imgData[p] = 0;
+               imgData[p + 1] = 255;
+               imgData[p + 2] = 0;
+            }
+            imgData[p + 3] = 255;
+         }
+      }
+      var noTranslate = false;
+      var invert = false;
+      var noClip = false;
+      var cached = false;
+      me.glCanvasRenderer.drawImage(x, y, width, height, imgData, noTranslate, invert, noClip, cached);
+      me.glCanvasRenderer.flash();
+      me.glCanvasRenderer.unclip();
+      x = 256;
+      y = 256;
+      
+//      var clipRegions = [{x: 286, y: 286, width:256, height: 256}];
+      var clipRegions = [{x: 256, y: 256, width: 128, height: 128},
+                         {x: 256 + 128, y: 256 + 128, width: 64, height: 64},
+                         {x: 256 + 128 + 64, y: 256 + 128 + 64, width: 128, height: 128},
+                         /*{x: 256, y: 256 + 128, width: 128, height: 128}*/];
+      me.glCanvasRenderer.clip(clipRegions);
+      me.glCanvasRenderer.drawImage(x, y, width, height, imgData, noTranslate, invert, noClip, cached);
+      me.glCanvasRenderer.flash();
+      me.glCanvasRenderer.unclip();
+      
+      x = 256 + 256;
+      y = 256 + 256;
+      
+      var clipRegions = [{x: x, y: y, width:64, height: 64}];
+      me.glCanvasRenderer.clip(clipRegions);
+      me.glCanvasRenderer.drawImage(x, y, width, height, imgData, noTranslate, invert, noClip, cached);
+      me.glCanvasRenderer.flash();
+      me.glCanvasRenderer.unclip();
+      
+      
+      
+      
+      const t1 = performance.now();
+      append("WebGL Draw Image Test finished in", t1-t0);
+
+      //restore line style
+      restoreLineStyle();
+
+      
+   }
+   
+   function clipTrianglesTest()
+   {
+      clear();
+      var x1 = 100;
+      var y1 = 100 + Math.floor(Math.random() * 50) * Math.sign(Math.random() - 0.5);
+      var x2 = 300;
+      var y2 = 300 - Math.floor(Math.random() * 100) * Math.sign(Math.random() - 0.5);
+      var x3 = 400;
+      var y3 = 100 - Math.floor(Math.random() * 50) * Math.sign(Math.random() - 0.5);
+      var clipRegions = [{x: 100, y: 100, width: 101, height: 201},
+                         {x: 280, y: 290, width: 101, height: 201},
+                         {x: 265, y: 275, width: 101, height: 1},
+                         {x: 201, y: 100, width: 101, height: 101},
+                         {x: 201, y: 210, width: 301, height: 40},
+                         {x: 350, y: 50, width: 101, height: 101},
+                         {x: 310, y: 10, width: 10, height: 150},
+                         {x: 325, y: 10, width: 1, height: 130},
+                         {x: 325, y: 160, width: 20, height: 10},
+                         {x: 310, y: 170, width: 50, height: 10},
+                         {x: 330, y: 190, width: 80, height: 10},
+                         {x: 460, y: 100, width: 101, height: 101}];
+      me.glCanvasRenderer.clip(clipRegions);
+      var black = [0, 0, 0];
+      var yellow = [255, 255, 0];
+      var t = [x1, y1, x2, y2, x3, y3, 0, 0, 0, 1];
+      append("Split triangle" + JSON.stringify(t) + " into areas:");
+      me.canvasRenderer.setColor(black);
+      me.canvasRenderer.drawLine(x1, y1, x2, y2, black);
+      me.canvasRenderer.drawLine(x2, y2, x3, y3, black);
+      me.canvasRenderer.drawLine(x3, y3, x1, y1, black);
+      me.canvasRenderer.flash();
+      var red = [255, 0, 0];
+      me.canvasRenderer.setColor(red);
+      for (var i = 0; i < clipRegions.length; i++)
+      {
+         var rect = clipRegions[i];
+         
+         me.canvasRenderer.drawRect(rect.x, rect.y, rect.width, rect.height, red, false);
+      }
+      me.canvasRenderer.flash();
+      var test = me.glCanvasRenderer.clipTriangles([t]);
+      
+      me.canvasRenderer.setColor(yellow);
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 2);
+      me.canvasRenderer.setLineStroke(1, 2);
+      for (var i = 0; i < test.length; i++)
+      {
+         me.canvasRenderer.drawLine(test[i][0], test[i][1], test[i][2], test[i][3], yellow);
+         me.canvasRenderer.flash();
+         me.canvasRenderer.drawLine(test[i][2], test[i][3], test[i][4], test[i][5], yellow);
+         me.canvasRenderer.flash();
+         me.canvasRenderer.drawLine(test[i][4], test[i][5], test[i][0], test[i][1], yellow);
+         me.canvasRenderer.flash();
+         append(JSON.stringify(test[i]));
+         console.debug(test[i]);
+      }
+      //clear clipping regions
+      me.glCanvasRenderer.unclip();
+      
+      //restore line style
+      restoreLineStyle();
+   }
+   
+   function log(delta, msg)
+   {
+      if (me.output)
+      {
+         me.output.set("value", msg +" " + delta + " milliseconds");
+      }
+   }
+   
+   function append(msg, delta)
+   {
+      if (me.output)
+      {
+         var text = me.output.get("value");
+         me.output.set("value", text + "\n\r" + msg + ((delta) ? (" " + delta + " milliseconds"):""));
+      }
+   }
+   
+   function drawText()
+   {
+      me.canvasRenderer.drawText("2D Canvas", me.canvas.width>>1, me.canvas.height>>1, true);
+      me.canvasRenderer.flash();
+   }
+   
+   function fillTest()
+   {
+      clear();
+      var colors = [[255, 0, 0],
+                    [0, 255, 0],
+                    [0, 0, 255],
+                    [174, 0, 0],
+                    [0, 174, 0],
+                    [0, 0, 174],
+                    [128, 0, 0],
+                    [0, 128, 0],
+                    [0, 0, 128],
+                    [64, 0, 0],
+                    [0, 64, 0],
+                    [0, 0, 64],
+                    [0, 0, 0]];
+      var fun = function(x, y, w, h, c, fill)
+      {
+         me.canvasRenderer.setColor(c);
+         me.canvasRenderer.drawRect(x, y, w, h, c, fill);
+         //me.canvasRenderer.flash();
+      }
+      const t0 = performance.now();
+      var numRects = gridTest(23, 17, 43, 23, colors, me.canvas.width, me.canvas.height, true, fun);
+      me.canvasRenderer.flash();
+      const t1 = performance.now();
+      append("Fill Test finished in", t1-t0);
+      me.store.newItem({id: me.testsResults.items.length + 1, perf2D : t1-t0, testName: "2D Fill Test", runs: 1, numPrims: numRects});
+      me.store.save();
+   }
+   
+   function glFillTest()
+   {
+      clear();
+      var colors = [[255, 0, 0],
+                    [0, 255, 0],
+                    [0, 0, 255],
+                    [174, 0, 0],
+                    [0, 174, 0],
+                    [0, 0, 174],
+                    [128, 0, 0],
+                    [0, 128, 0],
+                    [0, 0, 128],
+                    [64, 0, 0],
+                    [0, 64, 0],
+                    [0, 0, 64],
+                    [0, 0, 0]];
+      const t0 = performance.now();
+      var fun = function(x, y, w, h, c, fill)
+      {
+         me.glCanvasRenderer.setColor(c);
+         me.glCanvasRenderer.drawRect(x, y, w, h, c, fill);
+         //me.glCanvasRenderer.flash();
+      }
+      var numRects = gridTest(23, 17, 43, 23, colors, me.canvas.width, me.canvas.height, true, fun);
+      me.glCanvasRenderer.flash();
+      const t1 = performance.now();
+      append("WebGL Fill Test finished in", t1-t0);
+      me.store.newItem({id: me.testsResults.items.length + 1, perfWebGL : t1-t0, testName: "WebGL Fill Test", runs: 1, numPrims: numRects});
+      me.store.save();
+   }
+   
+   function strokeTest()
+   {
+      clear();
+      var colors = [[255, 0, 0],
+                    [0, 255, 0],
+                    [0, 0, 255],
+                    [174, 0, 174],
+                    [0, 174, 174],
+                    [174, 0, 174],
+                    [128, 174, 0],
+                    [0, 128, 174],
+                    [174, 0, 128],
+                    [64, 0, 128],
+                    [128, 64, 0],
+                    [128, 0, 64],
+                    [0, 0, 0]];
+      var fun = function(x, y, w, h, c, fill)
+      {
+         me.canvasRenderer.strokeRect(x, y, w, h, c, fill);
+         //me.canvasRenderer.flash();
+      }
+      const t0 = performance.now();
+      var numRects = gridTest(11, 7, 51, 37, colors, me.canvas.width, me.canvas.height, false, fun);
+      me.canvasRenderer.flash();
+      const t1 = performance.now();
+      append("Stroke Test finished in", t1-t0);
+      me.store.newItem({id: me.testsResults.items.length + 1, perf2D : t1-t0, testName: "2D Stroke Test", runs: 1, numPrims: numRects});
+      me.store.save();
+   }
+   
+   function glStrokeTest()
+   {
+      clear();
+      var colors = [[255, 0, 0],
+                    [0, 255, 0],
+                    [0, 0, 255],
+                    [174, 0, 174],
+                    [0, 174, 174],
+                    [174, 0, 174],
+                    [128, 174, 0],
+                    [0, 128, 174],
+                    [174, 0, 128],
+                    [64, 0, 128],
+                    [128, 64, 0],
+                    [128, 0, 64],
+                    [0, 0, 0]];
+      const t0 = performance.now();
+      var fun = function(x, y, w, h, c, fill)
+      {
+         me.glCanvasRenderer.setColor(c);
+         me.glCanvasRenderer.strokeRect(x, y, w, h, c, fill);
+         //me.glCanvasRenderer.flash();
+      }
+      var numRects = gridTest(11, 7, 51, 37, colors, me.canvas.width, me.canvas.height, false, fun);
+      me.glCanvasRenderer.flash();
+      const t1 = performance.now();
+      append("WebGL Stroke Test finished in", t1-t0);
+      me.store.newItem({id: me.testsResults.items.length + 1, perfWebGL : t1-t0, testName: "WebGL Stroke Test", runs: 1, numPrims: numRects});
+      me.store.save();
+
+   }
+   
+   function linesTest()
+   {
+      clear();
+      var colors = [[255, 0, 0],
+                    [0, 255, 0],
+                    [0, 0, 255],
+                    [174, 0, 174],
+                    [0, 174, 174],
+                    [174, 0, 174],
+                    [128, 174, 0],
+                    [0, 128, 174],
+                    [174, 0, 128],
+                    [64, 0, 128],
+                    [128, 64, 0],
+                    [128, 0, 64],
+                    [0, 0, 0]];
+      var fun = function(x, y, w, h, c, fill)
+      {
+         me.canvasRenderer.strokeLineSegment(x, y, w, h, c);
+         //me.canvasRenderer.flash();
+      }
+      const t0 = performance.now();
+      var numLines = gridTest(17, 13, me.canvas.width >> 1, me.canvas.height >> 1, colors, me.canvas.width, me.canvas.height, false, fun);
+      me.canvasRenderer.flash();
+      const t1 = performance.now();
+      append("Lines Test finished in", t1-t0);
+      me.store.newItem({id: me.testsResults.items.length + 1, perf2D : t1-t0, testName: "2D Lines Test", runs: 1, numPrims: numLines});
+      me.store.save();
+   }
+   
+   function glLinesTest()
+   {
+      clear();
+      var colors = [[255, 0, 0],
+                    [0, 255, 0],
+                    [0, 0, 255],
+                    [174, 0, 174],
+                    [0, 174, 174],
+                    [174, 0, 174],
+                    [128, 174, 0],
+                    [0, 128, 174],
+                    [174, 0, 128],
+                    [64, 0, 128],
+                    [128, 64, 0],
+                    [128, 0, 64],
+                    [0, 0, 0]];
+      var fun = function(x1, y1, x2, y2, c, fill)
+      {
+         me.glCanvasRenderer.strokeLineSegment(x1, y1, x2, y2, c);
+         //me.glCanvasRenderer.flash();
+      }
+      const t0 = performance.now();
+      var numLines = gridTest(17, 13, me.canvas.width >> 1, me.canvas.height >> 1, colors, me.canvas.width, me.canvas.height, false, fun);
+      me.glCanvasRenderer.flash();
+      const t1 = performance.now();
+      append("WebGL Lines Test finished in", t1-t0);
+      me.store.newItem({id: me.testsResults.items.length + 1, perfWebGL : t1-t0, testName: "WebGL Lines Test", runs: 1, numPrims: numLines});
+      me.store.save();
+   }
+   
+   function gridTest(dw, dh, w, h, colors, width, height, fill, fun)
+   {
+      var i = 0;
+      for (var x = 1; x < width - 1; x += dw)
+      {
+         for (var y = 1; y < height - 1; y += dh)
+         {
+            var p = (4*x + 4*y*width) % colors.length;
+            var c = colors[p];
+            fun(x, y, w, h, c, fill);
+            i++;
+         }
+      }
+      return i;
+   }
+   
+   function buildColors(linesNumber)
+   {
+      var base_colors = [[255, 0, 0],
+                    [0, 255, 0],
+                    [0, 0, 255],
+                    [174, 0, 174],
+                    [0, 174, 174],
+                    [174, 0, 174],
+                    [128, 174, 0],
+                    [0, 128, 174],
+                    [174, 0, 128],
+                    [64, 0, 128],
+                    [128, 64, 0],
+                    [128, 0, 64],
+                    [0, 0, 0]];
+      var colors = [];
+      var mod = base_colors.length;
+      var index;
+      for (var i = 0; i < linesNumber; i++)
+      {
+         index = i % mod;
+         var c = base_colors[index];
+         var c1, c2, c3;
+         c1 = (c[0] + Math.floor(255 * Math.random())) % 255;
+         c2 = (c[1] + Math.floor(255 * Math.random())) % 255;
+         c3 = (c[2] + Math.floor(255 * Math.random())) % 255;
+         colors.push([c1, c2, c3]);
+      }
+      
+      return colors;
+   }
+   
+   function buildLines(linesNumber, verticalOrHorizontal)
+   {
+      var lines = [];
+      
+      for (var i = 0; i < linesNumber; i++)
+      {
+         var x1 = Math.round(800 * Math.random());
+         var x2 = Math.round(800 * Math.random());
+         if (x1 > x2)
+         {
+            var x = x2;
+            x2 = x1;
+            x1 = x;
+         }
+
+         var y1 = Math.round(600 * Math.random());
+         var y2 = Math.round(600 * Math.random());
+         if (y1 > y2)
+         {
+            var y = y2;
+            y2 = y1;
+            y1 = y;
+         }
+         
+         if (verticalOrHorizontal)
+         {
+            var dir = Math.random();
+            if (dir <= 0.5)
+            {
+               // horizontal
+               y2 = y1;
+            } else
+            {
+               // vertical
+               x2 = x1;
+            }
+         }
+         lines.push(x1);
+         lines.push(y1);
+         lines.push(x2);
+         lines.push(y2);
+      }
+      
+      return lines;
+   }
+   
+   function batchLineTest()
+   {
+      var runs = 10;
+      
+      var linesNumbers = [100, 200, 300, 400, 500, 600, 700, 800, 900, 1000];
+      
+      var testName = "Batch Lines Test";
+      
+      var funGL = function (x1, y1, x2, y2, c)
+      {
+         me.glCanvasRenderer.drawLine(x1, y1, x2, y2, c);
+      }
+      
+      var fun2D = function (x1, y1, x2, y2, c)
+      {
+         me.canvasRenderer.drawLine(x1, y1, x2, y2, c);
+      }
+      
+      var verticalOrHorizontal = true;
+      
+      batchTest(testName, verticalOrHorizontal, runs, linesNumbers, funGL, fun2D)
+   }
+   
+   function batchFillTest()
+   {
+      var runs = 10;
+      
+      var linesNumbers = [100, 200, 300, 400, 500, 600, 700, 800, 900, 1000];
+      
+      var testName = "Batch Fill Test";
+      
+      var funGL = function (x1, y1, x2, y2, c)
+      {
+         me.glCanvasRenderer.setColor(c);
+         me.glCanvasRenderer.strokeRect(x1, y1, x2 - x1 + 1, y2 - y1 + 1, c, true);
+      }
+      
+      var fun2D = function (x1, y1, x2, y2, c)
+      {
+         me.canvasRenderer.setColor(c);
+         me.canvasRenderer.strokeRect(x1, y1, x2 - x1 + 1, y2 - y1 + 1, c, true);
+      }
+      
+      var verticalOrHorizontal = false;
+      
+      batchTest(testName, verticalOrHorizontal, runs, linesNumbers, funGL, fun2D)
+   }
+   
+   function batchStrokeTest()
+   {
+      var runs = 10;
+      
+      var linesNumbers = [100, 200, 300, 400, 500, 600, 700, 800, 900, 1000];
+      
+      var testName = "Batch Stroke Test";
+      
+      var funGL = function (x1, y1, x2, y2, c)
+      {
+         me.glCanvasRenderer.strokeRect(x1, y1, x2 - x1 + 1, y2 - y1 + 1, c, false);
+      }
+      
+      var fun2D = function (x1, y1, x2, y2, c)
+      {
+         me.canvasRenderer.strokeRect(x1, y1, x2 - x1 + 1, y2 - y1 + 1, c, false);
+      }
+      
+      var verticalOrHorizontal = false;
+      
+      batchTest(testName, verticalOrHorizontal, runs, linesNumbers, funGL, fun2D)
+   }
+   
+   function createExecutor(tasks, run, updateResults, delayed)
+   {
+      var executor = {};
+      
+      executor.currentTask = -1;
+      executor.tasks = tasks;
+      executor.limit = tasks.length;
+      executor.delayed = delayed;
+      executor.cancelled = false;
+      
+      function wrapInPromise(task)
+      {
+         return new Promise((resolve, reject) => 
+         {
+            setTimeout(function() {resolve(run(task));}, executor.delayed);
+         });
+      };
+      
+      function execInSeq()
+      {
+         if (executor.cancelled)
+         {
+            updateResults(executor, "Cancelled", executor.currentTask);
+            
+            return Promise.resolve("Cancelled");
+         }
+         
+         if (executor.currentTask < executor.limit)
+         {
+            var task = executor.tasks[executor.currentTask];
+            var asyncAction = Promise.resolve(wrapInPromise(executor.tasks[executor.currentTask])).then(
+                  function(task)
+                  {
+                     executor.currentTask++;
+                     if (executor.field && executor.row)
+                     {
+                        console.debug("executor field=" + executor.field + " row=" + executor.row + " #" + executor.currentTask);
+                     }
+                     else
+                     {
+                        console.debug("executor #" + executor.currentTask);
+                     }
+                     return execInSeq();
+                  });
+             
+            task.asyncAction = asyncAction;
+             
+             return task.asyncAction;
+          }
+         else
+         {
+            updateResults(executor, "Completed", executor.currentTask);
+            return Promise.resolve("Completed");
+         }
+      };
+      
+      function start()
+      {
+         if (executor.limit > 0 && executor.currentTask == -1)
+         {
+            executor.currentTask = 0;
+            
+            return execInSeq();
+         }
+         else
+         {
+            return Promise.resolve("Running");
+         }
+      }
+      
+      executor.start = start;
+      
+      return executor;
+   }
+   
+   function createBatchTestTask(testMethod, tasks, delayed, row, field)
+   {
+      function updateResults(batchTask, status, currentTask)
+      {
+         var average_t = batchTask.tasks.reduce(
+               function(accum, task, i, array)
+               {
+                  if (i < currentTask)
+                  {
+                     accum = (accum * i + task.execTime) / (i + 1);
+                  }
+                  
+                  return accum;
+               }, 0);
+         
+         function updateItem(item)
+         {
+            me.store.setValue(item, field, average_t);
+            me.store.setValue(item, "runs", currentTask);
+            me.store.setValue(item, "status", status);
+            me.store.save();
+         }
+         
+         me.store.fetchItemByIdentity({identity: row, onItem: updateItem});
+      }
+      
+      function run(task)
+      { 
+         const t0 = performance.now();
+         testMethod(task);
+         const t1 = performance.now();
+         task.execTime = t1 - t0;
+         return task;
+      };
+      
+      var batchTestTask = createExecutor(tasks, run, updateResults, delayed);
+      
+      batchTestTask.row = row;
+      batchTestTask.field = field;
+      
+      return batchTestTask;
+   }
+   
+   function batchTest(testName, verticalOrHorizontal, runs, linesNumbers, funGL, fun2D)
+   {
+      //restore line style
+      restoreLineStyle();
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 1);//set style
+      me.canvasRenderer.setLineStroke(1, 1);
+      me.glCanvasRenderer.setLineStroke(1, 1);
+      var delayed = 100;
+      var batchTestTasks = [];
+      me.batchTestTasks = batchTestTasks;
+      me.baseRowIndex = me.testsResults.items.length;
+      for(var k = 0; k < linesNumbers.length; k++)
+      {
+         var linesNumber = linesNumbers[k];
+         var tasks = [];
+         for (var r = 0; r < runs; r++)
+         {
+            var lines = buildLines(linesNumber, verticalOrHorizontal);
+            var colors = buildColors(linesNumber);
+            var len = lines.length;
+            tasks.push({parameters: {len : len, colors : colors, lines: lines}});
+         }
+         
+         var rowId = me.testsResults.items.length + 1;
+         
+         me.store.newItem({id: rowId,
+                           testName: testName,
+                           numPrims: linesNumber});
+         me.store.save();
+         
+         
+         var testWebGLTask = function(task)
+         {
+               var len = task.parameters.len;
+               var lines  = task.parameters.lines;
+               var colors =  task.parameters.colors;
+               for (var i = 0, j = 0; i < len; i+=4, j++)
+               {
+                  funGL(lines[i], lines[i + 1], lines[i + 2], lines[i + 3], colors[j]);
+               }
+               me.glCanvasRenderer.flash();
+         };
+         
+         var test2DTask = function(task)
+         {
+               var len = task.parameters.len;
+               var lines  = task.parameters.lines;
+               var colors =  task.parameters.colors;
+               for (var i = 0, j = 0; i < len; i+=4, j++)
+               {
+                  fun2D(lines[i], lines[i + 1], lines[i + 2], lines[i + 3], colors[j]);
+               }
+               me.canvasRenderer.flash();
+         };
+         
+         var batchWebGLTask = createBatchTestTask(testWebGLTask, tasks, delayed, rowId, "perfWebGL");
+         var batch2DTask = createBatchTestTask(test2DTask, tasks, delayed, rowId, "perf2D");
+         batchTestTasks.push(batch2DTask);
+         batchTestTasks.push(batchWebGLTask);
+      }
+      
+      async function run(batchTestTask)
+      {
+         var p = batchTestTask.start();
+         await Promise.resolve(p);
+         return batchTestTask;
+      }
+      
+      function log(batchTask, status, currentTask)
+      {
+         console.debug("Executed " + currentTask + " tasks. Status: " + status);
+      }
+      
+      var sequentExecutor = createExecutor(batchTestTasks, run, log, delayed);
+      sequentExecutor.start();
+   }
+   
+   function drawingJava2DTest()
+   {
+      clear();
+      
+      const t0 = performance.now();
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 1);//set style
+      me.canvasRenderer.setLineStroke(1, 1);
+      var color = [0, 0, 0];
+      me.canvasRenderer.drawLine(10, 10, 790, 30, color);
+      me.canvasRenderer.drawRect(40, 40, 55, 30, color, false);
+      me.canvasRenderer.drawLine(210, 40, 210, 70, color);
+      me.canvasRenderer.drawLine(241, 40, 241, 70, color);
+      me.canvasRenderer.drawLine(250, 40, 305, 40, color);
+      me.canvasRenderer.drawLine(250, 70, 305, 70, color);
+      
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 2);
+      me.canvasRenderer.setLineStroke(1, 2);
+      me.canvasRenderer.drawLine(10, 80, 790, 100, color);
+      me.canvasRenderer.drawRect(40, 110, 55, 30, color, false);
+      me.canvasRenderer.drawLine(210, 110, 210, 140, color);
+      me.canvasRenderer.drawLine(241, 110, 241, 140, color);
+      me.canvasRenderer.drawLine(250, 110, 305, 110, color);
+      me.canvasRenderer.drawLine(250, 140, 305, 140, color);
+
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 3);
+      me.canvasRenderer.setLineStroke(1, 3);
+      me.canvasRenderer.drawLine(10, 150, 790, 170, color);
+      me.canvasRenderer.drawRect(40, 180, 55, 30, color, false);
+      me.canvasRenderer.drawLine(210, 180, 210, 210, color);
+      me.canvasRenderer.drawLine(241, 180, 241, 210, color);
+      me.canvasRenderer.drawLine(250, 180, 305, 180, color);
+      me.canvasRenderer.drawLine(250, 210, 305, 210, color);
+
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 2, 1);
+      me.canvasRenderer.setLineStroke(2, 1);
+      me.canvasRenderer.drawLine(10, 220, 790, 240, color);
+      me.canvasRenderer.drawRect(40, 250, 55, 30, color, false);
+      me.canvasRenderer.drawLine(210, 250, 210, 280, color);
+      me.canvasRenderer.drawLine(241, 250, 241, 280, color);
+      me.canvasRenderer.drawLine(250, 250, 305, 250, color);
+      me.canvasRenderer.drawLine(250, 280, 305, 280, color);
+
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 3, 1);
+      me.canvasRenderer.setLineStroke(3, 1);
+      me.canvasRenderer.drawLine(10, 290, 790, 310, color);
+      me.canvasRenderer.drawRect(40, 320, 55, 30, color, false);
+      me.canvasRenderer.drawLine(210, 320, 210, 350, color);
+      me.canvasRenderer.drawLine(241, 320, 241, 350, color);
+      me.canvasRenderer.drawLine(250, 320, 305, 320, color);
+      me.canvasRenderer.drawLine(250, 350, 305, 350, color);
+
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 4, 1);
+      me.canvasRenderer.setLineStroke(4, 1);
+      me.canvasRenderer.drawLine(10, 360, 790, 380, color);
+      me.canvasRenderer.drawRect(40, 390, 55, 30, color, false);
+      me.canvasRenderer.drawLine(210, 390, 210, 420, color);
+      me.canvasRenderer.drawLine(241, 390, 241, 420, color);
+      me.canvasRenderer.drawLine(250, 390, 305, 390, color);
+      me.canvasRenderer.drawLine(250, 420, 305, 420, color);
+      me.canvasRenderer.flash();
+      const t1 = performance.now();
+      append("Drawing Java 2D Test finished in", t1-t0);
+
+      //restore line style
+      restoreLineStyle();
+   }
+   
+   function glDrawingJava2DTest()
+   {
+      clear();
+      
+      const t0 = performance.now();
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 1);//set style
+      me.canvasRenderer.setLineStroke(1, 1);
+      me.glCanvasRenderer.setLineStroke(1, 1);
+      var color = [0, 0, 0];
+      me.glCanvasRenderer.drawLine(10, 10, 790, 30, color);
+      me.glCanvasRenderer.drawRect(40, 40, 55, 30, color, false);
+      me.glCanvasRenderer.drawLine(210, 40, 210, 70, color);
+      me.glCanvasRenderer.drawLine(241, 40, 241, 70, color);
+      me.glCanvasRenderer.drawLine(250, 40, 305, 40, color);
+      me.glCanvasRenderer.drawLine(250, 70, 305, 70, color);
+      
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 2);
+      me.canvasRenderer.setLineStroke(1, 2);
+      me.glCanvasRenderer.setLineStroke(1, 2);
+      me.glCanvasRenderer.drawLine(10, 80, 790, 100, color);
+      me.glCanvasRenderer.drawRect(40, 110, 55, 30, color, false);
+      me.glCanvasRenderer.drawLine(210, 110, 210, 140, color);
+      me.glCanvasRenderer.drawLine(241, 110, 241, 140, color);
+      me.glCanvasRenderer.drawLine(250, 110, 305, 110, color);
+      me.glCanvasRenderer.drawLine(250, 140, 305, 140, color);
+
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 1, 3);
+      me.canvasRenderer.setLineStroke(1, 3);
+      me.glCanvasRenderer.setLineStroke(1, 3);
+      me.glCanvasRenderer.drawLine(10, 150, 790, 170, color);
+      me.glCanvasRenderer.drawRect(40, 180, 55, 30, color, false);
+      me.glCanvasRenderer.drawLine(210, 180, 210, 210, color);
+      me.glCanvasRenderer.drawLine(241, 180, 241, 210, color);
+      me.glCanvasRenderer.drawLine(250, 180, 305, 180, color);
+      me.glCanvasRenderer.drawLine(250, 210, 305, 210, color);
+
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 2, 1);
+      me.canvasRenderer.setLineStroke(2, 1);
+      me.glCanvasRenderer.setLineStroke(2, 1);
+      me.glCanvasRenderer.drawLine(10, 220, 790, 240, color);
+      me.glCanvasRenderer.drawRect(40, 250, 55, 30, color, false);
+      me.glCanvasRenderer.drawLine(210, 250, 210, 280, color);
+      me.glCanvasRenderer.drawLine(241, 250, 241, 280, color);
+      me.glCanvasRenderer.drawLine(250, 250, 305, 250, color);
+      me.glCanvasRenderer.drawLine(250, 280, 305, 280, color);
+
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 3, 1);
+      me.canvasRenderer.setLineStroke(3, 1);
+      me.glCanvasRenderer.setLineStroke(3, 1);
+      me.glCanvasRenderer.drawLine(10, 290, 790, 310, color);
+      me.glCanvasRenderer.drawRect(40, 320, 55, 30, color, false);
+      me.glCanvasRenderer.drawLine(210, 320, 210, 350, color);
+      me.glCanvasRenderer.drawLine(241, 320, 241, 350, color);
+      me.glCanvasRenderer.drawLine(250, 320, 305, 320, color);
+      me.glCanvasRenderer.drawLine(250, 350, 305, 350, color);
+
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 4, 1);
+      me.canvasRenderer.setLineStroke(4, 1);
+      me.glCanvasRenderer.setLineStroke(4, 1);
+      me.glCanvasRenderer.drawLine(10, 360, 790, 380, color);
+      me.glCanvasRenderer.drawRect(40, 390, 55, 30, color, false);
+      me.glCanvasRenderer.drawLine(210, 390, 210, 420, color);
+      me.glCanvasRenderer.drawLine(241, 390, 241, 420, color);
+      me.glCanvasRenderer.drawLine(250, 390, 305, 390, color);
+      me.glCanvasRenderer.drawLine(250, 420, 305, 420, color);
+      me.glCanvasRenderer.flash();
+      const t1 = performance.now();
+      append("WebGL Drawing Java 2D Test finished in", t1-t0);
+
+      //restore line style
+      restoreLineStyle();
+   }
+   
+   function precisionTest()
+   {
+      clear();
+      
+      me.ctx.save();
+      me.ctx.beginPath();
+      me.ctx.lineWidth = 1;
+      me.ctx.strokeStyle = "#000000";
+      me.ctx.rect(20 - 1, 20 - 1, 100, 50);
+      me.ctx.clip();
+      me.ctx.beginPath();
+      me.ctx.rect(20, 20, 100, 50);
+      me.ctx.stroke();
+      me.ctx.restore();
+      me.ctx.save();
+      me.ctx.lineWidth = 1;
+      me.ctx.strokeStyle = "#000000";
+      me.ctx.translate(0.5, 0.5);
+      me.ctx.beginPath();
+      me.ctx.rect(140 - 1, 20 - 1, 100 - 2, 50 - 2);
+      me.ctx.clip();
+      me.ctx.beginPath();
+      me.ctx.rect(140, 20, 100, 50);
+      me.ctx.stroke();
+      me.ctx.restore();
+      me.ctx.save();
+      me.ctx.lineWidth = 1;
+      me.ctx.strokeStyle = "#000000";
+      me.ctx.setLineDash([2,2]);
+      me.ctx.beginPath();
+      me.ctx.rect(260 - 1, 20 - 1, 100 - 2, 50 - 2);
+      me.ctx.clip();
+      me.ctx.beginPath();
+      me.ctx.rect(260, 20, 100, 50);
+      me.ctx.stroke();
+      me.ctx.restore();
+      
+      const t0 = performance.now();
+      var c = [0, 0, 0];
+      me.canvasRenderer.setLineStroke(me.strokeStyle, 1);
+      me.strokesManager.applyStrokeToCanvas(me.ctx, me.strokeStyle, 1);
+
+      me.canvasRenderer.save();
+      me.canvasRenderer.clip([{x:20, y:320, width:100, height:50}]);
+      me.canvasRenderer.strokeRect(20, 320, 100, 50, c, false);
+      me.canvasRenderer.restore();
+
+      me.canvasRenderer.save();
+      me.canvasRenderer.translate(0.5, 0.5);
+      me.canvasRenderer.clip([{x:140, y:320, width:100, height:50}]);
+      me.canvasRenderer.strokeRect(140, 320, 100, 50, c, false);
+      me.canvasRenderer.restore();
+      
+      me.canvasRenderer.save();
+      me.canvasRenderer.setLineStroke(2, 1);
+      me.strokesManager.applyStrokeToCanvas(me.ctx, 2, 1);
+      me.canvasRenderer.clip([{x:260, y:320, width:100, height:50}]);
+      me.canvasRenderer.strokeRect(260, 320, 100, 50, c, false);
+      me.canvasRenderer.restore();
+      me.canvasRenderer.flash();
+      
+      const t1 = performance.now();
+      append("Drawing Precision Test finished in", t1-t0);
+      restoreLineStyle();
+   }
+   
+   require(["dojo/_base/lang",
+            "dojox/grid/EnhancedGrid",
+            "dojo/data/ItemFileWriteStore",
+            "dojox/grid/enhanced/plugins/Menu",
+            "dojox/grid/enhanced/plugins/exporter/CSVWriter",
+            "dojo/dom",
+            "dojo/dom-style",
+            "dojo/dom-construct",
+            "dijit/Dialog",
+            "dijit/form/Textarea",
+            "dijit/MenuBar",
+            "dijit/PopupMenuBarItem",
+            "dijit/Menu",
+            "dijit/MenuItem",
+            "dijit/DropDownMenu",
+            "dojox/grid/enhanced/plugins/DnD",
+            "dojo/domReady!"],
+         function(lang,
+                  EnhancedGrid,
+                  ItemFileWriteStore,
+                  PluginMenu,
+                  CSVWriter,
+                  dom,
+                  domStyle,
+                  domConstruct,
+                  Dialog,
+                  Textarea,
+                  MenuBar,
+                  PopupMenuBarItem,
+                  Menu,
+                  MenuItem,
+                  DropDownMenu)
+         {
+            var style = "width:1024px;height:768px;overflow:auto;border:1px solid #769dc4;display:flex;flex-direction:column;";
+            var div = domConstruct.create("div", { style: style });
+            div.id = div.id || "performanceTestsMainContext";
+            var dialog = new Dialog(
+            {
+               title: "Performance Tests",
+               content: div
+            });
+            
+            var mainMenuBar = new MenuBar({});
+            var mainMenuBarItems = [];
+            var batchTestsSubMenu = new DropDownMenu({});
+            
+            mainMenuBarItems.push(new PopupMenuBarItem({
+               label: "Batch Tests",
+               popup: batchTestsSubMenu
+              }));
+            mainMenuBar.addChild(mainMenuBarItems.peek());
+            
+            batchTestsSubMenu.addChild(new MenuItem({
+               label: "Batch Fill Test",
+               onClick: function(event)
+               {
+                  batchFillTest();
+               }
+            }));
+            
+            batchTestsSubMenu.addChild(new MenuItem({
+                            label: "Batch Stroke Test",
+                            onClick: function(event)
+                            {
+                               batchStrokeTest();
+                            }
+                        }));
+            batchTestsSubMenu.addChild(new MenuItem({
+                            label: "Batch Lines Test",
+                            onClick: function(event)
+                            {
+                               batchLineTest();
+                            }
+                        }));
+            
+            var testsSubMenu = new DropDownMenu({});
+            
+            testsSubMenu.addChild(new MenuItem({
+                                                  label: "Fill Test",
+                                                  onClick: function(event)
+                                                  {
+                                                     fillTest();
+                                                  }
+                                               }));
+            testsSubMenu.addChild(new MenuItem({
+                                                   label: "Stroke Test",
+                                                   onClick: function(event)
+                                                   {
+                                                      strokeTest();
+                                                   }
+                                               }));
+            testsSubMenu.addChild(new MenuItem({
+                                                   label: "Lines Test",
+                                                   onClick: function(event)
+                                                   {
+                                                      linesTest();
+                                                   }
+                                               }));
+            testsSubMenu.addChild(new MenuItem({
+                                                   label: "Precision Test",
+                                                   onClick: function(event)
+                                                   {
+                                                      precisionTest();
+                                                   }
+                                               }));
+            testsSubMenu.addChild(new MenuItem({
+                                                   label: "Java 2D Test",
+                                                   onClick: function(event)
+                                                   {
+                                                      drawingJava2DTest();
+                                                   }
+                                               }));
+            mainMenuBarItems.push(new PopupMenuBarItem({
+               label: "2D Tests",
+               popup: testsSubMenu
+              }));
+            mainMenuBar.addChild(mainMenuBarItems.peek());
+            var glTestsSubMenu = new DropDownMenu({});
+            glTestsSubMenu.addChild(new MenuItem({
+                                                  label: "Fill Test",
+                                                  onClick: function(event)
+                                                  {
+                                                     glFillTest();
+                                                  }
+                                               }));
+            glTestsSubMenu.addChild(new MenuItem({
+                                                   label: "Stroke Test",
+                                                   onClick: function(event)
+                                                   {
+                                                      glStrokeTest();
+                                                   }
+                                               }));
+            glTestsSubMenu.addChild(new MenuItem({
+                                                   label: "Lines Test",
+                                                   onClick: function(event)
+                                                   {
+                                                      glLinesTest();
+                                                   }
+                                               }));
+            glTestsSubMenu.addChild(new MenuItem({
+                                                   label: "WebGL Java 2D Test",
+                                                   onClick: function(event)
+                                                   {
+                                                      glDrawingJava2DTest();
+                                                   }
+                                                 }));
+            /*
+            glTestsSubMenu.addChild(new MenuItem({
+                                                   label: "Precision Test",
+                                                   onClick: function(event)
+                                                   {
+                                                      glPrecisionTest();
+                                                   }
+                                               })); */
+            mainMenuBarItems.push(new PopupMenuBarItem({
+               label: "WebGL Tests",
+               popup: glTestsSubMenu
+              }));
+            mainMenuBar.addChild(mainMenuBarItems.peek());
+            var pSubMenu2 = new DropDownMenu({});
+            pSubMenu2.addChild(new MenuItem({
+               label: "Clear",
+               onClick: function(event)
+               {
+                  clear();
+                  me.cancelled = true;
+               }
+            }));
+            pSubMenu2.addChild(new MenuItem({
+               label: "Text",
+               onClick: function(event)
+               {
+                  drawText();
+               }
+            }));
+            pSubMenu2.addChild(new MenuItem({
+               label: "Clip Triangles Test",
+               onClick: function(event)
+               {
+                  clipTrianglesTest();
+               }
+            }));
+            pSubMenu2.addChild(new MenuItem({
+               label: "Draw Primitives Test",
+               onClick: function(event)
+               {
+                  drawPrimitivesTest();
+               }
+            }));
+            pSubMenu2.addChild(new MenuItem({
+               label: "Draw Primitives Test 2",
+               onClick: function(event)
+               {
+                  drawPrimitivesTest2();
+               }
+            }));
+            pSubMenu2.addChild(new MenuItem({
+               label: "Draw Image Test",
+               onClick: function(event)
+               {
+                  drawImageTest();
+               }
+            }));
+            mainMenuBarItems.push(new PopupMenuBarItem({
+               label: "Miscellaneous Tests",
+               popup: pSubMenu2
+            }));
+            mainMenuBar.addChild(mainMenuBarItems.peek());
+            mainMenuBar.placeAt(div.id);
+            mainMenuBar.startup();
+            
+            style = "width:800px;height:600px;position:relative";
+            var canvasContainer = domConstruct.create("div", { style: style }, div);
+            me.canvasContainer = canvasContainer;
+            style = "width:800px;height:600px;position:absolute;top:0px;left:0px;background-color:transparent;";
+            var canvas = domConstruct.create("canvas", { style: style }, canvasContainer);
+            
+            style = "width:800px;height:auto;max-height:140px;position:relative;overflow-y:auto;";
+            var textContainer = domConstruct.create("div", { style: style }, div);
+            textContainer.id = "testsResultsContainer";
+            var testsResults = {
+                  identifier: "id",
+                  items: []
+                };
+            me.testsResults = testsResults;
+            
+            var store = new ItemFileWriteStore({data: testsResults});
+            
+            me.store = store;
+            
+            var layout = [[
+            {'name': '#', 'field': 'id', 'width': '50px'},
+            {'name': 'Status', 'field': 'status', 'width': '50px'},
+            {'name': 'Number Of Drawing Primitives', 'field': 'numPrims', 'width': '100px'},
+            {'name': 'Test Name', 'field': 'testName', 'width': '100px'},
+            {'name': 'Runs #', 'field': 'runs', 'width': '100px'},
+            {'name': 'Canvas 2D Avg', 'field': 'perf2D', 'width': '100px'},
+            {'name': 'WebGL     Avg', 'field': 'perfWebGL', 'width': '100px'}
+            ]];
+            
+             var tableContextMenu = new Menu({
+                id:"tableContextMenu",
+                onBlur: function()
+                {
+                   p2j.clipboard.enabled = true;
+                },
+                onOpen: function(event)
+                {
+                   p2j.clipboard.enabled = false;
+                },});
+             tableContextMenu.addChild(new MenuItem({
+                   label: "Export to csv",
+                   iconClass: "dijitEditorIcon dijitEditorIconCopy",
+                   onClick: copySelectedContent}));
+             
+             function clearContent()
+             {
+                var deleteItem = function(item)
+                {
+                   me.store.deleteItem(item);
+                }
+                var waiters = [];
+                var limit = me.testsResults.items.length;
+                for( var i = 1; i <= limit; i++)
+                {
+                   var promise = me.store.fetchItemByIdentity({identity: i, onItem: deleteItem});
+                   waiters.push(promise);
+                }
+                Promise.all(waiters).then(function() {me.store.save();});
+             }
+             
+             tableContextMenu.addChild(new MenuItem({
+                label: "Clear",
+                iconClass: "dijitIconClear",
+                onClick: clearContent}));
+             
+             function rowContextMenuEvent(event)
+             {
+                console.debug("event.rowIndex=" + event.rowIndex);
+                var item = me.grid.getItem(event.rowIndex);
+                me.itemId = item.id;
+                console.debug("item=" + item.id + " " + item.testName);
+             }
+             
+             function cancelTask ()
+             {
+                var taskIndex = me.itemId - me.baseRowIndex - 1;
+                console.debug("Cancel task #" + me.itemId + " taskIndex = " + taskIndex);
+                var batchTask = me.batchTestTasks[2 * taskIndex];
+                var peerBatchTask = me.batchTestTasks[2 * taskIndex + 1];
+                peerBatchTask.cancelled = true;
+             }
+             
+             tableContextMenu.addChild(new MenuItem({
+                label: "Cancel",
+                iconClass: "dijitEditorIcon dijitEditorIconCancel",
+                onClick: cancelTask}));
+             
+             function cancelAllTasks ()
+             {
+                 me.batchTestTasks.forEach(function(batchTask) { batchTask.cancelled = true;});
+             }
+             
+             tableContextMenu.addChild(new MenuItem({
+                label: "Cancel All",
+                iconClass: "dijitEditorIcon dijitEditorIconCancel",
+                onClick: cancelAllTasks}));
+             
+             tableContextMenu.startup();
+            
+            function copySelectedContent()
+            {
+               var grid = dijit.byId("perfTestsResults");
+               grid.exportGrid("csv", function(str)
+                                      {
+                                         var mimeType = "text/csv";
+                                         var fileName = "p2j.perf_tests_" + Date.now() + ".csv";
+                                         var content = [me.vendor, " ", me.renderer, "\r\n", str];
+                                         p2j.saveAs(mimeType, fileName, content);
+                                      });
+            }
+            
+            var grid = new EnhancedGrid({
+                                          id: "perfTestsResults",
+                                          title: "Tests",
+                                          store: store,
+                                          structure: layout,
+                                          height: '110px',
+                                          selectable: true,
+                                          plugins: { exporter: true,
+                                                     menus:{rowMenu: tableContextMenu,
+                                                            cellMenu: tableContextMenu,
+                                                            selectedRegionMenu: tableContextMenu},
+                                                   }
+                                        });
+            me.grid = grid;
+            grid.placeAt(div.id);
+            
+            grid.startup();
+            dojo.connect(dijit.byId("perfTestsResults"), "onRowContextMenu", rowContextMenuEvent);
+            dojo.connect(dijit.byId("perfTestsResults"), "onCellContextMenu", rowContextMenuEvent);
+
+            me.dialog = dialog;
+            me.canvas = canvas;
+            
+            me.strokeStyle = 0;
+            me.strokeWidth = 1;
+            me.width = 800;
+            me.height = 600;
+            me.canvas.width  = me.width;
+            me.canvas.height = me.height;
+         });
+   
+   that.open = function ()
+   {
+      if (!me.offscreenCanvas)
+      {
+         init();
+         if (p2j.screen.webgl.canvas.parentNode)
+         {
+            p2j.screen.webgl.canvas.parentNode.removeChild(p2j.screen.webgl.canvas);
+            me.canvasContainer.appendChild(p2j.screen.webgl.canvas);
+            var gl = p2j.screen.webgl.gl;
+            var debugInfo, vendor, renderer;
+            if (gl)
+            {
+               debugInfo = gl.getExtension('WEBGL_debug_renderer_info');
+               vendor = gl.getParameter(debugInfo.UNMASKED_VENDOR_WEBGL);
+               renderer = gl.getParameter(debugInfo.UNMASKED_RENDERER_WEBGL);
+               me.vendor = vendor;
+               me.renderer = renderer;
+               me.dialog.set("title", me.dialog.title + " - Vendor: " + vendor + " - Renderer: " + renderer);
+            }
+         }
+      }
+      if (me.dialog)
+      {
+         me.glCanvasRenderer.notifyWindowDrawStart(1);
+         me.dialog.show();
+      }
+   };
+   
+   return that;
+}());

=== modified file 'src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.screen.js'
--- src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.screen.js	2020-10-09 10:08:12 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.screen.js	2021-01-24 20:39:20 +0000
@@ -112,6 +112,7 @@
 **     HC  20200818 Fixed mouse input, drag event is generated only after certain threshold of mouse moved
 **                  distance. This resolves mouse clicks not triggered for some mouse input devices.
 **     HC  20200915 Prevented NPE condition.
+**     VVT 20201007 Support for the new drawing primitive was added: drawEdge()
 */
 
 /*
@@ -203,6 +204,15 @@
 
    /** Indicates that the graphics cache is in use. */
    var graphicsCached;
+
+   /** web renderer */
+   var renderer;
+
+   /** WebGL renderer context menu item */
+   var webGLRendererMenuItem;
+
+   /** 2D renderer context menu item */
+   var canvas2DRendererMenuItem;
    
    /** PaintPrimitives to ordinal mappings. Change this to match Java PaintPrimitives changes! */
    var ops = 
@@ -258,7 +268,8 @@
       DRAW_IBEAM              : 48,
       START_DIRECT_MANIPULATION : 49,
       DRAW_STRING_WITHIN_BOX        : 50,
-      DRAW_STRING_WITHIN_BOX_SCALED : 51
+      DRAW_STRING_WITHIN_BOX_SCALED : 51,
+      DRAW_EDGE : 52
    };
    
    /* map cursor id to name */
@@ -389,7 +400,6 @@
       var targetWidget;
       var targetWindow;
       var dragTimeout = null;
-      var downTimeStamp;
       /** postponed contextmenu event */
       var pendingContextMenuEvent = null;
 
@@ -536,7 +546,7 @@
          contextMenu = false;
          click = false;
          targetWidget = undefined;
-         downTimeStamp = Date.now();
+         me.downTimeStamp = performance.now();
          dragging = false;
          mouseEventDispatcher.mouseDownEvent = evt; 
          var activeWindowId = p2j.screen.getActiveWindowId();
@@ -1330,12 +1340,12 @@
       
       this.offscreenContext = this.offscreenCanvas.getContext('2d', {alpha : true});
 
-      setImageSmoothing(this.offscreenContext, false);
+      p2j.setImageSmoothing(this.offscreenContext, false);
 
       /** Canvas 2D graphics context. */
       this.ctx = this.canvas.getContext('2d', {alpha : true});
 
-      setImageSmoothing(this.ctx, false);
+      p2j.setImageSmoothing(this.ctx, false);
 
       /** List of owned windows. */
       this.children = [];
@@ -1348,11 +1358,19 @@
       
       /** Defines the window icon's height. */
       this.iconHeight = 0;
-      
+
       /** Creates canvas renderer. */
-      this.canvasRenderer = new CanvasRenderer(this.offscreenCanvas, this.offscreenContext,
-                                               this.canvas, strokesManager, p2j.fonts, p2j.logger);
-      
+      try
+      {
+         this.activateRenderer(renderer);
+      }
+      catch(ex)
+      {
+         console.warn("Failed to activate renderer " + renderer + ". " + ex);
+         console.warn("Failing over to 2D renderer.");
+         this.activateRenderer("2d")
+      }
+
       /** 
         * Flag indicating if the window should send OS events to the client-side. The default value
         * for new created window must be true due to modal windows application logic.
@@ -1430,8 +1448,46 @@
             }
          }
       }
+      
+      this.updateCanvasZOrder = function(zidx)
+      {
+         // assign the z-order
+         this.canvas.style.zIndex = zidx;
+      };
       // END WARNING
    };
+
+   /**
+    * Activates the supplied renderer fot this window.
+    *
+    * @param   newRenderer
+    *          The renderer to activate. The allowed values are "webgl" and "2d".
+    */
+   Window.prototype.activateRenderer = function(renderer)
+   {
+      var res = null;
+      renderer = renderer.toLowerCase();
+
+      if (renderer == "webgl")
+      {
+         res = new WebGLCanvasRenderer(this.offscreenCanvas, this.offscreenContext,
+            this.canvas, strokesManager, p2j.fonts, p2j.logger);
+      }
+      else if (renderer == "2d")
+      {
+         res = new CanvasRenderer(this.offscreenCanvas, this.offscreenContext,
+            this.canvas, strokesManager, p2j.fonts, p2j.logger);
+      }
+      else
+      {
+         throw "Unknown renderer type " + renderer + ".";
+      }
+
+      if (res)
+      {
+         this.canvasRenderer = res;
+      }
+   }
    
    /**
     * Set the currently hovered widget
@@ -1456,7 +1512,7 @@
    {
       this.canvas.style.left = x.toString() + "px";
       this.canvas.style.top  = y.toString() + "px";
-      
+
       // notify all driver widgets that the location has changed
       for (var widgetId in this.driverWidgets)
       {
@@ -2407,6 +2463,14 @@
                                    
       p2j.logger.log("START DRAWING CYCLE FOR WINDOW " + this.id);
 
+      // enable to trace screen show and render times
+      //var drawStartTime = performance.now();
+
+      if (this.canvasRenderer.notifyWindowDrawStart)
+      {
+         this.canvasRenderer.notifyWindowDrawStart(numOps);
+      }
+
       var idx = 25; // 1 + 16 + 4 + 4
 
       drawLoop:
@@ -2592,8 +2656,7 @@
 
                // TODO: this might need to be 'bottom', too
                this.offscreenContext.textBaseline = 'top';
-               me.layoutParagraphWorker(this.offscreenContext, text, fontId, x, y, width);
-
+               me.layoutParagraphWorker(this.offscreenContext, this.canvasRenderer, text, fontId, x, y, width);
                break;
             case ops.DRAW_LINE:
                var x1 =  p2j.socket.readInt32BinaryMessage(message, idx + 1);
@@ -3072,7 +3135,7 @@
                   offset = offset + 1;
                }
                var rmd5 = p2j.socket.createHexString(md5a);
-               
+               extra = " x = " + x + "; y = " + y + "; width = " + width + "; height = " + height + "; md5 = " + rmd5;
                this.canvasRenderer.startRecording(x, y, width, height, rmd5);
                break;
             case ops.STOP_RECORDING:
@@ -3093,8 +3156,21 @@
                }
                var rmd5 = p2j.socket.createHexString(md5a);
                
+               extra = " x = " + x + "; y = " + y + "; md5 = " + rmd5;
+               
                this.canvasRenderer.drawCached(x, y, rmd5);
                break;
+            case ops.DRAW_EDGE:
+               var left =  p2j.socket.readInt32BinaryMessage(message, idx + 1);
+               var top =  p2j.socket.readInt32BinaryMessage(message, idx + 5);
+               var width =  p2j.socket.readInt32BinaryMessage(message, idx + 9);
+               var height =  p2j.socket.readInt32BinaryMessage(message, idx + 13);
+               var edgeType =  p2j.socket.readInt32BinaryMessage(message, idx + 17);
+               var edgeFlags =  p2j.socket.readInt32BinaryMessage(message, idx + 21);
+               extra = " left = " + left + "; top = " + top + "; width = " + width +
+                  "; height = " + height + "; edgeType = " + edgeType + "; edgeFlags = " + edgeFlags;
+               this.canvasRenderer.drawEdge(left, top, width, height, edgeType, edgeFlags);
+               break;
             default:
                if (typeof type !== "undefined")
                {
@@ -3127,9 +3203,8 @@
       // if this is the end of a drawing bracket (clip and translate are zero), save the canvas
       if (this.clips == 0 && this.trans == 0 && graphicsCached)
       {
-         // save the offscreen canvas
+         // save the screen image
          var img;
-         
          if (this.offscreenCanvas instanceof HTMLCanvasElement)
          {
             img = new Image();
@@ -3140,15 +3215,19 @@
             // OffscreenCanvas : get ImageBitmap
             img = this.offscreenCanvas.transferToImageBitmap();
          }
-         
+
          this.cacheDraw(md5, img);
          
-         // clear the offscreen canvas for next drawing
+         // clear the screen for the next drawing
          this.canvasRenderer.clear();
       }
       
       p2j.logger.log("END DRAWING CYCLE FOR WINDOW " + this.id);
-   }; 
+      
+      // enable to trace screen show and render times
+      //console.log("Window draw time [win = " + this.id + "] " + (performance.now() - drawStartTime) + "ms");
+      //console.log("Window draw end time since mouse down [win = " + this.id + "] " + (performance.now() - me.downTimeStamp + "ms"));
+   };
 
    /**
     * Cache the specified image, for this window, to be reused.
@@ -3578,8 +3657,8 @@
 
       // the z-order is based on the array index
       var zidx = zlist.length * 10;
-      // assign the z-order
-      win.canvas.style.zIndex = zidx;
+      
+      win.updateCanvasZOrder(zidx);
       
       verifyEmbeddedWindows();
    };
@@ -5016,12 +5095,84 @@
          // notification during mouse drag even if mouse is outside of the window
          var resizeHandler = new MouseResizeable();
       }
-      graphicsCached = cfg.graphicsCached;
+
+      // initialize graphics caching 
+      var storedGraphicsCached = p2j.getCookie("graphicsCached");
+      var newCached = storedGraphicsCached == "true";
+      if (storedGraphicsCached && cfg.graphicsCached != newCached)
+      {
+         if (newCached)
+         {
+            p2j.socket.enableGraphicsCache();
+         } else
+         {
+            p2j.socket.disableGraphicsCache();
+         }
+      }
+      graphicsCached = storedGraphicsCached ? newCached : cfg.graphicsCached;
+
+      // set renderer
+      var storedRenderer = p2j.getCookie("renderer");
+      renderer = storedRenderer ? storedRenderer : cfg.renderer;
+
       document.addEventListener("mousemove", function (evt) { me.processScreenMouseMove(evt); });
 
       // the input handlers in MouseEventDispatcher must be registered after MouseResizable,
       // MouseResizable has higher priority
       mouseEventDispatcher = new MouseEventDispatcher();
+
+      // initialize renderer menu
+      require(["dijit/RadioMenuItem", "dijit/Menu", "dijit/PopupMenuItem", "dijit/CheckedMenuItem"], function(RadioMenuItem, Menu, PopupMenuItem, CheckedMenuItem)
+      {
+         var checked = renderer.toLowerCase() == "webgl";
+         webGLRendererMenuItem = new RadioMenuItem({group: "renderer", label: "WebGL", checked: checked, onChange: function (checked)
+         {
+            if (me.activateRenderer("webgl"))
+            {
+               p2j.setCookie("renderer", "webgl");
+            }
+         }});
+
+         canvas2DRendererMenuItem = new RadioMenuItem({group: "renderer", label: "2D", checked: !checked, onChange: function (checked)
+         {
+            if (me.activateRenderer("2d"))
+            {
+               p2j.setCookie("renderer", "2d");
+            }
+         }});
+
+         var rendererMenu = new Menu();
+         rendererMenu.addChild(webGLRendererMenuItem);
+         rendererMenu.addChild(canvas2DRendererMenuItem);
+
+         p2j.taskBarContextMenu.addChild(new PopupMenuItem(
+         {
+            label: "Active Renderer",
+            popup: rendererMenu
+         }));
+
+         p2j.taskBarContextMenu.addChild(new CheckedMenuItem(
+         {
+            label: "Graphics Caching",
+            checked: graphicsCached,
+            onChange: function(checked)
+            {
+               if (checked)
+               {
+                  p2j.socket.enableGraphicsCache();
+               }
+               else
+               {
+                  p2j.socket.disableGraphicsCache();
+               }
+
+               graphicsCached = checked;
+               p2j.setCookie("graphicsCached", checked);
+
+               console.log((graphicsCached ? "Enabled" : "Disabled") + " graphics caching.");
+            }
+         }));
+      });
    };
 
    /**
@@ -5091,39 +5242,6 @@
    };
 
    /**
-    * Enable or disable image smoothing for the given graphics context.
-    * 
-    * @param    {CanvasRenderingContext2D} graphicsContext
-    *           The given graphics context
-    * @param    {boolean} enabled
-    *           The enable flag that must be true to enable image smoothing and false to disable.
-    */
-   function setImageSmoothing(graphicsContext, enabled)
-   {
-      if (graphicsContext.imageSmoothingEnabled)
-      {
-         graphicsContext.imageSmoothingEnabled = enabled;
-      }
-      else
-      {
-         if (graphicsContext.mozImageSmoothingEnabled)
-         {
-            graphicsContext.mozImageSmoothingEnabled = enabled;
-         }
-         
-         if (graphicsContext.webkitImageSmoothingEnabled)
-         {
-            graphicsContext.webkitImageSmoothingEnabled = enabled;
-         }
-         
-         if (graphicsContext.msImageSmoothingEnabled)
-         {
-            graphicsContext.msImageSmoothingEnabled = enabled;
-         }
-      }
-   }
-
-   /**
     * Draw the given list of operations in the specified window. This is a completely different
     * implementation than for ChUI, but we are re-using the message type.
     *
@@ -5172,7 +5290,7 @@
       if (win.hasCachedDraw(md5) && !magic)
       {
          var cachedDraw = win.getCachedDraw(md5);
-         
+
          // blast the image from cache unto the canvas
          win.ctx.save();
          win.ctx.globalAlpha = 1;
@@ -5194,6 +5312,8 @@
     * @param    {CanvasRenderingContext2D} ctx
     *           The canvas 2D graphics context on which to draw, when <code>ctx</code> is set,
     *           the text should be drawn.
+    * @param    {Object} canvasRenderer
+    *           The renderer used to draw paragraph text.
     * @param    {String} txt
     *           The paragraph text.
     * @param    {Number} font
@@ -5207,7 +5327,7 @@
     * 
     * @return   {Number} The paragraph height.
     */
-   me.layoutParagraphWorker = function(ctx, txt, font, x, y, width)
+   me.layoutParagraphWorker = function(ctx, canvasRenderer, txt, font, x, y, width)
    {
       var newLine = true;
       var i = 0;
@@ -5227,9 +5347,9 @@
 
          var line = txt.substring(i, nextPos);
 
-         if (ctx)
+         if (canvasRenderer)
          {
-            ctx.fillText(line, x, y);
+            canvasRenderer.drawText(line, x, y, false);
          }
 
          y = y + fheight;
@@ -5505,6 +5625,55 @@
          dialog.show();
       });
    }
-   
+
+   /**
+    * Activates the supplied renderer.
+    *
+    * @param   newRenderer
+    *          The renderer to activate. The allowed values are "webgl" and "2d".
+    *
+    * @returns {boolean}
+    *          True if the renderer was successfully activated, false otherwise.
+    */
+   me.activateRenderer = function(newRenderer)
+   {
+      var res = true;
+
+      try
+      {
+         winlist.forEach(w => {
+            if (w instanceof Window)
+            {
+               w.activateRenderer(newRenderer);
+            }
+         });
+         renderer = newRenderer;
+         console.log("Activated " + newRenderer + " renderer.");
+      }
+      catch(ex)
+      {
+         console.warn("Failed to activate renderer " + newRenderer + ". " + ex);
+         if (newRenderer.toLowerCase() != "2d")
+         {
+            me.activateRenderer("2d");
+            return;
+         }
+
+         res = false;
+      }
+
+      me.updateRendererMenu();
+      return res;
+   }
+
+   /**
+    * Based on the active renderer updates the related UI.
+    */
+   me.updateRendererMenu = function()
+   {
+      webGLRendererMenuItem.checked = renderer.toLowerCase() == "webgl";
+      canvas2DRendererMenuItem.checked = !webGLRendererMenuItem.checked;
+   }
+
    return me;
 }());

=== added file 'src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.strokes.webgl.js'
--- src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.strokes.webgl.js	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.strokes.webgl.js	2021-01-06 23:13:38 +0000
@@ -0,0 +1,1211 @@
+/*
+** Module   : p2j.strokes.webgl.js
+** Abstract : WebGL strokes implementations.
+**
+** Copyright (c) 2020-2021, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ------------------------------Description----------------------------------
+** 001 HC  20201026 Implemented initial version.
+**     SBI 20210107 Corrected the output of DefaultPathRenderer.strokeLine.
+*/
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+"use strict";
+
+/**
+ * Defines the known stroke styles and methods to draw styled outer lines.
+ */
+function LineStrokesWebGL()
+{
+   /** Joins path segments by extending their outside edges until they meet. */
+   var JOIN_MITER = 0;
+
+   /** Joins path segments by rounding off the corner at a radius of half the line width. */
+   var JOIN_ROUND = 1;
+
+   /** Two points are the same if they are not far away from each others than EPSILON distance. */
+   var EPSILON = 0.01;
+   /**
+    * Joins path segments by connecting the outer corners of their
+    * wide outlines with a straight segment.
+    */
+   var JOIN_BEVEL = 2;
+
+   /** Ends unclosed subpaths and dash segments with no added decoration. */
+   var CAP_BUTT = 0;
+
+   /**
+    * Ends unclosed subpaths and dash segments with a round
+    * decoration that has a radius equal to half of the width
+    * of the pen.
+    */
+   var CAP_ROUND = 1;
+
+   /**
+    * Ends unclosed subpaths and dash segments with a square
+    * projection that extends beyond the end of the segment
+    * to a distance equal to half of the line width.
+    */
+   var CAP_SQUARE = 2;
+
+   /** This is the list of all possible line stoke types. */
+   var LineStrokeEnum =
+   {
+      DEFAULT           : 0,
+      SPECIFIED_WIDTH   : 1,
+      DOTTED            : 2,
+      DOTTED_SMALL      : 3,
+      DOTTED_SMALL_THIN : 4,
+      DOTTED_LARGE      : 5
+   };
+
+   var LineStroke =
+   {
+      /** Dotted line specific parameter. */
+      DOT_STEP            : 2.0,
+
+      /** Dotted line specific parameter. */
+      DOT_STEP_SMALL      : 1.0,
+
+      /** Dotted line width. */
+      DOT_LINE_WIDTH      : 1.0,
+
+      /** Dotted thin line width. */
+      DOT_LINE_THIN_WIDTH : 0.5,
+
+      /** The dash step for the dotted large style. */
+      DOT_STEP_LARGE      : 3
+   };
+
+   /**
+    * Represents a dot style with 2 pixels to draw and then 2 pixels to pass.
+    */
+   var dotStroke = new BasicStroke(LineStroke.DOT_LINE_WIDTH, CAP_BUTT, JOIN_BEVEL, 0.0,
+      [LineStroke.DOT_STEP, LineStroke.DOT_STEP], 0);
+
+   /**
+    * Represents a dot style with 1 pixel to draw and then 1 pixel to pass.
+    */
+   var dotSmallStroke  = new BasicStroke(LineStroke.DOT_LINE_WIDTH, CAP_BUTT, JOIN_BEVEL, 0.0,
+      [LineStroke.DOT_STEP_SMALL, LineStroke.DOT_STEP_SMALL], 0);
+
+   /**
+    * Represents a dot style with 0.5 pixel to draw and then 0.5 pixel to pass.
+    */
+   var dotSmallThinStroke = new BasicStroke(LineStroke.DOT_LINE_THIN_WIDTH, CAP_BUTT,
+      JOIN_BEVEL, 0.0, [LineStroke.DOT_STEP_SMALL, LineStroke.DOT_STEP_SMALL],0);
+
+   /**
+    * Represents a dot style with 3 pixel to draw and then 3 pixel to pass.
+    */
+   var dotLargeStroke = new BasicStroke(LineStroke.DOT_LINE_WIDTH, CAP_BUTT, JOIN_MITER,
+      1.0, [LineStroke.DOT_STEP_LARGE, LineStroke.DOT_STEP_LARGE], 0);
+   /**
+    * Represents a default style to draw a 1 pixel width solid line.
+    */
+   var defaultStroke = new BasicStroke(1.0, CAP_SQUARE, JOIN_MITER, 10.0, null, 0.0);
+
+   /** Holds all java script styles of how the ends of lines are drawn. */
+   var caps = [ "butt", "round", "square"];
+
+   /**
+    * Holds all java script styles of how two connecting segments with non-zero lengths
+    * in a shape are joined together.
+    */
+   var joins = [ "miter", "round", "bevel"];
+
+   /**
+    * Holds properties for line drawing styles.
+    *
+    * @param    width
+    *           The width of lines to draw.
+    * @param    cap
+    *           The decoration of the line ends.
+    * @param    join
+    *           The decoration applied where path segments meet.
+    * @param    miterlimit
+    *           The limit to trim the miter join.
+    * @param    dash
+    *           The array representing the dashing pattern.
+    * @param    dash_phase
+    *           The offset to start the dashing pattern.
+    */
+   function BasicStroke(width, cap, join, miterLimit, dash, dash_phase)
+   {
+      if (width < 1)
+      {
+         width = 1;
+      }
+
+      this.getWidth = function() { return width; };
+      this.getCap   = function() { return caps[cap]; };
+      this.getCapEnum = function() { return cap; };
+
+      this.getJoin        = function() { return joins[join]; };
+      this.getJoinEnum    = function() { return join; };
+      this.getMiterLimit  = function() { return miterLimit; };
+
+      this.getDash       = function() { return dash; };
+      this.getDashPhase  = function() { return dash_phase; };
+   };
+
+   /**
+    * Returns the stroke style object.
+    * 
+    * @param    {Number} strokeStyle
+    *           The stroke style id according to the LineStroke enumeration.
+    * @param    {Number} width
+    *           The line width.
+    * 
+    * @return   The basic line stroke object.
+    */
+   function getLineStroke(strokeStyle, width)
+   {
+      switch (strokeStyle)
+      {
+         case LineStrokeEnum.SPECIFIED_WIDTH:
+            return new BasicStroke(width, CAP_SQUARE, JOIN_MITER, 10.0, null, 0.0);
+         case LineStrokeEnum.DOTTED:
+            return dotStroke;
+         case LineStrokeEnum.DOTTED_SMALL:
+            return dotSmallStroke;
+         case LineStrokeEnum.DOTTED_SMALL_THIN:
+            return dotSmallThinStroke;
+         case LineStrokeEnum.DOTTED_LARGE:
+            return dotLargeStroke;
+         default:
+            return defaultStroke;
+      }
+   };
+   
+   /**
+    * Returns the stroke path renderer.
+    * 
+    * @param    {CanvasRenderer} canvasRenderer
+    *           The canvas renderer.
+    * @param    {Number} strokeStyle
+    *           The stroke style id according to the LineStroke enumeration.
+    * @param    {Number} width
+    *           The line width.
+    * @param    {Number[]} strokeColor
+    *           The array of 3 integer values between 0 and 255 inclusive, representing
+    *           a stroke color.
+    * 
+    * @return   The stroke path renderer.
+    */
+   this.getStrokePathRenderer = function(canvasRenderer, strokeStyle, width, strokeColor)
+   {
+      var basicStroke = getLineStroke(strokeStyle, width);
+      
+      return new DefaultPathRenderer(canvasRenderer, basicStroke, strokeColor);
+   };
+   
+   /**
+    * Returns the stroke path renderer.
+    * 
+    * @param    {CanvasRenderer} canvasRenderer
+    *           The canvas renderer.
+    * @param    {Number[]} strokeColor
+    *           The array of 3 integer values between 0 and 255 inclusive, representing
+    *           a stroke color.
+    * 
+    * @return   The stroke path renderer.
+    */
+   this.getStrokeDefaultPathRenderer = function(canvasRenderer, strokeColor)
+   {
+      var basicStroke = getLineStroke(LineStrokeEnum.DEFAULT, 1);
+      return new DefaultPathRenderer(canvasRenderer, basicStroke, strokeColor);
+   }
+   
+   /**
+    * Returns the default stroke that is a solid line style with 1 pixel line width.
+    * 
+    * @return   {Number} The default stroke style.
+    */
+   this.getDefaultStrokeStyle = function()
+   {
+      return LineStrokeEnum.DEFAULT;
+   }
+
+   function createAndFillPenImage(canvasRenderer, width, color)
+   {
+      var penImage = canvasRenderer.createImageData(width, width);
+      var data = penImage.data;
+      
+      var length = 4 * width * width;
+
+      // Fill first pixel with color
+      data[0] = color[0];
+      data[1] = color[1];
+      data[2] = color[2];
+      data[3] = 255;
+
+      var pos = 4;
+      var seqLen = 4;
+      while(pos < length)
+      {
+         data.copyWithin(pos, 0, seqLen);
+         // increment position by the length of the current segment
+         pos += seqLen;
+         // double the length of the next segment
+         seqLen <<= 1;
+      }
+      
+      return penImage;
+   }
+   
+   /**
+    * Defines StrokeRenderer class
+    */
+   function StrokeRenderer()
+   {
+   }
+
+   /**
+    * Defines the constructor function
+    */
+   StrokeRenderer.prototype.constructor = StrokeRenderer;
+
+   /**
+    * Prepare the object. This method is used to initialize and to reset the stroke renderer.
+    */
+   StrokeRenderer.prototype.beginStroke = function()
+   {
+   };
+   
+   /**
+    * Apply the stroke to lines given by the absolute coordinates. This method is used to stroke
+    * only vertical and horizontal lines.
+    *
+    * @param    {Number} x1
+    *           X coordinate of the starting pixel to be drawn.
+    * @param    {Number} y1
+    *           Y coordinate of the starting pixel to be drawn.
+    * @param    {Number} x2
+    *           X coordinate of the ending pixel to be drawn.
+    * @param    {Number} y2
+    *           Y coordinate of the ending pixel to be drawn.
+    */
+   StrokeRenderer.prototype.strokeLine  = function(x1, y1, x2, y2)
+   {
+   };
+
+   /**
+    * Apply the stroke to the next point given by its coordinates (x, y). This method is used to
+    * stroke sloped and curved lines.
+    *
+    * @param    {Number} x
+    *           X coordinate of the point to be drawn.
+    * @param    {Number} y
+    *           Y coordinate of the point to be drawn.
+    */
+   StrokeRenderer.prototype.strokePoint = function(x, y)
+   {
+   };
+
+   /**
+    * Used to draw dash patterns on lines of pixels.
+    * 
+    * @param    {CanvasRenderer} canvasRenderer
+    *           The canvas renderer.
+    * @param    {Object} basicStroke
+    *           The stroke style object.
+    * @param    {Number[]} strokeColor
+    *           The array of 3 integer values between 0 and 255 inclusive, representing
+    *           a stroke color.
+    */
+   function DotsPathRenderer(canvasRenderer, basicStroke, strokeColor)
+   {
+      var state = {};
+      var width = basicStroke.getWidth();
+      var hw = width >> 1;
+      var pixel = createAndFillPenImage(canvasRenderer, width, strokeColor);
+      var pixelData = pixel.data;
+      
+      /**
+       * Normalizes a dash offset distance according to the given dash pattern.
+       * A normalized dash offset distance is a distance that is cut the corresponding segment
+       * from the dash pattern that is extended periodically in order to cover the target dash
+       * offset.
+       * 
+       * @param    {Array} dash
+       *           The dash array that specifies the number of units to be drawn followed
+       *           by the number of units to be skipped.
+       * @param    {Number} dashOffset
+       *           The offset distance from the first pattern point to the point which becomes
+       *           a start point of the dash pattern.
+       * 
+       * @return   The container {startPhase : phase, startDashOn : dashOn, startIdx : idx},
+       *           where the startPhase field holds a normalized dash offset, startDashOn defines
+       *           to draw or to skip, the value of startIdx is the current dash pattern index.
+       */
+      function normalize(dash, dashOffset)
+      {
+         var phase = dashOffset;
+         var idx = 0;
+         var dashOn = true;
+         var d;
+         
+         while (phase >= (d = dash[idx]))
+         {
+             phase -= d;
+             idx = (idx + 1) % dash.length;
+             dashOn = !dashOn;
+         }
+
+         return {startPhase : phase, startDashOn : dashOn, startIdx : idx};
+      }
+      
+      /**
+       * Prepares the given stroke to be applied to the line of pixels called a path.
+       */
+      this.beginStroke = function()
+      {
+         var dash = basicStroke.getDash();
+         if (!dash || dash.length == 0)
+         {
+            return;
+         }
+         var dashOffset = basicStroke.getDashPhase();
+         var len = dash.length;
+         
+         var patternObj = normalize(dash, dashOffset);
+         
+         var dashOn = patternObj.startDashOn;
+         var phase  = patternObj.startPhase;
+         var idx    = patternObj.startIdx;
+         var rest = dash[idx] - phase;
+         
+         state.dash   = dash;
+         state.len    = len;
+         state.dashOn = dashOn;
+         state.idx    = idx;
+         state.rest   = rest;
+      }
+      
+      /**
+       * Apply the stroke to vertical or horizontal lines given by the absolute coordinates that
+       * satisfy x1 <= x2 and y1 <= y2.
+       * 
+       * @param    {Number} x1
+       *           X coordinate of the starting pixel to be drawn.
+       * @param    {Number} y1
+       *           Y coordinate of the starting pixel to be drawn.
+       * @param    {Number} x2
+       *           X coordinate of the ending pixel to be drawn.
+       * @param    {Number} y2
+       *           Y coordinate of the ending pixel to be drawn.
+       */
+      this.strokeLine = function(x1, y1, x2, y2)
+      {
+         var rest   = state.rest;
+         var idx    = state.idx;
+         var len    = state.len;
+         var dashOn = state.dashOn;
+         var dash   = state.dash;
+         // precondition: dx should be greater or equal than zero.
+         var dx = Math.abs(x2 - x1);
+         var dy = -Math.abs(y2 - y1);
+         var x = x1;
+         var y = y1;
+         var bxIncr = x1 <= x2;
+         var xIncr = bxIncr ? 1 : -1;
+         var byIncr = y1 <= y2;
+         var yIncr = byIncr ? 1 : -1;
+         var err = dx + dy;
+         var tooMany = 0;
+         
+         while (true)
+         {
+            if (((bxIncr && (x > x2)) || (!bxIncr && (x < x2))) || ((byIncr && (y > y2))||!byIncr && (y < y2)))
+            {
+               break;
+            }
+            else
+            {
+               if (tooMany > 10000)
+               {
+                  console.log("Bresenham is out of control for x1 = %d, y1 = %d,"
+                           + " x2 = %d, y2 = %d and current x = %d, y = %d!", x1, y1, x2, y2, x, y);
+                  console.trace();
+                  break;
+               }
+            }
+            
+            tooMany++;
+            
+            if (rest < 1)
+            {
+               idx    = (idx + 1) % len;
+               rest   = state.dash[idx];
+               dashOn = !dashOn;
+            }
+            rest -= 1;
+            
+            if (dashOn)
+            {
+               canvasRenderer.drawImage(x - hw, y - hw, width, width, pixelData, true, false);
+            }
+            // vertical line: increase Y-coordinate
+            if (dx == 0)
+            {
+               y = y + 1;
+            }
+            else if (dy == 0) // horizontal line: increase X-coordinate
+            {
+               x = x + 1;
+            }
+            else
+            {
+               var err2 = err * 2;
+               
+               if (err2 >= dy)
+               {
+                  err += dy;
+                  x   += xIncr; 
+               }
+               
+               if (err2 <= dx)
+               {
+                  err += dx;
+                  y   += yIncr;
+               }
+            }
+         }
+         // save the dash pattern state in order to continue this dash pattern for next drawings 
+         state.dashOn = dashOn;
+         state.rest   = rest;
+         state.idx    = idx;
+         
+         return [];
+      }
+      
+      /**
+       * Apply the stroke to the next point given by its coordinates (x, y).
+       * 
+       * @param    {Number} x
+       *           X coordinate of the point to be drawn.
+       * @param    {Number} y
+       *           Y coordinate of the point to be drawn.
+       */
+      this.strokePoint = function(x, y)
+      {
+         var rest   = state.rest;
+         var idx    = state.idx;
+         var len    = state.len;
+         var dashOn = state.dashOn;
+         if (rest < 1)
+         {
+            idx    = (idx + 1) % len;
+            rest   = state.dash[idx];
+            dashOn = !dashOn;
+         }
+         rest -= 1;
+         if (dashOn)
+         {
+            canvasRenderer.drawImage(x - hw, y - hw, width, width, pixelData, true, false);
+         }
+         // save the dash pattern state in order to continue this dash pattern for next drawings 
+         state.dashOn = dashOn;
+         state.rest   = rest;
+         state.idx    = idx;
+      }
+      
+   }
+   
+   /**
+    * DotsPathRenderer implements StrokeRenderer methods
+    */
+   DotsPathRenderer.prototype = Object.create(StrokeRenderer.prototype);
+
+   /**
+    * Defines the constructor function
+    */
+   DotsPathRenderer.prototype.constructor = DotsPathRenderer;
+   
+   /**
+    * The default lines renderer.
+    * 
+    * @param    {CanvasRenderer} canvasRenderer
+    *           The canvas renderer.
+    * @param    {Object} basicStroke
+    *           The stroke style object.
+    * @param    {Number[]} strokeColor
+    *           The array of 3 integer values between 0 and 255 inclusive, representing
+    *           a stroke color.
+    */
+   function DefaultPathRenderer(canvasRenderer, basicStroke, strokeColor)
+   {
+      var width = basicStroke.getWidth();
+      var w = width / 2.0;
+      var pixel = createAndFillPenImage(canvasRenderer, width, strokeColor);
+      var pixelData = pixel.data;
+      var color = strokeColor.concat([255]);
+      
+      /** the previous line with its attributes in this path */
+      var prev = [];
+      /** the current line with its attributes in this path */
+      var curr = [];
+      /** the first line with its attributes in this path */
+      var first = [];
+      /** Line style object */
+      var lineStyleObject = {
+            point : [0, 0],
+            dir   : [1, 0],
+            basicStroke : basicStroke
+      };
+      
+      /**
+       * Prepares the given stroke to be applied to the line of pixels called a path.
+       */
+      this.beginStroke = function()
+      {
+         // TODO: hc
+         prev.length = 0;
+         curr.length = 0;
+         first.length = 0;
+      }
+      
+      /**
+       * Update the current line style object.
+       * 
+       * @param    {Number} x
+       *           X coordinate of the first vertex of the target line.
+       * @param    {Number} y
+       *           Y coordinate of the first vertex of the target line.
+       * @param    {Number} lx
+       *           X coordinate of the direction vector of the target line.
+       * @param    {Number} ly
+       *           Y coordinate of the direction vector of the target line.
+       * 
+       * @return   The new line style object that is a copier of the current style object.
+       */
+      this.updateLineStyleObject = function(x, y, lx, ly)
+      {
+         lineStyleObject.point[0] = x;
+         lineStyleObject.point[1] = y;
+         lineStyleObject.dir[0] = lx;
+         lineStyleObject.dir[1] = ly;
+         
+         return this.copyLineStyleObject();
+      }
+      
+      this.copyLineStyleObject = function()
+      {
+         var lso = {};
+         
+         lso.point = [lineStyleObject.point[0], lineStyleObject.point[1]];
+         lso.dir = [lineStyleObject.dir[0], lineStyleObject.dir[1]];
+         lso.basicStroke = lineStyleObject.basicStroke;
+         
+         return lso;
+      }
+      
+      /**
+       * Add a joint between two subsequent segments of the given thickness.
+       */
+      function getMiterJoints(
+            x1_prev, y1_prev,
+            x2_prev, y2_prev, l_prev, bx2_prev, by2_prev, cx2_prev, cy2_prev,
+            x1, y1, l, bx1, by1, cx1, cy1,
+            x2, y2, c1, c2, c3, c4, lso)
+      {
+         var triangles = [];
+         //detect outer normals
+         //a = [x2_prev - x1_prev, y2_prev - y1_prev]
+         //na = [-(y2_prev - y1_prev), x2_prev - x1_prev] 
+         //b = [x2 - x1, y2 - y1]
+         //nb = [-(y2 - y1), x2 - x1]
+         // na and nb are outer normals iff (nb, a) > 0 and (na, b) < 0
+         var nab = -(y1 - y1_prev) * (x2 - x1) + (x1 - x1_prev) * (y2 - y1);
+         
+         //var nba = -(y2 - y1) * (x1 - x1_prev) + (x2 - x1) * (y1 - y1_prev);
+         // => nba = -nab;
+         var nba = -nab;
+         
+         var nax, nay, nbx, nby;
+         // l_prev^2 = (x1-x1_prev)^2 + (y1-y1_prev)^2
+         // l^2 = (y2 - y1)^2 + (x2 - x1)^2
+         //normalize nb and na
+         if (nba < 0)
+         {
+            // => (-nb, a) > 0
+            nbx = (y2 - y1)/l;
+            nby = (x1 - x2)/l;
+         }
+         else
+         {
+            // => (nb, a) >= 0
+            nbx = (y1 - y2)/l;
+            nby = (x2 - x1)/l;
+         }
+         
+         if (nab > 0)
+         {
+            // => (-na, b) < 0
+            nax = (y1 - y1_prev) / l_prev;
+            nay = (x1_prev - x1) / l_prev;
+         }
+         else
+         {
+            // => (na, b) <= 0
+            nax = (y1_prev - y1) / l_prev;
+            nay = (x1 - x1_prev) / l_prev;
+         }
+         // (w*na, w*nb) = w^2 * cos(2*alpha) => sin^2(alpha) = 1/2 (1-(na,nb))
+         // h^2 / w^2 = tg^2(alpha)
+         // h^2 = w^2 sin^2(alpha)/1-sin^2(alpha)
+         // => h^2 = w^2(1-(na,nb))/(1+(na,nb))
+         var nanb = nax*nbx + nay * nby;
+         var h = w * Math.sqrt((1 - nanb)/(1 + nanb));
+         // [x2_prev - x1_prev, y2_prev - y1_prev]*h/l_prev + w*na is outer joint point
+         // [x2_prev - x1_prev, y2_prev - y1_prev] = [x1 - x1_prev, y1 - y1_prev]
+         
+         // if (bx2_prev - x1)*nax + (by2_prev -y1)*nay >= 0
+         // then [bx2_prev, by2_prev] is an outer point, otherwise
+         // [cx2_prev, cy2_prev] is an outer point.
+         var outer_point1 = (bx2_prev - x1) * nax + (by2_prev - y1) * nay;
+         
+         if (outer_point1 >= 0)
+         {
+            
+            triangles.push([x1, y1, bx2_prev, by2_prev,
+                            x1 + w*nax + h * (x1 - x1_prev)/ l_prev,
+                            y1 + w*nay + h * (y1 - y1_prev)/ l_prev,
+                            c1, c2, c3, c4, lso]);
+         }
+         else
+         {
+            triangles.push([x1, y1, cx2_prev, cy2_prev,
+                            x1 + w*nax + h * (x1 - x1_prev)/ l_prev,
+                            y1 + w*nay + h * (y1 - y1_prev)/ l_prev,
+                            c1, c2, c3, c4, lso]);
+         }
+         //if (bx1 - x1)*nbx + (by1 - y1)*nby >= 0
+         // then [bx1, by1] is an outer point, otherwise
+         // [cx1, cy1] is an outer point.
+         var outer_point2 = (bx1 - x1) * nbx + (by1 - y1) * nby;
+         
+         if (outer_point2 >= 0)
+         {
+            triangles.push([x1, y1, bx1, by1,
+                            x1 + w*nax + h * (x1 - x1_prev)/ l_prev,
+                            y1 + w*nay + h * (y1 - y1_prev)/ l_prev,
+                            c1, c2, c3, c4, lso]);
+         }
+         else
+         {
+            triangles.push([x1, y1, cx1, cy1,
+                            x1 + w*nax + h * (x1 - x1_prev)/ l_prev,
+                            y1 + w*nay + h * (y1 - y1_prev)/ l_prev,
+                            c1, c2, c3, c4, lso]);
+         }
+         
+         return triangles;
+      }
+
+      /**
+       * Add joints between two segments of the given thickness.
+       */
+      function addJointBetweenSegments(
+            x1_prev, y1_prev, l_prev, bx1_prev, by1_prev, cx1_prev, cy1_prev,
+            x2_prev, y2_prev, bx2_prev, by2_prev, cx2_prev, cy2_prev,
+            x1, y1, l, bx1, by1, cx1, cy1, x2, y2, bx2, by2, cx2, cy2, c1, c2, c3, c4, lso)
+      {
+         var triangles = [];
+         //define vertices to join
+         var d = Math.abs(x1 - x2_prev) + Math.abs(y1 - y2_prev);
+         if (d <= EPSILON)
+         {
+            triangles = triangles.concat(getMiterJoints(
+                  x1_prev, y1_prev,
+                  x2_prev, y2_prev, l_prev, bx2_prev, by2_prev, cx2_prev, cy2_prev,
+                  x1, y1, l, bx1, by1, cx1, cy1,
+                  x2, y2, c1, c2, c3, c4, lso));
+         }
+         else
+         {
+            d = Math.abs(x1 - x1_prev) + Math.abs(y1 - y1_prev);
+            if (d <= EPSILON)
+            {
+               triangles = triangles.concat(getMiterJoints(
+                     x2_prev, y2_prev,
+                     x1_prev, y1_prev, l_prev, bx1_prev, by1_prev, cx1_prev, cy1_prev,
+                     x1, y1, l, bx1, by1, cx1, cy1,
+                     x2, y2, c1, c2, c3, c4, lso));
+            }
+            else
+            {
+               d = Math.abs(x2 - x1_prev) + Math.abs(y2 - y1_prev);
+               if (d <= EPSILON)
+               {
+                  triangles = triangles.concat(getMiterJoints(
+                        x2_prev, y2_prev,
+                        x1_prev, y1_prev, l_prev, bx1_prev, by1_prev, cx1_prev, cy1_prev,
+                        x2, y2, l, bx2, by2, cx2, cy2,
+                        x1, y1, c1, c2, c3, c4, lso));
+               }
+               else
+               {
+                  d = Math.abs(x2 - x2_prev) + Math.abs(y2 - y2_prev);
+                  if (d <= EPSILON)
+                  {
+                     triangles = triangles.concat(getMiterJoints(
+                           x1_prev, y1_prev,
+                           x2_prev, y2_prev, l_prev, bx2_prev, by2_prev, cx2_prev, cy2_prev,
+                           x2, y2, l, bx2, by2, cx2, cy2,
+                           x1, y1, c1, c2, c3, c4, lso));
+                  }
+               }
+            }
+         }
+         
+         return triangles;
+      }
+      
+      /**
+       * Apply the stroke to vertical or horizontal lines given by the absolute coordinates that
+       * satisfy x1 <= x2 and y1 <= y2.
+       * 
+       * @param    {Number} x1
+       *           X coordinate of the starting pixel to be drawn.
+       * @param    {Number} y1
+       *           Y coordinate of the starting pixel to be drawn.
+       * @param    {Number} x2
+       *           X coordinate of the ending pixel to be drawn.
+       * @param    {Number} y2
+       *           Y coordinate of the ending pixel to be drawn.
+       */
+      this.strokeLine = function(x1, y1, x2, y2)
+      {
+         if (first.length == 0)
+         {
+            first = curr;
+         }
+         
+         prev = curr;
+         curr = [];
+         var triangles = [];
+         var c1 = color[0];
+         var c2 = color[1];
+         var c3 = color[2];
+         var c4 = color[3];
+         
+         var cap = basicStroke.getCapEnum();
+         var join = basicStroke.getJoinEnum();
+         var a = x2-x1;
+         var b = y2-y1;
+         var lx;
+         var ly;
+         var l;
+         var ax1;
+         var ay1;
+         var bx1;
+         var by1;
+         var cx1;
+         var cy1;
+         var ax2;
+         var ay2;
+         var bx2;
+         var by2;
+         var cx2;
+         var cy2;
+         if (b == 0)
+         {
+            l = Math.abs(a);
+            lx = 1.0;
+            ly = 0.0;
+            if (width == 1.0)
+            {
+               bx1 = x1;
+               by1 = y1 + 1;
+               cx1 = x1;
+               cy1 = y1;
+               bx2 = x2;
+               by2 = y2 + 1;
+               cx2 = x2;
+               cy2 = y2;
+               ax1 = x1;
+               ay1 = y1 + 0.5;
+               ax2 = x2;
+               ay2 = y2 + 0.5;
+            }
+            else if (width == 0.5)
+            {
+               bx1 = x1;
+               by1 = y1 + 0.5;
+               cx1 = x1;
+               cy1 = y1;
+               bx2 = x2;
+               by2 = y2 + 0.5;
+               cx2 = x2;
+               cy2 = y2;
+               ax1 = x1;
+               ay1 = y1 + 0.25;
+               ax2 = x2;
+               ay2 = y2 + 0.25;
+            }
+            else
+            {
+               bx1 = x1;
+               by1 = y1 + w;
+               cx1 = x1;
+               cy1 = y1 - w;
+               bx2 = x2;
+               by2 = y2 + w;
+               cx2 = x2;
+               cy2 = y2 - w;
+               ax1 = x1;
+               ay1 = y1;
+               ax2 = x2;
+               ay2 = y2;
+            }
+         }
+         else if (a == 0)
+         {
+            l = Math.abs(b);
+            lx = 0.0;
+            ly = 1.0;
+            if (width == 1.0)
+            {
+               bx1 = x1 + 1;
+               by1 = y1;
+               cx1 = x1;
+               cy1 = y1;
+               bx2 = x2 + 1;
+               by2 = y2;
+               cx2 = x2;
+               cy2 = y2;
+               ax1 = x1 + 0.5;
+               ay1 = y1;
+               ax2 = x2 + 0.5;
+               ay2 = y2;
+            }
+            else if (width == 0.5)
+            {
+               bx1 = x1;
+               by1 = y1;
+               cx1 = x1 + 0.5;
+               cy1 = y1;
+               bx2 = x2;
+               by2 = y2;
+               cx2 = x2 + 0.5;
+               cy2 = y2;
+               ax1 = x1 + 0.25;
+               ay1 = y1;
+               ax2 = x2 + 0.25;
+               ay2 = y2;
+            }
+            else
+            {
+               bx1 = x1 - w;
+               by1 = y1;
+               cx1 = x1 + w;
+               cy1 = y1;
+               bx2 = x2 - w;
+               by2 = y2;
+               cx2 = x2 + w;
+               cy2 = y2;
+               
+               ax1 = x1;
+               ay1 = y1;
+               ax2 = x2;
+               ay2 = y2;
+            }
+         }
+         else
+         {
+            l = Math.sqrt(a*a + b*b);
+            lx = a/l;
+            ly = b/l;
+            //normal vector n = 1/l * [-b, a];
+            bx1 = x1 - w*b/l;
+            by1 = y1 + w*a/l;
+            cx1 = x1 + w*b/l;
+            cy1 = y1 - w*a/l;
+            bx2 = x2 - w*b/l;
+            by2 = y2 + w*a/l;
+            cx2 = x2 + w*b/l;
+            cy2 = y2 - w*a/l;
+            ax1 = x1;
+            ay1 = y1;
+            ax2 = x2;
+            ay2 = y2;
+         }
+         
+         var lso = this.updateLineStyleObject(ax1, ay1, lx, ly);
+         
+         curr.push([ax1, ay1, l, bx1, by1, cx1, cy1]);
+         curr.push([ax2, ay2, l, bx2, by2, cx2, cy2]);
+         
+         if (prev.length == 2 && join == JOIN_MITER)
+         {
+            //define vertices to join
+            var prev1 = prev[0];
+            var x1_prev = prev1[0];
+            var y1_prev = prev1[1];
+            var l_prev  = prev1[2];
+            var bx1_prev = prev1[3];
+            var by1_prev = prev1[4];
+            var cx1_prev = prev1[5];
+            var cy1_prev = prev1[6];
+            
+            var prev2 = prev[1];
+            var x2_prev = prev2[0];
+            var y2_prev = prev2[1];
+            var bx2_prev = prev2[3];
+            var by2_prev = prev2[4];
+            var cx2_prev = prev2[5];
+            var cy2_prev = prev2[6];
+            
+            triangles = triangles.concat(addJointBetweenSegments(
+                  x1_prev, y1_prev, l_prev, bx1_prev, by1_prev, cx1_prev, cy1_prev,
+                  x2_prev, y2_prev, bx2_prev, by2_prev, cx2_prev, cy2_prev,
+                  ax1, ay1, l, bx1, by1, cx1, cy1, ax2, ay2, bx2, by2, cx2, cy2, c1, c2, c3, c4, lso));
+               //add decorations for disjoint neighbough lines
+               /*
+               if (cap == CAP_SQUARE)
+               {
+                  if (b == 0)
+                  {
+                     bx1 = bx1 - w;
+                     cx1 = cx1 - w;
+                     ax1 = ax1 - w;
+                  }
+                  else if (a == 0)
+                  {
+                     by1 = by1 - w;
+                     cy1 = cy1 - w;
+                     ay1 = ay1 - w;
+                  }
+                  else
+                  {
+                     //direction vector v = 1/l * [a, b]
+                     bx1 = bx1 - w*a/l;
+                     by1 = by1 - w*b/l;
+                     cx1 = cx1 - w*a/l;
+                     cy1 = cy1 - w*b/l;
+                     ax1 = ax1 - w*a/l;
+                     ay1 = ay1 - w*b/l;
+                  }
+               }*/
+         }
+         
+         if (first.length == 2 && join == JOIN_MITER && first != prev)
+         {
+            var first1 = first[0];
+            var x1_first  = first1[0];
+            var y1_first  = first1[1];
+            var l_first   = first1[2];
+            var bx1_first = first1[3];
+            var by1_first = first1[4];
+            var cx1_first = first1[5];
+            var cy1_first = first1[6];
+            var first2 = first[1];
+            var x2_first = first2[0];
+            var y2_first = first2[1];
+            var bx2_first = first2[3];
+            var by2_first = first2[4];
+            var cx2_first = first2[5];
+            var cy2_first = first2[6];
+            triangles = triangles.concat(addJointBetweenSegments(
+                     x1_first, y1_first, l_first, bx1_first, by1_first, cx1_first, cy1_first,
+                     x2_first, y2_first, bx2_first, by2_first, cx2_first, cy2_first,
+                     ax1, ay1, l, bx1, by1, cx1, cy1, ax2, ay2, bx2, by2, cx2, cy2, c1, c2, c3, c4, lso));
+         }
+         
+         //corrected the output by adding extra pixels
+         
+         if (b == 0)
+         {
+            if (width == 1.0)
+            {
+               triangles.push([bx1, by1, cx1, cy1, bx2 + 1, by2, c1, c2, c3, c4, lso]);
+               triangles.push([cx1, cy1, cx2 + 1, cy2, bx2 + 1, by2, c1, c2, c3, c4, lso]);
+            }
+            else if (width == 0.5)
+            {
+               triangles.push([bx1, by1, cx1, cy1, bx2 + w, by2, c1, c2, c3, c4, lso]);
+               triangles.push([cx1, cy1, cx2 + w, cy2, bx2 + w, by2, c1, c2, c3, c4, lso]);
+            }
+            else
+            {
+               triangles.push([bx1, by1, cx1, cy1, bx2 + w, by2, c1, c2, c3, c4, lso]);
+               triangles.push([cx1, cy1, cx2 + w, cy2, bx2 + w, by2, c1, c2, c3, c4, lso]);
+            }
+         }
+         else if (a == 0)
+         {
+            if (width == 1.0)
+            {
+               triangles.push([bx1, by1, cx1, cy1, bx2, by2 + 1, c1, c2, c3, c4, lso]);
+               triangles.push([cx1, cy1, cx2, cy2 + 1, bx2, by2 + 1, c1, c2, c3, c4, lso]);
+            }
+            else if (width == 0.5)
+            {
+               triangles.push([bx1, by1 + w, cx1, cy1 - w, bx2, by2 + w, c1, c2, c3, c4, lso]);
+               triangles.push([cx1, cy1 - w, cx2, cy2, bx2, by2 + w, c1, c2, c3, c4, lso]);
+            }
+            else
+            {
+               triangles.push([bx1, by1 - w, cx1, cy1 - w, bx2, by2 + w, c1, c2, c3, c4, lso]);
+               triangles.push([cx1, cy1 - w, cx2, cy2 + w, bx2, by2 + w, c1, c2, c3, c4, lso]);
+            }
+         }
+         else
+         {
+            triangles.push([bx1, by1, cx1, cy1, bx2, by2, c1, c2, c3, c4, lso]);
+            triangles.push([cx1, cy1, cx2, cy2, bx2, by2, c1, c2, c3, c4, lso]);
+         }
+         
+         return triangles;
+      }
+      
+      /**
+       * Apply the stroke to vertical or horizontal lines given by the absolute coordinates that
+       * satisfy x1 <= x2 and y1 <= y2.
+       *
+       * The painting mode is advanced XOR.  This means we do XOR operation only if the current
+       * screen data is valid (alpha channnel is not fully transparent) and current screen data
+       * color is not the same as I-Beam color value.  Otherwise we keep the current I-Beam color
+       * or change to I-Beam color.  So far this function will not fit every XOR line painting,
+       * while working good with current cached drawing.
+       *
+       * Use it with aboverestrictions keeping in mind!
+       * 
+       * @param    {Number} x1
+       *           X coordinate of the starting pixel to be drawn.
+       * @param    {Number} y1
+       *           Y coordinate of the starting pixel to be drawn.
+       * @param    {Number} x2
+       *           X coordinate of the ending pixel to be drawn.
+       * @param    {Number} y2
+       *           Y coordinate of the ending pixel to be drawn.
+       */
+      this.xorLine = function(x1, y1, x2, y2)
+      {
+         // The default line width is 1 pixel.
+         // Calculate the line with and height to draw a line as an image
+         var lineWidth  = x2 - x1 + 1;
+         var lineHeight = y2 - y1 + 1;
+         // Get current image data from screen
+         var screenImage = canvasRenderer.offscreenCtx.getImageData(x1, y1, lineWidth, lineHeight);
+         var data = screenImage.data;
+         var length = 4 * lineWidth * lineHeight;
+         // Fill a line image with the given stroke color
+         for (var i = 0; i < length; i += 4)
+         {
+            if (data[i] != canvasRenderer.iBeamColor[0])
+            {
+               if (data[i] == strokeColor[0] || data[i + 3] == 0)
+               {
+                  data[i] = canvasRenderer.iBeamColor[0];
+               }
+               else
+               {
+                  data[i] = data[i] ^ strokeColor[0];
+               }
+            }
+            if (data[i + 1] != canvasRenderer.iBeamColor[1])
+            {
+               if (data[i + 1] == strokeColor[1] || data[i + 3] == 0)
+               {
+                  data[i + 1] = canvasRenderer.iBeamColor[1];
+               }
+               else
+               {
+                  data[i + 1] = data[i + 1] ^ strokeColor[1];
+               }
+            }
+            if (data[i + 2] != canvasRenderer.iBeamColor[2])
+            {
+               if (data[i + 2] == strokeColor[2] || data[i + 3] == 0)
+               {
+                  data[i + 2] = canvasRenderer.iBeamColor[2];
+               }
+               else
+               {
+                  data[i + 2] = data[i + 2] ^ strokeColor[2];
+               }
+            }
+            data[i + 3] = 255;
+         }
+         // Put the line image on the canvas
+         canvasRenderer.drawImage(x1, y1, lineWidth, lineHeight, data, true, false);
+      }
+      
+      /**
+       * Apply the stroke to the next point given by its coordinates (x, y).
+       * 
+       * @param    {Number} x
+       *           X coordinate of the point to be drawn.
+       * @param    {Number} y
+       *           Y coordinate of the point to be drawn.
+       */
+      this.strokePoint = function(x, y)
+      {
+         canvasRenderer.drawImage(x - w, y - w, width, width, pixelData, true, false);
+      }
+   }
+
+   /**
+    * DefaultPathRenderer implements StrokeRenderer methods
+    */
+   DefaultPathRenderer.prototype = Object.create(StrokeRenderer.prototype);
+
+   /**
+    * Defines the constructor function
+    */
+   DefaultPathRenderer.prototype.constructor = DefaultPathRenderer;
+}

=== modified file 'src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.virtual_desktop.js'
--- src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.virtual_desktop.js	2019-10-02 12:34:54 +0000
+++ src/com/goldencode/p2j/ui/client/gui/driver/web/res/p2j.virtual_desktop.js	2020-10-16 18:08:44 +0000
@@ -2,7 +2,7 @@
 ** Module   : p2j.virtual_desktop.js
 ** Abstract : GUI-specific virtual desktop to create task bar and drop zones
 **
-** Copyright (c) 2014-2017, Golden Code Development Corporation.
+** Copyright (c) 2014-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ------------------------------Description----------------------------------
 ** 001 SBI 20150906 The virtual desktop to create task bar and drop zones.
@@ -129,7 +129,7 @@
    var TASK_BAR_WIDTH  = 42;
 
    /** z-index is assigned to the drop zone to which the task bar is attached. */
-   var MAX_Z_INDEX = 1000;
+   var MAX_Z_INDEX = 2;
    /** z-index is assigned to all others drop zones */
    var MIN_Z_INDEX = 1;
 
@@ -149,7 +149,7 @@
    desktop.appendChild(createRightDropZone(DOCK_CLASS_NAME, TASK_BAR_WIDTH));
    
    var taskBar = new TaskBar(taskBarPeer, bg, fg, fontsManager, logger);
-
+   
    /**
     * Creates the bottom drop zone.
     * 
@@ -372,10 +372,8 @@
       var taskIcons = [];
       /** hidden task icons */
       var hiddenTaskIcons = [];
-
-      var viewLogButton = createViewLogButton(logger);
       
-      var sysButtons = [viewLogButton];
+      var sysButtons = [];
 
       var foreground  = fg;
       var background  = bg;
@@ -397,64 +395,6 @@
       {
          peer.title = TASK_BAR_TITLE;
       }
-      /**
-       * The special use case: view log.
-       * 
-       * @param    {Object} logger
-       *           The application logger.
-       * @return   {TaskIcon}
-       *           The view log button.
-       */
-      function createViewLogButton(logger)
-      {
-         var taskIcon = new TaskIcon(1, 3 * TASK_ICON_WIDTH, TASK_ICON_HEIGHT, fg,
-               "View Log Output", null, 0, 0);
-         taskIcon.setActive(false);
-         // Opens new log window.
-         taskIcon.doClick = function()
-         {
-            logger.viewLog();
-            // Change the view log button to inactive after 500 ms.
-            window.setTimeout(
-                  function()
-                  {
-                     taskIcon.setActive(false);
-                     taskIcon.draw();
-                  }, 500);
-         }
-         return taskIcon;
-      }
-      
-      /**
-       * Layouts the view log button on the task bar.
-       * 
-       * @param    {Number} width
-       *           The task bar width in pixels.
-       * @param    {Number} height
-       *           The task bar height in pixels.
-       * @param    {Boolean} horizontalLayout
-       *           Indicates the task bar layout, true if the task bar is along a horizontal line, otherwise,
-       *           it is along a vertical line.
-       */
-      function doViewLogButtonLayout(width, height, horizontalLayout)
-      {
-         var x;
-         var y;
-         if (horizontalLayout)
-         {
-            x = width - viewLogButton.width - RIGHT_PADDING;
-            // to place on the centered horizontal line of the task bar.
-            y = (height - viewLogButton.height) / 2;
-         }
-         else
-         {
-            // to place on the centered vertical line of the task bar.
-            x = (width - viewLogButton.width) / 2;
-            y = height - viewLogButton.height - BOTTOM_PADDING;
-         }
-         viewLogButton.setLocation(x, y);
-         viewLogButton.draw();
-      }
       
       /**
        * Layouts task icons according to the current task bar position:
@@ -526,7 +466,6 @@
                y += (SHIFT + taskIcon.height);
             }
          }
-         doViewLogButtonLayout(width, height, horizontalLayout);
          canvasRenderer.flash();
       };
       
@@ -1169,16 +1108,8 @@
        */
       canvas.addEventListener("click", function(event)
       {
-         //special view log use case.
-         if (viewLogButton.testMousePointerInside(event) && !viewLogButton.isActive())
-         {
-            viewLogButton.setActive(true);
-            viewLogButton.doClick();
-            viewLogButton.draw();
-            return;
-         }
          
-         if (taskIconOnClickCallback)
+         if (event.button == 0 && taskIconOnClickCallback)
          {
             var oldActiveTaskIconId = -1;
             var newActiveTaskIconId = -1;
@@ -1186,6 +1117,10 @@
             for (var i = 0; i < taskIcons.length; i++)
             {
                var taskIcon = taskIcons[i];
+               if (!taskIcon.testMousePointerInside(event))
+               {
+                  continue;
+               }
                if (taskIcon.testMousePointerInside(event) && !taskIcon.isActive())
                {
                   newActiveTaskIconId = taskIcon.id;
@@ -1204,7 +1139,8 @@
             }
             
             // only fire the callback when a window is actually activated/deactivated
-            if (newActiveTaskIconId != -1 || oldActiveTaskIconId != -1)
+            if (newActiveTaskIconId != oldActiveTaskIconId &&
+                (newActiveTaskIconId != -1 || oldActiveTaskIconId != -1))
             {
                taskIconOnClickCallback(oldActiveTaskIconId, newActiveTaskIconId);
             }
@@ -1219,13 +1155,6 @@
        */
       function changeTooltipOverWidget(event)
       {
-         //special view log use case.
-         if (viewLogButton.testMousePointerInside(event))
-         {
-            peer.title = viewLogButton.title;
-            return;
-         }
-         
          for (var i = 0; i < taskIcons.length; i++)
          {
             var taskIcon = taskIcons[i];

=== modified file 'src/com/goldencode/p2j/ui/client/gui/theme/ClassicTheme.java'
--- src/com/goldencode/p2j/ui/client/gui/theme/ClassicTheme.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/gui/theme/ClassicTheme.java	2020-11-19 21:19:17 +0000
@@ -80,6 +80,9 @@
 **     SVL 20200514 Support for center text alignment. Refactoring.
 ** 044 SBI 20200619 Generalized common tree view geometry methods to get location and size of tree labels. 
 ** 045 IAS 20200828 Fixed type parameters for generic classes.
+**     HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
+**     SVL 20201027 Implemented multi-line cells.
+**     SVL 20201119 Support for column:FONT attribute in a ROW-DISPLAY trigger.
 */
 
 /*
@@ -140,7 +143,7 @@
 import com.goldencode.p2j.ui.*;
 import com.goldencode.p2j.ui.client.*;
 import com.goldencode.p2j.ui.client.Frame;
-import com.goldencode.p2j.ui.client.Label;
+import com.goldencode.p2j.ui.client.ClientDrivenLabel;
 import com.goldencode.p2j.ui.client.Menu;
 import com.goldencode.p2j.ui.client.gui.*;
 import com.goldencode.p2j.ui.client.gui.TabSetGuiImpl.*;
@@ -333,6 +336,9 @@
    /** Treelist column spacer color */
    protected static final ColorRgb TREELIST_COLUMN_SPACER_COLOR = new ColorRgb(0xa0a0a0);
 
+   /** New line separators for a cell text. */
+   protected static final String CELLS_NEW_LINE = String.valueOf((char) 13);
+
    /** The image object for background fill. */
    private ImageWrapper<?> scrollbarImgBg = null;
    
@@ -825,7 +831,7 @@
    @Override
    public double layoutTitleBar(TopLevelWindow window,
                                 Widget icon,
-                                Label title,
+                                ClientDrivenLabel title,
                                 CaptionButton[] buttons,
                                 double width,
                                 CoordinatesConversion c)
@@ -4110,7 +4116,8 @@
                                   labelLines[labelLines.length - lineNum - 1],
                                   textClipRectangle,
                                   browse.getLabelLinesNum() - lineNum - 1,
-                                  -1));
+                                  -1,
+                                  null));
       }
       
       if (column.config().sortAscending != null)
@@ -4719,15 +4726,21 @@
             gd.fillRect(0,0,500,500);
          });
          */
-         
-         gd.draw(clipPoint, clipRectangle, () -> drawBrowseCellText(column,
-                                                                    gd,
-                                                                    false,
-                                                                    drawAsSelected,
-                                                                    text,
-                                                                    clipRectangle,
-                                                                    0,
-                                                                    viewportIndex));
+         String[] lines = text.split(CELLS_NEW_LINE);
+         for (int i = 0; i < lines.length; i++)
+         {
+            int lineNum = i;
+            gd.draw(clipPoint, clipRectangle, () -> drawBrowseCellText(column,
+                                                                       gd,
+                                                                       false,
+                                                                       drawAsSelected,
+                                                                       lines[lineNum],
+                                                                       clipRectangle,
+                                                                       lineNum,
+                                                                       viewportIndex,
+                                                                       cellAttr == null ? null :
+                                                                                          cellAttr.font));
+         }
       }
 
       if (TOGGLE_BOX.equals(column.config().widgetType))
@@ -4773,6 +4786,9 @@
     *          0-based number of line in the label/cell.
     * @param   viewportRowIndex
     *          0-based number of the target row in the viewport (for cells only).
+    * @param   rowDisplayFont
+    *          Font number defined for the cell in the ROW-DISPLAY trigger. <code>null</code> if it is not
+    *          defined.
     */
    protected void drawBrowseCellText(BrowseColumnGuiImpl column,
                                      GuiDriver gd,
@@ -4781,11 +4797,21 @@
                                      String text,
                                      NativeRectangle clipRectangle,
                                      int lineNumber,
-                                     int viewportRowIndex)
+                                     int viewportRowIndex,
+                                     Integer rowDisplayFont)
    {
       gd.setColor(getBrowseCellForegroundColor(column, label, selectedRow, viewportRowIndex));
       
-      FontDetails fd = label ? column.getLabelFont() : column.getCellsFont();
+      FontDetails fd = null;
+      if (rowDisplayFont != null)
+      {
+         fd = column.getBrowse().getRowDisplayFont(rowDisplayFont);
+      }
+
+      if (fd == null)
+      {
+         fd = label ? column.getLabelFont() : column.getCellsFont();
+      }
       gd.setGuiFont(fd);
       
       int y = label ? column.getLabelTextTopOffset() : column.getCellTextTopOffset();
@@ -4795,9 +4821,8 @@
       BrowseTextAlignment align = Browse.getTextAlign(column);
       if (BrowseTextAlignment.RIGHT.equals(align) || BrowseTextAlignment.CENTER.equals(align))
       {
-         FontDetails font = label ? column.getLabelFont() : column.getCellsFont();
          int clipWidth = clipRectangle.width();
-         int textWidth = column.getTextWidth(text, font);
+         int textWidth = column.getTextWidth(text, fd);
          if (BrowseTextAlignment.RIGHT.equals(align))
          {
             x = clipWidth - textWidth;

=== modified file 'src/com/goldencode/p2j/ui/client/gui/theme/MaterialTheme.java'
--- src/com/goldencode/p2j/ui/client/gui/theme/MaterialTheme.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/gui/theme/MaterialTheme.java	2020-11-19 21:19:17 +0000
@@ -17,8 +17,9 @@
  ** 008 SBI 20191202 Fixed drawButton to check if mnemonics should be displayed.
  ** 009 MAG 20191014 Implemented PROGRESS-BAR widget.
  ** 010 VVT 20200507 Theme.drawButton() call syntax changed (see. #4636).
-**      VVT 20200507 Theme.drawComboBoxButton() call syntax changed (see. #4636).
+ **     VVT 20200507 Theme.drawComboBoxButton() call syntax changed (see. #4636).
  **     SVL 20200514 Support for center text alignment. Refactoring.
+ ** 011 SVL 20201119 Reflected changes in the superclass.
  */
 
 /*
@@ -1971,7 +1972,8 @@
                                   labelLines[labelLines.length - lineNum - 1],
                                   textClipRectangle,
                                   browse.getLabelLinesNum() - lineNum - 1,
-                                  -1));
+                                  -1,
+                                  null));
       }
    
       if (column.config().sortAscending != null)

=== modified file 'src/com/goldencode/p2j/ui/client/gui/theme/Theme.java'
--- src/com/goldencode/p2j/ui/client/gui/theme/Theme.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/gui/theme/Theme.java	2020-10-24 22:32:57 +0000
@@ -33,6 +33,7 @@
 **     VVT 20200507 Theme.drawComboBoxButton() call syntax changed (see. #4636).
 **     SVL 20200514 Support for center text alignment.
 ** 022 SBI 20200619 Generalized common tree view geometry methods to get location and size of tree labels. 
+**     HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
 */
 
 /*
@@ -96,7 +97,7 @@
 
 import com.goldencode.p2j.ui.*;
 import com.goldencode.p2j.ui.client.*;
-import com.goldencode.p2j.ui.client.Label;
+import com.goldencode.p2j.ui.client.ClientDrivenLabel;
 import com.goldencode.p2j.ui.client.gui.*;
 import com.goldencode.p2j.ui.client.gui.TabSetGuiImpl.*;
 import com.goldencode.p2j.ui.client.gui.driver.*;
@@ -398,8 +399,8 @@
     * @return  the computed titlebar height.
     */
    double layoutTitleBar(TopLevelWindow window, 
-                         Widget icon, 
-                         Label title, 
+                         Widget icon,
+                         ClientDrivenLabel title,
                          CaptionButton[] captionButtons, 
                          double width, 
                          CoordinatesConversion c);

=== modified file 'src/com/goldencode/p2j/ui/client/gui/theme/Windows10Theme.java'
--- src/com/goldencode/p2j/ui/client/gui/theme/Windows10Theme.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/gui/theme/Windows10Theme.java	2020-10-24 22:32:57 +0000
@@ -46,6 +46,7 @@
 **                  drawMenuTitle() made static.
 **                  getPngImage(): possible resource leak fixed with try() statement.
 ** 027 SVL 20200514 Support for center text alignment.
+** 028 HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
 */
 
 /*
@@ -598,7 +599,7 @@
    @Override
    public double layoutTitleBar(TopLevelWindow window,
                                 Widget icon,
-                                Label title,
+                                ClientDrivenLabel title,
                                 CaptionButton[] buttons,
                                 double width,
                                 CoordinatesConversion c)

=== modified file 'src/com/goldencode/p2j/ui/client/gui/theme/Windows8Theme.java'
--- src/com/goldencode/p2j/ui/client/gui/theme/Windows8Theme.java	2020-05-08 21:53:42 +0000
+++ src/com/goldencode/p2j/ui/client/gui/theme/Windows8Theme.java	2020-10-24 22:32:57 +0000
@@ -28,6 +28,7 @@
 **     VVT 20200507 Theme.drawButton(): now null value can be passed safely as the
 **                  GuiFontResolver method argument if no button text has to be rendered
 **     VVT 20200507 Theme.drawComboBoxButton() call syntax changed (see. #4636).
+** 020 HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
 */
 
 /*
@@ -485,7 +486,7 @@
     * @param   icon
     *          The icon widget of the window (if any).
     * @param   title
-    *          The {@link Label} that displays the window's title. 
+    *          The {@link ClientDrivenLabel} that displays the window's title.
     * @param   buttons
     *          An array with the {@link CaptionButton}-s present on the titlebar of this window. 
     * @param   width
@@ -498,7 +499,7 @@
    @Override
    public double layoutTitleBar(TopLevelWindow window,
                                 Widget icon,
-                                Label title,
+                                ClientDrivenLabel title,
                                 CaptionButton[] buttons,
                                 double width,
                                 CoordinatesConversion c)

=== modified file 'src/com/goldencode/p2j/ui/client/layout/AbstractDynamicLayout.java'
--- src/com/goldencode/p2j/ui/client/layout/AbstractDynamicLayout.java	2019-01-04 12:47:25 +0000
+++ src/com/goldencode/p2j/ui/client/layout/AbstractDynamicLayout.java	2020-10-24 22:32:57 +0000
@@ -2,7 +2,7 @@
 ** Module   : AbstractDynamicLayout.java
 ** Abstract : Abstract implementation of the core dynamic layout algorithm.
 **
-** Copyright (c) 2018-2019, Golden Code Development Corporation.
+** Copyright (c) 2018-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ----------------------------Description-----------------------------
 ** 001 HC  20180813 Initial version.
@@ -11,6 +11,7 @@
 **                  mode.
 ** 004 HC  20181008 Explicit dynamic layout of ADM page frames.
 ** 005 HC  20190104 Javadoc fixes.
+** 006 HC  20201024 Implemented SIDE-LABEL-HANDLE attribute.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -606,7 +607,7 @@
          // for the purpose of layout rectangle widget is also considered a container
          boolean isFrameItem = w instanceof DataContainer && !(w instanceof BrowseColumn) ||
                                w instanceof Browse ||
-                               w instanceof Label  ||
+                               w instanceof ClientDrivenLabel ||
                                w instanceof Image  ||
                                w instanceof Button ||
                                w instanceof Rect   ||

=== modified file 'src/com/goldencode/p2j/ui/client/model/ComboBoxModel.java'
--- src/com/goldencode/p2j/ui/client/model/ComboBoxModel.java	2017-10-27 17:04:40 +0000
+++ src/com/goldencode/p2j/ui/client/model/ComboBoxModel.java	2020-12-01 12:59:56 +0000
@@ -2,13 +2,14 @@
 ** Module   : ComboBoxModel.java
 ** Abstract : Combo-box data model.
 **
-** Copyright (c) 2010-2017, Golden Code Development Corporation.
+** Copyright (c) 2010-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ----------------Description-----------------
-** 001 SIY 20100629          Created initial version
-** 002 SIY 20100804          Changes in imports, some refactorings.
-** 003 IAS 20150202          Add selected index.
-** 004 HC  20150323          Removed business logic from config classes.
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
+** 001 SIY 20100629 Created initial version
+** 002 SIY 20100804 Changes in imports, some refactorings.
+** 003 IAS 20150202 Add selected index.
+** 004 HC  20150323 Removed business logic from config classes.
+** 005 CA  20201126 Fixed initial value for selectedId (must be -1).
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -84,10 +85,10 @@
    private int selectedIndex = -1;
    
    /** Selected item id. */
-   private int selectedId;
+   private int selectedId = -1;
    
    /** Selected value. */
-   private BaseDataType selectedValue;
+   private BaseDataType selectedValue = null;
 
    /**
     * Add new item at the end of model.
@@ -270,7 +271,7 @@
             }
          }
       }
-      int idx = 0;
+      int idx = -1;
       if (selectedValue != null)
       {
          String svalue = selectedValue.toStringMessage();

=== modified file 'src/com/goldencode/p2j/ui/client/model/ListModel.java'
--- src/com/goldencode/p2j/ui/client/model/ListModel.java	2020-07-31 22:31:34 +0000
+++ src/com/goldencode/p2j/ui/client/model/ListModel.java	2020-12-01 12:59:56 +0000
@@ -4,10 +4,11 @@
 **
 ** Copyright (c) 2010-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ----------------Description-----------------
-** 001 SIY 20100629          Created initial version
-** 002 SIY 20100804          Changes in imports, some refactorings.
-** 003 EVL 20200731          Fix for multiple item adding issue when using same object to add.
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
+** 001 SIY 20100629 Created initial version
+** 002 SIY 20100804 Changes in imports, some refactorings.
+** 003 EVL 20200731 Fix for multiple item adding issue when using same object to add.
+**     CA  20201201 Backed out H003 - lists allow same value in multiple rows.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -95,11 +96,7 @@
     */
    public void add(T item)
    {
-      // adding item only if not in list
-      if (!list.contains(item))
-      {
-         list.add(item);
-      }
+      list.add(item);
    }
 
    /**

=== modified file 'src/com/goldencode/p2j/ui/client/widget/AbstractContainer.java'
--- src/com/goldencode/p2j/ui/client/widget/AbstractContainer.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/ui/client/widget/AbstractContainer.java	2020-10-15 07:54:57 +0000
@@ -114,6 +114,7 @@
 ** 065 SVL 20200515 Support for changes in requestFocus hierarchy.
 **     HC  20200313 Javadoc fixes.
 ** 066 RFB 20200824 Within normalizeZOrder, the containers within should have their widgets reordered (4850).
+** 067 CA  20201015 Replaced java.util.Stack with a non-synchronized custom implementation.
 */
 
 /*
@@ -174,6 +175,7 @@
 import java.util.*;
 import java.util.logging.*;
 
+import com.goldencode.util.Stack;
 import com.goldencode.p2j.security.*;
 import com.goldencode.p2j.ui.*;
 import com.goldencode.p2j.ui.client.*;

=== modified file 'src/com/goldencode/p2j/ui/client/widget/AbstractWidget.java' (properties changed: -x to +x)
--- src/com/goldencode/p2j/ui/client/widget/AbstractWidget.java	2020-10-06 22:23:21 +0000
+++ src/com/goldencode/p2j/ui/client/widget/AbstractWidget.java	2020-11-17 20:03:34 +0000
@@ -171,6 +171,8 @@
 **     RFB 20200918 Protect isHeader() from config being null so some toString() calls can be made prior to
 **                  opening frame scope (#4861).
 **     EVL 20201006 Adding optimized processing for setEnabled() method.
+**     CA  20201011 Use a fast-access bitmap for mouse actions, instead of an integer set.
+**     CA  20201117 Ensure all widgets are removed from the registry.
 */
 
 /*
@@ -239,10 +241,11 @@
 import java.util.*;
 import java.util.logging.*;
 
+import org.roaringbitmap.*;
+
 import com.goldencode.p2j.ui.*;
 import com.goldencode.p2j.ui.chui.*;
 import com.goldencode.p2j.ui.client.*;
-import com.goldencode.p2j.ui.client.Menu.*;
 import com.goldencode.p2j.ui.client.driver.*;
 import com.goldencode.p2j.ui.client.event.*;
 import com.goldencode.p2j.ui.client.event.listener.*;
@@ -299,7 +302,7 @@
    private O screen;
    
    /** A set of mouse actions on which this widget can react. */
-   private Set<Integer> mouseActions = null;
+   private RoaringBitmap mouseActions = null;
    
    /**
     * Widget origin (upper left corner) relative to container
@@ -2289,10 +2292,10 @@
             ctr.detach(this);
       }
       
+      WidgetId id = getId();
       try
       {
          FontManager.removeFontResolver(window(), this);
-         WidgetId id = getId();
          if (id != null)
          {
             ImageHelper.removeGlobalImages(id.asInt());
@@ -2306,6 +2309,11 @@
       {
          // this widget is not attached to a window
       }
+
+      if (id != null)
+      {
+         ThinClient.getInstance().registry().removeWidget(id);
+      }
    }
 
    /**
@@ -3379,19 +3387,15 @@
     * @return   The {@link #mouseActions()}.
     */
    @Override
-   public Set<Integer> getMouseActions()
+   public RoaringBitmap getMouseActions()
    {
       if (mouseActions == null)
       {
          int[] ma = mouseActions();
-         if (ma == null)
-         {
-            mouseActions = Collections.EMPTY_SET;
-         }
-         else
-         {
-            Set<Integer> set = new HashSet<Integer>(Utils.primitiveToIntegerList(ma));
-            mouseActions = Collections.unmodifiableSet(set);
+         mouseActions = new RoaringBitmap();
+         if (ma != null)
+         {
+            mouseActions.add(ma);
          }
       }
 

=== modified file 'src/com/goldencode/p2j/ui/client/widget/Widget.java' (properties changed: -x to +x)
--- src/com/goldencode/p2j/ui/client/widget/Widget.java	2020-03-16 17:30:47 +0000
+++ src/com/goldencode/p2j/ui/client/widget/Widget.java	2020-12-01 12:59:56 +0000
@@ -84,6 +84,9 @@
 *  057 SVL 20200115 Added requestFocus(boolean, boolean).
 ** 058 MAG 20200130 Implemented OLE Drag&Drop.
 ** 059 HC  20200313 Javadoc fixes.
+** 060 CA  20201011 Use a fast-access bitmap for mouse actions, instead of an integer set.
+**     CA  20201201 Added ignoreEnable() - in case of a TEXT:READ-ONLY=true and TEXT:HIDDEN=true widget, the 
+**                  ENABLE statement will not make it visible.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -147,6 +150,8 @@
 import java.awt.event.MouseWheelListener;
 import java.util.*;
 
+import org.roaringbitmap.*;
+
 import com.goldencode.p2j.ui.*;
 import com.goldencode.p2j.ui.client.*;
 import com.goldencode.p2j.ui.client.event.*;
@@ -858,7 +863,7 @@
     * 
     * @return   The mouse actions.
     */
-   public Set<Integer> getMouseActions();
+   public RoaringBitmap getMouseActions();
    
    /**
     * If the method returns <code>true</code> the widget should be represented with 3D visuals.  
@@ -1093,4 +1098,16 @@
     * Start an OLE drag/drop event with the given control as the source.
     */
    public void oleDrag();
+   
+   /**
+    * Some widgets can ignore an ENABLE statement (like read-only, hidden TEXT).
+    * <p>
+    * This implementation always returns <code>false</code>.
+    * 
+    * @return   <code>true</code> if the ENABLE statement must ignore it.
+    */
+   public default boolean ignoreEnable()
+   {
+      return false;
+   }
 }

=== modified file 'src/com/goldencode/p2j/ui/client/widgetbrowser/WidgetBrowserAspect.java'
--- src/com/goldencode/p2j/ui/client/widgetbrowser/WidgetBrowserAspect.java	2019-10-26 18:06:55 +0000
+++ src/com/goldencode/p2j/ui/client/widgetbrowser/WidgetBrowserAspect.java	2020-10-19 15:27:22 +0000
@@ -2,7 +2,7 @@
 ** Module   : WidgetBrowserAspect.java
 ** Abstract : The integration of Widget Browser into the widget drawing infrastructure.
 **
-** Copyright (c) 2014-2019, Golden Code Development Corporation.
+** Copyright (c) 2014-2020, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 HC  20141031 Created initial version
@@ -18,6 +18,7 @@
 ** 010 OM  20170330 Dropped batch bracketing on no-ops in highlightWidget().
 ** 011 HC  20180611 Do not show Widget browser for alert boxes.
 ** 012 HC  20191014 New Widget browser feature: Added check box to skip draw of a widget.
+** 013 CA  20201019 Avoid calculation of the 'disabled' widget browser state on each draw API call.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -96,6 +97,10 @@
 @Aspect
 public class WidgetBrowserAspect
 {
+   /** Flag indicating the widget browser is enabled. */
+   private static boolean ENABLED = System.getProperty("widgetbrowser") != null || 
+                                    System.getProperty("widget.browser") != null;
+   
    /**
     * Map of active Widget Browsers.
     */
@@ -123,8 +128,7 @@
    {
       try
       {
-         if (System.getProperty("widgetbrowser") == null &&
-             System.getProperty("widget.browser") == null)
+         if (!ENABLED)
          {
             thisJoinPoint.proceed();
             return;

=== modified file 'src/com/goldencode/p2j/util/Agent.java'
--- src/com/goldencode/p2j/util/Agent.java	2020-09-26 13:41:58 +0000
+++ src/com/goldencode/p2j/util/Agent.java	2021-01-26 23:48:21 +0000
@@ -2,7 +2,7 @@
 ** Module   : AgentPool.java
 ** Abstract : Definition and implementation of an appserver agent.
 **
-** Copyright (c) 2013-2020, Golden Code Development Corporation.
+** Copyright (c) 2013-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- ---------------------------------Description----------------------------------
 ** 001 CA  20130529 Created initial version.
@@ -57,6 +57,9 @@
 **                  thread, and let only the actual invocation be performed in an AssociatedThread.
 **     RFB 20200926 Removed use of localMode since the 4GL doesn't care about the signature at an IN SUPER
 **                  procedure decalaration. ControlFlowOps should validate the arguments.
+**     CA  20201027 The remote side can delete the IN HANDLE used by the requester at the RUN statement.
+**     SVL 20210127 Assign local RETURN-VALUE after an appserver call only if RETURN-VALUE of the remote
+**                  procedure was set during this call.
 */
 
 /*
@@ -115,7 +118,6 @@
 package com.goldencode.p2j.util;
 
 import java.lang.reflect.Array;
-import java.lang.reflect.*;
 import java.util.*;
 import java.util.Queue;
 import java.util.function.*;
@@ -982,6 +984,7 @@
             
             // resolve the procedure
             handle inHandle = cfg.getInHandle();
+            String resId = null;
             if (cfg.isSingleRun() || cfg.isSingleton())
             {
                DeferredProgram deferred = (DeferredProgram) inHandle.get();
@@ -1009,7 +1012,7 @@
             }
             else if (inHandle != null)
             {
-               String resId = ((ProxyProcedureWrapper) inHandle.getResource()).getResourceId();
+               resId = ((ProxyProcedureWrapper) inHandle.getResource()).getResourceId();
                inHandle = new handle(pool.getProcedure(id, resId));
             }
             
@@ -1070,6 +1073,11 @@
                {
                   ProcedureManager.deleteInstance(inHandle, cfg.isClass());
                }
+               if (resId != null && !inHandle._isValid())
+               {
+                  AppServerManager.deleteProcedure(pool, id, resId);
+                  invocationResult.setInvalidInHandle(true);
+               }
                
                invokeDeactivate(id);
 
@@ -1925,7 +1933,10 @@
             // force invocation of an external procedure
             ControlFlowOps.invokeExternalProcedure(name, false, null, transactionDistinct,
                                                    exports, modes, args);
-            result = ControlFlowOps.getReturnValue();
+            if (ControlFlowOps.isReturnValueSetInRootScope())
+            {
+               result = ControlFlowOps.getReturnValue();
+            }
          }
          else
          {
@@ -1933,13 +1944,12 @@
             result = ControlFlowOps.invoke(proc, name, function,
                                          dynamicFunction, superCall,
                                          transactionDistinct, modes, args);
+            if (!function)
+            {
+               result = ControlFlowOps.isReturnValueSetInRootScope() ? ControlFlowOps.getReturnValue() : null;
+            }
          }
 
-         if (!function)
-         {
-            result = ControlFlowOps.getReturnValue();
-         }
-         
          if (result instanceof handle)
          {
             // handle results are converted to a container holding only the remote resource

=== modified file 'src/com/goldencode/p2j/util/AppServerHelper.java'
--- src/com/goldencode/p2j/util/AppServerHelper.java	2020-09-14 17:23:10 +0000
+++ src/com/goldencode/p2j/util/AppServerHelper.java	2021-01-29 00:53:41 +0000
@@ -1,10 +1,10 @@
 /*
 ** Module   : AppServerHelper.java
-** Abstract : A helper class to ease appserver connection and remote calls. 
-**
-** Copyright (c) 2013-2020, Golden Code Development Corporation.
-**
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** Abstract : A helper class to ease appserver connection and remote calls.
+**
+** Copyright (c) 2013-2021, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20130529 Created initial version.
 ** 002 CA  20130813 Track the mode of the connection (session-free or session-managed). Implement
 **                  async calls.
@@ -28,7 +28,7 @@
 **                  arguments differs (at the requester and remote side).
 ** 015 CA  20190118 disconnect() must be aware if the FWD session is gone.
 ** 016 CA  20190612 Added APIs to create remote legacy objects and invoke methods on them.
-** 017 CA  20190628 Fixed issues when executing in-server appserver calls (disonnections and 
+** 017 CA  20190628 Fixed issues when executing in-server appserver calls (disconnections and 
 **                  passing TABLE parameters).
 **     CA  20190703 Added WebHandler service support. 
 ** 018 CA  20190714 Added DATASET support.
@@ -41,11 +41,14 @@
 ** 020 CA  20200427 Added OERequestInfo support.  Fixed memptr transfer.
 **     CA  20200514 Fixed error handling for handleWebService.
 **     CA  20200528 Fixes for extent arguments.
-** 021 CA  20200827 Reworked asynchronous invocations to perform all context-local work on the Conversation 
+** 021 CA  20200827 Reworked asynchronous invocations to perform all context-local work on the Conversation
 **                  thread, and let only the actual invocation be performed in an AssociatedThread.
 ** 022 RFB 20200627 Fix a NPE that occurs downstream by having postProcessResult bypass a null tablename.
 **     CA  20200914 Fixed a problem with single-run procedures (was checking DeferredProgram instead of 
 **                  DeferredProgramWrapper).
+**     CA  20201027 The remote side can delete the IN HANDLE used by the requester at the RUN statement.
+**     OM  20210127 Replaced TableMapper.getLegacyName() triple map lookup with direct access to local
+**                  dmoMeta.legacyTable.
 */
 
 /*
@@ -2107,6 +2110,14 @@
          AppServerInvocationResult result = appServer.invoke(connectionID, reqId, timeout, cfg);
          checkResult(cfg.getTarget().toStringMessage(), args, result);
          
+         if (result.isInvalidInHandle())
+         {
+            // invalidate this handle and delete it.
+            ProxyProcedureWrapper proxy = (ProxyProcedureWrapper) cfg.getInHandle().getResource();
+            proxy.set(null);
+            proxy.delete();
+         }
+         
          h = cfg.getProcedureHandle();
          if (h != null)
          {
@@ -2313,7 +2324,7 @@
                {
                   throw new IllegalArgumentException("Table parameters must have their mode set!");
                }
-
+               
                TableParameter tableParam = (TableParameter) arg;
                Temporary tempDMO = tableParam.getTable();
                boolean append = tableParam.isAppend();
@@ -2329,7 +2340,7 @@
                                                                 append));
                   if (input)
                   {
-                     String tableName = TableMapper.getLegacyName((Buffer) tempDMO);
+                     String tableName = ((BufferImpl) tempDMO).buffer().getDmoInfo().legacyTable;
                      ((TableWrapper) arg).setTableName(tableName);
                   }
 //               }
@@ -2453,7 +2464,7 @@
                }
                if (input)
                {
-                  String tableName = TableMapper.getLegacyName((Buffer) tempDMO);
+                  String tableName = ((BufferImpl) tempDMO).buffer().getDmoInfo().legacyTable;
                   ((TableWrapper) arg).setTableName(tableName);
                }
 //            }

=== modified file 'src/com/goldencode/p2j/util/AppServerManager.java'
--- src/com/goldencode/p2j/util/AppServerManager.java	2020-09-25 13:17:20 +0000
+++ src/com/goldencode/p2j/util/AppServerManager.java	2020-10-27 20:36:47 +0000
@@ -34,6 +34,7 @@
 **     CA  20200514 Fixed error handling for handleWebService.
 **                  Fixed error handling when no agent is available.
 ** 029 IAS 20200722 Improved logging.
+** 030 CA  20201027 The remote side can delete the IN HANDLE used by the requester at the RUN statement.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -607,6 +608,26 @@
    public static boolean deleteProcedure(String id, String resId)
    {
       AgentPool pool = getAgentPool(id);
+      return deleteProcedure(pool, id, resId);
+   }
+   
+   /**
+    * Delete the remote procedure, specified by the resource id. This must be called at the same
+    * time when the local proxy procedure is deleted.
+    * 
+    * @param    pool
+    *           The agent pool.
+    * @param    id
+    *           The appserver connection id. 
+    * @param    resId
+    *           The ID of a remote procedure which needs to be deleted.
+    *
+    * @return   <code>true</code> if the remote procedure was deleted.
+    * 
+    * @see      #getAgentPool(String)
+    */
+   static boolean deleteProcedure(AgentPool pool, String id, String resId)
+   {
       PersistentProcedure pp = pool.removeProcedure(id, resId);
       boolean knownProc = (pp != null);
       
@@ -618,7 +639,7 @@
 
       return knownProc;
    }
-   
+
    /**
     * Delete the remote object, specified by the resource ID. This must be called at the same
     * time when the local proxy object is deleted.

=== modified file 'src/com/goldencode/p2j/util/AsyncRequestImpl.java'
--- src/com/goldencode/p2j/util/AsyncRequestImpl.java	2020-08-27 09:00:37 +0000
+++ src/com/goldencode/p2j/util/AsyncRequestImpl.java	2021-01-13 21:04:41 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20130813 Created initial version.
 ** 002 CA  20130927 Resource type is computed from the annotation. Removed setUnknown(false) call.
 ** 003 VIG 20131126 Added LAST-EVENT:LABEL support for PROCEDURE-COMPLETE event
@@ -13,8 +13,9 @@
 ** 006 OM  20160712 Fixed synchronization issue.
 ** 007 CA  20190628 eventProcedureContext is optional via 'null'.
 ** 008 CA  20200427 Added REQUEST-INFO and RESPONSE-INFO support.
-** 009 CA  20200827 Reworked asynchronous invocations to perform all context-local work on the Conversation 
+** 009 CA  20200827 Reworked asynchronous invocations to perform all context-local work on the Conversation
 **                  thread, and let only the actual invocation be performed in an AssociatedThread.
+**     OM  20201120 Changed method name to match no-bean prefixes buffer conversion.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -263,33 +264,36 @@
     *
     * @return    Current state of the ERROR attribute.
     */
-   public logical isError()
+   @Override
+   public logical error()
    {
       return !complete ? new logical() : new logical(error);
    }
-
-   /**
-    * Setter for ERROR attribute.
-    *
-    * @param    value
-    *           The new value of ERROR attribute.
-    */
-   public void setError(boolean value)
-   {
-      readOnlyError("ERROR");
-   }
-
-   /**
-    * Setter for ERROR attribute.
-    *
-    * @param    value
-    *           The new value of ERROR attribute.
-    */
-   public void setError(logical value)
-   {
-      readOnlyError("ERROR");
-   }
-
+   
+   /**
+    * Setter for ERROR attribute.
+    *
+    * @param    value
+    *           The new value of ERROR attribute.
+    */
+   @Override
+   public void error(boolean value)
+   {
+      readOnlyError("ERROR");
+   }
+   
+   /**
+    * Setter for ERROR attribute.
+    *
+    * @param    value
+    *           The new value of ERROR attribute.
+    */
+   @Override
+   public void error(logical value)
+   {
+      readOnlyError("ERROR");
+   }
+   
    /**
     * Reports if this object is valid for use (has not been deleted).
     *

=== modified file 'src/com/goldencode/p2j/util/BaseDataType.java'
--- src/com/goldencode/p2j/util/BaseDataType.java	2020-10-23 13:24:15 +0000
+++ src/com/goldencode/p2j/util/BaseDataType.java	2021-01-31 10:14:52 +0000
@@ -820,6 +820,7 @@
     * Enum class describing all 4GL wrapper types.  This makes it easy to map the BDT wrapper subclass
     * to the 4GL type with less string manipulation/fewer map lookups. 
     */
+   @SuppressWarnings("javadoc")
    public static enum Type
    {
       BLOB("BLOB", blob.class),

=== modified file 'src/com/goldencode/p2j/util/CallbackProcedure.java'
--- src/com/goldencode/p2j/util/CallbackProcedure.java	2020-04-28 14:03:40 +0000
+++ src/com/goldencode/p2j/util/CallbackProcedure.java	2020-11-25 23:22:06 +0000
@@ -3,12 +3,13 @@
 ** Abstract : Defines support for SET-CALLBACK-PROCEDURE method.
 **
 ** Copyright (c) 2019-2020, Golden Code Development Corporation.
-
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20190415 Created initial version, extracted from PersistentProcedure.
 ** 002 OM  20190508 Fixed signatures and javadocs. Added missing overloaded form.
 ** 003 CA  20200428 Made setCallbackProcedure default and 'missing' implementation.
+** 004 OM  20201026 Simplified interface: default overloaded methods call the Java-typed signature which the
+**                  child classes are required to implement.
 */
 
 /*
@@ -72,7 +73,7 @@
  * <p>
  * This interface is used as a returned type by the {@link handle#unwrapProcedure} API, which,
  * depending on the handle's state and type, it either returns an {@link ExternalProgramWrapper}
- * instance, or a dynamic proxy using {@link handle#invalidAttrAccessProxy}. 
+ * instance, or a dynamic proxy using {@code handle.invalidAttrAccessProxy()}. 
  */
 public interface CallbackProcedure
 {
@@ -82,8 +83,7 @@
     * This method returns false if the event name is not valid.
     * 
     * @param    event
-    *           The event name, must evaluate to one of the "REQUEST-HEADER" or the 
-    *           "RESPONSE-HEADER" strings. 
+    *           The event name, must evaluate to one of the events supported by implementing object. 
     * @param    proc
     *           The internal procedure to be executed for this event, which will be executed using
     *           the current THIS-PROCEDURE reference. To remove a callback mapping, set the this
@@ -94,7 +94,7 @@
    @LegacyMethod(name = "SET-CALLBACK-PROCEDURE")
    public default logical setCallbackProcedure(String event, String proc)
    {
-      return setCallbackProcedure(new character(event), new character(proc));
+      return setCallbackProcedure(event, proc, null);
    }
    
    /**
@@ -114,7 +114,7 @@
    @LegacyMethod(name = "SET-CALLBACK-PROCEDURE")
    public default logical setCallbackProcedure(character event, String proc)
    {
-      return setCallbackProcedure(event, new character(proc));
+      return setCallbackProcedure(event.toJavaType(), proc, null);
    }
 
    /**
@@ -134,7 +134,7 @@
    @LegacyMethod(name = "SET-CALLBACK-PROCEDURE")
    public default logical setCallbackProcedure(String event, character proc)
    {
-      return setCallbackProcedure(new character(event), proc);
+      return setCallbackProcedure(event, proc.toJavaType(), null);
    }
    
    /**
@@ -154,8 +154,7 @@
    @LegacyMethod(name = "SET-CALLBACK-PROCEDURE")
    public default logical setCallbackProcedure(character event, character proc)
    {
-      UnimplementedFeature.missing("SET-CALLBACK-PROCEDURE(event, proc) method");
-      return new logical();
+      return setCallbackProcedure(event.toJavaType(), proc.toJavaType(), null);
    }
    
    /**
@@ -176,10 +175,7 @@
     * @return   {@code true} if the event was registered.
     */
    @LegacyMethod(name = "SET-CALLBACK-PROCEDURE")
-   public default logical setCallbackProcedure(String event, String proc, handle context)
-   {
-      return setCallbackProcedure(new character(event), new character(proc), context);
-   }
+   public logical setCallbackProcedure(String event, String proc, handle context);
    
    /**
     * Associates an internal procedure with an ABL callback event.
@@ -188,8 +184,7 @@
     * not a valid handle.
     * 
     * @param    event
-    *           The event name, must evaluate to one of the "REQUEST-HEADER" or the 
-    *           "RESPONSE-HEADER" strings. 
+    *           The event name, must evaluate to one of the events supported by implementing object. 
     * @param    proc
     *           The internal procedure to be executed for this event. To remove a callback 
     *           mapping, set the this parameter to the empty string.
@@ -201,7 +196,7 @@
    @LegacyMethod(name = "SET-CALLBACK-PROCEDURE")
    public default logical setCallbackProcedure(character event, String proc, handle context)
    {
-      return setCallbackProcedure(event, new character(proc), context);
+      return setCallbackProcedure(event.toJavaType(), proc, context);
    }
    
    /**
@@ -224,21 +219,21 @@
    @LegacyMethod(name = "SET-CALLBACK-PROCEDURE")
    public default logical setCallbackProcedure(String event, character proc, handle context)
    {
-      return setCallbackProcedure(new character(event), proc, context);
+      return setCallbackProcedure(event, proc.toJavaType(), context);
    }
    
    /**
     * Associates an internal procedure with an ABL callback event.
     * <p>
-    * This method returns false if the event name is not valid or if the procedure's context is
-    * not a valid handle.
+    * This method returns false if the event name is not valid or if the procedure's context is not a valid
+    * handle.
     *
     * @param   event
     *          The event name.
     * @param   proc
-    *          The internal procedure to be executed for this event, which will be executed using
-    *          the current THIS-PROCEDURE reference. To remove a callback mapping, set the this
-    *          parameter to the empty string.
+    *          The internal procedure to be executed for this event, which will be executed using the current
+    *          THIS-PROCEDURE reference. To remove a callback mapping, set the this parameter to the empty
+    *          string.
     * @param   context
     *          The procedure handle where the internal procedure will be searched and executed.
     *
@@ -247,8 +242,7 @@
    @LegacyMethod(name = "SET-CALLBACK-PROCEDURE")
    public default logical setCallbackProcedure(character event, character proc, handle context)
    {
-      UnimplementedFeature.missing("SET-CALLBACK-PROCEDURE(event, proc, context) method");
-      return new logical();
+      return setCallbackProcedure(event.toJavaType(), proc.toJavaType(), context);
    }
    
    /**
@@ -263,7 +257,7 @@
    @LegacyMethod(name = "APPLY-CALLBACK")
    public default logical applyCallback(Text eventName)
    {
-      return new logical();
+      return applyCallback(eventName.toJavaType());
    }
    
    /**
@@ -276,10 +270,7 @@
     * @return  {@code true} if operation is successful.
     */
    @LegacyMethod(name = "APPLY-CALLBACK")
-   public default logical applyCallback(String eventName)
-   {
-      return new logical();
-   }
+   public logical applyCallback(String eventName);
    
    /**
     * Retrieves the name of the internal procedure associated with the ABL callback for the
@@ -293,7 +284,7 @@
    @LegacyMethod(name = "GET-CALLBACK-PROC-NAME")
    public default character getCallbackProcName(Text eventName)
    {
-      return new character();
+      return getCallbackProcName(eventName.toJavaType());
    }
    
    /**
@@ -306,10 +297,7 @@
     * @return  the name of the internal procedure associated with specified event.
     */
    @LegacyMethod(name = "GET-CALLBACK-PROC-NAME")
-   public default character getCallbackProcName(String eventName)
-   {
-      return new character();
-   }
+   public character getCallbackProcName(String eventName);
    
    /**
     * Retrieves the handle of the procedure that contains the internal procedure associated
@@ -323,7 +311,7 @@
    @LegacyMethod(name = "GET-CALLBACK-PROC-CONTEXT")
    public default handle getCallbackProcContext(Text eventName)
    {
-      return new handle();
+      return getCallbackProcContext(eventName.toJavaType());
    }
    
    /**
@@ -336,10 +324,7 @@
     * @return  a handle to the procedure that contains the callback procedure.
     */
    @LegacyMethod(name = "GET-CALLBACK-PROC-CONTEXT")
-   public default handle getCallbackProcContext(String eventName)
-   {
-      return new handle();
-   }
+   public handle getCallbackProcContext(String eventName);
    
    /**
     * Configures a callback. Creates an association between a method within a class instance or
@@ -348,7 +333,7 @@
     * @param   callbackName
     *          The name of a callback.
     * @param   routineName
-    *          The name of a method or an internal procedure to be asociated.
+    *          The name of a method or an internal procedure to be associated.
     *
     * @return  {@code true} if operation is successful and {@code false} if the parameters are
     *          invalid.
@@ -356,7 +341,7 @@
    @LegacyMethod(name = "SET-CALLBACK")
    public default logical setCallback(String callbackName, String routineName)
    {
-      return new logical();
+      return setCallback(callbackName, routineName, (object<?>) null);
    }
    
    /**
@@ -366,7 +351,7 @@
     * @param   callbackName
     *          The name of a callback.
     * @param   routineName
-    *          The name of a method or an internal procedure to be asociated.
+    *          The name of a method or an internal procedure to be associated.
     *
     * @return  {@code true} if operation is successful and {@code false} if the parameters are
     *          invalid.
@@ -374,57 +359,54 @@
    @LegacyMethod(name = "SET-CALLBACK")
    public default logical setCallback(Text callbackName, Text routineName)
    {
-      return new logical();
-   }
-   
-   /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be asociated.
-    * @param   context
-    *          The context in which the callback will be executed.
-    *
-    * @return  {@code true} if operation is successful and {@code false} if the parameters are
-    *          invalid.
-    */
-   @LegacyMethod(name = "SET-CALLBACK")
-   public default logical setCallback(String callbackName, String routineName, object<? extends Object> context)
-   {
-      return new logical();
-   }
-   
-   /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be asociated.
-    * @param   context
-    *          The context in which the callback will be executed.
-    *
-    * @return  {@code true} if operation is successful and {@code false} if the parameters are
-    *          invalid.
-    */
-   @LegacyMethod(name = "SET-CALLBACK")
-   public default logical setCallback(Text callbackName, Text routineName, object<? extends Object> context)
-   {
-      return new logical();
-   }
-   
-   /**
-    * Configures a callback. Creates an association between a method within a class instance or
-    * an internal procedure within a persistent procedure, with an ABL callback event.
-    *
-    * @param   callbackName
-    *          The name of a callback.
-    * @param   routineName
-    *          The name of a method or an internal procedure to be asociated.
+      return setCallback(callbackName.toJavaType(), routineName.toJavaType(), (object<?>) null);
+   }
+   
+   /**
+    * Configures a callback. Creates an association between a method within a class instance or
+    * an internal procedure within a persistent procedure, with an ABL callback event.
+    *
+    * @param   callbackName
+    *          The name of a callback.
+    * @param   routineName
+    *          The name of a method or an internal procedure to be associated.
+    * @param   context
+    *          The context in which the callback will be executed.
+    *
+    * @return  {@code true} if operation is successful and {@code false} if the parameters are
+    *          invalid.
+    */
+   @LegacyMethod(name = "SET-CALLBACK")
+   public logical setCallback(String callbackName, String routineName, object<?> context);
+   
+   /**
+    * Configures a callback. Creates an association between a method within a class instance or
+    * an internal procedure within a persistent procedure, with an ABL callback event.
+    *
+    * @param   callbackName
+    *          The name of a callback.
+    * @param   routineName
+    *          The name of a method or an internal procedure to be associated.
+    * @param   context
+    *          The context in which the callback will be executed.
+    *
+    * @return  {@code true} if operation is successful and {@code false} if the parameters are
+    *          invalid.
+    */
+   @LegacyMethod(name = "SET-CALLBACK")
+   public default logical setCallback(Text callbackName, Text routineName, object<?> context)
+   {
+      return setCallback(callbackName.toJavaType(), routineName.toJavaType(), context);
+   }
+   
+   /**
+    * Configures a callback. Creates an association between a method within a class instance or
+    * an internal procedure within a persistent procedure, with an ABL callback event.
+    *
+    * @param   callbackName
+    *          The name of a callback.
+    * @param   routineName
+    *          The name of a method or an internal procedure to be associated.
     * @param   context
     *          The context in which the callback will be executed.
     *
@@ -434,7 +416,7 @@
    @LegacyMethod(name = "SET-CALLBACK")
    public default logical setCallback(String callbackName, String routineName, handle context)
    {
-      return new logical();
+      return setCallbackProcedure(callbackName, routineName, context);
    }
    
    /**
@@ -444,7 +426,7 @@
     * @param   callbackName
     *          The name of a callback.
     * @param   routineName
-    *          The name of a method or an internal procedure to be asociated.
+    *          The name of a method or an internal procedure to be associated.
     * @param   context
     *          The context in which the callback will be executed.
     *
@@ -454,7 +436,7 @@
    @LegacyMethod(name = "SET-CALLBACK")
    public default logical setCallback(Text callbackName, Text routineName, handle context)
    {
-      return new logical();
+      return setCallbackProcedure(callbackName.toJavaType(), routineName.toJavaType(), context);
    }
    
    /**
@@ -464,7 +446,7 @@
     * @param   callbackName
     *          The name of a callback.
     * @param   routineName
-    *          The name of a method or an internal procedure to be asociated.
+    *          The name of a method or an internal procedure to be associated.
     * @param   context
     *          The context in which the callback will be executed.
     *
@@ -474,6 +456,6 @@
    @LegacyMethod(name = "SET-CALLBACK")
    public default logical setCallback(String callbackName, Text routineName, handle context)
    {
-      return new logical();
+      return setCallbackProcedure(callbackName, routineName.toJavaType(), context);
    }
 }

=== modified file 'src/com/goldencode/p2j/util/ClientPrincipal.java'
--- src/com/goldencode/p2j/util/ClientPrincipal.java	2020-09-17 11:46:00 +0000
+++ src/com/goldencode/p2j/util/ClientPrincipal.java	2021-01-13 21:04:41 +0000
@@ -3,9 +3,8 @@
 ** Abstract : Implementation of the CLIENT-PRINCIPAL resource.
 **
 ** Copyright (c) 2018-2020, Golden Code Development Corporation.
-
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20181128 Created initial version.
 ** 002 IAS 20190507 Added more attributes and methods.
 ** 003 IAS 20190524 Added support for CLIENT-PRINCIPAL:(LOGIN-STATE, LOGIN-EXPIRATION-TIMESTAMP,
@@ -15,9 +14,11 @@
 ** 006 CA  20191119 Import must set the properties in the attributes#PROPS.  An attempt to fix
 **                  validateSeal (by computing the MAC and comparing it with the existing one).
 ** 007 IAS 20200112 EXPORT/IMPORT fixed, added DOMAIN-ACCESS-CODE validation with MAC,
-*                   fixed MAC calculation, fixed VALIDATE-SEAL.
+**                  fixed MAC calculation, fixed VALIDATE-SEAL.
 ** 008 IAS 20200914 Re-work (de)serialization
+**     OM  20201030 Invalid attribute API support for getters/setters.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -82,11 +83,8 @@
 import java.time.format.*;
 import java.util.*;
 import java.util.function.*;
-import java.util.stream.*;
-
 import javax.crypto.*;
 import javax.crypto.spec.*;
-
 import org.apache.commons.io.input.*;
 import org.apache.commons.lang3.*;
 
@@ -670,10 +668,11 @@
    @Override
    public character getPrimaryPassphrase()
    {
-      handle.invalidAttribute("PRIMARY-PASSPHRASE", new handle(this), 16617);
+      ErrorManager.recordOrShowError(16617, "PRIMARY-PASSPHRASE", "queryable", type());
+      // <attribute> is not a <settable/queryable> attribute for <handle type>.
       return null;
    }
-
+   
    /**
     * Get the PRIMARY-PASSPHRASE attribute value (for internal use).
     * 
@@ -943,7 +942,7 @@
    @Override
    public character listPropertyNames()
    {
-      return new character(properties.keySet().stream().collect(Collectors.joining(",")));
+      return new character(String.join(",", properties.keySet()));
    }
 
    /**
@@ -1562,7 +1561,7 @@
     * @param where
     *        subsystem name
     * @param dac
-    *        domain access code       
+    *        domain access code
     * @param callee
     *        where the method is called from
     *
@@ -1574,8 +1573,7 @@
       logical rc = trySeal(where, dac, callee);
       if (rc.booleanValue())
       {
-         String domainAccessCode = getDomainAccessCode();
-         if (!dac.equals(getDomainAccessCode()) )
+         if (!dac.equals(getDomainAccessCode()))
          {
             // TODO: check the error message
             authenticationFailed(16369, where, "Failed account authentication");
@@ -1621,7 +1619,7 @@
     * @param    data
     *           The byte representation.
     */
-   private boolean importPrincipal(byte[] b)
+   private boolean importPrincipal(byte[] data)
    {
       if (wasSealed())
       {
@@ -1633,7 +1631,7 @@
          return false; 
       }
       reset();
-      InputStream bis = new ByteArrayInputStream(b);
+      InputStream bis = new ByteArrayInputStream(data);
       CountingInputStream counter = new CountingInputStream(bis);
       int p;
       try(DataInputStream dis = new DataInputStream(counter))
@@ -1661,7 +1659,7 @@
          this.loginState = LoginState.valueOf(dis.readShort());
          
          p = counter.getCount();
-         for (; p < b.length; p = counter.getCount())
+         for (; p < data.length; p = counter.getCount())
          {
             AttrType atype = AttrType.valueOf(dis.readShort());
             AttrInfo ai = AttrInfo.valueOf(atype, dis.readShort());
@@ -1672,10 +1670,7 @@
             case CHAR:
                bb = new byte[alen];
                dis.read(bb);
-               setCharAttrValue(ai, new character(
-                                             new String(bb, 0, alen -1, StandardCharsets.UTF_8)
-                                    )
-               );
+               setCharAttrValue(ai, new character(new String(bb, 0, alen -1, StandardCharsets.UTF_8)));
                break;
             case LONG:
                if (alen != 8)
@@ -1723,15 +1718,14 @@
       {
          ErrorManager.recordOrShowError(new int[] {16366}, 
                new String[] {
-                 "CLIENT-PRINCIPAL:IMPORT failed because - Internal Authentication subsystem " + 
-                 "error [28]" 
+                 "CLIENT-PRINCIPAL:IMPORT failed because - Internal Authentication subsystem error [28]" 
                },
                false, false, false, false, false);
          return false;
       }
       LoginState prevState = this.loginState;
       this.hideValues = (!canBeSealed() || getDomainAccessCode() == null || 
-                        prevState != loginState.INITIAL) && (magic & 0xff) != 0x8f;
+                         prevState != LoginState.INITIAL) && (magic & 0xff) != 0x8f;
       datetimetz now = datetimetz.now();
       datetimetz loginExpirationTimestamp = getLoginExpirationTimestamp(); 
       if ( this.loginState == LoginState.INITIAL &&
@@ -1741,10 +1735,10 @@
          this.loginState = LoginState.EXPIRED;
          this.sealed = Boolean.FALSE;
          this.sealedOnImport = true;
-         if (canBeSealed() && (magic &0xff) == 0x8fL)
+         if (canBeSealed() && (magic & 0xff) == 0x8fL)
          {
-         finalizeSeal(" ");
-      }
+            finalizeSeal(" ");
+         }
       }
       switch (this.loginState)
       {
@@ -2310,14 +2304,15 @@
       attributes.put(AttrInfo.ATTR_001C, Optional.of(magic));
       attributes.put(AttrInfo.DB_LIST, Optional.of(new ArrayList<String>()));
    }
- 
+   
    /**
     * Read properties.
     *
-    * @param data
-    *        serialized properties data.
+    * @param   data
+    *          serialized properties data.
     *
-    * @throws java.io.IOException
+    * @throws  java.io.IOException
+    *          If any issue is encountered while accessing the input stream. 
     */
    private int readProperties(byte[] data) 
    throws IOException
@@ -2359,12 +2354,13 @@
    /**
     * Read DATETIME-TZ attribute.
     *
-    * @param ai
-    *        attribute descriptor.
-    * @param dis
-    *        input stream.
+    * @param   ai
+    *          attribute descriptor.
+    * @param   dis
+    *          input stream.
     *
-    * @throws java.io.IOException
+    * @throws  java.io.IOException
+    *          If any issue is encountered while accessing the input stream. 
     */
    private void readTimestamp(AttrInfo ai, DataInputStream dis)
    throws IOException
@@ -2453,8 +2449,7 @@
          return code;
       }
    }
- 
-   @SuppressWarnings("javadoc")
+   
    /** CP login states. */
    public static enum LoginState
    {

=== modified file 'src/com/goldencode/p2j/util/ClipboardManager.java'
--- src/com/goldencode/p2j/util/ClipboardManager.java	2018-12-21 08:26:04 +0000
+++ src/com/goldencode/p2j/util/ClipboardManager.java	2020-12-05 02:01:57 +0000
@@ -2,13 +2,15 @@
 ** Module   : ClipboardManager.java
 ** Abstract : Implements CLIPBOARD handle.
 **
-** Copyright (c) 2016-2018, Golden Code Development Corporation.
+** Copyright (c) 2016-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 SBI 20160601 Created initial version.
 ** 002 SBI 20180213 Changed java docs.
-** 002 CA  20181221 Added MULTIPLE attribute stubs.
+** 003 CA  20181221 Added MULTIPLE attribute stubs.
+** 004 OM  20201203 Fixed handling of READ/ONLY attributes.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -243,10 +245,9 @@
    {
       return false;
    }
-
+   
    /**
-    * API needed to implement read-only attribute assignment (a 4GL 
-    * "feature").
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
     * 
     * @param    attribute
     *           The attribute's name.
@@ -257,7 +258,22 @@
    {
       handle.readOnlyError(asHandle(), attribute);
    }
-
+   
+   /**
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
+    * 
+    * @param    attribute
+    *           The attribute's name.
+    * @param    expr
+    *           The value which is attempted to be assigned to the read-only attribute. 
+    *
+    * @see      handle#readOnlyError(handle, String, Object)
+    */
+   public static void readOnlyError(String attribute, Object expr)
+   {
+      handle.readOnlyError(asHandle(), attribute);
+   }
+   
    /**
     * Stores global data relating to the state of the current context.
     */
@@ -266,4 +282,4 @@
       /** The resource's ID. */
       private Long id = null;
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/util/CommonHandle.java'
--- src/com/goldencode/p2j/util/CommonHandle.java	2019-07-17 19:29:24 +0000
+++ src/com/goldencode/p2j/util/CommonHandle.java	2021-01-13 21:04:41 +0000
@@ -2,18 +2,17 @@
 ** Module   : CommonHandle.java
 ** Abstract : Defines common APIs used by all handles.
 **
-** Copyright (c) 2013-2019, Golden Code Development Corporation.
-
+** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20130112 Created initial version.
-** 002 CA  20130221 Renamed getType to getResourceType to avoid collisions with 
-**                  Resolvable.getType. 
+** 002 CA  20130221 Renamed getType to getResourceType to avoid collisions with Resolvable.getType.
 ** 003 EVL 20130911 Adding legacy attributes and methods annotation.
 ** 004 EVL 20160224 Javadoc fixes to make compatible with Oracle Java 8 for Solaris 10.
-** 005 OM  20171122 Dropped incorrect LegacyAttribute from readOnlyError() method. 
+** 005 OM  20171122 Dropped incorrect LegacyAttribute from readOnlyError() method.
 ** 006 OM  20190514 Added isType() default method.
 ** 007 OM  20190717 Moved isType() to handle class.
+**     OM  20201203 Fixed handling of READ/ONLY attributes.
 */
 
 /*
@@ -99,11 +98,30 @@
    public character getResourceType();
    
    /**
-    * Show a specific error, as this read-only {@code attribute} was used on the right-side of an
-    * assignment.
+    * Show a specific error, as this read-only {@code attribute} was used on the right-side of an assignment.
     *  
     * @param    attribute
     *           The read-only attribute.
+    *
+    * @deprecated Use the overloaded method with multiple arguments.<p>
+    *             This API is deprecated because of two reasons: first, it looses the possible side effect of
+    *             the assigned expression (consider the case when it is a function or method, but not
+    *             exclusively). Secondly, some (if not all) are unknown value sensitive, meaning that, prior
+    *             testing whether this is a writable attribute, P4GL checks first if the expression is
+    *             unknown and if this value is supported. In this case a different error condition is raised.
     */
+   @Deprecated
    public void readOnlyError(String attribute);
+   
+   /**
+    * Shows a specific error, as this read-only {@code attribute} was used on the right-side of an assignment.
+    * If the {@code expr} is evaluated to {@code ?} (unknown value) and this attribute does not support it,
+    * a specific error is raised.
+    *
+    * @param    attribute
+    *           The read-only attribute.
+    * @param    expr
+    *           The expression whose value was attempted to be assigned to READ-ONLY attribute.
+    */
+   public void readOnlyError(String attribute, Object expr);
 }

=== modified file 'src/com/goldencode/p2j/util/ControlFlowOps.java'
--- src/com/goldencode/p2j/util/ControlFlowOps.java	2020-10-14 12:06:27 +0000
+++ src/com/goldencode/p2j/util/ControlFlowOps.java	2021-01-31 10:14:52 +0000
@@ -2,7 +2,7 @@
 ** Module   : ControlFlowOps.java
 ** Abstract : Progress compatible control flow helper methods
 **
-** Copyright (c) 2005-2020, Golden Code Development Corporation.
+** Copyright (c) 2005-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --JPRM-- -----------------------Description-----------------------------------
 ** 001 GES 20050616   @21506 Created initial version, supporting PAUSE.
@@ -205,6 +205,9 @@
 **     CA  20200927          Added ControlFlowOpsHelper.setReturnValue(String).
 **     CA  20200927          Avoid context-local lookups by relying on the helper instance.
 **     CA  20201003          Replaced Guava identity HashSet with Collections.newSetFromMap(IdentityHashMap).
+**     RFB 20201015          Since thisProcedure can return null, validHandle needed to protect the error
+**                           message buildup. Ref. 4936.
+**     SVL 20210127          Added isReturnValueSetInRootScope.
 */
 
 /*
@@ -396,7 +399,20 @@
    {
       return work.obtain().returnValue;
    }
-   
+
+   /**
+    * Returns <code>true</code> if <code>RETURN-VALUE</code> was set during the call of the current root
+    * external program. Used to determine if we need to update <code>RETURN-VALUE</code> after an appserver
+    * call.
+    *
+    * @return <code>true</code> if <code>RETURN-VALUE</code> was set during the call of the current root
+    *          external program.
+    */
+   public static boolean isReturnValueSetInRootScope()
+   {
+      return work.obtain().returnValueSetInRootScope;
+   }
+
    /**
     * Sets the most recent RETURN-VALUE for the current user's session.
     *
@@ -415,8 +431,10 @@
       {
          wa.returnValue.assign(returnValue);
       }
+
+      wa.returnValueSetInRootScope = true;
    }
-   
+
    /**
     * Sets the most recent RETURN-VALUE for the current user's session.
     *
@@ -426,7 +444,9 @@
     */
    public static void setReturnValue(String returnValue)
    {
-      work.obtain().returnValue.assign(returnValue == null ? "" : returnValue);
+      WorkArea wa = work.obtain();
+      wa.returnValue.assign(returnValue == null ? "" : returnValue);
+      wa.returnValueSetInRootScope = true;
    }
 
    
@@ -7494,7 +7514,7 @@
             num = 2128;
             
             handle pthis = wa.pm.thisProcedure();
-            String thisName = wa.pm.getRelativeName(pthis.get());
+            String thisName = (pthis != null) ? wa.pm.getRelativeName(pthis.get()) : "null";
             err = String.format(msg, thisName, 0);
             
             ErrorManager.recordOrThrowError(num, err, false);
@@ -7865,6 +7885,7 @@
     * Stores global data relating to the state of the current context.
     */
    private static class WorkArea
+   implements Scopeable
    {  
       /** Helper to use the ProcedureManager without any context local lookups. */
       private final ProcedureManager.ProcedureHelper pm = ProcedureManager.getProcedureHelper();
@@ -7878,6 +7899,12 @@
       /** Stores the most recent RETURN-VALUE for this user's session. */
       private character returnValue = new character();
 
+      /**
+       * <code>true</code> if <code>RETURN-VALUE</code> was set during the call of the current root external
+       * program. Used to determine if we need to update <code>RETURN-VALUE</code> after an appserver call.
+       */
+      private boolean returnValueSetInRootScope = false;
+
       /** 
        * List of {@link Resolver} instances used for plain RUN statements.
        */
@@ -7941,6 +7968,36 @@
          inHandleResolvers.add(internalResolver);
          inHandleResolvers.add(internalProcSuperResolver);
          inHandleResolvers.add(sessionSuperResolver);
+
+         TransactionManager.registerScopeable(this);
+      }
+
+      /**
+       * Provides a notification that a new scope is about to be entered.
+       */
+      @Override
+      public void scopeStart()
+      {
+         if (tm.isRootNestingLevel())
+         {
+            returnValueSetInRootScope = false;
+         }
+      }
+
+      /**
+       * No-op.
+       */
+      @Override
+      public void scopeFinished()
+      {
+      }
+
+      /**
+       * No-op.
+       */
+      @Override
+      public void scopeDeleted()
+      {
       }
    }
    
@@ -8010,8 +8067,10 @@
          {
             wa.returnValue.assign(returnValue);
          }
+
+         wa.returnValueSetInRootScope = true;
       }
-      
+
       /**
        * Sets the most recent RETURN-VALUE for the current user's session.
        *
@@ -8022,6 +8081,7 @@
       public void setReturnValue(String returnValue)
       {
          wa.returnValue.assign(returnValue == null ? "" : returnValue);
+         wa.returnValueSetInRootScope = true;
       }
    }
    

=== modified file 'src/com/goldencode/p2j/util/DataSetSDOHelper.java'
--- src/com/goldencode/p2j/util/DataSetSDOHelper.java	2020-09-23 07:04:16 +0000
+++ src/com/goldencode/p2j/util/DataSetSDOHelper.java	2021-01-13 21:04:41 +0000
@@ -11,6 +11,7 @@
 ** 003 OM  20200120 Small typo fix.
 ** 004 CA  20200923 API improvements. Added extent support, other data-types.  Allow access to the hidden 
 **                  temp-table fields.
+**     OM  20201120 Added support for marshaling "xmlNodeName" and "errorString" attributes.
 */
 
 /*
@@ -80,8 +81,7 @@
 import commonj.sdo.helper.*;
 
 /**
- * Defines APIs to load DATASETs as Tuscany SDO.  This allows compatibility with the legacy Java 
- * Open client.
+ * Defines APIs to load DATASETs as Tuscany SDO.  This allows compatibility with the legacy Java Open client.
  * <p>
  * The {@link com.goldencode.p2j.persist.DataSet} is constructed as a {@link DataGraph}, for which
  * the metadata has the following structure (each graph node is a {@link DataObject}):
@@ -93,17 +93,13 @@
  *       <li><code>metadata</code>, having the custom <code>graphmetadata</code> type.</li>
  *    </ol>
  *   </li>
- *   <li><code>graphmetadata</code> defines the details about the tables and relations, in these 
- *       properties:
+ *   <li><code>graphmetadata</code> defines the details about the tables and relations, in these properties:
  *    <ol>
- *       <li><code>scope</code>, which helds the {@link HelperContext} used to build the metadata.
- *       </li>
- *       <li><code>name</code>, a String with the DataSet name.</li>
- *       <li><code>idSequence</code>, the internal record ID sequence.</li>
- *       <li><code>tables</code>, a list of <code>tablemetadata</code> holding the defined tables
- *       </li>
- *       <li><code>relations</code>, a list of<code>relationmetadata</code> holding the defined 
- *           relations </li>
+ *       <li><code>scope</code>, which helps the {@link HelperContext} used to build the metadata</li>
+ *       <li><code>name</code>, a String with the DataSet name</li>
+ *       <li><code>idSequence</code>, the internal record ID sequence</li>
+ *       <li><code>tables</code>, a list of <code>tablemetadata</code> holding the defined tables</li>
+ *       <li><code>relations</code>, a list of<code>relationmetadata</code> holding the defined relations</li>
  *    </ol>
  *   </li>
  *   <li><code>tablemetadata</code> defines the details about a table:
@@ -115,20 +111,19 @@
  *       <li><code>indexes</code>, a String with the index definitions.</li>
  *       <li><code>xmlns</code>, a String with the XML namespace.</li>
  *       <li><code>xmlPrefix</code>, a String with the XML prefix.</li>
- *       <li><code>tabletype</code>, a {@link Type} defining this table (used to add rows to the
- *           table). This type MUST extend the <code>baserowtype</code>, so that the rows know
- *           their container.
+ *       <li><code>xmlNodeName</code>, a String with the XML node name.</li>
+ *       <li><code>errorString</code>, a String with the table's ERROR-STRING attribute value.</li>
+ *       <li><code>tabletype</code>, a {@link Type} defining this table (used to add rows to the table). This
+ *           type MUST extend the <code>baserowtype</code>, so that the rows know their container.
  *       </li>
- *       <li><code>fields</code>, a list with the field definitions, of <code>fieldmetadata</code>
- *           type.</li>
+ *       <li><code>fields</code>, a list with the field definitions, of <code>fieldmetadata</code> type.</li>
  *       <li><code>rows</code>, a list with the table's rows (they have as type a custom type
  *           build based on the table's<code>fields</code>.  The base type is 
  *           <code>baserowtype</code>, an empty type.
  *        </li>
  *       <li><code>beforeRows</code>, a list with the before-table's rows, with the same record
- *           type as the <code>rows</code> list.  These are created/managed only when logging is
- *           enabled.
- *        </li>
+ *           type as the <code>rows</code> list.  These are created/managed only when logging is enabled.
+ *       </li>
  *    </ol>
  *   </li>
  *   <li><code>relationmetadata</code> defines the details about a relation:
@@ -139,8 +134,7 @@
  *       <li><code>whereString</code>, a String with the WHERE clause of this relation.</li>
  *       <li><code>active</code>, a Boolean with the relation's active state.</li>
  *       <li><code>parentId</code>, a Boolean with the parent-id state.</li>
- *       <li><code>pairs</code>, a String with <code>parent, child</code> field pairs, comma 
- *           delimited.</li>
+ *       <li><code>pairs</code>, a String with <code>parent, child</code> field pairs, comma delimited.</li>
  *       <li><code>fkeyHidden</code>, a Boolean with the FOREIGN-KEY-HIDDEN status.</li>
  *       <li><code>recursive</code>, a Boolean with the recursive status.</li>
  *       <li><code>nested</code>, a Boolean with the NESTED status.</li>
@@ -149,8 +143,7 @@
  *   </li>
  *   <li><code>fieldmetadata</code> defines the details about a field:
  *    <ol>
- *       <li><code>idx</code>, an int with the field's position in the table's <code>fields</code>
- *       </li>
+ *       <li><code>idx</code>, an int with the field's position in the table's <code>fields</code></li>
  *       <li><code>name</code>, a String with the legacy field name.</li>
  *       <li><code>extent</code>, an int with the field's extent.</li>
  *       <li><code>type</code>, a {@link BaseDataType} class with the field's type.</li>
@@ -352,33 +345,39 @@
    }
    
    /**
-    * Create an object with a table metadata.  This object will have the <code>tablemetadata</code>
-    * type and is not attached to the graph.
+    * Create an object with a table metadata.  This object will have the {@code tablemetadata} type and is not
+    * attached to the graph.
     * 
-    * @param    name
-    *           The table's name.
-    * @param    numFields
-    *           The number of fields.
-    * @param    b4img
-    *           Flag indicating if the table has a BEFORE-IMAGE.
-    * @param    numIndexes
-    *           The number of indexes.
-    * @param    indexes
-    *           The index specification (TODO: not validated/implemented at this time).
-    * @param    xmlns
-    *           The XML namespace (TODO: not validated/implemented at this time).
-    * @param    xmlPrefix
-    *           The XML prefix (TODO: not validated/implemented at this time).
-    *           
+    * @param   name
+    *          The table's name.
+    * @param   numFields
+    *          The number of fields.
+    * @param   b4img
+    *          Flag indicating if the table has a BEFORE-IMAGE.
+    * @param   numIndexes
+    *          The number of indexes.
+    * @param   indexes
+    *          The index specification (TODO: not validated/implemented at this time).
+    * @param   xmlns
+    *          The XML namespace (TODO: not validated/implemented at this time).
+    * @param   xmlPrefix
+    *          The XML prefix (TODO: not validated/implemented at this time).
+    * @param   xmlNodeName
+    *          The XML node name (TODO: not validated/implemented at this time).
+    * @param   errorString
+    *          The table's ERROR-STRING attribute  (TODO: not validated/implemented at this time). 
+    *
     * @return   An object with the table metadata.
     */
-   public static DataObject createTableMetaData(String    name, 
-                                                int       numFields, 
-                                                boolean   b4img,
-                                                int       numIndexes,
-                                                String    indexes,
-                                                String    xmlns, 
-                                                String    xmlPrefix)
+   public static DataObject createTableMetaData(String   name,
+                                                int      numFields,
+                                                boolean  b4img,
+                                                int      numIndexes,
+                                                String   indexes,
+                                                String   xmlns,
+                                                String   xmlPrefix,
+                                                String   xmlNodeName,
+                                                String   errorString)
    {
       HelperContext scope = SDOUtil.createHelperContext();
       createGraphMetaDataTypes(scope);
@@ -392,6 +391,8 @@
       tableMeta.setString("indexes", indexes);
       tableMeta.setString("xmlns", xmlns);
       tableMeta.setString("xmlPrefix", xmlPrefix);
+      tableMeta.setString("xmlNodeName", xmlNodeName);
+      tableMeta.setString("errorString", errorString);
       
       return tableMeta;
    }
@@ -410,16 +411,19 @@
       if (table.getContainer() != null)
       {
          List<DataObject> fields = table.getList("fields");
-
-         String  name       = table.getString("name");
-         int     numFields  = table.getInt("numFields");
-         boolean b4img      = table.getBoolean("b4img");
-         int     numIndexes = table.getInt("numIndexes");
-         String  indexes    = table.getString("indexes");
-         String  xmlns      = table.getString("xmlns");
-         String  xmlPrefix  = table.getString("xmlPrefix");
-
-         table = createTableMetaData(name, numFields, b4img, numIndexes, indexes, xmlns, xmlPrefix);
+         
+         String  name        = table.getString("name");
+         int     numFields   = table.getInt("numFields");
+         boolean b4img       = table.getBoolean("b4img");
+         int     numIndexes  = table.getInt("numIndexes");
+         String  indexes     = table.getString("indexes");
+         String  xmlns       = table.getString("xmlns");
+         String  xmlPrefix   = table.getString("xmlPrefix");
+         String  xmlNodeName = table.getString("xmlNodeName");
+         String  errorString = table.getString("errorString");
+         
+         table = createTableMetaData(name, numFields, b4img, numIndexes, indexes, xmlns, xmlPrefix, 
+                                     xmlNodeName, errorString);
          
          for (DataObject fieldMeta : fields)
          {
@@ -430,11 +434,11 @@
             int legacyType = fieldMeta.getInt("legacytype");
             int order = fieldMeta.getInt("order");
             int xmlMapping = fieldMeta.getInt("xmlMapping");
-
+            
             setFieldMetaData(table, fidx, fname, extent, cls, legacyType, order, xmlMapping);
          }
       }
-
+      
       HelperContext scope = (HelperContext) metaData.get("scope");
       TypeHelper typeHelper = scope.getTypeHelper();
       
@@ -721,6 +725,8 @@
          indexes: String
          xmlns: String
          xmlPrefix: String
+         xmlNodeName: String
+         errorString: String
          tabletype: object
          fields[]: fieldmetadata
          rows[]: baserowtype
@@ -770,12 +776,14 @@
       addPropertyDescription(tableMeta, stringType,  "indexes");
       addPropertyDescription(tableMeta, stringType,  "xmlns");
       addPropertyDescription(tableMeta, stringType,  "xmlPrefix");
+      addPropertyDescription(tableMeta, stringType,  "xmlNodeName");
+      addPropertyDescription(tableMeta, stringType,  "errorString");
       addPropertyDescription(tableMeta, objectType,  "tabletype");
-      DataObject fields = addPropertyDescription(tableMeta, fieldMeta,  "fields");
+      DataObject fields = addPropertyDescription(tableMeta, fieldMeta, "fields");
       fields.setBoolean("many", true);
-      DataObject rows = addPropertyDescription(tableMeta, baseRowType,  "rows");
+      DataObject rows = addPropertyDescription(tableMeta, baseRowType, "rows");
       rows.setBoolean("many", true);
-      DataObject beforeRows = addPropertyDescription(tableMeta, baseRowType,  "beforeRows");
+      DataObject beforeRows = addPropertyDescription(tableMeta, baseRowType, "beforeRows");
       beforeRows.setBoolean("many", true);
       typeHelper.define(tableMeta);
 
@@ -1549,8 +1557,8 @@
    {
       DataObject metadata = createGraphMetaData("ds1");
       DataGraph graph = createDataGraph(metadata);
-      DataObject tableTt1 = createTableMetaData("tt1", 5, false, 0, null, null, null);
-      DataObject tableTt2 = createTableMetaData("tt2", 2, false, 0, null, null, null);
+      DataObject tableTt1 = createTableMetaData("tt1", 5, false, 0, null, null, null, null, null);
+      DataObject tableTt2 = createTableMetaData("tt2", 2, false, 0, null, null, null, null, null);
       
       setFieldMetaData(tableTt1, 0, "f1", 0, integer.class, LegacyJavaAppserver.TYPE_INTEGER, 0, 0);
       setFieldMetaData(tableTt1, 1, "f2", 0, character.class, LegacyJavaAppserver.TYPE_CHARACTER, 1, 0);

=== modified file 'src/com/goldencode/p2j/util/Debugger.java'
--- src/com/goldencode/p2j/util/Debugger.java	2018-12-04 18:45:21 +0000
+++ src/com/goldencode/p2j/util/Debugger.java	2020-12-05 02:01:57 +0000
@@ -3,11 +3,12 @@
 ** Abstract : The implementation of a Debugger resource. 
 **
 ** Copyright (c) 2018, Golden Code Development Corporation.
-
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20181204 Created initial version.
+** 002 OM  20201203 Fixed handling of READ/ONLY attributes.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -473,8 +474,7 @@
    }
    
    /**
-    * API needed to implement read-only attribute assignment (a 4GL 
-    * "feature").
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
     * 
     * @param    attribute
     *           The attribute's name.
@@ -494,6 +494,21 @@
    }
 
    /**
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
+    * 
+    * @param    attribute
+    *           The attribute's name.
+    * @param    expr
+    *           The value which is attempted to be assigned to the read-only attribute. 
+    *
+    * @see      handle#readOnlyError(handle, String, Object)
+    */
+   public static void readOnlyError(String attribute, Object expr)
+   {
+      readOnlyError(attribute);
+   }
+
+   /**
     * Stores global data relating to the state of the current context.
     */
    private static class WorkArea

=== modified file 'src/com/goldencode/p2j/util/ErrorManager.java'
--- src/com/goldencode/p2j/util/ErrorManager.java	2021-01-28 07:24:18 +0000
+++ src/com/goldencode/p2j/util/ErrorManager.java	2021-01-31 10:14:52 +0000
@@ -190,8 +190,13 @@
 **                           was treating an error code as a key code.
 **     GES 20200820          Safety code in case ErrorHelper is requested on the client side.
 **     GES 20200821          Added ErrorHelper.isSuppressWarnings().
-** 081 ME  20201014          Do not append error number if zero, there are system errors thrown with number set to zero.
-**         20210128          Add helper method for 'invalid parameter' error and push all messages from an 
+**     ME  20201014          Do not append error number if zero, there are system errors thrown with number set to zero.
+**     OM  20201020          Renamed warning to errorsAsWarnings and added accessors in ErrorHelper.
+**                           Added some missing error messages.
+**     OM  20201120          Changed method name to match no-bean prefixes buffer convention.
+**         20201125          displayError is no-op in silent mode.
+**     OM  20201203          Fixed handling of READ/ONLY attributes.
+**     ME  20210128          Add helper method for 'invalid parameter' error and push all messages from an 
 **                           OO error up the stack for silent execution.
 */
 
@@ -333,7 +338,7 @@
    private static final Logger LOG = LogHelper.getLogger(ErrorManager.class.getName());
    
    /** Stores context-local state variables. */
-   private static ContextContainer work = new ContextContainer(); 
+   private static final ContextContainer work = new ContextContainer(); 
    
    /** Error data access interface between client and server. */
    private static RemoteErrorData da = new ServerDataAccess();
@@ -419,8 +424,7 @@
    }
    
    /**
-    * API needed to implement read-only attribute assignment (a 4GL 
-    * "feature").
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
     * 
     * @param    attribute
     *           The attribute's name.
@@ -433,6 +437,21 @@
    }
    
    /**
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
+    * 
+    * @param    attribute
+    *           The attribute's name.
+    * @param    expr
+    *           The value which is attempted to be assigned to the read-only attribute. 
+    *
+    * @see      handle#readOnlyError(handle, String, Object)
+    */
+   public static void readOnlyError(String attribute, Object expr)
+   {
+      handle.readOnlyError(asHandle(), attribute);
+   }
+   
+   /**
     * Initialize <code>ErrorManager</code> for headless mode.
     */
    public static void setHeadless()
@@ -579,7 +598,7 @@
     */
    public static boolean isWarningMode()
    {
-      return work.obtain().warning;
+      return work.obtain().errorsAsWarnings;
    }
    
    /**
@@ -680,7 +699,7 @@
    public static void warningModeEnable()
    {
       // enable warning processing
-      work.obtain().warning = true;
+      work.obtain().errorsAsWarnings = true;
    }
    
    /**
@@ -692,7 +711,7 @@
    public static void warningModeDisable()
    {
       // disable further warning processing
-      work.obtain().warning = false;
+      work.obtain().errorsAsWarnings = false;
    }
    
    /**
@@ -959,8 +978,7 @@
       
       if (num.length != text.length)
       {
-         throw new IllegalArgumentException(
-            "Unbalanced error number and text message pairs");
+         throw new IllegalArgumentException("Unbalanced error number and text message pairs");
       }
       
       StringBuilder buf = new StringBuilder();
@@ -981,9 +999,8 @@
          {
             if (i == 0)
             {
-               // this may reset the error list so it must be done BEFORE we
-               // add the new error(s) to the list; this only needs to be done
-               // the first time through this loop
+               // this may reset the error list so it must be done BEFORE we add the new error(s) to the list;
+               // this only needs to be done the first time through this loop
                da.setPending(isError);
             }
             
@@ -1072,7 +1089,13 @@
     */
    public static void recordOrShowError(int id, String... params)
    {
-      ErrorManager.recordOrShowError(id, replaceTokens(id, params), true, false);
+      ErrorManager.recordOrShowError(new int[] { id },
+                                     new String[] { replaceTokens(id, params) },
+                                     true,   // modal
+                                     false,  // no prefix
+                                     true,   // error
+                                     false,  // not as message
+                                     true);  // add final dot
    }
    
    /**
@@ -1089,7 +1112,13 @@
     */
    public static void recordOrShowError(int id, boolean isError, String... params)
    {
-      ErrorManager.recordOrShowError(id, replaceTokens(id, params), true, false, isError);
+      ErrorManager.recordOrShowError(new int[] { id },
+                                     new String[] { replaceTokens(id, params) },
+                                     true,    // modal
+                                     false,   // no prefix
+                                     isError, // error
+                                     false,   // not as message
+                                     true);   // add final dot
    }
 
    /**
@@ -1865,12 +1894,25 @@
     *
     * @return    Current state of the error flag.
     */
+   @LegacyAttribute(name = "ERROR", ignore = true)
    public static logical isError()
    {
       return new logical(work.obtain().errorStatus.error);
    }
    
    /**
+    * Returns the state of the error flag which was set during the last silent mode processing,
+    * even if silent error mode is not currently active. If silent error mode was never used,
+    * then <code>false</code> will be returned.
+    *
+    * @return    Current state of the error flag.
+    */
+   public static logical error()
+   {
+      return isError();
+   }
+   
+   /**
     * Returns the number of the errors (recorded in the error list) which have occurred during
     * the last usage of silent error mode.
     *
@@ -2153,7 +2195,19 @@
     *           The new state of the variable.
     */
    @LegacyAttribute(name = "ERROR", setter = true, ignore = true)
-   public static void setError(boolean value)    
+   public static void setError(boolean value)
+   {
+      // no-op
+   }
+   
+   /**
+    * Sets the error variable.  This is a no-op, as the ERROR-STATUS:ERROR attribute
+    * is read-only.
+    *
+    * @param    value
+    *           The new state of the variable.
+    */
+   public static void error(boolean value)
    {
       // no-op
    }
@@ -2166,7 +2220,19 @@
     *           The new state of the variable.
     */
    @LegacyAttribute(name = "ERROR", setter = true, ignore = true)
-   public static void setError(logical value)    
+   public static void setError(logical value)
+   {
+      // no-op
+   }
+   
+   /**
+    * Sets the error variable.  This is a no-op, as the ERROR-STATUS:ERROR attribute
+    * is read-only.
+    *
+    * @param    value
+    *           The new state of the variable.
+    */
+   public static void error(logical value)
    {
       // no-op
    }
@@ -2329,7 +2395,7 @@
     */
    public static void displayError(int num, String msg, boolean prefix)
    {
-      displayError(buildErrorText(num, msg, prefix));
+      displayError(buildErrorText(num, msg, prefix), false, null);
       addRaisedCondition(new int[] {num});
    }
    
@@ -2373,14 +2439,15 @@
       {
          addRaisedConditionWorker(wa, new int[] {num});
       }
-
+      
       if (wa.suppressWarnings)
       {
-         // when SESSION:SUPPRESS-WARNING set to TRUE the warning is not displayed,
-         // output or set in ERROR-STATUS, only added to _MSG
+         // when SESSION:SUPPRESS-WARNING set to TRUE the warning is not displayed, output or set in
+         // ERROR-STATUS, only added to _MSG
          return;
       }
-      else if (silentError)
+      
+      if (silentError)
       {
          // no-error will modify ERROR-STATUS, but only when SUPPRESS-WARNINGS not set to TRUE
          wa.pendingErrorStatus.errorList.add(new ErrorEntry(num, errText));
@@ -2450,7 +2517,7 @@
     */
    public static void displayError(String errmsg)
    {
-      displayError(errmsg, false);
+      displayError(errmsg, false, null);
    }
    
    /**
@@ -2482,9 +2549,11 @@
     */
    public static void displayError(String errmsg, boolean noMessageBox, String[] stack)
    {
-      if (isIgnore() || isHeadless())
+      if (isIgnore() || isHeadless() || isSilent())
+      {
          return;
-
+      }
+      
       if (errorWriter != null)
       {
          errorWriter.displayError(errmsg, noMessageBox, stack);
@@ -2548,7 +2617,8 @@
    /**
     * This method can be only called on the server.
     *
-    * @param value
+    * @param   value
+    *          The new value of {@code  SESSION:SUPPRESS-WARNINGS} attribute.
     */
    public static void setSuppressWarnings(boolean value)
    {
@@ -2590,6 +2660,7 @@
          case   142: msg = "** Unable to update %1 Field"; break;
          case   257: msg = "** The first character of %1 must be alphabetic"; break;
          case   274: msg = "** The character %1 is not permitted in name %2"; break;
+         case   293: msg = "** \"%1\" was not found"; break;
          case   341: msg = "** There is no current %1 record. Delete failed"; break;
          case  3131: msg = "Unable to set attribute %1 in widget %2 of type %3"; break;
          case  3140: msg = "Cannot access the %1 attribute because the widget does not exist"; break; // when invoking APPLY-CALLBACK on an uninitialized handle.
@@ -2598,14 +2669,18 @@
          case  4058: msg = "**Attribute %1 for the %2 has an invalid value of %3"; break;
          case  4061: msg = "**Attribute %1 for the %2 has an invalid value"; break;
          case  4065: msg = "**The %1 attribute on the %2 has invalid arguments"; break;
+         case  4078: msg = "**Unable to set attribute %1 for %2"; break;
+         case  4083: msg = "**Unable to assign UNKNOWN value to attribute %1 on %2"; break;
+         case  5442: msg = "Invalid datatype for argument to method '%1'. Expecting '%2'"; break;
          
          case  7319: msg = "ADD/SET-BUFFERS argument %1 was invalid or not found"; break;
-         case  7331: msg = "Cannot reposition query  to recid/rowid(s) given"; break;
+         case  7331: msg = "Cannot reposition query %1 to recid/rowid(s) given"; break;
          case  7351: msg = "BUFFER-FIELD %1 was not found in buffer %2"; break;
          case  7352: msg = "You may only invoke EMPTY-TEMP-TABLE on valid temp-tables"; break;
          case  7372: msg = "Object of type DATASET widget used where BUFFER-FIELD object required"; break;
          case  9034: msg = "Pair with %1 failed to have a member in each table"; break;
          case  9035: msg = "Pairs list had too many pairs or odd number of entries"; break;
+         case  9069: msg = "Unable to get TEMP-TABLE handle for parameter"; break;
          
          case 10068: msg = "Lead attributes in a chained-attribute expression (a:b:c) must be type HANDLE or a user-defined type and valid (not UNKNOWN)"; break;
          
@@ -2650,6 +2725,7 @@
          case 11938: msg = "SAVE-ROW-CHANGES must be run on the BEFORE table of buffer %1"; break;
          case 11939: msg = "REJECT-ROW-CHANGES must be run on the BEFORE table of buffer %1"; break;
          case 11942: msg = "SAVE-ROW-CHANGES for BEFORE buffer %1, requires that the corresponding AFTER dataset member buffer %2 be attached to a DATA-SOURCE"; break;
+         case 11943: msg = "First argument to MERGE-ROW-CHANGES must be a valid BUFFER handle"; break;
          case 11944: msg = "MERGE-ROW-CHANGES finds ORIGIN-HANDLE in table %1 is no longer valid"; break;
          case 11945: msg = "BUFFER:FILL is only valid for buffers that are members of a dataset"; break;
          case 11946: msg = "You cannot EMPTY a BEFORE-TABLE, Use ACCEPT-CHANGES or EMPTY the AFTER-TABLE"; break;
@@ -2675,6 +2751,7 @@
          case 11967: msg = "CLEAR may not be used on a static dataset"; break;
          case 11968: msg = "First argument to DATASET:CREATE-LIKE must be a valid dataset handle or name\""; break; // yes, the double quote is part of error message
          case 11969: msg = "Unable to CLEAR target CREATE-LIKE dataset"; break;
+         case 11971: msg = "Cannot delete a relation of a dataset"; break;
          case 11973: msg = "You may not change the buffers for a static data-source"; break;
          case 11974: msg = "The first argument to ADD-SOURCE-BUFFER must be a valid buffer handle"; break;
          case 11975: msg = "ADD-SOURCE-BUFFER key name %1 must be a field in buffer %2"; break;
@@ -2688,6 +2765,8 @@
          case 12310: msg = "Caller and called dataset parameters have different number of members"; break;
          
          case 12344: msg = "Cannot turn on TRACKING-CHANGES for a static temp-table unless DEFINED with a BEFORE-TABLE phrase"; break;
+         case 12352: msg = "Argument %1 to query callback method must be a valid query event name such as OFF-END"; break;
+         case 12360: msg = "LAST-BATCH may only be set for dataset temp-tables"; break;
          case 12361: msg = "BATCH-SIZE may only be set for dataset temp-tables"; break;
          case 12362: msg = "COPY-DATASET must have a valid dataset handle as first argument"; break;
          
@@ -2712,16 +2791,23 @@
          case 12785: msg = "Table %1 not found in dataset %2"; break;
 case 12786: msg = "FILL-WHERE-STRING cannot be assigned unless the DATA-SOURCE is attached to some dataset buffer by a prior ATTACH-DATA-SOURCE"; break;
          case 12787: msg = "Attempt to reference uninitialized dataset"; break;
+         case 12788: msg = "OFF-END CALLBACK not supported for query %1 whose buffer %2 is not in a dataset"; break;
+         case 12790: msg = "Invalid value given for SCHEMA-MARSHAL %1"; break;
          case 12860: msg = "Datatypes in pairlist argument for ATTACH-DATA-SOURCE, BUFFER-COPY or BUFFER-COMPARE methods must match for fields %1 and %2"; break;
          
          case 13011: msg = "%1 If BIND used when caller TABLE or DATASET parameter is bound and called parameter %2 is also bound, the caller and called parameters must be the same instance"; break;
          case 13012: msg = "%1 BIND or BY-REFERENCE modifier required on RUN, FUNCTION or METHOD invocation parameter when called TABLE or DATASET parameter %2 is REFERENCE-ONLY and is still not bound"; break;
          case 13031: msg = "Cannot have both schema-location and write-schema arguments set"; break;
+         case 13032: msg = "Unable to create Temp-Table or dataset schema from XML Schema"; break;
          case 13033: msg = "Verify Temp-Table or dataset schema against XML Schema failed"; break;
+         case 13035: msg = "Error reading XML file '%1'"; break;
+case 13036: msg = "Error reading XML from a MEMPTR or LONGCHAR"; break;
 case 13048: msg = "The XML for READ-XMLSCHEMA must start with a 'schema' element"; break;
          case 13050: msg = "Unable to create record for '%1' during READ-XML/READ-JSON"; break;
          case 13053: msg = "Unable to update field '%1' in table '%2'"; break;
 case 13058: msg = "No data instance in diffgram to parse"; break;
+         case 13063: msg = "REPLACE mode requires a unique primary index in the target table %1"; break;
+         case 13064: msg = "READ-XML encountered an error while parsing the XML Document: %1"; break;
          case 13066: msg = "Unable to write XML Schema for temp-table %1"; break;
          case 13078: msg = "Unsupported data type for XML Serialization: %1"; break;
          case 13079: msg = "XML Schema definition for temp-table '%1' not found"; break;
@@ -2734,11 +2820,23 @@
          case 13091: msg = "XML Schema definition for table '%1' contains extra field '%2'"; break;
          case 13093: msg = "Write temp-table data failed for WRITE-XML"; break;
          case 13097: msg = "Write schema failed for WRITE-XMLSCHEMA"; break;
+         case 13138: msg = "Temp-table '%1' not found in XML Schema"; break;
+case 13139: msg = "Field '%1' already added from XML Schema"; break;
+case 13140: msg = "Invalid 'maxOccurs' attribute value '%1' for field '%2'"; break;
+         case 13141: msg = "Invalid 'maxOccurs' attribute value set for BLOB or CLOB field '%1'"; break;
+case 13142: msg = "Invalid format '%1' in XML Schema for field '%2'"; break;
+         case 13143: msg = "Unable to set initial value '%1' from XML Schema for field '%2'"; break;
          case 13158: msg = "XML Methods only allowed on TEMP-TABLE buffers"; break;
+         case 13159: msg = "Dynamic temp-table must be in CLEAR or PREPARED state for READ-XML Methods"; break;
+         case 13160: msg = "Dynamic temp-table must be in PREPARED state for WRITE-XML Methods"; break;
 case 13161: msg = "%1 If a caller or called REFERENCE-ONLY parameter %2 will become BOUND to its opposite as a result of the call, then the BIND keyword must be supplied on both the caller invocation and on the called parameter definition"; break;
-case 13200: msg = "Odd number of values in field-type-mapping argument"; break;
+         case 13185: msg = "Invalid target-type for WRITE-XML: %1"; break;
+         case 13186: msg = "Handle type not valid as WRITE-XML target"; break;
+         case 13200: msg = "Odd number of values in field-type-mapping argument"; break;
+         case 13201: msg = "Invalid data type override '%1' for field '%2'"; break;
          case 13273: msg = "Third argument to SET-CALLBACK must be a valid procedure handle or object reference"; break;
          case 13272: msg = "Use SET-CALLBACK instead of SET-CALLBACK-PROCEDURE for methods in a class"; break;
+         case 13452: msg = "Method '%1' for callback must be valid public method"; break;
          case 13514: msg = "%1 name '%2' in namespace '%3' not found in XML Document"; break;
          case 13515: msg = "Invalid encoding for WRITE-XML"; break;
          
@@ -2751,19 +2849,27 @@
          
          case 15008: msg = "You may not add before-table buffer %1 to a DATASET"; break;
          case 15342: msg = "Invalid encoding '%1' argument for %2"; break;
+         case 15344: msg = "Invalid mode '$1' for %2"; break;
+         case 15375: msg = "Dataset name '%1' in JSON does not match '%2'"; break;
          case 15378: msg = "JSON methods only allowed on TEMP-TABLE buffers"; break;
          case 15391: msg = "Unsupported data type for JSON serialization: %1"; break;
          
-         case 16031: msg = "Invalid XML-NODE-TYPE %1 for Dataset %2"; break;
+         case 16017: msg = "No record in buffer for SERIALIZE-ROW"; break;
+         case 16019: msg = "Invalid target-format '%1' for SERIALIZE-ROW"; break;
+         case 16020: msg = "omit-outer-object argument not allowed in SERIALIZE-ROW for XML"; break; // this message DOES NOT have a "." at the end! 
          case 16025: msg = "The argument to Dataset-handle:ADD-PARENT-ID-RELATION method was invalid."; break;
+         case 16027: msg = "Buffers in ADD-PARENT-ID-RELATION must be members of the dataset"; break;
          case 16028: msg = "ADD-PARENT-ID-RELATION parent-id-field %1 is not valid"; break;
          case 16029: msg = "ADD-PARENT-ID-RELATION parent-fields-before entry %1 is not valid"; break;
          case 16030: msg = "ADD-PARENT-ID-RELATION parent-fields-after entry %1 is not valid"; break;
+         case 16031: msg = "Invalid XML-NODE-TYPE %1 for Dataset %2"; break;
          case 16484: msg = "Duplicate field %1 found in PARENT-FIELDS-BEFORE / PARENT-FIELDS-AFTER"; break;
          
-         
-         
+         case 16617: msg = "%1 is not a %2 attribute for %3"; break; // unlike 4052, this does not have ** prefix
+         
+         case 17092: msg = "Cannot set the DECIMALS attribute for a database field"; break;
          case 17366: msg = "write-before-image not allowed for TEMP-TABLE or BUFFER object"; break;
+         case 17586: msg = "Cannot serialize object of unsupported type '%1'"; break;
          
          
          
@@ -3112,13 +3218,16 @@
    private static boolean silentWorker(Runnable code, ServerDataAccess srv, WorkArea wa)
    {
       // enable silent error processing
-      srv.setSilent(wa, true);
+      boolean wasSilent = wa.silent;
+      if (!wasSilent)
+      {
+         srv.setSilent(wa, true);
+      }
       
       try
       {
          code.run();
       }
-      
       catch (LegacyErrorException lex)
       {
          srv.setPending(true);
@@ -3140,7 +3249,6 @@
             addRaisedConditionWorker(wa, errnums);
          }
       }
-      
       catch (ErrorConditionException err)
       {
          // normally we just eat the exception because it is being used to abort processing
@@ -3153,11 +3261,13 @@
             throw err;
          }
       }
-      
       finally
       {
          // disable further silent error processing
-         srv.setSilent(wa, false);
+         if (!wasSilent)
+         {
+            srv.setSilent(wa, false);
+         }
          
          forwardPending(wa);
       }
@@ -3241,7 +3351,7 @@
          setPendingWorker(wa, true);
       }
 
-      String errmsg = buildErrorText(num, text, prefix);
+      String errmsg = buildErrorText(num, text, prefix, true);
 
       // manually using the work area is OK in this case since this method is only used on the server
       wa.pendingErrorStatus.errorList.add(new ErrorEntry(num, errmsg));
@@ -3368,7 +3478,7 @@
       {
          return wa.suppressWarnings;
       }
-
+      
       /**
        * Reports on the context-local {@code silent} flag.
        *
@@ -3574,6 +3684,32 @@
       {
          noRecordOrThrowErrorWorker(wa, msg);
       }
+      
+      /**
+       * Reports if warning mode has been enabled. When in warning mode, error messages are reported to the UI
+       * using an alert box.
+       *
+       * @return   {@code true} if warning mode is enabled, otherwise {@code false}.
+       */
+      public boolean isWarningMode()
+      {
+         return wa.errorsAsWarnings;
+      }
+      
+      /**
+       * Configures warning mode, during which errors are non-fatal (when {@code on} is {@code true}), but are
+       * reported to the UI of the current context via a call to {@code LogicalTerminal.message()}.
+       * <p>
+       * Each call to this method must be matched with a corresponding call to {@link #warningModeDisable}.
+       *
+       * @param   on
+       *          Pass {@code true} to enable reported but non-fatal errors, and {@code false} to handle
+       *          errors normally.
+       */
+      public void setWarningMode(boolean on)
+      {
+         wa.errorsAsWarnings = on;
+      }
    }
    
    /**
@@ -3676,7 +3812,7 @@
       }
          
       /**
-       * Sets the <code>silent</code> variable.
+       * Sets the {@code silent} variable.
        *
        * @param    wa
        *           Context local data storage.
@@ -3860,7 +3996,7 @@
       }
       
       /**
-       * Sets the <code>silent</code> variable.
+       * Sets the {@code silent} variable.
        *
        * @param    wa
        *           Context local data storage.
@@ -3886,7 +4022,7 @@
       private ErrorStatus errorStatus = new ErrorStatus();
       
       /** Pending error status value. */
-      private ErrorStatus pendingErrorStatus = new ErrorStatus();
+      private final ErrorStatus pendingErrorStatus = new ErrorStatus();
       
       /** No error flag (if <code>true</code> exceptions are silently recorded rather than thrown). */ 
       private boolean silent = false;
@@ -3901,7 +4037,7 @@
       private int ignore = 0;
       
       /** Whether exceptions are processed as non-fatal, warning messages. */
-      private boolean warning = false;
+      private boolean errorsAsWarnings = false;
       
       /** {@code true} to mark this context as having NO UI. */
       private boolean headless = false;
@@ -3910,8 +4046,8 @@
        * Raised errors numbers stack. Used for undocumented _MSG function implementation.
        * Can contain &le;25 elements, indexed starting from 1.
        */
-      private LinkedList<Integer> raisedConditions = new LinkedList<>();
-
+      private final LinkedList<Integer> raisedConditions = new LinkedList<>();
+      
       /** Reflects the value of SESSION:SUPPRESS-WARNINGS attribute. */
       private boolean suppressWarnings = false;
       
@@ -3971,7 +4107,7 @@
    private static class ErrorStatus 
    {
       /** List of errors. */
-      private List<Object> errorList = new ArrayList<>();
+      private final List<Object> errorList = new ArrayList<>();
       
       /** Stores whether an error condition has occurred previously. */
       private boolean error = false;

=== modified file 'src/com/goldencode/p2j/util/Errorable.java'
--- src/com/goldencode/p2j/util/Errorable.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/p2j/util/Errorable.java	2021-01-13 21:04:41 +0000
@@ -2,12 +2,14 @@
 ** Module   : Errorable.java
 ** Abstract : Define getter and setter for ERROR attribute.
 **
-** Copyright (c) 2013-2017, Golden Code Development Corporation.
+** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -----------------------Description------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20130220 Created initial version.
 ** 002 EVL 20130911 Adding legacy attributes and methods annotation.
+**     OM  20201020 Dropped bean prefix as per buffer attribute name convention.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -74,23 +76,23 @@
     * @return    Current state of the ERROR attribute.
     */
    @LegacyAttribute(name = "ERROR")
-   public logical isError();
-
-   /**
-    * Setter for ERROR attribute.
-    *
-    * @param    value
-    *           The new value of ERROR attribute.
-    */
-   @LegacyAttribute(name = "ERROR", setter = true)
-   public void setError(boolean value);
-
-   /**
-    * Setter for ERROR attribute.
-    *
-    * @param    value
-    *           The new value of ERROR attribute.
-    */
-   @LegacyAttribute(name = "ERROR", setter = true)
-   public void setError(logical value);
-}
\ No newline at end of file
+   public logical error();
+
+   /**
+    * Setter for ERROR attribute.
+    *
+    * @param    value
+    *           The new value of ERROR attribute.
+    */
+   @LegacyAttribute(name = "ERROR", setter = true)
+   public void error(boolean value);
+
+   /**
+    * Setter for ERROR attribute.
+    *
+    * @param    value
+    *           The new value of ERROR attribute.
+    */
+   @LegacyAttribute(name = "ERROR", setter = true)
+   public void error(logical value);
+}

=== modified file 'src/com/goldencode/p2j/util/ExternalProgramWrapper.java'
--- src/com/goldencode/p2j/util/ExternalProgramWrapper.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/util/ExternalProgramWrapper.java	2021-01-13 21:04:41 +0000
@@ -3,9 +3,8 @@
 ** Abstract : container that implements persistent-procedure related APIs.
 **
 ** Copyright (c) 2012-2020, Golden Code Development Corporation.
-
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 002 CA  20121220 Created initial version.
 ** 003 CS  20130211 Added conversion support for app server. 
 ** 004 CA  20130221 getType getter for TYPE attribute was renamed to getResourceType. 
@@ -37,9 +36,12 @@
 ** 023 CA  20190628 Added SINGLE-RUN and SINGLETON support.
 ** 024 VVT 20200131 Missing @Override annotations added. Code cleanup.
 ** 025 AIL 20200518 Added support for MultiDeletable.
-** 026 AIL 20200622 Made use of the new procedure delete signature. Fixed the multidelete.
+**     AIL 20200622 Made use of the new procedure delete signature. Fixed the multidelete.
 **                  Use the StaleProcedureHelper instead of a singleton.
+**     OM  20201120 Added missing CALLBACK management methods.
+**     OM  20201203 Fixed handling of READ/ONLY attributes.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -160,16 +162,31 @@
    }
    
    /**
-    * API needed to implement read-only attribute assignment (a 4GL 
-    * "feature").
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
     * 
     * @param    attribute
     *           The attribute's name.
     */
    @Override
+   @Deprecated
    public void readOnlyError(String attribute)
    {
-      handle.readOnlyError(new handle(this), attribute);
+      handle.readOnlyError(new handle(this), attribute, handle.UNKNOWN_ARGUMENT);
+   }
+   
+   /**
+    * Shows a specific error, as this read-only {@code attribute} was used on the right-side of an assignment.
+    * If the {@code expr} is evaluated to {@code ?} (unknown value) and this attribute does not support it,
+    * a specific error is raised.
+    *
+    * @param    attribute
+    *           The read-only attribute.
+    * @param    expr
+    *           The expression whose value was attempted to be assigned to READ-ONLY attribute.
+    */
+   public void readOnlyError(String attribute, Object expr)
+   {
+      handle.readOnlyError(new handle(this), attribute, expr);
    }
    
    /**
@@ -637,7 +654,32 @@
    {
       return ProcedureManager.getUniqueID(referent);
    }
-
+   
+   /**
+    * Associate the internal procedure with the given web-services event.
+    * <p>
+    * This method returns false if the event name is not valid.
+    * <p>
+    * For external procedures, this always shows an error.
+    *
+    * @param   event
+    *          The event name, must evaluate to one of the "REQUEST-HEADER" or the "RESPONSE-HEADER" strings. 
+    * @param   proc
+    *          The internal procedure to be executed for this event, which will be executed using the current
+    *          THIS-PROCEDURE reference. To remove a callback mapping, set the this parameter to the empty
+    *          string.
+    * @param   context
+    *          The context in which the callback will be executed.
+    *
+    * @return   <code>true</code> if the event was registered.
+    */
+   @Override
+   public logical setCallback(String event, String proc, object<?> context)
+   {
+      UnimplementedFeature.missing("SET-CALLBACK-PROCEDURE(String event, String proc, object<?> context)");
+      return new logical();
+   }
+   
    /**
     * Associate the internal procedure with the given web-services event.
     * <p>
@@ -833,7 +875,55 @@
       ErrorManager.recordOrShowError(4065, msg, false, false, false);
       return new logical(false);
    }
-
+   
+   /**
+    * Retrieves the handle of the procedure that contains the internal procedure associated
+    * with the ABL callback for the specified event
+    *
+    * @param   eventName
+    *          The name of the event.
+    *
+    * @return  a handle to the procedure that contains the callback procedure.
+    */
+   @Override
+   public handle getCallbackProcContext(String eventName)
+   {
+      UnimplementedFeature.missing("GET-CALLBACK-PROC-CONTEXT(String event)");
+      return new handle();
+   }
+   
+   /**
+    * Retrieves the name of the internal procedure associated with the ABL callback for the
+    * specified event.
+    *
+    * @param   eventName
+    *          The name of the event.
+    *
+    * @return  the name of the internal procedure associated with specified event.
+    */
+   @Override
+   public character getCallbackProcName(String eventName)
+   {
+      UnimplementedFeature.missing("GET-CALLBACK-PROC-NAME(String event)");
+      return new character();
+   }
+   
+   /**
+    * Applies a callback procedure, which allows execution of a defined event without duplicating
+    * the event procedure definition.
+    *
+    * @param   eventName
+    *          The event whose callback will be called.
+    *
+    * @return  {@code true} if operation is successful.
+    */
+   @Override
+   public logical applyCallback(String eventName)
+   {
+      UnimplementedFeature.missing("APPLY-CALLBACK(String event)");
+      return new logical();
+   }
+   
    /**
     * Perform actual delete of this procedure, by calling {@link ProcedureManager#delete(Object, boolean)}.
     * This will trigger a referent clear which won't happen necessarily now - it can be deferred

=== modified file 'src/com/goldencode/p2j/util/FWDDataObject.java'
--- src/com/goldencode/p2j/util/FWDDataObject.java	2020-06-30 20:42:03 +0000
+++ src/com/goldencode/p2j/util/FWDDataObject.java	2021-01-13 21:04:41 +0000
@@ -2,10 +2,11 @@
 ** Module   : FWDDataObject.java
 ** Abstract : A proxy to be able to track changes in a DataObject instance.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20191119 Created initial version.
+** 002 OM  20201231 Added support for REJECTED attribute.
 */
 
 /*
@@ -94,7 +95,7 @@
    /** The error-string, as used by {@link TempRecord#_errorString()}. */
    private String errorString;
    
-   /** The error-flag, as used by {@link TempRecord#_errorFlag()}. */
+   /** The error-flag, as used by {@link TempRecord#_errorFlags()}. */
    private Integer errorFlag;
    
    /** Flag indicating if changes are being tracked. */
@@ -301,7 +302,7 @@
     * @see     Buffer#__ERROR_FLAG__
     */
    @Override
-   public Integer _errorFlag()
+   public Integer _errorFlags()
    {
       return errorFlag;
    }
@@ -315,7 +316,7 @@
     * @see     Buffer#__ERROR_FLAG__
     */
    @Override
-   public void _errorFlag(Integer flag)
+   public void _errorFlags(Integer flag)
    {
       this.errorFlag = flag;
    }

=== modified file 'src/com/goldencode/p2j/util/FileStream.java'
--- src/com/goldencode/p2j/util/FileStream.java	2020-01-20 11:21:22 +0000
+++ src/com/goldencode/p2j/util/FileStream.java	2020-12-20 17:05:05 +0000
@@ -38,6 +38,7 @@
 ** 020 EVL 20180620          Adding pulse on close for empty frames.
 ** 021 CA  20190905          Allow byte buffer instead of memory buffers for read-only files.
 ** 022 CA  20200116          Javadoc fixes.
+** 023 IAS 20201219          Added codepage change at runtime. Javadoc fixes.
 */
 
 /*
@@ -120,7 +121,7 @@
    private static final String override = Utils.getCharsetOverride();
    
    /** Optimized character set conversion helper. */
-   private static final CharsetConverter cc = new CharsetConverter(override);
+   private CharsetConverter cc = new CharsetConverter(override);
    
    /**
     * Flag indicating if this is a memory-mapped stream.  Can be set only by sub-classes.
@@ -186,6 +187,24 @@
    }
    
    /**
+    * Get character set conversion helper.
+    * @return character set conversion helper.
+    */
+   public CharsetConverter getCc()
+   {
+      return cc;
+   }
+
+   /**
+    * Set character set conversion helper.
+    * @param cc character set conversion helper.
+    */
+   public void setCc(CharsetConverter cc)
+   {
+      this.cc = cc;
+   }
+
+   /**
     * Constructs an instance using a filename, this file or device will be
     * opened for reading or writing based on the given <code>write</code>
     * flag.  The current read/write position will be at offset 0 unless in
@@ -227,6 +246,7 @@
          String mode   = (write ? "rw" : "r");
          
          // create a traditional file system resource with the proper mode
+         @SuppressWarnings("resource")
          RandomAccessFile raf = new RandomAccessFile(target, mode);
          
          // obtain the backing channel (we no longer need access to the raf)
@@ -297,6 +317,7 @@
     * The number of bytes available to be immediately read without blocking.
     *
     * @return   The number of available bytes.
+    * @throws IOException 
     */
    public long available()
    throws IOException
@@ -333,6 +354,7 @@
     * occur.
     *
     * @return   The current position in the stream.
+    * @throws IOException 
     */
    public long getPos()
    throws IOException
@@ -358,6 +380,7 @@
     *
     * @param    pos
     *           The new read/write position in the stream.
+    * @throws IOException 
     */
    public void setPos(long pos)
    throws IOException
@@ -419,6 +442,7 @@
     * The length of the stream in bytes.
     *
     * @return   The length of the stream.
+    * @throws IOException 
     */
    public long getLen()
    throws IOException
@@ -438,6 +462,7 @@
     *
     * @param    len
     *           The new length of the file.
+    * @throws IOException 
     */
    public void setLen(long len)
    throws IOException
@@ -494,6 +519,7 @@
     *
     * @param    ch
     *           The character to be written.
+    * @throws IOException 
     */
    public void writeCh(char ch)
    throws IOException
@@ -516,6 +542,7 @@
     *
     * @param    b
     *           The byte to be written.
+    * @throws IOException 
     */
    public void writeByte(byte b)
    throws IOException
@@ -529,6 +556,7 @@
     *
     * @param    data
     *           The data to be written.
+    * @throws IOException 
     */
    public void write(String data)
    throws IOException
@@ -662,6 +690,9 @@
     * <code>EOF</code> character are not returned.
     *
     * @return   The next line read from the stream.
+    * @throws EOFException 
+    * @throws IOException 
+    * @throws InterruptedException 
     */
    public String readLn()
    throws EOFException,
@@ -748,6 +779,7 @@
     *
     * @param    stream
     *           The new internal stream reference to use for all operations.
+    * @throws UnsupportedOperationException 
     */
    public void assign(Stream stream)
    throws UnsupportedOperationException

=== modified file 'src/com/goldencode/p2j/util/FileSystemOps.java'
--- src/com/goldencode/p2j/util/FileSystemOps.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/util/FileSystemOps.java	2021-01-13 21:04:41 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2005-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ----------------------------Description-----------------------------
+** -#- -I- --Date-- --JPRM-- -----------------------------------Description-----------------------------------
 ** 001 GES 20050706   @21665 Created initial version, supporting common
 **                           language statements and built-in functions
 **                           for manipulating and querying the file
@@ -71,6 +71,10 @@
 **                           on the capabilities FWD supports with respect to library and member.
 **                           Also moved new private static method to the correct location.
 ** 032 RFB 20200627          Cleaned up a Javadoc error in procLibraryParser.
+**     EVL 20201111          Adding ability to log missed path entries and bypass client side search for ones
+**                           that included in ignore list.  Used HashSet instead of ArrayList to speed up
+**                           string search.
+**     OM  20201203          Fixed handling of READ/ONLY attributes.
 */
 
 /*
@@ -135,6 +139,7 @@
 import java.io.*;
 
 import com.goldencode.p2j.classloader.*;
+import com.goldencode.p2j.directory.*;
 import com.goldencode.p2j.main.*;
 import com.goldencode.p2j.net.*;
 import com.goldencode.p2j.security.ContextLocal;
@@ -297,8 +302,7 @@
    }
    
    /**
-    * API needed to implement read-only attribute assignment (a 4GL 
-    * "feature").
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
     * 
     * @param    attribute
     *           The attribute's name.
@@ -311,6 +315,21 @@
    }
    
    /**
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
+    * 
+    * @param    attribute
+    *           The attribute's name.
+    * @param    expr
+    *           The value which is attempted to be assigned to the read-only attribute. 
+    *
+    * @see      handle#readOnlyError(handle, String, Object)
+    */
+   public static void readOnlyError(String attribute, Object expr)
+   {
+      handle.readOnlyError(asHandle(), attribute);
+   }
+   
+   /**
     * Get the error code of the last operating system operation.
     *
     * @return   The Progress-compatible error code.
@@ -1154,11 +1173,25 @@
          // this is a program name, return the Java class name instead
          return new character(resolveLegacyPath(legacy));
       }
+
+      WorkArea wa = work.obtain();
+      
+      // avoid expensive client/jar files search for missing procedure names
+      if (wa.ignoreClientSearch.size() > 0 && wa.ignoreClientSearch.contains(filename))
+      {
+         return new character();
+      }
       
       // check resource jar files first, before checking remote file system
       JarResource jarRes = searchResourceJars(filename, null);
       
-      String result = (jarRes != null ? jarRes.getName() : work.obtain().fs.searchPath(filename));
+      String result = (jarRes != null ? jarRes.getName() : wa.fs.searchPath(filename));
+      
+      // the path entry was not found even on client side so if logging enabled, append new entry
+      if (result == null && wa.captureMissedFiles)
+      {
+         appendMissedPathEntry(filename);
+      }
       
       return (result == null ? new character() : new character(result));
    }
@@ -1590,6 +1623,44 @@
    }
 
    /**
+    * Appends yet another missed path entry to the log file.  The path entry is missed on even client side
+    * search so it is a good candidate to include into bypass list.
+    * 
+    * @param   pathName
+    *          Path name entry missed in client side search.
+    */
+   private static void appendMissedPathEntry(String pathName)
+   {
+      // this will be in deploy/server directory
+      File inpFile = new File("./client_search_ignore.log");
+      PrintWriter log = null;
+      try
+      {
+         // open log file for appending another missed path entry
+         log = new PrintWriter(new BufferedWriter(new FileWriter(inpFile, true)));
+         log.println(pathName);
+      }
+      catch (Exception ex)
+      {
+         // in case of exception here assume there is no ignore list file 
+      }
+      finally
+      {
+         try
+         {
+            if (log != null)
+            {
+               log.close();
+            }
+         }
+         catch (Exception ex)
+         {
+            // something seriously wrong happening but we ignore this
+         }
+      }
+   }
+   
+   /**
     * Object returned by a search for a resource in a jar file.
     */
    public static class JarResource
@@ -1663,6 +1734,12 @@
       
       /** The client property key interceptors */
       private Map<String, Function<String, String>> keysInterceptors;
+      
+      /** The list of missed files to bypass client side search. */
+      private Set<String> ignoreClientSearch;
+      
+      /** When TRUE we log missed files into separate log file. */
+      private boolean captureMissedFiles;
    }
    
    /**
@@ -1761,6 +1838,14 @@
          wa.keysInterceptors.put("USER", usernameInterceptor);
          wa.keysInterceptors.put("USERNAME", usernameInterceptor);
          
+         // prepare per session ignore file list
+         Directory dir = DirectoryManager.getInstance();
+         wa.ignoreClientSearch = new HashSet<String>(dir.getStrings(Directory.ID_RELATIVE,
+                                                                    "no_client_path_search"));
+         // missed files capturing flag
+         wa.captureMissedFiles = dir.getBoolean(Directory.ID_RELATIVE, "capture_missing_search_path_entries",
+                                                false);
+         
          return wa;
       }
    }

=== modified file 'src/com/goldencode/p2j/util/HandleChain.java'
--- src/com/goldencode/p2j/util/HandleChain.java	2020-01-20 11:21:22 +0000
+++ src/com/goldencode/p2j/util/HandleChain.java	2020-12-05 02:01:57 +0000
@@ -3,9 +3,9 @@
 ** Abstract : An abstract class which provides an  implementation for the most
 **            common methods from CommonHandleChain.
 **
-** Copyright (c) 2013-2019, Golden Code Development Corporation.
+** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CS  20130207 Created initial version.
 ** 002 CS  20130215 TYPE attribute must be saved as a string, not character.
 ** 003 CA  20130221 Extracted TYPE, unknown and readOnlyError into a separate superclass.
@@ -44,6 +44,8 @@
 ** 025 ECF 20190807 Fixed NPE regression by allowing unknown to be set as a valid value for NAME
 **                  attribute.
 ** 026 OM  20190721 The name validator is optional. Each subclass can decide if names are checked.
+** 027 OM  20201030 Invalid attribute API support for getters/setters.
+**     OM  20201203 Fixed handling of READ/ONLY attributes.
 */
 
 /*
@@ -376,15 +378,39 @@
    }
    
    /**
-    * Show a specific error, as this read-only <code>attribute</code> was used
-    * on the right-side of an assignment.
-    *  
+    * Show a specific error, as this read-only {@code attribute} was used on the right-side of an assignment.
+    *
     * @param    attribute
     *           The read-only attribute.
+    *
+    * @deprecated Use the overloaded method with multiple arguments.<p>
+    *             This API is deprecated because of two reasons: first, it looses the possible side effect of
+    *             the assigned expression (consider the case when it is a function or method, but not
+    *             exclusively). Secondly, some (if not all) are unknown value sensitive, meaning that, prior
+    *             testing whether this is a writable attribute, P4GL checks first if the expression is 
+    *             unknown and if this value is supported. In this case a different error condition is raised. 
     */
+   @Override
+   @Deprecated
    public void readOnlyError(String attribute)
    {
-      handle.readOnlyError(new handle(this), attribute);
+      handle.readOnlyError(new handle(this), attribute, handle.UNKNOWN_ARGUMENT);
+   }
+   
+   /**
+    * Shows a specific error, as this read-only {@code attribute} was used on the right-side of an assignment.
+    * If the {@code expr} is evaluated to {@code ?} (unknown value) and this attribute does not support it,
+    * a specific error is raised.
+    *
+    * @param    attribute
+    *           The read-only attribute.
+    * @param    expr
+    *           The expression whose value was attempted to be assigned to READ-ONLY attribute.
+    */
+   @Override
+   public void readOnlyError(String attribute, Object expr)
+   {
+      handle.readOnlyError(new handle(this), attribute, expr);
    }
    
    /**
@@ -484,7 +510,7 @@
    {
       if (!hasName())
       {
-         invalidAttribute("NAME");
+         invalidAttribute("NAME", false);
          
          return new character();
       }
@@ -608,7 +634,7 @@
    {
       if (!hasNextSibling())
       {
-         invalidAttribute("NEXT-SIBLING");
+         invalidAttribute("NEXT-SIBLING", false);
          
          return new handle();
       }
@@ -687,7 +713,7 @@
    {
       if (!hasPrevSibling())
       {
-         invalidAttribute("PREV-SIBLING");
+         invalidAttribute("PREV-SIBLING", false);
          
          return new handle();
       }
@@ -752,7 +778,7 @@
    {
       if (!hasPrivateData())
       {
-         invalidAttribute("PRIVATE-DATA");
+         invalidAttribute("PRIVATE-DATA", false);
          
          return new character();
       }

=== modified file 'src/com/goldencode/p2j/util/HandleCommon.java'
--- src/com/goldencode/p2j/util/HandleCommon.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/util/HandleCommon.java	2021-01-13 21:04:41 +0000
@@ -31,8 +31,7 @@
 ** 019 CA  20150416 Added CommonHandleTree.
 ** 020 IAS 20150604 Added ReplaceInterface and SelectableText.
 ** 021 SVL 20150804 Added Down and Multiple.
-** 022 IAS 20150805 Added DeblankInterface, BlankInterface, PasswordFieldInterface 
-**                  and IndexedInterface.
+** 022 IAS 20150805 Added DeblankInterface, BlankInterface, PasswordFieldInterface and IndexedInterface.
 ** 023 VIG 20150818 Added MenuItemInterface.
 ** 024 EVL 20150825 Adding SelectionListInterface class.
 ** 025 EVL 20150911 Adding OrientationInterface and SliderInterface.
@@ -72,6 +71,8 @@
 ** 053 CA  20200304 Added Signature interface.
 ** 054 GES 20200220 Added TitledElement.
 ** 055 GES 20200627 Renamed Coordinates interface to be more generic.
+**     SVL 20201221 Added MinHeightCharsInterface.
+**     OM  20201118 Added new interfaces.
 */
 
 /*
@@ -179,6 +180,7 @@
         Connectable,
         ConnectableServer,
         Coordinates,
+        DataSourceModifiable,
         DataRelationInterface,
         DataSetInterface,
         DataSourceInterface,
@@ -204,6 +206,7 @@
         MaxCharsElement,
         MenuInterface,
         MenuItemInterface,
+        MinHeightCharsInterface,
         Multiple,
         NamedSerializable,
         NumItems,
@@ -227,6 +230,7 @@
         SelectableText,
         SelectionListInterface,
         Sensitive,
+        SerializeHiddenable,
         Server,
         SliderInterface,
         SOAPEntity,

=== modified file 'src/com/goldencode/p2j/util/HandleOps.java'
--- src/com/goldencode/p2j/util/HandleOps.java	2020-09-18 08:21:59 +0000
+++ src/com/goldencode/p2j/util/HandleOps.java	2021-01-15 20:55:46 +0000
@@ -40,6 +40,7 @@
 **                  built in legacy function.
 ** 022 AIL 20200623 Added support for resources which can be deleted multiple times.
 **     CA  20200918 Optimized the performance for CAN-SET() and CAN-QUERY() legacy functions.
+**     VVT 20210115 Bugs fixed for canQuery and canSet. See the #5064 for discussion.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -99,6 +100,8 @@
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.ui.*;
 import com.goldencode.proxy.*;
+import com.google.common.collect.*;
+
 import java.util.*;
 import java.util.concurrent.*;
 import java.util.function.*;
@@ -107,6 +110,8 @@
 import java.lang.annotation.*;
 import java.lang.reflect.*;
 
+import com.google.common.collect.Iterables;
+
 /**
  * Provides implementation for these handle-specific operations: 
  * <ul>
@@ -144,19 +149,21 @@
    /** Mapping of the 4GL method to their Java method names. */
    private static final Map<String, String> METHODS_TO_JAVA = new ConcurrentHashMap<>();
    
-   /** Cache of {@link Annotation} for a Java method associated with a legacy attribute/method. */
-   private static final Map<AttributeLookupKey, Annotation> LEGACY_ANNOTATION_BY_METHOD = new ConcurrentHashMap<>();
-   
-   /** A constant identifying a null value in the {@link #LEGACY_ANNOTATION_BY_METHOD} map. */
-   private static final Annotation NULL_ANNOTATION = new Annotation()
-   {
-      @Override
-      public Class<? extends Annotation> annotationType()
-      {
-         return null;
-      }
-   };
-   
+   /**
+    * A map holding the set of all gettable attribute names, per each resource class.
+    */
+   private static final Map<String, Set<String>> LEGACY_GETTERS = new HashMap<>();
+
+   /**
+    * A map holding the set of all settable attribute names, per each resource class.
+    */
+   private static final Map<String, Set<String>> LEGACY_SETTERS = new HashMap<>();
+
+   /**
+    * A map holding the set of all method names, per each resource class.
+    */
+   private static final Map<String, Set<String>> LEGACY_METHODS = new HashMap<>();
+
    /**
     * Check if the given resource represents a system handle.  The procedure system handles 
     * (THIS-PROCEDURE, SOURCE-PROCEDURE, TARGET-PROCEDURE) and the window system handles 
@@ -201,13 +208,19 @@
       
       Function<Method, String> legacy = (m ->
       {
-         LegacyAttribute la = m.getAnnotation(LegacyAttribute.class);
-         LegacyMethod lm = m.getAnnotation(LegacyMethod.class);
-         
          // legacy attribute setter methods are not excluded here, as this API is used as a 
          // helper to populate the cache (attribute to java method) method/getter/setter maps.
          // note that the attribute name will not be reported twice.
-         return (la != null && !la.ignore() ? la.name() : lm != null ? lm.name() : null);
+         
+         final LegacyAttribute la = m.getAnnotation(LegacyAttribute.class);
+         if (la != null && !la.ignore())
+         {
+            return la.name();
+         }
+         
+         final LegacyMethod lm = m.getAnnotation(LegacyMethod.class);
+         
+         return lm != null && !lm.ignore() ? lm.name() : null;
       });
       
       qryAttrs = listLegacyResource(res, legacy, true);
@@ -432,7 +445,7 @@
    {
       if (attr == null || attr.isUnknown())
       {
-         return new logical();
+         return new logical(false);
       }
       
       return canQuery(h, attr.toStringMessage());
@@ -445,45 +458,43 @@
     * 
     * @param    h
     *           The handle to be tested.
-    * @param    attr
-    *           The name of the attribute to be checked.
+    * @param    attributeOrMethodName
+    *           The name of the attribute or method to be checked.
     *
     * @return   <code>true</code> if the resource in this handle supports reading the named
     *           attribute or method, <code>false</code> if the resource is valid but doesn't 
     *           support the named attribute and <code>unknown</code> if either input is 
     *           <code>unknown</code>. 
     */
-   public static logical canQuery(handle h, String attr)
+   public static logical canQuery(final handle h, final String attributeOrMethodName)
    {
       if (h == null || h.isUnknown())
       {
          return new logical();
       }
-      
-      LegacyAttribute legacyAttr = getLegacyAnnotation(h, attr, false, LegacyAttribute.class);
-      
-      if (isHandleAttribute(attr) || (legacyAttr != null && !legacyAttr.ignore() && legacyAttr.canQuery()))
-      {
-         Object res = h.getResource();
-         if (res instanceof HandleChain && invalidChainAttribute((HandleChain) res, attr, true))
-         {
-            return new logical(false);
-         }
-
+
+      final Object res = h.get();
+      if (res == null)
+      {
+         return new logical(false);
+      }
+
+      final String upcased = attributeOrMethodName.toUpperCase();
+
+      if (isHandleAttribute(upcased))
+      {
          return new logical(true);
       }
 
-      if (legacyAttr == null)
+      if (res instanceof HandleChain && invalidChainAttribute((HandleChain) res, upcased, true))
       {
-         LegacyMethod legacyMethod = getLegacyAnnotation(h, attr, false, LegacyMethod.class);
-         
-         if (legacyMethod != null)
-         {
-            return new logical(true);
-         }
+         return new logical(false);
       }
 
-      return new logical(false);
+      return new logical(isLegacyResourceOperationAllowed(res, upcased, LEGACY_GETTERS, m -> {
+         final LegacyAttribute annotation = m.getAnnotation(LegacyAttribute.class);
+         return annotation != null && annotation.setter() ? null : annotation;
+      }) || isLegacyResourceOperationAllowed(res, upcased, LEGACY_METHODS, m -> m.getAnnotation(LegacyMethod.class)));
    }
    
    /**
@@ -505,7 +516,7 @@
    {
       if (attr == null || attr.isUnknown())
       {
-         return new logical();
+         return new logical(false);
       }
       
       return canSet(h, attr.toStringMessage());
@@ -518,7 +529,7 @@
     * 
     * @param    h
     *           The handle to be tested.
-    * @param    attr
+    * @param    name
     *           The name of the attribute to be checked.
     *
     * @return   <code>true</code> if the resource in this handle supports writing the named
@@ -526,29 +537,30 @@
     *           the named attribute and <code>unknown</code> if either input is 
     *           <code>unknown</code>. 
     */
-   public static logical canSet(handle h, String attr)
+   public static logical canSet(final handle h, final String attributeName)
    {
       if (h == null || h.isUnknown())
       {
          return new logical();
       }
-      
-      attr = attr.toUpperCase();
-      
-      LegacyAttribute legacyAnnotation = getLegacyAnnotation(h, attr, true, LegacyAttribute.class);
-      
-      if (!isHandleAttribute(attr) && (legacyAnnotation != null && !legacyAnnotation.ignore()))
-      {
-         Object res = h.getResource();
-         if (res instanceof HandleChain && invalidChainAttribute((HandleChain) res, attr, false))
-         {
-            return new logical(false);
-         }
-
-         return new logical(true);
-      } 
-
-      return new logical(false);
+
+      final String attributeUpcased = attributeName.toUpperCase();
+      if (isHandleAttribute(attributeUpcased))
+      {
+         return new logical(false);
+      }
+
+      final Object res = h.get();
+      if (res instanceof HandleChain
+               && invalidChainAttribute((HandleChain) res, attributeUpcased, false))
+      {
+         return new logical(false);
+      }
+
+      return new logical(isLegacyResourceOperationAllowed(res, attributeUpcased, LEGACY_SETTERS, m -> {
+         final LegacyAttribute annotation = m.getAnnotation(LegacyAttribute.class);
+         return annotation != null && annotation.setter() ? annotation : null;
+      }));
    }
    
    /**
@@ -569,10 +581,10 @@
     */
    static String findLegacy(handle h, String attrOrMethod, boolean attr, boolean setter)
    {
-      attrOrMethod = attrOrMethod.toUpperCase();
+      String upcased = attrOrMethod.toUpperCase();
       Map<String, String> jnames = attr ? (setter ? SETTERS_TO_JAVA : GETTERS_TO_JAVA) 
                                         : METHODS_TO_JAVA;
-      String mthd = jnames.get(attrOrMethod);
+      String mthd = jnames.get(upcased);
       
       if (mthd == null)
       {
@@ -584,7 +596,7 @@
             listQueryAttributes(h);
          }
          
-         mthd = jnames.get(attrOrMethod);
+         mthd = jnames.get(upcased);
          
          // if is null here, it can't be found
       }
@@ -593,258 +605,6 @@
    }
 
    /**
-    * Obtains the legacy attribute or method annotation instance for the given method and given
-    * legacy attribute (or method) name.
-    * 
-    * @param    obj
-    *           The instance for which the check is performed.
-    * @param    meth_check
-    *           The method to be tested.
-    * @param    attrOrMeth
-    *           The name of the legacy attribute or method to be checked.
-    * @param    setter
-    *           The flag indicating if we need to find the setter or getter annotation.
-    * @param    anno
-    *           The type of annotation to look for.
-    *           
-    * @return   The instance of the legacy attribute annotation if it exists for the given class
-    *           or null if not found. 
-    */
-   private static <T extends Annotation> T getLegacyAnnotationInMethod(Object   obj,
-                                                                       Method   meth_check,
-                                                                       String   attrOrMeth,
-                                                                       boolean  setter,
-                                                                       Class<T> anno)
-   {
-      T legacy = meth_check.getAnnotation(anno);
-      
-      if (legacy instanceof LegacyAttribute)
-      {
-         LegacyAttribute lattr = (LegacyAttribute) legacy;
-
-         // cache it always
-         AttributeLookupKey key = new AttributeLookupKey(obj.getClass(), lattr.name(), lattr.setter(), anno);
-         LEGACY_ANNOTATION_BY_METHOD.put(key, legacy);
-
-         // Check annotation for name match(ignoring letter case)
-         if (lattr.name().equalsIgnoreCase(attrOrMeth) && setter == lattr.setter())
-         {
-            return legacy;
-         }
-      }
-      else if (legacy instanceof LegacyMethod)
-      {
-         LegacyMethod lmeth = (LegacyMethod) legacy;
-
-         // cache it always
-         AttributeLookupKey key = new AttributeLookupKey(obj.getClass(), lmeth.name(), setter, anno);
-         LEGACY_ANNOTATION_BY_METHOD.put(key, legacy);
-
-         // Check annotation for name match(ignoring letter case)
-         if (lmeth.name().equalsIgnoreCase(attrOrMeth))
-         {
-            return legacy;
-         }
-      }
-      
-      return null;
-   }
-   
-   /**
-    * Obtains the legacy attribute or method annotation instance for the given implementation or 
-    * interface class object and given legacy attribute or method name.
-    * 
-    * @param    obj
-    *           The instance for which the check is performed.
-    * @param    class_check
-    *           The interface or implementation class object to be tested.
-    * @param    attr
-    *           The name of the legacy attribute to be checked.
-    * @param    setter
-    *           The flag indicating if we need to find the setter or getter annotation.
-    * @param    anno
-    *           The type of annotation to look for.
-    *
-    * @return   The instance of the legacy attribute annotation if it exists for the given class
-    *           or null if not found. 
-    */
-   private static <T extends Annotation> T getLegacyAnnotationInClass(Object   obj,
-                                                                      Class<?> class_check,
-                                                                      String   attr,
-                                                                      boolean  setter,
-                                                                      Class<T> anno)
-   {
-      // For each interface implementation get the methods and check each one
-      Method[] methods = class_check.getMethods();
-      if (methods != null)
-      {
-         for (Method method : methods)
-         {
-            // Check every method for match
-            T legacy = getLegacyAnnotationInMethod(obj, method, attr, setter, anno);
-            // Check if we found acceptable annotation
-            if (legacy != null)
-            {
-               return legacy;
-            }
-         }
-      }
-      
-      return null;
-   }
-   
-   /**
-    * Obtains the legacy attribute annotation instance for the given static class object and
-    * given legacy attribute name.
-    * 
-    * @param    obj_check
-    *           The class object to be tested.
-    * @param    attr
-    *           The name of the legacy attribute to be checked.
-    * @param    setter
-    *           The flag indicating if we need to find the setter or getter annotation.
-    * @param    anno
-    *           The type of annotation to look for.
-    *
-    * @return   The instance of the legacy attribute annotation if it exists for the given class
-    *           or null if not found. 
-    */
-   private static <T extends Annotation> T getLegacyAnnotationInStatic(Object obj_check,
-                                                                       String attr,
-                                                                       boolean setter,
-                                                                       Class<T> anno)
-   {
-      // For each interface implementation get the methods and check each one
-      List<Method> staticMethods = StaticProxy.getStaticMethods(obj_check);
-      if (staticMethods != null)
-      {
-         for (Method method : staticMethods)
-         {
-            // Check every method for match
-            T legacy = getLegacyAnnotationInMethod(obj_check, method, attr, setter, anno);
-            // Check if we found acceptable annotation
-            if (legacy != null)
-            {
-               return legacy;
-            }
-         }
-      }
-      
-      return null;
-   }
-   
-   /**
-    * Obtains the legacy attribute annotation instance for the given handle object and given
-    * legacy attribute name.
-    * <p>
-    * The search algorithm for this method uses reflection to read annotations from various
-    * sources in the following precedence order:
-    * <ol>
-    *   <li> The proxy static methods of the resource itself if exist.
-    *   <li> The class of the resource itself.
-    *   <li> The superclass of the resource or the superclass of the superclass... the entire
-    *        parent hierarchy is walked from the resource to the root.  The first match found ends
-    *        the upward search.
-    *   <li> All interfaces of the resource itself.
-    *   <li> All interfaces of the superclass of the resource or the superclass of the
-    *        superclass... the entire parent hierarchy is walked from the resource to the root.
-    *        The first superclass with an interface that has a matching attribute will end the
-    *        upward search.
-    * </ol>
-    * <p>
-    * Where possible, we put annotations on the interface, not the class for the resource.  But
-    * there are some attributes where the configuration is not universal for all resources
-    * implementing the same attribute.  For example, the following attributes are readable for
-    * certain resources even though for most other resources the same attribute is writable:
-    * <ul>
-    *   <li> LABEL for LAST-EVENT
-    *   <li> MODIFIED for browse columns
-    *   <li> COLUMN for browse cells, field groups, and LAST-EVENT
-    *   <li> NO-VALIDATE for both static and dynamic browses (it is writeable only for dynamic
-    *        browses)
-    * </ul>
-    * <p>
-    * Keeping the above precedence order is critical to allow attribute configurations of
-    * more-specific resources to properly override the more general configuration in the parent
-    * hierarchy or the interface hierarchy.
-    * 
-    * @param    h
-    *           The handle object to be tested.
-    * @param    attr
-    *           The name of the legacy attribute to be checked.
-    * @param    setter
-    *           The flag indicating if we need to find the setter or getter annotation.
-    * @param    anno
-    *           The type of annotation to look for.
-    *
-    * @return   The instance of the legacy attribute annotation if it exists for the given handle
-    *           or null if not found. 
-    */
-   private static <T extends Annotation> T getLegacyAnnotation(handle   h, 
-                                                               String   attr,
-                                                               boolean  setter,
-                                                               Class<T> anno)
-   {
-      T legacyAnnotationRes = null;
-      Object objFromHandle = h.get();
-      
-      if (objFromHandle != null)
-      {
-         AttributeLookupKey key = new AttributeLookupKey(objFromHandle.getClass(), attr, setter, anno);
-         legacyAnnotationRes = (T) LEGACY_ANNOTATION_BY_METHOD.get(key);
-         if (legacyAnnotationRes != null)
-         {
-            return legacyAnnotationRes == NULL_ANNOTATION ? null : legacyAnnotationRes;
-         }
-         
-         // Checking the static proxy first
-         legacyAnnotationRes = getLegacyAnnotationInStatic(objFromHandle, attr, setter, anno);
-         // Found result in static methods
-         if (legacyAnnotationRes != null)
-         {
-            return legacyAnnotationRes;
-         }
-         
-         // Getting the base class
-         Class<?> current_base = objFromHandle.getClass(); 
-         // Getting implementation methods from current class first
-         while (current_base != null && current_base != Object.class)
-         {
-            // For each implementation get the methods and check each one
-            legacyAnnotationRes = getLegacyAnnotationInClass(objFromHandle, current_base, attr, setter, anno);
-            // Found result in implementation
-            if (legacyAnnotationRes != null)
-            {
-               return legacyAnnotationRes;
-            }
-            // If we are here the annotation is not found, try superclass if exists
-            current_base = current_base.getSuperclass(); 
-         }
-
-         // Restore the search from the base class
-         current_base = objFromHandle.getClass();
-         Set<Class<?>> ifaces = new HashSet<>();
-         Utils.collectInterfaces(current_base, ifaces);
-         for (Class<?> iface_curr : ifaces)
-         {
-            // For each interface implementation get the methods and check each one
-            legacyAnnotationRes = getLegacyAnnotationInClass(objFromHandle, iface_curr, attr, setter, anno);
-            // Found result in implementation
-            if (legacyAnnotationRes != null)
-            {
-               return legacyAnnotationRes;
-            }
-         }
-         
-         // if we reached this step, cache the 'null annotation', as for this specific key, there is no
-         // legacy attribute/method associated with it.
-         LEGACY_ANNOTATION_BY_METHOD.put(key, NULL_ANNOTATION);
-      }
-      
-      return null;
-   }
-   
-   /**
     * Checks if the given attribute name is HANDLE.  This is used to bypass reflection based code
     * to find out if the attribute can be set or queried.  We know this is read-only and always
     * exists for valid handle we use in CAN-SET and CAN-QUERY calls.
@@ -1043,89 +803,226 @@
     */
    private static boolean invalidChainAttribute(HandleChain chain, String name, boolean query)
    {
-      return ((name.equals("PREV-SIBLING") && !chain.hasPrevSibling())           ||
-              (name.equals("NEXT-SIBLING") && !chain.hasNextSibling())           ||
-              (name.equals("PRIVATE-DATA") && !chain.hasPrivateData())           ||
-              (name.equals("NAME")         && !query && (!chain.hasName() || chain.hasNameReadOnly())) ||
-              (name.equals("NAME")         && query  && !chain.hasName()));
-   }
-   
-   /**
-    * Defines a key to lookup a legacy attribute/method in the {@link HandleOps#LEGACY_ANNOTATION_BY_METHOD}
-    * cache.
-    */
-   private static class AttributeLookupKey
-   {
-      /** The precomputed hashcode. */
-      private final int hashCode;
-      
-      /** The target class. */
-      private final Class<?> cls;
-      
-      /** The legacy attribute/method name. */
-      private final String attr;
-      
-      /** Flag indicating if the lookup is for a setter or a getter. */
-      private final boolean setter;
-      
-      /** The Java annotation to look for at the method. */
-      private final Class<?> anno;
-      
-      /**
-       * Create a new instance.
-       * 
-       * @param    cls
-       *           The target class.
-       * @param    attr
-       *           The legacy attribute/method name.
-       * @param    setter
-       *           Flag indicating if the lookup is for a setter or a getter.
-       * @param    anno
-       *           The Java annotation to look for at the method.
-       */
-      public AttributeLookupKey(Class<?> cls, String attr, boolean setter, Class<?> anno)
-      {
-         attr = attr.toUpperCase();
-         
-         this.cls = cls;
-         this.attr = attr;
-         this.setter = setter;
-         this.anno = anno;
-         
-         int result = 17;
-         result = 37 * result + cls.hashCode();
-         result = 37 * result + attr.hashCode();
-         result = 37 * result + (setter ? Boolean.TRUE.hashCode() : Boolean.FALSE.hashCode());
-         result = 37 * result + anno.hashCode();
-         this.hashCode = result;
-      }
-      
-      /**
-       * Get the {@link #hashCode}.
-       * 
-       * @return   See above.
-       */
-      @Override
-      public int hashCode()
-      {
-         return hashCode;
-      }
-      
-      /**
-       * Check if the passed object is the same as this one (all fields must match).
-       * 
-       * @return    See above.
-       */
-      @Override
-      public boolean equals(Object obj)
-      {
-         if (!(obj instanceof AttributeLookupKey))
-         {
+      switch (name)
+      {
+         case "PREV-SIBLING":
+            return !chain.hasPrevSibling();
+         case "NEXT-SIBLING":
+            return !chain.hasNextSibling();
+         case "PRIVATE-DATA":
+            return !chain.hasPrivateData();
+         case "NAME":
+            return !chain.hasName() || (!query && chain.hasNameReadOnly());
+         default:
             return false;
-         }
-         
-         AttributeLookupKey ref = (AttributeLookupKey) obj;
-         return cls == ref.cls && attr.equals(ref.attr) && setter == ref.setter && anno == ref.anno;
-      }
-   }
+      }
+   }
+   
+   /**
+    * Get the set of operations of given type allowed for a class instances.
+    * 
+    * Note: since this method is only called from a synchronized section
+    * already, there is no point bother of synchronization in this method.
+    * 
+    * @param fromClass
+    *        the class or interface in question
+    * @param table
+    *        
+    * @param resolver
+    *        a function which takes a method as the only arguments and
+    *        returns a method annotation, matching some condiotions,
+    *        or {@code null} if no method annotation matches.
+    * 
+    * @return the set of operation names for the given method arguments
+    */
+   private static final Set<String> legacyResourceAllowedOperations(
+            final Class<?>                     fromClass,
+            final Map<String, Set<String>>     table,
+            final Function<Method, Annotation> resolver)
+   {
+      final String className = fromClass.getName();
+
+      Set<String> annotations = table.get(className);
+      if (annotations != null)
+      {
+         return annotations;
+      }
+
+      annotations = new HashSet<>();
+
+      /**
+       * Collect data from all interfaces and the superclass,
+       * we are not expecting the name intersections. 
+       */
+      for (Class<?> iface : fromClass.getInterfaces())
+      {
+         annotations.addAll(legacyResourceAllowedOperations(iface, table, resolver));
+      }
+
+      final Class<?> superClass = fromClass.getSuperclass();
+      if (superClass != null && superClass != Object.class)
+      {
+         annotations.addAll(legacyResourceAllowedOperations(superClass, table, resolver));
+      }
+
+      legacyResourceAllowedUpdateFromMethods(Arrays.asList(fromClass.getDeclaredMethods()), annotations,
+               resolver);
+
+      if (annotations.isEmpty())
+      {
+         annotations = Collections.EMPTY_SET;
+      }
+
+      table.put(className, annotations);
+
+      return annotations;
+   }
+   
+   /**
+    * Test if a legacy operation is allowed for a given resource based on method annotations.
+    * <p>
+    * Obtain the legacy attribute annotation instance for the given handle object and given
+    * legacy attribute name.
+    * <p>
+    * The search algorithm for this method uses reflection to read annotations from various
+    * sources in the following precedence order:
+    * <ol>
+    *   <li> The proxy static methods of the resource itself if exist.
+    *   <li> The class of the resource itself.
+    *   <li> The superclass of the resource or.
+    *   <li> All interfaces of the resource.
+    * </ol>
+    * <p>
+    * The search is repeated recursively for the superclass and interfaces.
+    * <p>
+    * Where possible, we put annotations on the interface, not the class for the resource.  But
+    * there are some attributes where the configuration is not universal for all resources
+    * implementing the same attribute.  For example, the following attributes are readable for
+    * certain resources even though for most other resources the same attribute is writable:
+    * <ul>
+    *   <li> LABEL for LAST-EVENT
+    *   <li> MODIFIED for browse columns
+    *   <li> COLUMN for browse cells, field groups, and LAST-EVENT
+    *   <li> NO-VALIDATE for both static and dynamic browses (it is writeable only for dynamic
+    *        browses)
+    * </ul>
+    * <p>
+    * Keeping the above precedence order is critical to allow attribute configurations of
+    * more-specific resources to properly override the more general configuration in the parent
+    * hierarchy or the interface hierarchy.
+    *
+    * @param resource
+    *        the resource jbject to test
+    * @param key
+    *        the operation name, must be in upper case
+    * @param table
+    *        the map holding sets of allowed operations for an operation type, this map
+    *        is updated lazily in this call
+    * @param resolver
+    *        a function which takes a method as the only arguments and
+    *        returns a method annotation, matching some condiotions,
+    *        or {@code null} if no method annotation matches.
+    * 
+    * @return
+    */
+   private static boolean isLegacyResourceOperationAllowed(
+            final Object                       resource,
+            final String                       key,
+            final Map<String, Set<String>>     table,
+            final Function<Method, Annotation> resolver)
+   {
+      final boolean resourceIsProxy = StaticProxy.isStaticProxy(resource);
+      final Class<?> klass = resource.getClass();
+
+      /**
+       * FIXME: may be, there is a better way to get an object identity string for a
+       * static proxy?
+       */
+      final String tableKey = resourceIsProxy ? resource.toString() : klass.getName();
+
+      Set<String> allowed = table.get(tableKey);
+      if (allowed == null)
+      {
+         synchronized (table)
+         {
+            if (allowed == null)
+            {
+               if (resourceIsProxy)
+               {
+                  allowed = new HashSet<>();
+                  legacyResourceAllowedUpdateFromMethods(StaticProxy.getStaticMethods(resource), allowed,
+                           resolver);
+                  table.put(tableKey, allowed);
+               }
+               else
+               {
+                  allowed = legacyResourceAllowedOperations(klass, table, resolver);
+               }
+            }
+         }
+      }
+
+      return allowed.contains(key);
+   }
+
+   /**
+    * Update the set of allowed names based on methods annotations.
+    * 
+    * This method scans all methods provided for method annotations of
+    * the given class, and, if found, adds or removes entries in the
+    * provided set.
+    * 
+    * @param methods
+    *        the methods to scan for annotations.
+    * @param allowSet
+    *        the set of allowed names to update
+    * @param resolver
+    *        a function which takes a method as the only arguments and
+    *        returns a method annotation, matching some condiotions,
+    *        or {@code null} if no method annotation matches.
+    */
+   private static void legacyResourceAllowedUpdateFromMethods(
+            final Iterable<Method>             methods,
+            final Set<String>                  allowSet,
+            final Function<Method, Annotation> resolver)
+   {
+      for (Method method : methods)
+      {
+         final Annotation anno = resolver.apply(method);
+         if (anno == null)
+         {
+            continue;
+         }
+
+         /**
+          * Extract name and allow info from the annotation
+          */
+         String name;
+         boolean allow;
+         if(anno instanceof LegacyAttribute)
+         {
+            LegacyAttribute attAnno = (LegacyAttribute) anno;
+            name = attAnno.name();
+            allow = !attAnno.ignore();
+         }
+         else
+         {
+            LegacyMethod methAnno = (LegacyMethod) anno;
+            name = methAnno.name();
+            allow = !methAnno.ignore();
+         }            
+
+         /**
+          * Update the set of allowed operations.
+          */
+         if (allow)
+         {
+            allowSet.add(name);
+         }
+         else
+         {
+            allowSet.remove(name);
+         }
+      }
+   }   
 }

=== modified file 'src/com/goldencode/p2j/util/HandleResource.java'
--- src/com/goldencode/p2j/util/HandleResource.java	2020-01-20 11:21:22 +0000
+++ src/com/goldencode/p2j/util/HandleResource.java	2021-01-13 21:04:41 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20130221 Created initial version.
 ** 002 OM  20130304 Refactored isValid and isUnknown of WrappedResource to valid and unknown.
 ** 003 EVK 20130903 Added method type().
@@ -31,6 +31,10 @@
 ** 015 HC  20200119 Added extension points to allow to externalize widget implementation.
 ** 016 CA  20200110 Implicit static resource deletion must be executed when the instantiating 
 **                  procedure gets deleted.
+** 017 CA  20201011 Track the number of triggers on which this resource is listening on.  On delete, it
+**                  allows to skip unnecessary work if there is no trigger for this resource.
+**     OM  20201030 Invalid attribute API support for getters/setters.
+**     OM  20201203 Fixed handling of READ/ONLY attributes.
 */
 
 /*
@@ -146,6 +150,9 @@
     * {@link handle#resourceId}
     */
    private Long id = null;
+
+   /** The number of trigger registration (ever).  It will not reflect trigger deregistration. */
+   private int triggerRegistration;
    
    /**
     * Default c'tor.
@@ -332,18 +339,41 @@
    }
    
    /**
-    * To be used only in cases when a setter for a read-only attribute or a not-supported  
-    * attribute is forced to be implemented by the resource. It displays appropriate error 
-    * message.
-    * 
+    * Show a specific error, as this read-only {@code attribute} was used on the right-side of an assignment.
+    *
     * @param    attr
     *           The read-only attribute.
+    *
+    * @deprecated Use the overloaded method with multiple arguments.<p>
+    *             This API is deprecated because of two reasons: first, it looses the possible side effect of
+    *             the assigned expression (consider the case when it is a function or method, but not
+    *             exclusively). Secondly, some (if not all) are unknown value sensitive, meaning that, prior
+    *             testing whether this is a writable attribute, P4GL checks first if the expression is 
+    *             unknown and if this value is supported. In this case a different error condition is raised. 
     */
+   @Override
+   @Deprecated
    public void readOnlyError(String attr)
    {
-      handle.readOnlyError(new handle(this), attr);
-   }
-
+      handle.readOnlyError(new handle(this), attr, handle.UNKNOWN_ARGUMENT);
+   }
+   
+   /**
+    * Shows a specific error, as this read-only {@code attribute} was used on the right-side of an assignment.
+    * If the {@code expr} is evaluated to {@code ?} (unknown value) and this attribute does not support it,
+    * a specific error is raised.
+    *
+    * @param    attribute
+    *           The read-only attribute.
+    * @param    expr
+    *           The expression whose value was attempted to be assigned to READ-ONLY attribute.
+    */
+   @Override
+   public void readOnlyError(String attribute, Object expr)
+   {
+      handle.readOnlyError(new handle(this), attribute, expr);
+   }
+   
    /**
     * Get the type of this handle as type of String.
     *
@@ -389,6 +419,14 @@
    }
 
    /**
+    * Increment the {@link #triggerRegistration} counter.
+    */
+   public void incrementTrigger()
+   {
+      triggerRegistration++;
+   }
+
+   /**
     * Perform actual delete of an resource. At the time of this call, it is assumed the resource
     * is valid for deletion (the handle and the resource are both valid).
     */
@@ -400,12 +438,18 @@
          ProcedureManager.deregisterResource(this.instProc.get(), this);
       }
 
-      Long resourceId = this.id();
-      int widgetId = (this instanceof CommonWidget ? ((CommonWidget) this).getId() : -1);
-
-      if ((resourceId != null && resourceId != -1) || widgetId != -1)
+      if (triggerRegistration != 0)
       {
-         LogicalTerminal.cleanupTriggers(resourceId, widgetId);
+         Long resourceId = this.id();
+         int widgetId = (this instanceof CommonWidget 
+                           ? ((CommonWidget) this).getId() 
+                           : WidgetId.INVALID_WIDGET_ID);
+
+         if ((resourceId != null && resourceId != ResourceIdHelper.INVALID_RESOURCE) || 
+             widgetId != WidgetId.INVALID_WIDGET_ID)
+         {
+            LogicalTerminal.cleanupTriggers(resourceId, widgetId);
+         }
       }
 
       // remove the instantiating procedure reference, to help out the garbage collector
@@ -426,17 +470,19 @@
    {
       return true;
    }
-
+   
    /**
     * To be used only in cases a getter for a not-supported attribute is forced to be implemented
     * by the resource. It displays appropriate error message.
     * 
-    * @param    attr
-    *           The not-supported attribute attribute.
+    * @param   attr
+    *          The not-supported attribute attribute.
+    * @param   setter
+    *          {@code true} for write access.
     */
-   protected void invalidAttribute(String attr)
+   protected void invalidAttribute(String attr, boolean setter)
    {
-      handle.invalidAttribute(attr, new handle(this));
+      handle.invalidAttribute(attr, setter, getResourceType().toStringMessage());
    }
    
    /**
@@ -491,8 +537,7 @@
     */
    protected void unableToAssignUnknown(String attribute, String widgetType)
    {
-      String msg = "Unable to assign UNKNOWN value to attribute " + attribute + 
-                   " on " + widgetType;
-      ErrorManager.recordOrShowError(4083, msg, true, true);
+      ErrorManager.recordOrShowError(4083, attribute, widgetType);
+      // **Unable to assign UNKNOWN value to attribute <attribute> on <widget id>.
    }
 }

=== modified file 'src/com/goldencode/p2j/util/KeyReader.java'
--- src/com/goldencode/p2j/util/KeyReader.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/util/KeyReader.java	2021-01-13 21:04:41 +0000
@@ -61,6 +61,8 @@
 ** 027 GES 20200627          Renamed Coordinates interface to be more generic.  Added the undocumented
 **                           LAST-EVENT:SET-LASTKEY() method.  Added the LAST-EVENT:COLUMN/ROW attributes
 **                           support.
+**     OM  20201030          Invalid attribute API support for getters/setters.
+**     OM  20201203          Fixed handling of READ/ONLY attributes.
 */
 
 /*
@@ -120,7 +122,6 @@
 
 import com.goldencode.p2j.security.*;
 import com.goldencode.p2j.ui.*;
-import com.goldencode.p2j.ui.client.driver.*;
 import com.goldencode.p2j.ui.client.event.*;
 import com.goldencode.proxy.*;
 
@@ -168,8 +169,7 @@
       WorkArea wa = workArea.obtain();
 
       Class[] classes = { KeyReader.class };
-      CommonLastEvent proxy = StaticProxy.obtain(CommonLastEvent.class, 
-                                                 classes);
+      CommonLastEvent proxy = StaticProxy.obtain(CommonLastEvent.class, classes);
 
       if (wa.id == null)
       {
@@ -225,8 +225,7 @@
    }
    
    /**
-    * API needed to implement read-only attribute assignment (a 4GL 
-    * "feature").
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
     * 
     * @param    attribute
     *           The attribute's name.
@@ -237,7 +236,22 @@
    {
       handle.readOnlyError(asHandle(), attribute);
    }
-
+   
+   /**
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
+    * 
+    * @param    attribute
+    *           The attribute's name.
+    * @param    expr
+    *           The value which is attempted to be assigned to the read-only attribute. 
+    *
+    * @see      handle#readOnlyError(handle, String, Object)
+    */
+   public static void readOnlyError(String attribute, Object expr)
+   {
+      handle.readOnlyError(asHandle(), attribute);
+   }
+   
    /**
     * Obtains the last key read from any source (stream or terminal).
     *
@@ -680,7 +694,7 @@
    @LegacyAttribute(name = "FORMAT", ignore = true)
    public static character getFormat()
    {
-      handle.invalidAttribute("FORMAT", asHandle());
+      handle.invalidAttribute("FORMAT", asHandle(), false);
       
       return new character();
    }
@@ -717,7 +731,7 @@
    @LegacyAttribute(name = "COLUMN-LABEL", ignore = true)
    public static character getColumnLabel()
    {
-      handle.invalidAttribute("COLUMN-LABEL", asHandle());
+      handle.invalidAttribute("COLUMN-LABEL", asHandle(), false);
       
       return new character();
    }
@@ -754,7 +768,7 @@
    @LegacyAttribute(name = "DATA-TYPE", ignore = true)
    public static character getDataType()
    {
-      handle.invalidAttribute("DATA-TYPE", asHandle());
+      handle.invalidAttribute("DATA-TYPE", asHandle(), false);
       
       return new character();
    }
@@ -1126,4 +1140,4 @@
          return new WorkArea();
       }   
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/util/LegacyAttribute.java'
--- src/com/goldencode/p2j/util/LegacyAttribute.java	2020-03-01 13:21:47 +0000
+++ src/com/goldencode/p2j/util/LegacyAttribute.java	2021-01-15 20:55:46 +0000
@@ -10,6 +10,7 @@
 **                  should be ignored for the given class.
 ** 003 HC  20200301 Added LegacyAttribute.canQuery to allow to override the result of CAN-QUERY
 **                  built in legacy function.
+** 004 VVT 20210115 The canQuery() method is removed. See #5064.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -85,9 +86,4 @@
    
    /** The member identifying if the legacy attribute to be ignored for the given method. */
    boolean ignore() default false;
-
-   /** The member identifying if the legacy attribute can be queried (the result of the legacy built in
-    * function CAN-QUERY when this attribute is queried).
-    */
-   boolean canQuery() default true;
 }

=== modified file 'src/com/goldencode/p2j/util/LegacyJavaAppserver.java'
--- src/com/goldencode/p2j/util/LegacyJavaAppserver.java	2020-10-08 20:26:22 +0000
+++ src/com/goldencode/p2j/util/LegacyJavaAppserver.java	2021-01-13 21:04:41 +0000
@@ -12,6 +12,7 @@
 **                  temp-table fields.
 **     CA  20200927 Use IdentityHashMap instead of plain map when the key is a Class.
 **     CA  20201008 Added HANDLE type.  Added addRelation API.
+**     OM  20201120 Added support for xmlNodeName, errorString temp-table attributes.
 */
 
 /*
@@ -308,21 +309,18 @@
       for (int i = 0; i < nt; i++)
       {
          DataObject origTable = DataSetSDOHelper.getTableMetaData(origMetadata, i);
-         String  name       = origTable.getString("name");
-         int     numFields  = origTable.getInt("numFields");
-         boolean b4img      = origTable.getBoolean("b4img");
-         int     numIndexes = origTable.getInt("numIndexes");
-         String  indexes    = origTable.getString("indexes");
-         String  xmlns      = origTable.getString("xmlns");
-         String  xmlPrefix  = origTable.getString("xmlPrefix");
+         String  name        = origTable.getString("name");
+         int     numFields   = origTable.getInt("numFields");
+         boolean b4img       = origTable.getBoolean("b4img");
+         int     numIndexes  = origTable.getInt("numIndexes");
+         String  indexes     = origTable.getString("indexes");
+         String  xmlns       = origTable.getString("xmlns");
+         String  xmlPrefix   = origTable.getString("xmlPrefix");
+         String  xmlNodeName = origTable.getString("xmlNodeName");
+         String  errorString = origTable.getString("errorString");
          
-         DataObject newTable = DataSetSDOHelper.createTableMetaData(name,
-                                                                    numFields,
-                                                                    b4img,
-                                                                    numIndexes,
-                                                                    indexes,
-                                                                    xmlns,
-                                                                    xmlPrefix);
+         DataObject newTable = DataSetSDOHelper.createTableMetaData(
+               name, numFields, b4img, numIndexes, indexes, xmlns, xmlPrefix, xmlNodeName, errorString);
          List<DataObject> origFields = DataSetSDOHelper.getFieldMetaData(origTable);
          for (DataObject origf : origFields)
          {
@@ -333,15 +331,9 @@
             int      legacyType = origf.getInt("legacytype");
             int      order      = origf.getInt("order");
             int      xmlMapping = origf.getInt("xmlMapping");
-
-            DataSetSDOHelper.setFieldMetaData(newTable,
-                                              idx,
-                                              fname,
-                                              extent,
-                                              cls,
-                                              legacyType,
-                                              order,
-                                              xmlMapping);
+            
+            DataSetSDOHelper.setFieldMetaData(
+                  newTable, idx, fname, extent, cls, legacyType, order, xmlMapping);
          }
          DataSetSDOHelper.addTableMetaData((DataObject) metadata, newTable);
       }
@@ -620,42 +612,43 @@
    }
 
    /**
-    * Create an object with a table metadata.  This object will have the <code>tablemetadata</code>
-    * type and is not attached to the graph.
+    * Create an object with a table metadata.  This object will have the {@code tablemetadata} type and is not
+    * attached to the graph.
     * 
-    * @param    name
-    *           The table's name.
-    * @param    numFields
-    *           The number of fields.
-    * @param    b4img
-    *           Flag indicating if the table has a BEFORE-IMAGE.
-    * @param    numIndexes
-    *           The number of indexes.
-    * @param    indexes
-    *           The index specification (TODO: not validated/implemented at this time).
-    * @param    xmlns
-    *           The XML namespace (TODO: not validated/implemented at this time).
-    * @param    xmlPrefix
-    *           The XML prefix (TODO: not validated/implemented at this time).
-    *           
+    * @param   name
+    *          The table's name.
+    * @param   numFields
+    *          The number of fields.
+    * @param   b4img
+    *          Flag indicating if the table has a BEFORE-IMAGE.
+    * @param   numIndexes
+    *          The number of indexes.
+    * @param   indexes
+    *          The index specification (TODO: not validated/implemented at this time).
+    * @param   xmlns
+    *          The XML namespace (TODO: not validated/implemented at this time).
+    * @param   xmlPrefix
+    *          The XML prefix (TODO: not validated/implemented at this time).
+    * @param   xmlNodeName
+    *          The XML node name (TODO: not validated/implemented at this time).
+    * @param   errorString
+    *          The table's ERROR-STRING attribute  (TODO: not validated/implemented at this time).
+    *
     * @return   An object with the table metadata.
     */
    @Override
-   public DataObject createObjectMetaData(String  name, 
+   public DataObject createObjectMetaData(String  name,
                                           int     numFields,
                                           boolean b4img,
                                           int     numIndexes,
                                           String  indexes,
                                           String  xmlns,
-                                          String  xmlPrefix)
+                                          String  xmlPrefix,
+                                          String  xmlNodeName,
+                                          String  errorString)
    {
-      return DataSetSDOHelper.createTableMetaData(name, 
-                                                  numFields, 
-                                                  b4img, 
-                                                  numIndexes, 
-                                                  indexes, 
-                                                  xmlns, 
-                                                  xmlPrefix);
+      return DataSetSDOHelper.createTableMetaData(
+            name, numFields, b4img, numIndexes, indexes, xmlns, xmlPrefix, xmlNodeName, errorString);
    }
 
    /**
@@ -776,6 +769,8 @@
             dstable.setIndexes(tableMeta.getInt("numIndexes"), tableMeta.getString("indexes"));
             dstable.setXmlns(tableMeta.getString("xmlns"));
             dstable.setXmlPrefix(tableMeta.getString("xmlPrefix"));
+            dstable.setXmlNodeName(tableMeta.getString("xmlNodeName"));
+            dstable.setErrorString(tableMeta.getString("errorString"));
             tableDefinitions.add(dstable);
             
             if (tableMeta.getBoolean("b4img"))
@@ -861,9 +856,7 @@
                   Class<?> type = legacyTypes.get(DataSetSDOHelper.getFieldType(fieldMeta));
                   int extent = DataSetSDOHelper.getFieldExtent(fieldMeta);
                   
-                  PropertyDefinition prop = new PropertyDefinition(name, type, extent, name);
-                  
-                  return prop;
+                  return new PropertyDefinition(name, type, extent, name);
                }
                
                @Override
@@ -886,11 +879,12 @@
             wrapper.setIndexes(tableMeta.getString("indexes"));
             wrapper.setXmlns(tableMeta.getString("xmlns"));
             wrapper.setXmlPrefix(tableMeta.getString("xmlPrefix"));
-
+            wrapper.setXmlNodeName(tableMeta.getString("xmlNodeName"));
+            wrapper.setErrorString(tableMeta.getString("errorString"));
+            
             if (tableMeta.getBoolean("b4img"))
             {
-               throw new RuntimeException("Using a TABLE-HANDLE with b4img, " +
-                                          "not yet supported in FWD!");
+               throw new RuntimeException("Using a TABLE-HANDLE with b4img, not yet supported in FWD!");
             }
             
             value = wrapper;
@@ -960,13 +954,15 @@
 
                if (!reuseMetadata)
                {
-                  DataObject tableMeta = DataSetSDOHelper.createTableMetaData(dst.getName(), 
-                                                                              props.size(), 
+                  DataObject tableMeta = DataSetSDOHelper.createTableMetaData(dst.getName(),
+                                                                              props.size(),
                                                                               dst.getPeerDef() != null,
-                                                                              dst.getNumIndexes(), 
-                                                                              dst.getIndexes(), 
-                                                                              dst.getXmlns(), 
-                                                                              dst.getXmlPrefix());
+                                                                              dst.getNumIndexes(),
+                                                                              dst.getIndexes(),
+                                                                              dst.getXmlns(),
+                                                                              dst.getXmlPrefix(),
+                                                                              dst.getXmlNodeName(),
+                                                                              dst.getErrorString());
                   
                   int idx = 0;
                   for (PropertyDefinition prop : props)
@@ -1027,7 +1023,7 @@
                   ((FWDDataObject) drow)._rowState((Integer) rowMeta[1]);
                   ((FWDDataObject) drow)._peerRowid((Long) rowMeta[2]);
                   ((FWDDataObject) drow)._originRowid((Long) rowMeta[3]);
-                  ((FWDDataObject) drow)._errorFlag((Integer) rowMeta[4]);
+                  ((FWDDataObject) drow)._errorFlags((Integer) rowMeta[4]);
                   ((FWDDataObject) drow)._errorString((String) rowMeta[5]);
                   
                   DataSetSDOHelper.addDataObject(graph, drow);
@@ -1053,13 +1049,15 @@
 
             if (!reuseMetadata)
             {
-               DataObject tableMeta = DataSetSDOHelper.createTableMetaData(wrapper.getTableName(), 
-                                                                           props.size(), 
+               DataObject tableMeta = DataSetSDOHelper.createTableMetaData(wrapper.getTableName(),
+                                                                           props.size(),
                                                                            wrapper.getPeerDef() != null,
-                                                                           wrapper.getNumIndexes(), 
-                                                                           wrapper.getIndexes(), 
-                                                                           wrapper.getXmlns(), 
-                                                                           wrapper.getXmlPrefix());
+                                                                           wrapper.getNumIndexes(),
+                                                                           wrapper.getIndexes(),
+                                                                           wrapper.getXmlns(),
+                                                                           wrapper.getXmlPrefix(),
+                                                                           wrapper.getXmlNodeName(),
+                                                                           wrapper.getErrorString());
                
                int idx = 0;
                for (PropertyDefinition prop : props)
@@ -1122,7 +1120,7 @@
                ((FWDDataObject) drow)._rowState((Integer) rowMeta[1]);
                ((FWDDataObject) drow)._peerRowid((Long) rowMeta[2]);
                ((FWDDataObject) drow)._originRowid((Long) rowMeta[3]);
-               ((FWDDataObject) drow)._errorFlag((Integer) rowMeta[4]);
+               ((FWDDataObject) drow)._errorFlags((Integer) rowMeta[4]);
                ((FWDDataObject) drow)._errorString((String) rowMeta[5]);
 
                DataSetSDOHelper.addDataObject(graph, drow);

=== modified file 'src/com/goldencode/p2j/util/LegacyJavaAppserverApi.java'
--- src/com/goldencode/p2j/util/LegacyJavaAppserverApi.java	2020-10-08 20:26:22 +0000
+++ src/com/goldencode/p2j/util/LegacyJavaAppserverApi.java	2021-01-13 21:04:41 +0000
@@ -10,6 +10,7 @@
 ** 003 CA  20200923 API improvements. Added extent support, other data-types.  Allow access to the hidden 
 **                  temp-table fields.
 **     CA  20201008 Added HANDLE type.  Added addRelation API.
+**     OM  20201120 Added support for xmlNodeName and errorString table attributes.
 */
 
 /*
@@ -674,24 +675,28 @@
    public List<DataObject> getTableMetaData(DataGraph graph);
    
    /**
-    * Create an object with a table metadata.  This object will have the <code>tablemetadata</code>
-    * type and is not attached to the graph.
+    * Create an object with a table metadata.  This object will have the {@code tablemetadata} type and is not
+    * attached to the graph.
     * 
-    * @param    name
-    *           The table's name.
-    * @param    numFields
-    *           The number of fields.
-    * @param    b4img
-    *           Flag indicating if the table has a BEFORE-IMAGE.
-    * @param    numIndexes
-    *           The number of indexes.
-    * @param    indexes
-    *           The index specification.
-    * @param    xmlns
-    *           The XML namespace.
-    * @param    xmlPrefix
-    *           The XML prefix.
-    *           
+    * @param   name
+    *          The table's name.
+    * @param   numFields
+    *          The number of fields.
+    * @param   b4img
+    *          Flag indicating if the table has a BEFORE-IMAGE.
+    * @param   numIndexes
+    *          The number of indexes.
+    * @param   indexes
+    *          The index specification.
+    * @param   xmlns
+    *          The XML namespace.
+    * @param   xmlPrefix
+    *          The XML prefix.
+    * @param   xmlNodeName
+    *          The XML node name.
+    * @param   errorString
+    *          The table's ERROR-STRING attribute.
+    *
     * @return   An object with the table metadata.
     */
    public DataObject createObjectMetaData(String  name, 
@@ -700,7 +705,9 @@
                                           int     numIndexes,
                                           String  indexes,
                                           String  xmlns,
-                                          String  xmlPrefix);
+                                          String  xmlPrefix,
+                                          String  xmlNodeName,
+                                          String  errorString);
 
    /**
     * Add a new new field with the specified configuration.

=== modified file 'src/com/goldencode/p2j/util/LegacyMethod.java'
--- src/com/goldencode/p2j/util/LegacyMethod.java	2020-05-27 16:27:27 +0000
+++ src/com/goldencode/p2j/util/LegacyMethod.java	2021-01-15 20:55:46 +0000
@@ -7,6 +7,7 @@
 ** -#- -I- --Date-- --------------------------------------Description---------------------------------------
 ** 001 EVL 20130910 Created initial version.
 ** 002 GES 20200521 Fixed a typo.
+** 003 VVT 20210115 The ignore() method is added. See #5064.
 */
 
 /*
@@ -76,4 +77,8 @@
 {
    /** The name of the legacy method marked with this annotation. */
    String name();
+
+   /** The member identifying if the legacy attribute to be ignored for the given method. */
+   boolean ignore() default false;
+
 }

=== modified file 'src/com/goldencode/p2j/util/LobCopy.java'
--- src/com/goldencode/p2j/util/LobCopy.java	2020-06-15 00:40:59 +0000
+++ src/com/goldencode/p2j/util/LobCopy.java	2021-01-27 01:54:24 +0000
@@ -324,4 +324,4 @@
          target.write(data);
       }
    }
-}
\ No newline at end of file
+}

=== added file 'src/com/goldencode/p2j/util/LogicalExpressionConverter.java'
--- src/com/goldencode/p2j/util/LogicalExpressionConverter.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/p2j/util/LogicalExpressionConverter.java	2020-11-26 12:57:59 +0000
@@ -0,0 +1,815 @@
+/*
+** Module   : LogicalExpressionConverter.java
+** Abstract : Conversion of the logical expression accepted by CONTAINS operator to the
+**            Reverse Polish Notation(RPN), Conjunctive Normal Form (CNF),
+*             or Disjunctive Normal Form (DNF)
+**
+** Copyright (c) 2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- --------------------------------Description----------------------------------
+** 001 IAS 20201011 Created initial version.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.p2j.util;
+
+import java.io.*;
+import java.util.*;
+
+/**
+ * Conversion of the logical expression accepted by CONTAINS operator to the
+ * Reverse Polish Notation(RPN), Conjunctive Normal Form (CNF), or Disjunctive Normal Form (DNF)
+ */
+public class LogicalExpressionConverter
+{
+
+   /** Single character word delimiter for data strings */
+   private final Set<String> delim;
+
+   /** Should matches be checked case-sensitively? */
+   private final boolean caseSensitive;
+
+   /** Logical expresssion to be converted */
+   private final String expr;
+
+   /**
+    * Constructor
+    * 
+    * @param expr          Logical expresssion to be converted
+    * @param caseSensitive Should matches be checked case-sensitively?
+    * @param delims        word delimiters
+    */
+   public LogicalExpressionConverter(String expr, boolean caseSensitive, char... delims)
+   {
+      Set<String> d = new HashSet<>();
+      for (char c : delims)
+      {
+         d.add(String.valueOf(c));
+      }
+      this.delim = Collections.unmodifiableSet(d);
+      this.caseSensitive = caseSensitive;
+      this.expr = expr;
+   }
+
+   /**
+    * Convert to Reverse Polish Notation (RPN)
+    * 
+    * @param debug print tokens as they are provided by lexer
+    * @return RPN representation of the expression
+    */
+   public List<EToken> toRPN(boolean debug)
+   {
+      Stack<EToken> stack = new Stack<>();
+      List<EToken> rpn = new ArrayList<>();
+      try (Reader reader = new StringReader(expr))
+      {
+         Lexer lexer = new Lexer(reader, delim, caseSensitive);
+         EToken token;
+         while ((token = lexer.token()) != null)
+         {
+            if (debug)
+            {
+               System.out.println(token);
+            }
+            if (token instanceof Term)
+            {
+               rpn.add(token);
+            } 
+            else if (token == Brackets.LPARENS)
+            {
+               stack.push(token);
+            } 
+            else if (token instanceof Op)
+            {
+               while (!stack.isEmpty())
+               {
+                  EToken top = stack.peek();
+                  if (token instanceof Op)
+                  {
+                     if (top instanceof Op && ((Op) token).priority >= ((Op) top).priority)
+                     {
+                        top = stack.pop();
+                        rpn.add(top);
+                     } 
+                     else
+                     {
+                        break;
+                     }
+                  }
+               }
+               stack.push(token);
+            } 
+            else if (token == Brackets.RPARENS)
+            {
+               while (!stack.isEmpty())
+               {
+                  EToken top = stack.pop();
+                  if (top == Brackets.LPARENS)
+                  {
+                     break;
+                  }
+                  rpn.add(top);
+               }
+
+            } 
+            else
+            {
+               throw new ErrorConditionException("Invalid expression");
+            }
+            lexer.consume();
+         }
+         while (!stack.isEmpty())
+         {
+            EToken top = stack.pop();
+            if (top instanceof Op)
+            {
+               rpn.add(top);
+            } 
+            else
+            {
+               throw new ErrorConditionException("Invalid expression");
+            }
+         }
+      } catch (IOException e)
+      {
+         throw new ErrorConditionException(e);
+      }
+      return rpn;
+   }
+
+   /**
+    * Convert to Conjunctive Normal Form (CNF)
+    * 
+    * @param debug 
+    *        print tokens as they are provided by lexer and intermediate data
+    * @return CNF representation of the expression
+    */
+   public List<List<EToken>> toCNF(boolean debug)
+   {
+      return toNormalForm(Op.OR, Op.AND, debug);
+   }
+   
+   /**
+    * Convert to Disjunctive Normal Form (DNF)
+    * 
+    * @param debug 
+    *        print tokens as they are provided by lexer and intermediate data
+    * @return DNF representation of the expression
+    */
+   public List<List<EToken>> toDNF(boolean debug)
+   {
+      return toNormalForm(Op.AND, Op.OR, debug);
+   }
+
+   /**
+    * Convert to Normal Form (CNF or DNF)
+    * 
+    * @param op1
+    *        innermost operation (OR or AND)  
+    * @param op2
+    *        outermost operation (OR or AND)  
+    * @param debug 
+    *        print tokens as they are provided by lexer and intermediate data
+    * @return CNF or DNF representation of the expression
+    */
+   public List<List<EToken>> toNormalForm(Op op1, Op op2, boolean debug)
+   {
+      List<List<EToken>> cnf = new ArrayList<>();
+      List<EToken> rpn = toRPN(debug);
+      Stack<Node> stack = new Stack<>();
+      for (EToken token: rpn)
+      {
+         if (token instanceof Term)
+         {
+            stack.push(new Node((Term)token));
+         }
+         else if (token instanceof Op)
+         {
+            switch ((Op)token)
+            {
+            case NOT:
+               stack.push(new Node(Op.NOT, stack.pop()));
+               break;
+            case AND:
+            case OR:
+               stack.push(new Node(stack.pop(), (Op)token, stack.pop()));
+               break;
+            }
+         }
+      }
+      Node exprTree =  stack.pop();
+      Node cnfTree = distribute(op1, op2, pushNots(exprTree));
+      List<EToken> cnfExpr = toList(cnfTree, new ArrayList<>());
+      if (debug)
+      {
+         System.out.println(cnfExpr);
+      }
+      List<EToken> inner = new ArrayList<>();
+      for (EToken t: cnfExpr)
+      {
+         if (t == Brackets.LPARENS || t == Brackets.RPARENS || t == op1)
+         {
+            continue;
+         }
+         if( t == op2)
+         {
+            cnf.add(inner);
+            inner = new ArrayList<>();
+         }
+         else
+         {
+            inner.add(t);
+         }
+      }
+      cnf.add(inner);
+      return cnf;
+   }
+
+   /**
+    * Recursively convert expression tree to linear representation
+    * 
+    * @param t
+    *        tree to be converted
+    * @param list
+    *        list to hold a linear representation
+    * @return linear representation of a tree
+    */
+   private List<EToken> toList(Node t, List<EToken> list)
+   {
+      if (t != null)
+      {
+         if (t.value instanceof Term)
+         {
+            list.add(t.value);
+         } 
+         else if (t.value == Op.AND || t.value == Op.OR)
+         {
+            list.add(Brackets.LPARENS);
+            toList(t.leftNode, list);
+            list.add(t.value);
+            toList(t.rightNode, list);
+            list.add(Brackets.RPARENS);
+         } 
+         else if (t.value == Op.NOT)
+         {
+            list.add(t.value);
+            toList(t.negatedExpression, list);
+         }
+      }
+      return list;
+   }
+
+   /**
+    * Apply De Morgan's law and eliminate double negation.
+    * 
+    * @param t
+    *        source tree
+    * @return converted tree
+    * 
+    */
+   private Node pushNots(Node t) {
+      if (t.value == Op.NOT) 
+      {
+          if (t.negatedExpression.value == Op.AND) {
+              t = new Node(
+                    pushNots(new Node(Op.NOT, t.negatedExpression.leftNode)),
+                    Op.OR, 
+                    pushNots(new Node(Op.NOT, t.negatedExpression.rightNode)));
+          } 
+          else if (t.negatedExpression.value == Op.OR) 
+          {
+              t = new Node(
+                    pushNots(new Node(Op.NOT, t.negatedExpression.leftNode)),
+                    Op.AND,
+                    pushNots(new Node(Op.NOT, t.negatedExpression.rightNode)));
+          } 
+          else if (t.negatedExpression.value == Op.NOT) 
+          {
+              t = pushNots(t.negatedExpression.negatedExpression);
+          }
+      } 
+      else if (t.value == Op.AND || t.value == Op.OR) 
+      {
+          t.leftNode  = pushNots(t.leftNode);
+          t.rightNode = pushNots(t.rightNode);
+      }
+      return t;
+  }
+  
+   /**
+    * Apply distributive law.
+    * 
+    * @param op1
+    *        innermost operation (OR or AND)  
+    * @param op2
+    *        outermost operation (OR or AND)  
+    * @param t
+    *        source tree
+    * @return converted tree
+    * 
+    */
+  private Node distribute(Op op1, Op op2, Node t)
+   {
+      if (t.value == op2)
+      {
+         t.leftNode = distribute(op1, op2, t.leftNode);
+         t.rightNode = distribute(op1, op2, t.rightNode);
+      } 
+      else if (t.value == op1)
+      {
+         Node p = distribute(op1, op2, t.leftNode);
+         Node q = distribute(op1, op2, t.rightNode);
+         if (p.value == op2)
+         {
+            t = new Node(distribute(op1, op2, new Node(p.leftNode, op1, q)), op2,
+                  distribute(op1, op2, new Node(p.rightNode, op1, q)));
+         }
+         else if (q.value == op2)
+         {
+            t = new Node(distribute(op1, op2, new Node(p, op1, q.leftNode)), op2,
+                  distribute(op1, op2, new Node(p, op1, q.rightNode)));
+         } 
+         else
+         {
+            t.leftNode = p;
+            t.rightNode = q;
+         }
+      }
+      return t;
+   }
+
+   /**
+    * Expresssion tree node 
+   */
+   public static class Node
+   {
+      /** Node value (operation or term) */
+      public final EToken value;
+      /** Left child  (for binary operations) */
+      public Node leftNode;
+      /** Right child  (for binary operations) */
+      public Node rightNode;
+      /** Single child (for negation) */
+      public final Node negatedExpression;
+
+      /**
+       * Constructor 
+       * @param value
+       *        Node value (operation or term)
+       * @param leftNode
+       *        Left child (for binary operations)
+       * @param rightNode
+       *        Right child  (for binary operations)
+       * @param negatedExpression
+       *        Single child (for negation)
+       */
+      private Node(EToken value, Node leftNode, Node rightNode,
+            Node negatedExpression)
+      {
+         super();
+         this.value = value;
+         this.leftNode = leftNode;
+         this.rightNode = rightNode;
+         this.negatedExpression = negatedExpression;
+      }
+
+      /**
+       * Constructor for a binary operation node
+       * 
+       * @param leftNode
+       *        left operand
+       * @param op
+       *        operation
+       * @param rightNode
+       *        right operand
+       */
+      public Node(Node leftNode, Op op, Node rightNode)
+      {
+         this(op, leftNode, rightNode, null);
+      }
+
+      /**
+       * Constructor for a unary operation (negation) node
+       * @param op
+       *        operation
+       * @param negatedExpression
+       *        operation argument
+       */
+      public Node(Op op, Node negatedExpression)
+      {
+         this(op, null, null, negatedExpression);
+      }
+
+      /**
+       * Constructor for a leaf node
+       * 
+       * @param term
+       *        node value
+       *        
+       */
+      public Node(Term term)
+      {
+         this(term, null, null, null);
+      }
+   }
+
+   /**
+    * Base interface for all tokens
+    */
+   public static interface EToken
+   {
+
+   }
+
+   /**
+    * Lexer which builds a token stream from the match expression.
+    */
+   private static class Lexer
+   {
+      /** String reader stream */
+      private final Reader reader;
+
+      /** Should matches be checked case-sensitively? */
+      private final boolean caseSensitive;
+
+      /** The word-delimiter characters. */
+      private final Set<String> delim;
+
+      /** Token most recently read from the expression */
+      private EToken current = null;
+
+      /** Flag indicating if the last char(s) read was a word delimiter. */
+      private boolean hasDelim = false;
+
+      /**
+       * Constructor.
+       * 
+       * @param reader        Reader stream on the match expression text.
+       * @param caseSensitive {@code true} to perform word match comparisons
+       *                      case-sensitively, {@code false} to ignore case.
+       */
+      private Lexer(Reader reader, Set<String> delim, boolean caseSensitive)
+      {
+         this.reader = reader;
+         this.delim = delim;
+         this.caseSensitive = caseSensitive;
+      }
+
+      /**
+       * Return the most recently read token, or {@code null} if no more tokens are
+       * available.
+       * 
+       * @return Current token or {@code null}.
+       * 
+       * @throws IOException if there is an I/O error reading from the stream.
+       */
+      EToken token() throws IOException
+      {
+         if (current == null)
+         {
+            readNextToken();
+         }
+
+         return current;
+      }
+
+      /**
+       * Mark the current token as having been consumed.
+       */
+      void consume()
+      {
+         current = null;
+      }
+
+      /**
+       * Read the next token from the match expression.
+       * 
+       * @throws IOException if there is an I/O error reading from the stream.
+       */
+      private void readNextToken() throws IOException
+      {
+         StringBuilder buf = new StringBuilder();
+         int next;
+         boolean more = true;
+         while (more)
+         {
+            reader.mark(1);
+            if ((next = reader.read()) < 0)
+            {
+               break;
+            }
+            char c = (char) next;
+            if (Character.isWhitespace(c) || delim.contains(String.valueOf(c)))
+            {
+               if (buf.length() > 0)
+               {
+                  break;
+               }
+               continue;
+            }
+
+            switch (c)
+            {
+            case '&':
+            case '|':
+            case '^':
+            case '!':
+            case '(':
+            case ')':
+//            case '~': // This is *not* accepted by CONTAINS, added for
+//                      // implementation testing
+               more = false;
+               if (buf.length() > 0)
+               {
+                  // if a token is not finished being processed when we encounter this
+                  // character, we reset the reader to just before this character and
+                  // process that token first; the next time through, we'll process this
+                  // character in the else block below
+                  reader.reset();
+               } 
+               else
+               {
+                  switch (c)
+                  {
+                  case '&':
+                     current = Op.AND;
+                     break;
+                  case '|':
+                  case '!':
+                  case '^':
+                     current = Op.OR;
+                     break;
+//                  case '~': // This is *not* accepted by CONTAINS, added for
+//                            // implementation testing
+//                     current = Op.NOT;
+//                     break;
+                  case '(':
+                     current = Brackets.LPARENS;
+                     break;
+                  case ')':
+                     current = Brackets.RPARENS;
+                     break;
+                  }
+               }
+               break;
+            default:
+               buf.append(c);
+               break;
+            }
+         }
+         if (buf.length() > 0)
+         {
+            String s = buf.toString();
+            if (!caseSensitive)
+            {
+               s = s.toUpperCase();
+            }
+            if (s.endsWith("*"))
+            {
+               if (s.length() == 1)
+               {
+                  wildcardError();
+                  return;
+               }
+               s = s.substring(0, s.length() - 1);
+               if (s.indexOf('*') >= 0)
+               {
+                  wildcardError();
+                  return;
+               }
+               current = new StartsWith(s);
+            } 
+            else
+            {
+               current = new Equals(s);
+            }
+         }
+      }
+
+      /**
+       * Record or throw an error about incorrect wildcard syntax.
+       * 
+       * @throws ErrorConditionException always.
+       */
+      private void wildcardError()
+      {
+         String msg = "QBW syntax error - An asterisk (*) is allowed only at the end of a word";
+
+         throw new ErrorConditionException(4686, msg);
+      }
+   }
+
+   /**
+    * Logical operations
+    */
+   @SuppressWarnings("javadoc")
+   public static enum Op implements EToken
+   {
+      NOT(1), AND(2), OR(3);
+
+      /** Operation priority */
+      public final int priority;
+
+      /**
+       * Constructor
+       * 
+       * @param priority Operation priority
+       */
+      private Op(int priority)
+      {
+         this.priority = priority;
+      }
+
+   }
+
+   /**
+    * Brackets
+    */
+   @SuppressWarnings("javadoc")
+   public static enum Brackets implements EToken
+   {
+      LPARENS, RPARENS;
+   }
+
+   /**
+    * Base class for expression terms
+    */
+   public abstract static class Term implements EToken
+   {
+      /** String to be compared with */
+      private final String value;
+
+      /**
+       * Evaluate predicate for a set of words
+       * 
+       * @param words given set of words
+       * @return <code>true</code> if any of the words satisfy the predicate
+       */
+      public abstract boolean evaluate(Set<String> words);
+
+      /**
+       * Constructor
+       * 
+       * @param value String to be compared with
+       */
+      public Term(String value)
+      {
+         super();
+         this.value = value;
+      }
+
+      /**
+       * Get the String to be compared with
+       * 
+       * @return String to be compared with
+       */
+      public String getValue()
+      {
+         return value;
+      }
+   }
+
+   /**
+    * "Equals" predicate
+    */
+   public static class Equals extends Term
+   {
+      /**
+       * Constructor
+       * 
+       * @param value String to be compared with
+       */
+      public Equals(String value)
+      {
+         super(value);
+      }
+
+      /**
+       * Convert to String
+       */
+      @Override
+      public String toString()
+      {
+         return "Equals(" + getValue() + ")";
+      }
+
+      /**
+       * Evaluate predicate for a set of words
+       * 
+       * @param words given set of words
+       * @return <code>true</code> if any of the words satisfy the predicate
+       */
+      @Override
+      public boolean evaluate(Set<String> words)
+      {
+         return words.contains(getValue());
+      }
+   }
+
+   /**
+    * "StartsWith" predicate
+    */
+   public static class StartsWith extends Term
+   {
+      /**
+       * Constructor
+       * 
+       * @param value String to be compared with
+       */
+      public StartsWith(String value)
+      {
+         super(value);
+      }
+
+      /**
+       * Convert to String
+       */
+      @Override
+      public String toString()
+      {
+         return "StartsWith(" + getValue() + ")";
+      }
+
+      /**
+       * Evaluate predicate for a set of words
+       * 
+       * @param words given set of words
+       * @return <code>true</code> if any of the words satisfy the predicate
+       */
+      @Override
+      public boolean evaluate(Set<String> words)
+      {
+         return words.stream().anyMatch(w -> w.startsWith(getValue()));
+      }
+   }
+
+   /**
+    * Test program
+    * 
+    * @param args command line arguments
+    * @throws Exception if error
+    */
+   public static void main(String... args) throws Exception
+   {
+      System.out.println(args[0]);
+      LogicalExpressionConverter lexp = new LogicalExpressionConverter(args[0], true);
+      List<EToken> rpn = lexp.toRPN(false);
+      System.out.printf("RPN: %s\n", rpn);
+      List<List<EToken>> cnf = lexp.toCNF(false);
+      System.out.printf("CNF: %s\n", cnf);
+      List<List<EToken>> dnf = lexp.toDNF(false);
+      System.out.printf("DNF: %s\n", dnf);
+   }
+}

=== modified file 'src/com/goldencode/p2j/util/NamespaceURI.java'
--- src/com/goldencode/p2j/util/NamespaceURI.java	2019-04-15 19:25:19 +0000
+++ src/com/goldencode/p2j/util/NamespaceURI.java	2020-11-20 18:40:59 +0000
@@ -2,12 +2,13 @@
 ** Module   : NamespaceURI.java
 ** Abstract : Define getter and setter for NAMESPACE-URI attribute.
 **
-** Copyright (c) 2013-2019, Golden Code Development Corporation.
+** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -----------------------Description------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20130220 Created initial version.
 ** 002 EVL 20130911 Adding legacy attributes and methods annotation.
 ** 003 OM  20190415 Adding NAMESPACE-PREFIX legacy attribute.
+** 004 OM  20201120 Changed method name to match no-bean prefixes buffer convention.
 */
 
 /*
@@ -76,25 +77,25 @@
     * @return    See above.
     */
    @LegacyAttribute(name = "NAMESPACE-URI")
-   public character getNamespaceURI();
-   
-   /**
-    * Setter for NAMESPACE-URI attribute.
-    *
-    * @param    uri
-    *           The new value of the NAMESPACE-URI attribute.
-    */
-   @LegacyAttribute(name = "NAMESPACE-URI", setter = true)
-   public void setNamespaceURI(String uri);
-   
-   /**
-    * Setter for NAMESPACE-URI attribute.
-    *
-    * @param    uri
-    *           The new value of the NAMESPACE-URI attribute.
-    */
-   @LegacyAttribute(name = "NAMESPACE-URI", setter = true)
-   public void setNamespaceURI(character uri);
+   public character namespaceURI();
+   
+   /**
+    * Setter for NAMESPACE-URI attribute.
+    *
+    * @param    uri
+    *           The new value of the NAMESPACE-URI attribute.
+    */
+   @LegacyAttribute(name = "NAMESPACE-URI", setter = true)
+   public void namespaceURI(String uri);
+   
+   /**
+    * Setter for NAMESPACE-URI attribute.
+    *
+    * @param    uri
+    *           The new value of the NAMESPACE-URI attribute.
+    */
+   @LegacyAttribute(name = "NAMESPACE-URI", setter = true)
+   public void namespaceURI(character uri);
    
    /**
     * Returns the value of the the NAMESPACE-PREFIX attribute. Only for ELEMENT or ATTRIBUTE,
@@ -103,7 +104,7 @@
     * @return    See above.
     */
    @LegacyAttribute(name = "NAMESPACE-PREFIX")
-   public default character getNamespacePrefix()
+   public default character namespacePrefix()
    {
       return new character();
    }
@@ -115,7 +116,7 @@
     *           The new value of the NAMESPACE-PREFIX attribute.
     */
    @LegacyAttribute(name = "NAMESPACE-PREFIX", setter = true)
-   public default void setNamespacePrefix(String prefix)
+   public default void namespacePrefix(String prefix)
    {
    }
    
@@ -126,7 +127,7 @@
     *           The new value of the NAMESPACE-PREFIX attribute.
     */
    @LegacyAttribute(name = "NAMESPACE-PREFIX", setter = true)
-   public default void setNamespacePrefix(character prefix)
+   public default void namespacePrefix(character prefix)
    {
    }
 }

=== modified file 'src/com/goldencode/p2j/util/ObjectOps.java'
--- src/com/goldencode/p2j/util/ObjectOps.java	2021-01-29 08:13:44 +0000
+++ src/com/goldencode/p2j/util/ObjectOps.java	2021-01-31 10:14:52 +0000
@@ -39,8 +39,11 @@
 ** 010 ME  20200810 Added registerClassWorker() to getClassInstance().
 **     CA  20201003 Replaced Guava identity HashSet with Collections.newSetFromMap(IdentityHashMap).
 **     ME  20201009 Let 'invoke' return plain Object as it can be anything (including array).
-**         20201127 Throw error instead of showing it if cast fails.
-**         20210128 Added cast/dynamic cast for object arrays.
+**     CA  20201014 Reverted ME/20201009 - 'invoke' will return BDT, and the fix will either emit a 
+**                  'invokeExtent' for calls where it is known for the lvalue to be an extent, or we add 
+**                  BDT(Object) constructors for all sub-classes.
+**     ME  20201127 Throw error instead of showing it if cast fails.
+**     ME  20210128 Added cast/dynamic cast for object arrays.
 */
 
 /*
@@ -358,7 +361,7 @@
     *            
     * @return    Any returned value, or unknown if the method is void.
     */
-   public static Object invoke(object<? extends _BaseObject_> ref, character mthdName)
+   public static BaseDataType invoke(object<? extends _BaseObject_> ref, character mthdName)
    {
       return invoke(ref, mthdName.isUnknown() ? (String) null : mthdName.toStringMessage(), null);
    }
@@ -373,7 +376,7 @@
     *            
     * @return    Any returned value, or unknown if the method is void.
     */
-   public static Object invoke(object<? extends _BaseObject_> ref, String mthdName)
+   public static BaseDataType invoke(object<? extends _BaseObject_> ref, String mthdName)
    {
       return invoke(ref, mthdName, null);
    }
@@ -392,7 +395,7 @@
     *            
     * @return    Any returned value, or unknown if the method is void.
     */
-   public static Object invoke(object<? extends _BaseObject_> ref, 
+   public static BaseDataType invoke(object<? extends _BaseObject_> ref, 
                                      character                      mthdName, 
                                      String                         modes, 
                                      Object...                      args)
@@ -417,13 +420,13 @@
     *            
     * @return    Any returned value, or unknown if the method is void.
     */
-   public static Object invoke(object<? extends _BaseObject_> ref, 
+   public static BaseDataType invoke(object<? extends _BaseObject_> ref, 
                                      String                         mthdName, 
                                      String                         modes, 
                                      Object...                      args)
    {
       // TODO: extent?
-      return invoke(false, ref, mthdName, modes, args);
+      return (BaseDataType) invoke(false, ref, mthdName, modes, args);
    }
    
    /**

=== modified file 'src/com/goldencode/p2j/util/PortTypeWrapper.java'
--- src/com/goldencode/p2j/util/PortTypeWrapper.java	2019-06-30 20:57:55 +0000
+++ src/com/goldencode/p2j/util/PortTypeWrapper.java	2020-11-20 18:40:59 +0000
@@ -2,14 +2,17 @@
 ** Module   : PortTypeWrapper.java
 ** Abstract : container that implements a port-type procedure.
 **
-** Copyright (c) 2013-2019, Golden Code Development Corporation.
+** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 002 CA  20131220 Created initial version.
 ** 003 VIG 20140116 Changed currentWindow method signature.
 ** 004 SVL 20170126 Added no-op setters for FILE-NAME.
 ** 005 CA  20190628 Added SINGLE-RUN and SINGLETON support.
+** 023 OM  20201030 Invalid attribute API support for getters/setters.
+**     OM  20201120 Added callback procedure management methods.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -471,7 +474,80 @@
       // false is always returned
       return new logical(false);
    }
-
+   
+   /**
+    * Retrieves the handle of the procedure that contains the internal procedure associated
+    * with the ABL callback for the specified event
+    *
+    * @param   eventName
+    *          The name of the event.
+    *
+    * @return  a handle to the procedure that contains the callback procedure.
+    */
+   @Override
+   public handle getCallbackProcContext(String eventName)
+   {
+      UnimplementedFeature.missing("GET-CALLBACK-PROC-CONTEXT(String event)");
+      return new handle();
+   }
+   
+   /**
+    * Retrieves the name of the internal procedure associated with the ABL callback for the
+    * specified event.
+    *
+    * @param   eventName
+    *          The name of the event.
+    *
+    * @return  the name of the internal procedure associated with specified event.
+    */
+   @Override
+   public character getCallbackProcName(String eventName)
+   {
+      UnimplementedFeature.missing("GET-CALLBACK-PROC-NAME(String event)");
+      return new character();
+   }
+   
+   /**
+    * Applies a callback procedure, which allows execution of a defined event without duplicating
+    * the event procedure definition.
+    *
+    * @param   eventName
+    *          The event whose callback will be called.
+    *
+    * @return  {@code true} if operation is successful.
+    */
+   @Override
+   public logical applyCallback(String eventName)
+   {
+      UnimplementedFeature.missing("APPLY-CALLBACK(String event)");
+      return new logical();
+   }
+   
+   /**
+    * Associate the internal procedure with the given web-services event.
+    * <p>
+    * This method returns false if the event name is not valid.
+    * <p>
+    * For external procedures, this always shows an error.
+    *
+    * @param   event
+    *          The event name, must evaluate to one of the "REQUEST-HEADER" or the "RESPONSE-HEADER" strings. 
+    * @param   proc
+    *          The internal procedure to be executed for this event, which will be executed using the current
+    *          THIS-PROCEDURE reference. To remove a callback mapping, set the this parameter to the empty
+    *          string.
+    * @param   context
+    *          The context in which the callback will be executed.
+    *
+    * @return   <code>true</code> if the event was registered.
+    */
+   @Override
+   public logical setCallback(String event, String proc, object<?> context)
+   {
+      UnimplementedFeature.missing("SET-CALLBACK-PROCEDURE(String event, String proc, object<?> context)");
+      return new logical();
+   }
+   
    /**
     * Get the value of the ADM-DATA attribute.
     * 
@@ -734,8 +810,7 @@
    {
       asyncRequestCount--;
    }
-
-
+   
    /**
     * Displays "FILE-INFO is not a setable attribute for PROCEDURE widget" error message.
     *
@@ -745,11 +820,9 @@
    @Override
    public void initFileInfo(character name)
    {
-      ErrorManager.recordOrShowError(4052,
-            "FILE-NAME is not a setable attribute for PROCEDURE widget",
-            false);
+      handle.invalidAttribute("FILE-NAME", true, LegacyResource.PROCEDURE);
    }
-
+   
    /**
     * Displays "FILE-INFO is not a setable attribute for PROCEDURE widget" error message.
     *
@@ -854,4 +927,4 @@
    {
       return responseHeaderContext;
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/util/ProcedureManager.java'
--- src/com/goldencode/p2j/util/ProcedureManager.java	2020-10-03 16:02:03 +0000
+++ src/com/goldencode/p2j/util/ProcedureManager.java	2020-12-01 12:59:56 +0000
@@ -166,6 +166,14 @@
 **     CA  20200930 More context-local lookup improvements.
 **     RFB 20201002 Added a new thisProcedure, which allows for a referent to be passed in. Ref #4861
 **     CA  20201003 Use an identity HashSet where possible.
+**     CA  20201015 Replaced java.util.Stack with a non-synchronized custom implementation.
+**     RFB 20201015 New thisProcedure should handle null returned from locateProcedure. Ref. 4936.
+**     CA  20201119 The parameters for a PUBLISH call must not be altered by the ControlFlowOps invoke (in case
+**                  of OUTPUT or INPUT-OUTPUT, it ensures to use a different instance, to not alter the 
+**                  caller's reference).  For this reason, PUBLISH ensures that after a call, all parameter
+**                  references are re-established and the values updated.
+**     CA  20201201 Performance improvement - keep the subscribers in a 'per event' map, so that PUBLISH will
+**                  avoid iterating all subscriptions, and work only with the required event.
 */
 
 /*
@@ -239,6 +247,7 @@
 import com.goldencode.p2j.util.UniqueIdGenerator.*;
 import com.goldencode.p2j.util.Utils.DirScope;
 import com.goldencode.util.*;
+import com.goldencode.util.Stack;
 
 import static com.goldencode.p2j.util.ErrorManager.*;
 
@@ -1268,7 +1277,8 @@
          // determine the subscriptions
          // business logic can unsubscribe during this loop, so we have to use a copy of
          // the subscription list to avoid concurrent modification
-         List<Subscription> subCopy = new ArrayList<>(wa.subscriptions);
+         List<Subscription> evtSubs = wa.subscriptionsByEvent.get(event);
+         List<Subscription> subCopy = evtSubs == null ? new ArrayList<>() : new ArrayList<>(evtSubs);
          subCopy.addAll(globalSubscriptions.getAllSubscriptions());
          
          Session currentSession = SessionManager.get().getSession();
@@ -1470,7 +1480,7 @@
          {
             wa = work.get();
          }
-         subs = wa.subscriptions;
+         subs = wa.subscriptionsByEvent.computeIfAbsent(event, (k) -> new LinkedList<Subscription>());
       }
       
       if (subs == null)
@@ -1525,6 +1535,9 @@
             wa = work.get();
          }
          wa.subscriptions.add(sub);
+         List<Subscription> evtSubs = 
+            wa.subscriptionsByEvent.computeIfAbsent(event, (k) -> new LinkedList<Subscription>());
+         evtSubs.add(sub);
       }
       
       return true;
@@ -1658,6 +1671,7 @@
    static void cleanupSubscriptions(Object resource)
    {
       WorkArea wa = work.get();
+      Set<Subscription> removed = Collections.newSetFromMap(new IdentityHashMap<>());
       Iterator<Subscription> iter = wa.subscriptions.iterator();
       while (iter.hasNext())
       {
@@ -1666,6 +1680,23 @@
          if (sub.subscriber.equals(resource))
          {
             iter.remove();
+            removed.add(sub);
+         }
+      }
+      
+      if (removed.isEmpty())
+      {
+         return;
+      }
+      
+      Iterator<Map.Entry<character, LinkedList<Subscription>>> iter2 = wa.subscriptionsByEvent.entrySet().iterator();
+      while (iter2.hasNext())
+      {
+         Map.Entry<character, LinkedList<Subscription>> entry = iter2.next();
+         entry.getValue().removeAll(removed);
+         if (entry.getValue().isEmpty())
+         {
+            iter2.remove();
          }
       }
       
@@ -1748,6 +1779,7 @@
          
          boolean found = false;
          
+         WorkArea wa = work.get();
          List<Subscription> subs;
          if (global)
          {
@@ -1755,9 +1787,14 @@
          }
          else
          {
-            subs = work.get().subscriptions;
+            subs = event == null ? work.get().subscriptions : wa.subscriptionsByEvent.get(event);
+            if (subs == null)
+            {
+               subs = Collections.emptyList();
+            }
          }
          
+         Set<Subscription> removed = Collections.newSetFromMap(new IdentityHashMap<>());
          Iterator<Subscription> itr = subs.iterator();
          while (itr.hasNext())
          {
@@ -1795,12 +1832,40 @@
                {
                   // remove this subscription
                   itr.remove();
+                  removed.add(sub);
                }
                
                found = true;
             }
          }
          
+         if (!removed.isEmpty())
+         {
+            if (event == null)
+            {
+               Iterator<Map.Entry<character, LinkedList<Subscription>>> iter = 
+                  wa.subscriptionsByEvent.entrySet().iterator();
+               while (iter.hasNext())
+               {
+                  Map.Entry<character, LinkedList<Subscription>> entry = iter.next();
+                  entry.getValue().removeAll(removed);
+                  if (entry.getValue().isEmpty())
+                  {
+                     iter.remove();
+                  }
+               }
+            }
+            else
+            {
+               if (subs.isEmpty())
+               {
+                  wa.subscriptionsByEvent.remove(event);
+               }
+
+               wa.subscriptions.removeAll(removed);
+            }
+         }
+
          // if a specific event is used and no subscriptions found, then error
          if (!found && event != null)
          {
@@ -2639,7 +2704,7 @@
    {
       Object referent = wa.thisProcedures.peek();
       
-      return new handle(locateProcedure(wa, referent).phandle);
+      return (referent != null) ? new handle(locateProcedure(wa, referent).phandle) : new handle();
    }
    
    /**
@@ -4309,6 +4374,9 @@
       /** The global list of subscriptions, for this context. */
       private List<Subscription> subscriptions = new LinkedList<>();
       
+      /** Per-event subscribes, to avoid iterating all subscriptions when performing a PUBLISH. */
+      private Map<character, LinkedList<Subscription>> subscriptionsByEvent = new HashMap<>();
+      
       /** 
        * This will store the a snapshot of the block stack when the first global buffer was
        * used. This is used when a persistent procedure should be deleted: the delete will
@@ -5109,6 +5177,12 @@
          // side.  in this case, THIS-PROCEDURE will remain unchanged.
          wa.publishSourceProcedure = publisher;
          
+         // backup the parameters
+         Object[] saveParams = params == null || modes == null ? null : new Object[params.length];
+         for (int i = 0; i < params.length; i++)
+         {
+            saveParams[i] = params[i];
+         }
          try
          {
             // even if silent error mode is enabled by default, when the procedure is
@@ -5121,6 +5195,20 @@
             // ensure it remains null, in case for any reason the internal proc is not 
             // executed
             wa.publishSourceProcedure = null;
+            
+            if (saveParams != null)
+            {
+               for (int i = 0; i < saveParams.length; i++)
+               {
+                  if (saveParams[i] != params[i]            &&
+                      saveParams[i] instanceof BaseDataType &&
+                      modes.charAt(i) != 'I')
+                  {
+                     ((BaseDataType) saveParams[i]).assign(((BaseDataType) params[i]));
+                     params[i] = saveParams[i];
+                  }
+               }
+            }
          }
       }
    }

=== modified file 'src/com/goldencode/p2j/util/ProfilerUtils.java'
--- src/com/goldencode/p2j/util/ProfilerUtils.java	2020-04-28 14:03:40 +0000
+++ src/com/goldencode/p2j/util/ProfilerUtils.java	2020-12-05 02:01:57 +0000
@@ -4,11 +4,14 @@
 **
 ** Copyright (c) 2018-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20180510 Created initial version.
 ** 002 CA  20190423 Added DIRECTORY attribute and WRITE-DATA() method, stubs only.
 ** 003 CA  20200428 Added COVERAGE, TRACING, TRACE-FILTER and USER-DATA() stubs.
+** 004 OM  20201030 Invalid attribute API support for getters/setters.
+**     OM  20201203 Fixed handling of READ/ONLY attributes.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -173,8 +176,7 @@
    }
    
    /**
-    * API needed to implement read-only attribute assignment (a 4GL 
-    * "feature").
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
     * 
     * @param    attribute
     *           The attribute's name.
@@ -183,13 +185,24 @@
     */
    public static void readOnlyError(String attribute)
    {
-      final String msg = "**%s is not a settable attribute for %s";
-      String err = String.format(msg,
-                                 attribute.toUpperCase(),
-                                 asHandle().unwrapSession().getResourceType().toStringMessage());
-      ErrorManager.recordOrShowError(4052, err, false, false, false);
-   }
-
+      ErrorManager.recordOrShowError(4052, attribute.toUpperCase(), "settable", LegacyResource.PSEUDO_WIDGET);
+   }
+   
+   /**
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
+    * 
+    * @param    attribute
+    *           The attribute's name.
+    * @param    expr
+    *           The value which is attempted to be assigned to the read-only attribute. 
+    *
+    * @see      handle#readOnlyError(handle, String, Object)
+    */
+   public static void readOnlyError(String attribute, Object expr)
+   {
+      ErrorManager.recordOrShowError(4052, attribute.toUpperCase(), "settable", LegacyResource.PSEUDO_WIDGET);
+   }
+   
    /**
     * Set the value of PROFILER:PROFILING attribute. 
     * 
@@ -505,4 +518,4 @@
       /** The value of the PROFILER:FILENAME attribute. */
       private String filename = null;
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/util/ProxyProcedureWrapper.java'
--- src/com/goldencode/p2j/util/ProxyProcedureWrapper.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/util/ProxyProcedureWrapper.java	2020-10-27 20:36:47 +0000
@@ -13,6 +13,7 @@
 ** 006 CA  20200827 Reworked asynchronous invocations to perform all context-local work on the Conversation 
 **                  thread, and let only the actual invocation be performed in an AssociatedThread.
 ** 007 AIL 20200622 Avoid deleting multiple times.
+**     CA  20201027 The remote side can delete the IN HANDLE used by the requester at the RUN statement.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -272,7 +273,7 @@
     */
    public void delete()
    {
-      if (asyncRequestCount > 0)
+      if (referent != null && asyncRequestCount > 0)
       {
          // can't delete if async req count > 0
          final String msg = "Handle value supplied to the DELETE PROCEDURE/OBJECT statement " +
@@ -282,7 +283,7 @@
          return;
       }
       
-      if (!server._connected())
+      if (referent != null && !server._connected())
       {
          final String err = "SERVER  is not connected; cannot delete procedure handle or object";
          ErrorManager.recordOrShowError(5456, err, false, false, false);
@@ -315,15 +316,18 @@
       handle.removeResource(this);
 
       // delete the remote procedure
-      AppServerHelper appServer = (AppServerHelper) server.getServerHelper();
-      if (!appServer.deleteProcedure((String) get()))
+      if (referent != null)
       {
-         final String err = "Unable to find persistent procedure handle for proxy %s";
-         ErrorManager.displayError(5494, String.format(err, this.referent), false);
+         AppServerHelper appServer = (AppServerHelper) server.getServerHelper();
+         if (!appServer.deleteProcedure((String) get()))
+         {
+            final String err = "Unable to find persistent procedure handle for proxy %s";
+            ErrorManager.displayError(5494, String.format(err, this.referent), false);
+         }
+   
+         // remove the referent
+         this.referent = null;
       }
-
-      // remove the referent
-      this.referent = null;
    }
    
    /**

=== modified file 'src/com/goldencode/p2j/util/SOAPHeaderEntryImpl.java'
--- src/com/goldencode/p2j/util/SOAPHeaderEntryImpl.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/p2j/util/SOAPHeaderEntryImpl.java	2020-11-20 18:40:59 +0000
@@ -4,17 +4,17 @@
 **
 ** Copyright (c) 2013-2017, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20130216 Created initial version.
-** 002 CA  20130221 Added ADM-DATA, LOCAL-NAME, UNIQUE-ID and NAMESPACE-URI support. Fixed 
-**                  resource type.
+** 002 CA  20130221 Added ADM-DATA, LOCAL-NAME, UNIQUE-ID and NAMESPACE-URI support. Fixed resource type.
 ** 003 OM  20130304 Refactored isValid and isUnknown of WrappedResource to valid and unknown.
 ** 004 CA  20130603 resourceDelete must return a boolean value.
-** 005 CA  20130927 Removed setResourceType, as the type is determined from LegacyResource 
-**                  annotation.
+** 005 CA  20130927 Removed setResourceType, as the type is determined from LegacyResource annotation.
 ** 006 HC  20131215 Implemented ADM-DATA and UNIQUE-ID attribute.
 ** 007 CA  20140107 Added runtime support.
+** 008 OM  20201120 Changed method names to fit the buffer no-bean prefix convention.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -72,12 +72,9 @@
 
 import java.io.*;
 import java.util.logging.*;
-
 import javax.xml.parsers.*;
-
 import org.w3c.dom.*;
 import org.xml.sax.*;
-
 import com.goldencode.p2j.xml.*;
 import com.goldencode.util.*;
 import com.goldencode.p2j.util.UniqueIdGenerator.IdKind;
@@ -525,7 +522,7 @@
     * @return    See above.
     */
    @Override
-   public character getNamespaceURI()
+   public character namespaceURI()
    {
       Node node = getHeaderNode();
       
@@ -546,7 +543,7 @@
     *           Not used.
     */
    @Override
-   public void setNamespaceURI(String uri)
+   public void namespaceURI(String uri)
    {
       readOnlyError("NAMESPACE-URI");
    }
@@ -559,7 +556,7 @@
     *           Not used.
     */
    @Override
-   public void setNamespaceURI(character uri)
+   public void namespaceURI(character uri)
    {
       readOnlyError("NAMESPACE-URI");
    }
@@ -677,4 +674,4 @@
    {
       return parent == null ? null : parent.getHeaderNode(headerKey);
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/util/SecurityOps.java'
--- src/com/goldencode/p2j/util/SecurityOps.java	2020-06-26 23:18:39 +0000
+++ src/com/goldencode/p2j/util/SecurityOps.java	2020-11-25 18:40:50 +0000
@@ -2,9 +2,9 @@
 ** Module   : SecurityOps.java
 ** Abstract : Progress 4GL compatible security interface
 **
-** Copyright (c) 2006-2019, Golden Code Development Corporation.
+** Copyright (c) 2006-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ---------------------------Description----------------------------
+** -#- -I- --Date-- --JPRM-- ----------------------------------Description-----------------------------------
 ** 001 GES 20060331   @25287 First version implementing the USERID builtin function.
 ** 002 GES 20060331   @25294 Added ENCODE support (not Progress 4GL compatible).
 ** 003 NVS 20060418   @25585 Added changePassword() convenience method to be called from
@@ -46,7 +46,8 @@
 ** 027 IAS 20190820          Fixed temporary workaround for validateCP().
 ** 028 IAS 20191015          Rework SET-CLIENT/SET-DB-CLIENT
 ** 029 IAS 20200112          Added DOMAIN-ACCESS-CODE validation with for sealed CP
-** 030 IAS 20200428          Check if SEC_AUTHETICATION_* tables exist before trying to access them
+** 030 IAS 20200428          Check if SEC_AUTHETICATION_* tables exist before trying to access them.
+** 031 GES 20201125          Added OS-USERID as a FWD-specific 4GL extension.
 */
 
 /*
@@ -116,6 +117,7 @@
 // explicitly import Base64 class, as it conflicts with other versions
 import com.goldencode.p2j.directory.Base64;
 import com.goldencode.p2j.persist.*;
+import com.goldencode.p2j.main.*;
 import com.goldencode.p2j.security.*;
 import com.goldencode.p2j.security.SecurityManager;
 import com.goldencode.p2j.util.ClientPrincipal.*;
@@ -127,21 +129,22 @@
  * functions.  At this time, the following Progress 4GL functions are handled:
  * <p>
  * <pre>
- * Progress Function              Java Equivalent
+ * 4GL Function                   Java Equivalent
  * ---------------------------    ---------------------------
- * USERID                         {@link #getUserId}
- * USERID(dbname)                 {@link #getUserIdFromDB}
+ * BASE64-DECODE                  {@link #base64Decode}
+ * BASE64-ENCODE                  {@link #base64Encode}
  * ENCODE                         {@link #encode}
- * BASE64-ENCODE                  {@link #base64Encode}
- * BASE64-DECODE                  {@link #base64Decode}
  * ENCRYPT                        {@link #encrypt}
  * GENERATE-PBE-KEY               {@link #generatePBEKey}
  * GENERATE-PBE-SALT              {@link #generatePBESalt}
  * GENERATE-UUID                  {@link #generateUUID}
  * GUID                           {@link #convertUniversalUIDToGlobalUID}
- * SHA1-DIGEST                    {@link #sha1Digest}
  * MD5-DIGEST                     {@link #md5Digest}
  * MESSAGE-DIGEST                 {@link #messageDigest}
+ * OS-USERID                      {@link #getOSUserid}
+ * SHA1-DIGEST                    {@link #sha1Digest}
+ * USERID                         {@link #getUserId}
+ * USERID(dbname)                 {@link #getUserIdFromDB}
  * </pre>
  * <p>
  */
@@ -365,6 +368,18 @@
    }
 
    /**
+    * Returns the os-userid associated with the current user.  This is a FWD-specific 4GL extension which
+    * uses native APIs to read the operating-system userid/username (e.g. GetUserNameA in Windows).
+    *
+    * @return   The user's operating system userid/username or the empty string in the case of any problem.
+    */
+   public static character getOSUserId() 
+   {
+      ClientParameters params = StandardServer.getClientParameters();
+      return new character(params.osUserName == null ? "" : params.osUserName);
+   }
+   
+   /**
     * Returns the default userid used for authentication to databases. 
     * If configured with metadata security and the database does not have users defined in its
     * metadata, we will use the <code>getDefaultUserid()</code> user id.

=== modified file 'src/com/goldencode/p2j/util/SecurityPolicyManager.java'
--- src/com/goldencode/p2j/util/SecurityPolicyManager.java	2020-06-19 16:09:41 +0000
+++ src/com/goldencode/p2j/util/SecurityPolicyManager.java	2020-12-05 02:01:57 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2019-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 IAS 20190502 Created initial version.
 ** 002 IAS 20190515 Added runtime support for attributes and cryptography.
 ** 003 IAS 20190619 Added runtime support for GET-CLIENT, SET-CLIENT, REGISTER-DOMAIN, 
@@ -15,6 +15,7 @@
 ** 006 CA  20191119 Disabled the 16388 error in setClient, as it fails if the DBs are already
 **                  locked with the same client-principal.
 ** 007 IAS 20200115 Added domain access code lookup by domain name
+** 008 OM  20201203 Fixed handling of READ/ONLY attributes.
 */
 
 /*
@@ -752,10 +753,9 @@
    {
       return loadDomains(new character(name));
    }
-
+   
    /**
-    * API needed to implement read-only attribute assignment (a 4GL 
-    * "feature").
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
     * 
     * @param    attribute
     *           The attribute's name.
@@ -766,7 +766,22 @@
    {
       handle.readOnlyError(asHandle(), attribute);
    }
-
+   
+   /**
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
+    * 
+    * @param    attribute
+    *           The attribute's name.
+    * @param    expr
+    *           The value which is attempted to be assigned to the read-only attribute. 
+    *
+    * @see      handle#readOnlyError(handle, String, Object)
+    */
+   public static void readOnlyError(String attribute, Object expr)
+   {
+      handle.readOnlyError(asHandle(), attribute);
+   }
+   
    /**
     * Get this resource's ID.
     * 

=== modified file 'src/com/goldencode/p2j/util/SessionUtils.java'
--- src/com/goldencode/p2j/util/SessionUtils.java	2019-11-01 21:43:07 +0000
+++ src/com/goldencode/p2j/util/SessionUtils.java	2020-12-05 02:01:57 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description-----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 CA  20130112 Created initial version.
 ** 002 CS  20130214 Added support for SESSION: EXPORT, SERVER-OPERATING-MODE, REMOTE attributes.
 ** 003 CA  20130221 getType was renamed to getResourceType.
@@ -69,6 +69,8 @@
 **     CA  20200427 Added support for SERVER-CONNECTION-BOUND, SERVER-CONNECTION-CONTEXT, 
 **                  CURRENT-REQUEST-INFO, CURRENT-RESPONSE-INFO, CONTEXT-HELP-FILE, 
 **                  SERVER-CONNECTION-BOUND-REQUEST.
+** 040 OM  20201030 Invalid attribute API support for getters/setters.
+**     OM  20201203 Fixed handling of READ/ONLY attributes.
 */
 
 /*
@@ -272,8 +274,7 @@
    }
    
    /**
-    * API needed to implement read-only attribute assignment (a 4GL 
-    * "feature").
+    * API needed to implement read-only attribute assignment (a 4GL "feature").
     * 
     * @param    attribute
     *           The attribute's name.
@@ -296,17 +297,29 @@
          attribute = "WIDTH";
       }
       
-      // the error message for session read-only attributes is different 
-      // from the one emitted by handle.readOnlyError() - settable is spelled with 
-      // two 't' and there is no word 'widget' at the end of the message.
-      final String msg = "**%s is not a settable attribute for %s";
-      String err = String.format(msg,
-                                 attribute.toUpperCase(),
-                                 asHandle().unwrapSession().getResourceType().toStringMessage());
-      ErrorManager.recordOrShowError(4052, err, false, false, false);
+      // the error message for session read-only attributes is different from the one emitted by
+      // handle.readOnlyError() - settable is spelled with two 't' and there is no word 'widget' at the end of
+      // the message.
+      ErrorManager.recordOrShowError(4052, attribute.toUpperCase(), "settable", LegacyResource.PSEUDO_WIDGET);
    }
    
    /**
+    * Emitted and to be used only in cases the attribute is read-only. It displays appropriate error message.
+    * <br>
+    * TODO: decide whether the following message can be raised here:<br>
+    * {@code **Unable to assign UNKNOWN value to attribute <attribute> on <widget id>.}
+    *
+    * @param    attribute
+    *           The read-only attribute.
+    * @param    expr
+    *           The value which is attempted to be assigned to the read-only attribute. 
+    */
+   public static void readOnlyError(String attribute, Object expr)
+   {
+      readOnlyError(attribute);
+   }   
+   
+   /**
     * Indicates if the session is for the context of an appserver.
     * 
     * @return   <code>true</code> if the session is for the context of an appserver.

=== modified file 'src/com/goldencode/p2j/util/StaleProcedureManager.java'
--- src/com/goldencode/p2j/util/StaleProcedureManager.java	2020-09-07 16:23:31 +0000
+++ src/com/goldencode/p2j/util/StaleProcedureManager.java	2020-10-15 07:54:57 +0000
@@ -8,6 +8,7 @@
 ** -#- -I- --Date-- --------------------------------Description-----------------------------------
 ** 001 AIL 20200622 Created initial version.
 **         20200623 Made all methods static and now using the local context.
+**     CA  20201015 Replaced java.util.Stack with a non-synchronized custom implementation.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -66,9 +67,9 @@
 
 import java.util.*;
 
+import com.goldencode.util.Stack;
 import com.goldencode.p2j.security.*;
 
-
 /**
  * Enclosing several methods for working with stale referents.
  */

=== modified file 'src/com/goldencode/p2j/util/TableParameter.java'
--- src/com/goldencode/p2j/util/TableParameter.java	2020-04-27 16:17:03 +0000
+++ src/com/goldencode/p2j/util/TableParameter.java	2021-01-06 16:09:05 +0000
@@ -2,9 +2,9 @@
 ** Module   : TableParameter.java
 ** Abstract : Container for table handle and calling-side APPEND option.
 **
-** Copyright (c) 2013-2020, Golden Code Development Corporation.
+** Copyright (c) 2013-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 SVL 20130226 Created initial version.
 ** 002 SVL 20140106 Added table handle variable.
 ** 003 CA  20140110 Added support for usage from java side (when there is no DMO passed).
@@ -21,6 +21,7 @@
 **     CA  20190826 If a table-handle parameter is for a temp-table, then set the 'table'
 **                  Java field for the default-buffer, and not the temp-table.
 ** 011 CA  20200427 Allow a TABLE to be read from JSON argument, in case of a remote REST call.
+** 012 OM  20210106 Dropped 2nd parameter of TEMP-TABLE-PREPARE.
 */
 
 /*
@@ -252,15 +253,14 @@
       this.remoteParameter = true;
       
       // if INPUT, create a dynamic table
-      if (resultSet.isInput() && !resultSet.isFromJson())
+      if (resultSet.isInput() && !resultSet.isFromJson() && resultSet.isAfterTable())
       {
-         BufferImpl buff = TempTableBuilder.createRemoteTable(resultSet.getTableName(), 
-                                                              resultSet.isAfterTable(), 
-                                                              resultSet.propertyIterator(), 
-                                                              resultSet.getIndexes(), 
-                                                              resultSet.getXmlns(), 
+         BufferImpl buff = TempTableBuilder.createRemoteTable(resultSet.getTableName(),
+                                                              resultSet.propertyIterator(),
+                                                              resultSet.getIndexes(),
+                                                              resultSet.getXmlns(),
                                                               resultSet.getXmlPrefix());
-
+         
          TemporaryBuffer.insertAllRows(resultSet,
                                        (Temporary) buff,
                                        resultSet.isAppend(),

=== modified file 'src/com/goldencode/p2j/util/TargetLob.java'
--- src/com/goldencode/p2j/util/TargetLob.java	2019-12-03 21:59:03 +0000
+++ src/com/goldencode/p2j/util/TargetLob.java	2021-01-29 00:53:41 +0000
@@ -2,13 +2,14 @@
 ** Module   : TargetLob.java
 ** Abstract : A target parameter to a LobCopy operation.
 **
-** Copyright (c) 2019, Golden Code Development Corporation.
+** Copyright (c) 2019-2021, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------Description---------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 ECF 20190510 Created initial version.
 ** 002 ECF 20190706 Implemented COPY-LOB runtime.
 ** 003 CA  20190717 Automatically resize a memptr target if the source doesn't fit.
-** 004 CA  20191203 Fixed overlay and unknown COPY-LOB related bugs. 
+** 004 CA  20191203 Fixed overlay and unknown COPY-LOB related bugs.
+** 005 OM  20210128 Reset the size of memptr to 0 before reallocating. 
 */
 
 /*
@@ -309,6 +310,7 @@
             long lobSize = m.lengthOf();
             if (lobSize < offset + srcLength)
             {
+               m.setLength(0); // reset first, otherwise resize won't work. TODO: is this correct?
                m.setLength(offset + srcLength);
             }
          }

=== modified file 'src/com/goldencode/p2j/util/TextOps.java'
--- src/com/goldencode/p2j/util/TextOps.java	2021-01-29 08:05:23 +0000
+++ src/com/goldencode/p2j/util/TextOps.java	2021-01-31 10:14:52 +0000
@@ -36,8 +36,9 @@
 **                  slowing down.
 **     ME  20201009 Added helper method to check if text is empty (unknown or contains only spaces).
 **     ME  20201127 Use resource id for objects in substitute.
+**     OM  20201202 Fixed support for substitution of Java Boolean values.
+**     VVT 20210106 splitInt(): typo in javadoc fixed.
 **     ME  20210128 Avoid using java's trim to check if string is empty, 4GL only consider spaces to be empty (not tab, cr, lf). 
-** 
 */
 
 /*
@@ -6182,7 +6183,7 @@
    }
    
    /**
-    * Opimized replacement for JavaSE split function.  Considering the count option as <code>-1</code>.
+    * Optimized replacement for JavaSE split function.  Considering the count option as <code>-1</code>.
     * 
     * @param    src
     *           The source string to split.
@@ -6439,7 +6440,12 @@
                      // make a replacement if it is an object we recognize
                      if (obj instanceof String)
                      {
-                        sb.append((String) obj);   
+                        sb.append((String) obj);
+                     }
+                     else if (obj instanceof Boolean)
+                     {
+                        // this is required because P4GL uses yes/no instead of true/false
+                        sb.append(new logical(((Boolean) obj)));
                      }
                      else if (obj instanceof character)
                      {

=== modified file 'src/com/goldencode/p2j/util/TransactionManager.java'
--- src/com/goldencode/p2j/util/TransactionManager.java	2020-10-03 16:02:03 +0000
+++ src/com/goldencode/p2j/util/TransactionManager.java	2021-01-13 21:04:41 +0000
@@ -452,6 +452,8 @@
 **                           local lookups.
 **     CA  20200927          Avoid context-local lookups by relying on the helper instance.
 **     CA  20201003          Use an identity HashSet where possible.
+**     CA  20201015          Replaced java.util.Stack with a non-synchronized custom implementation.
+**     OM  20201125          Javadoc update.
 */
 
 /*
@@ -511,6 +513,7 @@
 
 import java.util.*;
 import java.util.logging.*;
+import com.goldencode.util.Stack;
 import com.goldencode.p2j.net.*;
 import com.goldencode.p2j.persist.*;
 import com.goldencode.p2j.persist.meta.*;
@@ -677,15 +680,12 @@
    private static final Map<String, DbTransactions> transactionData = new HashMap<>();
    
    /**
-    * Initialize a metaschema database by initializing a transaction listener and storing it for
-    * later use.
+    * Initialize a metaschema database by initializing a transaction listener and storing it for later use.
     * <p>
     * Called only at server startup.
     * 
     * @param   primaryDB
     *          Primary database for which metaschema information is being managed.
-    * @param   metaDB
-    *          Metaschema database for the given primary database.
     */
    public static void initializeMeta(Database primaryDB)
    {

=== modified file 'src/com/goldencode/p2j/util/UnnamedStreams.java'
--- src/com/goldencode/p2j/util/UnnamedStreams.java	2020-09-30 07:14:42 +0000
+++ src/com/goldencode/p2j/util/UnnamedStreams.java	2020-10-15 07:54:57 +0000
@@ -59,6 +59,7 @@
 ** 020 CA  20190707          Stub support for OUTPUT TO ... LOB-DIR.
 ** 021 CA  20200930          Refactored to remove the singleton scopeable instance (which forced the scope 
 **                           notifications to use context-local state).
+**     CA  20201015          Replaced java.util.Stack with a non-synchronized custom implementation.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -116,6 +117,7 @@
 package com.goldencode.p2j.util;
 
 import java.util.*;
+import com.goldencode.util.Stack;
 import com.goldencode.p2j.security.ContextLocal;
 import com.goldencode.p2j.ui.*;
 

=== modified file 'src/com/goldencode/p2j/util/Utils.java'
--- src/com/goldencode/p2j/util/Utils.java	2021-01-21 12:32:37 +0000
+++ src/com/goldencode/p2j/util/Utils.java	2021-01-31 10:14:52 +0000
@@ -150,7 +150,9 @@
 **     GES 20200922          Minor optimizations in set processing.
 **     CA  20200924          Added Utils.invoke, to execute methods via ReflectASM instead of Method.invoke.
 **     CA  20201003          Use an identity HashSet where possible.
-** 073 ME  20210121          Fix longToBytesLE to use little end order.
+**     CA  20201011          Added intersect() and containsAll() for RoaringBitmap (fast-access bitmap used
+**                           instead of integer sets).
+**     ME  20210121          Fix longToBytesLE to use little end order.
 */
 
 /*
@@ -214,6 +216,10 @@
 import java.util.function.*;
 import java.util.logging.*;
 import java.util.stream.*;
+
+import org.roaringbitmap.*;
+import org.roaringbitmap.longlong.*;
+
 import java.nio.charset.*;
 import java.lang.reflect.*;
 
@@ -3963,6 +3969,138 @@
    }
    
    /**
+    * Determines whether two sets have common elements.
+    * 
+    * @param <T> 
+    *
+    * @param    a
+    *           a set
+    * @param    b
+    *           another set
+    *
+    * @return   <code>true</code> if there are common elements
+    */
+   public static boolean intersect(RoaringBitmap a, RoaringBitmap b)
+   {
+      if (a == null || b == null || a.isEmpty() || b.isEmpty())
+      {
+         return false;
+      }
+      
+      int aSz  = a.getCardinality();
+      int bSz  = b.getCardinality();
+      
+      // iterate the smaller of the two sets
+      Iterator<Integer> iter = aSz <= bSz ? a.iterator() : b.iterator();
+      RoaringBitmap     comp = aSz <= bSz ? b : a;
+         
+      while (iter.hasNext())
+      {     
+         if (comp.contains(iter.next()))
+         {
+            return true;
+         }
+      }
+      
+      return false;
+   }
+   
+   /**
+    * Determines whether two sets have common elements.
+    * 
+    * @param <T> 
+    *
+    * @param    a
+    *           a set
+    * @param    b
+    *           another set
+    *
+    * @return   <code>true</code> if there are common elements
+    */
+   public static boolean intersect(Roaring64Bitmap a, Roaring64Bitmap b)
+   {
+      if (a == null || b == null || a.isEmpty() || b.isEmpty())
+      {
+         return false;
+      }
+      
+      int aSz  = a.getIntCardinality();
+      int bSz  = b.getIntCardinality();
+      
+      // iterate the smaller of the two sets
+      Iterator<Long>  iter = aSz <= bSz ? a.iterator() : b.iterator();
+      Roaring64Bitmap comp = aSz <= bSz ? b : a;
+         
+      while (iter.hasNext())
+      {     
+         if (comp.contains(iter.next()))
+         {
+            return true;
+         }
+      }
+      
+      return false;
+   }
+
+   /**
+    * Check if the given instance contains all elements from the other instance.
+    * 
+    * @param    instance
+    *           The first instance.
+    * @param    other
+    *           The other instance.
+    *           
+    * @return   <code>true</code> if the difference between the 'other' and 'instance' is empty.
+    */
+   public static boolean containsAll(RoaringBitmap instance, RoaringBitmap other)
+   {
+      if (instance.getCardinality() < other.getCardinality())
+      {
+         return false;
+      }
+      
+      Iterator<Integer> iter = other.iterator();
+      while (iter.hasNext())
+      {
+         if (!instance.contains(iter.next()))
+         {
+            return false;
+         }
+      }
+      
+      return true;
+   }
+   
+   /**
+    * Check if the given instance contains all elements from the other instance.
+    * 
+    * @param    instance
+    *           The first instance.
+    * @param    other
+    *           The other instance.
+    *           
+    * @return   <code>true</code> if the difference between the 'other' and 'instance' is empty.
+    */
+   public static boolean containsAll(Roaring64Bitmap instance, Roaring64Bitmap other)
+   {
+      if (instance.getIntCardinality() < other.getIntCardinality())
+      {
+         return false;
+      }
+      
+      Iterator<Long> iter = other.iterator();
+      while (iter.hasNext())
+      {
+         if (!instance.contains(iter.next()))
+         {
+            return false;
+         }
+      }
+      
+      return true;
+   }
+
+   /**
     * Produces both the intersection and difference of two sets and puts those values into the 
     * given result set instances.
     * 

=== modified file 'src/com/goldencode/p2j/util/WidgetPool.java'
--- src/com/goldencode/p2j/util/WidgetPool.java	2020-05-05 13:27:09 +0000
+++ src/com/goldencode/p2j/util/WidgetPool.java	2020-11-17 20:03:34 +0000
@@ -22,6 +22,7 @@
 **     CA  20190326 Refactored to reduce the context-local usage.
 ** 010 CA  20190811 Optimized deleteNonPersistentPools, when there are no IDs in the set.
 ** 011 CA  20200505 Set the ProcedureManager and TransactionManager helper only for runtime.
+** 012 CA  20201117 Fixed a leak with unnamedProcPools, which was not removing deleted referents. 
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -535,6 +536,7 @@
          // remove this from the map, is no longer needed
          wa.poolsPerExtProg.remove(proc);
       }
+      wa.unnamedProcPools.remove(proc);
    }
    
    /**
@@ -961,6 +963,7 @@
             if (external)
             {
                poolsPerExtProg.remove(oThis);
+               unnamedProcPools.remove(oThis);
             }
          }
          else

=== modified file 'src/com/goldencode/p2j/util/character.java'
--- src/com/goldencode/p2j/util/character.java	2020-10-09 15:23:21 +0000
+++ src/com/goldencode/p2j/util/character.java	2020-12-22 21:20:33 +0000
@@ -234,6 +234,7 @@
 ** 097 CA  20200304          Allow STRING(javaInstance).
 ** 098 ME  20200810          Switched to improved I18N workers for chr/asc.
 ** 099 IAS 20201007          Added Type enum
+** 100 EVL 20201222          Variable based on unknown rowid var should be made unknown, not known '?'.
 */
 
 /*
@@ -1571,7 +1572,7 @@
    {
       if (r.isUnknown())
       {
-         return new character("?");
+         return new character();  // not "?", just return unknown
       }
       
       StringBuilder sb = new StringBuilder("0x");

=== modified file 'src/com/goldencode/p2j/util/handle.java'
--- src/com/goldencode/p2j/util/handle.java	2021-01-28 07:07:34 +0000
+++ src/com/goldencode/p2j/util/handle.java	2021-01-31 10:14:52 +0000
@@ -232,6 +232,10 @@
 ** 123 AIL 20200826          Added DummyResource used for representing invalid resources with fixed id.
 ** 124 IAS 20200908          Rework (de)serialization.
 ** 125 IAS 20201007          Added Type enum
+**     SVL 20201221          Added unwrapMinHeightChars.
+**     OM  20201030          Invalid attribute API support for getters/setters.
+**     OM  20201118          Extracted SERIALIZE-HIDDEN into independent interface.
+**     OM  20201203          Fixed handling of READ/ONLY attributes.
 ** 126 ME  20210128          Throw instead of force display error for invalid handle access.
 */
 
@@ -302,10 +306,9 @@
 import com.goldencode.p2j.reporting.*;
 import com.goldencode.p2j.security.*;
 import com.goldencode.p2j.ui.*;
-/** Calendar must be imported explicitly */ 
+/* Calendar must be imported explicitly */ 
 import com.goldencode.p2j.ui.Calendar;
 import com.goldencode.p2j.ui.ocx.*;
-import com.goldencode.p2j.util.BaseDataType.Type;
 import com.goldencode.p2j.xml.*;
 import com.goldencode.proxy.*;
 
@@ -387,6 +390,12 @@
     */
    private boolean possibleChained = true;
    
+   /**
+    * A marker for the unknown value of the argument of {@code readOnlyError()}. The semantic of it is that
+    * the value was not passed from ABL code, not that it is ABL {@code ?} value.
+    */
+   public static final Object UNKNOWN_ARGUMENT = new Object();
+   
    static
    {
       try
@@ -557,8 +566,7 @@
    }
    
    /**
-    * Emitted and to be used only in cases the attribute is read-only. It
-    * displays appropriate error message.
+    * Emitted and to be used only in cases the attribute is read-only. It displays appropriate error message.
     * 
     * @param    h
     *           The handle used to access the attribute.
@@ -567,18 +575,50 @@
     */
    public static void readOnlyError(handle h, String attribute)
    {
+      readOnlyError(h, attribute, UNKNOWN_ARGUMENT);
+   }
+   
+   /**
+    * Emitted and to be used only in cases the attribute is read-only. It displays appropriate error message.
+    * 
+    * @param    h
+    *           The handle used to access the attribute.
+    * @param    attribute
+    *           The read-only attribute.
+    * @param    expr
+    *           The value which is attempted to be assigned to the read-only attribute. 
+    */
+   public static void readOnlyError(handle h, String attribute, Object expr)
+   {
       if (attribute == null)
       {
          throw new IllegalArgumentException("The attribute is null !");
       }
       
       CommonHandle unwrapped = unwrapImpl(h, CommonHandle.class);
-      
-      final String msg = "**%s is not a setable attribute for %s widget";
-      String err = String.format(msg,
-                                 attribute.toUpperCase(),
-                                 unwrapped.getResourceType().toStringMessage());
-      ErrorManager.recordOrShowError(4052, err, false, false, false);
+      String type = unwrapped.getResourceType().toStringMessage();
+      String uppercaseAttr = attribute.toUpperCase();
+      
+      if (expr == null || (expr instanceof BaseDataType && ((BaseDataType) expr).isUnknown()))
+      {
+         switch (uppercaseAttr)
+         {
+            // This is a list of attributes that accept unknown as value OR first check whether the attribute
+            // is writable. In these cases we must NOT raise error 4083.
+            // TODO: improve the list. If needed (too many attributes) we may need reverse the check, Ie
+            //       filter the non-unknown attributes
+            case "HANDLE":
+            case "NEXT-SIBLING":
+               break;
+            default:
+               ErrorManager.recordOrShowError(4083, uppercaseAttr, type + " widget");
+               // **Unable to assign UNKNOWN value to attribute <attribute> on <widget id>.
+               return;
+         }
+      }
+      
+      // standard "**<attribute-name> is not a <access-mode> attribute for <object-type>" message 
+      invalidAttribute(uppercaseAttr, true, type);
    }
    
    /**
@@ -698,40 +738,20 @@
    }
    
    /**
-    * This API should be called only in case of a attribute/method access using a resource which
-    * does not support it.  It shows appropriate error messages, depending on handle state and
-    * attribute/method.
-    * <p>
-    * This must not be called in cases of a not-supported attribute invoked as a lvalue (i.e. a
-    * setter for a not-supported attribute is invoked). In this case, call {@link #readOnlyError}.
-    * 
-    * @param    attr
-    *           The attribute/method name which is not supported by the handle.
-    * @param    h
-    *           The handle used to access the attribute/method.
-    */
-   public static void invalidAttribute(String attr, handle h)
-   {
-      invalidAttribute(attr, h, 4052);
-   }
-   
-   /**
-    * This API should be called only in case of a attribute/method access using a resource which
-    * does not support it.  It shows appropriate error messages, depending on handle state and
-    * attribute/method.
-    * <p>
-    * This must not be called in cases of a not-supported attribute invoked as a lvalue (i.e. a
-    * setter for a not-supported attribute is invoked). In this case, call {@link #readOnlyError}.
-    * 
-    * @param    attr
-    *           The attribute/method name which is not supported by the handle.
-    * @param    h
-    *           The handle used to access the attribute/method.
-    * @param    errNum
-    *           the error number for the for the "not a queryable attribute" warning. 
-    * 
-    */
-   public static void invalidAttribute(String attr, handle h, int errNum)
+    * This API should be called only in case of a attribute/method access using a resource which does not
+    * support it.  It shows appropriate error messages, depending on handle state and attribute/method.
+    * <p>
+    * This must not be called in cases of a not-supported attribute invoked as a lvalue (i.e. a setter for a
+    * not-supported attribute is invoked). In this case, call {@link #readOnlyError}.
+    * 
+    * @param    attr
+    *           The attribute/method name which is not supported by the handle.
+    * @param    h
+    *           The handle used to access the attribute/method.
+    * @param    setterMode
+    *           The access mode. Use {@code true} for setter and {@code false} for getter/query.
+    */
+   public static void invalidAttribute(String attr, handle h, boolean setterMode)
    {
       if (!h._isValid())
       {
@@ -743,18 +763,16 @@
          String msg1 = "Invalid handle.  Not initialized or points to a deleted object";
          int code1 = 3135;
          
-         // special cases, depending on which method is executed
-         String msg2 = "Cannot access the %s attribute because the widget does not exist";
-         msg2 = String.format(msg2, attr);
-         int code2 = 3140;
-         
          if ("dereference".equals(attr))
          {
             ErrorManager.displayError(code1, msg1, false);
          }
          else
          {
-            int[] errIds = { code1, code2 };
+            // special cases, depending on which method is executed
+            String msg2 = "Cannot access the " + attr + " attribute because the widget does not exist";
+            
+            int[] errIds = { code1, 3140 };
             String[] msgs = { msg1, msg2 };
             ErrorManager.recordOrThrowError(errIds, msgs, false, false);
          }
@@ -762,15 +780,47 @@
       else
       {
          // valid handle, wrong API, show error
-         String errMsg =  "%s is not a queryable attribute for %s widget";
-         
-         String type = h.unwrapType().getResourceType().toStringMessage();
-         String msg = String.format(errMsg, attr, type);
-         ErrorManager.recordOrShowError(errNum, msg, false, true);
+         invalidAttribute(attr, setterMode, h.unwrapType().getResourceType().toStringMessage());
       }
    }
    
    /**
+    * This API should be called only in case of a attribute/method access using a resource which does not
+    * support it.  It shows error messages #4052 with the configured message string.
+    * 
+    * @param    attr
+    *           The attribute/method name which is not supported by the handle.
+    * @param    setter
+    *           The access mode. Use {@code true} for setter and {@code false} for getter/query.
+    * @param    type
+    *           The type of the widget used to access the invalid attribute/method.
+    */
+   public static void invalidAttribute(String attr, boolean setter, String type)
+   {
+      // NOTE: the single-t "setable" is intentional to match P4GL
+      invalidAttribute(attr, setter ? "setable" : "queryable", type, "widget");
+   }
+   
+   /**
+    * This API should be called only in case of a attribute/method access using a resource which does not
+    * support it.  It shows error messages #4052 with the configured message string.
+    * 
+    * @param    attr
+    *           The attribute/method name which is not supported by the handle.
+    * @param    accessMode
+    *           The access mode. Use {@code true} for setter and {@code false} for getter/query.
+    * @param    subtype
+    *           The subtype of the widget used to access the invalid attribute/method.
+    * @param    type
+    *           The type of the widget used to access the invalid attribute/method.
+    */
+   public static void invalidAttribute(String attr, String accessMode, String subtype, String type)
+   {
+      ErrorManager.recordOrShowError(4052, attr, accessMode, subtype + " " + type);
+      // **<attribute> is not a <settable/queryable> attribute for <widget id>.
+   }
+   
+   /**
     * Remove the given resource from the context-local map of all resource.
     * <p>
     * This method should be called by all wrapped resources when deleted,
@@ -2545,6 +2595,21 @@
    }
    
    /**
+    * Unwrap this handle to a {@link SerializeHiddenable} instance. If the handle does not refer a 
+    * {@code SerializeHiddenable} object or is invalid an {@link #invalidAttrAccessProxy dynamic proxy} is
+    * returned.
+    * <p>
+    * Each unwrap call must be followed by an actual attribute/method invocation. This is needed because for
+    * invalid handles, a stack of handles is maintained, to know the state of the last used handle. 
+    * 
+    * @return   See above.
+    */
+   public SerializeHiddenable unwrapSerializeHiddenable()
+   {
+      return unwrapImpl(this, SerializeHiddenable.class);
+   }
+   
+   /**
     * Unwrap this handle to a {@link CommonProcedure} instance. If the
     * handle is not the SESSION system handle or is invalid, 
     * an {@link #invalidAttrAccessProxy dynamic proxy} is returned.
@@ -3014,6 +3079,22 @@
    {
       return unwrapImpl(this, BoxInterface.class);
    }
+
+   /**
+    * Unwrap this handle to a {@link MinHeightCharsInterface} instance. If the
+    * handle is not a widget handle or is invalid, an
+    * {@link #invalidAttrAccessProxy dynamic proxy} is returned.
+    * <p>
+    * Each unwrap call must be followed by an actual attribute/method
+    * invocation.  This is needed because for invalid handles, a stack of
+    * handles is maintained, to know the state of the last used handle.
+    *
+    * @return   See above.
+    */
+   public MinHeightCharsInterface unwrapMinHeightChars()
+   {
+      return unwrapImpl(this, MinHeightCharsInterface.class);
+   }
    
    /**
     * Unwrap this handle to a {@link BlankInterface} instance. If the
@@ -3491,6 +3572,21 @@
    }
    
    /**
+    * Unwrap this handle to a {@link DataSourceModifiable} instance. If the handle is not
+    * {@link DataSourceModifiable} or is invalid, an {@link #invalidAttrAccessProxy dynamic proxy} is
+    * returned.
+    * <p>
+    * Each unwrap call must be followed by an actual attribute/method invocation. This is needed because for
+    * invalid handles, a stack of handles is maintained, to know the state of the last used handle.
+    *
+    * @return   See above.
+    */
+   public DataSourceModifiable unwrapDataSourceModifiable()
+   {
+      return unwrapImpl(this, DataSourceModifiable.class);
+   }
+   
+   /**
     * Unwrap this handle to a {@link DataRelationInterface} instance. If the handle is not
     * {@link DataRelationInterface} or is invalid, an {@link #invalidAttrAccessProxy dynamic proxy}
     * is returned.
@@ -4267,7 +4363,7 @@
                unkn = new unknown();
             }
          }
-         else if (ret != null && BaseDataType.class.isAssignableFrom(ret))
+         else if (BaseDataType.class.isAssignableFrom(ret))
          {
             unkn = (BaseDataType) ret.newInstance();
          }
@@ -4282,7 +4378,7 @@
          }
          else
          {
-            handle.invalidAttribute(handle.getAttrOrMethodName(method, args), h);
+            handle.invalidAttribute(handle.getAttrOrMethodName(method, args), h, ret == Void.TYPE);
          }
          return unkn;
       }

=== modified file 'src/com/goldencode/p2j/util/int64.java'
--- src/com/goldencode/p2j/util/int64.java	2020-10-08 21:34:55 +0000
+++ src/com/goldencode/p2j/util/int64.java	2021-01-13 21:04:41 +0000
@@ -4,7 +4,7 @@
 **
 ** Copyright (c) 2012-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ------------------------------Description------------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 OM  20121217 Created initial version.
 ** 002 CA  20130123 Added c'tor which build a new instance from a BaseDataType
 **                  value, if possible. This should be used only when
@@ -44,7 +44,8 @@
 ** 023 GES 20200520 Added 4GL enum constructor.
 **     GES 20200603 Changed the checkBounds() signature to make it more reusable.
 **     ME  20200528 Add assign for "legacy" object - resource id.
-** 024 IAS 20201007 Added Type enum
+** 024 IAS 20201007 Added Type enum.
+**     OM  20201120 Avoid construction of supplementary, unneeded wrapping objects.
 */
 
 /*
@@ -1606,7 +1607,7 @@
       
       BigDecimal crtVal = (newVal instanceof decimal) ? ((decimal) newVal).toJavaType()
                                                       : new BigDecimal(newVal.longValue());
-                                                      
+      
       if (LOWER_BOUND.compareTo(crtVal) > 0 || UPPER_BOUND.compareTo(crtVal) < 0)
       {
          // first check for very large numbers
@@ -1622,7 +1623,7 @@
             {
                checkUndoable(true);
             }
-
+            
             unknown = false;
             value   = val;
          }
@@ -1636,7 +1637,7 @@
     */
    public Long toJavaLongType()
    {
-      return isUnknown() ? null : new Long(longValue());
+      return isUnknown() ? null : longValue();
    }
    
    /**
@@ -1646,9 +1647,9 @@
     */
    public Integer toJavaIntegerType()
    {
-      return isUnknown() ? null : new Integer(intValue());
+      return isUnknown() ? null : intValue();
    }
-
+   
    /**
     * Checks if <code>value</code> can be assigned to this data type. This is important for
     * <code>integer</code> objects where the values must fit into 32 bit storage bounds.

=== modified file 'src/com/goldencode/p2j/util/object.java'
--- src/com/goldencode/p2j/util/object.java	2020-12-17 12:16:01 +0000
+++ src/com/goldencode/p2j/util/object.java	2021-01-31 10:14:52 +0000
@@ -1,10 +1,10 @@
 /*
 ** Module   : object.java
-** Abstract : wrapper class for all OO 4GL instance references
+** Abstract : Wrapper class for all OO 4GL instance references.
 **
 ** Copyright (c) 2018-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --------------------------------------Description---------------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 GES 20181210 First version.
 ** 002 CA  20190219 Runtime implementation.
 ** 003 HC  20190701 instantiateDefault must yield the correct class type.
@@ -20,6 +20,7 @@
 **     GES 20200529 Added isTracked() and made all constructors safe for null input.
 **     GES 20200603 Moved BaseObject legacy class registration into a BaseObject static initializer.
 ** 007 IAS 20201007 Added Type enum
+**     OM  20201102 Overrode getTypeName().
 ** 008 ME  20201106 Delete the object reference when set to unknown (if valid, the destructor is called).
 **         20201111 Decrement reference instead of delete when object set to unknown.
 **         20201217 Revert compare method to only check if the reference is the same (eq <> Equal in 4GL)
@@ -81,9 +82,7 @@
 package com.goldencode.p2j.util;
 
 import java.io.*;
-
 import com.goldencode.p2j.oo.lang.*;
-import com.goldencode.p2j.util.BaseDataType.*;
 
 /**
  * Wrapper class for all OO 4GL instance references.  This is needed for compatibility with
@@ -131,7 +130,7 @@
       if (ref == null)
          return;
       
-      initialize((Class<T>) ref.getClass(), ref);
+      initialize(ref.getClass(), ref);
    }
    
    /**
@@ -143,14 +142,18 @@
    public object(ObjectResource res)
    {
       if (res == null)
+      {
          return;
+      }
       
       T ref = (T) res.ref();
       
       if (ref == null)
+      {
          return;
+      }
       
-      initialize((Class<T>) ref.getClass(), ref);
+      initialize(ref.getClass(), ref);
    }
    
    /**
@@ -378,7 +381,7 @@
          return;
       }
       
-      _BaseObject_ vref = ((object) value).ref;
+      _BaseObject_ vref = value.ref;
       if (type != null && !type.isInstance(vref))
       {
          // must be a sub-class or the same as this one
@@ -444,7 +447,7 @@
     */
    public boolean _isValid()
    {
-      return ref != null && ObjectOps.isValid(ref);
+      return ObjectOps.isValid(ref);
    }
    
    /**
@@ -651,14 +654,14 @@
    {
       if (ref != null && type == null)
       {
-         type = (Class<T>) ref.getClass();
+         type = ref.getClass();
       }
       
       if (type != null)
       {
          // this will not increment the reference count
          this.type = (Class<T>) type;
-   
+         
          String clsName = ObjectOps.getLegacyName(type);
          
          if (clsName != null)
@@ -669,15 +672,33 @@
       
       this.ref = ref;
    }
-
+   
+   /**
+    * Returns the legacy type name of the sub-class as the type was known in the 4GL.  Generally, this is
+    * equivalent to an uppercased version of the base name of the class file (all package information is
+    * removed). Child classes can override this default behavior.
+    *
+    * @return   Always {@code "Progress.Lang.Object"}.
+    */
+   @Override
+   public String getTypeName()
+   {
+      return "Progress.Lang.Object";
+   }
+   
+   /**
+    * Obtain a short description of the current object/state to be used in debugging.
+    * 
+    * @return  a short description of the current object/state.
+    */
    @Override
    public String toString()
    {
       if (_isValid())
+      {
          return ref.toLegacyString().getValue();
+      }
       
       return super.toString();
    }
-   
-   
 }

=== modified file 'src/com/goldencode/p2j/xml/SaxEntityImpl.java'
--- src/com/goldencode/p2j/xml/SaxEntityImpl.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/p2j/xml/SaxEntityImpl.java	2020-10-31 00:42:17 +0000
@@ -2,16 +2,18 @@
 ** Module   : SaxEntityImpl
 ** Abstract : SAX attributes, reader, writer common fatures iplementation.
 **
-** Copyright (c) 2013-2017, Golden Code Development Corporation.
+** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 EVL 20130208 Created initial version. Implementation is limited to the stubs to get the
 **                  converted java code compiled.
 ** 002 EVK 20130903 Moved valid() and unknown() amd removeAttribute() from XCommonImpl.
 ** 003 CA  20130927 Removed unknown() API, as by default the resource is known.
 ** 004 EVK 20131001 Implement methods and class logic. Added methods to process some SAX errors.
 ** 005 EVK 20140113 Moved method valid() to XCommonImpl class.
+** 006 OM  20201030 Invalid attribute API support for getters/setters.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -358,7 +360,7 @@
    @Override
    public logical insertAttribute(Text name, Text value, Text uri)
    {
-      invalidAttribute("INSERT-ATTRIBUTE");
+      invalidAttribute("INSERT-ATTRIBUTE", false);
       return new logical(true);
    }
 
@@ -375,7 +377,7 @@
    @Override
    public logical removeAttribute(character name, character uri)
    {
-      invalidAttribute("REMOVE-ATTRIBUTE");
+      invalidAttribute("REMOVE-ATTRIBUTE", false);
       return new logical(true);
    }
 
@@ -392,7 +394,7 @@
    @Override
    public logical removeAttribute(NumberType index, character uri)
    {
-      invalidAttribute("REMOVE-ATTRIBUTE");
+      invalidAttribute("REMOVE-ATTRIBUTE", false);
       return new logical(true);
    }
 
@@ -467,4 +469,4 @@
       String err = String.format(msg, method.toUpperCase(), status);
       ErrorManager.recordOrShowError(14609, err, false, false, false);
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/xml/XCommonImpl.java'
--- src/com/goldencode/p2j/xml/XCommonImpl.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/p2j/xml/XCommonImpl.java	2020-10-31 00:42:17 +0000
@@ -2,9 +2,9 @@
 ** Module   : XCommonImpl
 ** Abstract : SAX attributes, reader, writer common fatures iplementation.
 **
-** Copyright (c) 2013-2017, Golden Code Development Corporation.
+** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 EVL 20130214 Created initial version. Implementation is limited to the stubs to get the
 **                  converted java code compiled.
 ** 002 CA  20130221 Added Deletable support. This resource doesn't have NEXT/PREV-SIBLING support. 
@@ -14,7 +14,9 @@
 ** 006 EVK 20131001 Moved from XEntityImpl next methods:
 **                  invalidArgumentError, invalidArgumentAssignError.
 ** 007 EVK 20140113 Added method valid and resourceDelete to properly remove the object.
+** 008 OM  20201030 Invalid attribute API support for getters/setters.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -92,7 +94,7 @@
    @Override
    public character getNonamespaceSchemaLocation()
    {
-      invalidAttribute("NONAMESPACE-SCHEMA-LOCATION");
+      invalidAttribute("NONAMESPACE-SCHEMA-LOCATION", false);
       return new character();
    }
    
@@ -105,7 +107,7 @@
    @Override
    public void setNonamespaceSchemaLocation(character location)
    {
-      invalidAttribute("NONAMESPACE-SCHEMA-LOCATION");
+      invalidAttribute("NONAMESPACE-SCHEMA-LOCATION", true);
    }
    
    /**
@@ -182,7 +184,7 @@
    @Override
    public logical addSchemaLocation(character namespace, character location)
    {
-      invalidAttribute("ADD-SCHEMA-LOCATION");
+      invalidAttribute("ADD-SCHEMA-LOCATION", false);
       return new logical(true);
    }
 
@@ -418,4 +420,4 @@
    {
       return false;
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/xml/XDocumentImpl.java'
--- src/com/goldencode/p2j/xml/XDocumentImpl.java	2018-05-21 11:51:27 +0000
+++ src/com/goldencode/p2j/xml/XDocumentImpl.java	2020-11-20 18:40:59 +0000
@@ -2,9 +2,9 @@
 ** Module   : XDocumentImpl
 ** Abstract : DOM XML Document resource type implementation.
 **
-** Copyright (c) 2013-2018, Golden Code Development Corporation.
+** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 EVL 20130204 Created initial version. Major rework to use w3c backend.
 ** 002 OM  20130304 Refactored isValid and isUnknown of WrappedResource to valid and unknown.
 ** 003 CA  20130308 Refactored as XmlFactory APIs now receive a handle instance instead of 
@@ -34,7 +34,9 @@
 ** 013 HC  20160502 Javadoc fix.
 ** 014 ECF 20171101 Replaced internal com.sun imports with org.apache equivalents.
 ** 015 CA  20180520 Added all-string initializeDocumentType version.
+** 016 OM  20201120 Renamed NAMESPACE-PREFIX setter to fit buffer attributes naming convention.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -192,7 +194,7 @@
 
       return true;
    }
-
+   
    /**
     * Setter for NAMESPACE-PREFIX attribute.
     *
@@ -200,11 +202,11 @@
     *           The new value of the NAMESPACE-PREFIX attribute.
     */
    @Override
-   public void setNamespacePrefix(character prefix)
+   public void namespacePrefix(character prefix)
    {
       readOnlyError("NAMESPACE-PREFIX");
    }
-
+   
    /**
     * Get the <code>name</code> attribute of handle.
     *
@@ -1647,4 +1649,4 @@
 
       invalidArgumentError(attribute);
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/xml/XEntityImpl.java'
--- src/com/goldencode/p2j/xml/XEntityImpl.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/p2j/xml/XEntityImpl.java	2020-11-20 18:40:59 +0000
@@ -2,9 +2,9 @@
 ** Module   : XEntityImpl
 ** Abstract : DOM and SAX common implementation.
 **
-** Copyright (c) 2013-2017, Golden Code Development Corporation.
+** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 EVL 20130204 Created initial version. Major rework to use w3c backend.
 ** 002 EVL 20130214 Adding the base inheritance from XCommonImpl class to place the XML related
 **                  common features.  
@@ -29,7 +29,9 @@
 ** 012 EVK 20140113 Removed method valid(moved to XCommonImpl class) and implemented resourceDelete
 **                  method to properly remove the object.
 ** 013 CA  20140106 Made setNode public.
+** 014 OM  20201120 Renamed attribute accessors to fit buffer attributes naming convention.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -320,14 +322,12 @@
          if (e.code == DOMException.WRONG_DOCUMENT_ERR)
          {
             commonDomError("INSERT-BEFORE",
-                           "A node was used in a different document than the one the " +
-                           "created it");
+                           "A node was used in a different document than the one the created it");
          }
          else if (e.code == DOMException.HIERARCHY_REQUEST_ERR)
          {
             commonDomError("INSERT-BEFORE",
-                           "An attempt was made to reference a node in a context where it " +
-                           "does not exist");
+                           "An attempt was made to reference a node in a context where it does not exist");
          }
          else if (e.code == DOMException.NOT_FOUND_ERR)
          {
@@ -394,8 +394,7 @@
          invalidNodeError("REPLACE-CHILD");
          return new logical(false);
       }
-
-
+      
       Node newChild = ((XEntityImpl) newChildHandle.get()).getNode();
       Node oldChild = ((XEntityImpl) oldChildHandle.get()).getNode();
       try
@@ -610,14 +609,14 @@
     * @return    See above.
     */
    @Override
-   public character getNamespaceURI()
+   public character namespaceURI()
    {
       if (!isInitialized())
       {
          invalidNodeError("NAMESPACE-URI");
          return new character();
       }
-
+      
       String namespaceUri = getNode().getNamespaceURI();
       if (namespaceUri != null)
       {
@@ -628,34 +627,33 @@
          return new character("");
       }
    }
-
-   /**
-    * Setter for NAMESPACE-URI attribute. Calls {@link #readOnlyError}, as this attribute is r/o
-    * for this resource.
-    *
-    * @param    uri
-    *           Not used.
-    */
-   @Override
-   public void setNamespaceURI(String uri)
-   {
-      readOnlyError("NAMESPACE-URI");
-   }
-
-   /**
-    * Setter for NAMESPACE-URI attribute. Calls {@link #readOnlyError}, as this attribute is r/o
-    * for this resource.
-    *
-    * @param    uri
-    *           Not used.
-    */
-   @Override
-   public void setNamespaceURI(character uri)
-   {
-      readOnlyError("NAMESPACE-URI");
-   }
-
-
+   
+   /**
+    * Setter for NAMESPACE-URI attribute. Calls {@link #readOnlyError}, as this attribute is r/o
+    * for this resource.
+    *
+    * @param    uri
+    *           Not used.
+    */
+   @Override
+   public void namespaceURI(String uri)
+   {
+      readOnlyError("NAMESPACE-URI");
+   }
+   
+   /**
+    * Setter for NAMESPACE-URI attribute. Calls {@link #readOnlyError}, as this attribute is r/o
+    * for this resource.
+    *
+    * @param    uri
+    *           Not used.
+    */
+   @Override
+   public void namespaceURI(character uri)
+   {
+      readOnlyError("NAMESPACE-URI");
+   }
+   
    /**
     * Removes the specified attribute.
     *
@@ -725,9 +723,9 @@
     *           The new value of the NAMESPACE-PREFIX attribute.
     */
    @Override
-   public void setNamespacePrefix(String prefix)
+   public void namespacePrefix(String prefix)
    {
-      setNamespacePrefix(new character(prefix));
+      namespacePrefix(new character(prefix));
    }
 
    /**
@@ -737,7 +735,7 @@
     *           The new value of the NAMESPACE-PREFIX attribute.
     */
    @Override
-   public void setNamespacePrefix(character prefix)
+   public void namespacePrefix(character prefix)
    {
       readOnlyError("NAMESPACE-PREFIX");
    }
@@ -749,7 +747,7 @@
     * @return    See above.
     */
    @Override
-   public character getNamespacePrefix()
+   public character namespacePrefix()
    {
       if (!isInitialized() || LegacyResource.X_DOCUMENT.equalsIgnoreCase(type()))
       {
@@ -887,4 +885,4 @@
       }
       return true;
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/p2j/xml/XNodeRefImpl.java'
--- src/com/goldencode/p2j/xml/XNodeRefImpl.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/p2j/xml/XNodeRefImpl.java	2020-11-20 18:40:59 +0000
@@ -2,9 +2,9 @@
 ** Module   : XNodeRefImpl
 ** Abstract : DOM XML Node reference resource type implementation.
 **
-** Copyright (c) 2013-2017, Golden Code Development Corporation.
+** Copyright (c) 2013-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- -----------------------Description------------------------
+** -#- -I- --Date-- ---------------------------------------Description---------------------------------------
 ** 001 EVL 20130204 Created initial version. Major rework to use w3c backend.
 ** 002 CA  20130221 Added LOCAL-NAME support. 
 ** 003 EVL 20130222 Adding NODE-VALUE attribute and SET-ATTRIBUTE-NODE method.
@@ -15,7 +15,9 @@
 ** 007 CA  20140104 Changed getOwnerDocument to allow restricted access (required by SOAP Fault
 **                  Detail resource).
 ** 008 CA  20160428 Fixed getOwnerDocument - must return a XDocumentImpl handle.
+** 009 OM  20201120 Renamed NAMESPACE-PREFIX setter to fit buffer attributes naming convention.
 */
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -839,7 +841,7 @@
     *           The new value of the NAMESPACE-PREFIX attribute.
     */
    @Override
-   public void setNamespacePrefix(character prefix)
+   public void namespacePrefix(character prefix)
    {
       if (!isInitialized())
       {
@@ -874,16 +876,14 @@
          if (e.code == DOMException.NO_MODIFICATION_ALLOWED_ERR)
          {
             commonDomError("NAMESPACE-PREFIX",
-                           "An attempt was made to modify an object where " +
-                           "modifications are not allowed");
+                           "An attempt was made to modify an object where modifications are not allowed");
          }
          else if (e.code == DOMException.NAMESPACE_ERR ||
                   e.code == DOMException.INVALID_CHARACTER_ERR)
          {
             String[] errMsg =
             {
-               "X-NODEREF or X-DOCUMENT NAMESPACE-PREFIX got an error: " +
-                  "XML Parser not initialized",
+               "X-NODEREF or X-DOCUMENT NAMESPACE-PREFIX got an error: XML Parser not initialized",
                "Unable to set attribute NAMESPACE-PREFIX in widget  of type X-NODEREF"
             };
             int[] errorCodes = { 9082, 3131 };
@@ -959,4 +959,4 @@
 
       return new handle(new XDocumentImpl(doc));
    }
-}
\ No newline at end of file
+}

=== modified file 'src/com/goldencode/trpl/Resolver.java'
--- src/com/goldencode/trpl/Resolver.java	2017-04-01 23:33:34 +0000
+++ src/com/goldencode/trpl/Resolver.java	2020-10-15 07:54:57 +0000
@@ -2,17 +2,15 @@
 ** Module   : Resolver.java
 ** Abstract : provides basic services to assist tree walkers 
 **
-** Copyright (c) 2005-2017, Golden Code Development Corporation.
+** Copyright (c) 2005-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- --JPRM-- ----------------Description-----------------
+** -#- -I- --Date-- --JPRM-- ----------------------------------Description------------------------------------
 ** 001 GES 20090529   @42538 Provides basic services to assist tree walkers.
-**                           This code is largely a subset of the code in
-**                           the original pattern engine's AstSymbolResolver.
-**                           One major difference is that this class is designed
-**                           to allow multiple, independent instances operating
-**                           simultaneously (the original code was a singleton).
-**                           This design change enables highly multithreaded
-**                           tree processing.
+**                           This code is largely a subset of the code in the original pattern engine's 
+**                           AstSymbolResolver.  One major difference is that this class is designed to allow 
+**                           multiple, independent instances operating simultaneously (the original code was a 
+**                           singleton). This design change enables highly multithreaded tree processing.
+** 002 CA  20201015          Replaced java.util.Stack with ArrayDeque (as synchronization is not required).
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -229,7 +227,7 @@
    {
       Aast next = node;
       
-      Stack<Aast> stack = new Stack<Aast>();
+      Deque<Aast> stack = new ArrayDeque<Aast>();
       
       while (next != null)
       {

=== modified file 'src/com/goldencode/util/NativeTypeSerializer.java'
--- src/com/goldencode/util/NativeTypeSerializer.java	2020-10-07 19:40:17 +0000
+++ src/com/goldencode/util/NativeTypeSerializer.java	2021-01-04 14:38:05 +0000
@@ -1,17 +1,20 @@
 /*
 ** Module   : NativeTypeSerializer.java
-** Abstract : Helper class to serialize native values, when the value's type is unknown at compile
-**            time.
+** Abstract : Helper class to serialize native values, when the value's type is unknown at compile time.
 **
 ** Copyright (c) 2014-2020, Golden Code Development Corporation.
 **
-** -#- -I- --Date-- ---------------------------------Description----------------------------------
+** -#- -I- --Date-- --------------------------------------Description---------------------------------------
 ** 001 CA  20141002 Created initial version.
 ** 002 IAS 20150702 Added cautious null processing.
 ** 003 IAS 20200721 Added helper methods for (de)serialization if int[] and Integer.
 ** 004 IAS 20200914 More helper methods added
-** 038 IAS 20201006 Added readByte/writeByte
+**     IAS 20201006 Added readByte/writeByte
+**     GES 20201023 Added read/writeSparseArray() methods.
+**     CA  20201029 Fixed a bug in readSparseExtArray - readFully(byte[]) must be used.
+**     VVT 20210104 readDouble(): javadoc fixed.
 */ 
+
 /*
 ** This program is free software: you can redistribute it and/or modify
 ** it under the terms of the GNU Affero General Public License as
@@ -893,7 +896,7 @@
    }
    
    /**
-    * Read Boolean from the ObjectInput
+    * Read Double from the ObjectInput
     * 
     * @param in
     *        ObjectInput instance
@@ -913,6 +916,60 @@
    }
 
    /**
+    * Write a sparse array to the ObjectOutput, where {@code null} elements are skipped.
+    * 
+    * @param    <T> 
+    *           The array element type.
+    * @param    out
+    *           ObjectOutput instance.
+    * @param    value
+    *           The value to be written.
+    *           
+    * @throws   IOException
+    *           In case of I/O errors.
+    */
+   public static <T extends Externalizable> void writeSparseArray(ObjectOutput out, T[] value)
+   throws IOException
+   {
+      // write overall array size
+      out.writeInt(value == null ? -1 : value.length);
+      
+      if (value != null && value.length > 0)
+      {
+         BitSet bits = new BitSet(value.length);
+         
+         int nonNull = 0;
+         
+         // calculate how many non-null values exist
+         for (int i = 0; i < value.length; i++)
+         {
+            if (value[i] != null)
+            {
+               nonNull++;
+               bits.set(i);
+            }
+         }
+         
+         // send the number of non-null values that will follow
+         out.writeInt(nonNull);
+         
+         // instead of sending each index as an integer, we send a bitset which marks valid index positions
+         byte[] bytes = bits.toByteArray();
+         out.writeInt(bytes.length);
+         out.write(bytes);
+         
+         for (int j = 0; j < value.length; j++)
+         {
+            // write out each non-null as (index, value)
+            if (value[j] != null)
+            {
+               writeExternalizable(out, value[j]);
+            }
+         }
+      }
+   }
+   
+   /**
     * Write array to the ObjectOutput
     * @param <T> 
     *        array element type
@@ -937,6 +994,67 @@
    }
    
    /**
+    * Read a sparse array from the ObjectInput, where {@code null} elements are skipped.
+    * 
+    * @param    <T> 
+    *           The array element type.
+    * @param    in
+    *           ObjectInput instance.
+    * @param    allocate
+    *           The array allocator.
+    * @param    init
+    *           The element default constructor.
+    *           
+    * @return   The array. 
+    * 
+    * @throws   IOException
+    *           In case of I/O errors.
+    * @throws   ClassNotFoundException 
+    *           If the class is not found.
+    */
+   public static <T extends Externalizable> T[] readSparseExtArray(ObjectInput      in, 
+                                                                   IntFunction<T[]> allocate, 
+                                                                   Supplier<T>      init)
+   throws IOException,
+          ClassNotFoundException
+   {
+      int len = in.readInt();
+      
+      if (len < 0)
+      {
+         return null;
+      }
+      
+      T[] a = allocate.apply(len);
+      
+      if (len > 0)
+      {
+         int nonNull = in.readInt();
+         
+         // read in the bitset
+         int    numBytes = in.readInt();
+         byte[] bytes    = new byte[numBytes];
+         
+         in.readFully(bytes);
+         BitSet bits = BitSet.valueOf(bytes);
+
+         int idx = 0;
+         
+         for (int i = 0; i < nonNull; i++)
+         {
+            // use the bitset to calculate the next index position
+            idx = bits.nextSetBit(idx);
+            
+            a[idx] = readExternalizable(in, init);
+            
+            idx++;
+         }      
+      }
+      
+      return a;
+   }
+
+   /**
     * Read array from the ObjectInput
     * 
     * @param <T> 

=== added file 'src/com/goldencode/util/Stack.java'
--- src/com/goldencode/util/Stack.java	1970-01-01 00:00:00 +0000
+++ src/com/goldencode/util/Stack.java	2020-10-15 07:54:57 +0000
@@ -0,0 +1,514 @@
+/*
+** Module   : Stack.java
+** Abstract : Custom, non-synchronized implementation of a stack.
+**
+** Copyright (c) 2020, Golden Code Development Corporation.
+**
+** -#- -I- --Date-- ---------------------------------------Description----------------------------------------
+** 001 CA  20201015 Created initial version.
+*/
+
+/*
+** This program is free software: you can redistribute it and/or modify
+** it under the terms of the GNU Affero General Public License as
+** published by the Free Software Foundation, either version 3 of the
+** License, or (at your option) any later version.
+**
+** This program is distributed in the hope that it will be useful,
+** but WITHOUT ANY WARRANTY; without even the implied warranty of
+** MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+** GNU Affero General Public License for more details.
+**
+** You may find a copy of the GNU Affero GPL version 3 at the following
+** location: https://www.gnu.org/licenses/agpl-3.0.en.html
+** 
+** Additional terms under GNU Affero GPL version 3 section 7:
+** 
+**   Under Section 7 of the GNU Affero GPL version 3, the following additional
+**   terms apply to the works covered under the License.  These additional terms
+**   are non-permissive additional terms allowed under Section 7 of the GNU
+**   Affero GPL version 3 and may not be removed by you.
+** 
+**   0. Attribution Requirement.
+** 
+**     You must preserve all legal notices or author attributions in the covered
+**     work or Appropriate Legal Notices displayed by works containing the covered
+**     work.  You may not remove from the covered work any author or developer
+**     credit already included within the covered work.
+** 
+**   1. No License To Use Trademarks.
+** 
+**     This license does not grant any license or rights to use the trademarks
+**     Golden Code, FWD, any Golden Code or FWD logo, or any other trademarks
+**     of Golden Code Development Corporation. You are not authorized to use the
+**     name Golden Code, FWD, or the names of any author or contributor, for
+**     publicity purposes without written authorization.
+** 
+**   2. No Misrepresentation of Affiliation.
+** 
+**     You may not represent yourself as Golden Code Development Corporation or FWD.
+** 
+**     You may not represent yourself for publicity purposes as associated with
+**     Golden Code Development Corporation, FWD, or any author or contributor to
+**     the covered work, without written authorization.
+** 
+**   3. No Misrepresentation of Source or Origin.
+** 
+**     You may not represent the covered work as solely your work.  All modified
+**     versions of the covered work must be marked in a reasonable way to make it
+**     clear that the modified work is not originating from Golden Code Development
+**     Corporation or FWD.  All modified versions must contain the notices of
+**     attribution required in this license.
+*/
+
+package com.goldencode.util;
+
+import java.util.*;
+
+/**
+ * A stack implementation which behaves the same as {@link java.util.Stack}, but is not synchronized.
+ */
+@SuppressWarnings("unchecked")
+public class Stack<T extends Object>
+extends AbstractList<T>
+{
+   /** The internal length of the data. */
+   private int internalLength = 0;
+   
+   /** The stack size. */
+   private int size = 0;
+   
+   /** The stack data.  Index 0 is the bottom of the stack, elements are pushed on the {@link #size} index. */
+   private Object[] data = null;
+   
+   /** The change counter. */
+   private int changes = 0;
+   
+   /**
+    * Create a new instance of an empty stack.
+    */
+   public Stack()
+   {
+   }
+
+   /**
+    * Add an element to the top of the stack.
+    */
+   public void push(T elem)
+   {
+      size = size + 1;
+      resize();
+      
+      data[size - 1] = elem;
+      
+      changes++;
+   }
+
+   /**
+    * Return the top of the stack, without removing it.
+    * 
+    * @return   See above.
+    * 
+    * @throws   EmptyStackException
+    *           If the stack is empty.
+    */
+   public T peek()
+   {
+      if (size == 0)
+      {
+         throw new EmptyStackException();
+      }
+      
+      return (T) data[size - 1];
+   }
+
+   /**
+    * Remove the top of the stack.
+    * 
+    * @return   See above.
+    * 
+    * @throws   EmptyStackException
+    *           If the stack is empty.
+    */
+   public T pop()
+   throws EmptyStackException
+   {
+      if (size == 0)
+      {
+         throw new EmptyStackException();
+      }
+      
+      T val = (T) data[size - 1];
+      data[size - 1] = null;
+      size = size - 1;
+
+      changes++;
+
+      return val;
+   }
+
+   /**
+    * Get the stack size.
+    * 
+    * @return    See above.
+    */
+   @Override
+   public int size()
+   {
+      return size;
+   }
+
+   /**
+    * Check if the stack is empty.
+    * 
+    * @return    See above.
+    */
+   public boolean empty()
+   {
+      return size == 0;
+   }
+
+   /**
+    * Check if the stack is empty.
+    * 
+    * @return    See above.
+    */
+   @Override
+   public boolean isEmpty()
+   {
+      return size == 0;
+   }
+
+   /**
+    * Get the value at the specified index.
+    * 
+    * @param    idx
+    *           The index value.
+    */
+   @Override
+   public T get(int idx)
+   {
+      if (idx < 0 || idx >= size)
+      {
+         throw new ArrayIndexOutOfBoundsException(idx);
+      }
+      
+      return (T) data[idx];
+   }
+
+   /**
+    * Get the value at the specified index.
+    * 
+    * @param    idx
+    *           The index value.
+    */
+   public T elementAt(int idx)
+   {
+      return get(idx);
+   }
+   
+   /**
+    * Set the stack at the given index to the specified value.
+    * 
+    * @param    idx
+    *           The index in the current stack.
+    * @param    val
+    *           The value to set.
+    *           
+    * @return   The old value.
+    */
+   @Override
+   public T set(int idx, T val)
+   {
+      if (idx < 0 || idx >= size)
+      {
+         throw new ArrayIndexOutOfBoundsException(idx);
+      }
+
+      T old = (T) data[idx];
+      
+      data[idx] = val;
+      
+      changes++;
+      
+      return old;
+   }
+   
+   /**
+    * Set the stack at the given index to the specified value.
+    * 
+    * @param    val
+    *           The value to set.
+    * @param    idx
+    *           The index in the current stack.
+    */
+   public void setElementAt(T val, int idx)
+   {
+      if (idx < 0 || idx >= size)
+      {
+         throw new ArrayIndexOutOfBoundsException(idx);
+      }
+
+      data[idx] = val;
+      
+      changes++;
+   }
+
+   /**
+    * Add all elements of the specified stack on top of the current stack.
+    * 
+    * @param    stack
+    *           The stack to merge.
+    */
+   public void addAll(Stack<T> stack)
+   {
+      if (stack.isEmpty())
+      {
+         return;
+      }
+      
+      size = size + stack.size;
+      resize();
+      System.arraycopy(stack.data, 0, data, size - stack.size, stack.size);
+
+      changes++;
+   }
+
+   /**
+    * Check if the stack contains the specified value.
+    * <p>
+    * <code>null</code> values are allowed.
+    * 
+    * @param    val
+    *           The value to check.
+    */
+   @Override
+   public boolean contains(Object val)
+   {
+      for (int i = 0; i < size; i++)
+      {
+         if ((val == null && data[i] == null) || (val != null && val.equals(data[i])))
+         {
+            return true;
+         }
+      }
+      
+      return false;
+   }
+
+   /**
+    * Obtain an iterator over the {@link #data}, starting from the specified index.
+    * 
+    * @param    idx
+    *           The index from where to start.
+    *           
+    * @return   See above.
+    */
+   @Override
+   public ListIterator<T> listIterator(int idx)
+   {
+      return new ListIterator<T>()
+      {
+         /** The current index. */
+         private int index = idx;
+         
+         /** The changes counter. */
+         private int savedChanges = changes;
+         
+         /**
+          * Check if there is one more element available, in the forward direction.
+          * 
+          * @return   <code>true</code> if there is at least one more element.
+          */
+         @Override
+         public boolean hasNext()
+         {
+            return index < size - 1;
+         }
+
+         /**
+          * Get the next element.
+          * 
+          * @return    The next element.
+          */
+         @Override
+         public T next()
+         {
+            if (index >= size - 1)
+            {
+               throw new NoSuchElementException();
+            }
+            
+            if (changes != savedChanges)
+            {
+               throw new ConcurrentModificationException();
+            }
+            
+            return (T) data[++index];
+         }
+
+         /**
+          * Check if there is one more element available, in the reverse direction.
+          * 
+          * @return   <code>true</code> if there is at least one more element.
+          */
+         @Override
+         public boolean hasPrevious()
+         {
+            return index > 0;
+         }
+
+         /**
+          * Get the previous element.
+          * 
+          * @return    The previous element.
+          */
+         @Override
+         public T previous()
+         {
+            if (index <= 0)
+            {
+               throw new NoSuchElementException();
+            }
+            
+            if (changes != savedChanges)
+            {
+               throw new ConcurrentModificationException();
+            }
+
+            return (T) data[--index];
+         }
+
+         /**
+          * Get the next index (without modifying it).
+          * 
+          * @return    See above.
+          */
+         @Override
+         public int nextIndex()
+         {
+            return index + 1;
+         }
+
+         /**
+          * Get the previous index (without modifying it).
+          * 
+          * @return    See above.
+          */
+         @Override
+         public int previousIndex()
+         {
+            return index - 1;
+         }
+
+         /**
+          * Modifications are not allowed via this iterator.
+          */
+         @Override
+         public void remove()
+         throws UnsupportedOperationException
+         {
+            throw new UnsupportedOperationException("Stack.remove");
+         }
+
+         /**
+          * Modifications are not allowed via this iterator.
+          */
+         @Override
+         public void set(T e)
+         throws UnsupportedOperationException
+         {
+            throw new UnsupportedOperationException("Stack.remove");
+         }
+
+         /**
+          * Modifications are not allowed via this iterator.
+          */
+         @Override
+         public void add(T e)
+         throws UnsupportedOperationException
+         {
+            throw new UnsupportedOperationException("Stack.remove");
+         }
+      };
+   }
+
+   /**
+    * Obtain an iterator over the {@link #data}.
+    * 
+    * @return   See above.
+    */
+   @Override
+   public Iterator<T> iterator()
+   {
+      return new Iterator<T>()
+      {
+         /** The current index. */
+         private int index = 0;
+         
+         /** The changes counter. */
+         private int savedChanges = changes;
+         
+         /**
+          * Check if there is one more element available.
+          * 
+          * @return   <code>true</code> if there is at least one more element.
+          */
+         @Override
+         public boolean hasNext()
+         {
+            return index < size - 1;
+         }
+
+         /**
+          * Get the next element.
+          * 
+          * @return    The next element.
+          */
+         @Override
+         public T next()
+         {
+            if (index >= size - 1)
+            {
+               throw new NoSuchElementException();
+            }
+            
+            if (changes != savedChanges)
+            {
+               throw new ConcurrentModificationException();
+            }
+
+            return (T) data[++index];
+         }
+      };
+   }
+   
+   /**
+    * Clear the stack.
+    */
+   @Override
+   public void clear()
+   {
+      size = 0;
+      data = null;
+      internalLength = 0;
+   }
+
+   /**
+    * Resize the {@link #data} so that it can fit the new {@link #size}.
+    */
+   private void resize()
+   {
+      if (size >= internalLength)
+      {
+         internalLength = size + (1 << 4);
+
+         Object[] prevData = data;
+         data = new Object[internalLength];
+         if (prevData != null)
+         {
+            System.arraycopy(prevData, 0, data, 0, size);
+         }
+      }
+   }
+}

=== modified file 'src/native/spawn.c'
--- src/native/spawn.c	2020-05-18 17:11:56 +0000
+++ src/native/spawn.c	2021-01-20 03:56:46 +0000
@@ -2,7 +2,7 @@
 ** Module   : spawn.c
 ** Abstract : a simple tool able to spawn a process on an existing user account.
 **
-** Copyright (c) 2013-2020, Golden Code Development Corporation.
+** Copyright (c) 2013-2021, Golden Code Development Corporation.
 **
 ** -#- -I- --Date-- --------------------------------Description---------------------------------
 ** 001 MAG 20131127 First version.
@@ -22,6 +22,8 @@
 ** 011 EVL 20200120 Added logic to handle valid passwordless user helping to avoid segmentation
 **                  fault issue.
 ** 012 EVL 20200518 Fixed issue with handling extra debug option for application server spawning.
+** 013 EVL 20210115 Adding more extra logging to FWD server.log for possible spawn failures.
+**     EVL 20210119 More debug info to output.
 */
 /*
 ** This program is free software: you can redistribute it and/or modify
@@ -280,36 +282,47 @@
       /* Set gid */
       if (setgid(pw->pw_gid) < 0  || getgid() != pw->pw_gid)
       {
+         sprintf(message_buffer, "Unable to set GID for %d.", pw->pw_gid);
+         logMessage(message_buffer);
          exit(audit(ERR_SPAWN_SETGID, "setgid"));
       }
 
       /* Set egit*/
       if (setegid(pw->pw_gid) < 0 || getegid() != pw->pw_gid)
       {
+         sprintf(message_buffer, "Unable to set EGID for %d.", pw->pw_gid);
+         logMessage(message_buffer);
          exit(audit(ERR_SPAWN_SETEGID, "setegid"));
       }
 
       /* Initialize the supplementary group access list */
       if (initgroups(pw->pw_name, pw->pw_gid) < 0)
       {
+         sprintf(message_buffer, "Unable to init groups for PW_NAME %s and GID %d.", pw->pw_name, pw->pw_gid);
+         logMessage(message_buffer);
          exit(audit(ERR_SPAWN_INITGROUPS, "initgroups"));
       }
 
       /* Set uid */
       if (setuid(pw->pw_uid) < 0 || getuid() != pw->pw_uid)
       {
+         sprintf(message_buffer, "Unable to set UID for %d.", pw->pw_uid);
+         logMessage(message_buffer);
          exit(audit(ERR_SPAWN_SETUID, "setuid"));
       }
 
       /* Set euid */
       if (seteuid(pw->pw_uid) < 0 || geteuid() != pw->pw_uid)
       {
+         sprintf(message_buffer, "Unable to set EUID for %d.", pw->pw_uid);
+         logMessage(message_buffer);
          exit(audit(ERR_SPAWN_SETEUID, "seteuid"));
       }
 
       /* Creates a session and sets the process group ID */
       if(setsid() < 0)
       {
+         logMessage("Unable to set SID.");
          exit(audit(ERR_SPAWN_SETSID, "setsid"));
       }
 
@@ -317,6 +330,7 @@
       result = assign_pty();
       if (result != EXIT_SUCCESS)
       {
+         logMessage("Unable to assign PTY.");
          exit(audit(result, "assign_pty"));
       }
 
@@ -331,10 +345,13 @@
       free(path);
 
       /* Change the current working directory */
-      if (chdir(getenv("HOME")) < 0)
+      char* chHomeDir = getenv("HOME");
+      if (chdir(chHomeDir) < 0)
       {
          if (chdir("/") < 0)
          {
+            sprintf(message_buffer, "Unable to enter the home directory - %s.", chHomeDir);
+            logMessage(message_buffer);
             exit(audit(ERR_SPAWN_CHDIR, "chdir($HOME)"));
          }
       }
@@ -365,12 +382,16 @@
          /* Set process group ID */
          if (setpgid(0, child_pid) < 0)
          {
+            sprintf(message_buffer, "Forked. Unable to set PGID for %d.", child_pid);
+            logMessage(message_buffer);
             exit(audit(ERR_SPAWN_SETPGID, "setpgid"));
          }
 
          /* Set process working directory */
          if (chdir(workdir))
          {
+            sprintf(message_buffer, "Forked. Unable to set working directory to %s.", workdir);
+            logMessage(message_buffer);
             exit(audit(ERR_SPAWN_CHDIR_WD, "chdir(workdir)"));
          }
 
@@ -386,6 +407,7 @@
       else if (proc_pid < 0)
       {
          /* On fork() fails */
+         logMessage("Failure in fork() call.");
          exit(audit(ERR_SPAWN_FORK_COMMAND, "fork"));
       }
 
@@ -401,6 +423,7 @@
    else if (child_pid < 0)
    {
       /* On fork() fails */
+      logMessage("Failure in child process creation.");
       exit(audit(ERR_SPAWN_FORK_LEADER, "fork"));
    }
 
@@ -538,6 +561,9 @@
    struct spwd *sp;
    char *encrypted, *correct;
 
+   sprintf(message_buffer, "Check user account for: %s.", username);
+   logMessage(message_buffer);
+
    /* Get a pointer to a structure containing the broken-out fields
    of the record in the password database (e.g., the local password
    file /etc/passwd, NIS, and LDAP) that matches the username name. */
@@ -569,7 +595,7 @@
          logMessage("GetSPNam is null, used password from passwd instead.");
          correct = pw->pw_passwd;
       }
-
+      
       // here we separate passwordless user from missing password for regular user
       if (sp && strlen(password) == 0 && strlen(correct) == 1 && correct[0] == '!')
       {
@@ -577,6 +603,13 @@
          return AUTH_OK;
       }
 
+      // internal error case
+      if (correct == NULL)
+      {
+         logMessage("Unable to verify the encrypted password.");
+         return AUTH_ERR_PASSWORD;
+      }
+
       encrypted = crypt(password, correct);
    
       logMessage("Attempt to use login with password.");
@@ -961,6 +994,9 @@
 
       if (narg != NULL)
       {
+         sprintf(message_buffer, "The argument number %d is: %s.", i, narg);
+         logMessage(message_buffer);
+
          char *dbg_level = strstr(narg, "debug_level=");
          if (dbg_level != NULL)
          {
@@ -1008,6 +1044,11 @@
       switch (result)
       {
          case AUTH_OK:
+            sprintf(message_buffer,
+                    "Starting with argv[MIN_ARGS_COMMAND]: (%s), argv[MIN_ARGS_COMMAND - 1]: (%s).",
+                    arguments[MIN_ARGS_COMMAND + debug_opt_found],
+                    arguments[MIN_ARGS_COMMAND - 1 + debug_opt_found]);
+            logMessage(message_buffer);
             result = spawn(arguments[MIN_ARGS_COMMAND + debug_opt_found],
                            &arguments[MIN_ARGS_COMMAND + debug_opt_found],
                            arguments[MIN_ARGS_COMMAND - 1 + debug_opt_found]);
@@ -1022,7 +1063,8 @@
             fputs("User root not allowed.\n", stderr);
             break;
       }
-      
+      sprintf(message_buffer, "Spawn result code: (%d).", result);
+      logMessage(message_buffer);
       return result;
    }
 

# Begin bundle
IyBCYXphYXIgcmV2aXNpb24gYnVuZGxlIHY0CiMKQlpoOTFBWSZTWVyAZBoC283/gH//////////
/////7////9jnT54r0bbwA0FFVewsowqj7ZQ0aB986a8fKB7ioV3vup3wvuIfW8fG21Vg2XsaOn3
bz5VLzl9d7cfI+0uto6+7t9S2n18rIDvX3x5J5ars3y+X2BuX3b5nfZ7WT3049D567vnHWzfZ3tX
nwA9veitaMgO8AAABRQAAFrrzs7vtINKUvWmn3zjqV7aN2MuIuxnS7769d7X3PvN7VpPuti03Qti
GPbp1Ye+oAAAjT4D3vcB8hR6AAAAG2LueLwFCgOigAND0A07toB0Cquw0AChvo9IgoAOqV6AA0y0
bhoLTdMiQCvWF7YNtEUD3G6b4+49eiHw52wUq20Md9zSqcpXcPeMew2YtmgZmdmUPe5c+7FUqgdD
NqAfQ5AvbyPkPR9eq0dtkxvXHrT7a2fJ72O5ut2G27lgDnbmzu1BU2NHbBp3Mbd22+M3Qz18XvWe
ZtVwKclpgKCCEiWqC2DoNChSgVIL77c+jVr7XO7DnWndupVRdGUNNKqV87zqpvMrXL6kaJ1jIzfO
AaHRn27kNVlXywlN9Md7UgS2bpt3hIjuXbPbekC+vM5II1iFAYx652qLPbdns13uuz3t73O2Wwq0
Hd0QHQBrNugdmO5us3d1ac7Xdy4HCUOgAAA0NPPqAAADoAUGgBEJ3wR9sQ273uKA2w+2N9huZoPk
c6cpcU+7yi03vUEBPtqSlpRCutTLaNSZc2ORXZt0SinezuevdvNZ6Lbu6cWTbc7tszdzr2zp6d0v
cF9QYdFefAAOBr56+Wd2rbve7mgbaN27zcVPX3nvhfO7ivd99Z7xughmzZWmWmQUzufNgAQcvnvp
5hfYAXvefEE6t2w8vo7G6J9zvpq9j2dAO0JtM27uczFhsK7suW2TVWJu5p77AA9V9897gAAdvWXf
fevdmtBVve+puY52Tc3dZq2m2o2W6OQkLrETkAFRbvtoAAj3u60rM7sqhdhhERHZ3akhR0AEjOgA
D2McQkpCQkJFsapEqnkA01TdAABOsO1k7aQkSpQqrrIl2AADAABxa2wpVEqUhUpEQADrAAA71nUt
tNjSqhEo0aqICh6mAABdnVITZiQoqKKKAAdGAADnbmjUlSoqlUqRSgADVRyB6Oet99W7bt5eF093
px7Y9b77j0vYhubSKdffcV3XaUaaoJbXTz6V3L2TDX044ClL3OcVCW9717uz0ZrnenkhU7a2j2FO
izFML2w7b112wb63STW2+u6NUtVptiiw+7l6NFFettTR6bW66aLlmk7rc5Axd2R8FvRK2ALeuoDr
nfXe63XkBbHcsq6wKNsxvW513R82+3udj52UDZ7jwFo5vm7kCvdle91r774+kfbD277u325cj66N
dOXL3outTz6BQKd9h43fCcHvd09scVLw3vPLmOCrdSyZRQADQYaQzbbSs7OqVXbsHd3UMOyhLqPr
KnqQGnuQu2rGx8A+gDVywUkjygdnzucqrmC7eAAAItbXtsrcOmAlbuHHe4vbsjCsnbrrdmLl2tyV
O2tIdN1HORAlJUlUBfRoB0VfPQAUcHXmcvu927eAzTnNXvMm8VvIcvSvRTXBBus58SjT5cI77Duv
c0oe+w6B9MpUNVQNUNncDUTTX17mRIV0NFClIFaYFHTD3gAAAHRzQe+LISWtUoXndd9reBt2vWmS
+pfZoX20Lu1t2q7Qvt9x3fc3AvNsjFa2ox3h143s2MzlFKu93O9KufezVKEkoRUe56kbFT3ZTvHo
AKPs731s3djh0AAAZ0s6x0qVWOlsu02ADseAD6A+jmwDbTJfb7ubODbq4dcqd0AJsI4lkQkCgBW1
oO2HYAMI2WTLAAAAtastWYENCnrHVbAPXOO6Pu96Q0RaTeHIHd1lY2U1TWzVjncA5uemshbB0z22
se9u9C4ACZUwpLt1w3C6qdNrZssLQAGdhz72Dh6O7sUBEgp948Xe2tdtNLYM7SqSVrHd3bQ3XLnK
kbZZyFblNMn3NxB983hqlg229mtdOB3dOG6UGmisbFfe8QKKKFAEJ6ADbY3vXvVSPY7csuWsDoDd
jK2ZQIANZiSVd1dF2AHTdknbDts0TOhz0D05nsA3Wtlq0yyiUzNFbbVmVsaoG7m6W2xTrTVN2ykr
YGW1lItrKVt03Nn28p7Z4AOhOjdxgdrDc5u1GXQ7Ru2xGHy63MXHqgAAAAArSV3rcAtNayZUY8q3
StbOs5VmbrW207FLdCMqq22wyNYmU2rsddElLHdWfB97NFga1rodOR3rdFAqlL00aooBjXQa66jj
3fXpRsOtuBHSxsu111QtzuxutXNqKjTU7uoncGuudzbajYWevfQquPm6fZgAKoH0NFL111JUQpAl
TbYH1z312ZSFHxsrRRlu3aDFqwAOjsA2WeiXuNN7d2dC0zLIOK627O6MAoCnLjM2Ns1lqzYpNcdD
huzWYqbbBRYGmEzSYagd262au3LtgGaC0rbq2KcW0gjuDH3uXBW2b0bqUh2wx0Xbj07tq63rTNjv
l80fJpQq7aedZ7aOn3htOgUd2bVrxgvsAaaIACBAgAgCCaBMQEwRpop+pkSPU3pqTJptDUeoeoeK
G0g0yASIIIiT0BCp+mk9U/VPKe0CoaZ5KD0T1AaNB6hoDygAeoxABIQiCIIEBMgExNNTNTJTxlNq
NGEAU/SNqnlNPAU9T1PUzJqe1J6npqAhKJEQhT0mmCCYypshkNTU8FP1NT2qYp/qaamyjamk9T9U
Yj9SG1B6jT0HqRhBCkpkTQQAJiGRkBMBNMTEAmk8iZJmRT9TwVPCT9KZlMNTanoIIkiBAIAAIAAg
ABNATCGiYmTETETyBNQwamn6JPb+evnkwyQAVSG+iHQWfmvqVh+vgvywL3ZTksogu3LHaBEUUNoE
S/pj/6YjwxqotrEVEaLZ221Bo1rW2M0OxtnGg0UGikKDWgMbGSStt/25OME0REfXBv+nOSQfWyUO
UkT+f79agk5WoNMXVhk/03eZaIPwxj/57eWSYqL1gbCfqvs7v4VXw/1oihvxJ8GiJofhkGwfDV0E
Q1FFFHu0BCUDR3GX4xnEnZ59gtBPuDFRFQTB5sB6yZoCggq+Y190dg4REVRpfvuQfNgQ6JDjyMfx
lf+ku8n7ZXCoc/0ZroxOM6RjWb78mZjkZ8+buyeH8QXs2xtKWhJs985pqIoJkvzZ0uhw/ftQcgAk
BkQfcn18H6x/buQ5+HgzL2amPinen+tepoY6IndjbkutkFCceHqLqpzDanM2hLuMjMpGKuVoRurT
lSDWuXCIe3nZzMLvt2gUtdCcvTOrbW7ASqIubl7W4XpXmkzMPuxDqsMy5OWJ2QQ+SRZfbRJjZzRR
vJ0Vhl5zXuXk6+RVFyMsZpi5hIq0Td3c1VXFKnIdRZybdXRN6C8KRebOYrBMXIqdiTg2Jg3CxBUl
kbcg2rtRmVBuouUldEnJEZmNlw9mcGZr2CUpyoejpKFvZIvBWW+01a+CZdGlW44IqJ17nbjKZyZg
7kV/vb/Z/t/4pezX/f/qiqvemV8nH+Wfg8/zZUrHTH97/Df18XUqnrrkURR5/yw+bt3NF4CCVO1Z
/91bNPP7ZLSREiHLAOQ3/kLCAYaHqI8zLx1ORFk09f8xTVl/39/7LjmP5h83y5gLsw4Qe1Rghwkj
ZCL/Bt1XnkwG/0EN8kdf/adFdc8K2BnOO4+pWIKMQ+UIDz5t74Jeh0lJMl6hOUGaV9EQQZXTpJMa
JRfVc3VWHrcG/bVU8UbTYaaXVWVUpiOHQLtMoj+uUHkLhx1PdOe1VKdoR/YZB57eYJCRwjqB5leo
8UOzNJDSzf/tXcsO+6L+NQIIUOH6PQfQ8mjhymx+nH/WRm26oPEwIniEhno0dP6srIXjXd0ZaP9F
z5MwfL4qA2SofIqGdGohkgITwUWpCXAPlTPwnnivEDaDiDPiynxdUSZx5wv7HoyXTIDQ4tv53P4z
H+1wJ79Idw5v/+5clyC/6f4RIBYWl8lWmSWlEfML1qVWqDGGxs3ei17yA/uyUvLX3Lntni/O55MC
7dXzsuHOxcsGL1UTn1a+i0aTEzZ11A71vAEqFYLmulB6qQ4VHw6ksEKNTxBRAgzCCLPUuIbCqmMm
aSqKgKRj0ne5iqFd/+JM4xUbiGCP9z7Jh2p3cUO+Pco2nfr9F/9Z5Qq7UxPDDuQ/81yU1MDQ+b/w
5Yq/HxDQJSLElSzW6g//sruq/5wgCGVfRUXDtPJ1iHC6vgvTtAXdRiVYksDCmOoHHB9fx2jF77i4
bjqtyIp4fSE4+X5r0zIMja+18O/dkbPv101QXkmpGHuzF84Ll5L1y2ZcOe/kXhqD/xId5Fz3aOcQ
U43W8X4kHo21VuV9W5VT/f1dezm6qqnDoPoy69mvNdZYziTiacer8QipTrHVS8oq+RmNV+ihQrM3
97qrjuR5FpUcUbdW4O54YYzB5Cmjt8Tzy5FPNiW4fViZ/mK/22LMjtSWc4Cv0d94gML1CaWmZhSR
4MQl0v3vhs0Q7eomI+DdkQKhuWhz1/5M+N5ar/rpwMKEpDzKhoTN9/C8g3SYiikVxfBsgjpYWuwf
mciSAlJ2IcHE2PEQhqYmbqqI6q7ZbjAR9rBjSEp8fWqbxlXsNB1W4giCjXxjPHbp5Of3FEOY6ux8
RYJ3ZFvwyigx0NOoxkkVUU2NUo6kbCJMB3UQhBx3YgUYcyO3b3MOv7r2P/9+eWMlyzghwkPZZ3Ch
iE7pzj/GzMrsi7X4nzf/uVQIIvpP9+nv5lvV+arVTul/A+Lt3IsWXtUkY8frOHIZtNTCZwyh/aj8
X/Zso+JAvG8tLMYlEpjr6QoYO5vZ6fV5qnGfSv33aHTi/0T7aX/p7/FUzYn+5/85H15TUCb4i+mH
UAH+BswoswYr8VKLmACcSIqTNRIP9UoGVcpjWftsZl7c5A/X9hf3fj0cH1Az64RjSO++yMpja1Jz
KUmXR/hmq+Hs0QblPEEfDjp/WpoGX514CkPhR9y5RDxDiff6vRiVOqJk8ShfxdxXHmCbLuB+8gkN
hZvksP9VeCOZvj2M5dUV3dOCP+EO4u7hvP93/TnazbGd+H+Il07zFEOftPUDnP7a/dIubcfBDlzQ
7Wswwtg99Ws16fx+ufcfOVX3T7vxrCsbF7/jaq/GzZmBK+4xiiS8KCLu4GyMxDNt7CjJOB8NhTkv
GFGhljKzLLxTisa7eFmJbtTNkZFGJmcVwLmKzKghGjthXQuKmCISIuUnxzrmljy6y2DZyNjHeruP
h7GRxupxMqxly9K3l6KRuFTq8nZkwkYtQRKQwjBmaYgs0S8xJBI1FCJyVRqVh3KcIhGjqh9VqnMR
L2pohXsrJlKXQiEIx5eahxVpIw8Ew8OWE09DC5M7kHJqaExbzuubyqMnNcOikdL0Xe62nMNdFGxK
urenEO8kQ6VIE2Q0ONdoLWRdxEPRenyzb5F0ZyIeD0wa4EyO+KXmeeG2ueud3MwKCmuGZFZGa2P0
7RcsRih7j59hk7E0SvZ0NUv1+rnXCefm59ffiPCqSCJeQe435hg0jpgevcL1LogNiyeag+njRTbV
Pcahek/aR5MR6kxCaN5kDUQRFBVSSTUfNoY++2g3yH17mEUc+ouexwN5VyDwELhAf+8mR3Av5JPC
QHo/Q+TiIeQD0lKaKClPx529kqH2W9thHSKZwMIDgw1Q0IYQOOeog93XbSXx/7BYTFImr7qDaGu7
/+t2BxTVZLH31d+/zuJo3+V+2yZG02bcp9mAGwMwwtp01bLkOWxs6+QDAoCmgoLteinS2531VzQk
4C0Hog3KIIfsTUf3lNIdXuFqvE+Y4ERX/xiOgjQB9GeGXDMXuAULwL8jH/4aPz163DMYQMGs+Y57
mrAWiQZYJvIuvNpyI622R6I4Uqigacky+DlRS9D/53XXsOIxwLRPs6sHiYm+h6DYRCPpHksSFEwF
T5K3WTwlRK2wQQBbSImJcrPAmAAIAYfB4t5dl3IuRtKg0dfsJvskCtA6yDm4IqDQREele26C9YTF
A4F6LSCCiB4dUK8sDYgP3W2xCp1BskoXw9FFXphB4vAFkmiPimhUq/JTgc9sLzXcnmJoO4Ts9ZrJ
xuAPMMIvc+GvSa/+pUf8P2PSpH6Hnm/xpq/0QcGxKsiUYHq3fYeyJjphz+X7zr0nk9ltgeNRRRza
CiiJLEYjX5cc4FBUWjQRTUODanMGjY7ucHBkjUGFMmfmMttXG19VI1YWU3Q100ragNtPJ7TsG1jg
Fv4XDw5rVUYGn7RU9XKIQcJC+YUMf2xExhGwi4ZQ5QRppihKKfM36YDg8D/YnIfK+L7Cj7QxGqbN
PrQbCgrX3f6+eNL8aOWFPbxhWZVfDZA/pNiInLpRqmpTUjqoRyECobNw46h/4A+u8I6F0xzmCLNO
zbMbQyUEoJVKk104H4rm94UTRR2/TgTdDMI6q5rPIenl2awMDLk5Avc92wSrAU/Fhriaumw3xoeE
aIyUPijUn5Iey1AkyJYoA2WDOQSFl3H7/4oUQKxaerXEB5IrRcbzw0dsuz76VteWl246qedwO+2O
Ca6gZ4pie0wbsjqZmGHRZy2cTMFxeHTEFmwCYANr53vlWhZzEeWFD06bZGh1CP0ZY+r4KHxF358F
GnhU0PpoqiEHE1GZINjCkbEJC0QhMIGmw5vacpXYFQ5adfQ+z3eMR2rFfhOc/ionLxmIAiLtlxJA
rskfFyWqsFJv1iMyfQfg8fEBlkKVZaum6f0rDKOoRbi09f+4a3pSoIjUsr1DbnQhmUVcKsHg4FAK
DIozNMWakNBNjMD/HTIDq14nJ6YRlUYEkg9R27APdlfGo709gMBQF6Jrqhf3zUQNIBvILnQehs5R
cCNcCgvurJRtk0dj1BpX6Xn1yaDs+vnDVBH5WLtpctRo2m9xIt00rk3V472/nuU0KxmDCGoU49iy
JEembaS51EimGh8D26GgI4/y/zh/X8vW/wHwQipQImxyQittsYtaKp/ZzSGtBH9nIfjBw/YXJ5B+
ezdjTTSUl/3u44e5xDzGKiS+mTVDbBoon+S2/Znk1UR3Aa3mThE8g0URVUUFBo1UQxdMmFVTosCm
KC7pHcv7TtR/3h+6/DKaL8STExEwnvG5sEBMvED07q7HhF6Pir07p03CUyRtxuEP0eOII6ConPx7
uvb8meQIUnTuImwBPM8+/4v1eCIaMnJ0zMOuzmezzq2uH1pKQgoe1e5exDz8SsFUQI8edeKRAd0i
z5KjEQo5hfWkpPQafvXBcPnPDq1+ACgLogQL/Dx/VfTjsPUf1x3EbbPcvX8Yq/ACYGcY2mmkHYIf
zKEx/BP/VD/spLTGGbJedQddi4+1Ro/sW2AlDv4uf5UHnpSOJRr6CB0D9TPQ/o/o0w7OsVR07qFt
2NsT6hdmHZVf9E8VO1EtPU3loMyudVhsypAi5ETwt4PJfoysU9GrMLJt/LE4iIA6985BsX1ZDsvb
9r4F5BAaagf74mW5Kg0fx/bmDOvpoqufGjCn5NMGh16jfdZXjPQEV9fKm5g26AdhSFfyKENoxkw/
jACG1lw0uu3TDy1req9n0jGhLGA7N3AdNYaqHg/9AYMIBDS9nr9UmftSREElEEkjdRdR0ARTVeeG
jHZuqCgbkmpTTJ9KKVL4UZwXSX5mlAgEtB2Dc5gP0IkifeCgBvGay4YMj+9QAr3HxZviv34gyJFF
DQDVe3JRMQdbh8w4zBUe6q7t3QfoV8FgCR7OfnDCA9oqaiLdwMAXog0LTXs6QblGKck8oIrh4h4c
WlIObDgLBwdcxQSdB3czFsFNi75ZukXor2q1eivCP8jGAGoLAoyop/Nkblzq5HEgzz1oeQJYH4Mk
SZl4SXn+q+XOCM+ZU84bh3JgSm7RBkRLlM+OTwvD+1UtNZxOX08onz/RrzrjQ7caDzzWsl86Ctsa
Kgfj6RG5MlSo/t+aYMBkwQ+mpHv9l0J7Onf/Cu2stxIEgsQCQbR2QUHBil0YdW2421IUdIQSQA00
xNqg0ahrUHUBS3X30eH/lyA8GhtuBuR0GU5SrbUfwk9MJTMZbttjfj0pVeqdDfM8SW1YxzivncHW
5hUvsulWvndSC0k6o0Q4KBZASE2XUF/+mRRmShMB+Rly6YM8YSjRKKLFkHajbvzVM1kGxffqcWMY
+/NBwnZwM1ULabJpll2rZWM+a1GxsNN3lOm/SEv6tXrKHl8WZ+iT8j+aegSCXFRc9CwKHcvDWLVJ
JsCrB6/dsBkUd9d8WYy4ofjkVLmEJI2t8f4a28bTGM9F01K+gIbBON8jiGfAzXT+sNLW5df7b9Lv
LLV91grV5Mrt58IFQZOPIpLEWoQiFMJh4nuGnSgBQJLdJFxacWQPJk1suP8Qhf7oVDqphEiG5eRt
pqcm6+DWDWzw2Nh8H8mv3ymTSHkJPjkNQPrg3JO/wwGlf9EjxnVSvCAL5NaHhBSBvLpmLUD5zFIU
UhzmRNCvJQpoopNIbltA5JQmXkOloPU+EH1/PNIdeYUFAlM0sFQSfTGdhhkNETFo0/Fj3jT4X+bW
D2SodgKWkfBZQTVPrjCQpKCihaSIJiqRpv0uf2Tz5y4KmqUpofidLExB2f0ynKKigooo8spmj3L5
9GfA+IgX/C49vgazH0On45flnYPHwKDD8i9hLUdkv44OIQ0/LG2qefWGXu8mQ+GdrG9x//ZC/CGs
tuD73wCg1tBwy5GvPavuL+63HpLpIA0fqkaTAHq6D99W/S3lw93fF0v1R/GvFq7+dZ1I1Gv6xgRj
XChfx6MNGd+8MxAHq0fJMIAGE0Pps6unV9XFlgmV//PnN3EQMjyFOqNoh/Nddzy7KHECJGhGmn9N
XvPQsGSpQJ1z9//If/PAb9o/0X18hDn7DXVEtYrw0yxxqZHTXfArAoI0UyMWYmiii+rDIL2sM9MH
57Twy8Ovk4YNETRMz02viN+G5xyc1g0lJv+j9r8PwzxQCRVw+AHF8h9kylIUUtQo1EgGzZ26YA8C
A8/ch5xP9xqXJFa/xrKkOsRKfWQZB+oj0hb7r8SBcEQAf2I7OsXg4vJnEcAoItwn+J+IfqX+ccPD
OUbuKIApT7YAUQUKf4oBMhfRvIAbbv3y2IrdmtBIcjBgqyjtf7SH/0Z1dlgKAJAJFEFbUdL2XIJZ
xLB/wB+EJzKudxC4I5+1sIkeaA9ggCqEnl2l5SD+CFpKDnI5exF3DJYwJtGz9OvlLurLc2MhaNCi
EggEkhSF9FRxA+5Tm/WI0fwwUPL27sbPTsCTEEAkBV/15tMoHYPVwUCTmYBk7T0aKY7I+KnUUP3Q
9XQvlNv+V2Z5QtV7uigon/A4BZHQ8ogi5lz6C9OLD6HCD/7UDaiDQzbKr+/+WvwNmvff2HpdGE8w
jb4Zfm4dOLcDBvVP+vMq0/q1LjSyeJbTPp8cF2/bhBW3/PX/GD6N1w/tkSBw0aDlRANQIBP80P6G
vYAtyPKO4jbSmnRrozTNLdMtXJlvuQo8kQ8uSVhqZ28+aVIAmVNIQfQQ/BA8WJ9nQf7P3XUdFnak
nXYN/mes7awTFZJjpNFf0JqDGmu/qoz45WdSG7CrmqrWQqM7KpkH91cWn9+dxmfcLXLfQuBtNoIZ
YEyB8CjY1THA9flvDFqfOiI3c+NZQlb1cT1VfJ/lazGRNDUYxg2n2VVLRC2qqCpn3MOOVPRrbTfo
1ExntIkH7qsa9WD0ZyoP5G7A/p92hFAIaoir+YUXLDpGLdhhTTxJSopwyK8ojVEt0KnUhY7+qzWq
sSzYw81wKfWXmtuHTOpoo9TGTz6MTGZmCdEDCPEkOhicsy26srurZjcvUhpGqxZPk5SQAxVCO9fV
GSjLeaNN1ToCnY1laTiSZjMuUYR2jsIQ7LJWPjwclDUZCNAOk1RyQ5Acl5AaBKD6QHGdWQpwkPSy
utZ4O10CUoUdEGQ8r4ZDlQNEwUFDRT5aKSqQr8MGWgeS6WikqmI5sEf+PHkoahmKAJkf6fp9HdV5
qc0DB8nt/ag6UbdAsUTvh+uVbJVOzbuOcsG/s5SG0U7lWDVQL+z268qSn86SP1fr7yrl/FcGtv4O
P8/HG2KKWphB8uP1pqEGqvuc/rCrbo2kgvgV810bmfH/pZhW1G5qLNCcKAhw4etgQp+LRlN/JVH+
p+ruidjWio/9N2HhIVjbrg+Jd3gkwi3C5H6qH8lOm/OAZDDCO/q1ij9G4dJrQ60EDcq6D+j3EBxQ
PH7VAU9SudGFAAQPZts8px6Y2Ek/XOtB+b4Sz2Qca7IW6kbGxpNtlel3bkjY3Xd/HMfibpcoNv7S
CiX5fozgSYKQ+Qsvk96J92ehIJDEg1kw5Tmy49fu+AF0w0wegIw/D9k6eM+pmtw9s97ufGzSctH9
hEN+yssK9TcgeAlQKX3+lQREhwm7jkRn6ABSPuM/a2moc/C+eTI/1KjQBw4P9UPxIjZXuDHXlqJs
5cY+0NG9+aXD00aan+Dco+3hQVnEwpn2iaiGdwsFS5lHERTKn5KWO2Rvw6oijJzUG7lkrgN+CYO2
EDGe/MSvhmh0aOFaXta+Obssz4wU2yPCBBtDGfV5V383jK1TK9GqY0PhxgYwG+aI239kIMG200W0
QJHuq7ZToI0Mn7+YVc136XdSx1J8WqKXbaD1G2JtAz+ZxMfo10NH5ZDsv5Y8vJ7V+mVP1wHLsxBu
QmXL5ukfa73B0nijIaXVQkTRVJTft4NBElFPxAYmk/uyaXWkkLxr/tyfcltkwP/go+Q5OUf5wKIn
GWolipE8ymgYeDUR6nJWf2van2tLgo95r3HsyfNlKFL6BEAiNQigX1HzHosJ8ycLQHgsO74yH1q8
KalxjJSR5nxBCfhl2eE/A/cpc9H7k/xwLOUKECmhDbxZnqp6wnwcpxfN/U2xup+mtl/5HRUh/U46
+zZKX5OTRnma+xEvdoqP4wsXLVqg1CPTU6bZsplXCGnkfgH6xT8GgWMpqQq/Zzku5t1P46fg5/Ir
qUBUJXqo8ylFcxEF91XaePbXaA+xokwT1ChhvZ4xKuj24+6tnTug9vFeoXgwjPraNsjMyJx/01GL
RkPRl9ucTukfFrp/mGaZplxdMofnqZYdwI5euT3fLj3IHI1NLTTqEMqHkB22aXxyOS0MTR0QZDRr
sef0ex18tlvVNK7K0skPPV5mv+7AWf3v4+aGxtNn5+Aa5FiVvne5YP+x/OC+x8SIv5Mp1+b/q3/k
+48FOgViANvhan5bCjNZHpWfm0WYwh+QiPlUX7Ge3H4n+3pwlXhS3aFQYI9KqNJooiCEeSR82gw5
/X/X7SePwtt8cWNtNjOj9tTX8MI7PtiPQevvwVu3+2Y7n0VsPDsPJ0mzArGp2ww4Bq6hdUA3RzS8
HbJJCFAOyT9jP80i/9A6zABByBYTQUUtUInd0yar8vCm3N5GqRVV1RRDy7M8/6i9CQYyYaOUqPUs
xeBHZ6YQ1qjFOGdOwtsi9akvVBmL3OG+4NowDhDEiPkg0QuCZgfe1jMMYwwUyjSuw0RBBQcIEj/T
A+X6kDPmK2Om/Uww6wTnQEdySIyXe+rMjExzCNqqpX+/FtoX1+sNjBjSJ9/WdwCGFi9bScg9fHTn
cmgaJIj7sOCiD5JHtyT9ufw5qJovtBAfT0yh8JoPOp143ZZZZ3VWv7rrTS//bogjuyUPMDVTuQcg
O1+rbr6/OGgmpKqkmWYmCuYMyQ/28YJICoIimKaZqL51tSSxJSUDLUBNQU8zqoqYmOYwQFUf0YyT
Ex+1YL3g0Q1PhgyQFVBRFEQe41URU1NDBO2Rrlqv5rNBXINN9933v2vA9W3F701HYqrUdFR8vVkW
B/ddUluEbbp5RExnxZrptSma2HLRJMlwwRy4iAiZQRmBjiTIBBJJgl3AKfqGeYE3HKViTQi1nQkU
FVf1z2o3+VhtCtoMdJZU/jPqfLm5jdsgbn+Pg+b6scPJ5ff/1vnMYQ9fktlPPK3Ubur6Dn7aCjlg
dDBwTCaCZhiBINB+5IJiBggFTR6OKVSKYwbGI49c7IWMS7EWM5PiAocHytVe0PCqAOGbdq/jJwLW
iQHBwKlSm6l+RK694grzG2queCLfyowHUiMIlubnNpbTQOeZmb/KiJkJgahivIGOd4dqSkKBqNaC
1d5cKf3JOQ0lKfvydm/N3/NmaDihjHSBV+eOEu6bqS0ZI3qisLPEkWJKRo78WWHSd/PfnaDWHGDW
5jk1T2f4t5PhdDnNq8xM0UcnFttOttsdTbHNOLFToLbjWPj8/LiIvsqCpGGkUymkyNSqVewyDH/P
qhojSbEHHMCPEWMlDtUC4dvClcN5yVVEdMqEdJEkpNlSDxwcUChpvY4Oi5x5OsW6pp52qrnBi6ci
xHNDBHNtnkPJKoo5uGOXLDnIBZIeug8JtN18HOx+yGeZaOQ4XA69qcKPyfAlJrn+/KHb21kf2OUH
vcX5tfCg4qQ92oIb2ljuM4w4MgxAKlVsVBYWZQZPb/XzfipQQLAEBiOXIb0aId+nunkH+XmvwQJw
+UiWfcZizx6OEgfGy1du3prfNVvDEtBwHi0FgbCez3vC5IqbEZGviWfFVOLHQHz/m435x4i94eWA
eQhBCIb8T3/p49mg3ecGZCYTiMgblZpdAFULQBEhQPhA6YNije4xyURoOWNlOyndgDX9E+VCcOpO
7L+zMaCqYmmLt3fjVdzEyUrsdke9MKdg1EgURUB4flycgiUKSlqIT3sEUQlaQ7ByoppIiqaKCgaR
oKdGqPUmqFmoPmTJIdnETNDS0k78ynzQqWnswN0Lc861B9BA9O+SSaQ7/DwOri+4CnlSBXaVwwPE
8vSO88DlPYHcHiWtD9mRnNn2uhiAkBCw7rqx5EgaKF/Jh2qw467lwJEvHcfKmeYfy6Epd5C2Ca3B
MaAxIc2wkPkIHbDbl1nRei+jWHRLNVJ5ZcbDMRwzHYgDh8Z7/69oIjs8gNRXJaDLGiAJ8IHpfGRt
DAt9fOIUyCwaE/vmnbjK++RpH28TYxFtrUVjuvBr1+t06XiT3v7v8Hp04hfr2WMtLZ/Llp3a8bs4
aHTwUelj3sN8HR4O95HdAd7g9DxuLTxu5DVmD/+WOLtaf9v+P09m/pcWo7h4PzWS8TmfB5nc8F8I
nVFqAmUQddVa1XDSXwvf59OxSq+RYR763ijx3OOyrpjy1TtcCgRHQQ0ENSHLAkPCqD2QKid8UT3c
kqmNwYOEXlAqiCmHTz8iBfJA6U3kN4iRKOiBzvr2CGk5S4LpJilhCWEJYQ8SD0oPdQepB1oNIPcg
8yiGhrmOmtmW2xa/C2V8tK00qpGPJnDjCiBJgJqnxZIthVUiFFbJUFbLWNn6InEQlhCWEJYQ9lBx
cEOKD20HQJ2BQLBAt2fRrvEB8vt//g/sxf8vcz+whrD+/WaOEfX9sQH0fQwg6GUMtv3gW0xjuZKe
W/dyuJStznDkckDkVoaAiKUoBpozMSzHtwjqfdU1G5ByHb8i/lEMDoUKVKACQJIfGIPmQcTnwwWm
hUJTyIPuIPpQdEHaoPn2+f41r1YWLfbXb2XtDkt2y1pcx1AaiKSEigmvk4qz+Y9k+V5CFHrp5fR7
LYaX5d2OJIavwIn1/vaPx+I+1X5ofmbk1j2vqbM4PzopzJzRU5m3RUuti6VTUPV1RvePVGDzIeE9
zrcrk055BfOIXXImi71x+RHLnVyKMSePGRVcFTj7r4igtig5NEWdiIuC7yq5yNRPJ4RmVl2tlCKp
LSdyZhrznKbNrjpEWLy0uUn2yU8U9xDoXNF+cOudUSM1Sbu6cReckXXFCGPc3jxQ0KOXkp8hRGDK
VjbNXPIo5L3UQ6TZpVCUdqu1D0brmcXUWKJY1PJe8zZs1kT10Olk5aeqELmwubeS9RV8nZxPV2d0
uUVVRvFqkki4CGxqh95GDQZfHfzm7Zrq5VceadPNvMVE88NAKMX09KQAAaYL0aS7bui64JrYq4RR
LwkbRNkEHXaldkTQBXIU8j5j13AJpR7e5afUg5ZIGSDvJ2QUm0lKPOROcquveADQvuRDkoh8yr2Q
PIQ53InZTyHkgaQaDsP0g5Pkg0j6g5KlPJ5AJ8waRD3PY5AnqdLwhOcnOVSnUiHRK9Eo8oXnviPz
PuR9yUie4aA8hfUped4jSgGkQbRV0jeCiZwXSC5RcIK5RMYEoU+JVOSNCfEogfE9nyAe9GOpE2gD
UgOQbwbkgZAJtAc5F5C0jyQ7IqeSPuA+IDyAD4lPnu7IUhfTLpCle+svzAGlA+IH5u30vchSAeQn
z85TsIU/HMqOEW+dNpnELwSRGRVMoZQq98cqyM9mYCAF+HwqvV4XsXMbQ68dN5shUpjTIyDJmJia
KrbNREUFRRUxRNVFSQSfW0YItZiS1sTM0REU1QUxRQ0RcpicGkpC2drRVEa1BtgittRTFTUlh+Dr
Nw7AVVFCzRFUndbVFFVVRE0SlNbmB4ElBSRFI82CiGtOiqZmZJExpNjbbTQfZ8TR7+8PhxcdHPMV
P3H8CVcyolOk80oeesglQp0JjO45Sh5QTu5cJtzHE6MdZEvQwzFAM6pG9uMuCrZUnVgAUXBTzBzQ
dvKwi8Gvrw1NjIPa3LenzVtxU5jvZcigMeoiKwQDc2prFCGzurYrZyTSxySC9ycWPLPVOKTvJd4c
09gi5dZcJ5gung64dqgJhhhYXoxczk6+QLBut1hGsaqbvJeosW77eF0dRguYxI5E6lAy1DOrkRFU
HVkTKFO+TWXBy7qpeopyFmZEmMyKNk3So1EmVsVE6+1g1Y4chxrveu4MvMVTisJmIaXFnHhi7mAD
NFNWHKhzQxpeFeqi86ntwATYm9kUcMPhyHxlSo6cDmpzNqQiXsVtTN1kCYKd520qvcWWcmMsPogY
5o3cTLuDmhVFhCtuJrHtGw9ymoi7UVtCRDpzsinh5l6sShVg4mD0VeTFk2KRsu8Encmc2TMgObI2
6eLzTA3UpKaxEOqJIVEWN2oAo3roh6q04wpKbfI0ZbhXdNdYrm8iRUxF5NSJWLNyDEO6fFdvcven
bJzYWYhAqRTqHSVVDQRIx5tQUkkkN10Ju8yb1MsiLBl60ja1KQsFbd1LyRp2gpBM1lyH1TL0VL2C
ajc2iYwI07uMUvru+GdWSgcU1UZUipM3E4NzLwXBYlWYvN0xcqomA+mREky0EJ1cDJQUXkYVqqMy
KQ13m9eH3IjNeZfIq4RqJoXu673F2q3KViK0ipIkkHJfMyxVVYmpiUDF28IZj5dYHqQ5hFB2qrxZ
VO+CgSEUQMbGxtMAGwYOcyGcukJ3Aq988zLcJXQkVkXdU7mahRGFB1UUHOGTUu8xtar2LuozEVtR
czA2BELRTxruomCo2rrRNCiXx1e3D7sOlci904yGKLfMaKEQ83hzObq5rWVXH+no0raXLDciQRiT
YAraVdAYUuMmeZ5Qk3kZlWZi8hcwaqvZlaVliquMWuHAMVQqZqr19h5UVT2Z2DlajqsuQrpl9Zag
vzeDBcQJ4K1+aAYoU8hLj83lZpfk7zUKtkjllWsrdnNwCYXG2C43BVZTyCsIJ5FPjTa3dxVVKc2H
abfI14IfKTtEuEbuqshzs7TmKtDLetlRGvG1sQz2Ra25EvRmjmy+uIeERdTqzFGrVINTSJrIxync
1FiXgwRcun021u9GKszUzRKmLV6xM2VGrAoi6adJo6r04X17UOUprZbDsF7MkCcnZOxIzbiKjJ13
nSNxBacqdmpasgze3UEK1JdbbxReKeQYLup18dbKysiYHHcULebG1sm5EXWzeXEDlWXUPc0lsnIG
ULZBGYTqjAiji3Fk0SbmHgrNV7OjNg2NmatzgcPFjDm6ouqg7M7XIqeGXIkalCd8jipG4ZAY/BqE
sokKTR2hVDmXgejeQJklxKD5NQjdGkTYN4KiDeSJmU0QggZoQZ3MI2KwbMF9PCx4sBg81iIxyM5f
BWQRW5qgGZjHyaEzjoRPNiVoerE6ZFBKELi0Cd5M2hZbRxLJJcOCcx81PGXync87XT+HwiC/pAjb
I0OKDTb2VGUMgiq5qvcY64NYqKNBito9+dfm7RlpTxRLV1N+tAnxEo0zTUYH0a20vkvCL97zlmpa
G6pzWqWRbxRt0G5J9tJQbXrqo2URwbg/SOlVIbqQfi590X11OJByEkbMO1ozUUuGN+U4ogKebbrs
b3MIjz2yCIP6JEmaQaZSAkP/jAGMQNGxYYnQ5yIqgj6vqzry/cgKcYqf+EZ/Fh8vnspajjY/54cD
f6oXP7LvWVI6FVOnVNR+aKojX63w0Rmhl9DSUZrneCV+G0rIo9OP0ZXmla1Q1QFIRtACRJDFQpQC
dWOW2AcyD55Okunq5ntE33AuySuBIsblA2ceZtu6Xp4iADj7Lv2EWoEQDtwZ9piYznvt3inCFom+
CnMYYHkMbZlNJpXE0ocdA25DUAA/siMCV5zxmyfdM0CYTZlgL+AkCEUPXx1meIgT/xAigZ5BIHDK
XxiNt5xAT+ogSuriYc+GV1qAS9AYxGxADMw2KiBId8B2wU6ZIjzwNSMTor+7oNVvC2PJE7bHYdEk
RJDr4cJtzxkMRFPDt5/yrw0Dn5flL0azKtNSKNzZfXZBBFF+6SCO2L3RQ3Z80jA33W2lrLz1QC9U
VUZBV2JlVyCAIovBOiRGucLkqIHkhe7OQCeLcchEEHG2Bqid4f5ZCgpnEVESRFBJAARZP6tmY55H
yfjUOQ7D8zpeemYX5rX6IXM2eo0nKY92UbmYi9sh9gg7kgauBKmGlGNwo6ens/1ujqCOJBDVBKiB
aCgue3T9GrXj+32+bP/Zze07uuPZX08Zu6z1HHqPMdiipzwXxQC5Cq7wC9uRdMC+AIFiBebrKBbw
ESHL6t1Z1dHjgChIqIeeAQ5QL2VELwQA/3//3+6p5NeAORvJL3ugD1yqD3CEASkQNxhBE3k7Uop2
UQ4Qoh+YkBThCoMQoJQIKET4IRD/GRETRIHaPJPRoUFcjhRMNYP/3O73dcnWbMY6aiJUoKKIWqSZ
ovPwDhnWaAeoP8D1dquO1CTXczCggCqEiBJgE5kdUgaNoA5eTGMzpR+sIp90j+JFKoM+3Kh9gkfo
hA1IiFDQii0oJ2pQQKBFQ96AQDSsAjzMf/YlPxfznxfgc8Bhf8P81P/3V/3rC/4H/hfTRfMgHk+b
mi5DTO8hUEAFOHrxCw6B0MDYYllN9Moa+zqB54gB4a7R2jqka5zuzi73NbaRo1UpoxhjSDJHyBE4
d+txE+WGJioWvpJiQm5aEgkCSEI/bxt+3wUORSiETSFIApSUP6SxjA6TG/j/XvJA0ihwhAP6fBin
GFgkIJFoEH9EKqBSIq5p/WGP2Y5w1gwRigeYkUPYgFfakXyEigxAoB52eEKbx1QrjUUlItJSHRGE
ULEL9IHnMgUg1TTTRrRERDQrMSQBSAeohA26MVHyTjggGcAJAc4ABUzg79dPlm/VkWBU9QaE960U
EwRURFBTEw0SUVZCGEdcKJ9bRCfPCIWGUH9cgaFogID8I/DmkoSHbEBwJQYwmUiQfxhcggPzKgh8
MhEnEPkFiBYgX/2GcCwGXt1Itbqaor1YOZvQM0KXk9Lll7tLevss4QLV3S+hDpJAj3Z5H5BKKWHC
hBtihI04eZDlOVmgNhXoLw/nOFwFh/A66oJYRJTBgMjIe8cIT88B1ioCWRZOfTieSL1PI00LpEpP
h9ttfPxYTZ9FsVzgwAAIMVF1RBEd1sbC7S1RUijFNwLKEQL4UWMJcAJ6mgHCRD90FNhER4Qzbqyi
hklLSgDEAhuL9vk+00Ze5Bk5ZAFRCLx8Jj9LALQnb7uCgoeaSkE7TImTSIcoV6IRfm/fr/8DYo/Y
RuQGyzKydleCcwnIeEHM4yjJhKkZoCEqpSpYaGoQNnGkP18I6gH3fhh19YVo9idax0R55wjbuOK0
UAesvLP/0Gc8Wpw6lfC7op0Y8pBbz4u6BsP4MQhHSr6zhXCLWxWg9wG/tbsJz8tl54YeIUmMhrnX
PFA476SZgoeCsjq2a0GmgpNDbMonl+XgL3X5NGtuALiaChAod5ETzSh2ED5iiV2gU7pKponTHv9B
h6LqvY3xHi2MvEH7I+vmo+6c+qtcvC06YBoMBDxioLxSioHdOvH75XeVDvQrwQlUfXKOSd+iHlKg
4wGpA7oSQQRKijSJGAQHrgIprigAfl+h4tWVeb2ThEFOs/s1D/kTAPb6/389DfTNT1WjBl/2LIa8
HiNHdhzOHBFk3SsYIluqol4hyuWYJn+EbUe+j7Q0OeO5AkZnPFzTHUHIsw3A5cCIpLzXnq5mPEe4
B0CBQV5tk1BikW71YlNCP6Ro5GxAQaSa+A6dQPH0+X04G3xcHZDVE5YThtmSmqITRvG6gDyAYgV8
n09saD+xYRD8Cg8KWdHkOxESCTEQ8f9K/brg+R/Oyo4Z8J45/EK9LP57lcZRDj8VR7TUOrRnHPha
u/Tu1+858+pDpia4aogWSzfnhUmreZJGZVk/kIMojGKImf8VnUGdxynMb4+h/b1NW1uAKkHu9+/S
6ZZUEgvIcNMC4SLbVgTfkVCRZJAj1v+HjwrjiKf1e8/zp18ig5QJYyR+GN5KbsqrGDWmlhzFoqJ3
q7B3klNL6uy2Ritg7RE5GcF6z6Ayr/6aNdz82ddcEjZxwihKdEI0hAITEMn/Ye8F8wf8QzGd6KSc
dmYr/NQODgTeoIDKwhIBQxDwttHUBGRaiSeDSAr8SoKIDEjgQjELqHXgCaKoDygr0q7/NiuvI17F
+TGRjSs8Yfuy/f91UxnBF+h6ejYYI5mAZoDGKRDjnpDDfPGricT4Q2Z0YD345cx7DQTne4wBuP75
sII/6iqIjkRNh5AqV/s2vsq/JxdOGGb8+NH5c2g2kg2572W8IRZD4zfZ09Tj/+Thq5J08aOVJYeE
iP0DLWJPBdutg9f0KAH8goYuboXgtq2ofk4FdGetV+5+nndY/qoXFX//c06N7DYXYUDDNK9ZpGDo
5p+DkHqiJcoijghP8APly8vZ+6uB9twO5B2t+D0fQrEUE1UO9g3Z0HBUECrhJ3wMj9OHOxlzrlcs
tX9NVmEKgfk9PBQ0kk2B+1iGwImko+t674k/IaolFLsPpxwz17RrDp+j4ceJrGvAXhLvlnIsxoKD
OixyNc3YBH1/j/R+UqfTK6Nfz/pt8gT//Hs2w3Fb6tA84WtaR4rHBjuk2wQbGRQx4tJ6Y4bKBPLf
6tGIW03h92goz6SZ/KjktXqjLasso/Om2OUiMkkIaW2neQuW7Mc1zaJ2wwvj3i6k0jwnbQcH9U3z
Bcc4lGsFnNMyKbhiJjB76KMpmYOO02goGCJ5cqdblywsHri0w6YPRE2B5OIeGGmfP0ug18YWxtL9
DNn3km5XMEoO/eHvY3TnCPPDuEG/v4cJeas7DQmdMniiFn0Z+57TEvmw2zlgbLIeBi0mCjLC2TDk
rZ/Kogz8MiMZGjlnAhE9/q1813DHoiPyajVsLxZDXnY1RuQOWK4lmhMu5zC5AGwPIxMNlCzqwpCj
w5K8KgGlV4Rrzo8Dqi5cMsMSdfvtszOBHi56dfrlGUDtDlpSRLbKEPXF1wvACMAcr25rrstSOfNe
wWiOZz04EVMttOcefI1mwLmo10od5FvAC4wDKSqmuEKXwIaaqeaDjHmQIHSY7dfbe3HiChQCJAUg
aeoowoBrEc7vkA7zA3HYAiECh1kTXnj5dnz8hiCrLosKESvS5+f24+G+EjQX/YIED0P7vIfEuGzS
AdH4QOGCgAWYK9sC+6lMGcIftgfuCOpCiRpx46ua6XGJbdjYEUscK9qSEkMuWyXhsJcxKG8Ke2q7
ubi9uB+xh38Vwgf5fW7QVgHkbHQZRQ2vRx+GKNeAfo8kE2umfzvWvNI+LR2zs3uwPKx0p5rhXmJs
TdwJjUPt9KV6gEGJeZAKaTYD+ACCmSSMmrX8fNcvY1x/V/IR+6+UUdIkoYhAmJ8/xDxiCkDlD/8H
q2Fv/4k/kGGks08v5heHUSS9VSv/tC6bwYEd2yq41CZ1NWEP08PKaWH5gQ5y0bP+DlAp2XyDlgLk
302Z1pBYkon7A6qpSvYfISkWJA8aHXmfr/l8JrLuIekF9rC0ywTSSS3JRP6Rjmiqf1f56y8dNuQ2
7b8+P1hE1jhbOo4Cc9VQ8Itc1I5SbvrjY1wbxTYlgoTbHXru2NelSoTVxKMWVN/bMGbe1USbHuJc
tBw2eP2jbwktHD36kivGnCkFj2w39edebdDRjygsIDc3i+HkERD/S4UjDO/z76jggZRTIUICgDS/
i8uDBw63VupLNHMKvz/Hw/+775vz+auKL9oOXLw/Dx789fLYni1+7Dkq2edvlCiEVHMkslOsrPc5
7ZVrWa/8vT4LboVBz/FUGZ7CePH+s57+jiyOQvUlVV6A4/l07deMNqqP1hzeYKdgREPu+7drr0YK
WiGZhbr5eNU+Ecd9jsugpY84d3jTj32xZ5tOi+ZLE6TnVB18nGft3n2HaHp7jWHRH+jfvOe5R0uO
/yX2778OoPZP3YgIh5CMZTvH8YMaNSNIH8BLpIICJCPuw4igJq+kGgCnkpIZ4D7KKmeaCK99UVZR
mBIhKQSlKWlkYBKCkCmJKAiBJlYgJZRpUoCgqkKApCCRKVKQppSkaRolkUpaKSqQoGgYIVoGlKEK
EmVoKFoWkZhKSIFiVKBKRmEKChQiApAiBIkCZaUoQpCkYkWlopiAKUooRipKEYlpShaWCUpEmAKS
lIiSQpKGhomEoQoCZUqIApWJoKWmkKaEmQKQggWCEaUmRZIAiKEKRZYCkBoJUGYgGJUoQoIhWYAo
CIClChGJpoKChCZBoKSgaKZJUGkoQKEoFpQppKWIQmEpaSRJUpYgpKRpSmhAoAoCJpGmhoAlkBKV
mAIgCYaGkWZWmgoGgKEJYQJgaSYWJQiGgSgKFpUoYGVCgYkKQpaUKQpGmliR9CfcbG34kWdsB9Pp
PZ9gzbdKDuYctZRYYU0WYmQRY5iRTXdSl4EgHauZJtI+Q18jMQWaYJlzytNPSigG+FFoQjIDGDQw
REDXVA5IrsKc8oGkDwMfoPQgKp7cqDQq/hKKA/b8vxHsfhqz5f9P9L/77hXJJP+u6dPit5xyrsRs
uLi3PADEiOVLjRpvgeqh3wo5EOIqqsWbXIuzbtS0pUtNGJFWdYVWS5G7s4djIiNmaQjcZRr3V1m4
IfaE5FlUEgIcvY152qNK8y5qXen2oU05US4Mxs6ABBAAGsAJILQH0HTU5B0yKrHwW6IMFTmwJrKs
xk1VKjL4+1d0Jw3jg7iFHJqrobV3cu0l4FPOUn0JZU1CbpvfFqABAPztcn4lNB7IiewCM8d47/09
Qvk/wo0jm5jhdTJF+6FtFapsfvY4RwznymWbNmJRTS+PcC+BkX8b8ih2dXX29XVe9qrDuj+FSLn9
7ziv+GFJgM2nMjZ21qGDFIQsksGCY4giCCiAV8tVVGGytfmz/Pzz4A6E0QvK68hWQiB2Q5Ac+O3h
QrmIavAt1K0tx+nZGDK0QoRRDaMy3fxICtAdYiRBo4OodgaHZGQiJIkO7gzheITY8XG7BcZ1x+uk
JMOguES7CD0YIEQmU292UGrVkLo1KilV7kM1rkRax3xAXNPRHPx9+PPgMBPPA8b4eH8vAerNVqRH
owPJepWcY+IcYcMDGIIxDa+frboTLyx1em7ugb3cDTG1+vUPHe600mZcldpXxNxLt2TWqdydQjUL
VJx0SWwysh7dSIjoTGkDol7cRqFEU6gs7qzFINyNe1DgIEFFSeHOJw6bUgBZTxc7QsFtqnsOhZAw
kQFFIfk9AAdJjnOhB51t2Hpzxi71V8HFl3OSudUcMaTYDKY8gFNL9Ek4CwxFj7drxDmqpXEhToaW
c2TSaxM7Awx0gULVwBRvVf8Bx9Pn9Qqmd2SWD704cioczFHogdiZ8VlDCkVqTophx0JzHEG/SUoh
Y3lK0A/nVnm8VAKPG5A7iiWw+CSKMbvQDyOjUyukpcQBAjGjL8WiwBISFpM0lv6/yO29ZuIAI2dL
DnSEEE06jvPG7FMNBJHgthFFq5gq5nju1TrtUrTKQJsgPV1MPqzSsgspKDuhhGEPKc6Rw2WVqXpJ
wDNZIyKDg2WYzbyWsGQQigcDqRDvzL4GE28HSdIg7iE3yqFrOMzzIirFMzEM5Dh92VEaZhNtPMDD
Eo67sM1/iAOdRXUsBsBclQdK4mDyQjcJxFLoxCqiuEDJm1DIFrLB3CAjVr0ot5gFmcHHuYWJqzHz
MdmoTjtJc8DDODmcyBA4CMEkSFUa8gOWBIIFFyiFxbe2Gg7CL4+HCDt3ktSQBLTCRk8zXYLlXhnS
KdMDQU+7cORiTCuTcqXpuhzktBgyUZITyJmQjh2AVZnad5QagQ+KThoiJTNY1Bz0GHOaIfeTKi5y
xYqqML9pcMXIfyB1dNx+OHyB3DDp1XE8JjKp0zItfSo6ki4OFolAarFiA+IVMbJlsBJaSwqHcaXK
qIeZqMkbNlECqTCUhB2k13Ls6m1Ac9hhx6F8e4sc3IlzlMHHD6HbLqWFlYh1zndSB2Ze3AcszhQn
g92Fr06LWQQbJIoibmo5abg6YW4EB2AoOBa12G5ORMJg5A5tuiapVDA8cuRK0tJx0A8kLEJjZAcg
UiodD9WHbNVQNVFMTjx106J6ky1Dqq0v+cthYQl9BBIJbDbpm1aru6EGSAql7Ic3cu1lkUWfhRIE
DEzYRhh8yBBJggQRVoCNORIzLgsSLKKdVSAulVxQmRV1GRk9BheVlBnezDiZaFxGNgweFRc4lJDk
Nw6Z2XZk8F2ajRqZuVM7UQyJJp3mg4jcrCwsjkISQea4TrSBIxFygKEIbKB6lfcvIz1J/bRKIomR
twhIyQZCNuDIJIJIO3hkIiBAKzxfN3Lo7I0V7ByuMtHMIuzbEbqIiYeHvBSfZnErq4olJZsp4rKe
4l1Sqc2MJe5GvlSFlUW2XB0TeF4iFkCEDkjTq0Qz3VOa1RYQOqq4Gb+uRTHwP5/qvj8N3brwr+7k
AiKIdsBBzHHPY6FXaoMHkUcWIsZHuCJ+OqjEOnTLozdeSaBBdV6BoiH5NFJX/5tjdT/teqQgy70P
vS88cIFrX9j/1P+/cBtDsOqIhl2RJtBQxHbApoC2ljSNOtVQZHWGKggdkH1w0SaNARNJBdO8eDTF
QGXVmnutS8lIJeU7HnHJwdpxGD6fA9e9PDWRCzRRQFUNwbbE2uddNkgT8J8bPX097fx0GfpE/Vmg
EDEJFyzHgnYDuVOoCC7ynt6FInZAr7DK+tLux/AHVkckby2Mio2Q3Rbr9geonq+YwfY/SIMMbSrw
gPD+XHDwHdcOCfPENNK++hVBCkA9LSAnHUcN1XChy5dRrtlDgatjeYLbCC9IAgWgM4myU1neUsgU
aoQ7CkbfkGE0cEtWoA6mknQgcVHDYlOQxlcGoXrzhzePVSqwAyfCcaI6yBIW8qZO9EVsTl0USGnC
VXPHFBkhbUGTU4YcRbtB0FstNINYn8XkaKQreOIl3N9t0IfKuzG1JHRbCzcWovoIEmzeh4mawJp6
QCdcdBsxCXlw5jE0ytBGwqI4DjoXcui5roa8XZXLqmdE8toY8I/bxO0w0BO7P3riDnENldE7nNav
kpT+4kj9S8CPZmekW6uTjnwd2u/FX5kBzPkZMDPQejzZpIJlzdupFBjUu1RZeAQMKxAcyjsCnd5d
SYrXayKDoaDSvDexTkVKKWkcaqpVzVzOEC3RALAji25Dts0HGYglj5qogacFphBEQmEJ3uXeXlxw
TN1OTj8IG4gCxiUApTTScgRKmSgIrmxZGkOHx2RIMbrsxBA2VUG3Z9uioAhEPkAYZnMEbkGYjZmC
QtKAixY2ANBqr3vjfXtYR9Ph5jleKHhz/DnaOYQHxiPA5uTinNb6f8P90LH4eYX5ECsFQr2dzaxi
tBBh3BeNSqJEubsUsc3ekui7kXdHbqRDSBQmdSeIh6wadyXzTbizsTE1uWefj+k3f4ADN/qYBiAv
miLlzcVgXjBerYOs376rZW2pAslqOFShD6X0Q30Q919ZKyXFEUZElCyBLw4g9OHduUlSHQx7vlzP
WBxcPXgINhLpjfbs0UlkbAhDXl11suOi8oDSC7XcBA7SJgtxKDw7juBvE6MO0cXu26s11mysZU7h
l0f0BfDLodBJv21TUuOEc8IdXyIGGSLutgC6TfuHgB+cmo47SXHSCJbqAZKgLiAyOnGXlxtZF5Ta
biXGEWndriXGUE247thScl2F5UyDLBWhFDHchkdOoOLuWBM6ENIaS1nHsRstmWMiId8LPzU2oQxm
nYsdlVRt35jh5hwDXOVUULIU5NSOWqfXBlbRoxDXD7De7zYYcjrqOdOpUMOdJmIjlwBCSnMFyH4g
KN7rjCbWECRKFJNOJqtMi8O/NU76YDyAO3Ali3rw45CmMdt507XauEyvwtUXVO2lh4LVMT6UQS9F
JdFuc1AK3cx6yaug55HAykSFXHYE84q3JBl+VxnGFwQIQHDNJpWl6IGVdGBhsgQQ5mocCkMfOIbk
1A7b6A+R/V5YAQQwYeKwdHXEePMHxMV4u8UrzLXhRu3Va2JCn2UzhmAZEba0iQnhW5MVwef9/xXG
OGAPzPPgTEbC2rUIXKo8pq/56RlBCwUbTXacWi8O0P/B56rqGs7KAz8Q4zCumKKLCiNlCgRooITC
BFbeSOjcBxtGROmHGFhJeHfTfhtqDHHDlhZbCwx0FQWqal3kHiEHCSOB5flJlqB/PE4F0mFRrwWz
p4e5asiIYP1cw01idtNpNcoAymzadrdMsQqqcB4qIGJDCBtTEO6EEC6XXKyA/AgRSHHQ2JdGzZYU
eRyYArU0F3TAkCOA1EybmIugmogaXtA7IcPnHQdY6eU20hRajhFETbmYG8vKl7qE1y1QS4FNRrV8
UuXthjxrWdUJQ5iABl3Vvc0yBA3UGqlhBM1j3JuoAqExSbJh63m0ZzlSHMAsRhcwQCZpQW/4jqgz
jjbVruEqi2dOOdcvIz6/gLC3H7fiHL9eOB1kfIF/meiAIO8oOunGu3J3Jw5lnc+qxlEKDGJe5ZNN
+Ydyaub0tRA1txaFYdTkPadxWvHOMGhiKBoqDAT4bunvOx7jTeZk0N++pyso3wrdZ5BA+CHB9lyN
OmT8EW5TSQH6FuI5Zf580+6q47jO/K6zKbt+bUsPE3kT1F3MVnUTqbw8F8IrmvpE1Bc6hWBEEYZS
CsS8wleOjhw83XG5ERUQ4gs0JIuclbE1Dlgqh72HHTEbBd6rjyRpuOO10eSlAtcqBkPsyHIzU1Uo
TuzKhsRwJ4W8i7kEQWlKSSDUKoZEZqkgVF8wIXQCLCn1y6GE4q0a7OWxa4Eiph8ciQDL5ORUGqy6
p9q2uFwTtJRx1Or5VtgUVKZjRrrrdXxPiHSBFV3Wr47qHXQnoiaqo3rFDXHCGAkSSImzcvEPuBJZ
ZbkMmY/Pmxpvqx1nXcQW+f4Y4F756EMMjeqklzNw4BeqgWoeyB5bU6twjZG2mcPDjuwTbxx4hrep
3YqLsOwgwb1NyVgLlttZe3ixzx5zBRJgkECiBMK5QHz89jemnhyensD0Qg3RBnHcisyYmHcTCDQb
YRIiujye4x+INm3TKhukuGeeTupsierKbC2rOIVUIQ5gnlOOQhJHMQviai3DBk3A4p06U+PYRrHj
HMqZC3XF0umcMmS3qoN0aguHJwuRPFpDvTgYpfgDCVUGYc5ml5M8V5ecFJbytNb3xe8rXD1aSbQk
2kGIAHH5ACJ66YtTBUUqL3eLXSN3tIuES5nlGnJzgsVcWBIgEHJTsE9bMvkODku505i2k4LViG0M
LgO+7BNAtRYyMdtnXAszaDjyQicyrwyMLAGKf56zKnNedkTKbgPJQqiFF5UdakRRZ5d9IoiSjMqi
w0vPE4D0kpgPMIGIvmFGoFVqjprhp7jqLW4bYXLpBpjgwWogc2uQLegW2A01sQyqXHDyk2EIbmF5
qtdxcyGwyVCiFRGkbqGmakPwHeU+V4fkccI5lxAWIQWFv6AZuMzVlUC3ejlRVPyYMQV3TQRWdTUX
mM71skaxABZnIBIDc5mhLdjliK7doIoiJSe949VpcmUJLMTax25IQ6Ig4C3FeWJa0iWssa1PyUiK
lEvi5C0iKq5RkB4CbjhAW64YJdMILCYjFkziYHKcM5aCJpDDw1WjXo6UrDvekAqtgB1T46U29WZc
NRssMGVlBCUq2AJdNtIUZI4bxSJeIA2VsrggLSLBHDep7V1MJ9IkAIEYWeEB/LoMwsZevzriiXW9
JszoIVt3lu0FggkxcVUXMqLEgAIBAwQmDbCkJnzPY441nT2jppld0X3FXGjJe2sQQZyEWm1BqEOi
BhbSxLS/ewd0lw1nSiiMLNEpJ9gCJsPt4g+cTO60wtsOLUthYS6azNY4eMmHIc7SDlA5qFzGbIEF
sVYYDQRGJsNhIE2RFWU7kPqy9giBziEigJnSTBzldKjBoTZPqn7f06BWPMgfZl/x+oaLuobD/P33
808Ie39XHR/L+j9nSO00RMyMUhQkoST/SJ/Jhf6/0/SALuX0l0/nujfq+Q/X+P+K90M17TgAq8EO
1/1u6jsKIy7Ti+XivK2/KIGW6DhwJGAyQNQQvOUNpiAErCWrKGjPFaVMwYQtW5b9AOKTss74mqg3
zj+rF/q5vZhWmLSauOcfHKy3c+h+vU/9dixmwI8IWCD5qG6qBLy4YJvuCqZBqUDRDNOq2EVQQNJL
HSLVH8Qlj+9Ap/uSz77DU8q/+oDf5o5xMgHEDfb1BB+ld8PGGri77H0sOzwwtgZH3QzznpfCSrwy
1wF5pRx59i3orHCh2PoqkLEQowwPvyO0n0atmiGpS9yhUtwrGWHX+81z988/Vn1YvLCxu/P8z9hq
PhPgSg7GQsDT69zeGyKsl+4EVkGlLn+MH7XDD8v8qsiB5QalApAQOOhDETVmQJdgzJxDX6DVPkw4
6yHh3roYMzIkiBoRc+g+PwSG21o9ju1sKHTpB83gMCj/YRFYK4NPykzoD8aPYJroNsGCVEMIUKAK
RwVTV33Druw9Ew54jLbwhs55sKKhZLlB9Pw8fXK+kGyOhcdLBXYWeKaspCg223Z5au2VwzrTEotm
L8IKSMHN2wwmSn+ZRSPIruK2+Hg2gPsH/odC5RrtT38v8thI3AVBf9y2+WSZKkQOXt9BSvBqCI+C
/CHj/oB2Aayed6up9fgBeOWiPUyynwHrNxGoRwK9pXnN5EvAhwZPB4Cd/Zg76gcozjLT4gq/5iaC
gZHBGCivs4JcYBjsqiljSPdSIcTYKv09Z7uf20k4OFMsGs6KK/0GoCQDh+00HgHJ4lhwHC0BAL3i
IGrDQXmwMenN2oE7BXjTBq9sJEwWLFWp3zbFR0PwcBWwoNIAYeHEfrUVTmro6MNFRe7cmgk4i1nM
VpQXCUDOUQySIiYJuRcxkAKT3USjcbw38+4MHfX+a4v3jO+gvISGeKKlNDF3OoHFgo1YHRmgFPB1
I/9LKGKevKKfUuxlWTjUL+AD3/WPX4uDIQ2mNnSoobROEbyYDzeQRy0dJIvI1P5kR++HeesweaY5
/DYwIKwlUGnMdDzAcTQ6fBBdCkRXRuRT7Co4YQqtBg0YgvsoTHVQ1J3dvpMfs1zUC2HIXdRH5M+F
XdvWSBME+bdv3wpAXCBbmrg9KFoc1nVV5NIMbEf/64wVJOYp0c2x1eqLg3gCKQZNUCoo36/jOWqB
MXww0kLelhfh6lH501GGx+hLILzsyAlPniX5BHwSNcIfwEPpz2O/jjceyZ0UHYUaZQRk0RryBcH4
sP8PrpU6CXWgz0GRAQl5pxev4q80fqKVBrXVX4XxnfwZDhuoLNyMscUidnugCzbM+MOWnUf6eBhS
RmPmjrMg8igED2Qj1IHIEkkWcpNyCGgKh1N472EHgSHWs6eULT/D7LF9JeTkQUKMQg5jGJJPQBfR
w+lSoIpJeI9mVFUwEL8YDVCh71DSCjmWcpBGSPIZAcAyR74GlDLWEvX6T8KiANFPI9XbEcyhOMLJ
l8WYydiFMxeRFV725M5pZaHAgwnFgS1XOiTSFY9YWIfaHIRg93IVZWjSwV5NJqRYMwqHhoXejaLS
apC3StzyTzTlvflCgu4INoq7GrZ3CjzGVcBubSXWDPcxn/Z8/5+O61j0PRaMUOpEYuj1zIgC4JDu
5m5aLRU3ttC1ZYQBrR6lvpcK+UeyL2g8/ATtiiP7lCvEwov4cQZCjS72lBgKaOO+AQIjk9BtwEvw
GzEg1irPmOjldwCGQGDBQ3zi5uYLCCbJwHWR89kf0g7If1kFbL63QjcsIuXxLPeOqDddXza/CORA
moEQ5SpFCg1jIPR8Z6vg2f1b6cNqXYbBjpD8+FWv8+NG9YA3O4FeAhEzUuYio5lXI2xeHUFxuIiP
HJzeLlZnRA3RXK6DLvDXzCWapPqF0/kNMqYkEEggEEhi03bBe/79a75bOjiFBRZUGRp1x9clBth8
G3tC8H0oLu/Mtj4lmOvscvhfTnLB/b1RRzqtZUyyXAhyBiO1U0MRJQQCHnBVsucKntEMwEFh6qLS
1OglvB+v2F9RMG75PruLFTf2Q8JCkSWoYYgowCAcSIgAFRV0oOIMYXf3AUCxOG4sN6aJQWmouKLl
4cehRQZR0iJppvGPM3EqCJjTfaTxguFVxEQIRYuxt6bdgP7p+W4BfgYdkMFDEF5REe9dtGV+83cG
fXij+C/dVMY3fRRKjG2jmfP6F9XNy6GBhU2ldNjUmf15GhFET6wVADb8wLYsD+6P3fvoavQ/sap/
X+RwuXjjO6nYHJDqOGRZJtkhSSpLtj8jjIQ7vYcjPhzePcGk/fe4XPmBfn8/a8YcYuIFW8SrPGdG
3ZsmiAcubJ8dC49tl/vCj+93g53j0EOij9kBJ8VVy9mIgVZyrAFPMLJaghyAv+8FA3gu60l+6gFq
R2wu2qmmeSW5OLp5m6Bzguduxe/a+QbIdkEb9Whfjp3b4VAXbymxuQy7n+BHWVTGMe70Tvj+/06O
T/WxjGMYxjfitz7LdW7qknTwX6Ax2bN6nQWzKHit+64FZZmLphhfj6+MMXBeGOXtwW7tx164eGeG
id6lNYiXcvwn5+/w+DvhAK3tFjBz3mA9H+D5TUyjCTiZq+JxrWtGOVVJEVlMkqOa440/sX8PkL5/
d+HwBjG9GHYDyAI92EZUUS9QJJ3MkEH+N/VnSIA+w+RGHZXXu8/D0TkkiPLhzx5gT6istPSKSQAC
nyi9UjQD1tJPgGUjBPRwzIQmZT9aJRWVzLhxACJc5N2RgEM3lhPt2cM8jjiTz9LufOfcAVIGfSbA
BYhiH1WN+GzAU5UsbAzPfDdjyf10J5iYEcN2yarooHiACwOgjILu5Dn6ur02Kh6L75Je1F0kBwUT
sRvXPv0VPPv9WQbMFd0r0/0WA9YovRV8AFD/PMWRwgVNW7q6/D1ziY8TXgYm4LGFagPYGiaCkUci
Y6ct/a8th83RiQkA02yG40uDlDp37XzXWgVXA3ZWNC8wuQ83GVhj0pR/HlMpmm+Br27vW7CgmO7g
Z3UbPke89mHtKOvkDVJh2EeXh3YhznaZnY6AIBSnwz7j3UfDor/iRsU4iunPqUHUY/DsHBB0d3O5
+7mQdOckiHS8/ELaaVpMU9OEk50UXyTWX3jDSSQEkG18Me4FwMlO9M7feC1lhrJW+3IVUn7T5sPJ
fges3Avn+TDqBE5ArAF44C6jp9XLwPLXGkdc855/E8tead00vG1pgpA89/DO+EDz6YaGXDWrt8Ck
4oeOj5F8AXlxmJ5bgv6MXTmfTu57ea8M++CL1gsAXYC2AF8Lu5sAu/Aw2Zcl0B44+ALYF2qDugCn
aC+wFzBde3TlSw8X7dcTi8nYbvCeEGdd7TppwndfwO+5n4UcXJ+Hl74y3S9HP5FX1xTuvqIQkjHr
gWOvr8evXuIvL1TjObqly3RR0Qxf16vCveGEHRQY9P4p7NgjsAOof3ODkKbEDgggNTVUEbSo1KfG
evC6ej7FPYX8AgwIj7ovJPbHzj7MUu9lWGY1GZmZ2AHsgHLdDZOzN6UDy9x3xbuFus2bT2YhZtna
reuwW0oOdBaD0Ud/cj0/JJ/vZE+NLkdDdE4XAJRCUwLYFOM4lCCvHhEEobT8vurCbvj9pVcIANT2
SufA2CYQ/UdPX861jvkmahFW3BgB+6L475iCg9R93ooVUUKqKFVJWJJ/d99qJQCP6KvQBukOu4/V
t58Rzv3qhTloO6fQdk6q/M1FtVnWC3zrd6QXaAtwW4LzQyGuWwm57xce2/C6Tk4CIpsBqMI5Uqa+
ZUJbBUBwD2/Bwxh8k35yNVrZCPBlCRKIJzbZlZrStPl0anIbstofD1evVv68gXJeQn1OvZ/Sz+7s
4ePgdeoHfgcttyvRi2hpQ6xlpeJTner85he1xph0v0YcvSVNaGXs7KY7zApkl7ezao9vdtQ8ms1G
/Zt4eBx34fPoePvyAXvLqBY1bbHu6y3eYGz2FuTjwDu5OPrOEwPO68Dy6/DwNjxrXUAFzMfQ4mvB
y55yAidsoteuufufwqFPWlQ0O4ls+FCz5hZGNcAl3Fo34nsPj3fi3h4KsTB/z/W58pPk8tNxnF0C
zxFhATgy4XlWtnO02c/Ebuak9qcXc9WZ05IURemDqDVTqu4RZxioAeAPNNKoie3f2tP2VVVVVVg9
8PlVLMgwjEAE+v2na2oSekgmKeI6oNOrW1vWfsAicP+xoUIIPtJPhpQ47dtxwHpDoH8hyDm/SZH7
gET5ZgIjviB3zHFjt23+cF6L7zHXwh1HGYFBrUMh1pmF7MciOGZhtu82I5YDLhXpMb2MinTpw5OG
OJode8Bdl/e+s2bYpPLxUZ307/PuALm8+PM0VTx66OGRsH0nGMwgiZId6UWV3Lu5oEZ6D5/EbviF
IGVKIifAsB9T1hSvIC/l2cp8DkxThHvwaxDjEoOULc1heKKdvmr3TMzh0r5K1N51VrvUhDFQtsLK
Hmu8vV06/hte52YeJxHu6OaHE5I4gdZya/0pfoxyRJhv2vtOfCEPTHr1Vwg0a/MgL0HX193ObMez
VK3eHjxHfynz6Z9nJxONjnAWAdSqSw5emTZxhyHHieEBfRnhRIxLAOu9LfcTn3bMcKttcj0cc5OI
0BccfHuCJbQPh2X+f+gDMXwD15oCPXztvdbzzMYdSGaCx194/ghdMFt8NtPw5cs2A5jmSASONoag
45JKZUjENoJTHX3X+TdrVshoI2k91TaobkE1+Z3iWUZG+Aqbul4Ilt+/Qo2sAMJqJSJaDRYrENwY
6Blc4Hk0+7wQPudZTIEiLgDFO7WgujJzyoaDoI/w9V7IETQogdcWomw3HTj+GYGGy/RkcOGBcrea
zx+bEeDAy0K49SUecv1vNiFdhypKzI4HVq2EOc9U0keth1yJjY1VxUz6Mj/BzmJaGfYy2BUN6JR0
2MGPOO4mlP4tiOYq2LGxaP5Ll8/n/gT0dSJ8s+YwRVT38pgXwrf8M48O7DFGDPs2blgxWjJBAEZ/
26QXVFUBrDIzLvexeQ8NvOAubmcGt0fX1cl8AWPb5+zN8nZXXswubh01IcePF5L493AbEY+fnIT6
GY6UE8x8yntw3GL2Ju6jTjOM5NHEFtiGlsgu1ZD4T1zoBevCJbrNAp3a4Vf+Pr2+74er4bPV8Cxc
75ROb09umefT239pt/uAROQ5dfQBEr9EpoPqfKukVGZqXybzNjXF3Gy66g5Y6+6vOUEgVnkO2ZFj
DzuHvcrF47XhmujZtFIrrEVJ5S4Ow+j+LSOpLtBU+PM1u3bPXlgaX9lcvLhwooN03gvAF2Au1A4P
LRT7HVsNMBOKHKRbBw0ox0LmP9jgnGQD6/pP2MOCmav+1TmijveZ0JXArHdemVW+Ro8sruIrIdH0
K6d/HmBE2dfS6N/AL+PI+Tm3GeTr+Oyc/ZRo2x8Ien6ZleSkwo4NRVAS3hdnPp5zHhBo5ptEpeSt
bZC1aqI7Zt5xuqyRB5vVchxUNHKGqZGd+PqNWQZguQ7kPizNqlXTEz39DRbg+fA8gf7OeM8dRgEB
tjfGcoScAiZcXIGgYqDAyRp1v6xQd89a+dXfgHt4ZJgzX59ZHU5h8i1QOuyAxn7tuzcn3V9GS5lY
4d08DXEv8ji8ChQ6HbBCinBNaNcDBvGq30dFg9hOjRDlNDKoxGiGtVixKgUirpFUqsSIOhWLoRnK
fkoST77DkPAfsHgLOuCg++ZzYGHFWQdNG4HjiSKccDhPBvEzJRHqy0OkdBHBepD9Y5v66ra+gQh0
FXA4FDAWoDo2iBy6uHoROYU26D/qcgprcUGj04ojMeg0N9MB3Z39wUKCX9gqIoHhvfV0wsQOzoGc
5DKDm8kaJ7hxIAXfef7rAIkpmIARMYnyF0EREWHITg5wesNPYsKwlFXWCiQYPDAYZ4zdYnBRzlcQ
7/pl46SrM9F50rnaSdB/NCvp3KNR3KMglEhzzxz50SIWQcPXYP5iT92qfmYH7AQAzS64h2Hj67cS
RdKl1Wd36tpFjA9371eL6Dar2awIM+WkEcdd1mav1VoWtWBGApBARIpqHNHV7YH7cRHh2UU21mLE
VQGA2VgER5R3RfQvk9j6cbN01DtqFSS9csReWIDgS4mpH497w3J8iGBcwluABbRRBopmMrEdg4Cc
ZWEHzvT2em6ihTfptcxADOlmC/MePny9gHR67zW4BYsO+BCzshnxnHZxvrctbv5r+1zr9jpv+hU8
n9PY4Z45/qDfv0AMj6n/QeAoxN7M1j2Yci9HVgrzZX9HREItM7LdN70UHNgsHackE/3/wxxan9XE
Aa3JLP/ANyZgb/SdMgYqUyDNHWtOIOkf3gIjnp/YPGyCpTRYBsuadf7nuSKgvAbGoSQsu708nTMx
CLWpTnB9LFQPBwoyzLBV/W4OTpoHydGDaAc3SGBmMpwE+kIdyCPQHdYpvFa+u/4gVCPuuVyAifJa
q9XjCj4qPQvS6oqe5+J7NVzZsNttNhPThOfLY8YYAt6tiC0C9oLWoudXfsy74coL057QW7qBarVn
s7cb7+GVwhicOwwPoMez8fZ34pnHcbXPfTfhUA3wFjmbdno8cbZ5lRSNhzP6aS+TDLIVCMf63D6E
UfDSjx/E97vlgoi/ICwf9ALcY+bHiY5IcIA1Co1AoAl584svU/3fj+Y9QOuMR7n+v7fMuc5OQZBR
NvZNP8Tt8ceaN6ap/uRhbtqHhwdyBi3YGlh6MpR4IkTw5v7aRo0MJ9bLZQzn83pVnZDb09/pi5aB
KitaD4AIj3v/SF/2oIWf+SVcAWKTH6OtVTtBwP4lwCJ6Fa9/pvMeD6RmeQPx4wwQhFSGKNQBEeKY
UPD3KqM4TDDuZmOA0sPkfXotj7mbU/kMXyGr++aPbtznFm9zZya4UZKJPZfAkgAbcPALCBRChKvj
SPS/DZZZQ3hP374qXM4XpFfOHJ7SuEHBuHQaf6AIkE5iVLQEUrMCQ3/cC/kIhBy+Tt3Lwl6oCgF7
fbj50mn7RiJsAPDn/EhEh+rEZKDr7QQe4+r57T5Q9BWGqvXne5ftM6eL95WF8pY2X8UsufenUhYo
mvQ90LQeyA21X/vOI6TjJN7Y1YHScLGvPIYmcxT/XzgLin/HQT+e3gSXD6qOvcCEB21w6jyu8mVE
HPcLB0AvXV9m3AF1giXAXUK4G7LtJxAYPkmd/k48jzxzcNm3Ueb6i77ne/OcWZc9Jm3J78nHPjCg
WU3HLhgHbn8CgDD9VBpIV/e6FQq82X6YH7PVJyDdxPby8DWYLzmuuLE6qoJCEOxRoK5jjwvRUzzu
Q66KwXA8Dv4vmg6esONbStEGVS0m5QVTASashGQKLuilYSoxjVEiErho1Wrl0UZJ5dMN6MLuQSTJ
LV2Ep/bm+NFJjz1cthsCjge5tOkmiK6omVTbplUNOF/ndjBLIbojN6EGTwEeY/WZeDRcswhlR4an
HJ/3lyBoY/5V9s8zmoNAFKt2yWdJe9f2bhg38BRBDHxnr2huHBZpoNC5ybhhJBt+uFDykH75miIO
WLtiQPQ+T/j1CRrYD9uRXkoeIXCin1GfZJxCAn3P66DwDxQtyg1/1ao3PoZ1/f+0NK1Ph+FWFiyq
cTJJkcgmzyxY6yKNacdMjGwxgVkApq6keYU6ISXWpdhjvFeMjjbdS3UNPLjINI5spfyr6tkuENMC
tlF9nJqAPWTJwhPRkVHzmCJlNMjEUZTsofxwP2o+TwUqYja3DkguicMGkBM3j9/n3aw/OES2SzxM
BvFw8QMcRHkr4uGkKoC5aALBSqAowZGZCx1EEJQ5IU/ZAJr1fJG8zmdJdcKrhD2D4KB1eoec+ZDu
Z5SczYsPcBE3RxAu5RH5CShvpZRw2/L/eV6Hoc1O2aUFEVBHDXoW43MkSSlsOPDZf0pTj82VrejF
KCQMrpSaEqJ6jChXkpKgTMlorMKLxlRpRcZzvY8fM6a3Z4GjFID1FnADn7q4GYJJ5DCsTN8QFcGO
g9An315knb/b4XxQhIgDvCuBtv5bi+gClNkhVbJXNuf/D59I4F633ATV3gqOtj+B6zEPv5y1Gd7j
zPf+cbef0AoBcJ2E1CJIHbCl5AhOLZu2ee7jlL0Z/SZGLx3qtWdZ2rj+aa0e+UG7kmeJEXcwqovc
qv8AJZ+vzxRDmwpO/LpLkLr3CYb8SIo1g6I9HWsNB1h8r8FLjk/LtiApOn90/KLzci0gmO9Q66hQ
J3rw9HkFPy9foVKNsldFurZTmtNbiVXV5QOTBTGBWA9N7hbKvuLgcNwUEEYcvzEQQRcEkgoMAgjh
TDTUctXU1M9KJZWARhrpiXfQCowHiCDu9e8OFrHzIfjZGT8kZxSOTzqsMmqoc6Z37g1oVkAfgyir
uwG7O7PeGQV5xaUHxKhUNNw9GpnKe45vpAt2ee2cSGCNzElA01RzOIIo94CirnC7ywSqIBJcS9m5
6j6sqc5JgLfqQ5A1yAXxB0VARq5OHOdJznIUbrpGWIXlP0HX4MNHEfO/q7+Pl9+OSgBkiQZRVIAp
SiklIQEic5fzY0IbB90eqlGlEvp4jk0w9xhhuy1S+L1flhhtvjCYnKY46/DjrEhcSKMClGc5R8mh
nnlimm3BA2QeKDdWO3fsDQ013vRST3OHWo/4vj6dP9X9juNBtaf8FV8LL+2oE3T4jHXxZgmpkTup
4e4D4qmEuHMPAG0vjj1PMneio51Waet8fJ2kI+YuR9fPThQ9ATVy1iWpXRIHXhBwb/kyNoNfj7Q9
GyheM7TMPRudVmBgTpt5zIIYag51DMPzDRc6UjIYcRkY/bViTV6fN/Se3rwwMNxhhhgYYD3qMdKJ
yZPi8D/6X7jftzdLYjgi49Yh5wzKq92HxJGGL2fvgsrvsIBpSRhsrr+nGIwc5wc6YUaXF7m7vPku
4VzWHeNwKWcie2pxffgl0jCBVCUwAUgBSgcQgUFD668v1rrz4tLxDBt9HhwIH531f8owCYy03JgL
WhEO4QyfUs0P3uC8gF5xX+D6zFXxr9B3O7mQGf2G7chTcw/rPC7VGvnIcul2paSMXwmjnJUVEvUk
uEO3c7fpAOBoX/PowsQAIneDaIhDmoHAon4RX14Z5H3WhTm2v4eb/H00TQcjpCFNz9UuzTDKjaLc
adyuP3hX1y+1lyKeZXzLeNy5uTUhmBl48WR296aGOdOuGM9AiW+seYDADE/ZOrZ/cmzXh6qz9Ukp
eGFi0LEPomrox/Il8vGfH64CXXxDS8emVc9qp/SOfELtCTlH61Zo5ZtiPfswasGSsK9BXDBRFQFA
1KVq6kIbihD3oJJsLABEIcJChAew7ae49ZKB4ZGwklgk1nS4ZiB/R+2ggJKKoqmaoIJJIYIQk32T
EOmYGBv34ppH5uTdZeogHUROWDNVDmbOOzwEAg+FgyAkBw5S1tN0eHcmpQKKq/3zZ5Au8uGoiDAF
U5/Go7OAowCkAxI++4hVyUiHI/s/lNcclGCMFJCDxUODPHOAdpALxAEjdgAjfEFoFA65lsOfZmQl
RIQ59vNliaSW5L1spASjHEbg7IoxHZ+xe6Uxps+rwt/ZnwUCMJ2Dg70WdZ6a5Zv5aXjil4JUDWEK
jpLxvahhNhReKW0zKO53LW/WCEGgpN9l2HyBuMkkmegd2FjpRww6IsHuAv4vRrcr/mY2tAOUDgKg
Z8huPZUb/RTshqm0OyvlIcc89zksHbVA8yQDZ3Vc4UHw2cu+Re0+v9Kx2hQjXno4kO/dgb48vjKM
O3kRu4irfVFH4qBx4hDm8tiwTODSfJVBGE5phMTS/Z58MuLr91+Zv7oDU62Hr6hOaI0xH/UsQIp3
ngCI2zwKB8VTfAqBkJbIcMvrQvA9NRxAfTSjVQVHNGAI6KCKtRRl99IhksQB0oqlCyKqlbpSlAQH
Ax4NyRXX506Ae+m3nnQOXINGpt82eE+OqhJDHIKgRQWo3qFQdEYB6MAXrwGZCm4gs8H5qOTa0dmz
nKYKND4+4mPH+eXmM6INsPrsC/33cBAL5lgUhFQFICP5KxRNyKUqoX4kipPS++qq2UasPCGCXk+T
+Hm7seAROUOo8hHSzyAXkbK96Dq/jApzsOiqG7ot293igsH7c48xty8hJzv3q7dPxH5DQdyUf0Gq
fDUJ0DwUjnt6nUecpQAcYrcwLOR9/nJ1TrKCsNhpP0DBZCSVm4N5AjDK1urkecCLxX0srQdWYiAi
VvhmShBe4cIHgXHuNZuDAIdjwdQFiMukhugW64U7r4ZTavjuodtjz2vnNHDfrnDCq88LIv7ZQXaN
fYBflGjOZ16MB+bWckJA05T+qkRvyHy+G+aptmMVPON4uJ1VIvc4/T164ELTn+egFTEj2MCAGIcT
ljPk5TF9c6VpejKFw/gGMMR7sIe6DqnOTEfDDhCZPCgTBClCQiBHAf2UjD+asdXdNH6XHiPrPXtr
Jm7SmKhT1+kgdvfrFJCQQkKfoQIyHgnU7WAgJmMUPDrA7ES4wixE5opiGOxQeuFIs4cMBZY63IlH
M3DuDCnLQED9AUA0wLTCmb/NWGu4q0RtoyexAkNd2QbOnB0D3Y4BQEDuuC9LIj7sBT9DRv7Izfwx
vMD7jlhH0pKlAUKQakVQDzKJLAcyL7AYRgPI1ARO1eXOUAFwqq6hChiC5DFniWoomBzz5RHPyn+H
bfZNF1Ex5hAqRkE6GFzQQA2eJhaOTwcjip0CD7imcsIXgc4EIr6sP+OdclhP5AJ8fzQ76h7RY+RG
4krgwWYdhh+IQ6kCAfhgeXVgiC/iKtYrxdTR70+B/qHsKydsBBz9rtAjzXdMKNgjgnMboUBjkQwt
ezJulwkA/laswdVK0j9ulIgc+afl6chNMGW/9eJuhLw7gqBggoBQQBlLtujEWIKAw26Guxb8Mjm3
DqLLz7cYZPQSjLGFAt6NpmUbz5z0BReI3OKynOZlzAKKdvf6dh2bR1DyFz4dJz0AzrDMhhRF2+o1
VHsSFQfOEbI7TjkPQD0fcEB3ym7BCXwAHGzngkOZrqA7tRu9U5hvpVyHbPd7Gu5GBHLeu7ts8uvZ
VZTp1InZALvSEpT5EDANuVwwdd77PDw9wgHB2sb3ZgzT+jl1XmPuiDxBQQBQ+iQw96Ikiguv8l/I
Kmnpz5RTtxCepTxHMBXKp3e0uWpEFQ7PHMDr8455EK5UWmUMrDszWKv8PDEKIJ8E97gNvlNbuJ2+
G/IwE2Ge7fdFXCM2aojRCoCVAhoSGoiQiGlIqnkKdwkA0I7WTTotSiDq6LnNEmaUtYlGHlCAluEU
doiTF3D72L6h7GQ+NFJeX/EfX16ovruozgPUlHOBNeMLPKPpZyfkLPc/S+l+Tn4qgh+MmQZkK/He
+F2PU8FwGAvBhFHiLhQR2QFgG6zAaBHZyMIFz9lp8QlaFEI4iFTRXahw25XP6ofcAeQ0b5CqcvIA
OwgAogqQxhqzJ7bys8dRR+g+gCMXgkEAEQEMkR8w4iSKEeGdcsVFaMWw7RoZGgLhESRs4rb3YTvI
gIhgRChT5LUYthrhHOXSYHoAyDLA/2lgRqCPWqomXdhp7ikYdQey5beCCG4VXDUPu1+/puDZPXks
SMOcziHe1B7ghYeH7g4IvfsIAOQav8VjJN3kgWVY4AUKKJgKqrPAEZjn4VkO1By5EIJGCInjMszb
5ssNNNlY0TTcdQAS/cYfD00i5kRD0JKsRkaOn/w5P5fsEHew+bQARDkZUU8b+SA8ACYhzmw01Hj+
YWcud/m8OzPsw1k/EHigk2Aqu3ZmQPDKwC/9TIyETVepCrwFTIjTiMIP/nb6mBR8VEfdtnh/0Cwe
GPCvQ7RYi4b2wcCg//OcJFN81GGLoCQNCBgBARi88RoyDuk6m7D5WAFkgUqNz7uRwf8XsKgwyXes
+lAk6L+vs9Od7ZDrmkDFRhr3v11/KBE0g8kB/vCduYAauFUS5rNwl1UCJ5+QgGQTlBRfGw9DfQr4
1rcZz73VxT+91ZVj5R2US7obmVRstqQ+4uIT5JADucFAqU/ctiJOTCQD9tojnFvNJh7I0j4a/jV1
OBBy++/qWb/lBEAcEv+blsYGoCfw0FTT2ish0X4mrlIDhcKOgH7RYMg7QEtHEiZDAOwhGwhdxQMH
C4lD4o/V3VqpPYNLdQO4QRw8HKxGBb8xls08fuLs9CaRf92VNVQDQoFhdh09uH27zKprtxGgNMyy
BdPk6gqQ18CpkfDiBe3QxI+MVx0C4iUSPREDFDEd/uW5z+q9YMxwo3/akX35UaAezBQzm6LdPDzA
jD3kJsHMFNgXAMlfy6DnQOnJ5OFcKtqxeYIHgZGrUal2EDEiRNG1oY62PHvxcLvHJo6iCBGJmRRN
vmy2m3XpWrCglPBU1m4V61ZoSdaqBkBF1J5kOQMHP6/mmyDsljzAIeU85+HTQe8/T0iX+rMgHeF5
Q/bFnQMIWgWeNEz1n7SPyC3PxZFjoP5hSaP5DkF3NyHgdKASaBQWmv7IvAijNktkJEEie5Dj8fus
eR3yq1RGRz7cDyPquj2dyPXOmo0IhcWj5/y40etIQTSZ7OztLYcR9RY3gYnJpv4GI+SAd1w6LaXS
lXXKfwQa4yYuvc/ol7GfRrz6/Umv4iCpjEgy1GGuPVocOfcC4BuL9NjihxQ4Xvlf3eAUTGqRt4Dd
Pncb2CjgSp98RsAlxEccDbRb1iNZ8N80HcNBY6l4oKWDW+aAQEed9I5p/slfupuNFASXYJr/lYD9
GCwl1YDhM3RlF5IkXsw+TsjwIE0EhWkeyKqXK+KNF0cDGNGA4zb+H1b3d1TWTWtUXbQfvKSOR5DN
lzJ5ObuTS0jrZw+HUfFClJeoHqKAeYWGHoDPV9+HJjQSOnHTz7QeLpKU5CEJnTkZLlS4kLEPcXs5
an0mB9DKXAHISHW4g8hIsqef73Wl8u+0aTk4aWaXzBSECAakBE1FiA4R4ABf5EEh3i4Au3vHX7Xb
zyCp31OqiSaoiimi1VFcrvGkEhfDknQ92fjbvbZX3F7nAsUFUY3YOQgAqqKKo5mL6kU7WgQSAJw6
8qgLVHYx2W5dXQeGGzHN1tiNsjhDAik9815GPucRzSQOHj2xM8e2tHTrfv9TESQwTFVBBVAJCPVE
VASCaDvTt9QFTwn7L0Z70qk7Zk0lZ/iWeLIHinTcYt1oGAOuNAJACOReskgDeGHxaIIEH3gssn7U
GIBFBDBW+nsSPGjnMEj04Ggc0CInAQF28tqAxdeGz/n7xxY4m6QgAuJXUfyezqPF/KWAaDSg1oit
NChLg4VwCprDSJIfJ5Tx8rKaUnttwdlW5MqswEjpoHS8FeXPKsApBQPZKiqgRsqoQZXsP+X7E23p
nX19c8YM68KqlJuNe3ynoOvKcQur3Z5nGnFDc4PIdPo8xAkjCQgn8Xj+VKVA1B8+F9A86JaXR+qR
ARNcI1WD4ibCOu27CPlhR8aWBoOb3IHAqCMTZ7gvzUe8RB7gHByD20RKMHhETXsonPeDvFwYZDgK
OxLhRtgq6LY+LQR1pEslU5Qgc/BmUv2/hq8ZI5wBV9DYMKAgjhDCJ+r/weJofpuKu8dZ6nnRmuqj
KBKhmH3Kwp+Mrnn3qtMXtEJXf2e9hQ+Hviy6RIRd9HQ3iAuARo981k/ATK2go6G5Dl1DAIkjC41y
wuGkwcQovXahzejG1txhvzdQLlwJb8DXETQDM3PxwHvYLVLU3ISTeXyFKhHgEFADXEXTmg/B09DY
z2OIXr5/2223fpxdt/fRyu99VegpauDgIgfYIkfA/zyiQY26aAkdH933dCef5kvp2TYV+HOe/M5I
jKKCxemqbpw+A5oswg2BQCePv0WG9AoDym+c/dzGp8faI9c9hAH0QBXBmBj1QfblbnW6DPlSGB3E
IEn0nLT62ERTmTyXUe6vE+vfURIBKPwo1IYrDdsgoiQ4oCwCZpszMOxdyvDJQaAF+CgEuTz+CulQ
Xalejw+a+zPuzGbe3+o9cwXSNA+QRszkN/6F/o2HhcFhn5HwOpoSyH1o/5polpElh2achdkfwU3/
AvEA4+CCk3j9tLDuH+FPN4AKCo74hL2155cvn6b+RQhDcSQryUUVCqSqkJUQgfIaVqwiGrKY4Doc
VA6OKZTqNqm2FkkIXLu02VCEaImdtCX27NnP2renRtCZGaZ+TzFEhqKPoRNkMxctRYz/p9mxTy3F
CJggKTZMDDAOT0ZOId4l+4SwdCEFDIn4zm70IqOoMu5bjp9PkoWjMs0TWyDDH0d+TPYreH86XhAC
A/IqA4iIHAyAF0h+Qdghyf1btR3Ex6Y9MB32G2ju9VryegvsAqTYerPfxb+L4zFKaF7/hKAoCPiD
AwO7J82SE3EKGVmZJ8OGP5YiPxpwGSgKcyF05itcPbAVLNpwod9FC1QhUJqo2YBkTmAHgPDuWZ13
IEWUIFhyklEYKJ0VMye2y+1hWZuPYBEVYS8wP2hbBweqoydhdRIqdNEEvhMBrAIkll8mHMUW1myD
LZauWHV1e01zaUhMp5XRzahIugQ8PAJRPGU0+8A/8Q1+TGhcOwPrc+COAM02fiMYOI/kgEO4dstb
hTW8qlFn6kL/s/890DACKE+Tuc9DHj70kEWlZ8bU8kDfcOyQzuj20GKxm/7fa+PQ/MUT1mCXm1BR
v5Een0fhygQ2ZGYirB800sYOYQRV27hTTdmFZ51Ywr6NYesYENoU0ESwQ8gz1wtHVDCCXhyHRw2e
+Ls0/cWBe029+dwXXKkzDxyZRAudh8Kv9TKd8G+jDOFxeuXij/fmDOQ1enINMSjDjmAiMlDWDgHR
ARLKIUcHWCjKvG4ApeHq/D1QTKOVt6BOVE7xuMD44SNEigU26TKDF5LKiWEyOei808qSOFLn+wDy
C3yPVBnAct/swbzmIHGRR7iXVqhdZjv5ebK+B48Ru3/o/HZnfZWtgHMW71aNOs4ucnCKB+ip0AUe
E71iW3Lu5JAFAW9bfeSwRkE/RTS9ZDnsG1scOXpA377/QGJnyY4DAK/raWnyknV0RokWD6oRu7xD
B4poU0dl6KCDRQqe/qtmKi11CoCBeIXBiQO4ujhMOW5Ql7g4CDALgD11WJvuZgKI1cGnT9QLNmYd
EiPjMBJJ5VlD5LIPHYMAHaRlwAiGgGCg5rdlKObFx5XQil9uFZtXbWNDkqg8gIfMfAYtgVRUDe54
vsD+sAEcUNrL0GjvCW1a7btZrHeZGEyoMGBG3OE9UMbbhgsbsOGKFOVdWqAiWSSHVwh/eSyh4pFE
NGkIyGQPduPH25PFDO/Oc15OThHdUeqbdgLgCwF5X0U7I6YctuO5YjrhN5oFsYvtlbvJmX+XdT/2
Bjr9lhkLz4Zy8iPxd1/kW2rAuBQidqf1qB5HfYOTv6Ym8RNnVYDkCEmXAEEEKF6/CuyT+MJCph5d
1Wx8RH3kPOPHv194O0F9TLSCQKAdDzgHeQCI96V5bMKFHYZwmHel/5Ov4SzXgbr5AIRRUQfEegAS
v7AFnjycet0XVN9UF5hbjIawwKoIeIF6O3XJI5B2dEL2BFg7iVfmrhgRmPmE4fp5dtGYpkFkqZMI
gdYAU0dsiInk2Bx9yglQb0ANKoZeNIGavHe6M/lPzgIu8JfE/HroCBEdS5HxHegR9AHk9x7CMgNP
xxF2WSz4UTnnLmyGJ3VFG5E02WO2bdfXPHyoeLRcQXkPd776s8Dfk7JIDvmMTQYbOS9jKB5x2Hgj
omqP1ZscxRIQV/TxdF8ilxVBxVNuNrymhhqlWtAVIgh8dXSK7SAGsadgFZu/+QCJCwCIoACJ/m8P
sJcSN3IgIJ+qhF5Km0B40A4P25Q/N04pJte4d/eguwEFqs4qe4dthu94IYE033RnkPsWAFHw/b+u
CChImZRoHaTePq8DbRMJLgWDJ5RijhBAwqO+XSGnGjYUvxoiGxD8br8j+OWDEGHB4IPGom9uJBgI
+T3p/oAU8Yj4PR3blNlcMYa7N31EBh/+AFJaQ/Ie91Fo8o939Qjnnw1hmoIUr52oEyFBP2HkIFWD
TamdDzn+oQeom2Im2+2cOPIj/Uf88J4+8vDHmhxWMAXjGjfLAsBd1xuM3FgWF5yYXM++gXng5Dsl
OYX8mOGEzjR5MvgeMx6TYbvzOivHHA8U3RUx+ZZ+qv6Wo68PX6hXavMOluTD2F08qRxi8iKezeDP
SB7ijvlK3mAia9da1suyCkLAIlBBfw10dN4H4AInir3zPknWrIFwnMBkWoUqts6tpAvZx4KKRg/y
FuN9LG/MIZyzQ6kPBiJQz9zCA9Ce/wgOnA6djT6IYE2YmhVsZeM9dC++KNyGOQUbL1dlMs8u4Oyf
I+OUo6G6wazVA/YTaqXYoF1EHBnODOLnBD+z3AtRQ819ZyAoQnxeo/eaWhTqvSLtC/XLSZ420OJh
Qxg9N9m6b+LY4Jrw01Tj+gXr6/14WMLqkNr0FRGjj/CJVd6qTKWUjr9/EOGDfULYpqqpLLVaKSJK
J3IvCMAg9HMOhOT1uMTFOKSaOSKZDzJ2Av0/p56vceUe3BweYXgzqhHRFiFoQoovWrpRHQuwV9Hl
hjNXpoNMt++qKRF/Q2M8tUl3GGLb4WdsbRWldJBfVn2sPhzOnPmEA6KIhtJWwDnDAd6PwIi4so2x
8xAJN9m+RbRX/se+cqUKqVWVXOHGGQZKVnRoWzsam+6+u0IJuinZ6TMZFCRP3iHN+PvN4i+MQ1UE
Bz8Zjo5nIjGhUB5AYgMz1DAFSksvQFICHSsv5u2PVA4FCSvjT4/bXZmJdx46FiNK1Khw4I92cAid
XBByUTKQ8vSdB591rATDxeutxCNcdwvAKKAp3VQLYgep9Khe1wFANOKoEtr5Al1djv8kKaXlksMq
MLH+l40kryijm4oMEFPTXTO8U03roEqYIQxcIDToU6tALdhhK4bPj277xvVySzJiIAZvIJbneR+O
zm6fwG0IDv86FBI85nwKQSp39hXseYZSIBkEQPtWJSJ/CSiu7ApkRD0dWHLRq3V3kpROCNZGBQ5G
QWZE5dfPycuKB85j7F1MzO/G6+955D8B/pYH0Yq9SqO1+JF8ff89iophQRqw6me0s6pa4GT1by2T
i4u4ya48QwJwvb33cT2pyAkOVy9r93hPMACbkWa7PVcEQZIoUAQoAjBvxw9+RWKD28M75guQaZto
SLJgSt4OhfAuCXa0FGSzCItt+vP97WOtBpbhjpHzNaCjEksnW87+0Mrxl/0fzGa0HQ67Vs5uURwf
NKqdvlX2EO7AUVBi1zXoNfxDhmxTphax2EBLYJDijJZg8qjQa5sAWlHVYok1kt/3gGYhabfPl+wF
yBYC6wXEPDMOrffdpUmBNLFrbyJgTqmoMr4hYF+SjW8UvhrXN1Y4OGGADkEiCfQHH8YZkt0TyFC6
PBEX6eFC7Bo+mYhZ2BPiHnxlepVBmQHfHZhUJxKgZPGbwzGM+HFhd7pq2Ik+flFiF9+aoA14PBTT
jr1dh26sW0sWBseN8eKFN6HvC0BAgJkQSaqpv6Pzo0PyWV4vw17aIKzDt0mFKKLTF6dyAfwaiQOr
HcOYaAvMQASIEcVj+f39/unhVKp9QCgm/4+n4P6ufW76f8A7mDXwA0AkBRD9M4iOpF8qysPin9/f
KnLwkj3KPWq0J2MAyEFHEQ+QaEHAvEO87uHc8B7SDJBlifd3qaOV8VdyPi8QzSOSj0+dNg4fUJSe
RKeo+0kYeMhVwOJa9XaSOpEVmMOSj2Khou5M4+r6v9JCMbiXG9uoj1ikyQ0z+5dkHIbUIHxBq4dg
4YFFBChoJo/LtV/Z9x79+p9fqUUH1qB8ifYUBHgFW/T+a/fAL+QVCZ1lDooalZ1eggwmACH9AA71
elaA9rZcAifx6AKHCbN/SsOg6gcuq+U/IMiV21QawXywn7tu8L9YeQF/oLfvBegF2AL8tAv6+75P
u7Dbq3VbvLgLrw5AXD1GQC7CAsz8tdVzqLHqEFCB5oLuLh6+IxmcKOZwkqBGIaJgAP6PlGol5GYA
AtUPagXyDB4tYBEo5V2o8cn5iKeQcwsNiths2/bC950qMKnRM1fRWrAo0m3fV1Dk8iHd/ZmfKH73
6M+/ASyuP9bul9g0Hv0QI6GcSqzlgt7TedZnc1B8pFOOMhJkdUZHO5siyNcnSnwib9eePeEh5/ha
sJh3nHfDaZDK2mf1GK3J2m6rBIuYJfVYih6MEkPRekmg8eZH48too600pUOA41DplXT0n9v6ZQH6
v1wEQyp52RGbBerXJHeeXao/YOO9hUDZenxc1fzSDDpFFVG8tfqFyAAkIafJpB/e0gQRQgC/sabc
MkXWUKYftHUfujr7U7/KkAO4HvAIbv8eHI4aHlt0aur2R4VYaeDkcLAKqHxVZdQxLECSEgxRRDPh
0SJRgRbKLPr9Rl/5b8/3yFCBxpntu1kgFB1HJYl0EXAQtdHRqA2xTcRA/pIE5UkO4cvalplAmKy6
DntbXl9l/EhxKkgwik/bf8SVhstxatbymw8P5Bwt98gBJD8BFu8agRDUXYEdDNVVV0yO5JkCcO4V
SToBPjNw6boHhcUDx6a4YSjATAcXTBYAVLwyOBZM7hUFgYKZMJEeUvczAJA+E5/UUBDMP0cG91sb
Q/D5q+0oIqhiJrAhfnfcahezDWMTGMbWRSIiqfVuCmjwo+4KOKY/EML/rZqgkPeYP7lHdtUCxnux
kO+vVhiQFxxPOctbdxsx8D1hv7Pbl8Q7ta9cTx4UHJj0FsY9/bTqook6KpdDCuUhXdydQmOtDVOv
dUcegh58jPzqgGuKgyKGf22OzObsNYZGvbJcPDEOJdrq1Y4BgQIz0hRQXen0Z7fDLEshk6Y1Vt9W
tljk3250fTNpxr70gjAkRhhzdZexGQAiYsO1aSbbnopSnNf6vlP0ci+xJTpyG2ugbqNy53LIcIVB
EI+TEEoikN4uZtW3BrGTXIhX+Dcy72VPOIt+c393dd2oji75NUIpJcwZK5GA50UkQgEW0kIp8XD4
+Dj1io7FujkATUhBJmUILKqW2UZV7bqmMIdWXNex7qhRU3r7onNw/PB4jiRUzIIvVBV8bFIIhw3g
vXqMzjBdMOQBfJzdezimisSHapxBEeQIcwqZcX64gr0l2I7vJyvmfdyIzd3TedspNKKXPiKCIBk5
P80lFoj8JaeIo0dq5ALpv0q8cZx9SLwlFRzCef3Gg4JT49RnTaA7dzJJz7LCE2uFxoTd4o4kX26w
whIfOfb8PWfxv1nSQhvileeId3TcDgbRx5TttTkwgRxKhUxL2OVtbLsyemo58zIM6SlS8BE5iAs0
/D2lC61C0RgHJgePcCjP2v8p53+Fnb+eEztSrwfiz4VqiS/wtGaNFLo7qGfL0hchI0Xo5UlyK7Dz
I9Pj1DAKzBnEM5wZC7uzPbjmg7+Qp36kBfEdDEzIL6MRyr/h+fTuYEyIhBHY9B8f5hN2m45CdeNe
0vFfkmoCJ3uEQD6VWofSnXF8+okx8AR9JcnipzoA6o4io8oyZFAIDoA0JD3cIo1yloB8QPLf/KkB
xDc3u/Dq7ertN/MU8xTxOCiODkkAieioGvsq+XJRqswERT2yNertYdchwZojZiUDlBUmSv52zBwD
mcL66AnLuVBQ6PymhQQjyW8GPyH9i/nri0TNk+CKGAUdask53hbfnMbQ+FXXjOjz4l94LqdSW4co
Fi8L8xt7noD+Z9EdUUHYFFSo5CxTv5X5tr3oOZ27+9Kg3Dr3hN0CK4dl3zTVJpBnD0ImE6KL02Rg
pRTllHeXinzZOuzyHqTRerbTYOGJiqQRyb/MaQHTmj0ZxQbTVlHVETYa7i45qktBsoHvVcQXggz6
IjGQ34URAcHdx6ODkPq5QyFmkA41/ALon3fGoHTJ5ycztfEiHr+qRCsOmmEchwIxSwZrA/d8dx/L
nLYg1r/H9aaT/igpBIOcAYGHMEqsHGbVB7+UWJ8p+I7+XACLQgnttMSyo5kQIHHXJqgAk8CDJY76
JIkIwD0VFCKjEXCeokHmD0CJ56AUt1hu/WbdPbaAqAQIHzA3QECSuXbTydACAEY3wWMvr6TDBxEC
ihudhV4LuKKLKu6UjJ8RwnwTPiEAD6j/BRYimg8ajXbIEGGBxkqZ4GZNEDqneTGL+6c0NOWVxPYF
+7R667ccjkTTQbgDZKuKNUGxMYSR1eQUv+SD8BcZKPegPxpvl9q7CbOExohGHvIBPqbiOjRKafIT
a4EFYjTR4z/6J4BfQl+BIKXAuBmNF5kAm37+gYPBOqpsv8gETwvTnC0upDe6I3Govc/bKigDh4D5
fCVheWJeLoTokndMyY9X7Su2C6jH9u9M8Di4lNfNgJtmMMNoBcIqkFCDTmmwJ5oOges5ADQeyVhy
FHjrPAEBAAtmn/+F13hRd0WFPLTkjhAGYSN3B+dh3BUA0noP3ikwCEdyCGmVedBqHgMEElV10inR
4ebdPy2GmQI/5KsoimBJwlVReqjNZkBmGphJxJD2gUCa7aU3hyFIJhBN5FAwjnNcSg3677CavbgB
IS0RAmzD+ImGzTYS/j6xAcdaZ0pP6W0LRiDw4aK1ezWPwV5lrSACkZAMP5f0fxhYwMHTaRT94QwK
EhzVY7rez4Uc03+ycOu7rkk1JA94QhRaXOYwDG/KCgF4VNjOmPj+gHxRH+pvK7BmRIHzM3N8YPtK
6Osr2FVTT29ICBQB+vpnusKhP1B2oyKik3KnvUKfwZ0p0RYgg+j1FWnm0/AYEiNV71KomA/qN3Ur
uzvmo0gotxsPcuco88BtnT+7wr3CII6gpHmHs8BE0ARPYHSzw/4URZJMPB20jzUS2t3pX7vp11fz
IQO3Wu6gMZDO4u47LQVViLSA2QEFMQIZh5usJENr4edRl7iiiBnA3wDRlMbTeR3y8CQ6NW/cbvVi
VKEHwj7EU6vZISXxbyjBT8D3doY0EhDzjlG2Pj4xAGu4tIcwznhY6Ns47dxoSBjx5YJaBY4FrKyK
cWs7ifZf+nZ4bIvaRCWlb7Q6y5d175OvclEBHYRmKGCrFw9elB6QWkkYCf8wVGP7j56JYL8ANX66
AKICpHdbQcbme2yKMitEcHsuw6SYIQPAoOXJdbqidYqNyTsVKQtuOX7d9Ho/14ninhOyeQg/h2sh
bncWMIvEHIPNqb5Zt42Gk3gIKgOUcfGD0ceb9J60+YiY8hOb7QUBxKCr/2/LeUUEXG/9Dle4Bq7I
E+XuI/MT3T16qIGHy2Nd3mDP7jCN9mPQYGMPAA5BwJOiOGSiH+1sdjNFRBGtjavyRP0/NweAjswB
y1kkFSEkwkBHLA8vZ044hlDGQIRZCQM+7n59mMw20Wox3X8Z2p4jQDiYwCRqqyA2VpkEUUFLpt3u
DLVqVe3hoqEfB4ZA8aCgxdU+AgFUDFsghxVX0JIgwfZRBqsda2jsr+Y/REc6Ean10dfmgW6yuorQ
Yz8UVRBuiLBGTuRzg5ygtGHe97xrQJa4WVyz/8Xh25rywGQB4JRkCgfQJq9GePKBbodHhaMM5Scf
ho27xswZJo4DsoPMWXq9jLOcvsI0D3MHBwdoFfmSj06txIENfq8MQNxnPqAiVAz2lH0DxkvKu8wc
h4SAAmEDA7VUelY8RQOnxNd/8rDm082tcerclTPnP14odCzzcthzhicHV7qdnvkTKUf4aYa+rfvE
nJDB/pmqsTf8i+qn9paGyjUEYxENTV+Na1RLdWQWzUxeziu54pUyYOcbZFSEhqg6ivOhX9Vokkkk
m7Yf5QByUwCHCFh/RumX5JPq7pjT8+N36/QA5w+BSo8sIWaXqEUxttv5CRHX+emHIULsP5DEaZQU
5C5GD9oYYdbfww7/m8BBq8o5VmAQMdu9+KTjwwGpIh/RFfYwJKYfw4wgrQ158qWblhxIm9mICkLC
EiREerxsjnQFWCKaus1PSaHjYccAF5AWwLQL1VpTWBOLPK3rPJ5w2YLqnlFe0WVEn6dcCh9sIn5H
sN9L4hqghoOcnVKchzPxGHHmUuOzUDgQRgXDQIHiOW8dZIIgx6AM5wGw683ci82dMO6moMBh9Pjl
KRARFHjYRHWTQdoV1Ky5BRAI4dsgIhm+OIxYfir7Aq9VIUd/YbPeMHwxx0jdwZijoDJKiD7lqBCh
QBoLAMmYNyBY8EQBwVwHadSODAfY+b4wm1YNAEL9TxhzgUSwcPSNUegN952Q/gBmzvABcN2WGxK3
bNgriQMpM3rrLDXux30laggbPL+HnljQ9+po85rwt5TCfMg24fzEVNTHgz4UEUnYQciPm5+/m6HM
T01tmAGNLXwctKiEPDPMmAS/PmHFXUX9IYO+NnB5CrpaOc6wPAsk9ofq/OMMYkgrgVeNqIQTgDsd
EEoO9z9IcFnHzxwGfjV5yc0dUDPjxKupz3o8h4M4prKFtRNAxB4gW4LcFuC6YFs9eWYVfU5nHrLm
6udCZbmBEHW/d1Hj8051sXKgECW42hvoOGgttUcUwgqoSsTu/cNcBQFUIs9BAiYglBpWsK/YHTAl
dug/SjnZkeOY/hZAgezp9UE/ccMxO/oBpSLgj0EaiQ3jFHA1IiAgvNpHjeuCJB9gzBKXUDgjUHI2
1oFq8MEoukKsEfNW0E8TSMNWHGxS2vfv0P6SWHz8iwGawzNWbLB5GQGnuX8kV9qfzQgREYPBDNPL
g4DYVk5LzRihNgG2owcRQzbgM60nWkV7rVidscXQsFRD33DETxYCzqQILgERhxZgEScL3aKOoVF6
iGVWz0F0gHGu40WP0nA9Hpu7EgdD568iRIExqbKQrB3uzoTC6A36qXv5HXXuvkvXMiBH4loxvFO3
Sz2OhLO6u/bizgsQQQ4Hj0REZVMwgiUvnk1MDTrtwB8cwdraQpYEXuBzAE8DE1qAiSDniPGAOqx4
Qn1HSpFXvsEuu18aF7XRrSPgG+qhPmGcsbceAhD8Vo5wimlgESkXh5U7Hc1S6wF3TDqv2bIF8UcB
dUA3PE6wFX1c54lQQfaAjZM4ehiRBNBsJo7EApjoqAYOBNckAQqqCmTFyLxslg68o0HBKPlSr8OR
LuzUSCOmEv+IgwfWu9pMLoRgHfzkLvN4pI4ALQnSFUbtQG53bCyG52AUEKE5tcODrVZmQSDwFcA6
7yttV1yP3Rm8TBfZ/a+0Pk+on7gARw4mUpAEhy4hH3xhULo1THUQfZF9fptgZ+ad7Pj5gcSVOPDP
5axlcD+deCSapoowoITJB7E/E/XtCq7EXBNIPNPPu6qWqhYI0KO3lCrAIDgZfTIT5njgeKqSJcaH
YyLh6Zfx7oEO+dhPXUOuyeTpbZ5Qb0O6unXUYZehHhBtpzeMsu+pvbZpcJvUgM3k6EHFNAHE/B9i
0ASO8Z/laRxDfJZmqJ6UOq5AiUr/aHPGp6nUVfq6zqaERfeN5yi8ynDy2okZMtix109M3wfffiLw
mg7pDgWQ331DXnphd/ry24AzFEbt+Jlv4EBClpCVosOvzr2FaLW/tJOG3Klrx2Rohxi07ClV8qgW
3TmR5fszgDwxy1k9E0Pv0Idq8u7QQFf18zO/OGOAXQXjlyibF8CVzs0J9IFgzAA1jQPEXI7kBQKE
PSQ0YJFo+DRRhA6gB+fvpvWqv33oyCkQSFKHkESXHXqpnvFJDjtXuS9UmncIhQoUNABEtc1uSJCt
6ibwOtHPEk2tkgTTzCwFHPCTeEQbmlwNK0e07TeWpmE3d61FsHcsw0yA0ejkWB3ft/0Nnm/trQJp
x779/g4hkanPRfgQfNfiHvLrRUD4PUhCEiVAB4CqAJo0/BwJ6aIOfGffMTUFIbYP+D4HbepOdZp5
aPw2Dk+/gydp6GXH+Cg+GQ5wIORV/MLhJJtMSHVM4Pie9Cx4UvRhz8jc3bDwOLLDnytV7l9fKSMC
RQkSKAyTMsaXzQtzeBrv2GWFsRIWIde0K6QjPUDtDjTgcb5IIoKlQCL7Kivx81FHSARLBQIiLDGG
nIH25+j1av2+fr162cW3ddAuSEmdNVdaoudGG9wcHxW6lgwd2H7iO6bgNyQeQkaqtQvcY3teiXYb
Qmn22DNH7ZsNu0dmFpprzlypI5YxkCMUBQhNiiAK5BN4mvAZgaazaER9yG3VxYrTd3YEPh390n+K
zIO0gNB9JIiSgp7DeQ3HNhWc6iOEeioOsmWnIuULxgRl2uSnOaLT9mcm1fsybULjqMAFxDdgAA4B
+J548jJBjwLy473/PVBmjPLFx/la6F34sc6zEAzU/uPirjUA4nyyj6MPd/iwnS71mdvI/m0Uke7c
MHFCFuGodZiACOXAAeqpbm5nwVlFWYcbs5A8SsKySfSAjwCpDx2lHcDokaMHltsbhA6LGLjAC3Sa
Pm3AxADCP4Q6tBhobiAVBWzWDTcKgIm4WiOkxKrHWf4B0GCqW8oEoCX9Xk42F58FCUMuFNbuTsKX
dygyOZuSe5oCsiHonl3iBSg5UsnQmGnwV5H8jpMSB8vv8Da+7eGXGT3nPy8DMaSLb4TeyZbogdEL
ESxB3HJmXCAPL79lnZWms1PHbdjtwcWIMQTuQFeZJR34qnPtBW+xwRH28nucBQKNtxo4u8dA1UbO
/mm1sPSceXT9p8B7pxTbo4bFVV1hmVVfKNYTUaCW48eFTQCXADoDKDNnCD3fUdAMbAnBC8XykcuX
Yo7Iug44rvKmUaOrYDJoKCWiUglmQKimqo3RT2wkiJBeY2Gwe5JeJLtRDwdxvev37aILioOwJH6u
jgw/sqdvpzrREXy4oJu0VvgkpJAv1w9woVBwYO5uUCQV1lRLUT791vySVgbqbE/DwzuniDHq6Ouv
swrGj2YMv+zP1/PlxzGud6TJLWBYC6oC3eMFsX6JKtBVk9ns4uDxsHy9nQ7eRIIsIuFAp/fTfL/V
vzqJB87c5ttrIMFMgRwgVvbhesPvxR81SX0jRygmGASwK+wZ1RhOiBqWn87iCpMCZ8yHDfngCGYY
XBkqAPlITD14Ghr5DTQwy3d9y/N0F/E5NF+GWjk0i8r6m9gXZeuRhtbwNW7WcsSYF+iXeRJhrvYd
UC0vsH+sX0KLVs3Lu9PwwxpsP7jnyYRPnmFDnK6KvMr2sNR1QKirbVPaeji9W/P15JhfSJjja4ZO
KuSLgIh0RFBaap8Uy5Me49PhRb+RX3ojX+I/lsqTcCV+Aeu8ICDhdtZnuaBRBq/iHHiLfJ3IWHYU
y4MUSrDYDn8shYI8JGKvSR6PTcsQS8bKiiB3eI1wMfxsdGuCYqmcDkUmmtOo1dl6X9ZEL72j1Zz9
uu2+pLkqwbS+H75WoaJ/nrxfLeXHwhMo+TyWwYnueoZnumB8PNWmKZcqrZ4dOhTWvj8/1De/azMU
JAD+ocBtbNcPQN3+JCOecxQIGYasfmv9wL4IIVm6uaS7XEykrhjn9Nd/MAIBIhETHrf+I/wxNnPh
lnaHmrXcxe0BeMFgC5yr92qrOLEGImJz4AuGFmTdf0+HlC2RlMi8y9PnyyTVsqrB6/bwr58T0v7q
+7PXXhBQ0JsQfIcGwYtO7gJ2e2+2rbHJKoSg5N3DpTydBQIeSvlSgUGlDy0gdNY/Vz/X/a6OSWvw
Ex+T05gIoXsnMH47+a+fqJpcSr3DrTfmQER8XhtXADXZmSX4KslhcTabQHdGMDMBg26HEhyAYPoZ
FpEBEqKSzoILkjxR0e4Oh/rcB8xbZ8BdnKsh+LUDFz6xJD+sHl51joGUfF1O4ZVD3qFQE1rBq2n6
NJ8Uazltl4dQl1lQVcqEYJk3HMShBzkA5NZkL/lJ75JxEKYwCklIah7fmBqD9RLu+KIEe0KNZafy
qP5fv6wTpWhKBVAKpwCJbQH85DhwYwg37ISSCueF1Q/nAWHZLhJQUPQoBJJuYBe3blgOEK9hSc5M
E6bOzDywH+yaHrwuuIT0bbphTbKG6/PVWignCkYJ6iigXSqMHMGH1DxCAV9VDa6CUQdaifp8KxFD
UAvAelcaRxcKP12ZJA2B96YDAFh83lOQUJKCU81VxUeh171GtkXuQ0qKNUicwqN2GZSeyfhQMj/c
cVg6XUV2mGiSocdiBl5V4yFwkleanxpcY5czveqXLciVJpyE4r81YQOGopxxowZb017rHldRQB7T
FEfPl8BAfiqKD3ePPrGsw2o/0pty0uOveaJffu3/cJhfKiZl6gdU9RwgeO9gAJ197qn6R0+5p4io
D+85LwCfQgMfzjgNwMqqduY0crkCAiqs5Bh9JjSOLbuLm/TUdzPS8rkWXD9X67r7nGHWg0vuwv+B
ZrQfrGUWMvXBW7D47+t/l1j3FHYJEDyA3IRfxKJIspJocEdfui7l+KG7uQ//Hf7iHfKSidRKYj7b
ju5okMbwTW9HNcMH9Yg2Z/xNahIQpFuEM15tXMmBifH08ZncIaFTdMxM74DCgtrrn4irM7HGie1l
YJmI4djTHOL7ZbYyDr+EnENA29jgvA/my7snHfSrVaRGXuaYXcZtyysC5SHiC8C7GLFghBDVry9v
R2aY2PPvHfAzd5lCQkJW7O5e62liWaJmlpWw1Ql8+Y7enxwy8Ryctm/zponYBc9luBi63gPCsTdn
iQNZoXlvV6a3X5AF5uagF67UAu8FM9Ji45S2htUBEICJ1NXMw6dR/Ru+ESgqFBAUM5nAPQYm43b7
cWeiizQkDfx4bFC8O/SKFdiWHgPaQkVkwMB3ZLOx1+mf3P8VWAh5cM757IiDzDCrO1xKSiKc+Bx2
Di9fOJz3OMPJliNzCoYiQp3kF+awRFbJgwYx/fuvUNZmZgP8GteOvkdZSKYyEWQq/qeaJ8dWA1/N
EbdBx7fOfecATDB1FHbCq7TI2zmNVPFmAyCOD1Grk2CZ4ZyHpBI+FrBFR31AoYmz5tIiXhxaIEIh
OajEI4XoKlg1vdvOp2xywxBeHSC7AsCwC7a48o7XX9lds8EgI+5IgUIFIgbEAmgrVGA6FD2d+vMG
2S6LKeA2RYceHo59m7zzymw1cOLHF8PALajDA3GoZ2yks0TSYslWrPcNfMPF0x/4qn5PsGMUiODs
2NNBnaO/wvzqGBpnP2c1jfbpvcXoArqu7CjFz1rQTiin+3UsTXX6fG7V+2go9M8UcmBRXpIfvfn9
ypFJvNtts+NCoaU7nVdRdcQlidhvHsJ0X2dplXYHXTp8iFDz7w7GvPj/EneQw242Z+coh21RO6L7
r9+B8pH78TcWa3NTK1glY1PudtqnF3/CFenZRT/qhH/cKJvjKNb/h590CKeiCkVUiIcm6HtwMXD9
BYMiyGya/PGkxkhtMXxlu06c9R5Gcl9vAz+cj+oT4qJTugiQSKEhIlCqd6XgTT/sP8NGoov2QWQ0
lE3/bjbDpK/7MlAaImmqipKKCL/LDBpICKAiDjAZVVQERN+J3T8vhA+jwHs97k+Du8vJ1f5B0O8K
CGv067liDq7vHtuOB7tdh4MAqGfBuwxz+6w/ZM5lGiP9m61uWHvAIJzwOeGflKcWJPCioPxnU4H6
tdxqAa4cWvC2CZlbjO+Bd1V81vQwi09dw+b3xqmOdQP0//CYwxoYxKPJBAoSh5/v0/jYTDwUR+m/
RpBevh1XwiFP6izn4A/57KCEIapWMPs3FyxhD/yn+n/4wz/eYeeXPV5TcWvrgTSliZgfxCsd57/H
9UBDQRkKj+kVEYlHBCsQRo5fUeODL/5iGFV/6xt/7VRBOYJ5rJ/0zryff+4T9FTfC1/XVoh5/D7O
TdMgfh4390Dq+jCyY4692/9Hh/sDgZHA1b7Sn5fsn6vT/xenUFCQSnX+7Xut+p+Ld8GiBN+G7jAg
ATAgOhD4lWBAU36lXfq/W79jg5npGNatpzvH+t0B/75S8dlq/g4cp84Qwz/NMgZJjZHyDRu3nizq
8iE/sRmb9wbYn9LIyLZt9XNhAG7Q/k4YA64jUbj94KCZEP7GzAXDZ/5P/7H/R6YA7v3UH08CVO+8
lseKDiJ5xEPB8GpCnz5vD+jLE3eBCwhyvOX++D60lwtoOBTLh3wp/ndS3sg2I/q+yT+IbNphD+eH
HNbdkcbHXLM2ynTH7T8f9/TxaW1vmDUQ6T/oUdhgGBsOUsYB+sgYHAuWMyBmbQx01d2Za4f3rLw/
6vpCKHlCwYOPeg/iUnTdx/5y9weJjwr1/6314j+q9/pp1X4fvo8Xvuzqidad/CEwCZ1wZtgizRIE
wrG5cQ8kxwBx6q/H+mszI86WPo9PDf9GHgcPTaj28v26B/of5fSXmW02aj4bujkfo4lvJpqDjDef
rIf4GgeQQTQcUBPjURZ//2+T4eXTvny5b/0Oun/xSB/XYT/IfpEfYBCQL28xN7DbFwKrr7nLpvX3
e3cjkwf7//1ZoJ9p+wW58OQ9v9v9H/5yU8HuP+Vv3W4zoUevV310skEl+Pb9nJfh/HoT92FW+n1K
p/2ff/p66+S5GAv8PP/T4dX/yLGXRSnh+kO4yVUW3aWB9HyVrvrmezLirafCJ441X01/9pIew/+1
YQkIsZ/GH/XQ/1BLpgNRkxFBf1GYfpD+jWoJNv/WlVRH/s1Rl0KkcNEaXX41QxjBHloxqopoig/6
oMVT9tir5jATUsHhjJ/Ac4px/350P/kjMBU+o0V5YmIo/NtP/Ofp/g6f93i6Ck+s4on/qCcyYn/f
/v517NRVHhNn6nMbYxsWxGcMokqQokHZ7ChTYXINPth7Noba1dNUN7gf6LufulOwbeaIqBsGHyaS
jbCmBK7EuHfwc5zbbGDYxMapxR9STV9UJ3uGPu+7cfd4TWqMNEEkFFzaKmPtHefvRcMfWPzkf7ei
b6wJtiCCbBnJO+6otmnKkGDG22hU59Ga1rNNYMkUEzyVf/MsMRy2223AcLGetit0KSEHVKJNjaTX
2ev/L7VZB2e0vlQZTx9NH2PkFYSQJ7LON1QaUIoBceAacU93PegSS4sesg67h+zBa2rXx6D0DJhI
dIgf0h1GiIwNYMyfLwxMITdAO8g7+rmCw5Q88QyYfqYVC7anHOv/ARCQKWiSgmRoQpQWEQ88HyTk
IFOQhk0K0FID/YSJmRdvPidPNtDdj8/Rmc/QRzr2FWT+eD/XftwvQ2t+ZdPsfsuYXOSxS5SSY1Yt
rrkeKBSf50bP+ev+PLrx/9v7f/L/0/5+8EiP/t327bEf9HT4L0Tbt3C8+qBVJQ/9/8G/+fxLN7ue
v/UHT/t553//P/Tw/q97btAvRFITUHwy56UxD6I5Mt4v87E90KTtkfX6TrPnteTjPDNy/hfR1BlY
tWH9tFCOX3/9ChAWcEjNart7lHlcpJDPl6ogiQvpDMDzpDKFGnybPk4zEC5mX1GeFB/6REf9sUqJ
sII4wQ1476Lf4zTGhursgGZpfRhaKG3r0gUNIMKiWeIrBjeVwaas1diZJTRQWDP/z5lwYyGEgUEZ
Ct0UVt1sLRFqyihtzHwwuEXN6PoPRmvHBzc1qiAY7qnSq6eoO7Daqto0o6gIjIyTKJZA1c8JqFjm
nNBVVqJwXb1mCDNwr2jdZpnsUtnKNAzZAKdHIbQVB2YMIYP0lFrOsmCX04W2F5N//L/U2pf/lzGf
9ESoCCD0UOD9/UwyBS/v/kIYXfP+/IkO0TAhvcz3GQOOBrNKRxJ+yD2WTD5yj/z6i97x6rWqrMlW
+xVVnRe/CD8x3B3R+3JGRnTVBArATBCzerLgtf9JMlAvjKjqWpuwmkwRGSPgtzACBJdeg1d4AVFp
0iZlA7/SY2+sTw5A2jDuJqhB92Q62ZMNSE5i9mTF9xGjP5eXYN9ZfbcDoqQ4zT4a2iZ8vjscj8vZ
zgMXM49cn6btlcd15X1NNjQz/1YJIn3ww8PjfpRLh8aPXIeg9nm6jpNsjZ6sLDSoIFwHiqafqm0H
/5P+h+ux1XODoUf+qW8WfFxiloH1LZagGif3E4JEKJ5F9mRMLjM2cQj/oGGhFaTakXLPn6n1+b8v
k330LVVhTsD2zuwj+16ZpeOaX/V1zsWzTImPfrQWw4Z1FVQ0r2osqX7xGgx3TodJnnd1bwskV/Zx
QaPDrN5vHGa0Q9Hb1qFGZV/a55d1pFFTzIUEeHUHX3yqZHHwg+V0WTiyXbP6531+7Kfq1yl7Gxy1
9UyN+g587IkgkfjRPOCvgeXHKed+5jBBMkQl64pi4VyMBc/LFGEm6LBzCC8Fh376HiKsdyEi93y6
tMfZCKIXqUDwnQ4PENAQBEZ2a5AcYlZm1Hv4LxBXEIWoAA0tH6atNkloI3n8Q7Lxg4GHNFsBqoMo
a8XaHgGVapa3kDA7qaJrV/ZxfL3hAxLuh0lZ1DkOT7dozPADWuzite/sdX5YtVspEGN8NfE/EmOq
zza3Wq2+2vesr4HxdasKgy/pl2edH2Tdf0j7+HjX2Oj6+Va7eU/XtU8aDE+3GdWFZEa7nI9bgeRR
RIMJB0Lka7SRQP2Z3w+M8fnHIggdzfWd1K7rYNjRu8ijyAUsvvxPqPq9Mj2vMIGGLam8B1khCulK
UTBmn/LXFX5ygHJgT6fcdqvLjCnj9l1l9sooxlOMphPfS5zt4duFgjR5n3z8148Nxg4e3RsfhCg8
MfhDu1QRkYIeKKaXV+YZxZVQQfUXkl7pZPkVHIJ9IRBWEiX6mACNICj3FaaMoQfpYYBEyM7mHaMK
BHbmXa6lig7B34/5Bacxyu/2OMK5xAYU2BxkT0I6KAxD0Z2AicHd11KEkeyHNjhUn678S1jtcHeX
Msj4EByLUOL8ErwAaChwEuxC8X68ixmWU3utiE/DeuPAu1FOIKXwYOUm0HsgchbCiYG7wlHBPGOl
yYebgMEaThdyEhtkehLFBKiII8NUbxA/66irSoM1amnJjaTIIFe9yowNBkQ/5PRQeZmWESpQg8zb
+hRz1VxyHaEH0/48KG3XR0UXFCxa7ssG/xf3nc4fPx6ob5AsM9svemgwLRU6vdobNnzeq01XHFIb
Rji4giiHpRN4q0qiVaTh9/z1tWkBjkDmWubRts7FRMvVi1iwwc+fE6ePHuc9vpIZzyehYHT8KptW
RV7wj3fFQaLZEvs/X7egDNYN4BCdgSopdiDY9vAajDdheCPFIdGARZjbkISQGfmJa/5GgXbIQCPY
cQRG8alKwhESE1QBkggk4W/5DQf94v4BwIwJCswQxqFO2Zjx8Fh8qLH76+41dD45t1p/ku6C2PB+
ob0Q8oSZEiQlSAtBwQSOK27aCbwhqr6JKaBndywLbGWmka1xyWUemaCtjGYB7Mqp6LBlWv/ts+5z
n9cpxEQREEMDFEqUu9VqPVz0bJ/smo/AQkQAP+BrezcHzAzhkQBiA4Ge4aUXv2CojIGUIiUYTbBY
kh2F0Otas82ZRQEAyRZ2sJ/+//IZvzyqNqfrcOO5MRZ+krwCb4ZpoXvZ03bvfEWGiUgfgsXKZvk7
NVw/+OgzMAJpqVDnXzbAdFqkcbzcApmJBmq7cDa5zhLy0W7gCOGtIHJc7Qp7W2MMadeWhZ7bGf/K
i7N9Vvh57juV0rjTbZq3deKXdRNGfHR9dnGb4XFw/domQgs0wFABEVrh/8Akfs4Rae4ActjFq49/
Zh4wHOLxEEFAWq0YfOEk74Ju4OTSqjWuBd84MU518/Qs33DDZxZXgUoZdkNHjcsfuZaKc1+vyVtc
kmmz3L4KUtQ6aqspNlXCif71eMsW4mQ0cLkZRycfUaM2wOt4pnOKC662DIhIUy2XKeQYqmkKwisw
CSxXRqCCioGEi30KT5iOaShByr+DnzfewUAJcI6DGgwyBA/AMOqyD56OW3TjGzWTiNzyyVYz801e
NiyNtxKuD2ll8OgpIsmoOSMh76BKvCORgJ1YMCrwpDgKOn8lqIlH2RwZI/ik00HoUxJ5BC/h6WDj
Ea2sKQ35enfqwPpmZxbZqLXQNOM2LDeGPGhRncRlB279uYwssyoVI/kQzt8dfaYhyiBxX0MeOOMx
E2umWz7i5DkWZNUSSQ369+giNw2rWNKgxNxJ7QUEfw05D/zkFISQigkjOVF8j8PGh+CJfAYqw8KT
Q1fsxYFYfB1YmTll+9HsG+qGw2xa3X1Fnp0Qzy68zoGQrZBtZHfOk56Lih6iA/qD/AwOZy4g8iYk
dSOg48kMJmXZNcMPDd3X49BMNpNpYEs9r3JzVlFn7Ej/ysUg02oyQZcEfERwvFWqN3NYtpvNtr7n
0WNESAkUgQbmRe3ZMMqnbATMiXgkHWH6Auk7sbPcAM9hQAsAIBw0EFrz6bxYw8H/xXoNflD6Mauw
QyBAclIZxndk/DrkiZlA1oSFiV3/mQuA4kOBghFH5IbPeAbW0Et4ldQ8B12W1Ht1hQ2dOJjX4h8A
kyCrFfOdX2nDppNoYk4i8rEUIkgeLYrh84shcfMQE4XodhpyW4139zbiCi3weH0N0DhLG+2tuNzL
GBbv5GB2TlUC9FIEYQiT6hCIcB7w8K9XIcEOEAqEpoQnuIvRgNDJt2vh7cVu86xLoPECn2bt02I7
UiOvX3tH4DVYuhpjDfV9PHlAeZbMbprDus8YwkVA8QHxADHwTSmPDBAu2PZACtNAsJgHJ9aO9nSI
Y73zkgGIPZYQQ0Q4Hf2az7IzrUFkPEIDyu5FCSNbpBQsSjvamD0MXgAo6w+Qm0iB1pqG6KU+AwMy
sMHiciWC7m22WbR5LL+OdUXzPhLV4PVIDB09+ZTBuV/OgZCCYjqd2x7uSW1HPMUJPFzlge7EdPZ5
iRWeTxmnpsxfXAAaqnAWDAnFpEIXHU2MHWVKvTtIJRJQkFDWK8GteWeCGHxLqhbcaqHNC4ZjXbMe
aPT49lVqbtuqY3tezQEZRCe3pZ8y51EFVpO5POB/W0b86HrzVeNfAC1resS0Vm7PTycETPnau7oq
abSKD24LuXW9GaZef3SjgCgZbbN3Exg2latrVwLQ7IFFCKKX2Fl2JwmMfZALnIv+mqg4Gsx28P3t
ve/r/9csd23tvbm5uex9fUf77kR/bmTv8vm8sIFKh3x2MEwlK/WQpKJgFSz25GVHwEAZPVvVv/Bw
hqzVOklTuixDHf/Ro4WBo6fw8fMTtW7i9cVAz9yr+ui9OXQK3vlHu3M4gi/4KGBH/wa9b6/jzOuL
/q/C++pP/MkH4djSJ8ZDwCTP/TF7/X59LzH/2JX1yPKXD/Cf/D5qY9Wom3DJ1+LuQ8x/uZ3aTnPf
B4gr7X+3dF8t18q2PNf4xjey56CwEPFuU3uMRaO3Yu1Paaw2UOnSVrXw0Kz4ZS5YFlsYedv4D+J2
1I5f1AeIEwP9oHsOq1CNE6B44X+2Wsh8QeWOHgdQR3fuCkq6vwXhwX0FBMehkN+6MC75lSTkpVsk
BovVuM+X5r953iJEMg/DE3rRPuwuYyUKzC8KC0IhlUbxVO493BxZ3X7iQ/rhiCcgGF/w8691Iy/D
fDBwD6/1K6Y6MZIvWXRIhOhiNFiR9P/oaweOZECLAgqU1ZtlTiv/Oj/7V+PC7rAbbO3+xlD9Bxef
vr3I+TRrNSHiaFxFHdzQQdOFAd1PMiDk92fl4r8XyoFqdB4NJyYBRfy+GUGzkXfFaa31luO7DT8I
snGBOxXBnDUq5lyR7vD4lUd5rsbDSrQiOIOQcrxg72kFjxSrRGkFLynIvPBGhyl/ktHRHYNgATAs
LMIiJVxZAoI4Q5fbudBy7hhL/Hp6eL6adzdU5WH/OL7YQ7LqCPkU3QEwVOULMlV7dnawbfxuJYFi
EQaoFPNa9V48YM89wUa59vDjGNICXLi/GGg5pNjtWlnsyARL2ZGQ1ImWjHoaI556j1+G6uxCPPm1
BC9QtiHxGNqPj24dsO68alwj/6oymkoGKB0JehEP54T7n31c3aEuz2ROQIST3NxvDo8PHTodQhP9
igt8gHLQXIkR5AbR+PSgSei1x8uMOUbvW5t3Lcr8G1IRym5A577QcfAhFgbFWrVI/7wPt799/7lR
I7CmhVuPh7lKkN/pJf5r1GMhp550e1xj+t5XrXvX25H/Tq6+gea1PFUsAolsocTXwXLyP6UPOHw7
vXRnofzlm5galn8ZYieoUj8FEcGAkHBwfBWESKeZDzqHt5yWkkHoqiBGx7rlZa64MTKF4l4hnEtM
Zabob5wg+8hsJhE5EUiN5Vf7Eecd2UB66TdOsVUZmUnDhZC/OMH12pvZ+IhiyBgNDisxWThWk9YQ
mo30no+pA+L2/McD9TAkQ8j/3LzYfOrdFuQOkAt4OR7wRjSUXyMC01XksFnCL9or0eIOcGP29AQt
OiiJAbwAXx+gF4DwDpcB70WPMVQf+H/NQoIUTeBL3k0mCzIe8KB5qnv9Uv9No1ILKA4/tNviFg/6
MokqBjXGB0cfgMMNKjv9/jWBc8z04iRnsW6/BqesPzMIzHw0H20UUJApDy+PA4G2E15PH6QUDQ4T
CAVHOJnMcsbMhaHXC3eHKQt/P12bVEfq6h1A8d+58a6zrysQkiCPGwZxA16j+wJHhFeHTVHp4HG4
CIooKU5zNXkUAh3l8raIkEHjR9AR+cu0ezlDwA8UFx8sp5JgQi4ahdNQFSqPUbf83D+kXGw3VBw9
EHlsvzANUKZzou5IRaWldvnowO6983OD5FjoUiWoUDjKRbMukcmEa/OUL64MZ9zncG+a4q4FOuKx
vhsbbAppGDpotFN880ipEXf2hADh430FBgVeMYC7EQwHieNqUkPMhB/eypDyk1OZXUHwbssdPFVf
JrsORJDsV/r7coThRgTgBD9F6Ph7ZMfAgUBpKIoXjx7/gNBjItxrhEDipAJAUopHmVDbLH+x9XIw
/H9cN4gn2jjXv1KZVU31Z+VopqNLeQ/6h/a0vRmxnM4r74T2fLR4YG8gqzrPKUBUObfSaQ1ESjIl
RxplyueHd8Z+TzX7/AQ54QjiguSSOk2to+HYQRRFH7kJpIrbZBIgHRZgvc0eH7GoKD+si5SoIqZF
A4k+ZoSZ/G7Y6Z/CT0Z9Q8Z/6OL9EUGnXilTQjGA8s+IbkepET9CNjdyLVnK4OS5DAuJ8HqwI7Mw
qQ9mwcZqQXxq6bf89Hp/XlbibfwlM+z041LwEF/ce5j6Cb/D+pCPKAGClIMkaEK/3e4kg2CD6Pdw
+5zzNWvWpqGqeMNWfBqapUNXUKv+WW/n5hsaOMidTbb7YBGNu3/2Vvx+uj/Q0uP6f0HXnOzo3G3d
qFqAH29lOECQMITZj3vW2wL4fkWDH56v26by6QvXVAPHi+o8NuDsgGo4qHtgHLNm5UAH1PIiBGkN
+X7NqPo+RMlV+YfpIPchMHxZ/9UPRz9snz4KoTn5f6a+FhsZoGl6Hwl6LXJ8vGap9xTe4D+tQvjt
D1dbrWDfdGAngERYi/c/EoxIAh+CS/pVCb8u8maAH+1UPkJWxKh6P4nznGDUWb/IgkldgWi7jRCj
OFj47bIGM+yOkDKFiGcGdRbaxgfj7xNlc1Te9KH2NBl/jqxLka0Nav6hnt1nqRQpOL+HdUmKD92l
HTEuA/PDx4pQ17icDuLrya61yiju1cuA8IBybKQzhsgfK/9/jr9wGc98GlJo0XgwDqN69V1MyFcV
Evk3o74avEpxgG1m2fK8G/GXswkXy8m4c4NFIkfq/nLwGPAFIt/A3Dc9rSHdxX36eDjYTb9G/kRV
y3IWSyVaPWDGboOR8C4zP5Hx74tUGNXYb5Pc9VIVQsYswh/J/9rnnvWD3ScVHzLP+bB7goJcqqWn
Ru3jCNHp+OeGKqS+q/gU/kRaj1Xo6m66wp9ZvJcZ/g74O7pdhaYjBRNYcBjzd4f2vGo5LgEt/wI3
9IHINoP0kGJ7uIgksfIwp0UQf+4pGQJ2P8z7Yp+zUyfNSYGAHf1TkE4Xz7dGbQlPn6z+nvbi/0fn
lKHD/oYByPl+7OvYN+PzN2qHeL/d/bY5BG/Ozhr55OR+Hv+BmfQcj+2FBrFv9yp8AyjYidpMwZYM
UioyRo4QPuf1OUcPmZ/BvciBJwQT6R7Fg+5H9Wz5kMYTBgWCqd5KZPVA4p9nhV/YXcjEiR4ONJ81
X7qokePxMUp+I2EIKR+Ho70e4+J+UnGsm1UKOxEbwhBnvLGhH9H28GweRb0/Vw63IXype9MEbvVP
c3IESgnFe/3V8OiCLgLH5jl+xhvZQIRUSQjuMILUxKR5Wbkr2lFT1jGPsYJiFWCU0v7uk9R4lPCS
hKQFvs5Jf3Euu7vKcjXFGE0soeUHT5y3uLMoLOn82qa3xKaD246K+96oqUvi/bzDwfea4vV31fLr
JmhFmBnksgkC4dwH1mxkoeBdRTk4OqtoBVK69s8PUIhIQkIj/Fh5R8W/cS2mjpTCghLeChtdCAKs
kZYYRd4MFIHgBLy/RyBmblP8ddJUIm5gQU+o2WHLo5w3msOfSvy8YlojkqveprN4aj2ILBPR6h5H
2P2IDVWO5/k3w2j05a98S+ejtJ+rI/2/XLxn95Ra4lOsf+9tq85/YGom7XsXfWT2HiPhNnxmtvuY
PXzM3KHFvn0c/+eHIt6Ldl7lp+DtA+r/+l9BL9fmtsbfKXw5pjuE4wf+930FHPgS9U0DBQz1BCDg
KPj7ZE4WkPV8n+ZHTTxeBz+aplosOCA5PG72XDw4pQhx2yCFTdygQlE684PAh6cl25zogjxbUvkO
XfdFA20fV9eV3u0zvITML0xrTcTjADWU6BaPRSBxF458y+Nd43BQSIi+T3AUOxoWLlYD8YABXguT
8GGIuYhfXh05jGFHYiaTEZGjRoYMuPmqUy8VHbSzvHmyO7Cjmgr1MLKL9RzUauiLM6L6tD5OjwFQ
lyvEFs1XBIL6Mw6vZBl0mgwfQmnnF4eQYoFD2UOBGCO85BoKvYTa547sC0U5ADkoyamh/MpbC8qU
YdntAcLQxRXiKEtuLKQo1Ig7JJobS7oTYPVQ8KQVEQ4bn4zDx1iLxcGjYMlydn73FWhTem+ldHbq
z5KUxBbdW5uTPgHViryZTDaaaTgkUcB0L2kD4kDy7n16Fn5/t/W3GREQ5eu3tIB8Py/9nr+j+s+q
9BRYRlKcO7K9Tat1Lnd59mHovm+UTFJeR/P4b+sLzm3Lqu7X/T8A8NNyQjNIPMyPSqvMQQIHZUc6
O1fhKNDFoyX2OXfWIhQPfOHWWzP/l2pKqys1CyBT0ExdW/Tkj0i7+EmAWnADPHOHqthZ6GCnX9LV
+88ZusKhNW9x7h8fD9CngCSP2VwNIC6u8ztESb99GlTnRwwIQDgSD8uygO0V4Fps6X8ICLyHDRQ4
aGm8fCGPHlnJPwENrFUl+LhFgFJdUHGU5Pbpsx/CX6vy77Kro2eFmajthg1wvLvfRycdHSLklwFj
f2ZuxHBDAvgqVmqPB0T/4Kg7buovvHIyoxOr2cXXSgg7qPy6zMtod+1GRtjfE1SupRUbGFCHM7sX
vgZkOJcjiYM4CQYfGr2qPTOllnfTbCvpbufBKSj0fZAOVwqCVh/WLty3T+8GIHP1i1D8RoOOeu7s
nN6OQ2DbmJ0ax0Q9h5CKUKVqkiWkiKQhRCEQT9SkoBRQj/tI+QWQFxMTvnIAHEGQZBhHZRUmQtkB
v/QA3EcFAerrIiLSIDgcU9hAghpjtYTQVBJbLpEI1VVVtsdYFOSqzJVFKLQNKBQxBEAFUUEURSNK
JB0jYSBgCRCiCNlwRjDBFOIpZCoSliSIKJNhKU1IyWCsBoGKgbYIiMaIIDTlIpk2HIGJiDUEEml2
DCbO2DIGwYDZoMoZNJiNrU4LRgoNEZDn/ZkocCHIEOkALwDZAXNRgxAZBVKaCA9MBwTrIRAhZcAm
kaQKE0GICIKKQ0OJIoloClIkSIKDUmhclQEELJaUcSxAFnAGwZNgymzgDYMmwYHMFFWgGImAIkQp
GgKKBggQoVNGYvW0UqWjCUJExARBbaoIhiSqYyzqSYTJJiTMiYhppYg5OJbOiCINCUJSjQjScWDM
00lAUOkMSQQFESEQHgkUpVo7ERHBcAGsmnAsG2HEhxoIOXCoyEl1Q6AKTsYh3FHdslsLaTRbCTcg
MWx1AQ4OJDhykNmDhaoKHeOeXQoMBgnjBu3WSIrM+cxHNq7qyssK8MIUFJ1okDt0oKjWMYShzsWx
bYoiKQC94AOcExXnDcKjxgAtkOlZ7yyFHI3MUnenOd45KqqNGMYxRqyczbVKcakdyDbZIJaB6NS6
AiHhBNRVJCWCQ7caJlKAggocQ6ICHTiYnm0xCamxaFMAsUGyqEZTYU7dXdFOnUINsQwjiSBo8I6E
MRSdmxjoLjBRX7Wxd0WCTp7yHI7cuhD27jRAf/3IaXoLAQLIaAprsNtcNpOQcBb8/Q7cK2xAFFgx
YwXqdPJPL/7pezy04nWgxNjB3hjZyTaK5AagIxAzILMU7fsdn8PcOavbmkSloUAD5RTKCmGVADMo
kyDMgpMg0jMgzIMyDMgzIMyDMgzIMyDMgzIMyDMgzCjSqTIMyDMgzIMyDMgzIMyD88ecUppRShpQ
pRGlSgRcoSBoCINnIOAJUHSTAuUHOQcCZyDhzkHCS6aApTCA5yDMg4EzgQmQcOcgzIOM5Bwj8ByN
jjQhPq+SCjiUDT3f5uAdSJsJBE3fwMA7mYRNKTDFLEjIxSOjvK6FhP7OWuICtLBIVLUElUNDEHlh
yQppoSKJYKGgmCFggYSYAmpvrOhqCgKRpEJgCiqlSCgKqkSgAiCkqoWiYYab6hsCuOZGkMxrl+4X
EQe0P5tdpkqblIif+MoZIKf9ZFA/5Eg9qQE/0yIPtsdCC/7vy/n+KMqRokewmoQMCSn5Aoh+Sh+5
j/l+n4tP5KJSLH4m0aRLS5bZ6jUXPP/gcR/P40I8qpBIhH00kY87+G/sJ/3cVfReoZyp1c1Wxn8o
fPL3ceqF+uxWH7cbY/v+r+X6P12+/6NRzO0+4NgQYHmgUQsWlG3h5efi+T6MvR+HWGMRkGEGQTga
3HGeNUYL54Ubu04m1W2WK18Jbi9GRnP5GpXkhpDo3FCJ2wNlVMccbpfXtfvOX+zi561n4DdUgR0A
QC57lzPEnf7DKu/+9RDuLj6t/nQdEfUjsCHAk4jry4iwgg9wRJNh0DQJ2exOsNWR988A/Ql6UExQ
MUy+C1VYKIDuEKgOJIVVklVh5/2bMKH6/ZcW0Fb0Wl7TSaj1kt+6H+UvqQG4cEYz1rsg7y9+/ZrC
SxRzn6+vNsYW9NP6+jhI9B02kv2chuCOd5koQQxyBw4elmu6IVMg8IMkBdyO+wQJuQGJI/5nw+Pr
vGI2GCifIiRSYco/o6DPT3Z4YDAsPpEs7/Lw/yYRmR/0AgcmBd7W3LfEqPPvdxAvSRQehH+MuT5a
K/thWvKxaJnKk5P2c5twd5HHHy0v6p2evGJagVNeo7JWN+fuNWocvoM8NlVz+26bSdfz5ssGkokC
QgXP6fN2F87VWwmowuHIfM7PHZslmYwiQgat4Ue2qlnZv0NMYxYYHlwd3muY4kWGs2T1+ZDf3BsE
muNqLHgTVJ3rkBdV0EyYipH5H/i5389eaQ+CZpEQh5R8C/4BGP/ADT8YI4fu/VREdtQ2iGFPz3Ng
3OopgX5AWRfMHY9tgiJEoKgmIkqJoKaolqqqqqISEGQiRWOOSGD1bPMk+DznA1ReBnmdv/GK+ope
yDXVfm9HvWVUVABYP93iQT3g4iOiLHZweQSP1A+FVQD7cAxSYS2DTuA1An0HWk3Aa9BLh1iA//hg
IIAWA/6MfSXIKtGOqDyICUEpPdlBta1aiSnjoPL+jHAcfCpspyCvrzvYkuWbbzdQ6dvpu8cIlCCH
8ric9Kp8OpPYk3NfzpMeRGtQLhnlU+mEmOgiCWZB6Dz3AdZU/zHNeUJ+QkEgHiaXEaOAg4Tj9Bru
ykTsgl0XuPyLAQS0ZdQESYd6x6S4vToIATm6Nvo/YYArCqRmJonwDxywJIye4rawR2+Ql0YP1wIw
uvnZbwS3dXFhWETu1CcEooCewT8VCAFON+4T5YiFXVrSf3Dppv3KGM6qXBdDZ1QsQA1tOf4+0k79
rqLEUFe5RDLtBHnxEkanv2ClyhOqEdwUhQ4MzBYo4aM8ZeEOGA2DhBTwxubhVkKYMbBRAmOu2c6P
9mmzmd2kMraWsTg17A6HfivVtakRPAItXbgsJAuDKkoc/nR/dENtzV/XZGujh4dSJo7yp9ad30jv
VRbHgvtN7IYV3AcOlleXw79ba8+XkIpoAbX6Mlj1yAuQKAInE1gB2Uj0gPAgSShUx1fFEdU94KZD
nDTAelBMQZPn2V8gt/cqUJ1JLYd+/FLMH3D7+SwVfl/h+2zYzyMTGacYFFBAoHxsYb7h1B3mPLz7
evn5ZNNOKjzd/N2sWBNSeniFEQvRhfC84N7iTIGyIdKoESHKAegj7gwGffxvEcRTj4zR/sXDDo1u
vAlCyaAJyvbyeTJECUfT1X1BtEB4lgB4Rz+AsQ6ZrEPDcsqnSHuGF8LypDh8vP5q89y/V3UX2+vH
3l6Xw5rj3MKPUlh+NlumSC/Afq2+FMFCBhFiDsj6EwAzPYoZ8Jy3RQMBQqFtmvJ8ASnNVRyej18w
4KO4ax+JfY2O2pJfJgw3jOAL4mAioe8gOO/zTn5A/GPuU59b76J66p1YLpoFhvq4OFl5jxH/HTbM
EE1b5N9Tu8Qp5bAedH+XMf6qjbmHDmHcscxez++4+Hio6j8u4I3tqtwKSBXoaauDh9T14mZDn8Mp
HxGf4P07rt+GbkEbaL+OYUWUfpke+qEwyLFhmxtTwesL2RJ6eknn474Gw3GSFg5tlAuJMJ3AvKC8
eXDjAwBey18tNkrrTBwmrqsHw2grOVMD+uYHxk+QSvZmXQXuNlDx5Bh5ag6TESmgHAYmCI5Z0C+t
3vH0D0CCgf3BgH3iQFVLsK1a9jyL8rIL7222FLmzDCMzkosUD/31brovz2zhyMaFDzGtkQI/vp1z
tHPl3cttPYa/jOEXCEXBQv6sKDuBBrRbUeEPoPn9rxmLqIuHwa6AjcHBNlCkH0Q4oBXqgmYxFwCF
gDEPEDcIp8j+clSGZcIR7PFdX8NB7wobw8gERus1fEgKopOjkc4c/SEPPbpKcKmPaVkFoRi5WEVS
TGC/LQc+1x2HK7nBwum3X9h1dnycO0XdD/PJSRS0VRmg7u5z0PoH2cySIGgx4fecYKvtjbjgl73T
nG4QGd9UEiunQM0vKLUf8myOyj8DER7gD9fzH7R3iMQPEpU+Lm83ZA77c3e4ICg/3FHAMhk0eivJ
Zk/I+e5l38fOo/B4O6IOLb4zWEkbgSe15xhEwcw/zmJB39v9HL6//KsOJCpbjsaz0RN2Je0hW9hA
k6wzr0QxyMtvtRe4t8+PRsKZHxitM7QA2FuBRRx+6jz8nZK45QsHXj4h+o2dB1leFpNrcADlgjls
VMAcpQqBi4hi6DpzR8vhHIDrHumzj4Q8TGROSKSA+7jIecfxPoTCcRA1v+Sq0RUHzKgwH/eqDpVD
CT9E+jQYUVVJShKkDQUkf3JQmSWVCH15flPyXVTdUMFQYIj/pVIryqn5gQAS6CaQEPvhUHZPySES
EgRIQxBKBKAQgUG2KB8P9uD+clUeX+b/R958fw7v1/qLfoqpiWbUS3vsmPj+Nr/L5tfD2/DV7z+P
47b9Xu4sOv6ubmo2c/s43htVtJYh5Y3/fw7jS1+VYUtOU+daSg/rv/Szq/u7s/n2jPrd37Y06bZ/
b+c/3b9ubZMn/w6d/lgG9ip7yPPOL90u7tVaXBnHWvl/y8viAET8f/L/eGBB9/cdfEdAOt3Qz4fC
KMo6ulOOZmvm8Kx0lrAeUtje8yruwNthKIO9E+YcDQ8EQRMUChFQckHqgTFvXTv+Py2X1WQvHZfO
nTbzsrF6Kvk081d8Z7Qj6+sej6W47vD3PnR/nWHv6dz/49AqN8XMGPgqkX3V/qx/LDz+wYxeSvke
4PJTsjT2N7qkecG0jwk4xxIA5El7GGiQKODRPnrq2MzIlwNjPBX20UDr8lUKmQYuNxsbC2ltyoBT
5a+fjRSWVpUS9UFfRJTqkx476DSRJzsoKo52RSm5mccc5bhQxODgzm4UB6MRHUIyoYYS/t4qx22x
Nh6lGqLxqSiqGD/Mfb+P5/z1R+OW/r/Y1n5i3d0+GXVNU9bqtbJT10g6O2iKMRHSFCdvHUnZ7SbG
pLh3bSGSamSEJkRekglVuXDg4kF5I8lQ49vbDQglKPel2NGCexIn7CADRKuxJnLFQeiXjI85ecob
wiUiHtyPX09I/kwXuMD4MyvjRNOw+N1RV63b1jKjxs+bW6kEOUjUBN6RAgmHbp5zPc63wsXEsEKI
EYEJLAGHtmQZgHo0pcuvb3/3+HI7iG8c+F3eOffqtuyv3V1eILh0JI7qoGQ6CPNzfQPE5cR1Z4vV
Ue5wSUYDf4MPi3TnvpF7vh8S3tpiHp26dfPqATg7+ilOqcgIW6oMIxYEIiEbX5jy9OB5v05dd9Nk
79UGQXBNweuelLb8u7Rur2CmHlr4Y2HZKauCNs4BRAjYHv17l9O17ClwiCgBCKCES9w99riKJPTT
jgrnve0cA/2IO2jFJpbLPTGSgE/Cse6kBHZvEAVAAegSrBXre4YCvzntGDIsipEIsBQPp16NzjHy
/URP38x+v8A/iYCfxgn7h/cfjqOTDfuVBtsuezbZ/o1jTpX2iOuWozKP8/45oWU51QYatASnLaBj
ZRjxf/QNgl1OIg7y2gabs+O2TP4B/SQLIbAzpp0Mf/5JtE3g43/rA1vDH3fRz5jvCtqNG2dvq8U6
01Ceg8/vTFPZj4L1HezV57mr3/VuL+bVrDN9XrTVfNHyusyWnD5uPj0xzvvIUahPjppcb7dqIj0H
4wKKo78apj8rXSSfn+g59ICIt2HH22HJAxwBozYcMLAdnVHLmJsnAxgB3cQl68q8nByB7DTolA1E
393QEMAPSGDvoaBdhBxfYFBjmjV8hvGSwb+jLNTa3BHi4ayPJq21noEN5oYYjpdrDLa/kRh76Jrv
bZABQf03yA+DAJRDABgkxgDIQNSZiBduiaHSG7EzTAMUdevPDBEEwhia2cBJqqft9/1MAP0Pr6zF
8Wh+92YAYVFGdO4RAkFlWCCCRExCdUgBKoYBkFBy7hQDxBrEA2SphYgUAAZ+Vmg2KXytzIL3KYmB
9mFYBusYbFHQqUmNjWq4bz78TDgsUOoOB28TgYnY2yNpq45uMwGfEKHgIRC70zQJAFz3fP+HhaYQ
SAqm2X6C1gjHdzblOgyozakCOkwMR4h1Zb/mD1+wY3gc3GPdxO32HHbPgp3aYMNDfynkEzivLFNX
H1IHXt/P17rXQPbq0+iYFe7WQVAjSmAJPfR38ZV2CEJJq/U77YYd44zHChgNFfswD3rfy8TleaDh
tHCzj5ViKRLfO10YOApOUBDuWIsA5EAeyiSScgF31gdR1I6Efxjww+HX+vl0IX4KO5v8JCD6MSW/
U04Qb0KoYr/msj75IpKHgiyINfhfznm3oKIpJB3dxkoB17hz3vYsxLZKkPOGccwWsMVxCFbHsRJ0
Lk2LwXF43y9nqr/jbtB4hNo/FQ41+cQrQw6FFCvdRmcU19ljOHBcdywaXP+iTf5/KbRsq1Lcn250
jHtFd40YmJRlNqF+C5/oorLD10pH6kXHh2kxSunckf5/0ixAdLsF8yHicM1MwC8O70nX737MVVv/
XLbMBxq8w5cL9y+hvHWBf4r71CUGYBjv7rnvVPuc/3KRkO38YrFnBYHm56h6+uJ6eaUfpKPMuuqp
wSUa/BPRrcp2lGG+dIp0uLRXzsrIaqFmIm6hnveSqpMPPio/yj5seKYNuQ4mH9mA/w/XUhVH10WO
SIsW0Ez8TuKjA2aIPgXRhGt+m6OM+T8dft97RojMf8E51IBgf9s5g8B68jkSFQhwmfye22BzoMbU
sJBdI1pbwiQRSAg8uYzqWvdX992ykRMGBVRCwFa46odVdo34jZAN/BFn5M+OPunnqPjPfvt4ymLW
qRkaPfCuBRF83T1sFffSYvR1FkZI5lQoypWqucB4NMzBHa2s9oQfWkNoP5RuAQIgwAUK/UrKWGec
LWFlfLY9HPY0aQnpWM+T5zOdBdip2Qwrw7oNHprLTOx6+T5H2Jn2cLS7OXnZw3EwNAz2TuObuqmB
mSeiHmBmGXIpDGVwJ4iPWAUP0Ikj55MMbcfUfDT6oBAxAtz+kaRBBGaXMWlDwDv4YXzB7muofXkJ
D21ZQn5KAjRa5UMEER9dWMVB12O4TtbjwEEJGqPExFS7t0DJWQmPXTs4uswFCQdfZhpEoSPugXA6
B8KCDsOKQs8LJIE6jf/GxyaS6cMhBmjhqc42ol5iGKM6i1fViGXD1RiKyjNxS4hmj7Ap5gFLPTz1
8zhb+Xe2CCw4FvtqZT2KcUCDSrmBC0WO3JHOREdLm5ScB6hZo4dwLCPD9mZrneNGEIydPaOXrXRI
ojOpy8FROBoixBCKEIwkdXQ+/zyIQEFvssshdO/xH7ZA529/DT9F+uMoH6ibOMZdn2Agj049PLR8
iaFtPzT5WyKpjGiwA/Ho8WBcvHWFohuIZXvRa04M4pT0OC+RWPg3dG0bNQoRgMjjompFQvorX8V4
VsBVJi2JyQdjTnkj/1rEGYLImvnztgm1ZcZHHwqSrUYEhUkhWvjtac/f22XULyLsXkXkW4CYaThO
KBbDmxQbqJAQ0ENBDQQ0ILQg463ytzPsL73kZ9rD6Y8+LpcIxgoBgkyBZHfp3YgjzysErFbznxPO
IGgyb9Y+65IoDOLyKEjkfPe8jbChfxD9Fx8gM3sBmuOj8vcmGvu2f1KZg3zGXB7vsBmU+KGkMzH+
Lts/sv5XS2pnqAiT+FiMBRQiM9+4YedLIpu/eD5nkw1fwHi3FtStBCOjoaRGWFg4uKEkO7mgmVvd
RIPkHuNQ724rgcEjx2EwKYBy8f2nqZCLW5UeJ7p5+PUuM/YJuhwIWy/qhuwGaV3TCvjwjVce7j3b
KEJ+LiQMpALfGfCoc/hXPww3j4VxEL+QDN/MBE+4CIwibAqpkspKxy/Mep6+03iRBQLH2iPCkfK1
I7lYNANB19iLuJen8xDhFQEkqEfyH6QAZVcwMW3ffrJk4yqXUC0es4k5vjz+iunB3TO2dZ7vOAA4
p/yPp8/PLrJzYBiNQ2y8igYN6d4HzvsE/V6TkK4x6J3gg96hyB3zUDmUiQHc5OYQXeMXzi6b3hod
kkNgRp613/jfe9Fx0f9Zg4B124F7jQ3OXV3LbJRlqoMjbpXUDPl1sMYVbp19p0nyQO6xRCL8oJVR
UaXjTOD5j9knXwH8FJT/Y1SuXXoWFcZ9nKmtgGaubyEZWsCs0bw2DEwymDSa15zZhnlmlKUN3LZo
hsvia0M86W2sLXTNTM1FHyOszDVNWiBfaaW9cRdiNioGcDifYF+FVlOeaQtG0UHQMYxoYz8t62fu
8h493z345zdM+DOjwdhENqQRKJXguk22TXdbDqmrB4gsmBCxq5X4Jk6ngTZjmYRzIwekvxvV+2nP
dv1s65P+yI9uv9Nt2xyDg2H03MDLpCsigJqsgqGDPTf7atP0cQ+H/8//edOhHvEaTLf/xZSb4a4p
EeeG5ncMG3zIjIGNWy2bcSuLfdOM6x5w9szkkKgzIHL5TVq+SHsZ9WuT9YcrfoHFGB4YHevvqg/i
npQiHUOn8+pZXVwB/kz3+4rxMykbGsQyDUZ20j/Oju2Ew8IZDbzZwGuZ3lQh0ER/piMBcbnL8o4h
yEXiNwtuNwjM3L5sPIWWaq+Qw2m8PD8/Ndqzbl8zO7bOm3W8lDocdV6lswsxv7Aful7JcgtnOjRQ
1US99mvq1O7NLj6ikvir19y5hA/sCHMegL/UVk79bgWjYBRXdB3Gw4t28zQyj/RdyRHUQCkGRiXB
7auChKuDiO4s4YHLv+f1iLgoOiHCTVXJMUCKAl4RigclXaxOlaz3rEbrMMBSYKX9KPA+RSdgP6Vg
mQ49EEscA/jw3Xsw9UkgMkOEEL6ptpok95rUUEw5PRVC7bQGb4ISOyjvN2+oooqiiiiqMgitsLAw
6u5u7D8YVgwjlvFbbi9752PaC7jXZxidEkTTRUf+MR/X1DQzB9Az5CQYLbzn/XFPAIz5oB1UItpk
i8+9jZ6aw2E8fWTm42hoG4bGJuIK6TNns057o7ddYGw/VF9aph2U+VNPnxyeLTaeKSuxC+U36b8b
gnbQl2Qc6DlIYKcGJc84GV4h63P1ff6lb5UOK6XP461bbT8QWLUCxgBxAeXFSiJEcdw5IJP1lnbj
/whRBCqRVLNRhAAliPlwrk5YuNXLKGr6egbZ0oIBHZzPfOAAIRzEvDDhHzIkzZFg2NdmZwwgVJ9Q
iIqVX5IgMIPyji2rPSFaut0WGZsqvbqBFxSyCgGYdNKkvkyMACAMKqMBZKKW40YZeIpu4KBae6il
juumHIEiEmO6iBUsqSRhzqoDy/WG8RCA3rczcQTweP1g6ACsjyOgPr5gULHKgG4dhAbRq/EEdis5
Mgxzgj7C6aXyo0JjFfwB9ttPv31L9BFUShszDSDWAKklbBcIyzd2AuIjiKWZwYGW3DC1VwlSuLFD
g8CDxAtwEd+YchpIlOrMOHZiRv4j6IwQzeR8rH1XozhZecPthnswA1uFxNiju+35YYyJjMvnMUBK
+WqzvLf/g0F64A9Ilg4BOKdYes+wWz5B9hyBbWxgotpCLpeCumHaQaqU3qp/Yv+sQwl/mvjwGCFd
hFYaLNwEE2ho4dsQEg4HsyLNwYpi4VAA8oLmIZeYPS4VgRQgkYhgu5VLMlgFulZwbxA+nNUBKIfz
DpUkNhxZwNsbzAiH9FpLv4Hdd3EROk9OAzD8iWncTUIDe3QXJ7hugRlC7sKmhnegIIuUytagYYTV
Si64m8N6bqoz6YQXBcNXIU/hVMti+D9xlM7WLpq3TJx40YiocnUe0pEKETDOH44t0SHIWgtM2JHo
03R3ofsCODL/vIu+mrMEwC0h2QI/strDP24CPARjqShssoB0WBA4zzcIoUR5ggyW2KVYF8HMbWXK
kTwej0+hRRe9mq+FaH8izfu/fuzz0SyrJgeN8WHcX2e5hpBDrkw9jzyodwhh+7CFWEaFusDXlMV1
yaZ2sabXXL5ALzlOvY/Pmb0exIYmMZ2BgOdrtguRt10Xm8/jQa3QyeHdRWY7ohwYdU2b3TpyMw6K
qpyFJUotLX1e6PJpSUBxNpqCduvp53Qy9GnOhi78cUKHjWw/BfJfVENlwTLpgwMw14m12vPkGozt
y4mo28tzOJC32+F+QAsIHKyLOCHQIJuDEVbeIF4CHkepjbuDoBtdTPY8MfSOvfwg/Nuz6vSYEAOo
iA22U415+cLllNeRtqODIxscIOAH2o54prqw3IaWXXiS1S8hAYwQDt6UrXiU4xc3wBaRMAIQ4kNA
RLYyoXCHEkbnueGstUCJjWx69BQTQWRTrysgS0KItFRhIYDEAbst3NSSwYZhQYOxYiUKoHJf7F3u
daMDIDR4FR9NTyQyJSl/iYYmzrUSUf+b+7Fm4Yx0auy7q5O4YA7wgefEvxKTSfqKKQNB2lZ5AY0i
YV5z9GYNnRgnYaurO/JL0ZAV2zsfztHs82sXHHtKKaOJoqSE2qTriIsJO3zOnfRTwqSnIOI9ZqLn
FHfTo9CcG7EqWh5ZeM83KWDhQruAPFhxcxnUMKviWF+noqIS/T7c94KI+B7cHQSRN27eqBBEehOS
BfjWO4wsaVPwwL4/mA1dfKcPs3CjIpAE/aceBctB/h7FRpkDwQBwSgyS588SVBvQVUKT9yjfLcDp
mz4T3Odpt+51A+CvoJyOK2HhnLFpx/Re4qq/abdtv8s9kqbXsrQF6EvNO7V+lZL0QRICTBJBCOVF
AWhcvJ3+zsGxln1Wdr5+3KtdRwIqKcYmPzYmymMkD2VRjANfgvl2YGb6JRG6644b0V6bpNaUjRyQ
BH1ceGOuY7g2BmuP+NasyuqjaVuywwS+7fX2SOxWHlP7rut/Puv6qEkcJ15Jo/Zoxoc0QkTOb8Ds
nQmOGQ4sC8bbarHCob5EvxMhOK5I0ISONG7Vy5aWyxPsmg9COPL331aZI1jpV0z6/Ux5F2Bg4Oo4
iQWRCKRSJBYkkEMkAQkDk880bcSHtpbZjyOmKKPZ7WbEntn101u/MoYX5Cg8eF9Wv2JoNnPpVM6+
gR46kTapteA59nQHk7zzaMKIlr0vNMTYNtxiiGDL6ZztU132NF0qpFm+kezeuii7hZEW66fd31r9
Z0vp6eh6XrpptsRWHnwjtvPHmlY8hhRjqZOL1h+v87/L/voA/+bQBtiREf7aAA2aCGCooiGZoK0A
5lVKRQpFKBHEKAYgQoKVaD8L9I/n4cRRn/AZWhQpQRIBD/cg8BQ4HCiBpCkKWIKAghKoGrDkNMQa
HQNUFU0pEMRwhidUUNCUUUNMTFFRRVWqsuNVVVVkeB0JcSf8QeXf5Ny6r4UELNWf/IuFt/9BCf83
/lKY0xs/4HOJJJ/z1TfjvCpFYXmJEllJyEuNMC468ZMz/HWrke6KaeQHLZqqLJNuj/t1NOaMkser
vI5RvDB6YaChuVKKHE5bt1yOaeqqbLVlHSeVDpJPbikngISQ8wIwfcComwQgjGIvg/xUVqFs3/+P
8vNW2SbqihyVFVTche7wwsarBkqi5G26ou7Q6scJVyvDsu4vF1bC9sdynugpOoU21MyGOyXjyqdj
l2dw8y6eY+QqAgXnd69aXF44KbCECI9SS7kkPTRSKZbJlbhbe5TeIwxuOV/2f+OYwoFn7/Z+rs82
Cn7P/f1/Z/iFP9330/xQ/cD+62AejHOwfh89v9n8L8f8j//VD4Yfh/P9XQC/OAfh+3dt0wDIP3bT
bju3fYfd/t/1/2Qc9SP8FkxptY7f1nk7VEQABqJ3rGveP7mrzI0X/SWGppiPw5hAAgkGjTfkXTZd
Y6n/VIf7d59P/X4/4N4Yz5Wxkjw7rxf3Qh5ul/dyXu8UPn6er0l69eaJP/drWctKxRPGPktvEbyC
hTFAieQjPpd1pR/x66vY7+dPWO+/lDrkbO5WjgAZ/9c9+d+ffpetAmz7arxqvmV2na2i9IXQIiY8
QOu45cvfqJAIAaShRxcpCDeRHXNSF6dZu9V2ZePcFMu3xMR5alzneCIPRAie0q9fLjxrQbjqgHl2
mf9rDUXtvjg8Uq/DYHGPDjtb/PxXuzbtlECIB3Djcm/SICJNOIe/n6/GOA7y4avvy9nu7i4d+vx5
geFxt4tt7+xmR8V5ZhfkWWsireHX4nx89IeePHyktx45U7RsBlK8wAHweAkOWufh792fcP7+uX3N
8WAHj4ged+PRK9+hbyouMbckqKe/R48t0QB0GcqwoOnnr3eO+rpT4p4PXxXh7mPj54by5568OcaE
Y3UlXVGO+nXjtHsnbqlIcnt39zBETvDS2EO/nx7Yd4LBoJy6f+pdggyeY8kCJvuONWMOr62+AGUR
H8/iG/L5qPk9nt6K7o+XzlFyzBSMVGMa/oVqeZpI3sbqjZdaXiBgndfdjZfNTkPbqYGlzUOKEOkx
dDE4djhQHRRFAzZw7IWiHT1J1+a6t1sGcwvpfaOEIiCwSw4KUvb4VlmmGFg7jBgg7bvdTBNOrh2w
RJDkBFtLNlBxlK7gCcuBhLWbS2DriKcuNISq6V7eYgHN5ZW7apzINVlYzYuVVGGoX10EKEEVvrvU
1TVM89MsZk9TVYJWPAjWy7mNxdHloAbPEHDMCwhNkdELznog6I4kIbwG09FvFIm0i3Rbc+CPEgGF
lN5MZGnnI05LMVsGwtoQRrLllQSK44oS0y2cMQZIUG8cYNoXlcZOM7xqAOUrwuU6ChfcOgOwAUOh
XyBfUDyPmQoAffmWJ9x8SeryTydA9l4QOpTlIc4NpE3lDeADhI8rnvjqBG0ba5aRtpFsEPc5a656
oC2GmYwjOGgxrhltIOWC5Y2s4gc5G+WaZjDCzMEZLBnLAQQJusGvmvvDo4xstJDCCClKU9yp8wHW
TRSFKumJ02raAjCXH1EHL0wAtiOmuah1OqS5k+nmX5gCj4jsLiUpXkD2RewLVRG2o0BfMVsKYuWC
5aC2lMiC2wAlxEq64VqzOXahgNLM0kaWCLF1RYYwnYDsHqVOydvIPJ7C+pDEn0h4wBxk5Su0vOA4
SHKy1AG8B0QOcBS+lCGrVQBpFxiuqYRvBvECol87b66xJAt7w5ta6gFsMYFsWmGkwXxHbsFI/BCe
T9LkDQfRkKe8wOgOMGpBOJPK5XRIcY4xvrE5QnOUNt8KAdSvOROiHnHRqsejlgCOQGpbYrqJZzdR
iXL3nFJXIkU+NRUw4YitYq85N4d+jEdWQ84XjOQcpNtYdBKHRmAXPAei4w0m0ah5Sc7jIG8HGXnc
bUlLqQM3xXJdp5yh0SBvrjoecJHDF3lEOjnhkm8Byk1HKdsMBcsgK6I4TvOpDflnOUN5N5U1CPCN
odcMXLeeiOOYCHON5Hnti0iahPc+5fm+fMvZTkh7goDyB9wAfHcpbEBy+msY0wVtBWa6sSNMtnL5
fTR0RQ8LeUOiU5ylI92O2Ehy5xXVU/D6uO4NjQziqVSW0FUgqRt6BK+4uQ8zGIj/rWTlX/mKSSI1
/o/PWFq5FUh/qlOh2Puo1R+jlaVsv2TpDb/5wbExQRwyk0mTmc0+fciBuvDBomIgx+OTkgQNb6+T
SRzZJIPHuttq1PINGBFpW2jdmIVsDRZelVwWTSqQumErVklFP5vaL343JNyTqu92gX0bRNMTTNJM
WBIpmbole+Fd+V+SHLV6z0YYbJyRkXmOBl0hIVJJzjaQaIp5OXUMHDEZMUwbBgaedTfCA1HXFf/r
cLZX/e0L6FaiDGl2lYtuiRbtikNKcsJJ8KMcziQDWXvpy6Cu++DExooiM8tuBFvooFGBt1aYg3Fw
A/1rJQw3lsFhihAKGLtg+Gu+IFBt2+fDTMmtQopU/QT9HQNXEEYBxAPi7S16anCCMTgAVDBgVFIx
HIyBuawsuG3PO0UzZXigpHiAoMY/N56Zg0G0220mRLxShuRoaWe1e+vXVnAiHqOhntI0kwPWT9eJ
ZuH1vYR9/iOkFmKWT3kcRBAMAYhoTAEMBic9juuA968S9hkHKz1CwhTXJpQGsI61zC8G0FFZ2XVd
rlbXSCt9PZWooXivhQx9oUUJXdKRQeYJDVJNESQZmZeqdRAs0nIM+eosQ2EgEBgSwEkarfLG1osl
xc7UIUnCqFBkETdakADOAKcFCFhCEOcgibyrp59HDSGiAOzWJvHVvy1dBineJpC5huTubiuAFA9O
+IvSRMGKMKHdlMlS3OvQgaEC2sFDkSmiCluxMV10bE5rj18V88Fzw2WCQjpgmJdsBNEoVaiMGBQh
8wCJ4GeBykoDsIaHMGsLHI4MjQXgB+G+6D2x4p5wH317MA1hizMCY5cVkR3631L74xRRx37mdM5X
178PsdnaQtCRosFSqoWQg5Ry/P067d1CZNTQJJKUNILaKkQdRDTebscOExRtnRCDmhmQUKBIulLZ
LI55F3GEu5WU1wom/XfTIyDQNyUIOrCmGusWBrgrt0uAy0RCbWT2csdQcaxEOwlELRkFCEEIEgRg
hC9l17dm/St81mhzB5u8aOnn7AfJAmYu2nc6qcOJUwgYuUrhQ46vGvZF4VlDHBDSFGinMUMQEIHR
DEMwJGxRo1xZyYFPigKKD4DBmCSSIDEAZZEQXngt8oc3Ol3fN2t9EcfQ1/spwrrNhz3J2QZBICmk
khVrbFDi4IQzl2BLSEDsCfuWymGaQEHYEZwOwMtgkRZAALcYMHS9dB/v5G9aB0zHoXU5PohrBZEC
0Fd2FZRAJnuvnu48cvSDenbNicLZYVgqBBUKgghuUAcEICXrbFLuhHC0JBAAm/lWD4AxQoORu9qO
SEVAQ7XyZaImIYrW0aGhaF9LQ0KjYvZc/8uq/qANqaZdNyhxuVqpZQSo2aURmASdpsGRGGLh6hOy
cvMgmHvBcXtDQA5guAmg0qElOJdU+CkFWRr4pgN1Rmg9c9uPfLZus+OV54PASAA4QJBGhw41Ey/B
LAeBKAB8fgb6roA1oWBkHrrrzYsVNsmgCECXvVDOMTNIg+gdoClL+B97eVpdf5d5OseLxWMM+EgB
VMasBoA/KDXQmd67UifTilDfHrnXPE/ISn3ETPXDi8djc/I959AfnvnvpejecqIqhASmHixslUh+
JXyleZxstmm3cDjimPXLIqda2MYuC1BDaVG3vmjKOCfBbjvlJe/XAahmhX7/GqwJx588h2vhqmFx
dzmycoxVYPmvi6Fo9aOgqBYTkVDoA9PPr1e/SAb70clHgBjvO01GJAAVH7AyBcXjAWVawGXvli8Q
64vtVnBIOzt9MSEr5oFeAFpCjQRNsO1M9MSg0cGOY2lWle9HFvf3vXo+siII6wUTJMMgQu3J+SHi
oeJwIVp087rdXxVb3zVHKQNo5TAM0LeF7DQYuTS01yVg0J7b0LgUDQ6LhCJCymCyVGJAVAk8SRAQ
JZc5AHhPVNdWFxMYSOCL6UduQhNSz6o0D5p49dMzYBCb167HddAHQGxk7hBk4HzrsxluXx5nzov4
Q8dgjmQTy9m8AxIQC1gA5brGJWmQ/AvdWkv/kKLfG0XTvXF4/3D/X/GZ732M+fANUJHwhj4c+sT0
GkxAUM0CJaeMsHTwda2hpobGwoWpQbSfy9YIv3YO9x2Gg1x0XaIfBFlmempu8gPDMx7FXMjfhBDY
a7HjQzI5IeGYQh8j93GmJbAYtgx5ztwc8wCOi+EJCmL72dYW0xjN1NBOT87iLiIKNDQziPzRphoQ
55hJpwdlV1ba7o5DR1rtKLb1yXvhofJPuPIavPkrnJjyEE9RIb3QAcEqFVenZvh2m1Axa0XdThaY
lpnA+BFmMJsygx3NKpp85QTOMyA2QsEmmDwyb2PNxwgSGDNwJhuSP6uIwK+Lx4PbaJDZ8zFXf2OC
JpmDUK+gffucMMm96hyIAYSezaTfDP6IE5TrM+QC1FqrYLo9z1D8hrzShDQ6Se6B0l0rF2j9ZqfT
9v6kEhiNlGXBbEKNUv24bzSgSRKGYhNMTdEEpXE1gDvDuQyIBDJgrAkWwkVQ7I38aMYRoEXLZ96g
WERwOjpPOdAJunqYGcmWagZDphJhsaY2mDAMKYQfS/aJZ75YkLutruEIF30IP0olBubRtPIpxP2J
q977rqOrnB4mh67v1zz4xADm5/KJtAWv4I6b4Q5ateFA5TSAZrz+CabynGoeLwZzkeWegxUUCoWF
4l7Au7vTSQmJZw4ZOHDYMapl/YMVleP2oP03WtcsnDMmLAM0BNjF25NuIjRgppdk1zWutwME0eWL
oZwwxnbFwwCgYul6Q8eYcJGuShLBMOEilGwCoJpEA2wNRjsyAuJDfZLnYaqMsjTY5cz+TRMfgQim
wwBBkDQDudYumQ0F2nqdVdrYOe9ju5znv31tF05NtGLsOtd9byv6CTV1xieR3egHt8bvmiAROgSB
AJUllZBIUQ6JQ8C7Mmrh160duDaB1KBhHpnCQA8fwmrFfFQoAiBYqhKI042ISEnRx83Lr5+o6Vft
HpWvbjdL4+VmpCteV2+D71lbGutZRxGTaHFKxkQpvVszMhfXEharTle3kZRc2veAsvj/Wlo6sBRt
qvnlXKu2+nba9CMvhxKbnq99mWuE2y1Iwpml2lOWLzq6dmpKSmcoSxrsJ8tc6xzgUyzmE+T1L4n4
J9N6vmsY1M9jxNZluJQV1IzXEFdJc7rOFraQfIbjlpV+ZTz81tpLMaO1scBZ/NE+XmMwH1w17Fa8
tnwMrcnyiFhDuDxw6LmfCGoazWgQ0bRWHNFNWjesIfsctZVLYbi6AQi0zfHLGfh1nrppmzttDk2h
hYuxmnzvQGdZKtNMNel1N80Znda20pvnMuWr1IXpyjLfOhktTF21uNJCC7LxG0VVZWa9JSfOQag1
MYH5ciEbUJy0pOaBYXpDaHLZTpH0CNbal12vVtzfiDtJaOxDTrWtBi9nzwz8iFjZmWGmZcpUy2sK
YGwnPge3N3iAs/3BRxFPr6SQI9Ph149fR+4GO/uLngnH4HE6joDmDozmnH2QDpAOh5A7OnLzPl9o
Hlid+lPrePy8vnzHiPKnljzbDy70QTux1lbVeYOoHnNQ+J5A423Pw5jydviTl8PZynpfKejQ467k
+U/q1DR7KGiLCBUJ/D4f14YOzyHuseUicsPL2B3cF6zl9mB7EfV2DNp4hw7fd6B1eV09h2+UHlQQ
hs9XLa3ouftqy5Mv0ry2t/a8kuszPza/WcumIMa0w6YqYHE44vYwFy9NdNA3tlMGwxrGLjqVEZAT
PHWgZYUJykFA6PRSqaoBhB1wYrZU+0ChyUoRaEVpF9B6DdhO/fkADSB6xhV+YdAg+RpRBpUTIeKc
UwTlCoAU87kavHIRbGO1T+SOsUQgSPBDlE1dAw8HXRAiNTwqOG+ZdFtG9vJylOaSnCGq4wcY6JTo
nmSVkbw8ZMt5oTC4XDXPoOOW1w+XtkqygOblDF00o0XIbTppG2HLRU1RpmmlGhtTL4s6Yrawehgz
WqBB4dyXazYtDdi0o29htEhgAEwJApFjIh7yQyJKlMMIRJyUOESWbiTALjp2RaiIIBI5SaiINkch
AGKLjX47CDySqMWmo7CBL0sLbqDnCwi0NIaC5BLm7WGWun1qLhzIuXyw5YCDRMchdUVTVO/RMA//
Fbh4VxGA4Ajz0VnC+bYsjXDBtIZGCxfB8IrJz29OFuDODg5yw4TZqN6Q+cUxacurvlzFu/MGklmA
3g5JhkYTYLQdKOUuExAxS4xVZ1W6E43Ld6nYNKqWkPGuqItzSW8B5Mnl0eTtS2veDQ/FWSzHOa75
pzjQqOcjSLoUQYvI3iQs2bRerUw90dnkCTu8fODkXMUVUy3HfnMrg2Ik3fIZco08SDVkh9vIdkhB
GWK2lMsZrQRhO0RaOS1lZFEY4cS95gVuS90L2p0Q5BqlNBRUm3I5oy5mL1LHFPAo6bUh5i5MxBfR
e1Ap5lDJnVE8GcNWK4r0yKlnS2SafgDUPTIE+PHpAID9/yZvJk6/bm6AgQRRM6oRqhUaFQ2WIILK
4hA7htARYj8li5tpqLwy+XoP6PxX/ZuHO3gHiktYkVFlgzvDgUQdZGdYYRr2sK+Lb+vPQZbtr1dD
Iwica37sukfWw0V7uUo2F+NcCQHk3sXy9IUMJ6QxB0QKRygmOKBiqfZlyb9Xo1Se7rw32wKCVlw4
sErNLwqeXf/uwDBOLNzkLo0CNGsok0tcG5YL3WuduFROPIV4EJ/GjmkDmJ57GzXq2+Gztv3VM9uU
FsCfNxI5fMiDGAm0LHlbEe4VV606pBoYBQslsnMO9wx6biHL7LNhY8bwd9RvejncRbpzR+LC0oyN
B4z3/PaOAOPPErZ+cBVdRpNjYv7pyXRBmsFwfxtVQgniAiFYFAXAC685Fw2/UGGEUeuBnADfENya
ikAlXHs/Iw1zXrxm8/DaIZXtszEwIguagb6VKgLAROUiDk6Q5Sg+NiGBX57zjfTCcDj+EVxUgNoC
1EvADcctuIuoXw9xk3R42UN2KaX9q2D56dgD5PPOPSfUHYTpgFp1IhsQLbADvx4xc+2qaDQwUJdi
As5c047cLZJfR9HB3k64XkK787RA0AfQI3bw8zyCkL6Z0BbafHWlQIq6UlDCiERpIgt7iPDNtLRb
ChUJeqGL0yAsFgRiGRcJJkLZd8Vbth566J6Ui8aROa0w3in7YqawemG7h0zGl6ekopHWrLDoSBG2
e955kasYnkgOAJUIu01aCjTcM1n5aZDKSrLXXRvCQ1zzzqstq9QHcRxAGWN97j8NwE3GmtlVVWJL
ggEjYo8gIup7tJFvhpfEBmyrrVKIFOZw45cyx55+Ew8NwwaFuSMBBNAqlJ2kM4MIaCzCP3e3Dwjf
ZDli7+fK6YHlpcS6VpcH0rjSDo4LjemgD0vXN6GuRzQsCkh1LB1pJAiFtYxdek2hYgjYvGxeLtjF
wyGHfwznQjz7jD8sldhWIfcfEj4Rp6Qn1Ym7UMOyGHDbhDI8UzBpHEKxOWFLheW4hB4ARDFW7gWB
iZyGYEi56gbmbqXV53yvvz+He/x1t+NlR1a5nxvfpvYLNLIAAIG24waGZ4LaEUNIKEwT9ky2qlQ9
6VNez8fkyhLWhJpB2SyB01emgRm2Iuumti9BQohCUrYWcEeQJqm149ZftDphTBbISRIXVFIoD2ql
0RW0eeOKLG2hh3DapXRBcsmuCerve64aPT4RLNTqRI4aIthzSerXjrKQw2wvz9QAZEEyJkCKGhXV
goAcHMASYzxrLprsMaRcxW7vbd2L1anLwQJXUSWUiv7kDhfR/fcaQRAmPiOAHX27OO52VLwxU55u
b42SSRHKN4DM6TCDbAINfX5u5FhGpQDizhZmsxqHqEwimCZ+PGKJILq1OQLfhsQcdEzx3u054SQ4
DHmC5CWjm+eOXh0v8v2K+01j6pJsUKbcfFFMdSh7GIGBogxl6kSNED1zHz4Hc9eSkLpeQny6IHRe
jVhaaS+kR4GNqvdwaK1ECSH5iq2ldB1Aui3GRmmU0uXYLkCqJTBu7zrqsAKKZSmuHYJmGEHgXGAa
HofAzbF1RVBicRlKihi+V3hA91EC4dhItBkSQSDNBZtCgRPAqjny0AAQcGB8TsQJWjjDwEWdWvB7
IrgNPxc5wE8VaMMrD72lZw4hsG3PBqyy200xosOffwq5veMx8NcJHAD61YW0DbHziFVONkX0aMqD
YFsb4pKaoToKYODSVPhloP/gowhCEKQcc9uCl4E14YWOaYDVcOOdpsz54cNKzbTak36x5u2nEbM8
b2cI1dWM2fSSwzWF3kK1LzsqmIzfJIg1cWzR6zhnDldNWhZsK+MrzOLQKufULx58lUOPr+e1Ziym
hdVy75UwL3qfUec9Q773S0H2g+mX2zecI3DPIrnEcYm1hDGaWvWFI1xMQyYVdNZvo+dLUzFmw0sC
FsjJzK5msTiIxeznwYRy8PpWGWhPL55c8ThbOXWD3QXDYnl8XhWZlxBXZpTM8VaxGM2W18PK3zJ7
i+9FWzRjmlHgxscusH4zeEVfXEZYe8NS9XFcXrmdn0FM2DQvWkYisavxaOJXleNjjGa1pSTq0hB8
5xlTLoxBtHFn0rCsKSle1Ji+ZSpGEGxeYpHIZnm8J1lemKPW8pNWosLyxeDlalbmLnUrSMDReHaW
rFW0zatp5q0bXfmt62vPknmlQjxLjLkge7Cvkgpr4esQ35GqkAt21bcN1rLf2gjFuABue3DwYebV
whl2gsImqzLez9k01U6AbaAHQuII3xyF/PS20nxwQGXBIvVoDdwEX9Tz4zvEjPDuhj7682k2XIuq
EomkbGvhStCKGePHN+2rNJBxU5ZZ68fTM52HDEUhdHsEo1PNB2DPVcI5pW1DzQdmGFsZXMAfBbho
LXgiSKHH/xbgEhpOlvOdP6i6aB4x3thUDwG8TJiPLtZAaG8w/kzCZRcKgYG93shIJSpHQpamsJ7w
xV7qgIiIj0DcuB2yM68ao9hDjWa8V7YgSFAD6PlgUAAQIlE1qoFSMtSdI4s4Pe3RpcWpiO9LLLX9
4TGN9b6m78WMACRBAMCT2ebFBMuKQKAMUQlCQJSYEJGfp9lkHsdOzCTcprp4g5d4TJMW2JhEZiHV
zIkhvbAgMXEWwU/WAORYkZqgMJrRg8780UgPPHV3znSRXxSQAF4gMASiYIgAUkrTfAOCipFdrvmR
EQF6a/IC8IZwTWDdXZxb8HDJTgWx4uK13gUZa6CRZDVSoEalf4TKMeuD4FwGahZYNmx7IX+kDXpu
Ied/P8C1jDQe6Dq17wRRnv5m7KKSPQqHApEe295abAnjVU/m8dNHy+MAtpXxKYeX7MeiVVmRUiQK
NrF70ROk4Mji0lSE9Ob2tPNVzpkQMK103V9ZZ5cU5oECjZ8AeSFkAPIx4ciNZdigYosJIBLmjD+A
Gv44qkBU/mEGGyhyZE0JzajeRdkXwS8BzRA4RJbRwaGIPCAgWA5wFQsMNdMQ2N7PnN7F3Rgm+WKM
DYzmiCGM7aSNA+Bip5xrbSPj1DTFw/kzwMaVCvwjxO4mePPz5R5aMfLXMKYq6vVGzQ8302ATdLuA
FC54hms7iINUwA/c7fl0A0nJVkCaaUAw8IKu5SYC6iBAe6Lub0SWyqasAorazIJAgkEkixAflQNp
1hUPCSNkCbqxAuQsdphnINM6sNb21cgEcKBMgBUKTKPXx0tjptHlfLo8bUM1FhCBrKWkKUs2NJWB
lwOGgANjFlllXtBHyw0wdwI54r53NPZud5E2MHOKqckPFuXIs8PtxNSJvM1a/WkmASCP8zNDCOot
uZzcZkIAgOHYCp6hx+OGmpmDTvbULbfzffNA5ATBP8QwqOxy5CYfjO5pqFhvKA8TKAH19z1y0dIg
sEXMurEoDAGDFgNQTYQPR9hbJwMbLe0cRpmtymBww9XphPlooNe7QZ46lZtX4rIk9t7PxENhYQR9
/aYObxdOmAsjtxo4TXFwgzbSZQy46Znu1lXyiwl4l9dcjPbfWsNmavDJmOKT10lDTilHuneGn82J
NFuSXBbYIH9qy57IAciD86hAO4paGciJnz7TURIAwbsSDG85DxL808oAmBz8JuD1QBaTjAByQBYU
4EkQYIZ/F1D8QqjkDiABkavDBGAKQKYZSPPb0ewwjF1pI2LuP5+vCzRvtjeQeKu+6oBtswgvNHG7
9PPBO9pdr2cSO23wUKXQMs0PBcalLPVMwi+j0S580QoHjYLUB4FtHvEOKcOBpTMH68563yLBtMMM
FvlwFE61wMAz4TsN71nt7+PPTabQt8RQ8RFMFbPV2wvFuU3vIJRCTFRfRcLJrPpmz0oQE3InZQJ4
VBKXM6Z1vbQ6z0lfalI0hrSvZn2ctVsrq2MHrIfbtHVOBnxZ57njRWWimLMcQmwcnqxumP0l0SyL
Ggu54Kq9fOgsG+NtsbPiarnXBV1quXW8CbgC/3luCxIBzgMfkcAbgDRlGFifss3C2Hyo2O0NXFKQ
6Xh/lODkaLcYaZhoRAZ/PcCwrkGP3IUGqORA8ESn00xhMMnxLEyhPA7U9KXDv6eaOWg0esPAcxdH
mK+yurHDnf6T55c+MZFu+N0A1QI9eohvVADkEQ1wECMo9kz106vDxkgEjGVBIoEBQK9UAyaFJmRC
EoHQXJiRplREFE6kUKQHIKgeU3uuSl7v4aAy7Fo04e+HEZa6RgXJOoZnNqLPmLftmAOwTX8hxM+8
6+mYHfT2WosILfj6QAeCE02rMgJPA+trcBIFH9IwmNdp0oolcfc3G0IzUK4FHE8cxihzlIQbpnCS
YUUPk7OkuH3rpKtrlQQM+FCYwAJpnYAtlKAzIwiOPLv16IkpAwIoApqA5UiUG0sxSqB6DEkN8Q4p
YYcgEk0IUUAJSYtWSKs31dO2VZbJUIMEXRgQtR4XaAyxYw3FFfr9C77480cVyUl4GtlohoXfGYq4
CGpSZQWIrouejg2SiBTivNwcEFn6sI1gwQDJLSfvtLR4o6UN5ayaWilzPri1pe0P28soEHbTwFvZ
EnesaNo7k+LzbanMM0YBkG47V3u4yEP4f2T+AOhLQEEzDREA74gO3DdN8nXjSjtxmfTfnz6aTtGY
ZYrO5nDs+gheJw0Q/YVlo7FruprTIz0bFr6nd+q3xo/OzSJfIeXzFdMb5a9BDW43jkP0MrW1kprR
t8QprACz5rh+2zEZ1OaVvDWKtMwffGsI4er3t4D6efmPH2+aC297MNPQJt22324JrxCcPBEHKUYP
amJJSBqMd1HVdwJ6SgLul1vUWvPTBhXtcncYtDTuc6k9NRD7jjf7JDIBrfcu0G/FmGJso3k2yCXB
k1bU0UQhee1LVqJPfCMbNdTTTGYUnvO+b2u3KEhY56AGbSw7XAlAQoaVgdBd+p8fJXMgVQpVSSSp
VVPzVWBXkRy1rTlvsX7ywp8U5jaNccuVIU4vSPRER4lOAM2Ljimr6vqXLq6V4Kg8axfCHSvb8BoB
zQQQOQd4SGZdK2c9tdddraQ3baUJ3lAvvV94qeTj05yGdF0tTlmblea64lWWmkc+vso5BPsCgiOn
rhPIdwYEB8vv84YY8x2dvf14HdpxX4JrDoTzYPYK+7actDz+CIMe6Q59e9J/P359Br1RCBew94eY
UD4sr01AlwO7VR7/MnIPJjyYvG6PQcZrTvTz5+nJO4Gg3HmwGztPjb2GLjT3Hvn38/JvTsgT5AQ8
Np+IQd3xAOTUnat3d+dcIPHw2rNm5TuXrBjQ9KhcG8d/yANIq0I1wzlhGpIp1GwOWY2wrrKKZbbW
mcs5kE8OxaGg/V5Il9X3QQc6iniqE6HB1Au+cIcmn77S9lT2HsMgd+2BKihnAMoAeiCG6XghmmaU
im3OpqrVz3sTN9iH97UVgLh1PfHmM0pWJq3kzHHe7zgkk1GRRGWgII0ucSDItws1EbpUiauIMlkc
IRCkUOO9O9UizIyUkLpUlcGbhoLVF3SymiYRcNyxx2cyZlOXctQfCBBAJEQhjhcLKjVh82mpgTqp
HgoQ0kJW6BLFjCFyoIy0xMlqLDC5s3fNXJat48nl6HL7Cjk2UYhEC1sqA5ctBviF1zIZmhMCwPCk
H77BBYgDrL5u9xSnkp7u0HV0HXddmZpyNBfAs26ua1087bhG3V2KcZVXsiKSSd3KTgAXahrM4EdK
y9WxsSBJF9w8TmpSVinQ8zPMvj4mkwRdpRRl8rHWnDGGJsjYqasZsYFmZw1rtoyFnKHKrAQVRd3Z
9qWqjhx3ey4lC5fBMDgJt4jWcuteddQ148NBcwZgQ+5lMIuoGyLNicVC6IMZFXAMyjpyQa0JZYh3
hxNK62bObEWpxY73qyZlxS3UJxVoqpsbk3UpQHnSwSqN5IcQVpfLXC+WDaXKdAxTu4QBVKKeqqRB
LckPMybs4Heht1I02CagXNTVw/578fn1/H+H2TRrk9WmMPdvzACh+tRg7Kd1TVnvI3airpQTVmHC
uMNX0WfA4tX0X6NoJm9Ek2SiGsIDHYBk/D8K6h6ug3BCyMpiEQn3rJ/cDiaTGKKHhrvWDAvpZMAG
vJ7Tn8N5Rc5uOxvrqbD7L0XMioZQndBZ5vOxWkRrQwhZqgrFaQsQynYswHYUgu7AqrwPs9A4AC/u
XyPgIbePbHy2qBnmdsNuXj4cRkhjlWMCQLVKgXDZ9QmaT7PxcgQ0xZfbEjaEFlQ3+dgkpnitXPci
gqphEM0bWBz+OA4F5OXU6OSn1CE1iB5HyPUyvMAYVg+uQPrRAD7fiV5LQeL7dCQCwPv2dVymJiYs
FGJFiEVWCENAgUikkqQCJDGkSmAicEQSAAalMb5X9HHkJyVaBDcxHsNLkJSpIQxUkQL6R2IL7Eif
Iy8ICjODUjSlPpX6cFDvUDSFLjYQCIKSBswevTdv36aGTA2UOoVLMiSLIJKpElCtA0FDQUghEqtI
g00whIRK/hjgoQLKhKkCyktRAECSDJKSSEspJBCQBCMKsEISwESylQhFELJAwQQQswwyEEMzISBF
MEkpBQEjJLCzBAExBJDKzMySkjBRJUQwbWCrDMwF9cGJBBUg/5IDIDUsBEkayVVRDAQEhKFNmZIb
9fZ3ezXBPBxcO1v5t90TIceMMqLkCEIjpihaacuZi5kM21NR7kaA3QYnp2wFgCLGxkAc6rgTY44G
jh2GDSsmwDpSB1kgubx551yUAXyixhNzgXJGrIEd42knGFE0ICRCrhhxBz0KfmXywKUYsGKHdFeG
b9H4mWMYMNifKYvHMBn3V51lrmznutFXm7CetNXdyANpaNpaUgdFfC/iB5j4W0058ILYVTkgIpBJ
RriG2lHCAc5+j5BJJFyrGwXQwia6JS0sigAYZBmAB/0DgGdCdfTTVlzmpvCQCSJLW0udGpaSIIEW
KoQMczJTarhfbJoa7Lc17K1IgkMigpurjJ4ayBICsX8LOsRQClAenkiBIRtFUqUJ8fcBz31g5EsQ
HC0BAwy56D85YeNu0e21u/G8pPWDuHVtM0o+1LE9/Go1KbTRVwEOGaxiLvfCKgFdo64cBt4SN6+h
SFigSTvOtJe69NPWGhp2G/SoXA4U1wKgv2w1fBSxpsZfTHEbudwL11SQn0AB0viKtvOQK68nnM+v
NY2AtJCA+logqPFK4i9oBgCgBQCIDwgL8s6muhhDXGmkxMtq+YfX3QCFtJ2+mfthQgOk+8bBJnbE
nSewIUowVUCgsslhPzS2RkAO6716OKRss5UtVW1Sawivam9C5t8nhsAf2/4iB2G7GoWw4B2wpqnx
4sN0tMuEPnx5Ro9LmZGkwjxrp2PZsJWkiI316jF5sskw+GQl3MhIRwdtZxygFFphgBSmrXMsctma
dugaskzyM4F94rnW6tmSIJ3p+PAphxtQVqu+iw7qTLzFgD77/dGAYeg4ZEAgRRARQFxQK06NKru5
3RaWIDqdqmNgzpsL8FsOIkx/blhTVsXvcESzRwrNVDnrrvnYwHus138pRN9GpetVcqzV4pYfOdfT
sBeup1EebwwgyQyLggIuRMNH2o1X6VLHaFDkvgQqXsCKC+Nx90XVVV+httmgaCz0ufptNNdNm4Ba
29s7TvgaO6LO5h8occa7esGNJh2FWLRHIa3F5fU5OCCkwZAFWFOnn4FUQ1dAYUeCvAFiS7zf0+Xj
oNszfIIUKuJJ7777mgPImI72xUASfAAVcOQpHSSTqiUBRJBRWAF5YPTZ4xMFxB/yY8mG8sGAYQhp
Audy5AFgt7xfLtCkSBYpZ6zIcqkh5QRmt6qXWo5ANDgUaWtpcy2Y6DXAxN1axyZwbZ5Omta6WNC+
GVbVKXmWWDI1G2pzIxvLlMrdwJHJZsbfGGyYgyXFgCTstHiKoGJqOQZHGZhLYIveAUQIw2WpBFIB
ERtNnWZ59JSRLvVK2krw2H0sA6IBcBBj48gSOSXsCDfMoT5fIZmYwBYeer7EJRAB0O5vSGu8hB1F
YBS0FWrsb1pdJCRCf+hqACLxgyJqm2I0uMbNOaJC9nuFaw1vOCIIm5sQte+DkaqoKDR2GAcHyw5s
5drTlpFd2dtejtoXWUoPzBBfZ3PXR5nsb9ZjVMt+jlGSimo3xCjhhVx4Oe5lvqxx8ptlbF4EzEPm
WMd8e9ERlB5qH4RoSTgoyHZhPLqpG1Yohpr9SX9Hz8dxUg2UQr0Xps86Hof09ZYMWsWvWLDgIefl
4E5yBmAGWApAvjjh8oQiyDXCtYQVLmIep4g/D8fXk2gIeRgdZerFEp3YqY2DA357duOO6ayG0xlj
TpvBAKRQADW+XK9z9gftoHiJCOHEWDOq4QR4cCTugQKiDm17BwAYWq6dXYpLCtfNGvvIti52s+XY
J5ClUvaO0dhV97s5E11UiCgkEhigm1CKsoNLlDJID+iwzCFoR3Nh1asKdAJDtTL1oktZnivnznxy
W5YYdEaOqA5kbgDfeX7IcJC6vDkRSRhQAoIw5IVWMbV/TWFSEtiEjS8El2UVlvJ7awsQTrF+mCF0
QWlIlBU3KMQKFxsqiAImQIEcrqHUgjIIExWp3xPTMLPudRVtBLTOlrTlrPfMWub2drL5X1YyO0yF
ITQoHqqQIeRY8d8rKlEM4e/SIyTqzBtsFGkUExG7DqsMXluBJYsAaGiS29Q4YSzWKMa0kSw5l7R1
jEgQGmdryCC6vVLDbIqBAJZ9HhHEMAqCrZlewlot8jkOIjJAiEs4KyOGr7QR4EBKWSOIUiQUR050
2s6ESgD8O3cETe9gwAMLCVp1V63zs51Yq59r66eS7Ydet3yq0pLSC5CORBm9uNhuCLFHlx5TM9pe
MoGXnzW2iwmJPzEtkyWgqlCjLiujetE3M00abYgYRZdViC+OULA2iPoifPfesTbB4y+yOhQTD6vv
WAgAVacGuOGscEgkFNdOGc6Wrgjqka4VrKGMEZDiIR0SgcdC7XWQmHCZMAohDTQFMwntiDCaJpqs
U1jmIfgkpIYZ2jxkYp3lE5cW12ZNd1fb4JrPgXMKtUDtSu3Hx+B8QPqSi5BIYHu5mBZjmzJaDOAY
YBsYCPyL2XiHeroH5oWAJd2iQB+Bgbk/K7FsOhse5jqNAPX5pehDwu/FhqqX7ZnBgfj6vLOBUR1r
xUVrWIAtw1qbYEcECmXSDnG2uROL6XlHWT4JYhL1ntV8VrJw0NqrUl6yIk1nVld08PvqrGD4y4Az
qwZZ+ecl8OnYHXy7gsajEfb7uJUADkCk56O7usO6970ZrD5YcT5z9oL2ZlHIfL5AzIsIa4BSPyVU
l5evI68tunosIt5+cute7m+FnxiwvK72r5PNLOFovlR9GvWFIW7YdDJgz/sOv6/gEHw9YY4tXQ6c
uNIuajQO6vjOYfs03TjKcDSfHKPLMaw5D1QuhO9NSrYGXXuPx49R1AdXamqnQV3ZmvjV4ewnrrTk
4lTWp4xiznWdTlKyjF4cYo1a4nPR0VWMM6ZaGlr2xWgtmZXP6+/+PuU/rTmg58zraza2PPXMJ6bu
jFX8flChqeWMWClfAC2Hku5z6Oe7SerptOsabSC0ppjt+Pk0KTj9bctNIuQamo4dXnrfBXw7v1QU
U35O5xlz23dyyr3cYo7ii1cQ1Zv0Ltm43z0c6HKV86s5152w9RXMiJZddoaq+MrxeFAT7DeGIwrL
KvnfYzx2frLeemLa5fvDO5otFnqZD9WJPqs561yQ/JjO4pC6BHbSosxmQYQk0IVPZ6CO3y4704G0
0+GVfLc081x6DquYzsAV1c1AYHmKU4tSJ2qbDsdOvw/MdoV1Hx1GO/j8EDnDyQJ5X82Gn4JDcco+
AwA53b4ep1adQMLHFstzBg4eLn4jjrU1mwfP5t3L6A5E4Up7tDs28w7uAd3g8l3p5XoxDv2vVkb8
enhwKWGsPL6U7c8uw8+tewyuOM9HV5NPRzW9HVx93mE8x4K+beK8p3nmUDShmniB6BvDYeoTgJ6p
Lz+CIh6/AswsvHo+mzMfRYbRnpyYM3AfYaC85KjNVzKuoiyPQt1ZfYo54d0W02cyPcjaYPhxJjJ3
2wIWd0PZE9QnYfIDENNMSIfX4781z47Id7uMPRWq+pTyMSuIpTC2Xjiq6rASHu5HZLy6Ke2OTh00
XOqChgHUd8O+qm20FEPynFoFadN4mlIMIMGNEOHNk0mpIQSURGp44k/MRhGErUujWzfJpgCID8zm
1t5lkkPyA7uLiYQchUUTM8fBwIYcLM+XsPM5dNVWM4YgoHDJraioicfmwwznHwzNc4OVJszkPYzA
Uzj/tOOCeun09TsQ92onk3F3Sm4uEqrrDlUNeqCAla5ea0J4FA3JQxUWEbMAjZGtJrNjaGMBcEgZ
bzOVewDsVg2boRtY+LaGvWC1amJk5WZURB14daIEEQ5zRmXd4TJpgdupcmDW1onK2nmpfae82DGC
NGHYgDcNrEVU3kCZ14hbW9CKp95A3j3wJ4SlwH4EIvZTmzAjlzubLmBrmw4kg7IxOgbmaMm9MKY2
XqDlghzkzL2tZF9fLp7g5JnctAlOIyHwPu5D1EnLEXeCXt6fazQndZSYPIxzZTYSTlnUrvZ11pMK
025dQHLyEIU7/a6soFAgBMUVCAoNdVKHBqQYAcOV2AlbBCHfivFE14ea5rS72CU4X6PsH4h+RoiG
YkPhVMgfXR6LeoJLelwl4MymMTdimIiJYW5lii9DcLpZhdDUi8QLqt4vkezupnFazaUri0rcsTX8
r3MUBiIsrKGBA5kB0hpzoXOieSkgOdK+aCwCNATipBAtRZqCOWqfMOsSzDlUdJWuVpQw6nCMgI29
iNYqGGRlEM8pHqWEAQzNg+PxFCafrh0T+7xdEhl40aPIlEfQswQChjjPafnnaWbFAsNYwegeUBhe
boGgSoi075LSWHgagOmaGDPvuuW0kEjwh/LxD6FlTjzIblOPlxy+4rfR97xgR39JdRfx72vL95ZS
+LmUYNC2XyC/GaZATbTh0BqNChKDUoMlN4KWvAQNodIBTLiDmx8QlevGtGHjBOtdqo5NPgrV2db4
lHNwICFZOd7022xOwK3QMAY2FMLNIzx7/EzSYtxCnAQoN0QZwavhULvNnOkVRCZBwZEQbsHzUOGH
LLemL4wG1nCZL3HWTjaNn5K4Mc6xXVxRiKLRCuXWjDV1SGjlnsmlTEC0dRDipA1XFy47cNUzE37B
aNtCh8dN0A9ePXf3dMCNBAQqU2kaQ3fy4i8eg6op3tmAAV4gtHBqKwlquujt6T0vPu0w7R2Rh2q/
BBAa22PEcvGhUoDejIli48t2gWsa1cBF8hJ0GIFmMthJSIwilkaDSOijVAf0AYSN6DFm3FHpOyi1
EDhmT6B4Skt3hUFJhADgCI044HDOmMBYaw7gQSZgcvPN1rYXICxfLkj66EgCVieI3xYaXoSCRqoF
5Jl+szNhEMogALC+iaBES/MiqyRKJHM2CZeFQgTWqLztvs5wjtE3wozrCwIOXrXeLQ2jjb2Cc0Ra
T3mNqnPIPib25Hh/YBIq689PHKImemgxmLoO0WKRBAYEbkCTi5XuUkOkwhy8Y4TGJvPDVR/Tjaos
4BNcLiXKlboy2ST5RwXToX05O2B9PG3KptrqwQuDIdeMPlESKGwvbWybGiIkczCk3UKVAAmFcQKE
CIA6R5cTkgzObtBlhMpcKFHCqDINQYfB6wIXbbRXI51NNqbb42vUgi9XLsX3V/bG84kqqSIHAXT5
gOAzdZA1O92zHa3K7K7Gu45QbBkqzqgDJubnhAR1nt/NF/d2XKoFwKICI6yMVNOIYjakRHwtHrbg
6SSApq5XMF45eLFBnfgcbUCx/eI0BwdPgvCyfxHJAHjxmfMtffyqxSwQLm4ZdT6wesw+NGiAyWkd
fjxAMCPCYbaRoN9oREOHKTNQXM5BGz71fnDi9Hoj0Ai7NYs+KJKqAXdLisUcblGMREWe94S2YQ1m
Pk5pUsseTtqvZ8YYw/jezRWvGZcZRE+Y20rAjXrXiri9nKFaC1c4sAC7Lpk5MYjF/iMxlaGXAF0h
I3RAlqylJ8F5iLD7Kug7ROAsGkIZ+VjEtZxhX3z5kdlqyx43x93gose3aiGgCPxn1McvfUs5Ahx8
x8faAquIBYttAas1ZLMa5qiaHZy1DFSCiSm8AbbvOQ4uRyRIEmpPOjQESgiAo1YYO2VeQNKlaC+1
9to7vrnGHPVzOalDQNh1pbXFrKPZk5jt4AConKtTs7dRoYKtMZXgs5A7pRL+VNUkL07cZQEojmM3
OFquDWPyNMPSAbJQDoaJ/OSWJAJpIfS+tywOr6Ia3P34d68ZodpxhAVl2GnCxe/raj1eAZZYUJht
zQN83bx26IgmE16ijUHNYxQDkry9SBVws5wDZpEOQXLNAMmhFtcvTDtXO5z1jry1eTuugTZ1nOwA
NVu55dWDb8/pjk/g1uAiIiZqym8ZG0BdTyVp+9mmy9wtq/Wer4ezl4Qg+C0Rt3Qh3ZF85Um7aucF
J9A/2dIMHZuc4o7KiaGayseS7ODt6JJEVubgg1nGIcqjB4aOfUgQQ3dqPPdgQLBnth42JjfQ8uw8
imoFhM/MICEATYOWTOsHAV7qs8mKgLKWX+96NYnyOvLWG5tw+jB8dO1uUKnWwtKKIF+YHtv5A6Qm
tHLLkmwfBUAZgzlz5cMERPv9UtywrZuceHmQp1mQyJqQ7vSm8cgzwcY4NAz8pbf6wAOz+LCj5OuM
NixYpvmkoX84yILERhHTD5yq2i0s8VGtuOW8EnZQCaDNNtrCT5SDAzPPGNLayiDr0QYaNRfxEn4C
kEJRsXcxBIHGCeflrjWkyRF304iHwt0dz3q+gH05dMbIN6YHAADhzVQS5RyOFc90RB0MQYGQfFmf
cQcueJ7a8qMBqBRR225GkzJVAuH72iQZKpAJQPltJxakA6qrYvrsaVtOKSIXuwI77xvJAplPnV2s
BeOWnAIpDiJboznOOhHG+7IJlKzjhwSM1hQXk/uggjaq7Q1w62yiTWaeaLvjbup9Y4tRsVpn0vT3
uTxnaPFs/8+Z9+g+VAfV8DAgQ5OPo1Gu5xbuPDjpMQl1infPh8KK+wZ3k50pr3mpn2hidaNiWZ5p
aUjCpg6FbWN3o/EJmt5LKUSrsh931xfLrGtlrR0r1h34vOtbm5dnRaX0m5y2xaUqNo+thDMIUa8v
MenxTvCJeOk71vpeDQbRl4c7aKu12ULDaInZmhGRjAcOdZ7Nm7OXiD52dbLNO2L1EUw2o+QNWvto
uivrTRESTz5BH6RgXypjFXyhmz9EAs7aOW+YjPe/0OdIcsPuLNSm2YainwDtsO2tFTZ0BXwGk8Rg
7Mq0w+9s8RtGvt9QOX2q82l8MU6231dua8os3EYi44hOt+K/fawP25d3IPkVnmw223ydl5GW/cOV
OpK0aorKNIuiHcpOhaJpC2RzjO14M8Is+vhx9kEIcqNpTc7abxm+HDZjWA0WLqnanEZQ4u2KcTut
8CVXY0vmGA/D7EBRhytVTToOw1QD4p6hJV8d2HcB6xlc08uXtUrs6vL0HMGroPKia/VMO+bBPNd8
55z038TrHyocRj13Rz9PNycnZu6xTE5fMl3fxdXmNvl2jxEtvNN8aV9ug7vlpXhOT78nonyQAc58
+gCPtnz9QBQAEJAOAo6q+GZLf2+XwdwEiogE0zJAcaDwo7t7Dvl6hJgAckHL399gK9u6CDv9TJfj
p6rA9fg+AZb4izyzjOUAvCeLcUpbMqyUcJD0rq/y4ORL0Qwh0OGbQsgmcTkgi8gT1UBM3QLooSWA
RJCHXNCpiLYaolMU731d08w1VPNVSedzRuBziyquJtzytM8cocJKNSXZsLwgAiVV48wtduGCaxOx
NGyzpM75rvhNoOKEaE0Qt5DNBi0LNOJcHgnnBmXfNqp4Rhu7vZk4ASRLgtjYeUGYBnBy1vHowlpN
wJdRPJdThocLlGkEDyJidp4NnDUrFTyaI4YZ2IEOP+TlVIdG+nmZ6JnmnJCk4enjHMtWIOajqBhi
4BmuVgoC5k3UsEDYmAodKseCHqKIRijGsWYXlS4D4qvQpxtFjSHpKtUlxJKjcMqYzJTqHO7ubG3o
nZ10RdrJWZFh5My7rFmREze0cgND1MypvKulOPQ19GYYSUPOQ8Pq0VxMKudPEHykTErJNzK25c0Q
OC3bLCiQ+B8W3phYX2K4K5iN8K3iVcrIYUMhbx9mOVpieS27lg1VbKxw6cmcUvJraUw81NQbNvRi
tWq0ZzMpxE6Zeq2n2pqLp62ZvcazuXFVtGoFYlWbUp3Xv6fX9PnX6fXbGTRTEaLWMgX2nhRF71+2
pQdmEXnExNtjGMXer1z0eSI9/0+UeBoGwtmqK0lKJdfypK/BaJZNRUiBpoB8sZCWXBg7VVVWZFmQ
WPSOmE/QOFiQAR+qCLUQ5BS3lbnq+Br+cdg5g3VT28YRB3C7zG5rXEMoF4wsXA9zxucHBuhMG5UT
xsHyvdQE3AzMuSTfxDuWa3YHKCZm/t4vPCCawxRIHNUGVm5zsLEuAJpIBheQY/WUHxESgabXOGit
5PlAC6WH4DsiIQ++VeSEgAkw0ygNvo+HssXO2e6Q1wEE6IA80OlVtaiIqBgxTDvDZw0/WKh4C0hm
ID+XZmAAAedzz9z9x5uny6NT8D6+I76wfzrH91Xc/HmnuvPuCAcSOECdrXSLPYVs8ug1C7+M1zEg
ocebNVrU82BjBk7MPreEEDLqEA/XzAc56nnIHIokFMAV2+Ad/G+XNKs9dFQQD6AEpJhF7O2lmOut
jGVdFlbHDwKWdpKFq1C1wlZPlFTmxTIBKDLg1lF3pad9oSBNCi6zjwSJI5QFMO5+ZQwWGr2lmv6X
RcMfRgh5YCkgPPS8/Mh6ZrFpzF/Gu1kAxNMH5nq7kQ5aVk7VtKOfIBdqWcuaUENIzlK1t1Va2PlX
bXNKaLO0O3dTDP5TZmWq+fWidIEYiHSsXR5wGCI4Ly+B+AWzwMFMGaXn6ngaQJBYYAyTAeuIUpOY
E0RJnZYM6gAGDrtN6Cs0REyLbqHYvFBo5GkLS1zs22IVEBIC4FniUYvftk5gJ0lkhTV7Igzs8JpG
95wkI5jwziIhYgGcFe4iyuSipiuz8SmQUlrGmHTJWy2jcyXXE6YM3lpyfDZ0eMjaNjSbv7GdFDIi
3mQgEkDIk1VSGHqzrP0DjQrFNmGKhPXHobwZwbyeINOCQXQC36zqPN+9pHzQkIc11hB+G1klCSIu
Z2c7RAmXMgVtSqUWesUSLoa1LMAGJDo0jmusglFnNylE0Ewi0Q64T5IgliEEe0Q1jQwIFoAYubjZ
tql4mKS5bVjtK2Fcd94xN7SpwBp8Zv8/oB9OqB3Wy9Rzz1GhA6GHEXQMUgPyayRsKJfaczGO8Sxn
LhOJ+JyeCMTBKODBTABLB1xFsEMGh3/BYe8/N0w80zDxYtfM4O5Xjm9YlGS1eubYBvQRmhxPW1rR
DEYGNUe8JmWmF8qYLjYIa01Fbygh1602cBpCR7Ook6yEEeQIlIB7k0OuZ1+YeJok6PV3FLws6shv
rpmFra8Yqe4CDQ54oKnCwu/fw4f9UqKZM91581OC4vm9pYKw0MHMatVMuLphE3RGT+KpkIty9wz3
QagOvvbcfP2B3Y09fPJAccmhAYbvlUAPxbZIFsQzkjp1F92FCAXhBDEMOGYP0E7woIININwXa1o9
6JKz6ozgaqBlEAIfe7IHWi9w0wryI87SGYZjEu0D8KusdJO2i+uDTXV7lpBzzs83odtBa6MOktUB
LikKHw6LY5rFF0AoR+AMmmeTlsVGCfSXngoKSzAHyli2uSxjFZDz77oPi/g/J4ugPd67VBmzf9tp
v3oIyDnz3svEBEEDXUJA5lRnQiCKxqSyCuZMAGXzhD0EEHLVal4g2WXWwdgC02fpGEUjJ/IiJnk8
n1nhfPwDOdbRCCpGShKPOWzw6rpTUCDl+ZgsaGkTPMksrPMN4hmvXHuw4apewj2PWgUgMJgDFNod
/PEw4oJbtbTpCBDygqZE9k7Rx2w5niGiatwPybL/VB2c167mHkfkxQlyOKcMjyhIE8bwrrGEUpo4
MHF0Zba51w00yH+nyV2K2rvJoxcIc/v7YAfgRy2wYszbBxQkE2ZtVhFylsgOASx+QlDGRmbDwjQJ
UnZAi/oITa3lcUwHEYJIHJHz+m8HXafvNHM51ccVNjdR+kTabvtvz9PFMxr6ev0q9wCs76euk1ZB
x4LCO48sqoYjorrOBBTxFYaw0paswQUnOeqveCQDprra4dPWGKSj00rWl56Os+sZHZhzd9AnWGYv
I2nspIgUVlHKKEJ3rxDgsO9QhTb3eXSc5TiNbZAVC7RcsRAMIyXmGLkCAIG5zkSN5q3C0KIZjVqi
+Ixmcm4khffXN7uDZbIXYYjK/Hvx779/jxxrjW9WsiuJcxNSBLS0owkQDh2NHhiCY0vycA8prz3u
cuqIIleO5AAAAYQ5S45cbtHLjjMDM7YpS0Jxb70D0UADg3WGszROJUM2igLoGJ5Sj5iASLYLWs1a
eqodg4ihk60IbjjtOjp6jDdyfMXWHTm1o9XCJn3A3pISn2FaRo1XOmVoLtnnKjtArOak546dX1o6
ovpkOfd2zTdrEu0uZVMtXc+2td3uZBbVbwFr4fZ9bs29Wg+etX2aqxpKGNI2DPds8UjV1NKV0Byu
hbyRPin21Ceo31NNxpTLhfC5224fJZOZsTparqvdZotsm8HYwcZfOEslbYzXjOi3cdHvk2kcLpl9
bS+lXHR4fPWsb4zlmWEC2ll9/jfZKxxY6z0Z+mdN6Oa1MtePcZ4tfYvxSPGmWZ1LrIaOxQZ73tei
ieAJzFWvbi+J6WIpt8H+AUj4bL9yOuvO96bTvy1dGOhfprElePv8U+cz8DmDxPibvIM+SPHPSqsh
8lmEpU+aPXPK6QoDTe066HVqFUxe2BLEntoqvxZrWL7CHlpg0rHTNlGLua1IZUYZ+ZUVWNWhJq5j
RZM845vnV88hej7+ztc/NgHt0Hvww1dAeBntV6Ae7yXHLI1G7TiC+JFPMURAPQVCHm+G1K8Ig7g+
wGsOz3y3QIO/gfDyCONp5y3h1HdyOmoHs5VHh6zx2DwDVZHnezYnL1JzH2+gHuHKF5+kAiJ3eNgO
wwBnbsPLwHvZM5592gmByiPWIFk5+Y8yNBv2LmK6NvHyiz4aXe0Iq+axjNnyULEpzUVEybh8nb0K
htEzEV70ybIRojCJIPEbcDruOmdXAtjbbYk2uGB5Y2Grstiu3gzont+onYzN7yRuDlrMJoDnBhvQ
nen3I5sgVYWsGY0SdrHLu8nZaarauETKdycL1T3DKHuuTloDCrjMkPAd4dShKV2VIaaWwtiNtaLN
kmgTDmFBYliiYlQ1AmZEQQsvYmzsIUVCBIKzkAm5K2BHDSCkOp5HFx7tRa5T8fhuhR6po0oEBlfW
a79cRp5rqcfoABqnlZdyebkDRtCHpDhmGh9nYy+GqCku/LrYiCscaatFa9G9c5qGHkKHueSjbkYp
4LMqo3aIdtmDOzfK19EgVpGklO4crmnVFTZaqoPyrWVjVPNMVx7T8yxJy9fVwCkXF2RD8zlJlmZW
qtAh5m7jOMbfjtXDG3zk5uxoqFCxGFIjNeE9DmNrHm5nOZggSRSjNMwCcneRuydm9RZ5cYduTBVo
UU9Uc5nODki35d8UUeUpdLhCvb5Vh4wiogMGDJ5rVPIx8mJfJiNqXQh8Exk1zG0U8QROzOUeA8gP
t6p1uPzlcXHy6h8lCAWyTvIkxERoHDzYqX4YnNIQT7rPUbsFvng1xJXH35VknEjpicjJuqdDHBhC
MUByDnxH0kjj+8RTPQwvHbMKiG1/K1XmFDu7dDq21qUxHXtJIMhIQkI8TepnhWTrEDCOo9QxY1EK
BhioqwVWFKxq5ZkIBaOD9PsEAfU/Nelb9KNTDopFKRPVqKZpsLcoB8NBy9m7zKoO+UCSKb/GGvjX
dgi4BDigBsP5IaZ/5LyV+4f3vQ6SA4mC8ZayuXjBdz5U8ZWwZ2/qIRa5PU3kfrVlhPRDh9CDf9l/
xh36hZAZkmaIj2oIWq7S8WEJIAoQGHlveAgCGtHYq8sKte3cBHXv77RQWjaPwPN5hPTRQNnLMuRB
aEM6DXxQBECXn3uqdc8mpbMG2fDPKtLLX6nrof2AAOBY5n2OuLzUOoTFBBLwbjHEnHTu9xAITkX0
9aCMH3Fy0j801PL+vceP0+fmwBg1NBHTJu7HSUAITJ8VSiS6MFMVAXdAQ2u65e6XK1IawmokKzq7
LRpMLGTCkdd9EsMqlgKZjAMHICKOXs2mYl0xRhHErQrbymLxhlkmvKk31i6UBUpguSwkfHm7uPmY
th0P9tgCGJYZLBBEMQjWKCk+wCN7lVIU4g+N2hjYR5WXbjlVqTpn4hET+4Z5Pc/O7PUA0uJB7UpA
VDuKypl1RAx+5iiPvgeVEgSpzg2DoCi8XBklwWYaMcCwJBHIAZhGVpzQXokiE1tMHRavIpMBkt4z
cJ1x9es62VU0Jnu5yEhyKA4omqBaPx4a68r0jNa3ZtY3aIhBKRi9EcIaw9awRIJaICzZyC+wHsBF
yB4A79ttM7F0tYPcObGfGm+VoTW2s6oEPQQWA0ldZg8s9u5CRjLDuNQIv1y3dRZwDGy1BiG5ykd5
qdhaYMQJE4NyVj0Axc2Wz7u39fI8P89O9u1vlUCt+VM5du+0nkLRYmHE8xFYCp1iw2aWVREvGiq7
UDa8LViAX7Yw5ABMe4SdhMJcDIQNMSpBSk4YtacIggaaHa83Q5WuHyq27r4pLcRjqDFO7jekVvj1
Hy0ECufVAmAUMgOwk4nEAn0mmKZPKucfcqCJyB8iHIqRXDEBsvpcbr4LrvG7DDgjBAkpw0lkYLp1
xSj6pONIILM67YCzlG8lCXlPFhwLrRUDroeOgOBr7ZgI9jBbDRQY5ffrwbEYRRoTXO9N94mbqSCl
M+ezgNI6ZsrLvtK6CuCGmSKY21VYqZLba9vkOf2fbbNmJou1uNXOnNnsYMNiYCmNiBpl6a+ceyd4
TQeXFISLDnWZmEUwKo4ToAjpomNGtWz3ANImKSRq6R8ujowOGMiiDpyyNISSJGk0hqEGVs6ElSQh
B4m4I2NYoIc7ZVuc1hurAEC9dMVdKElFt64P3GlJyTM6Mnje267BNp0xR2uKQlcvjpXUPfGDmn06
0zM7VBXYWYhSXlApFY7l89TYKNxAvBPcRo2WcwDkAJDOKnMbgWVEEEAhIAN0EYTR+NJ22Xvijs5p
OgyAGEUsX7eh+lXTIHPR+OXNB0MQf76yhirr9Lzg7C1vbT882D4EY1fNzxo14Ydo6n2lXVbQoN1g
+tbO2iyvW9538Bgrr68OPI+6egj8DxC7LNBE1UVfpPhkbqfRVBUK3vKLfFmw372a2qYkuliFiOij
lIG5Wki1zJXz8eK5tfXL7HjzVivDy4MaW8iYHmBYvvLb1RAzxA8VrLV8K5gaupC5Ey4hGMZxdL1j
EVrDK0demnIvjZAm1sjcaOhibWkKNF1pThPlxPEFn7+KFfsGca3v17Pj6H1xX7l0QA8LK3dFyVZJ
eTAF3S3IEERn1JAiA3Gng5yGeIaBQEkfix1sZ4kBA/CnvjyON09iB8eJnoya5XPuRV/da/XfMzmd
1IWLJCCpV171xm0qzGma68RzJcrbF6P8BIb+O201BfPWnDtBjYcTUPvVz8eKAQodIWYjYWIHDoMI
LAg3HgPD+bcOWJG/GcV5fFoGPw1OsIXM7DlSJQOApYspfmxOTS58/icum6t2/m016iBybnrowfnZ
ZHnmFl2E6IjIDLDolnwdJ5DTQQM8Tw2kwBvi+XYqIuvFyDnDEnMaaQk5MGw2tst2drsu2INHTEpx
0FRep2NpFBTZ96bWxW9LG7p4k1nZZawVdrVjIybIYytGj3PzG+Vyt7zPPC2fppFx00C0nlowfDL5
Ro736hdIvaO1YU3iZHSemdNrDXD6u1o8uxklnUlWHgJwtONLWq8PEZSXi9tTW0jZnPtqwvCM9aWj
R0b2rXKBAEHl9hW50rtu2jqWdqJa0fqtIOru4RhsHQp6rtZ0dyLPpe1AaWhPSk51vLLTqsOuMjLu
UZvVKAzzylp+Gktp6wvl0Z1fs2WFFe1Ze732NqiW8lg9qmNVNTarlrrgutWljgfTYIqaRpzGl666
rmEpNPKtBZ8+3n3E5VYccsYw3IKMtbOYu05PtrtJ8KvXD3PGCz3VkZK69oR4hQZj37OAa9Vs1JzW
jRjd+aA6Qw0OQrOVaCcZOiNbYFZM9fwzKGJ1BCzu5r7TzCMsUdvUl0oSikmTbxHugmO5Jp20QfHx
Cj37Dn5fb0GybddoAajKcS4nqANEHpz+c9h4+ghfzHREB4+adQG8d/SI0qHFO4DVNJeGmQjwQ5w3
QIO+kJqAPPpQJ4fin1y6vA8QOBIDtts9L5QbuyM40QKBGSCKX9vDcAL3J36+Pn4aKOTTLmt0hzUG
ajv0Yd1D46+Nx5y4irOir/DcHLcCIvggUo5AlJnIs1qCydthXQUzyIlMItM0kCSASHSZgQQC83Fx
ERvAep5Fud4XNlbtzYwJ44+HKNVt8dhJG3he5zK0VFY54kNjYqYsSJtOXype8nmCQTmB30gOk6h4
d3gnXQzcqJNrmxBVyU6dzQAaGKckRyXutBSnc5yXvLupHOBzp3m8YOa4pg8rJ3kvpjj80TyXdlnH
RaNeQS2Q8RsvIzhMiounwwYkLawkthETJUiNMA8OG4rIxYYqAoT28pxeuyJd5d4vQbpagsQltmDd
URqobJjBOAXYEUqYHVmCLt8eLF0EXu8Evpy1CxUFQgq1HNcg4ZrkKYzk7dowoilHHWGIE4Khhsa0
0adVUp1m5d1KJCV6XvSJEmKd45rQ7MdGHj80Vq5Lly9TEsaqBr7t1k04tU72BeTt1m1BnjQL4rvg
5CTy7hQQcg4BD6DXAcrg5EDnCCSoGYird1yIS5MtL04qUHG1ZOCLSSmtx3irVCoWULR0sW1IUQih
xIN1VaaobH04B0bit9bLo/T+X77BcZyu0yrpNEFwWLLZYVIEB5ErKAwVyY0mxWfS/x+4ajl+z9vT
XHr33CSIHZinw9xZyxLQxazAulj2I33PM/uBdqDWJISuXiEvgJuQQmLhFtVED7+OHOwCiFAFWMKd
vHxgg8Xe+D7oS/TqELgQSZHx72bGEC+0H8zoPmWOaV8e1JC8evucFs0E5pEA4Vkz04+J5Wfdk9Y6
jB21kxUxhqzr+dNq57s317THsEeBpOLX4R+Hwc4gQkAedmCFWTHxFQNpMDOKSLbTtwE9A4NqBgv5
mxImvfpAPnxcfAR8oz44CfztAXe9Rz7zrqMD5nrT69T4Fj0HHIn37bkG6rvxebgDXGuu+1JxCg35
K0gL4UyvNtTdRS6fbTORTdJmgoGdqt++oECHIsAUDKoW79auSICCJANdaRfe/de1s/Hr5mn85XhR
W+11f1vOvx7z61thH5umRhCHQqn2PgPnhASUL10mIETYe0YFbDRcenb49ih11nIx2LZjXLoCgkxc
EVDIgmd5vAgI6yREllUAwZ2DK8TwDjVzxs1RBEcyvHnq8IqODx7mCGgW0ZBAwbm73Zw1nOQpXSEq
zlIWAGt51nsRlc918e45qlV7qOeF5yLdeW9ubIIZyzLPmaGSEcjavRtxjbQgYbsZ60bXHjl7xOB7
o1L5QfjvgbBxBeIcgWh4888xTZzn588u2NsGuOeF1Q79/tGWIWNrKEkg1s6VmamJzqM6tEjiAUhD
9Dq+NLaPfJc8vLmqT1lB3LfXD4kVvWEYrClftAAUCVCV3lqv3EiY+GHRV+HJAfl27mvDh3admIo1
mO4a1ars57GYi+MCPap/Un8ZoFBH8Q9A8CbgjHGHZw9DX4IiBIL/Xn1gkL8PUTduwmGAD9Z893nY
hwM6Fpb8bNCuv26hnMBuvy48RviY9YLJtgwDCqjw5T5hACIIM6YisXcqODStfmGN9YUlqYGmzjST
rdWrx5051yhTz7ISYSZBjqU4lZ0rvLgCaNTQKd5LRjlEcznCuXLtT/U9CqlvgyD1KkHzIWXJeP2A
RX6ztt+EoYpbIRo3prr4c61FRvRtXrrd0DKDg7Fa24qpS8orNKmsETRABFA7Esl+NFL9oYlcTvow
dR/oOX38+qJWeorPaps8qHkB27smMIqOHIKSV4oyMIBdBVBQUE6VemeOS2ditovxGjRkleHwmeNN
zu/FsPPsVZC9OHH4UuIn1MNEeeuxLcueqyd5YkxGrTprOcqWvGlKaTdKRxWIgppos4jTWrMtsAge
wHSafXuiXkJ0ded2JPsixWNbbCWuN2mkSZ/PioA78B4ity+KJH9lx4lTu79Q3oZu6Zb0Uxve0HgO
zjJTSsDWQZ8PNY02fik58PjuzU1oa7bcN5Tyo2Q6U37S+H754/T4n8Kpavge5HySHZJQRhDiF8OG
+IuImqp3UsgPmRT1ALYODXE+o95JrtrCm1nbaOs6tQUmuTYuEdNGAacJZeXyB0cDGrjaNIck0nci
8nNYEBbaNUhjKuzSoFAlFbljlaK7S2lIw2YiWQ9rbCQVz9a1ai7Nqar2CIjhWDdBYb2Eh1hf47SI
lMEUQZ6Kj7VnOkEZhNIj4VQKN4b0kCMsYFz7qifv1z5Pjo2DPx9zIfxxwTPjyv7Q2VVjpE7CJzz+
L+Z9fKe5iQJ57Q2fLwr3I2fq7Zq1jMuGZrtEZdh+mLqdNeqvuNewzrF8boo3frpd6xi8yvuMBNh0
93IiAAAbWlhc96VzXRYUakBu/LPgXtLTSL9cTzzhiG7Wi6ofF94ZqNABS8pWnhzprONnNrJpVG4S
ja6SW1sY1ONYmC4bMqrouJqwvSbB4D9XZkfII6rpNLe1DiRa15Xipk9zM4ms6BmaNC16SjZr+Q+o
uiBCgR2ta74phsmD6bQjHcOi7ato003rYGtH7TL62zRpCixM6wCyzDfFnPjSqwL2dTTTNa0hmoTH
zzaY01jqdYBMFqQxeci4YEIVfKjzl8V1i6Fg1MSFi1r2jibsarWcbUvdqxZR5BEQ1AHTpjbh+fAW
3ttgb14fl+0nwdYfPt9Fi45qNXL0Ntlebtmd9ZSZ3RxlprF5k68nUfalpzlBnOiuOoCBDGF+r/og
tPFWub0hRLX1i03l7ldBzsk0000tR+uS0LuVr0jnD7E2hOmOQk9nOvo5+kNR4ogHp0+3d3R49tXQ
YSKfdwQee/gKu8BrqO/AknQa6H8ET28roF4C8xtYcb9fkJ8u63F2vmH38d9nVobTVx+ToMOnDc+f
yO8PMviKCd6eNNugevPoLIE5IOg8BQio4HwA8h5DZoeyeZj6VGwQpjHx7v6fvj9n5+erX9mO/FWw
+C8L3W3Dvmz6Bc5BvEhNGkRCrVsBbRqk/QKLIkAkpMSyIHSXQzhyjw0aHVzO5szmSNKVxwVydV68
7h5oDMzMeEo66OFxmnhgS9UqiC0jZuIEhVKjDWSXEXF3JsCXBSTrHWW6KNI4+VDiq2opmiZIJaau
g8F4iRTp0ZuXGymCnlVeUYeeZT5UCzrTzilzFU84ICkhjDAD/CZ66PXWPTTWTEAu97xgA8COk/Ne
hLYkKx+Fc0nVeXQ3kLkC7hnBOy0yLiOOq5rocIHBoSPENL6UuFcKOyXhGRasOrWqzlGTBl+O8y/C
aMwLLc4UWcS6t4gEXt8nXUxm3Ncai2crbm63GcGzxheKpSl+YbLnmB1D04gGrqyzuA/OOIZRd49b
taBRqYmRyb0mVs8fj8drO1shzr7cJxBBrkoJUKkS/Ayx92zFKBc2cndS3lTScYnFxfI5YzCLoARe
PozOU8U3MsK9kQBkVwuqrjKMO8XLum3gcq1e09U78gMABmOHUcbLF3qfku64KL7EJCNKFNcxF5Vz
wcjKFcHKh2KUJpBPE5CbqWqZw6bbdQ6aKQ0+hCV4NEkOvp+wo9kl57L094ahXHycdkLV0LxTXaoR
iAYqCA8AKhRWQjSCy6ViMGMOwlOGiAQX9dNV3QPiM6khik25LjJMKmzwhRNPlXeHIYzAl6wSTr9f
0pprD/IjJ/k/+bjNiZhPyX5FHgaRhvODgNQgxVBd7xf6XhloQBADv73HgmECzNcpyL7Tgg0gwkjv
j+93Iue/b/07ilrOlh4jRAQSmWtxppcUjETwTJURqINcqJypauaTjLV7hZ5u22WprexdWUQodz59
yBMYGa7O1BmG+vHxlQ59EOlsGRPymszJuYFRV5El1cWJymN73n1SsbcGg0jP0Iz4+Lpd6S2ORL7T
nAu915rnIpDVWvzxI9ZZtJXGODeN1xByUO5EqvnEPLEy5DDrnmpMx9ceBC/V6I3480zsGDERKvMm
S8JAJSc59ZbTETpQJQQBAKByA0bQ4Yrg3vHWTXqJq1CPpSsMNOO0EEKb9yD2uBERob52Ylzq7IpA
b9XNOEZlmxbZ83TxvicKzhl+w9FOLDVOIktbWQ1X6Dej0PH7Velp/KsfOT1YkBxRQZOfEfiBMiZP
r8RSt3oezz4rrljBiMLrPY/NySPPnfehUgmcMKrLXj9NoA2kxrleuevqh6Xu+K+54k4y21nSD3Z2
e07Yu6sFA+HnhK6QhjTaBddSXFUvb04wrMrLYEvVQviGqhQOqdFbeGqGwwGEqtRgahnoe3DYqep6
DsE3c+6UhFqA6+IO2PLKz8jRsgtLW44e85ysnDR7g2dlFfYAPZCCIXhpvxtyQPrnvPrnCKf3a9iv
G4vWTGYTnjMi/0za0uUPNAg2RdJb3O6ruLbSOjhIiBQNLR6wmrTML9W0XD3HOSnctN1ROTlVOmeN
IDRDDRz4kWayDmiShAYgUBtvbaIFUCI/aGD5ziBcpLjB+cOhEENJYcpE99vhJHkjftBnGT1ZCSWe
2+Y7OQHlynG63ivK7B74fQRQByETtxjm01tKUbmN4nb6aTdG+vFn4VyILIjLBxuVcLbqTu4vKkMX
RdQuZ7MOW7B4F1lZlwcN27wYIRaqT95uAZTGBOc/Ez563dQH3dd+HF0QP9QZBSm9H5hEke2B6WQB
d1Px6oRmEb4n7hmAivIvz669+LZbXTCBnzCcM/jW7qa2u/qogBC6Z4W+ghWUNNJ5Jc/auINqXYjH
QVJor40s57sStaM6eK/XtgAMgyar5ququblDdgyoftB/Pt6wxeRZOFgHcsQ5KbZcFsA8ikeLjLmD
i8zeIaUW0gusLgoofi03h+JUvWnSVUdypW8BAXOnR+kBy0cwOkhrtzxWIkIqTKFHLFvzE23vm64m
useL6jY6ZgYxlK/t2CoEo6A31Nm0e4OGihS6CiOsfeh5WXBcXCmTJQac1ZhTUc3baI+E8HOptynO
ymN3R5QAF3md5c4APu+7qnnSwZIS05DLxyXO1LPptmvIVjCrDEaSwhvBJyxs2uHyq4gq+sFksgLP
dHDris8/AogG9nPGm7X1ClDsqld1Fh8S4iAno6Woj5nLfJgYQ7oY0OOU1Dc0WDCKor7MKEb4ZoqG
tYOxSIvZ2hw0YAw3jVjF91W2b6m52jt6RvXX3bUevjPmfER3IH3Vy0GqQ+Hcuae1tCsWjmuXXhfX
XU7ScaTgtJypB/UfAbAek9Mc15D1HXzM/RRcFED39k4oeJj8dHYgCoi+F5KGBCDgTuTtEgPfhERj
8+fv6iPH5fockn7TuhAcEa5zm1TKifSW+N7+NG2PBA7qZ9SM7Q+Px873wR2rUW42DkGDLm7TYV0s
7eHHDtn120+fT31ARHoiAAAfpFBHkHVueIcAjeB4Sba7UjtGweeDGHF7OjdZz4nCZpOtRQ1rOkjX
D6Ba36XfHiolpixlkZz95IMuntWeJrtLUydoIRzCzWKBGxYHbELPvikKXnLSq0vmmZ1+u+Z41lOT
3QnrrR8tCtLnWOswwhLutmtctvGGaw3e98a0pvHSWk1002BEL3dOZcZPpOsszdtpKDpnTEs5ZdMY
aEsTskBfOZYaqq7L7QaYpJ7F2h9EV2us9FpL1HvoV8Vkr3e/B8KSa5Cno9k4q3gB3X8e5NaP7h4o
Evh8sTN8aSbG+8sZU6ar3De4OYaRWLDW8IVy/RshcwrJaa40zFZavnOL2FbWq9XuDr0e69M6PmZN
hVw4efsL+PYZtXDZo7TTRz8aU0XecpRpaYzBVnOqrOE1+SrU8p5i5b3hiNc4YYy0mfCMqvisn45G
96kK30fNTmfVvDtNnn7fdp099+fdPcGJzHVvXjH2bxXp6zq5fQXHiAlJogf7dpCqCn3Ijy8BCHiM
Pf7vGe5PHxZ47vpUd1ToNnaPF6FgE5+Er0cA12Du5/OK7R03B0mzsOTYefjNOHOEyCdqefm53d2b
9piodbjgHqzcdOgzqeW8P4/a90avy8vGPAQmlL1bxln4gh5XEkdtYUZPARzHjnQe+OSnTO8XAZQt
48RMQBM04eVLpRM9Glwxsm+Puh+cUS7wLQTyhTAMwZJymyCE8bERUQ8DLeNhZjnLT7sapt9WO0nF
r4C5GhW83CIJBsLJQHElkxu8hxW5FhAlyaokCYHBQ0FqYJWazLmUjhOkORmUpuYOly/C1Pu3MFs3
cw83lzMcqnvgTon/Bteo5BFGXfYp+g/UYR10TGCBWGOZGa166XNsWMAi+XLzyxBbAQLOFsObuXdp
OHArePILrlwnIreTA2XmA4yyntPM4ziVxyk8vheNxKYfYRvRIBmXhqzjxfLVDnLoSbhXah1WZzb0
LOQJyIB4CYwk5cqBT0QIJ5MauSzhxKytybORBy0+1zFI1QLaTOEl0iXt8OA44fVJ5jsy4HwmiowJ
LYqInBvAuCN2quLTzgtyA+haE3NfmaiTh5yjcnZk5SywDQjhfarH0UnqbObAgxsXQ3gF5XFOvvFF
h5lzGpERajQwp9uthbybFWKSzCGCHBuzD3w8DxosclEzTtMBAFMJIF42tUIV+mjMuLQw04w19Xl5
qmSWmpgeNc+I6sqoh4WMdhRigsIYDq1VNXUDh4Ev/VZ/T9+C88fHzwV0k7pBolLv3tVAl2e1oM5r
mjhHzk3bgLKpRlCtQzeIBs3lb/ey6BilFMGd83sXIEszQk3yvL7SePq5l+ItXIilwFCFB/f+8++7
oCwKOFmR2KDo/JFgWOeKCWfLunmohEgl9GQO2qV0dUpCM7awg6+lpilGjO1L6UetPmEwdc87HpvX
EL+lMw7SRPtwT6sSHh2kjDXE2TImKeRBbapSTjjQ18+Xu2ENpYb87BuacDX52ffZy/PCVAoayYKF
USIFSgwdA5jZttH6cJrQwns/WREZ7VLX8hqovoNWFmlCWkGjAMoKVcpRzsXe6e1pJKAJRNnVrcLm
0ZiatZArAOFpQxh6RGm00jtmIjIiAuVIFHRd6ZiMXW18DSZdmFYUirpeA8j+/5+/jX+vAC4XEQUA
sh49iK9RZt0KhDJAU+5WIXs0ll5GOgPrqX4Vkj5IA4fV8rdHYsZ8ol8GeErgwdcefjziNDQgRNyH
qqsT84COH5qonAZhYNF4myg7tpMPBR4BkzEFGxhzDAKrCDpF6MMmWvgBkNHC222Or12pt2akKaay
sFHsI4G/zMw759779H7aBSR7NkVZfmVUE58IT9S8zwPi5XLFlzUQIYZiIkoU33KgGws+XeeYJ85s
y1wkBvs+H8pNIpmkfPnJEnSvGDyXkS5u79t80mJkzmVQYvhwcCBZzcpLKCwmLYgTGKaSfRs7FsPt
Ztpu0negLbOtaVYLUtTNGhdRCzSFMKbQhJJFOVM6JixNvcFehDVWU5rGVz8TQIFuqBA4gAOVPFIm
iC3vfC8ex4sPzfPGM9/znqAKN9pmuvHrntRrFhG4PBHlJ/XTtk2mpo27735zdQ+BwHiDyEHLaeoQ
kG+IV49d4/nzt58gyuhOZuIg6pnbI3g9tLyx3FAngBfQbxk2+ivQIjI/iXBpAOPU/G7V2+ermLtQ
sD2PV1IFUlEnLmZyRMQP4R+fiuDmDgcRSBdeOR1Qm19Rf3AmODz8yldaWBDDxQtxEQ8Ng9zlb/2G
DLRpCavPUmhC89LaScOb8aaya5faOMawvalqw+IdOydvmmK7i0lcfXbxESWghyHVP2I6geSrQL2m
d1kWTKGxE0IZovbqgWkONYyL4TFstPWzpPhs5XOk7EhXc9JSkcRhK8aSjZwaZC6zWLuU9c9swD3u
zrpOsg1g59aLrJ1YPVVxHbLCkp6bQehrI8dkXsPK9UmbbXIcXW7eJcuQZI+XJD5IiIyHc+5jduvd
3ZR47GylBKjPnrihtFz3wkqDkYiM7DbHLnzbTNKUEdGtqttYph0zzlO6RR4kReWNnwbSNHq+8JYf
BoT2xkOgRRpYtjWcTQxyXR0lT6Vwx1pNpjrp3OuJjfZxgzju6BmadO6CCFFND3ctUp/TsbAsDJax
NpvmU5hKJc7YhprvTiXFA1xKsxvL1HO8IGt8Y0iKaTmb5hoY8WiwIfyc50ypDWoNajSCTvHLqmUM
0hSDEKc6PrGrLclqTG1cudR8yCz+WKQzjQrFlFrrrrF8mAyZIpneXReJiLQtP8OjWHER8JbF93A0
hmk7FRKr2GjLWeM0nXakmkj6utScA4pJ2bbPwZUlPJlbFrF6201nOFxjGZVNHvjekNoU0xae2K0l
MQxBnz2trRntMYzptCtYwc8taV2vlnRxXCDJFPEKoArPA1nDFNdcU0f3SE/FAFlC3A3jhhwX3sT9
XLIU0pJgeTnwq927YpiYka9u2w9ci8krOxeOK6csz3XXYWnW/Enc4/Wt32e2RppSNKw5ExrOqvCu
h8R8AyDa01atKHa913cNjCcBmLPpapjabGu4rKFjtN1H64dh+RWMWV0UdN203zzml5ReLadSK6Zj
hcaQW7y4qJWhIRlGxhaVY6yMmmxlC2kJ6TxrR8Xprpg2VYaZlW9oOdJ6nuh8W6bCL8BbbR3xrN2j
3a62npeN67c9gkrl+NOHqy8UbntrSMNquxHdbjmgRsQwkO1HM/K8Zti/JxuOHidsRU0s5Ier/gBH
wS2kgteMdcCcMLEZdkrU0lpXlI1M4MCS6tqQrK+73Rk+jsPdGvcIzsXT2vo1eNV0Bajldeq0tKny
8n+yADxHw2iNECW8AnMIKiHuO2v1mGT5jRwTK/Id8MlfTu5hXdyTcrv7A0DXjbxKNWoabBvB76i4
n0ACvHqiDnt7oOWY8a9ahLJ3Dz8ffIGevwFpjvlH4V76BIjw+ZCont5jI4nuBkIPSw8+EA9e729w
O3dccWQAfBPLmnlId/fhEGieuN+9PJB8hy49OXG7tIHtzMle5TNVdxUQTYiMd5jIkTHgTm/wx+Zz
Np8ODEsNYn0cLVxdMGIJLWUXdbXXViIQtE4ogVcdXy1HLrFHJu3txzbTmSLknl2AAgLnnKgS0J4f
hZqfYuMNXDGHmpc7VPJHKFuC+wIpY8Qhy+YpkNmvUXSHDwQmAxkziMizTGHYrkXHMapmUxyJMAua
nbWiY4JwVo5uiMqhGc4NIHBwaQU96i+7QfkHQuatzmiI2eTHEHYNoZTGiI2zbEPC5is3LoTyJgAn
bkK+Cs18njrRk85x84HqWk7Syd5KBhSUlBiTGnBVGhKQm3HDQgK3SqAq3IpZdRJ5zNtZmKderwY4
okXWB7y5qxonmgzaF5NzG7sHaRMEadhVQncM6kqAjHs8VS8lPuVRysQRlSkYQS207wbI5iuja2Je
Ty43WkzigVlXXIqZ4iUhF2ecTykbHIBBWjDG3QsyecE7IsLlch5dSIwuJhgZCR1yTm0J5uXeK4Q1
6GwtDqogxl6hJqKd449AzAVZKdcuI2pT3x3GbNLWZpFg3WVOUR1TfUIy3KJBRogT+ro5ZZi+363+
JqxYhBT8KicjYGEtpK1L9ASsKQgQzGMwwwBhEDC9JheiIRSie7jPVbH2GeWfFK4uL2THz5oRd8Nb
MvFA4pKFTYh26GVFPbM8Ky0zN6onSRnFHShJkQDt6sNrTpicbLYCdQSGC28p1aMqiYSRJRBZfrVB
o+mITpUSEQHklB6J7tK2OLTe7snVIoRjjL7s605NDPIjCCwJL47eFzQwABQgIEKJVRpuL0ux0fkx
E0FlUOG85OiHwRgSgBKDUoEUYzKVHG03PxJfnir4cXZ1M6EXjnWM9H0h8rp8p8sa7YGmdyg4Diil
uXDli8MkoQaUmnoEVRGClYTTU1XT6RJ3gsFm8FMyD/UQWEwQisQkSxntV70vbWEoUFwyCSKcCTxj
bDB8JPVxQ6UVYeZPbn1h9Fd9eELA7xBvXoynAHkgZtT4prHkYHYFmIFLr7+/KnLsFJeG2JhpDEvo
zAQu0XAIKFAwwrjUsXBa2Nc61Emdmk5OsNa66GZ0lcP1p4jy8U+o64hEa9BzsR0HI7yUR1MHPfEV
EsaBKoj5TyVwoQnxy1yVJBVt+WDS6UmYOKBCNlr04tFHhLc+eaiOYyAciglAis6mIOoJkgwfrPj4
oWOEYAOG3T/p3YjSAKB8SfEeZKfPnDHasMy4mDQWB+NXiKoIIwCSPnP0jndm3gbyvjS7OdKnTpyw
5dlUiWflcJr6hLDO0hV0eGgsL4d3hE/WfeWbi3zAKpbW3gLi7ObEuIsgLzFKIkgEEdNecLVWK0vd
6rd3R6VMXzugkEe+iA2lGswomZCTODEODmSJ26StpO4oZHCoAKHRxutMzQSgsHWaQMQS+8q39EvG
D9cTurKHsIz18wFdwfI/H5ER6+PXhMvhpgKCPf0IkWa6x3WpNsJJ094k+T5Yg0JASrHS0K1isav0
hGtUOb9nVPEogXE9OzYlpA8Z9UhPD22avffpRRnpdhV45fLTiNn+8B4oWBcqk3N3bYyXNKusNj6N
Bwztha4g9TaGlqTb38YiG8EHrTuraqrheELlBKiVHbx05yYwlNz3OnJUVVObVOQFOtt5kFuWmIsc
545gHX4v65HGHiFK0rpuIynZakKBd14+F5JLVnqvOhhsQ/EZRcE0H6/ODqfSV82/KFWAHsfK6+E3
0uwNsAt55NupNDaMMl9d6axlhwXOboMW02vQQjiL9mmtJaXrCRGFzXTNbvar+qapGYlcursSNSHn
Vy7ErFlBBTacnzzKl2pwk/pDRV18ZzvyhtkfB+MnyOxFKSOvHrqbzVUMqsGOMqnrjBEHVxosysBb
EvAcaawslGpSGvVb4j480vlWpuvlPXFvtZdx1Pryegeu1Ct0WPjz6aj2qD0Xf1HC2hzOW4TnjhQz
YW6f793q6sP2zqYjEMFWY0eYNC4w9hrdo5xOMy1oyfq7FZ/AAUETfNNL1jRrOusTaL9dXPzWFpiM
NtXXecZ2dBa2zKeNIxpPcDt8gJbQsNqudw5XsCzEq9we8cREEUpHqvvRgejdlGFt/4B/vJXP3T9/
fhfaL3YoL8XkZk5czmAhpyw1VhpWMhWL1kJPLpjMZbRAurNWdY0jh21Xv1iX2xLDrPnSL1MX0gvv
tF9Na0GfsLxZ2hjjeGT8ivdfUV1txhfpMNOF5LljhVHHD1EMsYxYaAcJKsXma5yReArOsILaNEEk
sYaE0xtjeFZEOvURlNurrTTScdXbrTBm6sBd2bVnHDRV0GbVy10u34vg4mgfZE9evvlAAAB8RvjT
lPpgriLubYD9FiIPjFqOgN6vjGKSvOUwa87s0eSz3dl/IYgMxozqR+13xrr2QEeT57wL1idp1+40
DTlLYcO0abXhKIltKLBW4xFqLPG7RvxV2Z21taN6LVjV+Ym3zaAuHR5BB6jI2zIrFy6UEMba3jIS
1oI0oN7Zrvu/OISEVWUYTjfe9A98xpODXWlw6Eb+wGw+aAD777cknxpu25bTOKQLHO0eW/E9BZz7
wlypS3IYz9dK2st8aUauV1V2aLKbnLnEt7e09djW9ha+LZjg1vrpFbVw0qWlenc+SWF4ZcH6ual2
j8gBvs3XWfznx3WHo2vrwwnjLU051XfnaLEBqQeuoQSg7fpynaymkSXudwHCZi/5vuelKT9ht1Ml
FdtLucazy5Ziej50a+H44xbZ0HUpGcol7tqYrwiJBsOk5VndcQuB3IR4+vrz5gDu307eG6BCIj05
pADB6b9BsI3lyh19E9a4TgdfC6i8fKYt4B44eB9fqBqng76iAuAfUJwJ5zvOfz4BzeJ2dg35zm8c
+dMe07+TQ7g6Rx5pxa8DaJ3Dx0X0HcnOhQdt9x39yu108/j5WFGnsOFUJyQKBt3Ecw6DtC3o6zu5
+VNQrxvq467ErzTXbVY/f/R+4+a/h9GOs9P3on6IKTiv/W3/4+q3P/OaCrOtP/F71K1EQFX/k5yX
Dov/vwDAOf4+8Ftd1dONf08M/VbzdhyZf8EtWvUMZ1lda4SRLt2Drv/I6O63o21/vM1+2cpP6Yof
xIf3FFSAG2AP1zj2fPVgPNE9261h/zjhD/kz+5gcJzzSAaAqfz7necUH44eHQfdItD0Hsgh9TmDU
Sph2ZNf3UUFGwbA0CUCHLBkPdopqRh6eH/a58/ze6yGGmYlgN8dRFw/3UbSYxbmyrQkNsnlr95Hl
w2WqZRLLoUa4WuYc3IBd6vZOfHPZBNdighH5MOPuua2RlcVb2bncC1CbaM8eLyHr8u1F6Ee+IeY4
H1VZtekXpIghxRELxRhAqIhUVwYIhyajdiTYGvfqh730/H245298xhiUOH95uV5oj88UNGC/nVAn
4oo3CQvLIvdGT80O4ZP8sKj+2QIc/vw0QA/H7sRFND9MD2InZiKAB+OCmagn1qgAajknF5XYNiCH
CZ/pVAA8/KqABwP1YgZ5Upy7PX/3f7SvulXryWokKl42NsqQQLv4q5DAOb6ypTsZbHinYFrnaC0v
9G+MKz1YvYiJFzHAVPo9+XIP+mgXIPQ0H0qB/8A4BtV9CyEE8jNkPntNEID9iPlumWEUO5+Hb8y5
aL+X4CFGOMIJAP1K5d/ci5DgKkJ+uf9XHZ+fJVgJeu/fo/8oSxlFuUxh2TGMbU83dSeqHlLie0tv
3V0esqyZHNmXvkcvo16RiIInhhGCZPOchPTmMPFy8/d8FB8Wj4s/DUVMX99xmuYq/mkaKYPIRiXE
lBt4sO3POE2ILox3njF0bRr5o6p2hPkremeWjGl7tDZf2wbO/EQr7h+Z1xC/aHXr1e6cdUOO+kK5
CVIc8NWugrlrOHwzodcxgfVKljsqp0KAXO5cqopEv0UP9Fvy4Z5QSIR4IYiO2qaKa9Gte029ZCm6
iWmAUwXTBctIc3HT1xDOHmjUDSq3zXALRYQ7olo7J6YraPuhHa6YeiNiAKXIeyD3pOEgNpZJlVSm
pTXh2M/kcTO2RnxcBxn0Y3QBI9nSzP7XBKEzU5JjHYEjwWX6Id+JeiO8RIhflxboeDBazBREuI5t
DDv9gSP6jPyl/RDt0Zkcl+7Pa9Qafox/LzCrfwcPsLJUCEAHyUB4KdwICnodfH5y8PeieGOWHVW6
fFWOwcuHfI+LpQHlV0HvRMjV72V/grMoIirxbj7twXQXzHSIk4LcLeTpFwfsrERCQAUaEDuKbkB5
LlA929Nvu+b75cBoQB5K9kRCUBwsx5qHnEFkXCOHuHeYkB4m6Sz3fdHLRTf7uJS9+yHLNtGIT38e
KXxUob33R2r24HySD1w9UG0+ue4Qm+wdns8DBtoMX04urZcERv1zza4YBtq2Rh8GfUwjFjF2ymI+
xoJc2zGraj776yxV05jFU3derk19uNq6q91zdlLW0jOchXyx5YpaLkRCUGhJBKoq4Parm9hCG6Oh
ASaFyokU56az3ijv2jmeCL7KDf41odqzwOsEsKpkxgTIHyCJBH8WAUCfo9HUhsavCAVGd7ezhYOd
CLxNgNg6LalijVZkgex65UBz6VV0lC0Ih+ENHJ9CgeSRxdsmb+tWue/WznR9L+ujkKkOeoEbHQyO
q7rzlr3fmseywpMc9IDkrxCmisFOoWX6fknjeOaiVsWvq/jU9ptmmL4jUZ6M9anlmu54GBw1Le78
ZIV2p4GYOoYjcIwj+SMjW35tYCguNlM1oQPMVFNtQ/gpcOVZqSbKkSnykFRlnfUCNfi33+jd/H2q
vsqHTOcQQM+kCmFptpB/vsFPcnL9maa5vxX4NLF8gJBnydVEb5iCuo/E8tBpqs7oWmk2fJ3Sh+mq
VJHDPRUNK51SOkHCD5pMqripUtVJiPpoyiGvYPnzCw5PucH53EfB/qeDaf2P76HkKv1I6bZZlRy0
S/DUSFwYKNgwbsqQn9G2kN4TC2WBKu/uj1S5j6wt/Xuc36OYAiAh1oJ+0H/2e98kdnssEW9M2BcH
ynYEEmwhlKQZ/sTYW0hEuIb5k+CHTK3FzcXyem2sYvRgHL3cEe/iBw2ycxFZF00HbVjA+B3zReua
9GFrUDWiHDG7yLy1bA/ucTvIHDSNOML8ziAVA5+rZpNs4d5ko7C+NkwhxQNq7uKnt4YIfkYe+Ige
kIevmIymlEu8INnHpI6fj3qumEaT+JA8Mqs+Ptl4b5/Lnwwuly0U2Ngzb2x7oao4QLx3wDhvM8b6
oAXhqImOwoyI6EJvRQJHaqoIUVAxAYZhdwxlouGlVCC5RxAY3xV3bA9JFt4PGNu4uqUKZX0nHg3S
G0Jthzwt2eNRD9IBwNHAw3JJ8KKdtHDqoQH78QP0dv+mlwzppN8M9qUQ2Hs55gB5sihNdlx8x+Q3
BH5CwcHDZM4mPYoinI4XIdsyJS9SqsiansQukmHdRFA/QjvKPIUoIcssrL+I3v10k1orxxxBSL+s
UgUEgREjfXRW8YKAasGliEH2UPMo8FB9yrlfJVLBljr6v83hSn5PtEuGYVq5tLbWLr+jt7rZ8dSG
Jz0fHVReBIdldNivG1jniXk30xhcIEIqff73HMrggeNl2E9gqf0p/ZbKWBIdag5ApIkjUAsQtwiW
z/Mv1PZYZJQSQt1uRIpcgKQkSO/zUC26hskecHB5EiCRqaFjL0n/0lu3kxq5OKh5+6k4/owjsJxz
6ItouIb9dGJ3gVQSeF1zlhMGxpFQ8cvFgJEBlJ5yk9B6xYNIocKkfvwGShHhovqBzf2DnPXoJCTJ
q3myCZAIsV2cOxs6tNDiciF5ym1HOJeIVFc+Jdk44eiO2IZwJHGdUZfNNJdY46ZTVR/LDHLyyZ9f
A03a6wOKVw35GBb94LrDJyzDeADbk3Evc/9yEE0gDGrwR9w8MFDBhIeQ1G2ni38+Vr/xhEGh4D/y
65h/jJA5YbeKi2Qf7ne1FSmIqf6Rf4/7v3XoUq8q5V7YgfCHVB6cdW/sKOtZ6Twy56LiZTKEYBpg
vozjwRWz8WaemkRw41bWlvRUU5NCg/RMgC0U2Fj6ZLZX31/s/znfM92FW6ByOiHL0eI4GHA/buIH
oPaDxOGSUUF8ViRF1YBrm1odUazFVQccZ+5QhT9OP0UfbIHDDeJwj+cCAfkRuGqYQ1VRdc4HAdJQ
VQNUFjGXYNiLaQNZhrrKS1GNI0uro6W9u0uOTt1zKyJovp0IaKaJMEf9KcH5g9lBdgzJS1sb6XDg
qFtiBsRaBUMA4OZD/ZLniF5CUcwS8U0M04uKEh/TXIFFM5djyRf+UAyg9MS0ZTDQgV+XMoIhNSp/
RUPdJcBi3/VTsm+AdpIhBfkIdpAUwnDaSxW+uWNauh0IVP98C0KJ/TC/8sHGJ/yxT4NZhDawNE9q
N5EPFIOoU7pIvo9UFAU0s0sRkaHHTmNNHOcvcdOS5k5cOnQgZhgIR4SqakeZB3iD/Eh7hwM48cCW
B/Ah6tYGnQO02u5Ag0YM0UENAH1gcQjH/wMmns7YdKmlMEWyZpplCTONIBsGKGjWwZBucAoUMSKb
QiOBGou3KhQswrOsoqnqoiOwJSG95D5key0JyAXrJoA9dyPIVd3AH/wohP2pU+6++RE4ybkg9UBy
hOuQIqeUpQGvGEPIPIUgIQ7HIDesr2QKVNpAeqAEOMIG8i73XBsSG8EnshKFKCkSUipYhWioooqi
qqCKqIGCCWIIiWZmKiCKqBpYmoKGmKwUiFIJnGTDP0n4+mOXaD5wYPVnQAchMSBwEIF5CHkvACRD
lC50YO9MBqQ5lNkG3XrQhwgMkOQSjvB0Tz54akDctswReMAjp4bP3M5I+sIdgPm53Ui/WIMZ13oG
9yBRa9C7T5/V9nJ+HVt8lE8fi+h+XaaKGMyga5J3DEWJEpTIpQxhH4ppSgKNEEEqARIAZfUfZ/X/
192r+795uIVauhP5HWRT2qFRk2ZWfFL+4MYwRjBaJk36VWTfYE+NsbKVRDUUQtQQgXpNY5Lr8Db8
v6K3Z2DIo1QyS/0Z4n/1rFTdvFcyBRvSGAbqRCHoReNYCD0UQDKUoG5OuCglDF7iyh4M6DxHKsH1
BRpmVRqsQAiB0HOA1sFvRJlHQYFIz7gFXoZQdDqWEhRFjHocZzPAi29jncIEa2MiIIjVtLpYW8Wf
JxGQvhlnuo6ENAP+SC+EEiUOMKKzubL5jSdoCLtmc4AgCvu8Gz8IOCNgQJTQmaPr5j9fbpjI7AOg
P85kluaz/P4fgxNiJp++VF9QUKOG0Re0o86/0Zjej6uAuUADxYl7AkoRDU71xnE0SkbPVrqlRQ2w
1v5BxiK+m0cg2tEKJDgecAziGWNapwgAGBq2J2xNIOqii7JfXqxyigG/lwbHWDyimhxOhYjwvfk1
RU8+aKK1orC0/SiFcoOlTSMGWdyDGorlrNMJSkSCSWDBvNIIexD+0dpy8/Ccd9sDDExsB/4Rf92m
hhcALfXT5o88Q6VQgHvJsij4QX3EA9PnEqfQfr/53p1ImpENH/GRQ/y+hE+kHQKlGo+8Vv+wgjL6
lfe9kvn/P6DRei4cOGVaLLhbGYRYb1ZeFuJtK7+jtKoZQTC/+CCb0VLj2RirYx8EluqYBYIUSYNi
YWQUCF7w2b0sA2ECQYa4LE0gtHBlqoANMCILFRAd0qYUQTFWmOAbBaQrtYxBcVHPDIb3yVihjhmx
xTMwC2SRINC4o4EkxJaZp3YsNCaIFMAhUmykMhpd7ceR1ejYNnA+lxOSUA9KIoskQooRhEWJxcKg
tKxW6YNDClFV1EkDSNUBeHGLRprWiw0haAtXMAXmCIAfOqgfrxF+OB/AgPuYPROiXRJSURmBZWPA
+r2DiGlI/vuj3wU4AvEC/pk/KwMMt/Thx3T/cBHM/5qW+01f5gf6D9QJ/IA9RgEsWDgXoireBrTY
f6RB1nFg++RjJOAhe6uBqof+RhxbLZWUkA/9RP4F0E0NZhQxSJac0OPBOSZihk54gOoXYGgrCDTh
dyxIkCEo2ipIga82gX+ooFxBbNH12RDZyUZo0akMnkBZsjqQ4bz/H/s2cEgDknJNqYqjHacc4z5S
GiPDUK6srSBcOREOTqMQnHO49nPn1a9yXWy4EE3kO8Ickgeb3jDCmsoKKDJ/B13bA9KNuSb1NgRD
lgcvEfK+0cgE+SYGFelD8fW/WXw+P3e1M4Wt2VLJaOMs/zvWPLnusXwszRUtRLV9NlFUSRPvgem1
FqpkNKKfTVKIvzpxa/5ft5DzBCiMuLkov+RCn9mn58jRB5aP7HFMh5QwXW2Duwnce5hcz+RTp5PP
99VxwaOBDSGOO5qnDEElufK8kCIMidkFAm4/eABDU56vYFFDMgrzVRFB/yWV9pggp+7EL2/Jd0B7
hkXw/vg2ZdT3A+p9iwKOQ8mIxXgV+tp/Z+S17m+YSmipxrsKHQMOYtDWBggcyaSRzKuKEiUN9AWg
MmJhEkLPU+lKff9QB4EKa4oj+Agh+uQRwkEWQAkhUA5/fVVVERREU0xFSHXYUVKVFVEBpReECkg0
yj31OZ7oT4JWx+Tk/ou/zhUGQZF88vPTBkf+YKag4aN4aGhoaD7w2BflNzvhpVPrD8fpPl0mS/SA
8bRLm6wUQwr8NG6f/yW5OcMf1i+VfW+4kMMEh3T3++XmFI76KkRvsRKtkJREixcvT6qlNp4UH8R+
Ps5w/Z1AHucdeZGxT6iyfZNjN+/E7P8HH5x1YDihHleeEsFQtNJetppGENNDEwShRSNE1CPA2Hue
IKFuvOZrMeBz97p5dNs9YXMqk1wkftsIr6BcEE7ON+r6YTizTSMgZXI7b8LG620msVS+GA/4A0T/
alOo4NxtwhExwc14su1KrbaLOwZiNtSRiPO87d2xtvWHFBfoByTkSvARiqC9WZA7xGB+6GGfEvo0
kAkLZ1723X4+oiA1tL1HsSGEVLIR1GNAAUozJoRdCA9rVwPxej314/IbQI1GyjQ0CFLtsKrpzvmf
fRKJ6fl/MBf0h8fq+c+v9vzfQGQfn9pwT9gypomiiigIqqmooZpiiJmZIoolCgpIamvnOPM0B1UB
R8gmDSmGoJ+ren2gxCXHDvufWB9oH18WJIBrjoC1zp6dyOGuTWZ7wNglWd5EK62zxP+tnLPyKK9c
5sQdiYg8FCghsNQZBoLf3S35RXExHFcL/RYK6gvwHgbB4KTQIWBc9unLkOOJyAeb1Q8gZnr4y139
xiW5vRn7Jp89eqJyc1f4Ny49CUAbD6sSw/qrEcPcSi28kPkjqN+s0PtanANFtC5CEk/fxhf0wie0
vAeto+iVun5+piigKJ4E5E0dHjULChhc7SHA+g/X44V9hrxVjZss+Bz5mM2eoO675sR9Pjzyc8vt
Di+gmI7v68zLMrLKytGsabbFf4s7mNtbVawQRayzrEaNocVG2SObXNtkOAS+s4G3jpR3GBxoGwbj
aceSkCf8L4BgR3BmP+wfvgMD+PMQbgaesQNCAUJPShC/MUrQrVImBfQXMIaOrL5dmRuWuk4vxwqq
Kf2//BbJ/Rh/7kOubB3QJCkoA9H7K29S9iuKf/H/y0LuZyhHji51/oct16IhGen4h3Z+P6x4NxyS
SOerKKJCDIQgQhD7zcR+jcjY2xjlL3KGqX63A/AsIOvyGs898gVXCAthwmUEpjIkMsawAW7lYDGJ
kfqmL90UMOIDYnlNaSCHCBXuekv8+CI9LlHxBzSuqVJbCJhLENFQgMBPWKhWMV+nSpUkYK5vzwSs
kdw/kGSQozHR+VUj7MPomIOEahDOr8GfkpplJFGee3F6SDv4tp1UU/D6j4hq/hEaG2EZRafKXOQb
txYhvWi/k3mJJeFc2NbMcZDnhI2cH8HrAck5GxQOWUlS2Ufawpq13/6Pi48O4ouN4bzmeQvcehI7
9hdCxqZxbYEMjgDdAwgemag136zV++FzDkC2vNP3NFEcNDbRkP5jcoD5Px9nyEsXWPJS+L4bCBEG
NkEP2iG7R8E4DHf2minzEoslT/wZlL3I0gifmCxUByOR26t015zltbCr95vhbKP9/WWD7eFQZ88q
rkVPbSsFpH3tJRisKfL+Q8jLEC6FxRBED7PBMCoBrbX3V9n2sIQkT0tRor6Z5LED+ZhEudav9zv9
Jw7zWLENPncx78OQLA1dz5jnri97DQb3GmxtJwJCz6uQEaTk8HR6BYd5h70Bd6H/nH3/mAdsG/QZ
xRkFgyR33B26Iv5c2hNYSn6nYbUjJCX/tU/OvksH/zh37FxBt2h5vIPRdKGg5gH8AclGYBuJv1Hm
/XhHYGNEMbn1BcDqQ5RjoPXZXX+segDcuy4Oy68evXoKkU4IMANmgnwgHl4UL4DIs1EvBPoLVDDc
KdN+yRGTweAoooqmmih7a9v+YOI8pbWZZFEqu8F5NZzhZ51MMtg2deLKLMfAA5sJYG42aSnlfMRf
TRPsKPSW+qwfIR6Mg+0HVgNjCEX5aI0N74M5qwqMgj9oy0+o9x5g5jc99J1wnjPn+2jW7MR+SB6Y
hr/xqtdYn7vmsb04wcuU5FhCEIRSo0PHNwYDl/slEdkyDFo9eAe1UHVg2MrelTZh+AefUHabo49u
s60aCgIL+9R6gcNAWL8NWWWJtUMD5GtJoJ+woIul1tGz+Ugp4DuvL/mu/IZ82BFhdfHE/7f9n9EP
/Ywb/m/9Y0Wf/39B/xkH4oBI54Ytx8hrGBx8ZwRADvLB8pj/TheP2EPdOvnOr/x6UzxuGASMIEvQ
/uN5DDr+PBsZDkGg28Bza1R6J/QM0nGYZ+DH8QGAuCbfiQ3lv6+eaKD/L5MDNHJkdFl7EmBNKRuf
LnfsS4hW4pKUB/enXZ64P2AuCPyrBIJDq2aWx+w/cfgf3vlKlHSf5ton4/5YWL0fraGr1b/Mxzp7
/zl0y0r52U0IjP9MRv/bLOOjmjjubas5/zUtDxIkQ+SbERiOq73m1UMJ1vYUdB2jgM1o601WqQ3t
YxtlPU07MAg99rKNRS461jyFrfZ/7pHGg7SF2Idi0mgo3lDoU6nM0BYYZuRl+/E2Z4MDAp/fnbXq
DOOsAGQCGKAC1/924/3gkF+yPCSP+4SOpgzUsNH6iCh9w1RFkgX/z6vWpgxsKKBtjd7vOuMkuY5F
VRJ+wDMXkHFDNMR3AaC8oOGtQMIPDgrz4uUAkaYK4uiJrNiebTMXaf5u3YBtTW2A6F1fH9brMDI1
gdoy7lP/Gg/o5TJDSjoF2qcfM60ttjW+rctjhvd0eKcuAZgaNzR0pKR/a4eQgYfImCOo0E7ho118
Mi7kkbwBksmNLgEuikA6ApHoAHQnJuKHyxN67485ouaBrGQ5KCjcb5bA3lTPQ5wIIOBETMz7H9rp
0Hxf3A74cs5XkAhqBY5plkWhZsyBEsOK4hy5w2rZYce5o9gPAd3p3QN3zkUMTFQULLlDeapIM6c+
CGBEytgAYjfpQtt5uLbQWUUQChjm/ejQ+GsmiElI7KC1A8j1P7Af6fhiJn6nH1Dp0bMKa1XDKYwi
iiAH1Hr9f0/HAfohd1lBk2wSFXNd0X6oo4GIXQqfWP1YBhLBV4E/drMws/LrNZa/8DZ/DVv4F9CN
yx95ax4gXKLA6j3EfbMy2+Bq2kOcc42jACoBplnpE5tlV9/wqv/c+5t/XIVllqHdCmdhNxuqTany
4hzcqU0TXnXZokt9euGyH8yPndNNsaPrVGm6aJzBtGtWFLNtBe8n9F6ET6GT/Kd+BB4c3QaJvogY
L2oDABt75aRKwNtDoZocVcvsotMK44Uto6kR30v5shDBTYpjVinsteHIYP+brEK7xJsHS4Zf2EhW
scC7xvJgRsbEEHDM7ND8I/CfWUB6x94z1wHqh81Hygfz+pH4JcXq/b7jf86N/rVt366IITvmEbxb
P9lWZhsqk9S1dCIJZ2kUOBpO2rCu4Mb8tb/tfbUkdzIMcUkc+PyZlzg3nu8l7SQf6AQgHbaEukYU
U+rnRMILyegRPEPUZZgeOEs4FCQDxfnsyvy80THnoy9aVMsrHpMjodRmPt8AreyH1Vsqfsr9vWjX
ph7SvWzfINls1T3dxMJ6Ck1SKM+4+Py/Hbzxv/bmWo6CuVxa1cXRZoIbCBWJpYT9U3iqQoAiXeLH
MgMjLcL9waIGVwA0bM+Qe6wtU+vG/fAxH/3vF7l/Z2kdHF10uZhvkkNePEXXNsHQaFDVQoS4LwJj
Dz0GYAqNWfE9tOg0iIqAZvCwL2+H7P29eaurAJA2sK1BYFsm7luWZ9hCHKHeZBtwuAf7L+s1n4e4
fkC+qVT4bi5hXCwnEQj3o/THwj8ohyeLR/Sc4MkiENyOJwZSAwQZ/aDf9zWj0h6TEtdBPGdw60kI
JEdfjdWg6Qk0fGCeOf9erEJJC1imUalV7WjRAdO7oBEiAF6j6esOPAc72guwaQkMIoCm4K9IfmHY
nZc8Z1MEHCB68p7LAL1AsCAwLIu/3vpTi+2FsfKycvSUcGf+NPoHAfqfwCJOWim1HMHR0hAG8JVU
knpzLdFNmWSQNPdCQmZLw5hSFNVMWjYKdS72ZoDl+5vSbgf1zzTgpl6rWBdmronrJq84I9BZKy+R
6vr6rHuAnW2qEAo4PA3nVYVGmfkf2yE6cbVDSVMCHuQH9aajJyDvppnzrp4WMcBoxw3XDOElEZsZ
II3SouUym3vw+zy03/S0DjwxqjpV/HfgErLVTnEvjDGFg08pYXaA5GtIYPucG66P7Uvm+4PhDymi
DIQxkMP0SOehUHdMAOukLna4iMV+arr6Yi+ULOAe4/cUi3wwPL5/UwbO63rxMXeUt4DI5HZ3PTWr
EwHowAoohB7RBwbaA8WBYNep6grSFYg7z8b6oKndyT0+bmHThiOjIvwBDbweITmYbknEgfQRIjBQ
4btmh8wutOvZ2gtlDryiJI7k1pous9+/If1IdobnowvNW017T/qnT1K6DvwkEkCDZDkTdnyBPnhy
xCsioXNCww6czGYu4GjTy5bK7+HJgmOAh/LDM5Ffl/ZtU+4LZhlcivOHtDoKRpNTYwwIo8sYRON6
mMOmgTgnFw5l1FrC5pyCfqxerMk8/8O7kAzWPYK4gHXxagXEFscEv2OxibCNK7eJT2/gfmj5TAgs
9Z7/4/NoPfvfIH/RtBKvJq1dcuDyVU0mRVWsfWi1/RCGwikI+ByMAylf77UaFV/zuKhocfZ1YeHn
M1cI7SG42tVFqPg8X4wISB4uILQS5HQdDk1BsbqKZSlROJRfkFnV2zEA+Hh/gp/z6IJjEBEFJoxJ
QqEccIH0OMNuo2jsZoAH9E9JEOPc7ITZcwwhr6gnlf9DM5snY9f82RctvIlttr924aIh3g6Q5JAd
2CqKGJqmZwP0mFof93WVfp0JVz9/TnEyKzlYMAhukiQgcE4BLFAOAwZEB/SUhZ8f6CvGzikHVcju
1lfsjw4TpDVnhYr3a4Y4Zc2vfIQOy5DCAai8Md25RdIiGbqxMo0PMEbGcn7a27HkNhCBcpKSrOsQ
3PEm2OEkm0lu4LhqOTHRJxKbog/R4UupIHgSJro6/H0vTdaQbckkIYhiIpJJCFgw2bpbs/PM8It8
K4chc2gHGM1L4XZEcCBCJVB46tB1hiGGSB5LWqcoXbps6pVqKSSJemlGhodP/LU0z69ZVscv1Ahc
GoK6eei28iVBg9NwYLle2w+OwOBsa7f9GX4l/cbg1lgCGjz6uLT9nRnjCxaMjJMe3RKvgWNDpljQ
+6usz8DpD85v8tjSVa+eUk/n+uvtCylRHedgWcon1gfImJZPz7i5aEvH//oLoziiHXB71/ZedPqZ
/KJH6LLDuYBhDAcDKw+wXcnXmVZo6b1/Evkjb092/zbLFBONq8JeSVBJUsv8Cqb/8bNfHCOo48/u
Vu5imJdWQ/RKf7v7oOwL981Pb418TzmC5AZyJW1OT9b8pADoD+JJhCgKKqSFz8eFfyaD/he/sZwf
2TwYqAwsHjDCsrQ5mMMBYVSQqSwukVY6SwWJ+2jLWALlgK2zSv06XDDJcEkkS8HP+HZhoah+BwrL
XB7WkKxHNkm7XNO92LUSpYwlVdxgGQH0Q+HUQV2getP3AvqH15GUkcF3sB2m5SbEFu+yCFjm5Yw6
CGXZIOFqMYCjMUsOrc7uw3YvWIHBbIXHXZbaKF4UBQaakRcYak1GIkhmuOoDMPXRx7KslHAjiC5o
JqHlo470RkgRSqkB1kKGO27u0BNZxm7k4Xp3Bq7TQlH+j+g/xf1bfz3+7mv8tr/D4/J3y3y0l/05
dUnbuLHHYFesPZOgTB4uqQj0HeYD2AdmAwkRcCFChqQ6adpMg+ZXCHgQ1GAD5ykPuP7yfeL7da0y
UXcig+oviOB82rMPj0ao4RR/d5mOIZYafmPnb5jsrj/PhP7FebC2by7j88cAI5qxsuk1G4NUP0Pn
G5+MuZYn2pZ4jdIfUGP+zOk9MP7BQm4NXNi3THQhaV2HAXVtWCT0xrx/aU6KFVehKoP9iOQiTiHP
lh1TUwFA+dB1uo1yocVQFtyjY2Ig85EH1Df76j8+MAewf5SB/59lwy/38hbHUd9u+xuAxQ6LsKLU
1c/L91rSEnNMh7ICcZqCx19HfgGD8SqcsK+P+VFVXzEV0yoObi74xeL1TyNtNdpOYfBL8ySaY5ZK
AHzcy5LjJfmIw16GOhgYNQ/Gmn9OcJMA/hRVqkhOQx7dh9lg9IeY6gSyGpWHbA4QMSVw5qsHHVbQ
5C6XxhKXDQ8/FSEw51ZgtSRjC5X/oYbMBfwHP9ENPh31C3fxCfrEmz+kXj9J2Ap8jfoYPlg0s2ge
OP5tDwrAOj8UX9SM7AP2v5ikfw4Jg7ntwbprWjoL3GGPFOPhBbAJ/xE2Ubh/X6I+OAleRaQUmlEq
K+YLAza2CB/YaiBAE1hrQ40E4A6Z0BZXbbyBRYcCgMtTQuqEW18oPVGR406M4M8NERSZ/1/nP2eI
aO88wdarAc6jpT1evUsHzHn/w67s7AoKPD7Ll8BMhMiwmOUlSoD8c0ouXRqHtQNQ3LzT2f7b/JtK
L41kaUTZ/DDi/L83wGjp2DzAdWXZmbdU7kVRVFVqyqqoorOG0c0A4Q8DrPiY+r6cP/uN7X251/4n
zysf0c4WDAfSdtFEPxJr8uwE1BYS27sPoeZ/b1Vsv9MlONj+R9SCkf4UNls35qwX0xVB7g7SFy0o
ar+nn2PafafCHGO25JJu+EMeo6hoePbOBh25v+ZY0jYCKPUSP9veFEh1xMcKSiSXwvhZPyTDDADD
HIwrYYHA8Uxim6EWCcA4CwCbMPn9J/bwaL1dk/LpO1axAu/zldFiGRQeb3HM5WDNcirerZG8CsTd
ShzDPnhtlUxyRvoZKX1FZlfljwJKxso/cw1dvOXz68OIIdXm4jXRutxBf+2Q5KJrP1wT7IAv8snM
tzzPbyHsyoy8cOvjYYzG2OF7mCwi4jjKXN0aDtihCgA5y9ECH+wp5nrKMcE36rvFf4H+P1bP4UPy
GB+VOIWcPvSxxmGBCYJaBiGdfTohcIvSZjEr8ttOWpmPkIJf7Q/DIhSORwC5cbYHBSZW4gyh7Hhu
ZuRqFkMRMFTWDmnEd5v5RcIE/OC+voOZPUdRxH+AfgVFEE2ArzgCkk6hDBO6o9ivYsukCQLBEgAa
tIFtesubKOMgDiPZcCiR1L/q5Pon0lOppzOMKb7n8hhOkB2OgqgDyFAQdlkQwSaDsBCN8s70BsYu
QLVB000qRyKCoQxfj5vE8nt+ezwKgSk9ZMgnlMjOxIek+jMt5MzGxeF/dTaBCOpo23RP8Pc/T4rw
Ozs3xdl3+qdXXpFKm8iOWGPny5xVN83xIFdKL2R+sZwe1pez9vQwKEzhnowbCmQcbQ2MkgNkiXn0
GVXBnimPHkvZA99UF1xo0QFNgXIIwAhS1ufFu5FH4r460NKdAaSLQ8/6AUzluAmSB5GQMngkERB6
IXgaQ+E+FeB3FcZAI2UCKHILt54g4GIC9iL5rC5tBuyAut/8+GFwER1nqILdiiSm7BA7HwD4QqIQ
TFi0EcuZh78P4WyKmnmtSrzC8dU2ipEcN+N/BAj95+7/2oXQvgv29r1r4/Ru2SHAOXDlLB8x0hE+
n7P6Pq5TkOMcK9vp7V6w4e3HyV4IM8QB6E3yfIdJsiJTqezp0GryM6grXeTCcUN8kCx0VjvpzIpI
kFLROo49tW8KLO0Ucjq/bS9TMDjXKwP+kBfMhp2lstiQveQ6Js6NUmUhM+k5X+QqJ7n5fqiB9B7P
0li4/nQ8j+s1wJiQwkNgb9af0n2hzY22DjSI8gV8wDoJ+p3+wNBD3dj7SE2IHmCh/ocn0oJya8tY
iGW1OJDUv4Bt4twoFv0GZsn+agJkigGIpioaoYi7hVPQDUqj3YrAXyDyz3F6kyHZiPn/rDE2nGVM
TLMyOcur/wgF8B1UbrrNi7rNAPHNAW4H8CGJRU6AtYnyuKxsDhctR+PYs6IJt1SKZmZ/pONOf2+M
JJLpMwHNPam3qAdZBDo1c+XG4FsWhgQTv+s2h6h1AvnefpXgISPPzeQGlWAm06wm9HJOMFwzjEjO
gQ7t+Ji5guSZMoIkDUmF+vA9QduhPgz57CW4j6/otiOBSc9r5YBnHMnw5wPGw5/A9lrbb2dUKcJV
TB91ZQKs0f3T6ZmwD7LQpwiZImv+ziu4b/kHdcA+4DSfPRUjNTG8ufRz+2/+oNXyxPT0/X+//zvW
+++SuyDExiO2LdXve1/CyMX3boboIwzsNGcOGZpwpCROyDYaXcu++bL7JR35AvzUT/WSZJ/9GySQ
bZ+U/4sZPa4PnSB/9dB3XveMM49icWggimI52jgQ5I8RoD0m3Xk5ovpSA4v6zGUMhxvVkdHMEMxE
RBFEE4Hg6LO/p8gkH+oRWZ4j6j595R9P76blwLBkHoies9ldZZ9Vym6HzAfM/N9tX2P1/PJJGFsn
XRj70hQLpW5X5g/f74aOAH2By4KGmJjAQ5cUcj8NZgbA7dIeUoqzCSSqJRkjX7wBeQDlBNhsOQXF
MjcYXBdihxm5zMtzNxL2PzRoStZgTp6qOedL9w70LRIC9nVNtW6nm40oaYIVSxyE9nt2B5c3dRUn
n7C/zjme59R7TG+WvS4VJE+EjAsf/R6+yfpP5ND/h51++ss4Z/HFdveRySQKTlSSOcnFC/6j+khk
XNc3zm28zToBdQqKRN1mQnF8oHOV95fhBymqSIndNyOZxnfdr7uXDnKrc32PURVU1UNiPDNUVVOB
2fuz5v5TPEeJJiKiK7YdrhdfOu+R9Y20SX4lPhtWMlIoWIYMoc5zBxcXIxQesXQQfMduAcB84nj3
MJpYMjgaiiOwPuI1oaY9v25czocknQZWQ0pHtjh9RkQ42xsLEbuBRi9CBjJyZ6/hCD/i9HiGv7v2
T2ZA8y2bXn85TdSdEV5YML36nA81XdCsqJc1yUT7kAD7gJsEMREYdtcfUPK70bS40Huw7Y2AMYPZ
GY8TajynG+uc0mVyqjxbTIBef08/y/oifpUZBlSjAlRAK4Y2An0p8Z7na9ny+i74HDKtLUm7+jj9
vY8w9+NbX4Rf8fbY+UudsEICxSwLA5U3LjbC8NzHCKWK0e3/D054S5H2+3mc5znBnOOHt0MaPz/l
FpaC8ycwX6zp/SpZHE+xHMF6wNaheBJYlxoAsSySnc/5wHb27UCduWSR9DA+sckxMAH7XG+hhGFM
LtU6Nz+CYFbBn7ySihDQ1kSPBpN4JYR0CDEdaH0hByGDB26IaxxQf6KLaNwlLYCIJElLqUbCc7Ng
Iajn/BDZZoqFD+BgcdjAjuCvdPmD22hLY1uBbbkE/5PKKHEDCDYf0TiILgVeur0E6UKV0oFrf9vA
9b4HoTY3o0QZsEasZkCGGtEg9wulIXbC1cgWEi+/IfZvKZE9cLfTIfM29xRPnJ8C+ns+DCM1xsas
CxX19NFmRYFkaPjknwO3PD6iIZQkhY7SfDV0cVsAlyEkUw0RB8CvhzNuDOGqH2wrgacLDEW+L/sR
Cj+xwPDb8jUgFH0Tz0bBmDZCgzlJhM5xTjWFTVIURnJootjExtjaaT3B1BV8dUCXJ8dbVh/jPiUT
/WA0ntjthJjp9G/VdN5b7BLcmbXGBdKpMiF9+ZkY9VsAfrC4UJAkPyq6UQaFsaBAP8zDbNs+nqvw
rjhMPjX3EkkERyRJqPts1UotWlrtoU0X/4WFKOyk+2I79W5Tu5yAw8vAoCAMbBjB+thf1cUV3+MN
H1xfPU78Q8/q+v6PW+qAqIZlC4fJ8gPrjIeILIfuYN6K/bRVAW6Y1ToYMdlhP3D/x0cx0uYfAyDU
ffQ6zPKttWLTLefVPpPnKAn0NU/zoehPy5tRuBaObTLi2i1rInvYjA+/lHWKXU+41v3ZBm24j1IG
gWka6FdMTn3tk0qSXoMrgO0hvnspN+y6Z5DtE4iyNxOJP0i23dJuEiGt28Ruuc+tPog+RPohI0XO
WzZTyEARosm/4pcxODlZxKOXWqyJJObjqBIchSrJ7cr8DqUz5bgk0mfTDxESOhxZTBNdEHVqWheg
7HvDSMJIQjkIeP4H4BqPKHcYaabpObzxknu95h2D8vRkXnsIJ9U+iX9/r8PK3wo9FjC6bIBcxDAq
i7cL/SQReIiP/sQCQYRQNkPo3713ii+h2FTHIjfmXd4Bn5bAN/hIyq39ctlhwhrm9/wgahhQ0xNp
RoUQaaOZCQI4dH32cs8rJhC2N1soWqkm5DpIa9ZysYxqVTSfVjkAZw0UlkiPGfsw6+QJkHay2Dny
XkJt9WnrJ0aomrtP6mYYaGJCQkGIaOfAwMTDwHM8oHA/TtVBmgP6VuZjPAN3RgeeOf46Nag+yoqs
96psf5Rcd/V+M+9gaOW/8bcINuRxxxFCgrj9j/7z7kEyPvrIXUJ4lCOwUSL0qvZQ9l4KqjHHIybc
CQ4BkpRoulS/QdhgbQsAC8XhzAxMyqquG8Gye3Ie3Phs4eLz8jCuKgWNmxYm1CKvgce0278wM3X5
JwqUchFfxhIMgHLj4K1UmjYSg5JJ5K0HJwwM+LE3AgpP0yIAumItv6v2qAtMBSQkURJAgoRlUKHz
JfX0THO5cvyNk47EipofvtVVJzJeJVDbuw6PVroaoDjhMP/sY19p/jGFMgxkdm4U7oP93t93fg5n
2aNHQJjk3Bz8b/kX9ZCYwekH+2Uv9Lrjp11ezh5iV1P123aAv/mwps4sKOGtNf5BmnrCC1cH4Ikj
/xa2wtHE01Whkv01hZmembzIY6pbZHfNKkmUQg/+f/oX/xwJ2BfJYchBJIipTlQHJBDoH/3j8dcw
ZjM1VORJTpxP0kSJg/bhoLBnx3Eg/CUlK1QbWBEFEXX7yHJfIIe+GePFfPNXCME2gkg9jUoGP86X
+aaSkw/VcOwPphx8x+wUww6F7zhTEE0RfTz6kbgHBqCqmppZlquvK7HOztZ27YrBtz//jC5hSJrk
Bjx8VJmYklO7ecPN5jOUV/tF/Ffs1oHWU6/f0ELDEQGA0k1lPVwYJhiOk0cUH7AZmkP6v5UrY2lS
ukEHRKh4aENQSG3+sk43KlD4P7vuvx4fU6XYlFr4IfDlDlOwNZl/0g5f4LshYwmo6eudV52t4Syb
yN0xcNWWHzH3kCB+flP7z+w/kfT/PC+GFk/5Iv7j9mOONsf5guP7zUF740T8jX/TXO8V/g6sv34a
8/8bEz/l3OTTpFmqiBXnD5iQIwBppZ+XBwtBJZmGGaYALQTark3RRHARJ3vgVKhjQlLsLIKgXRJI
JAPIK6R8a32eS9BgfI1nmHZwj1w7d0fJAMXEF/q5If1kAqmow+MNHAArhkEU3ANJg8nHRbZFONsF
IYZf3YtsOKlMa3AfMcZoL0Z6DUF8hI6aiKCFlUlAOiDHQrBgxMV03wMiH0R37Vz53fAKM3WQ9huL
AszqRXOtd6BbTnws9RLAlrWeUebcHU4guo6G6DeKlRKEh/2gHFzKvBYA7AMyVxH9q7HmBOnBzQ1B
dBzCj+nUY4U8+v1kD1dG8GBFXrAebnC6x4+cFhrBefhyBJEhCN03eFzv38usHrttSuA+FcN9xc7h
j2BgBzLrfv/H9o6fiysSCCf0/R7B4e0mfFUd8V+v5gKJqyvH65aKyyTxZ3e6o8VR/FmD8d82d/5d
M4YmrFTRCIGfm4PB9/IHAaHwNSnTHXcqMYoUirMNLoIJOgmrbFevlwOw97R/wKk+sOZoFnUaFC/y
uX+eH17C+d6/xqtJ9XFr4z1UGXJVfIGFv0/q/VYuyBAJEh0BmJZSdO2qq4f2YfPV792ZntZ3Q0Hh
MCB7sXAgaNzqnbGqI01GglIWCKJIh0Y2HViTAQ4IsGJgxnFFNRJJjGKqwYzFgxoKiSIS1nMWc7Ys
YzpwRSQxQYjQOxJp0yWn/ycTHMptwss8osOSNgoinTjmThz93c/COtAS1URzOsFi5JyOFBs4ksOk
gwRBFKa0lYiRgVEoCma8yygY/fzYXC859hoWDqIBzj9s8ITRBkPRf6AWADRbQKFYy9/McoWNnKtH
63iko5XNLBeFgueU8b0eTjt/w/8szAzghjjfGY4GJgEAD+8wP8khwIEPA/wX0CbbqcKNR/eWLqZH
s4FyxjDw/3bx5vCPR2+6Ww0Pn+gEV93eAKtcOhB9SvXmISs7oqmS/1fcpL0z84wfjpV8i5TZyjo+
w9Y2U6bmQFn5fhaDfaqIogmquJ2ScBPm4GHgLfq4J+2Gct+0ZMfr5ViFIeH+toBOjPt3H81EpD/t
qcH8DHE/585mEeB6jSWcTPoT/iP84wXNgCnt+iIaAS/w6+2Vskg8hop8Q8SrBfH6H+1bbY2NjY4k
kmRMA5OrbmYcp84CJ9H/RhgPWYN4peSsappcgwk/uV2/kKZoN9vzAv6Q6E/BfhRIeXNDpTcDn677
j7cNSH/3X7cvVmH3i4WyT/cFlMAwLo/qHQMIcyNdZp+1f2AvMU5YxmicXLQLk9LQAacxRZLmxzOu
L1/0nN/9yAXooow+egqAB715JD2YtHiaiiVLeYT2Wy2lZae8rAs3KRoHCRIsH3wEhgV6nWAZDjsA
JgxQPvhJCAdxmaiVuuP6X+sT4ew78PWB5kt/oMafJCUEiYHRd8bfwPLB8hrAkgdI7mj04cFDuBEB
JNEx1H9v8qL1cvp+sN5GRkZIJtXwwLdJ2Hd399GE8n252FmEaJiSiZiqAo/puQn8cbpj+O3EbQ4d
0qdXTdjqiAv6SlqB0v+ln5Hi/TDgWpfIYW1jUYsJT1p3B7Yld8q/y9fli+KO2oWgL4fKiqXsXzEL
C29VNRYC2AnVDk+yjLp+dB/2J+oDRKJ/NUVnn9x8vkmCf0kkDpLEWrFAf5ALzfrsOJLdmVh8C/21
4WtPxiVJIZ/+uPv8znqVzt2/7nsJGYEOjHa8cTByUk0f9N3Ovb1r8cxOdyI8va7TcCjqTNz9BtvB
+m31bEUUXzwz822/5ODvgGGugo02MKvAK6BYPK3tS2zwZ3qfAB4dy3uVaMMzGpi4hBfOfjCC3wef
jQaq8VXCcKHdoym+6b/g4QLcJY8a+vnscDaSEojIadaN7jBsTVINVUgk1IiIhiqBWH0OU0WGjApz
+CiewQE1p1/CO9sfnvVbD1/Cu5pIiri/cSfh/srPJOz+GJnzEMS2q04rLy/J5PQXOlBMw81pNOXH
8WOeAfUWG2VfUyGAJ0R9LBOybIBsahkAmZNL8IYIf6zvaoDTSgkDN2Jofl8foBdyvIgjkwEnq2T4
9Za/e+TZ2y64B6xglnrARl8vaUGR0EDAorO1inPQET6QBdeJ+14lE+W3TkAHzaocxxcO7Gp+xn/g
oWMIYYFNFuej/Srh/97S/JQR1cDC1wuRpFhyNHDDjROXHTKY6XXAf96ZHgcDRviBuvtKwzMOls/Y
x2f9Zq1yHIvh5roeqJjPUZVFOl/yaNUseioMhg7Hwl/StuHB2v73pchrM4QSj7XUA9gSIGkMCOuD
SXA1oOZsM935iFVNclyxBhiQkF4f89LFn9Iid2i7XmlTFjDQtkY26IgbUdCF43zhvcTA/a5/d66N
RMZKaAqD5ws4m1UjCslobiJ4f8HkkW98ln6+SBrOVEPbC8/jnz7m4x7CTV1R8Bn3H+pI6n/+n5P+
yIc0f+4f5At/+v/Ha7wkv9Z0/7WYE868W1TNf/MNJIEfYvPyf5eE/5kD9Uf/YhOf/Ho4SrGOurXq
qy1zPL/9Pm2bNJNP+1VX92cF93D/C6kSNEN3hBCAmZIeTMxKS9sxGWJylDzEB3uInd9vhXehHIaD
eF1/699kRmb9NCW2IzRYPTVgpsmoVPqoUED/rU69/FX+lF4bzN+vjP83aJCBIQ5jqohCnX+r6Mef
bVfZrsWJdyzYsJswzCzR3/GdzfvQ96TxeWw1UnRzi3btg2MTFbb6eeeePhW22KGkpJEkD9V+BoHP
8c2ajnMNZ1iVhrLOOXdh2491bcpT++ry8eCLhldVLBpVrKQeC+UFIDNIJ+ogD0PzEArLKKu4c4jQ
Ko1D2wnkPMceYt1mAEuACAJ1KQ4Gcpug4az7vMf34H3Cf8FPwUoA8/d8+64Tphnh9Fih2Kefs49B
JXrsQJcgMJiKKhqJjP06ANHe/uWA8N/TsCfpP6f5OgD9f8n7tBiZrR/ALHyp+n9nKn9aQT2n/1e7
P/vrP6ggQYQjBjB2CWDIP8VqpOTkHVffJ9L/v283epkBux2urNNXEmEJNVueAV/0AKrEY86wG2rQ
47nuMZ+j3OeFm1PX2A6THUdERUP/KimjQtoMMh6SEkY3DoUxTS0moMzLjkJvXUaxxHyEiXAiaBNA
jgxFojVdwKTxUYcoAGonIYsAd2t4ZvIyZAcRJGPDacuPLYyG0o1Iw23N/Lfcr1YOvbTr4BwI70az
CEk3OM5jQ0IbnlvyZ6tIEIRyp4OvnvoLMpN0Y4koXjc4GDoqL3pYeqVEG2/fCDEn6KgHf0OUY/JF
Ddg3Mit+0T5k4kg+hPuPtLf78R0g9inWayDI4niR59vvURVR4V5Cm/zFMww7vtgSEPmMPX29+fEK
fx+z+OX+f+LMTT446r10++/8sjDs2bzkMJ88a5TQ47Bt4a3DQDVHk5f9HQeGoBADQ2BEIivW4/9x
Zv8CBqLKLXjH9uXWKccJzpnp+ywZkHJDOGTg1dbRnf3ivKSOBBIRIfyViOvFhKWe6Il24nnUPHLj
e3VAPd2/2O/EZPrI0ckvaoEgdHFScXPWGIigQ2/tpv7VSIG594l0G6Xrmgtl5fVnbAvqJEfqaNHR
cqLlHfSPDBNoTYlXd40XL2aJFIfudtgDYwzj/OCf3xRMiJE+S1Kml7AcF8y5J+nmUOKSR9LE4smE
jMu5GAm8u8taVN4CvmE5AUPoJJrd4oeShw3mNHBDyFDR8SaU4XYHpIB0IiVZJ0CbJOBhJ9J888+P
Ch4JK4qHCTqlzRH3SbRVA0AU6g3zM6844rVthpguBqmW0QwIqBocTD8v45Hvx7//Jdgh+2GgaRSk
aQaRSgaSihaIJWISgKH4g0BSJHbxTIWgXjBhLsd06t5eYxxsk5Rqj75/Kx5sBEX4YKQ8k/c676ie
GjwM8Vn1fHPfMXuJJyxRoyqRn0P/68JCijtT/6/+ijzH9XrNzv8WaD+cYzd/re0v/Zz/2S/0n/lF
2WtjE/9s2nFv8dc2YvrNqiWDqZvfigwPqguMVVUe+22C9YB4Hic97mXafRVbXnyvHcv0I69bKHpf
1szAAAXPEdZSfA3FaaQV2j2Sq7FhQ34cJ6SbS+t9V0lG9xqLKDJvx3SsZvsdhnKwZvIVtpDIjSbQ
ixza1I6KuGLHOVc6jOhVfBOWMueYuqr8thTpjMhpKGbmYd7Cg4DoyEVXNjzJam+DG5bC6KuNedr7
ZetK6VqHtwrtHVg+lFwIZJMWetIoBS8nvctcvw+8321WDr3dDGv42rOMq3dfXOlnQytXh0RZ84Y0
1bEaVvN043gF1aJMVc6u85ycnQ9ch+5z1z2fWLOT99D94E9eSFA57fzNzw7GcM2JTFZDbatzSSrS
7DSMnrM7GOzpvV8qXrikknpcOx3ayuZWxKa6RmgoOYEQ5lL43FlM4YrPGlIgylnTkE3ld+zLN7S2
QRnmdryg6bZOdb8wMSz0BvHMlBmr2q6DVMTHEX75zGELaU5it8RoMiIOVtacv/RGxMfnts2mAuHS
5vGY4zlwrGWi1hXR887IGhuYwBvS9HtjXEBJ9JL8ct2du22iwv5DSEyLm05GVQ2A7v765Uv9l4zf
r47or2ww75ovGeOdYVt5tdlfsKfiw0tYV4a+k851M7trCWMWq6epu7U3s6Swo0Z2vi4N8StbE5tA
kNOIyTEtgGGcWxSPT1RAPcH5d5+Lmw/LlCeAEVjy9C4C7wuLDfe8MgP6w+XViLdiIFDBKgC/6wMx
gNr4TLf083H2TLduvd3GbdO4hViHd7685Hu74Zq4UxeLjBz4wfXPmge+tIYdWq1VltZ5u9gdKyg6
MoQhzjlXHHJPn5fxErwFaLy13WIu44PJWfBtxu8unOe7T3jiy2jV7L2A0IAAHGIG0l1zryZ9nEQg
PtvCmMwdBP7gUAIAIBBBapIKJlIqRaAgohkiKqqFCYSSJpUoKChIgSoapFkgWCUiQgJIIiFPC99O
Xq9XbuIcvNOYiNHulHoi9tr2H1+nKyGEHugQmARBQVCB6o2tSr0cTlozpgJcsKyC5YAcCGlnGqCZ
FTDQwUvhJwoa71BKUladCSYdspZDtiG84LwYw6GifuBEUfDG40dvhtPi6RRKx7WVJGYDxxuDgNxh
GWxBzzAxO87p0kZrlBqSKiqKqqq9GYa2z4Y42zDDBswcewN+npuKbykRIN0mPJIfoD1MjAUlFDMR
UTUUDQERVSRFJIVVQSdQKBvokPe6Q8JQjmz4slBQFAUpEUplNlMvQviE8uQJ55qV4sj5bRZNISdD
v4vfwUSh/Z/DkD/80MoAM+nn7+fv6Nf28vH29qe9K2t6zfVzozD5SZcQpd07xx5Yz1a8N2OdVvx1
7stl98Nhx/SsH3iRU9XwoT7CCHI7Os/K+twKBw9OtA4GY1WrID0VFmaXXFXbEdk5Afk/R498Dxyr
GUfzAePFdURcG49zx+K59R7MfdLT3ZEySAyDT437wogImJgm6syhpKqAKY1JGEaIxe90JenKKqNJ
jVu6CBWMTSEoSSiGMYf6zDnF4o21wAYKa0f+Qr7CHjNhA8UofQR7MmSAhoOPoUP8FD1rwC72VevG
qftiP85mcejn5VPZZnRkbgmZr5BHIVA5+RgiAGQCSMSRVZFN/r77eB6T0zDp2eSvLbO2fkNJ1eHZ
fbWrV5p6vPsvfdx70MBginFMdl8rp0neK3y1b9Ju1TTLjzOlPZAD1h/xYLUVh/7UiFLw5pp1JVI/
0DkBP1lpsI4/8Dhqg2LD/976vRrs/EiPtj54GgY/32BwIgpgxP4/aHj0nV4o97b2U4esESTTIhLR
BFBJMhQmpDKWKGIIihfc4+ry+Pn0nPkiR2j0M5+mi5n+j7UMzeCJqrKCjlF2efTx9HHhxBfUbs3n
R3yNpV/mAlbvYN8DX43vTF/Y3dD+bSWZbSnCCwg7DM9S/DljU2htGUX0UVdmUzAMsX97l/3aiGJ6
+LavtpHVhh1MC+v81LP0jtIPvs2BVysKDr96uFd9nLFS2mr8bOiuFe2mD1excI1G0XN2A/iAB/RM
D8AEcAAP2+jPcj1ljMT7saLTMQfmQQ7jY+n6vNfeaioY2X9nqgVgWm2Cj0P+qyCZQ4G3mSKUIihC
j+uB0I/AY9HHlwCpkUlHuF7PEHxUADj5fL9v8BxRAyyWMxI6o2L1WyFtF7HMFwBA9x5z1jt6YcXV
+q3FbA+q+30j1+lN5IwkiEnvVv9YTyD0ZEOHA/mA/nDv5oGpgE2MBGKQp+XF0CE1AhAQRIgdTyfY
kqh8o7aXQwOgIS9OgDw+o8RxPp76ex7PGwI8Md5EA4QhJEqqChKKqJ6MDX5OcdMvFVrmnpbyTAwr
U3sGjMMpj5f9jYwQc1ig9ILFeYBcqVAtHXLNa6NV7kRKj+ayipZDb4ogwtG2iqtaO+tO5oxiAOKD
wcaxifONEXToOwSvLLFxChMEU+Y+Oa2wKwOaICEasy4irqNGEBKlrOK4zjrl5Mg3xQED7IBaaaoH
FAnijHt5CPdMdLHTziqCEuiFEk3TYx6LaM4aTjywDKG12sHTbYChDHFuOY5rAvEwcDYUIhgrdCX9
g0CLSAGedz8e9BaEAgrBpN9+9uYpsuuh1+i1BJDrTR1AvfgiVGkpUOxeLufYYGFL09W3bUOyfYiV
+6BiO2OZ0xESAa/aE0hhMJiJkEZiMlFg4lvuh3vayvZe4kcEQIVNRiP12k5NNeRiCIPCMstMNN9f
A39d1T+M9YPAjCO5mAb7j788o6pPrJTqj82iM0Sg1M10hvkXhXXTQOjRUhcoDhKheWk3X4kTQ6En
+YdlG6SFfuysP/KCDodU2RIOyxmJmUKQNYWXj06TxKgpuoeB8gY92e51c0fYkBoQoQiRKACgGlKa
UiKogpIJBSESlaApGgiQShKEZlZSShCgUoGCiQaZS22EOo2C70RKiDoURwxTUUxE/cxiSZaiF7Ka
BiBQoYCBoChAgWkiQYJqKqZIooIh+qcgqYCCTzPrPRrhyH+RokkSZSKDsOBgOWIKQxVGC3ITkCTQ
EQkcIADJh2WnRo1pKqqTWhKiChDbGYrnAXjzDriFGskwWtiWgjGNHIMxziZiAaoB5ByNjVNEmC0W
OHCCZmqjENaGqaaBcTpSCClTSJSyQ4mlYqGtqLakKqIg1pCdhxJSlLE0VQ0RVEURBSFUjS0GjElU
FIRUMyQRTBCHMnJEKXmDbES0GbVqjW+cBqJiDloDWISmgCkisrsDoMYlB64AMLBcESLWZ1SiRqoM
oUA1j7oGlJERCx5rottZqHUfF0/sxdkE2DO2y6MZN1tD/oJwQh+1FtrBBQFsGDIJKBJAZCChkgpI
aC0U9g0McsYCIaBhEidAaNZIeWeODYzFAsYjWh0NDSOuQGCZILhgTRw2f1dQ/gSOAh5O6K4p+WXh
JAShwA+EmCKlmQoFIBlQuQeHO6gUpSkSFNdJIDkMQtAQ1rnyHgCJ7/F9qTtkKJgVKp6ZMIH2jfWk
U5yIFQUkQZBQO5liAubYoMAuDd0NRCxH+rriBKBoCViiZqIWloAkKIWJpiAOo33+Ugl7aYUWHT+C
HWKZmckZEJBAboIFhmYceUCQSR6tm7foYktwIYJwZ7rA+SAZkcfq9lkKLY2PAZ5Aqh7jVwQ5BV44
Cw7feXtb75QpdwzT2Fx5T26rBiC9A4HldienIOiEhJUUhCDKVUjDTEEEEFNVNBEywQVCwxIkgsMj
J0otAqe1IAcYRO8EPi0YvgKtADr+Y3/V5/qPXq498rhVQGBIHJBVqSAFRUyQjYk0zLHf+IMDwCZC
GFC8n2piaEEJQ3xBiGTc7twH0YdODpFXmqsuX87UTQY1896X2YqoFQEPMy3/xwNXun0mZB2h7Z0x
NERUQ9Ul65NTLJqVy96TESpWFCCDfzyicyJ9E/hZCkfyeVz1c9Gqjpg9RKKoCz4j2fD5+Hx948Gv
38NfOxIeGVwuxsIJle9KnCP1yifEKeSuYpPywv0l7B12VeQJwEP8WR9+Z8SAfn699qtFrEO2rPnY
f2TxgGhjrSDSIBQuxmUJLEqKQMEJQA7BFVOJJSlTUAjBIUQEKURBH2YofX2txA8R0fNccPD6hC9M
6VDQLmF9MomqXBYLxkULhAbw+SRE2C1KPMwMQrcjfTsC6fUefgLbyRPe/GVUQvyGpoSosOOxYRxb
4WVOQkKGhQQNiZN+7sfSHRnYYZrc/KR0gf5pUQgKYgkYgPT2cQCJrk9/BT/mQ+/vEMhWHDpARhAD
cWsX85JBhPQ/UYoGDALpikXvB33x/1SkNImO/cf9SBRGTLEFoVdvrOsCWetAfGMyMBfTMNEupAoT
BjuwAd3tQhQlUETZf2vxWe9O/n5CQFRStJRBhF1UXjZFhBeL5g10erz6gxggcR9qw/UUNfuly1Rf
FFMoBRIglD20NHohK/DGvzlukTrKTB3gAfzz+eA4zQNa1TgbZ1snUgW4cF5zmuJuVwzEz+jjyouY
NE873gUDGGGz2OLgNebiQLEHiQJ5DQB4lX9ljxeU4Z2e3ojo+wkKIKImpDxQbQrogaBPxzAlVdIY
p0Ji26wAipd0igNQZE9WGqOUsfP/Lu5j+vq9niBwNthCRAj5VGW2T8aiAPixtZhNHoI6HronbqnZ
TCFrAeoKTkEUi9BGDQ1T0wthppVoDVBRQ6Qop6NsbXqKTddxHvmQeJoMqR4rxgW2YQ9W0h0eJBBv
J9XD4F/Q/6I/z39r2Ol5GVigKNByNntG69ZgJkXpwVOJ0hKQpjKZD+8YGozYkAIsQ19CeZ1se4jX
tCdWIAUPDeCPmICSKzz0CgUGkpECB7T6SWVOse+JEuUCdsJEG8RXkpSJBIzZ/4Rq1U2Ph1GAN3Q6
KxYhjEH9Y0UNEd+0dmdqJKQTvpBMBBBJ161v5+z8N3Xi/qQ5l3pwGuak08l5TJELyUrl6lA6kJ1M
42DUQE4IySwLQwrSUTSxSQxAzX5O6C9APycPbxAhnwgIOYdrD+In78wQ0TNTQQhEoxUjKSMqzTBD
JJTENEJJBCFDIUkLAkyQEBQJBIERQBMgTAQJBChDCyEvUS+K1IlTDwPNHQixjEVPmIe2w5w4L2zY
mTuILHWg4/jC8IDMjjIlgteLn8gNhCNVROv0swaA9yaQNU1EEGJTqnY/gBZVDMcwBSfvHh/PKV8R
knMVsW0C45F6xFavVliEtHC0EXB1aoVYgJw8YSGsONHTpaWbYIY0CTSuw3jNLODRfJZqwEKlXFnD
3vmobBCFMkwgUHdwcxaMdhwS26BlYNoBhOcOSBrgYYKNBspXIhgzpXAGnqpAg7PMHhcKDRRTe85r
xUG+95g+Y+oXCfWMD62SJcxiHpg17GyxrCNPlMartFCpFhDhkKDA3SLTOo6A+DGTkn1eOOVBmlgC
ekBYJgmMRWgtId4lwNaVQ5hsVUx0k8GNWMaBVn8TUvp60Xs34OApWzSEh5ZXq5DOwlTMQ0HECZQH
y5hSilsezMKQlVHtfoHgjGuqkqtbiUYUWjJhzlJq8Au4om6LvOuLIjAImrjUbFmKMP7+BTyxU4Ko
uQQ1bSBiGrftBcBMKtYbSbKESap2jUwqNzGT+2QYOicPBltbxwioZReBmXIxt2BVIiqcUEpKtluy
9LalXKsCgHV3vekXbRtaUEG3dAkttsDLmmI3q8emISiZmyk2VAlDK2jVRpFlXpq05JN5VJRsSxDA
YmnOFqsQliHk0CWyszFlU9P1xsKa2wxgwQJjBjbW6nFQ3mtLZhRkPZYKBlwuEcIZEPy8e1V7IF98
DhyGuOijnEJY6yFEpQKiIHI1SpogCsk6JL2bqik5LDq7UZG3xZVKMCHHTu08GJSc4mOtEXxrpehN
FzIwg/WpptZC9XELAQhEg/u/UnfoBumzMpSEYxXK0Gm5GXCkqIpIC7AeHcfxNPth6CHZSR6M8Z4Q
Zk4Hog/ShKB880IPzQvCShFPug+YjeeEInP/NgH9gLAv0/UJ7oPiF9FAEiQkgUF5wPE974z+X9w+
fqT+bb8gAB+d7puEUzREyFCgdVFPyc3VqBf7IAif0wO+9J+IgciIJ7Cn/shGSIKCBBGYmWJJk6h5
pM4fzdSBQYwRFJTTmK8PXwz7S8oWPxgPa3H3fyOV5tQjUASRFHAPxCs5YPCYgPwwHjkpUaHwx8R4
fbiFtk4fMfz7P1BFYET94I9FIeA/RnpOKL6uS3qCm0vneucsfVR4BkgWCkIFAlQpOB6FdwuEHk0B
oCgDEwXSC9HePf5Y4cIgZTGRDBD9sKG+Q/vSfv4IfYk0RzDN8ShMjnoyAPigPIF+fsMv5kwBHoU7
ec+U2cXzzkxKtkVYtWS267Fyw+S5yXna6oPX9rQhhq0OSqtrLV91k9eqg7fJz+nz1dBLRRXiHjJx
O0ROA7zhAo5Lry/0Tv7fHZR5jWDc/H5cfnZo/xt4q0v2YuXuaLg0sRFX2bF39qCN2bNlr+rL1da9
HzjgVrK754K5mKMs/4xFCGheMjCtml9dFhOUsvxZo6iF4iTnbP0cuFm91zSrp2lm7o4w8ytO0hrQ
Zpacb1vnD7xnmuRl0YzeFbDqhfkA/NaOFNqO0XRawzh+G8QN9fbXemMYFVwu0YbtpFrRWYjKK0dA
aDk6HKmAYF1L7UriXwAanN9YGNJwe+jFz9dA16OpVyoEUeHINDFr63Dha5zfWWIbHeWIiAnLV76t
ZsM1oxcI3reWM2c6eY7Um3Yawk6OHHRYT1tVpXcS707wlwPkX7O9+Zz4Rznl064Vk8Ss+fHqJCUy
ufOf5a+cDRxZ0LrF9WV220/JB+sFB2RAPjPc1zmnKt33lvCXXlKlp0A5T8BdcVUx5Pkr5DGHcnub
Kmd3RyKjR0fEJlszt4+qvGr8VeM6tvGrayptrWuSbDafWERVaYpF5wkmfA75Zp6LpBxmEzX/C9xm
WlsaKzp6q8YR1Go6GtXaVaVKSooZVrPDRbOhrazXamIGEs1fHFFnLA1ziTn0csX3jF4L3Phmrzl0
o6ERrPDG/r3pxuBOmk3Ndai0FhstpbNpKQ33lbVy7zwptuYh50nektNIYu/E4UvKNoTgaTvSFtKa
Tc5fR3q1EeY5zjD4PLaxffYQVtIvq6EtnssKStOkddeGmHx3xoH2xiWm2RRXVk97/pdnR+I4q8fC
d/GJd7TipRDV6fjpxBl6gHEBotcboUr4p4DW9N/AOd07bbu6L4GPcjO/qq0elRGtjaodW6yWi9Xr
a2G/sTngwhCRiB40FBvw1HXgfr+yuPVxbPC7ff67q9OdxAz4nuHn9cnONCHw+2B3CWGqlpGlNp4/
D63/McD7fHg8i6jDUNON+rkWbV+6m33TOH26itVBQB/0lpJ/s+i3mN86dnZK75VXq/o7/l1WEj8W
n5fD5Q9X3ivvEqMe5jKOC73DNOXpe6yxiarGcnYet4GDb8wU1XsQSjA5iONJytpALd22eXFN9mlS
Ed8Pw043cLOhjOc4+yBK4xJ6Npl+DRaZWYk4OdR/GspZlPSUaj3RglRzpLON98HVnHbVnS2LlfG3
6nu/MJttsDvqujPxeDcaP0aXFusINDaNuF0vLeVg9ru4XfSL+LLbWzKbuGvLXNta+npYT5YqC/pg
uuKin84qg5UoKZxfjpnlxiQMZw5S5Xvev7PyNO5mHS/WGV2vprjXttvvacLP4nm9eBxEaf9n16Vj
ERlakUQWgo/YBLV+nKfD5InHqw28un45CJ9gfzpseyjyH7fLYyvaxhGkkkuU+MMgYm+CO1RFIJAE
7qDq+zrRAdSAEQCD0RAKFE7vDjvbxdft0cYeA79Ydmn5TGXmizrBbR8Wnez3XY2azCEsPjDxhKjs
0zUz8Zto62Gw/gcMyz6OgPUavueTgroQTYO8nIl+YTQV+d+hkIwhDF1nz+hO03hyAb4SEInYl3vl
POQA8sV+2EB+EaD5IG06V/0iBH3A9t1HsHx8KqIKFmJWKSCKSfP8OOcIDAyUiSBAQrKIS0ElEPkD
jTwOnwfA+QobOPUtKdNNNfkPE8VnqihQ0FAxFAUgkQRAv4EjrGwNIGJ1E60I0UGC00OIdClCGdsx
oCl0GYGlP0EukXhIBDacxpoQiooiQCjWI0BgmYxzYnkMQFKtBrVCNImJFTMCkkgKUADkgdtkhhFd
SaVBUnClKBDfXq9U9rqDR7KeN+TW6ebx5dwbuoiNKbA+89vp1eC9VjucjX6cLB977xYSg2nLPRzd
5zefw2aZaHy9kX9WH/83/14j9rVNw/sophP/lBH9LLYDTG5dUNoDGp/9IGMD/latt0wF/brdLBlN
aerXeHPerpUByMR/eg0eRoNH/qgK0OiIKNtafgnhCdxA4Z/rJT/eQeIhNoiEoaY3sAnLBo+J8DrQ
RExURC+ym0LDGD9ZXVCx610QTuvJ8O+v00W8Ge4ZbWnd8DG/vcj1/Zieji9QfL/WcDlkJ4/Ch6fL
3wGv+MB+CeqCU9dt5V+ZHx80P2pGe3fk1/bsfgiCfl3J92Pd5QvAldg2U/wG4ej8/M/lYC6YABUQ
BAyGCHG/P+KOtwOiSUj9qn53j9hrNw93fR5Qin0XluuDc8hKny0d9j4lUoyDuGaE1UhJlythgH9s
J+yNRBeQ+I8H4FpHbXL3R4ijTY6ks/Q43bj9SsG1f6/Z48dVWIyKHKIDqfBNghriydOmc8RI15qm
VJwhU8Ynae2kU0gYkRPWIKPJEUDbxX3WLFnW7FfQTvDy8Pyer9XpxUy8PkPYAa8n5twCnZABJF/1
iImf6Dl2XU799d/fRqcjEq5c5iFk4H6rcRZ+seU8T3IE8fMHfbjIV2ZtK2h6PGbOztx/bpm2OM4v
Nc9QKigwLRvhax6TT9Wro0vbguGUoRYZQ74BAIxiQItNJJUC+Mqdn4gKRE3c6UOSoAUfbzmDGxJn
/hSRm/3uO6ia8NlgUDDdTeWqbcCs2nFYRVsBQoIc+KIsoqguKR/fb1/FpelFHdWgYhHUxhg3e9sw
ePPKCEoB8QuzkYOQOCxkokEqn6fMkYBUj8WChR9V8ASXFHG+nrA/q+/w/hJ8f4wMHfC0qTmzhQPa
AgJM6c9Jf07eFoxINZXwJLpET0NsVm1jCAaWbyNxLtTXp/T68b0tLTWFnloloLg6X1q+em7q71u+
j98zkYrClwhaVqRtnKuw601PAfWS5hOM4jVdbSxUnTWK40zyrjS79NVocvjCWonfPugwOWoQ2ffB
tVuN6aqquleerqarb2RWDRjeNlMfw23a4htOC4atnCzOGsgXX0oNdF+qClbmZvExDe+jAcC03LfS
05B41W0ntaEIv0hAKOmy0pad7qWor3UhZVOzqDFCzsO1xaAfaUS1XNWhnKCIkWtDZnxtqB+j3f3B
HUB1DpLjbPJTTG8Kvxs9zoc9uMQxaclat7XqsVhWCnAz5THKVQuq8hHOYZtPUUlJEF2i1hnx+PK0
qVNBfYV4LS0TO2a+w1vUumLCcJX2Fzj0GLixg+jxzxq7XJZbXeTizXOlTOzrnp0/wA5aQ002F2fr
BtXYlhtosDkcbRPetLGLEQaDcGl6UfmFYXiS0KUzLdFk2b6V4dpKExQaTfXS986rrfFNKzm+GtMV
eVw16xphY17WW2KFWjiWqs+LWxF8l2aVZnYNCqurh+22bGtL9AjLvk0rvNtgiQo2m04nBOY6PbFX
a3gzq1pGtI6q9rSfKTrRvCa1ZxWzzos7/AIPH4+FhRNJSwMcXZzuNZw02aG9aF+w3xm/FVM1aaVn
fEc6HMGha1Bl5dCM8S4paWFqaW1vWMW8PbpE69+Z0TeS/b7xVexFDGCWMLWEhQGJ62yhdbskAhyF
sQ1pcwWzEvCBB8sFoEgkhIJg0gekTWGM5eXr5+zfhe/Zvejr4p4UNC/r4d1jfnCrxQeEo58M5bU5
e5UaeUQIg/EAJMIRKUtK0FAUiQSsQRQlBBbYhOmdr30TrwAg+peeh8SEQOIQSePAdetuLdzb8efH
HHj6NmGzrXriDIhIJCAhvYRqhIYSIT8OD5Rfjs+J/4y8JxtRG1EhQE6+XA9P503bQx1S6IWipIfN
FQuHQBD82lB3hF6Lxy1+XmYvBmZDbjgHqFTz3vq+/IOIaihqgqh8wG4pKgGsiGf9N/4wsQ8+Hyk0
nrwolo8oQ3R8IeD6h+o7zQRDZmcMyqIqrW2vBo4QJrVYGGwAUibASH/vDtB0jHrMw7/3ZqQiMjPg
5xCwcLnHx7YSTCjabN0/PG+FXoa1484vsd4ZgIoiELzA0ZBmQAREsSRIFBBIBMBMPOJQUTZeXkPY
H5wb5fJnFvn8/o4GTD7RpMU+VBUq+X2c6S2pP7KpXz+0q3+0pq7Ro1zmOJ0ecwk5qtaH3SSfAJDf
ghP0KINIfwE2zzHLQ55cY1g/fiszFz0cDispx5YcJ1LNyrYap4v6G2ssVbV9ds6PWqtrBdak/lTc
V4CoEIQoEjPyCNUpTQEA0zzyo5vQh25IfRE1QUnxAJlxzXXs4wbpz5a77U5bWLc4ydGHSeKk57pe
OL3lOtKMrp6vbpoxQLl+o2NsFqf2gC9r0xGhfPTr8QhBB+8xMYxG21sTm1IQGks0JAYwYlpKgmcw
SEGcEkVi2CggoJZFilnSYKhj9WyFMU8gMurNZMaSxiRpzDqKJcQRsEyb1HOaxbSVLOHAOg2dgmKI
tFEbFtqikxDtiiIKNjUzoyltmgqghSSQoQjblW52dXjTnpDSHFPkknzqqyh+9fEr/Mv7+3e9zKNX
ObSwpz0nNnC5jHnxHs3MgdAoAUoAUlMCEgJLoWLBhCdZX3+b8/374Z1nvnzw/Os41CX6ooCBSe/I
ATOKysNx4IAiOoAvt5OF9Ry7beXNDevlO2e/CVPLT8YZi8vyLgCqxwDcI5vNADd9HYjKAh+G4/Xz
3E4420hQWJ+uwAcgsXOAvDWVf091y7zQVLidwjRtc5G4cwY1kgDQRa0TTj8w/SIIhaCpmgYkmlmV
iT6mxQFEhCRASEhh9Hx9or05HucOvj1tLw7u9Q+MIUnSXXxff4NfEXtOb19WhL0pwgfI6LWFlxTW
Dm6Q2aByERKX2pS97+rOpWt9ZWg6sdcQWEJs/EITh+z+B8FPmUUerMif6nc2cg7+/7eO5FeBSYGT
56hTBUzjT40nxI2Jd4jZle0W2lYyh3IIjjSolUNsIUUIsKjgptgZO40pwgLt0twwS8MGg5GQO8yU
9xjcw6KpAxs0HSNlyUiRzmIGahj0+euh2/g9Gof+7+vj+l1XFGjTA5TVW5VzkG00oda0ctr5n4/N
wF8MBn1BnegOUNKTAfSkrndqdd/mOHE83wE/HNEf1nmCIVggJpiBA42KFRjPunKQDO97a+O/IKNw
HVHK/JL4UgTTTdqYh3PDHhIeZAaskq0ZWoDSmAfnPjQoZJWggqaIwOm4BjBch4ETi3ldMDW4zKpA
phCD9B1G/gI8eduV0PtDzvyacsDjsItIcIjsgIByDBB4Y3I2SABaALwPbxH0mb8M8zXrCWz87RHJ
wrUOkOHIy8i4mFthSKJMbDgiqQ0BSpEP+AD6nicRPHZTKkOGfIV4lBSvJU1L9x0clA8qYLv8xuRJ
zUMv7xrmAOch3UUCQgficyUDYvSAUbBiHSY2FcbONFlL4AM/oJV8UeeQclnQpSC5CWTqdKdNniPJ
hsfQZWSc9sDYlUO16ceok/Nzyj/SCypj5if2Z0fTpikmkHt3i859YoChv4cB1Pz24a857t06EwVE
EwUf5vT1GHxkZtzRXMgNBz/bVDP/W5SWpTBL5zv6rHdzoR3U0N8+GAVQaCCfyfKdzgf9vCddueWJ
UzUT74gw+v6Ln1B7fNl9nSeO98n4ak8OHT67tV6fd5PRjh8PZxf6uUZVSCFCpEtVBInu0EacgMER
+73IeKKK0IDeNFX+UZEIFQ2944bCQ3olY9rRyMIcf7cxLnkgnDq+3o27DEaSAl+avmotVkT4JgH7
MKCm2xiGgE7qjCqwtf7Igf7ieyeRReKTPrwy1JmsMk1Amf7bwad0ogfGSlHe/XnChLfAMySgz4c1
1YHI2eizUYSRD/xgyLiHj17Lo4wdhjbgXG1g54AorgXAT/5Iob4IWiJffQ6Bke9DRuGrZR/KSI6O
XNoe2N4YfNNTMSGBhQFER9uUw+6wTtRxkHVH3Y+CQ1khhyjqX9Lg0dSTSfwH+xvtswFUVEedjxcp
HrBkJ+AhXpDDF9P3scCjhi0R6O+YGuGYR/8RS+D5uGhiO3hgW+InMiiQm4NkYy5bTYvn0fpoNYSa
/2nQFMTFRUVHftzkSXPsd3Xsul+o3TwytF8/G64hTSAgMD6MSg0erPkzs6bGGCJDKh3SDpCUP/a9
uNW8ImtYJ9kFbvts/fAQ54rgPEQJAN9icVNkvROugxIY40Cn6toGCUfzuIuCEBx4yuXxoTxm1lDz
dNmoDwEowQiGN+yD4OnMv1j+lIKiJYLFCIReMgUB3fkHA1D3R5Ob6q9HBKxxk6Kqp3n95V+PaWw7
6LxxO6kOZQA8SyhSKZ9p7Qrip5aJpA25ZMoWgHgZZ1z7v+ONddZnXkWQRf2J1YfxG7zfpPp9XZ1H
IfIZn8VefnPn/b8p06uJNBekstMCbFZGd5QGgJJsWOY/SfvneBM1BNUfq7c0L8ZfOC+vqiUaoClJ
IEGWeoJOqlADAMYd8/hdclkUijwczxQx2R/RsI9+KU/SbnX9HzYepA8ivpncANrEyMgqaUlRmVpF
pD7oXEBEJ0EhwMTFGZoaFMIA+79WADoGCYVP6N8AGCQpSgllR3hEDMjMohsCAbEHtKCZNjQIMhtm
OBKaQimIihogIGYkoCAgiQoQiAgiJShKKBSTyAzRckyYUMqDgBIiWFKnX+8UwsJVCIQqwsGOpjZG
dd0mGeAEd7tHJLhNhl2JKTxE/aJDVcgCDmM08FiSWaAsxdpaE0qc+CP1wOpt/J3oyQ9QT6r3tohz
cX6gdOcDzK5EWQNNf1WvqT8qd4jvC49ifOZ6LaQQtjD3Y7lwfd1sMTwDVrg15YYmNbxXwoA0l3IU
TA9w6ZeY7TIyKefDu8nd+vDv4zZZ3GJgmCdaMiEAgGsCmgEC89cPL4jl+0/hu1hwOLKAWNj42r8n
c2bRMBXTVluDRDTC081GOmDYzCqLarQyPMdCLTNNabvUqmWmYNFDG20Daon/BHoO+3YWii4eO2ce
u4501Q8YOREHZ12CI14wesb1Fck++GvSLaZtJDX15A6mUNsJvkhRZBq3ab+zMVg2rYFU2oSj/eLt
8wOWitGg8UB0xYMZokSVmqKkTGNvWiEtW2HJOGUtHXzHGxD9IeRfYu/PRDiRSepNoNQgQSacda2q
kW5aSPU5dPS5BZZIwFvVnzRx5zXefOeQ+EdjoSaHAeo8Om7ggxIzzByAJCB0vv0iOXkgeumUBOXm
KT1Hhc5up6mgx02dzmZWVv6+7rahTi/ohTG2+LpFc1VcMlIjUjGhNNJjGVsqrDSKJQhsJTmarLGK
EbyLRTF6k6JLwlK25uMXBjkYkGFF6VgWnaKKKEm6GCRG2jMvEOxYwL5jTV1CJNGjuqrUiHTBRhQS
Ez7JdyTU+i9A953dc+so6NdIOHTKjXuDnXKhooBPLbGjcMDMqkhMYMYx0WBVKPaDBDyVRawOnKed
zHx7t0xeuKlBmZ22xRTM3RZRaKLe1IsBKoQaDG2EZpkNyJo3IZoTBkISSQcdgqvTOMugISYb3Vet
k5BhlaAi6vxwPOPfXofUeiFPNn1GIDvSObjqmtnBA20xmnV3RRigVFAqIKpsCEIoCkOQnY70k2T3
uHEho3mT4ap5iggwyFu9zS3AvUppKgYWxiTYkkUh6sU86YNVRQVbnPee80rBiMB4Scg9FYxHAN6p
QSo9xiHscja3mxBiIh17uxXCSIfdp9+YDkT3Pvi9vJRiexpE0K0DSJz3hPcC+/fo4PcZOmMCtNJl
95i4ke9iIcbOLsq8lE8767y6synrwnPxC++I+5PXRE16CMShBgBUgCEQMWqpDYjdyiZHCIfQIJxO
MHJcNbJkFvrpCZAYahp0vBX+unEC7a2tlXfHQkqYCUjN0QeOKQCFyKqwZMKXLSicZCQ00xzIeHpo
ZrGgpN6q6xrY9miPLlNFMAjC3bTBpXWOXew4vNrkkXeW82KCYK0aN8Uqo4oCjAjB8UqKmhChsBtM
KaDVOUUEIPb3tatUsVNGOQIreqB6B0PCWyJaxKNY0QdyDcuitkJlEVcXR/U9HO84tW+NDgyGMKGk
/9TL85Wtw2PVSLGgsqdQrktUqkfr8KobxxJtmcjqmo3CcEohzIUETRcHPFbZnUpaAiGK2jTVbYaq
LGZTmhop6iV1jRQMY7clkVDKqMpEa61Sq3sHyynt5REKuCKysi1kwC1cPneXjCEdevUOpNcugsTU
Qb2kbkQqdM9xiOxhsuY1TA2zB4MoNPGGUaxFQItGQS0zTVMY9bmmIbQqYTIFPTW2sl7tEappGNBF
JTCkmcQzPArahVorkefATNdWhQFnPLhCa28MTJRUIQw11VCJ8jA3uDaQcM44iFXGen4cOY5cC2eo
ytUsJCYnAF76yMXKE3qT+nv7OTu8xd2wFc+T3z0n/brKTpf0aGc7QxeP5YadhKvvnR1Z6ZVaBc2N
MUasHYnOt7ukWmnIDrb/GQ3fe43xKmdYa4M4rK4Xz7vj/PrkPeeBT1XJ6qSQz9eOYHg4HXXZmJBz
bezsQnL3LXHF4tr8F0temlYYE4gytlwtrg2lDUTNP5S2s+ItSd6XotpPwcKonpfC20rfc3pJwwuT
Skp+MNawiroNXV51011jIQ0aiQnPs53ynC2mL3da1dmoWtHGx0rMINZqqxpXGQaVtk0fh+99K6QW
OGiLSexs6r31zeb8XrL5IB/Pj4SEaR11xsLRe7GN7jVX117AYza9pXcCbxY4hwqkQjV0oDSkjHQJ
pFwrpocxfZaTFaJ+v94HegMjeTCExTosNF1xusaTG0mfpHSN6uO9dxSv7rS0vGKjbSMeKtEYxfSx
sBqHOq71dc9yhXQrurt4aQzHMuFG8jk12o6i7HW/MeyIgAAFbOflxlprDQ3bikJXaWsHupXa+lNY
vEtnuXCo908ynCv1RwGJZxikJZvnUq0SaHR5h6oiAAAUfW9lsrXNNMa3LtarN6r2nBvud54Ed1kY
veW6pd+enF+7rek+r58dx799yhfIo61M2dOrzQyi69s0wq6LVW7JmmM5gWvZ77xq52GOJYtPSNmn
AdbVtaOsxrStdFibquaVhHRb2falLq6zOeJLBbiu2a/gBkbT+AKInxJHx6gAlEd7kg5HIgjX8jKb
VJxuq/lqz9TLklPZcToo+bLP3GvwGbNmaKLoUPVBoOFZvQIxY7UwPAEeOUZZiMpIxpL8tgUhlo4H
paRaWmZqDSNiwKb2swVN8yCDSRwRC2NM0FcxEsKT0NtWHMFB4JRTZyikoMotx8oQb5GjoBdS7HEu
G6xISCqBchhRpW67aTGzyOIUZGJWYGDWFZT0DK9E4dDj7YR+EvDtgoYKUs/bHvuFiiEveRYDw6gH
GDYIrYMAukR2LAxNM9ZaGK2iJFmjHMhXu/wk1umqgxArDgt7pJmcDEy2Y46vTzC8ej89OzodO/u8
/DxhCXnWEBW0HUxXEsV9J0tIbBtMzpp8NFnpH11wztpWg/ZVbZ7p61rmjajCD+uWDDY6IAaXucYc
DDDDHr4rmhjy36/Z9nEWUHQ+QiUn6KLRQ5PAoNS/+32/XweAbEZNu4YccDtSJ9N9dxgepikR/jnj
8Y0PYJjk8rqvDh1OylrKH3s7XHCZo/tKSpKmSE2UMTQH+NgfPFD9hIfL5tzNxfBIEIm8vVS354sP
UPsIRYfxt5lzDH4HP18/ynijinucNi8J0QxBDKmz3DAA1EDFbPE/oOJrlLTVUTAxHqBYpAfneCmr
GnoK9Ps9Xj5reictPHP7/EH5UP06ynFxFJRLnm308JwxMOs+q/Z1DOt5rWSzpOaulj21RO49yfYh
QhP+2+1805H78tf28lp/HYUrwOt+vVnnpBBww/d8q/qHy/rtHlbLY2XlzbVYctpT6cLOtH+I6CFM
1zeFVhmUVFL3vgGcLwOTGcItd5lf20qPADtttLXP6q3zXpG9KaQ2vdeHxkeNB9UEfcD9NB+hBBII
QlCUQkkBAgNV6DDa9dXkUcddN3a0Cz3laTPjBa7XvOsheNpqvKKIEAoOHv/aebw4Z10rnRvFdnrs
WOum4QpQq9cYlMQERMjRQEtAk9731Ho6jXLuBvxqZAIiYBYFk8/oPCvN83r2h5vb4atcJJ2caZQi
JAIiDESED6pAEMJRKqgkmBiiZ2lR+uT0Q6jgs0CEBlGCuRSkEs0EUKOhMU0WqQcQhSBErSn3SIGJ
SFlCkopCAIiJAhAAnXrDx9enq93eOreWkXShPwg59Zu7/AQjag/ifTkqlCVrOvprpbRywvmrTMpR
fsiIECDghAQaJopRIVZZSADvkdHf6PO8/24fVFI68uLwQdQQCQniUfUHTjL8EDYhG9VRKIR6/mPP
RvvYj2Qdwfh53aQoiU8MDw1pdMzkU0VIIvURD8VDTChrT1dFJjkiQ5LCkKjJeXMAXCrRrCpZEknf
zcmo6eTDs8Pdwz4Pq5Jj09fTuGEBZEQ/keqvm+qJ6yxiW12WVR+XWHtwePqw4BD44vYMwKIUoA/D
Rr5/f29PfDuHgAOAej1GCHUlVVR+2A/dDokL89rGcB5SLzw5zpDzgic59AAiQfPFYMDnLCgIGSZT
1Ti6AzT8WKQa/LmVpNH+62MYOef3+BhzRKgmxssEIhdRFihDoeEaOSHcmuKZCM7gL0hA4h2XtOKA
gSoKSI1rQYjQlaRxEabEd2ZIgoOaIECWUlbYUFEW18d6wASL1qkI2ZbHmMbmQ5C98/t1nDjDgff2
L9Uh/kvzQW56QA2zIiKG0QQCg+flNvrquf2/LPklh7QVYfD8Pr9jH7y//tFqxP53FzH9Dito/uXo
Kwg57NP9J6yGmDbCwGbP1riK10k0o5p+CfscPlHolPwQMBr/8gEKFAEkGArHpiIHiCIpq83aajVz
h9qcu2+3Yc+d+jUvsIMCOyAUa71YJH5o908fdWFreX3S2Bf0lHOIeeIbwjBAOU30KYHv2VAqtk2a
6wk5BQAKdhtKB2ggO6nbgDTxFqU/Z6n7UgQcD9oROa+uGqUqDqyqjibdoFqaIMaeriG9DVNUx0iI
NGh2mKgMSrOR9PXSJrnKThA4uS1kJE4EQ4jOgT9sOMbzBFR9hh6Lx0R+WDOtfo6T3v9Wa3U3IP8S
5lCwLREeIFmzikoQLAvnCcoh0iqwLWIsZA5zAMwgcc0yOvp837ub4+42B+EJfHy+x/J832nqE7Xh
AkUghE5wL8sAnnb0AX0Q4bvRf2+nI+YB58YNDxWnv0DIw93V4zsP8E/+DvWOOJPCD/msQ9Om2M6/
0SGKm0YSEPSPDcbPB3WcT+HL+u5cffBdDl5q6vk5wPqB484H1bULcc42O/OlQO09a7cuaBh7oBJ9
Ni9sP20LSQXYfrocCAXCL2Fq5ySqpnvvXdY7mOcuB/Bz0/AzEBSJAFApQSRIol+K+6NTbA+uGKH3
GfR6MD49vsPkTp8uB6zrDb8njy7NaxE/lFNsf3eShh/dVMkYQHthwTS5ItUBQHjxQXf1B06OAXcI
90+WjwO5o8sern5ztR6/v3pwKYNSEYEKpohJF/sT0FKKZ9f2iAPjTTOGcP8JNjRNQaKKqQkUaRG6
nLt2F1CVvdzLEUMTDDAKl0OqUisTpRNRFcy1RcI6qBTqyoFNJtEigNj3RSoWRvJQ7iKZbTovm0U2
yxjgXSrZCMb/w8R1B5P0NUi8nCZ1e/sKHCGuObgOJpdPKF1wydLEcjkiG3b/xKgW/ZDs9H/7/7XC
gj/lB7avbIMqMr0Gh/hQGfJS3DOipqgmqIfnC8XDKnDTUWD/SD5zgcOPm5zE8jOpDssGNulQAf6r
/eObnyaxXJnWy/8SyAUnnMa7DOgyQWXiHm3Aj6d/l9J6d2fR2+l6O2K+5Ef7cciimJoMhMig4ymi
93eOO2HkpqIT/NJpoCgaQffjvh2Q0yKU0sRLMd0/fg3R6OanZEPxJR28sehNE+dJ0HyJ2mXWHzdT
yc05JVVHw8J4V0/d9WvGZS2/GrneeNWSCZBhZxJf9NFr3s2v2o0/4MPDEbGrNw20F+eJss8b4Pod
EK4S6Nqmjn89LxpWfUrUfqeq9r66j5DlyBTRVbFwKQ8kaHFvnKeZXosjy6dvuB6A7KA3sdt75p52
N9Jgw8Rli4ZgBEiSTnSdIsATVkwFcBpPOvjgcZEvnoeFz3l/B52A0rmYGbfODjMfCVbo7l7SUPT0
pJzqp3OGrs87C/GWCRywSPFEGYNpY+zjzzLcaniINiuCFqd3zlBgGcdHuoB5x2dpCPb04uXV84uq
wcBZCuTH7cpi72rBBo5KqefWeFrshOh8Umjlg3yvIPjRNjsesDfAQE+YimKjsI4xd9ciYeEwJN+g
u2LzNI6ApnSRMLLDB3pHA3FZ7kpvqoIMAowlLCs8gLo3WcbNUW1x5h0eIg9tPv0oRRzzwr2XBBAm
wLm7M8Yelq0DYHo4DXQwfljBpem8Z9rCAfor8LVAYtlziEjDJcO7BrbAUXAIIpFUQI5gL11sLTtf
SzSgAgAIRax1A0hCChH6hEUh7Rjz0ObL7NKaOGbTopWpTIUX1ZyPNvADma99TmT3gceGsZQI8axc
I860IRMuKosER48tJ8C70eZ2h1GsOujfTh2V+IZzo45LhpsD1EIKe02GEJAJCt3ZLbqQAh0PD8hN
TLpyxF+WvggEhuSLmO9HkjjTQuMAxmJIx9dUcCvEFmylt6MY+YRp6cYawSDZV6qsPIuBDOtHIHei
OZ5stULMUPXAmDS4Y+CHfmF8mqaB3tUJJJO4WLGFX22biQwzBaRcIgLMwWgMinMtFh7Pr3nvUXCv
RMPrgTH0Lh1C+ZVpf8+LY9ExbAos7Za2y6IQHoVVIM7iI0WJxAxXBqFdRe+bM5nIJaxPASfooKKi
B7aOgSdQErQVhYMLYgZIEndU1tQWDKO8NHRzrssxowqx1EDeqeCBRmZqh8KS9EoOMHYYMWEDs6Pf
csNIbIByVrhcF1guBs1VwuVldLGkRaz1kU+5gmQr+OpRZrpL0XXXHZ6PvR3k3ajt1TM7kKNmsEhg
OeJbTjkohM0cuERwDhaoUKmRcVdQNj0ebKKOWttIjG444hLv06DL87FRa72KbOSj068saCzhJXyY
lcBsjfg9uieB8puEWUaBDAgkJArQOerp0yYcpez12ehvffBe0rPEQ9nBRZwRb9Z3aC2AVY1sGlbL
Ya5mUDlVnvfq+fHVFNNjGlBkZiA+8+Bx879sO4ptZnIYDgz0OCPRZRniC0r28zkPL9KK3F7LzEDq
bZtejF3os0DY2w8JliS9boOWGNbWVU2LXMs7Bonqiig9Guh5zOKiDhApndsh2KuXapQ2yLMVB6vR
aSg2FWWYmO/RgXhBj6GBzYaeH3AQfOD2GI+fArwIJfbVMsxqIOkxOdvUU654iA7XCB5Qo48TDUY4
Ao0RhyxdMRjKZe4Huz1YBjRpo3vY0h0vBItPTQI07Qlnkopikq7ga4y9JJbLFoWYWM79F1SJ4ewp
tNCFsj7ONou6gFNtUKC7xnfXC0tjTORstjYmkGeWX77QZm2e8hvPM9D1XdgYTaYBvMoxj9PXEDOy
c1IMNa1iSBl8MjOGITJAMYRt4V4roQk9tCoGL2Gb517M0UYkAYvCx+lHRVryeGsH5Isflb4NOyL1
W5RzQJcWWIj80RUQGT1hTTa8DshtFDY/Cg54bY2cbrQI9D0J4ds9GkNnCupx3OASnLPMIN8BBgzC
b7R3S0eGFm7yILqio5xTSVANUrUaFi0dLOmdqc8E4IZoGPQRZQV1HU1nDBLFCHvhLhrSSDxU/s59
SizNjr1PHXp5TiXA0N8cWeNTEJRxi21R+cgej4vpikxA5s6vAlPdjptjAOATctsTiCTdgZCDYwLM
xTBMQLpxzLiGJI3IQiS75QQfUQ9kHcBj6ZZsQaoEERYI6OP0fkDOicoct6nqQ+VXLAUJtjvtXNK9
EUYdDiTMKrpjDdM4QloL24GTmNoEkLLe4apO5zxtDYW18ASaEmdFbLtXRePAA+Q+8s+Bxbkgb7iN
IDH/qEPcUO4GliWGmK7qk6gB416KkGhM0mtsNPtEhBqMgMMYWnG320jhij34nRrgCVy+x1IENQ7Y
U+R+zXtXlXYHsw7oEovDEj0GG/QzqxHn051ZpopnKaDfBBBVTryTvqKMwdAoV2jB0206a7bThntX
CMmTDcQbTXShaLYqGCOmKzqIx8DL3uNjaRuorotHFWoTHCEjLOLFHhEAybhSpbfs9Xv46CaYJQPa
LhoA5aPfAS4r00N16leUBiA4TOYLNWmAcV3S2ToaGi1DczQZrcAvRfb92tede8T676OzC1uprmu6
iJkICGCzdShMdUlBiTSp8ElWRVrVIwEPsagBgcuBQcjJ2rncnk9mxo8uDnMA4o7enz2LS9BqrfNe
lzbQDjPSoBrk0CXkEt4+2TwkeQgcAlfprXoQ41306d8FUkUwGMXqzXXgoXDFTRGDa68LrwWtMVX6
lcqwZSaG4BxN3qCruRCuWcFj2QB6LlqBCPQnA0GO2ByMKZokApPka9T3iA9WCyPRZkQbAQBIIIC8
I56+K9UKIko4d8BGml6NsjMOwgDe2owueJfJgHoOUiCXtJtDz2rjMT32qF6lKB6MDfpdJAnhPO49
OBGg4EkzwtVvMj95W7SnpXj37156iSpSMbTO2lywNvprzcDROK7k9IQFSa3he9y8FdIVJJAS0SGV
BwN1ZTfDZtXaTvRtAB3QAIKldkAGGqexLD5qfddsLF/BZnIabQo9oefccIAyR2CD6MCh77HyAzWp
ZgoO5D0SBkI9qMMBwyQOyQO3b9zANjEHbQiMBzjZZaENghEri5vwxlLTXohhs9IHDQhjrG7CmFtc
urepqUCtBuGcgeirrhkD31QqEtNWD0rRBtmkbpCKTDudKCpCV7gIz0Z0MXD717Al3qniZrteyaBN
Am2igOvNVbq/hvVv1vWI9VIV1qq8nooMqw15vzfdGtX4qhuHRdDyQ4IpCtECZlogI12WeVAlQa6A
qG5ewSib9eOeDjCC43xahmWrBK46UTq6VaGeCRCVP2rHscydjHkcE5Jne5oR57dh5ICPjyEAiGmh
ULxb9AgOI9+n7b3XDgry7t77nezR7Chq9vg24Eaa8Y/fhOCJLAYEuPHQoBNVDvuCvazQMpM28OZ6
pCwTSS9udKgpybMoLIhy+gBcYsCvQCBt+lF5fdevtZ0jxId6I36eje30sBtCkQ8peTBhFrKaBLS9
a2ecrlaCxwPTdIDgYKs4knpdOpni6ri7OjTvQI6MrQFdHiddcV4OewSrDLVJ3IJHD3yqHs1uBnwd
dazLR7p2roJN2LL8Wd8QFw0Wy2gYwph5aFw0qwI/YIjmkdNA9goGhww2K2ub3oLJFBUFhFBbTLwC
Q4h0PfrnKStrUiEvdrZAoofk7bpe5cNjTZEShIZlFJtihdgWdo0aJpmONbiMfwBALKs2xwDoeet+
ODndpxgZuIm1D8Ia2Mkdy5En06q4siAwCpCu0mBiDzszE96ur1s8YLqQ5Q+8O6w77RtFnste9Ilq
eEmuKs5s8j0jwMINCg0ZUCdRChUONXZowijFoO/m2oqKkJpvwIsPpaClHk5ItO7X1dCUQOi4LiQR
Wa/GIp5gI8BEipfdwsHLCDYLEG4gseSJ0xqJHWo3ddQ0CUEMQaqLjxtm2077ZlqubKfEhWylzWFL
TegKOW28RpqXchEeN14J62aFjTubYhzZAXcogSEDDJiE0HptgX6brnBwaXLk06D5tbMBOXld7ByH
JBMJG9gm9EurFUdINu9HdHWY+6EtXlKN64Sn0b1lsskVIEwUUueYfwOxojiBHYg1HeU7liB12m4s
6vXADv2Zdm8BGwyy2jWn4LTVshvKoDvqknQOPBDtUGxB6rBmY4nHtCX7Zc987B4OmVWBYjFw6AD7
WS4ZrqI4q1xESBE1g0H0BoJWVQC707jlCgYfglhNWBHLmSiR2Awtw5zowAOEMO0GYDerIFdNnXfX
BoygI4wBsUQmccJRmR4EXIwjsrsHjih4AElxpnpg1XCSbuZ7FCRJpwgRyrB9BQ3jHBmx5RNN54Zs
10ehvQ+Gz0TKOvnwjlhouN+GA7x1tl0EJFnt+zwQiLIgvXTaPVzENMdD0AHEc7bgkAAtJbKbcnVz
ZqSph4OBgJbo9lyOyzHicQVFw8EP1Lk8IPSFU+vB6oKmPYDGQQ+DXGzoDN1pPtUq0xvhZbslknWB
GDBsLakTqc2ToUSmPRtmpM5DCPRoOieIYbMxyopQQQ4CAGuhwAwLhyWZzN5LAZYvtZ1Ctk2IJyJG
psLmitpwXSS8EdF2JJ5KBJJdEghv4L2R0ZlMahb0ZqAQm6HbuSw9WKJlZ6mexlrSnmiOq7otzvKL
unu6fMSJMCYQRPSjrtP7Wh83OU5kSWXCkCFIQr2upougQXNOKTSCDkImdmEYbVJYEkHF8R6xXhVZ
rQa32UGNW7ZwFjAitrUhwT7faTBD0COvQheYckkEjxqKQfI75OEldKSTO4HBJjvg4JoUQCSkAe9Q
sAM3Fwmx7fSrIgbKOmGxmmiORuShSMwGafuyLHO/FVsY+PGaQFCYMExNJ9ZrZxs1ZXkh4PE4kDjm
WcBbbbZ0QQMZbBFDcVjTTu7ec12lHUxSaZq5W+dQwGXoVs4r3ZldDpHJ4JGHpxDZ11zC8GMyLwgw
aKYQYWCWFziqNdbNdIR44W1lUIjxotvV6KiMEoeQ3WHxTd9h4WD6rq289DrNxtos1vA6flVo7vPJ
2eS1rcRElvUvaSBKb9D/N8BCYUk4Fa3WC6sIyIBIgGKSWSScmhdaUItI6dFnr6y0jZh6vCpwv/BT
WHE3t9Vbbp46ZTTzuh6Oa1bNZkIym2UUbotjCLMujbpCYU5UF0CJI/HdyWJGFEofbubPA8uPouB2
QcfByQCdKSrGhddhP5WgnoVLa0OcCPTWuVbkOHDHp+2kF6jtSQYhrA5MqJJeYqYmcoFh0MBdjgMB
wEOtVljhdtENvag2amg9kNUgd1w1idd0au6fnAMFISH0ddC+mbCGcKhR1/shGUg2hEJAiqjWmXh5
1MyEomSqekC822gb78cdeaxG0hdQOeIAZvxWkSLGK4Gd8vrIoYzVE4hFV3IE96rhKxXhHqg83I3B
S3+sacHshA9XxB9IQ9szHhEDndDOU9raCSoMGns02pkICJGxjEyAUVu6QnDfoZBkRxNEq6FNBIjC
XGSwCEAk/r0uGRiEh8HazrwLFEyR0nAOfrzRPz0EGaztxjnkvwsOEsOBQE4d2DqxIBXnq3RIXTPU
hQx7mmViHkkdHj0mszjeHCOaJB9Q4wQxDLWxaEaAEXN4V/T/Zdq+9S2B17XaNIYxOsPjl0Mpkfhm
mBghu2MXfw58+mTZwcFjptcIClSLOWjQAJ+uBDo1gAtAomShzd8FeH7PL/Z4fZ39/9u/n/PrB3y1
f/t/KsaPnzDvrN+MZgtnVxd+QzYjDElLlP9kJ6RrcqNPjCVrhdJ2flwhF1aNUZhXzlgPOn6OAtj5
hPbyACWKOuGuh46W4D9bl87zfGEdhCsXaal4L7wtxxaYtGwhFoU8EDZfRmhm1qCraTnikb6Olak9
AksaFaUePRO5R6Lw+FN7LvvpnMdGpR+FpPUWtVziO6OzxB95O4Xiw0RBbEYYc5qKa5pPPmM6OhSj
qzpbTo6jttZFdNsCKr2QeNO8BNU8pIm3hnhpfTi+jo8FT14Yc7xm878jrCWaVZgB1pzu+04Uxaes
otW0eyPDZmou5tBSdM6vfC+NJTrYZvB/4Y55lmXnSdpmGuOHa5ezmntEPhhzr4da1NtoLC8KK6Ln
GLsxjTw7+5Q7+6nn1d4fX0dtvzpg9ef5cQbydr473avhe3htmk5/CLDu5c/j40fD4dnTHJX8L0g+
GHnsYOXVR5xXNR4G8PGHpUZ4z7ePh8ZPGp6u+Lc/bE+T/bu9O2nfPrKg2tP1c8cc257r7WUVztIv
5NCumKtN/hd+dvJeJeUX+UvaXTjPlXSkIN69+++9I6acu4Z54iOjqefbifb3v4d04+2N/Csevf68
u+XHX3Fztm8I35Lgz5MvnbAdxyw+483UmudPRWD69xFsd9XaDp179PD00klSJ469vTZ87Z6uG3q/
3r6mzlvGve7Nzj39owf5tjTp3Rjkvf0hDyLmn0dsOu16yj5d/rHw1meWwrh+3Dx79b+08438ezYq
fTL1fTfaMpkNtVl6crQkz3w1C++rj4Fx6R9qez4U7NTfiD/ZdpR949PO7zb0buOGV4bnfxlvHrwz
j26ynK9Frv3ejKqyvT07e3fXRvPYSsNrV3AHblpy172m2onlzsy9YPeJQrGXamU8UHrh4nDnTTOg
toMTdRuttYLOl2aMZWncv1vInu+F3Wg+2jnZaklxGF74pDM2wrTybUc+lw/GIpNR1lmbwTFQcqHu
zamayjoWbSXCCSv20nlXhrxvqZGUpQhZg7ac6VmrmxqqXzYWnoHGcXUbpcYncDtRtMYjjVwG7sYt
XRqw2tWjp7aZuIhtqM+eBpbMNAa5mTDERpK93y0hmLzFeKrvjFGyOy788X6B90amty/h9x1VhQfR
faXR8+/DawalqvyZYtm75Yqr4SvVc1EBGFDkvQJ4CCInxO4QWQAXiS5tFNNC/bbRsTLVfl2WOkhr
3bwtWEo1Ec1oiVrmWg1YOnpGEFxa6azzKGH21kr127+4A+Wm7Cvv6dfq+s0Ulf5vyXoSWKSqa4zU
UojjD9Vv6YWr1y9Zbb/HUbXUhYyMem3TFpijCv1CQfmp27vIIcIAUZLmeMqata3JUO8FAldU3xZG
rcGmzJG2mw/CoURK3y8XI8296eg8jCZb4vWNoeOJo8pkGmhlTkyJDRpxLOhwBx1SKaCmwptclFd8
SsnDyyDsl6L0yzGQdSnTetWWVZGb4dZZo51sLm9pKhpCY9MAg9nEfDsou68SWYGmvG4MwMDQuOZG
IQIZLkSRJEhVFvXOEoPl5BoORSBwg8qXkwHDgHBEoXk8lcTMpTSCQRSKEwVz478K+vp1c8qD6hzG
ZrOcVUKIiicIo0GBhIZRzdYcLlsaO+ycINqEGUg00asHfoNFg+V6omA0MgKIYqqnxCijni2Ui8IA
0zjbjhCZKDkloujCiOs04Gxc4SYxF1oMDJBy2FYob8sjWOVg1RtmZmvXklwbmYalCZVM2hlNCcAv
jguQZVq1hNgmqoXTBY6x4WdWWBIZIbcIwhuRmDoms3TE0s3ppxjupCEObpFscgS6QyiY6TVEdyoR
eE9IOYkGz1HckGD5SE7VPgH6vSqC0g2FwAgjI7ytYzfZIRwQ3o6LgO8uSwZG4uwogpjZGt5FL5CF
0T1DFQlo8CSz18qiiRxU0FDGNJpooqb3jQRMNW+dyGI27wrsUcN2yHFig9NGlJuyBq5KCYWyCZQR
SYJVUQDGNyXitBDPVGtu+F3I2omiacl+AglFiEesFgV5Oy1pmc69Qs0gPB6pZjC4YEyTWkByRwTe
RxkhgbcyG7A2klxsR3RZQp0EXKAvyUWIWGHL6CkTNBOODRrSRBkFWvH/V4QWJI8788HhI9Ertobi
Kakdi0Z7rC4mRMFvfWZREkFzQsGhLSDrNGDYjYM8tbNbVJdtvXNmgsEoch0xGp4rmkQC2RjxAV6Y
haXBfAeGJNIc5W1Y4uD2wOH0hNvTgEqAXaVFHKpMYDYwbBoOQOVxEcNOehlJLpabZCqDWnCxlnvT
EHeZAm8tusqAAFo/pSTBxAT19FT4j29nP7vPtofRz4wdH2s/1l7enrOqzisLStP2wIYFlm1ir8ux
E0y909QA5wz4dE6rvrpp90QPqT9Xfzx+/J9IgQm5tGnJILU5USL5aiAVsQiJ+jRPaaa/7RhCaSKq
OAQ4OSPHhgdcsBggDH6qiRf+8KKMGCjGHHv5+B085v82rG51zp5tM+faaSQUfQS/7KO3i0RKFAlI
8ZfUxSmhFNIkHoBE5ABhn9cAOkKWIGNYAmhZE4T8behlQM54gOncoRgEhWHcGvG+aSS9ABSaWsAK
HEIg1QAf9oQEVT9f4jtzfp69ufl7R7pzg/ul6LT1Li9ZT97TY+VYXV8sSbyrBowgrs1vnQagkIEA
hCOAes3U88ylvfNwmiMphs2r2m+0ERPAICPVIaAMB7jUBB+wh3x8Ag8wUGowdc/UJps2X9r9STPn
3dbArGd+lSX3dQWt17QpaYWsjqB5bgD8UVBxjg4cEQXRBm+tscZ1WULiN7SVzTOvpanGRcgJ7A3k
6enmiIP3Iiwf3DzHjTmCb2AgGA+aAiClIZNJ7IAhS2JB+mdmHqw8nIa8ELHpI0UUvpMQu5sRUBQT
NBUIQEjBKwshBEEkoU0AxDb/IayJ+aE47Bd6/uyeUnEcp+1zPIw3KsSHCALKgNg6CClyWaoDLgGD
pi00huwrwNYDhwOkHR2HuxuWJIhKGWg3nA7cbb1LwDUG+FGGngQUctAUxBRwt6DgL2A7gMmhMFQg
zkA8ISCQZIEkIpAbQaxl7g0jQMVJqmiMY6ZSYFGfU8KvIIMj40NhbfgBKgSoocY2oJ6hFVnGMQ81
bnvZI6Y7EaaIuEU2nECmhA9XxO6h6/X1DiMFXzDSbqWzciQM5KWw6Z+dIEUP7zo9CxI8CimG/2oY
P8ZeHAQ8Rbn+7WsRm0gJgfpiw/OGa44awTQJiBdm/heqNGpQzf8B4Jgcn8IBTACQJMjSEQMAVeY1
4hvQHBkc43jjs3WwntvOepHnw8V5vRPJZ/XTM8KJD65GsRv2lNgP0hXiz1AKlwcbF4dUowF6huDi
klDyDZPZn9AUkIfnqgo+go4sFGQsZZ1SC7OpbhnTtZNdRCDJuFwQizC7DBM3IvIBPq45AbPNyE8z
8Az6Fh+yBreHHyISOnzQFgU0bAPIJcfDezOXwi/Wq3ihX7gS9ASlb48q0QD30zM8GBoTX3r+K8+w
wRHYGmo+Mu5wxO3glFudLPC9hjYHgEDmu3UuR2Aa6CDS0SK9i74QG4AeiGss31xAPHQcMvITODA0
Dva79NecbXIxx7MeAG643rPFgRzK6Fgd6EXAp3QtOV0HiBR8eiD48HuCXYcZxHENokJib2C7dZdt
sz25OqKuOTMtdUQza2wR2mhRWytMV6mKZmPq8fy2i3ni6IFX04m2kHsAQEDGqIT3KvzwVY775RwN
oPQaV+DuiuZy+HCvYqqh8aOvQ8eOmOEIWQ7q5AzK54XHfNEnUiAUPIRXsi0eY+dD0/IvGAGSFwZ4
iLJICMi8SK0lgK0ULJEQzgKgNI8xtypigWHQt6f4HwOWMtFpgvQ4xoxMbRLAQwy6DhMRJsI37Eyx
KFPqFYW/Wc71qzu16P0VUvMkSISFlu1hgBEqwrIKIzm6MRqAiWARK4pSVhLPCF9us3Bd2a91XBdm
BtYBuuC4JjLwMmziLMLV5VBxNIaEmPlqa69bKa4caPA0vgC4gLoCwETizd2Wbnx51Wy2swIoY7RR
O46uzMO0tUEMLXBkxLCLPAyoi4vBdMQZGbHywu0dJh5vQfGcdWslK7Z1WHzo4tF/CO3TxrjxP+ur
8aO7kQmEHANAXdiee3+7+p88pNqHTastWDrS2g7MhaNABYoj3IHkBx4qzuH7OdPRx57DXTTAUD0K
cfNc+O63cy+N0IN0the3j2R0DBLOs+mkNdLUNXyTTAYMFvZoQxd93icn4es40jW8iBI8rxtjc0Id
2LFRPkdgdcY+Ou+qtiWLH3y8pe/Fd+4wdrAh+ovQby5TLEuVY1KeT3+73+3yK5fw+0PuD5esnn1+
0/wMpwqXL9ov/CDSlQGSwdETfp2AHnIzz1y+XyBWMCreN/PPHyvieD5EyNTlCGpdnlzLZ4CscHzG
8ukbayWB3wCUYNhMiiSGRYNjF2hgpiG1w3wBmwMCG4MDtRN0dgbEHNr0Ghsdu0cEwN6l9RL6XDaE
C/bu7+jm8dfFZWGfQc/ScpeXpzjbRVsI+NJ+NYzCADkJhh2EvKHnrv8/L6BT4qIYkaQiVPZEOtTu
+8YAt/r9WVj4GZ5ji4zl4xdeOgrttigvad1lpfawksEQLk0FK7QrkXYrDKKQPGHHkvTyK+PXxGvf
GEfFEGngvn8ESjnWzS7Vd7rT72C/uj3sjkUo/uWY42DpaQzBuHRvw+M11i7qgAn9bdNSiIOOVaOj
h2Db4gXIAHMVXYhABoQEsN99gH6OlprvGHiHqD16T3YgGOiBiCDMWsEiFSASUgIdm45X0h/6zRD/
oBqPIaHKCO0/ko6YT+dwEMlUEYRntZAdig2P7/jnx+5eTn+vV/e7Eu1HzwWJpJn+Uq0mZCfbyXEI
UamIRfS7r38mflx1GEA1QAHxlGlNms/63zxcedwEGCQShAGRQjAWAwhENurw134t/LxbsN2Gfacl
Z704BAvLu7Ph95TbYR7rQVMQspEBFK0Mke0GlF5SVNxPpIVIgJiZiGSRzV4UF+okApRXxelFgeru
nl/N3+KLyUGgEihIJZCoGBYROgJ6wXvaeaqBdaDHWwwQNNIlFVUwEdb7zQyGtvpHo9G3aPXq9n48
wW+bKg79vr2GsffiePf7uLyHEPQvsED7IhAhpiSpqRlhqElKaWhIkSIAoSkoIiliiigkoiJCZKCi
qqHsOi5qHb4C+76RAxQ78h5jiDZuPR5+Lc/CI/NAJEplQSQCh/Jj6ceknIqzijRdyY4OQIIxhyFJ
hUiGK5znCxg+7YHbBhUq0VtE4oo1BTA5eO5dCQgib9LDiRLaUjCN6Cg28PZCyJnEA2EANgOoClSx
SBxWXQY4j17EfGJPqBBSq1APohaqJEkkF4icnwq/ln2oH88alf42fEbgxMFQwVBEjSPxr0KIbfCP
PrNzjLsspiwHCMIiSjdOJOX5P/KP8eipazRIPOPp2BYekcw3Bu9MHMBQJ+V9n1R04ZBEFCQVCQVK
kxCQkfHj8ge8YQIIaWgWaCD9qgfYL9iv61/R/OdxCnhb5vYGThZu7ZjL4f3FrSWKjDIvAOkPSO02
/P6KPPzAtNySU34il+QmgrsDSpQY+Q5zhAJX4/12FuIntCKHUOoISD4dV6LaOoET6QOnivh4H3/Q
N+9jNMxZdvwxhki5gcLLvOPE5sTJbI6WE4C7MMkmcKAbuFNFMTRHc0Lvad0PqLoN/nO+ceo6VO0M
FKtNUgVVKxAtJEgaH25EPtxQyUqqFpIAgGBdg5oPSEeGEwvY2e0UBCQgnRrDYb7+5fn5AOZOFayN
AKHABGAUg8y8nDhxHosAQjWxMGNJo05ThfACTAxFAoixQ4aSiqMaIFyk2GgwuamLQxsDSbCqVNpR
BG0RZqsLGLKpgwqmox0QccgNyVQNoIVpiCgWORMtBjoHOXMbXDicOs5gkaZqMeb0WOkEg1xCVEUw
Y6bpZRqnqzwJpC5aJxAs5DAyzdNTUaJWMBM1GkXS1KgZFwEMRyLhgRcv14ciHrpr+e0oP8Z8P7xy
wuCSDu1KdagdptMOI5T8yUwIyx+Bh35COkkcA2Ij546o5qMJYwEJEwKDHfpLiiqAUhHrOvAiJiLt
a2eFi3+XGXLjcXWWosoDrg/MwETVcMFOQ9VYAYGBr4KDqwvRQSTjpOQ3hDTQlIFFKSBUKpMJ7878
3EE1wNOIgawuvzhwf8gF85RVIMBCyQyEeHfrPxWGqiIgGYCZKiFpSlAIlrpdHPlXl/aec7j8fsJ8
8TRMumDqTkBE2QBE2ecISDEMS6sQgERIRGDgZN90NpOcozLW+qm05IXubb1agA4ayvlweHpn9nex
wcxTMRtAAvcecfoXq8J0+Vy0UmPAiV6iPxZpvFVFcOLELZCoDFE5vLsbriUVH63yYUsAxhU2OqHQ
nClFG+WS+mPD6WAep8QFkkwB2iCPdPXvbKOQSep03WGQiCN4UJlSt0Sk7NAJQ27mR0Q3kV3bq2bY
42SbGTRdUhR2xcZWhq6bgm3RLcouIpFMcEQZPKPgfvNoOxro0Rwxr43xCdgXg9mg0oygl1aDAtzF
jjzgarTVrRCpJJqWsdNpqgKswiRSHSQC5xBCxDxTyHguHTS0HCTqRjhEOEmqos2WnBWKkCaxYWAV
YEJwNNlUFQC1QkhEwwJSmfIsgGiaRTq5hSVbb8ek8B1gHLoACiSkJhHp3NxghwReBeVxg6RYMHB9
ilkHsUCXNk+0Fx+o/UuUq6817F1VjEHuIay3ZSVMiieM3Jzfds+DJpfDMQWIPCMesY4XZucuB1UA
D0c6Q9T/9kpSSpaASWL7ZOtZNjn95918Z3/vP0+FEPNIMkZ+Zy+fcL0oEiwhByHsx5+IfzB6+STa
b0P0nDB8gnP2EDEV0Pf2NL7yhVLFNPD6MU1BE/f612KA6OCKDsMNGSdOzTd6bz91AChv5+LsTQ7h
4+hPeR8sYRCAB3h70L4QffYoSIA9J3zw1AjAseboDW/rTd2VQZvVVttaJ6gp9Uyxx67t7FGJpTZt
QabG63Rx+0PzqNAuLCwZTG+ns4yp1cFSYGBVLAdmn9efu1GtG/2FHJfkoGYLVsdXRcEeTfgVIsCZ
sKvqvVTghnQdyECnoHFH8PA13eAuXGAWMwR9ftzUei1YdvdrGTITlb73ZlyiraKW3Ksoxov1V9Fx
D3EktDNct3xh5h+NaY0Un5pEOj8YONq44Q6LDy6ysIq/aDVTFuiSMtaCPcCnI2plDGqR0EC23rfb
o3k1ywi090l3QbYTCyHEXS8enax5ah1GorQmLMeQALAFBlVKwMqHmketI431zdDz2nr0mQ5focKe
qOd+isPGiT1YiUMTB+WmhE9a6h4D0OthfRjQNAJGMI9chpAEIAVb3rML6gYMJCM1pKyehhxZA0J+
g6bHtvaXd0h8YhKmkvJAS4qDDEw7JGNukOBSpCVFUVKYebzYb53x22xU2VA0kMiyHIJMGt22jNRY
3SSPDNAl4xCW98BXb9bIn331ztxWoiEwTsq2rFO0eBYEsfVpyQUGQ0PhBpBgB2C3AWo+lp7BiUEN
LUQODqwKYO3u5COjd1bGMyqkwt2SbxUOk/NLC5ddVds3k9DsRDGdPzwTY1HBwwCRcWoIEYH9hbHk
js95jtwnlPJEAkEePDtXjoCosIQ5VBIeWcLFL8zoLW2mBI1jqw8aAQBm61V9VZfQNbt6NgxEiQF0
iMmCugXEFuAQoIEFn9Oh1CY2w26UE7/XP/d2hvrAgIiiAHzVAFnjPgIA6LsH0eYYTqo0DVmB5oja
oSDIYcLq5XXRzBZRArEhwew4PkjrrRwUJzKtnYBByJAFTpEvLDALESLkNMG6req9vPsK7NI5Ydcl
IxbMLQW6rYnujtmbRi8tXz40dBg4yQQ424CoyuVYoI0yA2B6RYp1Nm2LSo8yhVCQkxK3yry4LObS
QsEFLssHIyZHA6EwCEIJ0OnxA6eUzjAsd9c3ThZiph1VG0lrrhibYOWZQ1OpEAm37DMAPkisqwGc
aFu1V2wphrdl5YT4TNU4YUtQo0fNiHISLEKbfeg3r+1/BaTfuNMeK8S/mZSlnsmhj4RTXbEcgjvY
WnICgOGzhER2zXQneimqSvhEn5unwPfdQTMzMhMREREREERJNBUxEd8z8A7HxsXScmAJib2gcpCP
AooaKxUzAB1RAqfYDAb3HE4U+wZgPc0jY+ie8obHQzMgvoBFxSCZBBzw1FgTaRzsgwBb3c8EmtBa
ZRCnYbDTVg4G4oQK9YYoMQhpVxfaeXhAiYOuJEDShDOEO/H4q/gwlCtUgEREqHx8989pgF+wblJM
8zAserAoEuoI65OjEE2l1SApy3I33CRXAu/uLskih7doXxXWdhBYEkGBAjIMIQAkq5uALB71/8zJ
179wW2agHOb0uJWChKMBK+1IQJAkN99DQxS9Yg7lJTAHBULqJBF5l34OQCJ4n/nBGJsxwDuTv+f9
EnmGxd+v9F9g6uREArGogH59hMC5YOgkvx4IZTpPykMBBojUfAusA2v7PrMP0QmzR3EPR2GR5hM8
ujLI9n+NtyR3F9kMp5VFMgmU59rjTKcupUZOyRj3HeB3khj1nl7kexc0FYyHlsDQ5F3x4yYqyIL7
MCu4j7MlMLAECEma8rl12MIVIEWi0MIH9C9eA8hoRDpATIQRSVsqMGjnmGlFHqjfo4KoeiGpmlIh
pggDPxDt67O2Am3N9KNBUyq7pTLbPSkVK4qGWpUWt+7GPGenVXsGXBK5Vf6fYu7RdnQqPWcr3hTC
OhZE9MB/2vX2eNHbX1viB0wwAY0huyLIJ+C48ZPSHUAVCzRyurcSO7jrAJFcceSsVDoyhhiA6dgc
LVEPSjGBWu+nWZZuim+ZM2a9ci7Nn6op6T96Z5MXTkb6jneyYXIZAj7V2z+HG1YMVFqHIz3d2XPO
hCAZjzpry2DDWliwWY05O7aEgadsBmK+HasEAMVzMnArFUihcdsEC8h3Pxnr46Gwc2A59M7bREKv
aqrf35pmAawGaIEAMzjRzwOg3AOtAT31sryOSGZjA0T07uJE0KGXwWBD0PAQEgjosF7Hfxgk+ANq
GT38QEyGVAkSJB891ohg9CqcTAib9gDUQMXPIbNmsrRb5BAwcRHwPYkSh47AZqMfAsCHY2zDnhH3
yRMQwwjGBgktNDoj4qIGr1AscGyhRFwAYF+YHiB4jK54WN1LOJJOdbwczrfNyRRF3A7wJ5Y9dE9s
KcQo6oHPOjxIMqpTYdY/43NLrmjzDXlRa5OQ7Strl9MVMOWWNrzL7mzp3JcmCyGkIgMS/AWx+eeS
pExxnkuJ5G+1wwe5ccAEJ1z14He43jEZ3bfOgR1JaNEeIsR6vojFPIQD2msGwWEqcDwMBH0g74Cg
BBFqi0HOxTBEg8lL4UCr8TdQvkqAqaFIlcVR7rVgl3yHv/HvrydeHXwvvqyjOjIFCENA6WwKxLWz
wAYrVrZerA480a5r0D+c/q0tdwLqix2ChqEBeOAJyQkgLDjIZUzFUrXWXRIcR4YRUHhDXhU0h2Ba
IhAogJKWYJZQiAgmBohKGZpiVoEoPCHagXnsiaAbolRA4iBrSJaN6KBkYBpyQSpSkJHoT+eYiQKB
JVJRlGmsckiKKQCH7oCZKSYKiiaPKDgGAsTpdsc59wKBTj5/zCuWqG0K8AoMRRPZdisCrTg7iYKr
YP67ajFOEF3xDI157KKYRKuiO8jFEBQDQJQQJJEhBDBMQEzEjVQyQxRx48TPGG4do7eBhVTMUz82
GiHRECQXIh5I45orFVBuBsUbEWSQb+mHhzg1ysUh+r97PJKA1g8MbYvO3HpL2wbHCbPHidy54dnj
3ph7HUuIxREEjEFRTd7g5HUyuNBAqMJkRQ6CRDG9xK6g3eioEpwSHCcWjccUbk44UZeVVUlbOWK3
C4HKJbnFrPGEzgDMEe+cgKiubQREYrZ0VEgadGjEGgNA0ge7kUIcmi2MawxJT3atsRo5PEjRoDQY
oICWocFoKWoYgmYgoiC95xDJAVtubOP3PHXBHUsiU0EQFETE9IQI9GMkcE4NkSkQ7YYdB3FijiEi
QRDKEiW2UyQpAQIMQkBnYCCJmZIohYIgYppYEgKQkJgKyMgaVhlqiJGgCBgIIYhiBSIZYiEkgpBi
IhoJqSh0mZxCiZlcpI6FaQiEiQZkCgIYSGYISSRpCIiDQ6BkCA9wOCYpIZpqGWVjxJcqRKMQjBBF
1MYaKhqZiCQgiJpJJEmoaApCZYIAkKs1VJExll7sokDBwgo0BCTUkhQSS42B4BO/KESJARSqUjJD
QJXYcMNKSkpREdngkQw5mz7iH9QHRoin3/xCl0TVJJQDs0NYCBgGA0qGnqcfPqFLFDUAUqySBSqQ
LEwLEQRCVAkspXp8YpUTQTRxPvsBYLeSHLoZwhx9cYMwwyKBkVa/LjDPMc5QZwb9ww0vOeGDBLSl
AXm0mQ2FCooOwIb7uBikxgwqGrhbqm1CmBCAVSIMr++072ICHxKBQKCUQQAJEBBEWBGEUhIkXJEL
HR36hXTcc+1Na3I7NO8HtzPt7/Kc3z9585F5fsqhblUA89D7yHrNo7fyYI9VBTEBofEF8QVW+W2K
h88dUffKPBhmWIwlMvRZdZ++P/rWBwyiVBog/RnG9hf+E+z/Kh850EkxKtzhokpOYOu/v6b2QfB/
rB3gEkiyJr+lNqKC+qKNKtCUASSHKUvZsH2vYwTUIEiK9PV6PNIT0Vx4mWRzauO5Ndqfy6v6rJ5A
B+EEDikpzlcilWgaQT2CvBhEDtmBSiPy7GC09yD4bfdxXYhZOQYi0MEWhn8bUKaHkmUMuQEaSvXX
Cpaw/9xffCciSEiiSIWkgglefNvhgiQpFPNV7RA8DXqs5xP++BT4phnjG+BJq8tMUJ8GjLhgUFbG
2+jvfAhm8BxjaMRyo0A6Pr/4ufPHofAPz/jM4qoWUkkgo0YYNzhwGQJL9m0UUJGO2gZocVKcMEIh
hIL/H/GUlSY0wY2MsTBh52Hj/jqkel3iNIafsB+ibDko4cYIOQQI7RB7H+GP/UylESxNBRBQQAfE
l+BtIMGC/2F/vVV3CDF+xoIO9/8lf8bPbMrGf5h6fnIf3l4SD+Sc7Zw09kHdHgH5/40+qwaQqXCZ
oHLC6R05gyIVBQEJBJFETQ/1ZxQRECUBMkEF8yfeO3oT9p9/1cU5AQzJBxwMGdJl5T7YfL8D+Q7f
aYT6a/dJJtQ9cAkQrVe7hg0Jzfd+3k6TUGDC95WCJ20/JPzL8xhKw+v/af0EsnmYlgLQywo/fAAq
KOem3MuHCOIAplBUUKEYw0cC+BR111loXr90fkduQgh0QUokMtdEFDFhGE4IooHMLyeEi8M6fuBd
r43h3ovIWJiQ8tNUvAXYHWuy4iArsRO8J0BShyMtGgYP9Vx4GnHoNoJ4QmhGrywPMWHMGjkq8IOb
NIK0lVEBQzaKE5BwgWgKQoiglGCAiaAiCiLkriApoKOziRIKk5GQkNDiF7A8jjFGgTVLSSSYxqWc
YR0zJSDTGkwJmCgwpRUyURDpMSwpKWlNJEx65gOI8kONzKAQf/gvimm1o0CJQZEPLliJ/wYqMJfX
2PX6uZsG3wazRskQN05ktUZnTd0/qPw7fKdjo7vXVsa6QhKr8Nw0A0tJSMaI4awnSWd/NrLTH1e7
H42EUWWZFP2x3LdP7fp7fRzuMeC/B30fF7vjJuv6xB7tIx1orxPuhe4fLKyXLoK1ZXEV/1MdM4Mr
xxezqCtz9ES3cYx1xibrfUubUOnjaFcSpbNHRW9IViCurmoIyiJ4ecCt74ks1acIzlK9aPjFa7Ta
22da1OLvMIrLB7oSjLNLT1d/tT3bJfKtM8Fw3th7Snw7DSXNju/bi3CZxZ2lpPL9H2Gdl0h9QI73
g2m+ZK+ui52u+YWk4x248/Qa70nC1OeTzjjmzt87FuIXtwtaOo8mcLyWa8WxpKU8UvSk6mWNRlXf
6qNaMs8sOzBYuzaGv+wS+TsyjKrp1TjgnENN30g9RxCT4FbzlrjG1Zaq4wnJ+jsAVnFaXlOsbOW0
cPWs7aTnahWATwB0sY3quXA4GY2i7NUCWlfMrVY6re120W7QtRWlO0NLLCNrSOegm6211rilDzGw
GYIN6RdGe279byxVb+n1Fb88PdaFlPE9P8fEcvOfVvvfpZ27137yjl+q9yIElHWeNNOYQrh+rGVt
FaDzo8h30RryOzK2JMJtOeuzmlSjqWFBFe1NeKydbSnFlhGDne6IA9XxMzmfiMZ1ffLtjxPRpOnW
a0ER+A4661mplxvd9FzTaUox3WMsS1tN8VNoduz5bR31nre0HGNoaVGZ2EHyo6vB0xG+orjZTzCY
6JtapjHaOtayULBdbuiZdwVg2VO8K7LvvBX5vjSUb1u5fw1rGzXrrjZoawhe93xto7L3x1XWd20d
dsjShjYq0naUzhaS6D1QP/vt8UnNQPA+egRE+4TD3MQxcsbIGXmB7DEy9Zj4h4QBxN/J1duU6p0d
fg8bS5O5QlPvtSHi3hbwo7xzpRXU0iTZ8HnSjzCDxWmTKNpXvc0viDGkb6ZXUfPvRUAQFUJRQqqi
EgTZgGQfJA5Cnsi+GlOV9cb458244o6i7mK6IB9fsFHyBD54PrJfnD7E3NIERSkEE3+6yqIImCR/
ql3IYghh1KGEDARCokigv2LFVqGcCe06wADn8ebr8efm7yj1L1X160h3QHWPg+MHL4V75LSUINVz
zVo+YQOvXAnNtHw8aDW1EW7j+UkCbAAUH7FAbakmrvvil2nmcG1fqiIuk4Wi0N5BRdpZlS8Hl0sV
fX0FMxv7DV2FpdtZ14fESvj8oSdt9UEtp2xJr/ZPcDt1COfGxnVtmUutGwizDp1nKYmvDuj58pcO
lOC46VplQ1H4p2phpUrJX6c6Wi5bufjWQk4CXKWJ4i0Vwu2tH9baUw+m/zHOy5qv4k78qaSlEPhb
Z+z37PdtR3LXbgIgAAD3xj/d8gifIeotXOnTQ41HVQANcvV20tnOnaPKxN0vC/T9iBQiAAHmqBXw
BFRBFCEBUVIokNSkPj5DEKD4nlLl1IQidvPLGW/n3c2Bst2YcmvSnS82fej5PhyaI8J88m97YdiP
X32WJxfC00AAVKthh1Y5cWk2cgoAGdmESf8aa4cwIvTABCRFcRCJ/xARIVB4tuzhoAcU00Bc0u+n
xdPA3D2IpQSKJQhYKKoIgYCgmYCAopIhoCSCp8nhPkfoucz74kkgSEkhCEe6jxPy8fNar+H1cwX7
/r69w8nKicICpj9rv3SfGJCOCADDlIfjB4Qu8P9ZLMOSL3oOBBShuQZBo0HwVZMYIg0BV/f8/nM/
0XiHko4QB+eWwNgnzgoj0/KYh0RGBNKKdlfmpAAUdUMn9TMHSZYyqUbPkw9F8gSgL/BnYkKE7cHE
pvNh/s5cCZ24YMH/bA9x/zH89vv9mB87nrWTpwF4QFjI6SgXFpA0UxyyUNTUPWUMDBW2WVVwI2NN
1AtgP/psI6ARwf14h1zRq+/mqOag/o8XBEdIft1gD/GA7OOFUZDuREmr2T78L7Q2XwxTRwphGpID
/XZ7IzOS7aHoDqPvfieH4nlPqPSbn69hyYq/mMLWm8IsCDwPl+UGvbp+TiAHdF2wSRdSsANQESkM
KOYH/mfgdyGhgGaGt+07HDBHDyHmsAZrmHN+1o6ziL0h2dXW9FvsP1bDoAmP1J0n4cEQP3ARE3/p
50sOh8NdJ0VSc8f7nuoIEvo71D+lkkjgOUz8o+CrjpBYgkMqpbl4DD3NwMQHpOVfXnylRqzEs/n4
/4+GL+5sxXnLcPeDLTy1TRerFJr6+G/A23aOGZGv5daNYqHOVpU+aRwKkVKABiBECJEOd/BXi+9/
f53C9JZxliHnfYgD/mWOWJzn4z42EqiWLB0FxLoG1uOzWUU7KRspKIlMFkDrQYEYYG3S2aavbagi
psj9JmUfQfN6dPD1O7J4XlEI28we1+25gH6ileYs0iSL/BJUPRzGFuz5ao+J9cZVlJU6YqW4fVIC
X3D/xNAKgGgRxgpl5rWbfT9mfzX+waOEARfk+ZA7gyRQ9MCNXi9h+TyjsKJo/Hf8EP1zEKRCEwhh
6d+gBfEJ+j5PCUUUUUUUV3Na/RxevUiwgOPr66Wu890LGMgR1//yg2EEzk+araQPbj3ZANpGJQ90
kR9V7YQY7p89k7vWP4njvfMc3uPtP2D7v6e/gHBP6NftebjPiVR5Pjt9KAeDIGhQ8oe33WA9OIZd
U90YOjEfbkU2xpNf2sZPIQPuZxCPbwg8Kl/ycxlwP6GilbVFWj2JmdY7XDSjKohslVo9zyK0ockK
AKEV5MSUIRLEzFK1MoAQVIznKGVh0gnxIJQj9I0hKHcMSBiBdKB0lQOVPYVGlHsolC8KCCJ7ApyQ
DjLQAtANAxCEwlCOgpQ0rorQaMwoHJPoX/XHD/z759u6QDUSEkhopGIpYhooKGGqmKIpiaEpGMCY
TMkbCSQxGCQKULaGAxb2ZPieXTy7W5vp9cVYNtAxsbtkTNxKmzNaZd6su8ypSGPb11IxUyDbECY0
Zx2rtN6hw4FIobV5PwO/85129F6LdFDhDLcERds101AglSiAfmX69M0MsKeGOQffHIejI6TpAWbH
Z5UHIE6psGaI1w70+7onZfJTvHBqMouNCVy4cXCkR4ARpHt02NY4uC83JE5V/HiC27Mb254WfRh1
GNE6/Ony548SfUHReez3CF+vqgb1Nfy6dIrxStuPzJcfpQPz1cZyYOb5fMGsQ6TzjYO1Mu3M2m2H
Z28fEP55BuDCJr32qWEiRRKQIkYYBSIEe0Xunq9GYTBXa3Sh2A9RHiFtDCEpNCTwwro0EBsef2dl
2B2DBYSWMHFJCQOZNM13qEVal5bqKOzsBOsBE8cmhQNRp99kGxrSkkT7MP8HvtZ2AHyr1dx9frTz
j+kyO/p8nvQXdNr9/v/tvzeTye5cowGcwchYconIF0laE0D+U2iFptGo4BCc4YOLVEDtkigIQqBC
FShyw1gvT8wPb29XpcHflKJgkTAsQvIsUZmABA0mpQ9mdGWAt5uGfAdz6I2fkxP1S/n+rATf0Ymj
oH7264kYgqeeLMYqwQOzvuucwtAfdGWJTuyDB3MZzCUwNSQIZoxKZYyEowwOZTStRYgSjS6gpkgw
KMVKESGOP3s4IKSxaXEyYgKIcjD9gIch06NvVuHJIVoppA5ywQDSZUuORlTSGlNaQ0kkQFiAx6sC
H4MFXbVFDLUU0NGgNsIGZSDkAUMkNIVBI0EytMUSMEkjQxJSsAFDItIu4c++6Qg9i7/TY/qxlT/j
389f/GqraiqT/YFkIma97RGQiTOoIoKDkHGDH/C0nD7zHXvw4DPThxLeXvDY+xotFElwAxn/k2Eo
E8g8Bh5Y2FomEPUaE7euGKMOx4GHHm1EQdzqAi3Q5Bx0FcQTGaDwg4icjAnU5gApeIS8LMpJwwwd
gtpZ4BkTPhsHzGqL79gooipfUAaS8xpoWPW0hQH8W1wA0hG2A1RVUEQEUREOnVUlT0svwGNEKlas
ZrhnL6igDaz4GDRBQUGxuG/pxqOCdTbP+A9mRHsgJCn5MXj0feofIPH2n7T0oHl9WwJzjyoQQUSQ
IyRBTBUrf4bEggb7o4kSHye/wuLjZggfkpViyiASAAL+WWhFAfW/m2TvhB4JAcA2gMRDtdRtcrUQ
SQcABMBMeZRDzQRPf1+s+/38/aZW5XuQsB/YJfDZiDlT0OGH+m4l3Pifs6fkEF3sE4wgrVj8oYqS
7h/X9xb6ubCHV0D0wCD2jQHMj24ivZ1UCrxEFT+wGA8QLncF4ujkwf+gCisEB+hDyDi2e4NLaHE/
t48x27wwBfV9/k87b8Px6M+N496KnBV/jFDy/NPvkkn7LmX7ClmaJ2NujsacWNEffDSNpUPUevpX
0LSTTX5vFFOj7iIdVCqBfkZCmBDIQkdTHlGZidsUQZKKDyA4eOab1CYUwsl+x/H0fEPzycexeP/v
9qtecdyApy9PscS48xq9hwPfr/H8dcht7Sa/baodXmmGPto69DOAShXsOCp1/Qp2Hbic6XKPmD2g
j193F3+InzfAO7E24u020WHydFHu93Opc+WDoyoBUkaIHNJrNR6ZVOF9PDIh8EO4SUygUJKMw0HI
zAGv0QcpeZk97kHGTM0pBIEQUmCA0UaEPcnIlhILliKGShOW4BYDW2XFDUElQBy5cKJsJIYZKlCg
DY4bnBiIJKKVLO0UXDiGeQRLUEUnIMHHaNtuZA5ScwaixDkIiKIkkiBJJCYikJSiQmSjmTBFzEOX
SJTGjXxuPG2LOpXMDmCoaqM1bYwbBpzMxZ2aMaMYI2D+WONyBNGl9RyFIICLARISQswoig3xofq2
dhyOGnY5LU1ERqqZVSqQ1Gyi5dpQrsCu+fLYLQ6xxs/V0e0DvR3+w5Tq3J6zy+vRPXSch818k3eY
N3l5Dz+rv9XoHy3OuBWPNq9fd6fUbMFLe275donmd/IZcprG3kCoSFyD9chwqaE5rKJoxCLkWwZJ
2IzBjBj0cFTnHAJosCSSLQZTIZyQmrNvkXgCAH6fA0Gk/7ykKYiYKIYET9XEqJCPJdDHQKPW83qH
YBYwBPjFP8vJ8o2Q6HAaSPY0XDzZlrL5rvz/eOBacCqUORHkIhIRLQFNMsARBEykId3Q6NAFDUwU
TKRFAJSKUBVUStEcHBpVpGYFoWhKQoFoG0onL8M69ZljEgU+H++IiJKMHQoUkkwM/ed8X4YGhaRF
kBJ5bihun7IhT5sQ5wR94elQ+L5B+g86+I63vFHqQYxZAGDJA6tg9+rq+p4fP3OKf64XchMhFapT
EgHJKUqlBCSWhUoaBpYICSkmpqglpKAKmCgmISIhK0OghkKUKQoKaZgaKaSSiRmGWGhiQiQnGE00
lUhERBELMLQgjQhUSpQURNBSKxBMUhSDRBBSUCkTEBEKEwxJEmIDEikQEzSqGCQwRMqSSKUIlIRB
SUiyEQVCs0zMTRIxJMrMJQxAUFFMRUwEkVEFCTKxBQUkQVFDIlUJSCRAzMRQkSgVQ0sUENJSylEC
0EMhEUzCVUEUSQ0xA0tChLFBQUGNkiWlCGEICpCZKGCWKmmkQiCYSmkKUKAiCCKaAqIQmUoFiUiC
IIlSSiBiVCkFipCgpCliSlCqiEIiphKAoghKR1iESkoKQCJaaaCYimiEKUIqmUqSE0AmJYjASOhp
BoaRYkSqCIYiRonQEQ5JKoSGYKigaoQoEJokihhWJopME6H63uz6Por49GSPqOTZAhGPJ3niejxx
q1J/df6fvrAwfe7B94KGkCCgiWQooCQSGQIYPyis0BMBFQkEFIv+7HgPGX+aXyz3LgzVq7P+XA0U
7XXJoHu2drF+OOmYqvwsrEn9icVA/7BjQTVJmSjAyaLS0KgWYUw+PaLKLC7+j6zZ4FvZ4arF8ywH
OKs8QgEPoPcWDqKZAqANE6SgoGhoSokpdU6x6NxN5IlWIFGJSmImGJKCl4HFMubIuKJwDPZDk8GW
C1GgzXaGUHZOyCqaOSrobiqce5P7sADzabF6Pu4hOrjD8A4H2OXNc/Zzjo8aaB5mkFSIvH3Bq7Hs
LzSqju+yFB1AeWSJBCJTP1FT86AfqRvkvCqokj3iNoNGFoLCxoZT2/bp/k9ngMQwQUjSRCEyTLQU
NLDNFIUUpMhEQQRUMRUypAsgFMRUtBTEDJSVMUMwBCLABUwESUoBAVUzEYQIAyICidm2J4a3u+8P
gHtOvT3c3yl0xOnUK+T4fJx4/FO49Xq+UR8T8kcuu/IHzcWU9hzJw8A9NvVzdIdX0G1AAPKeaLjF
AsiAxDiD0EC4XI+X58AvgABTE9XHdRSGeBBMIEcCUiWAgMIwjwKdr7zrB43pTHb3g83X1KfZAk3H
rIBzk9nWiwoBbqyQQBzfHyH1Nw9XWPKcDyNvVZAFe6IIN52AvYHNxnRrXEF7vZfEyRcExeV5oEfy
CjiPVh6jnDzcxt6/q4z1vsR9XdxHs820OYeXY8nGjA8Mg1z4+k5cjPyB0/WJH3aP6URUE0AmMBQC
UkSefzhmFi7P4SrEKhIIkPyzdA133PLb0eqcnLbuntkkPdgvEjvNhwNO/x+XwPJp7fq2eQLXQtZ9
Anvx+6nRJj4hMhIoE0R/E/153FAnVJMEHz+ucIOYv8hpgewK1Hl3ncdXVhz/mYcmHdCPgInWK/H+
zBEsPeMBMTEOCdQz/4Ce4KL0MLrs9/xZLMMZ3z69KQemMGFj49wOHVUUwIdw2MAwP8AkhhoAoImg
Yw0UBDA1ISjElVJETFSceBEQmWWCvdLHAA/MKJ87S0hQ0pk6C9T1ijXsucTio4wboLw4f3Pv+XSH
9/sHcOMS0EEQEEFCUiSSSC/chxVnqzVVA95kr6JCrmQXKwKDI0N3GkuGT3CAcmKgZgaKCigiCqaU
glbycqXliYBiSqWiigJqa25PBoYiqmSiYk6b8vDB0cwyOkSIQISSkSqPPZxPXjHnBUtgxCUhScdC
+aMvERM4PIfYx1fJIkppWYAIolYqpJKIpJlBYokO8Dx7n9ZuHjt6vd+6+fyeXqGhBVCgIk4AsY0c
qk02IbENhLAUNsA5wZPGROD38m5z7dB+SdpTCROAageXj7oC7gsCwLAsCwLAu5uTNRAviMMAWQqh
KImvynBBUo1bsnNBStTQwZJr4HPSfHtP+L5KPiYJu2G6FAEJKlKayyRL35i5xHcUuJOgrU/q5Cdp
Cxai3Jv+yFY1w+3Qy0JWJuLZIo/RNVf+Uf1YZXRyH98OBiX55VDD3kAaGxQ9WgDWJY7vIDlrEHeG
6F2lgiXVAgRVRUwZU/Y0FsOfXZ8sm/Y9GMu3fTc4cao9oedlVh9uG8zhlWNQ/KvBde3t9+1XmNBp
OmGlXiSEv4Q0GPWD8X4fdm3VEleeAJgSNYRWEEktEhwOw/qdOEw6cd2q2ThmC3iv8NAsXU7iFBhx
gRJGIxEPdPOpDRRXnDu9AKse3KGT7kAdEnenuee/uyd80eBgC9gYqKoZpkIJiqQIJQ6fHsg9H4jw
ANbRFIdWPIwNzdkoiCqGEiloAKmAaGlKRSqFKCVIqoqomCmmokpUJAmgKFaqiAWCVKhaIRghAkIR
oZUiWSAiiaBgphIIAikRJGNwec1XMwn7OFvZeugvYUNIpQNAQVRElMRAMsFEEUTSBDVRTBSwVCDE
UK0lJQRAE1TA0lKQRJTGSRDZqPBcPs53R0WIeNP+Vh2zJ/spSs6HFCSISRjJLbrDafwg6idcb3/u
xUD3+GJ0dfw5vm+v0fo95n8s+v86tH7D9mHsffEWBAwg+i1CNomGU73cGDBABAtUSo9jSHILIwP6
ooCJqIoAKQCEkApKSQpalpFghJJggqKISJQlCpIGUJopCIDR7ksQoDoyMJ9R1IcSrgcdaAo71w4c
DQb6jA1NLENMF4ZMB91//JPifS+cPP9PmL389UwlqWq9F4WS0C6FyimEDyDGYV/peYtcwthbpNU9
ZToKhluTJMabbZFFC6xqLUU2x4jTskce2EpVRKqqGK8y7yDCJROyILKaGmxQclqlKTVOoQKoI4VT
Y26dUU6JVJlMheeed6YdE0Ueczw0bvdyNUh3mKBmDkc4R3hqlPNc54dfDlU0bYJuoqjZJZSUbGNF
INf8tFO7ZFTIyDCQe9K26mVRjjGyxlUDm8yPL04jLl7goZI4nuORf7bLD/ivGKxSPcUxcZl4VkFK
qhVUIwcIA2R1Ef8eItusru1bKTa3Cq2UtNFlkayVZXczMFWq00rtqS4oVVRjpuqxlg7dOSDdEAP2
A1H+MGQrEghqATnKAZtOHtW0zH6yq/D9X4fYXIIiB+MRPBRD7oHbEsMgr/DCRxOAcIUtjSwLsmEH
jEYQs2ozO5AxR8geYwBb5BnVEY2Jmeg4US1EADE0JENTEEKFKpSCvXhisSn6QjFIRkJ9sMTbcUR1
/sX72oiQoG0BPzaBEKIQQkMsBMHWwGDIQRUB/rIyFISf57PbBF3CYICZoaEoPAogwuOtMpwTCSMm
zwaWRgkKCmqNYOrIplUlYIoQBuBQLypFVOGoYG0wT2DkQDCSWAPwSpZWSoGQyiUoCQokGqiop8KH
2xP6PNrTAfs6FNsVLdnzFw+OOPWN/m/Qifs8mn6czie7XzK5/t++Yg6zo+5/Mr6PaGDy5iCkgn6+
o9AvRVEiURE0F1BgKmMnbMWjwyp6pNHRJyKHjBHa5zluEa4WShEAOSmEk5PRqEgfOezba2mqfsIF
3OjxHkA+sj59lICPhxgUeyDlkDkBkJCRcKhDzT2knUfveaIcUTmcASdB9qdz+TxPP3Vxy3INB7PW
A/BCvoaC9ypCJUh5goeXzJzjEUrRUdYHGlKf0snBWKaSIJoRiSpgjth65InLwIYJhhJiCRkoBhh7
3VE2QKAOz3ca6sq9khFGwhYAJifJA9np9UxjjlyV24466yeBEdqJ5QBgYbFAOUSD+gnQl4/ow/j9
EZTQ14ZV5nNzgCAROPTWWJBkfqiXAMU5MQh+m4Hfj/R8PLa7cr2o29/Rp1EZjvvjt+qCwfjhQN4K
ZkOEn5IHkEkpyX9UeXYPINC0C0NJ7sRScLdsAmBYdIRRPAgdABQFQLD3ZGkHsjSAWA0KmtBxyWIc
UGqLOTDDQLXygbZnjrnB3EJccgNDK1QfTjaDYI3i7SGXD90/7kdSXGGQE2lJlAlt2TfuUGQEoVGZ
QDcsgwTDzKGkPyJ9aBoTYlBJkaFNgXOKO0rSgWL4vKV7Z1dIAeCDu1Ih75zzVdgAb3xEZ8nb0nXO
yoAEHZCbSclXlD0x4bXVmED5JAPJAvu/urA2IggpKEP4Ho+jXQFzL3biSU9UefVjm7hk04tBn83X
c9h2+DrNLo4YinGX8OZg+gT+EkLRLSSyhLMQ/H7pQw+DF8kpEgUjMUJ/DPUWkqAie4VNmb9eNEmI
f13AJ4W2NlXpzmAoxGFxSl6KwkSMfKavZ10/VBS75vZ6Sn0JIfblYheU8QPKf6/hVYmNAnIYIXmK
loeLn9WlQXzwMcJNyikSD3/G1W/CKE2010OckSJ4emh1LCX/0P3UjAGbsIMPBNmwAMHDY3Bq12Bb
20LGXvObxUog89zm4q/QR3EmwqEANM6TLGC7a63MatGUcVmeKgHPm6EX8YiogZEAwi5mVKmyGeFb
nGl2wxsi5NhBTXg2bCjGGh8hA9HUiVduXhp6oRqKx9l5S6UQTnAO7A4PPKI1gAuwJceMlpah0jRC
MzDAwmZikDHAGy+LuRBbmOPA2JnpoKBs6Ur0US9DmzgYDBMQxWLCg3qxQQ+GG9Gq54IEYdxCzTtI
iYh5qkuWYXfY8WQYgJrqjv04raaRpi8Uky6u2jvWuPG1SHw4CW1w7ChdWXTjHrwXONaQz2EjjHsi
yn0CxIoUJ8nw/fm3fmIAdk2Lrg2csC2oTFaim6G6CmSQuYFajEzoYtTwYa+O1l+sUENCj4YjbSNv
i8GmBQC2ZoolDiEDbgpRIUyhiVNNltJvBNAMOTCkjAYqcVtuAaNSmitRHFEEC4eDtu+I24/Rtqnb
L9IvTows4CDG3y7U1VcVOM72toa4CJKIy6UpDBGefGOgnMd5MfWBX57hRPiVTvhWqNaAOisBQmA6
aFylwWUHJE0BlCRpgGov2ppGtmD3otljokBNj4lpgQkMM2FYml7JjIHDjP8A+49WtwPfJ1uuSCB1
jD3SgJ2rFpfcGxPdPk9FB7v7vPZLz0hBoNHQaBch/Ykfqti+WPYaiI4gjG37gkL87Q0vnQeWI8Eh
ofMkdj/lLoZX/bVEmFRq5gF6IFqhuPMnyPSXwivxgHj09UEmR+GFD9ZA6s2R632CMWLuc8rxBPQR
DNyKUHpOOgX5jMtYRDMInLEez6qSS6tH/Qf/VI3fujSQUEIRSE/iiDm69mV4n+WR0QT4c00tQ//F
aGjOSaaCxoVA0BNc5QhUw1cFlFrzqgMxthzBUXF+3BopNgymcT/zSpkDOBWCz1xhcEliTZBCttjH
sQetcrp87Uc/2VB8+slL5UXk5Gt8SIOwiM/94rzdJmOBud0f8XK2220JCYKZxwG8LRLEViUnyQt1
XfusH95hlnBIEeJ2tGAdVRy68NP+zNg48rQKdLC5yMX/uwcJ9N0HzwPpPtoA3JBHbur/CAcW6v9k
TwgnCDoUeNrThxikYDS9kRS2MOMMJVFPPZoSqJD+ZYGvUofA+n5Pl1vz7ueBHnIQja57LYW4RwIH
wiBx8dJz+3OySoUhswsJ8X8/8f5w23D+Pg9MB7BIGBAESBT9MNKBmFCIGkoogUCUBxUulSlAiSit
IaEPQQOYE5PIQOBDMqRQQlPIeQJypWZEoFpFipAIhoWgCKj6QiGnsgaTkiHYOSpRRQMSMSHZ0ETM
IjoTEAjwgKQiBiE5AHYExJ2UDWIVKoKgqVCmgQpJkNII4lpKoSmgQCgKBodExMjh2AHIMAsqTEGk
aQTKTRDCdgxMGnE1CBQUKUCaB0KBKSDQA0lKgk1CHIUxIDAsECwkklUK0JSiUAEayKf0Ej7gexrU
Afqhy9XUDxv01MbGDo1YDw+8xFOJwJxLoHjcQLGIQIwUMhVdqJs4fnw2pgIvr+w/p4zzlIXQpgQt
Yl5RCxTAf45n7vz7gfoA9gjoBOiaCCaAhlKGIJLPCCsI6t9JIK7eSj/DTiMtUbA7IQgERETIlw8k
jt1NSsSEFJA0PLpT2e2cMXIZKIgkovDhZgU/q1oDg0AlIlFRDSSkgQkpSVAkhDDMNLJSzTUyTJSA
Q/9OcSBSRDQtAszFJNESshJCn4wpoaoAklFgoqICAGgJoUGB/iGBhBUFDUwAk0RAQQwTMzIEENCy
xKSkLAhA0EhSn64AwoUYG4SiZ29jQCAndlfSr8u+NF8fwmvLqOHDY2HQGrCmdTlwjBDdjSI1FiEw
QUH80f0d6J/N0lDZBI3OatwfFEGNNtodyEJZKw4OEHIjCSOBvp1FH5szj3vDKkBFMRfF6uKEkgEI
C8xQnetA3YC9VAdaH+oICRolrRv600bnN5e785+z2E0djuQUyRMAEQUdAXwCQgF/EPgPcn/CRorS
DENEoUjARYgki/eccqcWLJs5TaxjBnZQQpQ/JjTz4TOFQ47B/cQpAz9l89oks5LgBZQCC2umUoNu
nGkCa8vEuG/0QQEHmiP2djvkzsEmIRi/3QMpFcTlQ3xYqHbZ8N0vtYm0A2qZZUSMG2stBihxnAzR
bBB2wEWHPY/k+PDM8qhnHGaFBxNF0R831ljd4/JuWUCYr/eg/eeoanLHFKN6aBmND5SFw3QxNwJc
DdOnRkEyBAUdw9gQ8B4tjswwDni4JVx20glhZBikga3DHvn4RHlvOo1VLnN8x331eM3CoiDqkJiO
Q6xxMcNHnjwDwU5KR1+/+LX+oBqMCgCmgk1KOiQDk7eZQfklQKEFkb5BAgA2CUU598BDQeOPGoaS
DRJgSURBJTLIWLBnONOJcYLGVxpNCqzUYFYq84ICRCIJbZT+j2E8wHUwMsNI0jSjUjEkKdHQAdYb
teJSDREh4xs2WOOwO6gQNptP77dAScz+vHPpO/CxgFjQD4bQGMGXVMfo8yO8P7OGs/2cZlB9ZBhC
GlNbzxG6oDsYAAqO4SDwqEigXx4dqTVqUPtzBwjJNDyADEeZ2gidJIkTFKAdMZVxnTB1D1ARAjCK
pFQaJeIVfiSrRDUTy93Ef1O0DYvOR6PpMqgXUFI/SHse0Xo3DapClWSYo2f9kqhIMJIhAtBg/0Qc
vQG7vOG57T68hPB6KAiRCiOACyiDr4ylaSDFpmYILcxwuQaTJ5GnmCo1qoYISqknaINYnMlE1iSY
TDRSZGSUI0Y4y9GO4TcUjQTjJtZ8BYULRAktG8T4EKIl8WxpkAbTWcYchBaXzTQOAfyfrOHviyBt
AATAh3OzzS4f3eptxI9fcH46VXyh6FPw7nMueXLvOClA6q7/Jw9K+rrcQXUK+nceRunoJ/PI8/Gb
LdDy+UeKIFZdJ/F3Hr836Hi3dHEnkFfIo4/u9Ho78FVpIqgkE+hC5+ksCtfslOmJn7G5mwx8rst6
DHmfR19Pjx/1e30GG/d6zyp00WDxHb1qenhj7JPb7PDpRDk0pFkVAJBB8gVC1lH3nn8/p4h8f79z
3+hrlxMOegx91jo59IrS+BkJXv6pz+Jyhklx9p2cfYRZ5/OdY9pelh3B7T2+/k+7zaura0Femt0k
/vr3WxWHF5zx77cxUPD2/gvFh1mZ7evE8DDs3u/QpO/1WOgMPeFjrHsB6+AdptFeYumSHu1HG+Z6
rI+KSEiyHr876dWmzY9vyCdvYJxa8eTs2vrxznV73i7/eaaHt977k38VvMdffoaY+/KSHJ8xXeCu
lXuYE9fhA8By6igr0kxOTVRHVA1BYMYaaxExMGAubEXJuw4iEIW82ID7ShpQgWfHqmI86C8GRZDk
uWO3yRrhsmgOHcietvpeTuHCmlbLO9naw8ajMX7K3fRQbLvkEvy/I/N9dYAZ40BBJFENtFbApCli
DvIO5TfAx6w0ee4+bsh8A5OMLInH1W8vI8k8/mTTuPIHjHgYom3PmA28O3TyefqK5jWpiYognLt4
g7cOsyNbyebkRNDX2ZYfA8pirfanfy8x140hqJtZPCgto80LQrRoTkUSMxoZQ8COvN7YLIEaDIhk
uAnk+kBwcId70vTcTyHiNeg6/GaIE39fv7ePtUDx7faQHvTWnxHf3pp0JX3X5/TX0QegfBUAVXyw
EIGwRsaCnWgcQigpXIB9+UfcvdHxk+OwjUZ6ve4CqdBADEL5e0sMC2E2HpNDqUpoi0aTACL0p7J9
B4E4hygkmkQOUUu5nGRKCeDwiRMRfOK7B+uN4A9AZgod0YqP8cwICn+S+VNRt1eL5PGcdGvQCo6R
d+h5OYegPN4PkB2fYc3UbzDZ5U3H5KgAdXXOKMkqiBUp5wdOb5T1B6Dyc2Q+gK6QzdmoN3VMfkN1
dfrebMPlUPf7h9l0dY9zAgwhISKsDnOzl9ehqN51W8vs7MMD3upfDu4uPq08NVgFb/nChr+csBKk
QdlEaGJglYSie6+qJa3E9Hm4z3urV0D4I98PP19W3m5TgIB3RNDoDYPUK/FOhEE28Z7AF5+weHd3
eroDHmNpwOMNquOfk1HKauYT0G7Xy+nM6teu1yEsdJQFNkoglM0pfLMg7KNBP6POB5RF2lWIckcK
kLAiY3ODw4eogxGNjy13yqd/k3VjdtI4b/ZKZlw7ZE2aItF1Q9JJChQKUK0AgTDNSRGyNiC0TZnC
CY7JxE/dog6DHfDnDwslMzUVET4c5X9mOtzVdwU2KiEEy5KgQHP00FF2UCobG00D+DRw4cgAJxRs
Z+kcDjExABAaXYwTEb4txw6AWrmAOCsnEcYKJJuZxPAw9LByTC6SvM6AqnklsQdNgiCL4N13A4cg
1CiYo2LQB5MRyeBWhU7Jia8upwhpmkzWNW2UaCCjUU7VVrBSFIn5oPYRxacfL0dj7Mt3bOoWxlhB
RkbabOhkdA2OBTI6DiJorSrLLbArHIVREgepBluLkooKGxzbohqyy2NNtpkFJE0aiQryOEhyB0hS
RYJNCj5CWOHvbri0BWj0SOwyQKWBSjjkjHbHBqqGyOoQZMoCO3AY2W6qqkip+pYUqTcYrKYV4BJi
tcsg3tkGtaoSojTgW+iqHYzInhGkhQcTbprPEg6MP0z5+Uu2YMPOMEt+mXdolODR4NkKpxg0zyeQ
3EiPSaad9jTa8Xjw4cTmAyBvjp0RqO0ligGAW4GGCiZdUW1cyKwe8wuFs95C9URpaNwYMpkTdMQU
w3hM+MAg4KAtJElYxFBlJcQ1MsZ3EsLMjrA5hPAj6txwe/nNDgcWB3derA18Hp6kB1aF/Mc6AAdA
azSiyCLfgdHBTWc3anC5oodWiIJqZ6ocwrxlE1p32cfOcp6W/bYXoEkSMOKTIGm15XQGpdHixDt8
MDvSnCAoaDvy8N6wOGYonn4Ivh3rY13B5kUESE0kCRIUREsAWnyrPKHpQpa4xVZrzKNqYpkpcyIT
iKcRiawIEOCIXBwLhlJYLjZBEX40FfgFxPBMjTg0QfKmU4jKEHuTqc3D4xalWWqgoxhQ3GlDRxz1
ZtZhkYpBxygDsRRw1oZgbYjKbD0BNWjQ4WDZYZm7um1Hrmzd6/1zmj9QwvD1EYw+z86HGJCIhSU9
nwpjM6Dkhb+/zXxBg0eB8abwzP2umFM9NYh9syIGJi67EifYd4HQS8meUdYUw+0L88AnmPSh+eqG
oZgiEqSaoApEihaQlmaC79Z/mb0TfY/pN58nDf4egAyDaBrLMYRPmpVdNVULVLBJFFUoUCMQxsrk
h2MkFABUSyD0/cj98nIHuX8sOuGXb8vA4BEVSGksq+5/R1C9r+P84Emi2NMEESt+Yq2zEexWZ/Vg
Tt2MSlOiAiKJTv6v2lD8QZRY+J4Hh5xUkRSBEiGbSntmijlzVGkPw/sp4552R8lrfZ7zuN3J3d2P
FZM9J0fN856PQP6U/T945/UWNl2ecNmJEdwziIKCqRJkdjLo0VRucgLcDhGgItBs2dsSlJtsZDEg
7YIqoP0bcMYxGMGSoiZNnAfMJQJgbmVsE1/jOH14GFEFKqAKUWhopbh8s4MfB8mHM4PA1uwDrCMU
KDCQUxyc8qp83bMD5oNRqoW4NB+DFblw5ACB7UIxIaEzQSJuoQB2rLRRsa0YivZw776PLqDQtXEj
T0hjJGXZQmwI6uqBqInOoa042CxgttLYmgrIBGARpUE5KJwTEeguE8AkO41tuZ1eXrFGLHrJSbBF
AxBdRaLosoLINe9zzuTs9s71x1o0ockKubEeblUxVcxrhgsTMwVUA3GGpEAMGDGtIcEMxhQpDB1T
SCG2cYBKhEHjFvRcCk7Bo0ZCe5x6sRN3mVOR24c5x0dqifJOFRRc3fDB2BW0qQVVLcipMOwZgxNm
2N2JlZEaogsqbYrWiJ8k426KFGFu2waS1rPHSaKNtHOWA7Gvex2Okw+OODRTDh6YauJK3ENNMNO3
o5ERRmAccDiQ8F3AMCVAJlUQpAD5/Gb/q+f3WKmivSJW0XImz05Z47S7J470OYDvnR+it99BDY0A
cMeBKYJ8BiYF98ymfahuMAdJgJQOkDRMEQFWyJoKUppSkC8MK2VbFXILTBLMVKwyvC/GHRHgoodM
UWJAGPTLgBIhjIiXeOCdnIOPC68hsR+aI+uggMhToKoCIE6GOIpDTHHjOlDmwJRDcyGUSBJQkLS7
6ICCQ3WxK7WsUy7WtiwswFTAIxjKYUxaD0V0hhdo7sm2Ho618vqxhmJ7qEmH+nWnVOWIn8IT4nQH
A0zBK1fBu/2bcCg2GAwSInD1j63A0ETaGMCIQiHgWN9Jo1piar4/wz5gfDgLI958viPL4QXwm1aM
nP9uYNDFCwZISCgyABkhCAjBKSwm3Q+Tr32SSRuQL6nGLiCOBgcZjH5DB8DMcQyBKQED39ziC/MT
L2cNNeT7uy2ew2Y4h22EWDjKwMpB7NfeMBuOmRNFNQGlpgXJY7uF5VnX8SU5B50/hBOzuuAPeMkv
JmTuYaMHEiD4Ok/nNzvnXJ0xQiTBFJAUkEBy5bR5x5JJEVFD0a4oe2UIjdOScIHnOLyHEaHGQKm9
RcGQj+iA4M4cRhPwuPxx/QYhena/Dm9vydWvI8VP7VXo16bH/lCQqSqYKqkwF8HfFRE024doETQF
oALAL7/eMOxDmcwWMBR+HYGaobgHGFkIqgqAmViEQhYpIAMDst1v0CPo6usOe4vbaUh+l4B6I+Sv
L8Nq/JBMsilHzQA7QP08uF4QI6zKtUBGmSIcvq47NzEglCHVA90+nPj2HmO21UWCgaaqiQDuktqP
8gUduoMMNodrrYRIKYiaZppagKSICICEghS0mRSdD5wkAw4vcgQ+iHnD5CL7T5I0cvDf/vxME7Tp
45aisfCr3a8jxRbv/riZHTEYsgMGe+KqnUh5Wfq1+72p1+k+z2qHaW9B2cW64STOc6Q1iqFIOZDQ
BYbSj/pJVcUB/asUyUzDPcjqA5wMyFw5O8xMAHY4PQF2AITYQkRHly5AxptSk3BjKqqCVTYUDBiB
gUERkjKhEhFI7HYMVXkZjuMRQI9ZUSQhfC8IQ4QkEDyVNjKjoadTRgueB1AWhA5l8A3evi+UPTAd
jGDZ3V51OdUDKCXITgw7Z3+pHAf2/AtlIh/VoGRFnkzlNJQVQTABoHUIh0kkAmCGXKrpIJIk/P73
COAlzjRDoF1DSlDRBBIHJ0H7J1Zrx5c333D5cDx3I+Q+SEgFAh6jQf3B3QOMPlVOz8R+s5IcIFQ8
9G81b/1sfj+mfJ0kJa0JIhs0Vd8+xA9/pE/yvvPmxDxqeEI+dItVNFEVfjO2+y0jDDlz+n5de39/
bqy8rjYdUZYI/QkBLQGwUego/KWyn6s7hsp0qkps/vMTVKhJIJP9rsCfLAQwD/ms/gYF6R9RyjE7
AtqI79mll55vWXvVWrp4UP94Yh2P3Dc7MqDg0NI0f4BClOGp699z8JibKtjcteWgfShHsHSAoHMU
Ee+oemCkopYIaimSmoYdjY+PxHGKUTlJkXmFyvOEDBgIF4iBcine+s/24hAunYllVLhSfORZH53b
99sTgfr0+rt3fgQmnseH4mxAETv37A+xyK/gmv7Zouq9u9XADkFYzLtTUyA5vRThyec5uByc5Kdb
XxkPcjwSKgQ7GiWCDdz78+pzz3iaJUmCQZfAyu2mRGojpRX0cp9WWEdDNSNJAtBEMhYCQSSQkPsJ
UEOs6U2duAo+xMTD1n7z7UPTAB0QItPaIfFID/iQPRMSoPMJ49zA9g5O9BAEPXcDUhcqXCkQ+aAu
G86H6u7UYI8oCaFACXYiiPfBVf2/HBRAPF3B5vAX0MCEV1quKBrfHlTfnh8fXz+eHFga4iGv7dX0
Bt5OJPt+/Z+x6D9IPgPA85FYTvOejN9J4ZFvQPP8f0Hm28uPu06vjf74l5ROfKZXnFnlkXwxJhem
N6ReiFSwklNzJzqYIjgWE4QGRYNZCBDkCSH10CUm+XrFZokGdZb6vnSspHShCIKYHz3EJYzKVE00
jU5BKkaGolgT7TUq5msvAuywYGHnxcRJdRoO4dXpt5en3x1+KO11xYDUVLN2fw2jH7oZEQDsCpdy
fYPJZec5QU+VUBEv6XYxAceUfufp4YjnT44eyOx1KDRSLEHwyncXR5tgmkrp6wcfMOJSLYyeQJz6
UoMNQRmWBTASikAdOMaV0jlxMQBR3Gqhl1qA4mIgB00IwwMQVCICYOmqYDCmEGk7U4k6bTH9VxLn
qmBqvL0ebBvG4mgdI6exxS4Gjo7GjhfjvUeXSGdwNFlm7V29FrKwgx4VErueufbJv3PhRhwyAUVu
wM4kMNRRW5sVYkSqga1KHC9GqIcNqeVsGG2sgEeLDjxwbwX3bNIdK6ReI6/2uDG6cImAPYdYcQYV
7C1NnDoR7ul7HE7vzQ05t+pT4+XQNOs1GPT383jxHtXvNOSHv26l6cesPHLnN/pU1Bt+fhkevmTX
0Ec+ndaUXfJezePba5BUXIacvOGBzCEBxTc5BcFuJIxA0L8EwRlwuKGD/KMwx7gYUzRLtvNFNIMg
yqfUQEsc9IGnid+y5u1H6iIJJIxMUDIEEzTMwTP1OW4Hy5n0pyVzhApQHbE4pSLOQAeQ/mBCrimO
G2q2n40UEfNt83N6Nmhs8kqBs9nVDHM15bJmgdDZeOSbrXGyYEaJokhCRCNLBJSxSMywNyMMQCf6
/Zi0AOPjp9v40qW69Kk5jMLQUaj/H9CJgh9F16qlA4gLMCwdSowL+eEPrn665P22aJaqOblBUowg
d/5UAX6in+qblIQmQ0It+1/mDaBW0hvv/XwCx0OqQen2SXDHa9AAP1ogmR4j3lPq5wijGCBIqIW6
9oXLfO/aFxPM9/1/NzHne8C/F/Llo5/Tybk+niNUVT8simJPjGEPxgIkwkglBQAkzX7c6RA7KaRH
sUBMaIjGNrSBSuIDEoMQmcZjJlzUSeV5Y4p2zBpM+YDMJSnZcEqHkAU8k5IlBSRATKEQ6A0osJFI
iFC9hQxiZEoEoZjXs/8dsgoOt9FMxtT7hmS+fw6g0uNNRJUJre7jmSi1KdyF5LgVa9FufX12ifCg
F2QZAEd0hCkiIOxpRjCnA4AGhHuwB8L6UUYy3I4ykRBaDCmNhsaPwPxrYlwtn57ISqt/feSDH8ws
8LgALBrkB2V1ppcRSjyA+0HCOwd5lHD6OdbowXYUNcYNGCSSaTcHB7gF0qHkIamE8HWWJUmDM0jB
TQQgQi8NY/NrtZKLR8lqLaD8M6SQSpqFIhSQgCezdw0naHshyTMokRbFUit08/N/usvfuBKghB5L
UFkSJ79Bo/qgnSbcWy9/RzY3x5S7YaTgqiV2zYI4SeeEF7I6ZoR9UfJviJ/jAZyx7aVrOtLUfeF/
WfYfd8oLyp3nNh6h/Pr9m4Avvdqm+4uRhdDh6zr+zvHB37x+On24BtEdEhrO2v0Bv7sAr8Pky9cH
DynvByAg2gnv9t5byYOUAIJ33VDE38JpCxVirFDSmWugaNlCmP6/fndV9L5/Dtp8j4nbx/QGo8oL
9BD/8fNIELUj5AuRQ51DiXSkiiUICBJgCZa3zhStgi8PM/osdZ+j3B9/c9BA9rq/QkCy+qCvOb7v
mRQeo8h7z4XP08YUCvap2kEf7wWKBKBFJKQST6h+EhiEClHHs+v7DDB8dqNAA7oAOh6gMCCcxCiJ
tzo/T5CA4Z9ZsoBfxmcwPn2Et4hBuAdhpYOz663zVyFrXJeW+JotiAr++r2SRFKIQIgYc08g1pie
+Oa0KEYS9814mCIW8FCNFXESfJ5RQAMi4GHkE8YoSFJABB7QyeEUqByBaYkWSZEhYQhQnHihg4IH
888VT+uX0q8FQPKkOJQAVzHKSDIj8pSAUtFIyBFCcFQ5cT6HxHR8mPs9XqOT6TXfTbAXccUJ3Sgs
gt0iC81JZoqrTzWttxyjj0/o93zhqxx7DW2C2hRohrj3kZvR97AE2ZY8hqpRz8YF8uOHz/fm9GT+
z5EegDCAHdTY90vcgPwkxqXvxsvlMNSCB5qJX3q1VLVUrynE5T69gHKh1D7K4cd/vbEX9CEoAKei
JkRhf8PWgtX4/pMJD4AYon1YJ5gdA9ktEKCi3quGmzTxmcXWNFNFjQ5AXA8YrJo+IOesbplaMQVS
D/69vmzFPj8ZT6Qcg6dJgPfvzy6qB/HKjpAeHkxZNpsY1kOSH169+l3TjiYkYhkulQ2mNPhwpyiF
XlKM7tokMiHqdp0AuDcJktCENgJQs4UoEI6OJNVVpKiWmFvXChRzPKdjIM3tQfLCqOH9E0FHiJs8
s73DbZNUNlOUPUCrZY8cGnbPFYRc1YAhFJikGN+Qx0yCYrhZQXGo6bXcoAdiSyKTJDCHOE9iS0n0
DmOEJWmjvmBd9sHlOBkdCracbkZTpjlRjDgYN02FWNFQbBjyOio2MVLCi7Iws/yZrIaJYNIS0hI0
rmqIU4WUwgNu1UDTQ9DQXh4cTzwzTyt3nfakUU8U8paqnOHWgvLu06lOSS7TsZYk1AgXSpBGDotb
IlhkBwGiQqQZUsjDKOrtEdGQhjGjFcL3iInbFmS6BDrluBe4TzxwNB0SQ01zzpyOWCDetU0ITwIx
6VN1qTgq8mppVqLtpWagaaJouMjerJFRRCCuoFuQhZTwuUoK0MqhU3lwLtpg2U7hSGmDLatlkVoy
Il9PRYNS2mo+obwxPCEbyEh8cX2TwCPV5wSlPmXgAdIK1TZRkNmZxOAbe7JHU0XrKpqPCGrtmhu9
WVTcVMtjcKtFibodgXqMkUHTRGinLUZUmFACKYYVWpKtCNF00y0JBbECkpFU65lttyR3DVAkra1m
0uWkcHC1DFWLKYCwMx6WDKdRjtYyqJjKocVwY5VSwohJDacBJg22CWIwyymVlJZmEqA2S6oYMZcM
GZQRsulI2QuUSKirqO6opRiu5TCkTGoYyxaKFp5ayxgxibbsaLWiTtdHhNPIJIoNKrshml0YveTI
92Xsi4FtJpdx1cgXhHkpzm3MvAhiu5rpR3HCOR2XO5GOOnnObhuadnwqOQryKupJFRsxoNtCsqwJ
RVQgcIqwtiShLppNkajCaQRjKGii4U5TjNI40GEaw2y0W+5vbLMw6JlgwdxjY1VZbwVsMsINgwhj
IyhAJ0IlNB/7AhoYrZAyaW95QwZoylway7baa04RSO2Vr+lFQ+LSuiAyoWU00NxqP3OHA6Gggw7k
SvSgI9DzG0A9k2QJ32QFwXbXD3paTbWgaJKmbbMwtRpXkRbKkQ1cAgw541hmBphpi0pBRtoHdlAM
8l0GtEtrCnEVqK7JbQR09srcEtNtHuMQqo172GvB1SI5CR7vc4eudvKrfQwSs4jhEEfQsh975EUE
NCocrvV89qbHt5TY0SlHREibRJG6V83gyNtXjtGWCV/ACpoIsxHowxYGVcK73h3POd92fPMvl4Eb
5M7uIkEfz7/Zo6IPz+7jxeTxNApSNAZKUlAZqCACmIdfCiwYmSIPDyRU6HaSqEWPIdMJQM2cIduX
FgEIQlUOSHGA8jQ8kQ7B5I/gF50fXHwj5Fb2VJ08M7hxOhYF6duQ9NjUS5ww1Og6xNA6NxWO7JTo
Evb6tUPij93p9z14bA83mOAcnhuRL1sU8xzj07U49/Z6yH1GtgPj5Cjdzxow8PzmB0T+AA6B3AHn
zSvP3eFmtgPf4cny54BhOJO2EiLJIHllR83mu4lefC4SCXbYlGStMGNugbUHJqljGp9KLK2Vh2u5
2MPqROHKLfncWCzrS04EfhiiKSogoCL/QFBSabOA2KlSaYTM0xEtSRSte0CVvannTgaNoy2zQLYQ
jEAP8+EXDSR6iEVhu2fBIkkfAGTgnxB8B8jjHsJKkmBiCGoopBMYAggC6mC5OCFoxNgwTCBBdA6b
PgpYcC0YXfHa0X1tI0YdgktBT6UEbBLyg6UYPJBUci1j4QEjTbbSMVaf6zLviAnWvOOfORQf3IEb
gusSjpT0mJoKIKSWJqBJIKPh+qIh8nsQOYqAaRAMkC2sRAAbZmMrmHYETZs7A5wUlkggxpQyxCUS
S9w+H5fBDtgUQUvALxMYo/PkUfGABfm1nDUZ9P2mH+4Fg85CezKIc5A/vHln62V14aUPI/Z/oYVQ
rz+7eVLHUlMnvC0UnoyFO7lsK9ffd2DBCbD/ha1xCOf7M/wyn84fcb6IQPWGeOUHnJ4+2dZpOph+
2MYurlRaskT+/Ydnf3AUEFeuIKSAqzESbWt0IQKaokmv9UxXxQXAPMeYN5r2z3vP9w+Ljv3DkEfY
5roj0MSkzMJB2YtIZiiIKihj+W0RzVZxTUMRLMgTATSRJBUyhHTCYiQiIZRZiAQooYKhI/OfamWi
QRvke8l/aDEu2BAwoBBA9sWkrudO0Qafgw4UTvxMgRHdBw3KPtBoc1dzSlJoFiUbiLjajvEOncdg
D/F5gTsI+EoUBBCEF5dIShOkCxSVAFyApMOt475e5U9Sr5PPWXQcsUS0AdhiR0GlDcOEoDYwr5In
aleynYHHMHn1t07nEJEWFfFQAKGDGMT8pFgWqAqyUQLtWWDKOqpwJMi4HnNRcilgPMPU4gv2BZF4
QAQopZmAgxwPqEhFUUxRSyUQSVUyVTFFCFCUo0CQRRIMNEQUUSIUkEtKUiEIRJDJJCEsSRIVREFV
VBFFRRVTQk0IQTMxERRELTIdJ9f1n18FNmFKBkgaeYpxecdECUyRIg3PowRVwYolzi2XLkTlDIRT
evgBoQpR8jP7TGnpFGwXnF8tT+3JS6GmkmCmgiTYDMaEi0UkFFJSERJULHCxQIIqQmYsPr8/5OB+
e8P5s+o6DoIl04gvtHmUfb90uAb4WsjUZWJNlE1UaM5G3DHJiiiCrmZIg/vI84cDCkOPEF41Ahsd
sMPemEg9Ue2T/LC8cnI9w+k4Gu8BgQQkAZtMZHfKYkTgi0H63EfeZOknVLdyxd4KpxsiAR3oeqla
RShPr9fUH9UiPakmb4MQMgYmqUSkSsgDtEaAikhhpWgJg+gwxUIlKQZmJWgpUoKWCVIhWhShA/zM
DSh84k6qY+rN453yz/6QbkVTTwY/kud++PYJQNrrOJi876o+mT3feK8GufLDmEKQBPTGCmsGgqhz
DK6duoztbGwbR0kHEIJViRL3PzwX1YHpIfUnYCiPsQn1Ln5GkYIECkloSIo7z+Jj7hIgbyAHpvyS
I6JEGYBpQCkaRYiZFCZUSgEZYiWhKUCkAiAaFGSRGhAghViIJoSIQEoFKEaoSJoSkRpVmoRWISho
WlKQJagTm1JQvIQxASkoVQMXJRDFQ2AZ0QBQuLSP8t53CvRilSqmKoCqIlCgECJZiIVSgIlplJ0A
ZwKESgRv4uC6khGmIZmmlpUpBbjAFAkREtIcQFODv2WlP5up4cocIfp+iz+F8DvKffvCyFr0pKXS
Hr9kGiktfa+eCJ2NITA6sByRPY+H6s9RIeRHcigTJiWJKfpegQePfwCkSYIgIJQDqk2dyeUZG4m0
AfpR7NW45/1Kaw4z9OjYFHWSHGUj9VtxBIxSIwh14HUc1+uaGh9QUOzVR9URQkRZJH7IUo6q5kWO
5PuMkdl0X6g6W4ccuIwt4LtIxAPkRSVeEnM4faTBKSy0sCSMEId71cjojFb1Y+/BQgb/PsGp9Pdp
c+X+eaaebUfjZNkV+qFEMIEhIeHd7q6TvrBJvKBTNgMgP1V81qhq3dWQcx3ghUSYhzkYKouWGGZn
nOSYoB4IVpCIpVdoRTGUUpU/ZAn6S+j6dkUNZARVDcamnSe5JLoUFAL8PNb5zzD0cOQ+Qe8erQTC
yULBX4fdAfH3PpKOfLr7oxMgk/A94fIYd3j9Rp0GHyuZW2FRJGxA4pPgVe0hZKqCKyR4kzD7qpa1
BPGECWQVtsi3EvDnZACjzx3fN4HAjpEPCIm2MIWEJZSiKUNLLKbbhKTJUq5ydNEyFLp1BQaLZOc1
By1mY/TicYd4MZQ3ineMAmYMkMJUx/N/P3p8G0SeKZJ3yB7QRNALzEh+cgSgikCoIJOAsB1TrugY
Hj1UzCof4eIhxSYF8goAvxZUd1pBiCUF0qQYYFSoRjSJ7YoBYeOlHpXQ6YC2jlE0q/O4ocCgC9Gf
+WdYxgOz0I0U3MFFU9kxPUKhAXtqAggqaPAWDEzQQSRFENIxNUkURNTLQQQFAQhJIxrQMQrQUIBF
FGnIQRKUjC0UARUkxTDK0zEwdx/Dw7xwAwzEEDRQtEASEsySkeS5gkaEJhvMC7pjRAbGmQpjWkKD
RqkgpCSJoKEWkfkJtBjurScksdsHUTllK6gUrYY6VOSSAhkaa2I0UMyGIxQbKwUkUMR5NJ5cE94H
Hc61lGU6cXhyfWVtEtEQhahWJBR48kAuOuDpg4gRAQ8ejOiK3JShOQzQAJQ7Qg0K0hwI0DI5QhEy
AZIWIlpXuEwcBChFDKIH74R4AuixgE6GeMKcYKENZyUlEoAqoEIIiEJOQNftN1Q3uBJSUo0OSIDe
ErSFVI1RESVQcZQ00gUkEpOyAc8RAQEbZEbRYMBjPsIAaPVgGUKDAm5CU6UIe1DMpE8fThsDJqAy
I3rZ3v2AvB9wecUc8PDBok0GIioGBiQ7BJCjXonS+SGkoSqJ5ldDEJPJzBJydTJEcUw4hiJBACtA
cBfIjSIewF10nbAQwWAeQ9FaGBVIGFHxz6EEeUjFUSgfb8xg0Iof+kHqkiJZB6SrSBEJopUX/kEC
GERMr+w47OTg4XU1tvymUf2mh8bDY+Fy9x0mMQbsCa2jnOPWlFzoenlbnlDBsQx7UbEQjBCcbQoI
b5AtCFCESqEkMOKlMQgwiJ0uT0D575t9cE/Wec/LYe/hb4fDiQFfJ+j8AtBIG7OhPx+YA9obd+nr
16tEkQjD91cXFzx7D4Fg9sMBv7KyLgBl76F/9SB0dFgUJydwPNcyNRtmyfSAiSByBZgF6cE/uBYD
IF2gaUcg5NznROJVHyRNIHhJiL4waFOa5cHXJPiENUi/88i+B5hPmTl2FT4GLpiCO3txpLxRApgP
9cjWrRCuouX3pgQok+Ib/SneB3Sug+pARB65w4P2IeQnhIJ1JThIcElaASfeAxA/34QTBch6F9I0
vTYcQgUq1ocfJHn26CeVC+uwr8kkTcTfNZIQMNYLRqNsdJZMLitJOU13i7iNy1VpxaFtXlU1bJUS
pCIa5oRzSj7MLeKhoAOf7WmUx+z96VQ+PP+4eo+W1P4Wd6i7wJ72KIQQOKeZ2fb2bAeoy+xA8/uD
4h5E6suAdDvDHQ9Pcevv6ANET28we5evnG3fkDtOcIbus8MbGGWx8TgGzEOQ8A4XOtdc9FHJbyh+
BZDsPKQoIEYXAh2NjwsgemwdMtikUgKHrLXS9DrNZQWNhkotBZD00bCKXuFEQoKaAA1Bs16kxsGJ
KlsQCNvPXOlYHaobt6cm0E/6gI4gG698lAxkDYve+s7ydwIYgN4U/NBT90R/nH93fR+l/7j/h+rR
/yJsDJDSDRCbEOQP+aHtEw/MCPv+D6lKzMucgdgEtIBKs46YKcHxCqoaCVCH+h0RohMaYFwWGkj5
ToCB+8ovAPCdOy57fv+lN+jpE9aH9YVJFRT8J3/6PzB6TqGWIU+upVShAwKJQIoj57q0YgRCPJ+4
Y00zP5WaD+UoGP/JdVVDqij/qyHY8LzR4EmjJwE4CqwA+Q95nECnGX4tTR6ttusbgm1xhDwFjTHN
mmDSI9K4ZdzidfUDTqiXVUY1RkijXeecMN5yOHIPO7iCx15GTu0Hh0rJTRMPkcnzoKivmygPnGJw
KFFsKK7xO4clQqYA45C5T50lh4rxPOmfOJzmXp4f4YfKRhhWCEAqQKJGIANK81Q7b0OwAbf2A+0E
pRgzj7OOdNufkvO7PLpT3BgfePs+Q7/midu1AYQU9CCB7YDARMfuBZxGRIAoVmCGSkRIgmQioQQo
QVf7yQQPWaPVrUkSSIkP7qoib4kC0OX9PuLCHuq17g5EP0Hv8e7j/MFgLQHwkBpKE7SwQC0VF/cT
HEIWIMWBIgpWBhkpMH58qcJCRRICQnj2P6PUYCuYguI0/jDV1m3XkHwB7qCocP0dn/ORZvz/4hIR
AEQksEGBAfNo83hRvHcvydvhOgP7Ts9m+nUKckBkqHlsISIklW2wFMZFGKT6A6FA0QMRKHMKZcqf
H38xMqB5b58MyyNiwiik1hg/Fr+r6txfk44cR6evYn6YHD5kgxPfig/8Lwfx4Gl8EAf3H/IARPnF
AQNf3fbGl+GRWTp/P+flOGPuU5VEEgLzHYVT6aT0h8b3iKdx2AEgkiQFgYR3kBcT2kB904J8cG6R
SstAkExIFJLJKEkrAtAwTDSTFEUAwRIpFBQMqwVVRJKxAxCREMpS/sO0Z2MRHwGDp4dCkoqqUYiU
ikaaWIKSmUikaRmiKiiIiIiigIJICIZhCWpggpoJLrBD2qhDq7CLkh2iSBIkSFSI97MabnA4NMQF
CKQxzBkkDSnwAorg4lkEfsHV/0Ij6VIkYlSWQpGYSkiKSJppSgpGJaKEKd13Bl1dhlSJZGxQpctA
+2wYDgEDDYvz81A11t/wxIYD8371Lg2DvPNH90LgmyIRIh8kaqmYmEZlCJiGCIKiklmKCViGgiAm
BhgpGgCIPL2c95EopRoB9yVDCpFgimkAoQFpfJOkHSQxA0PYMQrqiYSlSgXsmo+2RiQr+x1wvYeh
jIFH+eAHQEEiMRSluWANUCAUKBQo0rEgyAdwDiKvW7AHCA9kiLtCJsDCkhGHIHJEPylwVuYykRec
InKNE9EOQKUgdUog3sigYAdkUUoUD0wPhCaFpx5g/hRPw+dLIJlAQNUUXFse0/DsMFMJNTkWAeIz
9ToY5IUP2HzhxF8h6YwvQWCiEgb6w1F2uZGEQifhC3kShbrDgEvfO8nGbiXTrAfmgc3McqXuMf95
OhijtfWWHxb9So6DtdHYwUywQSpRMFTUlVQ0FMgUlExRFEUspMitCpQCEBIEgzVEkgTJBMkbIfnA
8+Lk96KHESysrErJAQwnKl0LACxxxyrlJiI5uhY2TKrCfeow3wKSqKSgISJOwmhpMC1hlvyLr6JU
iSEkINB7g8zZOqF6ZQyEFiFU1KuEva5EynKaBEpCSCYgYlpYZhpKYimqQmgY9r5YCgoImIiKAIhC
kJ84qnQgYkBkmaJoWmCUO+AQmE0UKVKQ0RDKcj9LtwRQ4AEhxF9Hi7xubJuyxJUQzBDAMKsQ0119
BvsdyeD5U/IP8fvD0vzdHaNPsB2SL5SWAlgIHwP5CiRgj5hfrlShClWlFaAKQhCqhIElCSkLTr7M
7cQebiAdAgPgJBjRYT+EIDtOdW36DMOhLQrSKh4eQwaBpsYW0EtEUG2fxaAIvWqoqKiR0NNJeyg9
Y8avYRiiG69zwexbK0kXv3BuPfWVODh4hKn5wP/Eef9OImGo1FjQYrHkAaIFI4M7aNdoUYYCHAxI
1cRPdBYE7xHLZi0C7OD/pICQV0IonjALiqBl9kQOiBmCq68AhJDklXSsoilqpAkX3HP7fLi4IPy/
4GcgB7IDf78T7uv2oWS+fuHbaGmZQCiYpmkhGJWYZCiiiVgUD4I94eP7uJOZCwHtLDUIG2g4qKTA
mL89rbNfuy4IcEXeN3Q/rh0G/zhmBDqFTAsAP2kDnr34nSG4dEIhpOwJSdDsCwT/gxgBZoSBYpvd
ifLIVQlC6R0hHgcD106C0C35AttZegFgXPaldQbxwzjunHZ2IOlgFh8g0UAQL9cOqD6w6QIogPp6
3qOl0nS3x1hz91SnA6gaYU2KP/cZWhS6KVEbTkqst0pXjFReJHZKTwCNxi3OfqBY4CyEJLSFo7fT
rfrw7ARIOJIcYdjTg1XORexHd2gk/6/qcBebwyvHzPRkjhkiaYlWIWKgIFhIhCgBejSCOwS/W6Z2
y0U9w3UgMgVCAlMSH63JhY6+HgBUWcmKhifrgowOYv1Ug3pRLTRiUWFIjFqqNaNB6And8DgdVzZA
PwlA0MHmoSRYLMURzgcIviHNHcDk6wYgIjnw0GiNQmSqV6sDJQogS+rYNLrB1GDZSDhfFExMFDBz
wIGMcUzAeJSBBCzjwcIPMAgB+8q+UgFoBEoF4jusARIaH1JJJDEwRQkiH++VppKRqkwRUUGkKDaD
AUjQUDJSQBmQ0QEkEyMy4D2H5PPmXqkAoMaZAmAjteA06DvAAHFUOQF86jExMhJBMMNQSRsRQQhi
kjEkjB/J9SP0Y34TuE20i0Lkaxw319RsHAIo9EiZwQwgt45ck4GYnctGuRCE0j4EI9eEQkYFNJrf
64ruBcbpbdPw5CkMYHslAkvvyLxOmD6Q8yH4PtoiRASd4QQ7cIr3yTyFgtEABrSwDP5sDrSPS2Mh
8XW7LTKtefggeQ5BgFKlITUDBA0MkCPI0COx5AVXFZk9k4zXcPatYacqSXNIatLnWeHYD8SpiDJA
kVg7rJgrQI0ISMrQ7YuPDnDkrgjOSsRjELBUIabHA3IDlFSFF/AZwSwawcihDreg9uA9mKE8UAfG
hudswqSJ1QsTquUkJeYBb787hhA6TtONHKQ4nWjZJMygYn9v7WOErIt/EYF+76l0sKmqAkgSKhvy
/sshdJhiJ5Ia7l7LYk8J1dUlW2Ai5CjvIqnbCR7sI+UtiNrd1+/YDB4lBtilg98xThNFGEBD9Nw2
qXS9NBDgiEPs36FZ9aHxp4znDEhEOsxCIQPWeQxPXHrkDJaVP4EgdJxoEke0C4Cvle2ohxXQ/UNQ
kgTaCj+CCcVHKKB/+gX7BWAImqkX6tFXQiQmKn0frOte3eHDtoKklIh6og+EH1yrU2vxekAokKjS
+0D8qL6BeD7uvFE9ByKGJogipCEmCIIoqSoYoiSAolgZ8UTI5QXrMpQLTYNfP7APawSREkZASAsA
zCUFBQ0IUCxCtMUwRRKQrBSAmtncBes3T1Sn7oMD3ySYCSoiPu0PUnr5OOFnxY8/qaRY7y4cDmk0
bhALe4JLpfsDAIiQzN3E/h9H864Bsf7zPheGVWDmwQVsh9hJwhduFGsi0fRD4us7g921Ctdvc5oD
koQtCwJyFbmmTRQ4skcNg8kdqcQBd8/xI7JHuRE8uQocYNH3eClz0nlkCNR8lAWCrNuFwAsQo455
o38d0Dod7grsJ0kU5F3tRi6khgDoyK1TeVmUrxgOBaGIvJKAxi8kDgECnJAgP7O85eG5T4jP4nfP
LzeL7AeDByCZNuDmR0O6F2BdQsRYU3KLAFkQP2Jgfae3ADGANwXaUDIc8ycuhoPhh3LuQZPCFtWB
wmg1DoJh0On57TyN0TohUT5DvW4Yfix4t2JkEuWLxT+T86f8mCuMYuJOpJm8tD8pD63EV/ixfRMv
1dNqMfk7DeZfP+zaEgwhzxH77Sa+i5Lbj/W4WjUX+linsDwj/gUbLdAsRpfWPkHxEGKiQoMCUWGH
pn0npiqCi/XwPp3Y3eBkuWJbJ7ShuMeMJZkQo9SGsKKAdQgAxBTSiB2K4Y2wMMAqiK0rpmpBg8io
8ixzinh17D/V0yeMOCgaI7n6MLC4JlsoKb/xEorZzZTGihqDLqy0rvV2woKbZ3aspHVKa0yIWLwS
muosCt3qw521tFL6zowAofGfX1GPL3tjkFoEPqpiiOYxgOTz7lwEAWfvxv/5pjwKKKabIJt0NHZf
gs88m01mzTNpYpfGUZiSCuDS4PRbRebNJ/3/d/YfW3HVRt5wqQl6KJ4YWNvWmw2Hq5x5dWn8Npq7
aQPkOb2Ab9ffyZKHYniozZsNfyBXyz9lNEPzrssBXlcbD/6XtZRpK+YpaLABJEPMh6fedFw9fJ4O
Rxrxnn9L49AHZbT1eb24mOnb4ejH9T7v5PpOCZ+mvu2/0rgdnZ1ev167+o/GavZ14cO1yy577DYO
9P0YbOOmkpYyfHz098LooE8of2qpZQsTyRhxwKFMmj+s47mvIEoaTlKoLKM9ucLLZPPQOBBOeMuF
SCG6GsWBSWVtqSyaHwIRuKGZlTkIYoB89yYYHSSeLz5kDC5+kgSKhRr96DP3z8TTiG3f8hYLdVUV
QSg5oEImfGYfQPYmRy5f9RRVJz/NSHdEe41Uom0gRZFQ030C/7o4QWwvkJoKIlaQllHXR/A+ix0x
f6f1lH1forXjDn6LhpCQCML0FBD6mzwv/aqABveCW1Ekz8CJowqWYxNIcXppGuwrhE+oIhhqDBsC
ckAzyO52qlxDLZPenuv/hHQh7MPRtT3n26q9n+kJAhPeHpTzcWpMPrT5azlIQSERVSUkMEzMpE0w
hCkBQ/Dvy7DBQAPg5B9XlQHRIQSo/XYKKShCBZKAipWhVOuTKlIgVpXvSt9G99vVn/dupxgoRklU
6CyCLoPT3zyhIQTQoB8iFRHATe7sjkD2zDBOjc9PbiT1er1d+/LZWv846fYUVtDKKINVTXElUbZa
xhE9jlKgS+wVvUIOmRd1apssdsCmxlTnDsYonrZopKMbMhFQy1DiJg2iIgwFNROIg2wGjFBkDBsc
APqMgEQMCEDBAWlLrjp64ZoFQcRIO7rBaDeU6ZCN1LvDGSeuX9fxaPPrBEDaid522s83a/ebw+se
/8L8uvzepA6w+08XdYQ9/J/bOu1BJ68thBXeS58YjycjzYcHL9fPnsyHvSC+b0gWESo2gtRBaggW
867Ay3yoIBxFUePhJJ5LCJzvSZnVwPZ+nIB6YjUf4sE/8TdvGyexEE41X7wW2mIP54ENvEFwxwJQ
ioWdIb7kiYgR+8/t9zBNGtpAChAHESrA8IBhDFU+IYFkI/IbgfHyLkmmOo+s2eX5tmMEGEN0EPbw
y/MvY4/KeQFV4ZncHmvwem/N0oeiePPc5vXXrPb5uAeRE1NJuBTHopzR6lRgeSzxSEcvilW+NOas
B1f5H031qtwVX0422RFeTuVaVAhGLTRXo8+DvDtUd7nkluk0xFI+iA7zph14rA8jPvddvaGEQJbg
AWjw3/LI+mANOv6KL6eH+GRL/ETdTP+ukU1tMFyw1f6ajL9r7R8y+t0/2vuBj7tB79Ezi5jMJhBK
CPCH4oiUftQIxS2STYlaJhCpTZATQHIYiPADIL+/xFDCKWLgsAM09v4Hr7BX6/2Jw5+YwA+45riE
nmnwyn5yvLiMSUh5CJKCAt/zcT4+a+MUUYgFa/IJZpAqADXlCeuGuHOHKqov9uZmWZH/l0aRPQoe
cQPTpe1KvHt1kfo/35oU4R+Qj9TcClSnmE/HBCR4f82A7JEUj3b7yChqkKpoC2iQiCliQ0lJVAUk
wklURtnWa0GJImiZjFEouSAETQX49fVw8RPigdQHcg/JAnTKf5/t+hRr+mIVtef7fmHvbfu48+hK
dFFV90gHAx8JIYR3vGr2Gik7sUlUi1SRCRAAQkPn1w/UYf37HOA4hRW5kYZhhBmHkzP4drRqNRkF
/AwPFAhyhCgTzyLtUdMqYHuGnu3DcueYbk0cHfPMIEf3/6/8LZQ/HSj/uI3IKHYXFA6fWjcsQBPU
c9J/sn6D9YfxO8qpEP/cHLff9Uf4FQoMyAqk5jOiRt/KBDq6cyQ5MHBvc0J2XcAMYVjgSY1R/E5k
XELTXDkLRp2MRv9y+pO0TLjL/snJdPUHUf5fugQYQia9mTtZoTtCLs+wcDEwB2SQ0ce+bD4IhS3R
EoAOhgFCSXAsJebioNiJMpxDoxzm7LkRuXxRyCXuh9F1BfvOC8AIvRGRKBiJI9sL8hA6oigKSCp4
EVoHbFf60kNREQnGNIFKnEZcjC0JMU8IeIQi8hF5IUIOlSItgzsqDpSmJF/84LeQuEq/j2uwoSUI
TX6pBd4gpSP+gT88fN7SZDi2EGK5Y7Jko+qVDIbQJYU/LOlbQhmwd5UM11fwB/Dz7rfsNepfnH9X
6TyGqJ/GFQ40/lz+3E3IgHs/gUIOUQ5oCgeTPP5ToyDy+Z5Gr5yoWPV0+/34/ifwM44e6ub5/3aP
yK8Q8Zx3HmNAuaG1xP1Q/cp5BOcbUZv15+AbQDq1acmh1o8nmo/d0d4ePZyHJ6ert04UGGxO/3Tw
5/KA8H5Hv8B4Df3S4pJrVQCqAH2tEfCHf0QMWq3lQI6gZ/GUc8ahMfp5+6UHuie9OKoE7wuQGE0H
Tcdydi85s19+rpRBK4u8cZ+x6P6opBg1BqA1JJQUDQB/GbJPzh6QRLLP+0tSQlE7PGUJDozObPD1
cXiPcdA8aO/r5PU+k6ejd4nfHI9EWQEBz9xtPAF5jYAcgIJp4eWD8c1ThgAyKiEPZ4/ZnrA9Rxn3
9P+2CJShCkIk8w+4HwWkkoqqFpoIkYCQ0YKmIP3xXSGccOXdyHdRofj7c/hLSbcBbHCMTvp+MTow
QQonJAo8ez26dzzD7K2cZAt5veHvIged9Hpe/Q1m7ic/Thu7fgV6vRbpU8dSckvAhIwco4HrJMT1
Ey4BkUMlSefMCIqiSSSimKApZT8cuSIJhGEaagCIJPjB5B4XYL3ZYJKplCTmDEIhRSiVSBRAfmZ9
4cWylErvVJczDwMz+kIj799DpgsIOApiCJiIfd0+u+vm0ZO5mGygFNYNW0q1AxB24DHvcSFqyis3
FVHQ/ZjCB6YiVFwLJ3HHiZM1hAsgupaSCAqphioGICImCTYcTMhTDMFEE1AAVrNUhILk1tJE5ZMl
IVTiESbJmzS2TUtTjJDIQY0TLjBDFzHOCrZpoLbBpYHbDiQCMWXmwcHYCHZDBKS4nE0azMERydNT
NHCdDBRpCMZoiK+1ioE4YEmDLGA2ZWiApxrGZzDC4gnLWyYKIiCx3lzIkMBJywU0AQ+sOqOWnVnW
BoocYYSNY9nHi8mNhNSRSSkghRB4wBjjARA6xkxK8kKoTS8DQbRV6BY5wcCJJK6oe8DF3qc5rG2D
NOUi0Gai5PTodIoFo4mjZSbnMHe5uSRqslpKTaxQQLUGQjY0YxGIGoaGINrE4ySy85Y4UxwzNGDZ
wCaKIMwSeHDRAvEgjAslaA0GM6ZlhmpqqaEqJFIJoSJaYk0mFZaSIiIokdnKUpQ1BIvrKaWg0poj
0WYnowLomDBjenBgKuMFgNsIJAVLqqQgpCVxRRYaXgLbjpKSYMYKAYkt/uw3OcH/gnhe7smuSA0x
MNlRs4EINRyNsU6Yg9WDivTi8gggiSgouYjG1BjGihiDRE6Dbm5AaaDEEN3CZCOQYiIgJJIH3hMp
EUwRwZ0j4Yc1QRRFMFJDPk4aSiAuSJkZkxnNrB9IMEfMZODgxjY5Yie7M73zcKiA84mWh1ioDesp
koCmAnrRKbBttpaZkhoYY0IuUDwIdO1rzzne6QoFj6sO8wOCV48sNQeb2/T4eHote2fHpHkSkQUU
QUkEExLQFQQMz9Y0UVMzSxTNAQkRFAQ1SNUoZIOEuM9IQAaIApA7sInbhUpAoYkDUKdkiGTSLSDF
vBifv2HmDLVIkgSMUIT4S6niMgpwAhGIXwBbxtD343IclxgyfJjKOLsnlDy805AdnO7jTx1HlO0e
fJ8uoHNSyD2Uy80Azn691kRPhR8Z/ew9/qnx120qnd17h7BET8B2uOsrZCE4hOHQ74Gx20vhaV4w
tCAxiwOEe3B7NvmzpaQmqSkrQ44E+IlHfibwSUeQgYlTTSFsAOfUvOCnG/ynQekeEdCQxmJE8COV
Fk6uHgrRSn8f048ABhCEOpeyeEA3sOgcQ5VUrCPQzkKJgDrGZN73h3KzL9Ajgcw4wXo5AQGjjCQE
JAJCXAx0jt1gDNC1R6lDHCsYyeG5xfUzH0JYjTRiFOJ1B6QC/Xn9nw7wEI9e2dAV3zfSf4vBop7R
/XJFIaNIIdCgBFzgC2Bbe/gerDn+U+b3G7dFQAPYuXUSJzANlV65Ol60UUImCVGAWVAoCVJI4vOm
mKKKZmokpCEoloWooAiCRaCC0CiRrEbgb9few/l6elYoikCgXIFzxBeoGwp+uKUH/ICAwhrN6csE
ffENd2bniGMrWUkK9MFId3fMJKKomUNEAsm3OJYF3lkEaYOxmkXtoFuPNpRNsC6fCCSUYhQIkrr3
Q7TH/4SiaDIMGWpk7n04+ywxAfMEKBuML8kAmTBEISOJ7PbznOc5QCsqgRM9D2cfF5LoejLpPZ9f
ukidEadKKjD11RchTgfMNkVDRCdWymIYieUhGkaApFKGLAUIxUGAMFQzBC630dC1+zyjyRNUQvaJ
DsnRUKGpQcilSlamFhgkkaGZEoQDtPsYL78AtKnBQgQCagArxXPWAJSlICfUEf7oY7dDEYvw3FwR
tw2ImowLzRvpO694hbcQjA7bOTjuayLuI7YeHNxFi2OcRwRQdl3UskGhwkKursBtppK2OhjVQkGg
AoaRToil3LsqoQiKZQm2tETtgNrEKRhOcTmuceFyCjkqFRjbIOhqiKk0qiaaKhCiFBQvNhkiiG6B
McMF07VcNEEVRmGD8fS8JKYjS8Kl1A/MfB9e3IVsBoMQGhjGAHYRbC3pXUYJcf5kEoeBzE92H0kL
7compTSR3icC/MYJkQOr9enBJPrP4jhriQnGocuP44ct8S8CQD9Ua9fUY3P3RHVD5gF+o+Ko2A1j
HbUMMIH+FgelUA3lzv/lTAA/cZLLJJBDMqpS9CrIMP7oRimTgv+JcQSDvEP488vGdZ/Na8IbORck
9OkKIIHh9Et9ZiDdwQ7v6ppLbLY2hi0gH8PN8xEaGPHovqFOHcqJ9ve9VJQUfTDnwBPUUFI4fQq4
2D+M/YY7+l3OYu2QhKpxMEoXSqrQSKmDqAk6UUStgUDbJJ9N6bp5mCjZ32Ph9z4o4b1OYzBecFwr
qPMQJ9h94LZ+8FgWC4VUCAMQyUTuYKrSaj37PROUE2HJjibWi7Dhm2Yp6480HluLuZl3R5yciZIQ
kJIiA07MBxMwBinbPBL6JNT98Ct5z9PVDsxTVN32VIzj+j9t2R8uVHsqqjnCR49Lj5PaBZxQeLSf
DmDVBVXfhQ5ToOHts9br5RXkF1GAdEQOskbmMxCASUMls42U0mIoxtRiRDGTAEta22LRgZhmEo2V
MQGz2rNFKgAbHOOfVn7u15fK1QJTINPBOyO3f906JGnL3ZRTxALKrqOLxvHrbANURTeAKbSgD38d
B8IWoCqL8eHTGxkPvLmU1CERC9PSpyKEgU50eYZkLLcLJWNPqt7rBzRysVVHF+bBRNcARMHrCfaI
aTxBBVHvvSZEan2TM89FnDHhpWkNc8049Jrs5wR11nD/xuB0kvhKe9x9xy3tgQjYMGyHikVQfGQq
KKNqDh9t/6aw5IRvZrDA2o0cPQj6tPwHb8R7ugDQlOpVaY6OnNkbbay3dHEgdBCosGAcsTCK5xHB
puijh0ga/TqJAxgfBwJC7P+HjdEV7Y5CZn9ueV9AIw9UaquWyS21uBGI4RNrv+rWYTAOE1Tg7ynM
iQn+bJIoDxQUSXD5TF86i1qTtwOuNDTQcV8jgylE7pUqVFqDdJxhhCq3q6uiIagUnq0XZdFsYM/3
2FuxBYjZ+f/hD5aBb3yUhsoaCmhrcG4+ESBZWVWVRjVtG8jYqH6WOYsbEUlMXrGLZMSBiaPuPmZW
8AK1buBb3UqoKBQ4YMO2ubi8NEyBIyygjbNFA3CUyJomFLqzkjcQg+HiHLt0tw1vHhwjDmirghjo
mDvz5JjSUC5sHURO4gcXjkAmcGFyiTH3Z+VPF+B/MeQ0gB7Aeckk997n7o/OHyn52Ufd5H8D000S
T5FUgzm422UhCQFBnJQCYjBdZ/SJ+3nUKy5w/cH8vl/Nf6X7KR3CfqOoTa613qEVAiruECcqaBEA
ELkiQiHKk+rluAWPPD5Q+cRXgSxBr9wzoppiD7ZT2UDSY84KEiIlJD8EwIJQYSqRhEgQhYhaQkuf
vxFHlBQMyfs0WlthzaU/lh/geuIZA6EP808oik5P87OIImnOMMQwwHAoaqFf3dIRMCyC81PAqHwy
EEL+5A4oud/Dveh+qEA8kaQSNkTvyABvCrQmQK6okQpA8WB24AtKFCgBwQgAIUSVTRGEKEASGxIb
ghxAIUIttpExBIY3T4FV3Db/k2D8wL/phEIItryQiyLIlgNAtdOj1UCBdDYmGtUBOr7F/goDBJB2
cVQf5v39wH+Tu7EQLSL+BCiZCKEV/lxiYilAgRgxgBzdH6si4ZevIBbALFA8nnDbynkE+Hg4icI7
IeMEzyVpaTjAYDUhQ3PEc4Pl0qmqCQIYVSkQ6DHEJEKVD9xB3CRdQIlAsZ5O8o6PH0oIBvDSolIr
ECFAIFIDELQCv0wPRXig5YA/kwIGEKQ4KdXSAfP8vEfIUlET2hWT95rHogg4AEg+ZCRoaRhhqYEi
VGJdSBjHXHsQKGiQWWKRiICCSi+EPmcOCqAaoKngiMD5FBT96QGCzcYnJgWEecg9pPaKqPj4h2RH
ocnMqiIKMIcqYpkP40hDEckdUMShARQxEEFK00AwklLASASpKVIMSzLLVEJBW4MYQNBSUAUFESw0
h3e6IK9p0KHAgEOYnQ++d9x9tD+KQktTEm4uURYM/Qbv1cNaatRUQYAkDXegcYFwwouR9L+FWiNv
0VlkjjYxn2mlfa3aK1fjb2E4tTwNYIUiiT0XRf8P5faX96VEJI+T83N8RUkkSCQjGMO85fP8n5ew
7zWiCb0+o/T+235vwzBVdYi8Qef6vh/UHu7XuLP56dWrYSQtQyqguAksP9RArAEhQtMqEBKpKVAP
2dgmy7CiGI4KAZ/EGMT/WSFFKEErMwASUEMkQBEjLATQhIE0ylIn1wnAabigzKdCKEMCk0j76CON
QFIDyK5AVi03ecGkhh5FX9Gec0o3iYxO27uHA2CgzPeaA5RSTCcuyc4GMkBaTS4mTbHmXQFhjhLL
LSVQWloWiH08363tQ+fDIdWmi3HondmJIICeS6CaDSJlWKqmLmAsi4oC5Igkge3soeSofwYPUHqx
qzpqIcaI2qEE0BoFikDagRgJVrElKWh1VRDk2iMODbAU1VU2GNOGY5YwmVJoOXv/cfsNh3YEJCUi
gpm4jMGdQYo/GaxZ4GP2a56M1LLEdsFowVjEwtlxKrEUp9yfwodeCMyo/vbwuGDINjMyvZUzCA1R
DCX3XbV0He2OEHCSGQpiZkGkIICYWICZKoQpAKKpGCBqSBYGkilaOrfr7woPTCfrhFQggCCoBwf9
PmAIIUJgIHKYDQfLE9AGs3/sShX8IPLBAezn+BYPR6fy7dv9sO063NN4QlVREErqGnZfwL6qR7J5
zj0y4u7v6doTGCFRaxliyOVVEhCQkajUKCoVIJKqp0goplHFrbhbc5rJcmjmjDBFJadzUVUr8tVR
dOkUDGEkKJCkDIyFOkw/u7p0gemAb7EWHRTjpzgHQYaCiJRNwdl7R9nMWOvyYJY/dfm+U6HHoTIA
O0iABunwyqiTtpgV12kuxMToLtnCcuZqo5SIYYDk4Z3Q8AwKRl/+JD+Ei0n+RZlVtj/z+UJcYQb6
lu5kDzfG/8cBxcMuR0+dcl7/0bRsKmdS/3KgEKPHjZRwVHyJEAZFV+I+Q3psZBgG/6FAsSwDd3+z
UwDP8UwvnU+B1hFKFfkjB3I9sw9SSE2AgWuvx4CrwRg0JmTNKZSF0LjfnxNAKHPrVESifnDrokBG
eEwoKhebr1ekRCLQYf/uRgcRGqbbb48WBbBejRpxqzouewaMamqIjhYkNo/IgaC3wELY7ZCr1fRJ
fjYR0Ohnz47u0E6QJBJPdpp69D6lF4HUtdv8Ie74xnsVg8++AyRcirdQxncB4LsIYgF/TFxQxigf
J6psjW4C3rExnI5U8trXQHUM+/DjO1AWOIP/KfQmpiv7KckaKC89y4aDbkogpnJEDGqRQkcny7KQ
gisBZWmjzz8oWMn5tgPj/YL8xdivvxyjHMnDc8CXGlXiFktaj3BCXKTUqDYqypqr1s95nyITycr4
Gj0P/PWkbnqymkapxSSN+7gU58fqCpTC6H/3WauMgJW9Ij0CVUUDLMCTfDtyqRcU2kFZ8aQCVLMj
WoqKohLLVcbmYFSm8kBy9Zo0ktSrgiNM04pAoaoUHTKodA5jIWe2yj4logRYqZQTVTcunKcKKisu
Gj1wy09aI6KRHACB+9If+rP3nQkYYhBnAGrag6PYGuMwL8Vb5PQEmcjdxS6obVHoNpkT3kKWU2mm
2xvVU80WMeSvoQcbEN2CxpN6yWc1ECnSksBxQewJfd1305IcTdcTAbYSoDdvxJg1dL6hV7emkgV9
5dCUJRCCbsfP+hdwAzXXcECfZYJPTWmqbGCXo76+qKWrrBLX0lhehoRbVnqBx45jFcNLEjIk59mf
E5DwYhqzomcd+JYL4MPf0j8sUST5PR0ji4Yjc9Gj0MjwqvjH8gS8cHshTXqhqIwEpnJ4o1oHOWpV
LC3Y9Aqp00z1IGat0wSYkvLQ+bpMb7zu7PQcOWg4aWm8iIxnR6EVI9mbEbYAdcVxMBPPTagdJBNG
WrAwUPliOwDg9qxdLepKsdVVBftMo9A7xpAbNqtk2yM5+krRMCsN+7wfHwekrTLF8JvsPlXZIvQd
XW02O1Idvp+EXtS9EgOkD8qQSwkW4JokQRWAMxCBheSJlCBXjppGH77sCyAMbFQ+PNdZ330Wy/PS
BYmeOtUdteKjYW44wUOO3wzbvEOSht+XTSMaI/FOAkuyuNnww0Pps4UDbCvMLaXY3zEtDEIsSuFD
DkFhg45ZiZYb5XilYQ0moJIJwmkQyIl6lqGojQYFiEgXGxppNJEEqFRXWUi3IcWezQLiuPCm8Atx
AugQEu+liOGLfJCqlK9Y79dWWW6bzjbWHbICjZED04HzXmQGbJS4hWSPtNnWSI6bgG7wmQ9bCvDF
yTGeLQkvScURoQ2AvgNd3Bvjkp0ONKPkgp8IKvJh0FoIPjsQHaoXhmM10exmGB6MwGCbrz3yKnZb
PEPwaHkd0Ow/AGY44oaQSOCRljBYhgKd26KsIEGFshSMKQti+6WfLDk1sOFp1Mu2berlG9RqykSa
MQ3kXioMq4pCHBIj2uBl0VtqqLIh14aVjwwIscJaoplOqoObIniwrKRVWO6pFuMuqChhQ9TLPjVJ
vi1t1Fb6ks9/FCfVgN8Ki0rcZxS2xHo90Hs9+hDzgaqFrkqZJklsSXKDXDvAdx+yeJMTno1fxjTI
XZ3DgDMYa/jfr4Fgxcd+nJ0vcEtGJthb9bgryLhlASCBigu3sr0gR2qgddQHI0IIh98LHjfoeteG
NNjPs5h69eChsrvwHhoXsXuvSDykihnxZ9XBBNNW0vToO7CPPgEKOcmEVd2CbMLCC9g27cJwUB18
vOtE6z6QR8a4wc+hQoZu1iZ4jbbGxsZycjMrUmJnmRjGMbdrzKbYmHNcYz25t1mcmHGrL6DJQDkQ
0sKiN0AljFwunqhD19COU2b3T/xn56FyK5pi4Dg+MMOxMs8ZEpUVZIRZitcqTUicqq8OCIJo5TkZ
Db3yXAhiceDxQ43LdWJYOlpaD6lYIBnZlVWCHypw0IpVgcPzQvG+AOJvPrR4uwb5anjm73IROmPz
GLK0WfGLlmNRlyE7vu/QoUIHtCwOEIVNs90aBQdZ5TipPkwCQBYIUiPTiIHG3AMEo2aFBK9T1ePy
SFYLS0sNcW24aCIMAyC0mPZCE4RkO6FzCIFAwiQMm2wVxvpQSiFBsKVMiVezkSgP1vHa0R+/I6hi
RGyBY1vXQoYD/6LWWwcWg2YEjeC2zebmZJFQ8VBD92lywXxBpImdcWwD1yhxuWPTp67p5IHXaSCm
A7iRzxqO7do/f44N2U9cXFvSEqcdThScHPKy0h9+EB8VIobrsoH4m9n14fzvdm0MgfRP0q+hPvRL
Dfjtn6ZtZyPsHEXVIwK4eAKaCiIiC4KCNNYT2fDh1mAxOTsMHmWrtDuJfIQTEDIV5c2OixzMAJFg
/oMArZqxecNOxBJ95AFj8X65hbaHyIgeU0yvHjr8xgu/cDBM3BYEODrJOS3kJI0wITsjzV0ZypA1
pbW2nsfsEACCxavI98nsgfhIH6TdOjaaFEVIEucdzwie5eY/dKjMdxvqH/S1pctcISaIgjJNOal5
48Qw3rHJZg/LBdrBYVguIb70czBK3H0SFbhATc2wd4c9ApiAY4LcQOERxpeoGvx9ebA2QiOOo+GO
h1uXbY9xJdDPdkHX2qqV5Ny3To7r/164SrrjYUgViDdesPsqPc1S2yxjskb9pafJjo9HoCmXh83o
vA39ONL2yeGjipPSUBh8a6AjBwDr7WE3F6i2Ucz0FQjB7AMQ5196iYnCbNH2jis+HRS0dPVc7jOh
EH8wTSWjJGGeHPDLsPExj+clIGsxphWNajfRhsitQF2C3sr6jvzv7Df3UFr4svgDlpYNAXDDq1MJ
5tb0sB79yJUNnRES0Hu+U0n80HUH3LYbKkCEuqS76uGF4WUI00qfPBtpJjKCpG0/NKg75yiBoOOF
7RRNppt98+avxCrspj54VVeFWn8ZvNEpjJKrqjZylwbmkiAHu3xGIeoFS20dIOfplgxMHvrcIQEg
COzFj1npCvuaARW7YSatCPJ9fxog0Hli0QFV3no+S2JJecj0RwHUBbu/RYM+dOPm5Ho5lMwQcw0S
7A/BoQTfyoFmzHzhfgt+mW+9BrgueBSDlwZAOWUWQF35uysbt4gxrEJkYi/FBpq0jNrGkMaPay1r
U0y6tPbcF93JvtlA9FzptetoEqc/V6QT2XrWPrLYZ/b9Om0xt9ifDr36fJ3j49fG+HVk8NfRw3D3
nT1DQ5HxH3/YhB6/n2oXfm6O+l6E3c2vPzc+u/JWzk4Fw7dr0FA1QAetHeoh4JvB8jwnvCA2aaBE
lC0BHsVgxR7vgUI7Qkoq7nCwBipqYQ8IAelWRJPrWqslqUNICz/Wd8JiPjOo+GJM2iJtq59gViKo
gQkhQoSpUAIoEYJUpiKGCSZZgX4TxPeCj27tKxbDYaUVIo+72NDpMViDSYI1z2wM0HticFO4aG2d
9AwxJALypudrygZ4SLWgGOqXADsYfAYTi85haRkCezFCyG1gbwgJgDZoE3GUgSCMB0NpMZyFnbJ8
yPzX8hXNQdySBQgpKkcLV2ciopMpH8Bj9PBgY0gEx4QDdsNQWHFMtDK/AzhrwS4UdBCkydFoV0M5
s7CkMfKOhDOKuzpctKz2Y+9sv2qUM80rcaZRXvDStgTj6n8qDB5z+ydDd7oRXt+olcGiZ9YejvU4
meyM+J+WcI5+UBGAmJpOIHeU4UEqlIAzJf2mUbpt4hQ/qmvACl9J9dL9tJ22QtAPhH9n1f1VVXLF
U1Rb9x+eF6hhJe1n9OONrS+GS/pNvb4H7kDaki+/4HrPkeZ8Ag7HmCA9n6ij2Y4yqKsrj0lAVLNy
i3SYW/PcTMfU3A/bB8J+vYUJzEAhBNk7PsZODddOJG2ChaEoBMH2f4fYSxQKuBQc8aFi7yGHx5eP
P5dl2kTm5zr0frQ949gPcPw6+ioDjmfKoESIZNIa1GGUf5IE7w1aKD+/J2f1QD3BYP7QKsEoFaA3
RaD92G5D4glrTslLDOASfGHy2biy0rlF2bewSY2YiAk7ybEIZ0tRNA28uUzrnoLSLLaJmqoNaIki
huVXIJO2ZZWNWBvJSMaAGhkaHMp4UrpnUMQlQ3fEKRScsdDRSGjmW8QRRapYxPVnUKIURMYxigwo
bNMcK8xSeE8KxhJPUmgFiAOyjjmQGhiT6AsHA4a98O+sqQve8eJQFDHELoLxRgXzvTwhnPqUa9DP
q5Ph8/IYTDZ035NmLb7at0353ePEqsgUClNB4fkV/bKDbDg6AkcNcLJhy5B/KiagjGjkqmDsbr+6
AeWHfRRmR+oTP67OOXUWrwmxAtICxHyvMQ+z10Qipx+qlUH3umkmOnBpBTQimdNWNJN4WSzVixis
KkVKih5CnQS0tDQ2gdQuQWZE27sK1Rg0RjoY8m1u50+EeIf61+n1Z0bnpF4j9+s9P758o290kZB9
nm47fnVOFUFZ2LfPdoUsIHTzNlb+usvTq5QWQFiYYaVNZMp/ccY4nKQE3TW36JIC/S0EbBuVQLEA
v6qTZUAj6kl7fTgOQPU1NG7Hb8XiycySZ2LVt+hij/pzUlpI6qoJ/tpbm74bHZhRq4k5AhaASjio
h6N/JOPPAcP44efz+hP5ju7F7RwH2nZ9PzfCfD4Ovz1WAlFbGxypCpASeVboao7wLh1L/3S9ad87
5o+dgvc7WaJAYDwqPiTEHGDRWhrS9jjPZxIeeB1sYZYlEJvbS5OR7MYOHmdhi73hrImISKl9S4IS
Q7OozW5H5k4PRtx4lUyVMzNVFUXLAPH7tYuekx2ZmhKN89A6MiHcwMImqH2rKKYiiZaqjUNZ5zuc
DlrZ2iqmJmotfTrnubOiJm3TDKhqo4Wr6bUGybmzUbH737fneh5JEeoRNuhxn3UURlMq3QyicONt
tMfsH4PH+k5TAw19JLJRtqgmBOTGxY5T+NCByxdp5q5YawIybCd/X48feeH4lhSiKHUfePM9BagP
IB6V8gfiob/r4eR6ZTCgzEIpSRKWCAKJTZbZ/444QFCvHEYAYhAUkXyqgAe7lHrSdcHvUgcDZz73
Yi7IEkgdORLSHQWa3EVhfZd2BFQIeuvIeX9HmfRjesbE5MitNAoNZxnHwTpiEnUVUMwxqRKCSNww
3JgE2cO2PD1hIH8jAkGDXFBTYyMCdwI4Psi9FAo7N1zb047Osaoie7G52uIPTPZ1hqFd0fIReO14
hIIWipNeuhn90o9svN/+2sCHoCfAeYx9g+th6mPySduO5LnCsiI1OSXCs7BUGEGC+GDRRiVmj/hf
lutMZICgQQ4Ph4cCYtnkPHkaDktGhM5jU5V5NAmFKaaVqm4QC6MXT6u++b2+ICO8Rc1UcEaEHmfY
aG0gLeigxiWsg0WaJXP/tyNcE/2BH0RrHwmil1MTN5Fpwgycxy8u2tBkQqGPiUd5Q/kgQd3Kv5c6
dKm0OukPe82xPhAdB/VnRY5/OPpERXa/hg+nWiEwFfNf9DfcWSuT4+TmX6f1UZBrrof0F/AjzKdP
n6+j0cRk/QkIVRJREJBBBHRmBD5v36DxclF+Hyjx+HGm/MFy7FKBc4kA41UpB/WHsD/RrwAuBzMD
60efxBQEHIPiPBh7vw5oj7pBPu8Bg/fB/hB+UgOi+r2MA+uD3/EGERIQEyEENBDNAfhmIfiZk3VY
lBRU/dOaiafw22MfuHNxhI2FcOFghoJBwhaoV+P5vDoOAXxZlcTKxBi9kw6/YDOHy4m4wbJQwzIF
JIAR6tx/xwMBV3ZtPuPXO42Arc0SYBigdevA/VeRP2/tO9ub7ZnP3ijQ+V7nCHRJQzLEgUurIq54
T4Y0nhAqMxxrAuG/Sr4naeeT6cEtDm/bzYj+7A0hIT40dtq3/+frul7Elbq9N3+Mwi+uv+qjeQOg
6nVwYv2uI+uoVvql/5stjG0c4Mx90p9rk01URdsVFvWe/b6nE9RR0RkZPhE+30AL6T1e/5g9RENE
VBFEBEqVTAzEiTJBMTLVMEXlzFSmKgKAEglfnzCgpaISaBpJ/b7X5uA8IFgmUZSRA3hReQzrWJkc
zKhwycZj+BxK5DEUBAfJSOU5AxMpCkRQD0OkzQUwkNCPjAn1kRsqEduGLFRnouP1E7Z3xzDIcra7
/18ZJf8FEQPINKcYMywluO2UpDTP3iDhgEDjW9Ti0ICEzLoo0IYEoEoEivGoJ0OTeZzYRjrIIKYi
lMRcaZxAShuWshZvChrgW9W6gRhe5xDiFZUZhUs2z/NZvSsEaigSChBkfOJkFtvX05RF6aZ9RAd9
K+zodIaNcJWwY00bZTEFNG09a6X67Voe+YCEtOinkqclhxSBdEhsaFNJDviOhK08RmAUwYUAVK7W
xGCYhixbtULMADVYCoZGRYxIWYemYB4dQAcGI9h53m5i9yF4VE9nf7YUQs4zLjHmQNsEkQhKUICd
ZAIPnuP+ucT9ggfmcTF/4Fk3BxiRcWt5ooiT741PpgxROmTDXZrbfF3h2KYJijcMicOELBIHfSLU
AVcIpybtUOUN4qWDWAPOiiendSeFQiRpMkQpSEjV+Z9h0+eXy7nGAA1asGIWivuNfl7Tf+PznKH7
a1BypFhApkDmnJnfWIQ5iMkLsL3lQAMyghpCSkidkmO4HbUQ+e/OiYAVrhNrCob9xZxgXHYvVFq0
yhQ2ca2XaIeGpQCyXQgWiJ90U72P3EdzxFcBDZQfyIh3Q6Zzx7ogGwIjlakHKEp/eiy79szGxHMc
IblH+LvVNE0UFXR/HuniUA4A/FBg+AX0dm+qLXmw1RES63X9vAM/UdXnNVSuSd4gwT1YOSHR9h7Z
+xA59bunGfuBnvMhpEu3J6Y8Td6UPne9Y8JX09tVF23y3gmoQqvB/QfrIKCc4jZy6NpiTW3xUKki
F1gvhKhOmkqJIcvIH6j6Hyd5oPKEjID14+juPxPYdmPh1T1c3OXjUOR7enzc4/t6tvZ9iPgw7gOz
/h2ljgqCiabbPRA4D84KB6ngA+JECgtwo2/Px/pA2Lpp2IGhqZHuk1FvIa56PrPFzO6GDDrrSL9z
YfoDdc5qw/2tkDgo8ao+gTha7DlfsLsTM0NWD3eClJ0EXvQBW7TRYXkDpqri48O6qi+Jxy1DDZW4
OzYMZtSiXKoa9O5t5KerDosWOmBofRwHBRAuYrTEJoFrmpuWNlOqp/Nh8uuF3aF47Dwk1WI7fQxq
ljn6/WcMavqHrDPXXYaoNiXQJAOn4L6uPQi7aGstY0a4pDFwA8aGYiyAILFwxENDhbKiA1kKaUtX
Dwf0GI8P08gBuhwdRzqV0E5UB3BmPPLYAtnh2bjGiNkKEwqDhVKSJqiiVWNalfxA8cHmz1NnPgsP
QBH98t7VwqQngAv4kjtXqgtJVBfh4WcKf+4fMeUhestpinYXZ4uTudXOVqF5q8DIQEEZV6XVJ7yD
nKgINU5YD3ClrXo+lDswuWddU58OfWywk5pDHJacc7XZxOo63rp4hGVwOZrhhRRRRRRRRFRAAvI4
GXazEKALtpsB29HbNYMGUA/bgylwCWoaH7cwphOBzi6srehQmhVgF/JFcodNWcvp0AP/YYaAzID4
ddnlB0ycyu7Qd1ZX491fYJemrBLnq4db1p7sqk5ui35PQlZDTFoEoW0auYaE97fkYENkKCZFrRAu
yGNu/G9+Y7Hr69JhINkyD66I8iWLd6+BePEdkRNeJEgQR2C1WOkDorA4DpyBs+KIwOfHME8Cne/B
L6GGpRdgFHLVNPkaXTA62zzWq4QkqPFUOjwnE7gdEHYE5A6l8Alrdg44QKbp9+GBh4OzRsHUndUW
WuS9d70a8i42Edq2XwnQ5680Fs9AfIXC+ELDVBnJoOJx48bF5OgkkDhh4dlHAJURceCFIzpS0G6n
bsJWhr09DBGmgafGjFopWXdrmdGBRCyl0NGpj4YFMMO5oTFmUMu6oUDqOtCYlZvHU2GX16I1pMbE
2FMMBKjLlVPHo5QQ0hM87Tryw0smmkBXUIDFJIwFuvXZSrJ62Xot5JRezy+M8De/FND4NRqXVnqu
TxwpXQaEd31lh0Z1VD1Q5R8GYRE+SszFA0NdvpGxgdTrGVs9yDYF5tpjVDIqKKnitJlT31TtSnK1
07vqhDUWjjdQdOIyIICCLYSCGZpFxdoNAQJ79oG2Zvt02rQwjQd75qvFygg9+/jrgoTJD0GhLT8A
9B46VDghAfFjp6MxDHCE1H0MlKEaDssNaZrQajDx1Dggu+L3e0sFY98rWFT0jGxwGw10UqOMZzYr
YVbmrueBlegUhjp4bRkHcIk12Or1MB8kY/OGk30TuTjrA5OBjNQsfcGILrwCWnNKoIFU215qyoth
TA8yzwF0oPxkNaBKMYoelbtBbdRAaVLt07VurJhm675Ywsm4pFqOuAiYJEzNCUaqTXgEFzpkBtNh
fUtl+gXS0Jov0hRqLxwx9OHcJQxxy+eJw1Q/QTDEw27yvToPQWsfloPL4B3CDpQIGtqlsOIzYnY/
Aehinq0aZ0KXHGTSiK5CC9GuWmmFwauhFCe3NOF4HgTkMJRTUUJ6NuJMi8pkAleYixxr/Czjd6LF
qRCTXJFaYXRLV2RTVglq+OYra4yqHbI9uMprY9DtGqKVBsaXDKORhFyO3TM9K5vk3a31Jx1QIRMx
04qzjBxAAHhAOJnwQBigd5RD6LWxo6d1sJqDxlQfVd6iPXoga4GQqRjDgEpZ5MKPagp6j9JrrrRr
IkYeRWM5gqZYhy7B8VC741DGauCG0H2uDo56wSOxCLqt55y6Oonc0GrnPBrjaC2MscBee3KemnkU
pDsPLYuY0mSMkixbuRASBDCR2ryAxYAs1ZZWNuckMAXABa2abTcao07HISunDtRZAgdQIEtUUPu+
qdxybtshAS1hd1sz/plJV6ERsCwYHHYYaBkWrMqnoLcChALQ0R3AFWWqjdhyLLK+vFhp7rheOETh
tjbVpkyBBlyRhY6GFEY81VcwWFkLolUh1KbNPkikKj5ZuvXjky8fITjhxwwSAWNUr5NUyoExHyHR
JywE6KVhXbmZAFd01G+ncTQngsihNSkBr8IchqjUscpcLs7otPIHE5apVDTpJtYQ5lRFwTTz8/Eh
gO5kOvCa4h2l2vRO8Ca9sITCRB4/C5vztK6eJUDoZA4kOy8GWM82UjM443Ri1oHZVxWjwZVBhAT7
g5VQ3ilvkyqjianEK4vW6rFHF51SQ62DaaF/iTJ0h95gagpjOm8tL5sXEZmwwx5ODBwbkvFsL4W+
YZEV7CHTkkDSOq47IGCOnQEgtJeVhcm/TdAvyq8+Ahiph09uDKbnkLx3VdwHlSQsMneW0vEwnvN8
UP0xsrZuOdQzz+UOPibr7Q9aiRKszg/t1i49fLNJludA/Z+GX1BKEgwnsYMgQLZna/jR8Cy4VuFU
oeR08aKCCLpQW98cdV7gbzrGEOAQum2KHmehTMRQ0eKDyMiCCYazxoLBDGFvXHfWZwcD3QSvczw8
MYaaTZ2VdjTffMrxshkXVbXBDEhcEhvh0imuOKhQmLmlt3zWy1o1Z3v2GB6s2aDdUKn7M4siYTno
KFvymMTTSijF5s544djMKCKzAhve9B+7Z+yOVRSNUC2DXKh458YWXrApvn18Uc1CeHbplJakUq9c
DzGF6CAQyUBATZOa8nyBU2hpogOC2DQE2GACLQQEg7KT2DSE8scfb5fEejc6KWIOejdllJiarVIF
HuU1ThNO27nq4fcCooY7vqe2LRTPD4S4JmEdp4FM/ml23fz4KVkTIMGfAN0TkZvrvpHoxcmPR4V0
hXG1FSH6SI6tJYvVS2VULLmEHjCECJoGe7Ta4apobzC91qlMoWsj7LCQQSADCBkLqAjBYf1ehXJZ
NnzmWmnzdbfT0wO3tsHlOCOtt0UsHBpHlZlURLRbQviXXOJ9Pf4bjpMRMdgWuSEdSHDcCcNwG44B
Tw4uJENNwYYVVh2XtbQ3OMA4cXFw1E0NWtrWCSDujxzZKYhIpItw4ce/Ok4hrCsdVid/EuuJs0cx
urmO0NxBrViZa1NZcw2r/d8+GW7oxL3vRLzeQqO0PQ/OV6zLPQ/xwerjbhgvd0exHgH9ANcNerm+
ToPodXosr+rcCd0HeA+E+YTlSv60Hgn9EB3Dkf9XmmAnMI7x338vlqKzo9uP1fSAFoTpGuY1F+Bt
6/M7YPXz6jl20h5IXgF26SBQIc9ir1VMLL+Wfj/vtnA/mh2SJ4/TqDg2+upefyaGEGmBBjt2e4rk
x1j28c8cpNW3Y/0POoF0Y9WHUHLYOcVQVSVENPYKYQSphJgJiKUJPcBpCJCIJKkkIoKROy6evbbf
IaijNg0ZVas+ZBMBMxcq2RN7B1RJBNRsSlMSKg8QMBKG4J9E4B7nqr8IJDgWECPWCIpql9BCdU7I
NKS4RA9Mbg2hSQ028pSbgEnE3cUdBIbpmJtBSBpbdi6wc3yBMIwQoeEjKR7SHQwQAYJMBB3VMet6
GIglqYjYddAQhvAbvqzV2WBzgwWNnCJeqQNJRSkfWM9kyPh+hTTzTfZ2SPAIPoJxjULpPuwcleVw
xqhiUCiS3DKcCp+wzufJKUNH07RJJ4Qrwe5OHvBij2m9ki8hHoQeSlHMjLQRxkTmRqWCuhwDky9G
GKkkj7x2he4OvxBiHwgfQkHncRMwHCVw/eY7J4RECdKHu+IPr99UUT5ywcYqKKibW+Op2F+i4jrl
UYvBSIIssGNGMPI/CQ0FI6EGhUMQ9DL7jGo5IkUNhIWU/Ku0HLCxo04DStpA/oeKRwyO1UFt6aA1
A8GOiIg5KS7MGwR1G7guoOkOjEkJSxTCt9XIuPffAiIPBgPfhgxg2U6mCCdg8Dg+w8MpsARsydDz
dLAaqyGHBDqgN7OfRXBxB4p2QDHx8Sci5jBBDmUhSOXYiyiAx2MOx9nkQiysNJiUP0yxDw2ANJ8Y
xQ0IzCfR+2FPm+Nl9fcGeMzBRB7XEtoPlTjlWeEeExFcLLQ0lcMB649jm+P2/5tZijetghMEWBR7
HPxbsyt+wxtpDYnufqcA0ksEpRAstAkpLSxLSyQLEtQS0kSNBQQExE2LEKVMRAQBEhERJUoRK9Pu
4GhCFUKADXzlgAFqFfngD2Aivi8eKahO9OxHjNPDRpF338EccClnuFdPCCLSMwKi4gncRYzn/oJR
cUa+fQ4BTbFyMhCTfAeR1fV9X2Y/WTnDHVrPvo3bJCEugfLc5ecwxIkPuMcn/VZu/9/blJjf93A4
/6G79UMSB3ntne/js+jWzpA4+HBiAoomUoD9txms3TJ7MOf5NffOkTen/OCEiEEIKSCMZkWLh7Ig
n1B6R6GwMkgWoCKoQCgSIEe0LO1Q+/UnL7Xg4Ko9Be72hEDnqqVdvWE8x7so+GKQwoFNQC5Toj9c
IYdw4nTFA0IhJUTB19s6BeL4bF23lGmpg7cAGQNBE0lIVSFAsEmXA6kKAiICCZIpAlmgIUBpUJYP
byICUimUQ9k6SEYZlCimAkkoCIdL2p2Lc/KiCYhSnI8o6cDp2BvgebkT5/mzNh8VePVw1Y/JAPX6
vg6/y8jqe53098kWKBgWkQ5hOQUE+WAr8pj0Z5y3hU1/UcgYJ27PnfwucDT9O99qEEiX9M/tnC36
vu790dSlCkPCNBoGJHAQn3SoemADsqPZdosiQzwNiAJAPXmeKSEwUCvY00sPGMQUQUEESyBydTBL
vAyrw7t3Gaex3PE403DCiaOA2gxLg8c7uDg8z4SiOnzo48SDsFKWrAbOHWZExFUCUEO84v7U0doG
lIaWClo6eQ8eVYIk55w7dtOINNVVUBXqdHfXFU3DUNRbGhKPU8eGUljyDC0esGkEaqVKFiaSioai
gaKAqJlSlGJYvd/gaZOZGRn+Cou3X8t5fxih9PZLz6AwO/SEQffwiNwnBMQFKzsrlkMTJBkkOHBz
xFxZIc5D6BBRhNw4hwGTkDxCPCA0onVCRx2HApHO0KmjzHF4xUNCUoRupn1Lyc2Xfw/c8zVM+yq+
fBMvnxqlhiTTcaKQiEbQ1XU5akmCGYGZRxYpd9BVLUQx6hXOwyuG4UTFKP7zXVI0aHf0DkrjASeL
TBEaIXUldthZxRMvLtkqG6osS9daoIpoH3pWPc99+UGzB6cYxh2NR7QMpgBoYPqHTS1qmjduM1j3
MWqH26ZY2bog0ziJFbl7XJQgsRgoJoYGBQqCJPbqz8UBM++wVJJAPTDn9rKPrUYxgjGSViMaHbCz
K7Q41pRTWfV3hP5IHpgaDXv4/Fr4dCz3Uu3D4C0h09ZRJiK9UviwVD0ioQbA/jRKvICmIANJEDBA
MM+qfCgjShao+TDvnmm22xt+N6fxwjCmHz3pYnZSNteebpZgJXY3X1IH35OSI+p61g7GcEj0JsWM
kIIM9hhIBtBvLgbgQbhulKHDxA1xvniuUa5aL1QWbGWVgRrpk5IHZ3mCTeNIMTDgsRecUSnwc8CN
glreWuJJYdUnXPAgOcN6p1wQGUUjc2XEKoECbkBxLGXQgkg1UiOhcVCkOH0aJBI5Ei4bX4IBDQJY
FnYeCM5QFRW4EJBB5WHOBEcsb4W7GidSuGYSNwcSs7FCGbrIagAbAGOTG5HApwdZSjmJe2uwBx4/
VPgClKQiAGJlCfg5F9Y0xSxaFXi/ECYO74/EP5fAd7h6J9jIoH2E8SUn8SUIIYE0DSbNKUwXBN8t
ELhdelHloKBtF45I97pCo8AD7+v3fb9VgwSaSL5CwsU0FcjQPHZL8bNPU7bgsEkqJCmW3FmBy8xT
+4n91yj1OKjt5KNqltpJa6O/gGiiqKimgoICJj+fI7mTBpu8224xYphjODQNJtUwg/sIELgRWD5u
JtI1oX0Zv2QwT0zwUf0c71cuB+j4pDODI+oV6aHJwj1dtPo9QB9Yv0QatCGFZf5DBLtUGIiCmly7
OjMUDXL7+G7jDUhMlivIgExbaApJITCl0eQ9k8vA8E9S+o99Jal7xdg0EaDtQIGOOeFu9OUzgoaG
Y5i2zVjmQ4bESXNEUwNElaNSQQOjI/jUIB1okJT5JA4fy9+0PpJoYopJJBKN3FR4nEwZgTwYo0Fo
Z4gVeTqBH54IAdk+AdQ0AIf0Qoj9sqr7hKIcahA4QqL9wLIBtAi8IE+OEAfRKoPMhEXjIIUAP9UI
sShEijpDki8lUTgSwMKHqdCPJV9kieSqdgAFEEQT+iAWIgidkE/1o836ur0Yga4PSdidUJ1w7+m9
4l5RC8AlUqQvVCXmggWLAsDpV9Ch+AecU/2yFUUFEMpwQOi7hcqVez3NxOcLEUJsj8kfByMFHwQo
YSDQAL+KfWVmimgiQoTGv7hR3Qco7/k4dPLVeGI2MFHhd7qA6YqOCHDRJrlERs41FcQ71+OG/VG/
5ZxFIT7KdF70bcNtRk98xJwe5N3c7yWZi6d1aSgppKdirLiiII7v3hlL+nUQRi1qAYzvvesQzG2w
jChlOm3Ab/4XLZdQjTfkdtUy4huLgqyp/UTC6qrcJEmbhq7GIpJpETCo6joUgD184DbA9QqJJiAl
IKqZtFNFmN3GN1e07CkSXUIsaGxynVAfksDD+7ZzByIAB2IgOLZRSbq+0s+g/rgdDD0Q/RfBMYwp
nrUUiqkRjiqw/5FCoqjVsQNiNKF0w6ggQcGq93e0TQOr3p5Tt++nzMYMblTjkRagSHCVak5Iqvgk
OCnyW0Ggi2MHkCJJvCg7jio9yd2WIMQfmUA/6oKBifW7LxZfuPlvRjKRsBikmCkGRpkUQ3F8gaAn
uEPjfyoodVC0AxGHBV269N5QAFJtKKZGg+8qgiAyMcLLoErVwRmWHssby3YC1+2UFjAwPbIOGUON
2VgXQitRm46WCVp8UkHOmJsLhz2QgOxkOCUhMbqKHLHz9PDp4R4K0rTw1EMBE+jOY7TAibE94Y5G
IKOGdc21y3DUHgLOC5u8z5tUXJcQdyu1oJCNYi4LxIDg85lYxqJuYlweu7ncUAUlAcI0+ud6naEk
loCqBewLEd5GxURtDB0g5TbzLyUAmPJTxg5B50F4cTkOhYmIxYYgIO1ROKbZDihCqriUdAJiVgLQ
wIrjspid23XF3Q20gXDMRMHCObTic8GKB0Ixk1oFpdzlYNuMoBEeTw7tJ2lQdyuOg5BoOSiNA/Fu
DRikKIiPWM8MZgFZ2zFUAmSPDZ4aaNop0C7FZpOF65dTnMoRnKEGVwoYb3g4RMM+J1A4K+B3qnci
2AtoIaSERMHAj26DLqgoYylUQUMYMrczyTEvPAXrwaTm3cFWxHDGS34vA4dxjudJSnMOJ4UYsFzW
tBI04UkTzATiGL80vN6dvt7F8Z8mx0CPMejqQYMHKiCVxxOzWgmHQspGleGPJ63UbQkpDIGwRVQQ
hCUG0tSwtX7voFfD+jDEc+L9Jn+ZtgT8TnUubf3xfsgfSZccR6Ta8pbhCQkjMoHjZtI49+eJcBAn
45AB/1Sauv1hDwzv+tGIJyn4v3+97Pp/vFV8x2HReEexUO6wxKAVQQUVLSLMg/bICGQiOQD+WAGh
E4yoFIJTBKUg0DStAFMVItKFBQwSiESiMA7+flEvEkoI0etoKf9RhRchT1fNQaQSJpGZCD4Ejh/P
Hxe+nA+0O7s6ZCDl/UOaCckfq1h7QA7g0yLSoEdYfDpPcSYhpSINno41iGTITEgVof8tuadkiEPi
V/yu7PMz1sxRqfro+6xh81P/TiozN+OY3YNzVcP4YQqHlPc9xhgqGJa81ktSFN3gXFchtzPg4ePb
AW4S30wYNEEEAUCmxGJEyknoEQD5ITsAYh7PDsDrMtY4lTBJkuRoOZ7AoEc+89qb9PR7nl9tush6
FntD3JfWcQQwReUBf6IHr+OX3dKM/ip0H1deuExqFIqbWAVb6v3l0DvTrfH89WBzQDeKEpoQmadw
FlST3y4yF+XLWKVgOqP1mKApYYkagWKaIlCRocF/dHuT+Q5C95/P1CqfILCrSoSEqrAsqAX1AW60
IUtQIp+nZ5J+riLGwTDCm0aiC5wsSzIE/popihG3yV/uvtsm5gJv153uYjB3Q6SaEQoWmWFIIaUB
mQCYSYAoUCElQIhiBSZRmSakKRWEhpIloQiBQihZWgECJQqigiXD4O3p4QNJJEKkrQxKkqREDAQS
MkMsRLQUjRQsE1QlJQUE0ZRwfiI8MEyEQqzEkVVOz/0hjvPxJpEOmUIIGkohmWohJhqVR+hRYCOI
/xmrjGfrHiD5j4fRoZN4ZCWIZtmioEwlRUUNKGmTI9jWHzaxi1ek75A08QN/jNukMuqFp/11BLGq
kTY0tFtRsY0BjLq4fo3etBHB4NyFNU2NPQoxw3psoKLvLttj1lBJE2UUoKgo/6M472ORcKzvcbuw
xAcMaJL2D/azWnAn8wJUauJq6h/FkGq4Oi6do5ylTtkTauGqqbJAy4msHTjMZEFDSnk3RstR8ECB
qDahtagVHLk0NsiBtjdIiQQYhjKmsIm9YR+GT/Xvh1f78sC+lRKsRTWMKTUJQuUJX9NH7tQmZvHI
RVfjFeMmr9mNuJ8p3afVexPR5DbZ2M7MeA65/sxQxNPRZ0ZOZCmVQHPEKBAzBCoCSIwUggc+CIhv
ResQMDWCDIDBfYkwjFMAUIUiUqwCEiHfkVxlhlRoIFgFkG5/uA3a9dwc40SIyoQJsNE+7QT+gbbc
bg7wNTqCJrOb/X+gO/HTRPChoNdU1CpCWooAktUUExQRKRA502aaoNqAQFoergZn2/QPRnzAePJA
Fz1ohyXzhbbo1r5zviH8C7pwLt8v99LBDSgQEFIUidQno7Zw+z7mOZ7bFB0ivSd5u7EUVNBFG2gx
YjFkk00YgNJqzlf3wX9feCwiydK0u0BVBgyzMqxIkRLjTqtDTax/zOYESNJJBqiAaaIJPBvkJ6n8
4+HWkZkCGpfRsuAh0g0ODI+lL7TjNt76fibGj6jykRCQwMkQULCJBMgSpCZ97wzuB5gnvwHVOln5
fup+j1ev6u21V/VZ1COFH8M1kDzMR168eFw+l3BvucmGJj13gH9iUPFXsYj+WEdydbejH9Ef0Vnf
6Oex+Wk+s6TRV9/Xa098uu14ZUNxA+71GPpu9nLgw5ucyKj5z5wOD6Tzvk9mUbSpAqn4Y3G5+Xy0
+AiyAIkfxgv6/PMMOL3IVjAWAh86fsh+zgcOA0fI/V8DTa71+Wyerl6/rdMukO7agd2nLKzNfZ8h
9F957d3z9SZ8ldorpyZ9n0ciPAgajJNniZ8SeUVgr+HnKqjw6om/tHb6A4Q1RacCiVgPLkz0jUHD
gAu5D+Uzuo4FGVE+ojUoAMwKYcKV7kE9Qof8wFiKIlg3qR6k0KTSKmlrlgTcnp89g7YSSJmGxTDx
NXJYUH28xjy8oIYQN3hyj7vI7one4j4qkInohcsjBkMgwgGIaHWn1Gi1goBrhskkQwfiQJwhTgTB
Bfgc3B0fltHkBpJigOyZIQ0pSrQ0i4ipiIiA0DkCGahkaCqSnbBSaw0QuJcRBSVJVUxBSVEBMaXO
hxQ1FMR5+clCXiSBeBKpZAyJRFtPMmfDL1clteFsn4H3DoYgiIlpCjMERMZZzBEtbZNG+mXkJSCU
RAH0AwmAIJSJ85HLYPbXtDuoP/zI00DAEASBFBujSgbSAUgFA/7nQJwJPdHy9KK+x/OgUIRUJBAR
IJMFCdnhOrhwKpICCEiKZlZZlkCKGQmIIgqRoWgEhIpKVaJqhaJBZBI7ko08eQCyB7ewOOzlAwFs
da+rVhtL8P5buevLv7fc/dIVAPPzIYXudSpjCSSff6j5MeoO2Jo+CNtkHv+CBoiIYlChKaUZCQjA
i6RMgUNuD1I+s6AwG6ZSeHLQdR5PFGg2Y+rr+Kr5Ye4yP9v1XB79/oNtqZQVGpjJglJZlIXfwNI+
6Kh7yAdQfJKoejup4ur/xwMkUMJTJWzFMqIkoFMBBQgBpE1QFK7YFSlBaUDJJsBkD+yD9lUgpioW
IpYmWSkoAiogYqoBJCCRoWUEgPr924HCgX/+GCSksEUMzEvOzSmpCmmwxrmlK9eVBdCFOkJQhREp
AsSIhwDsnGGuBBgm4aoGwhikDpUQDiTqPmP99hw2GgDAONDh9h5P+oedPX23DIDBiIJBSDGbR7AU
LmURV/CJb0Pp9N0uBBxNdASFyc33UFoT740smOOBuutsqAOQ9RR+oiGREMRZ+NZ2e36KNygsbIf+
g2G2NNPxyaLhGG8+sH6A4W+k+U6vPhpsZYINNrFl70oWrgqCUfBgVYoxjMf5XX74c/o/wZi3pGiL
SQWK89GK+s2Olnz+LHzEkQHn8BgRP9Kt4/oPPeasrYSRvTRYIOk3G7d5BV9xDnD8wQe0+ZDr4SNM
koUoEJexySPgv1ozr0+juqsT2EVf90pirInyPwfJa7l5gDv+3sAqnDvpJ7PddaGHLIguZGJRyDWM
EBGY18EHEChpgqQnuTMFIswcjPzuSeY1HW8nf2/6jnHZ6MPjFyjrTyZXUQQ/1iKob+HARfy/cfKK
TC0K0tVQxK1SlJDE6zGoIsEsRjR621fGg8bB7NeEthIXpI02MDGrZ9dyj6USlB+oH6P0+9H3DGNs
PRG2MFH7eeccsxTxNgAoEIaSpjRCUi5FKOKxB7mg+206LGZA4yoHXAZKHOAo1FBSL2NBfdj9BJ8l
5j9w/AGoAhkKP6sGgv0GKiUq8WS9hs9PifUW8QoAD65QRFoSlWqISJDs4K+WNdT7Xte0daH1S91v
2G0bftgtzacNlXhwzFFzExnAcwZ4GkoSDH0tFU8xZxCQC/XhQ+FwyQUZVpKRaQkHs4iWCGESSU/Z
3lKemVwQD96qekMQB3ZF/KMAaeSYZSYFqhME4xZS5kQ4FJUqkhCn6I0KJyM9XKYUglcUEYFjTPwh
7ASOnYEpF/aP+aRAexUDqg/JFwtrPbtNmohtyBbdcJQLYCItjbhsUuC3gLdTdIsUIATUGNDd7hUQ
xEwRXm908fwer1/EX6e2+YEfd+c48nn22u5sPwv4P39H33uNfmut/X6+bbx9z+s+Q94esM7BTRQb
iqAiGvptu4APdBOa1w9Ru+zlos/rIlSF3oDD394dZ9LtVBP0vX5Hyq5h37i/l4j0nTwE3pyc1Tqv
ZU3nmpfDxHYl+I8S438xx8c5wR5Oo509Rr7e0NTfjNvQOnZBt0F+LHi6RE4zsREXYdtk0IbQD7b+
V9PbtV8GudoZk7R7Q4+zERAREUz/cxpCBNGDWFifg4PAdTTt8RsfUcCOnDOf+9kNBwQhi4wG/Rh2
QajNHLWUupDhmBpFKUP3EA84eyv+H8IMqHskn3t5gMRMcCxIagEximnUlIRfeEagnSRnGB++JaAp
cKi0oavv/iWaJly+iyN0xg6ByjUETv9VwOgWog39R4HCeEGYpzsFcYNf7FQVl5EoqhqfHd0Is2yt
JvU/zxvIc9YsJ/sg4XNppPRm+m3NK+qppqk1KZA3dKkVVUv8ghi9GHv9gkCHWKgns+U9Xacp5gNN
3zHanx932/YfLs+ZOCL36qNMSGMP4cBfqdO4F3A4w6MytOtsBCudWqDBFX8XOc2dbHhrYqWTGDs9
V6WsxRnOWGCGihRpUkJAiSPw9/Iez6PjWvVtx+fUAawiHm1shiHJKm9ZNNJ9s9CeAGSP3EOIB2Gk
o8PIPCTsdXs1oKE0mCvx9ztiipxU3JAMhWSKAKRJFhFYV+OWZEJqSRiSVlhZjywOJIUujoeSahoj
heltc5xMdTpJYG2abkRhT58bQQFkbdOvwtcD7iFUIrSkyyTRNcDk5AoEJNREUEKNRAv9ALgCWiAl
vcRUpM25ZjjaUGVrLgeFHP8e0Hm+40eOa/uR8Tj8XL588Uwr5yjr1nILQFg5EB7h39uwz8O2GoNy
AyZU7qeA4/Qcoookw+ePv82JsW2jCLkXV7h9v9fsbp3pKiCJQkiQlkgjwB6ryDt53u+MPeRBPfDX
29hh9rb/f40TyPfUpPxgoRy9ci5AFDqfIQAZCCGpaRzZTphNR1ez4+54/ccnRme0/L4oQcQ5fk9e
uxsnZ5sdonxdAR48UsG/uo37vZ+KFwscvx8t+CHvQTyGf5XO7j4aJyqV5sE2+YtP2p9KEYEjIjJ5
xMbnz9pt2iceVV193pSl0HsA0ffBH7WBHH8aVylTVEkoQhGlWACQRI1FCQVBJiqKRNa0pkNkKwTD
Axw5uP/slDKQLRBEAk1wc0ag2ytGkxumMyRIQVRPNkrKMQsfd/JjsFI0NAdn+GB+OHuOEed5SheB
IFwqgUyxoMYhcHCkZb029HR39wXmW/GxVU6xwDCaEIkoKNhrNRh3ETsgnMCxzMD7svLm4nR5egOo
NDzfOeXnxr5vqoPZ4+f6DmDLuHq6j8qaoGukPwDmcKDHPQOAT7j4eEGT41gErvsBy+tNeg948x7M
7GGAYB4qwBkwWCCwZRkG2VinJOhwIYbSWSDMjLCkZdISEoQbDgk/SH8TGhXJWINFGz9lEV6b5XRX
uXJH1oH5Os+bM0ieV8weYF4BAXZguTP74op7pkHtoQOwU+UfbR6jpH6ebLi+HV5ezs26n+BE0OAd
T1FzyQ8cT+ufnAF9hvHL393R7vAMz6IfQPuK8D7PKliDd83pBA02Ih9GSXGCXoJz+5PnPSHDl+b1
dufye508vsHS+reop6iB0EFDdnJS/ziFgkYjhEPoSDJSmkFpASgHw/D+JB8usygQtVXKolgsDYh2
fSK9VgPlG3b0e75HPLbK/q+h2U7gICw6lgk8IONQ0n42Sj9RKNCfonQSAfDIP+eV1MRBFJ/xaBde
75er9eGRydeWRGj49uFp6Mcfblh7y5l0eZzuQ+o2ptjAIQP2UUROI/xqpqOPf8CB14n+eifFHCGP
15McwOioxZzCfxfbHZ/rIMxyoQ1+h2m0jlgHyZGL9Ov4dwum23AgrHrn/X9fD13EsA37WMSdtOJx
tTjGiCIQ9cQzBKnOjnlURTEeYrQdroGdPLSaXgTjlj+g/Z/4LngRVQ44CZcKZKg+mcdctkC8emUW
O7dfsC2B1tqfFHeDtCswrFBEBSkQIP9NI4f85h6peu4BPmEMFEdcUT1EAChApXr7+CrwKgF6n6Qj
oPp+f3k/D9IbcPl+j1n1nV5jq2/V8XQHZs+GKWYYpgoglCRBiIxhhQP8PQarJYZu0eMtunD3h/Mi
FCbj0fZuePXi/KYfxjvkRK5MTExNNNIUFERSeUIfTfl2zjPQWkhPPcqQ1EqK/J8fhYDKBhsLWV1B
EzCKYS+dcOSmq81qgIv8gWIt4AtAsNjAxvXQTzmV/PdtBF+BDzKZD+7vhiWPr/XPAMEDVq+vLV8A
bath/e80ea5xmBwNTxjZB5i1DQEOfmIKmcKyB/QwyvtIkSmadJOh9o/+JFhz0qAA/C/D2lDhHXIo
nwEEy0iZPMI/JADmIA9nH6/T0G1ObzSdD8C9oVBvHCBV99nhx7SHcPv8G+Ry/nyn5uHn+UT8vnBf
qDtDoTL9SeALsNx9HHxZKbG3zftT396beXiOZOI+3kfylL2GEYFyjogtwPX7PxzL5sJ5PL67OBD2
6q5Y0zNkJAlOBabrglVLQ2h0f61bpEFjepX7JGMGM8Mxuj+SlGhi9eCL7bSUTK73emcNGtFyU3QP
+TWCVDY++JSZcImlHu4Q/DqkpWTbTtopH1UKeiTnnef1kCdjl/hCiI3UKTE0MboKKFSKUcQQTD4N
eGauFUuWesLaA2NGpRGgzTmSDBjG3ZG3SxpDYF/LEV4NLHKfktUmJLGMXkcZ+J73HWIpbvo0S77s
7pu884iEW/A4juQFFVUyJYcNPtZ6vj0eQOeDQ0NKd+aSP7j8pHmQAkiRCGMvUxAxiu3OhtPhn32t
HzsT2ZeYBPcYeQ3pyFYicsYQOaFEHxqiB+kguJ9B8OB5n5BzDhu2/tup/thsCQ30hvgFggOUOk4u
rv6N3wLnP+WB45n6t3h7fg4Q7wOAaxpzcOcwiJ7df3jZMJGaBPeC6Z/JLo9xsOPdrOTz5eTbybD3
tzM+T0B6fT2LK7y5YkIWoI0Wkyte57HbCiIWx8hdU1O+hwSI+PEzIdBucAwPvlN5UNDIwTGxyCJx
aFwMiHMQBE2IGj75rX1/pVL9jCv44XV6SiPb9FAj0YZTHRpTz8L2nnR86mi/OJz+675d9/4ACQSp
S0xIIkHd8HudPkDm93fxp9MPVH7Y5T4xHfE90V0idd96HCCgSJM1UyUmVB7YwCnb7OWwDwgiQfix
Ugqgr+Hqny+ECnXvGmmo9etkE0+wQcI8UH26DzkLZ4DqQk6VDxJEFQ0RAQHvI8/Pd8+HfwNe3DUl
tns7+nNHwrWWNlaz3cae7Pz/KHvRqSR9cXfy7HVwaT+/f8MH+u7UhPhl/shJxuMSFjyh3doHJ6cP
jXGejpOb2+75d55JxPIVR4j1kBPcWKFoaGKSUiUoQiChYEJCCQikWcKO88g+cA8vw9pb236RXzvx
DT4Kc2/pDU9wfv8VfNzc9VWvlQ5yB80EE5SAKcIFMQI4lD+NX+XLxJUOjBEII4mCKaQCoYIkGIKC
ZCAlCRpI9Hy8BXtcBNglO0Pl+T3I+Q9PP7zcN6Pjv1HcQ1x9Xjj34a9uQr3EA9WG0tqmr5U+OPs+
VK8/Kt0zyD3GOhAh0c3WE8KwwqX7Goa5hfd6bSOLGaaOmVsLEXCOMa30WTBo+wSAA8AESLjVYRX3
+/7LDlAQ1mgV2KNWEmQSVMvgCET/2P9Ps1BDgQS2IL0k6k3UuZH+5281ArmeQgfOCvALQP9ycX6G
kEPA0NkIkQR8KhEcyXxACBH80tKRArWc9cZ0APIBEjKLaNwyxQCJAKD3ZT2WrGVwGYvCvVXHJ7vb
0BpQwi9DklAzlpJttIoEIeCAY+MruGV00jkjjsiLX8+JpZmaSDXg5CLcZdVyXdxguWH/tOIU2ZjC
mnc59K4XlLNpbXpXmujV7BLzORi8jRKglLkcG7dHVtlWESxxm9TSEq0banJVTS0PUutZwXxeG3S4
OUjKSYJY+bwFo8CBd8nofIoipsBvOHZu+vPHyqD5IiHPvfAKB7wLlX5C96VVISpkAcrFAwHfLOIB
LP71HT64QlnLK2drs3vziJwIvZF4YCXIM1IM6llK0KBYsJdB6Ami8KyLw/2OwgjZ0VlAeC282fbn
jx4ElyxNskCP14ipSWNdWTBtPGlMhaQ03dQO9GAdwMcgJU3TElAtpZ4Ym30dpEazP3sNj0HDYxG6
Ocy70EjOJZgJVXYUCVAAzfozn96OFAkzidAzptD3EqaKt91bQItoBzpxrzojoMJIMZRN06tumV+T
LvjdgXYRm+5LpQjRRcYOpLfLdAVkma1WEiczmq2eDj8eLqOVrytnkiBMUzf/leMRbjqMlk8imQOh
v0gbd7I91ENW4uWzSqhr7NyrPD422UqdrTYSUOMjbXswAjK+acaMsO4LMrCtDxCuyiB6xDBA5tvt
7L8vf83/qEIsLOIcJjFRkAazfEllPupXcLeMtpGsUQYoOip7GRY7V3CfCo2Jy/v6wSAW+UzDCzA1
ADsRTucEhBTJZ7qhY2MGMQzIx4ylk2zX5IVcNa1uYfLzDQtmSuCkHjytfxv7GVz73/LQj8owYw/M
4RPRBDxj3+HKdHYv2cvuO9NBNhHbEAuHbRurae0fmNOZDk+rkyw+JbkfMclvh29B3dHf5uzt8lyt
yniB1+XHn1hMegI59vT2x54VmeFcS9Q4u3MgQRMBHoyIpAk5uqHm03mOtQdjQDeinEwImbgqa8cT
DAfMS7BNHYnszgP2w0wFXFI5QdhEanArG6PrmGhaeqTRskKF5u7GhKzRzPoMnD7ugZDkt1Vg+kmJ
p9y5iRZRNWFI3z2KYptcjFMVa1moDGBa4xcmgLF0FIgZ0Ph6onYifg+Vi2NL074NvlYJrCZJ8gB3
cMsPPm0Hph9OtXXrLhtTo4i/N27eQeHoCtOs8xf/fE8yebF2E4SpJwe73uxEPQS/TEMfmQIkIb+X
pD1ag9PUm7yjQ+HkOV6dp5faiH6aCnxNojq0VDiFQEoQqeI6e+aOT2+jxkU2CeXTd9HAAE9ZN4lt
Ea5XI3Y/u3FrOw6Hkz1YciJ/gxMDRV1Q5zxzGwWDwNmRqsC+M4QFAiJ0pxA4+L1hyfrCiGYglqIo
JiYiKiqkQmQqiCGgKqCiCShZoqIICCIZkhIKiCiSgmQigoAlmJViIqpRpIoSVlIkWBiCSAkgRiSe
uPX8E85eek67eXYpxdk3EMA9h4AoHtp57fvo0JR4sDCElYnz61HQZiVY18e3xfHw0MgO9QJCFHJ5
KDhPf1iwIwIDCSQhIRw3eHvThR5ug6A6T4OJfj5no4giB9eWyBM+qDKDlLuyKMuwmg0BWnz5j6hY
PAd6Aeu6cEy1idyO95ZpDGFs+0DqtQR/VPNephkei7ydfdxWquaGadABoldPaE6R9WSezz9hzBB3
au7qPbbyY7z09+fJyqfBPR5ek7DlX084cvKaHieUCPq4I27zPRHuQ6+64ch5gzfAOrD0nvOXkiHU
POPaQsgDnpyDxB3J0h7b96bDjeTlOTaCByRJCQUHM69e/fsxBFwIoL5uiIfdY5AibvXAO7cncM6B
OvP2AQJ4hOxG+3XxeBwPX4pn24+Gw8LjfZNvLvhQevnPZ2c5idr6XqeZOfp93q5d/GvSJu5rD3dQ
B4LzJvNOPAw6i7s4r8Obosgdvn7zB1IHL28yPMlF+cNmi5nZ2+biTt33Cau1OzEV6O/f0cup7Q22
BHzf80nyn1hWCv89zvRQR4z/xmBVzKqUgoUgP5Z/YYom5AC8IFH9sX7rVwET88q/WQBD+RS2VdkE
T+JQGUEL/0C/0JQfT9BWJxAkIgsQ4H/W1lQ4XN1VtL5EZACUgh+CQulENClUENEL1ko/qj/z/8sV
/3QI7yfuCIH9khkUESpQihUTUf7ocX++T6wQSf/RWYUpZWUEuGAn6zS/+f9+dkh/C4z/qgSoAmsI
AUcvi0Q8Cc/jdMVDKNQOpuW/i0hhJqxUDBShPIvkdtgQDY3ASzNNa0aKkyH+s6/zu6e5TqFV4sj4
hhTzhp0VbccdxuWyOnGy6lMg43HLu8uk22XVy5jmFlwogAzxiKQIR+Hn/X/UGvNVXKAgxFDsjIPy
nHQKbYCO0RPRVCrYR9EqAvBS8U9CPoTX6Di40QP/pEAkQPmhgCaQBfu9nN+Zleuv9VS+R2uoVo1P
Qcg8nHi1hiRMOv/sY7/+x+n/vf2nJx3nJY/XzT+N/7X+uP8zN4E1pybzZN6m4iSurTLGTZTtMULV
MY4TA67/4GLm0lnAMAbYxHsuC6sUYpqrZVERBzlMj7FO1gQEZENRleA4YeM/5LsTp6v/6dTWmENe
VoQSoa99BrxNT/Ac7YBwgv4aG7AQ10WwJuJRKMAVOfZ83fY5qP19lo/+cYa7QO4qLl78fNfnlpag
/9MSFSj+3/7+3Xea/Vbi/P7tZ+ef/gfszLeSip2FHkidvoPwPUdWWPm8g2rxvieUmrHHXiZQzgem
GWNN8q76tAKv5N/dD4fPSBcBIl4E7SpKqnr+Hz3LyGJjvNR8vqMT//zFBWSZTWdBMMb8C18J/gH/
///////////////////5jyR46vPAAPF2GTY1NhtkyqYatj666NaA0V4188AFnHRT1gffV9Ht4A32
N232ejr3ccmWe++pRw93O9PCXVMl9h0dfDu7sH07WhN3m3teq9me9m88dPTcw11vvu11bvuZm7tw
Wt658MXLvXfAAO+AAANAQAAAAAAAAAA3u3x8fdz6vtrKybz13h5gFrDBb27mu989297j09b3V3u3
Ywg9srqtVq7ru5sn3stAAAAACmPgFvd9AAKApQAAAAAd9h9993fOrgAAKUDtnoANAA0AAO2HQAAA
oFAoKABuiO2tDRQOg1TXQFDrk6742fTKqfZpKXYNfbdalUTQ5HY7jivUUVsA9OgFtQHSNoEJaK9z
uFA2wJKXdnFNb0wHQ1RoAaAHvsDroyfQK0fLVCKnTfZnamvJ2wUVydA66FABVBFIKGTN8jc0vLuv
HcnrzZ957zGemANAaOsimgNUKro6+g3mXtoeWqS6yUHortiCiKkAaB00CRryA9d57t7ZPTxA8Ryr
07cDb1975327uz75WvN9djRHWkXg8gsiL23fetj77x3oZXsy9sEK6oN3tovN6a7Zk1Pbu9wO6UbS
OzWdt25u7vvAOkgOg2j3d2szRm31ipVO2bWJ9GB322ygynboZOgDQHdbnvgAAAfbBbM5TwHyNTr5
s+npKSop6ANbsAdu4c5eU767rbz72N3vB6UdAAA4+lD7NK2yo0pkrp97ur3t8+77W9nZ9td9jO3s
za+57zU66q7fXUL14m3XGJe9JwB8gefAKFDnQU9ooBpoBIAACY93c2ddebvANZ7PPO9FunvY5GzN
gb13MQjbU6a3nHQA4Zz0WS0rIAB53PFXprtmQHm89jx3tTr05eXnpndnVN49AVO9l7ipe7zvUPac
O5Z3pneDt7d5B5xudj1ry8uqbnyAAPBz4gD77AAH3z0F2Z8D6UBuXx88b0l6Xl3Vk4xrbZre3dY7
u9G9PcOdlaS17snZbcQAaYDcQAAALvb3m29Kctms3dzooEIXd1OPYZBKJEAA9CFvEAAAL1zkCIts
JpiVPYGCqCTrEqJVcwACGegPQAAurPNDIrptMRSRDbBbDOmSktmQoAYt6AAAe93vemKRIhIRFKSJ
UlpoFACvFugAABeu5CbNIRKqkIpSIKVEgAA8W6AAALve8hIVHYwkIlKEkJCQAAMMAAAF5nWWkUiF
BQkEiIokoAA4O2KHpR3fXbLnvrfe3xz1d0Ac9W17Z7ndO2nIx7POPOjxWwABp2Wnvfavc176e5Sn
HdEhi5OczoJ1RhodvTlPLWmtqrAN5YC+n33e0Ij7b6da++7cZHXyOvkdOLu1AHb2Zd753TzzttW5
qaB1i6FsUodMd6bqEr7t7uoelfb7RhQ+gGh1r0o7rdsHQoNVoNBu21LD3fUnetPr7n333wHl1LK7
hXHSPTeh6ariapr7b0povoHc8lzZfXp1FQrUeh5O8APpQBuYT3b6oG8vdFNdnr1w847Mt6gfXuq8
nTRUigAVRV2atstCjoDnIzp0azdwoBhQFejR3oUHGHwA+gFMkgBdZN4gGPnseXm2QJOAfQACz3Xm
7h1arODRaUxXYY2E+9rmR1uunc2c2Ah21bZaOndDugkoBQIiFQD6GoTfBQAUDuCU9zbqxuAbfam6
G9vRZ1zy728ugcq4JpQ3w+llXblVPkBnrEnIZtntbzmbbu7vY7vdooNsujDbUpKVQKUoQJEpFJ0t
iQh16HuAB6AAAUDcPSpK9aXWGtsprej57jpx15qj3zJ9VqVbru2wYZ2tYvtq3xLbeZkbtcyzgTm2
da4D6B5dNvWt3qEkK9Gq7MOiSL2Paudi++USFT3X2B92yyWwAAC62nTdZ3ZOy1GXY1JoAJvAAfQA
+lzB0O+zPdD7mdGE7t1210s13AV0R2WYswAdCgah11hJcAdG5tWsZsAAANtaYy0M1Ru7hdSbA5c5
24ztzYOnXRpc+gAbrZlV7aqwNp3bsqZuS3s6N2VdVfe9Q4ffAYgNFddzOuxGk5uudbYWFAHdWCu1
WAa7JCVQKGDWZ3JqWzVU6SJGgG3XHG5XNom6KdXFdsztyPvG28qdQvNIVwGmiRMWmWtjXduHLYAA
AAqqooKhi0qOzW1tc26aFaUR3Y5XbCjLNlpbHGa7toANA0ADsrWY6UWDVcrW50Es65lm2GwVQ7sA
6pKqKU2Vq2dxVCHYNd0GiZKMZrjHHcDncALsanXW4GzHOuxdotQ3JnVtA0VMcIFFIQASAcXO22Od
jJk1k4lLbbdq1yy6rVhjtKOs4uwhmtFYxVtZqcgOuzci980xDVdtegZHS2KkUGsle0FNlClRO8Nt
1MzM2304cMm22bOq3Vdsu7SXbpt0nU2koxwEd1qmta2Z3k9fdldZfWgEUqAoqhVLsDSkl9YUNQW9
51QBJQUPR1XbuzYwQAoOeg93o4FOxwtm6NU0RxnXAIASc1xzXa3dqrRI24dHvPHmtrE29g66zBVJ
Ba22VdjnZu7dQozptB3QJ1zubNt3docd2pXAjLbFLMxUNA1zkMe2dPFSS1nvfbKJK+2B7YMOIPow
FoAIps4u7H0UNNCABCBAEACAgCYk9RiZNNNRpTemU09U8p6mhjap6mjT9U8yJpBpkAkQIiIETApt
MUm0anplNPU9TaTymgeoNABkAGgDQA0CQSIQIgRoQ0NTENNBNNBHoVPxU96p5U9oJmpqeTSep41T
1HqbTUaHqeoAEKRCEI0mTQhT8p5AU8CU/TKU/Se0nop5NHoJTzVNtUaeg01HkaEY1DQ0AhSUTIBG
kxkBoIDTU9NNTNBU/TCEyZDTTJMmVP9KntDCjAofpE9qmQRJECATQAIAAEGgCZDQCAaBNNNGmhTa
nqejQ0nqNTGp1/C+sM9cqoAnyjpGNf4YOvq4E4BD/G9sJwe3APqgBf8eHBEBeNlVUR+77/v0qKgp
1MqnKbN33lf/ZFVhNVmZWYYRpxqyRkQ4OBFCSOEcI42eZ2s+1mCc0OMXOYZFflsqqt34Zq7u7o0b
9q5RxFDciY3/nsu5jqTRy1GDXPjM3631nmijFrDAkCkKCkGqbr/EYaI+GZ6llUEBQBR5kj8YO53x
4v+SA34zcaIUnyiiS7BBhZ/3CPEMpoec2OP89xEjxV+MiLsUCovZGYcOoZtbTkTtRW3cJFVbvK3J
iEohGtoRBsS6OZm1cBJQ80juPlvWRAWm7y4ltq9Nbk04rbBlk4yczFmTQx8TzMRoiVk09QLcTDom
MzVYSMTGK1uZsvjiMcQZ283HdDIzKELDEPol3mNiDggPpvIBU0crHrYnAXMVlQZyaqYuHiaqIE3Q
xxdTbxkCocmQnRvKjXOVrqhsI2aUPeS5maiNJd9QqqtTl7iGO267o5FRKN3h0jYbdMhVFnZJMB3e
HORMQbzU51VWVRq4iI1HQbxVG7jq6NzZgwdEzVTa3azAo24BlVazG1Vb3GjXULckPdTciKuqNZkH
He9rLvNmZEVWXEYJzUYoQomzUCNyLw4pqSlQx40vcYqRLnXVykJGPgfdSusybyc3RcwXTynJcft/
qQfIhj/5DSdwKcj/mVleMHjFgvo7F3/9mdPzPZlivh3Ov+ev/m4aMCYuJEeTLH0Kp5xUTIMVQ5oz
F99MNphRGOKACJAB9VzKptODISCpC0K1di2xAUI0VpoEWfU+HUj6VD/V2fqbcooj6ezAmlPTY96J
P/8YVPTWeX1mX1sv+nVEezDncNkEGCgkZLEbIVpL/xdj+XNRA7bLil6F+e0GJSUf1PkicjIf+NFh
A3MfzqkUxCNTAN0WMbKBAjtn/lfvgtFv+haCcCYEbGR5SVN3mg7FP9ZAWIkyjJEZ4YdDwRgpEEBd
pMBQp5sM83AhIPMOfODQKyCiBD/HgfQmX8kfk4ZI+JYhcgoOXwx+2nluOgT+sVM+H/mP5IGEWkbz
r/rmvnVt0srZC+1Lof5D0angb2Mtl+9fWMCRzNpZYVMVdqxlC0f7OcRWjVWZShHs7P/g/IiZ6QBI
Hmc+i5EFjmMCz35O8iIsIsHqoFZHqkIotW1SMgzbrHfai1f/Tx/yU/XxvtN2PCFkIxEx+P5Yy/5y
NhaROTPnKEkfsPVrMeIpKLQ97x5I0hFgT/cSEfqg1FF9XQksAj8Svp2VtHezAlD/T/pQuFhTgpkR
hZy1lkPB8JhENdokOBkgOf+KygO6tRBwHg7IPddabwZqXp4vNSXexaH0CKoKSDpVXLP6eXEFhKt+
o9HyUGTCTEKgpMrQgOLd9H5rBgamT1h9CHBNVHwEhBh8veo5HMQV5HZXYEjnfTRZU6Oi2VRKQKxB
P/jQ5YXHHGRxnu6DNv35wHsh9z18YN6f1F7kCzQVvBZEUWr8oUR1buy6d2BNho/vfUXEtfXTvUlg
hTv/wd9PIn/+PBELm7JMlx+xKv2unXMz90CpHu4HaQBREFpgRfnaiaSgx+x5aZRmEHiH8GDRRofl
WTaKXtID8Gx9ccDwYOe13d+CFo6rcKSiR6L98atqbsAT9TUsQaqoJJU3wzeTK1Zq1yQ77ymd7fi0
Yck+9nTz4pESRZARkoRbhb+igwaX/9sBEWkYWUi8vJNw8hfmQ8L/7u73aeyi6ZcSg/f8+XUuqd3D
jtJCFcc+Y57MIyTKT6bo88vl4sc2r6xH6nrNujbGts+jNe278uIFkOPvitO9r5Ymwo4Dn+TrEEam
FBdQ5Zlb7pWL71w6vB1kOXktZ91xKRcj/iSaViKWgxkfuPUxKJch4j/mUg5+Fe2tU1IzntPL3huV
Rr5WeWsKlE39XtmM5Yh6s0nCdTZ4t5t3vRkhRflLUdSQRYRgvXvq85aVdTx+N6O7UYyRF+OsFmPq
XMBtUyVMb9vaCEoNKxQKaOzVNtSYRra1A/3kcSQTh5kBvBYwVdKjazzmf+LuYjbNWnuWVgoq7MDt
FSO6bAXMDCP8UQfev4ubURolxX3Tg+E348282oyJhGTKRUPBaeIKfL2LVlxNouJBkuV9JSoID0hj
/XUWY1F2+PHpCCCeFoL/ooNGHl3OofTwWni7oP87kW7v9J3UPNRMlui5AeBwTAuuJ7qauZobI41U
kA851edjy/mdyLdg3ZpyuWz4YiQ5/KEyopPC9P7+4Z6SPo4XLEsSASsJ284q3kU1PD2M0ZM7xT8I
uXseN8apX3Lx+MnFDJu9nVWL/jatYRJPHNX4aDOXZhEygpppzSYsXIhi0kIx8XgEejho0PhaBjxZ
Ffnp8tCfPafhbb6+VJJP+vzRYjS7hD/4Qv+GMox1kX+hViiQLHtOW+ES8EWRBFfHEPGQEd590PzI
NfNV/7x+p/wlDIH+EP9VqXHbDbM2aqo3Qqckv5LXEzTuR90rLRhUlf6/0/CBUqAW/eXMIfbrr7f8
NH38TbGdowcnPNz2Z+Lq8vgo2en2YY6xQFgI46UHUJmZNkmf5l1SLTLl0y/iIXosHAk7AzVyxUry
HLmsEc8ziS84BgneYaWJ+jyYCxP8yQf9TR+yI/kr8xSQR0fLDmvxcx+VdXVN+P8qn+7TK0cefKef
5yP2eccDKjA4JEYT7QKt2PlCZIH5eTJFHPp1/dUMkiQMEduIOO65CH1fWcw4b89X9OLteqNp39kB
XJCPvq5cjY2M5h+OQa/e82mEe3BsLIrsWiIgf6nUXDuuIDD54k0I1EA4Lwqy+HNpREjb6LCpHIMt
rqLl2iw/n/ku0SEf8v+3+8X/mz/cilQ/zS5/3EE+OrRxWf8w13cK8zMpXNTJQuNW06MxYyaisqIS
KOhyhmJ2RaE0vDI27vhzNuplbc7QvLuJMHdQcUrLBWcODIlbIcGEiDSmFEq4Cl8qZh0cpB5SIOmS
XTlkUYc07PKDxcQKMYjbvC05CqXFlkoexEDFMwJeIDxDkudQnYyERaUlWYL0nLoRphiQ5whZTuUC
KlAmDiTaTfD1uZzS3IjixsrjDBjkicyRgSw0iCzklw6SkOiXIQstRWpC6eLmYq8Z1ssiHqwmAgp4
Jh3cs8mWw4dIJJJBiTMMpSJt3ci9CbCKNUlLiochwskVN3rWV7bmdHOLWubbkSrTaVsJkbjwfPSm
UiFZ142At2JkSIeH2ZkFU7pCX3gDnde2MHMz2WTqyrVZYWVZ81qhtZZlUFYWWMVllhFZBkqGYY5m
BGJJFUi0KZOSc84gem07Gh2T1YivwzDzDyzjiR41PM7tIoxjSYMRPGHjM1VzPXbbwVBuPGYhmL7O
8S3xwy8Rx6DukpuhOyQnY8GADkq8kIUJSLsNuPD5O/oQNscEh3IE0SnXH1zqUQQoiSYfGst1ig2g
N/tT/mqb22vqap/zqP/MN+wtVI/0f0GD5xzumUFdwEHNaGZF/y/0MptQH+pRMMUcOzQlBwQg7FEE
mTchlrNpETMYQb+ASCwMfTcbjh6PGZ/UAUrCFpwChLIoAqpC7RZ3D/Rf+QmAuhfvDJMEdioApsBN
7+XQbeHjeWaqyIUpdU5kcFKgjA3EgG5bC/FoA8rNYo4iQN0IM5QRPEAipiy+A8d0pxwhiMJDw+cL
II/ZUWY+jVBEeY8xI3NFo7jhYyik7wAmji4KVdMDmKNd2eEGjzVAsDblxVYz+bwRPWaDxQxHLLNG
Fqj+mDA3KkKjkKnPXlYJKxURkCjJP1GJbiKecXQsgJRJdjjDo2lAukknAeQIbpqT9dt+lYb1Hg2N
pOLCY+f/szjsACCifEhB7SPgHT5MKphkeHD3NGNbCCCG8OGGpZspnDKsxO04TO8MbcUZUbjwa3ef
pw9ztgHJzVk5YOWZBNgmoMKRvwwb3jGLBNMGL78woGbmPGhnchowmKkGOBAjCykJ0ysDAZB9qQLx
LuZHOz7tUa040w5hDpamsSGPhhVVJ+2UkGAYcKKGRcfUzZ2osfLz/+OpJQerSb+5m8A8hIWuL65e
/y1znI/9cGc2UjkRGNyQZ01Iv+Sjn3xWsWNjpGQkHHXK41f4RBKRDTSeQllQxxkpZWJV8kCLoHPD
n/k5x/yugXdOpo3vMAneYEdlmHEzAIunZPPsvmQSgiRX84MYfmGvz17qR3ajVaO3ERt8ZxdtdjJt
8M38iKvxucwixM8yCOceqpmVeGLteiKpthSnL83y4EdDOEbJIcjD0f4gWciSKE47drO88ukYsaND
I761znli0NG2Bk48YLggMZ8xqTihDAaywJFXFMoHDuoMHWbzs8BK6rEVYCAALkPgwmrxQWWwpBgR
E/ID+7NfAfBPNviJfcPrOcZDw/8E70EbD6n7H5yAlEd1dX8/sC+ZROR9lU3+kmNxnbTwsSBflp4h
TyZj+ju3/2i24sB5TQeRRvZ4NtwqLTv+/tAchDpy597/C/Oj0UYCqwOxgIpE3EQnkeYAmIGpo0Bb
72remZTOMUAYee1rQOwj4aCZgqvnbyaaeQ3TSDjFGoGGhXCAY40CeqJaDtinJIUians+jDUPbzbq
l3yZDFyPHt0nujhAyiBRAMsyUjnlXNEx20r1FqQJE8B6Dn/vP6NfXmzRtLLLIgwpzLKMcjMxMszG
DMwwqsyzMqXMyqaDMxyLDC3Sajx9evhjjvBwGTGzMIMsZCKPhwyp3RnV2dcBsz5czue3NE8WZcdh
VemMtkc1qIpSvFGMRBETH7vrw1TRJmHq+E+M0Z1oNM/pYaTbXDjaa43azGX5JIIjI3URR2zKKNVZ
R8uLqE0QcZkDoVCGt1YkmKxLA/0oBouUA/btCJH/1sw5aCnDd527QYxyzSKg7kC1am9UgRBxAEO7
B9igUpu3SXj61Pz9nvFfYR9zp7FX2GpV9cupAa9GHiRHcea9HCxMXZwCqiJUQuFlxK0fdCo5Diwr
ilLanfv+tKifqN2dFI72ELOw4Ft3u6xOSNNO3c3PPjF48+PlvDty3FKxV9WJO0AzseUehzMQBBBb
qsLcoYLwH3HOYMcrpVzypF80XlGk4zindQTbmUGRDYVzNj+KaMFMwI8pOhTsCqE5EJbwrSBTeE+x
hFQJA+SuLlQKgsUgCjo+LBy3n61oLySoU8vGqQUv8SFNiox4M7Lw/t2Vai1Vojg/GRZN2eA3V73+
rj55Drk5HXwItUvJMFcc+Yn2gBNNV9SA8W+kJ7TfIXeXoYsIAE9mQeUas0Eie7vi8eAayMGNL0lG
MySJQ8KRTUuzhx7FWZH5mJf8gvIuUcEpurMHKIwstiAwOB3Tm0e+XCDrTk4XSzorcMOtr8igkge6
ge77I7d6OYWvJ29MtbX840fDgJ3extrn5xHi0enXnqnyjiNx6aH08JgDeQP25PbLRFJFCQSnERUo
klBva/fEwoKIoVNEdzD0os4KI12lbpBwHCP8qRsX4+ecwXJx1leH2czC1J2sPHgbXHR11i2FtCJC
dcOGvmqrYeSHWRLxKUdeAFlDrBgkVWA7yjMpVCt+XjAQ81iyc7iegsYkRDM0FIfyKhl3DWmt4957
PXQI2tGD8H/b+Pj9ZIvQDpIIHAl/f9vEV++MhQCH9Lq5o/te3grwMXrIxE0DFAgURC3KUdm/h2uy
QI8VCzNunODw8OuyYg0cjxpCkgDYesuGc2FQqTBXZVEAatBh6tSb+BeZqwjNaqOsZJSPG27ZiqST
YpCri5ixr5pJhmpqnFx438nB6X8tNf4/rou/tbe7mTXOe8i/jYn2GuIypH1MyfeMLBVkkOxEofrY
TMZQPBHYhIde6+jm6tIJAHIImscH27u2lpE1KfNyv7hH5KPvdcYkWI0ts6ki2wPEMPBH9sclWWGg
fd49GlM1ccwOvsizUJ9/2RNtN93G12+NPwuVccZeNRtewweRSkRzrii09MOvf5YIfqeXHyc96+dA
3XrL4d6eqNqQJvJRsxuSw8D5zfZ+ayBMCvcoiIUaRk3R0wQHAIFQklHmU79163W4BW7AM2ePyaAg
cSQMgdwvVwoRV2GtY2I+bCprgYbYcI2akXzZHk2OVx6QkVnxmrHiRoadDxkzOzDKYN7eZOSx9oVI
RJEoYEAiwv96FHJUPA/jPR2K6MffHbozXzG7shSVLaErgsS8yED/TBQeWt5CJVT6ycYVjs8QiHZH
CTh0pJ6n5tGmPYuGQrlQpkqlyApNLMALEa5iaO6TjNvBxHZ1TI/6WA3R1mREG8LfQN+uZIrIBfgm
2PxGDFLXSm31+PE1QNfPjrb7Ie0lSQtRVQO6Sg32KzDuiPeshfJLogdSZDQOoQtBgUAZDqAKBoyE
KczAyV1mepImRQ6hwIiEoUKV++FTICgopOJyebmE0RSUfb7LUR4lTJqhpJv2yOVKfNZKdsxGJpWi
goTZGFTszKSJ+GU9M6qKCjwzlEDQUhRRTEUlNRIeJM+bByKBp8ryj2yG/qsBooAuMFyKSiqqg/bA
+k6n/ZHt9onkQeJ8/V9ufZQ/SvvmPiCOgaEYiCVhUv95DE3/RVxfmtwbY/myfB0sBtP02T3KvClm
YhkPhWjOTBc8nSDiEaRUjvhKKKFKTlJ6/oVZF05hX+MhrMPcUShDe9mCYZUr96pYVvtpWPY1RTEs
Y5RW7F2CcgU/6vHoEHv24/WohU+rKrbJG5ET+yHtcdmS1+Gb+NzCD4c/Fx4T9GOXwd3DUFdWBgzd
VktKRI1EszR96xnDMbPUytB8MxJgqtRhEURWWUSlFJVUBEC0CUwSSdbgcENBud/cg6Tl72AxOEsr
UdAv7sdCQT1Zmkdovgony5b74BtgzW312Lr/5HbSF9uAd/D4bNXiZhd51UmghFxWEAQ5A7dPnTrL
2y8semBiXYycKgRSUPVRsPxVxnsLMNEStIQLv0Vn5QZ0H2hv6qsAPl3/henv63558lQefkG8ciki
ccRJF6/SHAfa89zpn7HD7tT78tf4U4p+aBQNP9bR8vu17mERr5Z40akrFVCfc5bOjL3gfz5XXvvx
SrFPXil096++n2WPfVgM5n68DsaRsesYeNRv9HaU2KAkfRwOj5LXkyMD5QVu6C0LhlwpyF9kLQ8/
7fe0xT9Jq9GHDj9XJQ49u+mHQd/KQD2BCQ7mAYpfDZMt/Mnb5Xox7acW5U+cP6LiGUPTdbiv4B5X
68Hvb5A3GoVtf475Sdc+RRkjRtN8x3ibifZSvR/8qfHFs1/m0qcvSYNhef0X7RPTDjMCh7DAuc76
T+iAMCPuWQyHHMyjiGOOfyfG51qS1j2flEZ7m7WebEfLg0VLk7fkU/B4xsTsjOuqHMQnIuZpORq/
pjN7SFHntLyjCMqQjH016LTpasjYJCgBqRYk90VsFWOOjXgv8PtcTeBDEewrwvceRlJYhTuWBYOz
WKs0RmPWf0a0GvkyA/8W78f8OrhJwyfJwzD44YM4+c3k2/XmXR4c9caGUY224YU39cVz9N8tyP0U
g2SPhNGP6cfdmh6xTcgV4BCEFmk2WVCAQTmO5UME/3DKkJmADhEZHwmCUAfBV0PXWaZhPzO7iij6
bYV6KSHxgYLZAWfwe+f5i9ZnONPBnwwX8rM103v8ZW1V9LqmKx+5fjYi8Di/e5/ORGfzTGnvHS/f
0Uxe1hRQeltkHkbI/o0tg8c8WwfDMaPH15u3s446toDdfJBkUnMnzayfu4+3T40ZBMTQ8m/j1r7d
eKObeju5ZNLj7TKm8G0NQfv/ZAr61PuezWWT6/F4sY8nf5dZmtH6aGYzV80wsCsKmvow4q1TThWS
DJjIEahHE1eTN/GDEgCxR/iqE2IDFaqGyQsiFHPqwz4xcbNJJnt7MJTXs/szRmvDMa3brIP6ryMG
0qvNjhLQJkGS5ZNBQBT4JPnj+KNkvYgX6oTUUK0pSUjShegxIu3c/GrQFK0oc0ZEylCUESUDSTDF
Tx1PYl1D6cxjMB4ZNTVX7+BkNvBwloWCBrq3pMmo/18VRf/wiFR3fxX2Gw/aBBvl7psUp87OuVAL
fmNB7sfnmij9xs4kcX7pFqT4vTWODI4+moh/MNmNoOrRlRRVJBVQk7vDf7jby64DiKfwwIoID3EJ
5Eev8MDuLms7Nf7en4weF5L7D7Pmof9i1p9G+ZHMp9tojzPKHj4gbMm/QFaEFGA+njOECMApO3To
o4gFBD+oPcaj9XsHeUce/27OHqR068+HgfEhRFVAxJYfz3pAiBBaKgn9Kw3nCkgoYzClmGD3vzk5
ZTlQjMGh4LCp6S/ovqrxwaAugiFUOsG/Bw/gVPlj0cfcac0nHOw9vPRvJWrA2XMiERhJAQ5p7QPL
6zE2WeMKkANlEO242OSN/kqIKEDYgTAVOZQKH917sHI9pYfvVwU5EBySMlUHPws0dlkJqdoumFCH
g5Bfc17PTemcvhtsv2lhpmDGnVfYF7m0tVz5affMb+c2WLEnZKnRj5/eYGrAXH6s+zz0fj+pw4Mn
7WF+RzRs1k9OXiy83vRQ4YMiIOvOw7oQCER7qhaBf1F3g3phWGCJiNfVXH0VPKo/ld+78p3+kDu1
8F85y2ba0cZ7YsrJ/XQoythrxHn5al8almWp39JgjCpQY/ukPyJPYkemRzj83jDWfr5v5jkmv44P
c7MjrVZqxjY+TBP89I1pgSM/h+nEfNo1qXiF+nf+LMaXA2QCltloYJ0Pk0vd3iXrIDkQncJJNgFM
gQ1l2VRBANyvawUAlIurbiYZSB4EacdzASMC+CqduVa7mVodPfewXh/47UpL3ogeHmg9FSmSRkqs
aBvBhE+CU1FJqQOeU1IRhm2AKBqAmCUDZbnfIHpD7IwkPaFk1BDSBFe03qtQ/hzBpUaIROeqLwKi
JI80az4cCHyBai0PX4KvJbOjNXR0+s2myDeXZQ5dclXKfTrIo8ljVFxXasZ+6EMXMKxtevoMXYaD
wfBV3nMKvr1x8t4SSTR9EXQ7qD5vm8urWYB7duzIt131Fr2xLAU+nzxa3Z894Iab4c2GuJnvIPY/
qh7Z+hnzz380kuVEzIwCjSqEEx7IQZ/gZS5sJGHc7oHOVGgCUbR87L1Dq+ZQvxhDmI3rFpaG2PXz
z9Zykm0FKNSYzdbAz2uAslgf2Lby7d8+UFHkq0BGgPp+73/m1PP2ddaXq++TC2BQ8goBjwzVU43o
j+OGZxjfgwy5s50B57TkoiKSaSrrfLhEBAEjMsKa+f29IUnJiDSm7x8HrJFPPpDl3xSNFHIqd1Un
i36VYiElyfNO66sIyRO6Yj1jEhwFiAIT8AbjINx5xxm88Un8FPnSjNb6676J+zKHbIxjbfB+pmdu
+sAxlz1/zXMcDbOWOxMCCSiaEtYCmNwM+GO17ma24c+YemaY9fko1ayBAkg67bvNObc31ZG+t55D
qMUwTm6Ffr7w+9HbxyYu7MIMYxjNVqWnwoa+3Iy+8RG/jAPpx8CuE11IH6OrV+phur5dpj+o/52F
b/Z7jzSFBM5APkjUmiHUuEupDWsqh3x7KkmAopKI+UvsNPiDUVX25yNYYGEmEFI5OWWPzfkN+Pd+
fq3390cwITu35t9FS/V/O9E3JQ7kfXk7J0T7ksJmq8xFHw3eHKdxFN1H4iLct4BwZlRkLIhYq5cE
Q8irl89E0OpUwFYoFMlcAp+51r+Y+zRgt0/gRM/r75SMtfvt1mj+SE8p69GNqH2uP/Z67XYn+17b
2oQZnhEN3QUe+IADMIEVn9DUSkIkEFPFUm0P2+2zqCB92ymeTc1AUwEG9ID/+hAdgRAo6lRHny9s
P0XCic/FY7ObX777Jk3o4c5y4B0QPJBOTL6OwKJdqIF7KGEVdlkQtDNlwNw28Vz/H+fl//htz9gw
lTtHC9SRmGRVadNEGD8XChixX59zWB5CCgiXkyn9lFYQ7M9Z5N4G8Z2Pg0fbz+64NDTo0EaUf6SS
yC3C9tlgbk1PPHSPM/CHtmNBkalNTmYUNPJGTVU5Br4+hhH5zz/M79nY+Tz7OUAQbEKUEOeHxyLA
niOI0BH9W8x/Rzkw/elrMMw/ScnqNTSzoB/2fkoaP7ZbgpzE8CaOCIED3mpAjv741aCDAqFJWCp4
oCHHfZoRBIWAhwGF3+EnBsozBwSMFPP8x+mAq6zERuob8TJ9Ca9fNYzkdqvu+wdQwYmtH592ZWqS
JP7LH/N3mj8Gvq+30hpFo/DTwBT2WZGQ0BWGVJYCkFHHHKIj+9Y+ZAU6QPDhy2Qbo80NUAJEntse
bo2mBE8xatk+gg0BTl/3qjIsJh3UpVLH2VXv/soA9Nf7sVPUKsg2Ids14i/O1z/hhGk2nzI214fv
KYddb+zN5m3E1+LtpAyfrpRAP64ImEC1L0XBtD+46DG1GKCxEdfL2qbvZSbR56gj3eKiqO/xd7kT
njbgC4BCpUVFUPaScxHx74j/091Zl7fHFf2OgbMQwbyegYT/v27nKOOk0D+/A48TCOB7BcdD9SwF
sJ/0ID+JFBNO+Q8n77fTfiAJQfme6IuGRSNM3emSQwH/y7oHc5J9H4d5GAdtefGBve53w6kKzcz/
IYlwMuIwoHD/oXrykjDigClBfbLuBcW4rXiIjJJENDC15Phcu1Xkwz8VeKsaKP6c9b872vyaILlj
+PuHLQR2WcgAcO9f55hgavYZsLd6rIohAG2MdWXSwHrtmwMacJaNujCYavyS9uPo05wGUwUF5Zr1
B2aYhr3GzB8oxh2GHR4HRFEQRRG+sWhjEf/6MgHAzQQkkRH+5lW4cj6fb4hywfEciYw4A73y9/OD
83a1p+GGuHMGoimiIoYiiloqohgk+Gcn2ThHYzvfHs0RTmZE8SuNVuxI/bh1GqpIb8WOTR2k51gb
zKR/N8M0TDMQfLmKP0QmEtNlhp67kx9rvXney53errVaruV5lYzTcuRVOHJqipMuUKSFM8uJh6hG
lWUJYm2btbeq3e7yfFt29ficUjDMrjkxJDfDEFDGhI+oxsCtgz3O0pvjnt4x+3rMzxjtzr3e7fj7
Ph6dekn44deeYRVVERVRSMR4zApII+E5EUzzGLvDL0jKyHKvTMnUh6QfDjE4ZIiail7QGHXfXGZu
QiaBo8p9G1YQZFGOBFu1qrAjMTKs9prWzFc24OVqPW0UVMbSdWUZfkopHLOiEdkkbfRbpPEOi0Wq
qsDU8HHhpgzMKi5qaM9WljT7TbPn7xLPO++dy0aGq4yeQlCs8ut1VrJyymhuAosSnx6cehxlnlnn
5vG+4I5CVzWPKCP9Yr43rP9zqN4RBAoISAETWn5b8v04kiveEKBGhVf5CT1gHU+89pRQUUNMyCc2
YPVGTQUU00oU1QpSUlHhsh7ndwdRQFNInh3427KFqcIHVFkEtH80KhUDY9OduzbbzdduzlOqbfHj
zdPyV03+GzYIegh5iLkfYeAs7BPtMDxnYYlHiPQOQH/wQwNZR/qNYPKWDUGw83pucpDicp8ptNZh
Dw5HUllHoYHBgl164NQpgTz0NEL7MMdZuNBazFnLCIqIskwqgs+ZzN4A7qKSih4jN2fi+h9HbsQr
qyQyCkClMgyDJAyIjEmIsIDCG1qkIZd9h2zAHldj2PO62nsexAmALkIkK4DEoU4fjqbUmzV6Kwf5
tb1nWUOe239E/d6xtgbcQLgixEEPjnEAogMsrnTQb+4wgsI8hxxv0OezVn+3XPR1bPKHPjtnMaJx
19gPlY2bvQLaKxgHmY7pJF/PLlc+JWRUUWTk+OArSB2KtDdkbU82l/bqij/Y2M6TEIcrVI13h6XX
m93A2k3ie8+R6HkNsHL3EMz4vZcQNl+kB6/ul+ibgU+CB7MAoqX6EP9pNycCG+H+kf2fs/1aMwJi
V5vXwxVrHk5Yh/7E+7pcb85g2XvJyakyORNWniJ4sFWczk4KiXrOQ02eVXN0PVvpmuZR0Qsl+ZF8
Qi8mFekRWTty9HURE3K2tmZdaiYucoQ6NRho7auCM5yOXSL5MyeYnp73HqagrhM7Res1GdMKZqMD
mKhLchXpua26gijO7T6tiFtKKBOyNlZuPUS2EVVKXmoVGC8WgmtObzI2DWzcKCaGWdqLmcNzr6Ds
BydzA5W04TTus618WUnu1eZhudh5QmXvSXcrX0Pb4NlAmYyXiHzZqZwYKqw42cyNUUdqbl6cvpnH
V02aEFcVjy4zKe8nXe305eRFHJUWLyZNbtZSzcvInZysrDAfbUEVkQ8qBl7O3ipZj1rxVC3qNBrZ
ZGhBmHQx7cLRLiqWpEIvhzE74ZUUpqZzNvXx1nPxqZmDMGFEAcIFlraMdba5sSKwO++KgOO0BcsB
LGkisXJA6gXm4kDVxKh4lDkjrtiagDmfKUOZDiHcAZLxHGsHtJxAvUI9Qh3hXcGoB7wBxHeE7Sr2
kWl1cwBQcQh1CAUo094A4jtvAap4hdSDkCHeHiV65wEzWAhRQmSL4zBDcB1IPiEyeYfHjAOZPEuo
A8SuoXcAULzKPiQ3BkJqUDxA5IhqTch1C+IDUOoU7wPaTxCHEdS6gN7xPEqblDtAJuFO0gUhqATt
I9pAyHvId4QNQZK07k5kB7yHMpSrxC75w4g4gHmEO8veHdxI61niTmV5gO8HiA1DzClI5J4gNyC0
i+NYJxA7kAoAzxgAG5U7wIal7yBQDySCh2lTtDuUTcPGsROIEyMgDvB3hQ4nkhPEmoGIPEHYnmyT
xJxLzG4A7ZiD3lO8BuUTmUMnxA94DvLm8AbjPGsTxIcwcdsDxducPELkCagepTtPiPEB3gDghOZK
NwnMgdb605HeTJOJEchF4hTrnFHZIjqfEg8R24wRdSEsBRq62rHKuhxTiR4QeNE7X5FgMwYMDfdG
gKCoYCooKqKokokiqQiSilioKSmIikZaCoKikgCCYiWaKiaaomCmgpooCIQoAoXfRFLrTREQ0BFQ
UjFEhQlKCUlNNLSolSsENFVTEUFRVURUFMURA+NbzDd2t8LCOh1LsYmYgV0VF5ljKVuN3JsinuKh
5A0hEBgSGRYC3D1swczbc7UxTGpBLVRmCKd8vS77YV2qeNK2cizJTzjxZsVVvgNiFCnFelyVe26p
82n2qEtBKZAHW2osThRDw52JfBhzcelF7WbNbpyzlzOERdXM4DSwW4i9ovJJrKl0z2Mu9lVVTd2L
DQdGh3hzdRDhTDyg5wThYRYEVZWUNSykjd7WrQRlvBh503rkiZc5VahiK3SsicysO1Nycx7EajBN
YYyNO7NPCfZLqWcK4mC85apYaiCUQXbXDiTYzVSnTq26FjIyHmts7Tu6eIT5MUnEHIQypq7KFCTV
Q8B7hPAWQVdHYGRdTWKo3Xq4WWItEiQIlYVmKFjPcmjoqVox51XSgbDisECRBisisicowXuSnyDh
lpUCXSjZyL2JfMQSCSBWzWFO8Go0o7Id7jTtTEzO0sSMFEWmlzcQ4VF9i3ehSLO1WCsm6jaIAMl5
MS+CAaVGaiKN2U8urZ4sbs6ae7e4tOHJp82IJtbTwRbbsTkK33KS1w5oh9UYcqAjZgPbqciiIVKJ
SoJbQ1WKmE+vEhTdkXbp7uXp0K3XDycTm1hkK1JCtxMUsNSJh4EY8Wll0yBoUgSLL5U1jnVhGY6F
FOpdSb1REZRe2x3idsKZnFJc0ZqKNINNBMZcODhm1gl8TmxjmhpV1lwpsiRKVLMsOIeRkZdSHl5w
ExWVevL3ogZEzEYpDGqRGO+0qbJF4KsUgUCqh23aV1KIeWUh92trLNF6jXTmFRRhocZguEKjDdFr
MQ81V3UzevQkipQBWoFY8DFt2QtndTuaJ1pouZzQ87auJek+XMbKnCNqRpqQlqu7kGEN0PVRURFX
JxU2vskZO2RO3NJzl6HkxeXOyXmIInBGXEKi+xhLqiXuLlJy74MUbIei5VVYwJaXGaJDjKfap9UT
aOw9zQTi6jLp5cUpjdm7kSrqMUrXsyYEmn0RuyKnSQ5m203EaImHmy0rDk5AMxmig9VCO3QoVuzA
2Rh3Q8wb18jagHQXvCSSCSSWJDEiFrsxt6SG5BfYL6Vuu9OpFPqpTWztHRN7WK72rd8bK1xgiHw6
+LHi8BkDGAZAhgBpDCoL3sjMlCLLzO1U0FkBGsemVYYNG3qHmLuMh0LCq50pYiYrTVK6REWIy2JG
7Uy9zgowHiXi6edclGYfICgvETuvIsW5FalVuYe6VrAlevZapGorImc1wkYs3Gp8QJD3lTU66doE
IunOXuMLNaN3RjziqaRBnYwsEaNu9PMp7eFVVuELKyi6uDEpOVbzczqa9x9RMLRWXsxQc4yM7QJF
Ugs2pO7qobUCShtjWsyCRBVxglxr6ncXFzoJynY3ZLFLCFluXo3CzNMNWpyqyACQTsGJFRVQiKUy
rndx8tWtdzdVD0IfFWzCiIcisvYgw8anl8CvHRmHjce6oqKmlV2+2VEoOySy4T/6cjk5XBnBYqya
FzFikVw1IV6aO6lU5VQrUWbkPbqYuhL7FZmVmozs04rFhFFGrq2SwU+bV7b2Ii8LPQcO5fC9xMRq
E7JurcERCqCnTwQRlY6FRdYgZynWwoKWulSm6GbuxewTNRKx62gdkxFSL1HHkEuYOiXIwKBjynWu
nlVm1dRdkY9HDGS7gzQNbTvQideXWPevOZIukHUVjzdWNOQ4c4ZlWFExNHTp0OBlgB9wAuAHQcAu
XtbjwNfAqSupMrIQiEXBGrHd4KxTaDualxtxaL7lTJzIu1kEbpWiajI1Y+XiIvU85l1hy6OKaWvU
VtPNZkQsVOCVkGLQWvhvYFOVD7Uik7i8yC94MxztVABmtmXaBBugYNwsfTWUpxGMh9ysN4Ke3MKJ
q04kmX3vk8hXvHiEJSFZBh9Jp64osKd24NIp3xzriQsiqyIk2ZZCZcxuZVjFeZEESz5IchzLm803
r3YikLunF1KE3IHCCQG9FFmJDnUyibbLMg5i5nlbTQIAR8rEIEkH7SUAEiR/1xcJcxUVBB0x2fx4
n3IfKHif3/wX4eePLlKeb54d7wcgPEc3sme39Xve7HZEf3M851T/Ez+d5+aVir6e2uKREtWkBqIy
DeK68KPDF4Z1Mq8Oun2XNMb1z+OWLkwTbDld5DW+Q22a8RhhbomYDpEJA0ilQRkDGCJcktQF5Pny
3ZVaHm+FHpltth47ev0JLPe2hphYoOfL9B/GwjXLVflTLh+wwn9DdOwBIz+7lC8yCeFCol2aGQAq
cpQcByg+5nfXmn8TS3/JnQVRM0w1iHBFuUcSiOH7z0v62KphCCwUgeBA/Q9u3BI/+gm86/F/yxoc
iSw4H/JzZ/pzPmWHBqxwwBsb4YcfeppiMNZP2H6tBeZz9nagY0g5iIWLgAvf30FRwd522P6yX4nJ
qOjvx/zOjtzwn12rEUAFV9HCkQOSAoeGJecHGXs0EHLFmIIuoUAFV7yCdED8EUi8YKEihhFL+KhQ
XEEEQfFjZVFO5KogFKIlKAlAIg1+z8OPXD6fJsJU4lH4kvM6YQ09sdQAf+s74PSa8T1Qs9PX1EOo
2oqpWB+NleNqEvBO/ZeoiPRIjrMyEE1KIUojqVB6OR3WT+q1IAJW4KVVC8RBeWKm6Ki9ECoaIEKV
QpBRDqchAChUAKRRGCOCVEyKaAChVAkBNWCFKIuB/yml/TNudFU4NVMrWoI1j70d62GCeg3khgen
AbJoIkif7JFMTlgNsIWGIo88CBQIv80fz8WIickAob1SaBeL58QTZCDuQEKmFTJQRMIBBwJUHCBQ
aFEwhWkUckFDIAQSuiIlSDaIVEDHWFhyx+qwD6j6z7fuLA5/x/7Xn/EjA/2nWcagIgJwqmAKVyOA
YhUUB7vcZg3sgDs8a+OAa6Ltx4QtpgBdccw2ibW5u9AGMOHtpdHGrGYjrgx40eKY8BduBCXAmo/5
ZeepsYqOuw3ps2IGgho4mYRaYMyGE+c95KEPS0ElCXj00If3u3GnksksxSgSMDESlvJF2v57R7nh
4AdEEzBAI1w+EzZwRbbQzDid6B3QKd6EyRfLKIH+M0p+Ll4tCKIckdcgHPKvxQoIZIgL2IOaKWfJ
gO+7RlG+G+Dw+EoEDu6qQ5giIr54ovRAFEqAi72AohtiIvPEDjAA4ZpQImSzCSyBUyRCFUDMpQUk
SJSNCKUBMo1RSCUMEiFAzIsSFIqcSCnLG5yZmmShIQEeCBTRCAhwkUQRSRVIRSVJUBNAUU1BTE0x
VAUESREoBxIA0oJSoh+OQQZgqSlMkMB3iuENQxEA4QIaIFMlgisX5SUD9nrpEw83YHX6LYKJmgCG
2Ig9uGCNIJypEkskDJCn/HoSlPadYGmjccwFb5pCrDIQKNpLWppyMR2maOjZbSHUJxYkq4QnBUlD
kKmpAlDRg4QWYuEpTJIjTCCMkoBzIIBi0G4/RK6g4krBkHlOtI6A5wxGQaGUlRA3SbBkEckBTgOi
+iVFz/zgqchInrkPQQKddySicMKhSgjQoPNdnLA2DIDogH1B/pxhi0sy3+gYGaxzTGE0AVUmBKYM
QiFEHuyY0BF89th1rFwUg25t1iUBoJMKINFyqHs+OKHvaiIpvDw5S8bW6es/dcxQAMpHnpIJJKIO
qx1ls9JTGQJG06mDGlGj4kymNUJCRqJojDZGRpyLGnGaqsSxxHE3ga1gEYkE9rFA6oUeMhPfkQ1a
NVA2mkQDFIrIplFX5i+Re6qB1QEBfRFLMAG5upCykg+mhX7YAGoZY8icHmfBI+IQQOy0hMjShBBK
iiD9x5j7S3iOjTk9WF7QmE9FV6+mpaTOCX37biq+f9i4t95/DcTNGsl6QaP5ejVz/TLxi4/fADtK
DHdTDakCe7Tn/NUCyv+gc8N7YVo6Ysv81mGSJoZTkL3z/VV6Qhfx/7Lh6z1hTewEkqZmZURtndWe
IlHaW85ynJmnTGVdC49+Heq8JZ7Pw/Uu7eUH2vt4Flfbqzdxo8RpC3j+S0yUczl1I0zB707KMGKP
JFWqjebX4tL/6PDD+KcC8dHPeN4n6F9bFv7xhH5/iybG8xP9MEEKsPVlCxZBLLz1t79uGJ/phzH6
t1DRE1QtAOMupk2JFDqwsW8FqJYUIF/RwifJEOH9dtF/KUlnBYdETa9dvHEfd2E0UaKkfqZU0fUe
+26LPW6EZplD94xHCP5Ij+8Xp0YND46lyBBjYwckYH70RUd8xECqKQYqrFoHE6mFjh9EmcBwHWx3
PkyZVG0uCDQewwMyLFBxNsakNRjDyEEFwU97rZ2vVRnC+e9vNn6M1O0nCktEYzu5/0hDwxc9nLVD
CjBk5BC8rG0pRFuygc/p36R5VuSc7QdWSwcejiIvAQUOod+Os/IJx24QzqBArcG2Itcber6T3v73
IPs4eIKYgqiIokJ+skIoaw7cfNy1v8XJ02JfRXznLec5FQIwb/Xb9g/3jn5gbw4+A70iLuYayz/G
IROmiBIgfgfxPWEmjD8r0Wn3+ymWko7IGrw0XwUqGyg176qF//oMeh/GAMfJgNxmck0Cg8ohUOYB
k6VEQOe2wELzmkKzP6XUUa/FoXZnzwj0NkRBnJ0L2lRmTPiRrpxUEdSWiBUxiFGQS1GCMkfHVoW1
+C0O/thJCEJygndF7dvLvrOHaWrh0EPB9HkqYEcGcZvYZwSHxaOSnzp+94zuvRE3TwdXy4daj/Lq
EJbhQzghKyt7EzKI6ECPKU3+QQAfQEAD1EBkUDkheIFoCEgoe8zwNOMnr4ZIZkkPyeUcswwwSOh3
7iQISR3XxsVDHpqia6Kqhd/sy1IqGPP924y25qZr2ecz0yMUZjB/QJnjBhnywVdTSc8lOzf2zQa5
lVi0RNX+bIZhNQX7R3RpAwhIA1xMWmYoH9pmCsRv9tzBo8xJaXHeHlgrsbaZpVz3NGj4A2SBZPwP
R9lNM19+m+kYl9T+6fe297hnANpAMIiYVc3bRUMATOSLuk1h1lhMz0NAmog5fIFQNlUTfAHfwysc
s+Xv0KI6r8tqam2AZkeQilRA2HLK2E9ENs5Z5o8ILsIBpAStRlZMI6BANvvpFtB5IXic8IwNOBQG
+FvhMJyN9pa3UatXr35iaIAdeHSku1TwQS3wk9vJgnthPSADuezWj/unjjsXwwj7jCHdgOIrSV/Q
QX8jSuzmo/NLkLSvBqN111VjyS6OwIhYhzwHX6CBSa91DqhaKnJq47C6G/Ggk5o5sQyg70sv4ynD
Bd7EQaRth4PhPOzuUD8Bh3+JNevYO9r/N0WwuuvXTfKgsRsTzRtrgUnzl6XYRXYoyiJCSr4JffCj
eEkGOFFygYgbFEh1GA2AvtA6Dkhg6RyKMS3MVSPA0Ok+EOSdAYDOUhzWAD+BKEHVKfq+IIo37/Mv
FIduo/oiIyM/8q71xkEOqj5GQbdRd4GQ5Rs5FAVPy1NKG4h+swpagEfbieBMOjUKoeT4kAAKz8BI
5r/e8hJu0+e2OE8UMrm7Cucq6zAkxgWdYVX3/x9JrumcRVh/T580DriBDxD/H19KVnzYtMDvxK1I
Ttvw7r/QHcGO6DzYlJb4+FR/PN26oQkwINiEgABIDFSilCNiP4GO33iQd7kKGj+z7FWfPVhOxRoe
Sxklw88GjiHVh9HnwOwyqTUSoMNcaDQ8CBz6APaLghYRt7YD44kiliBhmY303y+BQxDaNVf/0HZF
JS7F4lo6ZMqSzEDs6T8TW+wcUnAukwX5drRJyI6QzgZ2ZFS9h4D+nenwSHDqJqQiGpirC1mRgty9
I0TkcNXW24cDSqkJ6rrsJnr4VmR6Q38YBgkylynIgCpTrDDJHVmSJH8iBIjGlgGLwfYdpQXZ/mc2
ReWDGHadypE+/tKtMBcPx9QbDRdkBjMg8GJmC+98B8Pc8Q+nRq39u2HSpay9CQaBkMufWazSapiu
o8aLzI1VkOSoF9WX9lfOEPB9QzE1QL/FJ1DQYqOAe9tz9hyDK3XOeN70ngiVzpViRcQwjYo0ojsB
Jf1TUcAaZbq69JNuGb58d+OSSNsP93hwTGF5iFfOinP9yiY7zUd1uW3w9te3t1WJcmGpQfnH6Rnf
BT6X4sIHWGtS74DCWsOrtB4yO9/9wBm3ETI+SQ/aMIBEqvzFuApQ6PedaNE7ikhAwz8F6JyKJ59s
ROc6vksoW8c7azDHZK5PyV6T9+BmH0aujxmrw7DB6Hz+PkfYBFQB9H1FSMIkiCWBvGAZmBgVGWH2
uFwBMPJ0/7KgouXuiIidoAFPekVTIATJBDFJgSIUoClKUpaVaAgJQiEooKaWlaQpIloKRmBiWgmV
iQgCQJhaRKAKUiWilZgCikSgIqpWQhGlSikYgaChpFiEqIKKVlhKAKWgCmloWhChmWgYIGgoClCl
iWIYkiWkiEglpUKVaRpoUlgaViBIhoEoKIkIIBoEIgKChSIYIShGmlKSIGgKaKBoWWGhKCgaCikK
UoChmGYGCWlCkaoiKCmmkQqgoCgGJiSkIgWqShUmVChaqqpqkqgGohiRKWkaKoggoIiIKShZlppp
ppppQpClmVKEpaoEpaCgCgKBJmhYqUJhGlCYaGgaVpGSWloGmkklIlaCGGgIgqhKFJISgGhkQIiF
YkoCgChoKSgKAoAoKKQpFoKKVoYgpoWmgShooKAmWgoKBpSlGhoBghQKUiGgCJoEpSJApCYBpVpI
liFiYmkoChChKWIGiQZIhSqUiWhpJliFKCgJgoapoWIaGkIhAiRpSCRiGgopIlSlkhiUoKUKQiAK
CAkShKlhGgGYCZEKGCGiloCJaQkgCCEJJUoYkaQKUKBKaCglISqQoKJmqCkKBoppJkKAaSlGiJDg
B+EdwP+yTrN+fCcePERL5BUxMZGDQEFQxFKzUFVEFP4MMxovv4iHsJNNSbkoh1vojDHFOqzi5SdG
Zb7vKU1VAFQsRuirlR2Q3zbsoCRWEAhegoggmzMUln6BQFDVFRVPq8f0ni67fdc/k/Ta0/KYY44Z
YeDS+cqokOcBixFGkmka+i55KidcnUK3TjU+5BTsEA8PEFOwytm6u3m1F6nuHc4LTqDFadijFwch
09XsZsbsVYt93YI2Itzom07iruXFHHxyZ3HvAlheK0U9WlbRd5h2Je8wRoNnKG3cjdhZrAYLqadx
kGX03QWpKXGqNdlRzbjMxQiprMUGTlu6q7rKwU+soM7Km7ubnJ2FF0bwPU3BYxEQX3Nk3INOt26q
JKy7EZeZYxynqZB3jAMPX6MW+gd0Hk6A8AgeAPj0HOZaoMizQNNG8SrMJKgcHS2oNBTEEO8xzH4p
9R9vgeuu+YHCglMoEA7d3d27i/d0izO0WVe6MGcvJ4lB2Eu5Xy5cJY71x9IFAhFkSxJBI/i+/gZl
sUQSjbNpeIZ+b6XZ4gN8+oerBNzU0PPMjDXRTxxesgKIgqEGK3PU4kEkDiEymxS5h3ZlCG7DizRG
nsqtcaaB4Q4qcjbrkIp0xqxkMIeXEkBzGbEMISaCxMTFKA0jdwUZGFrig7BTLiqysuRuLYKjRBIw
IWrTgkTU5AJKrKqgSBBV1EAT+nvwGAi977PfUUO7rtP3b7jTsRSMvTjNAEmysVVdUFhoBhJacQ6D
NGcgM/ph0OnnKYkWRB5aLrkpuiMICwpyMInFZAyDDviDOQ5YkacyYaxI0jICwsHBVCXmFJZy0g0Z
xTS0iJLZcAYDjoM//S2BA28xRpApDj+jBFno4RsJOkTuO9I7bgl8TEwKQzkJ8hNhGmsViIdqLPFq
N2mEtKEycwQGUoVtuG1EFCJVSgq1xB0sjmpwQodw15ZdVTmP4pwz59ABqjk9BBDeV283TBqLCKiD
MGZHJCRhWfColkmjfEEXOs3ifMR5UcMZBrncO7xpHXEshHhAcjEg5Bl9iyFAQAgElopN0bnH5LuB
Bw2Zt5g2vANmyIIIIBw1KHOVox+Q1F0ijrtWIXu3DBUaqAiBpbIh7y4hQ9QxpBhK7cSQRiFugLpL
iA7fnLdSSGtKyT1iEaObsscouJ7TcIEwuemWcSSjvj6Jd4OPjCxA0nRbgAjE2HCNiHki3U0EPsMP
JYeWZt5fXMkpbx4hUZuzVrzURcZk4QJ3GxXb3xkzmXxG3BNgObkY2DZe558ZV0Gfjp3B3s+Xgju1
gIFjunZyPPnjyXdMvn95wI50/gt4D9PPfV5NnwDJrCpLTmVAHblCdiMuShnUBvGaaHM1iNVwxkaI
11xIQtCEEQTd6oaLWZbiyBWiXtICwkJpCCwwszkSC8a7CJjDIkCCzXCaRtuIN6qpZKaXQCLCSBWl
eWDC6enUiFxTykCsOmrYSSePuO6MIuQA7lsOG5A9AFEXiYYeHRKCpVwocq4qWPFhAcostE3alme8
eC0kZOh5Ik7/sm9QgOMx1mc5IwsJ3X1XN4YoVMibqr3LhKA9kbiAusdHKx2m3ewRJgjHWhSHZETa
azBs4kAQqdkWFamRNPIg4mG2m14mpE3uRWIbcu0GMFxMkgUNUJWR88BgOsE5b8XVdXfXRdXcOwwL
disQYOUgWch6InxTzycjUnLumBkHlRtFAXDuzSHxZcsjU8cPotw17uQNP8Pe7088IDkRa4YneeFd
DCLL0g5aCMWXDEUuGQZtd2hJbAYhZKYKkJwXcCyAnQWoQ6wsSxrHacQkjjMBI5OneGeOdQlbhAe4
qlcU9SZCkSGhIuR+7yzbeXVoDNkvXwBZfhwTo7TIjeLSLLCA6EvRdcTVO3DEtl1EyJLW6ZWqklbd
h6LPVPVWXDY6ARoh78LXmQA5ayOZTtOxNSHMoIBQgD1LO+WC7CHWEHaet1+i1WsIonIeyfjY9kDK
d6LQQX44oz88MGuqyn7GTL9R2Q1J8yKu5Eu7wgGSIPPOzlc5DCEuXvIF7jiNLnZ2DTURFppIs2RJ
yE3YMCEMBacVqXFzsRpjEO4QEmiASSK++2HIt2AW8Qgt3qPbl4SAoddUrEvTxyRgLKEyHSg2dtNa
wl2UcSeyIJfXZsMS75XbMArNrDNqxR6dVdPtPyaqLurzWtiWYiGM3jZQbthxEtspWYiMLObxDmEX
UBhxCXazRAO0qhqOXAxbIqk6kq8kNlZsNb5aUMFLuSGxr2o28dgX3RDvjsSNI2EgpixI0tBk07u+
InDBnqsgAYSRmw+cQstVm3beBZxmG2ZOJbQ1+DWcGZycErIh4YFICCnBnI5kzACBaLdzL1FlopDU
pIcthObcBlaFxWQ1l3V6miHl4BunAQxCtdyQiGJJYSQElSSLQQCRlIcuOYNoTamgmGSm2Qg9yd5J
nHA4RUoWWyFOqLl8woeJO3OHU97jvhXt+CvtkKKkoIWCIhKCgqK6swixrv6HIMHnAEGq/PrxCPXf
mFa9XgyrGPVC7r0se6obFl1FRtZmWDb7BW7OS4yC+6+na2rTysjJq315gREZF67zm5eRL7OWa3QH
eTV5kDTr6ZMnFuoY62KvAbjHqKooZmWaF7sVT3WCDkyTjbQvnlWWWeodx1To3oFRZASQYf/gOzpL
JB0HUgRBTmgcesFQiyIN9jo9Bsys/McoGMObB5bBuE7+V27G39N043DsdoH7UPiCCLhkBsHrvif5
sxshrB/QsSEA3wPJdmb/DVTDD/0AWCFVc0sDcLqa9WeebvZpoZuo935WCoNiDCQiypgDPPF06Myq
HIAzeVgf/mMiiSIOMMQJkUOEjDMczFJajUE4xux2lP6mobYsKRhFIw8dvbXRc5y4EBRE1Bi4GSGE
ahTUlTGEgom5oO7NzxT2kWfDUO2K+8Rw9vVoCZt5IdPcN7EY6LW9RX0ax02us3HaSHGaHDTcBOBm
W7CyPr8NtRWjeDnUCKi7dzMFEtaHKmBIa7f8BhHDvFpbs2pcMqQJfbdw5QFQtpA2maliqGU8iKI3
b7ybJICmrgQRpARwinRm3BIE2mcjalXHBaBuHIWPiTIjgAe30zgTYNubNPQqIiAZfSMukWdINHB1
sCmin0iUhOkJqM0mc1nHozxxcByNdlpjVe0nAFuiinurzaARBxCoV6kOgzTBk3mKDnOQ7Xh7HcMH
Bs8Ibst0V0miIE9XQbhyMqGibu7piRZgo1QRLDLeobohpq9qHUzkuBFCsgOQ+II0QCJh8wRShzBK
QHbM07hxZURD426/BgeoCxwMYPB/TR0I0jvAmGHgSA2Q0uz9pkZO5K6hqUuKpMRXbukCSRwFhBkh
nETm3QDzN5taRDoWRZQN4mgY8U8jCMOlHYU7Lsi+u4VKtTmC/TDML0NCqSBwQ5fKpwK8Mmmz2wmO
uHHch41+QVWU424TzcU4gdkEjXlM4cs/GZv1YAPhntpA5u3fZ6147lnIRFlqKzwwEYJ8ce5IedhR
tmoqSOU4gtkuwRCqnogJzxLyxvlhjK1k1q4bs7MWhmm3vIWKyKLYZIsizZg0QqQq33brS0WETWIT
hm4aqoO1FtOkTxmuozcjYoUKdTQyH2Rz+95UoafTI134ifK6qx2boFzi2b74Lu1p6LkUdI16SeiI
VPIdTqGESYLvLyd2J/b4CEjb6vjyQIenNbEpzIHgxibyA6vsTkDwW50E1Wg+Q4BcV1dVdFMEXsPk
CCJgKiDe3cBxKBFs6aySBpAZz48Bo3OGlvU8FoUxRm4gukxXay7uxeV13tm6MmDpA2XyKMEEhoIs
iYQGy7udLaXLXOO5d8et19vMEu6QM7UZyr1sDcRZwoKoqnwcAs8nhOdfkRo+aECPc9h/A+N+Hwtu
a0vi97nxNK5mrKE4dKi9vE/UOiYi1byTMXWJFvuxjmNp1l2beVLzkTWZsXc5CpTcQSnSuFAx3vFV
StgSJPGkp0LrOoHJxOKL8kRP1lB1HQqg2QcqjN9bYVvDGPnyD2zQvkWRl04B9qTzEZKAviFm3QHA
GtXxNj444QSz85wqHYh5TdNm8ihCFEAkX0hoPL6d1rw9uIBDU84hW1wi83Qpx8sXJ4qyeGLW6XcE
gOdIkizhGGMRt3aYpwSBx0NICOarxAWCKd+inm4uzwQqRhiv8d9gDKw1KA3qQeVZruccSckmOrnS
KLljURs4a1ATgTQlVKrl0f5B4CDzmPyWfqY5dMnUdJhRBIwhSlmOBZGSE1lTUQnlzATViCElAXFx
AeUoXU7SiTOoBZi2jdcKynkkkkREQyjdgE7fHYY6Z0MTtCUFqlCXkuGRgyaLMpTkU9uYcXkgXxA8
DzF7vtmZAfParTVaPANHPeB0zbOmDeWasCd4nOiYdxwzkWQBZAR0ShZAtJGJQqlGqy3QHIrRLBam
Z+FlNGXHRE84XAsikugRHCm3ik4RtFIwcNlgiMLQWWvb9MYiwXoDOLUyZi3XSdGS2ltxTijqoeGN
xLxD8MwiMtMMNGiiFibobnM5b82joYoI4mEPbsI6l2EkDq1BYhygLd3YRpqMeuWz8x0XIGPu3tAm
zD7uy2DExmagAmjLoPQeoHRfdpaFJIGOcFhAwGJYdMIl4LZCD4nIh0OJNDhNUp+k9qDZZzOoWaRT
YYSAVqTH6N7YDwAzAC5FrExB668dDupNWld1MzOJJ8rvLFCk8pXNGIOGXDiGDACIaxFrHp7yhQuH
e8wW9Pri8eswvrzKDq4rf2DwxQmw3HJ0GxRBoSvnGHqLwxAwaDRUIyhRVBDMIc1hFvUlBl6fkMj+
p63+kcyJDdFGSERmrwAofOhx2bstw1DuILBHo2ao0XCPDZIlDC+KHSJl30sLorces2OAHhwyQiaA
I0+AOujkDldO+wovlOJQRayHIqZiASHlCMbj6QNB1Jl0Mvk2CM6rYqlUJFoLBwZIiSUOiBBHRoka
nOHrEEemjb0PLkRCHGLJQZmQMxSdIc3mciCIsO7PaFiFJstQN5NbIaNvS9yBhD2gNMEC53jXmCsz
jin03dxFlhDoCdsOwibD5ijmuA2Zr0Mhna417u3ZpUONiEHaYW2uc185ZfBT1rzBGzbs1f0LDZtW
8UpIcotBL9TDVAmDDdAPL9YmuY5Ao0CS5EdbkRfNeALBJUoAXaAqE22ECWikyMunpAGpeFM4JFkC
XsTAotJbgjmXVclbJQniohcQDnKRxZSEOqO2mGjFlXNhbVEQWqKNwMx9gB3QA4IRlC6QiKeLQM5s
E3aFkklguJpSkgRWbFEGZqBhpTa5WHUcF5YHKUlDIoRkGRJ09gdOHP9vui33eSBQ0gAaeKdkAQDb
keB2bkOvPsztBurh5TL5Ct4makxH667nJCOh1JVXtxj5maMlVW6scY5wnFbWALJIZgKDMACzMP2e
G5zlbeuf2hiE0c9z48cNgVqbSKBJBIo0CTD8cVNOGpIUUhbyS9uBzFFY+R5AE52aF47vCbrXOsR3
a7EhhZ9eumVtTcVsrXbPCq7PrUlmYY6Xdh2DT7uKWwskUBD9OBuIYRYJI5QTggPGOAXTI7cPwcnY
HC54RJUpngII5JMh0cca7wiclOblByIKSbLR1Q8h7yNMAngL7xxhF0hky8kkbWY8DIt0ZNl9UnSL
OTBfsMQ5DWRBRA4SkGDnhmUCLQHS6g30IoqdSeAuipjXAeYiGPE5YEipxxVLaKYgihqEXtEwcUYY
cPtvhEynIbCtpwbUkUWp0CQsTWZO0hwvePhoHhAJbKdwTNlTaEumFceIgGMjmyeS97sQHOkTCg3i
FyKuBLpuXyngZGOrUah5A9jtmYNPYrc1+dzZ7vMJTmXfHclPnZunYBiju7WrKd8L4LnRBzbQ8s+g
lu2cN+1vFd13xUCF4XgeEItApDutiId30+Mh204dOGSOnvJx6swWznJgHEi23ERGY4wkQmexL29O
1luCQhmO4pYriSOFuFTYcVkRGEIjDwthHGjnMeWJVqzJGXKFiHPIic5EUMxdrhu5C5xx6b9vTybr
XB7Qie7oyHIUa3jrvodY5A04lvOpqZIRHC5BqQ4MqLQdiNLTl1Flsh+Q3N12ERohVM0hcpnTTqiL
t3I2XrC/NiyWKOPRA5RQJ4WhYogwVsoVKAzUK1QWigmc4k1ugEMVFJM7qtUZewIM+fPoeyPIZmHX
fjnH8+JKpHw/i/MZGmzYyteXsxGwk8ysXHO1nEhxs5e3BzOObyBjAbSORANL5DDy3t5nvvHh9fhY
YA6AgsOiJNkBLsuOWoe3gGCFKYklFJbkOGUCjyBAmXGJxkBEZFTD2hR00kGf2P2jrk666Olh0Rwo
yblCkSkfHoZed61wYOeIqAxIVJpIHRaYxxNoDDFoYndoODrmzooIibyIOlBtnMHHkOQHdMZFQYio
lRJ0s5AvlOK4eG5dpAGCoKh3te0lpu9uom2+Hphkit3TDTcFyxjVPWkKaFOjJEFUkXFw45K0sMIJ
mCiQGRRRbNnIF2tLcIt1Bk6SQphwnCZEm4L8Y0JEHhAwKYkEiDuWALhWbLK0IBD2gOE3za2hVoB5
QO5E61AB0vIYi5TTSKWy7jhY7TjYdxXph8+eWDAZ5rHx+u5evDleHKnxT3FSHKgXo2AQlE5CYbdC
hVZSfcOgP2eRKBvfbePkgN+2oGhmPu+xO9GxqsLwHpd1kTIDQcICtNQJxOTTuAea1xvgcTtlLL45
NFkWqSkQ5uAol3a5tO2mAWguXIVLTmW9KIjnAQiWZAsQSWTSOPBlBcfd5imaAwEOMlwzzuZL3XIb
XhyUSWuzbuk3EgNpw+BVMMJInJeFTgEtWQ44SacUkXHbLDOuZMAeZUVrpkk0zGLnkTBahc5VoSAp
U0mctuq6VUlSp3iGAoi9WkBxKOqTMqzOhPQuIYU6FmAodnp3DI1CM4+5jjM3ckEzKAghnsKSNxBG
HQJGkCjsoEiCJItIRqBrv2D2AzdW3egLvtuxTu4IHEij13NTkxFKgwmQsoxEkXhk2GDlMew358Bm
67HVcHXH4e6TpMSMOdrZdxJHu05Fgs9oOS71MxCvVry4CSiECeFgSNfXayIWlxZx1ly+YmE4VJRj
EJBE61IvRFkatcZT5Gm/PLqiaR0tyEeJ44HYwg/EBtU4osKOEIirUlaUCdpAzZjbcGzY8j6Csgka
W5zcjSOEdGyA+qMy4GSmGahZqYLzSssLOECDJGAwcLHUN1URevqpKUlKyjB4wKworERhFkeU2Of0
/iT80HgfyQ+JVAJyBScx8mGB8apOIemjzj6f0GPL5Q3ZUGzl3XowJA1YiIDPf1izPL4pT+UVD/lL
gc5fKW0yslW8Q/yZpzvgbP2hgfxGNv5CCo2lZQBVhVgjjaOB9CH/XPz7ppXpbnVcfHNtAiQ5B2k9
qdYjuCCq0UdOxEiwHMdIycP4WoaIFdNHC9P3hvKtF2QC8JBsajUaXQhuOoh6geHf8nuPH4TlXgeH
n/qscnJ6uXlteSvgdXJJKv9RtBOBvty08JgHUfff5L2vR8+Da20ylqoIEQ2ug5fxnK5aa/L7w4pn
kQHrItdGtgHcIw3DKvvCsPpaBi7Jb5+Xp8U9gvK4hRHiYQ+JEER0VU7tK8Md1FYkMYvisH7vTfEL
U+eBfA0lYXTL+XCz/96KgZIxjRf8/Gw2Xy+NobXYBhJQg48O4dfm5h1RBf5yUA7hpInJ/sO7HmY2
22+ALIfX+746P9c+BQYVFBP1+lf1d0E6Hp8IqKMUeG9lH3rERoy/2TRh7l+48piSWlb4brEEO2qO
SCA5J6UFHKjxgm7dqOwN7MwHgQ7wqJLBY+DoimH1XMbT8h96dc8oCbCxPHpEZDiQpMNr00yCUK6G
lGRkSYjecudfWWrmv4MwsNkQvGRAkR1UGY5pfDX2Zhp6vD5tmpwhqkNUS9OJXl8R+v+qrzBFhIMP
rAPhe8jI+w5gdaJMBVRfcVAMj2FOYPt+Naz/t2C73S+PdSIlISY/CapUKEUeyY4aJCd8/+rkJH1s
PEYIGUEfj8CY+6Qse4KJcCORwGvg8Cfj6eVDS/ExLGfimW2nVpQVp5asOjyEMCPF6m6hexaehyqT
yplNhScEr0klrZnmgXuu6rD5/HwE+ICYWipxxEKqh3Ee8D5JF0kUgLfqh0hxwF0uNvXTX9SO1U42
OT/H5YttlabZN+ghmaEFRMMgEAvp5eIkKDje4IZx5WlyiTEPkLyqF0Lb3DT7Ol5S75SPbcc013Qm
OJjyv0jgEBfb1xOQHOcrKlB2WTueGD9BDmwhBQd/No/L7mG0tjKg+XdKA2Ih7H7mUeChhGzZ4ICx
Qm/3I8u2Xlw7cvCAgH+/xX9ze8ZasIHwY8DwPPtw8xT7LqivibJYoNaUb79rQEE2GgQQyhgMByoH
uzsCiIlN+WozQVpaMd3/B7N0wGKOMwCliXVxsvsSwUIeR4SYI4SsRUACEOf2AvtxPnaE6qgCUjwY
QCi+MBRB9p8p5yEI0GAkASQTJyLWAhaD+tHSHZIDIzhtEYGq4ZHgIPG21xMeaLXue7+kfBwvgJ0a
62ysyijAxYeMZwn7ZwhpDrILhsIiASpCYHJQ5AsQgPdiaDruldwF4CV8OiWtrA60NQdXkDH+BsaM
9fbS7JyQgQN8DVlQHGWdmFEninqLc2dcR+1YJH2Ye4kBFVUAkCldx2WA68J2G5AGR2q07NdUFfKd
XDmUYK6RRlQExPgKqGHoOz8agf58+d/u2m5S1Cj4LSYM2/y/xcVLJIWhapy86rD6GkWdnWKosx5s
GlYoos+ebUBD+IjycPB4/BMPmNIPI0m2DAQM77CnghDgupeYhAiJSgwBGyu1O+XEHOZ+1B7EHiBC
8Y2rxYfWW/AOx3nT3ZbJsovEPgOPjrvyPH26gKTVdlBboGIEJKqqgEyHl9GSSdeGCQ8yVHBQDAph
xwOMUFwCEoUIMh7PPeAjGcc6J7QERx0zSPkhCx2IW66KMa7GoeB3Mu540YatF1RRIdyesAL0EA+2
EF4YKWlsmkFUcSCQT8YJhMqnPrxLEEGJLCLpL13njijb2vUbc5M60Y8VQjxSvthEkoURCEAjb2vX
ChcApC6zobsQBb9lrkCLg64YT4fCHdi65J8+fv761u03XpBrpUd47wCKxEQZkjUSrbZSpUMvgD7B
qQFBcLIVsm/OQkHBUBjyd0W29OZF0LgeICcqigqCoEzyZPBKJcaFm+gqo8Z/uZI8rv1LjmgMeyBX
3VgGzv0bmCZ0VZuwUP7y/BMObBDX2wmKRCAjQZ4G/oWzHGlSGkyh34FuEdga+JZeoDO+ccDrv0zx
e0gGOmVNqYCsI2iH2ElEUV9aeEqAjqBniqJLSN/ECAi715PeYBOtPWtEw7CzUtJhO47kQaK/f9UI
9pvHopDUOztglxkIOIpk/pCYw4aN5TBUqLxLTeMXkZ7+ORPUauvShfle0bquWtQF8bLIFxZuTik+
+OXghmhKrXq7V5mKSSsQR+WZxGarum4/Ch4ZWMNnUD39/u9096ep5BgbJIREO7QNRHdxrl0cch1q
Li4gKd9IcgkXF573lM/4cejzURC9cT89e/twtMmGksSMc4VAlw73Rs70bZnzhmEm7MI3ZlRMFOow
KwI71oqa1Zy2ceJnAOHqObl7/+zoOJkFfaIopfCmI/TfRUbJNQ5RaP0vAdtvBx6OfYGuo9wJb9tV
6rw0R/Hgn07v3CHr/XNsfX9CB9xwIx8UhsBG4BdkxKOzD34/eHoKy1aaZieoh4/s5fw8VyFFB+J9
NQxK/S/V+mxnC0DDG9aY4DO2xdq6+eZatDMLwd7XNBHPj7/onhP7kH9ScIaUtmYtFjYOZOvlw+K5
89KJ4x/To60zwLl26Q3hzV5Da5qWrxkvrPw8uTuxO7S5QeC+HBCJv87AsvhEC/gQoIq4k3JB0HRm
AWhFpJAJ9t8EA6yoUj2gXWaOkxmRHYZfwUDI7e0jyHsRh6evsT1h6vF/Hf5Dt9E53097dxMgg9dq
a7sLaRSrPViOS/Pi45V/L4ubRAsx28O8ATYDO7gNeEolprllNfEdQOvd8vCAht2Q7aBugJRr9Z3n
HF8XiJxDl6nmQF/fvQrf5d/kCAZD3H7riGOncOnBE0swTAGCP9UIgImYrvqAUsMVsdmoyLBiUddX
JlgUKh6EVOgo4dgUVF2nB1/u6nks9vGFSGOFawPGUWTsz8d8/fTk6VWVWxWcxwH/0bkAbizQh8H3
yasU/4bP5z0JbSLj9/mu/7RmVO2EHfdNDwfzSMAkubhnA7geW3WAcamnSaIO+PsA//l0YIAE8UEl
BVg2cBQsEO16S+PLX1T79DOdsyNj4nxFj6A2B7j2nrIc+w8fXtu2nrDeeJm29GJSKOUA3mh7+3bb
VqU7J3DuIHai8vd/sr4AbQBSnkAQ4HVx6tEYHKd05coReX0TzDd/zGPeDuUH6vNBIMAPi6D/2Hef
N6ceyJ4szYWZOQgZG8o4+Mzey8XkTkSyWDBJBL7jXiJhfznHb6tnZ3XXyZvmPIdh3W8Hk8PnmJjl
8U9qJIwakZFXEdwiYTXbcBxM+87d6CRnIT9HQUcaF6kgmidAJ1BVCRcDM7YariJ8ydyXRTkgAbU+
lNiZ+P2Y8+fUZGrmd+oB3xA5diB6RI28e++O/XhBn8mH6VI8PryIPNASOHcePkoQf0E45dm/uHC9
TxCdoow+/Y1EdoLf9Gz+c/MU90mddmqjB+kO3UeUhJ4TwG5K1YX5sr3jIdZKgYSPRRTPnC+gyCXC
51h291pO4u4D33O++liJ75VR8WXjmE8O2t2XL0xxieLtNcsjpPVqdynQORGxjkQ2BbYbYJA2+v4V
npQdm8neHg82BpJjWJzVjOixw15nqa1mVHOSlOyZcpgYBGPNAv0kfSQTV23vvKSM438PgyKOVI6M
+QqFh3DuS4TERFPjqF6yCFk6U5RNSWSZezrLPrub46JoGBq7Vg327wrgUlQwKy/Xa5k3af1fzHmB
+H9/sCgRIBJVIU69H8Paf1zpjSfKqLZBW6ch/ugE9MQH+Ix+Qajh8dMoKbYiYzo9B6+d8mevCevI
c3fXLbt77heG8Lr3CwQ/WfQaPY5yfRc4AZXxjnbVgm/L1FvG+k83cJ7ec1J7fUHXwxw6e05w906g
sUlbeUfb934cPXuolElFh0QEXg4HsnCgTJScnIHhrUPD60AnyTtV1uHL4dCZYuck8CVkeMwiFz3Y
fm5PHz7i2haqGBuCeoYN4jxHn7wx5fp+j/B2c+0GU4SacJ+6JIk0ossHMRKiPCbu7iUUE9sfqJ4T
9/Hx4HMh0Dz+C9/REX0nWWCeFo1aqLGDVAYC6B34eBPly4rh29WnR0V5EH42DETPpjV+u4AZNQTp
2H5/GCh7poUJl2x+9B1o4xMMqdQY+uxxNRmZF3DL1V7E/9fYYOJlWoPdCsDhZB5e/1RH7ABegiAw
ryYRBFRAC6iwmgDU3WMpTl3CXAjy7h7KVt3uEHj7ZCiESGo0o4IsuAH4Hf7QrhWY7hN23FQP9QHi
igTgFT8ffxDsEbh7ThNLn6iJOnRXrkuHmKPUXorC3Inuox+fZZHGGZ0GxYTpBxLay9FzqfD6vHyh
zBmzKxYXxt+uxIYlq6ea2w6TBOA2fbwe675PxH5wIIYlIoo+k7Dkxy/D1fQXejYQDQ4tiaUYQlcO
q/ghefJycx6Ylzwhpnxb6SvUrR1noIbfD0CRDayLLGW0y3fTqo8nA5y+m4nMQHS89JNLXEdv2SlO
RPRax38SrZJXOnWa32FzUbcdtpEuSbKwUdMDQmgRtQ4dxksQaZJFhhgmwX24tMwkSwhbJCtEbntm
IrG2YolYQP8HxIHyPlSpBlNWwE7/HSd8A7MDH5/5g1ht+TlPb4g8O3d0cxc6K+HWdiWA8fz7Swa7
4a7Hq1GIZDOQdRBZD+qYX7LUavs2hzd385syEezsK8NPE4h1ei7lwdDyHNxH69ofV5fYNcAZiPxq
o8/NZeY6NCIDuIo8YqoUe9+fz7QHxDug7/b+ylR+7D+mhGMZgMI4MByDJA+0hKQGOBBqZIxMGitt
sgbkWPK4mOKKCYq1a4Kfd9D6AuTaNbcB/cwrVLc6gtGFOTkTShQkGTlE5UyR2cvzbt6YB0ns8905
cs00AyDymIBtDV1mhmUfYDknL59PScz5+N+4czG/QXMD1tFGZ1QnID1JzeCseUvWHMnXqsLlYvOy
tx5j5/L0J3eHfm62EiZ4AshHhx+QDwgNlH5SmKcRHvmGT+CC06xkNgPBB9hX9UwdlC4c/s0PD3ZG
CAzoPQy9ev3J2JGqN8BWQIiMwYNyf1/w1KIFlmGCBmYOn28F2CZGJ9kDHquAqz5aDWY9A8plmcZk
vy1rxLwIMhCY7CqLU+/WcygtyVAIYkq7IN0HVBlKpviSqqiaqJQGheOSYbR7SIYG8omyAfi+gQOT
04oQMxD/vCQRIgCP3XuK7rGeVDicANhtf9c2ZFNGKNp6uFYQV1b4JQiiJUOHIN/gfnZ9abbCeeca
tTRVfe2ziWtWU5OZUsbFllrhVSCu3aqmxYIp2Fu99WrZAtABpF0KdoD9EVX9bsMjwP0Ef582ak5F
gFQQvcgTVdik5KuVkL+UHG2LzeEzeBgUBEiOwBRFz67DtkTFtugKQVorWhoDkiA4D4EkqyGBFcaY
o27nRDQGvGGcsGLezrYNi38ZEgn9nKomJrOnrlDH5EhyKd39QqiH7IoKI3cNoDWIJ0D1BaailwzS
xELgFUAyQpBa4233jtwcC1xtyBIlIkC7oQO2E4ZtMWPrcbjTZKBMZznoI+iqosYyQ2uoIZTXyRKH
f5AlD9YDbgHgd/sDcZsAzICEqnKAhiA0doYcmP8qCoa8F++3EUqfCIECMQUYR6CEqxSA7wF1Icsx
lNPPaH+y8YjxkzAbyj8BuwtwCF8zTVyKdy8RefDoA0AoccBFbEl6h+gJR+5ggIOmHz2exHsw0a1U
cCXA2D8tCINZPJUfeMvz49O2EhcZC7WX5DCD04pZX9p0CMa9/7dolIjw514I3LwHQeo8aBqby5zj
QtWAggcKLM5rT4CLvhiRH1MBC08YHmFpgAQXAag2VSfQQlWHPX+C9YewX33pAQ2I2cQYKNCc1KBi
dZlE/WIk217xdjfi6a7JRH2s2z7Gt72X+4C8rOONut5iOSbg+xIJMQmwlZhMwGxXZC3V2MSUF8Iq
xC12SQRbzaSFaqkXixPtcMOWddGlOV8O1lQXOIRtF/ud/gyTbAQOeUAnPsOg7ICgJoS/Jb6j9MuM
Jke1leczH7heIV4JP7v3fNKt+3/O31YLD+Af/UBr2RHgoe8PQjQHITUbBl5v/L2TE/KaiY6+Ap63
VBCX6yAw5wSTRJINLZhGLL4/JamgmoA+TACoy6j42X7eHuT9SC6bdN6UwgjCEAXISDQrJvCScbff
GOw37NfAgEqIwEISq8ofs2UUDwoQFDdxcVMPAL8pJHMxKPgIAvzqkM3QdPxDj8OzT+PPIRQbfQS1
f6C6CKBUHggWYhypQdEHQQQR5CagoGXznf0C1jlQmUC2GOn0iBUAjpQ5WwMp/UFJCZXXMgUIxAKo
BKCYZRykF4sqLeF22fv7EAcMkfEFYBJCIgsIBAEBK1yN6CJzWs09YoRi+CIv+ND2duafes4HzjsQ
pCkE4NiB8ykyIGIJNCQQwIewviCmQ35ieDbjf/K3dZj/AOjmGvwD8mifaWqiO/f/IBVw/Yfx/wvo
EEbj4+CLyqCBGIyRAEogax5ljQ7N7HevkAvYhkTxWPnBkTRrabKJhTjowUjBT2eJez2i/09iBh6h
1EyNvo+fpAewp/LCkkCOUHCzkPO0xAdpK3srXhXtX9rLyl6oJQgnnZw8zBkJMCBIEBgbmVlkg9F9
0Rj6+YEHaVYeqokEIFVUhYqgskUuAxQNECdFHIQ6yDgBl/RVkTDigidv1PycYIg88QBgCEkrAaWi
JUy8PsgrAOe9Y5ggbu/H4aHTCaM0mg83V1+i/PqjN6ar+8rYGxA4hbstz5HijoP18SvV7ExolhAD
8x1YC9mV2SAERRh4+sUrdAjosdyPurUA9u3ew59eOyB22BSnWgg+7bxTZ4qRrBDPVUhEeQ/MfOVh
XAwMeDhUtlExoh9d7lTF6gqQxyrE4eb3vhMXtkdHpy5+4x57HgzEL973hs5/act8ubM7ZwLZwMB1
YOQmau0TpTaccyXI5G7kOUjbeaW8W3kb7KzT7c+c/fxi757SIJIiSIJ6figiP2P0Pk3bgBhCFYnf
3/JYjwvXie8GyHtu+6DWrSaS3J/zSHtjM4J8yj+NJ8jNI8LQtNt0BmtZ7s0ZgXQlqOSrMymao5Ka
lKNll/eyahg0tCsyVO400hplDEzJbmSExVxmYxuIpuNYaLwZM0TdZB/EiOKEJqQdJOHWa2rtrBkt
cc3pl0zOCE3cKabUcpSod0GmBXZCtzB0wMiKi3Nzd9G6ikPFG82nIYkpQUVKkAMR5gA8Vu2eYSA5
0gBJgQ22SSSYD9w5/DFaLEAfBEoHte4iTpQi4im0h+MI/2bzeKrQjLksdb772HAP5eQ3OrFVvlR/
SiHgbSHUb6dU7JztttHH8BwXgECpBwwHYO5Qs/lCCOFpjgbp8qY1UyMbNOUlvycTzW8pm1IKTSo+
apkQxsWMjkGxxxsZ7fGfq6xgLb/pBHDhFclC6qgpxnyE0vbz8pfkAkBbCS25BVbUzOPF1wbuD0Tn
+DB1Ej9w8rhNV6IYdOt51WLGHp7mDy8AoNhZPJNKrTZu5HYLcATa81eICuOaVDp4OBAJAIZFiD5R
CtM84v7nA4uDus5qo7VlcEIRWDD1LAqwfaAGAH8LjBhdFA81UDxRI2hY6Y+cvfLTqNhYywOrx0lG
HT2Vy6g2tWJ4ee4uBZTZM+POeR4iXMKpu312dEcp7/GO3ePZkQECTTO+7Rz8n2kzGGN2TR96wnvH
f2mERGeO/fpTaz2isiihsiPES8doEYf4OlycGHh/Frlo34ugynHEp4aH3v80xsPDWhlaXD/SMkS5
AOO+6aqppooPr3/YW+f7/ZneOohqNZYuiL6wYBCQEJAQkAIB7ePpHq/CzoseKsH7q/NpWj+n9qyM
VhYBnc/DskGiRDquuFH9NR4jE1EiLbkPzUMypwvqCbef8Rf1H9d7wAo2N6hBFXA+UjoW5Hw+U/1p
b3KrJgGmaMIIO37WJazpFtu9RXdSYEBbL0IEwpvO7PD5oluSnPu+/UbvY44+6+BO8kMDvg9UHLkp
YI8ANEqQT2CoIABh3efL90Y/O3k9O4hfvUVHV2UyBcPTH612hL+SCE3IG+KjgTdv0BgO4SFgHHdM
CPaA7Adfz3r9fWL+7ptSYU3IsAAQJjcOpJdFC5n7ZaR43dJBXOiAqIjgkzSypz/jCgkkek294I/X
7f0ZnjbdQCCCLqnwGfVW6EOn9A5hWxHO+0Mb5Q5P6woYdle/CUo6dpy+bAnqw8JUluazV9XhJ7/d
Hylz7u6taxYv1/rumaI8dKoo9P8pL0S9wg2R+z4+3fz+AZZ5YD1evZy4BnCa6MZmUEeSgMAxxxTi
oh4IJjtWA93CdMAEEp4Ls1H6B4QcKnApE2ntAOBUSUSPYuSrbZgwakn+kJiBgYxLvKMf4HpzXXQJ
NntUidgrCGe55iFVk/AaP9KL7vp7PWYe6W2UL1OQB/lHwVBpBMbVQZ8I23EBaSgew/6gDAjmU+RH
YVH8GBwCoKhhW/7k9QPyM5cTS/pyt6d4TcAsU+RNofNRyRJ4E97zFlwAKR9rOn6aj/ZnzqMJL1UZ
RDAIEPR457gT19OM58zwdW3TSVgc5y8cecOCIY4EpWxsJKCESESMBpj+7zvA5fXmGoyrkNmHbwyx
kKoNzNoDZIOminWH1ZHBExRbFAjZAz1cD/WcjPPJ+4A+zwdhoHQf8Y3wOsJs7u7vt/V25tpdx8la
TuCkwmWGrLm3nAMc4Pqh1kSoH6IkhKq/s6XX29vD15PNodmY8vWfXtWJb4EKnoQi7LsUoRi34UvA
dghiPAOdaj9B/IRzSXsm40Ov8d/b7KsOtVsO4995z3wqV5D6BOiTjsCDHMrPnxvp1eCB4sB0HOuy
3dXL7PVzgZR1YjSQnPEDOWdWkTEgOYIn5k+bGODjTk2G1eXzogCNEg2m0hsB6fnye35dHwMImuJB
1whN7b0OIbVOJzf35vRVB3uvh+fLUbtXmNAz8spDjNsyieCJ5zp9FgzJaIc8Q066OnSgyNSyh2gH
vFQmwIJ9p2Yb/05CS6ynSfvekgR0VB+kwqKlB1HgJ6/dEWFrp4MI/ZNMmRJu5yRIkKCgEG6Ca+0C
cWFetwZBvUjukC8wghtRubI1x3LYFJiHvhWZNqHvsmJ41zwt1WDmMfB1fcff2nLrd2oTm2Y2PHC4
gqSblJBohoBW79gnR4DsU6s5bNB+vv/qr75RE1QKps2B1Bow1qrHfmzj8Xb4ERBJRIYFWw7bq8Ht
X/ZwjWHsH3nOYeKQQ0NAp9jB59JecIULAb8DI9illJH9Y0GRgSFul7BkC+FWYebZZL01Vw2lzKGL
6xjlAuQ19tck3TqjzzkGLULxQuocRxNdeXRzq/9SSyHpgdFyOpa0mSQCKJU/V2i9byHVkYznrU+u
ax8tuT7TdidvOV2THsOZsnrow2F+zZSUzCivQYNwtn1dVunFOke2nkOB/TZyLUoxuten3UcbC4mJ
9Yin17x9hGvs/EKMhYlGv0K1AI6oQpCN+SuQGFe9iY5/PabIkOlAJn2Y8093b3942Fh8sX/RnrAE
wiT3bgQPV22B7R7ssOzp7wRnZEAeG2M9z59ZAQIHXXDgdRIBfVEDaSOWGFk45AuU/n5trMu3p1TA
kId58ByHDS8PFuCN0MBwvmUZU6t2z5gT7oJEDwWAJxUMxGgOdIPImUThM6BE0mOAKT5+9r5yvKn1
2cDx9tP2Jsvw61ZB4kJQgCsBQAe7z4G6zbkOdeR9QmL0iL0ovXWSHvXFNMPmD/R9p9Do18uS6v71
Am8F4s8tyJQ5/CYFgdikARQhASOCFuoRgQlCJSkyQPSe5HPCUigoHHuUMAPmZQ6ZRZoPZYd0yfj7
yeUOQH/qoG4HKcT8nRJADMvbeKCHTZtvOYh73ryHPYZ6iDChXYGtPAUIc0Wnv/B6CFvDAR/WNLCb
Q8GW0w1ei3QaVRgmZNCl5bJ0B6O40cXLznLlhDUhTp1RmPmjgKrrgN38hwP2eN7av14N5bsBIQDr
1AVLEveuenjqmZWXjPBykxO4MgyTq/NWFwKvDsu5GHhlv4s46E4GxRAZPAAhQOFYAgEEkXhSQinr
FB7gCGQUEmBJMPUPTr7WEdA++gvobmsfv6a/qjxIHkP+rQ8QReAuTOXkKAZdNRhJh7E+qQHsBmgl
xu++fZkeh9G0DGfNfYUJZn6u/rX9Br8hXrkIhLUX55jFdtDkJCNDTY0E4IYiI91WMhtNNvuPQD59
cvH6PtI9wIWQGAJ404tJviXD8K2jCg2tHqOQz0DBNoR9FCjZwAlQmBDchOoRVldUsDwUwbwGnvcb
70v9NnEgKqQv74scCAYWsgg4SQX5omen7+G8AopggcwUSAp59F9NlGygKd9g92De0sUcMIATqIWm
IcGxc+AHXAq4mCQKGUh5LAxkM9DA1UJ8YKAKL8RGOrWXcmQoMSDsv9fEYwQVsFHfde2Q6JwBeNeP
rboE7cxgZrgeiXA6IFBUBCAqRuWsrb/eAKUx0FomqvDbvgOBHOGDBF72WRFwDr+W/fyEYxBAIn7G
cEMDVmVRxJJwwDAY9S2eXIxG8Fp+hvZvFDtTrgGsuXuWeTDpsnh2dJnPHhob3bwmSG4j3/ooenZT
uvB/3UUnuRVQ8gqQKZN/wi0+apzlNt2QnoehDFA7wSP8C4Zgpb+1lTKc+nbxF2uU/IUygIgAM794
HUARnOfiUVDz7v0ffYTMeQiP0bCx8fH4cvl14SXPYpqI25PMEtDfCZC91IxcixATqAnb3N+q4UMR
L9IXprUBVANIL+jkoE7itFXt13sODHyPNysjgUEmuRH6rfQxQYFUSP8K6GL3j1j/Z4XMNTqrDkqg
sVmVIJSDMxjwy7LIiGmHANXShEalPnTiiDyyHHTXsAzW4IJG3E1XTXFa49QgH7AUAh8QPxyL44HQ
bbaFRsufagty911tZk5jqoYdlReuRgURNIuSquP1JSb6ElHn3bjiSDKGDsL5lYYglkoB+gP1sNmH
JMMiAXKIAiBT2veYiWAhCkCCIiCpKQhhiCkqmmqaAqDjFA4KIoBQJcWuOauRRFKha8/bxeIWUlV1
t0u8JVyJOmBKdfhKWvevfwkAqqD0/DvfwHnK425hN/b3LGIA4IYCQX2gM6Iw6U7laoG5z3i3xj4X
CeTYJqpHxCqcWUJgTARRbo0h4uw3nypBSmUGQ/AuvcB3kUB9Si5MmKjqIeo9uwHnEBFKEFCky+Wc
LDDB/MFNtFuQAik+PAFh9f7X45KqPICsHZJCZKFlu+emR49A8mrdAwsUpItMx19fHdzLSbuNaQvs
7jWdo3VPukJdU+kOFgNrCHDKyR0OjpYEgwJKoCAQZmKKBZqrtGFVUjQRazCSQvDrTbZA6hyAa2sQ
T7PT/PtOZAHCiuUvBQsaygICRHeQoH9zMBqYUExKDgpIhGL28Co9evDqTj1DvzAcx9Xt4fGeOvv3
6X3C+vPx3rPkoOxJ+f7U8vjykLmFHV3eDpsVr19Bf1Bidg6DdA454cO0eI3wMjjNmpYuEgmnf0dS
WyR7Nxpa3ebeqv0YPPhs7PXzY7eBSqb/Qdv6wy9/X2U7oKD7TYd5A+AmqbGSDvv1fmfZ4LyZfYe4
dVnUf48qPKKn82UBxcx4A+EKsFEJOqEYgQUjRxDh/0k2PQNwwX+Xgw4f5Kk1J/ryEm/LwAJQ/kLf
6K/Fw8fzSgcdzyI5Bf1w2H+TpINMVmA/eUwUBLCFGkAQFwJfr+eJ+s+fOt73YsqR9F9XEAwiEbl5
FYd3NLIG5xmEwkwANdbiJG6+UXnVgpELIFO8UHWQjZfkPFmxUYZ+b2eQszPUMsKfNA6bd/XiY77g
BZKlJooVtiLmL8hEUIzAdfaPSlBBJSb9elAfmqonSchAi8H4lVlR4xbv7qMI7OKzcw+poHFweMBR
URKtyGTeDjhT+WSMsT+/2PDE20rgoB2bS2VJSt3TWEdqN6koq0oO7h0mjpFjHnFU8Ov1Zor9oLXS
sB8t5rofjwMbOkUh1pV3WwhvYn3YjlrHLfjelAbqUA9Qe4kd/enDnv4ZrXH23GEIZdx9hOnlkCEU
JIJMJA9o+rd5QDpMXDAWNyJCYQrnn8UG7zAK9rZoALKQRkDIA1ENUCIxSqDmJrT2j+kL/l1YV+SG
/1cpfkfQNsr9FN5tnP4770Dsk/izccXD60Bjd+x0sFBpDhHh2zu8z6xccffrPIiFlACzhqq80L9u
iCV/x/FyZOKKgVJgOvpPy+nOZ+f5uxcok0lBs2cltIYVt0IMEIBofZCasNWqfceYdVW/ZdyDz9eK
jsefxt8Xn1ChLEAEeI8F2BQTxMXpMtPjyc2htDcRJNIhOXpkJFOGFdm6m3vq3RWdSqhVUfKACfEM
pBm/bkEc554/fAJ6QpUB8OFoCem95DwPdHHqNQPeOGATQABQAdr5+r7szexjdgL0UYDyFBHC6kiR
DjtO0FAX5XlDovbQet1qC4DcrCE5oGGi80bn9mkD2VSRE/iHRQKAigItI/XzuWDUm7Hf5L+fp6tZ
oobyplrOYfOclteKbhshTRp2b6uAeMNByV3xLwkXnK0ciBAiR2RZawWDlKI9V8HVCXPG6cnEP2eP
oTDtIYkmxThvzxHVpNtIQTwFRLkns3lhasgkckBxUBdfd+AvdPLDhu5rejYXsH1+tXb6zkwcK2A2
5+MAOJkFdogLjmoiDT5i42YPwFCP3ASe6qKjeb/mB7ApqPyg6fh4iKBO54Co/NwxccVb2Edh1X7i
m5dqc+6iMvQX1f2yIA9SfI/XXmkigBOUGmR9eV+3JMLG2OYn7/5J8HEwDwiU2VIN6Zz6NNbhkYQ2
tZWSMIerbn6RjFyDDkggKevvyrFZ7jvNCCQ1gJDI6j2QjgL2Imhh1nDqL9BOMDDwHUmXE458koN/
KJ7VPVAZAQ6OzQlCRNDEiUHbNHhN5vTQiwRZgsG+shEO/dl2QepHJ/rqLKB0gI6VF3SKAyRuCI6R
YzChOZCILj3JEdLjuz4onLHww8BVlGSQMdLGtvidXwPbyyOJBHAw6TipWHIYUKeuYxxmNVjjlfDo
xOo5XeL3QXoihjOPPWw9kN1Z8tGIWPd+UwC/hsCpxC5sCTjhcVDqF/t/c4N6X8ttFZaKUgArENek
+6VmtXNtzGKibzRkzbuqkAuVwUFbrB76FYB2OT/Zyg3REyFosAjwm14sinvG9ypoYbr+6g8Y6jhJ
R1B++z2dN55OwcLQjiTh7TcVnOjKFGQBKmb+y1UADy6ibauOzfldd9+jXLJUeT3jhCB3Hrub19PK
X2Ia8zS9zu59XoT7yHTENU1eDRwCMFwtZAhvo9PsOcDhYEJJwP1BhwIqlk7pqRSL9XTcX1ZNBEp3
+/81WetxHuePa5zhQ5GsHY92WFUmUiKxZOM/RVi0N6F5pQe+N/s/ThPddYiiihmwyRiybeM4AP3H
woKlBMRAKqRea38Fo4iw74sMoQRNYtEJD+KiHzVKSwYIBfDR1pXxChiPe/gQ3GNwmb8kItpk2R/g
dAQ09umB484wp1/KUtf5v5e2semOcT2pNH6KbWoQBiwzeKVmkGMQLr86IpQB4pz9wC/T7nr9vc8T
8lTxMfjjZBgSQAjMR6/F6iA5gMPAZxRg0WgFUfEbeMPvKRGxQBdigs6kv2NfdygCCkjOOpel+BDn
2QiKBWWYrVNx3CR7QG1FpCQt06VHcmS05l8ClgAoHtBsJJwE8RYIJx37Wbv3gcziPXTCYXt8V8BO
ASNPHdmjA9jgq5+cPDr0rQ8/M7EW+17/S6dNUf1d6h8DRhRnCQxzUAbGB8fzViO49y9g1ORiMIUf
77q/ICPnKBYQ2Y0CUAiv2UbmjzAnyh53j7Ze4OoyD8pqs1UEkkn02GWwnyXvo9gWWOLuYgaADBmD
MFUKLp1Mroxpl6yN5ll/MzBfrH6Pjz1P06gNoQbtXMryQBB79hK08mg/hr7kmR3wmGKYEUQrcMIR
nQmyyWAgQ0S5zdvjOYp8nn9lFea1qw3JvNtbC3got5H1Y9U7e6sTm4jb0zULHnzImRfamVZ3lxvZ
OMfEFYiKQTon99WcjfiMvB4+IlbC/S3tYe0GJsN12EnaIf5XUoL0qBP4ZiD8xZgkEqrvW7sJT7P1
A9sirIGc4XbwZ/rXCP6TEqAvIEeBJgN9PrVdkq4g7SNgbQEx85M/TVK6jWYUXiP0spBEfigiH52E
xQCYm8enMiMZQZrsHsgnC0CCMgiUJhPWXMT+mtCo95lXAHc+TUgg94Kg0UGbIn1IUHfj7oBx3z/S
RMOKHoynFqD+cF+KDDfsr5BqkX80IUAk4wG7+kvAOP9E+o9O6b5uOfsPdC28/d/bVJ7S8UIkXDq5
5u5qMDijD3CMx2RUJSDClfewNVSnqowfhOqZGTD8iKQegGebB8XQfkams/X0U4/7dpd/ad/r99rf
jVnyhyzcQS/JRD4gQkNFOkAsKLG8fmkwi/e7BT+QBghToY0pE+Yv4LSZwyMS1DbONQNU1ctq2GO/
3atwkgXidWcIfk2HCfh85C7z6JHvdoq60ZYgLkQDCKCcR4283FMrzHv7kEA8LVQGmI6yJyG4EBEs
UCroFOoGOQkGEuI58kRwCQICBAIs1mK3+hYTeJTmPfDLj9thkAFEJmO8CoTSvlCqwgmIsO0I3Cnp
w6tuMw9VafUeGSSY9jcKYXLnbhKAp2a+7JCigR/BBwB2EA0PZ5fgM53EefWGRXPmV5BRT0UckBBC
WABTYN5cC/t5+Mf0WPTP6dcwNwbD1wyVP4/RUTgeiXb09O0cjgZTr0pYenVJbxRPX8o7fo7hV0tD
bXZr3UCA/a7s6CCZRUmOYiPv5pCQuOkl1BB3e9Qk/LhRwuu7ts0eOXJAwSyZ0BIjUtnFOB7gb34h
HZw74r7vmMUqBEE+6oXqhgUFBj28ysEI0g6AWDjSJJfkgaucLA3EKIGaCivqVFBMzsVDv29rViu4
8fSJEo7wcdbp4eCDdAQBmZwjLIe612IMU5/IPyilKSD4PBEh5rFO+AI6BRU47vcSHjgY4Omv+6pg
FKgt3bQgIEkoQCpYhgy7daZ8QsEgCDy8fTfn0Tuk/DzrUgjYE+ZHaAh4CLkcGtgFSQPl+mIx3oMa
kO1hScfGkj9kHAEhFM4ySAZir50tjji9pxzL3PFv5TmTAyN+Wke5/ALOvo33n3Ad/Cw3CtPEe9gS
X7gVTkubOOY6tuCVy6wLHlsDoQnLUZJI6q6ctJuTDIJ85q9nbeOw3T9G/twm+LfBUHiPLX3dYU/d
w3Ti53gOkIchJ/wdA3gw5/NcEKaJFQ9N/KUEyZlMr+bIkzQ9gq9D5Bj3IY9hpBjd+o5xEUXkqFZr
TdT6OGRpUEaUgPsIrAvh2dC5AjaEQUhQLyaTerMRE9u2w6ukR9b+UN/Ysrk+IpiELAvnz2JLAe4h
kEFnQKQz5+zDpIKeRSxv1PPcrH3pOe2Fs8UrEE1ltuz17uZjeITytFQJBhEKI081Gw1/fK5N8ri6
g+wOPkfAaJ3E4njDYevxHw2e/PP5uXjcOvTZWmZRtIH7ct2rpRcDIindOVIL0JeUHWgh3R+FBLXN
/cWmKRvfEZBKd5w86KOpsdTag0cJtC569YYk1+UcNIhg+k4lcGFSujBDED14gYtxiG3I26q4YGJi
M24Z0QwMuhIkJbBwgkGROPp/l/oU/Yb8oBPADYYzz+b4B3Ec7qQWA71qGh9/4y1+EfvHQiAHwQjt
m4Cz9aAd548Ke7mcANcCpCnyZRj65619w7eLW/ioqfExIHI5Tki9ymhDpGb/sTnENW2mtAdArfwK
koOfMaAxcbDSfscQ3QOUChKGO9ooO7ujJvd2igcQoLLRByWLR2f9Y+cWgi0STxHc5W9/sOs2SQIJ
c16iJTtAw7tTLqNyAED74hdtvrP4pYb8mEqEN6lhfu5NSnP9OqwokupiF/Z+wfsGhxEaFK1T9g+C
D3++PjL3WH5V7H6Wd+SDoJe/hxjdcXCX/Wgf60tCh7p0mYYYd6/sMVFBGUY93L1BsESu5FA6y7lA
LhYHHupN4qViTRTSw9wL0ABFR6dqor9/UCPx8T8ZTqchXEcjvl1gH6xgumkcPgYF4UhF/g+fr5sO
Hfl+aVa43a2zJG6ZnPnsnIgegZjcFYwYIWBaCucxUJEiMjHyz+vp25W7tD9ffiYBHKg0F2AsErzl
vDf20UOD4KGCFS0CQVJ5ra9vzucDxdeBmFUUGHNIHYZmnPCvqwD04TtxMtWYunHGjScI+W1Gr2kG
pHZOE23orHj8gUVqr4BSa54Ap4PPpk3xvv45vBykfo191EL7mIjEtQNB9dzDEtGBrHvGtGbgHrnB
DgGVwngmjqHYEHJvNQMdsNnWw0A2CKw00DTNvGGPg4MoLt9nx9fLg68DZ4IHTE2/GVKpsbV1xhz8
4Bz7clOOO8DtrttUk0dfmuzsNHCOMbjKxVDEqzg8+N3RDIgNU1qDhrrnhRHbGTVpRuIlyKa1FrID
bdu6o8Wi6nzlJniYqCOlkfkO8SgS4ghAERQqKL+MVigwJnYBgSiEdQqc6ySzkW2+QjGB38sPMqf4
tZvsvnvNdgLMJ9nrOAwba+stOpyqQbtskk1DyoA89uvWAUuCi34wv5DneA9UPWKkBgHUooCj8mCu
s2/Ns+Xzw09enl5zpLaQ9kvjDmdRn28Mjon1f6NohwP8Cd9XWleQ45BnIdyevsDTFuz87BIBYaPK
DR11ehxM4h5Khh3d6CgkUbYeVEKm1v8MgchBYRy8esSBcfxjpnG9phgMFg/B660dEDaXJP6SogcQ
5PESw7dIqWAh5U0lsSMiexxrOZ46iBduEZrM5jfh5DE8vxOfHhMKg0gZZlc+5qvy6LEOgUUywkNO
Aginf28wPHxDEYwKqrHbmXbw3U5HfFBNby2ELCj8fZ3+r17HIgHqR4gQGKSk+ovPM1aLCXQQgUP9
+PF8I55pNVVOYFDQoYoSEE0nJrB1JRFntOO6Oezjxx5+z+OTUNN8nj1EfuPraDR92/bCKNRT6l6y
Kfm8GdCPk3WgxaS2UoUSDLUV0GAjAEewSmlzAEEHmKwfkBr3w5CW2Nj+1woxIEYC6wNAo6KhjgwQ
s260cTAHyKn4VG0bUBpPoc0wKxtfvZUb/ZDh92uXNrntAyoeUhvThW7rAeAv6cepU3bv1LP1wEIH
+ZZ64DdyIHEiD4VlbbHp922k1JxIi2K4pw1qMdbKnou6ba396X67r+CWSJqSybM1ofo99OvZt2hp
fAMIWTcnlskIlptidh8h85hdTeQvNZka5sw58bw2eB7A5YHJa9SL1Tsqz/BEPYdh6zt24XA64qK0
549YLsw9M7sB3iVcdHFT7rMz/HLXtyoiKe0zF3tS0wgHbtaNP9Jkwwv8v6x3yIdYI0VJBEwRBMRM
iEwIP6EQTFwAUhyIvVYE7M34fKwQIgxi2CU+/pvX3QFQw4jgxWMPv6dCLio2QfHKV3AJCgghVBWp
BDzPPluC4HAvDX21dhZdCu+brNVRR1aYIYWwam/oHIGGAJJAQfRq/jv+x0WtBCa/ubG3N/qKEivp
OK2VX8IE6f2iNATGRH619giP0IQm/CBslxuBeRDZjiaglHUiOcQ+jrA48g6uH5qXVBR1y+um7OMc
rahHkGFXFhOj35QER8uY51sIzGEiQNUQBZ7I0UModzDb920rQk37QnDhIdfwH7HDoKJ2OzhW842v
PH0dPnNArmA+kOpPB+o7N7ya02nq8Z+tLJ1iY3+77DBLO77P1XNiTgQ4gUJrLh1J0zrUyRipv5w5
rGzXH2SPobn6Kf4u80+BkaPdo6R6OUtaIa4w79eZPDt15fl3JZscZmRgkxNZpbG9VXivS39evL1x
fdJa30401VEweg8kb3MobYsIwMF94FLINOJnTft+jS+6QiWBlugUR7gI5z+OzAi8oeLCgnz/WAJP
8pfmBmnSXOgCXAFP0WEGVADj6tVue7oQDyKPngeYUOLFMc/3dWEAJmIjKNG5RmT+8ikFHPlFvD4S
liYx4YSrfhzHk46HtcKqoIIf1OeeBeUAwJEwDkb+onUSDxsSPMeYu449nNcjlAH9HnBB8Iewi6aX
4gjvZXkuVdv3XRxuP6OeukAizA8ebUPX20QPpXTxIuw9h+G+B7/Qefc4S5iUCkf9xClKX8aPLnFw
faDAHj4dgKgQOlr48RdCGXJKEp/F9yCG/iKg9ch/hdakEAkiwPHoqOwUfFcUn5cwwmnVI+7bEWj6
L3esaP4vtNYuBGgvIu89b2GZy72ngOFnoWU/sRKIUzWOAFF0tGDRRf8f5dyTNl+8ZX3C5+AYFSuG
YdS+YwFM0HL3J2RIOBkxO5tBlYc8Cz4LDXUOQwcM39Gug4R0jmSUUj9v8lTcGKEbzabBaiQERQmB
UfcCOJuF+gDKyAu/XymJeuqB+main3+rAdsQG8uzqAe6688JxsJHd3IsIQKeGQIQtmM2hvMOHEBA
H9ZaxOmAjgfaafSefESr40FRpJd1bQ2gg3nX5fBJJ2PaPnTryEe4F4qHBDZAnyNB6qklMJ9BL6bA
Vh1qqZUR7IAJzQB5NuG32c/HszNxsYaUNXDDXs2lvyEFFVCJFg+jBAVxwOdHCeEBNCQ/zdsfZR7u
fZK5EgHCDgLAXiLmg3cJzxzBJRIVUgjNR2Iz6VYL52tZO85RvHbNotsoUwJBJIXhQG6GZhEQZFTk
g2pkKyF4AsX6/gpH4nhLw6ZFgf4gm3wqoFcOqJdchhj1VpqSj/wSYV/XpG3P2BOo74ex5GEUB5or
r+s68dDn3UDjQFPTw7T0H184cNwAucBDKICG9PInW3eYx6xPHy92I195VQy+SbOY5rVItOCwUiuy
P8doAjT95oJJkVBA39IwAGFCeVzqgjLTJ5S3o3cwgLHrIXt1x63EOduavJbt+jnuMaQf2ZFK4xYf
s9FUjKhQomZhhFRw/O9gZensbCa6Ddwki1zM4kAwYZRTXiFsh3mLUO8o3H7ba7IoTQqI+KBYQIR0
G5DuG55GUGUmi47LtNAIQkltzF6IFkO9Lj3WSEKNMhxH+sLtYRuoa9RWox18Z+o7A7cU9/0UJaSS
OaKBweuzTzx/3lrPPK8hZkWwZkf2FUvbgEB3Qgy6kaQZdOcomUrSRtAB9nhy6WQb4gyTUeKHGKiK
DFQJ0knjaqQHcqiM7JUELkkBlCO6fYfL9TD4+8VkARsbWskFT4a8Hhzg0OfSM+8/Pxi3TTSkCcoI
ukQlF++WxsJACgNHm7/vtADwuI6ImIT7Cqd+6VHZM8O9Nk8Bb37DYoifeibw4AMoM7hz1cfcyekL
TIDAugUiXc3z5xESMICpE/yr+HOKaI6Dup0HsFwOQw/vHjJNrS7p+GZtOTRKcrsIQlWFaYYaufGQ
xw5ZiQMonYmrMLayPa6FfXlWYdRsCyFOstvz/Mb9I+LKNXhsLs24HAQp8xAeHrLeNeHo3jTY802T
Ih10cbOregVN3FxCxXpnO7evPiO4BkADl+L1gAAnQMOYTp0B/eslQbM4kBfmaAPHdoFSH9iqCCB0
CrQkUoqcGhAkQInJ/nerb7XdGTnuybIyQa0glu5x2uoHrRBYePCjykQoEu498LkIwB46N6NPk723
56lIZRRZ19lQoYj0IUNn0QeDB4zFmufDMOkISj6zS/X6tQSAbROMfkF5N3jo7eTM6NFh1YDu4HJk
RKEAPsogVY+zv5V8O/wZz/VHlqGAe4cc8B9B1O2yvUBAhgZyAWs8a+iuaGrXsxPIYajEH19fk+IQ
B14+I5iW00wwHfUcfhdK8nJQSAnFgNtQno3z+iGDPkYMTXy9/VA8dj0Qq/N5n+SxB6zDP8UDpqgK
DGkvkX/Be2Ume4pM+OR4GI7ZpJSE0RDWMXggKHBVqnt2sOoyKTS0jUq/OUF+5b8x53IGfdCXxoCa
p31QRFrfYovwKJv+S8CRSPV+IKje4zOEEz+b+/zcjImP4PIIkKGH99042QiQMB+EeTSMMJRUe9rC
wkegI9rLpFoaD99AFIyFcYVHazd4fH38V17N9g9Q2xMEvz2kH3cYOoD3wG8j47b4xFCPT9EUASCQ
7JgfvGVMUzkszwmHAcFXPCgdxE3x+hSBKDgcuBzHhDp4j6KO3jhOmrX7kFoAEcITdFH803s4gC3i
inilxGFiojW7OQMBX+iB2rqC9XYS+UsQWRmqT/nResYIXCfiCQ+33dBASjyWPn5u5HL8n9/3byvf
k3iOrcP+z9qiQPtbiNKxl4qN3dAJVUStYr6m/t3/y6Tfni8Fzy24REKtd4Xjxwy0OUk1y2076O3Y
GdHwv15ZTtPq1fJMtYHPVd9HGYHKPvzfbGQPow7Anw6fPbVIzVw7It7n5FYjjlN3KmRpkcDC3N+8
3mFHFXLSZt1/RJXMCFH2DRdLzVCfy8sgQHsAG8glEH31reEOXK3b0y/p0pyqLfljrKTfEQd0ETbz
lAfgW268mrc3p8nVtDDI6jwtBaDhJK73Vb5iJeEIIYw4aO7Xpnt8Gb/OY8PenYGV+/D+EIMk8IiU
pC3eO3THGkWpnViokDBR3xEyJFInmyoJ/iuM5N3y91hxzU1SAZMNfTQ3izfRWx2OrsrDD4/IDqBk
DcL49TbpBDTueCWSAmB8Unv90gwgEGENKjH4ahlZ06IkEzV9m2yO5YUMAwlMcvwEdYC7CiaEdCm3
0UePqQNBt/D8OOXaTjX7ANiHgyiAPgCHHjbqY0CrZVHoPawCqSvx9nk4FbpHzADvjxTIkPgCQyhS
SIgoszJzDCgomj3WY/lz1+zh0jRQecYUUBQQBNfe8Nmr8PJz9N7eXlAJCY9bRHhEPt5M7SQewJ5g
U6znffXiBAoghYoLk3d70PRU3Pdvt4Mg10b9QaY0uLByGHPgPKFe4EugiJKWRX8HDDUAsKWba8Wj
yT9Vg4jkZDc84M4YHECY8mVjeGWXJ8DPuxK4GxNGWPPuqxZfI/SAd37L8vPZh7AIDkl1FIYE5gCO
OVGnRhHnIKg5FBuggEkkufQM/cFKZkPjyNaaExeVYgpdCPQABQovE5WUHwa0CpkUUUTkKz5LmoyZ
GhKo5jlPAYPPby5XkCQbMYx3W422Ev0U+sNmqzo2EGvxAIpL+/U+DtKXJtO/CwG+BCfeP0heJAcj
I9RSsn+XPBpI53TkmmpoZp/Y1yzX8PuJ1oiBufXxQCKsG2jMbTgFBWAALUCv8z3pZRcStjmPn+ST
AwCBMl36dW25wnJEIxtI7jt9VrdZy9fP57+PXzAb06jdS6EDlnXOaiEJiOIWHmPRwOcmswzsRgO/
kJrKPjiZClSJIA6eA2nodeWRsRUwBAGygeIkHj1EGRgUqAOuW5cgKy6UHtgOQ5chQCKckgBAqUPk
xSyaAbahiR1n0GG7gB6Mi4mxNLIZBzrL29hFj14HiWA13A2dw0fuH7P3wiMKi6Kz6+KHEoJKKDrH
81C3WrGmmID9xtEKTCLILAC8Qo3IoeIOEDIUEwQ6pj7tCKUEqeohXxlIhJCVi7XVIAPCTTEUEvbN
FEBNfyPFFybRl7qQd7EP7oS9iUH5NqBUSpyd6gUBTZLQZHRR+zGqVla7Hxg4/n2pylfSX56aGDRw
00PFLuXaQ6CF02iXAhkvGULrEsTvViyhxQzZ5T9jwMUhaWFA4xwhQWHKoCCINXlFRCXpewEIBUGR
gk2BQhm0KKAImt2FapCh90BhwkGJFmG+ovWXOdQwogCrwCG2HzEN7zZjIsSuvXkZQ8yLvpMSR4cu
t51rYfoCAQWWgvJ+BsBcM4goWQBBFryeUglFk2eaiNj2UMzAduPWebe8OGeKL5pO8a+DWHMb0yfA
obNRemQG69mCJ99LATnWER0/DsiEsEBlz9cj/D5WhSIkHsgmebiwGCkMY3tCCsEqJiIKFGQTQRQO
g1GKQAlntqNo2tYECGcCPUMYkvnJAaKDAFoZWUuV0mEiFxEBo3ZLe8Ks9YaTggWAUW1zvWBj4Q96
+/rFW1lyjXl7P1Nv11GN63nUBAgH4wzgx2OtfzqC34tDstRHOW5B1Beyjw8dexSbPEjgAhfEJ6n4
8eg288VPXXrD96A8tLcajr6674H2xI9+a8RxxLhZ3PHYdMM4bxnsF0wly/eU/sgIWfrOcn9PTWuo
8Bp5WMnpyKiunduWoxnM4EzdK4ugrMNKB0oigYXuoul6COjKT+eazh4wyM6CIKLIDsehv1TJsP3L
e97vjeTsKRNfAh8vpKDwYFR/qQVQ80chvR/JziuvHIFPXcBtCHvsJr+7ZsyekSyA/NoFKZevu+mB
56SHyCGtUTzOImk4WISiXRXqgiO9bRH+XmtEHCeN2G0L1bboREJA7Y1elIOyTEZhx0BFOAqjRGfB
Rq1JozCfJuepiMe/O83s83IeVHqcWPbZ3ELNl0brB+SiFD5lIEfU+Ooeo77z1SvwRZA2q7qeDt4g
BShg1JMveYhaNYi29kMQ1hAUaIwALQR7PvttmQnIz6/X10/ZY2ca4yQUX+PBAxNNk3JeEl+yZuOn
NSPyJEtka7+I9+4666GeC3OcDyL66gESsGhcAjEalx0eXKdrkKl4c6wOI5mkqoQ8KiJd4kK2SYhK
CaAc1D7TWlNBhwYYETtfEBCKIpKYZRC4FoIOYiO4QSAKCSJggWuAJXV7oDvMYFYrBM7BWYVjz4hT
lDlyqM4Ky72vAQRsdoAHqqvHQ0wvTqComHGZw2OaiKfI/l3RDcqdbUtdJCYErjnyUMYQGzuk0FYv
FQAacAgBZA9cu7jlyBpFMrKD3bDIykuJyhEI2pyDKIn25HfuEFCP85EDgiP7V8vZ03qL5eVW0aFP
SO8JYo0vt4rcpA0KQx1aHILoPkTcKBSYwms5lMU6s1KdVQZxfeYha/zEcNeNvZ+EBGpMB5MOPH3+
fYzy+sKHnoTOlzsKqfCldCHUKfq78WG6vxq/serlI4B1gPsHGRF4945CorNKCio81VEKwm9i0A13
GYDGpdaLLlvC80FhYyMWQCwiiRtQ149wixBlAgSQKCWckiajCHYXHktylIALn0tOwiiAiwAG8ABp
xxARgjiXK2MSEQpRT15c6NsxgBEn5N809sx9GY+XWDjCgQsAXIKMJ3idxyHd+HTlKM2iO+25AKFQ
GQdFCgqDLwcLnREo0ifwPRLhX3unnbv2t791+Sw6tNBsXpdUyDAoyTt5OewYukPZ2sj3FTJ2clga
GCFBzpAvGCUAg7Pw4m6PkfGQFiBAnr1Fa90IkMZFAwAq4UferplUAxVSmphHSz4RTT8A0EOT+K8/
y49K3ovJ8lGI7jmgjGIqCBPjLtxBgCQZFL7CwCw+wKXKRH3BRkWBF7xFzFQQpdUDMvUtlbtQk/3b
oOEEaAQ+oC0CbwCwG0nCRwqJogRNywTO0t7CSNOeRswjVEsgiBdOydKpOiiKizD7ofIC5GLIIh/a
ayHUBU+Tu2JXb4e1WBLDrNIvBNuFcB1cFgwVjJ2IDQLU5WDP6RHM9owRKFyGsfOHkRVykBLwmHuy
D359p0dNqi48cBPti2ugcGjPYxdsJjDXT8IvdN8AaQVBdFussvHw9cGC4F/e7B9s4CIrJXSAQhSD
AB9gwUMORAX4d/LUU+hgb9WHif2GB2F6qP1fhgdRrvBTt3fjUUKKcdfPQuA1R4sBzTaPqaA8gftG
6MiGyQaJBWk3QfY8nCeE/AhhVFSxGO/l93Z9OrLsY5G/ltZOqtcSxR6tpuQk7MbE2/X7pcqyzCoT
9QHtsVGvUI4ChKJZvOychwBGyAPnuCGoElUGEjZG9MExVUBExSUsLChSkjHYBYIE17fb+A5O9YWW
VPdprAMy+3K+NPc+6UBHeIYH3egSIcZlrs82HslUDanKRUeOxkUBIQyKB/qjsgBA7gHzzrm4r984
RyFEYklPuZA1e7HTPhFU3CUChPy8MkDXgEn3e4Dmj8rpqXdyHm4fe8ngBsFsJdwiHH0iFBKG/Hw/
nsTt+RJO/yzrx8UHNBooHQQY+kYvFUH17hxB2hIesY1gp+bOYmDwaJ8fV4RSLqniWODGi3JRoVhO
NNI41NQI7SGk7aBQP1lRxAFikAri/sIeUFRNBzN1tufmV/omiK9yM3ajYGCD/sL7ED42nLE9dfJB
/Dhog1r3VFokr1+iK3U7xPudQSMGHQHp1H6NgpfZttqmXt2GHqni093V2DMO4rsk5duG/2LybvUP
ize/rNOoMpGv6s64ZD2el8eSofxWVHGjVIce9CU/Lqb+URrhh8BwjZ33lPRqo/D6Tz8Tmo4fsdMG
okVMeNuG3eJ/Bhpfzda9y3NUjel81ofpvqaTbbkOjv1Z0f36cSEEgEJJAFttCowIfRR2EMndi4Kp
H4MSn+9ohphfP5BrzxgfcfLVPXljaHQ7lOWaQNA91zDwDRlJhn9n7B1Dw00Asv9S7AyHwRHBEkRf
5YEG/f+LDHOo3u6AsO9VuSKqmAbiL1Exxx4RMejRjw9sC636Dgu5y0Xgn5wa95gdeJO1H4dudlzm
tGqfI/P4GE5YPBywgDC6JEZpUNN4BL2qPvWfacmjf3oPAj5JpckU8qivzCFHtt/R4exBOMksfm20
ocdIFD8Ij1QBJRiIUqGrO1nI6GByNmxyhyhxy3Ymj1+KHDd8BOCQRt8lYWBQiMEFR63UmMEJIJLP
USvFJSGR9QoQKAJRoaqZDXUD6QG0JVPhlXjfr5Qcb9ssndATYz7+PlwgoiYhtZhLkYw2ZkHNhOT7
qjRNmbNYhMNBqEJ3iak0shjs/OdRczex+Xk+m/CfgKqogm9/b7D27MbkU6QA48b/efd3D19UyBLb
oLI4x7vqmwEu9B4LrfDJYomVgyiXcDF2P5ETMVA7jAbJBMewLX4otBb0i/yqqDf7RbATpWi9TBx7
5R9wWTdYD+xqTnR3IXzhR/Oiv6XiPZVIftlMh4jvDDlKmHeTBfEDXpLpzXsVutCKfRR4XwqNNkbB
YPCrhlWidDM/v8bzvWm6D8mRMRWpXtVxB4Qa4eMQ1JeEYiKCDeoI6fbu2Eq/Ud569e/5m9E6D2jp
IQ6Csh4wdAkKA3kj2blTAtzvofzt6Bnk0A5xuD9O0K/SgBhi48OK12EoL8N55AA1oWGG0SHBJzmi
7qrex34JJK/fAdyIZMCNh8EmZs4inLtcRgpmkW7dQvn2HNhgVRZ+XqiCNwUIHyUQAJRPBPYQzDcK
i72mzN7Bf4so8tMULJtXs3QIwUX7j0cB/Eow7RLfXQuyCZQFhR/WH9WhVlBBc6O0yaTUkDUxDVt9
+mxPs+bzFrFrH43LaB2vRwOBzlsE5p2Tl3VWDwKbSHmJgWNRm3MzWaEoNosGT7gyXI+cIfhEfMOi
BaWnbx7Op8iP7hlT7H+PuHY8blp8vLw6ytjwenqr18a5TCbJY5ydI0QKJUfz0gUIGc05X+bSAyI+
AYb07eXLby+39/7bt1C5BEvcv4H5ZE2LhTX3X9f9XZvPp2pyN9iHJ+3JsmcYStie5WYi7szqxPEo
O8PJXQ8KsBqVXgvNdVgnUwp6XgPAAY+De6gHp79IndssFGFV2fcq6wHc61UfWGveIzSo8AUA/qNb
90y4PhSMQ0Xb2gbgOw/xiQpS8L8nbXbei+yoYO5ZwjM/iiM3v7/rP50aXQ01fy/X7nExNW7ceSBv
8RXgIGmygwGQ5Ap9sbb8YsJ38U7+TvMHv397dycI6aaZZUh54ZEIww8OBl5xwOO532zyY6gyNTl1
PB19NzlE6PF0e+1xLku40Jim37pgb/1Z8nHWkSaz6Nh5O7xe3EOHoPAM5nkE24m7pAncUhzH05Br
zt7sVxgRwWfOtgOYh3rcKJ8mI6bDukxFOgma5l5NYtPCeTQy231kL3D6kXIuugf5i1ifgMMLngfw
CE7TMO3yG70IDE7Ufn4MBctccbWW+WI00NPBSFQxdkypoJrY+fro9TMvaGA9LAHUXFYoRc+aHRlo
dkL53x4XZHk+SMQ0MRNHu/n3fgZmO0o+9CAUgIUInayWiMoljyWkXgBRHbRp1Dxh6+7EwE8GNFw8
0KQmgnv9fkkoiI4VwwUNzUR+Ne1DQRNQoFwwBCgVWUngAGglou4HIJHEEoG7JaalqH3tNgLSQT+r
5O+trSIHPOOogm+7DKf5s+HZPZphQzvx6NFaHNgdMwYSEmTMMv94WXvoenkQ8dATotKoO8Q6b2ko
+bwE4I05M2e4DkO4eBqxYDwFQifoA+0npJAfovqe3oofp7Ar4/VQGHPVSELSj5OFNG0aYoxsY9Dr
umHzdYGnOv+H+Lxc0bhuQAuVKmhSdDgkC39f4k0YB/s8/zhSHMkEkgyImu1GUPVaiP6aDtAB9EQV
IHV9XR5rnyuxcixNnzX9yROZ9GP2Fq1E/aRiyE+ZBinGKoFFNII6kqJoL/nJMqqikPoMwI/xMswS
IAoa/zMcMLAKmaKiKKYaFqoalIJ9+M1DlRRBEl/vsv1/3aNSRAN/02FNDFVBMU1EhNHZ7Ycuvj7+
5L4a3uf48NFJ8xb8O+ePq8ZkONE+mMl63YNv+JSYW/4YSSBC1mVRY4cqwYcRcwD0PRH9H1ZsLdRg
A1Xjx9iwz9f/RSqv7Ch/qf+X1J/h6vQbiPPhv/MXp7Dju7Uf5e9RrRydspk1t9/qf19zaD0Ps02D
qMynOLf08QOw1SQw7jicq/H9ddJ+Nf3ejYWPJ/oc+CAChp/mRQ3eW2/+3/p+df+6Q/516g+5cSG8
gHMRcjsEjcPgTd/z8T8lsPXpltMii0E9H/0Ug2IyLIprPiPKmjYbTH/vGkqiLtf7fT0eLg9Ec3wv
im9v7vswgT5ixsKDwsn+MBs3kUVAJSDTUJ2rk/6H9tYC3M0JW3K/9h+3xXb+QnUBNgkAOyfecsZ/
kzg+bKGSCx+w/NNqQNP0Fv8hCORUVUBgQo5YGfyzk9xhwa0gP78c+6EOla5vHb9h2G1/ozNv9WXH
xeGfmyyxL9fQcEhtInExx4H0nA/3c/67VI7vLv4pPdMg0Il417lfz5gLSQ+IUeNLrp+fedN/GGbQ
5NbsQoUiMJN/2Fcd5TzFOjeIsJ4I+8L9h7KN/9j9e7+kJ2+GL+FVD/UbTGx+X/Fe7viyf3ESw7SI
lfuMO0mmn/v0W2wG7k5+kq0XHTTnKLmHyf7T2EqcS/+3X/E/myN0IeIh8Z4j6P22eefTzdH7uqYe
LxdnVhWR4siVrnpMDA6qMDYd0DrAmeWtCwZN2mKYBgRMLjTlKCoJB+5rgwGoQDSIVy3f5wJQ9fzn
1zjg38oN4GlYHbznh82BsOB1u18JDSHceAsHs28PHj/gR1j2d41PmYYTueHU4/VAmDQ7/cgmOYTO
gCgtWxwGtPxP7A27C5CJzGRl3b/hrPnx4v/M80mDvPkOk8gxkIJ56wP310kEwAhAj827lwm6FQ7e
T39P78zP+rm/sh69049Lj2DfhCBAf75BcrMKzuoVWZYp/jIlPFlJccv1yDH5ke4xEiAR/k7D/f5U
j+uY3gPwf45w3htea+p7v1/9niyrtP7v/pNfvnDoPBP6enbt8V9sP9fdT3Gak0E17gwKOnd9Wu/6
36s9fv9V6L5HR4e/2d3V+X+ft5+TPl6fHj5uFtn+HkO+PTXVY9MDuu6DVH9khmGP/hVqYKP3GZBE
lRETH7t61D9kn75BqWKmCv6sMLsY4wSPO8TQQdscJiJJiCQZhKqkiKQqCQiiGiiKI6wHEO39mBog
aqoip6gwgmCE5sBiAhkglImSg+Q6taP5bCSqAv5TPhi1rQGP/jMZ1ZEckIYxE5IZrvp1f1WRUU84
YQy/+Vgf1Gf1xpCh7YpiMSDzmWQesaRoWNY4EFVZhmRh4TFzjHKKqkKSIGpKSv/5hjJFExsxM87G
KgCYIJRJgjifSc0OOQGE8EGD4/9dG0thJunGKP38WtGwwCMDCYt8pgP9Obif282A2g/+PYf8i37s
L/JWwnegH4lZSyif7T7GyhZAI4TugvqhGD5dKDT9fyFlNP4muwx/xLDoAgn1GxNulyKNEFHzkij7
efp0v3zyztGHLeH1jnOVu69f2oIFLCyKNKsj/pf+J/q9GHxQJkqvDAgP7YD+z+/v+DYbeJ2f7e/+
i30kr/kW2x/t+wox69P3RkLw/tJw/PtmD2s/o1VhqrXFtOI3/TQn+qcvsaf93j7DC9bPL/Jrbf7e
rbbN335xnouegjh6938L/hy/P/X8v+P7P4/2dv8PL/J6f5uY8/+M28n+lth/2MuYT7CEQYwjQUIf
6wB7Pj66viL1+/mRsdkdvZq/Cmv2f/ac/N8vk44I4Q/b+ii2x5u7drmR/YUhSA/7xN5whwgchpn7
6Ck1fP6C102bePqm89pfdy6hRPzyIc0LSK8t/i7jcFou3AHHO/B6OgT8x1SRYrpL3MOiXUGp1x+r
2yN7BlpjgsRnaZsJZpZsaw7OWgHiFl8IGy9WclfQLZlHnO6jbDoKRg22dBiYIcqSzEhrO7CsN/o/
9gixfAzYDgpgFEWSK4ewccY4hSYEB4lTeGI/65TZPXqccu86T2PWlcImhiXMnlFtw3RSiDh6MAR4
0McU3Da2iFWtUQxgf1Pg4FwLbIei/jzi1MKG7SnlLn2RrQBwx/6zig9f+V4PFqJ/TL+naSf+pCDz
jiX/Q//5X6CqbVE4IP9zo7Jh/8eLXxyzKMwgf3TXMA8b8ljbBwkOFAFiZ/fnzeW5b/BMyl/zd24z
9xDmP4dXPBFCxj/4hjjW29ITf3od9H86YO3+ktJGdKQIWhe5gA7TmwifPvr+rAZARH2HTjF0H/xz
ye6R8YHGEJyy/rv693yBD5Fge3SmWbpbqJeNonZngGHNlbH4+1HyYDP9x+oMXUfRKD/2wBuUQ2oR
R4Ox4X8Ukh74oHg04THSz3IRpsG0wc9X1gaTZo1sMVhuKpfaw1zI3zw6T6HN0umf2n++c92bfE+2
Q7c90U+n0gbwX/Wb65G0tgw6mFh25uO2Rps/DULxp8fddmaW3+bAKw+93dy5JHP34rBgBYh932/G
dEWC7PTAcNVQljGpz55tXIo4YdELI+3kTYOLFMSFLguNqnou96yXq79GcPYaJzbmBatErpzN5myT
KpjhtdHJqj85dxFgbEwAQ2dIf1Z5XiAOy4IkFBCikGhf0Zp6oxMkOsKwIHXsocikvyYbKYs2ZzEf
A3r1i4exnLCjHIVt1ryw8SHo54vntIee97jXbjy6lrxY9wpkhF209hTGlXdpOGGDyIIpTLdltgIG
0QPm9WIDZbFC2kapLCCzgtPSEkMKOmitgKDAFgiZJQ58irhhX77Ojtvttjg0KMNOjRZHo6LFhL9E
rfb6P8szZnjpSaoOHNTzyRdmyhMI86Xh2SLcBZPrn2Hf+70NiwZDEdxnVflqWHF4hsaDZtqAa7dv
GLhgaEafigaMvI8A48cF5441iDSYEeDVGGjhTl9l3hpHU+xxnKUIjPEOHK5DShobrG+/YwNI3PkU
4N7+s2Bpo8NHyZXwJkg+zXrFD12v637RxI9NCXswYPgGdNHT9335gcXg+u81f8Lhk6rYP1Nx7f5x
QRf24Op3UJ3CLg2EPuo83NXPI9ETNSNC+nX1e92PqZcXwLo86tbkj8kdcEHznuhINEiJGa9WTCot
i8yH6Mn3AT+qXDghL1hccNrJ+oGqHyFYw5MNNqc9CoOzTPn5j93iXNqKcFuPxztj0Yu7PexNPzri
Or3CyamvLRO/aiuWGsxiCkfow3kwO4guXhYC6H7vzjKev32FBVVsRPAWwvGpdAxBBQdEpOgdieqB
EFWDsCMSF8yG0PLsu/q/qhG255DsHB9z4c+0yPi4UdCFDlNmllnFY1hKHIvkukSAqEbgkQEH+hnu
rviHcw4JDUR7G9CVAKQcGT0fh+qTEHiUcfYJZv2verqeGWIi/LiwKCUqF1iMBW4cl7PR7OSUg4Sa
t8Vo6imcEIqnh3uQwlQS6nXvk52sqcZAkGaCD0ZzXojx0mPWdFg1juqB6pOTnIJDmAix/XqBYsU3
AQGgdEXnsojEzCHkGfob4Xj5cVLXiAU/74jfTCt5stqcifdjf7HBo5aHlMtuVUC/7QzIEKbQ3EmQ
FUhcGGVRDAS5GEYdHfCCsgIZLYgwmCqoeCSDERIPHaGZC54yHz/UtJqng85WkrSJRFicNlnoNxgH
T/UM0Ubw7xHRxDSYxjE2s+3TeI6MMpp8IObdL7P+a/v6CaYaOxQp8qclWY9DGbVxfezT2w4a/kPA
HNNDF1xrGR5XwDQ2FGzphXdnTlnlpQ/s/sOa2BmaW2XkA1WdkkCJAhGdlTJGgesMRCK4ArRQNAxq
KMmikqKn6sqBbpMRtAdIkqiXQFBCuWRgQzO3uiEhmghlNwqHbYSTKvFPeE0ED8lwcrjQbbfshtEc
DsdJsPSSBvOQQxbNr+KFYQn5QnCEMQa3vChjT8HWL39+NG8Gz+M7K7gTOl7ip8NJqHh8b7P+8f8R
oL02aCdcqYwmqucI0w+HtoMQ/Nt5KHpEg0KehFCBAgPKQ3uCERj2SAiNr3ZsDOem3TeS6mdHm2Pi
iMg5tnPMDn0QchvzFkawrZM9WqxUzyrdPbB2Ob/6Plb3MzVO3/zMB/G4joEP9UFUDGRwynRBRQIA
TkOSyWCI1J1GiDgdNH0GM/sigdHtRJBx26q0M0M+8e/sYxnfuhGB6A3mGV6NCLrWha+PiqqZGluc
uVJn3ngqpN2DiRceJAjA8BluPAUO1yJiUJpobL815PW4p2mjiWajjHPOSRrmw57HDuna+2zC8LYy
bFgNb4+JN4V8DLZ1DlXbXwQdAdbz9SNbEeDWgoM/7GQH3z27rO8P6WA6AiWoiQIDgEpJG2asnZW2
LpGJ8Ii+o/7a8MqNg+5A7rvYsAwe3+ftzxs1JCmznku4APBA/Y/QxdU+n8hMCoD6bZ1CzhuN1T2g
p2O7EBUII1OrAEbQcUFvW82H/Cm4Dl60eAgihMlKpdyDqKCIIgi9vOUcucFMQaOP+bO3Th0Ac0zj
mwYz/CRfS80OSG3xrQenBu9RNNZlhph5CajN1f43eSZj05FknZS7M6Q93IUp6gaQabYFRJHnrHj8
hD3iTTCCLuwkCCZkBQvKjjNv9TCi4TzjFNrjR+6BZr5icfswVn8yEgh83HhCkR2NLCnJ0L6WH2/f
owcgvenB79XXIyvTP87RqgyIjDS9DCfV+wzW1K9J9CjcXZQKigGu2FFesqM5IaJjzQDGvgB7kq7H
uQN9yGPud4a9ffSmC8jZF9h4MR6Q19z2FYNg2LbXgXM0loj9obs1+27yDnvxafYMg0H2MD36974q
gxp+jzOYZWxazCGtnrNdjTF1TKXzc1B2ZVYiOPEmZ5FlSQ+o2p3lAn/u4kHt0iBQoE/3lOhTCEb3
5uFlvARCzhgNmo3k+ID7gYA2Nx03aiGOVjAMg+u9i8IQ30hwMcLMmRi4wOjp8Hee7PHg1RjahQEU
KA2HpdyIKEAEQIhQyEXuoqbitJv2FKyHEgsCLJbPE1FsMNmQa465nDskjn6Krj1hrQvwDbUxKNCz
l6QgPGbYBvlyF6pSLAWJe4pkJm6y1oWP0WNnXdLE10ZXDmIcm0aO6KCJzuBrgkBBQziwsGbv3ZhB
IDOQTCIcPLu5fjcRkBWaU6WEJQANxqIkAuuUI3XnOs1BctHifRfLAeuToP1v6lyfejwGZ2+5+8+U
F0Yew55guc1WySM/KGnWg5PZe4w5JcSxOHiCjke7CowEYvKAcFLFgXITkR7ySSCaqpISYMUIVJxu
E1sOoiJeBGP/CbJUDnsGCZIzo2bJAcjmXGyxCMqAaAKkFroyjg7tkih9A358C6Asij+NIVwh2OAV
YFMzDnYEsOKT0aXB2JzGdrHjTt73pGQ+6HlMrgzlhsOwU88w0jhnQyOtGkyWe/Xqr4M+5h3+mvBn
kVZXLGqEA8Xa8cxceYQ6MCjgdt7BGEGHvvu1+HxvGTdp4FSB9GZ1qpHz47bDzpo2fFFPGv9G5Egh
ICAnYvjUugRyfOQ1R77H0PYgDCAPGMPzz4Sxoe54fRb6A4rbGCaWt3Y+Vk4DlfJOg4llygYWxbBR
HiLHaXGjQorR2Nl8DPGdy6WiP8HOeR6PaHPlrZVWptgf6H9BqgNtg7932Kh3ZNXTGwb+O35Pw8oU
I0b5Finr0dNwU9oBQQK3UEGQG+MXAhtgSDmEjVnT9omF+Ci+Yw38fItrrIMNfD6B4KePIycJgeOI
yFp3k0DKTtsOBA/Zz6jozcZnDW53Id/z8HG9Rcon2G8zs0lUvLrq8U691tUm0hmWrEIcYqB+wRlM
DXEeZgO4RFRN4CTwJh3x2ciQ7nV7Ml8lhzwgiP8g5+eI4ziR/A48BwWqlEUQPJFwNf6AgRvFIQOJ
2+H3/TfsduS1X9N8LqHdjGtSiS9rH9Icw4AHAyJ0f74ebSueCzK1z6AN/2c1j7syntXuTq1dF3v7
cI7mHB28Isn/pYR8W3MN5Dyl/sgv/vXyIkQ29WcEfwk3e8TrxVZ7CLo5L9/i9QQHNTta/9lZOUm0
gpYhJlP3w6O7dsJ8HIYrCZkWYFv9rX2MKusp4XEYwVY8t2i0eCrPFlUEgfA+tljD4Uy3hqTZuaD9
Oo9jI/zI9SKuLENpeSkZfJdsr4hw50aUUlHK1yrbSai+2BGSpHetAfHYSbVvBldRc7uuS/rFWVeu
3jB0ejNRVIPDTgr49ZMSRkrKEWJsYsw5yk1Zug7GRcxbLBGWsPAUjSKpH3CH/z/rUfpz+VebdGHH
3pd85seOFJBHmoeHEHLp4pJ3sRhrMGfhzfXtvrJG4puRfR1qjfxiIcQ/rZ7tfk8fwiisv6G2YKKL
rxkJg+q8pyeAYS/1r13UcV6Bq35KWF4W5xEAQSRgr0IDBorEfSsUjaI6YUNSUWcSYezqvEBz488l
/s63eWvf3q+bY2NLBsPadMpCRjYMajDxXqnLDG0+Gd2veRcPrZAZmxPZccrNMgTFSBMyAXLV99e+
dUjI5NENcxVHDuodx8f/hCuFtLscNmH0AeNOWqctrcSC6aLbjRcyBhBsl+3RgfATXz+U4pAGdl63
Cq9m7nDMJmZiKCWedeJIiT0KdCxtBDgMwab7wgGiwaIoo0If8Igd8N2WYoBScCYRizByPpuuCm0V
TbbtLeJisjYtYZ6KwPisSkS8XI99OcpAp4A7I0ovN1G2xKxfbxXK/GmrjxrNWDu6EECJ44AVesGA
57rGek9VnD2H0BTaEDsNhjOklyZjfksQua9pu/9T/t/5eirUlHLq0wNdgHYHVJkdei3j6bpcGgAU
OVUe3DgM+A7/U+ClUmgXG8eiQ8ICFpp1qowFX/4WgH8gsAh1ijnl/xf/vh4FJPz+bU90Y+xbkH8Y
+LAP/L0qwuYVUd469B6x6Ru2G8USXJq+CUH+2PsEbg7W9vAf4wCjxB/KXcwG1xx0D9xGkSHKgk92
mIg/J5mHsHSQnVT0HX3BY1TqbCSralYUb0tGEVTeNQfmOY6qOMyW7t6jK/pf7oXglz+QLJuQiGnv
w5oX0my+JbCp4ZU67mNLxrWNa74Zn75PpNf1ze8ub1Rz+mzf5+Kb/VtHcefkP+uwbPKZ9Rczo0EU
6+GjX2a2OQ1vnQYccHn8+Gmx86UfrrdXxONsZfkPmkbBnaA2SWb00Mo8U4tXJhgelYBDEFiHn2PM
1rc8btUjIPMebNE6vb2WhJPDxIi4i0hZ4SED4kRMATHwcVb2PTXPlXyQ8/eSH8TIsewwN+dLr1nL
22uVK39LVfuy+J50cvbDhgQel0p8YtPjS1smqQ/wL9//BQP/7KVFR1/7qJo5EF4GBxCuhCIIYfcf
uBRA5G4pyfwIu/6spsaIdB+rxgdM3IxgeU4DAH/tEFJAB9R8T02SEPX5thqnl3HoFQ3uYbeTnLJ9
ZfjYziWhpG0cr1rv0WH/vDoJ9URyCEqQCU5zUIn0I8joop+NSqbPJal9iIQVeRUSRRCRcDzBRNwQ
4YA8uQSWIRiPFBeEfELH99LQFBnC2Xu/3/OBu+SxczmHOy9+bpdcPZBfkb3fqlGNqEXFJLBR8RRk
/MG5EY0Hto4eARIeSp4+K9P4DnsCEoIa3CYDXgVk4gg3cLH7Owb7H/4xm0weOS2vAcoTVCE0UcoD
hUSAmmCLJPVFeQgI1bYqCn4kAP4dpmT5N+Hy92IWEgY9k5S6Xk7L2MduA2XnD/zwN9FVlUnhheQj
jjPp4UeB5k1m5MtYHxvwzMpH+34QMeSNpsjY3ktjX2yCjcP6pWxVxyb4FGkPxm3Y+Hv6Tf0CxdXQ
gXIU/zUBSARZXCI5ysKIlq72H0XHtw3Ae3We37uCflhEoDgKAJnYpkvDbZkm36jFqCSD8HKCigic
M+mtD9f17q4GfLspjCMG2/dxt6+E0w+WQ0NPP7KEGnZ4kPX8kdjHoaXpwrJz5iz/cRaZ040fGRVx
mgcX2Q+eHoPjhO/GhymLzer5kpmoqyULBT3iEOsRBI0B5ksw+C9hBYoiZVPIk/gTuz4tG/4ub45t
wgHinvxH+iAmzszXOih+hToLDCxNDJB4ZtkvBiiz5/acIJE0IRin7iAJmkSdurpQHRAbcLgCzNyZ
cAAhm+bDggMe8x9FMb8yH5rC8Ms9YYDabjCNsMTcjkYQ5bXq7gOhGejNZVBIkoWf2alVJJJgSLKv
3Qwur9HxmdZfm1+bx46e09Rj+kjZ1kodnWrFJGiCQmnCoCQTvJQD9unLeEjUj9QbQDMGYBnOIqKk
KUiRgoNyGJmoT32VGjuG7SKi7S5uWnVB6OWtf0buFXXTybrBt2yoR24UFcSmPGj1Qp2mpRVd3y9t
c+oLu+n6OK7+u/KgfBRw+TOPbNgneQ5I8Ryk/nwpdRHK9MqLFCwEXcd5ED3Koc0o7//6gE+73fqp
7yTIcFkHvlXxkioYqi5sIuV/VTjJN8U8fXrtaSCc0HVco8IVTsgXjYgm/U+szrvBV8NpntfvyYAH
hiFLFBnwLEswJkcg3CFVhEdUTz+SgcL0ufaErgG8wGy5IJKAcTUycL4X98XYihbBo29MVoGEZkDp
+Ds8Anq/FuNg4nwaUR2Dpp2jZVqBtRafGO2XT5S9MB5Ss4LB2T9Q9y47KBvH6KFA59lHNLN54Zk/
+pig+fCCjPVK5GHXphmY1EPRFcCC/LHHLTK6nAfBhRuMKkPD/wLhYzY4chXjic4XONaX1RS0MomU
UDZKdwl7UI/DIPih44qC7ZPAQ6jjMou4ihxvSF4dMQLTbAvFuX22Qz4ULhh5NV8SO6K1pQzfSOXf
XOQT7Z0QByheGYxIRWekKFqcIfPjW+BObZphpp2fPlnvNL2+TUpWyN5dMXgO4zsEX4WFfvFITgn0
ywbvh+fkPkGTqKu28FHcYK39bQgvSDepdFIEN1/KEMiDeCxFm8XjCKCRUsbVV4lmSzBfp3xdwcFT
RwpM+6CKlX2LiEIjpJoGOFDBokDDd2ICCmn5TlmUGWHVZShFrr4N2hvp+Z+sAvB4KssDgHBRi7jL
McmMVBjWIduRPFnV6FnW0ZMYn+MnyFWkE0YPBWAZrkMU2doe1ex2a+t989fZnbg3dhPMK13f6XW+
t0fGHymFlIWRh/pLfXLf+F+34bNFzKhOCPSh5SZJD8Hw8Sfhl2dT/2hVGZqRAjwW0YV8IxckQJBQ
kbu3Bg7935yDb+/mVnwkHXDvDKRyTOmcF/LX6bvxw/3juQu8jSOu1c/lL5c+JwzXz+9coj+/dPLz
BP8kCcVIcx5OT5JHLeUv1sPwblSbCFjNux9pDcLIx4XoezdvR4jn30f8T6OseNfdwdojo8iQRbiD
clXlm7cEGC6S/7RxxP9te4bjoCRz+f83I8cvKnDBB7IuVUoKSsive8Xfd2+ZCutjKGyx3jbutePj
fwZj9/npolR2LMSdMNvo8CTZdR9GES8oAr78OOnt/yahePBT0ZfLuUSzMkMJDuDu4hxgh4GCgg15
KFHfvJ+wKmrKCyK82ZCCSkiBJRf3Q5YkPyOJr4lBkiZAgUuSw9jLkqEIIEiI85elXrvKhqD7fSrw
seXeubrj7x4r6YLVnaL1QIxsdgo0E/iPyPphpi7v7n4+yTqeGLwPPk9K9C4BMTF8Kqw+NJ3PTnUZ
h1dKFEs6uPBFCiPXVhDJrFf4ghfL3jDixSC8o7D4i7Iuv5juFldDYBlMwP4Z93+dr6bF8wFpwLrW
md1PgPm/aqhfiTVb2mdH2zfrzkzj68fk0wzrzwnKZ8aKMdURSmG75Kb51UPLoWzu2h1ECFaC9pKK
8Kmz9eTjXt+5ergVv61PNeqrHiKg93Naq3pr65/NdDCOnWbdF/6CKehQJMCB/KXJzV28Tv/D7vb5
alIhTCjkoxBIIULYKjVdVJMC5ddvZPmzxLooUbpTpT3QCxmUYMt7swf2BR2f89nz75Tq/wpIMCCA
sNtiwh3GK+bP+HOHh2tOiCjS9S7iBrFmVvCBCV8YOOg1wxpsBVCn9Rn7OobYjBEvsqOPrOHtoo9f
37dxhv5vbfA6MKZDs66LJnXohUXgT7rU8sLw0zrDZThr3rkSIwYNzE8FJQdXgzPHha/jbJR8SZxF
+9vrCtX/My5Qg4iUDLQsDAqF0yMnkFURKp6IOrfxn8W7GUwbR3SAvAEdpASRAYiNGUcCcKb/nzjk
hqtyQvwyrOPmYy326iP1tsPqmv0n+qDUkSYCe7dCzdWYxOJRbVfGEoTKH76VL9/U1rMQ8vqt0z6K
KcpsYreb/bbeVNXrBez3k+LNhAvaofofD8vGDx/RTao6hopIEbQyzQH5mAl/XNfavIUiwx+tejqc
eFfH8Y1O5mfwIUPsef1Z4EM93HiyhP0+VuHtIghvY0QTBbhRumco7hFIBB9ir4Ai+lDgxAPp6D2w
xiIkXDezuasBFoqF/PuB2ZB6tARQDmQ9IRRaDteQ0BmA8gRIpXwy7251dgFckmnc6t+swAiPGjX8
lEu7kHtUnQ5sSGdfj4/aK21MRoHEfuT21TuA49PNbCuVQWPfr58XjxLibwh8l7dFWUIRZUZ/VABT
ppaYe4DVA67L1hwIlwAx4b9WBp898MNk6zdKymIck5btRhwUAkR5ENxKJ/Vt5mqEzE1/D9nXPKx6
y6Hm6gQ7dsPjwaLootVvJ79ZRdF59PeneTmyj4L1ZHQNMB04cEFQOULQIdnd+zyY1BCtijhwJwHQ
Fpz8P8sxiQlbEE6w/lzxZ9qa6uOw9w6vjOh4zqyrAcgO5QkMCbMHgHYP9F2A61EOFFnfnB5Ka8Xh
IU17WNFQQMN6sPIiDkBzYxKbfj3PGEMu5eiq7/9G0TBeFkRJJKUbthg0xZWElESGgXXDBE6NBhSG
Ds/dGXM6YQUNZ6aaGU4bNw/633Onq+v68mYSHjpIHuu7tybof2P22dcTM3nbKFn3yJskoXlx349o
Fw3Io+QEPvB6AyZqJnEa83b/sfw9D4FFND+FGSHf0v0RvUYMPn/NaGt1ESL9wEObyIA95EbUa5+V
AFyIbSEvbV2andgY+ExsbCkIm6D9w4w3LQbSGJXSR14mUMWRyzKLMlSo7vNbVu1B2wNIO+H6z9QP
8cmFTEtBRTT+GYBrHFaBKWABoFSRQc0OCmQUAHpIJk0FsEAxrNiZ/XxwGwzNggjmEQaSd5lNWYGJ
JFBUJFNG1TBAyUCSBaTUgZFBQhSQSBSJSMQtUlABQBSgUxUUCFJRTRSgRArSo7gSlQpNiAkFjqTF
E08a0CrRFTKGlAoV3ApkUimTQtLEpEERVFAlBxAGVBSiRKlCrEFA0rVIhSUIRDERVVmGRBMZgYUk
UEUEiNKtKEQrTSNKkS0UlUUVMbGTeYRJBSQSkSQanUNOWqdY8Q6kDZA4S1jU5mNgqGZNi4hE1kGT
VcFisyQLqApXJeJoNawwkykzBxpNGt60ETJsgnUajchWzMcYpMbIglyaFyCgHKhTGYnUYRqwIIiC
ssGKIozOCNCQTBChCW5DVqIgk0WI7kNDAZAZEzpJDItYLsLW8HCP5bANhsyNVhHEuMwZK4OQhpNO
BNiSZB3jFgiWXW7QSQaIIiiGCCDCoEorZZDqxkbYSkFUMIyFgQGgqaDo/Zx+X53YKPBIoBuFf61U
wYXIVSJRYmIVChGJUIkGJiYmJiYmJiYmJiYmJiBEImJiYmJiYmJyFcIGIKoaoSikKaaKoaUAxQgy
picQhFyKAMBcMccMccMcbKsBHDGJxwwInBwxicxxwHv/dgNoBvB9mv0OX4W2RqSH+v1KSP/bPjhA
2ZjzmZGX+u+jjVoKSGoiJhqpYOYiOY5AUoCv8uYVFU1USRNM1VMAQDHWSZBTSEAREE0NAjSJEsyj
MFR1WSfN0T9Fg5c0R5hsRQ+k8v0ifRBMDLwlCfD42D0BcthQAv9PJSiHzRUQfPEQNsFBhQP9D/b8
wnpn0yGVBuLJAoD7IydnTR2EHwvk5revPttoYXtgY/DMy14eocvRyCfyMROUUSCRnqr5ID9P49fQ
EnIUZW2XvaXKkhXJVtJi7+1eILMLNR/ug8u7hZByJEW/Zv/qrQOkwv+/n+D3CQ8iMXb4ftiJQ/cs
996j0ELfL+TSkA+CTdAJEAD9kEtbtX+H3bj+j+OoivJcISzST92HQ3XTTU8iBIBADO9nLOJHR7lW
praMv48oesKhP7Odv1cvOK5+kdHm4igsFkJ/Yf93b+95dJU7Ox8fvW/evy75+LLvztSnNR32793g
YgqQkOufNXELx8pxnKAsCOYs1oQwDG9PIp/UJYsvE53vCyb6ZioBAUCrVCu/V1ps2DlT/TN95wwe
W+0q6EwGaWDBBBZvAPfEBFon/PvP9aZwSbJeCG8kCJkBbId0GHVMUEBEQLHjx8FTl/2/aGyC6brq
R+hbHNnG0P7f9WHcrPdsf6esg3EA1dq8f6IPqCSDqRoYqHeum/xHdiP+DCoqCCNXiadeqiTrDGzO
HUdqEoR0y1+faLkoRHVBM+GUU83mGRSDT++LQmrSk8GOcQY4nV01Y+H/bjd7fHR07M8bXS9ioXm8
m730eMi8/VS+OPkyceS/UEUALvAMlx/fQx/GaREvw/wDVNiBuUkME2ZYvLj4DZK5iHbBOr/V1/3f
mwv/+/us8T+GB33Msp9lhzZ+b/r92qtfghjxP6yxYnf6H6C+RhQAhIJy+Uq5xK260nPa/G/nfG6K
3bvCcVR/FePz8ONpOCjDIKI3k8nD3XPhGrc+BR/d7bY6yaarMtCJCJ5/NyWD9h/JuSTD5vSjP5Vy
Z6/j0g2zuwP+dx178DDxTyNJnkm2cfvCnk/o0saWnp8sCMqgEUPowMtUbs0MjqCjKsqKM1mo1GZs
sPXVLrI4TCVF/Tkbd5yUnh+vE5b5GM5bdk+FVl3bPBV/7Pl2Bv8nWYmD791k4pE7/bRoc+9YpJIC
UVMUUpTREdb/w2PyZ6ezN+DvJNncifh+PKGRREqEhJKKHlyTQ1asJbfh5rlWtVsDE6itn44B9Zn/
qmJsNQQhjzH89G79WR7+v6Pj4jBOSHvqOQt46kg6qihPZI/zkO4wTkPHvrDqK/k9/wqFHtFxxy6z
FbF6QuRqMYv4ZVg6FOHhDZjGRPMwqGDAwaqdc859/Sf032Z3OOgvLybvJ7jycTk25HuMh6R1ABA6
xTQOHp7eLkXH5RE/WM+3IUFNbNyFRSLmkv62iRlAsQwPDfz59rCMHtHIl5782nIGhvkBnS8obWy4
ESacfnzOaPzWmozOr22t14sJCRIhrTSToBBAHwO4lobbMLAoFJNdwkmHIooX/NUNAXmMTSaKPLAh
Hnvy/O/QSszjD1JPLcDXAysrHajWlFImr9yc6asNe7K2CYOw1nXjeQMORrFtQkBgPIDknzA4p9oP
P6UsDWYzw8u7jHs8+yw9h06l4APPqlZdwdksOhh9XHMavQCbSjjJPUAoneBBCC3MCE5HkkkZJNlo
cwtU3KufHq+zZqPIcB5rc/KwS3JYQBUbghTE97cj9R0CkTB/SG9B6LUCJih5oOhQFL7G4mI9j8nh
AVHdFOB2EKgn7A004EgU7evzb1A6zDASuRjmPSFPTec/HtLmPULbsgIHfsrjp+wCGZz8aLHKl8Q3
Yj4LcO3XbETj29Zd/LPKc0SoZ+H+jdIEihB7/YJ6/X4dIi66QGioOQI7ilRdQtxpadItzUW/jTwN
Angi8gRE0gEf63FmRLKLgmY/A+w8GfLgcDORhez2zmn1M/N9eOR/j2PeibIMWMFAD7b9eQgN+Vft
YWtX7KAsnATDiqD3fCDyC/YKkxy2DCPYfGw9Ph8RGXILtkBfZUKKlyE8BIPzu39je4W8tBmqPn6Y
by+hGfYEBdPGqVSmOY7x0wOBafmPlIZkJKclj68+6wjP3qAgW4Wvn+4bAPYH9sLsCYEj0AvwDUQQ
kEglCDczGA0wD/cIN1+ImULio4WOAouRDwhAWEYqUdlHgC/qoVCid5SoMZr+cAKcO3VKf6EqsiCk
dd/ym8eY59XcUBuPhNO/lJPxny9x8Nx5yAiGUQOCMcLlxBB9ZYN13T39EvwPgMiLTVT4BviDIHoI
+nHXhYjvCDfTqYIN/oO8EDfMRsqtOdXW/j0djIz9Jk9XfgG6XInNySPNYmreQDgYUw688eygwCQP
qqKkEB90/cAgbvtcI2GBHz5PiDJ75YMFajPk3svNG1IECMsg3W2e7tcN36anbW6k8ikxCAalTibx
6mzTuvT9/o3tPgeifRA0CyCzDxVPaAfy8zXJ51FEIDjl6dhIep6eHlUevt2iBgQ9BBPi8fYuAFT3
DA7bx8qcHCWBBJdNqOk/WA82jlehXjAB4+0rwnHoHxVa+floVBQjSCRImOp91+JAoU1fmJIPwSq+
1uFs+G3U2VVmoUaWOCl/YBEPPkGuDIoeiR3REFEyCR5wuD2p3rYDu41HPF1C6vF+B5x2oZx9ns5i
MQnzA01MBaoCAo8BdUGaQBkobqAswIqw4k4gdDdDLPfHyJgKJVaX8ql3HQumKAKSO7ognRylprVw
4I0CrDH12E74E6j7OzeFlErN5JEOg6dOwcXBn5bD6dhUU6qwIvFBkV99go9+zO8xrDs+icToLpwh
Mq6z5S/k/T+n7/v+P3z82zo20PLwIVaDRvHGGmhyaoS97hNvDg1Axmrc1FjrhdEZLhNQYfh/JJvb
/N+Ovx+1sbbJJ8xSSM4+rBmCu9hh8U/RUYisSiCIHsRCom7aUnX0t+MMSFAQJPFWaY+9vsEMxx+l
qJ9379PxBmRclWCKgDHK1XHWU3dh9Obv+A6fp/RAeH1ExyH7R9B9w8QvHXp054ZfFegB4y/3rBgi
13eUwVmWH6mnBR+PggiE8iePZJ3ePZl3PEsZieMo3Ws0cjzsuZmFYyJ9CdNj6HnrPe+CdMJvOzWn
IwJDcaOqiqOY+oOBRyy5tMwkp3U8vf5+72k9/m+XxU7hZh5VXke8NKatE4ccYGiaA4S4INQVVBAy
ceeG3LTG2tTpHXGi1qUeU1YkNf7hPj8Pz2M7vP/UA6SUT51EgP71E0i5ERfJwGg1LEUFBQxP2RkM
FTMCufXwool1AuokUDhEH/WH+sDsUSkSwoHh8NeXQim8+UjlWQkAkAj3evi2HHAf3ylAj7f1f3HR
9h6g9THuj+OXy/k937vl/HxfPmzZdq4KuRATi7D8wPr/mf7em7uUP9EIcRt4zC1rCoPrs0Uh7pPT
878X45n29mwStyv7aikLoVXnmxZ5TLnmAf2kr/Qzv0grLyx+i1Q4Mv6iShLfqIJ0nuHCqB3d+RI4
hOBdl+rqkvW6UZWz5a8Qqf5/4tQkIGQHb7R29eDOoLSHaFI1RMEC9xJzvkYi6KvECwGoA7qHsV/X
XN0249Po8NY/k/7ObwZddsZOUwbpSdJeLwMxIKUF50cRQn08smSU9wn4INkKj3AZhyjBjMO8Yb0G
AeUYUMGA/qJQ94wqczuX0GVXqRvlDHlgYesXlmx0aTpYafAfLgOARv2mHkXRKMGI/E7i2VEMFERf
lBHYaAVppVCRvhWJSobBgwnf39qTlbFWrxWhgGhnSHOJ4kR/ilD0GRM2GCPykgahQ/2DmILwMoe2
QR1Ioh3IH2pIgdgkFKEHcKL9/z9nqe3CwzK9b6972ZnOXUWKPTW9a3k3uhtbfAuhoS6aQIPdoQZI
KUBQJErC8I8R5OFHvdfmBUYYigUZCegcdA48MlCT3xsxZvWDwMpCKSh485eKG4EOSC8OGJrTePO8
hxEsZFjeP1c85M6ObxTnPD202kqGDn43sMcdXFOUSBuWnmOVN5zKc2WRceUIhx69vdatsZJa38dD
caDtejPHoruHlKOJidS62myJWrkOTYAdG/eIGOgOCaht07urp5m+mOxN+81B0KcLKGrOjcXDAg2B
OlQPlfQhDQsDFQxCIvLtD+D/n/c/mcDGQ/V/C4/2f1QxLJKKD6s1vmBgP9Vtqif2i4GsI/uH9Wjr
Kc2pLS2kl0zOCiVgTTOpn/4wAPIDZxNTXggk/ziJ06E7shkH/SGC7I/1nDa6kNlga/sLGgAYn8pG
Ecf/oMsAHdxhCSGs0xmG9Dl2iWGEThhwUSwEDnOc2kC+gyBISEhH7E3LrsDwtvdsQLu8eUw4yYiq
rgHxh+I+byKaCF7456vC+X8nWvjyL6vWGl07C2EIQyE1L7E9JPOwdvpQvm7Cjanvv6jJ9p+Lf4bQ
9Wt+ljgQiyjhmcQ5hOKt46ZFuBbwzH6Phj5U1U9h0wKV6yw+Tk57IcBNgZbSEwTqE+8yM+bDaeL4
7t7mPctBs3jcuahO/pvHDp2mHEzHkDHtWDkoGBSFaJmbXOwOr4cTaHUFr8vIJjynNsTejlud43Ha
TkLvAOcNg8gLmGRKXAsZAYUJtyQumGKJBoUQMgsOvEeMkWQ0Q1bA0NZq1jiJEW+Q8TWWDY7B4mvb
2D4tW42G8dm8KFpXA3OrlCYcDdTkQDQw6NbgK4mUQ5NRgghmF9F3onQ5H0BhkBsac80TWpgdJ89g
NydBbFzOHRiRDcZiavzbdryBxcx3JWYGfMcQcVb2QUuadPBefkuVwzDADYl76zUGoHWajEDHhMdx
sWEkJvAzUuZP09mR4eK7jk2Gfjyd978B4mgbx44eEENGIhpwU7j+XXkcoYbxDnMJzGJr7klrAcHJ
N5mWV0p0HkXI7zjpoOhxRs49W10XsNtPLkD0a116deWvIx5dpYIBcTkNAxmO8cdq1iS9jlN5ZyTP
cG9v5rmhiOi2TUGKkpjGJhcCAF+BoCScccQA/fBiWC90V/1SWB7x/pUfoqviaW/utiCnV/YyjE/T
K+Rh5GnsUfM6ss1VVO2WHPaKWkLsm0+G4niS49lQ0noruqq/vX/oOoosfy2WkY2ys6EgyXBL05l3
MB5Tv9qfo/p5rlY5C7ErCMmKEMy8/zvG1MUWtLsr97qTSS0QkHqVlKXV/TtK0ZxIfa6h4hVB9CpN
pz7TWAiOR3ba398HWcIz/OfRReLHFyC5B69fh4FUnL7lvXLvuMmBNK3RXX6XAYiAghAg0VevlCLn
KzZ/5FXJszHiQg4j3x2wEQAQbnv4P8445GI9BSQ5GzQztURg68ndqhoLvDgtLswN1e1RyflZ6GUM
LBv0wUMQTvDLQ26vv8YhfI4paBKtt+ofNYduq0NO1G2CTOWULJkd4FtLAydcNQOazmkPf6VbzbP6
Jl6OLnfil3mLBUGtjPzA4QsAipMBM4h7lMLBaal3b8SrEWGqxNTdxJ8tYQu0JQp0e5kGDIA1wROM
g90P8mcoaCIlXuDMGRQkJKHTNWHmtMOBHExB6jIGKPPs7PM5w5ia8H9GfxWKB0amGVP/JhFuyeZM
fmQppAdwIfHm0xOyEUbP58gXTHqedgSC6BcL8xFwHmeLesA5QVIpV40eCjhWM4acuoNin+a1m4QB
1iCz1HsVUlBL2BakSmohqxCgxDRCNRSkb8O/IhE9GevHy2c8cfP83nzmjhEHUNNgqYMJqkxS8ZQd
QF5OPXkJAb4GJgCT6wC7mxj6d2gTTglhgZxEt0DmXIBBxhusLIIEcoM4fgdAFuygKp6d3w9xOR26
mkMtX299y5Pum0zG1BKEEwUiWEr1djk1u6sORS6HeLMiEGxwLoo+D3AVqJfqPXn3kMytNf6d5ycE
2FUrjLF17jZiLjDh9q0VusG8nk9GfXnGkOeQrLiy2hhu4dOeoVjGn1q5eDMFCg3dxEQlbUIEW+Go
cCAlIwB9g8iqMahUj4nn/0rCESoYZ6892RS5EcOEeQDzZixr35ccvBr+ucHzD8Dsf6T8TBbGbNdf
D1o3gTC+QvYOKJIJdIJdLo4QQqCqFIAiN1mVv87Owmsb/NfN4C7gm/ftQNjM5YBBI4tyadNFLxci
Ao8dfV3cc8WX5fotzfHyR6R62vE3eXnPahq4m9y1cbh0Hq8dHzIQSoXjCT0EZCMcoJ+6uJUHIFlb
4D7BcIglrLf5D84dWEgO67YK9mhJhCD7QgzneIWgvBJF8EogWCFGnwxMNg/ZG/sOXFnJWgCKTM5q
AP62DmRAu+1VrJ+wnwzRH836VA90F1f6lLRkknHmPdSAcLT24HINWsrDoFAlUbhYfVBlB70Hvlj8
fvs5wnvK+43I3HIIZdAwp2p9pSoWEnomCYBQLmE304ifz2Hc1FhqiqcRFvD2pEjJHCOY5mKzi3uC
ihZKV+GZtECKD0swFPrmcoewGjTYMFDmlqh6iusrq674VA34NB2c3KpuiG3dqym3Am7x81HuoOiJ
0Qd7ePfjx57frnPz5x7ekLS5KKqtJ9f6p0MZN7nhdzPLT5qtjWPjvSwiqd4YBQBJvFALQD/cKp4j
z6dk/S4fgeGXgdmbuBL1TjFN2ZlDmFvMkgUX7yRjbQePC+739H1NHwPl8hD5kQXcNGWGySXzOQeu
AargHRmay5Q53w1TpVwMFwlri84itkAcKHrNgPC7CIikwjGIBRk6xg1bCIU6jWeTS23Was01bt5d
DBMsLCZpqSYuAF2MwbDQTMQEiCcwDsAHNgNATNPUH8JTR0kNFQgYcJka2aqZsWLj+I0f4N+B/jAf
osIhqA5Gna9Ox7C0yBxNGQ7s8/fxtPZKck81dz0VSG6S4/EACItukSIh2GYNRKKoXA4AXIdwLhb/
4En7Z5dYZHLgY4WVTTmDgw0NUy2zIDMg/SWZnKayguOc1YX/pMYNniQMnRf9sgqNRrVlZkhrPSKd
yhCu2GUFFllNBE3iyJKOPHx9UPh8i6ikyCB6iqFkDlTFwL+uj36uvDCxgR2OfefZwF/ENJe/H49u
3IzbUHdHjt2WzyvmhwYqQ0YRf3cMXaLk0cTv0MSCGAbDSxO2Sb7Eo1WAmieoVMgCIIP7yPAY7TkO
E5pGbPEyA9m+dzJbUb7OFSoyqCIYWuoG2NE2EW3Ep35bAkTncnUHHKxLbNFzvtqJOQe/8ev9Mlh0
+rUWtjvANSiCJsxpm3k4JfdvIYGDaQxYs7GwrZocB5D8KRjw+hDR8Wg8Nf1M4JOiJGGcREEglhdw
idMTbNBeEgYZRbMyJYgIl+wRItQecGKBwG+CbiYggxIMPHxYUAvYR5QYLp2nyqjHFKAax/X8WDxe
/RtCW/gHJHQBQBrmGZkFAK3x3Eb7cBsBFbX7OuA0cC5/OH9CGQyECU7hZU+aC1gOwF0E4w54YCCr
zPbYSvZU6s5GNqz+BYEUGPmBHSyz/PWa5z7jrg4IeOjVPHObSjk1EtntwKfqs2T7YX1IHJtkYdbI
5OGRjE02Y4cZrt8ZOsx7LrApNmTE5LdrUYcpMPSZ+lHOmF62x3t0H4U9+AhvmHtGT/h4wN6k0EQX
ui+DD19qF+c0LhNKgk2QYI7oYeQwV7NamN5z9x4Zs4+AUVbFeSaQL6ym7A/RNu6+Rd3QwzpePhoc
Y7JrNC5Z4WOs0Ljea9hfkdhpzF0qBm+SjscA2c14EB9VkgpHAsrAKPR0pM0gGxlWS6wqoPppWQHR
44ph2tckQ2Nj+XyodkTvwvxycmbA5KmASHliI+/ujl9Um+cZAB2nyvMtAEhEVP26PqqhQIAgEY2e
gw47HFzdksAhQFACK9BlR0gAUnDQKLhAJoAsb4SENwQl+rC4nFRNFBJ+727s9tnwhQp5OdtefcgH
Id+Rl5p6tRzgeF2eu22QqIQDp7+4ZwbRHtaXRe3q+ddzQhoLaSDJlx2BVROr9G8EN0G7mxfYDYiB
oCowCgsOolDYbLHbQ/1isxtaYVGTs5ZZAKowKtXzRE98Zuz+DRM/ZFakIhCn/LlibVIffBjQ7Pdv
19hs4PGZ0w0NLSFIR8ydeQIfCGHC+QZ2MD2Pn7T6s5T02zyQM+4genFJuTuvg1OYg+vUPn9gvFEf
Q9rmeOxuqim6MbtFglVI2sqU25rlHXq25m54wtN/kwHPY1m9OS5mHtBQFn1lagWRBCBG6u6CKuEB
0HHW3G0QxCQFUokB4UgNAXCghCUItM1uGraOpqyB2UL47+d1Z2s9PnqWwdMRaxpinhl4+5oKMJHy
AExqcsalFshhDsJKGqAuSknUpleTEEaufPgx9dquSr45lMWi0mz589/oBz1y/FDZgs8KVC5IdxUp
DDO+C0gg2aUM+BWVE6DB2MBpYDyLoDYnQyPAw6GcFv4IzYu/aHAxb0MqMBpNZaL4FDhlRe2I3DUG
QaB2Ev8pA2Dg6tVnFTpxTAIJRNGFQMIDEUVD0JgtoyEfumiwTADMeUsNhzYOk3ZN9SZjQXW47lwF
zt+x7aXTDA6Cs0fb6S7N9C0UVFzyHdR0X3IPGa/WUbkwJDXk9mzc9ZkGso2YaHptZLJRAfqtWAJR
cqHKIJ8Dyl3yDQQu2Vk3L3DbE4IPm90hy9PTRnW/Xs0d2l5kHT8KcjD/W9eJ+mnr1h28waKTdmBY
YBF4/cDl14mvc4HrRj7ENeToXJzr6JEveNxveqnxQ8QPiA0XX6e1LGhgGKRLhCAc6ROGs0zhs2Gp
lpDqmsO0+1P8bAqvYCsFrfMIsRbWrZPo5WXLJLaqdLdZbwFrq92/BLECbCq8BXVoclg0+PzpYNy9
AnNrADaJgnZMTYVRLeJS3LihkW48gO47ANYQA5raBnsNIGgy+quRyyEuN+wx5dyGrFedoHPwRKTI
GCQknDWBa6b9lgpM+MBcaIewzuMXCzzQ92hcs09uOcwiCamqTVoLLjPL14DA46PaYv209Nag5Rau
BJHZfK+UgS+5QO9h3nF58dPzTen39DvYOkyIKpipcgeNYNAnkolIF1yQRyHXmNkH32nheYQJkYUd
ABjJ5wwESoEgnNQF/qkm6U3jzRgrFIKEwBAUKoOG0ndtRGIgOq2PQ7jOfNKLyM8Nxh+Xtxn5AlNf
mAZPkMlT8MFReT6cl+eQwzQvKITA9NncBJ0bM7KfIOg76PdOrt6F5CaCj6PLDU/LDhFHrG5D0kPf
PjuHG5BVKjxAxme5iInYFKiaBB0nvqvn4JOvA+v9I0IMeWzzvEM0jyBzrEMAyNwHKcZgTjVV1355
bmKdcWmVNRA1AJQNhAPUUoPb4SFAKgQUD7EVI6xbJoKF/N5Xlibnuc8D2TXwaemWYGIa5SMBi2NY
Ne5I2dp81Tz7mak467tj4M10ytKnQ0VCPv374XEQTYHnwpra+70Zr3/H2MlDcdGWx1RXyZbcsM4H
UnAbmKZ69V7QhUwhUSdXJlvIVR1WyPJt4bYEdVSqRxzHXAz3FPFkXZNJblq0DNcg7ca2yYBiY36I
XDjfytmlPeE9Nfx9recaiiZ2HxCcIO0nugj/SRaXUF5Eja5aUtCgDKQROA+4sAgj4nxMVx6cznGz
16X776i4aEKIQIwkNRqVw1m03h/cnslQyU44ADJUVP7kVMWQSIkSYoMDFyBWIQUiRVpBEpBmEFiF
EmBWI7P/b6+0Hd/3/2+3OQ4tn160agNkJlVAP9MZNANKqMKchnEmqhCIppD8JBk0xJQUJbzIqTnE
eINQxBO4IxMcn5h4jGgGf+9/7eJLxWaSHGBAs1I4pG3JJHHLiawhjhGsOVsunjgH+UTOf+siZu6M
G2MYxnPFr/6Mta6/7pl4RdGcBHf+7/xhph22R7MPDphikPO7RaPa7DRrWEKoTs8eta1rL/pwuae8
R/36zhLKVuq08eOTkIceEFUe+TzSLIMIPI95WPOjJTepYTndshA41Xq71miGOsdg2Qa3rV08Gxsk
TbabePTdl1b/ui2GobdDRlKdyK887MGcQzFNQ4ZuYUGGmZHtodV+wTNWB/6f+PgFUDytyaX/E4RB
cG3Sti4ewnLlFiFBCLrdTCoS23sYSQDQl2ojuxs41winHGXehV6zRXNhkN3RosivGLdbON7vBTKa
epdZk1HP9T1U84eDHRDaGNsw2SGnMNUZmsePiGtwi1YaCZa7SD0EI1kJ7g91ZY95I7sLdJmPiYVs
xhIMtfMlYSIkmE3kG9wz1r0b0a3rrXN3W3tvPcw4zVNSUkK925l7OKxOEL52sZYF8v5DExthUgWn
PRJb/2Hy/v+fPygQD2/d+j1/J6/WF9MH+H8BrAzNLff8f77fpts/L82//qIfrwH6FHD9H45b936Z
iqT/2/0f1b3rta/8/5vT+63Tbb+ukba5v/fqsZ9rNusl0ZPLFZ90KdgAgR6D2/9HSvhy/vP+tIX8
QiBL/nt/O/L+ZY9O//S9g/j0isf87N47eznfFPbZq39okvd351tHy85+lBGrf259Iabb16wfOa4t
CNJ/3eXd79v7+nOUgWUAfH0xjuqPJ6+av1foXW/T2iQ4CXkWLN3tsiJ4+XeHgpXFqX/3e+TbvGy3
CIgjXxyo9IIGhiFXnbMYwZXWaN3x7Sp6mfpzR6Q684uOkvf4bdY4MteUrX7RvTZvlZfj0AT2ewe3
x/zt6NJsV9Oa+32uylzhAiUCPvt30iEAQcUh5+HoX8/GEVW2c+M5Y3Tk+aU68clX1Hv6fPl5zM7y
ESEhCHuE5PHjtnKmXThwx8Nc3jv4fN19XWfRAnu+SDjjN4HM4xj4+r+7w297+quvpXYInqvXn5Pb
brLbt493LuiwOUQIAB5BB7IdyB9pa9PP47QhXPOn0Xnt6er8/D34v8POXFrwh7uku/0qPY7v7IKa
Qg+YO7sqrtgeewZodus7wj8RFZP4eQdxiLez239zzNZ+C7Qg2+knji2/Xr6W8r55ePn9Blice7lM
zh3YZc+e/0TB8pCiGPcK2ReU8viu9mqe/Fu4ADzwH57e33cvY3Vu+nfezS2xwBx6dggTFRTmq0fn
4O8/Z7ce/2bUpzasr8LHf3Rb3Nxx3r7efr3W5tHr7m88+nWvnetON/TtlUPiysqkqGhvCHy8M+70
n3+/u7usPNrdqAADOD17uO/py93G3bu1Hdufw8+QSgzbHnT1i7vOEB8QEGyDHr8QQj/C5/mLwKef
P8mB5LvMKaVJHlbtioOPbvZUBaHTviCi6l5yTGKqeCoJTokkglyIkjmtc7a3kW3WXTt0xUf9+RMa
VaXXG5261sjLcHJovyJVzCulCG5tGK13GyZLyLLy9rJQV3MQUaT2bIG0qVDNeqgp7UwEZgJyFQrI
MlY8xDqd07RjL2XMEVWI6HkOarDsbmSTIqkaJiQ5x9jC+GCBQe5U6hmoVT7sFStBYpSRURcyIyC8
TFAw5g4L0986NzjnW7bd9UhX3CoI0FciHHUjv0LkmblhRYFmYMGDDqq0cvo9F+B7e4h4mDZnFF6E
RqOMoTvU2HTDSIdMAWJIBBexDQFLQG7cCdoHtAdrVxHaVrANNByxRrUtAt5ogwTSK1tpBuXZFKnM
PeS1gFLu3d4TjnE6k7y+WsEKM8eNKc+OufHABuRSCQKEoaOpG6zmDUmSjzCcS8wm4KMaSxoOnrZq
i4vOsOuYCMYdmiMY1WjIe5AZIZI5rB3LuaNSHYl6hQ4gIly7w95A7ZiHY4xe8BqA3CanmNyuodwG
p1IFPMJkdtYHEgdpPFuU6lO8upDJChXi7F1OQcSuQd57wbgpE7SHeTiEyF7ypzAdusXIQ3BTuQeO
cNyXGcyL4IXLvCU14g8S+JdQG5U3BzIca7aU8QHMp1B3lclpiU57YcQBuGgsDSZgLLAAlg0ggTzl
0nq403T4Bx5zwcUU2Yp3g56wyQ4lepO8ZD4k8Q0iczlzAGpO0icRokiTm1AnHRvetS8VNobRpgaY
RpBWBriJDanjE1dp3IcSUlAneeTrXjNbU7wdsx6hdQneTmEOJfHWOQHeFON4hmZXU63i+CV1PaBN
98TtPUOoDqNydi7ycSOoHiV3276B5utYZA0Cd5dyGQ0lB2kXJN3bx25OMN9ddIeIdw94DUu5OOcX
vPUCcwdSmQdoApSk4h8T36wHsW8waB6zEd6xXUagHqAznHmHmBoSzO0OrUAc98QNyKPrIq0i5AS0
zTXZi0xK8RcNIRrqB2aRgwr7NcsS4sEuOeuGbzSEA+eChveJEh1dSu5ds9pDvAdQ9/GLc43bF4gT
mA5kQ7QdpTfjAVyDtBqNz2lDvIdpeoAKOIKB4h4hO0BzcyHeFKO5G+++Ngid5ObtCdSGT3kCuIXU
nfviHUtL2k7QB4gO8HeTqaTiDUFAd5HtL26xU1B2jqMgyF5u8GWiDtak4gOusDUvUPiQepAyDVqr
x1hQnUOiNSHiFzWZIGu+C5xgOpPED4gae0eJ3DkpQHXHXOzneIp33jSmQV4uCR727RJ4geZyFHmQ
oUMjiB7QHaR4IHIOJE8Qm4CgTUG5TU9pTt4wA3PaEOSRaE3DqAPHjAy7yh4tx2lHtPaDiXmA1Kdo
DntiHUpQG94nVzA94paUpDccyag4kYhoWgKQ6tSdSvU7gKF7R2gfBLT3lpF8yH2pCHmvMxA9yTJe
0GQEQ2eNAbUjcTOSZHEWR5R6MLzf3y07MTJDdkBHOGS9oDID/qkQbTYNtbilSaRCOUnpf/OZmyLc
4pga0TwKrF/70RiiNUE0MPHAvhO/jlbRcNY0MHiejce5D5MhGZmJmFjYzwJM2oVqZf46fbpyhJTp
IrwGOPdVzjTdq3vVsAMLaKbphQDcOx1ERGTMiRIkTyuOrv3ZDeOwSMZNQSTkKUo2UGZbJmlbeDsG
2JvNg2Q2O90htQwwE8kIfI4TsbnoIl6NwcqwzGHBNpLhoAYw8I8pDMN1+3yzsh5283oFDsv6KmPZ
oiE3C26Z2XliCHgThR2HSiYqYd9mUJTkvmCcUS4ytaUDSIoaQqYYNBzh2S4TfE06/zuOJwhgB4Bt
Li1fnnsipKaSA/N0sDD+4X8m3nl3t6nfk09NzuIevJorDjuj232ew2nyJXaCsAxCPYgO9baY7Mi8
whmDZKDKAh4LG7y+nbjhFhmgxBEDOUPCkVO+LwYLF5xIN/F6fl9IOE2dPvHcSLKBFsyDchL5fvrv
s+J9DOxzsBDBkSB8Pn2wKLy4e0g/UOUaIBgDAA3owNK31NctMapssss0P2b3tvSpUX3ZpbfEIJ7w
rUFEwBIe7gfFrmROGZjBRYGhcQorJF2UxYEWYEo/Ru+zr7Nvu1UibqzEyMyCMaCY3CxOuEtiKajR
MRygGrHQxNHnCFEHKBUVVmEZHvxpQwSQVfZoXEB2i+AZB48YJl388c5MDUEYLqOFAgUNqSpSvUhh
AjIkiOSAYyiEyKkTAm8FB3pR4GUE6IoDyQhXRwvJpHXrvSScYhwQukWGUEoWBoCUDBlwhRA5wEwV
OmETCcCcWVhsJVDAMHA2GhfkkPlleRJYGVHbIBiqrmctFXYi5+/H4/Ivk0eHD5XjvueHH9nM8t2P
J5Qb2c+43oHkIyFTxIYsPpCmIxAtFtqBdm3Xg5OrVYTXEbwNIlQ0oQ0Yaaa7BoTjmnEiphFbiclC
0JY34IPrSEdbjDqIiEemd/aYaXkiNiDIJIu956MgvKuc1PWLhC3u330O0FKKIIvGeXbjz93Tyz2D
0NAOghFpEYJU2UIpQIQQEJ0QNMEiJFlDbRs+Y7MX3quw2XbBJzkaha+0NQxHOhLMZtbVBN6VQfii
D5oEFJiZ666fzRMBp9/IoZKcdIYNd4FjU+ERE3UMlWpsiMrVWAVmbGq9Crd0SXuKl7BDQiiGo+dS
CvCZrDLSwny6iEbDCMaExJgwMpSqiJZE2wbPHWlCSw6tXWJq2cB2G/EBkEgQEFwhhBgsPPd9xau4
0LSuBd99hPJ4YWiT1GzswNhgEMgEQkRG1E6dCXGFG+CfL1OO3VbDb6YKXdDVqrjfD0GFBNDTUmvL
ACc3DdomlqQXmmyVPhafJGHwCwYez5u3GJMA2P3zxVEMQOEAJIgCd4Y6Yaq76qo1w0dYe+rWEXpi
MYX2vvtMUv4hmrPd+uRMCI8eE5uXq1TNO0cvjZgOVlYNlYnmYEHFKVlwDlWwoncMCL3QcoZuA6Gn
WNJAhacFh2W9LEDzzj69IfN7d9b5q5KoJLpgYaQxE+Gta6kAYM2G9d1JaAV9geGusAAzgHN4zWAO
Bu0APhAFdfL+qf4OTz1jg3LALywYbIixAkRQms+H2hFEgkX4DAaAzhBAAxZEANp+b7mmJPdL17O1
AgSSZW2ZAzoKyjeWeUtWtLNc7afh4zxWUbRtXT0oJXte++9Z78wg77CYGsrRBsAWg5WAUwLOr3RY
YOE3rsjp2yzdUbtXZqCEa3YhW2vVPm6QZ2gJuluYTAlCySwBH0Ewmw3umr8QgGgg72B7+GcbCOAO
w8ZXzZYSR68DNEAOND8gaFTyB7USWHfXJiuc6OR+OOejg4PARJCJIAwFPxSCOEJgAsGHTm3SO9ZM
Ltjd4DXGKwR4xRL74dsbUlioFeMQQDVHxye8c45BeN2iu7wbaN5Tz4rR1U/IyyPhA76ffKavPcxP
l3bZtyCaqi27VAkGSMlyMhaMF0z2U7y1i5exDXgB0iDgeZTjOkHIJiDlaBRBgthiOgLpbVkUCEkC
CQkAKIqBuIwQazWyTmsgwcjO1dtYAoiPlJoQBhwoR9gyebU1tDfRCUFgt3xu0VyUDLODqSKSoBmV
52lQBLQ44e4K8rgC2IMhRAto6ebETgEEHzLlg0okanVXQMdG70fFBa77oRSlEARBtqmUQBTW7TCt
C7PnfNcbYR3xV7b42lDW5xGbm6t9QE8I8cCYq67mbO1I8EGauUjFt3gUg+qLIiiKsVGAmbqsBMlK
9GTsHVkgsCxsJpFcHEbjkFnNDHDlMUXMxCPLoDbMifRvthz7K3M7bxoHQYEUAWbwkDzdMCZZiOqc
eNcIK0ms3goK684ZqENlSzXfrbSQ9KWpeVo6CMBcuqpxk7zZsQRdNb8AGhypZhXfay6akdsanDVg
u6rCjvEypQShzbVYSLSnRsSzLfuAHvH9Q6DAdEe/qx50T6qXCStG46QfFJQqaqPFB5pZp0lmskYw
IKq4qjJUaEdFkAlmxgEzYCmYJDdkOGG6EB6u9ZvPze7NY3MYUWnUmQLMUFmA5CFqJEchbExW0g0W
Wj3IOeLSjGmDzREYUpSqBBVGCitxkHag0lcOoQSxmKCoEEAYwmIacuGf7kG+W6QvbW3kEkJpTN7N
xYyq+TLiok0mduDFsbt2GzQ3rhqXG2p8ovOKlTlaUnoTJ89li3rEkvKFvT1Tqy+T2Yw7cRtlntDK
s4sTy+xKo4XkA0DAqQRQ0QKQYIki6DUzUGwM1WWj5LgWzKGAnzDzdDvfj98SElrA8ti9p9aE8HFQ
dgwSEBPYS+HmGhdge5zC7jLIKCOZGXpOn3hIgBhaUESmGfe1hNKHDrPFqDD3v1l3g4/3MBSN7gdm
58VHKv+E+Tm54Lye8Q8Qgfluu+Z06VAs20VGYhpewIKRG55GyDYqZLllI+IBOu3UZcxlzHp5kthB
D0MyBV1DuK3MwCKxQVSG1t69h4yMFE1UjKjSAgACIEwC+dtWppNAzdDLbDMMgOW2DmJUXWmKg3Wh
hVYDYgBvyKmZsM4ZNWUBNZrzk14WsCztXuIOi0GwBq5WUblgMIGaw2VA8j9w4OUthSgQFtsiNhAY
AwwYCebZi7JLLgvCEW7LfJYxPv8det7npTN988D1cT67N4rrvt41b6nH9V3W3w11WGE7x6OTht0F
EXUAEUBIhFiAwKQKp9LwUFPz4YQQ8yZzjkARLQnnCr/XC6Gj8A9uMGl3AEABCICCiRIVH1ypHhoO
3hTm89zDtzj1V6W6r2ke09PXMKa1XEsnE3raEIzt0rYxMaBsWnFdmnYWjOZjCcr0ljGvAC8xs+0/
cEtTiB4bZaC3F9ts3lUpvi02uYr+5Yr6jF1I6dZ9jI515v6freLm3fq/ZWzr3O5nFhHMbUzaMnkM
bBNmAhl6Yns9KiJu1XoF+9PQIJ33hxfiGA3J34XflwrQou8r32jUOMzlI1pKWP+wWpO4jSEKrFrr
g6fVgPfNB8koVoa4K43cWZ3t02k8BwvSM8S4pR+IUtCQhEXvnhp5Zrcq0vjZo2tmDkzE0CK+dp3G
IOvKdHEIbvNC0OEzAwhvtUexZGPKt9qY5QlQuNys5KH5avy25LecGePoCiGSkjkUyXIIjtl77yxn
L5XU6PZ1O7bSpGVZtVXjKO1cl6V3NuUArzjegJy93vBggyianO+bfiEQckAlaO987PeUrPl75uIP
tGr2DSjoWraUaOY7wscWWFNEYtSms9BaNNZ4dTts0GtK4guaaZbQ5eN6xtuVbDFwQNwNhwBgInYE
OtTr8RMR6mfDM9JD5DwDyr8DkDw+qHQHMcuWa8xrFeXUHjHMORNwr0Zj1PYsYOQogeC+9BTnXm5U
XcFvUPrAsdInbs83gsHlNS9gbR9inhOdcucNT4XieRDzj2BvuOehwPIE8BY/jb+dmA8BgxCr+m/p
dyo9qVa/g6s1dGqmqrIupFybiP4br5VzlVSgWplUHlycv+DYlZDIsxi1lUcQ8x3s7YAUnUrkG7UP
MBuVrW8TtKmQcVPbnENS7iubVR4bedZjyRkELTNtLuJCN8QADTrAffvrvHEiPEpkgDknMhkFAUKN
ADSgNBkqAZKmpRe8CAakAyQDmFBpENQIDSiJxvAwaAQkxgYwx4zvwZu8d9j7yycazeWOGoJ5oUmh
czBMzj7CZ6tw+1mYavbdXXHMAG0wwENlJhwsM5LjRKA4aIjE2swINsOXjK2PlgIjpCcM4t0Zyb7P
nDiw6fLhiiWSCe2RvrWSpxzQw0n1shU1JVpESYM3jtllEthhqQGEM3C3CMIILHiaO9TSdoe0trOJ
rIyPEYTEclNKAIKdAlAjlICMqo0hASbdbS3kOJDAnhRAwjha9pF6BK08hmUl3ZHCGEEHGs7EdTd7
C5sCiMweZ4ncVQGXicmYVTQ11wteWNhrLB9FZDPxMJLABW4cyQfOVaenYRI0PLCMDO0FtgCZOpwW
ykgoGfXxBppnqB/4L+JaGxlBfulYFgQQCxAce9334h+/A9zXp3GHKyQ6f2NS4Jd45QgwJMzT85Gq
nJkHmXpATxbACSWcojTfKV7yXk5NVemckc3bHOXs6N5jya5eHmVGq0MNQ+XnMe7fHbTjiKjKiFxz
ti8jKd54JIqkqriMRyJx4GBFypVm8HJeHSuCtmaCcGJ1VpojhGc4UQTmxu3lqcx5Mzkvd3op90xe
ySn2o3FExTrZrCcmuOhzImpxYQDWubCsnkuhtO4GWHhVsjQtfSMuONEXwPDl6jIiDMoviuazA5uF
JvcK3VlPBmYfBfA6qhcp5fTd2BQ2RDIxlKkpL8dy+YKqHqN5a01j1MbaojEIo85InKmCMfVsXNC7
vS8xfICsa6lLMBq8OxUbFrhGudqztzwNzikOI5Mh4SGl9HHt5Fg3hBXHc6LBBXLQqCLYvzeRAgk8
48WU9Zy0IVvOu4lUwC1jQDYJcYBP5BVJJPyK9l5fNB7mghDAhFCFDPjkeQ4bKsS4CguAOHZlBIkk
/x2/5WI6a/5nWWw7+f+zg4OMj81kFMRVSxHsvE+p4FNQig4OezRsqR6sSW/s+05vXFYbEoxcMxiw
PdqZ6QcDNqvPipIfEB2/tp3awnFBcObYaHA2puSJEh0g6hzb3pgEiUlYsJOeVpusTiYuTlVa86EL
CBr+fOvht9lhSxQbiinkHkhGA8hsbByuV0qjMWFAqM2TSBBoCHwa2C+YsCrg2cBzyAv4w7fk57Fs
6MtWqjV1TBQNsbwtGoloOEqIfRirRWNpUZVfXF6777duuLguntihyxnBeAf4xc2KDY9aMFu/SUyr
iXvl4nRoW8pxR4+2Ip24aevlobrkhJFGo7WChX1TRCroufctn/rUiPjcP5zoiUX+uC0tgHVcFgeq
zRE1xMA2DBWrkTahkY2dbHA6psL/V9qMCgZ8fR7hpB0SeOBB3BAWMYYLIkzIKk44AJgyrkir59eG
rfiZMmUWI00uSsaith0s2FK12XtiNcihAYkdAMQcgzSzaMaNMhwoboMQce3BQWkw4EwDZYIaGgg0
KTjZhFIp55hLAL7zfjbtQ7nrmiOwQhkHHAhgunme9ds1QIbBMgXrDNa0kl3AwqP5HpA+7XZmhkZn
tEet6ouk0vbkpYJYyryjUrGxnw2US7IEEDbERhpt4SC85DAXMFEvkbPnnjcBsPeRL37fTDnQdpBj
5dRUgOS0Kd0MhSHOCoVpeGjjrvxoQdjYfHqdjpLtvIIwIq6m36Z151cGn49+eDSjR7uHXjvhcBtE
cSQgPVVa+HeB7Mzxxt9dvb0uSMNaig0/eiMJnDLADS0I5odyK0m2DvSMVhlecTRxGWt+DCcOOcUA
ELPDdmlF0QDIyshZRgttaQAFRwomUChed+7W4e0094NSdcYPE9Qcee9kbmksJipZgImFID9ZUyGT
0hdUCK4whSrhCqkiFZ0nhziGIEESAPwQ3B0QLAZ2FFpC1FJykoUwE5taOhcIrljQCatdAHBBt8yy
LyGEC3gmoqPCogd7HW59+KHmGx2BHlzhoKEPIYNNqKUIh9hj7vGJtC50GgeXZgMwniMCBLmc1CnU
FENICSCohgo2xLyteNfH588nPoG4NgcuV+2UAwaQkHg0QvaL0d9FBDNBPQHEzCKwILoN1VJjABBD
ASWZhfmQHAbaekzbex9z7P4U9jBPg9CRNtsvW7ExXjFqGWqSvfi0rFoNRqmFtkuCpQkwnLuBDEVA
whKBRpBAChECCMBZR2YQTZUuKaYByj142MOBEAYqoSqqyYCoKC62U488CoHwF1eDF3ZwMXs/fsiL
u+UOMXhx19gcMA+NWYgjEGhHtTxrrMqGn1tBBzB3I648G9ocBLUBd8VMMRRCg2tlS1c9vV2MrQPv
54OHpKIGAyRMygKogLSckNUTQjw146cOOzYYGa7Kh70R37TSNbqKkUXe1I+MF25PjfkNA+mlzx+K
Wa65iCNL3ZbB92FQwqaOgJE1zVLoU4ZSQRDUmYX541fZWHD8nm2uYTasI2ggo2JLWpldp7R/NAOY
AogQbJaGOS9UggQRvfjaBgoPXmixg2l2aBfFhuxHLXFF4X0WMSva73vVlTrgIbId2DEqqeiCaNXY
c0HKAiIqLjqJyko1xRYYqy83rDU8ncta0wtJd640tk3FwcanInifK7FN+Q4OGjhI7MGnLCJcT1oT
gZChWJDyDZqlE0RHUipjqDCRI6A60OyUP1GYlcEe/WKmmQNLUtkko4U0gVfmmrB0xChNcWgwnGTU
gAntPhnxh28GI4eftzbvosJChexsxfdC7J9Lq0SnAJBjhiD8PC7aRmlBPVqaXZqeSIXjmYjjlFEu
NTQwxoS2ysBeBA4RESDxRaEcgQwuZ9CUONcfp4+bjDjWQQmHntOYZDpBoAbLcYkNwEEKcjbToszI
UTljjqoOHQbNgX4Q8Ns92KDV6DRTrcDwcChtECJTcGw+DDaRv48TjVabbGKP9bKljUxunOEVQYGx
MKEmN4Aa2BdAQ6g9qyYpXj1xoxrSaE4+WMsMnzZhiTBMRIpCVh3h4qB37PT4bXd0FhAWDQdzTORI
aCYiIhBcQxgy/GrliPl8lF7b8VdkUiUS/coxjNlDWEEd4QA2l2qPtYb4DwzKTKMkZsoz56LkDfF3
Q58cBLThnSAlA5QVKCprCW+TWE6BtQXrGEOma6Vrur9WkI4Z4CMzsc1wHvme8MYjg3xCUrLC0cvD
L0iXm4mTRo3ljNdYs871XOJMJaqM0naU2pirBYZzWMo2o8aevMr0hnirT8fyS/j1V6+dDg8Ry73i
9WIvL8zW1XD3vG+b3jex1qspTpK1NWEnpNpSWhvWWaQUWzcPOGl1iuW1arTrqDahiFpnV4yxpoQt
bFIWhd30pbVMRkWnhaQxGK1wwe0npLUrZXDVzmWqavFmjPRhGKxF8mUMtfUJxu+MiLaIzeD2eGHh
PEDeuNYpTFaE0vW12y6mlYvaEnwo0I3jqkRO0tQlma2jWyy1aso3vrAOqTzZ4ZjN1jCdFMnoai5h
K1rimlJo1xCtJVWbY0MYiZ2zrVrSdmpFY4zOYw8LWjoyw4WWWvLZ8vvh+ulF+vTzsun5fRXXR9PP
MyeTPnlVN+XrrsHDTbOctG+iWtaldEVkxnKwnDIiWo05zzLVbWvHe1Vz29rYR0P2aT9c8TI9VyfX
nY6Fdc2COvBu7Pn2AAY51LwvT4cVb4zTfXqfzTRc6PPqeqieS3/eEehfmPhz77fvv19Ba3UMvABT
XHxwjUe5FzWe+DiR9ZoaSjq3Id42bejx6ZwalFhKwFm2Qg1UhWhVvDyAtsPxm3m7CfacbuQBj7A1
7oF+TyZwRrRZbkPwJjDOGQDwvgO3y8h1IXIZgtonSD9jhgDfM0QwCHNLoFygk2rZpIZy/L0S3Dhn
sNNcCMb9n3QM5EhsQeJoCgu0PW9b+k9HvsXCF1igtJ9mGqGHSTPhzwcJENQ2mwbRsGxkQIOQ2vCz
rXgLAwnOke28fvD2a7k1458K5+jFdsCbqTCFuYoN9BTbk9i1YkFwGvjV7epNaWvrPf3+RT574V6Y
2k30iEDZIjzC84kdnHHO5TAmdVETGJtgOrPmrhoYMBQGKZzXsKHbE0BYjWrTdpIoIGA6QR5GL4sN
cQFtrGHprXr1Lj6YdNHL4a5aSKBXVLd9pCmsi3J2i3XaDmU89erLsKD8gjThyU8xT26+FaTvAe8U
9zVrjHIH3WiHthi+0hEkFIS6f0rQhjEXQcuwiig3DRm0T8d5kmmTu8ROB8iyX61OhmRwBGXIOdgh
gRU6C4vms56CLInN59mm18WYu8DoQ0NcA0mm8K4zfDF6Msr3hNHHoBREtW8yN+/NswfMjPJytjK1
p68rD3SYFGtjRafHjNBco5efXvLuGMpaqjMGGtIuMcFAjsicustB2asE1Qcza0kHGnfBZw0Hhxw3
6qN0ohqGcZN3GxhDGGoIOc3QNZr3l8MBMiZjE5EaomNPMhhrxbpk7dw2HQhgb+sMEuPHFSUKqQUN
1xwqJZ1RyEpLbm6QdUJ1RwgZOVlVkNnvF0z2a92uflfXOl4cTOzneWw9NLQhlOipyIyd9pwdKlEB
aDIlyAla1bLsovnVIjfnAbTvisTDFWWO0bNL2gDwFUkb14bdLlETHCpFliC0kCnPyYDQQMLSSctM
518Bhgv4fBVCENpkR0pAxBh0XOdSzi6cCuoe5mLtXbu8hTkOhmEg2LrVkaKVJuDiKkcRLBwObQ/G
iSBm7eTogY8kQwGqQ2M0AaCzCBobjsGcmsqgZNBxApG9c+FRhBzmZrp4abeTbhuFjDtGgqDrvi4O
SB58B8cIC5+myNB2cGT6NI8I5w4GYAdLN532oHApGy9+fP09vfhwiycI7R167amYzqahRagyR5Tb
vxwhlKeU6HJXNzvaLN9um8YwClhrIFg3tCiOM7OHEnCyBALeUjBHQP0wBbkpX7+slqIaSekB9kOA
U0RcXqyCBQuVJWyBB2o43vlhNc63tSQMdQFGoy7Xe1EcYGu+HE+66h6qeY5POU24IQUzfoIdKjkY
XXL7bQ1ybkuyIXKrG3GJNEbbaeEmAulpq6nSU3RANiDBxZ4kISjkIoKAymws4BDAqwEK9V4qhdPq
3k8ZyOGp2i8OSHLcI5MOZMNcyKAl+OLiLh50XpOztEl7lTVpgElVRzgZ9SDFyE2DlWezmNRkOqEa
MGp2Iwfyk6T35hXwLEI7FR6DpZ8Z30sLAjOBhEjhkM+URaB7ocBdhYNC3iXw5Z6vBwLXnuXyjU7H
GVdwaR2OSBb1TltpsX2dpgtzu6DNny+IED59otHszrXg9p1wbPZxirDTFWI+DQTIJT1FDXK8YiwI
mQ4NyLsqDCBEtK4ncLFLkkCxHUEC5BuhxnNly2ahCBujsiFbOGmOG2FRNpA1xD8pMMkjHduILLGz
H1nJPTee/07e68j0htykvNWOto8O1dnhm8JLjYw21qsvMfrCNJJmnRByQLWu9exzfUxj3lCPbFjT
a+DWrEfYzWRcSGxfdw0QmlCpgjDIDLzD23JiYzNQka0HKWRoLITybLTO2Jm3xYZoFgSJQ/VUwdh6
7rgYkuxgg7hCnd8o12iBs8jCqCnDC/TBWr0ENceNJLrXnhFND+mg4Zz3CVxjZ5QdgFNfKLe/lmcH
26IH0zkPgaS1d66ZXB6QjPdLiYaZ4YevEDTDsIZ31l7d/NDsOvnUOz+XHGhgZjKwLJ9j7ujDB+Wg
nDid6xc3UYWhr3jyatXNkht3lOGdaQdskvUoKsHLtHaJlWPGXHjTmHNusZwNUC0kdcZAqeZYoIkQ
uoc6ITYpo6NsuyUIrJUiYHcYXlxHG8E4IF3ChHKBiBwBlm58ujy2etudTw+JEU2pZ70rOBiznk29
1WjAzMIPbPOQ8e4cS4li7kO+YgIjNa9rMk8QIxsPiwjK4/i0bZLE+uIyuHmct4mUOEBEVsxaAUoC
qh2hM7o04fFT5eRKvCEcC4IuMeLO6IVg8TIMkeDE0DowykCRNWcpZoZWsLz05w1GO+xrEwWaF143
/SHnYvLDqEXIk0eTsLtdCI0uwdqrhgXa/jO2ltpeu8DtYHbSRPk16sPde/t88nPv5MBctHsazW9N
9MpRePswxi6xkUT+E91wgpnfh8t5F6x0CeuG6PC9rsbPE0naNDXaJcBTMD3DeAe+13wzzItv0efb
ziPPDUJrsu+1JllQ1OjbyarrqIyBM6NkNIBpAPUJpmwaJIKMj9n4ax852zfbYFGih7KdiqMh3jil
NoZNdRW24zXaa2pp9NS9J7RtLNqztlM7ta7TqraAZaQqJTphE0m4nvtSa7mZCSQBlZrPemMuSNNj
Y8kyRtpsDszdhteh2Dl3UiiwSCjvTMEC+VMyILaXMQsxYTQ495NCATeHm8xEEAgcIZplhLDgDhda
zMpoxIHsbEHncou5EIPAzOokRgctDaCmYwQ1cmrhkGcEgmIuodta763Q4b64ceODzz3p6DYo2l4R
ZAeHPlVYwY1yM2MskckaCHRbQcVKMOGqnKr7MtLYxHjmtmw4BQ45SN1bYMfT54LVj3kXdmDe5Fon
vc0ZHwwg4M0bB7ODKNBcS3x1o72aQ1/XHcgLpAYR0bjA4DcxSWAJACIG7TBEiYkCJRnXcoMElIQV
SETNlkdQVAP2z43FsqMafjDR34rw2oNrk98ZhGuOV7NCt8QsJN1Ht5e/aVkHv7VGCtYYnXgnVC3f
w2LrRWZmaCic1pTUVrWb9mKRR6cU/gXwdYnd1gUMyAFAKAEoShQwvtwvh27/BOoj3RGF6K0unjef
je36QjxxOPl5VQZmKpSlIwthpTXJrrW1M3ocNTSli7Ziz25vb1jLNJ7WzTNmnSDrtKcHENp0pHae
H+AlGH6orEcrZGGpiBENuWyzbFdpNiivScYti1OHjOzVlPMZCVrykslM2wz4Wq8PfCzWPqlda0JM
qva3KVrWk7723GYBoPLcWWE4TFvFH4ExkWs03Zlgw222zqEs52i+Vtfb3BG5UpOopB7Le0s50HO8
t8TfOy735BJvtvO62vvYZfgeICRH3ptEoQQQIvTL8+YlbkuFQ8noy2V9hRpQup2KIkweeOHnW4st
OU2pg0nPWYx07yrk62eD5tg4aOrXEJXjaA0iFCNRtfyi2fiBPN7wbBASlQkIOsK202ojPEcEThrN
5YjSm8g0zPfD2Fa8avt859cRnvCtMjPEhrWzQtes5bmPRBWDLOAaVb0FWtvPkrylVxY6telJHa2z
Rp3IPLuHsDADoBO3bdeVr9OnFGlJgx1BZuVhv9a9OsYUEDzNK5GJTlGFcxEosIVwuaQrW84t0tSl
1wFgOsuEAdYy4i7Sz+pPDQYdAAcUOTCCvgExLgUD2nepqO3TwKdWw1PFQK4d2/Tq8CCHInsDpCRy
SBg5bh8XAiG9MCId/d2czYecW4Uu/JTmfQdSJyPYQdUfObvaajwAWHsA5B8CehLvOD4t/RvHrALF
pg/Tv8iG7m8b4tPB1Im0NSFudOxXrO8nio1bOmteVbOrOXwWii6kZIcQYDvdwcxCXxv2VAkqHD48
7F7erZG191jujCRSAfETl47EhAkEEswRSgp7XaaLrKpwiqK1dPbM5wN647aPJQN3N4jZ23oDUrwQ
BkgUoUJSF+/grqV4lNhBQlGoEyUJDMGlJiQGcEMGYXic90+qXAs51L97t3OzCFF+GDnLgkQVj81c
fOYeWLaiNIMJqnIUNNFNJqFwidM00NwgQYohDhgYgg2JgTeY7DAWW7yZZLnBkqHKGwJLpWblB1wH
LmSCaLOSMGxDDCBNKSIFINKUlgg+bABI0s0tMpwKO5Awh+S5lMi2pJ9uAJJzEwchHDJBLQeEIiLQ
cnZh1D8QJaDUVpcqJpCbV7zkbodONIAh1JywnLESuKXFcUGFx7NlouHkNCIOQmEPu3OTjF1GjGoc
75wNbZvJl67U1zxaxbjQ3uCJlr3J6TQYIwNS0rmixLAkjtBIEAFxs7vgvHXTqiOj34oOqc5uDXG1
WTCx3rah41J4d8rRt3VAYpRi6Nlw5FkETa0OtlQJCdFGcd1DwYrNwEh8lg1XJ15eblziEHRAiKE2
ru9FVKQeNkSXVVGzaL3ezFuHqrMTdVMpTMSCJrQiYVuokRBbJoUZlE0JgKDoIp7WE3FaptnFTINS
+CapTRshIvl3D6VMC6WYhESygxEh6F1NIud1sM4NZ7kqZGWcnJgthpnzZk2qglWnihDhbQ3Nu3kS
RByaOiRVpxId6MrRKx5raq6VzcXG5haLmoL0MOXAxDEURMQlSrVd5sBzYyrbaUO+y9aLfVl1KiGs
nYUReGmuZfBFwpMwLncO3eKC9294rp71rE3sa4OW8vBiTtAm4LxQh9s2EDNxOyN2cWGDVY9KHMgF
2xRBl81VkkPApy+VFbTkQgJai2vZuLDxU27iZNYo1SoeDhvLITUKik4c/djOivIKpJ7uv7Jh4Qb5
Ov4t5mXfGc1CidgyIyM6QvVt/Mc9JxlQtLEqScvTexdZJyPz66YdVsZx62YuBB2/G+JP9uDmvGAM
ioHPr1QNXJ2kI3Rxth9b8/n9tCMz7/6jnnw+xCnA0u/a8N0umSHXoFrMAN4NVIpHp3bzsnJbbbA1
a9Jo0whhybbAXBD4eI2wPQQ7e3WUGoatU2nNcOaAhgxmA0LhZwApVsN7Ad5TgXRp2JtTQcDosYGp
eueFkicWxPRQUB09MIU1byPV2yn1y/oq0NTvOMJw57ebkmKmJemoVIYUfIxzBtokgMEfE/I639ug
/HqB0PrO+1edaL6RRcWiSDXBKiUiXx9rkPYmnrMkqgzBoGVASAyIYl7Rze+OlVngCXtCPrtsSBoG
mwdTlC5EoP/5XymHg3JtTUYx+egq+4qrwhHiCpICINqikTApJ97IAQIKCKLzO7KO5O/1njwaDhNc
c0hUbABJ7ZiAq7VhQl50mkXRCIHvFECQAff5PAuxEpQpUOB9NI6R0SGJChSPKJnu0+3S55l6OgxC
GBOjQWtUIYip4ONq7IIAIhiUIqUiiUHng33H09p9WvY9zOutZLBrDuoVEETDJDBJCMkAzDBCwQtI
kx+fEwEoQhgCUIVJgUghRiQJhCCRlCFZlImIQiFSJmBIhZPZiKYhIykiwwMkJCISAMy2pcFYMIwQ
pSMjAGSRJcnBYYoFioJMrBAxzEwzWgdaicVxCYIFmGgKVYIUpQyxZBbKsAiWyowYgiBlJmFIMsEB
gghhAghgZAgIUiWAhYJJkbDADBZWBlHMwQOD2SaIQn8vfNASDYr59tYNJps7xEDCCUPZL5SmT3aN
wvCsIWT0Tjtu4DHXGoPGUSGrmtabgM0M7HZyDNYHDbrxTVHfKFNVb8bJrvcGGG9TO+Tu/XnjoNrb
R2EcJLQLIFlAgvfvs+DLjOJStSZIGrxZHQGWtRZwIEBgUU7KMslSGIIKAG4ABSoQFAkoQ3ttGUPj
Su+2D9wThdcGEt3j5IEhR8+LcWcRp0HoPeBMCOZ2oqI/CQ3K8lhB0FwkWLu4Flh2cIkmTgIQf8S8
/k0zXCauTIg4mmM5ygI2w6mmsl0pKPIdHiMUOadB7+O3jnbDc4guzoDuduTH49GmqJCT6cqiok83
134RhZVAJGQEZTmOHshcoIbz0Tkc1fDzxfQgLiA7gKAFk7h3QgdJOiYt3DEtV2QTAsOmZB+FEBd5
uIZpTMfSiXDjgUDQTMyNEwRpL3B3EF6PEMkQAdwiCl0vZs7XVZM9HquOuZRtKF+IYtgTWceHjhWz
i1pNKVewTnwMAgCaqdgirk8I5JgGZdxAhTTtLJjY1qBI5UcRNjv5sMHNikJBzqgoGBx1bc8NHE1K
Z8b78AusaoqKYYowRFyeWyjOGraE5qFKFMAABVIJSxFbAeqlrQQ7b8lNPmEDl7ZQH1cxcjBHVOXK
1UiASCDIoEEwigWZEdt1RSKmstPddm0tnGd2tGmsHhY7zrGUqYhwIdoAKiJQcIV2svgE5AL17c83
xJzl4DhykSg0dhns0Y40t3i2yGD1cUp6IigecK0knjZOCBzZ2BaCxG6Vjc2JjeccuXyw6umo3eDX
dJoLNWUBIbgYMG0Yj51bD4MQ+6Sob0yc9sxGLu4GcYBSM0oiYochxwUDVgYY3KAypdmmmJoiWpME
AoCDlaILKgkCETe6A6oyZnkStltWvTExhE6cyxuTmpzEiLpqQxc+QUQM+ApTat5irBSRJQuDSyui
BHpIbt0fAEUCZe4tVaTXNVR2sSDWf712XQdd8Foehrv1fkdtHTNcKG2gj8kEEHAUr9mPjVGz5Ttd
WEM2BIdkUoCJApsyOaEOuCuh31lZXwBxIdo3jblOnCx1KdaNEhLgfiE5AUoJ8uAiU5clg4cyBDe1
JcgErxTmO/MWYHRAuaoQNIFBbw3XBMZkGcGB+OxCe+TnJ4BzZ1E8A0CjOU2Aixv5UhotgzcGAbAa
A2AdjBZax3gD3/sO+MNBce7PR63NavAn0oIfP7TfjZE0mu1CnZnOgOD1pzd+n0wRymhL35CSqiTD
qRL3iqAcC6QNXvs0ZjGxNtJ6GfHtD5+PfnA70UEGmejYCJFcNju2gEqSQLSkHA4CJlYiI5Kddc8X
S4YvT5YWiQgJPaduVA5aRxcptjQP6WYS7QQxLQDtbhHJGAgYCMPkgD5fPJry4A2ptMcl1mOxnxaC
5bF7xFLEbS1BLSzSM4703RFd8PeP2mmg0zbMYdNaHX09s0xF1aRoQFfPAo1lxGlEyQ8oE6lJuKL5
Vq+PKFvdQawPR4by9cvjTT2C3AdZs4BBYDgEiyTAmRB6FnkiABmGLqBZEFFTlYPLXOLEHBKCI7Pj
9ESSSQRA6157NofJn3gZCnDfehBtaNOM6MSnrEaEj4IPOsBr5Pc+FDGxtrpJfZ8mtUR3ffr21ns8
+/DVcxZgc3pEE4fP40W0Mw0gOWiFnvjtzzH40YKBJNMxJBNimaqIYWxDkYrurCSEA7KJ5UABoqnE
8RxGIOyoQb7JHdwyHpUNeJpkBns4heJ0+uILPbHHDmVuJ72nLEawEdrUnGdN4aZZUrxneEE8gLJc
P9yK+2Hoq73s+6GGi1whSg5AXEyJIa0jqCDeCLIoG8nXmRRAJG8XAty5uzNcAh4pLdyeVwkzOJzM
PbbAgYQ7ayDsEwXRED8GqKSrm0/OemtIdZ49Nb2kzwE+vpsRvaRwB64+ny4Tvy4AtxCZwKH0dE38
+pUkI5VpNwIEAgC2xzWnKQanI0dNyhgwAw4xqc92DL5FlfCETmIgcmqtvBQKMpI90mZTx4b77T2k
pClFIuRxw0UcCAJHACKON3RHvCslAgwEEAY3eZ5b3yKwoAbcAA2pCRiiJemzD30aZnfuakNsCLb0
haL54vaUXzD9XTkCgT9QmMppLg5jyQHvXlR8PrNZAOGisj1SJsri90419jBtzQSj7vLzPuhQynyt
xGghYXFU1YHBu8m+BGDd1u6OzkiPqfSfNh8357pSQXbrH6i7XdUNRbAqUYJn25ODSDQezFzwObNJ
prAssUhaN9bO8J3+T9InOztcSZN2xfmtZtyGgJycGKqSXIUogxwzdSASAw0t1trXTjMxchIFBtqG
XAJQYIhwo5lszgZQJKEEhBmgowcoQllBIES+VqRDcxHAbCxoGnvsdQ3pbHDztHeW+dG2rvnS5X9I
+w9oQdE60CXFc32HXqibOYrMUjCKIIVe4sgK0KEJgixIoIA/pXHhB01wFpGm1r00Uch2Am60ZBGl
QbdOMVXjnfWco5Xx0U0MMfIUXKEqdIOdVMMgABViYnqec7sCQJLYIwr0s08wQBqCq1QYKDoLeArt
IRGVAUJMBMaRQGfYIwUZkJcHv3FJbhxr2OREYHmaYH16449ujZiY301Brr1TG6qqAlQEg6Bg5sO7
nneYiEMQtTIpQgTnyw9gO0AiB9e4cZiDdeMdi1FHnt2/FqppvJ5oqoBXg6F80xtKTahy3UcWL4le
O8p5y9fUJvHiai/MQutd7S0iKYxqnbnbXIEqNlua8LkoAxD5myCZAWHYU9XIhSI9vcejpyqD84sF
PO8kDnGOYwPFxCMZbMvoVXZbBKB1MwlpFM2huqoEBpAKnTeQFH1KjWZFBuVDBKhQm+q5RHgAHBCn
HPMVY2aagu+yCGHC4NYl36x31oIMEry6AOHCAw5MjgWrvGVOJhSGKC9AFyEdgmCNyDwgcgm7kMsZ
NcMUmVDRrwyuaQd0EKoEaQS1wwC58Q5C9xPoWJYGPp7YES8O9+K0zu0gLEggBprQgRG+JvNBvtFV
xPem+HnbptO+wpPlT1QZGb8gb3kE8kcRxfnIq3HJEWiqXMy3NQHDhMUtRKd6ltHytofNE2HpQg7x
zLugFvDjHNOTzDeNBGiANAwB6Zv8ArvemHCzaWi5hNiCd7MXzlBjPp37etGhi+cCPWRLx8oMbizs
HHQ5wFvBFchFQggEGYCkAZXn1riED0abnBAKrkefTpScA4CRVr8rwqNKgV1BKCHPO/UWg8sO77M0
L1soazVF8Ro1OPjmJlfqokGHeOl6H41wJxBvZnPb4RPXt80piNKOJqctORp2s1Y7vWuoc5OZx4tW
RpCX16iVtwiSFZwraHEDWJD4HM8M+CKInKHi7uHLhhE8tUkXv+FVa1SQnjuWtQFVdLPp+g2OK/Zg
E7Q/3gp2AYBR3JyuxXb9R6k3x2TCL9tUrugXJJv9XSdnbv6e3CxWD+ceghF/Y1IvQkeOo+tvJYTl
ScrVtPGIVxbra0IPFsC0Jm14tcZNb0t7KYmsYaeD3Le4R+oT5D9KD6gIl997zqTkc+bjjMt25rH3
gVgGhS8744FucGFemnuIdCd1w2SLZu0Z71e93OmxZ9mlaCYaVw1c9dPWolnGN31tHUoCGnjTT6kG
dPcOyUqLbY2zHgi/Iba1PhsQqrrjfcij8bDFRTF4NCd9mhZ3L2vZ5TtotlsbXWsdQtDamnjKbxgu
aYoI7im0p6Ch2HIJjFBYDwHpyyOZmtsw3zu0Va6RvJZarVotadFnY8jeMVq1OfkLeGcmFs2GusbR
PJ5xhA4NdqLTXSe9DnHVPaJbS0LOb42TuCdhsKQ4k9F5xf6hhylYNvVETh9HTjtedN4dLDT7W6S3
lfXjz/GPxDo9vRUrTe3GodIbjUra5LSvLm2L4XOgp+r/FEvFXWfiJua8DXp+T7yzPs9Ccrzu2Fz7
wNbmey9Q9HwtH2zS71E1aeIb1vOCx4nvxi3EL3lKkcVxHUssIajh7XY4aF67B5yEmvUazGO1oX2j
CK33GGrV3GvtTsD4gaDiJc1dg8ALD7oeDq8BinaqpyD6ygTA9lKHD6APA1wDQTM47jMPULXlOjwG
S7BvyBolvLufGbDeD5go8G/YCQ46jcZgYjr7Tw6h3GaCG0Td8ycm8TMsoHAPBqYj2GhcNfccNvAa
UNwdQ949o9vmOPI6k8Y4nFC4ecMFKLHgLGHNKOh2FhOlOp7/BuTYh2jxPEoHYNG8PML4jhuA8ABy
D4vEdyPgPLH9Cx/owr98sfQul89Yon5cEzc5euhLwnmHoy9F3zrcb5Nl/XtmjkwOObptJMyRPB1l
RrVVLp1XIMsjO/PHbnEl2560Y2dSA2IsiQ5qorHSCjOWWWq7ijS44laQ3BRJYSQEQAwRARYAXHVd
PUF5498mXuqgxliszlxXJq4cl65WTCzLnHG3yTu7KHC9zdOrepnTB10KNbV1e3E3cNbo3EwUHyYl
3VcmTDcN7qqMtVoTQlBiC4eiiXQJR0uXMIU4gq1G2/JnlocrTWIORVKyBByEBWLhF8TmoTC8gTAi
ZUjZGu1OHI4bMkVKEQGPDYp8mJqDEjnIggjOERznBW4iOAhUuF+JEDhGIoacBDnCHcu+814xDSyR
hxVzuITnFFLOFcPNQJJp0NOpCDRoynxBEVICwiecSlJRBKs5KBIgEbNOGvWcIBMUxe7E65rH5Mzh
aRD3r5sckbmTk4qUITXKoqX4JunOKtiTG2CjiZydWhRtuErogGlTmrvKG1Cp9qn0aGTp04fTKSi3
DI6jqeMiVrjUaF1ekDBGTBplMzbxZ20+YTR0c195aqVwaQtHGJh8NPSyYqcsRlYXmUt3HaKdQZqK
YVANQyjXElqBzEJsVh0FF3jIES5qccTuBKWudfFQKlXgeTAE3EQcO3M1V48y8CJnd5cnNuuZjVnC
sLvlZDmJ5wcIi1NJ9eQlsNNS8uNsOFlXiCVw9QHu5NuJBiNx4eSYyYGyb3IgyjtRpy9hbN4bmLQ0
bSizGJw8bgm7EyqmpSU5iu0BYTqxDvipweRsxeYJIQE7cXtXxC32dLoabeyCsMKxO2sBFQMN1Ws9
O6WxlhOTtLBc5N7rvJx0KxTiIeUtqUP3fvwNnHNSINjVb6gQM8I8NGxpDP8GimQxQ0h+VMKzScTu
AjuHqwEIoHn703JA+JBQgbAdxyBu5pT1UDa9CeXG9SBHBwkBRYklgwb0QCCowKjBwaPXv38C+/5J
4K8R4N9Pj7+ew4ECThOSBhVeCK+eL2xb8pz8zH4Pr971+hqKksFcPJAn9FRnD5Zjk/tVrmyCwvg5
tPTYo5eMTxos2Y3BRbl01iAjMLSbPGodAsS4RvaQdHAM/om69d6JbSwmpT9F1zLEKmOksgWdUFNn
bc6xgY6n0ZmbrMCoayl4DathgAjIIbygKOyiQKIFBvtcD+PWfALVmB1HErVCG8L7PSglwqABaAas
HGi16tKVFdrPTAXGYgwG/T2BApM2ujqX9Xnr4/sY1iyBhCZvJbgZxp6yXLTjguztVO3IDD3PMzvv
10uNYt8NzXfS7CW2VztpjSEnE45et63n9BAOgCIHDKfVfXSgN9NT9uNd4gUR+TseHQrZtYJtWRkg
1Ft8o4LILJVFAkJuOr5y9kHmNlzU7EHOl0cux9upwRBA6ORHBD9utD7ByNqA0krAKxD4958Z4OvR
62un1OohfLmB3Ad7e095Q1BgbPc3eSABXsMgmDA6w0hh7gePqPvvJMZJo3lnCweBWSitsmBlQ2lE
0xC95tRoaYbR2XLA3z+pB2iVN+3ni86ffIwXOVXvkwR6gRpaEz4uITf+2H1s8b6pGiN4eRU926Kh
LBmjz70OL7pxhJDFAELiAt24fVofWbnl9e8JB9RfGiUPLWvn5gijPg4n2cM15O+Hf3kwKICEweZ1
qOBsjxmFa0OSTOVppoimIyp2jDqRqvxQbtvc5vz4DiJTJgeCwMShBV1WT3CyIpOJdrxXISLpzNm/
pAUzp4fBFq5jJG3MyBkXMpgFvSKDTpcA0ycdIByMsGqVHOogbtEbCIEEYfL6fPd7bNrU9pQqOWD7
JIz87M0eTgK4C3u6ByAQOoNahzbrwHvJRIhSKKEtUJuiSsBmCJeeDQnlZFmqDY4oETnw2UkgC9sB
1wPcvpMEDC/eczJBNMIAEuFPOfF3KcykxuQhqwgwxOwgHxw1bLbfeWw2hzT7oUE+a85cUHHNxjnb
Zn2DC++atUZpXOa7ziaNbpK8/EarecIuZL034oujEHgaNQ6KhJVD1ZIAgORJZtArM1ubV3qF3llz
aj6D6RZFDX5TiQ8rGzeYKuCNAUYIDWThUA+ovdIgohBSJ0ccuN3TkewKX445ZgMkAcJgJikOU+N4
LWsgakVSCAU3nWesRYckqE6bCIRlbinK9MTRCgQTwgaA1XeGG3qJodwuwSTbagLElOSIC+9EDIKE
V0zauoM1AN1mqqQIEAlBaTZrGUgN9LvyVGtNhE3ez41B3P2QA7S1ZpwR58ZO2+I033lQcjzel1Ur
LELSvSNM1jVRJE7g36+hPoKCOEkiEwo9mLRMyQ0Idzs7Me+Ei0mVRuyUBpzlYU+kXsi0gDUMGBoF
i0f68tTFwuAjgzjyZIDt9v8Oea8fMkCGh0XQLbPvmzQVpm6YRT+T4Nkddq69eH7M9JsduyCGnAVC
JiYhas+dYOoFC29pLk8TlgpmK7avdNQAvPlfeQiDtphllQLsoFSpnusMKAm1lTD03nXemKnxG0JP
OsM0amXtDbF5HlhRiVOYtPIjKrSzDZfeBoduUNxwcX5xnp2ZgzAlEuQxMiZFgWFISd6BQCfkqRdN
6XIzXhnIFrlVsIkvYjJLak9i2GekziYug6hzBuYkgGIhMo9Gs2Yl0k2C1ODx7Xk4JoTVNd9fDtup
o2ehiXItvEMaLz6q5KCRlq9lAyM1eUSmCKjpfba8WI5yWhB01H8H6H5+CN1jR0fBe9nCUdnySN9u
+FsCYAI5UUE53g/EEDBBMKBm68ravtWIFENQDaixiofa9743jxtZ9T2jBobVtq7PSG84Rni+Fryb
Flo3132fyAI+c6uvoAya+orpDITCiz0nFWJZ3TEjp3qzGxtMIVvYIM6zeTDguHx1lOgU88AYgCrE
Mw+EP1bBxwsMKmX9/FwjA1ons5GiwI4nnsWHFxmRUVeh7++zbcUjx2m1oDIRAgA5WStRIiIKKFU0
zjN0QY442FU0Ra9awu+bT5VUVIKG+z7wdxqDxQgRuvGr3raIoIkTYC2l3rvBxvSLwdRxqOrsDW5h
dYQarFxDPACbT4NKZDxdliTOd9DFjl5svEIAboFezs5CIgAalBTq/ictBos8lC/QoPAEkVlXcvjh
y3dbmFM0yYo7MDTc3l+BydqLBeTVswOYxqIAoQTu70vENFKw3htrJ080IBFiKLZwERgj1d2Bsoxq
t11ExFCENZba02EkmAapkLmoCZ08MPwjhjQqd9pPeERdRC+zDE1jIFmQ4XciVssn1vxBcit5OoUs
oYpgwyuVpTZeLfIZxwvHK/Edpcjm0SdLXnN6og9yBeZpzjGdOYCmc2ZnUQUBAgA8uKn6qGosi1lw
PTnXiSEwl9uMlRIEbk3M0FgRYaa6qrcXLaxlzVCswyMAEtsdUMqFADEbkPsqTgqRFzZgBAHa3K3O
FyKFNsRvyyEKsEIhhw+effXNoaC2kDrYPhrfnqM3aJJDqSEofDsON/VvE1vS+i7AgEFvs9RySYCV
Oiu57ud+ih0R1vHJ1ccJ192s3f1jCNLN9+7lySCBuQlvRufO+NcVoRmiI6gv0lGk4zlo0gK67DzD
+8H7T7pmlmA5E9oAqi5WBFCNig2VQYKpFY1xhIlo5GjEDNIyd4rkmRYRAU1mY8FidtRMcqyGXFgp
rTbKZvfS9nn1uHZBLDfAETx+/z945DnS1kdMF3w33Qg2Rxxtrl13bxwz7pOZmpSWqBZ26WrOpJU7
FYqILnhEzDJGCk27rXu8ImCbMGOxCb8F62gk3UMW2LiFFj5hMxmSCCEzlUGVrz55sNbKZbT1Kewm
eLRWBa8q3u2q05c56tAxeNczVcG/wH3eUEeute4cyEIIS1uQ26btvXFmnvCWCr8RtI6xQry6WjJK
2taUaTWUKatnoYUkCpZzcVVqYqrVtPUMVkNqZ0Y6zmC7VrFbbMcbEvCVRnYbavmd7WbWcKMPZdar
XSAVtmL1yKQcSjMMpNbaoQsA+Yay9RSopWZxm0tQxY6nAwj5VtM6WJ22wWquZNtt832mL8Z2jCsT
XhYsYa4WOF2nSMuBlXlZpuu2t8QfgS0tq601az2Vqqzb2nR4M4ZYyFzC831XzRBtOt4iVmvbRg3H
A8gnwFh3ok8yxyisIPW3POdue9ueA8qc7zrfRw87q/oEavVd9tV2xPOt8xFNbUxFjfb0D3rnXGXy
+1qDZb61vN6Z33xO9PftcNGuZCLcwIUjxLc1z5+e2JWwfcgxC3Gb4tzCjezxkvS05hqwjGNZKzaZ
49Iemap3xLRojKlckO2NoN5UGQ256+fVVBgX3eIzMd70bikGlOXDnvDFRymsorCtsWjN+loTbRED
aeYiHOm2rDYJYSkOyDj3vrRO2OMa5HkZTlCB2+lp78NQY3iI3vaeDFpUrHBhjlze4nQNJs5G0+cF
1aK2ea7Sm4lQCEtZleNvj3eA9Pr09QPNE+IT16BHR5oYsH0IIdod7xHM7hM9ANxvvoh7Wj0HaahP
V5zsDz7TgJoFeDMgHbypudm08Ap2m/wLwOnyZBqE2MPKj08Qd6GxMvIPaPRkr4VM3UZ7tfDtHcLr
FPGeFlvK2TzazwG0PAzr8Y9vJtMjYOQiI/AHcnmGAFwnVe5PKT+R9/UE+sYkxh6yjGLZMlqMOvrw
ofIyZl4bX12xXWpJOCehnEKEFOxvJGMjGxORtGZLhGSIaeNluFzt3Fo7uNk712cWVAhtOd6iA0Ni
BtsOdwFpneaoRxhGxsaGwg+9iDgogllELdfOkleVUu3MzmSazk1kobt7zSIc4lt1pd7mtqzO3XKI
3mvr8QerQhLSN1NA0SsYDnLvSw4Q5m50ZvNrBpagod4xZNyKxO4qzFQ6NzjyxLWc2HwgaBRGxMjC
zkTwpGLqYB0u6zTclS1vQ5r1qmZQTUsexcNeBBU9lmYAWE6iGqpc25kKGzRFciaOlhgLIi3lxKnY
QiJuEZwOkTdRs3kxBKypM3QyEGQAlU7uiTJZlhgiwYatU8TvNAApIGQpDCoiZEQ8Ucrj2o5x4JEw
Sha28q3sGdoVkBQIA3JTqVGVlVoSrTWHS5i5OIwjjqouYEGIKokG3UaTu0HJBuSXN7OMorInHOjZ
1WXZpeX3NOS+Cpu9qczLBAh8qGcub3beAH2Dpa4kQEjGZKBtxtXRxVb1Fk0jJrTG7D64fBO7e0tr
ROqCyNaH2HUXeUg4dOhb3l4KhTBiqusVaDcZMzG1Sk2rnFtiTvN5xXVuQdmkDUZyeZaGKQ8uX2Xz
VmiHiISEvES+oQ+XaFWcwY5lzG0aslkQTIxQaMgxosobL0dxzmJVtTrvGizMZKM0+NN0JxO2sqNV
WJYntVmXdqsnE7ugSpdwbqq47Waq6jNG2M4mEOFCUTqeyTWYo2LmbQmZgUWioC0KZkuKvXjFIjDl
S8RuRiW6IVD9RSBJbUNNuJo5arrMX8vg4MwUTBq9SvM0w5xlojWtHOzzz7nBSHXcdr4DVFSUuM7n
kSIFDXUEboQ0NC3gswaB0GnBMQGcCIoCSn6ARXw8CChCr0uqD4cLHJlrOjrQC6b7PBt0k4MirwcM
6lEB2MIOhYE4dbwKk1QKjnrARHH42ZEHWCvWaziSXBVc0vdVWYfoKgkimSY0jwYOxIkQh3gDQ1sw
A/iX0a16KOnv+FresmFLIujkNdVCCI4w9rz+koTJANoWYYEERKchm9ZCIVUFDwWwsZ3Y6atYAwVW
v8aWgSBEyWgAoi/qHRF6f8rOE2A6LNAEQPY8oYe+BdKEEZ346OiIIT2e7xgFRKoBVEEXRxMKxsYa
lJncIjLGQDanil7QqeFvcXWyOBmHOCQZCJAFTqNXARAgQUtS25k7W94F5nh+mzS2vG2Ek6IuY1+T
WRfqF4+tDfQGGXQPQQFETJBH1NOSoEF06gxHI14RFHgNxVR4SqdYVJFydF3bXS5xnyMwBuY1tXGA
YCR0caCYSBLB8fTi63gpFJEToKOBGedsZFDq3WktC67COTkGbYoogkBvOuGhsuta325VwbEwnOtY
z1bEdStleGe6iVqTrF2zQ5k2nTYZVTdQqJmkMKgzGrqkgRHEgG1txIOQLQHo+CkG70UDNEeZ49Dp
FS/o8Oi8Vgjxqtj7jIwZjPOdaz0+LGvLIL21r2WxbWzS0QQw222pzGYb7bZZeOK4ttxWlqrneMqC
zUvmLYal9X53eoevM77Ti0Tz04aWUhe4UUg4KlBy3gHxCtYsiIBYOTSwEmZjCpfheah5guUb8y51
C7ZFsttzKEjhZrADfOnMdIDB8IaX1x2A0MLcAfK9ZD2DmodQwfgZhznj64GZkN2e2ziyQVSI0sgD
UE+GOlyb1CncKHTFTdxOUbW3ikKKQNkAVNiLkbDFM1pGomL60XRABmu9QOlo7xGxnaP9Ir7vfnim
2wM9cmHxfjNUfLIBKipxqkjZYJIpitUCkJsI7zeotDbOt25NXVJu774C8uL7ic77T9oTe7cHXIWj
qBkrbAkxAuyuXa0PghxGF6oZOztvM+L0kZHLfK5d67vSUGhivkVIuEuDnME0NDWwhpRXCHIfSIYE
fdd0Gi+8QDqZXPuvhewpXiej3W+CH8box3u+idqQGKTcZYC+aZpOq5stsEFbBt1ub7PWk7WmKg2D
lJ05Xe17axYXDLcgVxaQkLSkBFFViMsquoo0RVJyeu+oaMTEhBs8PQwcPp+88tOSOsPRxU8n2jWt
wopdYxeUuQDeg9iD7bD5AC3Laata3JIn8XE+6NCaQiigfWdCMnYsYX/Tg5iOQ/GskOt4hSQghTph
C5LmMVu+46PGY4A4YYMYaM9ZnplG9rQOmGwJBdN+Ac5mOLnCo5IEAMazo+eSzMgmpS6T1oTFL6YC
JAIqIMDlYgAjq+8KBoISWChQUvZayDiTjW3U9jSupraim5CHIC1cBXOAiVWGOUNvXCySpqqgcoIE
tBn5g7ZAVJcPiW1pFKqCyICBkO/NOGgHiUUixW6ZnLRiCYnFBu1yj4H3BpkYKKcBDOxsWMI6ZtnG
tQjiWs36V4AXeoPNY7Qa8elKvHit1hHD2FWXhIUZloEkD4XPmkHG1ph4984/CEQs0GgnOhFFnIPH
uEUKMPMjhvkzFZBnkNbBuDOawahzgIqELa4DPXq3EIlDmdjxEUjCcL1MzzF2QCIYNrwefB4qZQKp
MPTMC4Iw90odePxLtZTdoC3YCi5JY14y+CqBbEG++eHz3zi8i8UEylyLkpDi4TMN7waW1A4KMEcE
YUKU2NwwpIEe/pNWIIlrPfXv338nzHOAEtpIWdwOFt52kzLD36rT4x1MjW3PniS5jBeT25WiOBWp
rHIHRELBdz7PoaG+/aWHoSmsiASQSPBTcq3snhjYZRoiZ1Wrw6ajXUacGXzEMZhbcQEOzDYbGbbV
OJd/HPDefW3m390+xnK/HLbhA9agOhX09x7GPAKQPnkNELp3BZLbh/XvxEnKBTUAwnp/XtwTy5YH
4p0a7Ta6nvxfmrPky+5W9xZBkRbDvHEKUqJZ3M5AOaBV0tqSZ77a3fpqGYYjPGzYzO70k9YCpD6a
TTxqIwI+8K972vLuGQkuMcAaOxP4qIUKT9PLEL07WPAO5UhxcnQXvERd0YbQTY+OuPD8zgU4GDgf
lrfSMdqdUUW8ne7G6aHxIqeeqs+nifR4nxDciJ7fT3+e+DvykVhyPstreevP45QGA6Cyl/PczyRr
wCWy+6HZkRXG6y2jEkEJDheC+04s7EncoN99FmsFRSJSVJEMXdUJFNcTcAZ4VBJVlTje2JM8LcNx
m/BgfMIJxflPkz48UF0Anz2PA3PIxorssg8lDHYqdlliqjHT5gOHLjATmvbyjUNwWnETSeQstC4r
jmr3lDgZ8Cwa/BCEHRqG8XkhefxkE9+DrPOdZJgFpb6pAWIZVJzsqhJKA1dsO8ipyywGTAYc+3HT
MCOl7cUdPvxUtyffUaCI0slHVytlmiYUSKlJm5mYY3fbERMkgb+1anMpBtjggNOzJxm8RKbRgQF4
V9lnq9FnZ97R1CsM0nqD8SBsFhbPTNJvbObwrTlSQ6IK2BgYIm4xvmEmhtFRMsTzNijIRgksJSaI
0WIcNUFhZrDEaLs4KNn20Ve8tBnCsMwYAc+xKzhJIqk0Fh76pkLqSg4fdt5nF6QGS5mXsJWAxxUR
DgyrstgBObM/evUNRPa5DBvVx57z4caQIbJfPPXn2D3zTPec2G8ztcXgyyraymIuy2NdlESpwYmB
zmC7vRAKSNG9KvT/YGYMA3oIfPY/FfcfSr33tTPevyZb9fJs5cX1vt1p613mzLIFETlBNfJQKc2J
0I8yfPgMIrGIeouKYtveUhk7kNXHr6N/DpOodN2v1HJuz5hkypFjSkId0ZXztba15Y01/MXGrb5X
D62jqOqLvJ74ZFhOu7Cx22rq+7sts0M7yeD/gMa1vO9TnC+xGRBMTu0EyJYqx0eL7LQyJlV21SNM
XxK+rUq8uGW+rC9JuDQU1hYUvxKtoG1FjapWmWttIWvnMq5e0p6tOCzm7CVoSh9wQfBID7+ECDyL
YvVufNocsca5W3s9eIclFneFeUMYjmcsrmddNzN41ENqWitNowZoxhrW0Ns3wA1l2rTF6xtKW3WE
t4mm98HeUNaa88ijNTcTwz6pWovRPw32rqrLGdWamQ5xXilKhRKWH3c4WFhLbc6c4gTuZBReqxp8
BMLF5qdlWmIQFbZbT7PKs9XpisowlJaVot6HuGiSB5kE9/CpD7KBAfVVmsCg679FIOeeuF6xjDke
UJPzgJj6gcdRbaddpDEICwWkRiAn2r2wHGlntRJq7bM0tpLqlOMjXr7kHHPbiMrWjLlqa8by35TD
YblKlBdp/YJOgzO1LsbZ57A0nCl5vK1OcmyahxqlZUpE4yJtetbbahM0lWebStnWmm48S8vgpTMO
/m2X8ORXi7B1hq7001LvNXQ+BPQG8TvR856ByPf0u82geYwep5jpIPiA7PKB5bHQO4MDlRPAXB6h
8vYdWC5B0C7Q50wNaZ8hXNyp35odHKPYh6zj5l6oJ7A6IBvNs6a8nPt5cP3FBf0/XsTpBrE8PIl1
J2TcOJFXruqyZl5fCMvApD6oku31NuQ5BYMZhnh46bokE2/NmyiDmcriyhCCaQp3eLU7ncgRwsAq
nC8cqzXRQsW6WmKuVL09Ra0inepdO9CYqYt8V3amA60XDJ4rdqg5AdPWEY4qYm8mZh2qUys66SoS
xzKcbypM2UWXLtXksoXBWJ6ZlCuCQzjEJOcTYqeg/HeCi4WBwOVwKTeUqL0MO3nNukHgKcoVdNeo
8MVvN5lGbl2SUw/Jp1QAsuUZLnTEw4RG27ispzRC4RE7rnRbzdxkJYXjdm8dTl19PWV8whBxpoY2
T99vfI7qQ7l7dEyJJnWAfrdExGaZlyp6dZSW8iHCfLlqBzYF5yLcGxa1XEcoB33ROcurha8O9EUc
1Fc49oUNOmzy3fie3vBGxqOvkqOGZs0JKkDVzchnTjVKJegz8uDuVcyZuMbKNUncTNugDscscinO
vwbgJMTMFApPJh+QiKkwcKk07GtD5r7rk6ZWGeHBs69F4nE7GRW1cRkbVmkePyBZiX5AgZwXxOBU
qrL8D8vkYgODOcVDDZwUmcEycvcrHMqzD7xRCOSKprc5VZU8PIM6kg8RGaRYd3sgk811y3aMpYRp
i3Vcik2GDGzElFyZ5fMireDeDljJ3mHmu/G5y1Ltbvq0Ppl9WBRfNfJm6c7ZADAYLEi800ZrXqNG
hDAbJuZGqn0QJ2zcyIHHOzHHEsaylIFHI2+VcqJ5wKuOJEh3cLShlpStB5hVtoihcxzDJT00A8rF
NHg27kSdqoiZfl84HrKi6Qqs5ETaL7l8kiuSSpBJVFhQKQQJVO5f/bZJM888svnvxiXUdwhBiuKB
g10hg2Ji1Pv3YiTVt4p2dBNzrTa7AkUkeRGxcwCk5RpJbDZVtEgtMWkEGJmtIwFRlxDAWikKOHqx
QOGnrObuo3WDXybts5OWc2MvCuCj4gayJ+9z3xURYNY4eJwwdk1evGp6i8fk2KmhzRmTxM7AcLNj
s4c8bQzDgbLHAGIgB6erQNUQGKj3m33QuWqqAQP23GesAswgGw3sKRG+pMipIC6BBEIA/lr7SvaI
AmNkuENc6UCIIwLVeWJAg+/IDxHLfDk5KAxAujss+bZxtjCLAHYIq3IozBMKOfLnXjaNp2d1IqbM
EEAg1qr++EmO5S4ZEnIU18QJXQyABHTpfXPMQbpMAej5ZB2rWCbffzfkEQIANSjTlk7aiqtzfq1H
4L0nCfWMPDwjfF9sQPdawEgKBETmnOwrCveRQCIA5qCuiUyYl79zEFYfU0fkDJI6qAOcfkCXvamq
rOGZMgbQ2YIneakJ22vgahIDESB1ppy9SbDl1jtBEhVxQUZhQKMBsl5rN23fJm4FURoXUWI17dmv
NBAFtlRAMsMCtrZmZu8NU26Lz3nNRK2XlfT5tJ+Jti+3bbJ44pEDR2AdwlFZAQQ4BjBh2lqAUhiv
DgC4FDI9QPFb111FNgPAg3mWApC4ZAOcFyTyri4hQHC8ZYhJADiAzFZSWSFhBjlzKMffnftlZw0y
CN2KI7p65eloY4UJQid3ASA3kFttG1xv8fr5r8zZV8PvfjZb8Py5a6nbfe3fe460lKFLQDiEzLq3
zRABuAO62+18G4HcF3j18lAohyFQyt9ZAoNNvMDJL4g8kte7DVvRejl7553rDbUdO1OiJAaiolsV
Qu5s4BIaXfAunZMwvHAiRiphzd5lVv8Z/d8re/mQSAQX534uRQKld34AimAEyzMguyhiGOfLSDKH
iRbXLAHhKOZsGGIRAeNNNrxwwTBJxU0mRnU8rNYdVCcMEdo7x3eASnVsPC8c/IJCRBcBXKXwccYv
CUweNosq2fO205SlLfOX3PKWWs2bWjjWL3POb0fxHv378OrDfQ7t0KECgpT6QIdejlOZeJqzQ0HT
4BTHeXMHBjtGci9FuGueDROrmh55EADWYOLAHLjgws3Y2K3jAMwthPX13XG2mttmsjLV4GRRUI0e
N9sPWktPQzXcbwa9JCCTUkEdTo5njvHIbItBz7DEhho9dZthX26AILBvaQJ/qAbyouQ9o/XIi99L
FEwgrEBn9kcQrEeIhN1QPADhsMN7vlw6w5cUhXMJvdRseU15PxzoeVJcQELDU12hS2QSB6435V2G
uNybhOUeUGd1pFuEWEqPd5DzYmAmeFAmYm5oXN6cjLD7NFB9InpxEZVoZW3qUC4Th6tudAgLRVEg
BcYA546nTIEx656nrXPIJy7YDYPE5ohMJrA4dNmFcCjQBTNl9RZW2RAsROtHRiHRASdgg0NahCDg
bIgk+ZrGvNhUgnei53zl4STGXAw065jRJSI5Ml9qqys2++b52xCG/M1rCNZMYaZzXzZqZHYcVs40
oUngjCijBS4KvvNxDAdVYB3MLWYrWa9awI7WFfHbO2c8duR6XWkI6FiJBYGQRIlgBl2IDGw0peuo
+Afin8SOl9S9fM6pvkbFkQAQvXYhtX2A5rLNhWqiAoNxZd5mcoYQ3VEF2xLGqwE9mkyAaGt91mgx
lAJ84LCRd763hMXvJawseB8AEUcqFUHJACjKFGqud3A1KDIkfkEnHB5ybTUATnTee1Gm2ZwlOezt
aInDnKOFOLO2IX4yB9gEpxtLWsBJ8OIEq5gUiCATuRlWDxNrIIVO2GYtF3fkPckCPJeOFnGaHnGR
vZrWdg7QkhCLBFSVDsl8HWanHtyab01TVCCFvTeUsouKKUwOc9QAWE0Th5s8UthEUsls31NsSc1h
eguyot6yy9ukksY2iylA76YPPa4Do5TwREmvOk9RCJK0skcVnWFkSKlMTNI8p4jvSP2tDVd6PuzV
hUX5S+A1ONzTNOND2hJp3jPMhhEgkXv+BBXhfV/o7kgsJxOZ9Spzg4IzkPqsRIRxDh5ExOSOO9IR
UzIskGam9FXUByjM3ozAMHBbolxMiwGYnW4ZZ5yQM8uNjn5uq2cG/U6eJez730no0k0EUJ9TFPDh
99yPxIHm69c9/vbvLLV8xmlXPRHmkvVuCfEp/gT+8fdQj0OTFK6ZGE4zJpXHWO8b2a8jI4ViOOSX
pbiWetbQVdoBPmMiICXTlxjjhQM2K8gw3tvKUBFJib0e8StQWlNSPNCnmRkOQ0Cse4K0Tj2oieDQ
5NLLdtBqBQE83OQS4FCgMYDmBhLAaGFFs1CVUFc8t5CcQQamhDtzpzbWqYOqg40gRKQq3IAWIzwe
EbR58zK9fD5YT4G9xu0SHKHnpVst6hkBZHqOsG7Pc5ujfCCXn9vzvkDm/Ld/fS7XvoKlttKASMs6
i2MCG0NjaEjiqyWdaRWO29X4gdp44Ghi0mqtqdk7/JAnOWsb8Z5Dm0WYGCwBmzMGKsGYEmwQ/411
QQFWtyXzQT+HmBynqYeSMEouNkltDA0NWosuYFkFMFKmAGr3X59fLns12y6CODUjilxZTDpJDnAT
M82aYZkWU5wzTVKAUKXRALbCyt1ManrfPWwuRrEt6Q2XMOIC5tC4jdESW9L8DuOfEinf1755rrmL
QNn3NeV6FXa8JDxffJlrNlvg6uwPFP9ZxTz6S78ocK8ytCyb9Z1U1B6HWyxEftSxL3bDIu6oClRc
l8sF3XOqBdTjtZwrco5HGrVUUalKGUJ7lsQo8eHy14sYynsJUMMmeJ5zKppOUNHNwxs0Z6elGtea
ypDUtlubviM1y2BqUHZtRYWidC1J3teOQ65zPMFONeO6xjid3ou0VWWo534q+ehvzsdlPllT575f
Oo4PjxsSskAewzBgB94HgOWZ8r34eGLSudwk82MWFNzac68sYnHecrY47ZmTbUJ65th67UdnhqC1
29QNTuK2uu16w41WhZb8p5lCauuFci0Dp7coyhfeNCvQra9XlLX0Cz3zStVr6BMPoLjU1qOm9Yy5
yxiJnN4zlzwsbGe1PoJXsLylmi8q2w2aWasFszzrau0VGL14pQR2GwkhA1ZxGmc1q01hDabi0pb7
LratoWBt6j1Pp3Mw+4h99tuWjts15BJHpnjezw58K6Qw3N54nUzrNjNetownC949MQjHa1CIM31H
DgCotHbjNOMT4NZ8TVpQ21Wdrm0Fao4IowrfHCxekroK4hmC20y1xYDNzm4rrNfLWKDlKVNwcwxL
eBRK7NvoYrqdQBEDb3bAL4BPMJoeaLwBREiOuCnkPUN0ejaGXodR7YneHlPRy9QO1QOZF7FLdbcc
eYevxBhxPYczgBsHsHrA7HwrY45alepDwpBOJ2maeDZ3g8RDkLHMevuNh4jWuTV+QKB5ImkTxPht
0LTYEbEQWDM7ekXc9ynoSZ4hNpPqectIXe5LsqiA86LOatrMmmJ/RO4TnUSZg0ajfkPgwPIy554N
0RUG8cqQxY2UWJohmRRJJC6tNsSZ66wO1acE7uPZi5Cu41Rzk8VhaIWjZGqOISQY5qnm1NiiUbeB
ae5klnNkY4qayuC6WVV3wxojHJuS7PclXAp8DkzQSNp9xSKpBPhiBr644HRgkuJwnj1Au7yrqA6q
IE2wDIy5GVkrblRcI0beCal5ykKwwbqDwgRVO6D28Uk22LuEWh8AvQ4EkOEMd35G6qEpXbieLLs7
DsQdBEMcFaOQaPE4Dzx1UEPzEVlCqqDMnKCeaUORdXwaSoy6QgY8XuyEFdW61jkycTDGhGHmaBzS
hJFOoOu+GH0JEVczzcBzOLbGUSHetx6WK6qqvIlzYilT5mUOSMm5VYdytfMAxJUo3BpEFKIL2Toc
VuDKLzmy9NAp9mINPSqxLu9wtrHLF9y9NxjxNECNEOrc4KDynOTFactCzg1NqIyrzU6kzaFERBCL
ra29To1J0TL6Mt7jah3WzhoU+oNMGsT6I3Hi62piRBjYvXWobIqM3XupiLT3hjJd5xwXUK4wbGm7
zgyMwZG6/CjMPlVfBMRuuJPBeCdFaJyJC3FtkG5Ng6ZccedkHh1qT6IUJ5ycoRE1T5Ss5CmBjOWO
JlNuKGYoFGUoN7mUzgwvbnTk2k1okibGZFXY22Io3UwUqh0oLLZva8MpUyPD5tgN3LUpipcnBDwJ
DxrQ4hodJLxIcDtXg4UKAqkoxRLIPDmfTVDOpGEYEapYPBYiBYKy2LgggSpCvupF+jKKe0ZKLVDp
CZc3fKmOkQh2OdbJC9jtk5WiQf3/V/P9QYa36gTXnwBm8w2EDh66XXOy4/RDn7kKPdqusbSLNyKA
0RDs487SJqWF+evB6yht5/V1g6+bu4vHBuvIaKVEQKBSDCTkkYUTQgRrbWyxr7bWII81RLUkAhoo
s8WtLON948oCTRvrfEbQa8vSFpRre2JgRHcEWl9ihKZQbqGZyz7EORvRRAhVxAaIjSmqwdCN474D
BWVZQMB8EGDPFEyLfQTTnMHA3tokSTnren2PSU0wRQMiBlry2261mmaxo5arMqO406ImY7OGtLfp
eUrzy4KnlWUHraMjSBxBDWFLTlChZ8c4gGezbR0+RXcaXLI6hwt06aII33+GZCPraHzUOwOBpjm5
7xqIopmFggedDCCIYAVEPSHKA/EsGiiV+Pr5lNjN0SGNsxGr8VA9LTbxEeU7yE2o8H500N8T5Vpa
zGlp6lIPWuhcT6zpS3NerroRI6KUHMTBJUjcMqkyfWnnCMaSiGqtTg3nM1W9HZwoCOZLq6ag9XwP
FWEBzVjEtfvoUzH1n2twyyCYUOvH1TcLURPdCFhmXAzaEswJN/denoB8pNABEYJrGAHn68R997ff
RwotZwJjaUJ1V7uccQtOoK0eszOPExMkG9nvjpbeOhW1gCVCm7FADefzRLRlpVIM5ghBXaHOUpIQ
64UMqI689+fHO+yRmFhbeL7Gk4weiiPO8YzuZYOJ7Xmo8hYIOw+QTanWGQnJNtwRFWsQHIDRCthD
/YsiKiaXzEMig+Wow4RSgObd9DzYirFCC6aJQp3LivsKGOCx9TzPZ/L9bB4gO+nDuqi7GvEAmYTX
lEPKOcbNYy522pVmtKoS6gYee0rRuU/LesJZtMCFLhKhEhNtX0IgbwxpgjSvESBC2UG1Lbxez5pe
kc2Bg+le8Haed3dms5vAi5RBMDT8b4eFUT1hDfRmy5KspKSkHvOVo0zRzB6kQseI1y83MTkmHRqL
wTXREONzoAaf2trJ0QyGM/F395vqfqPE6snwDYBlAgwD2R8K9yXTJAmN+80/f3u6EiCvbBvOj793
7BwA5gK122M9Qi5MzndaUVI1L62odPCUiztC2hbZtRFQKBECACj3zgQ/ze4TTU9996ccsbwxwu02
N4TnyMLzoGlJ6gXfF6K55DgJtpSlxi5hIiD4dbgwCwRKzEivvbqVZnjS4uEamsazuQY0Us2OMzC+
EbSTsJBQEGcR36KK41kYsQJ1tu6Va+QpyIYGtt1J4zFJKq/FAEQQs4nxFjZcNfd6cSYXI41sKXnZ
rNLZ0OHEklrcePMHuAKJHQt2DNzPqOd9azIgXPGsUXuTMo75WUK5ELZ2pTlbcurNXLwjw9V8ZysE
L1pdbWtoeYFsa8vkiAeaJq0Tym+wTqYNVZGBImq/S5BhCGm6U/YDxIxHNiCDg23qTjqNRgxEB4+3
d9bnFtQW4ObQsTk3mk3+XFcQH192ZL8RYVq0eWrarbTzGI9Mic+lgO1OAdY3jGA3IFt7bPlqm84N
K8bxOpRyN+NQETMpxegxjfGcCiTtAPFds1uzm7jG8cRrswve84HhZ5odrZsbQNrBeM31f8g/byKH
Q8gj79FAz9/V48TB+llGJLZqrGcXjkiL3Q8TCH3zN1ZRBcDkQOYd0GgE8zGCURFFMcrW4k3IrQXx
ReVbiMbQozPTMmNNPDPGo0vKN4X7VkR144g/uUCAiY0uBel+/D1XjECvvulwNrzrhQ/eEvA9IJJ1
wJ1hszNUw24dYbz5a5cUhTJxXk+eSx4nOL5CJGM76TxEMG1YcXipjBkpC0nHEZLhOtOVJESs+ZRo
WNhqt3ywqp4FQth+aSCs3cU0cnEMsIkblPV2TE+PFiyGkcH1y9psOC8wMXfE72kEbffPEJXUh3lR
93xKdV09Q0zwc+br7VtFRrwec8aE5w6lr1A8tCnww1nBAGZ5XXhQVsF3rlsSviASW60mJ4WwZWk6
/ZEAG5RLDTdJBGBJL5ldWRzhb7uWIJRX3cO4ab3DSUBDQ2KiJhZPVyQ/JpUCDcaXFjbwXIPPTVKD
UriUXnRrwxRKmRR488txY+16TFLqiyhrZpVvagc0KktqjSfbi1Olsqm+ImJCKkcxkOJSHOd9DMBq
bNp6Ujam9qEiRuRaE7QXYzwDTYVyGCrTTWld7CN77z2u+8Hs9jaMJbGcbxcvmKtZd41lPN705TYU
HRFQIgQIKbgQO7GsM3BD4c+QAMt4yG3FKFeBTTCitRtsc5x2yymmS8rmsOKnWJ0e+TnOXOfb8I8Z
NbnK9e+17PkQ99Xvu1nm+K/b/bBh36hDdcmu0L5tjfTvGLrK53c7UpSEjLW+aZfaeZ6o1aZnKO1W
uq4NLUjtayltWoI3tR9stqeanGHnpOwQQQINW31LD2zaetps43fW0ROa7vJsQqMu2pUixtKcpu9I
4UapHczz4hsYjaW9dobb71ydLYS33g2sMtbTqHVmN7UzITW1SYLA6nAvesvUJcBPsJ7alyjWu2Yc
K78NuwAaFp7QbD4W29N9KI3qcYrwM5N7X2hCzSwqupZttNdcXdYRs09Xd4PnDYy18Z1CGdGddmjN
sTbzQDr3NEZu1beAA07aib776hfbd484Potz95+C7rCs55fS4PGZ9dnhLLNNuV9rtW9Y1nuV4YUh
ImK2GeUBNDXBrjWy4eMVFJ6jJaanp1hLSuUnCBfJqae4698D35tKcfnld5vcbDvte1Xir53G51nr
vxzF2mlHSrEVk6RvXVgsVr3hh9EA8Qn0CD2Dw2ER0Hcn0Q1eMHIv27ArwDoJqHcByeFOz2YnR0O2
rdHRuHM6Seox8XY7+wfX3ludOg8Jlyj0PebBw1h47qiBuSGJvdo9W42JBD0dIPYPQHR5ntQ8z1j1
DiLDI9fcBdLgZ8Unrfz74iAhD29JGCx8Jbzmxo6q9DN5fXrddrVGRhk9PBtU7KnClxbYKeUKC6BC
bnbFGB2GSR2FZBq8QMGuzxq5GQ4IckE2IWqMddUKEU8mRBucvnMC2tjmgl1G3oq7D473WbljHfj7
PMcp+HKmIx+YYURT7QDMAGqePcWlcQ16siLauKJrmqFdCNlzNOg1kCpd8JtIyKo8cTMYdiJIIMK3
d1yzLtO6/IQ0hq3DNXfOZZEIcORlxb3wQLuDAlyTbp6rCiRnObAzFwjDyzFw+lsKznFl3Y4MxB0r
IgQL2LLiqzm69kg7Bh+Hcwvys5jtorloMiZIKen4k+vpBHIlLgWc5OO7kSIjmTgKibhysdY3CZjK
M08mhJdO5qdTthiQVY2A+q4nDXNgwcwq446q5fkS/OVb0DCFc5qyoGvuQ+UDy74Dm8mXx6MxqA5T
xcUJrmUHe7JO2BWHN2iNB2ljNWWchDLBiBlJahCQdUUHZVKjE71ybw5T5Iug+TpeiVCETaRwm4qL
ilfOPRcnY1XTpAl9oFKMiXs8LmKjiVjIU8fmh4rhyoEyH5ru8jmmXuothbGXzm8zObMKpFS98Z4m
+Q8cmUI5ONNbcc4BGvMraaxWJLJETuorXrRwHb5Qi6uzeXujDlSQarAoQcbtQIa9406KzXgg7x25
lVlXpBkl8Kgzlirioq3fhyIzjO9SDc3O5OB24apLBYzDYYARUqkqiuRxOqRM8d4sTyWGyUAn3jVk
3wqqt8w6DARUOaoOZs6KeuQ64MMUNx73cmljGDZySJwZuR8MS6EM1FCBnf7HSczMdm6Oh0haTYho
edguCAywGkMwSWJEEGAZhhqCQ8qgigEAt7o5wxT5OCFA9hRF1XV/kr4gCpooi2gMiOeYCM57tyOE
TLuTYiNPLFMOYIe8eBad5RPMU0ZqdMaqLhVuENg4gI9hu0HILZ0M996w+AkkxdUmEQYqEFYo6ALz
PX4fEcYltREuxuTG7+wCst42G7PKlWQi62CT2aJCRUgZuvsxtZ8U5sAqI4zEbiFzFYKyr8jbMEga
l9rvrTizatGkIojoEyUnBSAQjkClrxStpCUlXD3vMHek3Bw16HwB7+eZPlmXn0us5Daq8Tb1ZCJP
EjCCsgTyec5Dw5rEhj1qKcPFOLGxUE40Rgswsexcu6vRDGhdHQt0EdI3r+IQc3M5OOHi8MsbyDzr
QMSCtFRhvK/PN8Sq1hau8zvCp3AmY2Z5xg8ZRTA0t8xlK+F21OewZlR8OH1BmmUAMeUxTS3LG3HX
o/tb1skJMMAv3sbPXjZA6YFfPUmpQuZoGAMlESicTud7TXnxYC1zecg7vLW3Gt3rOm677XaVxtLO
O4BJ3GoRZzjE6Wu3fUIihNhHigS/2vsDq0oeYcPfj6+6lWJo2A8m/j8WyjBSV1x1gqLJyFTVFl5g
GWC5t2CcrSB/aJCHQ3GDCAzgkswzys9z3YA3SYFt8xDxuOPq+P+LroiFSDcTdz+lBHykBY72D449
A0QV7fLXJ+bGWuICQuoXdVMZ2pnaQkSj2ARFdthyB42jMhVi0wmzhBXOV3cRkGExadysMV4vWtKD
aC7QwdUlOU2lZ8xzMV7gnqEdAlOcAdaG4cFdruHAkygbpeiKeHqvcRkD8UODYF6ooO7OMsZU1dOj
eq1tjOKpwvGaERIJO8EPlki+PEnPf1McPRFggdZrG1XexEZWkyOAHADsvFZ65SlQjB6CwF74v5ap
eEieHg7hy/AkvVe8FgV17/ENHDMZw0RiSgx/tu8p8SN4Jhyymrgo2MXgJ6fNZRrQoofmgnfvbiev
cfpk++R4wPObvk/dqF3Qdcceu8D3lKB2zvNvHfEfMAe9FCI0wm0z126AyuzDkoURzzaAQQ0J3HFP
5iXsquq5ozdxCEz5kyJDmNVHDr3sLZBVkUcUtTqaaOMU5NO+BuCFJggR0UToFr045YrF+a5zFhgm
yoqTtynDU6wlWIJCTACGRoMnejsYRC7MuCpLh6Sg7hzj2QSgbrs2KlQkRS8InEHC8mSQxTemrSeU
RffgPEbwtEahSl/cgqgHLeApWc3zqfPbVVrYy25WcLJeWnSk9Bw6+O0eepntEIU9S5hF67gvmYPU
5GI4BtqmkWexAeURGCyLT1lijD3Jyhtlo2xBwMSMOnkGrqxQGgN313G8zmiW/UX9vIr6jv8UOv8Q
a0ygnxzPEwDwAC2JAANxllPEwsLFsQRAsVHLmchVfthDCGYgZaYB9fqcs9JUWqNiMh3Bj8X9fYoZ
CwED0w9SBHabZ5gx5VkYzZ39xb89T5/jFt6rHah4jxz1M74yuLUrvZ8TvTNuGun2uiI1srrv6f1Z
c9Q71AdubMRAid241USkDb7MnOntZNB1NXwJn5yIHJiRaDTv8hZ6UJ58mJv9PoPiTxbo71MiOOIx
DxNiN8FYlqutpVus60DmPwEsc+J05V1YQOHxodLyaGA0wIEDciBIiVQ7V4zAIu8Tib/li55W4Moc
87RhCMuV1Wppy1GrcCsnp9E71QTSd599PK8QHr07QW6LAusepPqtaZjdBvcGnXNc26lzKhRCgK9e
DNrdw7y3RZgX5wTSoZ9fl6yw/WfL+lnyvUeN4b4ui/kqjhaT6NEYo3v88skflvxo8bPqxJPmGu0O
GSDXE4cJI/RHtJLx3N7me5x47UH9Pnl8hDrESAvgCA9+53nVH7Ki+84Vqt947S5Pvd44kLQcJTeK
41S28Ft2SQQcuWqnpfj8AP6+XAHvKTsi5hICfjx491EQU9OK3RWwl0VwHk1U8pcqM5mZImMfjqKV
AxsTlUwmCC8mR6B61SAm82g545tXjib8q1vHhb4KmAnJQ8odjxI8RYxDzHp390Qz9VIdvM8rrN4E
sJZ2M4BtnLq+tgJC5pay89RZZSA0OIKoRt9PCiyjRVB2RQJb2cV2tUVoOHfj2jlilTGRhvs2s0zw
V5cW1xHS7vjNqiVbHbVfuHqgYZ23OwJtWNeawSLTZ2VsBp1Bn1YgGGCIohV9ON0aUnk1GIE5QfbU
Jt1XqeEwGl4EuzX+QM891Q7m+L77vs4JkQWW7stMy6xFpKvSa4pCOyjQhHpTN9ZiuqiBR9wOmAJs
Aqx1vSmxGqALuqV4fBaQVI9GxjTSozbPCudXDFN9RtYwWmAvHLhoEwMtlcS5TvmEt7b3HxRBlBnI
wAiBAgs9l7s0vz4O2WPHE0FoHeWq2nqMjfZTyhC+HxOsKBxSV1xm5vjacxLlPD1tHOtHbE5UOlaS
ya+Rq2h3gfbPFyc4G3FMW2XfMqcQ3efE31EXjXi0VMWZbbUs+NrmtrK7xP01R8406vmAW9d6UniG
NtPCldVu0s5G1Q14Xs6rapW+ItuJzWxgbSpEhY7HbU7bU2MI4tCWJWItLVFLUpS+1M0edW1jEWrE
GYOXrSG0hsK4VqnZq2WujkbD2aDRlq1DHO5KhIQxR4UlfT4lO9KxyNnod5PNbYvBfWxzeGM6nakz
baepSmqaG2J1fjeGrYvk0TISONCRKwJmrau1anR3xOV5X1KKtJb5gRhWp7++6dzqg+ZEHVyCqxvM
22trO4laFF4lV+cYi0pcQM51MeFel2nKb3rXlULVnF3Dc1lUwpPLXusJ2vM6X5qEH3IPTdEwkocr
8ra1OWNjJ+I8cYpiWWt6jGY0IzzuLQtp2GWC1U82rhZTm0ssKRqXet7yeE5LNrSe0BeI80CZCef2
S+46AIu8/uDTpMTRDlA7Rbm99Os+RDE5rLQPksc/MbHh2qadm527jlD0JjvWxzh4EOtNo+MDzicz
z3icE7jkHHidY+ITWhxO6IYh4HmOU9amJ5DwGIg9sgJj0yTcaUHeTE+EIQ6A1ZRGGGD+UZKpnOAk
RVaHLmRNVeTUODIeHisLfoSzGgb6oi3fcq6aWNgdoow1x3osakINvXe0fY6dVUNN5QchXO5YicrK
5c1JgqYi8R0QMjDqjFxB5xXWPSiJJ5F5lqajEJEQAwYAGjdktBAvUDPKh62ucp7Tm7jiMi3NTeTH
Hq8u7G4g5gknVdRXEU1Xj5F7dvyuVDwRKx2cRKm7uINPN5WWIhzYLmUwmJeEYsTFLErDuCmLwn3l
Bw+3sTKw7L3Vgk1ua4s5S4sG1MCLhaTAaDJF4uRNZhc1ZsXicbAsOBjNSZ2NO9RKEXsxyYdKSJh6
CcrA4Uu9DkinqM26GTcGnp3iBNxWE5OhXWzj6NGzkF00bLjUnxUqsO9q4zI1J8zbopTlvMqoq317
xMk9FakbpZKfE616MmszXvAjIrMm9GNNIPk2au9xhJFQ+ZFY4kIiM1ls07scNTFCeQnNPIVxw8tc
NzTvzTB0VTXDYaEaNIxTEVkbs1Mzl7AlDAorXow21V4bFF7qROZMihsPsVUzV07rOTPJ2ubyOS+T
eC1EUhEy+Yk2xLCkN0W6uXJhxduTk0LinNEFbCeJrdy5jBWwp2qES4vMuZTwlIpCUhswnDvWs9m3
vJEWdV6rUIVcpbWXFWXcTUYIjdBfBQdZhpJZjw9VWTRfeDHGQdjNTzRyuNe8e6swBwiDw06sEcBt
rGp4ilinh2I5eRUzKG2ONVVx0TToLR8vrsZxz2hvkOjUg0Fi0yKwOKWkBsnQAuvPKGlTES4MbuBe
5gGZ7hz0jYg7JGR8jBY0GzcEJoPBvShop3tQgKoSCuK+O/IMiZnT50U7XvkQg6hpFSoXSirzVjzi
np4kGKECLd2Sp1xQjfL42bhO2ruCZEtAKUJsBD3bYYQRoi4xKJr+hA9LebKI6ymkGEYBEWy+97dp
X91hMxN8NgYiooLWqQ+TE2DAVQFL+UcviaXMBhUaiJVjBWW591M/BoV4oJAUSmo3u4LSfAmNmhhu
FXXGRUWmoGQlMBBrColWGKQnF6MGRF3zl9scQ2Z8mQ1xODNaVsxjdbqg9PnyyfqgjXvqZkTPCn9f
KsQulQ3qobAnl0rflQK00nAwiJkqq47sES5khnPNHT43WOK8TaoO+o7K+2Y1cDYXqEwQa7b3WART
LHGrMUFQNmUAXFSK8Q222gwxvCeIPS9N9qTlLGIHfKusL2lQjDWVp1tx3bpma8CqJLghV3qtoRkZ
wYHShKAba232qHqs5i1hOVp6qaVClAoQLUBSIZricxMVeWxDJ/goCjIEGgWLffmO5ojfCAwgeUGt
bkuZzep2WV+NDizT4XEp7kPGPYYG4+d1mNuQ2ZXjwnckgJIOUor5Ea9XdEEXkAK19bDzqvKUHcqg
Q6ZGkY3fc06rjRzSMd5LM9GcgcQBYUUSPXzt/cX3q6ALctgH4KIYJmHW/jANswhmG6CiBmF65s8d
c2R16Itx46mtBd2WZV5SzFDnDunMYprEAIlJDFauYKsaTsN4YpNgZgDTJBeGg26hUSKC94yVZcTY
iVY52wNfEAWE99TuDDlvAGkDyvF+NXHK7I3ka7pgWAH0RABLnQQ2uWHwfj28KoOSbiS8qCERx0Xz
AZX4Xm+Vmxs4QhtS7zE7j0RBVrUs1pKjijY17fbsiKEPLI1jtrEhw5gOJcURDTZTeQPfIuRmfd34
xVXnAoTEMC3ekR2CDyj552fd8Yl2vxvUuDEAU6Wo97LTVMOosiCPLNCzalESljbfM9wJSMKzpYNf
OWOtw+V3O+ZXrOi8+LvfRvMZiHrq4TAQcH15m+47Hz36p7H1DiJhwEUWT67O4IeVEhB+5rLjIoZg
ozTw10hQthx1Y3t3GaGp1lNST65LBmYd51yeWNlDOaefXB1E7vN4xBA+dc57XifN9bx2h+ct96Vi
mbXExlX9Rw2WPlIctJsAglxZtrwkzikRgBpSjS86GU1UYrZkTYUzm0kKUAqDl7rWlDe8tNUW1p5P
SPErWFL7RGb7ZmVeOSyyzX2j5IBzGYVC0vAbR5GIKryJnNTGIVlEDTD7dK5sx9WhNSSMtDOEx8cc
MkF+DTfHvTm3L6rXFLpPm07SwLrbOAO0/Pr8dATRGOiScAX4UC7HGeRgJ0q1SgFIBFcoFpOA1ovm
LMrwOk0SdEfcz4XZCCkTvWqK87PnoUew3em5HFPCJE9y9s1gB54tf1oWCS4YOPk1878VzFWJFZTt
LU1W27yeJ2vVasVfaNxvzxK2zNUDoBTfHn72HP0EC5BPvUA58zD+nQk7xQHjDC0XVmoqbJmNeYeV
GvyKxrM3oymZEaCRUsHpIQJzudv7cNoI2CFPvnox15x+yJC17fHDRJZe560dyGsX107i3876wNbi
2O9dzw2GtMOIRa1oS0cRtRFrfNeBEGqyAicNplXBWl1gRy0t25ScWgNr3avBna83jJoUw2WpqqXn
IUnLn6geAS+Zcx+A7+O3+vr6iIuKqBEi39JRUh+D6dppOEUdWcQ5aulmzBii+g6nONUAW3A/HZHR
07ONMFm1dqyQMYg1iOYffiWGpV8UFpcsxCWESCmjaPOu0DKTILyW74D22iZiTA2w0ik7XaZAcqdz
9MObvscagsQ4Axi2IVMpJKKgaXB2wsJody5EMmrWNb4tS2/BuetLHEq7nWL4ajCkpvqV1q0foE5j
jFgu1c+myurEoySPFoXIbwuCxh03ll9OUE1a7QwN1iMWJy8NW6tw4BMMixB/ezF8pQNDWPDAnbeg
m9lbDTltxNjpDMUWjKOXuB2ggdLRE3DOA81vBdHneko12WPK9HIpGPSm/KUb6weLxd1G4M7VgS5F
pykORhTSquVzswnTJtNAkM1odQWG7bxxw1oCeOKKu9HlDLbxhacZenvFtjcTEqC3NSaHg1ctJ8w9
/XDlVbi4IiH2JLXswoC1xPNHNunoKghetUCVnBJ+Ax0qLDnr7+PP2PN4W+jRcTdEnyoPgNZEIqAb
EYIa6hl4u/BiU2IYsaXbTWgpS8lPC6rGgearYqUKGWRA7hoQghDZyxqLMIkV32nXhQ8UGcbPGURR
K4teW83Ntpw3qVy2ZhUOotqpuKVXGYVhKFXhgxzuGGzkKAkVZBLaddTipFr5aJaDz8r4a0tsFrFa
VjcwUxxq95RmRbcPpc3WjthbR3XMXsxN/iFxlXnKdIarnOZyrytEbyYxFJtiNIXiXlvnOorrGl1G
ccsRWNYZfEBGma1aix1mOt7UdcrRWzFWAs6tG9jJcPHa81nqcNZr7ZwCOdhRemB7h4CrGShZb3ou
YNbOOc9t6cxi3OkIBeawWNZPcYYWjZtqxaW1DQUy+1mzSF3XbV2rOISuckIHhbKxR7NGIoDmUtpL
qcHvjFJsi3naVIZvijCFMvtKpu4gz0nHqqw2lfLPeG2WhrNGWm9qs8HWcDXZtRnbbOMvemRDekXs
KTltTGc8Xvf254rxCuN6P8LINbcWXlbHJ3etowjiUKLjiAvHlOko226fD3cl7vWXU2Ujc8IwxDpj
eU+fLqOcJ1h80DczTscSCdsnGGd9Hakx2tTaojre7UF7u+5XD42kNsZpUDsAPVPeNPfer0xvZFba
S71id+Szpfa3GDiEJNOMmvm2BaFZVrSVDjiLw5BZQMpWWD2nTIO4oN9IkbEb9wS/j5eiIPQTFEHx
AG8F8Z1mk1w5z0o+EbBxPM607lA5TUnpLjsdZ3DxBj4abBFoPV5jyHeeBdnmQQ1HmF4cqnKnecuS
Ez6js3eDqMsDMfNrsRQ8gm1dBeraj0HB4u8MFN4naviOR8KgeQTt8JzHM6dFtpx6/WNPr9i37EYb
qsrDVbNoQog7dYcdKLuIyBkbhGrYL0lKNhfoEnAQtE0oNK6CTaCL/pQOVMODDJAIM0OgCcLQaebB
6q66sGCHlcfFwREUrmLnZy7VkVvNudlDBzdh+XyXq7INXErmaMW0UuO8Rs7M0pIaYyqkZbqVwzpG
VsuVA445rp4ALGSOamwiXEvL8rLFIzTi4ngtPZs0Y0WlsLRGbw7Ecqo5N8vkZjvQzDA4QAi88swS
bmNVk85w7DDmE6Hg5i5WiJ2I5wRcbGFCtguCdKFXSqYCQjj5GTlVGGbpmcjHVl9Fq5NGeRWE4qgb
ELN4ADFTsRtvinYqauN2r3HW6thEXS2r4JYFJGJRTm8M1NVUIRFRb7V5mU5nYeXjIRvHshMpRm9i
RkaoVaofAVFZOHZqRKMCokZTxmLEiREIYpthM3iOTriciFbztVEcGi2gWMQGW2jih6SpoeTkJzCW
TfELmqmnnIiMiXo1dUIiI2a2oswJBbKOa9REOdi8esWVggF0FYkErIvFuy+3KuFRvIm7xLHWxlXs
p80RAWcWAxtcg2nCrLTSS8cfMI5GlqRRp5GbUVkzMa5tZWwI2ZsRs7F2i+l8zXxGHOVocVGU7pRl
Y4jkcsRzJd9jilPkZq3lxqzj1RR5GRTETTl9i1kvN6ZmdwRIt5SSGndFp2hJJRFbRmxAVCL18w3V
ZxVQOqofj3BrTMtzEUOJwXEZ2bOpcaKBhCPiPCB2YgFwcRzNCLcsqHcWhYIotAVGhIQGoGGIEjQa
woLT0wGl9nzcc+bvoz1zn7Tt2uXL7WORmaPyHeA4V0IhRsvTHvKogWSRluj8IkyoqKBlKUTNYbSk
QCTAkkkg0clFgsAhiyAZbVneKRV3QINMxRvGWFzOkbWogZEIGinmIc5/Tx2PNHssPhAHGIAaQwBC
2/nCBWiZQez3+HR4p7a55WwoMBgcb5eeT3y8cNRVVd3RHeA++35yrTNwFV8Gl2qzrfkkjMFvGNq8
7826xyizhhjMAOulZZqBAkrfJI18+dXe1s3PyeOsCfF19I2w8pyjwDosdtPc0WPDCMmIQEFNtwoQ
cuSWuLw1NVNWW4bE1kqsBN/UQ8Jxj2IwWBDP/YWVDrHeI6HA32QBEdc8aOEUASaJE3BLDe+SBVZi
VIMLFHSoNHOz8xmfOU3WFoCG2V1CuqrDiuyUetIYraUqSlq97VtSsYFhtrntCs4iIIoiTc762IYS
NFmEzVCEgAUBCVxdfGKcchX6mICIElyw6gcN8vvnW/XS8JtAcDqObwCzaJlxEBhxAXDQpvJ9TW0J
Y4eEJ7Wa94VnvE4hsErItV7KtS1+4SHcnqkt7ckpYWtyfhJsoIYmnd/szMCblhq8VU0IIszK06Zm
2UZ6qyNkUbBo8uawReJOCtarHHxAVxwHfeMJdw31HjPvzV81g7C8Pjv8jGtjnQ3wSYyYTgCzLBrS
lRWdCkQkRrNX1jLTyaMgAa1ZTpa2ZO0xURrFbZhye/OXSlCN3zUbYjHF8xvZ4qJAbVCLxdZRuA8Q
E1JpzsZbQeIWeIZG+syvsrXnS8j784s96tjFbDXiPiABodAJCFcnBXLDlwZQVliWI58oK9hCdYsE
LVw9ORNS2jUKzie6jJwkS0GrqrEURwRpREAggBKDiWuk5mZExbieLmas1szvW2KhBLIgMGbMAMFs
TQKeMFbUFjJJTscNO+0xUUASoRIX5X1i+xtQnpeTRKIJ0XbYZrIyaUb1zIbSGsLHaKx33pSAbXkm
ccTxylO0awu+9Fhgmb0huuKQFjDoEcfAJaeuIT46COWYhtLTiTAdINSgozyKijpKCgmDLgghR1L0
7ueOHBwZcyTnLThPFKF8pDitadFolMRXFXrxfnHVU0stUFmEtZzVKGc3g/Lnqj4NAg2G99NiO60o
JQ2dAioZ7a2i7V4FaO+52WdpC6T4x6oA+YR4ezw5cUxSF3lWWs3yr41KVa0EN8wOOBMNhrVfMYcn
MaPSfyvLjaQHvTpnh1txDHPmKymwjCBBmH+oSv2IBR5G3Ry6SfGjb6gIg1IFmARU7JNRieQLobRB
I5/Y7OJIIafrOR6/Hy1JVUSCkcU9xGZYA2kdlBTrxPd+sqLz1UmBC5MHm3KmGSaRLlo8b6vADQac
2BntnGqDIGyInEmtASeLCRSoSwByRcNkWA2lEk3Ep2sdr4WE0qEwBDS77Xg3LbHFdn2hej53w9RM
bahXWr7vGD02jKFDqss6fPZEqiL4CM+Y4PElpV4jmVClli4XnRmpLkz4lKBiri6Ralr5r3gM4ITz
+NCqZu7kZGt/oLZELfMuC5GxzruOh7nphvBS43jgkXFEHOVbl0VpznzNJjPPYatKp2IvqXSQxHJo
FfSht7JFiX1LD6gJSiwWC3WNoUqeYTekCUuqxNn1ra+9cVIttWtm4bdLi95Qgtt6z4vV/QRV1ndF
YjemWa91akrHitnNcihpeHcXQ8Cw8KJnHkyDwOshxAWpRm0jeWiUKqt/IrZQ4nLHPinJD9/M/FEd
PgHnfp/jhDqvpCQ0TZSV1ke/nve6vnAWIOcwUVj70RJJImzsu62k7RBTcmmy6YOg21sybwvZ3nGU
KMM4pKNxhoB60xkTFwzZtuc4eV42yvPMrDoB8eovxLNXdSSu46B8s45qsG25rSIrWbUE50gBwFhA
Krk0/DuSs1PJ16UzpkPMg4iK39FSi71bnvW8sAE0efHSojKe1bh4DnOVn3mtTOMXfee8NjeprOhU
ZqrutqSVnKUtk46V2vOh3ntGC3iGIlnFGUNO8DdoW3VoNC+MYdcidn0sFVZewRCe4QwPx8nouu3H
0TaHsOTZ6Nak5Lqz6Pi9jb2DbaWbMrkZXDL69hWeGdghBWXKi+TF7EvK97U5THHNnzq+a1hJ5ZuW
oxVaNGFGhBTp+YlZaylqwte2zTnqamgFtnxiO5kMmJIC6isGraI2njU5yjQJFjJrE/vzNi/h3tT4
8R7334J+TfE3uJj17Fru75ZZ2tsKatZEAsnUI9bBECAJbf2Jl5y321tgXyq7UWNYTZtoOOG2vGUs
DM4ztCiLnNL54pp6XnVp1e5utzMNJ7xvVz1lPGZ4raSxbV5XmDKXWwSObmV5W2XeC5nWldHaVaa2
tneM3NIWpq0t5GFqxhqzYXDa2hFr3zIYitHjtGEdRk8Kx1SufcNVmVN7biFt/uARPREfiW+eRbTw
vwwhPTLpVXQ5EKZ7FcXlxLkKzOa1vOmLVXL3C1he4gvGXjhZww2IwWhrIath3qZYriewxfVGjqcN
UuuxzGwzKbj5+oT6BOaBOgQeCeQHW9Ry584DGeJdI81MIyhEyeBhKUzTpxGV7Qvy53afWnaNVm7K
XzbF9o7dtWk8vMB9YV3QRjMSjjV8xlGKcAiT+t3SqCNNZFVhOloW4bal3zwsrV4ywdbQ2PdLM95Y
XYWv9lkxe968KON6ZlUPJ8ygES22pccnheR3XiGDomolEQaWYw+wVoE7S1mQ5vtWdNLOzXjbNnx8
5sa1vOmsZhxxU2jG2I0a5nFdPapnTYQFrYnEF8DD5nLYxedDrkyzyt3EDEjOYLNXwIUZpGz1njJp
lWrbZjoeBOW5y6jRQ5AwebHziZCcwHE4mHiXnS/f7F2u8HiFonhHpDwFl9gevoLj3DAT0KbkPHSG
62IebeOwOXyg9A7lNQPQJh63zDTY4c3AOU6mkewMTuPKPSeEPAviMzt3mj4lMnqDzUneoH6/8f+M
5/9v/x+B9ZvOMPVj5epvuy/4/6fym7h/n+ajDKZcdZnvWf9/uXPgL/WIKdZyc4ZmGYv/i++pu1tf
6oT/cfOMFWgJCn4LNxi4oGmqoODHgy0m/35iYf/v+lZDr+8IeJOy3ZfrmJf1nz+S3L3JRks9Xwmz
ZrrDD/jbz5r5DGCFD0wPEeB130wNW/Tq/xwT/GSCXimJDiarB09lYBp5KXJzL26/JQf+0X/4J0ba
TLM7uXutCY2JjgQHtgHH/8OgCr+v8ecLkASqET3+xo+6+G0aRB6f9K9iBuCN6zMvv3Qyiv/ju5O/
PEdYVtKo5/PV7qZW5LGJBwhDD8bce75vq6D77/T8cb169E8UA+Y3chwuJTyUJeFovLlVyYHXVkJ1
9FWLYZ6X/wtV2fprKQfLA6O/T8hq+kdKprsDMWx8gt07YfIGfLKPopOPSiHwcfpTC0L5yj8uYjSr
5sCJwygwICMggYLARLm73/1bnzB7+B9BvzPgWn/NaMnYoGTAE37/0QsAB41BYdBAcYAGQBQghzmC
5wcApaEE2fzH4EfzooiWsYqivpBREsmj+jNQPiCiJ6kURM7KuPYQaEew7He8njDwQ98fBD9kPmr3
24wLeH/X1XteuSdcMuBSFclHdGon2zKNo8GI/uGfNn8R9xNe1HWCfd1Fn3bPfSzQENQZAFVUKqlo
KhM/jTZv/UNK8uX/KMFepFygTp+jjq6J5pQ1BqUOW5o4+3jtIyfbHakeX6MTOLC7frYYP0IA+1uj
KYaXJAsQSCQiQZUESEa3qwHJnQZ565Zm+jTVSmMQ9kTVEeSBeB1wDCak8VwW+CqaDbDvl8MG6H4N
Yc8O3d5N2wV/dFgP8CnIoF5KQR5Ge64MS5BPcUE8K/h4smxfqrEdS5QUhmroGKmkevCvI9xH+YgB
yAQREgZyYvduiNkBQeTs4JbcMjqjzQ5FF3NnD39d5J2hw7I0wUYtP7eJjX1cbsjbQl/I0ctH1YEa
0zTvz6r1PTNP5NHhpfR4wOnrcE4k9O/WkMjJB/ojtVd8/BOqjyzA7YYkgkAkk/qen74h1KYkEtiX
aC2NeKKhIkoKusPTWrVFU1qyKqjd31lUU/2TbX8jn8OKeXBo8cyNsOz8/9UFvVdHJ+lmmGqF/2UG
kTwcKDrn9V72547btAwgRiVqosx5YMjvRhIR27Ep2zrCseie5rDy8GI7Ep3INjZ8HGDZ+rmVrchG
22T5/jTKqbnUVhhVZW8oxfvwqBJkfeRM+8oIIOuNfC1fBRgixrDlyRfpB4OREq7L9xcBh0VFQFSA
mf9PG2DtnoffnDKkbNzx/U9vXuZKOVCRqpLd6iDEqggyipTwN4h266ToTz0Xg/vmUdk1x1R6bUBU
QPBjRhB+Tw6r9mDyeXXs41RC7gBhOrkpxhiQRzlQTVAdWiWhye8Pfv7V0PMLsgmED3OUnhyu5yQ4
mdCaG6h9ZAZLxDVCttfLE3wNxMj75Ke2zAF9sqlAHiGnzcnwaRjTegaO3cxXnDmzqJAL7Dmd45V9
8HI9sqlh7zwU1hFuRIYXvQp3dFUEWPaXzp0ggkCA/+n1F+8+N9mrkyQ+v3+DMYcSMZuQY18fEMab
A+xqM+TIw25YcNfqkXfW6o19bXY44xkIQ5N5mfoalfzk43qtt+H9u/jrKOEY3IcSun4wjCtbkZYc
0hWp1v8M9upsbTbZwo4xyfbK/Hv5y71Rtth8YZSIb94iOPzna6af9yZ2eujRW2EnHyw5eDEEXZwr
gNZZ8G3uwCsF8bUtjGmGfnX87Pe/N92HPMUfuxVqjQm/Dr+PGvjg+2uKp7DcRqkO1QoXbsJ/TJiT
BhJmm23fnDTbEIyZEXDQp4xqDqIY7KF3RvG2szsnL0Na9WrN4cREmIYQ6eNYhDEhr2UgmcTGISaa
UWtbfEGg5o5Lpngg7MPHGrtQ/JdMbOTFDsSEg28OVFgNMmjZDhCFdVgMSIOyHdOMAOh5ooxHibmj
sR4JdSbirMLKw3Y2iB+KsF8vHY8P9dlbcW5W7us+T/HD9JvKfwGaL9GC+eTeV4u6jrgcY4QZF1Qq
M5KAvanx1T9/zyv7P283OdwVHjiY2kP7PwtT50/NMRzFKPhz9G+HgwoN+2wIvIg4/VgnNTfvel7j
Y3gUbKA2Q0hhE2babw2udHXEyjeG+PJLs0/dn5antJ8Ghe7/k5JPHgvfiKZDuwicawMMfy2Ra0nG
vYdD27VCrDwDAXsDA+9od11HhcZZBjl4VDzNsLEsZFAHX0ZGuqBBMgCB5GMlBC515/Hbu4vmj2Xl
xgbsvdatREOsDz0nsvdO5e2COVLQsXPw0Gds3NWrCN2JzjErdWya5cjONJcheCGROPTSa9aRQ6De
+XRM2a56/A+eV+WjnjLBtghpEDZHXwxlgwgdBc2OyeLBDOJl0U0pEVkOaAeaSBpPN0GZbbEN8TGT
loqqAvzV3wVjHTp2oVhzdgVVS/PjozhYG+IBnguVFHQKgFZW32aXf5Srzw78unAVeVT19IHH0nYv
u94Fd3dZE0vGUCZk1eK1i/dXdFDcSTPlp3yjjSImIjh3vrDTDPnH4kYissi1/PEIo/p8bX7eag4G
g2wUaOmLs1wMTYI8ZPMhR58GG43Aahae0UmpdEdjA+OlzM/qjUAdrOBx9PTPm9h40+JppOxHu/j1
omcGafZmcxKYOHyZH295wfdDy0ctEaOGO8XlmFcEen/O1tnZ6O8PsavlkZ9Xw6Y/k0U4cSdiCNsX
lkaZ4ypfhkD4/dBcMONQeaG6cZ0c+eRcLk+RYm29HNHx4Vz4VjGR1xzmfLSbSxCeaS3bc7y3QTx+
M4ljTxVsnwiUR4QIHjJT08HZdMNsrHTkx7/CDdT3BXVn18HdAZECIUnu+Ljg5WqNYG81lPiOYzdG
wk297cVnctveHcPXPGYHX1d4s53svkILnJ0AfxsFh7Sc7/VgjVO+te/YvL1eXw9T7v/IYvvP4I50
jYQ++f7QKgDMQQVIJ+BX65Zmd/SkadrNGRe4Tw6iMSP4+0Ef6R518CMKJK5dHKqCpZzMXh7KCkAB
/sEDEvvstBThp/ldSQAH/of6H+MP87v9rGEXJOwmq9Wr/+2y/4WyOfw6D7IpGIc8vLSdDhb+aF4E
sbuGh/43G/dQHIS1qB/c/senn0mqhaIDu7DwlREUQFQfnsL3Y4lrAyCIpIIqiNuLhfvFPxJiKEyi
CaDZIEG2YDbAYMP5IaKI2yNBwZPsDqNdS1G0NyhyzEYvDZOnE5s1kbwTTJAQJJXBickZhErQOmF4
2I6muoyUmaAO4ZBGd/tcmlNvQdHe7xaTRf8q2nsgCheY5oxD+yT/pDdWIGBC+7QU+3w9oI2OwogY
mL+yWZWhNzHNiPMWV4sE1udo7iIzg0Kf8pV/ilJJU5gU/78wXn/hiAcyqn/n9JgiH54A/RCBsDbV
MlFBNYKUP+JVkBRorIxOECDV3CQIgrGKgJwgdhDPl/HiFYFuMhNwgUCvJJENm53tMFLNWMpBoiyx
dVOpjRYGGZESRgzM4QSQQsODEbxwMsB5DExYmyMVDIQwqrMXBeCQcYIamAlTTCcGjIkQ7ypnPNRp
XmU3gY0iOSWWAGmXUABqpVKB3zxaH4eeHb/rwAo7SqFIniPE7MwNy+Uo96SVS3vSmiHkIiQA1Jsg
zLBA6uoDcO5ChTylxJHozAQOJ8oDmR5gR9GFQPdIc1KidVD2zBrrCRIkKECJKIoiRkJChIkoECao
miqIIKaaSCiCKKmKIWqSIJIKqKGaiIgiqmRiAooiWKZmIKcQMhVgj/tmtCK0g5CpjBQoh1Dk2osz
jFDIwhTJChUNGYnbvZg5WJuAX2QiupMC9Af9Yg4xHKIBUUqA+Tp8n63+c/r+z4YOZ76HxEh4X5/J
0cCeqUcgCgaBQyoFO0QZUmmDJFFyH08R9R+s7fq8vPz9f4qio4BhC0IVGzEhU/p/D87PfidpClAv
WOWljO57M4Db89w6aQgyxoqfHe1EPEfzwJxBTeRMwd20wvM7GMDU7WmQazQNWY/2b4yajhNXyJW7
Vr/77CNZN+XWVrw0QEJjk7rlEWtMNMoJ5GHIou8ITf2Okci1BJj/OakQN+WUrsu4Hf3nB2iAq3qf
L2ANhs7nPw7hNRRpIw6qHGr1QZUzR5/yP/u7EhAno9RHIR0ECJ47QbIn9zSfpbf/wD0lRUFWVzis
xXgRkdARXoOW6R5RjA+Gu2cc64IgHODwvIQYkCnaSRwCPBvKAFlP4h9GBAM7ULUCsVSwp1iKiAAJ
DhkrzlUIUXn2XNyQHuD+++slHtheIEOYUpTQPZ6z46KfdpTt8C2DWgprwocjS8DS7usVbbY3vLTS
9hi3+C9kAYx+wfJ8+YO/Hl7S54jDLzgREzCKCjqPdqspVPpsB4oQlENSESBK9hkAY0hsDHLIMSX2
+78azWi9vpKshUUPs//EKA/ygn+cVOaAnYoxP9pjXZBE1J/1gDvTNB/7j9iasoht6D2Nig+xPvKB
Q/iI/9FFDOCglunpPQm+1vijXgRPi/KN1tkkEy8LguQwIFxumKsouUqkddKBwhpGOUMcbe0eHnFM
ODggwIUwKRQSChRm1kwFDGoCVIcFEQxQAgMRiiiCpGQFsQzBHWsXhEtqYmDiCnSah0M2lcXAYm0i
pKLRxQ0AaEaClQipWK0SoJ6CkKsEw5Q02ltVIILEtFFQ0KsDw4mGgiCDCNawdoJiCEFRjBQUwFgo
xGBwQWGkKIRUcIIGyLYib2g0jgaURmhEVKFS0dlB4kFFL+Hh/iBF/4G0fpgppZKl+rEggw0XTBoj
xQYTEWw+d+jOGUSQZ4TP7T937qw4BHYnCgSf1kh6whTGVLxtaQlK2D/JUj+Aal5Ffq+rV/n8pki2
T/aGuU1tCE5I/dG/HyB7YfTdmGz+Z5ik/8v+vIA4qZo1W4dCLQRDkLkbMtkO0dpJCTlQDYYGIuei
GswMz7+zWq6PPBDi7olgoICEYAUOaasFA3QHc7Wk/jomQHJ6Rdv7R4HgEPuRzHBZ7u/wSPRCYgKD
y94/EIf/OHcLShyHYX/tBPGB7Zw9gWEsGTkm1FORoCO3mtguhyisO3JEu7ccK8sdV70jwORR64AG
oLw22IGumbbMqmxS6lqGnO5g9RyX45mwAsf2hi9hIQ7E7ndjpsB2CbQKSEhFT/Esw2i8z7FMxPVw
h2dH1nvehyfiT2n9O7/dyemH8vGQbvSaiqIiH38MkigpSYKIggmKJCagiVpCJiCn/xo1vdmFd79m
k0SiaHx1hR+tjf2W4J5+W1hrEkZMRP6pwC5A/b+Xd4vpztDy8JL3PtXvWXQHK4T7UGXs22Kh4/ad
IO/+oO10lzPtk8+jF5cMKX+s/xnEwwHh+txSxFE/r8NQlnDNZU7A7A8OLPwzs/dmnOHQt//Tt628
5Gh53E9ThpYecIlEekKx5VEGnPM0/OEEH9wdx+5wKcnTSQNLE1EkBimwQvnfIIIgiCLjd5J4fZhz
cWExBV6v8+QQX9QKA0oIEIhIwgIb/NVFQb1srkTDKtgqD6h9nMjrPrPmJJ5jaB0YE+sPbYHE/24i
OPxWkunsQaQNCAaQQkUA9tMX5kPrDXmbQCBoV8ur+H6ShiTEZU9sUoZ/fAwDsEL7AgYc58PAH5FL
D/zbv/209sFns/m+P+ywYf9Z8rBj8eY/s1CGCjseJaxDFoLpJ5/dXvnoovYJC6+r+oZhCWaCrnrh
/YNzNsfIai0PoSJmONPJrU/zIKWJi72zkbsxOjn1YpjrEK/fD/CBqIfHCRhttY6ZyOtvRiMYAQAr
41mTAovs+yl0L/apdjI1/g+VrDeoqw+OePX21/Qz/Zve9bkHINxxzDeFJvZp4WUYmOrTbbbHRNUS
Rc2FNGVrIHlLjRxG9fR/J889N37+DQeOjsZo0fXuQ+Pyz73kkPk4WIgwIMfY9XZ7uiy1cb2VqrhO
TYSHDLgPK8S+I07548rg4G/+Q9awMOOeRt999DYOGonAezu11mMJs6UfGcbOuvLhtRVr5/j/z7sm
JB6XB6XY4NE8IO57Dvr9zR3sEKtAVhZdRYwslFsvFYt6a6XiQDGIVMs0poPy77FzIML6fvAP3m49
38fp0LRD+cgwkIwBYRRkSdnqW7hL2+aiECBMdAP3p9ZIfhS0AzRHN/0ufSAQPxXV3w2AaJn/SpCB
ZuYEjof2ALc91fbpCJbXIPyZ+3viVbD/VfMxxDw/LZPj81Lhr1KWF0gNEiF8jbax/EwwPyKMA4Ku
g82h/VLMUOo5Sg4uuQ1WMU6rsMcrrB6R/f5Dx1CeTXYPVcLyp6v0FntwwrNzJAOiGgAHncyURqix
7PNSGQ4ilH6CHKWcze1adhxIfEeg15dwG8uZ82g0eiYQpSoyKTGSLl9Av7TjwX66iOOAIgufeTRR
f3Sg0AgMQMGKOkeptiZHx2AlTn+e7gKAKomzBFR5TizQRVVWWUm6QPfGQ+fqof4N55blDg2fqaJi
I+TPeRVPt87FOj09b9/L/nzPME/3QMQ/H7rfUd2238m/oOIcoUdBEyeu4hhEIkFLOZMEO6UBgHR0
FBD9P21aJwqDhkhVUVvKt8cCXCGwLgkkEn86wuFsqMR5emk1oeI7YuEzcyXolEpsP/b80zuPhgOU
YTySeFw7NtnbMMYVjlfPZYs14Htd2EWtGtFNExWaGVKtJfnHGmahACCcFFCD9z2/WjMgaJR/O7MC
aNvvxz1dUSVX8EnDrpvfhCtcqBFuUGVFQNucN28PYYfRD8g9DbPuBvIpouKxXEJfZ8OnOzDjqNlh
cpv3mmDhgpMJNRCmU1PJM4F1oWZEKTS/QCZU1/1fl0sMgP5WDD4Oq+D7sf28ol/yfRCGRdnNNRyV
TyE5HFvCBxWOyHfQbNRd75cgZa+52JDZcowLPWEowT+n95a1G7DUMRqizUBgFlVvzjNduB+6cKCf
yJAFPF2pu3bLFOZrklFsKmFFdwZBqDRN4DA8g+A/Twn/5eN4rcC4sh4RwjYEBmhoFUGj9L+uf4IC
Iw/ubDMMD9Qf18P47kd1G4MGsJiCMKqMYFZGR0TP7zpDski2YM6dDttFoP1a0IdgrnK4jbSr/0sN
a2K1zYxEW2f7Aw/xCCWlS0GlOCDEwkyk0P9gbO0OztGQX8ez9v8fAH+6UdpEr+X3F0i2KI0uIcwa
4Tef/0vp8f5ZOKZIamBq9R8qece7wSi2Bla0nmDefpDUEFxQOJwB0IfkByAXsi9yHSpyBpfs9msz
uZDih+SnUQYbjubqY6vAOwekO02OLxnIMqGoeR3qMCARV0/ZyK+oiuqJU+0ivnBjuvR/PP0xc/zn
NtYwgDyYcC12yWvYHphx/zxpx2xSWeFdBzdIHpIBhhmZesMkcejZYTVdsSXCusvgGH7QMH1GDVIZ
B5esh5D55R8wed9H9xwj8RPZP7ZRtvgk4FRSUnPSlYMYRmVa2BwwVH3bnudspPMWdPt0e/9MYByL
71uOX6dq+G4t3umtRwb6zsp0SjaqIjFZJFgyhUtnzpNII23sbGbPeH5JCHn6mdbyeRxfcdEb5BMU
w285cDEjo43H8CVJ9EcCGafWFlIT61mJBU5PY4hy5qWzpKW5jP/4ZlYRNv/wv/ugHAqwF8wgIP+6
fL4O9sHsnV0JyWP6N5Rf8P0nhkdXKOJpigdpHMP38hxIA5eXy66T+//v3Y448+QU+fBf7L03alBl
IxPLrokdnTVrsTmOcC5jORDuMav0WH8NmRbqpPgo2TESDIxg5M3YHm65cK00T5jVD5/v+/4s8ZP0
Db6Ze5V7H+03OeP+yn+0/xahDph/f/t7njTus5G1FXPJruX/Jcjw2QSRSIIBAJbqmcvgFAjrmSM6
bRoH/BNI29EnG/GAYDGAa5N7CnRTezlGmYSDYUDz51q/9i/u7B7+/Vh38njQdcNcOxdtSm4N6rMg
fz3kla2I0XFSJTqr6mVgAGE0UCyDJ35H1DwPIY8lkYGkdKGI9mHmzFBIAWUGHhsDCmC3TQb1WRPn
UG3zRcehz0PWYb8thIBstRfXttqOTrDAEcUYpOQCwP7w2GlLb/Q0B2jA0GHxN3yZtKNBGEMotYqW
K2c2VXxx1P3BJ08UegyBxQqAnITcASARHnANidCliwjEN6nKBt8h696uoUMP9QbkdYC7FDWWVTqA
NekLC4aLyAlUXf8MXP8KIPIQKlZbrly5cyDXkaD0Vo89mUbCFwNu7j1b4Mf0XSnMHyDEHYzenSic
/E/1HRhGYYuRJPoGOXzWMMmQYHoQ5hYFHBjiwnhPgB7EJSzjhgrrEC19hychRwYPmjQS5ITnrFzA
2BvFjR3obQwN5V0LNihoijnQUO2m+ME5u+VYiwK4xxDmIQOKpcZoiZQxJjwAzEYaCo508npJ+TvH
ya2+oU3Hs9PlHSH2AHNQNBSF7fqPc65N+8YwxLeCgOUhi+VCHKOsCi/WY2tudfk6JBrTgajLUH3z
uJ0fcGiC6OVANVcaXYiz9HEOBbLaDWOvenyIewfWv0/lVoUSSezH2n6qKRXuuFYl80vPmFK+wuGA
fObCT9WP5/nngVsmv6ZNVmbsfRrA/bVo1L9Z+Al7e1rQiHDCZCMnZzAlUFZ6R1agy2mZ7S/uxKJT
9l5Fie+HvLMIMn/V/7ZgQYRFuXc1f9ha2DcGlhY2GGTgWcJeFFFCa9TrOHt8rXP9HXDiVzduIHjD
Vh3ySCJEXAT9EvICm0AO4iPPxEUJxq6OP0iGFwc8ISSyCCISTg6rPh6/j/3cFcgSiNggtEsImRmn
NnPRdbVjZ33FpBG09xVUbW2JhP0VGLlPUHceJCjtARE+sRBmLAe4QkjvAf68mAKPz1FiGEQwJWH4
X7Iapuw0ie15wPkD1oV7n7Sg93zEIWAPp7iWQv9dAWLL+b7QCrDt+87cwDbkolRNQB6QBiNgM1Pv
D7nURTSLSrKf9MRxTD94bUDQuUJl+HiGx4j/kP6ouhYE/cSJHQBgQ+rgNH9GxSQgDjkfSgHIvBHM
gEIP8qBw37NcDNgQaTXShtioeQsaIax7DT1GTok84+I+ax80s/E9tB5qP0HydbTh8J7bFYz1Vhl7
XJ93R4KNhjgaqzBozqTgfPxvY/wi/3b1o7IDuvxTeGFVEw9O11EQzi4FDexylBbEgfZHaXLGw0G3
QT6wnRm4OgbjL/YYFkANdGuWWN4dG6GiQqD+DDKKIhiqL6oNaygiIgqaAmg9X5eQWzreBYKDiZc9
ssMIzXDo0kuTU0R6XtQtFshgODQ2cRtiMDfkp1fR9Zhv3YuRDcE7GO8iFQLmdGG4hR06qGJyEHyD
oGzA7ofNs8+TeM+T/w/mDA779M5WEWCooesC09ljDAfcHo9FB8EH6YgXlwGCeuK+4LkSQasfYDfc
JAeziLpDgXGNz6QeJ9IGC7NGJ+5f3BLESQ0LcjxvGbDccBoVhYCZax+cyLhrFx/OAtzMwEOb5Xxd
j24H0/NTeXgAZPiVCge8Oa9hOlIApEid5ZH5dPAelx1ryPE/GfYEY0SpKqFYVayj1RUvnUlg/Rjk
NtQNkJyb9q4Emh45IwwbAL/WoTP7hxDEn2GpR8IGImjgZ/YWLpsI4oZES1rEJ8vIc8KwfV1QwPVj
Gkr4VOFGm5/bq5n16q6/qb/8pBcE1GnJGoz8zEv62kHnOQZ3j/NDl42TKWOsPTH5Y0SDiNQCttZo
fPFHgYdjhRf08u2cF7WCA+81eJLCZRny0prNr81tTd/Ro/g/PAnuCEXxlXrIMzKDWYwQBmY2J5D5
TBDUHfw8iiSaLn7fZ+rfwDkEN/7pPvWZlmZNGYYxYNSQPH7vIUU/lrg4OAOZyxTZDZu58Onkx0mU
hA/fkPSDiX7Nx9YH3MTx68nGjLcGwg1NedgC5qNtjF3azYcEPxDlDQ2gQDTW0ejNu64sTdQGRu+I
p+suH79dVVfUpvUelfdOkH6wIRg8TgLfECn6EegDcAdM8aRQvyBuHqU36AOzqTuCAdef+sdPEHOO
Cum0kIvKjs5aWzznEg/uxHCSyxMnXlNUd9cQHyhd77ubYMFJduxDir9ltgYLyJwR5ol9oUb1yLhr
R3p1CWAyMYwh2lgaUcusCwflj2BfiAdaBkcVDQCDcTqTVwdyVqyTHgzBHqCOQYKsGFzVgB8A8Hl8
nkKD3EPef80P8mtLQmYWgQN0v7f8k/q6yi1x2jR0kXUNwvDro/PyHKx5T3uC/GcOQ/v2JmGVQWAB
LHUTvkJlBXl2cjPAqb7VTWOCV4BeKh9i66yPo3ddS3TH6ytDODKa56O9SMPDXTKn357VDysai2eA
cOVtcSlC/q/X/Ex6D2MJByG11nOO40SQbf3z9/+fSmqitQZCVlibDigv0h73tIUHIeUIeYey4ngc
OsZz8toP+tqyBo7Z96RZ/wUVuQ+pDFC8Ayim7aHsNhQ8JIP5QDqumZ1l4N2xPy26KoKXXFxo83K9
Hp3d47xERETRJzPhR0Fy5LqoI/v/3CFPvGxtOuDQtBFUAEDrsGk6Af52sJxg+YA0Dn2ICOCLpJAY
fzN0uCtSRTa5PZnL3cXB62y6aKzMQmMRWVjcKoogkTi8ebPExHNFtMyu8orR11sxdE7zaC7/PR8m
AcSAmMMPH/p2/5Xx1s82pCo02jnAJFaAYMGO5cjWIQK8m+fif5P+DFo/9Yw1/ZcbtmHprf08N5+f
T/OjwGRk00zEVB7D4hz9iYvxNm7XBn1Z8sURNOBAUGX8txR5oyD85+j4jXxnmxAjjE76+YmAPGWP
6JOjosJiwjl4HpOWo8EbDq36NBy+v+pCj6FPyIWW0R/kAr7gPouWHluS5Zsfz0FHcVBtaVuUewPH
DI/jb9YfUAhn1HuPN0SeD/Vvc2BnaeIjyH5/GgSUEES5UGDgHM3eVM2YfIBPzon3GD5YHbJP5mKY
bCuR9Z6vow9HmzujMxwGzAxCZsLVpMM0ej49oFtHCZPQfHH68BvJJAkhA6oX9cNQFjVc3+MP2n89
J//j8X0n8yqVUEBSlNX7Dl45z/HlKCGc2ZhrkVFsJqN4GmOsB7uzBkJsIN1DlBDcxsn56cRxH+ho
zkKW7Y1gks6BQXiU6GRGhp0n8uB+WZIlXNbGsjGeda09bFEuQwOKJRYMW1rUA3jKmJhfHSYWKM82
/zcgHjZPhU94RK48F+V/YnlD0fNoZ8UMwdrwR482CG0CGF+iDJGMSJEP24cHgawyqbto0aQpOmDA
1ihTUkIStiOrQDV6w77KFHPDJ1NxdZruM9hCncAQHbv267N9zYE7HWA/rm/eOTWQUvQHydS/7Nob
mGZK8lAcib0A4IE65ZhSUnKxbQgtt9wo5cCv3gZnP2mdjWB8p9/g+r7/4WLBg557yqIjQdYcAueD
ih2h5QKPCYpY5kuEYZcbAYkLqup555BIxJz0S/TtogUZ7/xnwfho1SaNGnHPVQ6rYY46K2BNDcqg
vEIMACCduDfwPIYASXMULP5Gz8Jof+YELr6Yx4IsengNDs8QDSGBJ/6B/EDzDYYARAfoNCYxBcQ+
e8DI2EO9x+t9n6cEowiw8Imtl7f5Pf2U2oOwmH0Zn9dhWQ2xbGJEMbtWL39ZkWhNY0bNID5iQw/s
5z27Tpra+wtwOQz/IZ/baYUGeJiyZXHSfngrqf3/hRz1UkY/esrD2+/HC+FQIyYf4/5H/XLExkjj
D/Xav4/+n4ZOX0Xww3KbtOGo0sn8P9/12XCTXnsls5x3ZF3mWYYSZBhXR0oHmFoxpW9pmWnbqzt2
lX0jEhRc/Xc74wqqrU/wbE8RY0GCZoYEcZNh579c9idwGdkh/y8Ffue9wPcvlmcw+TjneZG7bjH3
+3tJl2D1vCjd8pW5X6vgh8gh7H9mSihD9f24fsCHkjewH69M8gb1jIUlWRH6xOEU/DfD9QDGCHqz
RtAb/NF7tHUhYIf2tbBLRJJE/xNELsDz/YdmKUlf4zgfAS8z2VM044QBGsJE/ZHBA/y1BhATWKjr
ekDlUXLiE/PQQmd0TfYLFWAiqYdxya7gBcPx5KZDMxT41U1QuoMq+1/JNB8BwwOs+bgH3en8D7KP
cURpCg9vnuWMFh/r9OFWUFtCwT4llpzK/N6jZC/+OmhW3T2Vqw+Vzycg5x+qfNVdVrGvIJiTkzP9
ga4DIATgPzOumvt/7+W98q+MC0fjOHLe14Sf8bDrzyLGB7vshJL+Xdh6DYdz2I8UY9DRAR4cY3SZ
qOAwDFk1EC6fwIfGCyJ2H+ny5ueJqJ3Ql6bmRVEoL0ut6/xfD81wCwRDBkfHQeWRe3pPIXiT7gyP
6Jb8xKLoxWj4m44sQMn0+/7x+CYKdooCMHCS0nwCQ94KPt5+1Xl2NBxrjZwkYDTG7FnElzXDERGX
BcQboKiJ2maL+4gW9zutlKl/3Dz/7/t/9dD/+e0bY2dHR6Ab6Q/7WRsAe9vmje+cV5byVlCsTzBD
j/cAnza4ki+0FQR+sbTL35fTXYXiYH3H4Q9qQZimlzzmcma/izR4ouEHhhx4RqTG2EVCZhP6fKmg
P76/qjfH9mjIPjf9TaY7S6WdM50GHIQHUE8tx/pbBQ5AlZFqSZXcQwlL9H2+NOskmTHmpokLEM9D
YH7ND1iEP+GfGYTLJsQKUC6UrCzLUG28GP4mVP9f5JY2mJgP8V/GSFKJaIRXUrqLJbgrsWwRElwu
gWcz16hpgG9WH1k4jcgUc4ERKDBnBEsJmOtTaQJDXBemCXNtXU0c9uBdjBMTAMTB0nLirpSwNaQJ
MUx1ETEFHyCtycnAByLyi5LkN1YEoCUHX3z4bPFafmvYufVXrsUeycRqcP7MKwjm+9H13iPKQ8Sa
u3a1rtHbWI0EN0RXX+t1E2mDprr+h5AJ4NAK54IJ12FKSa5z9zNsPDDvIkfT9gZBuVaeteHQaz9w
YUuopKiBoipSliNzgRBLFFQgjAUMzgucfOIYfmFc4ysDtCphaCVNUGBE9DjiwOkL66HH64yCTcdo
DgfRkgygTz8vla9whr5YVrd3jQ82Hml9Mm9u8rNNYw3YXPEBcHRROxurnIRoRRRHojhGF3hnJsiO
44jIbXDM2YdYiPUXL8nCg22d9wTZGjzxCMjiw7jJ8t4cLZ8OAIig8YKDOOeCUw7nFOWBFjml3oVc
NGj3IK9mQ6sO+FaodKNtyemTnIpnVD5ftaNLr0pgmV5mniJ7NeOBzfR8OYOUdDqNjcD3aK4CV1r6
9s+CSp04GYx8DV+Kpfn3CA0aWn4Kvd6RkI6/DRWNNmiQZiUgSIiZOBAokRws24Za8tRgy5xjrn97
EukNANaZvTRfFofQe8PaBhmJg1C2GRBinw+HntvEeSK2/wh7voD0YzBezHIRifvP0Y4eYP9qG4Cw
BFvjBYA/Ki/rcQhf3vsE6Qbnyo9tHIeAGU8IunfkDj9ySYK7+Gcf6Y4fz8iDxMcn9XKu4P1Pszav
zIfOntNifx0VVUURNUU1UVUFVRFFVVRFVFVFVUVTBRQ1JQ0UU0LsPI1iH+tL00QyQJ7wJfYc6CQL
b15jAAyyOU6hi6XU/gLvCgH/cQbDrV2Msht1d+41JqFoDFtacwUVNSmVLY0aVruQ+o7dKDMAxzDs
2lw7bpSDhqTlCUH2eNDHzHTkHYnCOw2vw5ROZE21QHKWeYX/DwPZO3sb6N9CHsgiFIPATIEGJMAg
SQNQB1X3GHqA4oOt/R+EKA9R1/PZbVl6i5VFfCwFGnw+w/pt7QwmCSuz6032PMfAo5CHspr+FSkL
mBhu4uAv2VCHNYLBkfURo+0oSpI1QxQ5w+vp1XxObW/c/zB/2DHPSStVYYZ5WtnYqwKtWKeCAd0w
APq6pt+52fSd/WoDIzTugiEt5OlCM6ZmY8T+uycPtoNtidIQOBpIwjEjI8KqdeQrrwmO0EWfOfcV
uLNWy5Q1pcf8CvUsH907TAWv7lnOGwvqv/giJwq/oPSfr+XdChjYLKpihrP7Sn0SRseuxVWr5UaA
+3P4qlz5wZg/Uiwbe6jwXAxDG6QfmDetg9nzQJAiSHJQhifShtFsq8qCYNzcHMPAwNR4DUvRaUUE
aohaV7CXJ+wE4rxB28TjvPpHToNVWSaG5MggcoHEBw5jMgQbAdFw/OhpD3zoDjzKPw6438p6e4Hi
AtjSf4fOKqlkJtHdiB6vEvkT9njDyp9AnufA3xDGbjNyKfQfRmaxJqhlJKMlpMiDeJjWqx0f2eg6
TMycT6C2dktwTDYSgZAosWShxf6HFTeEPX/f4cfwMSU/N4c+cMTA4X25FUxvD8k3tGGVsOgs0HJH
H8e9dAdwZTPHeyoiI5bCKmCIhJCc9uiSktb7w3fE0H9P2hyxCEfMmhpj6sK4vj3iHMUBD1B80NaH
cGQJK8nyBC2KH7oBY0KMD5T9msP4v8e7Rdf8g6gokKAPNPv0H9uC0zRgjt+aR//YPPr+7j7/lkNE
bylrbO3HGSTDHBxniKos5+mdAen8oS1i+GKyXpzXUH3IBeoJliVDTS9WHlqH6CxomWnxrWuB4K4b
Z9oNa+MQE3CMcgXZtuH6B4ps1qH5Axiaf3FubWfMFWuVWWInaD2fu+4Ah+4hRISCkYgQIv3AT7zm
fCHjqx6o6+c/50nrnNf1wMAl5L1KOi92i9aup7U6Dx4AH7L6jxwNDx+TtC/yRzaPKa8f0dv6nVRS
SElpLFoji5Nhs2GIZ/xDjYaY/r2YhbowNkpoKkpExWy0QVmVVGnQak3c/+HBxJ9+/rNim8D9Ng1P
6UsNPLmpdF/SLknkHUhlBjC2DIMgyRSig4EaYyjSGBRXuj9cyfwMMIofKhzC/gpr/vtNvaDhTjJS
3oZglYehGaRfRG+SmAgYHlMKCDbc7sQP6LUGasFuIlIBrdYRagObilKOb/QIzC5kYAQoLgRVl81a
FzXoChebmVa3dBt3hwRqNAQalH7Mr9P9AVhmSi8qzl4vgw4pwEDkQDoQqSElNCDZsnL/iBvhaoIC
FiaPunx40BBbgwMsKVhAKgJIhbhZvcGmPw3eVNh22Q8zDl9PyST5iHqTDE9sJBIZa8fgSeysvdVp
fMSiRZSU0QMsMPzf3399y9tE/mr3sw1CfUGOucpT+1D/Lok5nEzspxzpl6qSNeS9BhpCH7rfc5BM
Cfd5sPDmfuGfEf2FQfbDzlF/ozBCIDNefLjE/9wZh0cyWTaczqTE4fk9OUSHDvrE0yRqgQ1aJgYA
Ytw8WApcg9wfvackvz0plDkdYuEbBtke2g1EQOuP5Y89Dv0hvDdbyfuSycKDlg5Y4MwjydocyYDc
g8fJ+WUzkKJI0SsT88OL1IcpR3B6PZ6gr7AtZLAQkRJ+aW+j4XT17diOw9Ukuv5L5I07cxjB/lZc
PypGbMeMzM4EMM1whq1prIGn0CYON6/WUYMLsmAG7sJ+QLkAkfL7RjDCQpL6HEP13oSDbD7glETx
ewqpOrjGHKEXYcAxDo2o0GqKxAf+Gjt8RPacEyCdH7ZmKWMDsaHIJ+O9HpTUZWnWAvSJmGKKXKR5
9UtTZKJnqf68zJxdu42Ti6h5CEOJQZKTtUHe6sYwgwBuGsHH0xOMPhEOuJ6gMGi/NV4h1rPkSaom
GseeTYHRRvJCNgCuXN5ppydlrrDMhipOJFMnIEzqxZsBz6iRP0DpplLeeERvFrx9f3jxcRx7WOLW
Z5ztnvP20TEnzED7Dt4IRkX2RYWlktcJc+Ys1VFUSvDB1e4o+/DLwn0wm7x7D5cANLRJFhP7sqX5
Bgec1FAvIagzKDkuGJC5IJDCgPuIjkYpgIYv0cmreY5maif8HSoe69oWOYhXJr/f+N3Aygn+2xyd
BhhUH3uHVtywuVGuV8FBt+zBiW5rNBZpSsxD7aFNTR6RzbToycc2RiaOlPoDB/d0z/3OvwY5CSWE
1/lUuTk/QvzCX1PBnrFQoYu+p9xzX28gEgZj35/jjgmJG5eQklNVVTGbPpQRj+rDQbNgfsw+7ZP1
6FFEL7ohY057S2/CEVzWlQjLtEdJJ+wT+bv84cp4tBCdFTV76yyzGYNe+dH+kYHnzLT1ftbMhj9y
CeU2bIBWaJBxjOCDMGxi2QemEqLUvpUfeMiF5SL5h60b8Xb+S8ozMcveujB6hdqQ0zE+gxO6Y4IY
vDoHDdwdsMZCa+1TE9X66HW5hrtJpwgHufuSrA5F0wMSb8dcmU5gc0MIA8YpiwfPrOQ8evA3Ay//
HMOqSOKj/ZITpNPK5heBC5OeJZhCsJTL0n/p/V04V/tNWmqOq2OiJQYhQ44tEpMvL/Yv/BfzT/rH
/XWLusrYbSMhIAfN4BujNPDCQrRr0jjnRoGhtmyL2dORiDdSRlSB/dVOyGX/fjXIEsiOBy6Dp02n
RpY5m06PQs//nqnQxrZzTk5WgakOzoyM7dm83Y2CTSTHPPn6y2OC0y7gOB3v4MAexfdiAJJ8pVM1
IU+O4cQD2WRFiPyIbxyuUJxBleaKGBttkREM5ODuPrk0t8kORhCfBrlmjNY37I7/afxe7rKwLIgP
xH/iaCs1ogNmh94R0U9J7UDcQQIWScSiiMQw04ANTVRDQSFSVQUAe1/u9dxoDf/ff/h+XhtsMzOE
0uKeG+3kCPkIEKCgoqhpqDnySS2dNH17LlnxkZaFUak+6GjbRoafyms8OEMEPkS3rPUhL+8X1k1I
WaaEKhJEgVQfXZHwoHfeydwOrnD8HeGvwZfJp8B5tUGZbzYvyCdw6envauE4Uy1ZbdVMP/Xz/kL5
Q+0/eXH+Y+j9QQ/3CGcTD98vP39mbf+Yw/lSsQtq/EsMtv9LBCQ0GUaI6D2Dbo/+jNkOK1vmIIn2
OdQwlRMXgd7pkJhTXCPBd911sfsjfuB1wvTOjRLUQDjnDFipwZ3DtTl91yB4VxlR0aAFUOhUjC4z
7y3LdNQTECmGSCCCBGDaaDe5TW1H9HCXyfucULUBGj8htQ3UrsB2xyzDiJAy87Bul382uivY5lbV
4EhMSMKOIBOYT+kqsNCxRDpBxR0Q0m8JuKGlTYBgPNvKDiNQjSMojQkba25djGHDJzIJyB0HDLea
FJnYKD+/sJHPQPIxwS7z6GtdF1gb8rAcwVCFdRYrOXTALK6v8YkgD0JDkm//M0eOmsNesOHegY6o
gzpA6XcF25tIQIUo6gNeE5YJs66TmcHz8Aec5Gk9DtP+RY3AZhsTibEy5OMn9hECiDKIUXshbH8w
/ME9jx8p3BZItMmTRDSyXPmP82bptljgUvFYz7zXKR8v5v5Gf3rCRjKZPcWsW6+RKDz/XzfVLoao
5hAkJRUPh8JKTXmZ+o0BQUPPpi6hgtkdBjzHO3IimDeZ2E+gzxB0DNzDEDL/yg+uBwbyJKHkwiPK
vGB5LbkOKYMwjeGotGZgTmIcaDyF8TlLNHl3tIh2k1tOmV//CAa2GYXxGyPrAy+z5XMMP6dmDzZU
Sva/T9S8i4NrsdTsl5R8jTWEyMbOQq8d/9FoxGjltLkEvBUC/L4Z57/aU1dasJbyvPQfHsv+rsB+
fp2kpkhpY+8klQK3jn3H8i82BuM6rjxcSCLQwh3PHjmxuML3wl4SeolCObMNrwa5IDgTicTowQj2
FuPqh5r/ijHa6bGwMTJNhrCCcsXWRDgZiVQmZg3+ixtFSmFJhklTMU4YYGBYw2EZZGBhUyQYhmZk
Y4ZhlIZJm5TKg1OSGMJjWWTf6MwjSY5RBHgzNMYEkRkY01hURI0Uc2FOljCHEsIcDRGmQ8w/jQxt
PKScndbSKeWCOMQP7UhUUA0UyOIcxamG8wsxC/542SBzinnpTnLpL0B/HxDZA73A8OQRchrEcNus
9aoeZrfkZZuWtKHWL0g5pyZUX0l2B/rzp/3hhGL/cNd/tyh1K3LE4pffsHQOQ8sbYYA3y/pveSRi
EmJoAf9ffScw9AH8fSZmlqxK5Dloffb9kNDqdC2Vi13KjJr7Q1wMhl53pgdFguPzQrDwZArXF7We
CT3la2SAmwQQ+6aeBEpsYViWvoXQ/p62Z/T3t4LvCGuKb77Lh4CcbIJe0Y5gw7gktf7xPdeDRbfi
trho4J5cglkRzSC0tDG/kPinBS93s1gM6kBhYctfXA5B1RxLjljcazLJ7ueC+O4afE+d5BH3/RvX
/XwI2GbsDDMyNhkBuweXv+iviq/7vr+0DvH7DagaZoluMCQoggvqAXZ5j8sFGE4RhP5FwLO9MvzJ
tN0Yz84P+wga8IjsdMUPwX8rBtYP7J4xJDC5YbFGd8SWcHCn/QsYC/gDqnV6iaIQJBCs6MjwE8fY
nB1/qIGqGnLSYsg+nqDnvFYFNxMwNqbnaHwnXwAX7Qt80SmzKMk5H0HmmD9Twf4OfvHJ3MTK4+U/
k9+syyIBuPQFb/lKNg+4ZWxofk3MDWoGBLqZ40OrYGK2INqDZQe41BQ+QwMEu08qJxqnBvbYB66C
aHUntnlk/Z6jT/wTwBtN9sPAHuns8vlpr/hEDSSXNdgtP2hkHm0V9gYOEyNKPyMEDRElEkS3Acb+
sB+tDGIz4gXQ7XxBDlKZKKIUHZiRTt5D7Dvxf4/4qzi4/z7XdrDH+PjeMxptDbbaWY4EsbKD2wqY
goMyKkVIzUIzCIrFrP8IZBMefsGRhtzH2QRlOMMWtd5cNa7EvgSiYIOBCjIIEhHGtzc8uYbC/e3+
sNL7w2Q5I6sC7qxO1OuIdVUH9VrRtAgJO0Dl4KIk+ZBD9WtBh4x0To9Qbx8htCDCZ4mIWAiXF/mg
vd47++Oh5j/pYLEZoJmh5wLsT/KEtmOFFK0T3d0HiOoHqDHCF11BFtL0eIqQsnth3viAvO7Bwyb3
jIeKEj+qx8/m3aaW/GGePXczMzXUIWhsdg2tRI1KFp0X/4dtPC28mp3aFzkUTq5+5h3/rdMnf+pt
iv4u0GSO136QxM7saA003O/cZZOmibdRmCkKM0I6CRSuggcRwkwNN+v5lwoWXbbaBBKIT/qGtcaJ
SvR449ZpG2JbvJLzk1OHUVjTZBJJNR1b8Zg4e0IY5w+baKG320monVjWcKX0QvjA/NPzPIHDQFVX
zbfj6ifb9YI9vG73EoDv+7X98OxiXDD4jVFVUqkjCFG+58I4eU7auXDFYZs1X0HF8500ewgLIwgh
1zHyjNnBtdNME7o0QR8+vAGu4L/0gfAC5r34EIYtJT4TkRDs1Hlqj39B6MVbQY5ZGIf8+BGq8NF5
J9xRrqWC5Pm/GO/8icva4H1JlBHH99FOcnKTZSoYaPhh823n+WH6OPHbguzd46eLGtrgmRmBSi4P
3O5/pA1AGAZRu4UO0LNuxXEM9/BX7wTPR1n2n2UHjHwqJ8zDzJk4E7tY+aKRaKrVi2f9ahCvinj+
nk+NHlOzI/hrd5FjE5IiH82fzqp5uw//WR95teUsaXSL3REjkSGshjCTBA0RhHvnn/hZxjDpp1wx
tCY2Be3OzQtIcNi8J6XfiInh9etfvXeFmKW2nD7aJx/3bM6y+0M2Y4o5OB4aNLrANWNDAfZkY3w5
x2A5GjN7ivoOL4v/9NtD10MNmjNYL4an2G/L8wgasR5ayw7yJsjXgzVDwxf/o0YlYaVdjsriXDQ2
2KFcaiUEG3/4MwTAf+9p1F9fXx6DjzwBQ8YHnKUAcG7uxkXLhycuE9/zfNWGdVjEMjWSv9S/6ydn
/Xkttm2L+shkTLLLLLAdQbwmV5gprZJrvR/4C/gyD7oBiRN8OX/35f/scv4Vcv+k0y9DdCnkg6oG
QNFv+dP++P/A/+kBRq1/+enha8fUyHx/a7hxNasAtD/3FP+o/WSQFwpjt04jueOX/PkibEXHTTnr
5FNiE6Yp4Iph1dh67jq2VkRHMIJUW+qk74CZo+Dr03zCjlN3VKhbh+e3dh1mFY4esnTLeWqMBxGh
8AnuRpeiyqswZqEUIoRkcYhCDga6fBjkkrIDn2A5EMYNjPxPMGMiw1rvyfK5kREQPFKdp5/MT6Bh
18/03u0trqQZyMccPhJ9SEO8kQwhRHG1FiBu69Og3med5wK5ifvP/ndsv/jHqyFK1UL4KrShKcYz
vSI7xyn93+mG7870H7Yj/8Pnd1EgwmEbxp/5bQ+pH+LPybbjxQGICc57PAQAd87LrSvqCRBdL4F+
UPAWa6P8P9R+g/7fmoz8YUHjtt5ZfAj82NYvMwYl0YfzfefkqKK+6Dn/7/nRNBbf0+fYbg2bT9gB
YP45GBvMx16aOdP80P8nArSEXCf3Ifqww3GzQWvmKoPWjbwdufWycLIMulvL/NPQRe+1ba4c+BuJ
vV24P9B/NDH+Jmf4W4GquG0KvfaWQoNfCWeEOGBOaf1cgYXk/EcwyHXsxHJvJCGqofccMjmACjSb
jJQN9aCXRHqMuO6ergkkmgEYkdloYnQFznI2eXZxtohgE1HI9dkLhy8rigW67V0NKCEIIE5EAgUr
cVAHUL/xTuvgRKoE0LLVMWMxUInAhrSW0wFEah6FAOyCEyAITllEfFs17oCo2Qig2VKpUIOiSD0D
4HIZQlEBEqOBKMwywDZrctP9VZl2mMeJxL5HKQl6DUHAlssycjQglxYQ7vpANGZ327YgBC6glCGC
CRCEvTrJBIcDx8/jD/KaFdz2mxK6TH9GHe4skkmzl4u4+zX5BDcf3B/C/h+P83l0PSOB7defN1Br
uXNf3P+EhCFD7tRh/QHvQyDVgFyOGqFFneg7wu3QP+VcOYQvq5cLOriVaIbEURNkX83EF+0caEvO
bgFMgD+X+MkpAT0EHRWyCimmbBhoOgRuhdeAH78jVjz8lP7+bbQSixvDGGnX/BbX5uVKJ16uPXuf
ObT/v/24dl/lzDnEygov/JLBiINkVeW9XhwNhkHYFsv51ozyLXJA8UXrwaFq/Plnw7Hk33hfECft
IP+chzrmgg05mJv24gbt85kJMFHVEvef90obeRiwVwSAswHHCRwDAxMWokK4wwYUYNhEFYqMQUdT
QoMC0HKoGlcwe8GgGlShS0GGSoUUXWAmLCEDCmyNaPrec2SBSGTWBSneE9JXRI+Jf+zf2ofIORKa
CjsyfGDUJAQ7Iz5MwKnvYRObNJohszPy2dssmortWfnDg1/Q8aqe+SDEKqQyjEKlI0qESsdBiLkK
HxPed3XWJTUxETRJExCNJ40WtBDKaGSjvWwM0oYJ8gG0MaB7zKE6xKr65++W/RX9WH9X8hX+vz3a
w58P7cj+3TV/hCz0hCgr86ofELd3nekP9Vqd0v++zyve1ctG2Z7LttN7G96rVrX1lsY2jbF63hUx
nnMmwma/igtDffebKJiGtt56XFcDLXZKDaMcTyZ32uXkpi1VnXNnMRAww8Y3rAYT8QEQIEDykuw0
NNs06YgucSpVnptJmfhsCeIRem24NUGdRxXEstaUpzEZwrKU65E8tKIxENqH+xAIAB7QMsPtDFXi
ySjt6hJY5ZqzSsuICW1lbNIVVYcYkM03itJXzllvLEr08gN8ZjLWo0FVuNlpCGbNhdgu1DtOM9HP
mOwE9+i3zYMLRW5fbbeC7KIZhJ5xlpRLZsl6wir75sj5tgLCjZqaRrBmacr8WlqNSy1vkVtk000w
fQHEngZUnoI4rHDOCNmxrd7Qt1MnzPc9zY577froLrxU3nfPl8OoUuatWR1z17Pv3DQxtGNN8rTV
5ZxtSs9OaCN2FqjENhDGt7IPaB6ACkaZlq9dts0zLayypMsp2494ERfRrV+KapC12m2QBIX38sPq
yOZ16cYN0r27+orh76NjncUp3IrqiBRq8LMa0hRntwrHKUGmlll1p71t+CII6YriDS1xT/eBdhjW
3J93jSFJy80a9/ELRtbVc7w5cyzLOpdtchGUF4hs+9IHMKNXDNLiUtkxtOjWrtC8cQfZxnh2d//+
QJkcY2WP6g21+VZWxoGvLamYy309zbMJXeqybicLywIrS4wZ0nCMsYiqmlYa4XEISxoxOqUnvra+
pfrkzDgU32oCdFxbVNqQbgwutjJ77xeJ1xpqKbwlG8VPA2hq+sEYXacLWOw2uJwvF8XtNdOaZOy3
hZXEBZYQwdWuPEIJb74lrfajQ1TWy2L62lEUhscnE93Vb33xB9Y1fWby2tCzUGV1AYZ9CGcvGkth
Y6jXVppbfVbKx1Z2y4b9Vq22Dt8AphPND3RHWooxfo5DDlJyhlhAhh0mGYYn1hALgMqFQUoBKKYy
AdP4yNhxiMCgcBgI6meeTjZ46gvLnPeqmPaMuku0mjBhOMoTvjwDC+epXMqmuM0Ci8cdoSXuquBC
GFup6gd/s6kTpoSnU5a+7QbfptbjfjmuaQhPF3n0nWuMV9+DdpxrjbdqG+HEwss43oZ/yMMb4pzC
AAZjSpakdQ5bTblIx9b4B/SwRVRKRQ1NFCkSQ0EQMEFJMCQAE0M/aPd5dd/h7OOoNx7Cn0hh3Pcr
fhlNHjgMJ8cOLDBv9VqqzaMXAieerWX1RC0QDy4Upo2CgdwpEPyz0kxEQnL+U0neDZ58JSRxIijz
CuwbaGBJV3wGSR9x2QZFHGnjLC4CMB8XH7wGKaIa0RQeX2KRJm+W9ZnLCJNMjIQig2NEizThax57
4imweucdEFkD1LpoSWao6PoTrSO5GUgpnoe9rSynXZMR1LQRLRDDTSUqVQlVVQTMSQTBQEUFLBDx
gvYgTVcuZgQG1xYhYjBMJDRcQYSGt5kIaRLcnOsImiFhbi8lJgWLnU7ET6gsdTYD5FOCmPR4PH3+
Iq05e2Sj298qU9s/SLWm3jKvu9ls5zHNm91hSeMRzGNLkWgFpalMzlDGnwKZW0sRZjgT5T1aahrM
1DPlveLJ0BCf+cPYQUsQ+7y1/vg4wT1nlOWz54p/Ei9W7n6OSy/ifdnGKDDDDDAsQwIMxPdE1lNM
RrMoR+N9PNnATHApQj8+AuawzGLwmzwd7w28fInuZ92ZOjAMnUupyIiAytEhyifeFNSVQBJUpcjh
jk4EhUFVRVJpzBr80G4nUnNwev3lrF7EqZhg/JCbh1AAysjSiSEaUv95Bkoe2D/yI+o7CO0T5iGA
u5Oe9DgIL8fl9AtBAGPi9z3rKo+NjyT1T9FvwsVzwp2bXev8xYS6MPioCbPAE62DtgCkDUERTqDA
IFiGKDyepl+o+naHsh+T+cJ/T5fNa+n5Wp9oUn9qRonXWWrOu1cV+/Od7GdTfbfhNm3dg244iRgy
CEIACcMjXw178UryHagbNeFc2+brcxhOhPrinjP0kQT5ooFkw4fD66QL9Oz9P+df3qv+rwspweJG
YyPWqUgRKz5fd1YgckFcdfPY+EIQU/P8w+J80a5+zxbjq8QGzqvqV2fdPdmOTGWEEpQ5MVjBYCZV
SLI56vJy+Opq0zSJ6kOI15fvXYBy5O7gZ2BEHd6642G8YneHOruPcvcn7yv9Kqvzpfn35DUAedRj
WbRYNXXcNnoVfcwpaeYyAWt66qs7W1e4tn4lf1UpaghO1LSJvG41qDwa373ek6SZdUXynLU7brjZ
sV1lbZzS67F1MG4vLOqSk3+kTFWO1pVrfWa/mBiVLbQSUsS7uPdZ9YrsH0KJ43Yi+aD3iDCsczLL
HO8AmwcE8Pj58g9k6h+WcjYxhCZloNak0xQ73rRtIMnJRJ/z4BgcdaR3FTNKo0PE0cMJOBOOh1gC
mKGBMBrAwcNKmh1gKbRREwxQEZZITCJRRALgG4+RK1KHzh4/SecA5u30+6bvW84fAncg955yYiiI
ggIoiCamqojBPCHyjdk4Acr4Fc4av78+++JGyAMA3qd6dghSnUpkAJwmkX4yvzknDpxUTRgk0w0h
VCHhHX6ZSg6f2RJAkQO8fhHvB0gbfG6zwN1QeG9eBFjCQT3VTIBVUl0/H5J0f7dMcUOYB8JUa3s/
2xnGqco/jN7xtnWUUZVRlC5hhhgUDIppEeKQNYkEFcI4zUIKFQMaWyhcCGIMhNdw3buXQ4yQrQEO
6ZsvFfEoPiEHXyjWBdOjDYmkjkzVQ0CJONbNAGaaGbIKoGgNWLDTQabGk9QM0taKdeRcGcEJqsmK
0dCnDJpNmokKA1E1RkZWgG/zbpnF8U3nIZqyLVgUa4wg/PZnzqw44hYyHYig4bm1LNJTJCy+njjX
CZhts1EI9tkWD0iEp5R00uNLwtnbuGl5UNgeFk0HZSewL4TgR8eDx4CDkU+9gSIpiqL4LJbNDwQo
x6fGyH0UDoWPwVHsR7PvhiUUlkoKQSIAKCgQibVL+gxlaQpiWi8uxejmHYbIIewN4G9LkFqAcIDG
FYJICUigBoVIHm4N98/BrkvJrBDbLxkpjNBQNUEyVSMJFNCVIye29NCcy+8kfumsdAoSsjQwsKQp
1GEJkYQL2wxBDGV9O0DFDTEB71IPZP3IHwHRRsb+Fp9jOnpXC9c8cWy5x5rhX9/6hdB5A/pgXpTt
sCclYpIQKEiGqAJCgZX2iIpsUf09vHjHhHDugB0slIRJBQQVBQygtChVSiBLQLTAQRRNTMENCJQU
ULAS0TRUSDEQJERItIwRBAEkYqczxnMcmucJABYlhqiAKBiAIPfmTQwJIUxMjAVIlTEMskVIEhL9
aE4MBJARAR0J5Q38Jjt0ftmqAmywgJCgiTMcMCxCEhMnIqMIczAwyQxoSKJaiQkKVYSmYDMwWpha
QpqiISskIavJpKMIx1lDJgZc+ZJpLJYzLeLkDq1IkEMw1QU40uggyihMljDHDTiMTWGCZUGQmQZI
AYhCZFLRQgzCUoZVRk5LTBVFMhEsS0UBRMZZAxJhmIUFElBAFJSlCVFEswNLSMVjZUS5KmRmYWJh
YGE1C0C5i5Y4a0GBFAasWhNSmUaMVwMIJKhpggSlpKIyClJMcyVwMMVMDMSHCWhwDFwoKKKIqDBw
QJHCAkjHHFAsCZpgwTAhCAZzKAbMEyRmIgGIaBrEVDDPynumKAbB38J1mjjIIkSKlllH0AIM4ktE
AYmYGcZlGITkplGCJKkS0JgXdxyiX/LBjIxFDbilCgaMMnGaiVJFqlGwsiXgDWkNJzIag3ZAyTbD
EKQyF05hpIZhyBDCx75BgpHQI4D7TS5bHBcPe+AU0SoVCkCgdHyr7ANwTMwC1xQBgtgcGADtH6f7
sEPIQAUh/wgKmcA3kQvHkign4xB4+TbndPYXoD0dnqQ3Ce1PkCUIIUO3+mpCKgiFSYGAIKiRpoiR
KiQZhoCSiAUmVeYD5B3j+h8Qmzb8mBlUFWOJk5BhVQzShCqeYPUVTVA0E7Tg6TfzePa6ubmAnsA+
fz/GWDVviERNrEgd0PdAOGP+ZYN3rMMLuaYB39ieyZCRIkCqESJESAkeTskm2Vy/zlUwk0MPV4cU
8FXbD2jy+UNfqFz7fG8Zydk581BmaIUpYhNWMOVBESUsMrMBMfn/ZrRxCg5wp8hFOkHiFuGB4H4Z
fbEDINV7BbLILSE1LWY7f0y8i/zREgI/jH+YzUp/mw+0clRVwfzxyaA7nn5kz5wzFhgxLYhDFjJM
yklBDAOFks00VERTSsUEEFKhJ+ThDvD1MhK/pDzGf3PqF+Z5jokiyDOso83h5MofX7zwfdR6cE9h
h/D1oR3JBJSnMAYQPaByB0SunnDzhDIE4IWhYhwSA3AprRP+TOZaCkaTS85xo4HjucAbAnw6QQC6
CcQZixYI0QQIW4IASbBAlqAlpJZmlQqEoklZGgpQgIYhIKKKAogqmqIKqIqqWHsEG1Pcns7H1v2D
BB3xRPcHvQx2c/EcSHJPHlgOQpQC7IQP0w6ih3ivlo4SNAH4kTjyjS5I5mDoDfDpB9gyJUyjLMEk
SiCns38SJYak/KJhhB9uX+WTXGvrjjRf5AlUkJkmKSGJIPIB5Cdyr/9V/pied+DlNCx8mCP6ifeh
C08Z4xPJDaI9nf1REOdKM8EOkIo9VzrI/kh2pIP3wGh7PodRdIoHhgB4OZadwn4nWPMSLzwhzCBz
xNEWeEQNjsXxpAVAEO0zASpEIJ2vyPv+9+Tf8Md7PiO+UBmxQwTvEuCcZBghCnZQMHcGPQZ8feDo
1B1oA/hgePaTmBJBDxJo0OGVhgYkS1BTrRkjzn13CRuIkZGMgwUFFAhWFGLJAreEE/Olu0OGJ2kz
tnR2mkLjMmWRgIiCgF/xJ5mlQToH5y/ZchD5s7ASBgEQNYYIKd9ESEvg3bmFjXcQ9iZ6Zj6H7Q4f
jwn5oVKBB+5UBmvEHwLeNScGgDFCmWBtLwoYFJIbtRkxJqyR/OaMuMzg05EBATWt4BZkCIEh0iZi
cGwVEUGhKiDWJgBzsQ9mh8IDv3REn1of3a1BSo9jFHRnhzPfwtYDM9OQlgdYD4oyAKQX2fGxYimg
nQDL/kUCYQReyV5tfNo0EIJJCONNeHpn+h/1AaI0TxxgVmaExjaYaMNCaDfJ4jswUEySZs4geM9h
07kO0UzfgcBoimpziaQ5lNEAaiKSSJCgsxrAcxIHMKhxIDGZgJGmZ1BkUQEa9UgT2EqnLAG6+OtL
BQBJflVdWtOUYBxw67xDS0kUyyUyJSMQsLIlKVAsVMVMjES1SSDUIUSyATFMEqTJQLSlCytFBRDS
xCNFFFQpEFIVVLCQBMB6QvzBaZKGJFiUIhLaPV3VCy+j1yrKzJdRrME1GQuZpw2QYwUEVO8JZYtv
y6pPrtcYGQphFGQ8D97unaPHnn1WBAainiyzNgfJPvSUTAn6kw3IJj05Wt3MNxG0ClpzFs4y6XPC
RqpuJAcbG93eBkyYIYc74qN4F5hyaNfs5AQbzkujZ1GnIE5Ion/WwrrcA/d2OFzrdQl11ixrrVDp
I2toIEt+L2hIweaC3G+mMTvJkcZYphFIWcKJmnUCM3IMMZ3GqOSC5XgaiFTvCoxNYkVTlmVKMTKw
oMQ1XEompDuMghi5YBoA7mDTGmBQMw1eTiHGgg2DJwpFbXgrdIMadeHVmiTIoikksKRQHK9o2rCv
ud7xsSOqKuib4nEvORoRh3EZiIIA0jDbBfgg4Mwcmx9xXDd7a511ub4E7EB4GifIR97Ghr4fJLCU
ZINGf2+PQ0I+aCHUiLUBD2NLrujwuCKBjXn3D4l4Fvad/yy5O1NdqBncyHMgNPJFMKxjCwCRkuA/
wtGSg2EBzUrpWPngbAYnTicKE+WyHqLngmCXDXI02EVWuWQR3hnAGoS9obYrw6K6zWznZwt8V8y1
cpQNNgQTUe7lNM1qo53pG9JhuTtBzxhz25zichyo7RxOxQKJLHVGXZEOYPuaCEUFA2+N8VjjRwJo
uhdOHCGkZwZsLs5CTNo45UQtcGu2cbS2nTSpsm7t6HjHqd6dWYxyQ3b4CN+3D4yOIMn8ynL1niOI
5yHeRVVEjuJTBXYp3GeQZhPo81fCcwLENVSdHU3/qYh5Q97SaAB9cIHxh9eIPzwJ9RArvkDSJ2HN
QIfCSh6BhP8Ek/5I+wF6RPfSEhpqou+qJ1BCiRBTMoNN41dgfgD+pE834gUe+e+MysDSvKiHd/In
YWTn/RS/9//zOr/5s3DtP0YH4xDLGRxIeCj0B9Yj3RRA7RodJ/alLTSSIi0CwQJAISFMcPA3D/z5
tj1sG4T6QU6YGIIBP3hD7Dx7PsgDcPuTyx8p+kflU/lIVDYHBu17hIH7j5M6xfqmK8uC4Qn08Xr+
brNRGtYJtFOC3Rk0/RHD+BBT6NOMJw4mQkkRFBUiwG2ljnWXGAV+aROItYZMN28eMXMwTsbSUJQe
WQMQ7Cri4D6P60KJD92vLypKIOMBkCBYmcV4p7g/ByA9CeAPCZV4P2/tP4j5LYS1id/J+GKl+g8l
L9AYZhla351Jn/LuoNkXN1Xx23/wqtu/N4ST886p0Yd1BUlIiB1nQhgLmMUHXiLtML32USNgeYqo
jtDxhACvHVRuEB/xd2Qf7P6P4/2/f/0/h/s7nDXnAVWlbfh+EPb/15qNVy9LkvqTrEU1BX66iM/5
K4nhytYMcjWKC9Tq53hC+bbRrCbbZvfUlzSVGFKMaTNMRwZaWcj/P6Tza873O40m4YTEI0GthTc0
iZbTpcTLDaEONNRZaYcSXS7PnFGoWgow9VV5VhMUxUMTG8sWxSVJwXVG+qJbVGQAvO166hX0Ce5E
+QnOeBs2r7rgTMN8c2AjSR0ZR2aY5PCL1zWnN80N6UnzS0YKpnE9AgtHK22B2hfbbcS3Ma3eZpR1
lRXtnM8IOYS96rHNQ9aM+K3vxd88bcVtSotPAL1pqFtQiq40uZCatmZgJStC07tBpqq2swxg7bMI
ZkMtSctTrSM8iFVGdShsgGJ7VsZ3TzV37ic9peh6oE74muFdRt5570+Dtesm1kVYzy9eqILLMFYa
ba1oSk1HE4x2be8ybYzuHztu/5Acwg1WhxvTY0Wsc0jwr1nWrrqG7DahhO622g17mfE8grSeNSlF
9TpOM68GgiK4dZf3JvtGaz37x26ATnXflPk66vLiAjniUVjztz3tI4taFuU+dp6XF6vWq5zteK7C
0F1balGzfVaZjQVzNq7RN44zZ55gTOpje+hszzlB4fozWkmG73betKu8Z4xvvIVYneEZzfecISWm
9Rp4WjWlaroRZLZxqLSrsHWal7x1eGzGL7C0YZFdnFtu+eJ7hZVzpt91g8tszpmLWs1hC1b0zp4R
lfGatCQjUdvPb2Y5PzqqirjY8DvayD58+++TPqvPtT6XeHL1Fdqz1nGcwtFdmfSznfN1s2IRrae0
Z3faQ2ztqNH1esyXnGGXhB9W2pdc4eW2JCdBNWIqXV54XZaabeE3bt1sNWrLGbtQfQeD9T+txHqD
zBkLrsFhDWgvrSweYcVw7Q/9zZ16PkOjn5uc6OSc/bjyvZ19pmduzZAt5xi8DWwbIY872VrACV2p
iljat5Zj41g8HhnU4TMsUvg4zauZQr9E4k8b3/IDmCiISiIUBBAJEZFUJFQJ80/6ELKE/UVn0c2n
Jfn17cuTLly44cR2boNoPbuS8BDxkV9qz+B81OCFRcP3+bIAhBEJIARCfyusyn/X+1bFPLjlx19m
W8+/qs++EKzanrDx9TWBNV7xeBpat/KedUz7FWL1bEZhYPlRgPbzpWlewAnHC6FKYVq4gMrGfALP
8Bbes9lo3KORgx3ZaJwcZW83hri/93ELrHWFg9LUZtU2w1JZmuqqYXjTDXtwsq772G0saE9Gdp01
roOqEc5JugA+wzmw3K55uwuKS23ducV4UfqFqjhf2IEGBtPcCnUzG8s5zsJ16b1jWm2U0BSMcUa4
xs2blX60pI3rRttM3MS5nVaCct4hRIdOv5oFCBECf2kABANZlpeOV9PymstnlJeW4pOczTf8veql
BO687a0z6F16xbVDtt0xPaSjc3Vb2Vs1v943CIiXQQzvHF1jy9oEscY5bcqcove4PbAQC5wKmBOs
NXDVw1aInPjhz8mAjtghPSV95b7b3bw2F+K2EAHgFBkIHwR8/tD6CEiVZFhBCBACJAIOAhzbMjkr
p6+Q6ctmPKnd3RhYejl6VtLr2sop3vFWvSrRvhdTytKzpKdyutSp3kmEI6jCogLarWjUiJ5xSEsd
uAny7AKn6gggEBpELcQ3QdNwc49GYL4TzgrknQJ5AMdfxV7WwBs73kegyfFakPlIj6T/OEX6jagp
uRPmdoPCTBBQwEUSBEhEEFQFEgypTQEjMKEgS/A+8nr9XlE8a8WvruCoMwHwGnAYMT+9l5+vrzSP
TFFCRNNUhENFFFMEMMV3qCIDKlCLAxwCJHCMxsmgJbExHBgTDGIwBpKUMSSSCzJnBgYgMkGmnGHI
KMWVwJKUImqaKCzEHIWogrCHMMMJDACTJKQJhIgIYcsIKoEKKFKVSkaCiCEMhAMgRHJCccBT2kNA
gGlEU1gTmSUhv65JWMfgyshwfeHg8nJofEozO7uTBBDwu57qHIMT1Wfa6oAQIIQYlA+H7Mdnyww/
yfmsJzj8v57ASNQ/f/fQWg/yfXk2fYf+taeDHO/XP5pciE//WGrDRqPThqeO+dma8Wo2MaaD/xYR
t9v/zk17PWYw8ep/50PPn1peneS9GL05/xTBiL4hWFFhQBp7svL/wH8//Hx6SFimDa3PLxBwUA24
gFDc1KoMCaoF5NgtflD0h9NCF8EyKqrRitFqXBArevsC9ews/D2IlJZ+891F/2+ofT6X6HYni/KH
7SydXaFLVQKgsIAPcNg/qHHA5RPzrR3bpgyAdkAZBfnxTpbxyuzRmxSh+gUQPYLp+zvuntE1nhDR
rQFSqaxD2qWQt2pH42LiWAgEUoQ6vvF1G7prAf1mtP9VfkzmKvufB+PXHQURxLzHk8maGT4y9jds
0prtb0uGvt64jmVTMxoD5kiU4WXJvpLaFhgZtsZXwtqVdDcM53R8A7Q7AwQfS/5UfR8v8beWJrhu
K4IWGpEqGHyXtjTbq+7aj0EjGVfpQpI4Wl2cnGw+DHERYwPI/33A4SXoIOS6j+E+8KVH70VAOiIN
HWQ+l/lozvSbE/AfQn7Dh708CfwwQQyz01UfzEbWoOfnkoPmP2g/MK8A/OnmxBfNB6IJpAB8MEqI
HTN26lqqD9L3HDKS4fSfZRIeMlwJpbXYq9BOIORH3nxD5VPf2GHH9fbgYEcMBLc+z7LqYlq//KKi
gEDx92WpDEv9WOf1RvhhgF2plsuqA7IgjILtZAeoDRCCRKC7giOhJHzKYmKk3q+TIVDLdD1wmazX
CYd7OBjhE0pM4EMDJKcCGGG/Vliv19ldkd5IRwSt3ZqTcEuvCYcOSwOHJlo2LcgU1p5v36eyqniN
GogpIH9/fNRJh8v49af4Ql+Hhn+8j7/8LK032j+RxWzznyn79FaTF1vPJlGApEPKM9oSnTDvHFQ0
IjWJRnjDQy+aRrscYljWzlnA7+qBPuvqHK9OUFNuTMu/EZ6ly5VkavDjC4pOr4XN62a2YxzxmD4a
GjebrOVuWHqZYotBtGUHteQecZ1WVhSur51uBpeQ3q9BtPS4UbvvtXUKOpQ2auNLaFYmQ/iLhO8D
pIIAQExnHTpWHE9Ryei77wf3c97PnnaK7Ran5Ayh5pnLb1G/W+FfT8Slwo3tCT0jN1pW9N7C8lvC
t0uw1DxREWrHdlrd7WFXuuNxg0/lg3n3sb8yK+L132fmBTz85m9+9+Tl9ZnnyllH3suIGj5bO93q
Y4w+sPqAjHF7ztVbxvTV72WJGcSnlVlV63Nb2jJqwliZ29BALL/Sn250QJ7s3txXdjbfpnesWPIW
5wm7zrzo46SxP0Ga9a5sqvbOLR24nFTvKFXzvtWlIX36DEHpPXMBLRhbebyvwOLBpifE7b2XitEv
MnDalcM14xvjicWhWp4qHlKp5AajCl98WK02LSNKh61G8rkV1BzEMoascShrVNq53lNswjalNpXi
P8FnSy7RlmlVzs1jK04LCVVrLGb0ZuNrUcLrS13lW1oXrMMaahGU31oV1VpUlrWLzq887bHa4W7L
WWIeyMWxaYhakpWUeIHoNQjypyrGtsRlCwTbg5FL8QvdxC0JVpgg0xDilhaZpWzyffZVWoUWwZrH
bRc2hy1aVBtVYXlnJd6YL7Za0L4riV1eG0s+4Zzmmy2ntkbjbaW4tKmY1suN7NBjMWxbM8QzCLYm
0I5ZdrWq1r6xfD3pR+LzjHZ8aityaMRiVwaHjfaFpSPmAiWHoMB82yM4PKk78t+QNGB1xJc8CeOJ
Z2ZajNVW01ptPvwszc7yB2k9g7XWd7ODfPiu8DX7Qu78IyPXNJVXw15Tfu27KrXlbxpzCeLyceiy
epBCChyowHqeopMiEBu6ULYLKU0A4N1uNm5KRIhJDRaaJGW8KB65RPc7fXvRetV5wXpDp1fuMYGD
1Wa1EOq172i1I98JVFyot3037jO9YcvDx8muPnOrguPbv3+x41CCGYaqigkhlJSIkJaaiqUkKWGW
CKmaqqkiEgmiJInO86bY2jjXP/THYbWn2EOgA+gP0KBEII+JBKKwX8z+EA/bgVMaX80Tq6+ju5vh
O3lnZzTv7DrfERJFYyEpMEQAFMwoEsq8PMD4yPBB5yzMNiH8yQxMzDE9e40uwf6pQO7bu+ZGsVMM
M1Jp1lBAW41l3i75fZ+TA20r5SXeDBjI/POkJ8O7A0cOBtvFbUp/4fyVmjsRkCHuflkooXAUPrPR
w/VhnBAwwNx5xxpD5bKmQ2wP1hajUjmGD5aP9203OtZkmopGqC4gwsxo+/PmuqJfCHwj+qF25VVT
6ycEiZZjugUiWKUng0GCLkK7/GBeyRcILxQoNKdTR5iwcC9ECotCu401dGqVslE29/R89z/L1h11
LhaLR6/NUBUhERFPEAdZoLWZliZWhzJyExQpqiIEISQJIWI0PJL0Q56Q8w+/6vV8Pog5V/r9/4/j
WI/eG9ZWH5XV8X/OchZobYmKUctSVqhbP+dX9mG3I2uV3xke8b6wbLE7bNC/Lw9SfBfc4KH3FcKm
LYB6t07Jyn1CDeoTuNzPlyxy/pA2U5v3tPFNV2rDu4lmZ7rRvhc3epteLcu87QOp0BdcalcxEbSx
bDRrnLSy1o1W2yic4qaKxFqXD/0MsOAyICUP9pBIUBYExkxkMExDGZwGQ69njy8zy5/ACU9QQEFT
6gf2hJDp1oxqJdF36Z4HV16FuvON63jW70YQpzkZaw64OsZm2o9p0m+crtQKr52mL/uSEtr3F1tB
oReB2ammhfAVrWpCYF/3gXHYgoR71AJClabHMCMxwjGawyqJschnCwurM1OFJUZYmEOYQ9RrROqj
DKExlkwywMyMwCDDWZNK7sC3i4wzk2GJhGYGGEZDFYxBkAZGRFiZlAZlkw4VhccYzpLMONOqKKZ1
ZYVljkZlVjEWThhlmFg0EBRkmGDkEYEolEAEKQAqIqgAkAKiIeVNrb7b9X3XfnrNIX6w0MV0A8en
9IAMaZjrG5hHMtpi0D/TVf4uF/pUGUyrupZYM5R4QPPlE+HhiMxrrDoJwivI4puatHlRQrXVTbHu
8ut+zx8qHxIKQZUzGZEsaoxxBCACECKucXsxtOoy9Zx3m4TuIFxdmVhevAYZ59yImvfw5b9pkY8J
s2bn3uxU2+I/z/30Yi8fuQ8KKdCJ7TftMmDMMAELJ6HEN8BlOZQ9ZiUkxlmnAzRotQQmFEocJzNN
PqQFFMMhSLSUkLJV5OGUjAwNEB0J1df3+/3yeOb7nr0t3w7odu3hCQk3lDucuEqo6IX8LTvmKrjM
B4cwgCwwbNJXtXXl7KbUq1BDJeYAT+WuNgVWl575ploNRGhyGpbSs+4jQu37x1n1QKPn6szgEhQp
8wnuH8B9f58gnANF0xB5T0vIRSx4ilV9xAqBs2uIWvSchqCSE/AaNaiSs1gUJTk61mWreOjNLhA0
GiqGEoMDAxqCFiyyQwkpNlRgQusyqKaYJMIJYKFx3aCUJqGIDgnCXhcki/45e8jbCGMsQKayyQ8p
8Lp88QwgHPtwsIfngnCKmMPgQfjYyMr4S5QBmE1v/ds/9DRBMGIaYLkgQNEIh/7sLQYQ31LCoYfd
YT+pMcIOyCpAP0kD471q0t+2+pm8lwo6qCyEhpEeMXpNnTAhEdOtalwmiJwosiDpPzFSkNMDKEBE
kSzERQskMrI0EBJinEJuoA5Pog8ryf2cocwVJCD3jp6/nE8JpydRX9G9P3IfFPbqV+pAYLr1lKIm
+1jVcUoFC/0bvSWDBwqkgSFZuLo+bWqDUSUKQu1zEwcTCokcMyGDLNGAoajKGhtTgJZU6LSDJEhP
/Gr4diG04wwXjQEYoRFEFQoIqCoiOQZWgGPIDwDC6zKJdiWYGTYbU/QaNqSh+MGfaPAW4nLvDmiJ
EYcsCkJ1XaDxz3xtEfLfCn14+OD+5J+0k4wOIibbBpNYZv1kosH9VwKIPovT/P+bKyJ6cSqgOR3D
De4VyYKlLVSq1UpapRnn4LZo/u0KH/s5UVDxSNkp/nKNZEw3sfnjZL+T4fUF1NF/RipIjLaFz0jy
vbgF4TtTwfy4AVrKP/LJyKGlJNU+S3sVAyQoVKJglkXwZiAlcuASqKJHbFH2Cjj+7/1+79m5OGR4
GBDz/Do5ISGoKDlnAgImisLGkhsglSuuj6+xfNjxwT4k7thlZes8ZQRqlWUhgJP9ML7jfEkaPB/D
79G6Sj+jBwliUf4eTBQ/zQKb0EuYYMYJkDHhCKh/7IUZtwaX9o/9rCDlD95WPgHRpEYfvFEoCeDG
LK/nSorZkn3fIVxIgiY+yyptj1xf68aHV2g6fwB2mDx2Vng08vyj24bZzHtog8840D9JKH82jAWS
9sD4L58yjYz1Bqo6P/p+9FXJtZ4UMEOT3dGk2QpsjgMzMjCiIyHzlyUzE/7Ot0D5DzgcJISEQEuM
AZNCVg2/07TTu+Ww1gEJhgYTR+83JFaAnLIjoxTBwcEOIaANzuMLIoDU2ZkJrrge/HB7ocImH+9K
biG+LoxDiRX74FsankyNgVBLqJheUAYQF5eQp1wQIfeFCPW2AN8RtvChp8+BQOqd0HZwuFlXQooM
8q2ECEExzN/6UlRpuF0bkuXLg7ACLaAHSx7O0oTjJE7KZjQHHJ+HbKjBdSBRTQNEBCewk/h5Jpw2
MkSUUeX9v05nlvzzrmjiUUdwUm5VAN5AjBAvPnH7xH5+X4EtURKH8sgfR3MKDuZYZ7DDkn5qSpHX
AE6OXUe16MQ3GYJkhC6GdEUxl5FJe1hiRTmYSU0c8mJcZKHc/YndH5yEJVJSQIlGDXhpMFRwD9xW
AQjCAQOTajhrm4DmP5g1X1yelDKrWvB/QD+X3vE8Rq7EdS6QA3CeeqlSpAhckMqMZBaDFkClaaQJ
h4yTUgmSmpHUAsLRKDkoEELCRkq6YQNDKBSiajJEdDggjmZhbwokkDcmLMsazHRGNNMkJQEyLRFD
MMGUIwAYRSEINZbVBgwaTSi/0Qu5DKTeOYWf5g0m7TLc+wgzWAUOQmjWDqjFCogvLByeGEiSi0iX
U+6KVgCF0/nxf5UDfj+1A06FM08HJMdZj/Duh4g2oYG57ToUZb97CaXhMTAPFxtabUYn6vqfe2wg
FQMxBxPMBq0F/vR6B3iZ6clHEja1B2if07KcxP5ygrxmpXqehgJpr10tVQfuNyuACBaB/KeNO11f
KUPDIX9HSXnDDfZsQkkCvCYfyYYH2VkVaEMt1LYzfW+EaOhpvbCjg85bwZqmKSEZocI4bktY7mh1
1jjmWzRaUMoqKYdJETY2LbbVwl0UdixS5mNibmxg4KqasYRobRuJp4SJphQIJ5dMwyVgoKUFR0ag
49k+/jS1jZW9xKzq1vTaaW7Owv498GnwdXmk520qxJRlHtrG70xCG7eLE5anZGHF6de22gg0oKTI
aTyg72TpkvLDhnVT4tUTqqiaomiCWk1YwGixlxgy2ximpAYxNDbWk1NRq2sYVrLGZbtMjwNIh/8I
RHAEJwJpRmlIR9Hka2jsKiVOZTHUAYGY4gYQwYSiSUFBkJEBq2rGkIIZIzab3VU25sLtpZGslyRD
Sa/aRRBpRQZ1CvTRDFZjIVZHLAY4uLmQaRyMDSYMeM0txQ09AVG1GRuM5CGGNZMIEffWhqrAYQZE
wGmNi5IoqwIFJBoKYoFxyyQGq0RjeDSI4DERiBwxlAG0HADRwywgEAGsYGPWENwgqMKaiTGeGito
dNvAeuTDQR0Y4crDwy4SuBKJuNMQqGAOTKoBhiWtETGmw2olStMGG9QbYOMTGIdveLjhnZ1ckwcq
4GK0iU4cSpMJGBzIGGpYM1kWk0tUCsSJYBVptECII2xgOQgx4BeGDwmAaUBMqTafEtNIlFmDRoB4
yjIwle9cWsHpvZWJFcHpgo3kC2Qb07ydBESQlPFw2sN6SJOZdcMNxrTMmYlEZjgwTnBoM1UYbrnf
FhTTSbTjRhTo25o2FCKNIMhsaxkSY4oNkwpa5ZGkNiNjNDFWg4YQYMNsYcNCC8BkFWBXTjcLRuEb
G3aObGGWJphGwh2RuR1Nk6kTJQoDltkdUSUgnUm5yFNEuSccYi8QbwzUDERUhxGQYbzi41oZjg2m
A6cReNWAw3ceMHitmAFCcSZIu4GRmOANRthF1SjOed95qj/oHzknAdlQbg45ChMl3MTo5I8ZrOnq
UQ8oUbKLk2S4MTGAM2DRAm29bg8woq2mjdidYZYakRmmTCCGUkGDaIq4LWso1YV6TUZI2TL3bWcb
DWiCrDbMZwwG0bHqRFqIyaLUx6cENgxgxihIlhERZCIbckjhkIVje6RVrkLEbBEHt8V4NMKDo0wb
HwxqDDC3UFBoaYGk0aVhnFonp4226mjKZuGmzJXGMaImLb0/OHO83LFoeNxqaDwYEHGPIYlyCMuB
ABDqnGl3skgaq7XDnOzIMx4+B11zpxMayZX+99i9rTQORK9+Nmx4aJt15iwx5ZHbaxtuWaHVpoiG
MyGGZdKMZMtcuuoS4sa6ewHm1saME5kK6pVU9+CpY0tlBXaw53i9W23rS9SbkGhCmuJkIOvWaNao
FEaDVCD4W3+H3tnXRyH5lPmKSR5d2jxD1Jku5XJKfMkN6xXkjmI4MdwBBKbKu3WBlytE7uoKznRo
iWjW8FlihbePMW8NjPFFHPm8mghk6LfDvaj16F2O3Z4lOEL08u0tr2IQIposKNHTDBmhc5AXAaSK
prMgMJl8r039j8+n2NZkmsurkROrugeAYLgG7OQP94Z97L9TGf7xH7Vzhd0vn97tXsIerUMmak5P
i9Jt7rZveqtVWgLVl/0zpfWImAWt8HRziVlFYRw7VfMvIDqBgZEsbWXaCRre09bw1qbTsY4gDZ3p
exwLUXaO9MxpKRhic3dtCFbxyLZvLMP8QNqMb1padkAioztILMxwLZMbvPVxilrRwbXP9m/qlM7C
t6jLUaza1w+KlYX0NbT3tauIBtuZs+9s1rjZeb2z7z3z5nNU1EnbUOMpHa8eq+UOu78t5mfUdRIM
IUEoLq1/YmdRpGbWrWOok0nkd08wtuEnuMRc8rU3hHUsOL8W23eyg1rOtcNqufaAz2ebxUVzi+J7
TkaxwYTHFnVdYxFIttWlHrN/pZxfa9dWNV2wPZhd4TwLbV2Yu8Iy5bWtTidmO29TTFZSw9c7NPNZ
kS3GmVp1oEs50+c7SkI6virvtpZ2bGFjOttKgQPdmttjbEa2ybBr7YW+lzfJXaX6E/Hj9QHrJtV3
rzvvMDnEb0Uzo0n45tau9pcQ5F6c56vOfWWpSxfdtoXF98QjAWD4koz3uMWvjgavioxCgrxxKx1D
dhjCl8tkAZni7oj7YCa9wxUtxWmsrvZTCeVmr7PLGhW6zNd3k22hPIjvCLLW602tCK5rh9WtDEXo
uIjqPVAiBAgjgUzvl+No8YlwFzN5cNwy8PKOd3yJauPQDbZ+QrV2bbZkulfzo5Y74lzYIVWam98+
rPVV83x3n+6AzBgwrc0F7YvCvEWtLbK8bDWFVstHbVmO/VIM8KnGobiJO29Igvb/ES4lGFTs29to
tGm99WvVpa43d7CtQbYrNoB5LacGtDCieN3lGFLxna8MTehyFxtO0otr/EXbGGW9KjBhtIy1PNxh
ZLm++WpOMeT2tqqO3zCVnXiO1KyWGByF4iXE14e8uLO07bxeVL5lK8YvFMvamWztMzoNDmB2sPiQ
PifNB8Sod1VDdQeC8C5AiFj+FFoUoDs8PJxzmgDX3gx3FvvE9veZANhyHHLEgm3iYtG7wkPEyDb2
RbxGhk0ZARtpPBbgrmI0p+MDA0iJiOHGg3gREDpMWLXJpUNo5ZoMFtVGkbM0jpp7W8NpDwyDZQ2u
AlTQ0g4QNVDFUKrBrcCXBY0LgwyUA3hB219kd3gFHgDQYB0rzFCp07UoDmFpoTgR5RFw1IcL2TDF
DApTowaxRFBbGgMA0LYJIxAxCNGwk2BPbnezFeyaFM7clEQzJxs3HhzEyMcmCEwCCHkmCCd5o3DQ
00qETAIw1qy5NV8jYHRvkOc2nN036pr26LOVV7UlGHf5d+IzjdlaWXLYrC05ShmIg2I0bOGsxl4c
WWmICE46xBBlllW1rYamUCXFsUvVWyta3z488+b9fqYB+c+n8cRfl08Wn9vH7NO9a1lFRRI4QbxR
qKLJUhAD4WsfP3gnzGN8Ft+JMxhD88irG2NQyQTs/yBVRnWf24RbBh+yIm+C/ePl+janh3mA4sIA
QZt11CqGyAZ+g/2BaH9fc/5upciFCMmpBtiYN5JJuz4OCZRNRS0vtsP5J87T7+taKCJgJIISevTE
0oTDMneDGapaaZJhJDgOA9/np1MHHAJ9CSxS4GogSddFD+Aa8/koqX5zzngkhDxdXr9HnxH0+D/O
dJfL6x9koXn8LYacG9tsyukvqGhXF7m1s4yv1nZ5Tk1L54CDsAhQAEAD6L9ErzpzE6bc4SvrKz43
dudK8PLFnfFyc1Nq0JKc9Sypjljmkb5h/m6/cE+V6Zopuvc/Nb6yJJtVoVpTk/OZnPekMFsc72Eo
0qbZxPNeSsS7w/EaGbhY3++ka4xfGDmUonY9V4a36QE/gGrj+a4RSgJ/60BQBECgED+SHtrRac9a
eO220Mw5R6YVY2lGZV5yryZWhK/TrDOIZWawhiAWWdbUpqmrvmFLy0AETghAJnaNt/17Qxa2dWeE
I7bxkseSLFuW4CASJQnqQoZIMEtJSELBQYYjqgWD0oDmXvqyyw0HPGQkBjFInl8B4vIviH4OfeHJ
6DsEjESQRRBCoQhUQBDALSgBogVIkwnCTJChyyT6YEdEJqU1GawVxkSjJTGDCREoDGKooWZoAYgU
pWoJUhmmIGqmRoEREkUThgVOXtnL0Wz6e2d2HdJu6K7K3Ud3XNmK3i5yU+xFigeYnDZouJSkQzQc
Pa741Tx1OU6Vneb8KzzN+zVWPJNU1buIPLlSqNEYReaANIrFAIDACBmcDPf6es640Vx4zknTz8cz
tgZxOTmwt9kRxCA4/gFBtJlejVAqAdxCoLzEx7ec8+HHcMHAlIuEKI7yqVLSoAcQEfNfgx1xB0wH
RCaCQh5wDCNyE2PhEINJbQwoy2odN3DcwNoGOMOXfvtmR0Y0HfXfjvW/TMzv6dW8yoh8Iez/CjoJ
qlU7snUk/IfjN/y7HvkRH744SPlyM2MXmjUQ7f3UidcV9jc/MH5m6mqSe9+c6RCwn4wQ2I/kUVPL
RUkJBgLjF6LaWeAdivjPOgLNIMIAnGuS4KqJSWVj+IFS0yc4OuWXiH9sPv7qjfxmMZGYWDTJE940
liwxsaMyKqkhAwgVZcMMBjsBFsFiK0URhcrIxBHW1SUGU5mRQVGnNBJorVqoiJNlE0mqQgUbqIks
cvNwBARXKnAwharkC0WYCXiyIu3f+CGi7SBwh+47qFGdlXYE4Ugm9FBNZmPy7/R6fRbo+T1+rs+b
9H3t+cv0GH6QBlhtSmf+KBsQvLVN7mU8Lc/mdxPazq2Hn14iNUEdbJwn9qJCfKPsHJn1y2hgQnxG
canpxLo/PF5x1Z5n24g9Rx9Kmzi8TyKiibrHqHePIGgHl7z+UiM7B8HahqCkZI7jP1X1n2cH59mM
l7ibx0ebbnyevA81gUHr4+2r0rLCPhhQMb7ZqNXKiiJgIegVZ6gOA8oetXBNdBJB/XzFhIKn9/Fj
uNhqaKU3vWig9w/DLON8Y7EcIlZUTZBQarYg4Aqlu0365AeDxrliO7AqHX1cbtrNLeSqP7qp+mUQ
E8JDJ/3DSwXtBfcowGhPfAebylzlOCEfnFPVZPuJ6jx9A4eT3Hv7n9hFPwOVTeIAbIAqeBxS42F0
R+XAxu+94okHcmIcqfqg9yRgxJJA+cO0+q1z02s2jdPZ/LYwiYMD1SRKg5+gErebU9HgApfT+rHr
S5TwzSkWLjAOadXlKDlQMSASKT1Qz5PViPWuC896Lu+lU7Yc85jzDDGES5RcWEsSNK8/eNunkzPi
k4wlOYkweccMKjU7QT8+bbl417FQIQwCdPRtM7CFqkK2k9cvsr3a756I6vEHi+Uf37xPS5L967R1
hwqSEMEDlMisHIu3L8hyZ4w9P5zQ+g6MDjgOIgbxMvEcshqhCivIVbO9YYZd334jiX78a0CjDezT
Le9VTXb5oAn4j66CATZGhkdTqbbE34sFcGwxzepp56Jbsiuhhp7HpBjJvOODFvKFJbRgxMTaUYpq
KKKMGQsijGmWxGxrBlbzsyJy4SDpDvYGk8bicsJJo66onm9j3wVc5YnE0zQwMR94as89cwjynjoS
5NZB7p835q//UojJUv2eK3t0pxh091N2Q/VVfyUvrLFT4athcE1wP3R/QbjB+ucgpgqIrnwcjx2Z
zc+x1tMAwhIaEN8eGWosf1e2nN6DrOs+QTzFih88B8SCrdPwfR5PCI4ENJspK9AWIEQpESQ5ZDt9
yp77TJNM5VVg4DAwwYPI+TUp+GeZoOJgg2inohRBQrC1iiNWpagAUR+uLYiLxsY4Bo4kyooGRRm6
u8bPAhhDgEeiKWt9IW8Vy5ZcE9+rce5YfSdQcA2vHI5fdfrnutX8ndh4Jb34Ve2JbbevwrE+27+M
XTevh/i4vd7S7M3QMKGXVT7bvdpGnEy0EzUURQRCeBMBoFUh13TqsazdXujRIceRsODrHUP9LgQ0
riEjpxAjxOQ3YCPcZsDahPQFJnLGMmBR8vW4VXp4jrzovLoy3bdensSmCjrzxwzNthq68JdqAHIZ
X2nbUN6yeeNZRAEBqtHE5q4LIEFqAedGyujmq3VK2sEQiB6O+L0T1Rxmyr2rdCgGqYLtO+bA0gBg
KrGAgyXK1CCGwTLkdsmXqXOUnXqUOiIAg42TKAYbQqM4QXFmDaBJlJjLLQQBhUQVHM7GybuYdsi1
fDfLcu02mL8mjyC7+O/AzjnL3Z40aZ17XeYizyzZgjyuoRPicDsV2tidIUBrErUZm0TkoBX97hgK
IhGwrBgMYFo2ZPZKrPXs+/fnwjbPY8bdO7ObBRhE0hprhUEJCwWAEbLKuZuC85kVG+Rkog3G7XIp
M2hJjGHXDHHUaJojSxM240AY7jku2HfAIMEvgwojsCb6PGI9td1xQpwjsbV1yHOYJHduPYZMJbRW
ORjVuNYThizWPjYMqsHkY5BPjz3okaNc6Ee0pRKxw9ZB60DaojeCGrV39xn0KudL3Dny1dSQXaF5
ZwLZtbnfwEM5jMBtwCm8v6R9c7g4K76DhywgFzcIEL2cREPVIDUnf1qnR3fFbTM5xAPR6Nrpm3mt
yqbsjrWzsDBARHAmAlORAgFCuDpk0ND8KBvHul9zMPO1v1zr1xcxKB3M0d8W0mzlnkA98LLaMBoh
qlR8Wl5SYGriAsO+kKQ9p6467cHMhQIPtjccOQdcduHftjE6TBKGKg805xaROEZyk1Ojrn3IdBve
udYkaBXmgeNZsaMQwYQT2kI/swVEYjuueNS60Q7USxNGjwb6ZWLAqilQNQSaGDExlHdRY8eOkNIY
guPAUBxkEKogeg6pgjADTZgycRQYafl7aRWg8PS8x8apsGNhofsu3JdrNEImNGQ2WonGZw/PvgeO
VzvBnbgoOnGxdaUTNeRcBTHEcsV7sAUQ4hhrDO6E9FvkgbxvRA1gWg5ZdDp9LjnsKYOxM7Wg2gm0
b49dCsqmccHgaCYj35XE5iNWQWiEfA2I3KC9F33jIBkicCzIAxQKIj6IC6h2wPDsILQSGyvFAV0Z
XxroZB7YcYddB1gHXQvGcco9C6gJidkBo0qXz1R3v6njnucWeATs9GwWhnk0Tw4gXE0lwKq4NKJl
e2uWDfZ8MRjJt5T4bhvk4pJDZQwgd/EzNRmhPRDYJZh7OkMQxZuR6bg76EZ1BoWhguggBE24HjUg
dPOkWdIdoCr8dsDQeIjyM5XYYPrWLrtNGkRJaDidhhfeHsbUjwa7prATYWBOSEddQux3tbz0dD5w
HtNZ2u2GG0Sh7TklTKQnsu/ODBZ6nbQ+GreOGZ8NckUUlM7MraCa+BT4dQEG+MvGsVQI7vGHjI2j
1qJZh72MxNCaYch7c0JYd6ESW9T38o51piNEa8kiMYbaAIwqMiU0Q8Z7vuxGKM8i3yfH2Ox6OoNG
kjlHGLbLcpz57XnTjEeQPEuIaHQDcK+rdho82MsdTTIt2xZyzMCQGHp0ILePE74njABRUC9nkaUC
zIvV8G+zOypPF7J6OMzgRMUDx5Y9roJU3z5qOqkBIM6YJPjzV2Ni2aZiRWl8X7Nz1gW2wnfAFEVI
QdoDwZcX15wSI8vAGCj6E8YOzdCWQCGHA0bdzYfgdwQhSPSOkmTGFWd21UkNg1vIZasMoaki0w02
AWy1nAcGTRTuLui89kPnsij58yMzoiO7M8syOGswkHQjuIOTFcpkTbRWtIhcyN1jVdNnT+NBHbcs
a0gAgc6tNeYBjCpYY4A4wARpkCHC3MExWbnBDsxcOKuFQlAWsl2ERTi6RsMWsai9YvpxKkiIWSVb
4gFYSEIKLggFElI9uAzxB5NaIg8Jk2BFwM7DKunnSDs02aiTCtBL1JKuaFOz44d6MDnrgtaFQIee
+g8OHkPW0CQOt5yqEWzCyJB8XNkFtdSOroe5o3wSIIwVMfLAyxIaTDLIZPbLoKXQYZBcTspgKsNJ
ErIIjkK957vBdQwHCbSBm4csPWoLzro9rlPHVSTarXWReL7bOyy6QzwQvdgKS1MCGnyLTRQaXQTe
crZmnUbr7jB4RNkF2wXlMQ1Gq4mRwLWTecK1Y4M8UFmcpl6jbffcDYz1IKMOoYRICxw0khIRdokB
GDAeocfJziXeJG0tM8Jf+LAzEvWgMLABaiQwEtjJgB5mmIHR9GfRcj6NbvWJxAdQm2de+Ty9/ZnR
2RtyEbwu7kp7YQp48FC/KUaPjGgZ7FZ2TCHac7357cTk2vOBwLe+AqW5BbGNrseOaa3ulaGdiad8
QnG9sxvk8SbDpdlio8N2hpaLwqvWkEQO6YF7EJtdXrXKIFQI7JCEHVCjGldMLyA4YSPQsNQhvXl7
HTDyws8IlhKWEPsjjGrINMnUObjplCJpvMm6a48sd0MzB0Wwmx8pnrjezCbiRBpCZvXReoaWJ4rt
nMzAUdPk5nh6B3yvJDkDMTRSPRAWFm4W7LNp57+Xij6fDSKNHhhDtEXvGxZkb4Z5YLDMpjxgNmme
GxrXfoovPJrSOw9YdLKiPiODYVsYZ2IjaKdUrO7g3iHCcOsRGNEAzmqpYJA2CAJIaWIGECiB3RN0
4zEyEF36J8B/DrKF2eNHPge0haJ1VppTUBePgboA/UxM4ffheeDDvA7odDUCt2NJojTyBnfS69ew
buE4+PbsPVp67i864aS794WThoZIvU3QnfRQ5JPdHtfbBTZECNs+Axdazo8Zr4bglpge1W7B+3E7
jXS3gu6CJYhDE2mZDNL6LTCFJMaK5ePIDHk+m+IOLzqB8AdvceJDCmwAEMnGXDC5vrJ5MCYox7Zo
JpXTGwDsMwaM0iHcaOwxaafEYie52pGHSMDq8u94bPcaa+/Tj1bLtgkal7gK6dhFyC2+bAeJ6TX4
1w8i6iZGbqDAKhNg2Azg5GEUNBa0OLrJ+UQ9x50CvC9694JddHtmkMkZ7ScJjDh8IAce7pZwVj3Z
bh4xnsOw9m29eAgPCQHoAhwBQLIdxJkAH0pJDcpvEirR7i2BJ61oFPgx6A47NE5nNFGnvD1SHIPj
oG+mjzpOIGwoJB8eKuPXqtoxPlnB41CRaPOE3246fDAbVH34J55jNGp29uKaF2YhQa00I4OcXJcj
IKb8BRHLSXgaXHxk9oR4mHAmFPhwGtBAiWkDvC2BizZRxRVm7EC85IN4RFhJZo2RcQCAhsXsJjEt
g1pRBF4pvdCwJgw9kOGhpgmwa2SMY9mvjKd9YdQ81rO+++3NjG4IfVAVSDOjGYaGLakw819EDhbq
QGh7OIFriByIaOZ3Bo98Fv38+p2SnPjB99EGHjulD2bKe7cO7A7h1sbLvUO3L5vw4COk5A6BA0gI
Tw2IBOYHJYvZNUhRHJJDtrms6tvPca7Fp6ONbNpiGI8tJHftEIxoCDSOs31na1HCwJxDg7059cd+
+HKMNgFZvUBxHJuiV1gGQZGIEIjzALRxxD0zyAK4CcGzIFNLMMywpfHm0AgHiHVgBHbrhJlITeSk
0G8KSA2aa6e8OdbxsPB7fbxidLZpElyMI5asAjNezJLSQV0aKlWJYQOPyM0jCdEVqwyZENECNMln
BBxOOKGY7DTLDCtKw2cFFNQ3vvmDqLcCgHqQKsW5AmgWtrQAlgQFbVEnmEGoNMpdGGXg0AowMYGp
4Zq8d84ODCMJYwebkg0AJZwW5mPVCw3MAQaAEEQEEQigEkSMDtbNw0SJ0Gq4Y4Vx+Rsi/Hic5e7P
hVw9p8hHrRvrndY3jsvKBBLQtIQ4Nh+hcYuo8aWHbITh5oQ8E7vbLrdUN3TPwGVy5F5ou2ERtFYH
ocAhFx2bHFxxwdQgcO9dMINRTgA2rvlCHqwHjeho3p5AsMKLUymyHhehMYCpCrycck4DtOHXnHYU
O4wBdhnkbeRwAsJwsaWEEiyUBIcSpeTQfgQmZQefGCBOCmYggmnBBoYrZ7HjpueDrYHg5Z48b7Gl
iHljYvDwbB88eCteQi5gLSRlvxmLBEQKIlDjcCHcCoIOrQs8Thps5MirDhPjCM3agT4pr9X34EeB
1PYHYhhEggdRppnk5XlPAzv0zjCF4t7eodsOV66ECMSeLsQRIFros0mRPgCxM+PAqRxuUMPI50Kh
c0t5YBATf5saUfBoeEgQCRXEUjL9nI6uxKCA8ECCD4Q324kd2Rx7cLzwSvcj1ik97DhpOd+IXry9
dkYHTLWDHO8gQy7kv4gSQI9T2ax7yveQ8EUItBe2ZRnMrZtkbXGyhpaKtCwMDy9c4rTmkM50HObq
Tq5qJfWsQ3pg+y46Q7oZRv2aCM32hphH4Yt7hJAjix9uIJt1skGubLO4QpuI4gjsJnGo9YtYddjo
dINnaJaaOWIKw6eMzpS82ZzqUhhISxUyzHDBgFBes73KBPqU3hZwszPzt8dWg9xYhCUT2UCPKMr3
466ewQPCbjnVkM0C3lOFDEni7ibY3H26nZoM7sU2A1nZq3XLN3erZhWTSafWkLxrW13dVFprsMhj
3D3u7NIkgxpwhN/nmsnZ9ngcMglnFzb00SLx3MNYKqQILzx+QgZBSIlWCMzwanRgc5jswcLnEw8E
Y0SaV0AqqX7h36AkAlYcmWrgl7I9e/Rq42tScOBVUo36r72rzkWpjtpC3ZdsJBZhNhMgSDaMqo8l
n3C0xALhJa9r0kTDzLwkUZwXXC0sx6Kt3JVHy01QwOtjjXBTxODnPIzhM78RKUnG0wxoyBnl4zT2
IaJs8JgxsYUr0XXdGNhvjdDo3EijG+m2nYRjpG1viZ4HPD49+Ktp3ZuEggWRfRZDqR0174VXxmR8
6yI3g5Tcbt5G2kPiHogcc5zzDOSFXKMbGN1kbT4cC9mLQxaajWeoc+Obxuuic10U6SAk0x3lUGHk
3InsPgMAiPI4G6A5CkI0CGRE+ImZbM+J2A4OvGgQ46VEcIHF0lcMMAciBCKDrbhSpg7ddJtms0dU
dhTrtgEaBIECdwdTfXFkgHy4G8yR03jzyBlqrpPliXABBBg2EHLvfAFFR1UmVh7D7FQpGQI2pmYI
3IYKJq8hzD9WWhKC9izHOOxdlNEDv70D2NbR68ec7dcpVFH/u4PYCmeNVBl7b9PxwkJGmZ+iIMdJ
6ELW6cjhoieOJJLvAWQop3dEEEfqhkWNNETm/b1wKpXrF+NpxCt7jjhPx+PNmQxkdgho885gzLRE
3MJMN5PuyA9P11Iuj1uHWqMO2/GZzlpx4IQo4RmoiAbbs7PCizii34y9JmXpVrogPXTAY1hhBRYS
aEKjFDrXfDwjmznVR6kluiyAfCwt6eRCHy+s8WHowh2vo8LozTtgTzDQ0NwRoQeqGx2QHeJYYwXc
ie8BvL5W8HQeKbgZR4CyAMcICtX8ncEVMgEkk7cKju02RPvIdu7Ngw6W1wBCQAZzFGBQUk5FzO3U
0w9azVZoORkIZx3trOdJCQ09EHvoMFtIQIRyEQYZwzhYkB47K657bU0zC8dMjbEZsot9JcraPq1r
N83cgCkctrTcXFA5AZFOKitB3CIoBYoCkmVkFBjJo79eikXJMARyNXdMqEsOOoBU0cQOjnJqHzPD
d8XodjB21pZh1g6WGi8vfZ7rOZoJR2hhpmzEvL0IMItaEuCnYAIRiP3/ua/x1HA12Onzyi3LZo6k
2YeX9rJo+wkQmPkGs3hYwIZLedW+kHUDajGZrjGFNZTAYCA+UgwGhJVIogYpUApRAPyyrPppBcoA
H49fq9f3fL7jv/D4Rh/Okazf+rrGK1lPhvjnJnSFo0th8Ry9RDIm8Z/13nmnM6RzK8YYe9tGew2Y
xwtrNWbwEwnF4pJcNrfahznU8G2qQ+4IkBX5gVFvaBzvVkAHDR5lW5gB9uTnWd+WXebUnjaL24tY
x2NA+JYjq0aXnh3ZrUxaa5yz31V31yrW0YYd3lqItIngCmhWEI4s2NuyjEuPlxXlvm2p8LU0Gxk2
2811bez4nWVNnzQTXOURK4a2a0ulTfNbylW/ogRK7oPDwkB9199WXh/MDXKUINgLsXts9pljFZSb
k1OIz5hlWfNj3bWihfJ66zteONpRr5p5Js2KrK3C01De6asducJ3pabUby8294CcwBxpEA2579BP
rt0nxz5GVbWwbMy8cq4ajqD0hkVoKLSd9c4NkZvJ85NyQy1xXaFKWo+JPGWb6xp76pKcb29BPUax
pbFTCErarDMNGkNXB2NJxhWVX+9Oa8Tqb+qJxa9ue/qI71yu+4vt5+R9958x+n66Cs8+58YZvap7
TjkLGOUp7DNfLR+3l/jt8/Refrtry437/bo+fu38d/Lq3+bb1Fd6+OO70+EPFvTw8OMdL2309Onv
7/CveKv4x848rrz6eb/Hw8e7Q6be/b0hzPLXDrP3b9vHR8MeO99uexbHxeWnHL1kOG119ddHUb+H
gu42+Gq8+nakzHr6yx3Qu3aJ9z+szWz+yG/jxqPj7l7T37e3fy8/RoQfeHK2fKkpX593PWPXt39/
dRbYhf19jRxLvV3Z8n2eXhbHrffxt5L0hDzhHw67ebiMHrr05d/n4xjz9rNR7zf3Q69y+3Pq1Pb6
beJ5brvXvj6T6M/qOnd67cHE/bwF9/EevJo44v7fGM6THTXLL9xF5reh6HLvFiLeNefd6U75VHHE
doFsY5HEffJ+/zticOnPXSlunEL+7r7eU/XTT177e5rnSz8OnoZjp7uk517/a0u7uf3999hzXmb9
3RjZW9mOlKctc9/Oa7dfWA1vt720N5+s5idh3R3Z8c9sP0EnIvIXz6x4rSs69x2r4Xk1LmHFbCeN
rY8/K3l3eFJ1t24Z8Nv7ZUvzbpTilKdITlvJutPFpHHaxusOHnXWdtrjenK89ozr61fS2bl7K8td
t/D2+jdN9dwX1l3b38enOvXfp3NOPOWcV8Mbeku7z3zLp058t+XJuz7CcGlxxjj2+Shu8Ps9x6QN
2f3EuwjFbHD0kG797ecL4m249iJDOVgsLfCzbCMITEszpFTT4Ysx232pfYQoMSrpc0asEzutcRzG
tlktbWusbscrGzmKsHvczdY7X1tObhOw9o1v8BxicMWlbXI7F99pjahwB++d+fO1+eLPK+XMNW32
nOEXa9VlF9njEws8Mq7xbc5rczjdwbFmvlYUm1jmqrW7jelaNm1LNHaVdV2rWNitffrOzsGpussD
a07CNx4wM0v73ZjI6n35tba3PZHxeO/Mn3fj3oodbc+lOcZlYyaGICucZemH9+9YrCe1N3veK2lr
U9c/kFbWhLWOI2vO8THk09lk/ILxGm4jCtprh5wW0YLbU1vordsClQ2oS1emavI4LCr4tQR4re0x
p5ZrtI2b5IkEEEHATVkQSA4bVJnAsrKnGy1FNsGEY2hFmnezLptjHdVxFaYyLVjLimrzas/JEA3E
8bbA52heWtYjvmG+kpCjRtG0wt3CPjfEZBVOasLjHyA8QB8l5CfxPITyePA8Z48KJt7A8mOUMXFD
MtnC11pzveWms/TBjvEdJxaPeDlUO8WNtbcx8MVMfFDrfFfJvMNBd3Gfs3H4httjfLCJjGA2IwcZ
xCBqRDbB8ZU3p86lkHq4PDAxmSFYPlxjY2NafF1K95RqamsOo0GBCZKhERUEFLHswznnnW2bYNMz
gmsKy3dvUg002/Gq6NwjFEuextnPnt1raON+PCqEu/eDDypArnQoVMtseEiSI7o+AtREL4u6OcDj
gpY2Rgwhw9YRNPRCKpFlh0QyieOBCQaIhxTSskLARCvHLo9DDyZpNwbNJYaCFPuIoiXJWsBgNMwP
JxyI5H3OCxbajwbKC50HjqIewAP1BsMAol0wKWO9RlSxJl52eGA7CHickAwY4XMjsGCeiIew2mYj
stxKdg2HcNlLnbiDo2tlgcCSCABghN0JAA16SDaA6kkC2sRwjdssGxEQw2TgoQoxrnwYuTCfMemc
gz2wST2fPRvpDyhMnHZBRXfsG1hhTyfUXdpHZb85pc4Q43JozUx6iIBMU2zB3LB111i3ke4aZWGp
vDuGjMDuLsz2zC9jwmBOOaXJHCoJ8KEMABLEyHAxULMETJCnEyRzagFSo3yayCfcgcj0qQnCeDnh
kcBOIIPMjzRcW6O/vOzKzhrs+NTe1ATZZADbIMbWoooxxRimoVtZCNgdKaZVjQRYEIsUiaW3BxiV
aupGkMdnFWPlnLExir0ysIxK+IsAa00a4TITEOFe6KHPdlsWQdWDuUNUVw3bjaoaG14ZY4lwM6Jp
iGoECCnlL0l4XQHIap1mgRglx5JFeTxHnsOA0kIREQ2C4IWzBKQizJ3MDJNSZmQJBzKx2JsYNDol
4Ngh9zsNIRmHtyu4LEYzjwQq0YHGPUO7MBZsiRhgpGUQM6EbTWhuBhdDkbtbDBsOipA3kMNNK0bZ
IQ2hMRdNNWKh4Ne04cSemmgZJumwfD4mlGqca2uBC8o2ZzAaH7G4APhJ65OAsZW7WvV2Hp5lIVUx
2VOw9TSHYCMMA176bNeIRrwNGgKNJLiGe3mxDN7DhoURNazMzF64cU7ejhydVumdRMunDKdnbcwq
+N9UXiF8sWg8Kb0x6Ws2cqaRjmTVXQTUBG9fSmBsRnEuQOS/Js1+C/tH2xTkgGkakMQ6ffY8UUva
m8YARkA7II1LDhw383UZBkuiRTNiCJ0WsWYkTQ/5VrkLUl4iEJjw18ebza+jso6zh09PF4+yHOgj
6jrTEOglRiKACIQoUQ2IqnOkoPkgQYG9Eb4HJQ/8YTIV/tf7yVff+nZ4zFzGEz/b4ol3tFESpCD1
A/4IUH4IPgo118PDw9It4zaXx99HEoV9ZTby+M6Vhahv6LBp4Z2X1InPMvbiRfG1qmUgPYEThE3e
E59+bb8qThMTzHaF0nNQYzDDjaltztEISEHkgH/y7BOEuvIXilh8njeyA8xv5Ofjw68efo6L114T
P1CGdsNVbCUxbwWqBKd/hSFfDQrekciA0upXdlhrwvjpStBTuQJyT8kQKE23lV0SaIBvWWrsohSE
MyzDcefQRm4tx9rfygPW9jlt/b+eqiIgKLn4uL4OpXjR6MAUlXwEAQMKaQoH3xEdoECaQ2dOHjHu
+J3jpQ85h50lNyxQFITMTIMhJASRA0JUFIiyEBERLSpRR6QjecLvPVMTMI3ot8p1Jt1H53blCJMX
okbSGCyEaTgQRRmmVmJkeQo6RRkFGFGg6Oc3lUukNUmZgxhIZFARINtsAo4vBbQUaAiqiZGpRSiW
oYaqpVNDsIoItdHPEmEDgmlxkWNEjJ9pBELsoUSqurvSELQ7zPIiInLYY23AgwfMUGpAijSjEuTj
Ejn9S0IqQwrHrVG6mLmRgmdFcTwiD5LaziQcCG8g4Qw+Be1XrSGWvG3w+GrXjeVaIBBA648jJ/pE
hwCxDciyD0feKIILHQ3HCDrYEvL7Wfm5e+aOx4J+hIBFDvxA7RLGWdp+0lMwdiAINU41LtTxCD++
IjBMbDp4yqp3sT0tKjDnCNntkom1x6egZtCgBYFumZw0e9T9XHyJeboeYo38eTJEZxxHsL2Jai9I
B9yoNMOUMdvLhdeU0sACEwNDfIe65GHQARexmyuSIgpI7jTCVIIQREn2wU1XqGEWu6QXI/rYdsK0
SBchMFgLfM9e0EUgiDiwygZ04G2rZso0EVJoFQymICmRWtIpNZVhaXhNojzKBZDJHE7k9uES001u
BpB14+Pgznc01Du0Hak7OJhrVuQIhwW/ICBOM019Wh44wxwm74j9F6NAhq4RYwc7h/UixhwJh5Nc
Phh5IVvt6Rs41OvE6rDgNtvLs74o0F1UmdMpmERHyeEF8Hm8b4DLZ38kQZhnt8lGkHYsXDcHEOKd
LQghHoEK8GIZx7FvXxKFaNTpgeZ6Jnc9+2HDQA+sKftevjIA1tDsTOenEDQBXQfdtfKKMuVBAiyO
XiaiOBABQFU8LrMKuA9VEs54dA99DbvHDiRC5DODQmUHItOGDsLrcxtVcNiITOxAkC4ImIMGS5ys
EEJDa8Hau8BRBqejl4aB9dzBq9nQqUE0sDm9hjTMesmsvZQCwHQqm3yyE+ggBTzfTBLBJbG+Yn4w
6YYgHsRmtHL7lMyWYIzmxiE2gERUG1iyojR2du2dsA9SN9wbGjpi2g2I4Q0lDqe+aODFUD2Z64A7
OGDBS9CfDC+MvpNnkeA7ZSCPTh65l8rMrGcOJL0cI8QhIpcB9+OfXX7RNAdcW9ka7VgFjuH+68R5
6FvEryFgdMDB/tTcsdBDjhmbwxDA4SEKQHN+vIWK9aBNJo7TC6txXjZuZBdiD124Ow/1C4tOiKBg
JNHgBCOLmYcLOCyKZmqcqyxJMiKPY1FoXoICH5YfAMOkdMAI4e289amiRsKxWOXZpSLj8hJD9Qf3
BWhuIj9YH8AP2iUUHIcDx+/6fWG3y90fu+f4V97R+6H31oIRVrMRev4fetp6zVZQx+N2dqYrmleB
8+4hfm49/t9kEA+Q9FQEFAhHwkqKfgECsZ/F95xgeDICU0HnBEXRTaD9S7crszXMcjJBDIOIImg8
M5KlRlBwSBtgOgpAxhCA5ZQJmEuHceY6Om2Zjx69fPsPQbTsQbeAFOzeWQgTpwIfcPkE1aWfaO5A
lXeMNIJdD6/ulfKZAdempRzMhGap2b0RPuD8Dj4lX8AXAiAUiKVOqgQVZB0gwWEhIQ7NOwy2auvp
8lvLpl26fAtZ19hh8FDt78ciuuxa9c/PakgYLVrwbePztBcanxDsiClYxvLogQCmBkaGswvHUvaz
fAAAcr1YZIQJZ1BICEFB/9ARPfnxmjXde3TcIBmXEpb8oXtgIOqfpHMjySYQeSfXkLKRYU1CCQCk
QCwcDz4f+tJoIZmQHyxRG6wZ5Fj3qNREEkcp2Ojs9nXNrv4O7x7RHm3bv2ERfvnRqV8KQweQh54o
YVttStoXwiRmKRw03a64ZXqubmeRqmhcDxbttufHEBcoRgBCBBACVrzzy23udb8bxWwfaMlv0Bq8
9kQDdAQASwIMIEiasdNdb+Gzl1384fNHXkC8wwCAFErDI0JiKvLNUndA/5xBIMkEEMURLITSy6NJ
vLiPggf7yUIvun1AQnHtT3+kcoPSo0ASwoQswSQL4QhB+w5T5e4Ahw+gtywhEBFEvIHumAbbSXd1
2Q+QPe10PB6jjExPL2HOd7jh8wv17fP9QVRSzSywNK1EUSUxDQVQ0JBVT1mOTxK1rCLiryfURcVT
Dni8Dc7TdVPHxGvlDlCITfZ7MiyOSDGgIa4si2awnRGLHnmRW8EMISIiKAqqUbX8Yexahi20BzQ2
z8F1hVJEQb2KE/Qg/iGIoI5B7GHILkMwMAM5F4UoATtwTtdHTvRySGWIaGgo3nsVBXF2iHhGEYhp
YSGiYCZDrj6xUn5vVD9D/TjwHBUSETMkEwSUBDBFMRIh+Z8dxfDEc/eHyzdJIbyCnsieo6T/oZBY
f4EXdDleIDtqg3UB1sTRAyEwhCEoF8nBsOC6mmgYzAcKy/i+f9PRgr9KJ8IakPqXgSN/6zg42aOD
Nswe5xwscTrdkmh1jxkMiqxws5Kc540fbxjtnd7Evab6OWLCXpaWEEWQrvCNBArQmowBH3QIRcx8
EwXFXmPtX84McsTF0kDXR2FqhJe9rs7PwOZOuDQY6DEoKEjCwNJJg8bNuni4S0QgOQkHGJWCZcXq
/dh7kfPxHB2lNzyJxie/IVTQ0FINIwxpOtIaUICVDwp2TF1EJBQQDMklIFLAwsLBSULIMEHETWBe
AHoO6iUG9hViUGInkIEi8YCGSRHOhOosvMh1jx57vwYaB1Mj/qNwhV8oCo2LkyoobkN/rMQCXQ6l
6YDJF2zlI1GIyDg0QH06MeaKGmYbFY9FwpWGmPUVybIljbrTbGSSJDwcsI0ob1CoNMNp7GsQyJjZ
jIzGBmkEDGrRkAYaiCG0DO2D1JhN8N1dPJNnZJUjpEw6aXAL4oY8174aQzmqkdRqS4DoABlk/xYb
BwC8wATHmLyJtSp5I83rSXslYFjF6hexNyagw7Bqd18V7bWAWzQBJrErMwcAMlSHBrbsAFRIOKwG
UMIf/kv2Qm16HB/w3FfyP+60RX+cpWvzmEBAKjASjEM5p6bjceeoUc4zkCJAiG0OcgBCECAhRIpD
AO29RTivbOBFzslycWIbF/6ieNlhFggJAgcOJ8O45U8NQErIMkVASAFIEQKUpQkUBIFIVQtA0UnP
9x4jvcNTuTuSJ60PBRwnh4w4kZs5xJFA1+Qg43kiSEK1QQdnfw8eZO7dXN0MZkY6M58DWZRfpsra
jikRkInGVJ1H7LKEcIMVGYqTCg4oiKMYEINqIKhJFAPtWClbhlpcMeeLBXAWgyLAmzMB6Wc5ukYM
xfz7unORpboEbfL4fIcaeNvY9JidxY1ggayG59AMi2EWt4FBkvGC7ANGhg0k0b3WR7riDlusWIIa
OkMBrNLro44OBoNchApJyI1jTwRd1mKhYJi7sQTMAIJyDicEXbi3IOQQDSWRFc4GDQO1ujEjb0QG
Tmq1DkCQgWZXFBbhGMGnpTBhQI1Lw9paNcQg1kG2Tmg4pxsppoMGDTpaqbkoZJSK0qMKhGguhZgq
3oaUDNMkAyzJEU1UQFiSUTEtC3QN6I1iA0iMaMDRCiNIcxQaCF0IFmiGIHhDe1NOIypt6DgQ3tDO
F7LNIUklJFRFOYYC4DFGyLAoIqaDvnbOgFpKAdcAM4R/neSND3A5B4U/t9XCvMbSaTk5uJB9VFyf
mwwPn/CrR6GH0SO3hfP4eUUSywowmSoPkEgDKDgyEKkwqsQSA24xGNRNkshIrJdQNJqKy1mtRwCi
Jgn4jUIEVIMDxDmH2/Wd8RPzD8J929DtNEIkYSKHm/FE8OsPyLhvOc4kDlD9ngBw+w2Jl5nAV2Cf
VBu0nxwQkAdIQ4U0sUFBfxHJy/WcICdXzAG2REP4U4wPXic4Pb8UMrSAnHvjchzxUQvOax3pBxiJ
SQhmh+IfkmBDhQbFtGx0z6MDTNLP3z4WH828eyw09Zyy1sfCKZdMlEZJQQoEBD+Ykj+6ebjgYa84
0cL5TNM2HOGHDV2bNzRo0zgejZwONjVkDsMqInr3W0Mo4Nhh+9xBZmEw5dK3ch7DQoHal2Dy0f2i
GDQJEFt+kgOgo8wjuSY8+plrO1YLDIXkhAaGQkgeNU6ApDSyBh53B281SpMoud5AoPFxE01lgYYb
IcXxruetuGixAhjxeHOxbAMBsfHEuairUeA0M0E009d77ZBsMe0+xk0w0MReCMpEMaVHaTUw54HK
LdhDRq0dO7NXAFParRs0ILYB/LxxnMzrPVjjy3lM3JDcQIITDhArZ8QB0CGaRoayDUrAmzDzTe6d
au2LeMxiKGP0LtmgRo1nZx5gxaVmIVMOOxlMi0i7a4LgtLAiYqiEA4wzuaOxxipqA9TZzmkwPGpk
OknoMZWdtdVLdNBUDQ2C9gRYhBFQ026wLOc76kamRCIEOzkgxpw1xo67+FtHkhEeWhofjldy9DfK
iijaxKmjglDAzNTJZbzGnKtBzhzihtqCiH1fAyZGOs1Qc4LhwYjjHRwmFelmac1K6MQwowtgEWo4
YNLAMY2yqpkzMVIwiYGvGVdk1z3/kpzv30jBKLQQOGAeijp8imh2g2S4jqFhCaCNyGL2GLMPgw5a
nth3wJ2G4Q6feR1JkIHCIIgEyJD1NNYHNrReNx+bCen3ZEtpEQaRLVwYTDVFHtimxR8Muz3ihSnE
jVhovoZasS/ZcbbHcZp80EwCMMhNN9x1tynn6ecKM8xyXQZEeHCunlmQKBk2aIY+56cT+2hg7nq2
7DYL+cGBiKABAhgR8RjLiDsoIoHZnSZpwwgZCZEliBHWb0uhU54FnCCfKw4HAzZcxLoxK1EmQjY4
0cGkurm48ZoTKjyRcJXQtCpgtipYLSWJsgcMKCqZqZVtDCg9IDqAKayce5o0+RxyBbCfB4MBF5eF
1d7WaizIxWIOWUWYE6NaRhoNqo2LDkw0DQLBIapkhIuQOYdDNb3zzkKTXHcnI2xNGa+PvgYFR1ja
rR1RLbfaB1UdogoJZPkBtnEnwamiiWiXOS95wdEGmHBPe6WQ1xO/QzgJGaMSiKEEijYyFBI8RHCY
cA1mok2g9dOST3MDUhUHQMOmeg2gi92HoLyJOVIieoiIDv3PAd43AnBslJS6zuds4LoMlqJA1o9q
8B1dCZgSZPmeaaX1lB2UG5hxhMGbLMaI6xRhZIQFJEIaCC9xiqe/x+AtQtFIlIsz9ECvN2B3m4Tl
webHAJ0mSDJrTrQ69qqwKBy7vIDgVeA2fIGymZE9gmjj8/hPtwEEQzAQxLKyrE0Hf16CQpE0cBSZ
J/94EgaGsejc7NxN6UtZGR95aLQ0NIMMyGIQKPH3A4hXpR3ngPjJO+Ur6KkJDHYADMLFtVB/NH8x
9ejphgj/iXoQPtLCJDb7MTSv1251vjULSwbr6Fg8/I9z3+BSNJpka/Cz62AYGRCgNMf01KMlWStx
Oz7atOpNDUHFqWpVoZqGDYyE1gWBgBuOA+6YJ8qMjCIaEOsZWQYCJOpNDCQRHgMMgD4h69IJslgl
CIqkpKENqg3HYAC8jO3coHkBlKQoeI5g5wd4a61XCApFQiE9dHln34yjxv1jnxvZJ9m1HeI40PdA
KhqcwkLLBRTUYRiROeLB4CWJN8s4xXBDNMOLmakf1cZMC02+ECQbM07EP5l/G2rsSO6dYh45aA3z
oQp5IUvNSH7xuvR0eh4KM4tBg4jHkgYWzLOyHWpJCAiDFbojuqjCxfMdc3wpAIj0IYVkddtvgcIc
AYmtrVuGLsLmxMkMByb3LG+NzsIgG+DOcHg4AronrCq8PwYw8Di8NmeI6ArnVQz21jYm+27cH/nZ
Y9rLPbZStxKIIGQMrdERJY0gzCMES0LlBCqiEEFHgLIoXLRxTOM0y16i0oKpBS1nHLE1CbNBpKQv
wEm2hrx3MiY8eH57GPI8CZ4CVXPRfjkexMF5tOBovqnwdP03rrN4wkOcEhf8gs3febzQ5DF4LgUv
o14bt50T0qeXQLhpFRrhhvFyjQlsnXimhQYvuYhdIIefxSIdEc4qT+qkOI8IDceMzFIh2GkjG/O1
xRQ9guxACkDBcwXC6YxfLsQJBoyU57CwQNlo2xYUM7ImPdTW+nbpP1GEcgVmFaFm5FDYCtgq5vVk
fFFBAL2g9hgVBdliVe9Q4iMMKuAm8CMANWKS0EuzzsGxiEGdHs6+aXHCH67Cuj+ZDReYbIOTRbe/
cQHtDcEJsKdBj14B8n0dnsA6ZieegOKjXvuHJe4umEzSoE7H83+ZUVQUbTG4okNojiIhwLUjxRjw
GCFEXJLjiakLPiJrUgxDSDCwBAhDDIkJEQ0AHkj7pQfhoENhCnoerBiHri6okvEYONbwochowJdB
BTEm4rI0xMDhYrKMSSHQfrGEkgIQZZKCEFkIYFGVHTqggD6ZU5vTcVId+KxJoisYiRwHI0p8XOdz
Ofbv6tgEMWVta9Db0VCbAWjgizEX+vxycezGAce7oxUflA4PQTpE1tOPLkxxxYqqiKitqPRIwpAl
KMsEECUBFFcr37mF7NFHUBhl0YJgwQwCJMDHRYUJRojNIpiWjWaRBQdCwI5QjGMAP7TIq23HXWtN
VUg+IRsbVaImPRINjQyhChYEQ5WGD0SDjEUS6xwbVm8yiCCkh3NPM5BoSCjeaDSYFOGWNVMiyEWn
XVjqdioqrJYNRWEptZBVqTElyxzHKGKq1Bl5CUMVtsmQVkUyMlHMmNRPDGFUJuGhyDJVKIkoSJTd
hA00hQRCaJ7a1FaYYpkKAGJSKSCIcnEu2OKmgsKlZaIgOIXJIogIKmLMMTeYDw8BiBEJM0BqEAhk
wiKSIg4INqpbDMzamIQkDIsGQVErDANIrEilKqQlJEhDKEMSJkZIzCZAmSGzMqhaooRZJGikghRK
WWaUKBJFoJGFhpdMOSqMSEkikRikzjghMwSSQFK1CTTEsEzKTKckMlBRTTRJLMsEVFLhCTDQhEE6
MTMsjIMCSAYgUIlIikqYBgWAmZYiZqFKVoAIJGZEghggchMJAgFgCGpVKmJagCYaBCCGQiCDMBD4
vxmlCJGJmBCmkoEgYClxPHtDbulliWRZw7ERDa1RG5fcT+M66O2KaAofVBdQhFTWOoBSyaylV1gc
Z4GYE0jqEShQpWkWYAoVghAKKIahmAoIkgkIjUOHMoUwNBNO4+Nnx85rHXpHU9LGEW2ri+OORRHx
+Lhoot4GNsnNxqzJmCzNQw4SlLERTEFEkmDB7qKH53E0knMC2Di0mTMo8CLATYLRhhVVRB6Gsxsg
DQBGSGFFmD3MF0mCiC+IpQKCGSphchbJooHi5zYGmgYkKO1HlvQcTu76Tae7ucPX7dbD6MA29qw9
E9v3vcA+w0ELKyxEyj1p4RAcUD+Uhsj9E+g/Gm0LxD/OAj7IpoAiK9kBh/dhiElEg0QSaowme/+L
e95a/9jf3b3xizOBDDJQF+pScYG2f59o1V5cbR9F/7ZrBscGmoM+u+ZmUchhUGY7S5NP9EnhTwPX
5p5jaHfOp9fhXS8An8n9h8xMMMgQhUUVFERTEVVREUa+B3qApqaPdBgwXwMw1+g4TsAgtCqv7IHJ
FEpBycSJhPWwmoSJTUI4BKpgx4OyPsHkW+ZEx9e486WE87sLC/y4AdBhGQfjEyQC7YkSBkH5SHJE
p2u00GvEuVIf8ki5CBVBzIZA/AZPhBqgZAUo0JnCJSPwgAXRzCk9WaGcyy64MIfx3YhNS6K1jo8m
I5H/tf0kLuBIg6B74C+WcPXghyxf5vTQuBCOleqih4GfhITzRzk0o75+j92b4yR4h4Rx922/gYPV
c6bMi4yXJwwxG3nvjo8Abn7CWKQg48QvgwNDaTApMiDMJYgzMMMcmhwCaIzNCY1FrAzROZimiosJ
KdLKuGS5BJIUUVFSTaIrJZhCiMmMLFMD34gNA7IDTQ1s/6H8v5Iq5cQb3CI5SgGldEzihg5FmAGZ
JGBEkDynwlXqB9iEe72uFmBprTiYEBELvFyP04huNQmVH89uDcxvA+v3ZJJBxb9IcEOh737ntR9U
SUBYpgSRFkuRkYkYqzMyFJARFRCEpAEREwRJEoSSz+tD8R6QPp2O2Uokas4OpA3/Wd5tfX8G3YbW
GigaEKQuDjyNNrNq4ZYBjDJejOGR1s3aDCoCAkNRr+TYZH+mP5k0/wOI/qcSQJJbc2DN5oh/nJ4p
j/FNyGEzvLwkneEmETvGJJkUOREFCQSkSBTGWUMSSeEwxJpTcZFDTMlMktaTNaacYqaJKSgaJneO
BZGEmUYmCQNmImZgZEQEwZDkgUTZIBSGSUEUslkYZjg0RBSyyQQTDROGGU5E40jTksBBSRBUBBGW
BMBBQRWRiQVNmOESEyNDLWWCYTgZLEGQQlljmJkBDmBVmSzEUSBJABRmZGJIZQeaB/rIIOCIOcYy
Ui08aX7gwgv9k3cdOBefJ5PEDl+XWgKzGeGeHocXwGvIQJ/x6Piw2GSCGmgMqoCgGlgkhnJ47RoM
RyAUJsqMhT+79473KoV/td1OoMx/pzL/3eH+fPEtY4ftOec0en+RvIYy39vvGsvquXxvLOxkWlpl
WlKe2VKUpXVTDIMt3MKUe1Xha5rWoq1I7oBxxbUcm22HeMpPHPVED0pvxo3jbWYUaMY0kcMzQpEw
41ec8zfAk2JRVnbg2srbU4fL4i8IrE50c5tjWJa00aQjc8qzjSrbwotK6preOdadY3dmWlZNvLUM
Z8QP4IQO/2ynjArp69JXMlMhHm0YkccoiK86AU44adI15YnmHAWHiESQAxTamt30w0FEtZhPacDn
PS3iDjHTYLHXKsue8Dt1COE/6RIeQQfzAGuuRJeuMPCNMRWOutOkYWMoKYdTRacQbHE4YLpRo5Z5
4xyt12hDSzjQOpW1oSrth6CbxwYqcaaptnbkH9dXltqtkMxuz7NxWRxniFY8NNTA4n5hDcHlna0K
4hhWi0cFtOql70tCdc20gk5EaisQ4gzyxth7EqGw8y/SMd7YtbFdWe5y0L21jnatXxMrtuifXjxK
3qw/jy8/JXcz3UcsM+c7HvD5Xu33hr3tGu9j0Ca2Nq5M6iFN7badlbE9d48gkggFqT5Lh1njEcyN
47VjpYf5hW23Lh1Np2jrM8m+VFzGWwaj6rOSxzWc7TnagjVoc62bU97beSBAr33ttvfvAGsl3Y7Y
bjffW/FMbsBiU7McLq9BtvloRu+jjwXbfRlm967CUKX2nvmjv/lCDeMbyzpav5IOLtmUnriArGed
obyeLwpvqzXacwKeA9B0RO9E5Dim5HOgLcX35TtOHG1bcekYuJ8UveVq6ocnkNRMreLDpN76441t
A6TSlQz73I2xKLwCxxd6TlLau7g3NkhDuCD48oSnEXsjXhW2qUjwsjZZOz6tazBpFN6l5k4232HF
bwvaZmNOsrznDd3pNhCN83UKd6mm3QD2ge726AqAE+CIFSYT4gN4p3nb3mNF5BjiecfLli5h4CgZ
DBxTJFponLgnlyx3sfCIUdu6Xnqa+dQvje0VrXypQLQNOziDXnreEV0uMDTWzqBnjFqeVpXqM6NX
nsd0HcUCIWKlZ12MDl9IYEOO7dgc2lcu+3MZctuOsA/Z8aA+IkmpCqkmCUhIqKVpkKVPklShRD7E
/nwQe8dOIvAU34gkH5/HsAiBPuH+AmOgfv46d2V9XDeHVvWJp4+tjQzFzGrq7ePjLylSm13ret80
22M9seYSmwgdHOLvW2LU1XUKWy214HeVDTdoqK0v9OgSYQAU3xte175huHFYTPGeOJTd7LObhn3k
Ywkr4vnF4v7RjkDKdN96VtPbGYW2sqxrcU23+ttZWk/lerxQcxwoljWvmg3oOoA/WPL06KkPX1+X
3pTfo+IQuMyciKcfh3V4PuDD+7PV0iPpT2mJd+Oc8Qe64/BB37nbZXFKWvJ53L5XYw2NpuB2Ek7G
cuKNaZjy3sbqOS1WMmo5oVrLQnB2qfuCsFPyVX6KwKspJFOnNaHmY8cb8Qze2uOIcCj5WMFpUWQI
gQIIJgT1WRrtD+gDsgvLW5FJ33qowXkchiBju3Z8M76tNWmvUstjlp+KZCgaooJ2waYEQkAFlKQK
EphaIgEwlUbMV9E7ED8AAoCoRxa16ZUv232iN49n7cjWcp3EoRecYDm7VePRV6xs/J8WxyA+4IBz
RKuJ1lnXK2RHWMzFef6LmrZx1XTabMOSc3QiiJRtjzcQQULqEE/xFYqnDLZmK5ZmSZOwJbnQVO3C
lBEIjSUUhTKxEhEFArSASBFAUDVKEEEREXr9eh3vuQfvnIPNAdVszZ5p2Mfz3xFEeF7I+ZXuCgdw
2/ZxYEuYeH1Z/6twvmJRaUKcPfJN5IfhAn9pCNIGwYP3wAbWSoqV0SGBJBflxwNfvD7tf5/54e0u
PafhYvt+MSjYyjGMFBgT+6EpDQys21RIwhP8Kowo2VTpp9p9YQd+CtQUMcyuYQ+pUAD6Wwr3EBhC
L/xBRE0yuXRbJOMhwpn8/Yx5Dgc88GnxJgHN/IxnDUJfQZqP1Zx+bzpt72OPGs/7rc7qx+Pv49HH
g6gFypYJCjUmSBR6QETj9G+vs4R64OCeJP5bNRhBxtCGZxwH7o2IiQd99/F5rmgBz9+Bv1hVJEd6
UN4KdOZVhGKgR2LGKmo9IHdPan09f7T8h5jr6doa/CcMRJ0lyELNvy1A4n5h3H4hmB74p0ENDWJR
CRhzKbf2fmv3Abyh9h8aQD3EUP4YzAWMdhed7t5Or7D8u8zXOAQYp3/Z+Jcv7zeiv61in6Ip7sDe
dfk0OTgYinKJMooYSVKoc/ufh07CxnLt3h1gZcHofLmkgxZcY8wYGyf5JA8Gl3RTTejMzAozMM6L
CPiMcliaaGGKQdcpXmYx3LWEpKorAnMMMs3sc3reiOZhRDygWlEoEfPACmQqOzc7dGg4xco7chzT
TdDnUB+Sqtyj6smJ98+ZgJcUyDnYHtYB9Fy3ZJU+DQGDCaiKJcBpeg1r5zL6yegXoehfHKirwMP8
Qynogz+SEKfzUWogJ19GB+wy8/6VyTbFkDn9R5gS2vB+QJaRQ7IRhMMJ+OByQycCEO74tGgM1cC4
SXOeSWJIkT8494XLqYY2qTX1vO2x2OnW0x/28G2IY27cwMCCDO4yfUv9mCAYxVd8QSozvysFifZR
SWCYfTmPygHId6CIHYD7UfN+bIWhjRB8XwKEKL9z/jA5QaCIgiImBmQr9XJsT4fuO15UPlPgNwEw
nbPsFkYTv9NVWvVs4NEMcXvYn2SvhkTlZ/z82ABxh14xxhYHd8WKerwHtPD7TH2H87mfzeqjkJuD
cur86OgdoeRVuPhOxpPtJ7/i7Z5bdIerhMHGShNMak/shN4xN5oIjXJGgG2FZCFoUQ0VpEc5zT8J
4LW86gA6gEwkBpoRJikWmgRoEpFZUhH7IU7kFCCZDgmYBoeowXcxCJSD3kBpUOJQTcChbMEAYaGF
1KhuBNzuSKJFyQ0b5NLVLEyWyAKKCISAlIsIEkYcJCikJwxeZXIhtJhiGwi6iJNWjQuQcurdYSW6
ArKoxI20jCHCRKFjDHQXBxg6JeZ2sv4P6/0diRO8bWDhiOyJthIOkBMpssUkFIBHoE4EA6zEc9mC
mpGAhUi1AbCFMJCokSIXpBn2JIHEJIQuGbgNCpZwaQyHQcOYDEDaBSpgCEcLcEpK4ZQPt5hfaZGR
YMvzKauA8yalA9z1Bkc6ELlHhU9BTw1E3j7DM4HAT2j5RwDIQyHWfoHiHnvrXVOmqh2UKdMiBDKB
IBKj/d3tify7szKKOXcJl0hC0VOr5EVle8rQ0uKbQw3KsS7WJtQhK2rJAJWCIdRBBSCU18iHuHSB
21ATtvIJsGyAediGqCDXg12k8n9AdYbg3H6vAeQ3nnDBQ/UnMnR0MkGEYnW5gcfdPSec2Jr39VSo
1Jnvhg1S5ZrCkwkMZMlwkxkpCSaSIzMSmqBYkpSgKSYoBpEoQHLAiqghYQ8wPh8Pm6uSB25ZhDSh
qACFNNIKqVQHhJULRtg8yHYPPHifbnyFhDoqMJMqAfCMfEDcwcTycnIRSGRotYYkrNEGSGEaIMgi
KbUmARFCUKQyOrRpTUGBqYlMlZIBgshVZzFxKViXER0QOEo2h0DEEVUVUEEcn7AiIJKiLQOgL2N8
DAJO8jkgRAneU0EBrDEJIyioEckMYTLAhwSAwhoKH9UiZBXmtY2UTQpBURKwyRRIFJBIlEsE5mLg
SsMkTMEMa3p72xKCSQiKACJSIACCBiHR/+sNSJztgsWA/QQR/ix/Zp41jDhC4F/6IdE0VBsagwaZ
phIECSOQjGJhstFD/LZrN87KnnAYSGTigmJnP9kY83wH+Q2mqhgKBvZg8QOjMwg6AoDMwgyCP1mK
ZAPoBhOEjnA2hdY4kKkKTFwljLFoMEQG8HCtI8XWpiq0UsBqMY0XcIVuQodmixW41jYSUhjTOhSJ
CcqAotWItUaYyBJP3YA60Yh/LY+e9L3hNw6skiU7P8eA+IIfG8dJxAFlZuO8LuEaoCjqgeM/44Hb
FPXWaIiHzwT/s2WYHiw4I9tnP4fGyt1uRMKIGIaClggSoYgKouNzBnDBIXMSSYLUmpR6JTHeDTEM
waxhIKApMiCstIdaSpsZHjCUMHYwAfngXXWeF+kTy/SfUr6XkB+YSgSSoiUIYmQAoRvlSV+U+YdC
/KJCbVQA3fWmbkEHoeU1hTCTLgSA+8a+HAl+71mIGBBE/ry+7oED5zd0CdPJ140PAW3qtbtJc2mg
xJLApkinzLia1k2qxjIqMarbWgKsQysJp16LIOpt44QkNp4zJn23LYVtw+Ad2f1z8esekU6WZCAC
jYZ37QcHm6E6kkU/enzHdgKKGR9S0rz/mpAwIC/2iEQ2pDfikOi/acC/6FLn/kogiQQPq+wHBOE+
9TlXxa/zI+lT8Tl1J6tuuHFACk1zt8t7AYHw6ixFuIHcBDlPA2wPeyDDtV7xmHYOv4EK7EGWDhFR
EXHhGOaAKoCxnATTB446DXAodae/yAZioh6UXRSnx7U5T7fzmHhoPBzJ04LodIF+VFbKHMERTl+T
4Mh8B4Z+cfCdCFub1e4DqOsHB2OHRzx9eiX8DO3VElqLExKMwz0If+Utw7chRxQKoNEAnmQbm7YH
GrIeAjK1BhAFQSCTAMEekZLQy066MDSQhaHCjKIKAxyMDCIhiIiDWDhMFFSURDWkDHAyMzAcgZLI
MliKmZ1A4VVDQplkgQZZTllEMBJRBJaxzUY1TEEUTUTQZiGJWrRGooIiSSkdQa0YTQkREolocqsh
oKHGIAyAEBxCIhuOBHEQIIhBjMISAyYMXCjICMzIaClMgKS9uIfegy3GS/bg4/Bi5CbjiAPwHz+9
NhsooirmAygz0zT7C3COtBib+p+2CvvsmjOxk3xWnrHavUb3iS908t8C+TL2Hz5cT3jgmo/Tzhx9
W86Tm1k8wFx5yDp07OUYO4pQPWGYL4BMfp2ckQJ20CdskRtAWS6cyyMEcRwJQJyLJRwMEYwesA0u
n0bDC0CiJueBcP4E0SlMREFDQEjEHHQfk0qH3/lAO6vOg4fo4t0fVmGePXK5sUPbB780/jsigfMd
6z5SK556VIZF0SYAOnmHEsmBkH5VlEDNmYZMTBud59aAaHnNjgj2UO3JJIVEsRJNDRLTDQMQVFTQ
EFXm6AxQNBBQlUCiUwRKzmj47TcAP2ngAfSr9d6Tokxq/fswwVu7iAYkOkUPkgB/x/xpRbqD+mAa
8qTiJ9WKfZ6xPUJ9Inlc/oR6wjEgkYNUVESSRSfF84fIHaPlTtc3fnIpKXKJpUpCsihyDEZEwGDI
RKKaoSIaRoBJkKAaCkGKlKiKSJIKlKAiUmoHIMICjIcIEimAMjJTLCSJEqhaWSViQKWCRoAooQpC
KlhmIKpESlYliFKaWkCkCikIkpqqBlqiMgMYUiIpCiZlhgpImkKCJXJEyWlKKSCEyQcmIWnLBkJI
aSgaQGISJiycJGSQqqYqVmDDMEoMnCmiViAqiqqJCgpoWKJJCKiCYBpKkIIggooiigoaaSmSGSIC
RKCgKGiqDCApMgayMISJooGJiaWiSKImlWhiAIgKaUIqoaGYShJJKFKEpFKYhCgaQiiTIcAhaCKY
SJaCpZEZJKUKSmmCQYkxqQiypFiEJYGICJJlcgcaSpYgiAiIomkoBmSYSitAB3ou74z4fLRaWloW
mNry15Xyyl9gY5gHoPD2jQHlmmiaEmISgmRWYmTzJSpKCCWkJIkiShKTncPG/9Z4GmSLuT/QaYC+
3SfEwTO1XcVhICaPhT754eJnZ5wysocBASfOclSImCikiV92DAimijCWhyGlzMKCmIIbJoMjdgnG
wBMIs84p0cSwxmM/RUprRYg5UZi5mIxQTdZExE0ERB7E2j10oUiYdJLSnC8sjnSH3ZKMRMI5/E2I
fmHu4cD7A3oeGuR855jkEMkOHeFhRTgnIEbI3emeYetbWYsA3AdKeAEjVBJ4BPnkPCh5KsPBVLMP
KYGVEpG/0bTQEEJVEwMQMS0BShQzCFAREyMQFBSRUxJRBEQRRSSEEyBASwkTQNAwkgVMUpVRUULQ
qTAUEMTIqvf6KPzc+PmH5Q6Bz+s8470PpFPUenuTyBDjE6vYc4/agpvrMvuonlwd4h7jLzns2HoQ
8gGpABO1P9T5mh7gbzF2qBD402JqKHHGFD5YRPD5Z3DliKY0BjSCNUUR+HOOs2g9JoeZ6HrR/5Ty
+cjnOc9zXdEgNsAkpRCB6vI+ME6xunSDD7RPJFFDiQUSyajxDuTPjuT1CZr235Esr68HVXb60C0I
fcEKQOoPH2+U1V/Qcydfk1J5xOwOQe94hUIFHtqMD+2D/eioCPGbIFZkR4hif5TaYT9PCGqnGF/H
If6mAQMGaZCIXA6yuDYyxrVEIuAfZ8hx7A2E7Y7DzQ+Sl8p4Qe9D6GxuDcENNchyKbCQ/R65R3Gn
wE29SHsE2I4CWTQFuHAfimYnoPmDwDy7+hPlPOH6fpxDmA3agOzrb+j0J0b5zHtB4vehn5Oq9vO5
+HwRvDUCtwDgJ/zGvGqphA8Q5A5kikIezrDYr1o8w0kqRDSpxruDB2QIaU/+SEUUhSqxCQGO4iIG
pgANsuQzCTsTYxQaBHXT0gJ9R6YoiCCZmYmZJIkhkKoiJWFlJSWCYqSSHF4TntONRWKbmEDEnYmg
4f96njO5vQf7zpsX5jf2SookoZkDwSY1CSQMxICSAyBIj9UNHEUUDow9XQVvtbS6WC083AfeDeAR
rjRokiuHMJWKhIgZIaKqhggtYhku5wIioKaWWGY1osF0p3tbM2FUZhJBkDSLMzCEGYmGbcB0bLEp
BlrqvTZ11xxnIAFwb3rhuDdSlJRRELMDURTSEQjwBh2IKiY2i0Mx1QagvwWo1dsgQCKHSBropUUw
Ghi4xdIsNUjAjjSY0i0ohoLNYAHGiYo5h0PknvHsTBQSVVIVw5mKG46Hd0CcCSSSSSSYHAytTNBJ
UIcY+EHjFFNpqMDIFC88YTuLRKEYsH6pVhPF9HN7brz7ihzeLsHnwbnJG7YeAlak4Sft7HIuUeke
oQv9moqpgQrINgvyaK1f7tUlgMIi0PsGZbb43DDRgBMoSUpBLRDA0BDEaMANadEaO5rFT5nfGsgO
TRmiZhmRWXAwxfn0Z29TweYnjnmLlLEk7lOQkaqwwILytp+mr2w0x2DNuUY31MdYrmUNScfQmMPs
k0cnEyn1a1RafSptdMTfscI40oJNP1IbXIsXZbJUpugkUicwFFJi3MoPzbTc/GgaIWGhiQlYoBhW
pZR50PISwxREtSGw6SSCVEl4ZPDPJuM0bZzEhYoJetJYhRks74KdmbnH7zcLgZXhQwqgaYUJtJCS
qpgGgYlpaoClWgaUqZpSogghGFCaZYJgiVaQIIJiWCilEKZQaKEaGAKJiUgYQqgCAIZWqpEiEoqm
6PGzn3z65OBiNszPRURjpI44yMbCP/TTZ0xOphCYCYiIWAahoGgoQoShaVKgipIkhqiKEgoiA3nt
U4EHaeqMA/ivmO3xJ+sgCv7OF6L337fqry001wWSJ+iNSaubUeV9cnKvfoj2d/0lehfs9/Wd0GT0
RoxoWoFpa1DYhGYuEsaxLSYoZK60WOEg/2kKQSAUNJEAkpJQFKNCBMEVVFFEklCwkVCJSkpKB7cy
ShgWUpgSgloT8PJ9fIfZmDRuTUqLtJLkMUxxyCSD60jT8Ym9eDQupHywzi3AaqaDbmOYIeM/wmCA
oHtviP1eIb/zGo2Q55MQT9X5y8XKk2gyP/h444y6M2tZhSOAxoGSf66lGbigzcTiKNUdAfCkoPbg
ItgLqGcUJIlmmjErJVqCCLOWLeAzLBrRs1IbB7552ZrRKOtg9uUkT0bTN2vUS1Wk0rZkmMYmwHbc
m8Zmm40QEaea3rSa0DaYzAg3pq61rItPTjbub0qOGFaZbDNDzWmTHp5Mlrbe65krtyS2upyTlm2b
c1DbMZy+B6yARZKxFYNpg20PJExzdrBjJao6ccW8jNwkE5CSxO7iKuGiuUtRgaGijAGy4wabJFdE
zQ4k845mtHPKw4yOYuGrp4xzRYm0x2bddec2yLByk51bzuVp5K01Qt5ahhMFzNRclME5NZhcZtor
1IIbGwIWDpXt4k2NmMWWXmCnGq2Fs0wyETP/JkHYEenNFy5Blu3mGrKgoIBfJA/rnJWgHJAKQpdS
hhKNKaqpWgXmcvm9IACn0yJ1KB2/cMExNWdw0OFZCowIwZIEcRZENlaPvi0mVYDWrHGJCL9hwjyo
/bA4TXAZdGsWi1GME/aEHJQJCRRSQD+4xDACUlWOrZpTzyIB9cKhBQlNLBV52zIx/wnAqEphkSia
JAMLIEhzavs0CB476T6wOoAwAqEiA9YMhJVIVBJIUKQyEKESTJIkkM1LAEpQNJOBgkQRAV2kX4Jj
u575xvMocQqX6fgfiZQn0q/HJ5h3JF5AOb3XU+8mpN0iczgYAkiBz0P0HmTAQJLFFDFKHsJQHAk5
DASPjJMqN5Bkpqfy4aNI6zNGYYmREGNCiiaIBMZWHMcOFwgIOk6YJ2mtpZmMTfU4nJ8yd5TyQ5Dj
DAhEKQwdmAGS5DiJogIpZYg8WTjhCfo7hvRyVJuMFINfADad8+IFAcqc/cHxkSJ5F5SDyQEqCDkI
utXcrpA/eEBCmFEDzmBZLQgSGkCdhu2gdsUMkTETabaFTMD55R3mI82F7neEU1qdwoTVoiB8kpgf
tIkL0DgVSd9xFo3Di/e+gl4MEvkGHAjCQniMOjprzk8lqPNMCwVYIfngF1wk1FpB4WRaRoDhgoB1
IcEExSjq9PwYh49nd0maMU7camZUpTvCmSzAGJGSIVLFJkHMAUC6kMkOJHyPHAHl0SZ5HCaMkYM9
+Ar1EM/bzoLry1rYcaigcRGv+P8O6SWjfh85tzJY0P+JCJsM4bCi7kGJ8xSWckoTaeA3jo81pRiU
ApChDRmSWYeGDBSkLRLGgkPxIHgdbWKC22FJkqtja9ffF2+LiO16YhlEkF7yG9Xf6aqf8rIoiUHI
xPcdAUB1/8O41Dr66R/03FJ9n35pgH+aAp6IXYbbE2hDk5WYkSHgJYnh/cejf7cEzhjMoO4hSRob
yrQP0XoE2bcd8KcX1cXn2e4R2x/BoiilSokaapaGYmodPveGD8ROo81o93B1bJNzAJWYhn3wS1AG
garA2RR9qNOGDCuGw1g7NOMysUn6T79GvNfjFbPp9m3dTZJ7d3pq2FYTHLIwNsb5mcgGYa8itJ/h
2XC7BnF45SjYw040PUqjxY5BdSNJ40VgY0Vn+DvvfbZxibP6fadLOEfKrjA7w+G4yxcAMaQz3UYe
qjEibori76ANk4F6DOLntqo0OwpNAjbZvsG+ZRvoUA8DVKB9n23EJFX7zgoCxpL3036fa7ekLaNe
MPO9hxCxV/BdoOJO3U9tGHftwarae0h7dnL83JfJQyHt7thokNPSYYCwHnwu21DsMk3TSEdNJQ14
NieKiZGaj6GGZp8PtrCgRhy0mmkoPhgQYuCEO1DiqjDPjBOMQNU1w0zpNZnhZXLAkKFdfG1OzK0L
3Cli9hldk9javDPaoi1vwil7CY/ArDnLtocfHiFNM17ZaBwrUN9+tZkZGD4877Zvxuu+EOHjnQqL
wJoOXWNhpigNI0Atb54jq0D5TTcOwYdYg1X4GwB0S2hIhuoF7xzmJxKHBKzHElI+CeDMsNZgjmfB
l3Ngbg4ODeDaEKkLVznHTi0NLffk1XvmI5t2zgG45DCsz23mjarbWASvRUGAwXlBhqPGkANSqa8R
CFx0u4trjS2DSQdZEkrRWDBU56dQDAccFwPAQidyel/MSdPXbiLUaWLbNFwf7OcM96HXykFi9YPt
h5DL83aU+Gg/2H8m+SUf3HBgH4D88YlcTEbhyX8n28KTYiJeucQ8pBA64UkWCBY3EAzxhDvr7gHm
Ji+9R5JANkIftSVk3xBwfvaDOek0KDNInsg/CKfVERLp1zH+3/Es4In9Z//Tyf8xAEiH/aegLEQW
KDzlHZysogg39GpN6RpMOA6aRmnY1uYnp1gPkJAS0aWdmDDbCZbTW8lzSDONnZM4GbdCi44iU4OT
gKrN2XEoCZhzCt4AYCwJQRqQpclPMCsYkrgztPy4XOsKH9Xi8M3ttrxxnjV1q6PBhges35HrmEXO
Q1rLr8Z1Yps9GKsaa8Ya7mCI16vccSHHwNoGMDclUFUU+1SdfQ/2AJYbQciS+1CKb7vvWNFhEa2D
/yU0yR1hEEy/3BoWdqQAPXNsQuHbSIfzQ7zlKa7qUx3ivAg2T/SIBYAtBNhFkPLAR9oiesP0edMw
XxmsUoOgruqiUFhtLEAKg9IUPb1XsjA9Bweq5/WBcP3fF5FQ9co0CFCEgyoUkEjQrSoFIwQsQsyN
NAFJBDQFKRJQCRAMEJDFBBRKRKtIRIiU0AJSFI0EQRNBMBEITKSQKzIlUlUpQKtKQSM0zQITEEQy
LDUNAhQi9oEMYQYIpKAWSiRYlAkiSEUmIslWEj/GGgfKXEPo2ZU6iDFtO1PwuYN0PtYpgj23TWEF
TFwDOBcRT5nu10godzuP2n22gEYkAtLEfB9fDQ+j93BMCWs/WKt4UfDFh81R1DzrGjJNMSR8lp9v
p7IENAeKliAClIWBIh/zcKeSnXdPf7IZigKzDIKCIlmRSgKaQKEpIJGJgZKZGJJokhgqJGCKKpkK
iUggCJIYYGoqIaIIkogoGYklgVgISmaAkRmJKRQhOSxKSpqJPPhhJCySyEzURQQwEQBEywshBQxL
C0ISAQEQSETSDSyESrLMwfVCcSDq8x5wRBteFAuvBwPeSxpb7bEDy8WZqLYRoNyK4bzLgn/XrEJO
sHHc8GTiBoig1UmOEojcrywx9ByUaYQLKNHP92Jsvyb7bzYfk0YFSxsxzxOpEL8PddYZEqxGpLVW
Bpb7y+GHKB2DAhDvh4PM8xCSICDySeMNbNkQ9S2CSEd/vkQxKyFVBEJuDrFyCg2nEc3kOROWlYIk
Yn8gnAEMhEIcCft6fykzGRkFMQkQBSBVmZkDkpNmRijH+i2QjikaCANA1CBLKAkKJWB7OsYtqpbA
jB1J+wghDTYTRa70pS4pdbyMSLppsiyDutyWSvhNan4d8Dkw7oYuX/O4z8gfVRxR/3EFGPUjQjbM
dNMcrKCN3euTaFrUEFF3GBo0U88wPOCMYKcGaiX1XBBKDGmfyo9RHXbLLcOemoejGgMU3LCYom5g
BoG0hl+8yU5LDr1skhspqBQnlzPRgdwJA6YhaKqbZE14i88DcRe/pPKnyBG55DHcWQPQbyjeP8Of
m2GBSG7D3r7DAp8rBNr7bS7Puug2vL9QeIjYG8HUSLih1eLpAV/UKEi/ASkCjAoU7RFaOieTuO5C
DhVMpjJS4RgEZhgZg4wxCSPBiGi0RhJhKFStKuGQ5K4YYIQxgFhSBSB0TDLEgETCWtj+rwAeIDyF
MFCEkHFwic4+Qejyc4ctheBFvDcGtY4hDhQF24a1uDAAwj9/c42Yfez0w5PcRI0ow/bzl3UkQabO
f8qbk5A/udYHgfTTGJmcvDahYUV2AftCU3MTJIfawxChGhWgHATMRwsueKmkSICHCTXsQ0Pob7mt
i8InbA/eSMRBInsiIKBwJX4CRSCidAlAJTDOCGoKSAZYDp9ZSHEeUdj/g49GwklDAkJAuJAP0dlC
hmqkZKgsCDJywijDesJyyS9uYmijDN4AUoUoSlRISEwWBiUFiSBECYBAuDPITotoFqcgJI1HKSI5
Kj9wcHEN/5ThTzPug/ugYSBggaBvgT40vIgYR5AjbBRMuvg69jthNp74jcvBZEYED+2KJUQN26Hd
A74dH3lY4U86J/T5gfmDuQQ8HsN2STzhFB4BmfebRuKHi8z3f1iTvTBE2eRQNw6+lFwcd5Nx4gOk
ikB5n+9eQ1vUbDehiO87XcA+IXTuBO1DnDFXgZERY+VJE8QRowMA+8PMFB9EuF2uQz3J4DhDvPIH
gOw5gb8Uoed61M3FsHnDWvOdXZWlvh6jydyAJ7tlKpQFUofoNXR4jTzFjR5B71OYfKcwECjDlAuf
oOgTqGwLquR9EPUvD1HVzOLyltA/r7BTuR39QWsB0B4v6ewp6SPnqvNP4wuuZ8xxTkO0eQ8QnhN7
4Sw8ese82uhATXW71DDk9/nbWj6hMV8SPpQU6U4CeM57D5EP6T1pfQH1GzwsA3UnmT3uA6HSaxT0
5GsMOwFzM195SeSt+f0HtNo+jmA6R8dR8UDrg+6HnIXEJgUdPwHrTIxoDFxoC1ZE/Jh0MrZ5i3tC
UDSHsiJKvt5+/QbbO2FKOMQ9YcIzKTxtMaOsMCpGbYqZAWMbKDkpUl2TxMQw3NOcnjQUivYlDifM
k5IdWc+Xn58BxAnhMO47JIco+THGBFYn/Lg1tgDcI2tQBY2nDCmp0qZicoeHqXZ6bAc/UAcwnp4Z
ZDDx+zN+A/Lmu08K5AZ86uZ35GKcobc3DUKIHVrdqnXqPf0/I7rgQ6j3HQ+f0bEy4bXcPM9qwQ2L
J3QeaKiWTve0DoWwsY9KViWAxIfETxyQcjkjFswMzAMZU4lApQ+wDrCg4CdPyng8p5ie3ynkcX3Y
YwITuPadGfiHn6fQYB5Y7/weC5Mcgt+ENFLZjY4lAZYwVRBkoegGBhvWP7b7fdj8OhepE7EqdIcd
mOBJYYxlYQHfEC4w6rnd+5EDo5hiMgMgYhY7aqYExX8JB5lA3ocFzkfZBqU9X9e1dLRN4M9aamSq
O29gsk/k5i2IaVyHzpTIJmwO3A7PcB3I+0NYPjOZH5z5A3GB1AHmA3frRREz3RnbUSPgi6fZJB+Y
j4vebw8t3mOdxAr5RdW0Pe82KaxOdSsRIicQ4BGBGEIgJ3/ZSZIYnv+fs+j0jMDqfi/TR83gU5lD
aEMoJJC1QlMjEjZIr2+EfdcDxDcw5xubxxXid53+02rpAE+gaB4qB8veKIHcYD6kHE6+YDnPnA2J
vPSh1mXJph1ztom8wLwl6JCSFJls1lTPRhNhEVKwtNTtgxASUFM9ZRhyz5LViVeeKWSC5MTDyZHz
YYlob2fvWvlo7FkUUBs0murOOqs2G082abTS3GvvZxA6jDgta8b7CmpchGEBmQoNYWa1+DWRBJCA
St7Q3GJqnS0VI0SxRMGnZJAgxjAtpUxseWUGhsG3cOLg3pqJsVyA6HDAMI0zMQwEQRAQBT7ZAwdG
BEYkdWdGJkTTtYc41oE0MzFQUsNKJVFoxMhK8ZiXGJjTExRQDxidyoHMMzWZmKbhxtrcUMgCjQxs
4dbqhGE6ldBqNJIjEDEzQu9TOpXoNGlTTYXI7Z/P0eHYccGZNiYWU4ZmSTGxbmydZgRwTUsEitJT
CM6IYzTMLKxg9NHcw44Jg2j3XpMxd9AWsWkcIRLIgI0JVgkF3ISE2QBtrGFYh2sYQxlT2QMKNsO9
uQbJ7GueNIbvE2+Gss1ZdXAbZirWm7xI2immj1mqGmMYdd4Rx06GVlQ/KIuaE2NdW8UzO8ykTI8o
qUMJKEUqzBcsxpDbYahNDgHiG3RhrXObww3A/WL5rSFtJ4eE+14Xi86niIrIx0YT582VOeQmT5TQ
VNkNVBUqmKAVv0GkQwoNTaglQ2ENuKLRV990GaT0PZA0MKoGg0HYnvta2BtaLg0wxbvBQWi9WInj
QYJoE3ysFyA8JTao+Atdg0ZVpUo3hUHBfn7sKrq8dWm+eY4AakPk6vWbQHvPH6htoHqDWHEJ1mY1
ybTzCiDvHMOlNmrAUQOww6DJQPGPlNBLnf6RRA0IJbBDd6i+rQXg5u8TtgJ1oHCBUtBGc9AJ1S88
wGNvHdygVAwhFIiXgt2nj4bF9q+GKKUkMQUtKEywEQEECRBCECyeNSAZOBkqxdhM/+dOGOxbWTPM
BsiV+iaN0OhGKaMRNNcFNm1+sNY3tprjnAGRBdi5DW2hnppB0XFdmxgue2zGZwkzKAAl5Hc4Y11v
E6s7vA9hYXl5Q4TQLy7Atr2NkRK5mg34o4hiOSNJ1CTlamciEuW0GSl9yDcjDHrD+jzcv3EA9xD6
I9kn0eu3uMzCFi0q39X5XA/tIGH2Hq+w0PEn/OJb+e2F8DM2kOdOxIiqjyop1eHb9Xp+4iCIgogi
GiGIqSgjgODaH7y4xLu8J+Xdxi+LlnyfEJ+s8TOexCX/USJISFEyySEUi0EsS6DySckHTJXeqOvs
/k1xcvYD4MBpD8pAfENSGHIsVo9+x0kRmNZRDQBqTBNntX1AiJkiLZ2BCJNkQG5VR9vk1zkEQdsf
jD6fAHGnSBj9mZVl1xA2nDXSEiFR4zklyIUKsLwNaMNaxNazCUYhSUlooIMcyAdTLaGMJkCiJYDc
uoJ1hSoVQUFdUBp0BiEFgUEom6iIAIldLIkn8oBihgWqw4NoqKphVATALJAk3tPreA9QwbeAgM/M
MnSbHPvnAYgRKkaLAVxnxHrloT5Pa49+LMHhSOzpDA4SYiKQ1BnWOBhJGtFpdozspxxmMjZzhqGG
HdkxB1vDQGYhxCUNapo0EEnYbexlYdNbe9BSjY3wpQ0+WcQdsxdyvZjXWbJIhKXRIUFDlszDNGw0
VEWYYRkUkSjEwd4VDnIa3CpoHCIfVONaCtDcNjw2YQ0QoxDcsvOJU020ETBYywzNGYy9iRMt2MhE
HHDi6IHmDXK4JzGBQQ08OoMchdMBrnBIwMIp3li4RMVFtxXclOEbTcNFpKqNkIZqorcLEitB01Gl
U1xsyiSxoGiCpQg0qxRm2q0DsQrpyM4jZuwD46MRo5wwV5s5syHqdA1KdMmW8MCQdOTkxgwyOhse
64uDJmBs0xtQA6JFdMoINIKfk9vZqPDmZm05bj4UM4oWh5hWBvGYqx5F6BIHBCdXLRoMdEKaRdOC
BkFCEkRKRLabGxxUwkSCRKCgaSkKgphpXBXQBo0Aw4IYswcAkbh+YD2Kqe0kFCIBSE+lqRX3Lv08
k6Hw+E5KfnwMyKwD45iMEWGGGkLHCRdEK0GkmzUYJEKOtYzATEEQBSEGC5xejgxmPKgQYEjh6eOt
sMyHGhRYJPUtgx8dQqQvhx+TvXf1OkwLX3a/g6xp/7bTEpGNYW2zRB8tioBC3wCk1Km0Qdzx6E3l
+mhlSf/gowKZMaHAsQByQpLW8DvfFi8g6z1IfXk8/Mdntof1ZlMQv8UmGWL4CsqJkcFinBMUGIFo
JJP1Sm4dSuQlyh0vqM9z3Pzx7oDchpkZCISMic3lAwbP0RH4P8yZokFGLUtoxjB4QLqAomgLhNMo
LThqBgykaKkmmUkBiCkiWDX7Nnn3l7LkPc2dtRTloiWVMSjeVEs0nC7FfDJAC24j9o0eANyEDJCp
oofj+kTnwLnIk+Q3p4qjVbejb0GQ+0NB/A/4X8w/qTT4foS0jfscuRIJgmiiiJaTEu20qIUqAwTq
AN6vnShALieoD1iESQ7kOj2SqAfSXQBwgcoRQQVIyJAwyBIQDgJpoob1x86gYZD5E7vXzFmfPBuD
4YwgoXyDdfMGwOGEIEDvNHwwjR+qBfA2UpcMaWE/VN3Pq77MIZosIdDaOkwdRpwM/sEPaQAf0mJz
/btOYOlDqkKEOTjQNpygc8fBIfxyLQUhqA9Fl8S9v+hDRsN2GVz4eA1p7zsCig4FJ4ES2HX2eNwE
MOzlgkCBIQRV7Ef3H7U9jeeX6qUo9InKhc8ZhjNUKKkqSFQmIHUCJ7t63ulDIBdDSGpFZZNDYxqP
LEMaskgEIqECtFGQfviY4ULDELojKzAyYs3ZqwZyNBI7gdGwxwKnUuRoBDQcRuSCK1MKuSgUCpEJ
uUAmkMGgCAQJqBASAgaC60pEtBrRCbk0EbnWwxDYEVTUWlDVKo0xKKSO5QcSJDRFESj/eqQImjQW
KxjGCnEjYkpXGGCykNYYZ7Qjhl7EJQB2kaGhYkhiF2Cfj+I5d4/D4GnFE8hPZU9w820PWnKHb8g7
6oA6vR21Yh4zuybB4CGw/JV5R9H6ZzT4p+/O96eo/cUNED6I+0GEfTuptJHqaC8HNhs9OSrcR+66
Fk10dgJ5B0kelMwUk4ow1qzGH8WYSf80k4ZeSc5/wwpAzgpdUs+4oVfm7QKAszlR+k3Zfv47eAxh
/k9f8Dtx5a/gf3TBnkGaGg+oDSDYiKOh32ko0diF7pBur6M/UcKoP6D0ICP2h4RCBHjHLCQ+WZdQ
1EfKb/M2QL5FKYRHwuQH2EO0WAI+k+f9hcL8iH4iaB9XsnH9fXP+YX+MV7oEd9fT+wMI9eI9GBWG
5XYOGJqmlUmySFQVNyMHqiUEkjSkJFRYTGGUEYBlG84zWGQahpSYVeBOq9v1/YODbKlcjlyBQtBQ
IEJEIRQ9RCKHOBtXEAPphJf4gfAB1EnHCi0HpPPig7oAeMw2iRQ8JAXLDAsERA1cQ+O7IeURyKRB
E/M8CwCC9AHz7O4PAPiIAOrIA+0XAeawB1B8QXQD6jtPAeIHwoKdaPMp3wSQh2FOtP2BMD+In/C1
QPgwb3IcLAhHchdgzGvJgwgTu03IkuJA0DB/sTUbsWO0jIgjZJBibE5JByPplaqxKVNO5SL9phHS
dWg5aqnrETphpM29jQ9oihua/E1rBqNatnWhpqyvnCZzUftkI+Bb7HER5NxZDHKSJPfzHYW6AMLI
TMEYIA1fqgipAVVCwFl4gFgAAlAjS1VStpaURE2J4DxP78tPkRlBwwYFRtxZaSKhHsNjpdk6WGWA
sxMdYYVveQ72kaXFaBzS6cTEPVoIliaYNmpAYgYyI2yg6SjVmI72mb2ptzQ6aiwc/1FCIN4EAibY
aju4PFTQ4YSIrRGA2WFEDDu1eQigtNDbJq1p0qUOJV72bV09mK6ZPWNBVD9+aiCJ5WGOhPpuRdkx
hs9GJbNdQnGICmiezSoILhna8Ab2D9W3w91jA+2vPjWBwO8TaPmpF0XenecFKo3ZvrezEMUPkwmK
ZdxPAcvuHuPAJu9QeI8YdO1BDqQ19W3X5g/EHn7zl7+jkrpbFkqhloywgAFDMCA3Ashg2TfdKUPq
mSbwCpl2JVRidiRiawKk1AaqpgZsnADnkGkSgD0QKmw7/wjyeT7ZSUiWNCes3OCB6yQ2IHLKFJmI
Hz8hIUXFS4ntOBm4D6X2F33XFOJmfGJYY3yYNqPOpASUWzMokD5zn1oMnPnMLby7D3J4DfYVtGD2
SdoIP8rckI5qqBL9gUGc/ef3I7EbKGoSET56egRe8oTUafbXKqCXHrgm7dSiYx5AiH4QvB0iZZUW
i4+AekNSiXLfzGNhyyCnklAQkD/t/tsY3ojPxaLTLgYWbXpCS8BGo/giv2iiB9CJ1h0n8Z3RxZRI
GEJk0/U9CJ5vtToR7Vfc7sTH0cORh/36MrVRUdq6oKsi95UwJCIQyAEfZmVSkyUpqVwgAoHJRMwL
FKGiILNaRNaxcgTAlapQGlBpVBKAaBBpKAYSmKKAKRaBiKkokN/CrmyCgoj4AJ89VCeUjzHIYhIY
I4ckiUma0SQ71WGGcGZW90aJ4Bfkk4ItFUVRWOYYW0tIaBMDfiHPPz+nuHa+nVz/Ltr6cyLsIp4I
SJBeBhcWIIA8gCT6oSb3pBYVnrg+Y8AahfrIPcRrsZlev3BXzpEvcK2S0C6KkLkSxAMINUE0IYmY
SEazMZHVoiq1hYRWBicZrSYENURDUMubUw5IFDbC0BNEhSfljIAiqBqhn4+uusH4macOBWZLUBiG
+SeuWTiYxWSpUQooo4QqBCIoX98BMtqQAW1jju/PoOJSAiIAgkSj5U8D21vjNnq4yEXhUQx/FI6Z
UOMMQChmVA6l/H2MoKQNssQhn++Px/zxs/xn7v7DNHyRQ5tQ0WPJyNpgHIPOR+TyC/affzH8/yuk
0DUoGotQOvshMTA+47gce4M9H72gvyZqhREkkD8a8gfdyfYmjwXXUvY6AwkvB68NHBhBYydJhPtN
ef3RA5BkOeIK2eeA377FSLjPP/nreB8PFF7ifz/Dq2bClAw0An07IkvjRWWCoW+xF8r5Vqx70/Op
P/gpA+pW1kQ0ExBEREiSsLLM0MgZgn62tno+pDcnUH6kb/lolzBB9I/aXPoEETle0O4gdHvOAGKI
tB7QU/ugEBYIwDJBCSsB5DwO4Hl9369cb7rijtgpMqySoqiA92XYa+XSf7N82D/w6/rTQ5SoJyuj
T9RH+yIcgHBHs1KUGWcr9hdyFfv2J2HPrffjtDjE8t5lbTBkmYlTuxBMu8NkLdaECi1CoUd0DaNk
Dzf6m5pDRIC7g0CH5kURJTyIob4ohWM4DSd5KRA3EyrBMhMFMMyMltSTBgYwRNgjp0VArDAEw2jJ
P146Ah0mwU6hKip7EVisglChp+vlTluJ5t55z686Ne8PIY8JZfDeJTbTckDDoIySTZPrNOndtptE
sJvKV41GhjjHE0wiJAk/MBiGBLJFDO5Q/YSO7pTBgiX7p/ABxTSSVMRFsdkiyDTQH/tq9rv9rAZE
SRCEE9x94JsL7aRMFoT+BqvpxmBEKbqm2HtgQicPXexMAecOhuiJ451ED2xc8wp3gfeJ1AHrPvhz
cVuH5nl/WmiePzCnpM0MH8A6DV5BwkZOYeyz5bt1KaGOBZQottZhPykNMTYv4DO3MQY9bgnYxqVk
OBgxmNJsg5hxRVkzfshqR/+oIIaaOUbNZMqogaBYtV8sMBoSLgs3mFVJzZyY2eH/GHW+A4fnMYdD
iBaBgGlAoqHRxiWmPg1DydaRj4UBta8NwJ8oianj9cwEyM4E6xgz2gdtRdaS5qBvXziz2Whz2xfy
mgVGFQCUIs1IUlGAXRrWEyU0DImyo7wt1FApyGzRrVNDdS+FRdPTDUghsoNsj2wVupVqTBPKxzDF
HnmK6ZiLqolyWznZBNo3pbYtoIXeiYaqUet4ZU0aWom7d4G9f8Q91iInrVSEMYWcS8Jak1hoGoxt
suKYTDYzBmtLVyGI3rfZEbBaQai4HLTgagOspMfCUYTBPE9FCvSHFAstdwkxlzU0F4l0GBLTxwaN
7CQfbMGcA5wc2YgTRBg032U4GHLRxtwNsgMKhNFGG2bd0pKao00mGJAK0kQy4JxmJsUtWNLhgFhB
a0MLCGNrRLRgEYBRrSKJnGiUBx6poJiMaysj4ZgcMxOJ8W1RmIadZYZcZwxaKavJzEgxY6NaGoxE
ZgtvGgiaFJlik5JietPiLecK6YbWkxkKV0dTCWVzUY1i1GrouVmsQkMYgRBp0YEdaiQFzJVkMQGm
kDYiUMYaMXsNYEmCGPUiGAdM4OEKD4O2wxrjT0XLFMam0tKGZaktTBPMwixwCtQwrlZcGsMiyZKj
JGA5EMJHBpSEQwBU3iWnrNCLFLjVwquIWQKi4WKDcyA46RjveoNLNINRoMYcI1DTDnRdgRGXRwU1
iUQm0NNZER6ZSwYMIKRNKLJHIiA41qtAYmQYlbzFktOZBZYSxEyYFcG8Y5CJibAkI7JoIijeeIOY
NuVJkpxPOudnYgDlODDW9oLYM3rnbJvQgWzV2nYBheWYkTujjIIDODELtQHEaY1N1dBTTzZoMDUT
Q5pKoMb0ooxg2mWOgnmHYajfJzNqMLJtlvCNZMjwpcSTPAgXA2qlhYRMsVZqAqY0GkqIqhBRVgf6
B/TcZIV0tcdRU0bijxMh0fGD4cFEwbSgRdVB4aNcyjOF1DhnAbSC2TFBqEiystkFGd8OqZ7ZpbDS
GxpbCJ5eWBhjElHSlCc4BWDqc1daGGCgSMYjrCFNFojD4cXs9sbN7lbwg5D32Lqo6l084kUbk+b3
QNFI9GyR0fxeNHlw1+d8VnCqNTTpiBoaeOEdrLbyt71N+K+IPONTRRTIWsNfA41xHBGiOCQjHBCM
hDdN1Hmo2NV/upEbTUZhoomht01o5ezr3kIn4OMA/rMOw6DKkYjtAe/Y4rqfEA5Kg7lNQPGGJhAz
COTSLEsRhu8Jvbh6mB7RGN2jExaJKokhuyXs0GZJ1LBAFxrFTJDQskEaMF8dFB1YYwNfz9r3vnw6
dWFtV06/s/gHN1B3ziiZnLAPKOz1GxBDj50/BTy8zWxNRs19qXOc9HUQwD5fxU5QODxceAw8PjPP
qF+Mre4+2SYQx9Zi++NRda0VucMkWq9SgCiLf2YaYtTZSMqWhlCbMmIirW9DIyDpsywxmCmJJmUO
WR2P71m4ZEJSQ4wwzX0OxHFVVpC0jFUEEfLejQtjQjBPS3MgwR9jOiugzHOB7HLlMxgYi72cHOnC
cW00RNiqgok+YHxFgYVQGI51UKUe4dYI6oHTOd1LtmA82i8BgbVDlb5OVwIo6xuCLWRIWze0cQ+a
4FO2fk6c48acJxnKptPI/8RTDcl7KZ3De+wBogIg7vdUR59SZJNKKUA5jlUAUEZZFGAmMmEuEYAQ
ZMwEiichBARkaCQcBsBg3A4Aw6+ofiMUD/PuxB/FKfnk+a0AmsP6aw/YaoP4JAqf1EIfGp9M9Br9
+/6tYtsuPmxMtkbqsGz2YiPGp8ZplXnWwrTAyRijgwFlmYCOmOHWUTPyX/SF+98t2pTIwmjXJKXO
f1J7BMg+5iHUKf5SK9nsz+IYHZn+/8yHwGDCjy3CGAwYUeeM/YhJh/CwcFFREXsTE4nt9SJ8SbjD
JWmIJIKbenHX+3QxPCIi4PmYL5h3j5Pc2ydoejHznnnz+ssY6ikCJKPJaDUNJTAkhByQaLJXCSA2
02DrUdBoUlio6QKKQKgswyzMkZglKWV8JigYAMQRfQ0FZ9QhxibjhYeE24AwoAp5Q0BSFJ+Q8jgn
gdgbFMA6NcKo8CY+KbU44SxLnWJRmSgBvTQ6OyqA2WDgYwxhiYamtk5I5Ku4cYQ3rFoWkIMhzZhi
fvpCOoOINkicQ2GDZiYQmoyzbihoMkUeQDaVQYqO4EHdoydcX+E1iYaRRE1w4EBCQtI3iMB+BcEV
mzLBhQIQkQx4iKdGsJNRkRB0Q0cYZgm1PzJZCZoBAkw0vHDDLVSFUTSBmYBEpSlLESAURVVRQzAF
AUkRSk0NBEhVDDEQyFUrMTRIxKXGYOStTJdCgddUbwcWIUzAQjQCCaNeh27VQwEQQzwBnKqnyodI
OQHTVGEwfnbMcDIikYKZGhhiKmCIOAhXJSqZaQ8vrHo+v3PZbHdugWSADqN1KHIHJsM61wMzEiIJ
sAjWYadZZiU2E51hp4EE8chkT+B6f4WAPPMYQh6XlD8EfKpwQsMQDxHBs8+mKNlcakUjqaGyMohh
SFYrpBWR2QxFIB9LMunj+nk5Ub1bcEE2t0GYNKUBEUMEUxPwwZrEEwlYKgr8RI4gQ/fCZARBQKxN
IUpVUjohyEiSdYjn6A5wDTBQQ1jmKESjJCUiMREANAkkAHsIMYPbOHThk10WeYY5Wv7dGpfIb+jl
wXYSk+cYvEVaqn2wtE4nnPPzjcB5NSpoWZCaimoEhpPX7kH3HcTH3uIQQD1/EvPNRIJTTS0J9G3T
qQ9qephoncIKUKCUCBLCBELEiEQBQRIpSIUiLSDMlClCkQkyBEzKjMiI0iFIAFLQjETNKTNRIFAA
nhAqVsQxDIMCEf0fUbNKbCFKAaShoUghBGgGhCJQZQxRWAhQjthhaKJmJIIkAlMCCLQqIWaUp+Q9
gYF08fRyCe/6ExUx0K3o7xef6Okybhi0O/1+cjbVAmEq41RcMKQq9Uw79uhw8jkntCAfosISZIJG
GYKIImIGHs71dR26SQmGikWaCSgiUIZCAkpUT0Qm7EMGH5UJF2gepE703m8/Q6ig+TSwq64Hf7ea
IEN+cUFFUwwhKJTIPqez3J8m3jn9YeDzIP0kq0FKBQxAH7o0Iwy1IFUME+lYjazp3lrXUIaoO4nB
G+80rvWR5TYdSvuwr6pA8F6IDEmoT0J4bJJ+r+NJoELT/CGDnCn4W/MWATKEIkJPhX89q+U36FsS
GEhAtDvO75O+zccSG++cilD6JHp754FRj7NgC+9CcMDlTQsE+tkKagD4SgmiFKH+SACvX8GIbAOW
VfFUorY0KcrwTaWR9kjAurEGhEY7eofSwtp01n7vBIkkH7v1r5DcL8fTgH0AaHrEyPqMXDmmL4/V
V4BulpCq2GI1AbbsgOCMKnrAxrTDGDFTWqsEqNj0wIZBaLBWVXWBYMYxoboZCYy6jiieAaP5qLCV
QYh0iYQE4FZBhkGC0OJhq0acWCoZyDJiKKWWYoqcskuMdBDhGoCIRYQC3vgbz13yMSnCAROIcwz+
ry0fbbZmiU++YfQdL3eOYOI7asDUM74O/qHP+RhTRJSuxMEJ6moSqCZhN1GhYhYYCgFWAgIOEAYs
IIn9qzxAFJKhAESqaQMCcyFMBAe6QHSOL3jfS7JIk2xVJUQhSQQOQGR2geCXJxoYDc5KUdYYkSU4
wPBJqGkAcbiE4k01A7xwTaZkNRQwSMwRvMmSpkpipoKMbGIqiiFIaGoLTCYQbzEg1Jk5mArQtMZj
bMTVRIUEzAFKVNVmIYxDLEAlSsFkYJEFlJGzMNMJIQ6hwoJgpIkIBmIJSHWYyRGQ4FOZRhERMTAt
NCZO4DQSYuGKVmOBAzIUNDFSypRxHGYSaoVIqENEmOjBvIsswZWUGq4yWsQwd6csowDUuS6Ro1hq
0EDqwZrVqHIAyyMbDEKsEyXc73lrDUFmGOZFbQsEpMkdwZC5o06TcptgDW8B0VOpWgQoEMgcJTag
PzmlMIVdCHFhrHRUlIDhI8BKkkKNKkExLSFMUEMHUwxgm0hdAyJiYCyGMiSOCJvBXHSJghCFBwGC
ZpYkFoVDCQhXqAQ6Ag3INLc00DVUBMUELSDRQQBSjBRNwgRfrB6A0EW4zvBPOx20JC1EQlBQDSjQ
FDskdcgCYC9EYH8PfiKGUpHShyHlAOk5hLYiYcSh3CAKF2OsRwUNmcCWahMTixEJyGlmRYAgYLU1
STKwQTrErIsxTCIKmJ4zCCizWtLMARBhrNSFRFM1EMBDNEWjHEgiJGKIckoHJYnJDFYUUSyfOiUi
+xIe0igXD9oUGIiQHvHbUBOaH5WAED/tH75Q6YoT3P4Z8Emypv14KUnej2QnHtxAA/cBen1Z5S+W
P/mI/rJ3aFfPax0FFz3/LVXKHVHliIa25Tn3Pg8e3wdZ5MD3Q2GJ54WAJkJlkRodmZwVojJx10oI
9CqccD64vCMFUAExR5Dwkvzg++Ow38Qec85xmiBedc/xPh8/xOQQT7wPIUu2DaAHzivxPeP5+UL5
H0ktuOMv+grB4Y/NV4TKGF6Axj/7QMDNoXPOToiOebW+XljjPuiuPKaGEiIB4g/zpIHV3l/90DkC
dQBn9tnEUhsIUdSA5AeWGAGSUGTqAGJHAtjRG8hniFwCJLpoS00tjQZREA6n9WkTr7nXGw73EZ59
9K8SbnVS+CTGU30ZecUFBBM70m576DEaKUvZjvoMKlWeE1GFGOBDGqxBTRO77U138sOKDZCGXUGR
hTUhuFoByUyQyGIpWlJqpClD7nbA4Y2yjLBxg+WhNhxiDwuv8mzVEjTSF4YNkTg+5tox0ZYd+o8O
yGGlxunuI5LqDUmrOwTX1l7joazTLKTUFJNRNQUVEtTRXWWDHPpylE2DKW02buwDcJ4ek535h/Z3
9HYHx29xzKbZfh+AcBPGDzuIdW0V/cGw8wYjx9PcB6s3iPeOIFB/HsTmO0zDkQ7S5GnJM3953j4A
2obzzodgPRuDynEbAeVPlshTyzvYU1TyYhgfdZHDhSCJ7KhaDaVFEuMBsChwsOhZXsDEDEBJYDzG
IOBoMwMnCu49xzYtSGwRNh2WGAxb1fQMCJQphje+Mgw1Jce8zA8Yif3zQR3zr7CI7f/dQI4BQ7pB
jD3e4B6n1SaJFPkT2xgfzwh+g8WfyE7yP1WEYQT7NrwB5XfEPSh+ScEELmJ0rFfAQdO6WhIlH5LE
ZyYsFKoSxsJIcRyPINqoHzIDsDghXIBwjLCFwT5THep8pB5n+wimu8dG3vKB5wiKJ4yIj1hADcKW
fJPd/k2lq81f8TC1iDjB6NQjFEWDyILZjab0tZDM1q3WtauaHlWhUkY7VgkmIBMFpoSQ3ohqJ3Lq
RTVGMY861SazJszLeggMSKMBqaQyVYwpa6AIoMI4RMds2UhczG000tRjbkRCAyAQGNjibdeh5Mjb
zIzMtpYwTdyKYWUWosbCOgaNVGKOBBwZGDVGUEgQiRVkKAEWsG6DDRYWEggalyUA3wBBKQVAVS0F
ABRiyZLQzixpOIYdA6DjbKSQhSGljYWhMYRA9IrGhjQNiQjCISCXBDL0xUN0NMU7Sx1G35pebovc
vuAoLC+noEDliSAdqL7kCT+9KHL8uZEA0MTEAhJI0gkkwIqvlioCfz2H3WQ/k9Ffq9ylj2WmmCAh
/Kxz/xB5wEf0mwHN767WIm4aRlmqKWknnEHk5t67aVoCmgBw9D/Q7T+T9P7ty74oUrhl5RcgDEPt
Hr6PL6ATa/GnpT8DYnqlKAKSjfDCMcN9/CIZtg442mwNsBMkuB/hZPq0oCbFYCwh7KTJACoCFL5/
F8QzBPxD6AVT/kQL/Qp/4I68w99kOgH/lGJH2bz1G3gjoJ7T3jvuN4r4e9na4ygoiimklJIpNYGC
QlEBShBHJn0B84UQMpsxRoatES4BxUgg8onxiXsWWwrIURqL851nLZxGDgULxdHs/37/ntGw1Gxx
JPdRR/wQF4AqomX/YjPuCl9BkFH4+YoPQB0ACJE5F8FfVc53BCBzkElIFKlMTSh9phpjqFN4I4ht
YkJmGlGmWViEhgSJWCAKoCqWqRP+VD467bekMDg27RhghIIWSgKVaRqFCCIFpJKYGYCgmIEgiZmm
igqaqKpmlCQhiAgggGQKkUppeJB7sU8Z5d4ngQIYSVDySGeCyzFDGFAyANLLqkKLDsogiQYZQIV5
feXx8A/7k/JBKQDBIQyREySMgQwwkISSSyEkkwyS1DJKDChASzJBBCSlEzIQkERETCjKElIQSxBT
12BvYHChgEGCo5IFgxdAYMF5Ej+bvBf2mMCL5fqUC6Ns17B7I+Px0J/TCf1lF7nrLJhhWgG8laAq
imIiFoVqICoIICqZBmPdZANMt9wTyDf4BOQgC1gg5A0TKUKuYGDjgYOehWJoJyTJKCGEmiFlldTo
vWXZCZBkIFKmSLqQ0QTImQBkpvMAEiSkSgCkyTBJSpEYTUFLjeyXJGvozJlHYycBFP9T8skpYqga
mtxBKHAQ5NahMhwgUyEXjPvADFEHbChuWI4zKQMkfDIw2tYn3APrMBDZCrMj88qbj6qfzfOeET/A
4HeMgTHXsHAoP59jieL0CR0EAeyTEgRuV6OZ2nx2kEoZ7xcQNAQON7zg/LmRAUFK/lkMOv8NBoYo
K8XjeERNByjxnGS0SwwwwFEQVMkjRBAMiglAQRCyywDIRRREn08QESEHPmJTERC0j4AggsFMIghP
abU46dcAeeHcT8CMARIh+65oDTNRsODeI8gSUPePkNnnyAj8sLQpkDEi+kD6iB2AiRO7MBBEkQJN
VMy0RJUwJARAUEpCFMQMlAwSzMlAa6/kISmuGTBIaQgmaSmVqkogiImihgJChlJoopOAOGKkKiSE
KkKgSGIlpaWZWY7akrjK0SEITLTQyRL3P8doE1AJ7SBwEgDl6Sft7NgRKlC0iSskMfFrdyPpU/m9
pYO4LibAsdaajXJEg0J3oKFiEO0fSfIHzSpSgUKUgUoBEqpQBKEyMLvT2ndDcHCOoiSgSwfGBCCb
HngQZzFx5DVi91QhcWSAmqCCAr12UGdhek8Rz8AHIcy5My0BQgcH7l/r2hvjAOW0mYYIWJBlk79B
2etIeycQ/AF8kmk4Bw+/InEroBQOUfvnIgOg8RhZABhAR9/M3LIB8IeTEeWCkgH7Th3wjBYRd85m
JJlpApQJoiSGpQlAgIkZgIfVIYKh0nf5Tk7GGXGflqCav9W42xm81CIrkTgUBjBgJSQiGpYzZvC3
gSbd7DMMYswxZMjNGwISogkSAghkJU+nMGlCmhhlCID8WeunEIOFsSaGcWi+5DFglmENjrCnOqgq
HBDTUMhuHAJKVYjWsV1YawFgY6xoiqsryGYsrbEDiApD4owRYNMURbJ6VjTJqXJHLesIp0YOJocN
GGI9MnaFPwSHMJQGSYEjJChQ+CUaUOU0Q2HWBmrRjgY6HBCiJJx8O3FbCwkOxjGhCWgqiz6xjBZm
URGpF5SiAKA0i0qKAVDOGFKmmiNtkypQdGw4Ij/Uf4ZzvYBWRoIhEO2IwRAKioGBExIQYFRwFExV
GVBoMGBZu0Kl6FRE5xRDFMCCHL1x8EH/ysBghARqBwTRKuOqLCY1itDZgRkJiFIyVAMQYkirhgsg
QhAEsKQQJISYhS+wflvWMkD70JnvwDJ1BG+yHKh00jLSFMRMXYrMUKWLCWk7q/y/NAenZ+eIJIPG
iMVHgWkbwUpiI5rNaSQjFIhgDZHXDicQm1SDaYFiTBrMR1lBtsJ0z8HIH8AjkGukfogHl5Kt+23/
bCVe8nP5y+T5SlpKKAoaDDGCIuIIxv7XNpp4tZSuF+EGpeQPV1vyvlRJOlEDqhIWICpR7YB4bnWQ
yF7vzyBXjHQp3hnaQJEoEowgRIRCTLJRKLYI/e++IDiIc75WN15szTp0aXUdQbGSmZB7BmCDQoQ4
YAeLUxJ+zDGSDcKmEaCaUyApGkZmYA80zKYSKU0J2uADcB548pETQhx/E7gIrdJhlhHoMDaxoHlH
lTIyMzBgfwLwwOLsKSyxOg7jrREAdRMpSkSAPtPGAhqfn5GxOZfwBwYvB6AW50D3bN1WROmI9sAV
wY6yAo1jhTjcLxC27+oxGwNwfgcZFhINKm0hFwTktSe4FPj2Vgfp4JCgH6mBwdnKYpJMScnp7CD+
Eu6j+qEP0+08D/wT+1YV7Ck+VuaI6oiEiJCOQn7ENxu6JKpzDMEPjBTECFFMQFJR9efVsliH7uCY
RODMnu4HgIoiZJCiYhqipkpeEDuQdfL7UmTD60fKRECFASSg0NLVCCyQEhKkjKSxUw28ND5None9
zpu/p7JrBalNBu8hi6eT4iA2p2QwwbJCySqE+UPBZSDJAIT4Hw+HwCm/+n9PuXAw+Qs5N5tHM1Bz
V7DA2WU7ATZRlE/0IBlBLa/2eTzvxTxKRBSJ8owJh81iRmYxkCYOj4nugif5ll+MAxxRHrK+r4oI
XPF4pN8l/tbG4GIPxWoPRjI1baVgQaD/JJpoQTExuyMarKDepZsG7JAGxMRGJsUqrZS/tFTN4Ruo
D7VkEbTSawiAqejCVWqopZhGJs1hiYgEBvHS6HTiphCcgmhDsrHuOuR5IaIYIi2lJWsKfudjtRow
wAswUyAhIX4oAMUonGlsIl6uyn39ew2vFvFbiKosqS49sYGMacwURh6QPVBfqO+Y6A4Ht4i7lT7Q
IwIHUHrCuifnU7Pgdnt+UPtnvjY7IXPsutoO2dsByLs9mf0/ev4ZoN6Jyy5t1XUqhPs/4s15egju
8sYd2YyQ6qU53SpZQkHw5n/bPGZsMOeMuhRxkyXKcFMExvDYbMw27S6FlbGNJhhrsZceoFYUgDGV
OtMZXESVUUG+pE2YBA4BxI9NduidxsZj6a8C6J2aj47kX9GtDXjMw8Dqh9T3DpG0kEN5PBVCGMQl
jeiunehyzAtGDjGzZGPpcenGFJzHm8f4P7opmpaKDw58+izChwsnw9WOpXZG4HhHxG4efVPOviN6
WvO9E5f5f/b5T8kZ/WWJR9fVNA/3z5Y5mZFyAMP04ZXwH7SLQkwgj4gf9QUHtH9zwQ/gazx9ic69
Xr9h16j68ces8joeI8Z/Qi+ndwUNZtPFs9ex8alekfY/yHS4HVsD2B1dDwd9Dr66vIKD/giE/xG3
UWQpokYPwKqFiBRRqDQ3chc9OtyHJIhnBkFwpCrMS2aFz5IgLcuODYKsWaB5TcdY3D9yn6huAJim
txSAH5eqeqzvlESUH/xXhLjeEOw9NhsRJ/P7GizRRR7ymrWlT/t/Gz4LmZ1/FfY/t15ztP+qIAHy
/xwDl/QZYXTzkBJ+8oR+eKeXk/SWM4gSSOgg1/TgeDkx1sMNXhjsx21OipRiiEYHYGd3/8vB+y6B
oFRsdda/WON3t6mjNJnXQGTEtGBRAP7wURNbsMLyf9KzTz5gwgNg4clK+f9DSGZ0NJqYScJ1wE2E
DvCEYQZnuEfAeXHDfNXUNO6GSnwfF7kPcLj6D6PUYVSlMsVNEwSkEwEzAT3akOqfZyAcUURPoBfl
igmsiqGJAZCoOSqBQiFK+35voyPt+7Ay1kThkR9uj57ZmOVssaNyo75RPc8/gA+9JSCn1NA0bV4g
OQhPZx9PvgfqiN3AbqImj2xwOkAQ40MwxM7fuh6IP1mG98C5HT7XEMP0ObirdGM/8IqsZIiY+GDD
bgmNROjZodDrGggpJxCczMSXBgmgIChxWBcUdoOUVoG+8DEAgQeJgUvcdyVkmIB8LbuBlYLrPcY0
n3hqFEDmBXkPE0Yc1NbPq6lPy8HE9KPn6Oo79bx2NMi5y4hqpQ/cBYLNgzeKPED5DrAA74Aj2oH+
81cv4HANgPT3fCQh8vhMF6PxHoTr9J0+xOk/oP2DqUf84H3eApkD88Up4bfXe852J+T8wogeJFD5
UwofGQAPGu6jfgGSTCxrlzA8Kidw8tqhgKBnCASgfsIBXQlImaFvsd1FRCNJEBMlNgyQDP6ORQ/s
DYJkGnJuD5h1aiCEMOw/l7RAdXuHwiPQmA+75nHwAYPTZO3o2rckIPXzdCByCJAQucwET5PN6LfX
+2g+sy8OoEeQQHCns4FJtiDwsYJIjG1UkWWoIDGqn+elIEjog07RiYmJpppmUhKQimi4QTBRjqRz
WQ45hAaYRM1XsNi69B2jhCJkBZtM7CGtJG/7FvziFgwwkKm5zQM/zDxpjUZxwRz+LZohoIiLknCS
vaeU0aD05G/XUThJw3c0Yn1QOQfayb6IuLzj609fGh+h17qF8V8ARNmGZKQSnsJFQKU80ANB9aJg
uALthKQRwkqghDeAmAikBiSPQn9H3B8UFP+ifSLuHsL3CIQEgBIKcvdD9R5DgTSdN1d0xOIg/NbY
7s5B8OYv4MGEn2YUyJ5qoxh3yIQd61CnaTx44O1gfcWwTgGSAFJq4h6UYA2fKZUjtE71KHYED8iD
gMThDkjbe0PGCWD4VdEkeyAyDE+n04OwHtzSEQURFNLzwBkK0pVFJME2TkohQFA1EVMnRx50ASnZ
gYgQ+8h7b3cB7lXQV5ieWg2JKR8ATo1e7PkClCA6hMBwwyzCwT5gh4Hl/mw42AclBUQ1RMNRQ0Av
gkfySr80AHMhLwZJY3qJLqYj9/8nymsN3jX5vmw4r9xgKYHUeyK2sSEFZDuIfrPR2+I9XjT2fr2d
9yzVCPLC6/M+Fcu3GNVorAiY2JWRAb/8yqoVgQQw/QiAFGcCX1A9uyCruqHQTp6mxIyH4Y6b3fCa
LWymqKaC0dYlmi4Ach9lIWcheADSmkFL5WsSIhhGxOECuTiaMkNKJpyOMdA7yzbuKicwrDMELDEo
IxDNmd0TkTlLYQqPpPpOwnY8wZQBSNBBNMQTCRKxIxCktMFFRUCj0lkNAxAFAUjQh/wTvYD4r6BT
gIbyAWUwkRYdFao6FS/KETzHWpCsKTAsC5FNSCZkpjSS2YkQRlrPAUO04A9IfE/Zl+f9Rb86H4QP
qg7xOUEQ83k/AsiPCCobzhkHcvp4Q/5dktfo/GN/mPzzqv6Oko/RbzTzpc/d1qcROPQ7RjqH9huc
EPuQQ8KHgd/7ltn92A0bBXuu96HP4+v5Rm46ALo6xbA8tlOZNp2BcxDwFhyV5pp1G2qnm7NWvPG+
Np2331hfrzTxh6ijzAe5fJs2nOciCn6TWfIF6HLmNonZ98UQNxg+M8DQfmYGHExMymqoB5hqmBwq
6MjIh/cBQ9pEJjvOU6g6AxNDWidSeMO56vIh0HgXx7eXuyDvB4iWXf1GJ4F2WfHmHpcD7qSwonqI
rR4UqIDIKxIgQr1aQPYR8RH4oQMg9rDzneTMuPpw0mUgfdR9xD5Y/n/bKfvhxJrXYgcostIcdoVj
hMQ/uMOo4Otecdxv+VOlkm9HsflSU+Q8/j8Z2Q8j+M8qnxQGXi2pqKKST3o9/3drxBMcJwGQfqww
gIqpaiSIpqnVkVrMoCJmdxkFBqyUiGyTICo4/fA0mkkAKaUAYMB8TVIzdkMK8TGGLZEoDBvROGas
W9ECsIDDAaX960vD1mEnRnQNI08Q1Gkxo5YBeOqPCCxgy46kioP49RbXA2avM46eVtGMjNAwPoVA
cpmmKCqFICEiEMJcJWEiWQLMEyYqFopKAKizEjDIoQhlskxaTMMaiaZITBzKJcmnxDiQahgpwcAg
MILAiacSkzCIzDKZigzKwjEJMIoCTMUxkx1pdaSwciGSARiIwhzEqWDHCSNNDgDQiFEEmRFgzGYI
ZRWRYYxDDMFBlvRgBEiGkkKwmHMAcRMcwJTALK1LmsNaTHGe2sIamDYMwcGmhSJohMtrkGQYSJrq
AwmNWCEOOZVKSmZmEYZGMuQ5bwy0FkEWFjBkYAaliAKA6drQdlRBEGjGGDGwoSCYOKKscVqIEeFV
BVwijAbG1IsajKRyMgsgq0OjgohDHjgN0cYNNJyKBEcSpgWDkgoOMo1Uq1jgYGYGYcxgyaMliRhi
CQjMmyCIJZmKAZgKswyUgIqkYiJAiUCJKZEmTggwgdRSZhhBKZVJUhSZIZCYJYQzDNCTWNgFBPKZ
qhZgDWJS0Fl/vtEWs8IWuN6ViaG1nMrkYQYSwwQdlAcIBCHdqMcwHE0OGtYBkxIJSxBhBllEFEEZ
k4GEUs4YoZmGWZODE1TCMkiJKQWhgxZaioDBIAyWZcGADUWgwQpICZSILUQBDkA6Z0xvB4xaIUSu
mwerEB2UIka3JICkIQkCtpjmXA3hRq1chZLKMuyDA0WJG8Nxlk6gqI6g5k5k3C8lgwcw5mZSQ4WU
vbnXGxxYglg4JMIJgcCA3LvZs0Lz8PuDo+MCckCU0VTFQFUjSFAyURRdsMyMiaIgPvwIaCQ1HTo9
dIJskEPSZkHwRsgH0IBpOMxTCCIACJUOZxhA6gEwlcVkiAQMIinCKgfJzz6A1UVshg+q+ONe4eQT
rU2msOsfpPl1o9IHj47yQkF+XrUPDyGrm8Q/L87kNhMcg84dX0nIuRinNNqGQHlX05G4a3bNYeo+
Sh78yi+TDPpk1qwwsik+yR9eN8ccfUaDJIhgkiiktrYBSdZIpldBbQJICEIdIruYYjSTpYREQcji
SaxCIIIFPvoA2gpIEyCpzDyS8wHCKtJLsB25oEgPrjCGICSINoEOIYsEjOGADCa1sNZWLSGtYoPI
BtpDEIUItSMhmGBG6KJmCSQk0G1LZt4lGnAIpMQ1gxAaJMJgsaWlKBMMOYAPvBsciNiQ+SFyMPoG
luWwh/iN4BNh/ZCWsCGIgjspHd56EwSe33hcPrHYKiJxANWSiBkHsgnl5wDtyRBxO5VUYmKhAhIQ
KZmVpaAgCJewL4CBohIiaFWlSYSGEghoEpSiGWkCcVEMHQ4UosHXBdk1le9iP4fN95a4XvcsXhuQ
4RHUnUnaH+UUbA/7yBSFggu5NOYEfSgcl18saqd0sJphGzFPO6l1J8SQ+fDBO4mYu50nWGAIWzBz
diaTIg0StJEJQAbHgK/mM+boNaShEhkZk71hJTFW3oUVI20xfT6vsPxMMwtQfmhyJ/GE4IBEqh7T
2C4DgJ6kAlKFUrQ0BECUNCAEErSEYiRgEZZipwAKvzgeo5ub632jqTSCUOyMkKBIlh74AuSUxIEE
CftjISRglKGAktSdEI6lIIFWlQCJB+IYAJIpSgMCEgmJCZCgAoFIihKXb6UYhGszAyw1TQUagpwr
JAI02mgGlQOGWZU3g1jqqsSVlE7Y0mWEFIOkrQnVCEcbg4huQaIpWrSJuJjDEZIYTGmNostNmoYq
QNZBGsYwZ0TqyEIlyDQUE4OTjlQYlMlZU5hikUdqrJRQbiINAwGPMlJkI0pFlpS0u406kKpDEjcg
RNM1UhgbMXAhaoNhvMzIJrIyjAigMX7WFGFMhRn8DmNflwTgYtsFoMlJh1EEgQTkh7H5z5z5b5sO
xrtxzG9JY7k3jzCE0e0VbETjhcQNCUJpoZkUP4hkGaBaAKlSqhAKqf8LUOfZB5IAPKQh570E3dzL
rAxzYQKP1hB/KJJvM5NBY8wQRr6zAOZ/gg+VBPmPmIiDZDIJ+ieACxuASOlrlgEiOpPIKAfEYJmJ
/SUTQMBArgyUEQ6qCkKt6xwTE+oKD9JA7xm0EhrYjt/679j/cG4WjB2wD/HKbZDx/PDgdIXhBGhN
jj9ywYR+E+v1rDJPLGlpcidDqogqU4ejiNEJ4vJnBF15tLbTUIweMwtaMB1Yi5MTpZAILK3iLqJC
mDQTGVypxGMmEDBe4dkvtRow6z8Y8Z9CT9CRpZJEJTcigSPAcntHA7HfLZOIh6n5M90W/S+ZIhJI
aSgliZQgkppoWCKJiA2HCQdUe3NaQ3GZH5sHhg1e9fo1hSc4y9XPU6k2/iWw9pmZCbYPbBDnHChL
z+RgYh0Zvg2wcjct3XvpJgJvRt2OVJC7mOJpb2Xfs3R6lE8Dd8eVB6RP41aHkGbeWy/5bHUxeOrA
ikpICRiIxMoDMMsDJwkyQKyUxzMCklMwSMwiMkDEgJochcACEzEUROo3QfSLKURIEERfP4TfrYo+
J8/jm4B6hIqd8XRAg9JB55jBDcAgdZqljr8DbpsXfRG8CdxehJlzFlvAMCAfzkyNKuWyt/Xeo6JL
zvhYqjPgvvivVFRuCcJM6anoWBwl6rO25t0rMr0ONqD4QbxB8UAOYYe8HB5w37tbTLJ8pch923Mw
LMNMFJET40Ce0GyiixA9KB0JKkhSTMEBQMYd64+Iw4wLRmHZj91rvZ4JP1SuxgjjWr9lc99Yl/tZ
s9jaNpoYfOHOZKHyy/S5MikBxu0APg4UyAcp/cACbNxpTWcYyTvSWfQ/liOsg9PkTVbQyNQ5Ixy6
hGmpALmgy4CegiM08D/pwnWLVAQ1aGyGm95cz/lohoaa6sa4AFQ1kHC1BhE8ungmNjwkEx6ZAhBK
jApZ2daENiYihtEogYWL6fOl4k044JRBuknKsGUMeUGyjDy1GA2IDxkrQlIVyMf8JN9ps7XJNBI5
yL22prIaY5LHN0lauIwMGA9EAFNsTCuhMFHVBD3Xpc+IeKBYgUBCRoyh+gD9AH4D2CgfDrkhQ/cL
7n7BLCB6fID98D5CMl8gB8BgAaL3QjdBFDKIFCAfIRsJBllSvYgfmO2JghwHaP1ofYJ+t/rPYR1S
GVRRxmB8c6TkPw3rz6NnJvaCb6BRoR5X8zEYQ5uIlA/WCRQAeZQUkqhDaQ4kB/T+lL+ABTYxBDyG
11dR+dOYNOxKI48QMT9iMJgnGqkSrygYEEtMlMgQkKxQEQMLQEXiFQ83vdM9OAalpoDc8iSESxKE
Sh2t4HIiHuyww3mYGFEJGDmgANweyUGZASlAoUiVdyPMCJiSJpkB1DkiGSprWt7D3QbkRA0SAkgE
gKRLyKdCkKGnrAw2HwEUov+5YRH+WIqUQRuWXVhYv9/mWgAwerY4msUV8qfyjGG3JF/gfwQx5EFL
gO6FhlWLxYHxEaJICgE7fd+38ptO0H60KByR56TUByjw9YWTqE9ZMYZjJIJAgIkK7ELpftuIDsZV
RhiUSMQ/ZHikRMb0Nuw6ES+1RBHAJGhHQUsloAJFEIi0IZ7ywoZmAr3iMx/ocB6bgxDoxKVPAMBC
AsUklFpB7SLQhiEgxKQkMSCQkniOZED0n6qQHwoaaNI/GF0PQiJ+iBElgImCBoOK0L0AdyNcJ5Yf
GQ0/T2OGkKYNqZMmMMRQ4lgUMEkMQR5icQgoow0aAHRIFCUKUCwMUBCwkBLAhNDCJNWk0aB0ETMN
JEU1VK0RLElJElBLVBHaO0CIvNsFTjHzh2QiCfiKKImSPP0KKCCg5QHwMylY6ui7thmI4ZmIhPGX
jnbXv5n4Zq4AeQwDaT7r8zcksDb7qxNKH6TZJeDEAs6BA7O2QZCYBpGBSCJmSQgCWBhSJEghA4HA
GESB1jy+p8jWQogZhxfjdogPWJ7P1ibWXvhsmAp87RGQTJKxMkEqUHy6UpFopYAIZRaAphIKV9B7
AnHCiuIGIA/sQU0mIf0UUFUStAUqywUQtRKi0tDA0EytEMwoBABEDdJksH3ecMhZI0Mo6UqhKCbg
NJFHpgFGVieEjbVMxsEMHVZxjwAxpgYJkbNS46MRlMmYGlNGLhRtGTCAP3kbcRBwknEIYkQLIzyJ
CjiChgDsRHl3O2WqwIAKQHBzMAgAxZchzMQIIyB8WoSkShX2j85+VNHMcQRj4dOOjAwxDEkifuC4
YvQHAGgdLIwEpSVxA4Eg4MqmID4DTioSSg7wSqud/IoFrgS5QyLJ6ogk+uxvBu/5NDyhuEQpEaBQ
mJIAz0D3AAIfjGECSkkDu+MV/qADE2gwMuIUAeJztBEO8mn2D7PvHMF5h4OIGRTAlEoGhgdLbpPU
Jx7ArG4c27Sg6VOGqbujWAZLqHMMHJGDU2BlMfLGW48jY2qyCJCKA0yEAKRCIIZRuqQkSlIUIFFU
VgQTTaQyoNaspzCMMtOnRZJlYGpTRKTEsMsaMyrWK4mKEeTa3gmxTZAGChtTMAIcIPj6j5fnOThl
5qi9v3D5h7YmMXhh/Rxl+H5ZdMPyf1ZXjBzAngz/HSqQwMr0GJyB5CgDNgpAC8BA5MJ5Ufgmolkt
NURIBBHe9iOiDxAUWXfHGtmIGocaCFQ72oMkEoLip4cOX624EmRpFuP/Ah/v+uur8HnXXWv8YM4I
Lg3xJm9qLF514XCOC5pVrt8Yf2CPhRcMNDaQcHX8dRzui0oJxrggkkkk/jIeeZcT9oEvLroR/xGy
4P0RYPIWLjyQPQNEdEUCYD8GoL7iBEkAuF2ELCQVydTtkWQgZ3xgfKUgSCciZvA5EIAeHTNXgoTI
9rILoUDF6hlTDvVmiDPEm09OsgoWF6WQQMyCtIj1Fr3oDASA7GOBt8erA4gR+D+kbKFus+oGVSqQ
4zBFhyR9Ow+dCmpX90mjpwiPVBfyhNQGb1U/daYiFNrRTmb85f9fz2/W/kT9Tyk4EGvIqTAkhT5P
V3x2mabzHIEBkbyJSfa5+HAQ/Uev3/HQyYgA72AxJXh/xlWkPFwQ2jUPUPp9wda3o5VrBnRQAeqm
GahLTxoqrkW9jtCQ6BLEQETjgpqUlaNMuotQ1g8XLjR9jRtmtp6rGUJUx+HRRRFgEfbagNIksCLg
HaD0Dw/d9j2Jec1QXiwafksoODDLvrWjExiQUfN9+Zp8jUZtlA649Q3qSGF1cOtSIYwLfB5yxhY2
ULX+NwSGl5LgE6SSkUiU8mMbDeptzD3vDP0d/VRtbwPSNwDGaeEagNnOt86JvGGQ5aa+Qwl65oUx
XgNbIDb+gs8tL6Q0g17dqtoO54377CnLNvhQPp4yoXloOmHjoT0M2TCvrrj6I52PZ8ze3e5wifLj
QneVZH2Gj4NQTGMX07Qu0QR5BirNsP/H5xUYTA375F0TpnZoLwYqN8M13T9VKNL1rovYggpz5Jeg
d6lAd03FXPRT4521Bs47xHL7ztal8NpWLsz1b1lYQdGl4NPRe3DtwgBc8pl67nuWIXTugl4CnxQf
uuOjABHH7UZITEASQjYQZOQEcu3k4iEbNujgM48y9TbLJ8GiScO9g5JqYYjyycL5OnHs9F8Hw7Xs
hPT9zU8WJCjUwiVen3aX/a0tMXXnZnnx5CzLwFGjBiJ8PV9IOe7nJJ2Y7FkY94PbaAepRzsHaVus
i4uDbO79I7kvx3evB11U0Ro60v0s7POCAcsfcwtcBoCcErbBgNJoaK8GacsmJDLIde7DUJJ5kBPj
vzmMPLsJ4ATNvcyzx+Tw5H+rkT8QpBOUW7hDRiO30me41164wzNQa59aKa0J62Eq0M+3a1W3k1Mt
OJpiGw8sF0tRHTgmBpp+0Pp1s84dn35h0fLkpU0L1VEhnzcQR88o6KvRH6Fh5acduOEMIbscCHDf
E3gF/3JXDs5laXrNe113Rpk3TeBc76UYjPReD5aKPwxLOdZ2DCRYAfpnq4R97MmV8PQ76+XbEiZU
gAiGJ0wRSCFC7e85JgNdKEKFkw5QdgelHZTRtbmifRwaOCd2RXrdeSZ0a1q4meMjMHA0Sp1w2RNE
Iw6mQUiRwpHXFRGYeQmqHBToyc2Z8NHvUuny/XBseEH799B7alQ5HQf2DId/AkRpxgaPdT+XYQWA
nai7v2+KPZFqVUDfqGM58RHRm6RDEel0oijLxaLoT4PGqa5sU77Iu2obnafD55Ezj8BkXZ9izogE
I412xqHSbBYnK4dtysUcGe02NtPJt+nXnlxD49vsgHwesi4jDyh2MmggTR15MgdZOb5N88nRqyGe
+ouCIqom7kJjJvY9EdUE89c/xvY2U0aCjYvT+WLYMwhopEfNhvj3L7HwnC26xwgvaym8/mPfhZvk
jgz3xPACIsB0xJ/Qu2NqEhwmDuO7nxRMeqERLi6RfNt64ooi2/b548HiafOeDfbNb8AwnWVvgIpu
+j61NoVBi+BCaa7s6HjDkOiKhkFDe5gGB8D0PTMXBLC4qxruJID0zP8YD6Ulhgy440qUTAZ8whCw
99CrW/CPWB9L50uWuOk/n8InwoJ3G2mDx5jCOLex2aIjBosC9jOTxei0EUkBsD88fy7eZ0jDQPXX
J3vw9Ac4G8aqoCjNKiuCr9C9BGIVmkMzxCtDkJMhgoFwWryAIndSGo4cENeQ6mwsIIKW5waMzFUG
JozOA2ypjHKArs4hQPwb0hOJe8CYcShIL17AchdNrWpa9n4vU1qiCCRjzFRYNCHqpVWpFjQhgzX2
2yGil+iSphKCtTaupvzpFbxFRF2o4rDawcDJAKA4S1KC3TZUnUHrE0x4lh/dnyJFiQgkI4l1T8dw
z0W8dCxX7JqFxNxYWiKCRjYb2Smk2w42pUYmho6TsLRusMAZhH00Kiwgl9hXFFhDooYCQPsYS3So
KMqggkrzCj+enrjIR+/cD278/Da12fcV/MNAwGDBn36Fz3KYn9hEDVLoEFgiSl+M/Ewf4lU6/2RT
nfhR6vDFkuUSbtL8KRIVGoMByECiwjK5zqXNP7+dmGoG5Gj3pQozirXzPjmMolkUhQCBYYNjuKG5
IfrEvsmOMhcuIC/jFAsbLOfPK5Iwh+scbHm4qAwWPkCAWCfPEfPAv1shxYLbqFlnhSvk3+rV7vsB
zICb2loHoIA+B2IyUzEL0cDpDQ90LpV/C1JawL/XKPT5fYXKGkI1oNB8h4Zjg0t38HG+x9PbIvja
G/LoUCKYv6Io3RdCaLMziUBVDQR7YQIQa/pmskVn80sI68NRiOgMflA0lXaECvqaPPAejkp6XOvh
1tbSGHfx8EjIMDzoqp2DcbmSmFH6IdeO4aSHXOdv8mtAMcEKC4CploDwYYbPd68i7jZJgeev187o
xjDnnnWTFxqmT9GjDefZ5PZePMEWLbKkuy6guQ5jZsNQNIRNmG1jDIc6dvPy+/0JTPu+Pii66q8k
N9GRI9Z487acDC1wB6cgkeoFSmLcHBpQ8trBHZXwQCBMhxJIMCReGB5b8AOMAtubdcR4MDwkkfE8
cbZZPCnkeujofEZnOiJqbV99FcSLfz2vhpNoBnmQ0mtX0n5qofgO08U3A6zo1pxANDGxTU1kqdxw
PwT2nzGwdg8o/3Bl2JmPwB2eEH6DqRzPZyQ+heKabd6nUXJuAwyfFddiNDbnOc47ztq/Hq8pb2G8
5cb0eRMuTXKngsWf7Yv0Rc7geRARejo7TQP5zRasPf8waxsR4nxnpy4KSkwIhR6+od4NB2T7CwGS
y4GulM6Is3uYFkKxoxPOOQJSaA6T5oaA90YIgNJAecGjVIiecC7xpwxxY4uMBoKzgYsB40oEdiWA
fKGJdAe3IUBcBw9FAwEz0ouTqJmGk9ig+/7vleDZEkw2towCpNMwYYcE2/8voB/sqKKCYMhaTMwd
j6B0aDR2KUUno3t2ps1Cdg25qB3ycIGNgxZzu8shYHNiqRUgPJilBohEwiWCYZmyKBgl1wTjwOTt
Maou5mfpuYQ3FkufmPk443+PY1IQ0zdL2OJaxaRSJZdBxu6UmfasGxsaWG6cBWD2KDX1A9+Zt+50
Pp9gGvVHx7vQJAiDYfMvm/zSVVD8AJCAgLMUAwgShFJIqJQU1huQwR64Ka0wDPAuHlj9AySQmVD/
1f+dS/xt5/lKJL/O0BTeH/L/xs3bf+fU/z63NymplOVY1mVMmP9eotRrZc9juEyPPOdj5D7v1JEl
VVURFRFTVVVFFNX5wfxg/revm+v7ln5bfzRRREHt9pYAbeQ+Jp5hNyPCxQOpP8fI8fi545hjHJif
vTP1ZBsxxytohZBsPFSsOIfaLikA/U6N26qXBkkUmJvhoQ8TydD7h3elH0/X1ie8TPpcp6eLQrwq
kFvVLPgQQN0RxuS62h66T1QvFFzjRPZBXNMUq6SVDBNM4DYoBzuRcri5aFuDGCHFHpDnBqkNEa0h
6qnSSRWKUGPbw0TMahEMIH88ElE+aaR1o19kDaa4Jgd2LntvNqG2h94NnTCLWcmJMbTGztKjkzeK
Z3EZ3jd2el6xNronp6EMkpih5JzDFciAkmKTVNOWFOjxvSGQ6k7DSSrU4eKiQmwAjSJb2eDLARJB
dkWA9vHUM5SeNJcQkkacb2IlIWJAi/UifyHu5+bO3v+jn2OGU8+VG42E2wZEUPZIgYho9YJTZoBd
KdwYVC3hYZaRppuQLsSoogvuymBImCwiiUYxMUgZQsHYHkh0IYj3WE8tUHjmsGS/efqzxieWZ9re
t7lPWKfaRqAYkKpGL7XG0dNl1xsy50b526Ia4kyExoIPciXEnDExg+IFEcCqR/wruB3SoYgUG5Pr
OThcJE7DvrixCo/5a5XltT/d8MrXmE92q+H8jgW9tzAhd1wes/qsFtz1CaWH5T5vnTVngdfbTGzI
Mx0llgnjoTMVfBKHEGh5SCFTOYoTZ1h10V4aHLC1u0c26Pz9dPGdcTph4imyEOdjwHKZdrokaUNq
bGVO14CwdRAo5/GBRjC+fF1SPit40vaxXQS8YVS0VDUTMkZHImeUSOi4Ee4/kOI7igfbOP0CRoxU
EoHIAA2aTN2FJtw/REVmoZU2V2QqLEaYggr+immNpQlAGoiecV9/0C50TQonEUAowCIjYNjXMFUZ
xqfI+1r6yS4hnCWZKk0eHMO/YRyWRus3RhwhjirDAan6Y8kjduY58v9PDvhSkM7xhmGNorYxm0Qk
itC2JTa5hI23gH4JM29PbR2TvjNrBAGNVi6YQdiksCl7iA4Ndg+0u/ZBEeHhMotYBOPHrh+/f23k
yic26i8DmAIIdYePWd9w8Y+2HIKQgj8nynY+0DrfKE9YP2/WAfxwrECPsIBD60/X7A77/CvvifdG
L9OMYIYTARErQjFJojQaB2mhAwCQMMX6QURPcXvpeCB8Vp95QMInCXsou43jBIE3fwmKfQhyBwkm
MqJ67ffD8LCmkimonFMXMwMEKWZaogPd984tMLwObl3F00sRDEQXL7uB6Ne9FefI+Qwpj/dp1VtP
jinrRNTLu5/H3BapEjzH3koGh6ZVPK5IE8ePs4TjgMKNJSJkqQODFMPLT5WAdD9rkhRFidBK64DC
W1o1ZrxMQBW9ylOuQc1SDcBMGFjZJ646GG0GJjolMnEiHI2gu6kFGFBxoZBiIHuH2eXiVDQFAzAI
QAIRTT9OYFnArVMB47zBpEiXjZ7AI46Pr/9n4fV/T/Twod2eFCaD3gfmUinrE+w6R6xIB58n0lyl
MXTygoif0H5nsMQOt+cH4hbq4H5Fg8ZPEbbROJA5dvgvIkHyrVAVJUspQxSwHB2xPP5EB85tV7QE
OPGo9JpQ+GDog+7/M9+fR+TQ6SNWX7Z3pwKkdpgl6fiQiBg3/PcXTjQ3Mds0bL+ED6IdoQFFBJJu
AykqWCRoGSmphZcjCDOJ50bKIiiiYJgQvyP3+D85teB2qUlIhUBo89HJMSxSjxGJgyJEiD1UZiAz
dIYm41gJyQTAL6ZAsToUmCiR3iw/NAdgQxRHQ573OHZ+hs807SJ9mrYFW0S2OkhkXcJbIe/v7l9p
q7zyXR4niZI6jF8Fr+6Mf8tmdcbAipJIj/OMWK+bMQ8ltk0xJBRU1BE9HuWBpkY3IGn/Cs9CkxjO
VHfY3dwnufEv1hDzHXKmJoSqUgPixyopCKqoRqmmfCEJgFUzRElQxEzE0IUskMhB68MlGVImSAKA
QHiDGW7ZiUBIyMDyAmCP5RiYhlZk1tKMhyWqSSKSKBAgIwVNFiHymxNK6P7DzWX9flNN0Y2nowlG
2Vxx1kY5paPyfHBqTjESY4FEgeJtMcIGW0WWVFKlGqHY1rRoYygS2BNW4XFyLWFeVt2RdtiODQC2
0g1vQsprDObnGWw4ZoQ9kTmZCCdHxLEDmFG0JptBYKKWBQB0Y1RgwbZEXqVpuLnmHRgzHpmXeL97
w5FyhnL3E2q1WqmjBqR2kOTWCOzLbxvwv+TrjcSopyAcrCjiBtMdKHYfLgXhdXDwO2cFdBPI90xH
IqnbI6zelXhAhOOQ0DhcxOR805yB9Z9BudCCrISCL98TAgDB2+dzhIwUKIV3kh5yNEvogyRBOiIv
3Y/ps94w2vIFTaA25zbUJAD4oJg6FA5MNwOiYIaCQL1fghrcXDEAKZCQH3H1DgaeH5fSkdA4JFhT
SRG78oOHvI8hL9iKIkGFEpAyUTBIVMyezQvZpgG1EORBAobT0B5OyrL1RHrOG8HfdKd1Ab1NxSne
RE2kX74fwkPojoEJ5SK4Ob8NGoPzycwQkl2u3pfou0sIh4AzCyZ8B6VFqwPFRuQIRhkgP5pA/B9X
Ack/S9LgewpYT14x9A+SkPpkJ+ZH9finnv+WgRo+2BYgfYgp0Hl3+PE5+7vT6J2EdhduFSwkIR7Z
D3raym6UPcJB9PaCIfcXQwAgYPikOYiV+b/zbWj1Jz3ZqdIifbe+D94xMFr2LSycLocezO+4CPHt
MMKIyoMXF3/Yeg6aiKIghiSYkmZKi+0H6d4O0ebl73LQFpgP9PMH7AfH+hEiFwxN2QaFu3hxDDt5
6DtfzfEDrbpx2Suv9m39n0j6A9B+tfvUO9Hh4uHN9f34VWH9Jn9EKNy/nvTzz+khtH+PQb3DH3Ey
0nCfXXTDsAwt/o0Q3G3TxgcLf9tkOWmjrBsY7VSRDuLLqZUBDocUxFhVMZIdggOipmlQYFzH9PBO
dw0NNWE4l7QWgYPTJJAba8jxuoiZO0HzBf5fHgvj9MOl38m+61YLRQedCSEY+y3RefHDs6I8VyB7
MxUA63hhUknwQ4dzG3RtEKUP5v0Nf5jgNrU9xiL5V/dvWwCPhUGRsoeoIWiqhJIYqARtFxtqDVbw
KRsZ+LFyb1fbgsBCf5g/7XrQLuWHkyYkMyfx+E4xAaL8D3DRwb3fBChxDl+4YQnGLv0FfDmycR9a
eYsQgTImGdQrIsiWHbkR6bjsLaGkWRGGh0qYkmAEEAMyoEZxxeA+OivOt0xtdrx2wSa47b7aQkjB
s7wrNUoU7xcKKmIjeBvffvyPHJ411bM4RxUMYZ5WayFFzC2tLFy4i74uCje4hO00i/RG2KrEwGQR
+QW0lgfTWixgdIClxHSGXd646in9VTCu8YG1yUIYUSRyhDBmFClzXWQ3qYjjcOQsXGFRLM1VxO+q
smRlGY40pVMtlkTx2UTaImtw65F0wned+eaomtpirwy9wgphIbkxhEFpcZ4TsIlgdRxNpcT1uMEH
BWOCMfcaPZoOXsh3DjGZCPaBPWTKupzqIwZipA6ajCrZcMOt522mjjA5UyBYGhzgh37EWBtLHmZ6
Ou+Fdzsciw8MwGU7aPaLt4RsY9Q6KZoxcIwFDu9HgDBa2+1QVrGqw4WBGB0tOnRJj9J9LlxRPqij
1IctActGd532ocwOqcqozxME7uCKJ1aOiQ7HnWMwhwjvhSjCcQvkNefYvC8d+r5nV79dipAdxoRt
6SpFIwkEghmmFMEw+CJLgWHRTOLtyOr5WeLC3pAUeuXqcXtMBHCOdCRMAOQ4Y4YCIgEaGcj0L6zj
CyB5XA5najiT0LeaBrlYXKY2O0OZnBmi5edYPOixHSrXRnCVSQxE7Ej82mbSAS1mSH0U2QKvrR5I
acDuycinFOS0yzDKvYHg9dJAhh2Wx6OERjDpN2QGAmW0WZPAVhEuGEaQ2jficM0MecJ3ZsOOIbyQ
zmV1fBbIFgDLttgyIuBzuw4BJG7eWtvSbbYGpAoSIG5IEunclUozMVpEGZBG/KWlz57aN88mqLhA
1wzuzwzgXhE61Q4wKww5hzxJt8FbWC8bL3E0MZdEDoOONI1ojIKco5zvzAxmk0GwYNJqcnRGW71d
4qHZo42RAb6kyTjoLXkDAvOHWkuWuQXmLGcoGjfaGDXXbVN50ivK24uLGYi9Nh6V4MFGMaBtkrIA
I6ojZBEgOIDDOiTHZIvbduw+xWniZwHPKwOh9oKLuIabSWxoNxSG24uxvtpMuQlXTTGMyBy9B3Y9
aR7Bo0kY1kgf53pl0mOC57qXph1SLcF2sGkNCTTe4nMXI0YECEEGTgFyDhUNJbQ4gl3UlgYxFoXm
nPoPAVV+bom861jL5J5mnkJNhYl2CIILMuxGRB9lY3Bgaw2S09a4MWg2uAxYgeCx3YmzUjAaUDc3
kQ9J0Z7cbOFmuRw15frZ4dWpv1ULBWSEAjWm/UUHj7eTfV6NbKJsMd9+uabaOV1e77DND8h2NCMR
0cJRevCIIi5D2sPZM++28uyIJ78oBo4Vg778WwbZEXbMxkhSHMJyaeLzYMYm3Um+OjsjmB7742Sa
N6wxlnXXUML0QQ8s9GfKYSZYsCAW7lDpRpCAM60VSEKMGdpbMZOTDszCkCq7Zrs480oxHHBa2xjN
QhvZEXu4xmoQIpBGSBYMwwJJKtMzjUmy+3g2YLa8Oa3W0cPdwhS9g4y4iwwyA5PMxDuBoLprlbO6
mHBpGHLOLxwrrDGzvmVLyXrcRWcgb5KGmcGvand60IgyvdzzBdtbsZyzdp4mGJtp8nmoTYYNszvK
0DBlZtlAu6SzpGFIBAgQkGkh05PAIhthiQbK7W2bIYkipyRulBus5aFBzkKjw1XvvCByHPIEwxlT
GygcIlq+4uSWkpuUDI86WiXfzjtNF2OA3J+kp9E9CWa9uE8VXjRjMfW5Z63Uri06QkZXwQqOMmN0
o20Hh50BnbWNovHwqlTAyfLrbQ0Fhw43q1XSD6wogIsC4Yh7RFtcns9ubJvkFxbt+b3zIzRhoGxd
qsVR4mcbo3t3eSmMl7mZvVARZz1iVTffnfWy/LRL2mALVAcYCgxJHjgd0N5EIIWSvCIGX7dvT2E8
4jPYTqJJhToLig2r3oURqwb2tfZ1r4ZDs/PbFRMXgZ0sIO9j7KnIHjFyMNt8HKg4RTbvcJjONdi5
wM9TbqTCAOEFthJ2Hst8H1bCcsChPF+bdnCG0O36JyxDGDvlQY66ayMUxlvW3HEp9VOREICWmXoB
/k9djuXv54aGbRLJs5Le4eOnR6TrpFyGdOHfLU9V4c3kcBjHiozOMXOOZmrocfszRuGmM9+KZiI2
s8Qr5UJAa4kqO0gSEIyCk71Wlw6uJ7Gtj3xSGTAnXOYnAa5Q+Mg3hvjAMVkWMiZs7jkNQI+fQRrz
IwDR+qoCpvHWt4G4IAA6BCKJOfOynVJ6Z2Zh1UGvXhHJ1hxyPuaM8GiI1QwMQKRssJcUKj4P1tfX
4HHI0MPBJ1yvPLcB331igd4aZ63WIuxQQHKMSYokjoFC1FQNKtHoPRVo44c9uEwwyms34SNom7fB
zWxtNuq+e0H5CK3uh1O86H4MWnmP4C9zGQH7CKHTNoyPyg4Oc65MgjZyu5GKBhbGZptKIw3Jx7fj
rKxIYGyOBWDV9D88yDsu9GNHFO8frPFylx9MDA8I8Og6w3oPUbRP5gfw5DQNeyUfqMj8D4rqBOYS
/SncG5gDFQI+XPxlzrNDGx87zETLoDw964q2H5E6UNaYeKyYiL5jUGfe9q5eQcuuO/X2utFjXwi0
xifEBGNCG+eI95dxcYpmYqp6SgtQLn8xdJQiwFfzfx5gkfbYWNZgJDEFiVooiKWgOMcGJyAhGhGk
gZCgKRoIhoGiCmmYKqioiBpfodA9a7aOjNne+YReynRwjYeXhtdwpQSQtiTAiPFR5YsNpilDvSCY
eza5WEk1HDIJ5BeJU2xC8FoH6oh7CC35A6AGIaSod13DEiDEYdOsU4sjtBQErIQE7OBxTSDB0Qjw
MIOp8iReUZVIIR2Q4vHAJoHnRGahLZy6PBGGik3oiEpIkzzMgnp2YKGyU7ATkqcntXA7yHpD0cgZ
bgcIMIPBpF8p1ADSFUFMHcMKQ4TyTBNOsKqKIx8rCeJMICGA506RHtNNKT5YoOBo7GgcOIDIhZJI
0ud9YcnsXE0eJyDoJM0eckDoQmYaWFRHs8EA0I8NQBDGIWm4NMSK0iiDwNanQUTC8QqR8ANg5HcD
DtZQWHgN+Esdj4FjBnR6ZyQCbSOCXXkIYLyNEkRwZKYryxHJRQ4Ai7hSIDYjkdSOmLGhFB4k4ywN
JHiuQcACXtidSLokTmEKXPQOIKRo7jvYxJBvtQ4jlOJRpNIYDilK0YcgbcU2rGweDlDo0EEDFswm
jMiCw8iDEaRMk8M5I+xLTvsmjAjLTGOxRJRTwLuM74IDaMIoJNSI2UqGhkLqEOCEXJThnYQzZYQF
NMkkxBC00kTQ9rR4AxDguY7Bah8BGd8cAPn8bgdkk7kNMiva6w7Wc6oopKCAi5k1aeCMKwOJ/oYA
3gQkiBkmJZDIS5tF0FvgmehwFEgRREHiMGEgKAgYGgKpoCmJIJZglhaECKCiEkhaaQikKgswAyAk
iEKSCEI/oIUOP1/NpNs0oowy0DuEAn5/mMfdavGYtAavrtT778J0XDs7rG7btI1YNK4EF85pDQxE
HWDgEPAWGTicEGTZOUEdO+s/88F8d6ezfxuNL+zXir+MfWORNJgNRgo9whx5rR2LsCHPgbp2luUy
fnNQREtfRxpgWpgUn3FWP6qT+QzQ/YbB7jaPlLGtDgQhCqqlpCkPK8duB972e57s+B8iRI/7OGhJ
Xr2CId59TdWZAYlmKgZCAcyEeYI44xmEgnp9lDTaNicauiEV1w3AkAb+VEgGiAcsf+JAHqIXCHdq
XD+V/y67AeCSWRCJ8z3J3QHg6r/0DNAHKAdKQBUiUwEBNVAQwELQUEygJAUQvQHqwvfkXEYJlAiS
LRtR+QUQI4q7ipL2A+D4k5OxHgKsjCqsIw97q5X608fHuQg+jP22VfdwgWdR7/znGB2hR8RQNQ8Z
KhQlCpS4ZGNKj7h3F8xfMO4Nwp7QP0m8PAbCcmKKCKgiJZAyygCCgH7hCeUKGmGJ2bN73/E2jjGk
i2sSEUoHGZbxOGdFErkiGDuyYrjBsxwwwoLgJMKoIHbguE6SXDjHKeA3hoQuIHGizeCIaCdxtijU
alDUZbt5jmOCZjhgQyyrVIWscAYYJhEiHOA2htmFqZQY3ORFEkUYWFDGRBwaNaGyEyc3oEM1kZOp
gINRqocmA1OTWsyglEkKHIxgpRiAKCqEqiyDLJDADPhen8ZnBoz6cLGjgjV7MytxRexQ8eG6ZMQx
R8GPdCPIU3mLEEAWMFOFIbSyALDRrMHF0iTgjLN+GHcugl9dHBpi2sOp0xDBahMVDFlQ5Ah4Afj5
gdAd1lkCkCqM47Zhe7PfzJhxxjvx5amGaajZZukZZaOo4HiIGWjImKqQQyNGHBI0cDu1sVaTQQfD
DgzC2mJsjkgS4AILNM3Qqcv/CdZpYVsDTjFMzWOKmbWos1pGoUGw6wVLo0nUF0z5tFYYsZrMgycG
JduWKVGarQ00+URMGilkHtaoBG6CPizti3WO8ys4ddKGmrmhzTA4puVuDjRlZiac1etLgMmGgOEV
FEtrEtITBYsREIiDZe4jeAELncp0lCZICE3R2wiGfrWhiCRKxRxCEgDGYdCAafUPTKBwki+QgaWn
7J8paJPDKGpU/OPuQh9RhcQ9PSopAgIKSolXz0qfAjDMX2JpVPwIhKSnuqEMhoqlTJDWGi0GQGMD
QpEMYNgQaEQhB5T6CwjDCAvpoTZ35A5+XRj4e6oM7FcyLl4WIiQrYc7GjVU3Q61rJdRVBE0sE0xF
NbqxfQ2b46NBpgYlwQ4qUBsTIxV0W09utU/wNLvOgHzDNlGtphkNsRTvUca42u74YPujuFFTWql2
bCxDYs3yUbFXWJjMi0WMQtBTEOXHhwpe+uxs26zEjYtsDsLYaKYwNQb5mocJXtUXsDA0x6REC4TD
lYzhi0goHYZwHRzVw01hFutxDWho2yMGQKaDFaLJoN9utWZUkTwuvIzKAghhV3q69ux2OGl8OKOw
8wgX2IQRDLCQQcBolpCihMsss8WIUQtEEAQOkeM4tpveUjqx5IdFTg5kgTFMwVQVFBVU6MIgWNa4
0P6I7qx7V2Knv3aReUdoVEQd3AyiIlKTt+k0hqmDZRIZGZGUzFk4OFLFLFOktV+hzYRuwpf6ODRm
JhmUvXgTXYkc0hh0luR2agXaBDwontPnsekfMh1nU/Aco9OhI4/enAMHwmhw5gwUyYoiSRoSAiBo
jQY5TRWrj1p0IGELQUXADGoxH6yTejDWRSrHjY0v2R4lKfxMEG2hbhGGQfGFB53AmoQyt5p0WA4b
RJmBschq1YtBQDrBMkKQ3DkK7i6kyCYANJ9hoQwoYZLviYZjkgGzN0Ixo0GlCLSaNdxVfnn5cxAM
kH9iSqv0QIaCET8sKLxCB9kLkKgbYMPpMBB/4pCAO6EEdoSIDxInFkBBAhSA9SZIhuEAWhP9khww
A8QKH6ITmT8UdoAjQFYf+rQfT4/ucPiyKHwzALIDyDGsiDcmoYHEgdHAqZ/qpqqMH2yPzQjkVcqH
3R/G9DRxxIIfpkRMhApFA/cf8haU1KFhX4ghxtmzTHD8Gm/5P9GbW3G+XFZWpTl5aixxlf+Bl/y4
Er5dLxwY3hjGRl/5//d/g1j0Nrnky4nSjgRsHyNZ2ZMUeiGNXNGsJBlzGbdoVKhYDz8ToQAT5FAy
09VTAUp/XAOMz17Sffzb7ESQ30lVWGdUl+nTl1U/6hIaiigkYyHqX8U9p3cft+I/mDnAMIKHkYIN
EVnyU4H3QAftzQCFIZKOQHGQbm0D+DQfYrIuhn+jz7mhU6k5Q7g0xLUzskHxI/sCZgmE4S2OhDGO
M7QRzg4FRAWVQ0MQYQZ/Rpwg9wIOwI5N+BRJJdAjx8D2M2HnEzV5ujIitF4vF2PSXCB1kN1yCZ2y
HQbjLOWjeHT0DSohEp2j7NE6BpSnbSMWCgwhBNDkZltRWJuKFTiVZHoHWZMtCJKSwCNtNMNIaDGl
QkMaT3AyszMrrSYNpoYYhBEBGCZbdYKFZMRE2nqG8mDUa0SlbRGLbQWSpjKozCKtIrjBNtqsjB1U
qJtNmqoNkOSEbggwMigwYLRjrIldG9m6jaJZmDiblxiTHJC0RJAGERgGEFochg0a0VOGOhxxJiyw
pMI1hiawMmUyA0ZiWhEtHJra7nVRqo3JqKVQ3UcWOyMCIIjIcqJo406FNxt3Zxwm9G5TSZrQWJgy
MuE5JSTqc4yxxmYzIrSDmzcJoG0K1pYgmgiDQYLQEWw2YbXesqkiI4xWxzRY27Q2A6rDM1WtFYoM
GgkNIpFZFjlcGEEowY3aRjRWEjYNN1REtFU0BAtArt8KjyOg6yPr/H+3yOFXwh3qKgmO2YBEZZhi
5GEFUOSJRUwZgYQVIEClKo1Fizaj4qB7ztD7DDFTsTp849Y7R5/sA9o0oGgUPTvD+UDiL1mJUvTQ
Seuxa8bIMchAhPt/sKJI1+hLlW/6WgagBIA7h8RkPIntP2B1p07E07Qevd+MF4kjCjQsREhENAES
iB4ZEyUAoVCCRWhQKCJA+eEcldS5BEolJLCD82YCEQAeUq/HVfn+kdpv7olDWGTR+b9/YqGyVj4P
9TjkOucMoUoGJCJAKELi1pvELofBOdfoglnVoV9BCiLIeVR6BghKF4H7D+pY+za0lC8r1DfJ79Ht
L1ju0obDzWmH5qog00DIap/yKRBWv1s7fpMD8b4mZy+jkGPvq4QsVIVXbKh6WmpAOhJ/sGrBwSa3
ITWkXGht6IH/VvAqBgHIQGlURPWWYEpDcrchKcHC4UkUMNg+3lDln8ZyCYesbu9XwH4H0f/r0CYe
/5E19V06RR94nk9Y9qJ0plkPWHZUhgEBQYMjWMaF/pOxnuGdpwFBME4QpDJHwfG4liAEA8tFRDpE
4QoRAn++QHRH9hHfhAiGBKIWEkJCMIARCERwsvV3FJqgXAdw6sfKYPo+oIgjD1EV80gFEhhFOhOy
aRsWQPRtRPTKG07HNqxMGEP04IeoueNjz7lFiEhIVqCWkUSJEiEAiAGSRpGgBglWJpJkWGQGAqFi
GYYkEJCEaoUCkECSBSKjSdODpCFgCkIpCEpS5EQwE848wBs0sykQgyUkcqf7g+T8nptfZKIUiMRQ
jStMMLDBFEVUTREAe+UUPuisAH7IAfarPj8vtInQ+9PxPxHX+fp/qx1aDU1AWNY0sSUEk13ht07K
78YkEgQwAcEHSXWbcrqnr3fiNhxxs1/lmMM/fBRjyCNMNnUX9DDN4G4TD9rVkIZDVibfURtg2c4Y
z913psG9aImx8QnC1ovGZqMMsCODq4yt+JG03gRk2Qq0s2qZQbTJGPs1fEDEuHliUhJEQRzHfRo8
02umpC4P3cmqMc2pau05uVIbkBhzTkGVZNs4ekrDUFBSRLSZpry2xVHhkNjcgnqA+JmTjUSMejxF
5YM6nJvKEGKppBeeUrwJQwBTMCQWuUQCP+YhVi5GCSkkCEg0XTmQMUDJELY3ksYgQ/lvXpLrpmZA
oicn/ve1vn9dPj/QGi2tDqlTaL9j1VEcw7u8MfD4bVmZhWa+E3AcgMqd0ZOMNABnGIBSFC1QrBIJ
/NGiQKG6RU+UR8K8C7hUGEiuqQMEpIgSoZACgUlFZVAmZUhKQCIAJISJG7nl3ODNGQHyhYpYl4+c
cwX8n+OywiahNGIYuo9HLhrchWEkSQEiViBKFCgCZDtC5A0rEIUKRKeQ4QAVcOQ8o9audZysJiL4
ui55C4a6slsjghuHFH7oyMgki/qOnb4q5fnE8h+U27XkUD3HkKi5YijDGYDCSzF1I4w6gT7SZj7s
MRhMzLdJhmEmEZWSTCphEwRQ4ZEQd2NIRQQEAQlwJ/F9v5VOOIEKWTcDlKpKRnhVx3KfaHM7e2Hs
BhJaGQmhGCBlDH6f5EXoA+j8pnsj+aBeB8sTzE6k7C1nKKRnkIA5QWujl40WzZB3Bu+GUXebFO2g
8vZtDySFPzak1wOhnUX/Q0aGj+4aN9df9Achr+wOwT+3eqiEJeT58PGeMwbh6+V0TEJ+g8RWsPG1
6HFYc9GdJ3+MaETdS/dsG5iH6AaTAU+VP6Z6IbPciWeKfATQ5DgeJDzqYvr2/vAwNDPmT1I9fFzP
aD6A9o586+TI6kO17y7QbU2QK5DZxTvB3+oRgnh8cJQD1I/nuEg/ccsOUNp2O98geyE45MxjAJTl
ynqiLSCPyCdAf6mnOOO0zaCKfKoUVrCIA8ewVDrBP+IkComzsgh8gvfTFEqQMDQgfIWCkA5AieGB
gGgnly2B6QFPn6TkEdieBE7PQC+Tadw6cBoXiQlCgckSIxjLjnEBrLFWRwDESnIAcWKHqX5J3IHB
we7Q6It4oUNAi1lTIEEjCUQlMQJTQjSLSsRFhYFE0FIEhRFCEQVMrMFNJVDE0M7tM6FhgWyMzMSR
whTdzKGpA16ex8JzSXvcJu4iwopKUYrDJCTDMoAcIEoDKCQDuaJEPEhiAypPmTj8yh2HQbVQ8ErQ
EQERSFCSLIzCFQEJCEFQwkUTBAQcqcwESN1YA0qfcDhV2xwoA9z/ktFVRFMIUFE0kFMwBStIsQpR
J24TDuEBilKxBBLNNElLVBNQMpAQSRFBSFKSBKQyRLTRREzM1UREESgUqRFMUBNUUwUIUgw0lBVN
SFRSzSKwRDQ0RFMsNURIBRJCwgwEKSdT2uyvWhgDypwKSwvETjzng57d4p4tnMxA+VORHpNn+AG2
W7iHdCPNtV7ICdyYKSIRmVJkliBiYmg2q99rjz9ofmDguBghANR2NygzfUJc5fWjYgnkz9zUe3AW
ZiZARhWBmZy5mhOoBTUnWnjVWhH9x7x+CQe7/r9DCFgBMkGIoEchiIZggQMahKFBcElUMgFcDMcG
KCf8SHBeLlPKUSVBM1SkpAtUFFMiUIVQLDSEMEqSBBHKQQv98AmAwlQHR0uDX6IqAxuEjRBqRlKc
CHDBjTkEZmGJZV8imw0GphhNjUcmBkLVAEUFRCEmIfIp4ISIiCWQgkHANDvH4KgL7APk5Qvo4QDQ
H5OHME/S+DmbiHxLGCoXigwIhBnUoNkH8Z3B/IfPV71YoT5yr3hjZESg0BRazYSlD6LGfwIf559t
uNaxA+8R/dHeU5J8zw0a0evmY9kCDEv/BmQ+T9JoNx0Qe5UCThXkCv18acSLDk5NvwHA1oxkix+Q
HpQ8T7Q8ih/Jv4Ijf+OWr9FpWMaGigmhMKw4dpkmN6DAkkNwcpt+uF6bm+3taHQFawdpHGVMG1Bt
8oIVuXzC0dMTKDwJRMQ+RAhIihAIlBmUggiICR36yEJ2PKifFdfuDFA9KFnnN0U6TAURMOA8oOak
T5tGGogkqMxXGHKzEbMKTIcDGSUzCHAgiSYaCYYlgCUpYjJIJiMIWhYgCGByAMTH8J2XbIEm2TIG
5S0VAsRd5w8dJ8eu5bYGSZQP98qa38HGGxRUP9wQiKdD7BP5l6IWZhQgqCJSiJAIGYghCF+CS7Ul
0EME/kC932uA7EOyQNZk+8MXIm5AT9CT7CmCjUTYNRQTFPxEDgQkVEVEBGocq6NGPkj56lTiJA+J
UlvuQQC7ME5ELoeJsF3Xs1IsiyP2g4jgQZhid92geeVOjbyP4x+WiUSloiRImamDt8wD19Ph/aPn
31hgxBTiVBWLZkuLGRu/4qGJlkTiCDgNoiiriTo4iDMEwP7oAyZhEhSl1GLEEo0n5IcCGTklzjET
zQbkU98gcn0Rm5GIVYigWywXcChpkVyBR9Z9WAdzcKYI4pjDFQZkmDk1TJ2DvLIzOwE0XUIHvUDo
BPCx6Y8cL+bQE16psxSbrWS1EEpNYB++XBNyhzSMgcwaToKmJKCurk73Sn1vhT4h+kr6z5TYemBw
AT8Twrb6hvzHxFwH3UKZIfn0Tl8Z41NQeEDVMTl9oR8x6gpq9BWNYBdrbJmI4jjgYgiV+gkJ5KPR
7aKlzb8gvyjyDsFED8APA+NOTAnoOGmgeeASKfpOLQDhmj6RdQ7eodo4Opv3nKPqHqedMzzh5eUD
IA8tbRN497yA7hkEEA0OtoUXxxdobbs+IM7RJ1IftMQ8xEjMoX9eOEMBM0BFKR8cGTAhZ9UZm/DT
sShaiD/peFwZVSf4f9/jZgbTP94ZBsWDIQEgc0ev+L7dcdtGD9KwHZak4O7hyHJ9gWg7weLiTtKk
SGBGEKNID6/JgjtkiqoiKpgUt17c0MTmGTEyh+4hawJQLslAwH8+IVqh0j6eS4GIN69iqNOkQ6Eg
q0f/UNWyIbyEY7IN+7mNYmo/CWTLQqbW2LEwrUhoouQan/xlySreG/hf9G0zZTxExhmPfdXCqpLy
972CqoLyDwIPKHQoI73sFVZ76D1hyeg+AfOH1/DLGLpEPJGgpiNJ9iSRQERjAdyFKkMg0xtSRkCZ
TX1cGXCYUaM2My6mwYcJiSUoUiwn0h8fd6vgEqrWhRX0S5e5JkuTmNaQSLMwNRoDWYSDowsQshl7
b0yTG0IzEeQZ5fDEPggZZCy5hRYazWLxwYOA7UFOHQwuAQsMgfKYJ/lCtUJSpQtJIkI0iMlEUixA
QhMjLMULSDgEuQjQxI0onIbM5KOSjI1hpZkDrRiERs2mYgmow7If9Efe2fsREmluUPI7FygzMISF
TJ/0Jgo0uQQHOIBYzDEtCtY0ZuHUKU/ccwPOH2J9H2J/OGsuIcTQ3D9qtbm+9UbGAckZ7KDGWD9F
Bq4jgtZxoZ0EawaEoQ+TGOf8QxjN9pP6nbJILA/qhWxMXJ59favyD0HjYi9IEsMwpETDEJCRCVoF
6E6VOoMw8b5BRA+pdQn20Howh0Cn19UHaXJchcMMBMkWMxfw/b0hoXYkBhARlQMVA4wC7DP2niNt
j1DvPBx9R0gQ6CJ5TaB+CNvpU7jkUMj8RFpU/AXk5iychHAcyCGwfNyvWP8T89RMVAQREkSBBi+r
9KHE4eQ3cnOC1y5c2zoz8QcXmOUlBl8njNk6Nmb1+o0eej4a6VFIIFKUJJVpQWOoMlmKIoASJA2R
jUMBIE5GG4UcS3hlCrEQIRVTIRCU7wNRTS6aFJifq1gfijcalaTAkTkjMM0RyCZvTr4+etnH8n1b
PWqasfgYT6k1GL0BcC9dO+bI8yQxYWIHfkLy2x7tIYwqB8cHYfp6TUPa9x9D5SfJZ9/txc00Xp2n
tLEDoB8xtNtzynOYoKc3vDyg6+x57upDJH6V0949L8AevvDXMx6wxCxxpAQkcAxBIJcKGsFCCTDI
aUgDEP6/f+jYm1DaQpQFMUGjmQcvRlPttnPzQlrYXKq1WyPOp79u3YJfkvF4jLP8OGkih5B9QPQj
7yepJO15/PhvgcZR/skQ5DRm38mazEfRAXUo/qAIV87Y9OFWYRTc8ycg2HBF3QRkF+I+Xye4KOsw
T5v4j9D57w6B/b0IWTu/X5HxMiMk8AuiUWEKXwUzzp7ju8fzjzOJ2p716PUpt+R5t572fuhTxMAl
A/mkeeurHJGoNkPmqrFf412Hqv1YhgCfKIQQvGQAZBBkBH/XAqd2U90SveVZhYulrP0oWQOkHX1e
38jxhwcnbzRC9bNrAwpAtYFl3Lbt/3v2/b/DeneTsEmQ4R7owIOYDyCV1KB88qf0Ck+ZsjFTcg/a
kDN4BMpSLyHzBR2XoemvjZo6ByMoHiH5U+QcCw+txMffk4/Fv2r7Shy/ANm3p8VcemsAISAR/XVR
kENnZXsDrVu24nzwHTK6jbh3zWkiL/fDnnsR8s/LffK7GCY34OJhIniJgL/nGwa0kkwYnukoj5ZA
6+xm+PAFvg0XdJTHlOmh1z44VVTK94JAuMg4lvoKD5+cYS1EVRARe9HgfCSHD9IJCAd6RHXA5oSK
VFDkPy9J+Qht0t8n0H6HM8Op+fygUe4NZp9gFCAHNPrip9h7mk/dDhPkOUKNsf6V7EL7wPbhXhbH
XOa4fzwYQCEE7oBUHxnOUGUbQO2Deq6QwrqZ3ktAf5/590mpueOYpG2QcPw5+D1w/LPtkOX1yINR
2CGYTMqXp85+csjaKyPypELwSk0p9uWKWXj6h7R6S6P2oIfuDITxHkHwt1P2XDH8j1ov1hHu19A7
EpzAiyO8IuE6UArjyyZOGAper2O2EHxUJq+Yw8SSjOpJlVX+WwbR1hrUqEKX8T0Cb4gMICo/uCH3
ieTwGj5TdRyl6Q8JEh3lGvYa/AD+kTwCcP3HwQ/D4DqP0/qTW90+Afae1fz/RzAcI/d9Z9P17SoK
MwGuq0lEkwCgrBT8YLUtCHq7CD5fD4MspWu5YuQzGf5qRsfXF1eNMLhHRRDCN0HYSUQod3gVLCym
k6yEKdtEuo4whriYfN83LrEyQJpqKSnZGiid7wiANyB8mzZoKeDjRpisDHCgomtjg0xjYKDUSgSD
SYWCYWUtiIO5ZmWkaJWQGW2oB2DKNkRf8zMyN/3kuTFUzsBGIcKaKGsUrOMIYm8y7KdjgaYU5o/g
g3yNjDpJo8CGjcC8hA1hKMEwBIheX1Ut0MCr9P78jwn77Sjf4a7hMFt9CFH5zHlDgk4fR7L9gQL3
xw4YNXwsevAzt4wi1nimSWzTATt+9LoWqxVov0POOPq3YH4brRdVTQSzEREz3LDwHmpklh5AzNIN
qnC2jyOtE9RIYMRQZve6vwS+ofedh9IfB7HzW+laDzKB7F2Ce48RX0HaeOB6ke/vNDdYfKYvIte/
wD0i/uaPyo8JfshhCx2Wr1XhaCEj8zI7Yg/XxFToT4v04CfSGyCp37woc4DIEi4jBcPd9B57eQMj
Jd5HNA/VibsipJguWMciipBJ34ecy3mAJ3B6fmsab95v6z8p4dyAcj6QXPS+/h/JNEgULVIhMxCr
UPmb0h8Py+o97iw2dHizNb0V6RSkQ6oAxhR4cTEgKeuc+vNSHB2w8r5BvsE5+4Mx4YerpT6iJ8DM
eHiBy2PETiWE6YSmJoInrTsHp4vAPaHlMH5jkF2vJ5enl7NhQYGPOPwD4NjeW8mnr7g+8ftz94ue
C+phCff9/22THCpHSFSEUnhBsVDT2AefCHyvUvA8IHQDB1xzhxnIcqbEdpAEkjSjBIeOMIkkaFqY
Smhde58mXA2e3s3LBxvewZMwgR+E+Q+ai95gJrCQIp6jx+Qe0PUIHu8qG5x+RQPUpgHV2nuDycPq
28A4BBHs35SGIQD4ZVDUipQYSlCpoJU+6kJskUJhUKKESgCZUZSRoFmaQpAlg9JtUDmTUj0kmB0R
DKJBhIO5Ez+pE3J8E37/j7uwdAMN/y/Wt0AuGaBFNPlX4GBv+XTKE9JBOy38Jf9WlxJcwlBSqwUI
JINCkTJM1S8aUBs1hK/LxqtHLP5R1n7/7x4yLma6f8uIW8AahhYhGlAo8EDBsFW8U+qJ+Q+dB6Vn
q4/gRYHq0Bb/Gm/o0BwSR5eiwtjNVl1AsD1gfeV784jovGfGpsklHGlfDFjaynWQ8La1vvmufGud
ZMFGrFj1rrIRiwGl2AGbGNIyGTCHHJAoFJksRmi4uzQe1bUEyxQ0WHyXCvneHIt9quHnDfPLLXgn
0DNeTRSmpv76eFvFzNnzZrwkzgiPJ242GMxmatWczTwZdnV1DejJvyXYm0pDGYx74Kis4Si8Ad2C
sh94J2RYsLGRTs4yRAGkBvGWEwuAhLphGjN2GsiZIKo/9W3FW0gdFmJA65NxKtCIREGw4FwD42dm
BcgEW6M4E1NGxo0k9vurxwhbJBG9jI1shSTu1FtIwZjgS0DDs/xVdWdAEc7gYIkMPXg0Gd3H2Afp
KIOLbHGjWTHlJ3dceEzFHlmFV82duuxQ6saxIu2s8tWRvA1ltsC9KemFho82GjbGvRcEEeaszTBF
kwGHw7ndXnfGDvQeIIgwxkaTYxgtDEjUkHGyBGqmyqjZ8N5DIzDLodZrwTYw42QIt5KJtNwgY0dz
C4PTNMbeY8tbFFkrMRjqRMurgP130bWeIuDDniU5WswWuBm6dkHP9rNv7TpEGL+HwOe78/2z165b
PXcTQxaU+yUXnNMWEkNl47bo1bHIwydt46rcHxjHvr2MjnCSTPYQ1iXzqhIOvH6im+NN0aQSe3BJ
aqcU5YSPlPiux+u8mmZRXgcmPAaaWQTGI6aRbEQTBiGANKhEP6FWGEyX9Wbf8X627f3uMxT+IgpU
xs2fUX2Jefr+ahZapLT+GoD/gEA3tvahTTApcKJH7DcutUudv3oPXzF9/8DwHXft3oYzLlR5LcxL
TEUwyiaGNYRBaC0Ecw19Qnkzwzzp8KsvyH18gcDp2Kc31j7BTxvnDwAfIlyLxHW5juOR8Y7fo8FH
hUDlclfTqs8o8uHOgYdPj++/+/Hs4XMZRpx34AlnzEFeuPnC+oRNuRYaSIGbgGOYJ7Ew1jdcVOoX
jkCXTnN3FhyXQOCcpj3A2c/Egg7kF0dnbPB0bdwBXYDZGyJVNGtCHY0AQ400xRByHzee7ytplNMi
lxdHQAuwhR8fGFwdUAxHPJJczRCk7w15LrIyXwyTWroFY20QuYC/fr+T5DhaBmbMnWJZskd2osbT
a4kmg6a9ZYdxxNEOsV9Q5hjM8yludvpKOAq+bcIltY8LAb1ZxyXuPOHN4Rybf9onsX8zfn9x2yWk
qUzwzS5lqc1Gefbqy8n0XOpzdP3+BwOoeIIZ97zHv9J8AHjOhgdocqHybO/Z5cSR41dNx4A5VPCO
W8D5QerWgL7UJ6zag/AsyCunE3cfAIf1kAkkZAIpBLDkj5jpqh6DoADZldeTz9u/7ElpImKCkloq
BIiICaqaSFhKKlCYSCChiaiCCkpqWWJQWIAqJaYYIYKUpAiKYmmgoaiChaaSKCgggiqWlgkmCBYG
CIIAgkoChiWKComkYCYSGAJKCoWYkAhIsgkhs4XZPMWPKGcF6RUMTrNq4BFHsQ5EhAUzMhnKnh91
6juJtD9wgR+bsA9yQSqQpSSHach1eoKeQOU9QH2n51PcBt4HYGwnnpQ049A7R8HYay8BnKDsA9B1
hwQ60Tfr7J8SxX1RKdFPFSyk3nWHR4SQODDzyWo5DoFckNRyAcTIMDlHkSPIHZzHk8hv7ef6gOcT
xFy5z9wGspDsDMcuh8qc5wOcOgw6p6x05zWhkvSOfqfecxTxFIom93K9lcp2naGKoj2dHNJJnJVJ
RqqsEBA7kYek2rzHaHWHacik5tPcE4Ae52HnDlDhrfZ2Ynj8AeHwj5uo9LoFI9TzeEO7emR05oRd
e5SHYoeQNG5faHEObJH0HFTE1omwDsC9DzpmBx8i8dA6Q8Zx7zBy8KgcV7TuIk4aDbpOVTp7/jH6
qz2RmsMhBAhBaBGlRKVRNCDhAQSIUqoewUA8pCgbRBNkDSn8X1CKbf/P5EEw+0Snd/kaz8Afs/lP
/1/2xP+kB+c/aJRpypy8N10vc42TGAfpgn6z/7QhERY+i/ykUP2Qgwkq0CG6AyEC/nwDJcqFcJpU
MJSld/2RiH++Yf7HOmH/7oBH/4MRDFPq/rwF3bUB/7w/w1QGgvECRP5fM/+/68PH/p5O/x9uPn8F
FVSIp/sI14aZQQqgBpOdMRzA8WIAHM0Y6GDheTl3Rp3m5ckkIR5orskcmMMZdSPXNKYbNU/jutsj
bxao5LG2OFcpFbWFZxkbo3lcdgyZC5I3Zjbo3El4fTcAvGNqQUPp/RP2PL/RR82agpszpBDvSPEA
v9UuQLywrHMjgq+eFNKJvNmgTsJII4I0p7iRdIAYi8XWfAofg2gHV8Idfw94fCJJyh//3IgFQ4ET
ka5KuH/yfx7f7lPq7D9U+0mHef/f/L/uBWjR/ziy1W/xN32fjrKnL/Dk3en0/2ccwwgfoqTKwFQZ
BzgL/brvZFBFR+n+5gN5un5p0cAf+W1barRyFATsUG9wVSMVMSInXzfv/1hx78XVNcNrhTxyt9Zs
5eX5zbq//f9fr8/5XSRL/+RXm+74+r1z59X90/f4KwkOs/9ZWa/X/me20PB/y4/XkdPcfJ4vsHGJ
K8m35J/87jkNPSWE9vHLQMv7vSf4288XV8x8h6i+B+mrEderW3h6OgUKqAP+J8rI4ER2CokJCrBp
ST250tM9idHN4iqgUFeEt0mGBvD/Y//+YoKyTKazrYRrkAH2zf8A///v/////////////////sbN
fPA8DbOxlQUCKRa2nrXsb2OmDncPuHuYPYZr7tewB9Hz2A2yb3PXuz0a7sHuJPnHolSgDoEhfbl9
933PMew3r7vr02m9zAeABeiq6bZtjgAAACgAAAQzvbXM2SkvbCVQlUXe513cOdUCWtbXdcdHZgjd
zugAABUeDnd773vjlpkRNADQUDSbOO92QS9AFPbB0pty+++X2fWigHtt7dA00ApIASD6yB4evjK1
X2btjd3OjrRU1bo4bJDbLastrdFuO33ejwvbIa24c9b3uOcylVda7XR2cGhbA7sw3S4r2a7L12du
Zr0ejp7u65tIzVLblzOkh7cqXZ6rqthpbElayc2Xa7uNt7232yR7ffb24d7u3rutTbeS63VxuJ2L
dPu4Lqvu+95cG3wAA+93aoq9MSg74AAHwAAb7gSA3gESQh1q7F9wfRmDH19NU+9j3m+97xXurT3c
e7ODvvdgAALhX119vNOduXcH13Z0POwUdfPt82oe3yAKRXH0dxALX2tczFzLMsum3c6WppwwasZr
Y7nXbZoGkitmoUUqUnffWX3bc69feTmoaajad3Vr3Yrq7u+Ugr66vY7tfcdcVLr3akPD4oTu+6R2
MXe+gfXyg2xoAAA7mbxuDup7mzsXo87xJF0K9dy843NPq893qg9enXoO5gG20Hs7g6u93th68vIC
+fH3gCgJUqW9Q7zk+UEd9w+gG9z3uZzK+ZK+5uhQts13Xj5vPUTa+zO93vn3V8i7M62vdwAB7vnv
vb18bu6z57718Pt24vfe+7Hyg+vr6+n1D7Xfd99r7dPR1nnveAPXvTUA989DOoBVBJRc9Fbe73wN
z7gBnd2+544O3vudelQ1uAC9999ePrWr1k3275aa21juPXFTZzsHdb0uvvfd33d4dvt51j0Xu1cF
Lu7z27uD3u+z6D73kvd5IKUqpA90VVzz4D6AG2zl8N3znHwXt5Diq53PewLz26kruzcatvdhJd7l
A0HV3W6VLs09u572HooRFSSYcnPvgAADtzD7z57iSnIDSzZKGgNe5x1SaAF7dFXbQWw0tugL2PIU
ASKpzku++B9AAOfPm73rtPXL3tdI1d1uoGRirduSrnZyl3cDnLBN3A47uB32AMQCUi+9S3vgAAPd
PO+9ArQegd9jVesKtAEmiNZEKpbaBtiXrRQAEQL7kt4AAD2e+t5HpK32OR0GLQG2y9mcshbNCgDQ
GlBJSgKIkj3oc8AAB2T7jvgGgNLW+mHYBQarYwtgNsaVrIVrQSiKAElDj6LffAABn3jnvPRX2b0D
RRVC2DK20ottULNlRUlFC20KKJEUlAu+i231uYM3V1kdHUbOE25s7awfQ9Ce+uquvvHdIAAroAAA
AbYCV6ODoCgMi33LsKdQG9uEVSp1k1bAebrtbaNPbhV2kFsMKq61LpqrNiLZFppAjVKJJDRqbVba
toKjWXu5zZoMzTCa2yStN7zu8tksqdsdJbZcxp3j77zx8zW0MWshD7juXPgFAUVQoKJAe87iU7gP
O8s5PXemTAb1XswmLW1agJWlZbBqtlttsjLNkm2hSmrW1ttga15NvAEQCBKAUAbu5MjSIAGsMPPG
ZmLY0tseWbxbNdmKDWQUKAULd53mDPe6y7yKtDvHjl3e7xbopE9srbWsaAwwtskvYAA89g+g54kJ
FUCpAFKCrep9PPPPXpvPJVDPOd25i8t3k50L1bGNoPZzddfZ5cVvLuW92dM7drObbfHnke9FtcEV
c9xvvfR3X3iqUlEBAAQSAkULeK9qpZlSrvHtLC6b3tt6wN33fNcVrV6fIEnR33tVtpW2tbWsbWq2
Ami0j6UVWWjpdsNVq2vdfPJzXhJAKAxYRaxQzMDzbeJAhRKESgoUO93Lz25IUFHu5x3UqpPZmsgp
g02KFagDBBZUUYfTDioYaAbY1tTQMrTAylRWqyhdoJE3NrYNsLagltdvTwU9YVNWNtmtGmzaFfcD
RIOfbqrpttKLApprTGstWqWrVlSASs2KS0AstrQDRjLM1YNhqmyNmTVFFRJmgAA9sCu1WLZKo2yA
K2VoS1Ua1ZmwCFbYyw1aRQrBBoKtkNm22xrZtUpgIQzWqwtY1NZs673scZlBQbYUlo1WqzYedlSk
nAAAbYCzTTJJtqrTULJolpVrKYI0y2sUVtW1tikKrZWLd6933OB6Acvty+j333u925JMDu66zEAY
mQTaazaa0a0popABjWwpve87N7Z9S9ru97r7746UNvu77rmdU3nd1Ns2wG20zGTYGg7blTJbTYK1
kAGO7gAcDZjJqSk7ADdmtJKrJrCjYqga2yA2WWpJqAAAtmbVVgUyJmCTI1apkgZtja1bL3al2ppt
MiSUX3vfPY1r5aaVSkyEqiVm0pVCFLZydK+ihoEAAgggJkAk0anomEaTNBNTTyk2gnpMNRppoAA0
DTagNABAREiSaaJgg00in4qeiaGjRoAANAAAAAABoGmICUkEEg0JqbSmaeo1Gmg02po2k09R+qAA
2oAA0AAAACTSRCEIAgJhGQJiZMhNMJqbE00qfoao9imaGSJ+o8lPSe1DypnqjaQRJCETAgAITEYA
QCnhBoIGiYamEZNTyZJR+SntNUeU9RpvUgiSIBAmgTE0NDQTRT0wmp+pJvQnqaKe1Sn+aqepGjT9
KNtU0aeppkGj0IA8fJ89IAC/RQv0IkT6F/2s2/gMf7WQ/56CP/TXWU/CAi6hIgKKDyRFwP3/+f0O
RVUwaWMYi1tqFqWlVIu3Mo2tsf6KQ/iwp/LTt41N6sFRX0awOUK+x83FO6WR/noWcpa1EXzlCpFF
LZSDEUZ3enB26woqasmvFk1/QilQUU4pRVVXaUGMNNebRHTVFRezTg/43EVWH/Dt4mjNHGBVOSgG
M83tfGr1wMpzDlfwszP3uryfsZ0lvynXLqXoO1yPLSh1mhxdZT6j1itcrOrNWYqRqVeEp1qFKcx1
RnRjiVOdO7mHcdbK2sFvK0VeycFOulTm1bGkSzucOVm6kF52bYmVat73Wjb5borMFqEb6uGVtqhT
t87nblTu3b3KKWir3g1qkrVIpZpxGbqdQ2sn/LAgQA47f/5j4Ts6Of/40enKqmK/G71wL9Oy0yKM
yihvlRSv+BK//Vh/yeXn70zXF7cpy99cppD7bYet/q3q9bo//poaY+2/d6dMA5RRf94gfqf7f1QW
fZjTxjj68+pFtYTRhQjpH0Px8qePHXfpqfglrAaLVeP73vJa7Ub/GiOYzCGUzJxiC/NFDjBVSPIc
rjLV9E+/zzJvLT1Yc6j7rfLtzOt0QEeUqXXWuvDvPh0c50qi7SiIzKWB9lrPf6ZP/yzzZDlju3o5
rnph/56D3PlrrDgTOaqttk8/prBAxIGSh6EJekMZ8YhtBAj+Hx/pf1c+/mYH7NR9ZZ+lJFGi/osh
kc2wdxYYpInC0igmXrK+PXmJt03qnxT9LMddf5da/+ng484Him4TX5+rsuQLlSfvTfyv55/k8OrN
KCsP/n8gLIt0OVSmqcZoN6PR3xdg+LKyCgs7Wka/5HEYexl9Xr8b44nCCzVnuvg0BPPy4246K2XW
tBpAHjxzo2yeOLAHXlvSupfj2umSHHjjICxVkHbQcKF1ahUm3EFkHtvA8JpBYHCVgnHbzznZvCnN
x6bnMVKH0lA81x4yYCUNJ40EdIw0aAJgy0HxrA+zt3412enMSyfDy1vROyLwzw+Q7tHW8771igqh
ywzv6rgbo82rMv0Znvd4hQtDxfLjeAoMFnl3oHkyGsayDAWCwMbF6pzmkzjeOXhploI1PK0F4t0X
79cZutralueXGna1J2S5am2VgEqQPjmjAqEJl4yUEif/DLv13l0eNYVgSyg3o+3893RpBixNtfVI
gkmjCr936UPIUv8TwxvIoLB/96T/kr35kVq/epn714whpUlFFeISyk5H5VNEA98b+cPkiSWeI9Jl
v4NPelNML451rm7yNpPW5GO9Zmu9Migyh0yCfbmCZWOcYf6dbREkkg6ggYkYUxtoSKQHjUlDwYTz
/N/vJ99LSNyAtchwgRoanztUT+++bgkFk55tcfwOO007Lfc/PpsP+TzzeRVnCKFRctXSmWx892s5
4+HE80iw439PAcxPx3j3DVEdCj/dfLPK0N/r/R/TnbrJg/Y9SkUvtP8zXKxk6lMgkEkGNRA/KSf/
zL5wQMEZUMilAwl9oKCoPRI0QDxcgY0LInEsHNHAiEP6lL1qKlskn9zcqMpI6r7t0OmcIdn2/t9M
/yD3eRlenDy7/V1uB70qTUUedfFJmPQ6AyMxDzQKfYx61g5iHUxc/+6gctFcbamMMK5kWYnv1Zp+
FoXVPL2FP+KcPXNlTb1FTSeyKLq8YXZq3dqH0XJn5GcaOfl0FU0GzX4qsY+IM9lI7MmZsZYMQYUy
f4ygyO+99jrV4tHKcsD1tHWqPalTA1bjQ8+aFzn0XEnuOTIhuZFMJ3WjIDKZhHHFbn+9gnkbzunZ
zf58nuZ5/2U2xQ8mnqaDnbD6NN53Z3YfbOEziZ4rLKmpiGq1YtnZvDOByF89vvx/9efj8vu7v/x9
32/pP9/y/Ukf6U/3O/78Od+7H7nf7vlOJ4QYG21Zt/H+rL/91j/0PjKk3QTjf+qkf90nSH/hA+n+
79XVNS/3dk8DweVTYy/Puhc/18qSnA9H0P1RImNR0vSYNl8zQxoS8D7L54ZnlMwiIamir6MwxMzV
/Bda3blXFZWLt1lNXLgYmnDTLEJNwmjSBmZlUhRowEpSkzNQCh9v3/p336Rp1inP9139elPR4rx8
GZ0dtgO3TmGfDvD2fJy+fj+6P7vXPPV05dPR3xn6Z6yn8PeCLuMfFuSJx9zAFjBmBU4+XxWvhB12
49kf049ff1r19kIz58kU58oPj6I84H5ncy9jIsfFOD6m121qhzQ8JnAxC8OMqPGZTpm2cInj20dP
bXVJPiamPE5mPQ29KLE4mNH4H6qkR6ei+b6fH3dmMffjMj9jdfp409+nK9t7Z+NbUM5bsb1nsnK+
x09vqfNgIeMk9FOToPyQj/H+GOSzZwSe45tG5oveW9GKS9mcd3sXTrGu7q7DvXiCGjh22ATdDGW+
Eis6WtFRqGWYZADMSNXT3Axxd9Q254xWEoSxtIRKHUc7JItJwQU09cKUlFAwgU0MaIyeTBwq5U1V
ZJeSXm3InV/s/6A0/6ZKqxC1atLVlpzSxj1SB470xJpk7MJT6kh5ZIUORhRBF4SrAVWfmmv4OIuu
Ae+CHthxgAY9dJeSYiloSWDHUwtnEKkYHfA+4eB63d9fl964BOOltU7GA6ma2GKMyew+gleRA1IX
W7gHHQyz9hWtQcnscFM1/QEuA7Z4X4tHV+0JUMQA/BIhbCNP0buH9MFiLRGIS2HhKDCL8L+8PCEV
JvkYcYiLeq8ymr5BRv4vG1fL56xWWkFoG/sKuUcb5SYY8Ne9PT4L/N/DlGzRQUUR1gKStVmX7C4q
ZmYaZKxQ8rYfiTWSocfRo+XWtlF0FquMMGHLSq2KsvHfNmqg7tkqKqimH/As+RzZxhVanfo3+Pg3
kFPIM/F7uPv48yuc9TaDvrOmY+z1C7wH7fTNCWB38q8b+Ky5liwQwQBtoCjAu/fadBDUWFDDjIwS
8em3bIFOoBgzf46hAOIPd4ETAQg94N/lTzRqAeYakFm/1EDy8IAwDu91bRDzMiANpB0WFYR3YV6+
+x4/j+Fh+T6L8FQt2cb3Pn5uXeTlOPaTqGUtFp/CzMtfzUuVGprMMRBfnyyOS+7JtT7Pq48meHj7
PVo0aYKCCPftQwYojBUUYopFeRWv2X7ECbZrzaKIqnA1kGBqyh3QrIxhIxvDcYvxOmi16hu2/fur
bnnqjDHHnD9Pk9l3H9PPyWWioe6/8++Rs0GNFTUIhDBqkuioso8rBU7nAwvatZNV4z5uOQ8LJvAP
v+hZ/GkQ/p1gxAxBHVm4dLrx/9fQRKZ5GyDZKEsjHRUD79w+vMoIiBgZaqxgKY8l9B5hBQ3HHiJI
GLwcGMloYBOaGEnBDM7PV48p/63DTrg+j45tmt/X8LnV3h6bmYCoiPM//PbM0xX19GlWZ01PbSe0
8a6HR4OE9naT97ZxY0tZ0ZI3JkSoXIRnrgXwUJwYuOjWqdmB23yix9mzcPfvpBYezXP59eTjzj3z
SGj/aoDV1IBxljc/EJjZ/TCIml/ZiY9Nx1xEjfh9SIObcxIyA0X6VoMF5BU2fBuonEKzligewDnA
63s9jwylmb/P/wupz9+YdaPHl43MBLjT3G/I57uLJiUJSUpveXIMTMR+nyswMxGUrfF1TAvELFrR
Xfe0fuflBRBEn+yfByUq/ad+U1aBDuJggk25+3fb2U5W8ccu13Sh5+qyeJy+f76a4OaTpJwnP0Ss
QiqT6ohnlQo1koIPqcyBDnLzaTChYWKJFrJB3YcMMgw9Em05hukvocYGWdbbtTb00Jn4+L1+D7ee
V+D6PFKX6KfBh6Guc+LMdOnn1duOE+xfa1mc5PQopev72j1BrXUDvVzdLz4xyHZm3SNtLbZ78MHz
keVZ1xuTVzWIKCJqalxuH2YMpQ0b7cFMN4urmxnvuj8W4bQeRR8I4X5rTsU9zkxWvV47c57ODR52
a4p0M2pugYwmJXwP8JjtfoiZQsXNbd0xiYcfOxaOXduMn1O2bZryaaNdZdPrzhdlJ7XhJ9L7Y+97
d+rJn91Keb2Y+ztgfQnEYHuVId2bmZPldBtRe1A7cm/TRNGvvbk30aJrXS7pUK6Z2jRDjlYLBu21
0PfCP6OGexDbn3o5/P0X9ONmgfwe/g580o8UOMtHfS+SEscfDq2e/rlG8gUBqtNNkaDqFZmHcwHw
TkbAhlTjIptAIhn4cq9gS1JQ5hDcYd2ayrJqlkYqHzMPYmenTk8HF05mZt0p/z+op3s63rk1k9SQ
8Zoys+Hkwn5mAIh9qBUWsFkFFIClMpJUCYhS1FSKoQUgskxDEwahWCySW2pKgi5TQQPQRjAVQiox
YexPnSYgpIjCoBUFAPkYViMPgkCsgsFAUBFREUFUCRZAvFr06rWnZguvOeg2lzbNmX1Sjbjt8eQa
xSROkm0SvdPysn+b+6k8CXAQpAHZADMwgTyP090+e/NOB+zf0PmzUPqt73oERMBHllxlJ/gSt/tN
M/qknoMIeElVAP9rItTaUYQh/d++3fchDwP3xIBxgeJgl+2140T05iTj7j6p0ljyAmY/nbIeG8IQ
EfJxXsj32UmMteQkpPt528XiMiQrCP+UJ46gzC2ksfhQabMunRq7E3uRULdbutf0yn+M0ajxhGf0
zpqj9/1mhd3IUsBA/P7qfEKkP9JBj9dv7zp4qKKFPpyeiHG7PktmWk49Y5P4QqHsKb7ft+TntvjB
4Evqf5ML23hzr8idIoougk3TS9wtE64B1+lpE1YA4bAcoptA0gGuBF/hc3zjj+3Kg8/pyuVD+R+R
1fluQibAknn7plkd7nIZH2V5Pwc2+Z7SQ+LhQ/2CKHGR9hJ/zmvqbMzF1NUPoH+RzksjDH8woKf8
LbB0kYHlDlOdGh4aOvLMMotCggiImoZnOGJEJlqi4y5xhvfOcI6so8Fv23GYvUkwzNNtX7zwjxL6
iGGYwd2DPMyyzwWjK/Rek40HfiX8G6h8iby7tZUFi22Pq9WSTaFHR9+OGJwrUs3iZibuinryaX3e
/ththXpzODFDqtUr7bvPTZTHU+phXndyIrcH6EbIqwkD/VK/SbgGLmgQwAZ3v6bigMOYnGY1wtJk
POz7mTYh3TlN+Ph1td/P9XjBuHofoYpRrMGWtlkbBzIbBVNTDfk1gbG8wA6K+a7nMXPp5i1im6FF
UUhCEIO94kkIfsQPsygoKoCikB+JZCq/0FLBGSG35kMUQEQkflOoKRV/essgpD5EoM4QrFFURUik
BSLCetCsFUAct/FZX+S1VT/2/iww9/L29PqPl3v68+l/j6495zPEPsT5X5Wjfot+S8KetbBPraii
vjKdKoINTKFo4R0DKGvwv9m1b+76F5L8r+ns8QsDY8gQAM9hFR7MN/ogiyOItif/8N209P60QlT+
owkjnMeXfnM5dDFgoiQXX0VoHPXuFJDHMn4YzRV/XJncmoc/RqeneHlAw4ZIx0MgVDIbPQ5h6y8P
EGoDgGofZR4a6GuXomJsULJIdNixZMtZe2+GmP4QyfVFHfDpuGQdMvatYcJYmvZSZ4bzqjfO5mn4
KzCpoDC/iHIHO+K2NY0K6k4TQgxG6GnQcguiyhKLgsHYNgGNGqGCF83Roje5or1CgyHBl0VGMD+W
ZJyDn63iT9iC18NHalJTHQYMGPhisZgN/cRoDf+xbwJgD8D2b7cKsqpAJTKXoH43ZcoMym8qAcR6
Hb1/055c78z1b0m+WYCM3Pw+N66FqF+iwpEVx9SGJJlhZB/DZ3dMFmju/h1fp3ODB48y8Z+rnnV5
49t1stslZDoZYJvMvAslrQuBYQ7F7oc8hFhCd1LUFAUAWLByjbArP15RYpBjA/V1OydAeaSKr7zk
yf8Muokiw+LYixQWKC9mWZSxBPdZZ+mh7M8Z9NyH36rpsY/cYN1Js7wogZHTuCg6IQ1V+HvKMeXj
z2ufBmjCTfGiHwrEbBH0xrpooNOP69Rod+PPVTNPYh8a+DDETPGHjR/kUUPXrNWvlL+TjAwQ9+G9
zWTEtC0O22CxhLVqLFtusntMefw0z1bjXz5RdBMVkiiw3wcs/U7SbL62okxlEiqoMvtDuTnYGqyk
2kVUSKqwhriWcItrmDBqMr7qPPll2XdXprVj3EKIJtpv9nBjPFg+6/pOb7X2Zwd9H5uxScsKgz2I
Sx3XimBz7D8+/vh0cnq6qdqbBpnXGs4b267hpTVSsR6Fs/q+enLy8fpa9hKHdlgcMvaMplLARIKS
fpQoizGk0UuW+dhRfzUin/r9pPgyfqGSqqskYkGVKIxsbPUhUIMSd+ILBERUEVihBBIpBiTGWJEX
mxELPnfjlPF8JQsPZn/ZomYaGfLx4g4H1MNrEMdIpSLPi/J1+L/R0zkqeY5zrlw/ssr1ftw8Tr2+
xwJw0DLCyZOiJ0t4fJtDVAFBqakaEW6FUwTk7jPDnMhFs5jnkU/E4fZrZpPPC5v8d0OiIBXVwPZD
g8cGhNja+vP6sh1gb5/Ds9u4cYemGZ7s69msGKRNWmey64PZxNTtao9pZKRYsWMEkiMkT0NmZnCY
B8A9XzX6kURmAKCgqCICMiqW0k7bkiIoIiixSRkBkfqtH9867/g/RcZuJ8IGAKzSIL4VG48u8OIy
5sAgAZEJ3kiLyEKB4d/rZ7miozZwUw4GEToimqDU2CgN4hyeRhzqAA9M4GSaGG/GuNldj+fjJlZ6
CYSeBil5Q3Hk9fqpxp6bUJcHgpUvPq+nez2eMnRoslIR51o2nTWe/0BRYwiAbZAzb5Kzt0xQAVYh
EKD/hHvxT37D6X/tZUC8F91QGCfMjQSuY3Mp0JO8UW+4SYuj6CAGknBrv+/P/byLAhyXnLZNhA8Q
SENBgmaEkgMAhSb3rWjdpbCYAKCYYnvZ75J6hAyNkQI9EqGNcQ5IG8kgaYDLr/DydO/B8nDpnXd9
2RyTasf6sWWq68NY6LOS3OaZXrXB0mg5t7ic/03fi7x5wlJnPenxgdk81Tj/y+eyeaB+AzNQgbEN
YBoYmNm8Bx7Y4ZuFZzwndb/rA3dJo3XBwWDxBDwN/NxJl96gkHoGgsKorrx6AHA4ZGC3y3yWz/pj
jDhfH8mx0vrzJlxg5YmGi22IIiCKYHj9TP8FDqhFMsy0vJqpHCqAeZiAk9RB5o0FOFbrl+ynGL2x
MplE2kiZQaiBtFfQB2wA6oD8I8YrjlR0y0C8xhjAMoj69HD+liwVRQ9WWBgjxaMRl9lPyJU0+xC/
huMJ49Hfa6mnS84Gssxu+/s9iJ+5Cf1qg4NjKJQOIofvlAp+/6z0pCXo/ZR/KD+p7wuPJgsjLE/F
2MBNgHEEMB5lCmeWG9wABwRAB7hB5Cp7QSATxr3i0gAZgGIAjcOco8MriRQTA8T2t5LzLUOqX0BQ
5S7p/Dr8YQEwv9kOIL+ZIoI4hFGbE5TWuNay02Mzxx6Lh8iYI7RTxren591ZpqCI2mkxDr52Y4Xf
pQwF+DYNaKelqqJww9mb60Y4IhVQ5swmTvlVExBYHfyPbe+VQvq5c/v63T5KaQ7B5fS/iz3kPGgi
pWUGnPdlMPMT1/+HRMBxuOFHKSOrpjUxE9V9vNdDmj01p03o4mZKN9yoNr1eVfYhflvVQ7r4xme3
A64YWkECmDMXMKZAKZL0c5iBkD+r+j3yR3AL7yJCNy5aY0lf0fjZZE1iTMbD0yHOU2nr+Qby4muL
8gavk9x58qV6TVbFot/O1RTG5Y9gXK9FwwuG2nLXEn/qxeNqvaumONtPUHXzePfwebyHo+1Ar6Mr
A2UocjJ5aQuab9lXOjM0qpHpXlndFDSKFMQD54FISCwUgoIkDGruKH1PqYqMUFhMpQWKH+No+n8N
DEMYaUcZFh4wKOBTlEtGQXwhrIQey7SvlFygWgz0jywPCGuoek4Hn+Tj8uXf+v495u0x+/ur83yV
qsdnLr3MknR0lrM8pXTc9fq6cbdmoej4bWyJD3QwtP1pKiFoWIEskdCb4uPt5e05Vjrv2DujJd2k
OiNVxtDMZXSS21CDBBREa2B9M667cf9XrsIp/nFEZ25uiZuCLPp9xRXV70AF7oZkCmPh9B+jqhfS
HRzvYfb/433692zTZQXh23aU9lFeEOOKPUNqTSH8s0qBUgnp10dMd0DVPp26WSXrx+6i9rQ23tv6
+PW8DgkNP4VSREiwgoCkKlYHGUhkYSSlospbIKSFZWVFkD50MEIjAkzJYZMpbVqjESKStZUKlZBt
gFSKpJVbaAUSjRiliEKgxQSSqwFJGKkJRIRQrFFkhbQkrJAvqapIGMkWW0lYAW2VAUlSLS1QLbIi
jEQIAFfxX+g/8U2Rn8Kr+jf6X8ePbnNr0vE9Ps8ReebrsFzdlM4dzVvUKvGk+/VyZHqyZz2VhF1V
V4mcHmfjVZd8URVFyFZR9ZJpTjvF5n2ZMz2GxfFL3S780tFe4eNhuTOy8keq7nZBM7tTVzKxY26M
4kTLoVQXbgupxXiRo5hm7y5OHlt8sVdVZvF4KqNHA1eblZnbMlW52MtasomxPe4ZeDFFz4T3SSdF
isptUD7MrCbXZoRNA3LF4sV3u0LpEHuypNrsFyE3bpUqmh0zOXNq3fSxgWg7nUbW8xvXwxyw6BFu
ZU5lKXVOnUhZe2WjOA3i0iSeTFSAdypVtilabWHWZZQ3Ktby1UprZRUdzv8ifgIJMQvmTDB1Ud0x
3fTAgEDyQh2VDuwrPDF1z0sIbot4gFoBaJUC8BXOIZRCVhJ5IaSBiTsgTwhtJNITpmk4QCpCdJCc
oBUhpIYwId2aeuKaYaYcMhjIc96Bth0kNJDTDpNp0hrBbQ1i5x0i5RRMoi2gaRZDHCldUIaYaQhp
A6SYgThOOLACVk2w0gBjELQS0FygaxA0iiWiLrAM7QWEnZhNvVpwhMSBjA7MANDIGIA1EXKFpRBQ
ygheAhiKCuUMRTTDSQFkizswMSYk4ZUk4SLygp0yQ2yE5ZtOUOHjvTTOGElZEc71jEcIoWgGsA1g
Zy0Q1mkXUgmULXpdI4gZQAXKIraIF4t4OUU1oBOyQ7MgHDMZ0hOkKwlSBtJDTJMeklZ2Q7tZOkh2
QxkNsDugKAhjHKImMUMYpjBWRCaUhUBhFHSCNRW0BvEQxG0QCSaShw71pACB5du6MFRZEBVixRUW
KqiKBNdJkgAZFiwUgIxRSIwWRGCqrFTtx251w8d8ejhya8HkP6KGzm2L0QbdOav4K1ZdVOAmBNLJ
xrVjFMZ1I6pZUXKsGCRuIzIvcxgboue67SupCHZvVo2iNztdZYI5TpJ3ZokG0+xDLQb7X0BXnVk9
r1s4RsiXfA5L2ayjbaq73MyyFdxVStMuztQ5lIOzKm+staMTBk0SMTGkm9lVOLaRYusyed0DAsWz
byhhnrLuluY9N8cyus3pvbmhrud2zejK6a2tL2popuQJOTOdbo3xxB3iwUL55OBlAHkGls3e7nZe
8opcjhJWVJDm8fSKFvp4qQ4pB1VTKdWTlzOS1EhXVzIM9azuc7h3KylWSjfOyctLqegnTL4IPb5v
Sw2UBhGnoYTCgDqO65Uomq3SJxlMXSam+67maLwW7DW7MsbtUsojdwIKp7EyaVESq2U1NGde4mpc
q9F32qeHc9N6hUrky7S26mg23bsjTgevnSdbw7EtkcK2tRDLsYzKrLLEq0iJkVuXWZHBvuGtG9Ud
MjlPVQUkhKXE4hdEX3DSZmcSQx7a5DNNEzaWupVJOqOjsk32cMO7SuoGkRjw0igJF4O2XOcU6Zm1
ZJzCd0lCd0KzJGvTCRpgjMZwTR4Sexzc7PXh0SNdGnvC0AuGHAW7OsXG7beHJrFQquZus0mWCdHb
dK7ErYGErCkbVAVWZ2SJFcQRM5SxBna0XpzeQ0cBSbBB0YUYe4tGbJOmF2bu4oG89eKQpkKQQ9lh
TIvDmCjQUlHScyR08uziKKInDqmdq5yrId5BinevlYK2LR6XqdZ0Ys5YEqQBGgT2XRFTjcSU9d5o
PDVpsQHGiEAVgdtw0R6edlgGB1e3E7IZqdhhRJB3RUgYsTpTlLEaVVpJl1gqz07bgLprcV8ksuRa
MhwzcUlgzcnZrCDgkTuJlCezLkGJiY5jZNXqLeJaoc51UGYvjgzgKGkaXLYPECcbBvbk1eVjUjVZ
obgI+QIEAC5ntMkan3SPXKzzkYRzPXdUC7m80NkWJ5C0VSFEWRcipb7TzdI7N9WvtKoLZN3pnMs7
MtCqre1ChgMXV85SUKt2nNCmIlkStsLNW6hoKe6OeMTjkMYBQwmROnb2VtyRk9w6Ui7cZfTtPIHO
2jTsmcVpSjvb12dA42DMqVs0tk2ld51zw0bJIFUMB6cwG725oVl8syxsvpszd8jgdMk9bArLze7q
W0+mBTFcKQwHaeZdcsdblDum9NcJtCdzpNsUMQ45xHdlwkqQE9gd9l7LCFc+wZV51ZYWZvF4hd52
mla2aMpA6mllIPjzLqk6N4crWOfJ0BixixJzbNqryW7IWTXX11m4KwdUmEOmk9qridXM0eGZpVKR
RM89i+ztnpBy3K3r3dWo4bpXsXj6uoS7qQxmZNnaDMNrcFjexLHob3uq4O0auhPYqWT1iZV68Btu
joDWvc5oZLFaXdubx2MC6dsUNwZx3t2czQglb2RlBvq0nsm5G1vXddQ6T1yCxxLntlboacq7y8tN
MqR1rY51pzVMqkTtarkZOJ8J69zMveTKsg5RlZtSEXWEdmmS5a6RVo3Wdhr4Yi/paUCA5F9mKjAV
GIowWKjBEYKKKqoCikWQURRUWCIqwUWRVjEVVYMBVIojFgpBVYxWKwiRUUUWLESLAzIeshEXfnLU
GcR0vuwVG6RFQRP+pCEABVFog+eHjic5VBfZexed7IkDZGpjBt8LjnjXsWSoURW877J+N85pR41r
pDQseBhe/H54/zhDA9f1ftIH8HD8PrjpXcIX71o0wtQdXNRv0vR57m1c+dz/d9ur+fK2Z+nrq3Ju
QANHihs/47uGQJlEEBATdagXnAkQUBBPJQ+cEEKJERREm4O8kpUS8FVWQFkVIsFgsCLJAFISD6lv
7fQD/8f88lufYh/eh1/ooUqsyMMpZMyUiPuoBMMTROUaA6ORttJ0f+OYblENDQkdSSgoiMCKQCIn
4xUV53pRE11oOMAbwSiKsihUAag1FkUBziolQUjAiDAArJ2YGIASMSMSAqKIipAkiJCAsIEUkkBQ
kSIiyMiKEiSKiyCkgKyCBIICkGKDIkgKjGSLtsFKJXr0cIEyQmgYB4heS2iif67ZMZKCwIoqFLEV
kFIEQZFBcRRWRRUKgIUSESEBSQFWQRgJIKALILIIoyRYsirBSQUIiiQYrJFIoQWKQkgsIJIKpUVw
rQnp+Hv9IfD5yxl65gxClPhj4scyK0IYaZBNmMVXP+qCBGGBj2gcmhECLADaHWUh5QYEEBhID6CI
2JAgKFMFQN0FRkUUJBFSQVgQRQkERJFVZFGmVFGiKr0EBFvC8EGQUEJEUkUFS8qIq2IKMYKASKjI
gCG+Amj81CSQhtRAm0IiLGCQWEQREixSQVEiqKERYiIRGAgHkiqvkFYgBIBICSEhEHSASoT9FAkO
GEJ2QigfYyCIoFFiAYBOuIB5PFRLR7+/GAb5CAUmruIliGB9kMLIUlrFVsPEJZYMkYCEGJJHdKkA
okksVYwtgVBBSCDIVCBYMkCKIqEGAhJJWQKijBIQAqBKwWW1BGBAVSsFrCCloEIwmBQTyBAesIDa
Iq791JzEqWgNhiprjIKXgSLAn/D/k+2z/7JgMIiSIxIwyxdAHMQCQHhD/H3WLH+VNOD5Sjq6vzeP
zeLx+B4atYfNSyB9R/ClgvCY30bDDRZQrBKJhZRggeOSAnaEUIwCDEHxQVo8cKVDSWgjYIBgqgYR
QgRFB9hAMwIqLUUbBFAQgEQjEBGwQZSdFkhIVOGNlF5/Z9Z8cvIiz+eOKdT++MGMFjFetgxyp5lB
c5dmbnjP5s2DMo/1onTy/cr/5RoRlQSjIJD+ViUms6M0oThOTOfGFD4nT69MZwqqM8T6IG3UmYTY
Eaqt9YDhzAmbB5iDDnKKIFVJQ9f19UOvtbWP0w44CsMwevNTMZpBQZjLYWa0XIBP4iHOi+35xPrr
Y6h8LeOZHiPG30P+OlzPs+Ng3ENWLa6lZkkjDFNoVvPt+n1Mrg4wEhLHQJa5Y67m/U5VvwlUi/KT
6HMvupn/r/4/6f6eV9hzCR8k4/Kn6XWxl7a42JZhKhi+Mn0gGQ0a5NyZhqnyFRqqrkoUthatoJ55
pMNH8tqBiQX0jhZYYJDN5JknbV4pMOjYkZA3hKcXd1qZC++ZZncwOZoon4pdvXoWHBqWcLB/HCmO
EWGSBUNhVo5Ulrru5/X047fFRcc/l+Z+ODs5+FpsDRU2H9Zgr2muQMS0tfUfJe/V3WygXSLCdOZy
WJCGFOHnaxn+gFKfft7MwvhjYt9nKxc7cfo7bo+rXpJDdir4pxmfJ83PgwYFva3F87BjGDBgx59i
9s26CN40dkO+YgRuEqonsOZ61tWhk4PYYbkcgOZA8sUAhFE851motWrlyKtlVvMZIfJ1a0/Oem3L
38vN8ePSQ44OB6o1IQWROHdmHIcY8Mp56NDzB0dbZNOEMagb5w3EaROuBdtlWCg2MAcRNJbhzWOo
ghvJCZjECSTiGYNmynpqjWSnfS+ZM6Fwe4oUNYRbQ4TligYYQJd40u7jSH8ATmPCjJnNxnXLawAw
SIGvWUEhcgAbog2iboqc45+FdkqZwTdAM/HKxrF46n22HKIeVU9hAxAODC8d8UKIrjFbCOMcd1+M
Di7iGoHAJ3y4/hGGcc5UhOySaIgsh3f+hgX2bQEJLInPDqiltw/kay47+q0CNuHLwW43McdgC9rA
eGgUGJAgamIGsuke8wztAJeWBTeb37xEOUOyBO8D5ALBY6YZp+2MPrybKVJbawqZMQvOBrEnUJJ0
fi/ILvzwT0sw/efAeCbGum7/rRSUG41N98l1w/UtbbLVVQttb+DLmjvq9S0B/BnoeQfi/vFKUgUg
8twuP1y/fn+ALchEECoMHN4jOZXiQ1jD4jWTynnPr3be7ZYve931deC5D5oBgj2Gi6j7BEC7HzQx
UdhgedrYMMNLQMXkRvoP5jX9Q/cZgz/aPWAljVHLbkcjSxs+q+n5mjj+Z1YhHcYHMgE6SZRokknb
b2XMdZNC+fLQMz+9/vLOoQsERy2wMhy52yhIZBZi6kRNF9Shq/xQpp0MDCFY899zHK7xXUvHy+lU
qE58u8wjEPAhYmJEKZGFQDONh9pAKYB0nMToD6vu5O99yU/IbYuXabTn1S/qNKXlHv1aeMLnIhQm
o+JRyyDQLRE2gFQCoG5skTrKEvhSkxL9cnAvy7HMDOBxhTHUddgwHPRXObdeZzkwObUOujC5xwoK
of36BYCiqq+ZasFWCimzmEMQPcCQrgvgDcdeNBa5tMuIOA9Pz7OxM8CmB6Pl8A9EDVDXq4EJAhMr
mg9B04mMh06j6LJpAMFPxSUdehRaT1cfzs+sSYU4BLMlpsVDMIcX5+g7Hc/AO2QljuMunQMjIIbf
R927Qc5AdMzJdSxljoGeTnYo8doYdnbJufHWoajj7/iXNMKKqijhQbnpe3rh8Tua0erjv0oCrIXM
wfg0fUcnqibDe1RREigdfZMgemr8x8giawAdWKKxSUEsDcYGYtBCMgiJUlLKZTJ7z3n0jwPJb6E8
aU9LtCPMR6e2j/PkMy0wWPiBAgB3CfuLqXX1l0L/z4GvJURVVVCqqhVVQNMpnPZq/K04BRve3l1h
yuCLw4emwp/Jh+kakgfWFE3fWgqBaK1QtBEv22W7C7KWFGy0ltFULSwBrZESCgH45IKjEew/8EPv
gECcyKIelFEIioCgLBQgLEZFBRZAVViyCkikFiyLFixYsiwUIsJBYRRQFigKEESEFgqkkWARSEFk
UBRYRZIKAoshFgiSCxREUiyKSKosWRSQUiwFigLFhBgxQiJFBVIqMkigKoLIosgKAqwiyALEQAFi
wAWQgjJFIRZCCyQixQWSKCyQFCCiiyQWEWERWSCJFkFBYKKqqoLFUIshBVRJAUWQgsFkWAosJICy
KAiCxURQWKAsFkgsgoxhFkBZFgLJBSAsIKQAWKEEQWCkIoRSKCyAsRIpBkFQUgCwUkUkUWAoKBFg
KoqwirCLESKQWALBYqqQgLIKqMkiIQVYCgRiKCkBSKQFBYsRhFhBQWQFCLICMIIikRBSCixEkiKI
CgRYCwRhFIsIpFIKEUWEViMYLAWKSLJFFWACihBUVILCKSAyMiyIQi/geoR+zBlGc/G1oxkCHayt
LCjBEFka2CDB9GWkRkisCC+NPMxIWUiRtAYaA/gth8pdli0A+YCkMRGRRTgZALAo+KqoSIqCP3/w
fq/g+ysKYx7p5MpfO2d73ytbLMLYvWdf7c/40Qae/xq6s0plF9RwOZvWvGzejtkFbmzJXBuqWTl7
sjZxBBTw5HOnnk93Lsfd0hBMTmTbFhDp3ChNkIXw3jIuc3hd2qWrduzT3Mp6nVAk5dis0PQhoK0c
TaZ4OT11iulgOqjTmexpHZ5475TV8lWpYGVTVXboR2REDUVO+AQiCDCKwYvMuYeT3h3ff+sw74GU
ZCPZHSiERYyFtqUqEtIhakYgxJQgoaiQ6iN7NhstkiTEaEiRZIkiRR1HcmAJmQggMzNQgGARcbH0
26cO69esTDouebodIulqRUu3aYs2O3tpqHpVz0fAX/vH6APgJv5/9AvwY10JfGyC5gcb2eNG+VVc
NasW0QnK7yqg1Wcc99Vlivk0us4a93kmdsKysqco82DSBI/SZcSc5DrsMEiUVRDM5lzmIlK7qMi6
SvyISON525c0jRBOWrSGEUYwuUG1J/0eUEgmMPGyLOxU3E2anUxN06ePxlohvZfSIDh63nO0XDOc
mITRh3VI2bINqaub7+AD/srPQBC6rIAUwplsyQ3DZCQjhtWbkiWWQBgMqowm3UwjhRoixie2GK1q
pyb4lRlL0mCIVIlrm7xfNNOnr07Z2aI4jTpGG7VTQKYFLmKg3aVoOlRiSOlHAjiNTVmidrzA7Mfa
hOWHpjEVuqdKtkp3tjMOT0qNb/oRBmIhP5j894AWHxxFQ6CcZdvGoDPARDIB4YzVJTThaWhyh56C
ljbN+kok0ZK0ISSD30kfox9L0Fjs3sy/sYU24IOFG6UTVJ8ZMm7pyaKuWLtTtPxwwibQ0k2lLbws
r27173yIFvhJGibqaivyJW/YX8IkIq0Z4zpsDcLFiyJWPJhADGQdr4AOkRZw+YRFd56Z287hsmpo
VmHalDGMJURMqxrsmt4UNhK6MqgOuCkU0P/g5Ex6e1DDTTrAlcs+AmRSgSYd9Mi6oUYkYeak72BT
LMZIQ2vvonMXiJKlvaQZUokaaIrUO3dSmyBzq+jOBOuKPVm+10ptsFu8xHnd+M8QN8z3mflGtfwe
lELSG/lT2mtqX+ACIThWYyCAfIaOWdOy8UODAxoQYBmVGnDFSpVMbSHiiLbmR2BRpGmLjceGCOpi
J5QLI5IVqHLPyZszaGHPLMCAzloIY+sZ35d+EXtjmArK3VWqATGmME1ntzLB3EJIuWw6V2oZmkjR
NkY4XoEecelrHa2IqtHvJshZw7it+gB5wzeyxx8R78hUQ1bHxoEix8k1woZJyZHGDtugCdhCDBGj
8KzrSnskSYksj4SZxeSylYMKJTjk3FipEQyYGoWD9gRPxD2b1j10DHYiaNlEI50R5M2S21TDOyLE
CH9Bd5qMcTJ0dns06NK57ME5xK/HxBltCpNNnjnzGIMt7io40OvmCZN3WdVnEMcAxBRFlGMfMBxS
iM070hGASjxw2RMEMiEXyFkaUetSRWqOxAkpReKKaGnNBUZSig9FTMqSOI2loqmMOEzd5TxLP4ZM
EIHmOO4vHuH3j8iO+jS03g5B4fLYk6NM1sDDBB1Fh1LEhuhgpvEWEZVlQmldemflJ/Yjgcv6HSJ6
QFVUBZUqT8OeQ+2hRhMUh8vSwL+qYtKPJCTFlsIMwDKAdIImVQ7Me1FGCpP1DU4fPi6yDov7jL+0
D4hxAw1mvzXCfEdd3D1R9Vz1pUqZWvbq7gE3KFmabh4qp5IUvMoeYsskBkWZKaDMDSLMcMU7ELfq
Bvr5Uk7HiH3HL26271OX01YIMMgvFOGvD4yw7HJ2c4QWQAWhR8Dhoxo464MzM009dVQzZdGB1Kjl
oEymxUXOSHBHOs2sPJ9IRqdQU10ef5fmPb6357YOXG5K42HrSsmhLLJaFtJYwpYxEYqqKgiIxDhl
T/U4+AAECHno0nnfXduwfz4aCfk2KF06wzQxveOcGjHV8TKvUpO0bvHc5t0EuCeyRT6Q6tVWEZgC
ocle3uZukYZvt7G6U3NYdtnoUaaZyspC00xy1eQ8eT/+vYJ9xgFPSOBEkhRb3NHjJaOgnDbdR0Tl
R04Q3OBY0sL1ch16turECZ9OGvykJsYUGwcOGeQ/+ONYjoWsdp/lAPv/42AfzKhplaJHVy0/liBi
VAROT0r5BaAyXYADQC5ejjCGHjpspmEZ+/DmciORDeT8QFkddB9sgMAgkwMPh/CBu6PXxoiuG+3P
PBX45mePMh8DDcTl9HnV0ysOW6rDtfCDHN0lmqCJrFpOZ45MianldanSbjEEAzSsmihxgYQYzm3A
XaEN1E1KRJGAlqiCaymOI7lxg2hrQEgNC7QJkiyCRwJSWfYBZJQSk+xzGfbPtA+q742CYpaPOQvY
HBFBDAQKYGNROMNH6DgEAiwRTpjZXwtoZ13O0oLU6kZ7fqqHiSMfnqaLMDIX5KSVFOztj2p4Tagn
ZIcSZMyDF7azmIPBSIdrDfRcthx4KcVsaRdqTiHAbLYRiDEAjNYLx2RQOAiiLBlRZKLeIOmUndrx
MTvYC5EIUQEFAwDGF4iz4/WoMxchRQKuxokAhCQxMGByuxdBGHyBBmwopCaZvb4FkHkONSomCqSB
HECzZHPIYBtQbU7CjHCEYkRpmHGnQYO7YMKQMMIxpiKfNygJsqNjVBaggiRoUfQDoeR9u16lYv09
9QFYcmPrVgBgEWrP0bEeUacybkHVRiyNFqLIm1FiliUE+NWhjbElWqOGK1A4EHiJHwx2PPqvESRL
5yRkqJI1UxZs81jkMcSY9iAOKNII1BatfTMYRMyA4FSFDLq6mHqEMEAxaAODAMGSp0iyBbYc5yrn
bZnYjWhN7ILGGOI+EEhGNvUHY+IHmprFcExZDBmxkOPgq3RJgOCAT3SHkEQzRpodhxjDvk6+VgB4
B3AuOeRN1aYviwM1VL80LFUgMPxCbwwZuLcG4xw++bdzRXhgzoDzIUIZJKoIIfk9KGQCIxr9IhyC
K3kJCWaR9h1bLiko+HmgNBHV8y1oNwJMMssgceIsPHBlDjGEYGtI4iZCAIoISbfONpSeFYx9Aosw
bP16QyuCHzlC8qqXZF2o+ZzAuMUELGFcKOiNGeXvYfofPV4IEYCFIQXBKdXXazUYJza9hDYzbXWV
Zrm7Tbp0YvoH6I9iGWKaj3oceAMA2gbRsUwdRtSaBjUtSk7SDVOjtIIwMePDhH0DucjYfT5BnoHk
dHdnFbyw8so9sc7ppPJ1zReTzoMfCJ2FFl4gtVthkxpIMJ0xzQfK2liHhiFcoojwIB5aeMmSJS9K
BMSCyPuQ4CuKyczeEycmBnYA2FKzwYsSEE0mQZGenbeLO6eE8ssOOKNJWQDtq4KcWEhUEiZFGdgd
BsOCRNUYrV6hOnW9m5GLrGwBYQpMS0DS431ShrK0QLCGcmYa0dw1oFndNCL041mdig804YTBRngp
vlKDIlZaY027uPMxKV3fN9zj5r84MD4n1MhyQIgXOtHvlk224Tl6pCHMUEog4QZXq+CGkiqntq5e
b1muYwjZIvK2hVu9nf7pV5m8Jq6Z2gXxE4qwe7UOsHMeh8NrgaU1+8f2kDqARmB1GCFKXkKClmdV
yLaFCBXFlaDBxdgjjAM4IKEk9SqgWY0YpjdcqmjeMgE06xIYzwpxGUyEZ1EyfsJr4a2e+XN+759Q
rar6CiRvBOPhr1e2hREWQcUEx8OHCktIdIZaRjO1F5uXJo1MMsr2h+Xn2Buy0MTgk1l4aESb6+xw
H+YFcgPsQLIJ6tf4s0/FmUw/zF29I0H6B/MgXwcbYi9seF0bBkVYdAjwutorSjMqhXLVkEkGvsq5
L0sYlhsgWWY+RnGZx/JMp6vwBExXSwKI+auPNZSZgfCNLlVyBHK6EsMshVlyzpAvS2CRxDI1a4In
XBMyiK8MDlJTJYrB1cGwrIGgkHwwTymcafboYRijZkj66c+qOoCSMmXjUTiogI5UpgMhkIgELXKQ
FECTyYnB+QK+0ZeaGiMBZ7yGgxhxIKVhjCAYItBPyJF4gTpVy1qH3F7HgK+jYHktteBgmT6lhBPy
1AnVOqECJMmyGYHqeSjElG/gCrTTyLSlR3xZ8wsWGhpjSSJ2mPWgaRQ1mpdFEC/iBlEwOSGEOVmF
AfK59XmB8gHxs+MBkExdyHPlAkz8vpFYrlUY0iSB6tY44YBJUM8U1egokzrExVVMTXtPN1O8TeIJ
vnJt2YdXbY3CRKmfYZ4g25KGXaUUhMqUpEDeUdUbeiiZm3ua5CkV61N9zzKzWplubp3glTPBqM9M
yaa9xsgco/DpsnGDdF5Ypkhhq+ep2wEGEmQB3MkLdBt9aA1eyGYmN9iUBxjdRZSQJajMSF4wjC+0
5qqzX2GsOZY/cHDJ8dMMYhU0QIbHSxo9JeNpeGCEhhlQzU8mIpDnGM+kSjxiTQL7emcUKUdXh6xS
8N78AajHvIDSNk49a+fIXyca+CBLESUcPchRkx3rr4pyhYo4Y8grPE8lKwbz+bg6lvqGe8bmbxUY
014289HL10foLCK8rPj81Hsdn5p3px4/i8Z92dIkbjVmCOUXKZkjDwC9s5y4UqL1IyY8lGpQjrXp
xitXiJvFZmGhBZQSUDSUTVci5kfmXTA/LuEX8jIcAC5EQLe+26/svwv1a/X9qH7bTNaw3uTyKcLH
vU1K0uTS4musqru+dmyeRNl8IjoEfvA+CdPvl81x0Sn4FA8IwAf4IuN8XTAsZQMicRG3MNOgECun
FUvBr3l1KWgz95HSjMDij7kOIHwwiizhRR+Su67E/LxyRJjTefI3N+ZmqyLlb6XZgaopuzJVzbEs
TiJ/Gc+74tPwOnw9mUPoRaBIHEKlQ2XRG/Vksr4K+4r7mPEeMY0D9FAfKTIBlCe8xhiwfWjqBIx0
5Ik18TmXDIjjZi2o4UJBYRZo5KZGFWgsUcMQBlaZ23JJozv23zJNWTK0oiSPgwRAC5e85Hx+2B60
ky0ypsVN0DY+CXe7kpFh4hAeC/ZNeL4ACKh+wwQPpC0bNQbjloxBst+o5SMW7dEaRJKlxFfYpk8t
+4OB+2y4DBkjDp50xCW5Om8Wq/SJNYEKIQpBDsVa6IhQiDkJx+/wM3o0pBdoNLlRpgho0NnI5DDk
EmTo1ygg9GiihmVt4U0qg1KJnVBdU+FOVL3fekcRy9UxYuRdZfja2Z4yQPWpIpoLihZVIaQOIYIF
Z6AIE362PX2jK9Rm5dZ4lnGp4W62bMmVl6ULH0Bo7PVQGJQ0LI8YpqBuIDTftZI+du6fisLVfqbM
I4bPAiLy3E4gPdbZqVZlY4kwOStutqyBXlZJFJAUYFWaqV5cYqWx4+IF6t1SYsiz0qASIRgW76el
9MSQzF2oidVyrqcqrOmzRByS4ETyw8YnlhkjKK0p80b59XXg5VSzkPv8FXXK4JKUfJ+OjRDpA8sI
HJVSCMIgM+KMYeMpCSPXJFfFWgUoZh6TOLs1lyk8+gDQAJd3W7DjDIq4ZNKol5NgtUXSIVAXeEgy
4C7pVI9UgDaRjYy0enzFYgyMpO0GsxymgyPfFCIYI4gKVDIc0w45QF3MlFHEnrcK2nZKWHkokjGr
BFmS3bDMu5pUaljTapwMMmjATRJMDSyMLPY2ANkW9PYrtI2exG0JOQaMY6vajSyAeQDI3G5LM/aw
85D2rxtx7PLrmlTlFNuPC7o8UNNZu3uqa0lqyq1SIpoC2giM8naJ/A/A+hERvvoeIzzYV1QQiZGa
1AWotmZGpmllLoA/4D9h3J0sUw8IyswMo6lkwtM7ABn1u3AUNhQAhy7BQ51oT+f0uq+NRpG1zAJj
0oRLUULCCLPzFCIaqRdKkMwrEhJAqtQbNEMUSExa1GnFyvmoGioSoh0VqkxhiSKLnckBnO0vpKA6
VbTHKKMkBEaQLIosojsn8zh4cqJ5RSo0JA8mPTBBqlFSqvmrUe5E8QSKvGFqDMggWdO03GnJ1ijW
vTNHiKjeZQvqtlngxM9K1TKOq1apIHxH9JA9QfdfsPge/rwjl8vWfLNIXz+e2vFoYcv0d3yb9V/S
5uwI/m82Zw7PvrL9j7w4lj0boarJxtCnydMfyjgf0NdBAbz8pVU0mVOHsoLo3rEJAOW9OC2y146h
0QozDDAHL3FzH4FZB7hBT5Dzdf32AoKjJZKGQIgZemsbss3RjG5r3dqcXws+K8lmWCPrMiix7yiZ
oeBncxl3v04hcNUhizw/+wnt1Lw9W88ruZr8Tu3v8qPWdZn5/wZpTZkYoRSEYQCRiZ5d2eGM292S
VbCDy/5fvzzwMZ0Bfv/tjJTtdMXQraum1kDVj5ukB67sYMfP1B/OcSjcKFAOMTBhYjQ4EyuFEAIA
OCgw5W4Me4H/YIU8fCaAdbx+T4fd0pNk7fYD5bf07qmvjpcPjBDiEFIKap6O3pw4cuZ9JzufPv/Y
Y8h0Oy/6THn0J+fTqVjAHl9PQosgDgOQXUh8ga1raNwj7ryB19M6sWyCt9CdoW3m7YnRyYfP7Ofz
nfvo2yBggJHEutN3zqO0MUmE3/T/2ZcDGYQHYfifA+VQrx5hgdOHfxnyvyvWFt8y6v3HpLaOjbVN
QYPl07ZOUhuCyOb1sZ2+TyD/fZeWdqadcyE1MSQuXebmIPMESGRWd2KBjEANo3PB79yeSB5MnfmT
ljaD5zlOeVn5ctgcXiOnW6w6XXyMhIyGBPGVdl4yEjIXuMgY1+k3a+O83db3GrKUbA2ECCyA0Tf1
txzPI31ShGYMyMxsCFRcWGjMjF5c058PRbjx2k50VM6KLCkK69L3OAciBDJN6f6poHPx6qtTsqdl
x0LalNakUim8OMOVSxc4EcFQCgRElFQ3HQVoQoVUIIVRMhV0AKRYqXKru9aw8H1UUgEJi7z4Ca3K
d+Y8VouPiPs2zt3w6OB89y0NDuwvMbi1vf80k90zPgIKtc60kaoT5O8pvBE6QQ9UsGem3S6onT4Z
ZS/gVVsrH3vwaw/64teHEo3206Pk8Ge7nnjsu8uxnU3wlyCrghn06PfqAaapQZdosnuuZlzx81cp
5cdMQ8N7siaeFnyJcyEGARSVzeSyBQeAG2z3EIlgVUpYyZAnjNXEzn1YG7Y6x4I7Uc/IRZqstYBA
leW1yDsLIlr9i37OdmzdJ4m1jum/MmfHkZaa58GRqGXo7enMqEhFxySiDXCGXKQhPvHY4CdooET+
yc1DnSdHdHK80eDfRAoQg6aFAem86U9xLIf6qz5wm5WZTkJbiLMGCqO5xEHH4Dp5AIDMzBvrkHMH
N7W8vEZMEG70Ok+iXe+tej7tvtPn95oOxzxehC+/1E6nByUStaIgMUB0BvCg8psG6a7i8RjNLYEx
gCI7M/U/DYBTz0PhD0ZODE3UUdVbe67b0GMPQHmGpYliWPoJ4DvnwDCXNCwEUjVHoPACFXjsOuQU
mAMGdYgyMFVq0AAeUiNAYQlzRCpV8R2DqDwDp0rOT0MsFJ/Xq8PobxaH0wKF6hRhSBj4/AkGiq6T
BhtxgGYhMjmYnUSHAPQGw3DZF6AbVOyQlcPFo6fo+J+rwg9eqQA9OjhOX6/h8WmW23w4EgYMEC4I
DoM8e4Y4HZ0hWaHEHADELp4b+7XW390Nb3K26B8nPuNU38cezX0c+DkHlKWiSScLA0QTom/meNi1
qhsQmnJkCX13bB3SsO7CZufhTubvBs2t6d0baL7SSEMEvtitgwIob4bzXWrFomxCadTAJw6Q21rD
phM483uOp4+zO/P1EMgbELIPbsDGXm7lO46eY9w8u5qOii6GZnySI6MwbocTnPUdidZDUZLiC6ou
QZBQPPc6Z3v3CMRdRdASn3RejKJts0OEyKpGA6LYUcF3CA0R1cdZDrBJeeKNRHEZhJOm3OEBwjML
ISSOieIdAEIalkp+4CXQLg4d7i7VcaMsxj+9fA0i81coBxQ/r0ZB0vRNWRlR0KobDz2nS8KPAkue
47jxv8OiQNh2HTQ3b0wcHCziPkD1cPcUUHXVBjaS/dfOx4m8OkgQ09HLTXWVcqyWlQo0o3eFjDfo
H4/SshAPzEACeom2uHJw9jctr18HVzN/4ZcDccsPWePQ+51h/KQ+zo98fF9tPVkZjusUW+VSuJCi
x6dXXG+ADC9DQDsWh0VQZP47D+kugjfLF4aBzOYBgQ/1B4CcGZmZmc0qb40kht/EZ4p4z0OgmYNC
4CDZMuqDvgYN3ixw450nMGuzQ+Re7AW56PkyK2g8pltlfmAmE5Yj1g/jqsjq5cidhto4vRlcy83y
fmM7+/wmBuDDD+x/dg/wQs0uohLoSirBLmQIDxN2B0QZqHAF0E02Hj9A84WCiXyHao+aU12Ld4GR
UGA8nnV4QDodix8cW4iLE50Ie0gBGu6vtRR3ymvfD+zrhJTg2B0+vxROLl5aFxIv5/cJ8QY+hhBH
BEPI6Aeg40ObxounHIzEMQcsiO1zI6YHj1k7O/xNzpqQf+pOQgSJlCoSBiBhdC7y3Stx4reBzF22
NXpiEoMynwXHfcensAPcejN7duE9t8oPHwoOCIbmVvh7IkuAOzzMuQIr80CF3S4cL+n7+ahegHTx
8Rm7jHTBOxcMIPYEGPxkpShgHzRQpIXWLTdoswZDU6oDax6u1vY2Os4Hpj0pA7IYeVdc6Zz5xBCg
pivAQmA0J+gwXuliygDr0Hx+XzSXmraKgHvm2vdxU6B6czw7JOsDVfR6ZQO7Og9s921zA7cJ7EW1
yAhTVdd0IPv5hQi+LgTULwZJvIWFSsfxcUnmce/TyDjxODcYDnksVYsVU2RNuOixnxKJzcRz3FWC
1unl+TTt8oUnHAzM5N7vOJmo7I0QWdfBHt1PQ8AimphEQz8QqqZl4xnHgUx9h5AB+m8UQ+pkWTqA
8CAt5zrvl+WWRaNk0vV7twjI1B1CXmI8nnnhWD8s+bq5fZv4zQewyM+l6R5o6QSQHY68N2oNtEnb
zDN9U68+GmP24JSS35aeOcv2YlDBazDmcYNyBFBoidhpuvZIa6cxigHzRDCmN1Alo0i5R8GSTGBl
soVs+jd1rMzAsgQAGBeI++N+yFEUG0PyaorzAgP8ANLKW+lh+CPH6j7gg8GRVBTjxY1MaX5vkAKA
09OmDUCVEkYQVDAMYMwVM7RcEEvYREClanx7KZn5hDcWwRBQUno+Sh5vkRiSDPdQk4zEMgjIL7Wm
H3CQSE2sJUBC+7doYDgIWguOtwGX42AZv1A5mXGsw1/CgyBxszzcQo8u8q856wXhtCsUBYIalKhQ
DQECbTftsuSulAXscv1OAxfhT30fgXucfmodRyF8G8/kyA3Bg8+DaF2Ub91Xun0hFwirKA/Vle9C
CEoiDViBpFmEp5HZhlmmceOs2OmPdsb8ci+ptZTA3UsRtexwM2SjahySgaOG/2nGSxI+mwuycKjf
wrbOQFAPFr5Wm246rXzyI6iE40lcTTy63xs6NnssW90hCK6Vf36q6zM9lqqKqwYqny+zxDRB5tOM
OBwC8kJhNr8mg2ZPY06DGzTVVZslWEefe/N2GxtnA2XrY9mmZssGXWl0Pe8Nfe6pvTK2m+u3Tdvc
BJGA8Wmg1NVVNA0Dzm/bUwEME5KVGgoQKgJPxC+bpvfm5WMdGqC+o+YgUQPCi5Yq5HQax3cquCj2
WZdOC+kPnZBCXDfFlwOgMH7jbrGAKz28SkEUFRjE/BBdS74Qof9yfQ5mf1MckqbgaFVQxIbaEFbO
ucuUONd084oTrhPGDH80AiczAyLZ9N7n337ujPmv60+NTw9XvNn5fq/Pf1+8/OZdfA4a227tBPn7
jE6jHqgeujzLSaDqN5Yxv4WvNDHQ/h8cfPdhmwDBfgFUD2tMM0Ahj20AmGheLR/SDH6G+Y+Q9V+w
oBA9Hstd9jjeeidXA9R6i+q5wc7yjlz5+uOe0yMaVC9GanTpNfNx3luOWNo7WthyOKMWrbKkJGRL
UIqBAvggJVROEVUIEd34Gv18mBYgh8gdvTgT3+Fe3FwWcodnNIfT7j0Ue1hVUmfJIq4RjYIDZUqD
sgM06foXrjTyBwVT4HjQ1pe1AqEAIkEHgiHVUKZm9waJO+v0CCQYwJQFtCpQeIeaj6ihjMQw+8DC
lbLvct2BpYoygf5wPg9v7jVd26dWBtRfo02mEaL0P0BgjHs66s54/SgYE976RSP7WfELFTUr8sic
P8PrfImfQEOt453JXz9/dnlwOjBPPMd5wtxayGwQIMInTS+YXbhmQvBkC3fww+RWCmu1wnd5aH9Y
IJ4GlPMOA9R+zZ4ODx9WvOJ/17zLS3mnwjDrRCUEjGZcsswmBLLLN9RRBQPjffMfg4mqU1lnsGx0
koUsUZ+TbZm9mTZqzWsmV03D0uQ518mTWSFFPYbOc8sNskwhEY6gMon9ECA/ym5ZmEP2WWA+IPB9
5SL9g4NefHoHfVuzCe/gKEAPl+vZTBiwPkiVDBcTKO6gONgxr/QKJIvwJRzmQnLosGD/xaTcw7Kz
IodVYG5XIFBkqtVzvkYCfX82W9n2b0+RdS+IIwTx+jx1MQ7Hr7HSi9DUezSlLlSQsDigpFWQVyqw
FeX9yLw18569OBoTpNZeXPDNvfgQuGXjwTbji85dmxhFPZPyYndxenib5gcj8LWgzKHTzRnG5waK
IbBTojKB3i9gGHyOJlkZkhIPcwg5JgpEEMiDrONHeXqtAePUPqbrqKCpd7hiDM4TWJ8z+YN3MCKB
gE2R6wD3znxIymB4Pc5E6czghB69PAeRokVSVBpSEVSPXttTYszma+p9N3XswPthdTt3FO5ZAFUl
QaUkCSRZ0bwoPsG4m8VgwYZJwiSJMJZRYMRAiRECJFALBFeXv1brZ/ChSrLK0Dbrv8wIAKZAG9NB
3+RVuLmA4Gf3cvP/e4CjFLzxUrOYwP5niBiBnEErp/zPVj3J4T6Bo9kND6cd8DmkMj3luiGgX49f
NS/cDwN5pNBooJrleBp/O7HkkzBm58kMY8rEawAfCAo/tH48DzBbgGQrAQEi+qoK9UFZDwdeT8u/
S4fzuEf80iA98diDjsnzDfcgMUffynjzOD8Dxuzsxx5Ou1F+jNDrMwML8NO7m1vWkBlMHEiJ8kse
0NVDgXFNDwsmgDy7FzFppYyYETMiwkMsKbogEMAbcX50lFx0whQGGIih9pOqZPf/5GItfjP5nLRf
pBiw7eQcuQmPaXLN8zj0/Czx6kF5PJ3WkhJIkJCSQXEFTpIqkIqkKKgeeu+6mcDfw/KqIfjl03ue
idFn1RLEleU/qXfcDyGT6+XedjkFY5rfJ+BGR+NU+By4Sw+Q807OsfruEj6dRlTAbI4H7vPsLNqQ
HgAMrQINjx7WcprMF7TqtXdKPDlwfWQwcMvRq5BIRO97/Lp1e/3fy/yfhEVVRVVFVVfeHL5Ufk5M
NabBepgddA0Hm8ID+IwsMIp7/iOBQugCILIYkKBPVj9Bm9qiomqUe/GgUIVEQ9N9duxfSaBzNNWV
Fx7KQzPjD5xB559eNpuJCB1S55ek69xDmQQsnOvDDc0QmWqFQxEyUIe61SZpKDMlkk0yBVQMUs1k
gaSGKyfbNmRh5E/WdzRhTq/vmhKbKYQth6XMx5t7tLdBtVrUMcyzSUFNFyhsu58xsZDlmJ7omhDt
rqbAHq7jrzLnYbGhE61PTBwJMDXXU92BWh17B7eVp0nxIXZnwcSk8ToAYXz9P0jo7b4Wbq5DJ1Qh
GDMx1Mlol7hm6FOfkCYbEe7ACP8C8h9GcPEQ8d/HY/nsBt5c9LdLbJAjIPIGASgOTXJPHI21IyHZ
CAi2QSTqCxWVBIpC1Rc0IeT6mQ4O3VhR6ByJA4RSN/Qjk8wgHfMAxzQiuBoT4fczPodAuXjOXUFC
/5bzbdElD5PLYBgLjvBUTQ9XE39eXKaZm0G+wfw4mM4QyMBB6p28CgsNsDHx8BADpkZTKCi0NyEV
phofm37NaC/xN5CAIkJGS4kSIYreFhYnRHmziQJ2EShz9o95hBuEoZARSch9gIEAYwt0UCrMwMxh
UUOUJ4sO5MKrt2zdIe5ix3SZeA3UIBRBIGECBBZfa5XdYQHlw76vQkx6sCG7kMrWK5hH0UZ4nXbp
0OijIDYBz1trynvC9jp9pEZJvIyjqzxZLu/fpgfLKsafV0ivwkZGbi9NsmA4C9v9gLiU3DfccBwK
QGReu/3eAxcboLqEexgfpUtWHqFL2eg9mAWMXLuKCWrE8B1Txbw6dSgXcx7xTVu1vw/IxKBIePj4
CXV0KnAINxzIQqHArcVhTgbIFKACEAAXhcIJ2cLAz+JrSW+pL10mNjj8E9wIG/QxxFrV2LfhHflo
TzFw/FOGqb8+DfoAEEhMk6WcKmfijqCMUrLy3UMDEI7isnbjwfqX0y+7UMAiI9oISDPKwPMnKQFV
JGKsQEA1jIhiBQQ2mws5BScBuY+e4SUNTcNyoowyBPUeQWYYI4x/FiY1EL+RiExV4na5s7YmJqiq
GQWkHgjpQUFtJJnANqY+Xi414+JVn9qkYMEigkUiwiqEkQZBggpBZIMYsBGQFIpIRWMgAjIMQiwF
JJCKsgxJFhFJFgLJFgSLJIoIICCIDFBBBBFGQQkYjEZz+mzrnjOMDMDlMGE6ggwCEmZQ3yOz74D4
9R/hbjbbborde5+vbScrufUsgwID0iTeasynq5vFt5rert0Nv1zMsbhtQcxt8LGlO9wN37dxgaKC
Ldfekvq6/RnsxrtyX2u1oo3nrjtfoPdjPodPca7u6SDIJ9Q+37uv2kOUJv4n42CCbBamBVyD9EQC
2/YYJn+fZPJrerD6cyW4EkJRoxIZA7DsJKjoHkMIBJo4mCBw2FnMRsN1jyjiNXBAcrSZxjobmYQB
hGC9RUzx4hxWBv0gDikZ66xEQLqNrdh2X4yYBCjUtaFstjfs7EmzWOEyDOIyBqBIth9BAfL9kK3L
4dlpQED/I68X7hPvD8gtPRMhm427kPswxiMEEjLhmEOR/aAUYaBqpGBGB5nSvFAyj1b74QDGBUIh
FaIKQyhITXfoW31keAcGKOGnZoVNkt/des9D7wInGB+IkECmgqo2RDF/Z1KBKQaqRVLA/kR+/yxe
rUaA69qEDjBbgYOaMEjOzlQdEbXWBFGBiiHqMHG2XtyzeQh17NnVg+YwazJO39UuSp0uLemfepQB
DYP2ACsBEiB/B1PQeCy6so7GZHE/3nwfQiKCLXp1/n8XzBiIRwD9/DDPfBOtUY3vIPD46P5btaw5
Gu/OtOy3UvZ2MEZA/Nu73pc/frtp1KdmQQUGSBSjFVf3Addevg6+Qdfgp5Z8ed8bY5seEsfEKgTf
s4POK84i4S8AGjKCjY68Gxa5ZN235k9n4aZ23SfCWeJz7+0ebFLwoDUooigsGJERFZFlYLCiCSJa
SsT9XreNzwmJ5nYKnjNHGuX9eialMsD80WgOAbCyeLViHPQB0V+ETPj3CNGMRQ+k38faGeOeij45
FHQ4GBeHUbNdEdmBDfLWGstTkFVeTXjDiJheWuhJjc91J+Gqpr9h8C++5tk3r7rHE4z1MyhchoNB
5LGej2vb0Z5SxpnDVyVPHiAVootDYp9xyFh1QmMY7OWlqgMRiYf9UZqpr7jlqcHP9FVcYKfCpQ0/
Md1L7CDg8j0OmnBxF9DCG9PaQtHhwpz29gWFv5Hjh+6tvu9xkawL/z40dBcCBgQGPR1dDrlkQEZH
/FAjj93F+Zud7r+JtExPsB8M5+rUXAWaEBNLwQDK6oU9UD/CWf9YA+AR+zO7/2gzi8GYMGC8+v9i
sZtT8LTHrzr29gJhQ8fNgzAUJmyB/qYEHCg5xLH2l/MwZeX9wMfeBCFWjD7KpqflDw8nr5j8KXAq
CpeG3M3K1VJD96s/zDxtkgSO1JjYgbH4kPrEmap+rJ7oG+55F513p4f/YPqCmh7bp8HnZfKoYHbq
S6Ex/hjOfW/+mU6Udqofj6H093FYPsZKIiGKQ8bCPI7BeFYAPP4ioEx+r8rB4GP41+Xi61AxHs4J
ljQY6SAUBQKnoOXvJ6mnQBLPJFUOm8KB1Yzey9dgZ3+2D3XoOGmXlTc0MXccMjFEmyTD2yJ/oNvi
PJv0kjkei/D1zavf4uH5E2PBEH2R4ODKZfWoCcqHt+xviTyzNp+YnkMSQEeUqKuAgimclcoHoOC/
aE3lo5c91dBHn4zeZdlmFG7m5uCG15GkPfAgZLLEjFY+gV7TCftCTjYMJLjIGBBLpr5dKHt6tx4P
1x3c/RXKTbhrPty4iZJwCShCPHw56BaHj+dLZj4z+mSAGVQ0ACERkHYXb911DChruXlsGSX5nRV0
1cG8PagzDD3zcYx37cff9cnwPRS9XKaDxqh8XKcZuEb2tv1YGQ8UEmLFmiLpmSesK6tsywR85mXZ
q69ekTohtQJfUNpPWIU6RFaRdwCWkBxVZfZZXqoDuruqciiNgcAFlwT4YZZN7TFoNhdnM9tFm0lU
y1jq9901xwzviGSgI2lAI5w8zgC6BiUiXD2j4A0vCaprHxJgf81XbdnsW05U5/WwMgJDoAQKg2wn
mQkw6yF4HW4YAcIKeEOm9rFWhqkotAzEzv+XVlwKXs4XLZuULewo2r7Mk2H6zjjcyL/jD778PHdw
YSdtzSr314ya+NacdDbatuk1M/X8yvT5mLiASAyUUUSY0dmF7RkstNt5zp+CclpmUa+Uv5Dnw6EA
4kyzOuW0z2e7FuXUpn80x8Sa8sseFZkVvFsPJhLTy5W0KJi+P5+IUZMvqUBwD7zdu3/F5Cum6EXr
YwpMTpcPWDD5bLaVeZVRN0v3abLFzcI7PieI1eJ1MAYEKuWA+shApFUx5pn/X6PGhAvyBwC6j40c
8/zdAMEMD211+XO21nUdRb1HxHl457Oi+oLPtOFPadnCwHkJHvpdVst8mzSTGrPpttvqtxZ5FBRL
pBDOEiqIYCAL+ZAxY4CdFFEt7dubudlrycOrOMz/S8h5mRV4f4tcjPAthz+ELm6tPRoYw7dV14zo
SwQhIRJAwRIRPkYjKLFmxFfjFCxaturGC/hnDHE4/FzIWTmLoDnjOQ0Jre9IMJpkQQqTLxR72obJ
50DBCerg7W/AD1dg+BKLF+v5E2K6xE6yPcnH1njegxGTaOL2/Nz3Ge5AaSQbgMG/DexCSqoJTPuO
lkH4j+our3eVEKxyUeIQGOlBUdEgOqmSgYQzf2hfyaSPwL+uBIFQB5SUk8iSkD4T4aNoiii4TaGu
xe78nR7vdybPQ7J5ZghtmfaWWpdhvea74ZHvPnzIYRPltu0blGLjZ3n28CxMePK6WsI+sIPs40Qm
mQhEmJKwLL5GVgcZZJMM4ptO9oFiSIgjAUiLLQr9l+PPmEN+DGXdx+KWdC4+VhsEO1wKKM6fl5Vh
5buAMvLNV3Bcblqf7FFk1XflsdOCliunSS1HO9advi3RyULS+eJOTJ0OnZ1eNWOroE/JveD2u0zX
EKaDC6OQlgMpxv7cPrSbZF7wDf48nadw1j5/X1k2CbU4Olshh5B5gMo0hkh2Bh5pyk3+iznRQ794
Fbx8LqPdaI4gDyhBRKCjGQhAmaMjAPwBWFh1FijIkHCgtbYQ5ilcU0yy5/POx4B3nrtnAMjj7zls
4uCWDBD9TEwu5EfPQkcIK79DmEUISgj+tFHgByHiznRH7R1IP1azBvQ8EMl/CBechce1wHYwiqV9
2JVYE76dOu+LeFHTDI55zvd3or8MQ37vD8jb+T9MIc/Yw4eUt1CIx7BR/vaYnB47oPUoDyx7xHwc
Oo7eCkdOT4XzTZJl3yd/TtxvST242vhhodJg5YXbunTPBi3NftkshvIdc9UxlT21XZnwZup+7D1y
YHwt5SY+o2x6LwwBBHE40C14fCHeHu7UdvWvcH/d5pj8wA4ORTBgGfwEymWmHs1GMWQU2Fixs/L2
DWBqVkKb3LYFED1/p0Tu7Qd4bcV55dnATq4F9uwqTMoKcXTXT1w27gclqPrGNltibj7IW1nUZ3z1
eUUVHML3c1648vbfgkEnAoonEhv7t3l9x1Zcb0VoAQa4gFg04HQ+L4N69PE00edW2P0H1c6dn0mR
0BVoZoavkTI4nLp4X+PPUTE5iOcohqNB0FD6OfLSx2Y4kI4+2zoI2yNeN/dL+k3/IhLkJVZQpwPM
UIc+4wNxOnxbyIC5JrNIE6JmRGYJBCq6Y66cDkFozWk0nqnqno9vYG28cDqEe6AQ5/hLHURheX5D
bboynj4kF31/RexWnxSruR1+dBt+J9SD/TrXZ2WnoNmOdtT6dWYY5JsjpOMQ8TUtzG4ibIiF8tLh
WKDJ47b4vL85Wgw2BsK8/V0Hr1ODH94h8XX39YqABkSiByPsRg/Foa7SL13AtRBEfsbwcOKChGIl
jsLpaOQliaJmCTl17IoRC0TiBCRSDIEKSAcEagbjzDgpnCVMj/XrAU9IqLk5hzeM1cS8B7fZxB3j
MRYfqMCcwgY5Q2mzvIIKzEQ94dXeXVlhib2vHP0T1mW1rGaaidiEY8IBSQH5A+IFSCCVoM0Yj4dh
MJHjDwFgmgc8jcA8CA0QeaAwD9BGwFQ9wyDAsY60YRFgg9HBZE90N2QEmCFnBwzxwZPc+kq3qpcv
Rs/HX6eOm/bN66vb9dXd1w7J1huzdDfg4GTqD4+jPIOWPWA6QS9jnz7HXk91Ihrs24sOBC1C2/vC
P1NCLhon43IkH8eAKI3m6UTA91Da+9EuY/HgbAzArfjWHWwEVZyCExncHEH+k3hxCMGDD8UdP8Fq
c3DFiM+gAMYMgJUGrt4GEEiODCQMvTbWZBpMoyabNk7hEBD0fHR3Hs9fC633KbLUPn6YYBLEteiQ
KqgkR33xa56vH5Q8gIjqDBcIa/mPWob7uK46fFMWr06sNOQfdR0p0T0nCN9zIiUfh1wC2BH4wRD+
0vTwnoTcaqGb8B1LkPLQno53E03N917fJL5dBQTSCeUfVtDG3GjZDxx6cEPy+JKz+APuB9C69jqX
BcELSO/n1lHc5g4G4WCKZYDb3UPKR4VUkPYYk8jIz67YC9nOoR3XmduuNxRBgciPyvh13wkZW6OH
JAcdA5/vuMBi3ME7VUJRMWKMpZ6sF/TMZMc6O3cXDX1WLJg5JXLsgvVnID3VX7deubc+wcmJN3cZ
7NyceHVc3BnR7MzM5QkSvCoZvIILJRmATwUTqEliIg8dzEiHt+zUBZ4mcO5sCBXoRFTrJp3MEBwC
BbJm/KbCqjLwGpCfpM9WUwNQ7bua14PH3db5ZWeFR6oXwfF9RPrfIREUR/Vz2T+ETsJ7H2Jv7Ppe
wdzq+R8Eknkg5wrU4AtmJ5olBqZQc6BlOWc3tBCUIEBnrIS6egGTXZ1+OysZxKmJLERH4eBjjALp
+wCwO36Y5cQDgNNBenjyUSEJ9OId1f1sIHBw+iJ6IBQj+ZPGUI2ENfBDmk/PK+Myzgd5u3azb/5k
k2HVpgwqY2Mk6dbFgLoSLPGtrZeiy+r/HG2xDqi+3tGxgPDBfzJSH9Y3F6m0B/WpSM/qxbP05A3A
qvOiBFZOo/Aqh1B8Rhj57WMWGRRQQhRRQQSlgG+OesvOT6z9ZdIo5Yenwpr3CrT8F6s+rHphYzzh
5tlWDAUWoLG3c+h6j6T5Sw9FStPYdivogJjnT2ziLAmyhEAhgeyclLbEDNInNGbOwgAvw/KQeFSB
M8bgwYUXdQuYpoUegIyuzyVvFW2eCf5jQepUO7AUAEgoRognhH8O9fzeAwyRbLYD30e/vM2b+Hj6
NSfD6OZyHaqps8riri6nyO0RFR2DcyD0m4zttyrjRcpah751auaxwO8GUOduf1hoCIMMf4DrF7Cp
h+Ih1qKruqmoFoqMmEze6QzeIqQFpFRA4H8wn81FUIxgdwLFzYgt55XtB2DZDEyC8N+tjGtbEOGY
ZzDR+l/97hcymgSd8MOgrIuv6UWR4U+VIgK/NxAnmBm/Ae6XzhZ/e/zLyx/gBH7ORKGgrEhgYchp
gwTUxLKJAT9yDRcXsCVO5K/fLu6c/nkPV/WC/I4IhfQiLQVQgyzh3MFW4RjJ5dBvOQcC0aUiozRA
0BWkS8dYGAUEhmXQn+YzvB1IFgIO/sJtVkdkQY6B3gUiJ10oAE/dlr9vxRoCvBKPkwlUJky1aRgg
8FQ5PGrLEVHgixLEw2KZCwufzVD85kUzz0m8AOF4ggU9cb5jmwoA8TDjJtlIGhUqGgwegF2IkM1R
sRsqnKJG2WVsKLVJ9kOLcGHQr2ikPt1QJi1siaf8ncH7lKB8BSCYHsxfsiT9MtbT77OSwDzC407M
eMhQbL8CMBLiFGh+kJCDo5jDVwgGsi3IBv1hwjY6cYuU6+Yy2wLbcqL9cxVuiv7A3bXdKvE2FGQJ
IcooweleIJUwFWajfcl12HrRfAd8B7HJhiLHDk9OOT12Hyb9Z6F+tLalXlLmQqpxnLuNbY8HLATg
4lGYUVbFJwnbMio6kXcpQifegZkMlAsfY3hi5atxx/CMhgBxgeDHbKcnpBwYJ086gyAnbJgwBQEG
90zAE6T2J7DedpYjyoryhctVQoW/xaFsYUUogD/C6ZknBIIyyWDIJG/fKUz3ZRgvFC+vNzkQ2DA2
lRpGAjEBEPlOgmIaAwpiSevexCM0cMw8M/GXDIbZJRWwo2nnSzvxmRkYIk6tEpGYCAs89xtirHXe
dgfmo9HiCdKmB37sbioQQYAjRR0J0EhYsQ8Mtm7kOU7QlYzy4/Qn3pZPwTfnzI6VXMv9+uDDAudf
TrfRkm+FEz/SjBkeIdnwOdP5r0e7RMh1NVlnnn3h+vZ7eX7+TOtu3rWDhfrtbFQO4m4RtV3mmcsk
suq98eW1THRWXgmnzSGv98dyRGOk5kiEA3KkFgxDFOZVSck/FIoYdAc4axzHFBhsZDsfvrPGDMvn
JX8FjBITGS1jANtTDM8909m/y+w7DcHV4wkjpRr1FGHD407nsIz8ZGdz7tyeXwnBzyVrWtbaUpXu
HvYPyl0MPC2kC9UEg1VCPwSkO3s2155Hb1SGeL4ljJap29+McLZ1aBUGcc9yBqGi/OUpn8dnsmY/
PrDclhyz5Hh7f9L88d/sToDUNu0aVbCo9YQRpSAxbyRhIRYRYSTMUgQW6yoNjqzdcxnlUl6b2Oe5
xyNbq0xUPAdqsEBIJShPjv27feFJO+aPUc6+qyB0G3L9ya958akger7JD6eqpCEJDPjscOw43CGR
S3OkybcJw5uYOfwmM/f4dF4fYS1jhyeiHJDukwYiJwdfLlGGV8tkL1CtuHnWRpNA8N6bIICwoDB+
A4aQiQiLvXP4fGLRF0RC8WHfBIZMNgBgGBZLOiMb74M6eX5td9VcMgPv7wqVcSy3C9FgtaQpoFID
EDmN5RFMgLlyDgDbWqthK5zsJjan4P3HfsMh6qEhzS69RHcLcSLg/AEYvB4upAqmzZf2mHB+Tc3N
CJNeDk4P47pMBOA9ZqvTgikgNQkD+nt4bcwiKROpcnY9ftw38BGVSBEODAIPxg1BRCQV18pDaWFK
AIbRHqPFGSSxYCBz80iYpYuIWXdzgfPov4ZezrMq9weo2dKPRJIQhWVuXYxJz+Is2HKgtQ7gOVn0
GAmKjAzxPLQ00dMfYFoG4JUOhqlIc6Mk95dJs8T8QnwoF+4TyJ4Zfs0cCIqqwREGLGB62iAqJSFC
gmttoWmCIohFVVREQZEWRjGDW2N8+vPa+02c7zcDmTiVOSV6q7T9pe98S24kPxBp7nX/AOQfakv4
fHIk3rxtf6JmnuS90D3TmOqBV7k5hEN+9awFk1FwsYeXgE/TpJFB9dg4DkjA+kwSBwnZJGpmiEA1
PzNOR4KjgTLswn2dj4/j1iQbE4D9+6uyMtM8BDx5FFeS5ZPlIeqY2Vu6kOskCWDn5Dv9WzGwqc7b
rDJPhJJ8xTtSkkRKgTx76z7eez0ZhBEi4lKhVgkjPh88+v0dU9la2wGxXdCoA3CdPof2n+H0f+ZV
pm82DrezfN0QFFPZHEHG5AqBBnlWAg5VCH5oVzHyNxfJ/xk5xKYvQmz50Y2cIiPwoSmW/bsJAw0e
1oSOjq+R/HI7ro4ECukx1MHTzG3mSkBSxiwPccU01ogZYqnlloF6dBkIiZiEKQDGRxIgYYg3irll
IEhGzYQqU1ZqXCFIxI8hoMhBhBIyXFKHohPHlho1UiAdZHIAM6mRoUtxLipB1QLWHce/MLA3wS+D
AYTyEAxkDqQsnYbig0EIQHD7/p/NdaOIPBjgPkOIKRjEYJALSoe0yTXaiguAPCKHA57hQsnZneRU
JsYC9QClMCsASTlJQQVFRYSQEZMJJVlJDTiVwgwiTBDnGcmgyEEIJEdkh68DBD15263DSLgRkkMF
ZAJtEkiBDhBwsnbsaA2TQiAIgQElovveBtZG5BurciJSNiDjiFjCS6lizQKRYNahtZ5vLOvLFb/N
6cJ8UiETkPFB9JBUSuoMJM8AvhDn6woDpym2yzQO+dvBS8s6VIGS+AcbYMuNd2eBsOI98LTQJyRM
r1RAzMqiUaHbIYg4Gu6a9n89RueORaWCVxCL8uuIwIxObQ0vev+ZqOvjSj/vzGzgxBGWwJAmdXeq
ay+O0DQybNqmbmjWIOtcZTyKkWvBogDY0CGdABHmnPR4eIjs4F8BAEJe6YORC3tqmIYJggPy4Ok8
HN+DA4U52ZZqAfd7nDCHq6sdjMwx0oYOhAoMTYmJD5e2zfdxjjwyxNDQPpwOtfdEZBAkZBJFFJEX
Gq9PyFz8xeRD0fzbQ6yr9l/+31l/7x3WsAIEJCEFisYMfzoVgqxgKIv1sogKThJRiICKigwRisf/
klUEVIpIIDIsRi/KdTphpVVViqgxFiq/rpREVfl2bnznu+w55VVVUVERFF21VVVVVsoUYnY/TRKY
HNAkRUiRESSZQ/qQciAe4I+yVD/Ao8+RfELhAxsP0BYH8YmcsxA/L0H+Bf5//Uf/QK/49f4f9naG
mXg25US/7p23W4RJmOQzTuU6ayObrWNmi5B6XuSOVAlOawcq06TLNjm7eXk6Z7XT223qZnLV2VKt
k4qtau66m7OW8OiZ2q1SKmp1aj1B6Wusm6xrQ93djMnHayw33UVxMjCxL2903QF1dcTTF3jbQq7W
Odzrw6oU894cr2hm93cddHN7EKTo8bTq6sG53TKp33XOUKG5fdTPCgrwySxNSEucu9XIGaGoasd1
zY4cNmzg6ZWFTXdPKm72QniXKTV04fClOWNZvLCWppYRfDrPbcyH2XNWJQq9mazJS63q01NbwVTl
WHgnidFK9zK1TPZTFFZfWc6tJIRmiJsXRR4OZzewbm50mePcZWCVSQtKzlZvAtPkxV3T0Waq1a3q
vVK09m3hCpaqszwKYWXmtBjMa4aH1xlaEVxlFduW8B53p0zNaDuTTnD2ZLOSXkqCdHUKMpdo4y+d
5MncWYOvKntfDrhVp3q6/6v24aXvCizD5ac5eZU3oXMIZzV3cydcS3L1zObTp5ut9c+X8/5T7z5t
fxn0FQUF+wQoZ5EAaqRxQfl9dBvdm83WTnOYLlJxJgxM/tMBCHGRFCDcQEICtPP3cPIC1sIDIqjg
eNXiCGveS7N9tl5gbSgcTU52QUedwSIkg1QCMqBkwLgBBVYjgEL6AwonrWTANyGEDi03NzIO+i9G
TttOOeNWpYOZQjdHK2RsomBUgDBTXVEaeACBUCOO3F1EgkJ9eZ0YNihgagTCkjiLmFA5wBTHaLmB
uDKq4J0dFbXAtXEjBQyKjRzkJo1JaHXaAWHAbhRhsSk6mchhoQJBgImecXlCoJihmZQA3A4GgJUJ
UDBmxmoaphgUAhwCEDAnULCGoYS5lsfLtm/knsOn8TqIKpAqBQJGCgeYgSBSSQMGgTpiorCEgYoM
gbhZz6Q9Z5NBFfY1WCCMvs9uaGz2+yv23Kv/KRe1cSJQZWKEZDPTLB49WCx+6FQTBxTpepQC1FEU
CzAhEPlRlKmnKCxAFq4IKnJlomAiI4AnjRAhkZLt2KAs7bOuLIoCmbuW1lYt5utay8UC46pcOCp1
3zFYakgMNr3EpjbmBOTJSiJbYmZYYgGIAkwBfnQMg1DbKjXMYOrmwmkVrZJ3SsYxmuku3sosEXqy
sZuzotzjMcsKMcuZmRagrHFtFrE1cNaLrVSWytyylhyiIorAgoSKEVQFjLqUt3go5TN5izk25DRl
kpxxxbLK6RdXTlzAjFS0ZCECRpEQOTljpbZ5tWr4/wWwdGX6f7teLf2eyR/0+Wvr0jTHJ3/dXzr2
T/hht/s8sty/HKwnxj6/CHXE547Dr8PDxts+Pfs6db9/j4TjTilhngdPX/xu+fnTy7a/2cajLrny
4j4P7bea9Otq032OWJ9qS55C9vCfphyxhkIfnHb4N5QhJPGSeu8Z18V71NGiOlfHfzy0e/bt08oe
to7t6+VJeG3PJ58MlTyl4184+u3b4eHoz9XlPaGNd1fhwlR260GIvZ83Of3PxXrm9g1OrpTseY8/
4pn0a3j49Oi6LaHnsnZNqdk+ZudzTydtyypfLhA9pZblZ9zVPIO03gqdzPT3ce3p6+O/nXrt603d
4Ov5c+uutLKMbO8Lu+mPjDww5HP8O5+N+mXefq52e/n28r+METFfgngdfNp7xt1p0+M09fHrfhOu
vTM/RrLx38OOr/gOfMo+mwSfrt2tt511rXsvlP2d6cO9k26n2cmfhqXXv0Q/bjWBnfu6G/q3Xr08
zSb9/Hsu467xr7eXj4esY1289/TMuLdvH4eKudTPV8/WdeJ/C0G31w7t63CTMfCgzPl62OfQdkx5
bZwF9+fS0Oe3DCmNH7H5Py/jfq7faN/NuHy9ePSlh6WpF7neF5u1Ws7JCu/FLzh40rtzScY7Lfzk
5m3e702tt0f5eU6e3tLfJ5pCYnbHJ6Pt0rtWtYo3KeHRzp25t2kvT4t551rjc0zvu/Z3lfHnx5+v
hS1g2Oh2me3rsyZFla9enJx0y+Lltu/v4bS2n0Xk0o5ub+EdWjk+OjRP0hf0l6dunF69MbZfoT44
+FfhWb3V648I169u3xpmw97eB9/GtL9tW5xZMP4d79+N3eE+HNdUPxp6xtJL0V8oKrTVuJfGbmju
op1OaOnr/BXmq/srGsYTkVI4rsfN63dphZwe7WdXHUfbT2u054OGbNdhRL5ubRj1TaZtZE5dt7vt
4Oye9ZwoqBZtYXeBFkcp3Ktlt1vmF1xlzuF0a9M5xvLBYTLdSL4dahZfMtqhg2OsbzHJx1+ZN+IO
1qmzKtaBeJnjNGD5uuPXFjCXyxK9V3fY6/U3O75WuGcymKGdjsZPLRU67E8zl+hL4fWWV2d77uhj
sPVpjGeppkrXV2M4iUxjSNnXD1t4e4trxL71dGOYUY5xuYxd31kreWfq33G+9zjnKc7bdPOMJjMi
GQwup6uITK93zJpva1rUm2DfHGZ0lMbyDVDvd85zLxsXzLsy4oVBva4w7nO5jgTDbVRODVUCWFqc
amMU77Vpwz708ZvVcXncPLVKsObdkTsLqT4kLuHO9mFYTvIa98mE1qu3Gu7jXdB6jatl9nzrzm22
r9rE7ijfDzldxLcSLxdHt8Z1F51jMY73edhJ5edbrGUvu75gVR5Y7WZ7eFRVhYo2YY7zGxWZWrfT
8Osvx1ra9dO45jOHxkaepRedl932BXVS9zNjMYO51rvLPe6uq3voM8LypkTndzxI42kTO8Ppkmdw
Jy3/Ah/r/7tvQ2EkIRn6S9hn+lJVwpPHu+afx3Cp4/pLe/9H2HDZPsQx25X+ehMuH22OBdj+kThn
YP21wNdavgFHBj/oMfyMAbPAQTMzrYT/bU3j/L5cB14xI/5Uk0fskoV5VW8un+9SKx7SnGUz6T/4
DCw1/pa1/u8vLy8K+lP1U/398G1P6ngf5w/1RkIPHqfNH27K6hv4/gkyH8QeTcQoJGcfP2MGh4Nd
shfz/gK+lNr7uWlgDx5ba9f2yf/BGqB+qIFR/F0FCdaOTrIRBn9f+DAyJkFC+gjXQvoKVEISMhgb
g0IeUiT+3yda01nBBpy/+LgQ3/kLkQQ5iHYHrWwsC/tmDBiRqTbvANTbk7h7QsRI2IFDH95+By/x
68QMUf6SQz2JPkiqDZIjMJCQhQCKKLGqbf5NT5TDoGUH4bKt/N1eG8e5IPrWKT/n9b/Ef8P69IiJ
oO+RuNnA3mht9wnYF1AMx/bC/9++jp+dnf3/3a/qf31Zv7v7PjV/9nzP+Q/L1/vzrr+u/H64H27R
5/qtYxWNG9E48Ojv545brxx3u6feHP5vf3/uht+DYr2HOzv3es/Gs/79C3THh5d+jrelO+3l7bDS
P8tlh58Cq+3wguYY28+2/jq3HpLvz63t5iS/anl01fjo/3xP19642v349v8PL4Pfjac/Ta49j9Op
5w/q6PtKvw+POOb+/PlT2PwfafbpH0vf3TqfxnTn4+/x9w7jv4+d3e3j39lpf4Z6Pt4+nn8Ph653
7+NY/DKb+jh15ef5ZP/iUfEWVQsIkKiUDFgLCCwFhbLAaKkoRYKKSFtJJVZJbayDKWilKFYlEpIW
lKVKSslYElQgpJULIyDIISsktQaSBVGJWyW0CiAf8WQMD9aaEMIFpWMhG2LAoRgxFAUIpJRhAFgs
StbQKMBlFYykliQGQ/gMKAgjH32U1C7GgAwBDC0kohJDeCKqsoQmDJKQVQaIIQqhQqKjCqBKiDIo
kWqQWoI0/siUiV/1W17rICpICrCCrTAWoLIItNFKAtSoKySsojSyLRIBRkJFkkY0jCMKWBJEZAgC
JJAY1JaCWCpgqhIWSFEYFJFCiIf61StmilRSQhFUGUUpUWJAWQf9aS1mQD/EgTERhAcoAFksKFgh
AA4rFjcEJJ/xGUENGgQRERERExomQhIzFIlkBSRZWUsKUUSARuFP6T+01n5tfzcaWH7n/Df6zIfo
BH9t/944iMU/D77BZIqf1oAQJCIIEf84M/2/9qbSqogqp9/l+YNhDb+fAf7/8aKwMqV57RkmpQ+/
V6P35/oKq/7qqfxT6f032uzYBb8ywclh9xcXyxX/v/bQ/0LAOlzNDifqNYfZWRktOd0Ga4B1Lbo5
5yftX4li5aGuJRvOqnSaY4W/w6TXcSCAGFAqCeWwR6L3UY8CkNVctEIS5c9BMoVdWNtLDSYWgaji
EOzhMPH/1pcvn+oMy95IE1E/m7TTBhTGQUN4Ohe1k0UPbuk0w0b4p6t7PxfnTSX6PVfF2H/zTZnY
cH/v+lA9omVWIIQ6ohGOM91p/HZAzTE/9G/xi4AwtTOipr0q3njquUV/fg5jbllbgWJnaruSYn5R
/iht4uNI8rpREtWXmtndLl7pm/rtUtfJlWy8zx/lN5du8hd6udJ17c8tNmu+Jib4Yg7RuVa+dXmT
j6p/0r3fXqHdTkZD9UxY1Og5CkSJysnARWBIw5cGioiiJErAiIYQ8mL1QRUSWFjmGJl1UUHSgL5d
Bmb368pvfsZnHhvkwqQU5SacXV5OOt87fKcTPG0bxez+Wa12osgiRYXWek16PIm4nihf0J9erZ1d
s8I1bO93kK18xE5pzx4yc8g+HxqpHnowyGrKYPWSr50i+ABnIk+ZLzoycAlKWJ8cOuu2w9OZ27U0
s5oUmUmOlQkBoNxOEezKaYYIAdBpXTWMITpOBgfV5+DA0CyNlbVCp6zm8mus2mztyYpDjmdpo17m
XlhQSfjvSwGBiMtNns7YTxxTQ8ZZ7xFX7+dVyms53s1R91Z5a8YJ/H0akz39aCPiN+h+A8/dFvid
rdV/QX2IeIXCe6ooUDZsjEyg1II+zEsaSY1AluEMGeQJUMYYcH6lsuoUA+rIBg2YxreoDmOSnCqi
4GK2FBf/NMEoo0kGRbMWoYkU01/DFBzylLo8QayhSYkx5q30FdQw/aglIGZmobjeGdpg7MRKL/gi
h/4o5bzi9/bjlDAc+0EeDQh9n3DgP3aLKbRMGDEOzDSoY/wMUoSkCgKQjKxg+T68NP8mjyiRTBgo
8UWeyuvI15FKOz5MNs0HOGV9DkLv8t0er8JkMLzB+bJgVdUEnP/u/Fz44/ym+8OoSfZznz87VVRQ
UMwUgM1p3XKgwMT+oRxuN0gNNWbgzDjYe/CcBihucAk0ak1YNEjBEmCUmljUB5ZD3h32NhwWidpX
dVrk1ph1S0b8Nm7S3H6KV8zJvg66qgMjD07f/P/VvDyneck5WlDzVJpnAzaiS+XFcj7kYsdFhweD
RoX0sUsFtwIXwyMVxiYeVBxDQx7FvqTeyo1+dPmM9R368E6hwerJA1GqqGee8Nr7scrOsKzPDM2A
aRtJFQk90qJaFVkhwVOF5MyBvD5mYHoWhvbZNDDsmM2OjfmFDUSzX3F1nzA8HRyZ3iduun3Bh7sg
EogIgDwgtPlyUZwgDIhB9L7NOQnyJFGZrKhm/P+qSKy0DKEUIYH+eaJw3BuWH+UWcgmMcZCk+KDu
hPYE2DLOz2fNur08CSnq0ubPlczw4zu+GdGU4/CH2wyHcSa6PB5tzssN4NE/xJ5e4+Hma6O5276A
0FCyGilpSxLwdOrLBeFGViG8yM3Iw5GwpqfD9uRvMzMmRR3Z6DBNguZlEksTe/fgaYFXA5Y54Jjr
W0rJCHH1Z2wMTMoLkNYP0rEs9uO7Lplrbys7J567YPBoxNK84dpk6i8znqjuHKHiBEH7GI3ghouM
Cg+4g1JEDwcuNfl+QA4EgQcF0bSzL/QIC/6QDA2JvYwEdO6juUBRKFZ8MjWXCzrfFnRMuwjWDPMS
4Q/wpC0SEcy5QTekrdFMouc6LFVZ+QB5KMAIPlg3MuNtCSQhpAXrUCIbMFhc6y1HQ1wOJV4FbdNk
3Rwmov88w93tkwDWBrloX168UsE3DDWqY6ZIS0wVa1FOo4NsTKzeNm+Ts7DLe4n8v+kq7mJFa1LZ
zgE1hgGiVwgPEJvC/c+kOjYdw7VdnO9cxO8BDW6IIOqeq0kEBAz/qFKtvYYUz1MmhfFCBj/DKwag
x08H1ENFGVO0vl6qcboqq5k+QHgwvJh38x/Qf0A/WBRFnQEyIgQIgGBzpgzLIjTokqAoyNTM7LYG
MTMcw5+DmKaPLLOGRnZa2NcPtMu9knEETJbYfh/2DIT7XgKRzI05BBIfCFlcIZqChlUmMmhC94kj
hSFEkoTIPZG60oL0+OEGj4e0H11YNlj+ZD7aLcaNDj7iUKFOKPxxVIavOu01gdFlkY6NFwpTMA7n
RZDshyQC+JfjCEbukrMMm8u5S9JpqRo2Mgmu2TnqY5wttaWsSJ7QkNsg2KGnEd1zeZGo8KNbUHKP
LY2J1PWBgJcuUzLFulzY2NzuMYDMnGdUOJAogGpyNTmX4MrDELW++bNgfMXHGAiObDlCD+g99DB9
1hQRZQNxnxH4qSEIQhkNScBHG/ePKEwPpvr4JxbJBI+EEoGK/DQHFdYQ3YdBCoFwVujGCiJd2QEH
lx9kp6+QG8b+V9oe4lCV59xwflOtM80WGoHBLjDHloWUUZZkxYXNBoSaEqRT5R83zODiZ36wENQR
YaImOMxvTQmBJggc5KwP/EJQs3NhgTczDz52eBOgYH2JOFYddpdgoYI4MeIHAYwCl3jR4xPog67a
7Ccrnlj2W4z/KH3os+uypFEMr/8AgHvZFd0NOXLaCqA30Qjin3MIbjv+yetVnTkjhxEvP3jwCYP+
wbxTHz+xpjjH6TKx918dVpfE+Xi/Voc43+HuBO/JTvdl0aT0gGenyQk/dBzXNV7nUVcAsUqfWH61
c+YXxc3FBv4waiF5Of/xMEPqeYJc4F1/0mS2zU8749KYfWibCtQY/CCURJKhf9P6Q1noA7/j90Ck
ZGHTVX+vDE1Phb8KB8mEhL0q7l9a7O9wJRf8Fk+uQcJvkzP8xFoAnBppYBCMVmUjyIvORpmaPJxA
dR1Expg8wZmDygQ4eikLMYyih0Y6gr/oi4bYASKN1K53b4KImJn4g8GUpbImBtTeGyEOcn+lGL1y
uxblxvpQ96GX/G//nXg6BEDSC+EXFk+icC8xJ8LBh9JOmYG7+tJTMdNkd1kiaGZ4D4WU2YqslVf+
boq8g57EGMiPIOoqDBjsN5T/5kP05HbMH0+jJJ6OM8ODQDE+Gxmi/7D2mJLsDJW+JKvHfov3jWtJ
B5mYDLgHO8DMO/2drZBirnOr/QZcHwhWp0z5eIRxbS6xcHvE1MwxGELrYlyP0J56AQwZH33nSeqr
EYMF1MWkKC45Jzp7SLzFeX2h88dKOmfma7Ds2RZxgaCGDJCJYx3uHE/czQDVh8dPz9TT8dJaZFfO
Q5upiZlhg94VQrJugQR7+pJEOmYUQhF4RD9zqYgmjikUYOR5hGDukNRN/MDXu5/sf6B4/sC/Jd5H
UJeb/FCiiIIkb0QC1VIKpwtCD5Aw8UcufYfB32gohaUnAz8f0vVjhpY8BC21EKADegidoExhLjOY
YilYhEvsT+rxKTgrhSZMGMtnkw+O3BZgC8vd57ivjPEU7pqjfX5XeuEvq15Pvfe8cWToVD9HroHA
ZVozOQ0r1xOY2px6yxdTaEDkiG6Zd0mVvSNQKKe/A9bv8/DN5IZa8gLUHV0ljAPAaTpZ/ZDri8Z7
TZ0B7w1gbYTm+jjxPN1VEjMcu8Hd5OQpOiBlJ3XdxZmsxvtQhyy5uw2k2hxLFjO/iZgn+tONib+r
6vPy2+BK0LL3Gn/wf8Brz99LZUmCd8pR+3dvu5GDkfkv1d+eecNPRDMwvXrTPmgIWxZ0DA1RqFbq
EAojG4Uv5ZcHmlAigZnrF/NOzflmBmdDkbMUj2QmC3ymfMZDnN5Ds3Gs9oUBE4+CvkZDuqDAMCRm
tFue5sfKo75BCmqADaFReWKHXB1zLKjihEDoOejq10J63/Gl84Tti/TqoNiZz0kXqM6gddBGFTso
e+2M53IclCCAyZz2KA36xgR0ABkhVVUe2RVXAWKhICxk9TIgnkgFFZ42lges9/kZ5/+N/G039xgZ
76U8V7KXx6qV0zHGRTs+y+7KfrsBrQHfOGNHxtLBnsl9MTWbY/Nnl5cdDJOc2+zvsm0DxOSz08fD
26PJd8ZAwUMD4D9euU52b4hruk36cYs65w9egOMLEtPkT5dF4H6ac4ncqIVEnDn0xbHScf/gO7kB
x9xzhU8xzb+ON7toAvMZBKMt1AZk5XUlKF2SJwgPtmIkicwQnGRF0Hy5bFQHlTlCs87CCCKp+6Xw
7xg8zDgqF5sj/t+GfWceemeVPv8r12GXm39B5bNmgQsppT1ZhpW5W0RIRTYLbsek5kIcwlVSUkTb
XPWMiMddQs6x8S2JYPZAfYfhWpBAxgncPSyEKiKxZ7UoMmehcOKSHAk9QHdh8YPhDl1QqTM5SfLJ
NfvrltQzstlbLffm/i0NgPW/lAB0bgZUBQM2a3p7yjsg7eVph89tO7tDbbL5z1s9qXfAxn5t5X6s
/6zTlEej1UIgee5hbIXu9PZyDzMmMRZPQ8mNOysGsJGHeTrPg/h4fs309TEHQ61/W1zeyJ6JMLFy
Ulh7JBPX1b/HQfs5me9m7xHHvT0ON3FLHoo1miIiRGt6GIuQOgDH7f2KtjlKLI5GdEu/tCjRg+N7
90PQ/1O8K8rH6WrU3HAwf6UGXQr8yEUVrYN1+jf9bD4Sws1bKsOWtVyurdoq1WSEG8ES7ghk9XWl
1x5OZfvtb9296PK0+i2e9rPX6GTHwngw0W8JaT0RrhSffNr035u3BUHNvlyeY24xkYqrHTVwzBjr
Jme95pdQ5nF7HTxc94Y+TX+lgndyTe9ZGnxUGdzu/JUbUksfoap0jl6PI3xNTewopIybKBDhGRRS
RoH+VJlN4ZxTwqkv1/vfv17luSP0r7mauKWi4zEzmuD7nE2JwHiS4rF+9aB0HEiCxhJpuYyHhAGP
T1zXLArgyBZMPT9GpshPe3mMaljUzSnzxMVrwoACGAUDAYcVChxZKIyRhRokEKreNC4+9Wcfp0hj
rYRMzG8SA5OMJqANgY0ZmDMC59gZqdg9FrD5h4aBt2BMnJq5zDDHcjyLZuNx2ELO1sbjQW1re9Bh
tm7R1d24JZNC8B1c83tHZdgzgHV3noOfSZVJqKM9mdgrFDyQ42nLbvXIIelPswqARh1v8z8BlwPi
c5+bw8zy7cAwe5B3Tp16CIPfcQH6HEg9yAOoWCjST6qwsqa36TY/hcL/EZRz9wx4NKh5oyIXgcDc
Zj29G83EPjKe8g4wfJjcwji63fHXxWMAaG9wZzlZ1QbD1iZr5SASBPM3BE/pZ2buNkefdydwcBK/
3jePp5U9JwB87J8msYt6J9Dt/U/9pbY7dZYdsvDLvo/H5ax3YtwOwHwgjTIyOt52z0k8DzP4NQMg
9rf6TgO0kLxmg2plSQ9Ilf9QRQY8CYsUGnD4l1Ar6dpU/X+Mn+6dwB94A5iRgvZ6mXwb8QsR5tp9
N6icvipcAwYXv0la8rGJc/NVnAMYTo6DMHqRozCH1VNafSbC9NkOY0wbTP9pvv9H7sfyffuoeQjC
DnuUN5HrdHCVQnKMp/gYCV6fizAnbqH35FGKvsNAYDF/eYAgwPHcvpZPLw/3Vhv3C4NqDoNqYM5x
9/qjQBjYANFwas2VyKVrlFEV+tXBDEKEUU5TWQ4ebONehpbsfLzz5v3pYeOL90zOvjTHZ7kL9w39
Ihnp+JqY5VH9EJzkQeg5ItCW3/IhPBiHWhkt0kJylp6otD24YSrlbEP3Y/B137a5Bd+Z6NnHs8Nn
NM5BnT4FB1aG5X/0JEuOWsw0Q6GOMX26OcBXyznAp9/pjxTfpxyGynikr4iIsUBUEGBL19BNJ8K9
/9USR+FqSv2c8VDGZlYB04SF6bRRvVNeesm5dWmG/uuCrhsuYblCGRjEGr8c3YSRDbnBO9rKnlTx
r8aG5BGUfkWh+x9NPCiZxGQgSXefePy+f9prgqU/EzqDBppkAc5wN3fr9nNvuvwAn/6eke/kOei7
RNCcJpVEiiB46ugrOgbpKfnsjmVlCmN0Q3cfl0/sj35AtM9qTUIDuPV5mZN+IVjcIxD/IrH4t0mJ
/6wnZRS+P+0uIyIOwB+pP7ebbc1fT9VDD6T8i97MHMuHD+Poecny/zh/Gz/sSsqKSBFBIsgqez9F
Bf+KivQNIZSIMwYuhdC8AiiFqLhZaQLXpG5BEoyEQZIVkAKtYVFjWWDIoiCFRtFkqNopBjNAQQAR
ZGRYxJCUkWQGRSYItYpK1ikRGEqEUmnBIExKIxJcSjlUbaqGISC4kwQmmTBKrltDRQurDQRAMllB
VYJiSGmGREE1CNdMhjEYGCSYIBiYwUtsg4ljgNrNlLAYRZIgg4lkkEBhFgLBhGQRgjFhAQSIYqlg
hGDalfh9EkIQhyA5io/9UgAonLQjIT1JlKU5hqwv6aHg/maiC+R/l9fIENMUGKxBFFJBVBAlf3VZ
evp3PVs/zR+H5h6H6E/D3SSSRGeYfoLWkkkiPV6w8fpub4BJN8ycwcgaOVA7oCCG0giC4gggcC+X
2CKbvUwZ66qqCgMqVqFsaD+RouUbQUYNslCcZ5vRSeX76tn6x8nIv8n8actg5VDUEoZIcOw8RuDP
P83r/k4gh+CAbGXn2dPcNP+iTowd/R+of6b/vTXJmdClKRnM3zEZHAMbBWnQIv5ViZnQeX5cgvza
+zWS4rY4XggQvzFjGiEnkBwiEAvXmPHTaExQwgmAW0K/gc+fj/yNzDTtUNsuekYvCBAQEEZRMxlm
Bhc5Wjt49bhisQLv27gUFzAvdUsJZInpo9XuNgYGg9DMht9oRK8095hVPYKRPxBH4OGP9H7SFoCE
PvCPQB0DmIT2Q1uFPxI4eVKvKoeDEkFX+jzyiQDwYRB/EGMRiKK/Vfxw+cROxhPgf0p5GHXy3Hyf
7rd/4urswmpGHZrzOkvqOec9B+ULM6Pnpzk8XA8ZRcZc1W8yB/T/PZ/7+6/4bdxzGacdfHVVxiQf
MrgozhSfpbNW48U+QeX2W6yg7Yd8uECdg/XHksdpjmBm/up/XFYKqk9Z7H1CUMPWd0/IgtZkkPsS
dmAfIm4h3iVvVWFWQWEYGez1XDserm286xm5vDe/s3OFgrN6uHoT8KQzA0lEWEkWVjIM/xxK4hWH
AJ6Me12m/KmSHSSyHgSbAGRcYdAgVM+HfboJNIBpGEFNFbIwtAZAsttBYsiXHaFV+jAnRwWaNkQh
UohFrEEUv+HeBpmmFvQYFdPmXuWvBkcBFVim2swl5URPg/sP4fs8E9fDf5P/9UfUN2HncAvMYwPG
wB/qOJj/+GJXaydQpSMhd9WL8Iz6T4aYT3f+/G/kmuId085PoNzWseo+bqlnr8kk1UeabhCVClT3
FYNhPReoKG31mfB/KHG+gGrtjYgxMwBLr1iF+aM0g79Dh9j6D/+/iuDEBuTx/P0HT96ihu9HB5O6
t+/qE6k9IfwntHQMXR0cDY111B7Xs3/I1uMZVOi3NscvVXQWePS8bazuDwIIU/yHsCVvposF0HsI
/7m2hvMDth3/hmGBrmjb+Ab7wgY0jVVdlATebgwgWhqTaDoSyE1qSkNH8AJ95MAowRJwrWjK+qrL
STgVN43VXqHCq9Qlhig8+orGRn+Fisyb+Ab3c+Ztyvthv6qN70/h4Ot3yTYBovk5b7tuYay8QYQ6
fGUVBPhtDq6lSPOSEYyKQSSRaFU7LflJoSpRcOo7Dw9nibgtxOR2bjgENgD8+jSJ4mADb1BQ5S9E
oKEvdLKjVBazGXKRqCXuvNol2D+5p2DK2HD4lJOyMPcwDQnenRfCoBW+UiFB2gU+LjvYoFGAinVg
s/7iRRUERP27CLr+fMJQNyiFU9nj8JhPJOTHl7fQKVtyV7TmTu/4q/jDIPbLFippwrEIjB7NAoIl
9TdjxiG2Fb9qzGDtF00HpXH1BljE3V8w6j2qPkfxMSOh1EgYMIKjtjDE3ZHPFPJ4cRD9gDwNbnQ+
t4+z8+3hu3Hi9H0hj5A8nhL7+Papz5qn6jiOj8q0UQD0EPSTI2ni9cmyuR8od5evDnxXEoJCQikJ
HHX32zywH6z2mDs4+62ZjWJ9p6bDcwoOWNUfB8B6UYhQbuwOsOn35I4huzXy6z1HB9x0ppB1e2EL
VTPePwLxbRqFQPmOvn1dXPfuLmoslAK3x7BB1BEXeH6B1q9sTCCoLYWBKpBVIcrg15YJ4Z5vu/5u
Xb3Pcz+/QipwYiJpbqGGK/u+4QJ7wiB9g4Q6g74ETr6E2jln5+/uHwet5RD1+3haT9HJtsNQPJ9j
Plt0jBfl6hxmsoVDT+F51vjQZk95KqZv0e3By57Dq1vSVk3TLVLe/Z4n9fnycnw+HjNmz09IffjW
5ZXvtd4PjxzbT65jIefX6UPlH4u5wm3zdz5hD0dXjRDYLkVEcP+uWH7BMD9Mh9vUHwWC9CsQsKAG
fzPPb+8L2Z1rnWFczDWzRuLNC+3yk6+5/TP0B2WkdNSbfcVZhRaVivp7CHy+8048H2BkPxunXy1c
A6bOs9WXk8DoIJI9Wujuy6/wuBl3469djuL+9N3H6DqowCaiwVYXuO8h4FFFFGnw7s/F0bDynEca
yAqPIF0Mvh9pp+cXm/qAjeJh6WD4G0WhD0ZSMepHJ8Plx1/y9XJng+Yhu93uk9Qe3Iwe7pAuYrQ7
HlZ6GOnAuWOkDQ62+Ez3+VNQXOnmqBbZ2Y7i6vl+vyh5gWQgjKEDgCEijzIF+f9f8v5NmGyfHb8H
VQQQN4IF4T8JrELsg8+nCqsPw1OmynojGA+bllndta2juzfP2dUPIXUwKERhgMyZxgjdPxCflcCM
gMk8J6G/MJmH4bCFjf9LdZbTsLkvjDyOM66oI8waqZFQy8jqNrk+f03GPWYhr7jb7jhzOZVGMlrS
f3OT0dQnTs5vbzdXDMym3HU02q1CdiEH6mGBOUi8ePMqSwScixjpu2P58DA6oMjVVDqtiyrPFzb8
/8zF8TI+ASFV7djidp6gcAc4rmSEhlVJVBUsIciH27ncwNRkDABAEYQWAd2SSpuhs91IGkFBRVFO
xPOeDySWWVJsNifY+uyxVGcaq6NVak+UYpDNaLkN6lAlwsx0wyeCnpk2pJGMFeoi0AQVIkIxWKQR
N0FNODkji4LBMUVBgSMirEIhCIGRTURIohlgTCgYIIdZvMyBUKL9XXJCTBMLydDyqcTysF5jxsF4
qcTcQicBrQbKWGzRCFn46zzAWtSH41b+kP0fzo93F12NHu7g6Td/QMBh/wQ/+YsIrREA8oCCnH7q
NhD/UycQP6D5T7vT83OZBY1D8+p84H1/L+zzSkLKRYF0PilXA77icw/in0h5w5yoQ/xT8k/NxmPm
um6Mphppe+bPfdjbw5ri5vOM1x+jD5OmKrE/IlfI8EFFPK2unK1bW21tG1atahbVY5ZiHwn29ec6
PFHzHOYHKvVj18D4d28Ok606DJ6T3c6bD50nDm7eUt2a9hypZPifDkXwTbb+7xHE8Cu22rucx6tX
r8ZbMOk8YnR2HDe56/u6TbXnpZHZADjxHcK6glQUoPXOX0oamJRDAw7MF7S3X1QGeMT+/KEkzyzo
hd9T3Kiw+M7J0c9dWKiYvZJ8nWGHB5WB7VN3X+Z6utTnhzMy6GXPuPK6300x09Uzcys1VOZbI1Il
xE7gLja+M2x3eRillVkOLY9AnsGGCmJYA5o3GDqcevbxuOjR7jbyy4dY29fgW7aWQ7/EvKmxj2Qv
EBh6glHwHpsTY8i83j0KwA4IUuw8h+6zdUTuTOzkMUfTFDzrAQt3lKt1gOjARssETJQYqN5pzlSS
nzFJPJmreIbte44ARhbLHClgodhOLigeSDyERcgCGBUAij3xukWAQJlluLl4LpA4rbeWRsDCxo2s
WQh6ihrolhiFnlS2iM0kDpuQp9IEOABSNCUigTZHxNkDILA54W7koXWksUlT0cKcUgBsjDfEqAOM
ydAoRNLNwSxlxKHkdFK9abqNIegBIpOTPGTaQHvYYkUOhKzYnjNXCekg1GaIJTniUWUVkFTNEYK0
MADaCPogCfsIrAUuRUcAAig1nSKAmaRVGyQRAhEFHvgL6j1+RPM93qLYiAIb4iDBvdPCA+XoM/cm
oFrvpFEKIFg9w4pihYNF8g3l1cLmK0mO3ZJ630+vU7PHvTz76x69TbpJW9OV+kBSRJBCRB5f0vLw
HMeZXRefPIbj0BhMDsDxR1eXH4+B7APPxezzOzw7N3oeBlcgKB0gHaMS1HEYeoO3kGqdoZlp2JSD
Q5lIBsPgbdRx49RwM++bV2EAkkkeKbgdw9cADHE5QuFcxw6OU483DlHn8geIe4NwETcEB5UOC67j
gR5DcOg5iYhBuAcjXh1cNEdg03ACyKPUO5OA4bkKEVsHI6OrsdADnsrA3BolbkbAG/Q35gCBdKXm
mJFsKYgJ8QTCWV/T4v1P5Qi1++H8VFWIVah/M3MCY+J/3t+dxp/2/Un+acTYcnITAljQy2j/oAFK
Y8Mk/vhqQwsnlgHMKts/9juvaT1HkLwj/0qo0qoiQP4k/c5Fj18joNgOQDbvtuY949owDwQJ2L+J
3AUHevmHy3F8nyeQW9wD44Pp6PmR0SBxSAbk2AuBuQPgGtxvrB4q6A7AskCJ7Fvlc3oZDScaHalJ
YQLhYTeaUBimaGI70xDMSKmgNGKOQWDPM+xfsXh0JiGYGqTWkg5hdHZLDgGlxuOqrgO/55hmjvAN
VMhxTQMxwR38je+/AFO3EdR3AOwBuVELJcHgG9KwWk2jxU1oUaJnoFBYChsiXCtByUu5BipAINAo
K5JWgb/y2DJdTNTREdRuDsJYcFsapF2THYHAeJ0fu4JcE/8vA2S3BbA2Fv8jHS2AHFNgyCcU47AX
QCruA5ELhZS6YBMhyM12odgGRnmBuSkzW2RgTfPzYK6jshjjQmZyE3mSWC/QBAHZaVxA0Lg6JcHM
NAKAcsAzKwAWdSGBgZjqAwPWA6s0DJQ1O0PQnbHUdAIDuQ3BfNHcGZkHS6R00AdQpgMJuU2rtA7N
w4+FDjbnyCFO4satguYdyJvI8ILWygTUbkDq6k6E3HKOB3DuRNjQHq6k6EMADoDIbDqMDRKSA9mw
YzA5UNuodQYG6OALDoGY7FsFxKiUHMHisFDqDIMkF0QzHYEBrBVmHeQhRmGQGwZBsKVgEC4WCDcd
2aOOgbDzLhdqTcnbiuAmq6JFbDkmpkGgKgjBGIgRAYgtNumTT8/FP5f2+fkzj8uQno0z8HT8HRjk
E57S7pf7f3aZOzIsxpoWWPtSQptM1MzyhmYn9N2kOAjZwEZkj/sSzaxEskOooxH/Z8WNg5EDSP4f
PhDnLlIKa/XhN4aOT/eqOqJD+L/HKiclIfw+iZrDNAjk4ciloG5kBsgcAkPWgCkFDgcEJdDC/taB
4JqGSxRwBy/4bvH8tJBoCINWQS5FH0sDP5UO44/4yCNAwCZALI1/s6FErTFD5KVr1dsNdtuQ5NWj
Q8U66pt2yKee+s+dmKmD0zSwVkBsgBnR+oEggYn/yZbvpXIDEl8D9X90/T/3tjRWm+PR/MQwzlsc
QxNAH8VIOpGR3ON9nPBrzyPD0fk5PV3ut4/Tbk8bdRWjY0grzTxN7OcFp0OJf3ILBRB8mVj8JaZ4
OPVL3lEGGBmP8x+XcU6QDzqgM0qDp4tQOIjyqn4w86dnh4cDCIEH8KV2hX/SFt0NMqObEVVf8ejP
/RODEGHHNnqqQP0TD0L4ukpiqJMFcFMRV0FQCH4BwX4j8A+YET+9rcZGtvOlMS/whhwkwq2HDoNu
t/ZMkJGu80gMGByFZvf2e58UDzEx7Nz/2i8ChFMAyCAgPCSPibxyS/S+1D2h2yls9svGW7MOGxiT
Ekq8kC/pubLouWvDmmDVHVwMwwzSGk1osxK5TISD38KfGfKng90lYkfbmTeoB7xLJbjQyJwyBp3c
q2DQc4LhIdQ0Va4VAzIFrAQgtPjQ2hfowDmZCx2BZKgaLvLpcLqDjrciXD1GCFJpSRI5joruPDOz
R30VjKjlf361MIS0orHHg5wPhu4Gqa1xYMyynfc7nedLEXvn9Ada47bPYQp5x99G7qAKD90D+mYR
7wgHv2To0qZAZbX6OWTtLIrB5zP9N/7tgdl2ChrAsirIZYYlykFVRPhmBwaXYwXkc4ovCcCRVEYm
yyGMwOP9xhgJ0ys77CTrJ36mvjQ8vGK4WVGJxTOR3MD39jQahvrhkvjcNnw43MlyWIa65GbOToxR
1r7oGSO42wUREV/xvD4dKwcb1Qr5bnIa4poO/zBhJyG/OXqTNFIUYeukSgUYJGyiFiCkIK/9gijW
/03PHW+Pg6ZmTrvKaeZcN6zfSZbNAemp5gIaJwhUJ3gntgJu4YiIAhtroGnLM6FYnRQnkkSCZaGk
CJ/PtM08d9bnpEhEIBRzQrhpW/dzu/YWH5nFF6SMNg0BjZgnVVQkfaHk0bjGQ2hAxlhAibzI8LbD
dfR1NraYvgqFErruGZff1Jx7OLA9LO5nerGlqtErbalPISNXDqwI7As7OtGF0IkCxFUpUqIFAwiN
3fBbX/a/TzAWuGcyd5BDaefJ3geQuoMdkQdAEMpktKaCg4gDQeGjUa4kDFQejY8Spk6GvK7hc0Dq
I7i9zfGaULYiEIKBb34D5ic88muiHMDYnN8u1PGyGLvWDHgcW1kyjXHrDAblTe56oGpDMuVe5qGG
jyT6fr8zy/1eS8+sPBhisolTLYoXDMwtO/0YsHtDN3OHTZXqqbgAx4E/iw4VAYLAERzAmigfLLPP
kiHR3mq8el36GY3Ww5sGwSvVsmDich8KrizBEpjpkBJwbBa+y3/KNBSQSOY3DhvHI1NsS5pVLHRK
z9GAQnRLzwhhLHPneXQojo9R6++X1coUQXV1hRHLbY2xEbQqqCAooopq0Uy2W5kphZXUpmFRS0o1
aGnMtRUEBtN5a1SpdFUlSWA1WgieSHAOwyNtHiLOwebJYysh86HOviYdJj8Un1TmrHe8JRAkAiN8
YIVBOGAZVU/4yc42uNAMAWb4Dy6YOL79z3HQ+o1NHAgnTMMoDM5DsHqnjHitAkADjBnALVNQSfKB
Z9kKc3KCB6AZnCyyZWNiCkQ0RD/jvgDgPQwWUTnUUJ5mw/TYV+BfsMZMuWnEiWE5cMFtnRYTSmis
VL7XTYhlwHPIm5kDnOCTTNXENhTWkteYkm1ZUV9TY/kn5yrEGMlprd+39qz4NTxLtJbPy/YMsP4w
3hQIcy1MD9jQNUvscNEeJA0iPiTrVAPNDt06R/sYdo9xUOBPh2uubx9FUwZ+eZlOVbgrKppqTTUR
A4qMCoskJDJUTCFHZCu7mUotOy5BKTSZtBy2AbzDQsFeBMOkvqHciHIo1637O+jh1tL376105b6a
u9XmrZwelKnqYrSk0hvvRUZt2k4vGC7vbJrbThhtmKxYDbJUvPa53G2Zc2yGaqwzTRZFh34p5bqi
c8GAd2GkQ7Gsyq1uNnS9lNs5QwTMMv55MiCaFS2Zbsh3+1gbovJ+IlBRqVjM6tMS2QjIGQQAeAMk
DJCIhZWLZGJTg0HIwFqQDY6yi3Msuw0TRBDRZ5ShzlUMS9hA52cgYG6Ji9CTRNh3EdTPIMUHE1MD
K9r5OOIl75CidCcZSPenXGucBhPTz9ujmRCbSYjv5N0drmFW2CDY3UUwwF3h1WVsOuWRC+LCkIIv
hoMiQg8AC5AKiQEA2oJLKMnkPo25e+Xk7XzpTl9vBKTkvkM+pa6jb4A5SK2i98siMyvi6hqotFZB
1VbY0srEVigqgiKgiIZcwlS2kQI2RGwAZOwNrjDrenUpuh8+uvBHrg6pRS1orpAePhKD3ekkJGSh
wgWb9W1PpsDjtZQFT5i1DKefvvVlyhakqfBHOPNhr7db9B6MfDATsT6lHoQ1DmcrG+qZOYpcS7E5
iIgtR9ZygExlk8HugwKAJTKdwBy8LMxCsXhrJZgp4VctCRFkACoq8vxpGwwAIMBP0GrJXqG/LZ3Y
tccdRlJZNvUIVn0KiWOvvvnlCjjJLNiE+/VKcHOZts8uXjzwN2kUqWjVtbBTuQRIQ4ZPUyYkiqlS
QAbwULEHDbZ2ZhhyI5TdF7BY3Mwo6QsiNDwWAOLGxRJTN80LGemi92WFoQmcChz0Bv8+jRTvA2Fw
5TMd7EqHZtXbvdONKUBVNYcIMWQJ2S4bydBdAEoAOSAGNHY+mweEknfmBow53eTSGt/WiPKhU15V
iHHYcLFukmZie8oFKDFua+PHRyxwshknBC3bJsMOjodHSOzs82zU5nfkg3N/3oYALMBkC/YcKqpc
AoEbANIchO21nXI9BaxaSjIrjHQeZ7Q18jZTgCac6s9iEjqABYB5IKjdAjECbuE4OpGHEvokBNcN
N8GsgzcNaGxOHapWpqJAHVyNFgFy9dMHMFIYG4YaFSX3wEZFAFzQF+KVgiGLFXMHgHjs+XmAXIEY
mwjTJGDKJRAgSIGLBk6CPFgPwiGurzsGW1DikrJpc2B0E3eU523PoUWN6objW7x2B7vLvTh+JSc+
q9dzM0hE6Yns6dQ3uuADsSWKkDDbw6bVVuRi5ZMNzx5WS0TbMeVzfwwrQSE48S1tzAGEkDWJrH94
gfvIoLEUHySAECoIFDBIwiIRIEAE6ogIUxVA7gKClAhFIwWQAWJBb1QB+nGADD8/9P/D6v7dfWQU
vFMQBaD7SyFktAVVUUIxD+o//H9njRwQfEY8grLIec1ioEUCaAv/gX/W+E01zK88REUkJ/pHotJQ
M36upwY/8iE/8A7cUhatt4O8OtBhg9eM1p4tRu8VSzTUuv9y70OF1goDPthM5/9NOX8+yjMS33xo
1RooGnL1UDFTYtSGoPhITEi/jAoUJiWhRCCpwkv/Hc7VXa/+0EWCaFCMmJP/tCICH+X/0/f8SG2w
23H/lyOw5DuYrh5eLrZJUPNhTg16+NBuNEqyCFVSKUuv2CZqxSMIiTG1u2/zs6P5/1zwAnTfICZq
CCG/WwFUj3KhiA4gJoUgifdEuuNCiDyqMJgUJrzFGTYrKGV37MVStX94ACXGt1ig5oEfJERQIMGC
NnxNF1VcZ5iZxpauTE8s4TAUFd5v233f/f3FtLaW054m6Dyrnl/jDZpEnt86cp5G4GXygKWkjrKw
aD/e1ePw+lH5geRgqKDuSAAe75v7fp9f6z0/2n0fpMtMf1l7fqqqo9X2ZfD+f+H7/s+vd/L/4dX2
/m/JQ7AvwDeBD+3/Z3/s6pp1f+q936On+2O23T+/+X+PAAFQRYMwYBgyCMRAVgrFVFfyZ8AiB7/m
8/PXwPxxL/8GUt0v489D6XvP6stK2If8nj9O2fHGP8a0/ynvTf2yDYAckD0BUvg7v0+HaMBrXbt1
5gREWDj54yHdN/G3Tiv+8//fb0rjy+j6fb8/p6c/b9PbxqT0BA9zFVVVFUVQVVVVRVVVZ5h9mTIK
sIfD0nw+T9M+onwQQQQ+0pREaWUURERUn/7ff38g6KDcJPLh13MiFnCEjAAC3Pz28Orn/X37vLyv
z8Xd/j495N6wsdxo5+Tn548q/I/T3l77dv+THvWuu8fjv3f9ekvT2hz8fHr06M/HHntnfjrfpxOf
j7SX3b2d3xmXjL4eO1ed9b+mU8y8x8HN7AmLTpU7Oxb1r5H6cc2829fh6jyqYIVK5j4gGCJDVRVV
VVVVUVRVRFUVVFiixRVFVYoqqqqqiqqiqqqqoqrhD3ffzT7j1+OSHSqkZh5LSr78455pz8I9Dn0h
RbW6T6Rv9IQ5TOPf6y3+l+5EPN5u9sJ2qdkCEZCdtnPt6+fr7MX6sY7nzgc/L81uj5fn7ZnEsO90
GrNy8Of1r8b/Hh8z+LFAsEoRCbCmZJ/3ECgzMcBi01BIBDycuY/vYcZOvcw6NnBdCYEkfDCBgEil
FnAwblfgWyAO2yk4ZGgwGRCM7dra41OZhmSBaV1N4xJw8Di7qMhBvVN5T5zQvLqVhJG1z20JlYCE
rzs06FnKXd6u64brGILi2jOYLq6fB277ZRPXwocwnJDOs9SoT14OV6emR182cOw0SSYOGpV8+M4Z
NnvicUQCR/fA3o4I6hkZq1Yxbbq2MAzDp0EUQwvttv1NPztv7fbdekdAgQADsvjEWUQAJNkAWYsk
e3bAPJJoyzpDphDtd60cO0nTA6TSLUDSKB3ZJN9uu5nc64nSGuqQqWREMwCW0OtRxgE0RHpN7Igd
qsg4oj26cM2kmIHdhywnZ75nWuu5YoY9khOUlQm0giVDGEOWHZizsnZkOTKE6YSd0hWBxGRQ0WyG
3W7DGSsO2usJwwDEh0wh2QRJ2QNoFSCh2SHbOcnTJwxZ2QnSBjCbSY9MB4sgQXOOMUyihpDXSprS
peCYRHK1Y1QgSYEOxS899t1dSDgwgBECGYgQScwMIjFJeixZAxk0k7vdAMe73TTAMSvSB2QJ2ZId
AyMQ5TskgsgbYQOebNMAUgbQxDsnZkORJORiq6sSQLwHGMhIpaKVAkFHXEpZ2ZuMFkBSAvdA7s4Y
vLCsnTNvdJA4ZJWLyyAVh3Q290x2whtCYkgd2HKcoDSk2w0kDuknZAm3OucqaZDSSvfksm8oEDaC
wJOEJ2ZOmcpiU3yuQnQgcMmuqFZJjDuyTbCd0FOkDlgY888ZDlArOknZknZgddWB2ZA78WGxkmJB
c4vKSKKHTOEmMOsod07PdkMZNpDpDTJe97skNsNpDsyHDAFOc7ZC7oLAMLx3335OZDrrfV5433OQ
0wXlh2GQKkrCaQhzuztqkrIbeEkrAFDuwOmLI6zOEN8Zvm8HG++9ahHVCdMUnKcpCVJpKm2Td4yY
kFim05TunXNDQyTlhj0hDu9t9sFAzvq4XqlcZDNU0kqB1qwhpIHZgaSSaZWD113ujTA4SSpjFJpg
Vm2HLOkJWaQndDEFJDhDTDq0kx6ZO73ZA6YdmSaZHGyFQUqQMZjNociHZA61ZDhnTOE5Taa3QnTA
5Zw9MDEDlJBcagsA0ya5651zzQndADpxhA7sAxkhjAF0k6TlkM3SZaALOGAZ6HY8p5xTM1shPqh7
V4z2gEYL0QBqgaBiYgZBfeoH8RFRe98j1kfL0YdznXkmtsOuG5IuZp1a7AUzs2cvrFFTs5uJ8lUt
ER0SYqRdWGNAKATocEFCBryIYMWLKkKwlQqHBIQD0Ey3SVUrKvt16ZoVWPewsKh8PXnXOXvv0+45
f/FA+zTkmfajT+K4PAP+dTbOzTvdHm5yyf+/D+8NnLfby8zzkkhEJAkQ/dAokgpnihsZb5Yy2YbR
j15aurM6zcJRlcMw/6QKSRy6d1X3EzvjdVX5MqB2gfWfaH3m7Cv7mMGMhFSEsiDA4MJiQMImMPl8
h7HtLc+HnrMzWmZmf5v4/nRI3d2b3Bu7u6NpGqdGJtzkTVotmPrwkVSBSOjdzBV4xvhAc/0TF+kf
PZRNgs3dzdSvARHgIFmIAM1SBQVkbDnVKtXT5i6owSCEQkiGWwcaDcJtApNsghAHJy7sARG1jjHk
57XaCwROmBEZ8QgIENfSSQSmI3a41tmZqd3Dhw4fcbVJnclsITJOQdUMY15lwxOb63J4ZdA5IZPU
HaZtwyDhkzMsmZlth40qGDhO9CtQOiAiR7RCTBegmRLFtB2JilgXRoLgFkoU2K3FuhoJEzQIthYu
VZLuKoDEAyCA4C45AF46RKiI8Fe1HQLkA46980AnD5jYKJZtr6+wrPz+Sbii9KsawoyrkWhuqRQU
bZoaNMU8OVnWcGOu/41Udz2/p/f+E7Q8BoynVhKbaNrtqRGOx1ujdMoYyotbBsRsLoDoZ44jiBfT
SaC2g/ODjZHULGMSwnrsl6u4br6TKSevuMkfKagJklGS9Auds2eCJjYV1SGnHpij8QjXagCTXBAm
h/QVhROxteBmFzXssWd8EfvoMcuNS5BuON62PUYpC4QQNtnG66zh5dWN2WfCFAa3WFBs3YEuOFql
g1DYDSZcN/AKzVxps1Gi7aG2/ViuI8Ht9qQNQaqAc606hJ8sO3aQ2lCsAjYwNp47b1s0+zixyGzJ
AEJFBZBrn8ntvs48+KZ+pz4qjAMjDEyqclPnb7j4PR7qhRiOJ8s9TnBiMcw6iBvAxxqg3jnencbP
IRUGY2n6vivVhseT4lZyY1kUOPBDjkP9AFgLpQMtkcEKXIV0E1dBThFGWm/0p77gOBAPG9waEJs9
hxzmCVtOt27LUxetSJxc9owRgiJBQEgUClluOEssA0MgMZwd8CxBkCKIhBGKMQc6QZAQANdQWyFh
6IKGCLspBDWKMiHDGlYQIBNYDuMttJfdL69W663ENAgtDFQ0NwCUChYiqwCIBmUNAULFGhWIg5RA
CggwIAQLQUwwdtxS8RE1wA3Y0CYopoBAENhYIBRYSkvBkRrJ06d+GvRQ555mhc3QQvAgCQGIiQCA
sBgsIq4IKUMgQFBXCQaEbMRpECBFTakVCoURaUiRLUqUhZaVSkoWrJYF3zbpQBrAXNRgmSutJZGI
NFqBSwmACBUHUbflmet4xV7mKtI9j4iYfvVXj5qO9GKGyJxJvm1qB4XbWWFKLugFATGqAIER2iPV
EsMDfA5GOxuLXxDdWSwXYIgBcIiEEIOVBkkDcGgaYY6ZbjTHErLWaHLURVwQgbIMRCAZQHliDfII
hsb9rI4ylckNGApDhgiAGjICsoHILzS2u/PXfpVbpkR2RKEMCAJiYo6WDKLtuPPXo9uk8SUOoYCA
bKHVsAwAYT1ilBEdeirE06OWvHlgcNs9OeS1mMUukVVIMVIJAzlDBiJAiEXaY3Wxt1ZcpQ9/Uc6n
1BlPoy+xAX5oansZG4+k0a6FY3fze+btzxoLfqChJ+Ru961ZWvCCIjblRiAmG0AX/MhsfoU2PFhJ
A2zaLxOOzje+WWw0LWvpV9L2Mik6vpQDlpgEbUBoWpxIVMoa3zpm9tPrWSHHTV7k1qcA7+m+IioF
QPCCOAjwpOBJqlhaVCAwAimWVlEBW6lwa0sthxIaXCi1XEpNX0JattNs5qKopQbzRoE3BBzymxk2
vuxDLACASk1vy2xHdmEXQCk1ByxKcsLgGyBAIAiZMQNEWVZTA+MALPB4vCg8USblio8S08Y0lalt
UQUAEOB0yZEAHoEjaEiANtd1OUxzf/SAW9Jrv38EZwm2K8Ac0TgXymUvjNMI1wuirn0p54PPCZbp
pZ7LeHYBjIAAwR3gJ0+y51+ePAFn07MOYHDBAFBjbeKu+SHbyDG7UkMiBZBGCoYADGQFMrWs8Wu1
GXNaSWUkF1fnrrUxqyQvjzjrXo2fY1XngTQGd17XcRmZusSFHvvmsFIOTa7pCTrf0gePoAWN9omh
jhE4kK2UyYGcYPDPNxPjjO5WZX3t8lhGAauHMWDWQbIfZTZ0FVeFyuqSRNN8Mx7Qul2XLMAET1VO
gAVYCaBdKBYiMQyDAUTFZWljRLiF84pDABqMEBH4GAxOFweHQM0gIQUgAM2BShiEDYutuVs9+Aue
ITMtZM4OVawHbErAYB1AbKELAFgJYkBMAQQHrtQAESDFJYEErQ6aurwzsWScercW0hqct0pNL8oc
bAEWQMnmcmO9vKc4CyAwEgCXxlo2MOsjQzseMOjZoagWAxn/pggQXD6A45MRDwPUymkCGQJeHFC3
AHR4F21iVwodeyb6S/cM9ngxoYhFUwLOMYEloGtPFXix5YAD657Mmccz3u7baMOvbNh9W/MpMvqU
1w5m7ozy0onAndcHM7EPgUkHqI3yDnzSWRrASM5pescxvk6SHQEOQOgEgP+YLpD5rOC3ku+IbgEI
MYZA0pXQsVCNgRLIG5XaiomkUZ6qFVrEyNcsUeliOoJG7Y5iEgYavfWw4EjIBaGQejBmJlfXQBEQ
E3yfxtY7nQLA7+LMOqA0ZKA4AOoQHm3yKAciyYG50DELA2XroGteWmIX031bLSg2QaQCwIysCJQB
S0KFZjAoHg3FmCdX7hHgc8892ZgyM5HZs2FQg3VLg+xOWlzNsyLZaaeHLbLJPlJYKH3kOZSfnDMe
UM74Z2h6+XBokpMbZ/uYfXDu9fQgQSEIvNKoLCa+7zAnmDqg4CNNhgATShCe1ELNe0cJ0dNtLpao
cw0ZPMa3jUYG1RGwPHfyVsZ2wu9PyZwKnfRohYfaObh63ue56zDRuA6IBlWUbd1QyaXuWapooal6
FknVhT9qTlqXNRXNuDqNXWC8+341XECj4YHwj5CXA2GrAYOCbBfay5jlkYUpgZAMM21gwVMBpKVx
0113GRns7ZhSpsGUDOshVOIdURBykyK8ZIUCBgETtqBykBYuedfTDQLRMgApn1jhmakqJZjtx18J
VwAYWnBa4/FxAM2qQUXEEC8dTdtnYoddgpvHkMoBHXOKPJghDAiDgBxztJ5okIkQ2ueVpt8RrJj4
aLOIA2kRzJ5k3LApTALmUBDIfyW2Owe4iGZOqABzVJsiJuxE6oatMA9U8VsDuhAz5ruA9c8i+xGm
934KjAkZ7vyLcr571fRQd8b7Bcp9L4Jx/cQLl+ZUeAhauOo0MNRhTWIokNxIaWqArS6bgrdSdOWQ
9DxIvdIwiVQFBO1VETYqca4a7SwaDQOaPHZUQ0TZMQDdbdW18TePIXk4DebaHIlIFYhcPlQohgBo
AiBkVKIDgQPtDUA/PngzWBhD2CDSAjnl6auAK+CAL86bmIk3hMsCCAaEiN0sVJp841wl5yDpdjOZ
MaWTabHzBAJzKApxW2xlgM9PFfACzM9whwqBemMoF+Gmgjg4i23WJ6+3/2EStvVWJGpMdGG+v2TT
vM9pcu+5Q/WDal1yE5Zic8nubPhVlBYqMHlcVyQyg0DqrYrZtG2+8rP3kj3vs6p+1NVCB2FaMLMl
KZckZVfSjwkuxD9gL5kDA2IEN6cR+JADMQCdMR76yql1EsL41DSmtKsfi6eEirDo5nZu696yJVE9
2COSqmeD29yf1r9f1vblqOoGwNCRKB3hYLBYtW4JSG6+8DWAZAH8hxwgKVSAIsuyTgTo30emFue8
voKq5T+f1CifFLbZ4AgG3zEiuhezuYNtOGMRzc+b35pdM11+wAAgfQHB5YIiogxFHQwGwSOOaBQx
geJR22IXzxFnzL+QpNOtlIAJrBcIKCCme91GjGUyeSXmGaFnQRJ3/zBElGMfuBY99jXad5Ag4QB6
wYnmtEsUzFknVjFAdBAjFtVirIGf4GoXcWJ16NK9vZJ/UCoJJ/ZzulhuSNBb9vychBkUGIC2JuiG
kyDPp+eAM5IqnNBlyXUznY3mDIG3RzLNymTUgvFGZGTQknWzcWtu9U1nneqxle2c2VpjStAFWaKW
GldAbiK4XIqZFs1faN9YghgeSC1UkRJlh/Q2nWgWq2njLhib9Mg3WsFlooNQN1FkLdO69taiFUly
+QTJuYuqay9DbMcAoK3RyB03a0tZAF8EwQ4y7PVZChlcEs8Eo2hX9xCgw1jFjiqEgMNsuBS0Qh2I
g4IwWNYaFnluZReQAaogCEBYJbBDKYDRDIu7VFoR2g/rJpmWn/HGzkIwfCSyMmTrdUomD2cegzXq
KfXMwMvhF3mq0nKA+gF9MkpCo16YEJxsDsuLoPQAiFw5jltBxr5n5ce4A76Hrl2YNmpxuXYfUws6
/p/iARCvs5B+2xMuhwuCP3H0XtXdofuKSfcXZJW1sa6h9OOsLs4zS7E3ebvIvEnFCIH4WrbIGMHI
QCLAggLGKaiLBCRYKIAGHH10IqDgPQFkTjtoCludIb8UoRXDRNgrdc23mu6ixllppka0DVk7BMC2
myC5GZsDgNrkECwBZD8OxM5GpxEHEGRE7AWCJiAcEFpwSBSKQ8/aBeWQJ9C8NhcdQgBYIjBGBqLD
AArFqRingCSCkRZZQHCqLSs2IyGrp2C6DcaWAHBDewkLgOoPCSERW8MMceYD0OGGMc13dy7eRzfV
gWDqYmOaRAYW+ywwH718d3jZuw4cr1cxo7h7CmNoDy3YDv0GH2OHsRVdnDZxoaDmNc3QVbgMhtfY
h64I3vjRHYP/EiIEB+yLlpnEABxBIgoQWLEAiARAZPln3TI+no0NDDxMFMxWiI369ZoFJz120cvX
20yR6sKMRBOjtfqPpL7145M5GWNohWuCCW98U6dZSEJfO5Wlz0iDTFbEIEjAiFabi4C3VgEGKxYi
ZuLBaQlUzKpERsF+HMdmo6dZjw8W3r7ebI7a7TfV1LvrTbxDugSmhp0IRvYWwU7XhQRekHZEcyn8
kxJVfm3x6kq0vWd2PTeT8DZ5MKutFga37OBOHJkQZjR6R9cTw7FsOcka73e3zYgGlqtncnGdDM0P
jlEDQqZslPU7pIzW902+N/aQ4Eu/e6Qa9USAPEvK+J307W95T19njbS6hYwmm0d1uBywyaC2/3nb
5AXr4VerhRqUfvyO4Tp/4kPRrHUk+tQzw49PW7BqgMOM+C4ub53YbXORoNXv35vvPT6/p9X3My8d
3108GdBbb08aGEjk4Xuho3qOUbnoa9NqNQmx41z2LBveFjmcwkRnF1/dwES/QJAGRx9KG9E7Pwzj
VH4IVxcY4fxkq3MR54E2zQN+9EmvB4VR7EX0zTRnXBARrqbYe6VdP1UNHD1hnWI1zeNdJ8Bh3kS9
bwlKTsN7kcCqktithOjijLKOztwa5XcUJ53GcbyaDKz3N9+kP0/jioq8e+2KfaRE8iReSwvidce9
kIKGxQ3xIZ6/rBAi9IDwp/3AjSffcnDwo0sKgzrp+IUdi/dFvOvurutpnFBr+SMljlqFwDxWkY00
yZb7IoXhb526Ol+7mZzhtm9Rk+ZqpEIfl1YMfw8gFLe9xueXjPvF5vzXrjRhRrtD0JHnUq7Bws5A
gwu8PefM8sJx/V8tf3TgC+sVysQ1CnqbQGJJM1dOWuEdCSpHTs30LK5Aw2Azf4AJSEomzZOjmpca
F3uGqZDNl2Rer3G2JtqxWXZxhYSpD78N2Xa8Tm6zg2v/D/KP8PjcgzWl7jOupn2vw2x0rvJqu2Sz
lfwJvi+42cocKCsjlNB5gVkpRfzOdImX4IkdGX5jN8Gpwl552z60m+NcqK013ej51djutKeFzgVW
XuUDiz7iNkCMccQFkCCuKjH6wRF1BCe9T32jRxUg4Y2WG+lLecoPltNH8TF+v99ARBofS2zBr71z
86FR1zhGjbz1tBjoUI5iELLOziEWF3uxd74VpidQ3YitvvSzY1thGVsg3Oa0RnDME22lIVmxvXNd
lxmgxsMaylGa4zJevfvUcaHkx6FqpoZzqjfITumNTjIMH/YAP7mIXHlOdec3AuaQLB4Jl53sE9BW
EO0bXsnpDUPcE/IPcPvA8kPxHrA7B9oe55/YlB7PQDF4eAb3sI+TguYWQDansHgOinm607HjgXrU
faR8BqiTp3nw5e3lJAz9x49YG4FBW5o9gBzO5HFT0jwHy9iXD4o25eQOB5JPbh3qUBovrTJDvTiH
pR7hNMz1D4FvcHinWnAPiHl2CGweKRPQPv4doBgHEMQ1HTrTyv6xz8+fgpmq/VQQA5IiPdztH6uP
qWkRXGk3o+MC2MD1AT32gSc7pieEFUXEi4yTszbJCfJrlw48c+lx6o8Zi+XlvUuj0hA+T77JNiei
NUYirnAtFQkEZBC0UKgndEWooyCjIgWgCtQTaQA0IAhaJAihIGmECsBSEBT2IFYTQj2KpAhjIEAD
t5lzjzvWvLXGF2+RjrNc/Z7MvH2Vww7986louxIJ6KIAJiyjFXzLUmB4w2oEwpqRhEkQjmF9IEma
VCmG2ErG0OeSkOuN86NsFOWEqVG3ugAvNzqCB0oaCicI0jxiQZwKOIRGFbTo5xhQBpnfRMh+1k7a
EGrBsTDMIEQ9KHXAQ9lPN701RWUhujaFUBvt5tzJGeQHjAGGPEAZIUmyaQogSYEkDFs3liPH1oCL
tHW4FVT0+I33OIww8HMeIARA9lx4ZJm8fj5zzjGKghx/shQPmSfPxQ/G8qqqkSfiaxXoT9NCmEYK
IisfyGSa+X5DicREEBCKiCKqoirJGRBAYBIgBX4xsOORyo6B3IeDhFYIyQDK9zP6QIEADp3/bgNL
QluEmXEFKYdBDtiUGBMBmIAVXXlxdwB1ZPSkW6EIBUdmRZGq6D6fauuQPey7qB6EqCtiOdzNRHLZ
liDc1MRkRy96kzOPCO8uB3dD9NPnRi17s9Z2Ir3ngHhvp7ZwUrBkjkMwZuSJU7VBGBF1lgjrNb3w
LhmEazrNiaEdCLdSVrrpK8gNSgTKAWdMq6rh2E8BoFQQZv3qHpQCIZgasyx6xU+6X5QJwKBUA7ig
DizWqLtDMC7FZECBJgTAEAgQLBAgWMHZpVC+dVPbN9VyRt7mA4vZc4XPSJT2TVtiUJXqrF2Dp9mM
d68w2pTQJ9WX1+HSJV9SsKvUj3ViF6uN5TzUFB8tpqn3VTJ7zIm0Oa6tQ9b9OqS0rXChbmpeVSPX
q3YUPBOe7hSc+Sub97ve3d9koTnAaPeeFelWVriGWcLg6uMKuJaIqmDXAo3OYudjQ9D0Na9Xq4Na
iMRQGFLCwQZFQQTEZKKgyQpKTz7OeXutrYb9eZmaHZYsXR7bKphpQ44oDeNbi5Yko03ux09nVdyI
Hd/+5ex3Mf9RBqgp9xNDTwr3RxrQy7F4RengGZz0kblSUHmLDurN5z3FN5LPJNRt3SeBF9h0zzP4
iABxAGdOCHZITaCa1gcweGEUCdDDJyU4Zx0cTAIQ2hAFFgoskDBkQIzBmCHlE+5Sl58+9gjvp8rm
5/hWbNfWg90qQm+SbSo+e07JWrXqggje2EvWk8IU0r+pugHF7pxbh//gYmncdh29NlPAPXDvsSpI
KSkniSwHtgF5aT1ZpXkriYWx9mVN7ZlnvfGhS0DpzwdKzgbmDQGTpJPUnc433QmZYGk+Aahkgn6r
QGB9EpQYMVsSgyLT4gz2g/SDmPUaoUEWGZIkCQaRChoIPFZJyBcIDIMCKQ0EKrABHm8ESKXS4ERt
IRgQKCh3/O0vKkG8Q2RrKSgy5g7jbcDCCRYpkEAF2jZGyCRYsWCCySEIQkiwYKmwWKAIGehcMj0/
AAsacQ59A5dAUEGgrz0vWl1uETIyCypolkIIQLLkWXA0AWCsBYKBLgbLA5CH2cwhgC6aByTMNyap
0K9cQNvRvLB4495bfv7NwBcXHhjK6YivPALQTx7ac4vk8+rBes5qz1aNXxrrFYGKMmxFNdBDY8S4
icKwaKgD/Mf2YFTGshU/gh/xhCAeqQn3b+/PZPwRh2V8jBxpaUtKoxqNzBApjxh3QwyeiHqyHtDY
csDOd2y/UwQC6PKNa00NSWaR32NK1mA/vgZZgaRAMxyw6gMQt0rL3nrt05UQLvU6FkAnHTTJD/pu
5OG6v8U4ZvCLDZQBhY0G0NQxUYKDvgOeN62VvoOQoWBR5iKOURB4UuLAhBgNShiiYC1AFIQKiqjI
iHTqLWbgaUG0cXwQOWIGgEETE+fDEuChskC3K7pC4ZD0q0jSRHPViwI0kocnSjOFYrLQDMs3FpU0
Gh5KS9pfVwCgS47YhfBQm2DgAMRUAzsBi9EugmqKBlnljMawirr25WRDI5sk27DAo1i6WHciRV3c
OfCZsxXBAaFC0TJHjwDW+Ib8iwgbKEDosYKbllPVZMYPFhzvLgdtbYYgDO3m0yHkG832A2pu4DQW
CBAgMTZxysNtmsycwSg4QwMvRlhu55akHWNZ2U1z0sOJiNAwa12oM+ZnZ51QY6WNr566iWhDYliy
Chz0vcDUm4AhZBkYa637OA9WG15DjPXhTw44bN8rcDFEyUMjSJUIRNjQGyWDnXDBAygMqizN0PCa
MDgDz8rwRv4nD2EJI+EAOqowxKE20UFhUFeE4XNNtG7jSY0Aq+rVYsmG2hQOczndtJKDocUDzABV
AQOHADfM+SRKY33QPDDH7MVeQ37Dw7k9yCT7deZxvw8nDk3owghxlLHHBUrHgTUHaW9g9ShGz+if
gAXWQuklmGpGi6wuJVmoZwdB8pBwomurc5AA5JQQAM5vxuVshIRADAmf2mBZiALIZA0iCExN4/vU
p7ZjnH6aRVnQLeQJrbTwPVjROLRZn1TlNgKppzu6VZp9kxEY7Of6wDAFASDIWAYBggF2Q230B3XX
IDKBd3D2QHIIF8UwsCYxBN6EVHcbccUS6GQQDWBoN2hyGhKmaohQJA2FhTNLpRngzFQVsZBgBjk9
R1HfcQOOeRCHNImqHKgTamlKgAbgzzsmZktKLjMaUejfe48+hkouKCiEFAqVIsHCRWxZaEaOF5Vw
2QmzXlQcoYRDRVMggZlIksFtg4wOzFcd2IpYKHIshpNVC9yrCG0DkX2AtlLEFDjnQobsNbAaTDIi
mO3fuMVeKmvGNfn7j3FQYdg1UMqpvUXu8fJ9HSH578u3Vk5DCbxbhdQuREskACwri5QWBIAZEEGS
Hz641l4EUaDAIWPFesCmFHgFeQ0DsO/a9bQob6AeeQ0cwpBQqRDWnztxRzFtgMzBlupsR2HLRrJJ
HVwS1gJsE5avLixgrgYMBqlaVrfOTZljXhLJbyQTBZMitcASPvdAuMNwJFmfUkAwoBAGhEqkQHhg
acSAkAhIDexAEMPoRAb5HwffLKZEjCTTGcLF1SbghSBL0I6m+7We86ONDADaSIYf2j6sftvyzsL6
MMkwrmvSIoQ0kIjB2GGkxTmtsdPHBUhC+Znq47PBcg46Qvl7bhnplJlgJ5UGiHqdAOoRPL1FgEeT
nVVjBsRohuMO+wT/tRiSc8ahxMTHXrGz5c8JrpuBxx02MPiiJPbKQnlZNGH1zAENrB+NtVvB2TFp
lkpj3UedEMPIBz62cGqO/nz1cBwfIO/+QA+AhIV6x4begHfihqAHPAkBkSROeBeNuq+dgG0doOIK
PqZlVDSZhglUxuIU0cRCQmWW80xlqmKO4kdduGWW0LxwaDAAwGB2ZKWDQxCwd5dEM8IUs3DCUNt2
PZi4pgnTtSu6ApdImgEWCMBSBZExbNQA+xOu5t1YHML0FqaBtAJv0Rsa8NTCGcHaNrqFh3UPVBG3
Rv0Ovhg1NUQ2Y0MsqRXKtsLAIq1BbDGzEqAQOeWDc3HgNk0squqYrQXKpU1s0m7m69OGBCKwoYIh
hWUBCBAwT21tAVxewwgLazwLWUjPM0ecJgkLUUtwiJThrRYqZxDbFLEG44eWWJkLfFLdAu8VNvDP
OKFGeWYhlqcAuZpZK56Ya7tsKPEeW4MzeVuygULndTajsmVsqGxvyrkJ1GWIOCAROHK5gAGVaVkD
JsrkNqoGGvzIkjkPQAkRgwSWjAe/8qgANAOEwtc4EMr05pvOrPC+2LcknLMKiagF1IDAxSjSxL3G
wWSA2DLFBhDcg9AchcsX39Koe8glCBVyRE4AI99/dAmcIJ5q3zCBhIJFgkiVuI26bmVzhkbcZ7aM
js2DId4JQw2BQk7e/Zvpow492ds7/DrY5zSPGYSuXDSi5um8IbsCY/dhw8jKQWwyam6wUgABNkQU
bdB75Sgfgn8ClWkDD6ThSA0d9+t6YLXMBSD0BHGBAOREZFWoJRi1AzGVEK6xudUfcoee5vQup7+4
V6vxZ0M2P1uUznShzy7b1pjX8x+64ZpnrjcYGa30bw9TZuipGa2Ks54srNb1zfHZOZXXD3rTxbLv
M4znLcza1muc5qDGORpdUp3DzleQ0ddgvZRutiRtWhcuFpEVxGMXHBnM45uhctOYwp6sNxJjlX3L
bnlJvnd9bR7tjPi1udrnB1zFCjhRM0NbtsDG8czZ8jPTidOfHbPNDD8PgzscibqJTOgxbhuvNZe0
D3tpzXIbcLcz2M22OXjtHnExhJ4x4z1U5LXxHu92IoZ3aXrO61rl5sXY5ens00jVXO47Xd6vWMXW
8nlB023OWhOYhHC8xJgxzmuPGK7G89s3xD8ZEm6yJy2oCPq7zuJTcYvWdOG2F4F4ud1pX6MPBrg7
5x+Icba41yluTc8byK1tODM7hPQA0f0bltzHkCHoJB7Dg/ibhITvoT22WPmwOv3fufj2+hYxwHp+
DnS9XXuHOhLGtYeaYzppaIDsQ8gTyL7Ac1HQUHUIez4xZROAnCfFm/UUqTTAxCpMTP0xwMLIh/EJ
Iwz+PcqnIMQtQkmUS5uvOZvrpzTT9NHrWwqpVuD+WPAjwEEASP26f3ze7i7vN4GSmhvyCM3TQc8b
YJZaoQoRLDpe6EgnpTABgY9xht2bTSuTGaBnTMDVQCZnPHRIbPEblcKHxAZVAA6vXuwIDsuGkQmC
NUkzvu6ds8ZwnVCoWnVXSDsA1smOLcDVpoZKdBE5TWoQzy93HY3yROSXsYGDagTJLJpjcN6YlKWe
d78OkMtB0HXoMrov05dy6ZbsIZGiD2VIKJpY/QOgTp0w53tQtn5YwhB9E4kYbB/mb/0E3cgy3sIf
FUDjB+c6AYXEkDM/EaMLwgCLwFrP65rUwGmioyObNKQQdgePM5OfZYciT1HFPZ57yeG3qYGIocUI
kbIOeXDJk86GQpa9a5IgQABxPOARuQNJ5lrw1LVHjAK4buGEM1RdcigVSND0bSzYIfiCTJpwoM+m
SMJtiDMPDoyiTKCM38XxicMO+F1nTE1jSokW0OnW3Au8NTBm7bHkHRsSK0I0RwRhmL8bijCe/Q1R
g1BmEg26yKIaR/rIDGsBwQJe9BIJuKio2eZjcgMtOKkbOMrGx6MRLi2SBhhJQGCAls/rjaBzTf3M
3Ynb2fNjgmSJkO1JzrmXY+oiFt+/b7gYIMeMADQZsDkNyMPHnU+POc005Q3sKkSHMPJcWDLQWohQ
HRZDSG3JU6dt0zurWyGpUCF6TjQXuYYG4SX49IgCGZjflv6b6k2poqLlAzy1YTWuFzHfYDARcDtw
rvNQCpS8ymKAZQ4C/pSnI14wkhIHY/ZmfUdfkSLMaN+aUQCggXMkAKXEAMC0EHzUU2qIiJMg8C0L
cxwoMEBRjHKH50CKDAL6hCiGEAjCETGVmBwzIBwgCgV0aaiLonuZshigEOs+OwELAIDCWoxV0gCu
xQAMQBs8EoFxsY5nFyHW2qBYLa8I22hAoXjx5QNAN+abjR1HBR1swLZBRYcQ06OHcmgGJnnXTGsk
0CxXCkTdCBZMg8xdZWwH8bhI2RCgDSYIWAYExURBQPAywHp4OzL0x8uwa7hCfP1ndtbvKuQ15CyA
BiUBKQqUAC+Jt/HrxBA0cmoBJ+GrKhekZbBkL5d5NI5z3Yz53wUnvMVkCnmTFpWt615Xvi5jBYOc
LTSY5YCsrXOcwjKUbUGqifAL5kCHgQiC+ET3dpkh38qrb2eENpx7rAFPe8lvrzt59c3dlXToBvEH
JCmfMoy6UqcSqCTUxs+dzHDe8tb8pv3aJYbBvNbyiTK+tWX0SxktVIrlZYJUWLmG2gKCHGAilxyb
7gb5GAHYpZyMD24WEiPBCyhA1mE3xN9hzHf2buGUwGA6EA35trjBdwZI7YVfUNDTscQzDRKcqTEI
EgG/TnqbtM8tHSqhW2m6BiHGCNxgPXEcgzIFCuiYQMDHsEHByB3VqWYBBCEP/Fbr7i8fMEMnKIDA
4IQJWnYAo8IIAjIiIaVYAL0Byg1iPgHuZsXrI2DaSHDK3PG4W4wyNVIOYG8i8ZUTo235vCMRIEKA
MCs9ecoSg+AGXj2B0B3EGpAjKzreQYnOsSLwqit4XIKwgLHo5kb9gALsUpUJ18q4LPDPZEFIssgI
vEIkILfueTM6TueuGWOiyJwxi31thQHjrJrE4aJG1zPuIOEZXPQnrK5sQ9MFgfJXQwC8XugUKANG
ODR+XAsHMZ8xjS0vgPckLTalg/q6B5ju2Y5m5hlbXw1cCyQGy0LzsmHPes4xiN0sSRBB7JEpkXwE
ir4FYOamRfYiyST4gSSRxRcuxW/d/T7zk0G4BuCKo3dxCI8wymGEnUKEkJNWkG4Zp/Qn5z2bHA60
zGBYLhe+21XucudFYB6LdENyY4BOF7DIMoBhbJwRFoBRSGg8AFEKINAJpgdx6tm18OdZ2sHxCnh9
fG/XdQMOoCyJhrA8/X5doEMECBUZAC82RfG39/M6zWfmfVCbdbkBNEA3QOsJ4REg8IbQC8hAEPza
J0A/GGXIbE+JUuceGpncNCEvWYG+J1257k35qUltaQ4JbfOPeTJfGUnAA6hZ0gDLThgDMaRCGAYO
kBujQbaAaYYKctKQwutiy9HOgM0xDdldmWtkOgIhzmIwSWOOueDlOGU5WEvA69qAxiSI9RHbTbjy
mWJyjsdFN+dCVwpOWNDbhvo26d+mSYzok0vZ4R59FLiRqHKAbvlWkGmEB0MEEpXmbAJXi4DCcUfd
ADkYgFEa8SYtyfDe3rDO/r76n2TtPp8G9MgwLGnCUmxPaGb36GaKwEgSw1WKWJ82u10kJLlJxct5
Zhg5DqCyREPMD9pHp48Pf2+h75O1dew0bcZ7nlm0VZpLjzk3my9RIqgiRRLZrpqjKYmV0/enNJ54
XYV20CBU3bNELau8sn8gBA/Hx8j+C0AhAfMAy7RECCBZ0CImxNo2S4bJv1uV5g5+jAZjj3Wz1MuY
UcxcCJsVYe27aBbttRwUjhasd0P7AeMgFsCQ6EAYqQDb0NJ0mFHoApgQAtvdlMcNeGPK9BinCnQd
U6uI88i/BaQsQCDOeGayPUOUECeNExiIS+r07uxPRrWIqARC+1S3lbYIRs715AyRBiBfpAG+IHth
hbE0eRLCt/MZ6oPLPGw0Ni71z5+XKb94a1wCYIhMIeeBfK1AB3eeREGCTC3t39QOAowRfAVvJAsA
hlfikCBcBYYqvma4cDBjhuaZ1iHA/DGsofoUKOQ+pn5MIMv90ktftyI8Sfr4hEactb9lZiDEIOC5
7qJJ0NJI6TxQEPZgfFpSTjqSmJtAK+T88xA0ZCviZNMp2HXnUDikf8U7QZ+5yFn3msfZ8cWvvTtl
5JfGC90O0tZ+6HE3zy8suryi7tET7yaTjuFhQwlH0GLBr5pKV11eCmCGB27gTAr599tSQfhP3rG3
0whgGVoX0wpwZYVQdnawonvbUg+4KM04dQYkDAthdsyVLM1tigtBmYDldUmv4TzgeFiOEaIY7w+S
Y+FBokR4HorEFzC2pfOdk3Y6WGjQCgxsZKNDgJcuENXdtnn0fYZBkRzYRHPs3XNwyblnDaXLJqSq
QJoWUsu2y7weq3TYxVj2CW0ktophJ1NxRBZrEhNxCpAGWiF8h9qkKMB2gh5gJUdIdqLBaQGb2ShS
p1LIciLnV/lQx2j7GX8E8PBjgA7UowYDZFwABQpl4oATmKgEQ5qJIeADQAewbBX3gXn5sBwCohJb
ViEEJH5JABJLoLABIAkKBS9KoFv8OI7YnU99y4+YS/iFOUIuqhJvfmI8zUpTUnYLojax3CjPUdns
CsaMx5uvfciMpY5akkIM2j6DD1q2ZjJ/oe1GXYlHwyT4E59SDIDOn930Xjc4z8XYo6n30zx8utJ3
2r3gNnfE5Xb054zsbuqz3TpUqhxnFAKMvydDuRGL2iWukHUwsxrBBtN1M4hUsi/kQBFjzRDwwZfr
AW/oNAMrF9fdRAmDBJxQEY7nbnX8U9YZ0FQ4kraQHusIeGeMS7w8uYxQMrS2al77m8qxDQDRdkDR
wXYbhNxhbLTdLYOWIaDdXlwBklwwy8R4YEtasBSqQNDhcxgJQZ6FwRvd1vRdC1FKjgIrAYENUiN1
NkOjkc+i/U6VkcNm3FHYEveyohcDC5w2yIPlLrzAkCkLMxpsgDIIUDA6jGQFtNrbWpOjHUa1shqa
QaDECWGUUNFbIaAKlCMSAQC8w1m4KwNU7jM5T5mIwDIsoNH4yOjkXVUkMKQgAKGZeEAE3IH88+OR
eDkrIC0Bhhwg+lcA0jVhroZP6qZzDGCazn+bRZFoh0JogZB8n7eiArIHyFBcApREA0A0qfDB0MP9
qEeFA0Gfn5sQWT0KQd+bBqSGSMYOeByA6MU9AYPBg0QS7qW3TAbal82h1z6V784tGZA0ovwNx/ib
YN97V/8OPnJAbu+mnB4/vpSlfcVVfDia6v5XUej/K8sb5OSffRcvTDHM6z4KqeP0XsZnggcJxkkL
2XFxaR+AHsBy8ToAvbwQBDEzMyQxgy0p5vzs1qyyltWjVlERgxLBir7XBxYIMGFsSxBZD7hzH8z+
D9N8DeTstYCxB6/he/MiKjsMHn9cZGRJIo/l55/DCHdAioDEFFClgWljCoDaEYElkskSkkZFBixY
SKFiRBiCBUhYGKqKqLFiMYqqkQGCRBBZEEEEjASAIyBEYBmIcc8n3HlfzD3wHVY5Eesuw8uQPMHf
0qPSEArYij2swwsG8SFaHnGqOphnVxGNbQoRLk8wyZcx/fCtkDo7vosQFYbrgwR8rghzzq+OeVhH
i1jgKmGshis7NBGQ0toPVrQqTqkqDGajcCNdfCvep8PGV3gJfiHQrfuPm8ZHlJWgntW0BVN5yw8T
mLvz5VyBr/nrUiXwNSMJ4KN6B+Zi4LzkjjDO7+dG/bsV82fu+vIx7PH7OyhzEb6/vHyXX44TPIzq
XG4wTfN3GoyEXN+2s4GxVZp+rllcN4redY/mfjWF3Hxmz6g9UQpb58ZWyztXgN5bLRx2n2VywUNr
ZviNCk9vKWuf7xsJQRuc8V1RUrueeOESooK1Zzn6w6PToa1we5PtntV12x233v73cZdBr9ghqd+H
GzK+L6nA7eREOGqWRAnmL+t4/wfPjm+77XimwJNn3M6hWbHqQG+tqTtk6VqDeMP3FDsY3PNLQrb1
EvA9zq8iWG1h54us3qnFO5pSefg2Wt6Za7qniSPtCmV1DYD4ACYGzgZFsNpRZ0kS+BLHuVpBUdjT
iPuToVlPMhdirg+fqHgXjg4I0pffO6xycGL6pq3g3KBogAmI2ccvA2c007QxjDbUUg+yvuFy9YDz
z2x3fsjWdaw/nuWzjuvNh0nz3g2qMkHzFCL1foQ+WIGGVwpxjijspPWrH+QAS5Dh9bNwB83Lx63m
ved462NgehTOOhFG9pGxVXUOLkoGByiSwwjDT6xlIzjdtp7/QxH69DozO44ObBdcC+2E4PiNhs+A
R5vogckuEE9qyoTmJUEntff470395ABhxg0a8pTuGrP7TG/MoIb14Lb31NPvnjZhN7VVZkG8rj2x
jOGytZp6Zh5qHxTaxnejCEO44IfciQiHUiEqpSMZP7O1tYQjrffgbbnwFAnhNJWqNfUHG4uODPl5
HBvfNz0YscgUE/38TIjHgPh+4UTuo1cI6aP99keDJ/ExMVqMuhejaHbd+UtZ90JbVjx4EcSG8z4v
NWbpnHQorWaebx4IYcWEJA92D4iAtJ2gudluuJyZo7ehAyDgOQ4gMgiPMJ8o5BcSyPeHvPGjuDw8
g+36wgzIHapdOYN4bR6gEp6QPJ5QT5ucfchgOwhCjwTIb3JJPFOlPMInSPYDYOSnsHFaoO1SKiGA
X5EOhLAcUzTnT1h3CuY+NOZDHoDcHkHIeAcgeVMIdoPKB0dOBwBmPKj1L08pJIyR4q6FFpgH6wOA
c484+cDeHIPEh1m5OkfJO8PUQ4niG9TmnJTrG4egekfs8miUpVL3CtB3w237p35br3ta/Ne1tDFn
doOebzfy0kbb29t5AWBeRgGYMx8tuGd2slUyaKNQ1llrpxivj20LjFzmVsbB++CaQC8VKkRkD3Jw
kFID/xopJqIbZCp3EhUFxHOJaKMxR1TkypXEc27QgmzprZNgWk/jjTGX09mzzNaSYNbV3uWF4wUm
AZoLlUIm1AEnjZFkAESfdMMxEnsQkwJYV9M91rggBnr4VSFemRaXZzJyvT1mI4YpQwxhGeB5hi3y
x7xwExsgdFVG4BgHHTZHhOPiPCZ8J9QhD0USAQYJAUD1o+pZiZqM8O71cNUHcnKGcjp4MkCiF40W
PFUvVmzmKUiaSZAlgJEYQ6Qe46WLpAqaxikmvFjVpnppqyHbr7dzuYQw/CgKOEy9xVzLBaIqwRkE
GQZIIrhSwQQQYiKMVFR/M50E+KTNxFURWQIGQJCIGRkAa/eF7bb8NtsqOy9OIQib2RovRoNEK/3K
7oPa6wHMOcSqZsHhu3IGGjJy8U3rNvt1qFuz2CrXEpb1jr7jkmInBdvDXaImOGhZwuapGtVZVEHi
Nmsa7mn0DNHGEI0yuka9eLCsWMyA5BvamCawdbvNuTDrAoHYaE5ygVm4swG6JvZs04yXfPFFq3Gi
9kdT6dFSsdaLV3ldd4V1qk8nkGdvB1OtCtHDe9eCiMGbkxWTMqVuIcmDjpUdKk8stBu3Jp13KcOV
M7Lnsy+3dkW+5vsndxWTuzTLSdRTqp7Rz3OojbqVs3W9a26ek9brZ2ZuaM8tmuwVuGhobIeE6utn
3n2evzwfXD2HuLT2sLBUYwYIk4GFKkVGWZzo+z7vw/Do6ODv93g2bOMNmgQLqrk7Dqhsz53pMgDj
EzEgz30icnciECAqABHv07hTNEHenXuydw83PVQ8YNouk0JBqddKlHdrgsfNyMpWFbohEcJup4cO
ljO+NL6W8FdEzpM0mTIMHGlAaOdGUdRAqC65BcCwWBhkwmmvsD2bnysey/lYK9dHtpDOCIHs4Meo
4nv9kU28d1eZg9wcEbiWJDLa4laFd43g+cbwj8KOEFR8KVr4eBbcdHdIy6RIeQ0C8dwCBgMALDC/
P+D1DEZDRZcHEG1WEVIhn1vEzWSD9id9zeZzmcv1h+xChPlQ7ofA+6+FSJxvk0UYHaEE0gFJASQN
yK50gllHR2h49eHARDQlJCkyotaVJt78OC6jgIgGss2ZBAGggQyNXcHcaFajxx2h22GxgULlkoKH
xpoFBi44SyYtSrYbpZSywLFA3V1BFApCwZKFI8xEMhgXD3jgLBB2oG9A1EyCjmr8A6+zlxPEPD0x
rPU19HTJdDkcsU4wCqhFkK6OGicJXSKHGSe0yfN4+s0/5x+Yyp+X8uyOCi/gW3ucJlWnYmn8l2/Y
vN1vDPEs8wv94siR7qpYLCHBf4FAHB/Xv+/E1HAKJkUTaVhcT+/DCFy67ZnIAiXTeHACbH45hu2x
xuBRPVzRxdVuReNUptXAsYaCOAb1GMhyTO/WpM2hYBtKRJNgh3BwIuB7qxNuZhtlRUMKOOmGpiFh
4VqIILrVKipkEBEIAxELQEoTdtsglhgqJyRQVgqjqrttw1DEBMkiAER2tZVCywVg60oCGikTeGaa
sy5tItiKhkOgWXFwSwBsDLZgwgC6BpkOIar9/LXuzLYcdgNZpu2bjc3IyIEkgyAIkiqyCowggjIA
gkIEgohIKBIIrCCASKpEYAP3QUKIoEihIAkYoEYIyIwgoQiIhBikipIqtRArdYQKkDBAlYFQgUZA
kUCMEBCREaii0EBago1EWLAAiQQCQEJBm2RzzW0BeEDB05zstdUcRD9+Akf53DSSp4fDUHllVzIE
L0mwGAAgCwwUh8N7AD8A+yEIFIAf61oIgAD2U/fgUd2MBPF54nADBeyLZgFMx8QCeMrmhYAKyBcU
DEoKBZBQLA4AC9IYwstlys5V6NGBKhEDfJzwsON0IcEXuAuHMMCIPvQJgTgh7KqeBsP3kFMIE6qg
FiyBKoNnYZlXBDz3bbrI3HvylxjUdwB0zo5A6xAdNvM+FJc+doE4MEZXgIVx/ynT1okMqMethXUh
ZkSAgYLiOzAlDn8r0eFECAYFfe7EAj9IIQIWiAp9tdBNgwffubn6s0aaDefOzv2NsXiKI1gXVf9A
IrqtH8Qx5qPljvrrdXw8/zAkaC4rlvZzAz/Il5gc9xhx+aTPZ2KSs706dDpOXyDoU/EyTs59DoSG
0Lhv4bQ4XKIScZCSiCX+iHqeTRFbeKhUyWZwYhluvTIQ6bpANyFhGDpojd0Ca2V1ZVAK/4itwLEU
AoABg7doaJYfN1wve1p+CqoqMmQflPTZPOAxgiIQYoBBYogkAZB3jkELwe2AbDMDzutHPPW+fS6g
LwIFDqkoKCts7BZAqLzzupMhcU9G3EzDLqoMQ3GUCWGiDmBnTtqX3aS/T6xXLSTSVvpbJZKDemtB
bAYBddLm9TpDKwFg6cgxRQUkB2Ni82QY07y8KmYfUL7hkzXii8f1efLQYYrDQme27vXZ5cyujfyr
hihuremTBg6pBwXA9tnBlFgHBOAzIayTXreQ34jWt8a6DumDrqqZK8eGCsXK6HI2VdDOsiBvAgEk
wgLPqwABsFrn6eQCjx1YWRh0Q1TqoXngTeuQ0DgMSJAsBgFI9OO112i7wMSLGCDAKAYGj35WmHgJ
u5nzfg0DIpOTF9yQQnsAZEQmcGA0ZFDySUccVcWzqQQJRAltkIbEABBgRAJhiGu960z0HV9Zd/sD
ZttZfxN4mjBwmzmWDbPMcXGuixsmSlOkKgGAUqVfgb73qLOemnHHa+WhJww12WgwxpWsRVZtgAgY
gSEPg+5d3AQFYMpG20Mg+auN+D1Z78afkYGEyeffBpPl5yBjV8GnWao9YTgUQz/aDVPV36+zoDIz
WOiEAPEFIEwIiN0ddyEZsBxAyScKMAKAMM+Iqts6hZ0eaU9d5fAjhvSuqjGcao7GyLxqUXSTkgTf
c/8RRYGckMghiTEDJiVC6SzawbuOBwXHrxDfLg9eNnQdjHES102ByKeWAbuehvx06ascJq15DWaG
+wGESRKXNC43VcXFsluI5JqupcNVJgem6bbtCq8cduWewrlsSBAza0i4BA3jhSKlAm6HCghacGgO
UJcgwFAWglhlN5e90RVQwaHQSDRqgGocC1BwwHW9TQc7WLAoK7trbgmGvLPnV+yYukmexawb99jh
YfLMqLMg2YTJdCJs4m2yOQcE1gbJXHLfRshDfqyywEpbC710ysF1C1VDo2ytxwUvYdNNEO8cZ244
xaMLqVBa+QCUcMADwMgIsohEEMBygzfuOfdF15BtIGkNqQ1AnDdbMqsAYqX32LdBtVsJCa26INop
F11oOWhWUDqyeMTW7MWGgIllTcZ3shsgboJwg6W03acppy8X7VA39N/lh4/NDPj/2AbzoHc/NL62
SEM0CRxo8mHpxZH5lJ+DA9d/fNzvORxPU4CBEX+PoJwOgjwlkCY/oHFQtaypOZEpsYeSU6r49uE4
jiZhxlKLG037r7x1LM4b7mvYN1isDyv6QPQLAahmOI0LQ6LgGlVWfDLZcDPM8733ajipku2AWMQx
KsBtVECGgOuPTjiOzlgrbQbFWVyrq9S4W3pU025Bvwxz1ShMwhsZhVjO5DgcIwITeASAlcpCAchA
iqgrqUca5j2OwrLFabjeFckd+xQYGqRNUAxVxMrsytOvPPdkU6y5M1uEAACgDIGkE59UCAZEphPE
RokdNyzMSAfjlABgeGCRA9qCUgTAsWpCMD5OmoCWQzPPh/In4dNkg5DjgFYIygDzPigvdMBjHScd
dbTiG7MMGG041jVnhL8udjIFBWDrORjZi67js/yxVGVczj44GT+jxAhgfTICrypBTGsXWsDb4p0Y
hfXTGwYYIaR5RcQhw5UO6A8+We1TXA4alFyb4oc4b+FIQiYweWFBRuoglMC44nTJrmqxFBDgZSCy
yjxII0ab5dSCzWZzw081o9gzpoE7tpBiec1yTRxyjB+1vOMjk+x2DE5wk6kKCFFDSkptwTmEdBMI
RmTd/gEMlMj3e0fPky91oga/m91nOyu7mKTzdsMjJ0bVjUrp7kn5UtmVenCvQNgDn4AYAYgaOJeO
sM4UExASajFOGNum5u55HTfScAbFgaGIcJX7D12QieIZmZmYMSBXmmTqJtDB2YsAB0BqQleIocos
Wp7oMxWQwhEwgagACGFWELHwUQAGGFAAwQ/A6Yinv4f7xu5MkvrArB8CQQUD44RcKigaBaUjMd/L
UZ9FezV1UGYMcO0fJhgLQInhoCuEBkOp4nmlHviXwzKp7EEITykNkA2yBhQ64oFKIIxYxsYFxtqh
sUaIQKN/BJlQGQPtigLyAkGHSGi9YywvVpFLZi/iYrMs0QsvQomLGA4xgwomgO5ZdVp8ho3Vbsgx
sYI78InIUGIZMgPaIfTHWBeuiGBNWHvtsm3jRnqwFgdIDSTmvQFgIb5pa7vrh4wfXci+O2nzfzWh
7v22Ojbua0r6bRrYGPl48HYCLju9hhpPnmHvwZuBW4Z8DmnQ75jDwe058RuD405uXTeTEBu3zN+y
rplOSJaVCGOJjSdG0X+elDFAvFt74TouqqH3IX1WLQnZsYlZ4Oc3HNtNTgTUHJojZdiGzYOhnMKR
j8ZVRYK0jth6CHX1UGcwae5MIc98K9kavKGkVcZarIhEpgsoKcYcQeYKtaEIVIV0OW87NR5QeIwN
bXtcupphpcDBR3xaMAQSk2DM92KwjcSztpNOS4ZXBqQ2oUUHAnkmVNZPLLxVVYFJygejPWccb0eb
AL7a7nalvIY/4YeCnVKQmhgEJ5UhsXPnEweI5Q0Uv27VtNst2dM6mL96xFikAJAQ4ceFrZcTlVbm
rFiW5r0J0xVTdyzly4YBtxgnCBU7hiIUuhRR9eeXg9mUFsDKBwCVrYgANgT8OvtzJs3X2AMEdLUj
RlsEgoBmJkAu6h5hxmiAoag5iGjA1ibuqTpWUxMzAtjYgAEBUIiYCRgWggYAEZOqN1IiqP5gIJmd
SoN5vEBjaNp8ZEaQNpBP1tX64aEzv6IjX6jUHOanyTiEPZx49V/xJOpNYQDCbVzNcDnXVromzl2X
4wwQcQKhIMT+v59gfJn03SKl+sKLZ0XVU3ng8kvQ7gHds++SBoUQcgKIiYFYFwMn/VtmYjWVAWh0
wDhVHDXfYsjIhN6dWFbaODCoUcOG693fDEMunDZENsQsQxR3dljAhM99jIMwNEs5Sk3mzLPDsktR
oLmDBaIJSkViRNOCHSZa79NtHbE1/D0bZqb4m8x67FwmeVlLMplcjUaFijMzBkRgG6JZonUBB20F
LEJ0wDfNYcmIxWsqAg8tRgeIMbQc6jgWEwAnPuZ/iq6VIgBmaXnUuAIMbMV6EI+tbQQBmAYw5Bub
xoZaPC7tKEsA0yooVQgQXPMk1dqtc3vyOnefDKcrDsEfo5tflyPDswXpls+GRU8e8HT+O/mvJ9QH
9vO5fwuxoWnshOwGoYyevfmBzNVryEPnmjqM22tRG2XXg15jPErzITgJxJxV9rGcv/YCHxA+JETE
OoEt71+DDR6Ns9SJYuybCRuBhxk81bc3ufrYvzBeeN6JHsissGr675ZypZcDqunJE2OnSttxopig
5BjsDRdNhb5mVzdUkBinZgIhgHKQIci7EJ2QBgYEAZC8736m/rtjHLQxkhkrmUJDsozmvbXSB6KD
kcM7ByDlzSFjBWo82lt4garLeWOBGV+HhVIEOGIIAUnghbzy1pA1CgWcgUgsX9dnA/rJ8agYRptI
g8IRAedYdMNaHrgTED7VVB2kK2mIW4cnBl9eT9dwZqfdGqhgBoIG15IaTH6RDGUodcOUOE9QqRNG
CFmCHPM6YDfG5zOKG7OkGIRfMKQoy9+INSmL0oA2yZb4nx3Mjl1+/HGwYyZJCXtKMXeN1Gg8qi0g
odZAZ5Op6MmMChgW32pqCSD5oejprlQ/64nTOUqfoQOg1EztAu+D4/B+wG1iDWaP9Dcb8GCVhXed
wvRe/0vQCso4IaZ6/l8qQMAgmaRFWKPAXFDywMwqIToqhBWMlA8SIGJFOUQ2HqNXzCOElqrwYcFs
4ZupMqyZcFUR6/I0yhbHEKSLsERxDTU1U1Exx1zsph1ciUtDEXJB1Av1e8BIwb3Ck70agcIMCcD1
iDntzDEOAG6iwG2BIGpL0uinTkbcaWNkckcxgQIAQbxTLLBgJNdHNOXTl3mamqsBmJuGzR1soyYA
6OF1CAyKKMahAjtyo943I0MhAMGYI+mgMyHLIfe/PsYLD50rjJ4IMCemKu0EUyDfzvcA3x0sU8wU
w2uG6azdDIduygXZpgssinTFqKSIb6qbebZyk0ZMGLMFBoqUAdIigEEOZSUU4GSFmITBjD9XGbCb
9ldSQWqIbMmxlzulwWTHCkWeUEg+73vnPUqgHOB1gKbbHDl6BTzU0WV9HUwteYEIi1+Bqc0igWTs
6mTCoNx4i4UUTiMbFe+y7SEsqdwmPgoi7MxR1zFjq60TvgQpq5EQID9IKYDyJc/rnzJhyCY4wR5A
eoMQACCWcn7E1+7kZIo6Hv8E3KWeVUzqzrcTVKawdPbSs/saHmI/MPshRBSGASgQT1bzKbGOdULB
1jWYctF0ThVDgrCZ67AaOaSw893rVeSjIFSnqadianw0Snx7b8mDgEoJ/n7cOREqF9gDHLqKIkbm
Q32chWk3u3JEMDy7YBxkADgVdWoBbMgQB/vc49b7iuIJJW+1rWyoMIKJrwysIGkE5h0O6wjojgJ4
YzCDXaUDoVLcDWGAAt0jxCBAXaEQBmQBEpkQv5vPU+wIIGW+b4w6YL43FcOhtxZBATnhjQ1Gj4oo
wmGL66UZDfUIXBBPk3t1zAmlJSMjLFOFDD3XnyLn1knWe/NwZgcbSpNKXmfONxsUpsXhjm01u1s8
nEaodyZZ8+RmArdaeMrYoMvwlZB2q5eHaFapdzXjmX4kOcuIE2ltqlDqqvGWnJy6u0KQoSJ7w5U6
x6eU2HP0AgIePy+/5LaoaZqaRnY+PI5pz9+40qVKtnsSgokGAghxCiFuzQuiTDTfbP3pfjGKfON7
TiGCAQPpVLbw9vPJ3H+n7BTZf5oSBJJCfWW9gxhCQ4FEgSMVgixUoIhQUCMYkBkYHsVWKgJFVUiM
WJFjFh8zsnd5cvLxvyuHl3mOmMIT3l83wTsPkr/aqe9QtrOiK+9g81pC6rAUjcUFZuX1liEBi/9s
ycjG7PxFwEjkafYpt5BjJ7DJxdUusZ15wY8RUTozsdG6I67ea5gY690D3/qnuNVb+Z1n+QKLxvpZ
bTkMxuD08U3l+AIERdgPsB+wgX4D5ADGKdel+/fWOeYHH0qEmIrEd+hhndX0D+uM4jKrS8PsQm+j
zgbJXB8CKkvzWx20Prf1KvwXwGwyyp4wxzYmN3V4jE7Ruj748wq2fzvp75NzxcX3Yk9VmOCcjxKG
B4w8Tz3CJQcPnE6TEINZ9oPEvfOvJAjHc52f8yBtqR7J1qPVztAlrGxOzji6TfwehRjQREBFIHSH
+AEf1yljSUD6FHp6dmme10QL5Ug68FYj7YzFm1MLMOpNUserdAR2fTLz3VJ2hi+FMOOmGca0sj0U
woKPAba9GR3b1LNzO8mmbrozPFlaBzEK98tf9oLDq/N2fmEyd9ASCjzF4DF2YTy5iuk2yW3FXTAf
tptVwEGD5IEmwvKWCFL+RkEfB9t9wQmQuIWm+aFrPio3fhfLnP2lWfdp9Z/X0oPgmHz0z0MwgiMb
4uD7Xa1kn3o7YJ6Y6fTaW48hsxT0AlIGr/ME+7ojvmWzrq/YYq/ERvqtn5vUSk9FnPI5jtW68e3z
aSMaqswOnGSP7zi6UbA/P9RFYgeTGK3BrOlxBrc50fgXoF2ernuuLzEQrVvCMfAQw0pjhrHZTHAC
9P8IhzT/rHgpk1NpeZlz812txnX7QcVaOFrlptbHpo+D+yrBlknRf1HifCQFXBkG/QNgR36aV8XT
YHoDojWFqlzVhat4Ncw1qNtw1M0dZmD8RWhwJtbzsMLD/u0z1FUcoVHm10IGO3Ouwk675l5/Xb5s
WY7jPmdudp3mupSAF9+ETAtKQ2uqHQALyvPn7j6/kCgjqFGbyOmvMq28zCMLTI9f4Kh/ioccNMHc
W+896ejP53sWOuLzHRB8HO+owvItoPOZa+png7robl4U8Jmdo6OOajS9Qdz1vH2Kp8mh40UOivrE
9TKoz1bcB1QjCNrLQwSg5J2p37QOAitkMhYG0OtekeIl18SQPHxDxCxkPggqBt5BT1jMg+xKBNB5
nqRPEJuPALnIOwT3l9q8qbUNg+d5TwHzd4eCajpHlMHMPa9StzzAV4g8B6UfOlngGwUgdoGoNy+J
8Jn0DtfVmOCAwDpoE3m/wDr3h+D1qdAljULqvMdg9oe0IXGgNy7gy6XHcvUHAOcaV4p5R2jF2o7E
7daTUB3JqMDrHINA7RzT0L8NBTAPYuYOd5GdQaw7htfsTgFlcxe4e4NyNjxI96B33QDYHyE9qrvB
ueIl/WPd4dSeQPkmgYvMHyHIIBcAeQAh8S+XuC7+AmDPhbnLaW7BJwYRNxyfCDnSDpCzPeg83qAX
BkDMGMJ7de9fOdB8Y4egqYetE9Wysm2poFzM9xDT7FZKgKRVFZbKzsk4YVDbDTWFtkl5pKu6H9g/
gEAM/f+HlhmUfEX31PzAip4nkRjY2i7Akw1RBE67xCbyTuizHGTKVXKYwonAhAVWHEu5qhEmSTJA
6UI6hbW3c6KVumoEgoZpvqzOP1fvD1TDjaHmQ0SDduLFybY6BNZXP3LuAjIJhja5+zsM+7q9SBJs
xhoySYLQHXIyaIjzQZWuspUEEVjbNyM9MOwtIqaqzUEjSAg+aIVyGNS46aqgS7GFsw8iDBgzLil3
GBmpyFZrgYE5RtarxU6zCnfXWidiRWb0kBkNDcxSHmzcglb1DRNyZHN7cFaIVY1CkYN6jK25kjqF
3hG6tN2OvqNXd9gd5iY5KjxNMXcMq+vLpnLx1zNqefEMI3lzUx2i+2LXXYAt9z0BBlhvVczTOBZK
djgukTQq9t0NCnKNDdqqL67Dq7wRPCztcdC0VwFE3YdSh2FESa2azTazEwqOjpILvVl4KoPhLGmS
brtrAhSMG8y5mbO0Nd4Se7kH23qulR0zfPRpto8DR3cHXV4CeZGyWc7qFYjiTdA7PPN4SOytc1p3
OzexqzXLe9dusO3OufqPP0nqiqCCsGFMMMMKU9GHehwQLHQt642kPoZAve0aHNI1HCwliJOovhIz
iwqRgzZkipMtZfNTdGp3Nm6mp2Y8nvnHXHUho5ym9hcneQsl7EoVOGwjEiTgOknZIumBpDEe1kLF
QfZ6vgjc25QJwinh5mGhyvR/xrvHptjyzmHG6y1xJXosiVpeFa0EjEIVeswxyQQOwrZKLQMrqLjT
Q1xxbjsO5EjIQ/V84SmWjad5SGZkfV41v37LyD6w9wTiAYMwCGtFZkYDXYeVyuWM7lXJ2wKVHYnY
cfF004SLSkdEhrGZXTLI1gJmBcXQA0C4URAIBYLoxCyI3G6QYu4CWQgDYWgg3G4UsHab3Ae3xA54
QY2EQXei84w9Ew9jejjDHB6gKRrBmKiAR9vxjeLjGF2P3mqswhkdtTuH3HUTo7NGtKwJWhph4gjk
dmnb2cHMc91hNbpuSuG+yuKGQO5cwhArHLa6XEL04XpyXWr6Y2wGJctqrBLS5ECUYF0Id3Ju0TAq
bddZ4RNRAda5hpkJPfVkcqDEG0TRbXjDhVlBo7DyDwkiaQczwSEQEEt6fX7Um0sPzWFxQEYgiHQL
VUNoA1B2OoFUUGJpoXu6r/hsgd0ISuIx5ZQwfsou5ZnDkYNwnGe1jbdwBUBakBs+0J6qKDCZDoyq
Y1gwXQGALhyQGQYIID84d/Y9zj645fbGTA9D7STaQxAWJxlBxu8838E/Mvs4FQATcaCIkwAPHCAw
yGCyGYdvWfjjR2GywyA8g1EUZEVyHynVC+LyYx0c8VAHgZa0SRA5/tAsdeB82/kjc8f35m9cCfWF
V7y590h58H/LpEwAEQKjjqm/13pqDkCE8jGQKIMGImsA/dFD0gAQcYAowE4UQftolKsjjZyAIHsq
TdUERkxVvERJtTVcL/Khr9/DNJIbA0CxICAcDmFbLw4bIZARAISoFDz7S8zU4jW7qwrKYB17XNsQ
OiY3TKCYblCna2/Ck4WzyC4tFBiJEptpbyKC6ofKbAUAAICIYMgTp38BQRWIQyEdAYCf3j5Yn2+t
1WNs+QPgm/b6J+Xnfs4je951jV1WMDMCg1Dg9vJoPFH9gHUAJpMhjqhMhAyD9rzYs72BcBQNjK5W
PrMfgPCp8QEHAU607a3zBYG+JgFd9BwwALk1sfUKQgN0G+6hF43ezr7AM4AsFFQYAQgj93ESuejM
vNQepZGK9PYiIVsbGb6kFDAGZEgSIKtrtcw4y32tVNDit3XEhGBqQCL+Dx0SEMUATGlIgBn8mP1C
1mc2MKYcBNK4iChxAnDd2YveQBgs9dU2Byzi57AOB7aStvxvjrMx+6fWRlxUpiFjmM/3Fpvwqg2k
X5X1K/qMJAa2CNYwNowuNZmC444gy7UFBsZmcQVzMopU2YHoBtpHDf79PzvXva7A8MYzYqIur3tZ
tywHAMgOfSaEio7y9hE6HneoU5yPV4Hspjn2Op1YfFEdU12CKGIbxuEraxMKHtsBw2yDPAL+FVgA
hgfEkBjBO6wgfQUfmc/cVZy/AAGL0hABC8spDKrliCl62j+ddSW0no/W+fBwkjJwB17dXE15VCBY
KdtkMGd3ScbGaVUWjNwhs80FUR+yPINwS2ONQHglG2yYvyqgWvimcsIifUEgAZI9lwi25XRDch0c
fmMfVUwuqshLKjmWzUhgwCAIMQLjV7Pz8yQACvOt1+Dm/cERe1ndjkWAaaBrGo3oZyq88RRYBfbY
ABjPE5nteYD653le7y/DBqDIfV+W7AGMVWTvMqBjX5wGrU9+5YD79fHIWlcejnWQMM/mYgRFdEcM
aD8IFA7M/KadbGEHdZFVLXkHvWccGetO2z5d7eYBPwodmItFZvOf2BYKE7Y9D21uUDMRNVJTU4DB
GARv04H7O2fy7gMU+hzQWTI1GYr3ccEEYLqxXlFU9QuQSVZU+VJUo+Bfn6ebAsAQwHUulLIA7Gc2
qt16xnVhtLb9/XOneY60hG1keAANuBIQzV0us5qJiqoQYzmNAGRWyEeevEoDLq35iXf19OOVzJ1Q
rBYAYwPK8QwOgDVzHIcLwrnApSuAQJbgGNPiF2iAask+u+T2fIwDG9AAx78fYzJo9Dh+oU2ZQYFL
+XMc/En3z8rc/e887lZQJpGKQOSn3ENEw2bv0ZX+YB2QudnYDZQjZA1+NVlxK0IxpyY3MSOtzJ+p
hb7JDaShY1jLBw4YcTXe0xE9hXao+AIGG2vCWzgqmq4vUxRsD8T6j5qTbgSPWtECHuP4J41XsYPN
jPBxeWvzPQIbAFQdADpJPvaXQpP0pKeQcgrGsjMxw3KIAx9TEg9Swhi6oRe+Hb5IWhuKeq53y9Xy
P1x3WoRuFhMKaB7dg3aQ3W2sDE7eqxppWJHHu6Ij9QVkpBAYRxyyCRpm8DpXTCUwE5saFgxvfrgU
NwsKUioRWDzETLrDdQhiZ5ogHFZ1PIUCjH0As8KdrnFkfroKP5U/Dvc/DMYMGP0PmQ0lqSAjChZY
gW/lc3Etny8a0DQhlQsGgZUWAhTgl9TyO+Ma0ekEGGlIYAd4GoiIiXT9Z9tW8bX1Z4AYB+IWMspF
wGB6+q0qv49vZC8GDeNRDGSONCkZdwZXPWwfq9a1EGK1/MEsOJ6jmY7qGrT09J+Wh8j4GNdbfFR2
sav9t+HzPm+fx52cpqoxxfEYStTfVsC9tLiv1ITAlE3clpSQsrwtlerPRrfwb+bEmxngvARvESJm
tZadJSK96xkCLwcJJu5mlQ6W1JLTZliVuLj9qBX65sYchQAwJqRuJY2DtQ2dW7aeRqBB27US9WNM
sbTn6C0DjIGKQxaEzAvlH5IdKLlCDulyJFIUndg1aWxc4GbxgJAKHAHm2BNsw5kBPWHhhuDAyn7Y
YDWoEmPK4Q6BnUyYMj3mTAXfE7KBDQT8VemAZ+cxXzffm51rOE4YUe5R66oyDdID4b3RCSgYEAnb
3WCJTAb8IRKAhP1oq/qrWA+oBFvgcJPiM3xd0NpjpPcOIWBCicGL2pwCirkMiFF2dubhtKjE25oY
PVyJSsksIZowMyEXuPfNt7DGN5BxoctsP0K+l+Dw6zqz2oXLTTVT4IWKQfT0ND5nKZC9rIW9Vs8x
zAbTvHjMN/Z8fwIEI15Ix1iBdQXxAeAgBRSIqtUm7k9nKZKymYebMb2D2sTg/AUUlYNGCzQUCv0j
01mbMjhs4JJE7OMrKY5dWOt77BiBsLDEYr17sJabq2uJfakgxn8SNhqx+uToaQlNZ2o/ITKYmmz+
pOjhd6QhYt1Hg2FPDKZbWFByjUICo/N3fO0L0BGRTZKwvp16mm1zsLDw66N4Dx2DCrGwGNsTUFBI
uChzfcPEmQUBeDzQUfT54nAQG+LiFzk/difG2Ky4T4kDSUDpNHErcy1DMJ9FbnsDZ630QvGTrHGG
x08th6sImJULo/luF5l5yYyb75sbM6GfPVJlxlZ2hzvCOsqj6XQU+JCeAE74FDV881bsqBmVrccW
cJ6D3ed43SnnAwPQ19BAEQXXEFHuJqiAIgqSnjFRGHQNZw4BycNBTKRMqxamSMH1N7gvjtsyFkne
qHfAi3ngP9WwKISAhArIA6wZPltn6kxhxPLYjDoVyfjDxdCvfL9mpp8oJw65TCGJBCfhlADDQJ8A
y+R3luDRATeZIC2uP49n8eyMSDMfOoWGdpfcfLpjo4Mh6ieH9hMkQ+7dvocg2juKxY+cm9ZIcGwN
CjRkGjA+Mg+fIvW/r5G7Hw8oZoC8jaQGB8RcVRsDBMgURdRpzEIsN116gV4lGYSVzQXwqhg1M788
3SivXDKJCWF/2h/TjIsHtuV3MLoMgqkH36m1U12BIHae5JdIsL4aCpLTMKteddCwXEpERQIfJ8w6
Qtc7AtWZthqqLic7234FYN9inG9FUCIiBRqtclB5shybcN1KtGqpy6Qr8y2srEnedfLXkZ8E2DcG
7EYhNQt3cWkgTLH035NSLDICsLsFMCOaPpd6IiGSTmygmgfcGoGUH7BhNft3Ogee8B3Of3geK/Np
k7gP895IkGfTJTUw4hm572tAJQNDNrUKpGcjI0uYotKsK9d8sJgcgQns9YSjTiYNRYNbQFJKQ2QS
FQ3D6UeJkYCDHR4okx5JVj7jxwgkkLMhTMeUh1fsffZcGTnoM/BS7EKXIYMCRwCEwZAh2jylrukq
By711o2SF046fPan8NxvfktAv/Ibfsc8LhaHtO0xXr7iqIiVfDTYNEzH4O3qhXDZv9fY3elFigsb
x+t/HzPGBWsQ8RisIDp4gfMhsQ+oBhAT9ZCYw9tHTtHMmd1Cg8Fjw5dVd/o5d+ziTtzXqJw9k4b9
13UJeKeZvFzU1Z0OzXxgTkSkCohRAXoIeJDKQ/gHrCBDptswwQF0wwjqa/igprMC4NL1EjgOS9FF
EQ6oFSfDQAAZGsoUIa56Rm6rxdavVMGGDY67Fk3IpS4FKKPo55oIe/bHX7zWRxGUBfH3VgHGpgaA
fParJ+HRk9jf8Hz8QQcgyCb42tVcNl3des5vzMcH1Ad2WckNEhWeVKiW0mh6mjj0YHMUgOcb2kDI
Tg5UBHOICztlQJ7YfLfP3hg/fmEH+F+5uwJ5QpygpDS4ouRf+AcNqAaeyW2QP4P3P1cX6fpo4XHz
ycfJYNBwapfiRSQa/K3tOPvmDQXo/vHxw/YCMZ9UM+YF8Pn2Gz0d3/IPB4nVw5Y21kNafB+YjX0Y
wjEvqJYM0ukGWIMgjBCZ6uGOXo5q5uk5eBa+Vunp4dMmOnRZzfEiQd/pMcRdwyOGB9/iE6FHoz03
zrWEbBunpqZd9o3556gFZ2i6S8ix7rbcxuNxvF6zlb44W1ZEyG1l1QGj7yl3kVcp2ewNyN9zKnqs
BRyb1AvGYvQwSmHVYCZxnRy5vkKnBU0C/2ACQUAPqNUQYs2Rm+RN955k/OFkIBkGhaYk4LHT82ho
dFCgYIHo+DY/0Bd0o8WhMmYDjO6iV8D7ZBIUj7VfaQ7zY/PkM+PG+DvgN/k+IohH9rEP5m3xxXsg
H0jVQ4rcMOW/RsXriQOh9/R5M4IA+rSoWgNsxxKzBegL2A9iIpywsoO0+rhcYCs/ji736WYX7jBv
KY/La7Cvlh+AfH3lz/EMeKPBqfyFaRAG/OR7XiV7uYmArJyEiaFXLDcZpFn6BgUG24YS/mDUfP02
m1tqNtfMhnah6FV18do5PxKCtaZXPcSe42o04g8PsP85k6o/PPOeRzxfOQceI5udrBjeLsbuE2sa
A200om5hdybNhnHaZSTcD4Ah8gOoAEXIVM06TD243xO8nbK/QTaMjdSCCrTaFQo2qYVq9QRyU6Ja
4+4jjEF6PhnRzZMCsJZGgqzcIGLGnH8ritjzL/LQxZYXtdN+dg95lf2CTI0wtR/gK0I10xb6avcb
+N5AjkbcHcrI37d+sLO1jnyORG8NsdTvdWGPybCOEUuZDcP9EvozusDIxJj290laz5MPgQ5+GzTe
IxZazePqLby0tKOCYUZkeuAcbfIa8x0Pg7TAFakTMUd9tbwxnlXDdtUPV7EXh96/hD5+Bl9vwaCe
neXvEIczEnpzI9cDpv04HFjMwIAtS5CNN6H0EtrHCHkH3FOoxatDv1NhN5XaQy2ETN42EeYtVF7Z
vJ1ptYoa2MjGQaHi0oddNpNTHjYAWu2w5tU5fZEhcRwWGmMVwDgGSA/wLgGgPIF7cDoRDTo340lQ
lnV4hJ+BvGVED6SigM9lmazhIe/gBcdA/o/Dhm4hlGFrA2GWQXkcxnLrWUG/7yl7mt37Y6NZvvg7
iR55Wr/ivNhNOmIkt4TyT4crhU9G8jWuJdhzhFA3A970MGGmQxE+ayM3isbtMbTgTfpvzxvna9ge
A+UNr8oE5Q8a/Mh5VOA2NB2WAzGyvED0gncPgNg50R6RPOiceVLAaAedPMWDwTzj2DrPYHgmYdga
DwV6elsk6w1BETuTqHpXipwOrxniB6R8g+OweJp1h4HwE7w2DiUHuDwCjO3i0D5gNfDvRzEyDgAd
6I+IZAPkKZJqGKcE25BOtHsBeQ6PHkPkyQuZAQwB2HBOfdJCTclJYbVO0OoOtB7gOV4DvDJU3DqQ
DHMAPnsC8yJSIYBfH7FKK4XblGHqnwcDe4PdBSsz1SEAsXmiUi7MqmDLw+PZrdayZjK6mK2eRDJA
ZQIQKbYojBThFUrFgpDGVmuuOM69Wu0ue/PZPBdqnQQfIK+V+t4axxK8Eodtw2oRDIOpEdOe43JU
+dzPc93HZmhOeqCQGruZpANobUTM0dNz5oiERPlAeW16hfvXO8zaifLKCAhTIUzpRd+6oxi35UCm
fJgUD21IE5gSvRsNyLI6laqxKIREB4kYfe2dN0acDCGdICAXq0jLGdPcKwhFq8kEhkTnmJFeVNSK
mrifS2qSpKyfphwAYBIg9R65Xz1X8HnXySctb3Jzuq53tNThN2XtoxAygNa3OCGu9uVinJbk8ODB
M5Sp0Qsur47NzydK+ElaJibdJVpl2dVWdJs866nuVfIbrHPruJl2duShMDDNELiwRToCclyB2TO7
HQMGizVqsq4G2pnZFxLwC8q0M0GTbuRzBtgbKrquYDycGDmcmG65OoFIwANjXowdQk7UmqWOTVO3
Q58RIyTm1XdrdLtPSJbhUZzKfbsnNzoyr1vRa5jhOrBbbuczrR28zqlSxujBstu3q6+BCsUkTtd0
305WZPBUeV5WYsqg7xoyEcQru2rdcq6kA5ytc8iEqCqh2ZgD7i8IO3tdG92e+AfXz6DiBJERF4MV
2T3pV/Sm6V/MH0RN7fT2ZprllzhBXds9gTFYawC5kVQrJD6tuEYj8eMSYuIkMFAmtJRHBqoslwg1
ggqBtN8Hg+ExPWwp1ZUPDKJxaHGeq5vth7/wel0cn2GvitfhN444mcV23Tg7zST31mMUgIwlimIU
xESeyM+NJ3m6MMRtvrd28NyA5AMGNzBIADIgZGAiEmojpfYEt6y1Sx/3DMV4OBIRvBnOGoLoQTxb
udHbBSBcMg4iNoF4MAzwrekKG4QBwy4NwuEUuNiwNwqzRgKAiwRYkDCaGpIfN2hOO2WtxqnPZr6u
JsA9PofeimKUs5OEhkIzEUf0iKbMqMWPEhR4e9vysolpQ0WRweX8y/PfYPXd97V1VPsPjIC335e+
UAfDB76qlIRTYbUy00i3JBn2Ea33HGg2TXQPpfLNIEMc5rdM8ExASL3+aThjmEkDvxtc2MLsJnvt
yvW+hcy+Bw5cMx4VeoepJQEsfG9Lh9ooUDIRMV8jAeQCmAM8RH+bKBwNLyN7gBdgRK2UIhaYdNcI
aWJYzQpQqAVPl1meNOiyilZCvQnkIPDGwYU9mPG5wp1C6teuv6yCyRQTERBc5/Q+vA8P4j/SKnwA
BqqGZ7wJxGDM5GnG0ZadtAgKRGnCwcCya70bLB1UXOSdg85sAGAKIcARFOukZWIhBUD7qUn/gr1t
vsAfWbNlWdDBCd8EB2RyBiPidjxxlp16w6GDPleADPbNGGAhoRCgSrpR6wtkg0rTEQABAMQIYG8D
q/nOHX1xYwbrCaKM5roOn8gBVwgdJxOf1v0x5U1mfdR990ONuwCbmQ+JX57oeYzhKoIC/3UC14Pw
oAMW2wcMLML3KwYiks7VXRIOQ9SNUXVOSM+wQA0SJj3bBy+w5gfdCp4p2vThvWVg9D3iB1YtH6Wb
/K76AjkBojohwNBLYBCAP0ABsMYl5ItqhFKuPn1CRQPqvfervOwNBjoyp0YyBZtwFyQG99+Zweee
Tv3fb0RbAhbvPDMDIkh2WBTFGX1BOPm/F76efgoaisq/x8IDTFCHn9e/QBoiL0x6YBWB6yvn1uzN
C5KiUXR+A9hLBK/Y9drO5YCgMOW/TpPgsnvIv6zTSjWg4BqPDQAxumManDNx+YgJwETsMBO8+jgD
58AA9YCwFQBHbIw2Q86YdM12SumCIKP8QUqC0QT4lvnTp75TbGiew0EEKMQMlMVAJQHUN+NvGmx4
DAWhYYWXJ+Ir8mtfThwl9q/Zq+S9JoP8+LNaG84mxr5v8JGXvc4x6uRG+iK1drKCUFzl92qx2fLN
HNar6AD7kB8+HaHArwG0bT0OFA2ItYc/PMMdm7PdbYZojSexXLwPf2WsSpW50znaGOdFSQdjP0Qj
wAMRkQAPoeTGQtjQDC/GcE3qgKQJQAMKACc/jx+rbGM9Gsi4JHmcaEAMQcu6BJ65XJAAKQm6GcoL
EHRE7mFS7WN0jFzIADa4BuBU25ZIOCLYERqLVwBlc/Q4ud3bR7fDrQIY0GCAIAMEQXzY+acxNiMf
SLiIthF82CKq1k1W8GCbvvkERFgTuHzifBM12YRgYENg6NtoXDW+cgKsdLCxltUAlGXCkMN4F9Ey
I/J2H1SBNgSa4ufrv7iyMj7T+/PoUBjBAc+e/F/PebfaZS8Skjw81cJ29wWRKGg0MmfYSQeorGce
eMs2mY6G5uh0zw7Z4qRwc1oLP9AX7IFwZz8LOUB0mDQ5CJxHyDQ3JJQ3Ug6aXFmYsPc21Pu2pb59
w07KN5XdpezZtyABGfmk5oCCJbAcFZIYcFkh+e7kaP4YmHBb793OjMGRkcUpB43AEYphPgGphBai
Ojo/BvADoMqtgAJXLPsenyxzznNFJmD1pFrTUhHzUpJwJwpXqU9DYAE+sw8TK0GzatiHVwFHnviM
CjK565++edgd8Zs+v5lAYNEewRu+kHljoe7DpkYAC2HggDhn16kDY9Yc9To/3ERdFAZvR0rAUfzW
eYfHUvxHgJA17tiKzCJ7v5GjbC1Y953rmN/I2wOUxWwCBzfiQEZ46zvvJLjIgqtnU7x0laCc+o0e
vaUfFGNwK1ctQ8yis/AD17PhtIRuv2ufsdcD5Q9AB7EuHf2qVt5Hn29l+SsEOXDTa188A7+YTTsE
XQVgNkCg/1QrLihAF5dZ2zNivXKqrqpW6ZYmgTn6+r9ulhfAKEAgeiI8NAsAEigTHgBZBUjBzCz+
ADluLIgJLRuxKALO69gJCIEhVFRVSCCQBA1PIKyxN9Xxr11yNjrmQ7PmKVFYsq3Bi+cXeChkAvCr
r7XhMVB2NFKimYVTfwLlUgKV56G1z4m2xfjrmhzg0AKcAHq6GaECpM4VmPB6xjP3AFrGZA3SuCKp
C2bhx8FuQmt++coYk+uxAlITWsfv61aH6N/y1O238HPiQMvPMrOGXJHJE8E/bgoVgJDWlC28iFCy
xo525FVDKh0GYI8b1vtNRmAOOXYp0CYF44GygNSiwzqdINyQZ+4s6mnvY94D3rg0tnVesvA2OYHr
N6z5vvFGZ41RiAKAHPxOaVlaVz5yRsMQQTaQgYrMhF3wyV0nclFkekRl1tz0juT4Gd7r3GGVWvNd
97ohoEVgWBYGiBZAYbEoM/xBBM+4yxyRF+3b4i5yRg58nJyFfh99IfwNUMzKbXhoArQ2Bpko1bo2
wsptEL3O4IOCLFSYVklWAyb/lQO4zI2NJ5oAUChABSMqmQaEHNX3OSEGM3ZfWBHf5GM8XWs8oHnY
PEUn+wiIYIprq8Ii9kZGnxrWBjwhQIOLmbDOQAjwAFFoNnp39v1y4MGybMaTd5cg2GtgL+fMw407
wLcak0BmKDj2BmUgCRPciY42b/jNM8/EHrevuE5/mJNZ+fb7hAdejmBjO5e1rd/M/Zx4LjkwoLYy
ltqKVKzSC8kNeHJ4pwB/mC9hgCB/R7CNgvHDqj966hBDEIqM/FvOn21gykNHCMsLBOWSC9aqr3aZ
pz3dohzzS44I6JkFJYLClw0AwHU3N60UUcp46N3w2ddTIuBRi/YaPmgyXnI5Wc+816Aj+cQBrl9h
HCCjgRvMqpJRpc4gugWltPUU7OoDMtG1Toabo+asF876urphetgUZCTMtJe+eAiE+j4KIAi9wEBY
Vu9fh5xYsGm+8UMPb935W8ihMlA5jGkkezj56942tgGe9ovrOvOhHTvc+xE92TqH1FoxoFNpxYHm
iVqCtHVMjcWFoCDoXiya2qw5EYR4rb9yMKG1jJjpmOJvkv3GBt0/jlb8W87X6gVF2u+WriXchgE+
T9fZZ0Th0HaUK1+EJ8EOaOIyf07b2IAJPjR8H4MMbu3ogDMy2Q7WE5qAKPPysqwEwgDgCyIYAIRo
VkMDO/5B/A0yFlfEbPlDCgxa1FznYUd2r0diEqi9TmYYYy+s2AywOUlkJQfeUx4nfGrnN75/EZGg
fT7P5pp75y9IXx5N00DUqRAvkCd6S1DIp15wZ57kT3Yjh3KdC5XMA57TwwhDNcCkgoQuBOA4xxnS
H51zHlh9ieLwbPk/x92ONeCFfEyiiD5Ij0ejPOd2ut1j4fTuzzr4n1e/4tNI/MZD6af2Dbl+00g8
gh0LAQNzynwafAADciCVyOAJHIDT1UoIVuDRgxL+4ueIONlmzswMvIsDnfu9QQzrntYmvqYJSLII
yB5AkFiiGR30fkVgF73GeCe4rXBA7+1GAZGWNDlr+t73Qs4EaEc5qhR+ogjzAlzIQwIw4dh7d2LF
UimZk+4lcUABNj3QApgW/3zL6gaBmezBnva7dFn33jAtBHoGdc1Og4yqw0bbXxbNwBgUYbYuLOwi
oHIY1szQTSRs5xqDnIfw4y18mjY3BgzBKZofGhMaH/T8FKbirJTLxYb8225999Hb8D5Pnhjj9X7X
nlDuhTnnHNj6O8zh7uf3A1NgtaYEVw2aMMK2rHRzJas3yxYadCgkQ7gpdoj8Yb/cPPjyVCITFtfu
f0MUDm1Re1JZgMMU6eVBLAmZ4jMKNgspEOqWQE0EQz3+OQKScjETMFBXUIDBzg7I23X6cOV8Tdwr
nnlDIC7EaA+nWlFC8vIfVbStWaCkLQibcxBgbkhynDA2+VjiWHQAF9oad++CvOXj+AurBdND745R
xYgALoZPQ6PmN5xgazLShE6sPr34N/dEMjzz1m0Zb2fyNBMh0wK+biO/Lka1owh4v1FXcgZ+v2j3
fvx1+Mp3ND56IWu2kcb/aCIgAJbxI41uNfDe9/HHORH3ErGvZXJzjAnzU/ukXmkj4t85zWcjNS/k
jvsOgwPMyLg63b1sAf8AC2Rf2tnAIABDsHZZYO0ThEgxNmgou/uCMAgSL4Fi6MecfZIRHTeFktBO
g6LdPM8Ou9dB1W/R1dqlnypiE/jmfwH+fqAsevcTlNNT15vxaBtnubE55tfIyIJaJ/HlfMfzA6Mc
8HNgwx91nzxH5KnaqI3LneoR/QuMobjY10RR5a5y/lDfHsmCcdLKcHYaCwlgNCsYJOyV+gFbeGIa
nG93JTVg+A326jI9iCFAAtgUIrss95mdrhhjWIQiEpNEhLiho+0hup9tpxDVCPZ3yt3lhsZlamuf
h2uOfmvKiV7+PZ8yOxtMqjqvhpwd1uOYATEoNgcoZUe+3I9tvMiuSO56IcH0OErk47qs6ro8a9a4
lcxj0VD65nVmg5GRcci8YCX6NdbM4Ee2J99PQwnuEYrp3DRqFkPcADIGgQLyDt4zflMB03hbIjBa
jD91hGF75hp6OPyeT8xsVUmom+pnTZHH5mRU4RtMN6GGneenDHjcpc2D+wO913R9Yag8uPMhhlA+
BvIPHjb+x3x4HMuO2buDqfXhPfNzgJ3fY5CkPWfFch94XOKkevcXF+2gv0fsBQ0BGwPT+c6DPHz4
PU7fwwsyz/MdhWYOoznvOB1rOxHc4zh5B7d8jc4oaE0tj+g0j70M6NxbrrMTMBxvXJS/Pi5DfTX5
merHc8+cu97rzL3PR6FGmyl8ntDGZQM0cDX6aBZlsNl1rz3XWp/HnY7yRgas50bFK+GdCEQcTTn/
gB/DXfwhVFs8hN8d+99+7xl9Ct+8h93WtozM8oL4Y5OhCdE3GIoxxC0SDUqq2c3l2/EeBj7diNLS
VKPdK3Ol11TG4YWPosuFW/SMjHRYJZzxVrCc4DYScfqD/cVKOWzEN/uBDE3ZqMrgKbD7v2yw758Y
1FyhnrZa/lPvDk0d2yPPVgGymNRY5hEjefjhatbfcd6MAhtScDmeWFT3uYNE38mCYLPvPwC9CBgW
r+WBcW2iH31IatVyNfNrVy+jI+TUrqx1pkb1qunu+ylGf29h+Px746gCJP7esv6z+bbyT4g/Ahm6
7BLBGbZKLSkdZtl2znK60UrEVR4YTpJy6mx3I2KDbxrXxjzrFNgauI5HWG766wWFxQjYV+62l7Vl
eJkJ/aQVX4nMZ0vk4YbPY3R5ipvIrhoh6+4IEOQUnJD1BxHmPePWBxDEcg+Q4G4e4Llx73wB5pWu
9D6HlzDcdS4vzGez4nEB5EfgnDZoD2I+c7ROA8Qz2DtQ500S6dAxB60SD407gHzhdOo94ivO+QfU
B4geIr3e1fbmD5KiFx9Q+sKDETnoni9J6Rx3uw+sOwLYDqjbmnkBogGavpHtADkj4luHmWhgdusK
BOwfKnWHjDI8mGdPRsvjr8EyuznQjAQWCxb4tBFUnjpwCTvt9OYodjrahsgu7JJZnf09c1d0zN3E
kdN0kL695DrVVeUGGFSAF4/z01OjF4+8j3FnpW0/CSK3FncsYeuRN4+nX4nVkyJQ3fdfuVShp8RZ
9L9MXvWGVG1EktpMAKSgF5cDlnWbZQY3p7KpFDxGmOtC+t9K5WQxoYPuGukWQHwMEggk6QtuRkTl
Ap76s6DvNua2hNo+0Xw8asa7kzZQfEH0gvGKlseNyUt0FMi4tQYGL3Zf9RJkZeL0q0qMmRoLTgxG
p+jO9oMx1zN1Y62JayARgEPJFtZWWqISp5RCjMNRw0yOl+3NqjIGesEXTuihneWkPjqwC+XTgfOv
WLB8dWhZh8awa0H2eVe71+567XPbvlWYEKGVRkTyJ3Yty9re4WxaDqNAtxwk4qNbdOnZzeBXvC6J
6xfuwe9ljvcfTAjwhYL3RWkefDBtLn7cU6RbmekzIZjbmbZwZicZ1Vvn4erpZcdgub9hPty+S4Hd
0mrxVvZXvPfeLINnbm+9719NYD7dE7uKBEvL5ae9fqJxTJz2jKq+l13VWGaV5Kam2aXdNFVdS9GZ
ppJSdzDOyuoLtV7jSuNWZcOdeUM4ggu63ELqn8DejxzRNDxfHOsnKV5OOfGZBxFasQre7OZWLSoI
vVRXOZeC66cUy6Vs4tqsJtt7M63KoPVB/IuILxCCDA9lhOAB4mZEuBWuApmphNaQTYkhLFvTJj1R
6Vx1OGjdNfE1B6FanKr8CMUEPhW9XrNJY2PO21tdAW5gjGwMAg+47evldSVKAISVnYbWgS9HPmak
e014LwfS5YibGw6kAoLJilDhgCdKYhZMUaCgMJBMAUFwCyNCFYG63EgEIwbDgKQiNwuloGFLhE2M
Ue7YzxXDBny/DNPb3ewtY1xdVcZNsqZYgYNKoIxcFazVq0BkAVLkZVEkSb/GaR9O68gU/X9fX0+v
I/j+VVwn1sFfTNm2rmQZoJUM1hzYGbGyBBeipgw4DxXERzTI4AReOg4jnV9A6yJUX4Xs4zix5tkD
MYgwgZ8BXBF/nPHt/6bcgQYAXqKMr7OqZStIhQiCggNzBEvkgDltmeG8rXtIw02um2NAdKI4XF4E
RFOMHMvhfjymfHDMONgaPQApumACe21/gBUZvLWhc9OXAqRoLkFIACINhXZXUXLPMyEVIiUlMS/S
EIDg6wqw4vvnrqFYgYtSDdTfnVGh5gyywSaYzHPHBALV+YTW0YAgg3WoztiBM2EsQUMQIpewTBgq
q8iKRlfy7GxM8+AECID5j7IxwHzt5Ma198DXal8z4Zi5g+8eO3E6cm1oRDODMLhtd5163bun9X81
55KmbKKNpKanYXjITIewLBAAf0DQv9YzsnVxzOHDQ/LEj9jnXKIwKvzg83rvM0ZLD2jp0zc3Zi1t
Ciks7X6MNccNwUOgbqClHVMMaMGSC5xgTAbx6P33tEAoxgEteDeVqYKSHcAyGgEFAL7ki7jrMzhx
NaN+7CM3GnGDcdLBYm8eyw0YLUfSDsGRe1ztCt4ZlxpyV+RkYSKxXcp6Cz6dHDLLVSbDBzoHkWuG
1Dpe664esLcZtW7Q1gc6QxV5xEsXDhMN1k56Z8sjMzDapmaWuEpFgiVQReTYHWIAbgfRltfViw6a
MC1wODcgEft7B/KrDqBkhkdUKeCj6csnzc18WBCEgMgY7ZDwMRAsCAgAggEHSxe1E7kqZEkct3IE
4AgCDWgpBomQCgmcHiOqqKN+F+TlSO5olmPW/YEc+d+HeoxesZQ3s/9GWxNjg9rWM5XA1g6Saavg
fUAEPEAuAXSfTMqo9UY1VWs99nQPc4pFXhKMojZMD7/ld6g1pOFyfV7SxnTWVoU1tXWKXxvhoZ5B
gWG4ZJZVi0DmhqjohmBgGvWcPmAFY8BXCPBoCoQGgiIH3/f0+vISWzTJQAwJErQFISq8gwBGfnZA
CjN5vOO/CjMj99/YFlnuqv3CQAYsaDSN/maB4InUBDAIBQCMC0xXslT4Bh5ZmsiiEnvdbyeyEFMR
pOAcQfculsLM8mZAaohu8EZZR/iDS8BezeC/RlveHwg6/ymWGGngb1ph467E4JD94tNEbUEMh+tA
PT1SPrsxk8kphVVTSY9Xr8IGqhBK9Hf8iIgQDO+TM+fMEPU+YWgoVBs5eof2o2ODzc6E7CDGhVt+
8xPa9Uvm5xGKTM9ZxiXVnel+tkcwaK2hD5FwvgdNAAc5ccvg8xn4iYJRaRg7k0RDgZ+oUnxprnt9
XbY/PrrDXgyDePKqxV9oWQs7z2vefebbsUhnpiBP4/TL1RAMQBgHQBoDjK6ARCBhCzFt0aE3kKAB
bHt9CMYgaDPhkGs8Rl4Fg6QFO5LiIQBk4MICdRvR3GLxPT2OeYDbGDBuZIwBynujfJgUPQXA+OFe
Y7t50zVZqYKUFRdtZimiIhQirnFYw1cWMFlHqk0TRgAq7cKBctRJ/0AKvFI8JFdzNg2HgPIFVLbi
UI6UTuczIBJFrV4MRz0v3IsMKGc5cZEwMUPO74u9oOix5L3p1/GksKEH3EiL3IthcvWeHmc6Effr
qil70ldWFzEGLFHNcOrKVgovKoiDIegHjO9Ncmp+4Hwi+x2rZAbmvqRUK6VaKhiTKgxVSBZbp9M9
zvE5z0+kWpK9C4Wtzp6r2/RH5f6YBoRzyTVzAvdBcgx3VPem4b4zp4WTLq4gWMj5xdCRhWzQKuc3
tN7s9yn4YpuDKGAM5rzkfyoiEVqM4ExSW0Ec6DASBZozrQBPAB85Y87eIBVGj1pDyofTT9ZAGwyK
PiQJQBuJyoaATcYqkQZDLC/AASRB59TKt7Z4yIBnBBwRC0PMZiXbsWfrcqgZohELRGw3zeF4goPZ
8BcOPfPTnid1csdQcLhqxIFfaBE7WwTIqdJuhtpXCaCclUag5TvXp0OYQWhj0A4TneTi7YJ+bsYs
BNihnKlEiV7RgLQT7gBUdKEdeQLxBfPe88XFnYDm5ChA40DX8FACi5H7H7I5gCJEqmPVYyxKzJzM
llTYwd7s3/fWrXlV16Jpb0QAB8EUGARBgAiNAcB2TEAM46Tj3pmiN9dMtsznkN99tqw60G4ScBO9
G3MO7OtzXXYRt2MR3to812hVwQiIp99wldb7bu1kCxBtbb7DYLlTdBQMrqtDUEulUgWyB7pTHg0q
iwT5MNLgD04BELBNGfuPE+ZwPNbln+A68CQCHgluCd3D1xfAA5Atv79ScfKEXu/aCewzvPam9RTY
fUiHmQ2xjAhiRggtOFCpqCXdqbrn/cAIkffuPlmOkQIEp/WNx+NLN7uWm/3TjBvZ3j9N6u0liU7n
gU1V850KpfN5o7DhsfvHkWFGTYh4jx/HOrJgunBh2EQiF1gtX6lBgb3kjkOD0g6xVOyD55si6oyH
NYx27lWqzKDAH4oeMAdGAwEzRMgHAbDk11bjZ6ctradBtkY4dOUN3Z4J8CHsR1f4/U2ZsdCgyb7v
jiTy/Oei8AjyO7kRuCKRfe++c+DxSAUEqR8V+fCIkDCT2mZGiMxs5hLzifJ2KPa4A8CPZ7AJstgT
ehvYfODI6hw1mNS4U495bfsLSj5geaxmzEH4od0M43tEDps/CH9xfIPNB0s3ZPRJK3SHTPItaVAm
+4HG+T5jmEzKkqeMQGTO2Oz8s6RsDgKKjg6NfPObCfiQ85aG1ZktRad7AO4lMPOQvSDsZq9Ab6bQ
Cuo/R0BTSN7ehte1BYVRazDn7F7EUSHoBYRyxF5mXRb/j+Wf5OE/YWanDaqvZGBNxw/eimEpwdjl
8edy1Mja6C4AHyG089kAAKBBEWAOiBkaAoIQABUD3gkBk8OU9qKIrKo5Xl9g8IN+Eli5EIMq4OLP
72pEd+Vvvnf52BmEsDetQnqBsbdAER3iAfly/mZNeYekzUGf8zwsT58xMF/GWbZjfnMh6GP7gQbP
MmhZ8quuCxBetIvzFSOn+dNr5J7zXueXCR6L7cnB8PlP4cOZh95HKippPBsr+iONOI7AOEYzODKD
EXzWeVCXA9qutTQ23o7L8fzsyYOczxQaDqTFc0cQhazUsaM9D5rWV8zhl1uwFBIXvON5sKhGfQh8
yiRCeABoBSLVrCQTfLzBqHH7fg7Y7NV192evEMuA70bN60pv09XPtBZfCi6WeOWOaGo5JZMxM0zB
TUTELDWTlDZBZn0wWlFGoJQPFmpz38bMI+1w+45kSvbYWZ/pCwdAzMBMAkAc24nhl47Agrwez2zG
K0kDLjbGCiR3BvncdauH2G0gHC5IIMwj9T54MbhnG8DH6kDYqQrneMYkIJBxCAwafN+ss5CPhJV/
lkB2bV3R7fFC8L4fjvuqqONHwxHQYG4dNkMX4oW9j4guR7fuoMBQjA1z0fAz68TtJtsjKhhrWds1
StifWa7bnLaqaEhaTWmzzWeH4SdQ/DNE5zjtSWrunoWtIeoJ+dJqUIRqqRxqGO4A+xF8AEBbjFeD
6cBgZuWq6ZkD6q5oJB8IuJHhAewdhjrDTU3RGVc1dtl/wU3TqIYEfmIMCBIAaIFDAsKUr9+4rJlZ
Nrhpp2c5lpLHDnx2lkodDfxXn5Ezwd8D8r9fPJDc9APb27hANxe8fBfwAeYudgbzoGcQjHXWcIJM
GOERLXvwBLYEkCxh7/aRltwQHyy9zYUF/JUzKWMDzKHH0mjsgAjQFruV7sSpmfdjGPOxyfMu4335
j6j97jqMiVl+7SSEAyI5fz3r0XwfdXgPB4NDTx02FcfPCVveEIfl7+V55rNBtSEf1Mwus+rnib6j
a57MYZBIhZK4FZznTEc2VEoExQY3dkaOD6a2/EKDRCGlZEVYYLgn6kkFCRGRQjWQaBPV3hu2xe/I
/JFxJ135fzFMzISivz2yjjYOm4Iih8DUE62A0KiLiBpLEci7OlwZsyWE/ONXFXh5kIPNarKDelhv
El8DuOY7jaZGl8w6nysHHamK88cPrdnw26rb5FOJwm1uPBHjhu480sC9ed10XcDKY0BgMamoc+6y
fDeV8D8llDDTM4p+4ZTWe7YPxeHpvO8eYny0PMPVG6DHYPZyktGIgjgJIWoR1has8QL2P7SH9B6O
tsV86I+BR83M+11PfZg73GvLScn67KlfEWIxne2xtUwKHXzzRJFG6jP7UVwyfVBCx6Ww3BNRxBcx
jXAkLOhP8gT0UeZg5jIxwARAERfqHJTmEyKjiszgOaWc9TM3X0RE4azP1BSg6VhbcjiHgVnaqZ4s
KSSlSxGNYzjF9ubvfQUwqv5AvmjLAWP5aYS1qoll04QZerkoBikA5p78lEltcBIwd+3cdcn0fPV2
nx6XXofEC58Rvx/0vwKfNLvR97tF8PzIoY7ca8yHLeNQrqH8g1Dehp0zGgtIGBdvzqfwBja1OEox
av5lwf+8G17Djmki7D4sx/AJZ+D5wWer9nQ+b3Vc/P3zeovMdYZ+958bIsY9Ebx+EBXw9+58cMSC
tvYcJO1vX+Ivw3yNRXevuayX0go4YnX18/A9nvWbHnduFx6nngTELF8pUHGt95XyA4sYzLDoWGT0
hoOCQgPMay7hpq9jPjYvPNR2gpmIimfwHnF5GAzEi43IkMrRmYxJHPOj1jmiCrVvYEjjPUvT3r8F
C/j4Xe4OCw7XVeOl+k4Fwh6aJ7AFGSODuK8cS4RJ8yOMHyuZ3YKU+Bk8tOiar9+zPucLt+BM63EO
tDuAzRLDloVQHPWIniCYhfGdViKh+IYoYyL6W05L1G0pCXmQoLRPfEJA9nO+PcBtnEMBc6q+qwGY
wOIc7mr9HTP1U1r0Tzej0Gm5uQ1tjHPdQ46aUHDrAzvvIY1TF6YE+VO0RVcyYc3oCjfIz3aRCyvG
u8Bf6p/Wxy58by/7QFy/g+U/a30Rp7+CkS+D4uLe8GM7TrqAAgLEjLp0EgyzjiV4AB8SLgBCBfcF
IiB+hUniXxjzp1p2jZT3dKdidQ7B3gdg7A3+ROgfMTmAGAE7A6k0OKHzHktbw8h9Sm4fmnavcjvV
dvpHsTvTx4ADS0JBk2BsUq2Y/aG7pMgYHeWB8w9SJ0j7VLHS+CYrWYbgHTcvi8AoDdzDmB4pp2Hr
HWInpT0nYqdQe0PAOcTTxiaLuwHQGQ9YHi4jzA+p7u7ijvRGojsXbwMTiaQkznG4IWnAkMEXSD+y
znOpBDiqqw6XzuUFG0i9xDTNJdNK4gkQZU+qvHGj9GVo+3dtT5MnayZgyaxXnBLB4hnc13u0GQfT
kyXzGyJOU7oXrE07wC5vvGzdF35xMoHJMe6mQu55s7ZojLa4T6RIWoZIm3dObvMCzgapaorLziLV
Kt5r01zy7k7uSRFeMq3lKyasYbwXc+SZUz3RY950a63te10dU9ugoO46IGeviMVWThVi6u0zC8Gn
ZRzyGzmXgV7uTkB9lDMUncG7xeYdeXUqS9rsDfccHIk0OrB23WPqze1O64IzUpYOUjAdGh6Cc6Lo
ax0q1kkTpqZ7bm6odtCsV52LnR1PmTykbAq8SGjAMFDBcYwjPDg4Y5o0DQljuZSd0FDJyqUVoVrO
uLQMg9p0XmkiZeOeEZV4pysF5Tx7ax6EufCdvtODUMl3LcjrJ0Ot2ZMxzx93ZWOh5bUtviZHZ7hg
Uy93xVIZSkKZx27Vl7K56LFZjfZ4XnhO51WpXkRXhbDsto5hcnb3z1Xq3XthTZIy1oOsp+7rGsje
deitvK6RTrXQO3knNH9s/H555BoyN1u/G3WigxlBLHQtNg2pdmsmvbw2t3DSy0L5ievnSVuTlpuK
QuamFstMXECZl0MbA6AEMykQEAMWDXShlt3e+8qL2ZnGaOVFdiaws2H8zecIjluiscZhw148tsOl
N4Sg0NiMuU08oM4pgBt8T24vPBGh0RaslgTJQsWGkgNxsOiWRwBMBSNKiFIQTAQMKwG4DgTApQwI
NBQECAT5N2ee/cVne9txcTQY/ZgWh8dZ43DPy6u6Qwz06d2WKS2vxzGrXVJIK3ovlQrDIIHKEQIV
kSP+AqSOCGfUB+dycBP61jd4QOsga0hFBHmOYjLYFn4RLLExhjDoAWzFd/enR6BzkIowx7PGk4kk
HMhThOh/Lbd0nQH0IQsQAy0Mis/wNa0SLY1gzGfNc1HfDtrPxNrwauYCoFQzpAMoLMeyseTYcdGk
GajQzUAW4M0AyEBABCHaP0bNnD5dMOBkihCDJB73luOPa6+hZQQJTIOCrJAm2/c9UEpvqTFBtGLF
YnYrfJvdz6Ex75Qo88XHNztuSjoNRm4Stp7VfEUo1K4KxI+D1dBqq6OI1x7EPYAmA7BSrldHhkBO
/hpHjJ+HaEtgSpdVKQL6hkhweDUzQehsVOixUzcjspMTXuud7c3H12pgARWfHSz0ilaKZ6Fp9j5D
0ex8+rnlimZQDcyEq9d1H57xmIV4EDojRUPQvRqDMMQIBZ0vV7jMjA6cu2ZPHd3Yir9fhMemXWhP
OSgY1dAY4JpV7Dn0xYP2hXYGBP+lTo+LBAsefLIB6NYHgR9OsOOJIPvEsh0GCS+KRbzCvza5Hmus
NBzcyrbAbc7Bc0mOF8tqyhzyMIgY8nUFMCK8EREViGgcHP6wIxVoDC0DHHIAYWN4yInACWPg917h
Pm9mlEAEMiUgaWRIQkWvJfw/fk54BW2+V8n57vvBsdWzXIi+63AtDVtuNwsehPj9ldTZ9rkuyKGu
MjJqF3nmTgx3YFAckfofcf199Yd1qVwjyck5IJNz8YfKKQG9UOphAbEtxFC4ijwEajeXaIg5qXJA
WQJ31SDwLCJ7eV2AqbMHOIcpnYWvVmkOE24dY4XCBbiYB6zOGSF4PUjoGEN+niL43u925BJ4J4wP
LRJzlQz3afqQCcSe9LyAUKCJooyIu5IAvE7jV4S3wNvHxtA/OaYg/o9357LenFjb+GL9GnMDliFR
Kz3N/F2tifIUhHSAyhAHAPAMMNX/w18eq7jKmHUAINwtR9zzrbENfcAtqioBgDi2Zxxs+UBh2pET
o5pch3r875wyGxWgo5H2JP4jearuk5l3x7yjHHxwWza74CTCMWRZ9CBh8xOtLCdknGCxSwz2IegK
qAf6Ah9rXbnQEYf8M2kgpq9JLz2RbbemYSAIMzgmR4ojdU46VEr3YMo9a2lEC5Gdg/qUAU/4RaRY
UKDUwpoqGAmIBUBj8n4nwfRgPN8q5xnSDyw65JyrGenGoAxgQhNFLtOQ0Jax4TFxSGg3Yw49z2fN
yCuMzNwG1wQmWCFM2jhx2qG3vER18sWxZQwepBv5gNuVnvtbjI2aFowtcYg7G8HBN+AHWMACeWCw
yHyE1R4UYdwG2wWqGCRykMmBUpiXIiX4P1FuYN6IX7A9F4Rjz4Z+ZGcHgiEY3F/rXRFeM9txkxo9
trP0wqFWDCN1kJ1cawqz5tEVsYbIFtDa1YT+TgiGwBi8fF/DMDm0YYNjmAgOFPB9pxaOtSjDFDSa
Cgfe4m5iKgZD3baQiijVYZFEJVBpGEmGtFCkShBy25rX/Qg+mIEil3tT5x+A9/n6g3f2cQ5wxXKF
gjrOvPwSP5NbpF2WzQ9BbenB6eh8QI7gz4juQAL1g4AH6x5V/m9aG759vx9h22nNHnxgAVQ1bPVn
995XsjP0bqoHNCD4iYAwH+ZIMW0TZhFvvyOyeCyCyB9dvdY78zmti8iCPzAA386/g+mI7gVhAJfk
jIefveaxiQfaQAiAIiYAk51JFmNbnzV19UDUU3vw9Ph9dpcp88HBjS81KdHwNuxyzE0gfB5rpbzm
r3JxhReY5VosZnN4cc1wf3EP4+BvmUx3EK9wbJVZ7JzfkfjkLGT2UBXXMsEkzkMcxgamqmuk9bk3
dndnqCFkXXVcQxNgeYxd9v4wPoCgRD883zbWPmxkH988MWHdJvsm6bNOOcExDBgL+aUChahdnmeq
RBcdICuxl2v3aVWQeRf4ykBEOnkfYADZ7p1HRiKuw2pi05OERcdU0DBGJMv5zRAESY9zcEXysB3U
FAMiwZDTtjKY2X5kWArjIgxT3+IPs+iQmXxJmfc9mpBGbKBKqYHzo6gWOx78cAUCYBBkyJ6CDfjK
IeTxDptALIAKBa2ztu5ClIsqmDkl0qKbTDO2SUlVY2EWOhiRoeEPfiy2lbjFZPnEgValgXxurlnS
PsCo1EvT0Ah3IEPQAoLPQHVj0uE0iMZvsy7yfKKg34lOKBleRPk6QEniu7VNz2u8qcwroJyX02dg
Cj2zF5gqCCCky6645Z17g5NQxJJkz0BjKCuEiF1rxc5vA3gIDNjfO2vCOPOnd47p/AsdxaQD2ng/
WwBdls3GdpBieLHDA3Az3necfz0YtNDUugQS6XzZwzSnY2oAzhZ6w2B1nTRCYKt0Dwsc532EKxq9
syEJZ08Gcr8ENrbCW88jamD1bSUvvMDZVhtelDPbI3ODQZprPT+H2PaoU4NHWBc6h85yGMDBT9xj
mwZvy/co1TsU0wSSeOy589htD/Qi/mCEXv8Pnu2T4SAK7P+L+DR3iUwtmUyqMEBKEaIdoNEabaDE
KyIqUrShA6cb5iZK86N5/E+4X9p9lsdt/1tAklvSDfrr68bXGlx5nOuaYwyemkbZzfW07u84REAY
cbVzUPeM54PVzniS5sHpS2lty8xXENoBN5CcQY92J45m0a1hVfZGAb8433Ogpjf4CW1ys36lm0Yh
bEZFxkSacFoAmXu4EpeBAgSXCw1Y4htj7ye+RDzdhXM88gQfmNdSJc8cwlbv8uRzlKLkzvPEQNzg
/UWPng0GtPc55C3oeHnfgOU1Xd8FpFV9n4vWodWkaKeMxss8kOnxAw/nV2W1DM1TMCZke+XtzSvt
hSvqFRap7dBAgi+kXJ7JuYtqKotliC+12kXBWLR3VvuM/EnR52MQPn37/L5yp5xXbYWXWDR1TlCA
53GhOVcGHSrsFNcuBq4OJiaPvwwm8Q20LMhBrHzrDMqtBGUKPu48FUSC6t5HIl4Tw7GuOBEClkDq
Io9xrOP5EW7BtvSta5r8wnZ6YAtAhCudUALP37WIIsqfGnsaTbe82W4SOrnxs0fBA5mlRMs2MRhE
D8NWZkqrzIIBVrtHjztLoWwpX9xBeHp/lrbnDbX11/4AAg4MiH8wEx8/An2lsw4B80gEL+XKMKZr
toYGJgxKVLkTn1izHue7p7NrM2tNVfdAGC+C8O0eiRmYMjsH7ThvxzSlp1bBlVyXvFDHJpXejK+k
MuyjEuanWtuonmmBqWsjdv+f2gDDZwhrzZfLnXbqxvmQ4qAjeXbYk3X3EYsLVmI+EVTkPhtGFTiS
yQow3xa6MdS5DEFNBiRhTDJXxKneIXxLG+H1FSpo2KycYyrbbYZXza1l2C7OF5SVCs+z58PFratC
+MW0xFOBgsS3beiPdsbhPeGb1U2eGnmO677b2vnY9HvTRGe9qPvB+AnpuQFyJ66DnXrTLsV7LXNO
V5nbPo5b7Z8R+CHoH3hrvmogCG4NYcXyEL9+xrbo7jnwPE2jnQ+zU0Nt/cQ/M2SJjWjkLWDW4wzh
E48MIrKzuOspUp5kBrExs8ZvmSuFr9ojMs47EpBxt5QG3XHvzyTUPlsXHzvcpvmdNS5ccYFGz94a
30tPTdXzguBQ76+catF0fZ7GLDW+6SVXNbFVvxSyL2+9Ljyc3hRN4hY7eZZyFfsECW8vlCzmjp0/
MgDrByJeWwnlc7byxDFbDImi1Ns6ZLU+J5A+7tyPcs+PNaOcMzBM1iz8xXE7oxA7Yv3YzF8w/DtA
4RvODxM6s7HHCt4PKZz5O/MuIGMCO9HK7L1Eo7RveB3KB+lVmFWr228q8jz3IbyuyLiFyDHimmhy
PIGWED3T4oatmiPhCwRFr2FqH95p/nFwkYc3PuJMVgfOeGk7xS1jO42qhTQaCYphYfRiG4Dfav6c
o+B6N90vkaXQvbYQXnfYiY8PBZoOmGF/0A4saWDh7CG+dz1tQnW7jx7TeqsK7ffBR67YXftaXXG2
/mfIGcjp4rxO5xQPfji4E6pGnMYzpxY/zBF0Atf6C/PM+74nzATjh/aIAtCBdDkiNDWB4JL3IrWe
Wh4HtdUHPSwmujeqPAhBp5gSz9CPad7nTN3mvxpFjyMmM804iu7Tdi5rK+FOUvSHVcwer2vi+KcZ
wMrVSdLt+7z3cI4bwdnvmwGFC16R5pt9PszWeHVQyO/7BdSAAMBAT7U27EFq49gkMtGlkyF8gQdH
ZpyKNp5qNurb1D0yqm0FqVmEIVjmVeIpSQdSXIP7eZo6v1ns7eZWvHQe27aDJkHqs68MWJbC0gio
ICrlXesD1DTAfl6vmE1TttwTqgXCTg83rze+ZmYp00mKB9lp/LfeAeYGhl9ZhrfO3G0rSHx19x7k
xQ3h7oOB0vd4Gs486+JvNas4hKCDzMeHsae0It4xN7qFu6EB8CaxrT6B7sZrW1MYawUee0GLcdvO
pjqv4KXmMA+8VEj2r8GEjdhc51AR1wmlPgxrWPZxYe571dbSeRO5fOI3o10S+uBjxkWny+oGaGMi
VXWflgLDDhRsX1BhIoi+spMEPIEW5AfQA+YPF3HK7B0DqO1PYj3o6B504LA1iZI+L8B+1LB5K+O9
XitnwT1p0g+0A9gdY/cB36khPPwTeDsPMMMe5U7R5gBuDrHv9qUO8bhoG3YHeh1alNgX6h608q+R
O1OsNnnDAbFPOBgERWw5BvTYncO0OQWIm97x9fcgUB7TuX1Cdw2RHQeYaG9dE4GHw45y6cBUB0ZE
0cDj5GsIqRH6eVvbwN4H2pEfEwhYJCsPxn4CF1n3/ImaYgpEiF+WixABNmG5YZmtm8xmmFvnZE+v
Mku5Be93GDKw4DIJIhmBrWYnlteUuT3YIAiBkTc5YVAmF5VPmOMud8EphChRxc4M50l7qHiprDXv
exbOQ5vIqxxCLE3j8PDqM4J1TK00czTV0RlPZYaOXRc9NbNY27Kt97ajj7b8uNHJ7Od3g0rrMuov
KgCIEukYyRQ4No3HBVIyarJ941q3U8XTSitpOIAy8t0eCut1CbrNlbFIPtkSxWqq1O1od1dFVh2d
ODsve65PUMEgnheojZxLpdykzkzjl7J0WMocLs28U1p7LjVgvc3bjXwirWmqh8yJZvlWMYAZfZdZ
U810wcnJ3FVXnQuEgbu5nRViY4kYMD4QBh9vDjtT2CyNTNkHH2Xc06bt5dHyycvczuvJmd0wOa2h
iO6rzEhmq+5nQN1tnb3bNjGXavLHTtOHV5c7xmXV9s5poIIJLSTPCZxcNRn3BVnesevBPpDnTWab
IFoIzPqcnTiDnzBDA0jC6YQutYzOganjGXl7U7RnCaFagc45LNXwuGdQPZQ2628NaSqqyhXDKxwJ
oJ6GKnISzKxmRSpABmB2HFkFxqT2aOnVYZ1qHtfR3rmjaJ5/KGtvkqe07beTjTF3VpgYQ6HiTNW6
Vq9bSpKZPxF6iMuOM7prjaXEPu/JGDA6gIRDoC2PMnisjrC+SDEAtawVXEaQtQEHOgDQbkDA0BZA
0RsLCiEQ3AChdCwloA3BuFlujgCUI0pBuWACggpAGCBhb9CwuMQXtJDUXOjGaitVHSpq4T03eKno
4iQK/lr3dNZ6/Dw8Ez7u8K9u2TPrcocsmrTxyNAtx4Aj8wP1MeyaHjGBiP4TnQCQDu0wkY9bvgNE
PvYSaqISziqGKVBCsAwAq9e/dATiIYMOzmVRRIcU4nChEVDgZC5B8s0IfAhSAfMauv21Lco5AzKz
AngRMgLhJQ1VYNk0Kh4MB+peJETOq5J5w5mp9ChDALBg9KxtsLWNVgcDJNBMG0nGe6rjGWkb8SOQ
zXe97v+x1Ztmnajk3MRfYjg1DmRC1AmzAFESEQoDSFT32bffUQ2RorMHkOneKRbQgCJAKEIQgaOa
r6K59+Cfo+2/3WNvczrOKCsecMO5dnyshTy7/RmHb7w99cJc94TrOinHGxqwg5sBhGz4MtoiGQ+m
vsC9CBbgq/fyFQk9QrN8GMRDQhuykWQ8JEHSJADJPtJEfpJ3KDDdJnA+SrNs9w2B87v5uG8PoOAO
cLawgZXw80TDWG7cYmhbPtNcsAJlR0wu300TwB2BhRzskQ+Ykd567w6fvxGdv4qTXMLeJ/eHVTZr
8lQxpN95yNc/Y+j0VpJyFYMPuG+IKD5MSZgBN4Ve+ITsBCgyxeXGfJIdC16JjtbjAzh/EiGXixME
Mz2UEo2spCjwLA9oZc+6XPZ+XPBSIg43WQEe0LptN++d6rsVVBg5EV6mFBAZi9QByReawBMsnpny
841j456pxvz2d/N3SyMOjuue6WPjVp8rwZXcI3B885qnTQuP9WAPOWNz6g7tqTsSIGYSKSXoV/QC
ACYAU5/krf1MfmfEs1ZHZPRj785TFBwjHhd6JD5lKbrfCpGXd5KebtyJAHYSNBRGj0troEoIFOsO
APjhyUgWe/2rwfDjH6UJZeH3wM7DlYIdMhXKHGIvcZvctBoNDcoeIBCRuwB4IdWSYY7HODF/DbbP
hceSkpGIzFnwVpso7YGFrzINWiHNVvztaGSFA5z42z/TrXIewTyZ7oCd6++e6HW6mt42enkAwogV
ERlqbabOYuwceuCzcFkCeMgEQMRNZvrIjrcMBkbyOc1fCBPhMWDnjfKDZ2Nt22HcgVxtdMFtGapb
FoyvK/jWLAzzJbRR61DLVj6Ar2ZrMZNWBF5fUFsCgAGjR/r8LTDn26eVp59WBLsbBhQUezIqXlpB
ZqO3p9m326fPHh3vVtgrxHJK38/Xq/lH2DvK3DKo+IORtdH/E/wgVn8sc44hwZY4jEQ+6Ft5u1/I
QdPXsbzLgRsw8EsqhEAnnc6HvhApaG7ERrJaEp2hvfwCMAQErvExzKxOWvWxH7rnmBcM99Dzz7nR
jHSAwcX9DdymeODxIrYXO3ZbdWMfefLEcSirH3Bmw94gmcdfo6/tcM9oVmT+RVywbYbyJFWfxNrZ
iMjzz3j9Xvvw/ve4OJ6gG3q+zM1yD1bcXxxOU7t7+4fzQwNzWPuwy783iaOG5u0vg6xcIOFxCL/Q
DXIFAPYgQMAi0AMArjUFqPjqZc/wDr7F1K/O3mBbk0JZuE99rDzMqgalqRoexEmGBmLpOoFsg/7K
qFpYGCCJQHz9YEbQhym8zvxUWibwtqGoSRh1SJcWQ6zSjVlLwG3SQnviuLWrkiACUyRV6sMuM7ue
l+IW2fQieFcZlR3gMXAo6H+ObAhat3sbfxFVMmvXn+oDdBsEErlLDtvz9FZExDdkzx3FMRDGc4kM
x0ovxq3MBynN5m/a8VcAYM2gKqKwTDaxtgUgw3VINkG+thoZdeZXmiYw/izLXMdNIzfKj1DfEAKB
Sz0tcRbV1IdMc/bYx51/Pe2uIXo+5GqMb+97QCmE7ea9StCyn3yMONnnewaghwEv54wk4HDjC+R+
QhnmzIZqVe5+OORkXqVx1zctgEXrCYGSrtWrdunXaKzmZno9ZfZ6ffhYCO+ekAd1V+u9H3vJwMXs
Pr52pY+c/mAdfB9FGJHlrpGavlHsNsQ/QQCAoXmpFjSAtnilW3jya64MOoRCt9KogREI31sz9nXf
KsDtRiO982cACZVFc7oIh9J6vReYjZSYFkFRECLqkL88UEN4aoWjtrM13gcNjhPGwbw/w/i2EH8w
WMnNI9Dn1N+SPvLwEAlfAnquQNU31W4JX5xBj3Od0Pm2StLOs5uX9nLuJ5zY9/LDxoJ341rpfPNY
Ccfyfg+ZfLD5uVdrXus7YWk3zWsVre2YpLEbwtpLm2okuaTswaUa2VIzkKMQ+wGwAhE/5377v5Ys
j9epsG/koVRmfvIXigXBYTSIvyjSYEmrrVOxpInE2dhrhb/pGq5jLOEIwfW4J5wLHPFo5G7x+vvA
P4oONcVdpvQmY5n93uZBClG3tPpCwjhujapmCX5OQte0ZGEbdSkVwZkRmaHFcH6AAJYiphWHc463
aQkxnwcQDJ4rXNjywqvQzpeoMll+hBgMKYffrs5/BAaJ12VG0LPPPKx55Zcxnrr6pIaWZRrY1ckK
MwYvxeHk3HxO/mo1nuHb0a9GFjxgW8eejufX8rORDuG54N4q61zFb4S4lGE3PWqL9gRua+E6UXGp
ocsvit4g/AgYIvgKsD6PgRtdc/jo2QKDILqBRwaqgiLDGsFQJ7mINnuVt1OrRuYxLnBBpnCpKjX2
NfUi7G0Q2YfNpNmwZXoSZ5nDvlw24RUsv1vYyhBCYNR9NOjA/eaFgzPeBOGS/gcNxz84GwDQo8r9
gQ0N0ZRZRfPNe6rKEgznGxHnR+br7hpnKGx4oV1ZCLr7Z/d+ToWZGY1m158xZxW0ZshGmrLCIgvN
aJ/RT3YkiT6Kj2PNDWggv1bOq+LHvweZzexrvmG6e9hFNH1z3LfLbzIr0oEiD1sa3pRTkQzD68r3
glMHvSibXcx+iCAAr1zzprehbaMeQq/KmZtRx3bldqy5d5Hhmq7NMGaW1oaMqr1KdtEv9a3vLZQJ
V+/I4PiB1jKfny+zRg/ffyx0NflpruvKbGNDI/Pmhyj6NNnWCQ16e7V39+RHFp3mAzrO8c7fcl9J
cPV9XHIMgQJxZ6Mz9C73GRFX3sEw+BYGgDHxD02Kbunz5zdzI11Bm+YeckWuGOISJnz4vw8QkeGp
0fg5ASgQdkdRyc80tjAqgYZBfzvh8UTPHHrFboeFHuDDX3YHPmMq3d4xz+0CRsetPJ18oa2eqYca
vX0dXvPmJxAPbPkaWpzD6b0rbAkQmeGgdoNKuK4heXmPuJWPTzW1uHmHc0f1INUVI1taZXVnOjmY
QN7VPU0sB4YTQiDgyC4R3fwMQnLGAIn8BOfjagYCwdHm8G2XomekeN5TWdaQoaikdDgSOdBsaYbP
Ss/CwXDuIHLc4/Glgnj380KHyrs88ffmsefVvnDy0PLaIfd+r0ZtSDe48yxisRrZjKXnILnfDUaM
tfebHOXtBsy0PMjwwm8yEWNS6eRhDNQaSex+IoXx/k4cux0B5GlGBFF77iTHy30NeJPnE+99X4K+
Jnu755FcHrjI6cOaXmkhoHRmpHX54O8u9i8niIHNnFnjYH2IePf5EKxBAAEB0n+BC4xUcJE+u/Tj
UGNeZvcRbjqOWxKwOggbjtDrGVwldpJm8IQE7voL26ikonY7OsZjPOSFBtwMiejh4wIHjBfBugkY
nQOOw5wNEbe3u2u8U/Y1yTRnUxyK6NQmtZrvD4FHvQsRUT1GLnhcLC7NYxeWqNWEHCMBuQyPMh9d
aOURjP0LHimPe3RtaR6Xnr+x8gRehfLwDc50DofV42kvB7CZtTFaGeA+KlDg2iZFBG1u+7TW/jOe
GhiCklXwrb5jV6jR7AtovvsttYmTs5tqi5drOBg6ZeID6jvVrt87Ot1ubgS2MU7oGG9ApvGFFznX
ydSEXOIf131bzvzoZVSoqpjMq/T8pkjc9Z5GT0usBKGehDnWBwW/C3JrQO8KIwuB480L1uVNZGBW
VD+9GIrcV4mIpZPHebWMtF3vKdxwePyTvzfNY0unDaHF6fSh3D6xjjpYSh4KDYXg1I8Ax3iTHFFV
vgbDdAcZ3yN07gYM1m8jUvdjME5mM9y0ceN+WBqupUo+z8GgJf9Trg9vuvOYH9xCvqCpKmHBgbUw
+1nak+u0QmyS3GhQGKIJjaOiKhhajJAIeun1GhsHPwxjSBODNa1COuMZDqmNQqMh91nOVTyhiNSN
3beiRp80Oe6hpcm6CBjUp4MQ7P5r6/CvOAxgrJ/PFEXAln80g8W0uOaD3eYK1q0eK2pQJSy5nMPC
A30Vmc67XjGDU+l06eMO44CrmB+zQc6yJXB9Li2myj7rIHMamN5TlmsKODpsJSUVnA2DozjSvUc8
5m9+RjrAay2qJHWLQOzq6cxhdBxUoIbCJINxb550+b4r7xxdjQrNh4r0z6Gf0arvMROBjmgWwmgw
kbxh0FBoGJ28BsrQfQBQQ9QXchQAl3nZLpLYWwyS1nMtDZ4tay3WYu49qU4tGPGovRlkmRYK5IuP
MFvSsR7gM2BtWLvRQU4t+jPsbBlzaJh+7p4ivK/iOnDT2wfW79ve25cpXshAqxWWTrY0NeWrqLwa
nITHFnnszoc5ro8TAh1fyMrfRfcdPzatB53huOBBCcAcIi/qA83cEinYPzTenxQ7QvY5Bu2Q9527
gO9eUNQd6AUa+oDo8S2CI5g6ugTmDGR7keA+5uuqmwZ5L0BwT3DodqbB3pyTkHWlyfRg9xnfkDdO
5PkHuA2D1AHERX3gPX5gEB9FwgBzfYGYGIHEPFB+z4IBz3qeXYmwHyHeHYN1Nycg96cAr0Cehdgc
w7AB7gRABewEABMi4E3ZynrFHUSCua7mQNZ/jvxb3yJYFxjCAWCmTronqZK6Cso98GTGTjEYIIIy
gTrbaARskyar9O1SfEK/ZbrtCnpv23Ty6t3fZfYGvPxdzSKvHEQIia8rGd2mxm4ZzbzKI9UYF3ZS
Krze76h7axjjnY5lvBu4BuBbwReZzQ43dSTPOo84Qdan1Wuy3R2rsBdncncqcgWNJUndDp8Wx5m7
WmfXY2Q81hPYEREBXJBBJgQlbc8J700GaIXDUPcsWTJ6bNtDn1tK6K4kNMc29VZlY+eCxiWHr6S5
DuXkA6G28ucspOhVBrFKsWZGbNgqVOkYNArcGX16si4kMN3vVMLA5okSiRPTopUitzD1uXorb0Sc
ApXOEFzyjrgO3apOb2VDUdI0zJJaQpQOu9FdHNDBUDNWZNyCDkpvo5Z1WpzdEmZ7kznWNzR3ZzEn
uCZLdF5VUTQy53cya7atS9rOrh3ddqZnnknK1o3I7pINcsSmZyzhczncHXOrWWwrE5V5dYeU0Y45
KmaTxoq5WZUubnFd3thdLtWkC3PokNrBeIjH4NzwvWopeASqRxt0jczieyJGGsCxvSbwICbEm+zp
UXVG5p7gnpvqDrVLMvMaH9Avo6YBn3KYxR7R6ANBS8UGMCRUkEGRSEQCEFXdwntlMnowezleZuVT
PXj0MX9uB8dbRiEi0YyRY/JYv5SEx04ozhGx1SVquc4ayJZ44348QCIPIbAH2ACFyddIcY7uNZMX
GEOhfAHvI7sh6lNaWocliuY3CJQNhgitK2CmWTRLpCkmE0Sk0EhkOA2GEMDKCaAZBhEIQ5EMCmB9
D8D9AU8K+t+yNL1rizj87qL1K7nbVD75qV9USHk1US86V+628qpdvonuHjk+Ga0b6d0fz+gejCvM
Mpof6YSicQL+fwQl6t9jrEgR3M5YF/q+dBJQCKEYS+vQgKTiAh7GDHufmw5tJEiGxyYN++MQkyht
X163PGAkgmnqhr+sRQGVxzQ3Y1SIgfaQHCBQMmhGCrTf0eU0ykxmYzeSCg9f2R1wAsLKxhG5JVy8
GQUQKCAcMtIcf75R72in1mBDQKAHHEk8Nt/J+9HzMBlRPiQNaPNHLnkiLZAi4YLGMa04IKC23lZG
NEKHLO2HRgHcgaUb9GogeA/nv5HzOTcSV/BmbvyBmWvTGvo9E+acbsbHIq6ldCh2N5L55ke5891z
G9T4AYn7yPM1BuEzXZf6GuWVgv0POImBQ9TqZaoT5h3ZscPVJxVQCoPon1TYWm2rOnwhHidmQvPl
AVn5SWO8++UXeoAO6IKDBAzqj2oIvDbk/Odfi60LQxs29XKAmuS1sGaAh4Z80NqSYhj1fzGIjyRj
KXyEuk0i5p81j5k5FHrztoni0oAfRw4Iw2qOdYRYhwcrrOSJsupb25E1ABPfqbrnzHvc8Pq0t7Id
YDTa1WA9xnVFnwRIpBnDEGAgBjIZivRJB/hkVb3xDByS/OlfKBjzoFljJEJAwHIuKQI+eOO+N51O
ZxxAgQGRDOQgLGAWTAG2WqL4ilpijACZIhEDcpAZoli+XF87nSjTcjHgTwJ4DTNmvOTzmW8F6e94
FLuWJB4w0Odpqd8CeYNavuLRLEHk6gP/MDYIKCH2HIubYcbLwG3VHWo8w0Fcuj4carC8Tg5BGJ5Q
snKoDRoR7zkGtfiW9zXwuwpLuC4kg3isjM3vZmIgIcc2YCxFyYBv4iCrAcAztiGFRzGK6Q0ArUgB
E7AAfkoCUh6NtVZz+uYnQ9i7RdKNcRuCgrBvJutqbjU55YzfbjBgXRYBcgDYQa0D7ABehaTIP3v2
+l3hlvVaX34portpZ9vZpt9MI3AYgMtaJj5VSEOwiENENeay7OJKG33YbuGJw0/B6xL4EEIAtOOh
BQpHRchwjxAJdDYiFpENay7NQMxtJjuNjiI3S81hvwq0GX+RAUIWD+cCYdSdhkQg1njWRySJTdb7
zGzRGxQzDQjSdApj2IpWxN+htoEFHxIiK0jry++wk5xmDMskft+1Z1dyqtw/ZaDXChZXdg9WNQVe
n2MHh1CkWr2fybxu08XaijA4DhcViKiqMG2AXgHTxs94rXQNM1jDxE3+/xHP32B5pfMRl4S5AAnH
kjcHlQY/S7Prl5rTz8dhUzvC87yo/Q+5ISYP4nTgmIYX7lD+t4f1XsvqDD54AKIARpZd8Y+Tby6c
31UHkvIHyEJD2Q3V/LjWOChMPee6TGueNtvF9Iex28ZMbkRhWBwJlAgJBHPID9nFBfL6qazvTRwG
k+94PvmDWDSrwO2J93KZ7T6x6uOM4nwcMVXnVHngwM4AeM5bzgdrLJAgSiwLZxhBKv0YofX3uQ1c
zjRrJnM+/gk0AaqJlNSWOuwitT0yOsGRzCTi8UjDGDxI6j+7xN7Rd5UD4ZEQPF1OAediEq8gJMMD
7MMwTsvzMNyUFYwvJBb1vlqr40co3MADQ4LuO+GuRWkAywIMkDzcaUDC7DPoQMrjldnY351gtJr7
vB8wBQKAgKgRDJ+Hp95w+tGpbyoHAIIOmRKFGlIPVhsMiYAOaADYP1TNKGQuBGdwQQXFXR2ljEtL
LfL0Peuj51YM199kMecjzT8E+nAMtXI3YmBQncxpMQvmchk84u44UmEo475hKinNImgIfIDkF/uI
FfPT18/FH3UsJdAE4dN6i+JgPZpcUGfEu87sjgs7LLm7sY7l+wx7zPX2ekdXsdYLmRIfFhSUoAnt
GmwURZcjlrh91IbmCqBKZAgtFQ+AOrWlqIidEys4UuzXVQQO1JODVGWKqISGkUIitCWCeQtatazu
eVr1aBkUwBEPh0yJay53XI2tNDaQPCDAMi1nOwUkCgQ/zYo4dNDrFaACi9pHBY0gBKF0gbUpTCRp
SeQBgEJptQ3h/cBhhEIiIc59mPffihdbzfoyzAT8kRPq/BsUbTs9sYwGT2kvTMO5vM6WsdZXWXuN
dg/THbtFRMau5nfQqK4wmLXAHQh1GcTExvo10+6sho+yOi8M680J/J2h9sqx6e5XjMVPgtGTXedj
q2lS61q3hUZhg2hag4SEkWMBuYGTBMMHng9EQ4+zEPsyIRJoQA+H0N+vsY2j4ZTwN+hRrS+naqZp
4pIOGNO/v6jtAUcwu2IhMJWdnQHCzvJaMJZFUX1MDGy61NhCJ88iPi/ppAOjCAg4Q/vjKKGspPxU
FmJQ++9wNfJ75l1yVwjJdSFmH49HBKth8OJLSBG9NTPdJHyFzlPKZMzmeT7uHC8xvHjcDjQa7h1P
dqYlhuNzNjfvIm952HoRzREezFY2TJgTuOg8iBAs6rbnezBzjLc7bMEDklFIQWH45hPcp7X6mtdl
gsXwRPrM5NiUMZkD3st5gKt4egsWMXco6AYXqwnmNBwKU8J6lpqhC79R6M5Fl9kkG8JFIm96obV9
SqnoAOh/nh3HdCG0ORg9Gg1+bXN90/Vpter7sbGmFooVlOtNAc3teF9hOpOno0crmANCyjjeV57Y
PbaI+oK9o3hpi0YekDdHen2Qe1+CLqRZngIwWrC/doE+cX8B4Gc7z3zPMyO+BuC77I8on7Qs2bn3
oPp3IvqpdT3lSwi5KIqJRwrbNMNO9xPCZE6IuM0GGFCDgf5gCx7/TqX1K8dWa/pfDDikg2k60lkc
uKGYqAZjsHqSlQKmAReF2SKJEq3nW5tuZBvbILwZ4xNEMBIo0bIA+fFCmAD/Mi+IW4t04mLY4F2r
QCROfnevEq4cFgEt0dtjXqQQhqFj4DbCuXWDzLcw7dL36fUgbnxQ7ICnvGfHKh7o74SaDISA0+hZ
Ssv+o2eEF4P2BdanFHMZbjCvl2m9bbBhE989zjr24bWKVVsHniIWlj1tjvBjI9ziBhrQZQHtnYHm
cmfNp9nwWm/OcGGNMx5oSSLpJ9+bG3mbEkR4oTgz2MbSpP5kaepHntRnQgKqpXY2cHG58LxWTpn0
iMh8Z0qgyTsZqDlIS+IBdAOd84Bp2/pi23+m/OqENgDUGElq9GMPZ3gzCywicYHF+Hm+qp3Z6poZ
6vDpEqXXmpwUPkWY3xqYtI+eayf6fAwun+O940V5EivrWJGBh0hOxzXP0AptTQVbT2s8YcsdIt3O
7b8VnGVguBIzcGcLLBPo59Gp88MRxuZtd3tvOxUN9oNVjoCDzKH9RvWS3zA0+/j3Yk/fgRa15x/P
iTVY8pojs3efQ/rjlZkV+aMLAnVERmZmeNZypsM9DeN0+6iexlvK5g02M0g+bxW+DfPF9QcNEZhh
HmeYlvE8cYHnyY3eO89z3lpA81rYyQ7yVRcBd+53UTlnFR5PgJ+m4DYH9CIBQX0UfgQuJ8ILbvqN
BeWxuqzk0XrbTcCNeBzeMpcB8hZoS9wNMHMqAwoMBz8ZRqhqNGoQJrViE9GW0/qyle+77GFpAd80
GaBOjejVro2ulXzjjQkoRJ4vIYXTB2BmeMTpIT1KlpmM6Z33ApLGTBg6JkbbVB0qcY3bGT2YLnTo
UHz9yL4AdAPoT99Axq/FbNY+ZMr+Hx467xkHUsEdzToooHvwEV79ed309EP2lKMjV6w97f986w2+
fQYwka3TvfEMZ87GmPs6zjElkayisF1oZzsPULBheorwuJ3iheIa7rTrdud+NSqNbzpH0t8pE4h4
5ObbWo58qLPELkTFBABZGjKKxaDq4YYhOA8y+gDEPEi9wPyO4GeUq5JVCj85SeX7YcJgNAiTJYn7
C+7yIiDMYTF4r8GD5sQgv6lH1ZGNUNtrY6rfpAO7iK3jsnFY/axA71T7kZ89OHWO/7wXH2+GvvNH
UefHjbuNucZBAdymHcAiEX7SQg1NOOb5dx5tcjOv9W0xjgkfIfx/f8ACdNfHbpsMBNTfUe598ocD
+zraeGxnu5oYJhrEPofn3XIx2Wwvlc+PqPZbIPTiB5WioaH8yJLkaCPrI18WU0OpsKvH0w9T3brl
96Pk1gNmPPfPGuNqdtyR4fy/UrW0vRg7LPvkMrO/ofu6e9zQXg32vVEPGLH7AP3T4p6XexQPjR6f
u8aGPL/3ga1xx5KJfHC/EPtb1iE8zamg5AbsigwmohdvQFqLmF408fTx7/dDNB00nzvk+Abh1GXb
sD52zJuRsOHG+nWjpOo0Xc0ulJtGwtTrRyd2hfE7iVBeZ/sBFKb1/Wc+jGO+8UYdeSNX8juK8LVW
DOoV8a1OhIhW943xDxzPOq6rnaaqMVSIgToZla7n3KSfU7HZ8gsPgCoQ6kQDgVvEggz9SBz3jSmx
XWCazMeHzCKF/KUwPgx1241Yu1WPubM8mK7zp7Pn5kea5ymZMylsdriBjgzHTUeeOzWnRfP1E+nj
Zjip7HvuK8LzM7fhH7hqVGCmiS4oernaGMwcKPXZDPCxHBI75kZvenS+ZXfL5Kc9HKFd8o7jWK+A
U53x4rx2dMt/RtqYZdyDb1B7UD2h4him8X2gPM5D0fAO8PawOAwOAfFHcFk6jcgdICdYb9UD4LgJ
uT0A7k9Koh2j5D2WGJ34SMnnAiVMDcDynmT0hdOJ4Bz+JeUPlBNwcHxHvXUc0fQaILzD0BqjnS7H
rDuDqHBfhzDu396HWh4G8PPYOJQUGSvu9CmwOyPiHsOkPSHclDkHpHJA9gKfN8lPIOkfMOI+dV3A
p0oeQLA+CHUsD5F7nw8ltvPM/JjxmJhvqubH+zKKhBDScndKsabshcLX6X+zTGpypxfM8rtN783X
oG1Y+l0qebpDrnN6X0S2gWWerYNScBfEJDbW1PUYYIxUvPLfeubfaxY3zYJiZ1Zr92+LS0kcLVWa
jsVjBhyQgLGVr2r9fpiqg5E0WNrZGtjfLqTGV7D4DwDnwrNiKMQI8GHnZD9G+hdI9PVd2Kn2eBNI
MngXIGbQd44v0ycEh6ZWlbo11TL61PvVyvzlAkXUstp9VzPgdN7k5KVdXSdVbU4AZq2zalNi14cl
blZL26zaxPRWT6ZXUw8kSrDkXw59c9W0XtbyPPulGbIXZkF7SyoyJJ2XtZ3VlKQuqwbKvVoxrVtT
h0Ux0jK2ZIqcm7upoVtLu9vNddzIJqpGdHe2toYunXkPYGC3SrMXTlLW7bY4VDFUq6ZddhkYWOBv
hdY0NWnOoTz0jMrXmrpvJu+u9YVyxkng1yBrtRtmvTwZWYQgju2r4+9hxDCGhmm87MDKPG6xX3Ut
Nb6c6dxxs9Tzlhp5gwwaQoZOZJ9yScig+U7OZHEY3PCXuzs2ONrTU8zePONrip29DrsuZDGJQ4H9
RA2oIGpWWLFB3DyZAMDIBAZb31DdFRF6iFpmCNwZpjP8/P8OONiY8/tl7+XWcRPzXXrFVOy2Zvhs
7tGK4nF8RLD84M01CRjcAGMTALRDzIfUaIFwTDFWQmpd6YSgbicw3SLkA4SyYGBBSzgFBXClLhCi
GDABcbAYCgsqYSwNBgIKRYryB5zfw4SS3E6K00jEvyfr3xIUUR9B0Y6xOu1tVlv9KQfO4EgM3PRL
rkL6QyPv6/bPVZJqXowZ3Y+trJZ3kOD4PBPByqtbXxmHW2rO3ieAmE63IMqCQiK68XxJytZ7eisA
ZtQJ4wDkIIjIvxUIi/UXBBOajU8YKusQQCIYQxxMDYTwZ24J+DAa2XWll1n1QkgoIFQgDIEWU+uS
BBg9hMLNsX7jcC9WD6YMyJZ9INuAHIu72oJue44+/JTzN9DgbPe+sCyAHIEQMgQMgNZ2+mZ4o1EY
7CHCMamWVISQIhh18H+mAuJ8nViMmDBgwBvlEApvflSGRSuRFFQQRho0o6tjREQDsACIioCBEUuQ
BuPhpGDb4h/dVcpc6RTAXIIhBByAdAU4EB3Y0FobWoHNIOQQE510c+jU4EGk0rwmzGPtpH3dC31H
gCuo1qejMJoWs51k5skIhx80QwqLjmdZx4tSkKh8g2xplN6TreQpwotZBszF0Mijw4DpDC8oHxnC
sIkwjUgDmUgyIRAHkq2qFDsXq83OzQ7vZNViIY1/j4q5x2BIwRdUF7TEQGDzAP4fvMhdg80Y0O5A
6C6AWZIERAUzXu1Ii8yRZQTpPOY8Lc91kzUIOVAIkIHsd3CwvnHnFsvgxjGa80fHbxOv4uE0euZn
CiwzzjCaVB2zQgce9IAiue3Pvux4mhuZU3rYWACdPRsKwLwZqa4MI1H4gxYFQpAmAGGUi8+OCGIr
0/NjzzfwT8va9UGVa2RU3qQRFiYVx8818dMG5BBUCpViAmoF2bTDYLtcKCftphtCwmkQCHTIJo3M
g/wbbmkudRj5AXcKTmZIfuGCiCLMEIuGns6PEqzcvfnvGaAO14DWRy1HJF1NQ5znW1T1u0NB2GKG
wOYnm73ngAfLsie4bW6TzNFaz0ZWpezuSFwO4L4kPrUTlGU0LnZEQgYU+AqscP2ZDr7SGKcPxqcN
iJUrYS7RhTOGwi1FsLhmFWeGi5wifPrtuNPOhYByQANSIsowMaBNJLf2qX8G+xgUdGgGADMESACv
x24ka2CcAHmDOeOdVOrhnVlqQGXgrggxnlwjl05sIRMIEAHIADdevBp53goyqj/f7JbHEU1BEKm7
46bpgV5uSGtj64eH1AqN3YLcHYMHMm1LLvW+nPFZ1BmZ+mSAhfDU1e4Y69juV59dRkylOnXifMpG
fv36LPWgVIiAuooL0yE59GsAlsQaoKAIBURGwi/CCUsKqyQJTme+L28rIhhwa+ebjzqNsO4zm9RP
gnjBtGM719yMq0Mb9mP8iIabkwGFcGdjbnmevMAZBIAPUD7hczxvA3I4cvM3vNE4ODnPGx/UbMXO
P9Gx54G+q5HeYlq3E2FLMnAlmMqQ5dqUzYwgSoIUREYBOYIuj1kUF5Z6wNxI/MAiBDcJDgLHOZef
0K7N0D3O70FInRAhySAcAyE3lpAFz+B2sEBSICdd70CYiQAElPEYNvM5webOyCGQNnNSLPEeHzvc
mzPJApMgSIQ6pAlIbZAB1EdwjZFWWu7nl5U7ZllnOMRi4gBxnJ4pW8ERUW2NSd0tgVxWtYqqHQxp
2Z7AJscIzEYUZBVIN1UUB12sRC4MgDpq6jLVXLohzeQENT7p+z9p5SHSQ6x9GcRG8PNfDUHv1A4s
eVLWe6WEDpHJE0XQF9AB8SICpATLodumTmKOTVXVYWTPGsa/Xr/e6RrKkXRAv2Y5FywJmL6XEwMU
wWJSLDU4RIoyljkWhdDAZH8DX7jBI7nKi7cG0LAzIypMC97HweKdDfS8qkVanMxp+EAxPa2ulqNd
NhndI2QNmg8djrYamIgKMEAyURFYGwj8bE0QXndN5Vs/ikNmCI+AlAHGzjb6wDzhha99VAKlNIBe
VXVak9PRzuucarcAgxggNosd+W3+JEKkwT+gRHTGo9x0Y9F4CPmgcIRgwRjHqrEIK+iezxzjWnrl
ZTwfMSEc/jQM+4bND7eQi++DWKW1eRhzWt1naSfot95M9jNc8iqr9f0AeuBWTMLGwMib3BdiFs3T
XnputZgJByUiyKqsa/bKeWxYFtWZFXGjP366HxNzVDFm1oy3qkp0ytiMI4qntmt1zM961GbEbxCg
FW/4NQb9EY+avrZ7ujZuA9NCJC9MYWBitXiKWmVAgQYIaIYIleuBvxGxYVsXZVfztbW9aps+9Nur
OyErLBpqj6hu+HHlNIup6vciu/KG7agjN1GE6AAruHdEBqtUIMGNhdZAWxaAyQ/A4W5aJm/RT9GI
nJiCFEGBM3utJ18C4+I5FkEBoD0wMCh6PWBe4jJYGt7SsaF37Po6ab2N6oR1j3ycBs4Tsrs0332m
DBWHDcZyLLA88gU24FCW+jUiNCBYvrtG1NUfcVPuAKgBB8QMgcMew106UdDMEGXyNhfStudvAxII
n+Tf5AhuyJLBv3kOOCgLqo7XBfXjlCZsVqQUzXr7wfC+K8oiBA+033fL2bVr8G/oP6vL4h611xob
8jvV8Y+OeupavS+An8YuDnd+bqJ7ZqsbDbMsoGtmWkO3LEIqk372jmFw4ONcBbHPYWFklYNRomkA
IzzSG3u/ZdJREErmPY/Kgw4G86SRnyjxXfvnyz6Hbcm4+bId6MFHaR2rWhyCAdTEqBq1ymhewxan
DqxlbasFlnZA/agcFwdDuIc2S1R8RxEmgrWmVQdVw0eC+omMYjGKDavBnzat/cA6Ca+cqlaIDidx
xfKNKhLCVE2FJwIxUuSwIs0YkqFU7rGGgxiIYNjXyf3jJSNNT35rIWDDibRUzF9QqlZhcrSB77T1
M+DqDUnDmAPR4MFE53jurzhbJM9U1hAOjMj7rPmEMYj0GC3sVqxrLS0ts+99X1AUlUKNhnInshUj
Z0Ue02PGlwnwABarVqUzWDZduMRDhvh03SqLnTacko2tBD5FCftpfvuAbLUHzRZs2ykoHA6ZDb4P
oneYGOsp1FK1inXw79f012mWz6+nrWubGs4S7B5iRBzmRRHWqNCkQ6ZyEbylGcTdIDoRDyHzBdgM
3ye/h4B+wNhf0pub/pzh0IdRhdpJyDqiFG0y0W9wJVgkpiJtmioqTdEhExgqFPgIO+ClP9YXeX39
/RqDk/1S3mGmsMGMGdxI/QRjvWNAcDRnOir2kKPCXis5rJrLSuxzgetOoMtedXHYxVlCUSsGiZL3
2m+ecqoRBpK4WMTGM2j2ZrttHsQ+Kv+WCblj1PmK96PKXWdokvg198j5yoF7+HPlZDbk0Zs3awK3
wN3V74KOteJ2jB/H8plPEnoY06qN6XsYGcxtbZzHLxhkc8+8J+21vj8uGr3YbCKfoez42QXiBofE
i1N+TsY3aihwD3O4c4mVjDnZWwfKkznl5txnggYwWK2yKHpm4M2Q02EMNDcmmpUY9pljjC5paNLj
J8kZv3SD8BqsfIffBru4OfcTfMN0fIPB9KUVJ2tmL26TeurtrkivYV32fNyP8YVUP5eFPBtb/fBx
EFnZh55zDP64wDHMD5JoM7TMfNTWqb1T5GoyR/L9+dlRzofGBN391XrIuiz3GR4v058E8vQ15vuM
hR7uBnQNHxm8st4ja586O2MYI60jUsXvis+D3rhAbIigh/ABz0ERAAfgQN3Ju9iFRR4jikttRzv0
vetBAMOIheGuIi8FXoqkEn3HGWam+hBitdxayNF+Y6fWPlTzaHTRi4E80esnl3vNWw7TGmx+S2fL
XuO+amNRsY2Fz3xfM1i7yeM+piRgLYTb+22h1+eWH8rTu3BWI3RsJUowRwSIdOIE5W7EQMgNW15Y
pPMGxhryBWuflyV/RgRrh0X+8D5Km0mDHueb82vjcwkd7nU2OR9dJ12QuuiZXcJR7GH1dKvIOFWA
aNq+RD1ekMaxf52BnV/F2cYeN+DWbWU90yyI8cbwb2NJvzyOhp3zc8UEpGGFrIL4jelsjLItXfYd
PgDMyNuTEIccG0rYNRYxG115SUxRXlSJpvwGhUWKAetb1Odd4SKwejjGR8gHuncIdDPKeXi9ZSHb
drGkmMZ1rnd5/DnzUUrDW2FpmY7vtJmn3+NYfVaHBpYk9HJnXHraeVwa8sZxXj2PPO94+Mavwx6O
col9G+6kDdOJOs9cvy4PddKytg/wIvcEOCL6AAuQXUh5kPgQ465za2eR2i9AYq7s8cBzPg7mTxFI
dFOzc3oqztKgfI71c3aAc4NfAhXtMQtXJ5mLDDstZ4VyiEutkbAEDzDUI8/lu65W88Ci7dvHc+a+
OFjUb6Ew9rsgjjOb1ZgqhhjMBRYBIsJv9iKlw62N2RtJDags+lai8q2hoOzqSGle4KFXbxZNDLxb
DieqXzODW2/J3/YBeXyqCggrAv0HKSN/cNv8kzBj6jYtozHSD51QeXMTSg+QOQ0L/MDg77OV9H+t
cHs1Y2bxVNODg+U66yEWonvtssZcMj72YKJsAUKDiu2LvBxH4mAYfsndD8IF716x4GXkZnTSfJV8
9Q33aheY0WUH9oGs6lYOPJv99oSPmsb7kR0G6Ce979jDeyJh8bP4+N4IN73/bKQPIa+ch5ujhR5l
KWQls9wFw0+i+z7q0nSZ8UP42txzhZ1wxN2joyLHd7MfNn40xWNOnc7x862fQXma464oUGotQ3uA
rbTncvvQ9vLysxC3sJkDU4Eyy4qHoSrUbvQYarKNKhH3zA0mgpCx07AqhAXgQHoC6APA6AWA4JfH
rTcGSegxT4JmJIaOKHaGHSnmNg9gfM7QeVDgm4eIG8eA5h1AeNBoO0+QuD6zcnl8wO8xXyVEIKfM
A6wPSUjQYJ5vo6g9/ED1AeJyB1R9InpTzR8Bsnr5r2hzTtWYhFO9Mg7w49odyQfSp8Nfaah4h5HQ
HaYNqd49qVt8kahUJR3geNKtevlHyAJ0eTt4Zn/h/h/tQzJXeo7b/+yMf9v8kRIf7U/30P/rn/5s
/r7C++vn9leWeo/JR1exogEgEoqEK0TLdbcY8NfqNRXB8CxxgNixrGFxN5SuEIsUs4otcKG7UBiD
CiURWODAuFPXNamF0Lo+32+P5fD48gZ4OcsLtnMPIPK+5oaaaAoKCgoooSiigKAKC/snV3mpY27A
Q+PwlzXa1WofwoMEY/9RQkSljJmZIN2FTmQ8TJxDFrdmdmrkbsc1AYIpWB+kpkXf6D59x+PiP2fn
+SMpq5w/F7LFpIdgXji7x49NqJ4eHVYuYlc3NT9ur5f89mOuL9TDXY2bLnb4j/Yr1aGNJlUNckLH
l+5KyI+ToOfbnynmPVXT+sy8FE1QV7CCIEigEiiE3i7A4h8A9Z7+0nVf35W1ov3RU59tKPAIj3RR
+YUCIVFGBFQLCczQiGYtYFWwAVgcA8w+AgCGIiB8RAEPszHPMKUEPgIAh8RAENSypcYg7Bj4f2nd
H/y7UJ7tszzee0P5+Q0k8ldT/sUgUWQs9EA/mfhf6DAJTKpidMPXnmZ+5UWfcnPxKcIf/d2Px69m
Ga637/ZxvVeYkZel5Gu+GQ1BmVYIpjhEy9FgY/mVJCHuvHZ5EsPDPT3U9erD3s2k066s9NFHiz60
4Q47t+EWs6ZVrWlVQ7pxgHVAOTZS9PGsoc/dSfRHMfO0DyT3tTzQ6ZpxJxNWPiwPX+y9RkXuYt8+
6yPiCAutuJeTjMW/gnQ4zQXBgeGMKUxFA8wpofVRGDQ5TcwQ4ORjtuhmNGXWl1UHYwEMD0MrBGPL
SLG0slZt+lNvvfjlJwrwyH8SHow9bUfTeKpU7Y2V+V82HLFIfheOrbVno4hD1j5M0hpX6hA8nEmx
JKg6R4wTtgmskBTfD5ROcU9WlHKIw31tJL0qVXzSxT5k8hny9gvSerf9VwPo8Unu73z8l9md/Xoz
yTlhwvj+fhdSbSd3uqo6p6J3yn2M8kN9uVeNV0+bD6Lme9Fk8/4bpDFb76PXcqa+SircL0ScY37T
vLJ/Xjd0XNcKxswXhiVm1+q3O2XB2icWRTsh2cjO59FNeWG9Q3AyMEKQDx8lHMaeu0hl2NabWtjs
22DtzuZOeDKb52wDOPxj0w0gHGDq2UFdlDplS7JCAOfPt01cuR4s68UDfDy92htvslpSxatRIDXV
Rx1oMThawBxzpefR367Gkx2g6XKAJeghAIgwDLQkDsypJFkKdO8hy/L5azSY9mYkk7MgcpwhpOGe
4ez7IgY/0DtAqDBTkk8xWje8Vgm4uCRjICfjJTHZJ9IgDweDZO00fvHx/R+A4xHeCQZAphD9zL2M
gLuCFmQuitN4VTBqs18yJQh46oSsBNQvcggQPRPEV86lUwH9Vr87jqGB0EYNHow28EJ53MD/J/T6
UoqSgqoSImTAU4o/yWFPF2Ics0LJ9Orxooz3d7wK/WZTEXOZTE44ofHQUnsSccU1aHh5TzS8FDCG
Ekyhww8ecuC5w4wTbauUC8XjWmmZht0uWhsYwDdGCj4RZcwZx+blVCIoQQg9WCl4sSDyERy5pHt8
ZxcNTsiZZMjwsKuyGzFSQrwso9MU9XkrdA7TQhS8OJTrOelPZBvAMoBuifGPXDDCh8JnpW32ym3t
O4s+N08ewqtOeOhyjjzouK06RaQl+iKBTIWMkMCI9UVxhA4d29IBDDyAZcK/18l8j9DuZQNjACAG
RIY6nKyF7GPVUM9rIL6q/U+Pl+XeLon8venDM1cTb0lGVb7TuJqCbDtXZzpjNY5xDGVJrOVqJ2Wp
eu9H5T2fhR4SQgOtdvw7AkJwJ9ED3PRER6MHBnMjkRURUdh0x76LvAlvVQOnsoS8HrPRWEw1rQvS
nliWNtsD0Ydknb5Qz5dcvUPj6YaYjH6ECoG08GWCv4LnXjJJ0e/fPmk2HH0B8OAxC7A+jmtpdXp8
nj6Xnfjd6NYYh2+XeAalEpWHyvXa/FDe/LCaZ2YdJHC+L9XWu3eyeoYoTvdlyB6eXALb5HQmZTBM
zRpHZrW4pWFruAuxsRUzBxN3BMzMokMtyJlB/sNGEGCB8yUnyDOvMdT0GcJUkKeJwQxAVQPh2PMw
0+s+F0zXrQsC+7Ds4HvpvKHqMLJgnaJWV4GTUYFekih8nu9PhrlETse2sQMMsMe3bYTBIsZ4QPYn
IhO3NOEco5kJBsKxDLxWDbBciGcMRZVPPAy0KkHMV5GrrBNJy9J7EPrTiTtCiFNsqUBhzokih9bJ
nroU1QlDgKhQ4BChrSnkhC7sk2bC+52tbIsIIVsJpzooKeYnsTyQPewHdnt8cudabe3PfyZm2deD
BNIEJPNTsOig2Q4+2Vb6KVqCao8Jxj5p3QOfKmQ4nHPBe/EI5x24abmaTwvnIYo63YQUwKYqeXfI
q4ty7EFfQO2Fw5gK1sagK0gZk86f6FH6FZOVoWcUYML79DMeQ77PK7dfOIPCmdUFwg3ddRW9JFye
6y2QjZAabqQPdAMdImemBwz0YeT8yHydqGurIKcqn3q/OqYLxEGO9w6wNjVUh6qrIN0CoFwNO+Dx
gxlugGQlXosPkTsbV1W/J0tecpbzZd/Nx18J7P1FWD6e/r25M70N5xCGJUT7HjwLIUeKoCrBD+X8
wgRIdbbCofnuY/NUrmqW/AMIZzPqhPy7w7vZd/hUVxeFn2GWWV8X817l8IvNO81XjCIB+qBLDPYJ
8qX9DSZfzzCdlHEKYWYGvgHR5Q0gJ1BRpRDLFaJmVApMRxT4l2EdjnczpcQUfzMABxkTGVtlgJZh
jUwEM3T5l/hu9pTc4wemtprS/zOQjMwSRSqMGBo1xb6NnlFrTuGGsreLa9K4S1BsEmm/n1UPI/6x
AiAH/tivqDcYYSSGr/efdkmiK7sBGRjwQi6AeoqD7TcViKZEMKnCeR/pyB/k/xoMlif3+J/9BRUZ
akRA/UBQJiEi/6Q0/pCsyLJrIqHvO8KB+yAf7v/agQP9xEbEjAJDGECqJ6z/uURE1oJUKVooCMBD
QUk0UhahdCQy2QtskIiSCycOsdiKGJtWFhNIAu4MxkAYxDV0mAwEGQNMAwEIZMElljAlmrIU2rZM
BlYxCjCQKY0jIxVBZaChYEhKAyESAMhoGEmhgBhATcyMVVBpCYgQFVQoMkAEN0CGCGIQxDEgSpAC
VRJA2ZSGG6AbZCUYBNMkkNNYoerkX/tHZA2wUUYoMWMgxGMRVBRVERIokWCisRZFBFFIikFBk2FY
CCSSH/BkKwJyxZ0wUhOohAqGhiyThUMZDQw0kmo6QCVhiQSISAbBhqWIKqxoENAhIxkEkLwVICRE
CoKUxFYRFYNLpJJhBhICISRDEbjCTCCSB5/GTy+H6/OvX6/mGaqeKIgWQCoSMIJEFBEgIxUSLJFg
sGMgsBYAiQRFkFiMgKLEEFkIiSKSRUkGCwRFWLAUBYIwiyMVIIrAUiKxiCqsFJFBQYxVIwIgLIKQ
WALFgoKCxRVFYjFYIkigjIMIIKLILFIIKMFIpEYLAYxYCqIxRjBkAQRjBEEWEREYjAGMWCxRAioL
FUgxkRVEgiCyIiogqxgRFSMEUVgrGKojIsZGREBBBYsZARURFWKIjFkREYCgirFZBYCjEVIRSCyI
xgjFFioILGKgLBiCIiMCJJAA3EhCFCBSRERBT8osVVWKKKLAUUUFVRVWJAsgCEQgyQMEUEQskDJC
VWEFkUWCqqqqwWRZAVRVgCwVVFgoqiqSKQFhBSKsVVVSKoAqxRSKKRZFGxgJAyhCQskgkGLCLIhR
gSkIZVRVVYoo2IJEJKqrFAWQiiqqqqqqqoKKLFVVFVVVUwZhAEiSDCAYCiwVVBWSSZGBSCqSLBYC
qoSKKKLFVVAVYqgqqqqqqoqrASDFVVZLBEGEiiqQBQgLBBCC2QUWRQJBJFkJBkQYotIxACAoRgrB
WAwGIMRJERYebRYJILAkhgqiq1pFkVVVVUVRVUVVUVVVVVRRYqxVFWKoqqLFFiiqKqxRRVVVVRVV
QVVVVVVVVZIFEAKKsVVFkWCwUVRYoCiiiAAWDIQINgVFVVFVVVVVZIopFkFUBCAUKDOsN4ijyWKO
j/j/GkRA/1dIqKGkUAXKSCJTJB/4g3m3n+tEnwGizRWKJhwc88kTrnAALDykA+WA/wZ6+uvqYoGN
9Q+bTy/n/7LYFcrbt+ZYozs5f47jKWMg7YDxqsKfnKhPiRSPQY+byeeoAbIB/SYowGjCgE/Ubtwp
xhY2jD2K0ZXShvBKV7PgGaK6674XC4ZcDhClLAUlB057Hr0rJBN8XgBD3xA//aJ/6vKh9XVPqv/o
IkjNDBAPn91CB/YD/wAoFa15gfSL8oWCye4QKDyiv+8DAdqGALhmgQBzDAd6ETITRYBEwJYcwCDS
XChEgaJcNAEiAWFImQFIUkBLhdHCGQFI0mFwEAuBSNggN0uDQ3C43QwEQChoANk3AoBwBoLIboGg
QMJgrQZraguBRSRLolAREoLA0hcCwFA5IkQwJmFA2UiFgMhGhoLDhLIXQuDQ2AIIWCwmawLgwGAY
VwhYTADEyGy2AwCZUGEyHA2DCmCkwuBuNgMDYcNDgGhySw4SKNgumQlgaS4aI0sCLZS6tDgsOEoL
i3QpGKXBgmALhMJqakTALDJCwKTYIbDAKHJFS4pQxFLAlksJcaCBQ0BQrQ2VsGSGQ5I2CC0GSZLY
IDAMDdMgLApcAzEuNkCJmhZMxKTMM1MkDIIA0jcMAlDZLDYHC60NYAAfvBPpApP3/3j/WBQQqFAB
7EMj+Ycuu6B6YKSJVpcP6hMtD1h6s/6RP2CUG0wWD+gLp+M8lH/B2hxR0poI8Ed//77CYqRyNltv
/aGKY3OghssU//JDLIDFVz6nUgJvAuqbDdpyUoNoGSXkE3Gj/7aP/jBTACDuuPE4roHAUMiBsNqb
TiBcudXAsHOL/xQOrPhZKIwiVRCghGkMkOYpOhDWH8gTsOsMnYulIUP6jI5z/XTzBF/29RJ/2yEu
5MD9D4HyPOF8D5tfBcLBSXC4TvkJAiQRH/cyGuD+EkoCHWDQ5O4h+YN4WCwFAYv+GC0NoeMQxY/5
xX+v2bBMSKmOI3/H1ev7/vIGqCQKKY0RM9Rmkg/eHL+ufEL6/nJwP0ofj+lLcpzaHyH/aJpd5aOB
/HmbI5D/UcxWyzZtbZCj/uIINp0E6FOqltSnNJ0VLKUynRqVXebCFkCK595vctkGyhqdEZIS+hsL
p+XbXq9n9PwKges3CIf0KIBIoKEUCMkEFDlPKO0Gq2m9wgCfenID2H4bw+WJ6Yv2/+g/f9T9D8i2
A6MKJkxPtTQ9H0u0bOczLNQ0LBF1XWgIdmCyHKfwn6Ao/uKR6js/4wT9Nuvs/axxhEnTiH7z9PrJ
A/+UL5DlsDSwT5HF/WPY5ej1B8qh7JNXQPWByxw/MmCbKg62n+4M7XPQQgH0WJ5OzrvjKfTrrP6h
4gFzKjXUTchWFKDqK4YVVWWWE8j2pPjPL6GZ+w+bu3yWd98i4hjZ5vsR2d51CVEfn4V+B3ZW7SQh
yGte/tuHWlOqpcNPKGGnktLMlQhu2bVLitUuGGW0kMbspJlnBgBmqTYigxV8kozidq5UhUBZ9PG/
lnHuDNHd13eHO3jO3mxXgfYJmMIN9h/AF7TuIionHVizUMoc0/AmA6U7RePLkKbZfTZbT5EqHI//
64rESNTSVFF49Xl6xr1A7hTB9nBgDM1mwqKiIvrtbfKEwnCsYZUGiYLjwxcf9d2vKFx0A5cgj/9P
r87981VHL8vJwiREP+f/lSwKCQu3JXBDcZc6KKG9UVfIBnM5ydMgoKRhQE5GWzrW6I7J9M/pjHrH
O8QI2rH8P0afy/R8gJZ+eP3fUsWCfUfwv2ftDL3uiv3Naj75WDAa9yialDbYhDIDIfuI/8mnRuBD
lwloJTFv/dTQawP3+fkNkYibDdStFjl3rTr6g7O8KPnhIMIdzheK3bL9CS/ebDZlofaMKI+/Dsiz
9kkOrkERIgoIMYCKKCMYIpGKiCRgxYjD+cXhoSSMD+hBYFAA3ye9GnJLffpcLrvqzhsl/s6jIwR4
mVvlhxKUriVyFnQfMheQ4UikiiP7AMyE6OZP2rv4GJlvCgL81k9j8epk1rfc1QuoiB/ihkFEXDoY
5u5EGewBAwJ3oHr83LDR5Hn7QdUA5J5CYdpun51VVXuf0n4oXPomhZNlnELyZO/fYup0XzgBi59g
WH9RppV584b5M9ogPPOj+b2Yb7UOhesz6Mh7583dDev41b8k2H3OZyhbfvuFVNALFwicOqjKBJTO
IjwMsluzNOsOPMcwJk2zOJm7MJvIQlgCGIMiOwcPQSGDpMdOcDfNNA30jxz5JprBEx+y2zIBPSHl
J9j8xGE9cP3RLpeAy1DT8zODVmxpNuEsq3ysumDAESIFkOaFnAOI5MXRYIUpJosE/kn9H6RNcSnM
adeVmSrFGm9DypH9yXopIflKYc/DQMrs+FGkU+eolTOvoQjLAbtDlxD+YOAGoBgZ2MAycvWTwZ6P
5lHI8glorxS/qeA7QJAGcRv8Ll+V7BHqDI2t3xfzYHmU06l7w9NH7wwqfVO8LD1Pw4Se9glqD7ix
f6V8yqbGJv6Karktmh/I9dVIhSWJQ5k2FxGQqFSEosfN6ur2s+f5z43/Thryn5WcOebUn6YcmgZE
0CkE/b7v+xc9BM03cqUczSfWa+dXbkaVuem0Nb7jQ4TkTLVsGGY3b4Kn+30WXs+oNC8eCZ5UyEIh
P/yd5md6f/JmjvfR4zJNQHJve/o9Ra482Vchn313+Hv1JeMPf8am6vGcggbW2bKU7kd4bz9rjIjZ
tM2JkXLH5j8DO7c721ps+bBbbg1+t9Ifkez3+/33/q/g/lcmH0Wzz/ZkGX2mZrmeLGI0QNJ+GbQX
ZClD/W6JZwLDAYStAalDgU/jvvoQKQPyeshkbeASQwQrAzSXhUiSBKBnpAQdlO2QTk8j+Xyk/+tS
m4HWeAeuUh5HIHAZuwzC+pgOxYM4ODe9qALDYCh/V6aTeL/zJDiScn93uDjLaBR8YBnd1FP/sNYo
mJCisfmA9+ziakNRo5gdBHcpHpQN2A3JdEuHXCkOCJ0q8fimqJpoomo0I9UHrAxxz+zN2br7LaiO
vCEGh761YyMAtgOZvD/rUBPbEsDzpUUErLBh8axNevyhMdg2Sd7zNwf+YgcX+txsMP/Yc+9her2Y
3KtC9XsRsHR07w5gOUtE6OdWp0pzcomC05oh3lrDixhcbImQV/KPfxQyT/fY6HPZh0ERTYJqqZlA
93IIXDJCBxMuTLAZAfqP0V+4+AHeHnQ2WfIlhbBYE/kfRpuY105e4NwWQ/Xf8mfvu6jGrUVKNhxJ
0Vh/RMppbb738AUygQuVJBkSEwvMvaXxHQNnA/J/n9X9/1vPq4ftk/9+/mmWPU7f5/+67hdMCMsV
YlYTCn9TMbPCgrBEgaZAyQ6YHhfkFvwB/n5Mg/ixCcAAU+j7Z/N9LrLcH5tONsDWgnNsx+zreRfD
6jRrM8jUWyDEzPDLfjMPOfCHqnyj+CekvUkgQJ9vtD28qHsQ0sKH8Ifm0FD7wD69IfQge8s0Br8p
MBG9+SAYFugXC0PD1xMWMbEayLxKxE9Ee4OxOstGeD6Ciw+dHwr+No+EvZ/N5pNaIeAbPBecpzEp
pYL+LtMzosKvR+U9gZWxiT9zAK3/NAtVnVsAzJWA0cmbx7P0lWVGfnH+319bPUPlEz8oVSMRT9Za
sPMZf9FLJiwGhijiiOZdOhOmCbup6wcncbti2XN7GzyHQ6yFgrMPhB07wHTImHELGl+89xcbZjsp
YMi2c6IPYOuMDchwMi+P2eufCAVJGmqfcjGkfkBYLB7gn1guj6zN+Ip+n7mB3sRpSECECJygWPvI
FwLgP4usaTWQLmW/UJjWZ1urEhIkkJ9BxBcKHnReoNnb5cA5dgdidZBsVZ5oFZV/E31/V6Zby3wa
Z5S0mVFBLyaleL8/PH2fiv0gJ84XUKYr45ZIon7D8vzv3dW1+QaK6uzi8qWYc8KhEwNJc7e7OQoq
vnp/tihl/cU1qyJO43auxgENt5MEZQTufvh1DIfZsyHG+5ODy2UqnpwAXSCa6s9fl+2kPlbAWyL0
EW63B7C94Y6TCnb/NDj3pemLh7jiQ0JDDXfzgdY8YXIEHeOYUZ/t2fUXSMHWH3oh7wD3pwQM0M+f
JLAQDYjoLkHEMG3H4SD5Bh7GN76BmHL4BR/qWq0kSnEmmgnA/eGyGL8qCOKFJzOKnGCG0Dcm3Dqc
uCeHPB9IGodJvciybG9NTeUzQMU8fUPph9Hz/Mrx9X25Ue8IFSRkIyZUnxMXMtnDHIplD8D0/DTB
sfniBSfmQUkEjQfE9dR4hh3b40EECuIekN+DUaI5DmULmdH0jIHP6/wN5RFkF6spOuuXHBxQc5Qw
oLt1cyIaJCJIca1XBDOySb45Z0Qg2fM6el0IFEaHNhyeTqIWTcdBJ9HIaHVDoIViiXsX35YTBkHz
/aT+6JlfK0owHwjIzXrFzymMiM1OZvQAdhCEqBXh5djLuAEY0xEJl023bAzTsObfzZJuuGV5J2/R
+EmR+IQ2I/0/2rM8Q3Vu7iDh2kPGkp6YvLL6rpRWEkCEA5QIhzYY0fg/jq/XdDRDVrhq7ic/R1fy
L7/qiUL448H7y9I+ED1nq3EVIcjRidxyDI9DY08Pr+BFKaPuIfeGm47GjSqk9NbeMuHxxPsuOf1/
XGf+e34fv/YmQZXpr7KWMIBGnLO3jgYjA2bwm9Sgz3iZlTkYLxbw/xCBunGF/8jMzuQzzSiyWKLT
Muszci5qyxbtN3kK7Q+sTtA8t9yGNS6jWbgHCJsAyn2yEJEau0AajgrpBs3T0yyJiF/8tgKDQrlh
qUGE/HgfkT8xhPxOQlRhTTQQ5xOcXWa2cT3ft+moF9jh5i716HqSlOwIhRQ8rQdAIlxlgMna83SB
1GBz8XlnpjJ0yxRJ8zRXL6MZWo/wy/5fVCCRIH2Bif2ENdMg7QgWbiSlcR4PCRVHRn7MkKeA80AY
yFOP0BA0ZQLC2gwKygzVSFkhQSBkkh/RiEMsCapJ9ZveTJNxYr4ET+H32x8GtqHIF4eX2aXn/8S3
7+PogQhxhSQfxc26WT8kIbwQN5R+X4dLd/kgUmDhhYswJDTThj+lbEDx6goDcHTmBsH64eks1oP4
+1B9x8UEwIWo/M/O7EQ9iPvCP1hFPqWwxBoPYZhocHnNQ63uf2mW11kSH++2fxie+x+BfNA4bWGK
lAG0ooNQgfrIJm86Jy8sTPO0gWuCaEDaI8eLQ7wJgfQ1/brR3kBs+fqf27QpU8KQKBf+gYWfrF+3
aZsz9A/Z/R0Jh3yjBO9hCLSqD6NX1fp3ecv69+vO5/Gazof1wl+J9edqXYkh/5n0/+PmeXcVNMqF
OkJXUA8wnLA4w0/65AMYBywQiRkksZwdG+f2xXX5lS8HzYty7EEbaw9Po4h7wYHaHE4pyb8/4K9w
mF0ayzaMDhV5OfIlD6ZFodZeiT5EFe9k0eXR31EayEwSm3Ndo7ik01cxUGbAsG6Sz9WWQYKVkGrp
sIQuB1vvz82v1lD/2yRJP3WcLJT48rFWLWaQ9AGdkLElsDD1ntDyb5B8fqKMEGvTmmo9YWLSW5Ak
JEMAV8EM0upZAZzAlqB6ydQoxcAQPccKHfzmJkZNVC/yuTopz6rIbdjBTBBuJQUf5G7UXBrDy2UL
+HYJ/LE2d9ec+Si7FmKDDiSeKwVD6YydvwPXGaQyJH7rSD6FJUmn6hkoZb3uRHvq555pNMqCLN2U
zfjB1UOBr9hzc8928mjNpyWhrt24FMd5YH6Mq8DOj1Zo1fRPGQpn39w0dIc5OysDrW0M+iUQvM9J
qcE+7ft51geQcKlD87AMgvpXdzYlUVGieYTc0QsmcDeuz+R/94O9s7/56rkjgPNRGj/EshAQnUHY
xH0fQMIQIyfSV6GDg/jfsExAiXDIBh/AK+uaGzLABmCFlevILORPsDIcg/agT7iSSRkJCQGQSimB
k/Xg1VMZUjmU2Qmy/FIxCGA29hH3zLUjsKQNzYCy0HIQJAc2AV8j+u0AL8B2nbXBjgGjjVAUq9MT
6Z/whtTkDqYJfMeZcGgKWMNAh1DY4Adx3QAJ5vKnI95RUiRfvgnk8V+q7dt42D6WXoz0LmP0NwEf
OkJZNyaFOJklgo8xY8B0PbhN+ovD2ektiH1ZWTkdgmtEdM/5iCcD+vUdobzZCDLdH8YodfjzEfpz
X+KaT8v2uz7r/f+6Z2R93yie/cAXs2KCw+w3I/7H3ssewKfat/ehEOrTtG7JqG7A3hNbhuDSb98D
7dxCDQ5cfwvUfyMCjUD8Y7v8bfgBfgECJgj8D+8IGzoHn6PQFRq58rlD1Xv7wD1C/mPPmP3BH1xE
2p7hp2JPgIU4NkjesvbPRdNxbzAxo+JdI6qrmN8Eny8gOxXpepjBgxjGMYQ+9NNujeHshY3f9ZIO
yXy6TlIifIzbtyLgk2DuEo/LKsifiW1QNDhVkvg78hwWldr/90NzqI8CBb/cfP3p4v4rUbtFNDY6
n4wps0Y5rFP2fMsDLJPw+JIkWD/WkPnTQwSE6yqqd0eQm6vfjotwdOP80o3uOx5T2wjDHp2tFguy
QPTg/D3GCMMNRslNpQ4Ik0KmDBRGRgnJCmQsJfb/loYLnVkQu/oAwfe/oQ/hM/4Fw9y7SrXq0JTa
FDIhaw1ycz/VRUPWH37vsHGA1KWAu/c3zIh8M2wW+5tVBbQTIE1YyibfuMWyAwdXTB4KhgP7cc9g
dgwxRKTQZF35AGgWF50MgLFwrMc24bnmEA2jsEliNQ/5X3mCv7MKxnhKaCMtZjANUNVAJ8I72ChV
WCxxFtQVYCyrAIBJy0NOZL+b8H7Ptn7U+9/L/ClTKYZxVuNpH/IxBEBowQKfxfwKhRRJRbyhuI6S
mCXMm+FFnazdpUqopYBzxxdHOZq3Tk5kC5RoNoej1R+eAlfpDlQ+hfqNr+OzGw+0hx3HsLQixFFY
hiC/AFEsVGLZi/viHHSQk5kbf961rsdwn6sMTsM9ySJ2jIAZCY3/nOxk/iTnhoxc6Emdi2X3uuHM
fZnRlRapVbocGqUlm8GkCAUygGJDV0fD+8qsrGNI5f5DyuE2DuyTcPUnPDeZCZRE2HkWfGqoIky/
V31fElgkFm9Ef6T4/LEEiMGSJY6FMkoiaNGo2a7wp9HlExhISCwgwqpSVwNn8HL/FY7T5U+30erx
T3WoPgFFw++BPIyu3M8LYj+1BjLyBevyMfwC/7nLbZzMyJkHAP3tvdwC59YfmEVPzkkj84dhLBj+
jwLn5wHPefGxtDFJHROJqBkdYoaAZdSH6AVn1dgYauxsbBmg/4i7L1CZvbgeUE6s14ZJibq3MAnK
XcdjqqRc2FnIoejVwXC8NKKg9bzdYfcbn+Ag7PKnED5X3ROfzMUriZfns1VVRK+QE+E+hcIamX5L
h7Lkn6TBPrXytvftzpiSBvSXcg4GEU2uB3sXJLiF2yZJZ97t+7C+oND6xdsdREcUH9jCyGxgEiyM
gF4tMahv1cOTM4L8+dOrV0p9ZmZQWfVSe/hzYSB1+7J6xmGKMVFVHxh6fPAJ6eP6uk88JvPelkwM
Dcm/K4PZV9bxTFy+0wJBrjSWqESoQO0KUzD0CY4nUQhwA1NGHumbOhDUNLExDMIsP2IJ1xc8aAmB
Q21KDE1ETHsy369p9Ut1jmn9fRuU+cdeh4u6Ov/ieFdZ4oV/yv8j/5P+1GXDR/z4p7UAXkuv8EFh
XUGRVnblGBT1xum9F6/tLO2g3xpGU1aj/r3KZrP2/UflR9t6yJUoqg9AS1u2+PXefqm0QKN1FiEe
XPfw509Zm5KcQIUY4/tmYGs7T+aeqydSc1UuQYHedFon7vEc6p5R6zGq2ZJIp74VCERcAbPSkD5d
phDG4wa4b8H7Pn/i/q/OfYfn+wP0n9w/d7j6b/Yvt/Z2zR38fi1pmcIjufcUm9CgnnaLkUk2mh/j
cj/Fvl/I1prmGQ4HMwehhX+18dt2BApHz50h/N7+QUheIlQNneJiBsiSz96SmAQYE/cEYEXmCHQh
bmVtgkKDMmgZbtztQ0hQQ2DdhxNBrQhxA6Boi8eAauqKdXEvJIOSRwaKbBTQaBEiVF0CVOZ3CcWZ
gP/2kE/0hv7DY1OYHbj1B0xjzGIlhevpPWHE7EU696czUIdRs9e3MeB7iPxTzt+MkTWAe2dCQghV
Q+p8wtmERmYhtmCYwLNjpCmQNZMoWEQTifZPs+Qn8aeZ+6TjsqPcsbO7MiZaKUtXuAHIfhtuwlvW
Z/L/xmr2O4OK6k24D09VVXvbASrWGxVqbMiXgkMw5Z+ga+o+r7frKy67Yb043IGJqHVctCzy7TDr
uuTGMqJjtngktuHhYStUTHZk3wdkwM+//CSwYB3B0kIciGZ+aIvVx3GKKJULZKcOkMiqBMwNf8ya
rkjs2/o0GP2ec57ENR7iYLk7H1TjS2fUizA2T0luBswlAQAQ6+hOwn60/q1aNLG1CskYlBghSp+C
5hRtlBZRE+vDJiFkWURQtRbAqUahbKZfldCmgnfp/d/PbbMj/AyQKAaiGehzB08dJOAVOg05UvFT
M6wP0C7gL0JkbkkD3XNPzaD6DWYCymBuO7XU47kP8Sypf21UDzpkSiGJQmmlUNIEAO82eHl2lzim
u4YQYYCVKKDJZMMEKwshxAOFFMKYbh2hmfJ1rsU4iTa3s0Z10PT/SddFBD5ZOd7ikIdmFXNjRs6o
SW3uvBjEHjEu52C3wTLJm2g3k31r00DeYQrb9R/hcIWWM+sX/cKHV+iJlJ+Y+mSD9i/2CGN9GGH5
vs59jqSQv/glmyH63Sku3/5k/h/BfyP4opn2kGCSeB3OZ/timZzevpQv1qdps+UNZ4bAUpQ/unTR
QVIYfMEK8rknnpcsN/RlfCYACrasgE9r6MSgzMbDkR1U6qpNDQGEnv/1hxy14Yfc9L/bvAr1+79k
7Qy8oLi44ewL/6D/uGx7PawPNJO/sQ7h6H4HhZx1D3FDUZGBIyLBSLERQMpQbIyp3OaB9DM+Yvbw
O80zE8BCyQN8SxuGeY7GK+zrC/f6xO8/HhfQAMrYAo8cpLghyCfGHQRwn4Boh7U28AsDgtVKP7Cn
36SGSFI3fAgEIXHXzH5eMkz5qIef7UJTh/qMTZID0jBIqoOKwQRgrmDwqm9CybpZVOWAc0Nsf7hZ
XP++lXr9Ie7Psx8sncaGuZdNpb7HXgkiRyZGyvW3VsunPJjiEUrhy1Op/PzX/X+igNfRbZY5GMIz
mYBCiSB9bOQb4dJlG3YF0KyGjicfPD0RtOCTwPmSr7fN8GZweUz4sPf+U0Gduf1Vt/P+85gOihb8
+GZd5qIOUSfaf2P80k43+s4AoxWSBmymnOpJLL9E/LRvcdnTq+bAJAYfJOeqCz5IZILyE07zE5rP
sTZpi9uFSq9v1U2vJFSntQyxBtQU3ue+SU83A2bFVDlVIyxLF5qjkmP9+TUoO/4SfGB2gcWOdNzt
3H+EriUL//cZFC9qCxGRR2onrAgvj9Z5TxfNfBP6hJkWKaiqUBJkf9CZ53ztOvhQs0E4DB/3na5X
rnDONf6z/Wcn+jzKUofKxaxoWLWKCqJDfe+RrnOKf0a26BvZU5AQHTY1y2vhCcDEos1FUoDHGjo5
VlB0dCYE311xXrrPMfQ1vrkPV5CIeu06NBmCim+2hnjrVTQDA4PTFcNL0VW7W5czKFYSECIMm969
DZxxTfgy+RyHnaaLRS9uDnzc0PV4NGtU7jw8ns4w462cGd+/cUUUWe48/5PD7Agb4eC7hQFgyTYs
XY/ahYFWSw4IIYaeZDaSAMX+hFfyLceipmEI+iUEIXvJIWlhDiLBARYhEESCQjrWYe9AsA/0MDwH
vnuIkEiDBBJ1RYT4IBftEuMiyOEpP1DmrpxS2hXAbZ6gDRCwQZ9ECsFL8CSElHXQbR0HqkpKIclp
NA+UiGaNkwiRJgp/cbCzjS1ioMIw3JCrKIQ/5n+4PX/yNBaLCYhCKhAgDAMj/Esh2dJUXB/7IeY/
96SH/A43uN5cve97lQve5YjIXifVEvr/N9mHLzw/NZPkSB4Nl2gvac6zRo1rRkVLxNYF9dcrXMkg
ZGtDrFdTErCWC0DxLhR8xAyNx6+T/v6eWTT0dGdeGXNnBYLBg/jOewlEEIhPSNxt+y/+EyV0dBPT
U0fhvbLzNWZi84vd9XN4W71/6T9HBoHhPLL2j07a39r8z/VPcWI7stxPterbk+feYsvL3Uhx1bqU
6OW9708j0H+Y86/2gYj+UxEzlAfo+q74SFGmPBSnNqKqnVCLr/2C8Gkf8CYCOoWOLSSSYA+ePgMc
kkGY5DQyJzO86iUSicTjm+DhOxmunjWBo9/XbwaOqKP+hxuYjJoR8LEEf4v5LJCbNp7/lPZBioIi
GpDo4KXhwUFRVCQklKpSqcgUBQEvHqHAOEspcnv4mHsChwDAYgkQxHgonGGaNeho/9T/geszfNod
QoVMVFWLGMSMmSQGhdGgpphRoaFscffy5XymgppDPpqxEIcDthf/stpdTCgwf5H+4/pCL7uJLpJf
+ZYfOij+g8lJAEShKo+4BhST/bnTj7xPvo48OoInZKtpZd4KYjFIIFIZCSJb+0Bo2Dpv+utaveqS
UZCBRkUDmGA7J8DqSa4eV7X8t4E5qc7BiQNgaAxblIxRkpVhYkjmBQNyGOGAFuCHBCCQwZImRIly
Lo0ZwZnemomLGlt166YeCw6mWJYhXi222zFllmFU0YaxFUZRom83a8jCRPD9Mz0QyDKY2LBYsFEN
3IOvLmbW05er5uV24PLLyA8g3CcGBxglWuR8MC1rfwq0NTADoJIQhAgep+B/fDr+HTexD7vrD9g+
0+dZRaifsgngIrmGUP1ql39q/1n7AP9EIB/chkfYH+obFgGj/vfwAz0A/aVsZHWpR/bISDf/IM9F
ROYGvL+NWe8CYFEn9xLpFyEeJ6juGTaKXyfKcmZe0JQ7kcl7CojCEJgXxf4Bhvk4nRV0sO9D/17Y
jsBhih0wDkDxs5AsEVVfeHyfzl/lcNG/hGlK04q38YQ9oELHNftU8P+xgtnJJJ+E0mM/t8qMipIQ
YQhxf1A/eXEMNh/aBTH18MvcHrM00zdlVZ4jSOuGXoH0rKqpJJCfMH7zAuqBmUEJDQeV4iyLmoRK
YMiq0gMEpBikAGLASKDECAwghFhSERpgBQAQAaYC0tKJQSWADCiWDAsggCqEGRCRjICJEQQSgJQI
MhIDCSCREkgkIQbBYECksBEBgkioNIFNAJFiIEIkjAQAjBFi0CUiUhEhIK5AlhuZG/jS6RTMQBC0
Q2ia88Pr1j0gfm9aIYUxoGwEnBAST27D2ntD2qRYMASMAVQiiiIjEVoUYCrQsiDBBjFCMFCLAaCD
RKw7jGaCh3xADaruvsyPA/SXP5fj1CIqPIZnefqRE8ATqMk7TpQA7AS465+olc+f/z17fu8X5ajO
MR2/Xa0iSeUlDH/AobBxfK4+Q/P2onQZrTZutixjk+/4YaB+H+dvKQ9V92HEwslh6rhUMD0h9JvC
ajJPfxAOvO8CQRD0ZRIGgjRC0ZSwYsBfZcSRm3UkxiqBL4wmEnsQkKqAcCSU00EYAnYpdASECHRx
z556O/uRfl/Hwd/EL/UvoP9Co9FNUj8Yf4Sc93+DMlPxnjhp5ZTfcz219/cdXV09XPqx7JIEAkkR
hE8CvSFHc3b9+EkmFw90Fh66YZOQeptb4l+4x89W4WGJagNrhpYs2IsALP9D6ZPWnk0EEU/KSChG
AIFEQSoASCjIiuqWQpIsiqQjGCCQiMgIwiIHhKyQEYQiIALJD3oFED6Q4XJBkMQChICwIiXYptql
IBLA2A/twC2ALRkB06PeY8T9vb19PXf4R5DvjEV9KTFU6RSvxmKYBWEP+jF5fKcM3kdGwYthx1oz
JiZxCx0IzxC3BrsaW0DqU70GF2PbkUnl+BurOd6a9XOhOdhdznF2kZEbxfiu/BMGcHt684+XNMbx
/lyYzvAVgfTFI79qbzNOBUPgVyuebGvWLuxAvY/7gL31zRKzXQ4x8+KPbrVZmcvYtVeWaMy9enNV
8xeoOraz69h4VI1tgb/Ha8Jjec9vSIG3Y/xBAAEB5mzu65bbQDMoNMhthnCVPa7qpaTDpoY07jxX
fFs9Sms9wJ+8mvU8GcqDP0gQIiBH385oi+I3W1ga9+Jd1Xuvnm8sHmJ8WoGplsjZ+jGr5G17uOXe
1K/iAPDGbEFtCpTOtJC1YjGpvyHiFAy3pSspZ0bf7QQIiz832IxV5pVMezjyPGwc8GqKE0x+b3TI
a5Fm6UD1jDBrmBzW+VTnvGjyMbnYwITWFUbgM65zzY1y/7BF43m3sZ5yM8gYXZ+uzxmWET+/5d73
K0O/DENjjb8q/E+WxeahbUbds7bPusCAMkPwin9hdx0PoJ4L3NSOXtF+MS5Xuca889ELviV0dQV3
jT9fPguHYJGt8h7pFxOLc6O2WkrKGbDOuStbznRqeQ+ITWPMJOoBjYHRe/qb3A6ac3ttOrjUcTEx
i06rZMWmLNnWHCyhRZrSFAYSuRa7Yyicsdn/IA9DtY/AW4PtivKsBp134tvHyslmfj/49slP5MfA
vLeY53HM8hEE6zzz71ocSc2PRbw9npKWsaidT3wIrSOfl3nuFaO6SMJWOc8ze+6UcdSPOJytjIzW
V6ZtUZpJnh4UVay1FZqECVSzCdPkRRp00dDp7CNmHDjQyOxzL9Gex2RM+Y5fcs9BV2vh4dajWywx
N9BW2JTFRCNrrgi+RD2IgLtXZMd11Bweo6DeBvPMP+Xfl/a3xvj7+nVs2OeLh67rxy9HTXP/Ehpl
3jGD74FGRqkCHwVPuG+JBHVKNr5y4BDC+weIleFuE+NpLIBYTOny3yBzm9ZxjcPepffVAMSNhEcj
lfDlBxObFTRuqzH9gJefM4/tBLc75hWii9MYXOtYfJ16EPEhMBdYw+R2MzgLXeabqqCiD0vEDOQe
8BxrX4fVFY2Yk782Y7/UCIPrU7EKOeeU7/K9gb5atHWh5+gBvkDU1jHPnVTiRNicyMoDHMIxKj/h
F596noHOuiv28plua6mVjo+OHdNl7rcXtMcUWGnlsOtlXPUSqfrfmZNdisY1TyM7q9eNCNlQbov9
CCys2D3Oescjm9/fc41ssqPERNjVjaYpZYBjbbUcydb/7gCOYzB61jCZ6z/AjSccNPH7mdxNYx7Q
ndUOHg4kL7T94mpwNiYy4fU0oeRueRluz0c3HHuwZnjGF3y881eNpi32+VzAZTGbvoWW6x7GtIOf
MIM+aHaMO9aWAlX88zdl2F1l6/UCjjbgb7zzAbvbcUsHsJm5EPGqNjYOi33ERLiWpbthqXvtnT1z
tS4m/AVqVq+oxC9941lNSFiIp51dZnmUqEHzXVidbEi/8AOiPpjYRMuHEDg2mx8B7Nseuc9IeeU4
YvPGtcPWxcaHjSlQ4Vwh5q8bqhhD5vQcYRj/t1w3t/e7ETqe9GOfBd477jBqISPc1wfbsecrXzXv
vmXmI9nOAvdVvwNJZzkU+er2sbkUyr5U7jOjwz8HuJ8cXUeeuWzrV3zyd+ajvnsWdKqCUQvKPh3h
aQk49t6ti8eZ8wNifbN6SYNnPeIDi3ErqKjnE0jaEWcZ39HI03zLE6CjiPsDvIo+c8j2wplWsHJA
BjPwsT6qFABD/AZKQCCALIkDBCBwcJyynsYDEjEinBfz5YgMSBogARE8Olu+M9+2/c49+FTq9EZa
QhTr2sKTi87GyhGPgTMwf8xk1DtO/h9gVAaBnKeZXc+T4PFPSpe65/OTisZz6ecPB8jRQMo3+og1
PXngryzefdHzIbcJ01+VNyEnmFtyfcMMsMB1YUPF2e+3jR80NA70eeJC170W3kOByB7oQN0dnEVh
WabupE6h+zlG0leWxagBae9dw/pNaNgT4vTF2paksrHIodXBwqmZer/tDG/qGEwHyoajb2/O+GjC
dZXuspa3DY1g1fPcaHiB/oHQEC5jtKfO8iAA5R7jg23AMd3cCbUnu9HbMLtAcvF7WqdxVg46XtR3
GKHBfmQ/aDMGZmcIMYgwWBCHT5GGm/o2ePG/Lp9KbHgw/M9HoijH5xCkYD+ZMTD7kKMPgwL+akhU
IaGVX8Yh8U5/R240aV2WBcoMLMhfuaAaGwWAdCcIv4QQ/VxQTqyQWTlogsS84YNGkKICNZGRkEqZ
4NFwqQsLACbwKDCCQYgl8K5IXg0SGDBUjBiLFgiDBQWIoIwxICkmoIJA0aAs00WoqXc6GiSRiTYV
uB+BA4ECgLHmtF+kCLYw3fgMGMJAHlQI2Ink+Tx2uF869/h6hBBPp6eg+TOUShKP0Y4fGRh5vZ96
497wYUaD2TCYGR/jrFiTduZz1ccFy/BpcWOy1d3sAxrLaLFRD4atxmNE1LmO6q6zyLB8/Q+AgXd9
8qx5XPOYScxYxPKQodnLCAFjV5lBm1UoDBEQ/Df/Ua4GbX2cu7lxu0+CcsTyE+RskatAsUlU/4Ee
nLnyAMiJADSgNm8p4Gvr4cJkdHSY49fXv7jikiL5/vJgdof2IggpAQUFgrARVYiAKjbeD2DJ8gyE
sBmxJ/nYUt+IUowJIhIgQhBL/9QPYG0MdsDtgCHzBn5n/ZsPdIHygRX5D0lpZNCfjihvAkjC2HtM
T8t/lCMhYXIxAIUaNL8mEisB+1EpRIICd/fEkJJ56oYAePzdB83n3mR5pDy+nykvvF8xVIwMPE6q
Zt84GJoGd1o98aJD0DSSmN9MYtF3P+4U0BnZLlk0wyFXcbZp85Wctrt7B9uDo8TIENEDM2Z1qpAJ
MD1AGywoMChnj641CC31GeyxOQ18OhC/gC/PmWazawgQAEvAGEMEP+mSF/UYBrOJss/xPPybaeXt
ThX0gOSkkVkQt1de/r68Vutp4zwKQ/JCwh94nL1LCwY7Px+41BuDlHIgXbp6DjZ+u5yZhGXPDpe2
ZdA0Hd8TeLCCh5PF92yIVr+n9r/huhJ5ftUPCoBzrMNcbUvxJ08q9ZCk3nKWATkV/NBlt/qLjfw+
mMRW4F4GU53GG/A3VMP2pQ9tp+SfRmtXT5nY0Q0ciOvq9jXeXzcTs94HOm1DLSuc6OgshRudn0f8
QN6jKJA6PFFbnOsbnbzHN0PEfBwFGaEKuwwzvkW+70f/UM3iROrbfaj/Z8vvuayyVKthOPGdt4Yz
FnoZnyoFHkPPo8TGs/1BMwc8oPY5Dmj4WV5kB/EkcTzOGfPXxQQQyY2JeBw+aFR5LQM1XaKSrZyi
6izpVwjzH9CH/XIAI+gBnzQfRBD7a/r/8zBsOJm/7Q+J+ozNPv9+WJriKIUzX/m5o2Cwf6jg2jqa
Bn7z+KAexibz0gNAZB5T7JCNxlRhCRGfYVUSSFSjBhEIH96/2qm9KFTf9NVGTBikhIoYCINTAICH
tcn1EQUcQw1CEwV9Yx2QX+BA/EPwH9x5Ht9yfuD9quH1h6ifoPv9s/baFtLaW0toW2W2W2W0hbZb
ZbYW0tpS2W0tpbQvlCH9+G2d31AP20Gsj0oFiC1zREKgsibIMgJg7DsiQ6icwxAsEkEiEAnsugfW
nwEV5xNgeRNAsim7crtk+JcC1vhPpJTxD/HRMqwV03JajzXyRc0j0UFEIwgVexhfZh+BMmpKHGsw
gxhX44HOQtEs3Z6rM1O05wKDJGMBEkHjuPlO55dbdqbwLJYutym1qA1iEyNQLwqBg6rtZHVQ2C6G
m6tg0vhpBKxYmhZC9mOeCaAWLGn8hy2jvxVNnyTHCDBxXH0hiOXYhE+H44fl6J7UkFBBFIxhBREF
EQhGBGDuvxM14CwkILOiEhQhFaJJahbSxGTR6AwxgFe77Ukwh+VK+R4Hf+GFy5cuX63ECQILGDGM
AOnRq56YvxJyXOA8SVUR4ypIWpnDjjFXSoUel/3mnS/6T/qZXR7dhLDDdEgkjAtGQ6JZ+CIoZIG1
Db1hpCQZEQgRSEAGKQEWKsgiBEFgkigxBYMZcevnTIypBE4pJGDEixEJJ/B+AlsIgwRfqPvPX/iT
VsEjGVlEfmZZEQQkTBgtSFErBVWAtErlSYFpaFSYzMglrAxkRkwbICwiyREFgxBGUpZFrJWCwtZa
JERYLAUqQrBZFJBVVYUSiQRhSlC2hUKhbEZEoxgkIKliAKLGQkCSyWMWA1CpIMijHVAR+J4guKNn
QNF8pqW4BrJ0E9/FtC/CUwPFYQpCEWyskQpSrIqAsok0YFILIUQsjDEAwUUnVvAoL+Mw2BhhfzpI
CBBIIEUCKrHi8aihBDjsO4clITBU9e0A/zgB/lP/SCoWnjgI8oMNh6wLJ2rW0E/6xiJAYSEQkUjG
MEiRG4v7S/WfuOuxo9Jse8f86C0CJHgEWjcDsREHmXsIwixikIyQCEVJJFiSQEkEYiIiJIjCDGCg
ChFhICgsIIrFURiyQgpBGJD+XXsh2adT8R1UdhIPv2kkIByG1RNvqGbIR+9OB6A2DZYwiyRFkjIQ
IwiEkUViLBQRGKowQWIoooRRBgKRiAyCCIsSAwYMirGCADAYpJGIisYMgoRSCxIqiSJFkjAjGIjE
VjERiKCCqiKrIRVkEhITuEyWGF8YH2iHkSk7AWv2B5e1TU9Mk5ONKWQrUQgxQVQWAnwD/DIZkIaS
IEoD32Ad5IWvCx1BfzCH7o/q/QUlQQfrERT/ANjIwArNDAhu3fFDe7IT+GBjPzxPaSwQ1N6O4hAN
4QpfKJgnfADOTeRUr5H7XM9izxdXUB5nxAQ2H0Kj9MQUKiKOkBBOWCLaKISC2iojQxBH3QQtEFCw
t4Ei/kSH9R1yJ/ID9xLwbLQsJ9pQxGYdSAa/QIBIIiwIkQIpAIwecQx9yj+IjypJ0DWD9SAF4Kfl
F0AhIXgNISIa/0qye4KGhhaVf1QtPNBYSKESMFGKAQkgEiERIgAqap2DqTMzA/cQkQYEBIpGJ/XU
Q5Qe1Dth5Aegf3OyTIfKGB7OhOXaB/aRYSMh9wRSgOGcB2CQ8rKQ7+odSTaKbSES1ucEoSIQiISA
BIEYlJ7VzNb9582k897KSFh0Cu0LIlMhQSsRQLWBKQDpEXcMY/c20YwsntYebY3MoYUHLKOW4Zc/
IymWkLowySltGUMQzK7whEhAIMWAQISKcYqIfejqW6XulAofWgcw09AakcW6YKChqNr2xMaEUfWj
xPNKBDpiLE4ygJGKb6kbJ8kmtQoizRgrB1T8YTCREGETcGqMbCEVxagooaFgxC1jYFjQFecDyxJG
Kn88WhJBQgHKhVoIVBwYQE/NScSHR7+vuhWVIiFlaWKtKVIoIxG0jQqkLQqILFRYxjkFyyG7RADu
D3+74XXo6hSIZEbAL+8/XCiMAAtDy+hSxy/OYFDN4ECJB/srZEbJ0z0dBt0h+G7kS+f3jALUk8lC
hC2FGYDyhkGMQ1CCMiKLEil01IEICEF642MIjZItlRA2QPn9kAVgsBZEQZFJFkiEixRiQYwGCMAG
SRRhIxEUiCEEASRkIwUVgxGBBSAgxEYrBEWKwUFgoMgqAKEkSAEiSIEIgxgunknoca0Sl8TM7sKG
aLDNN1CuCh8iTTBQGMkKGpvv2+hY1Uqkv2z1MBn3b3qA4Z9hqEukxSUyszFnIYQRjXxhdyL50pWZ
hdEKGidBuTSsNc2jxBNTLZEcIyaMJeM0T1l2sNCbYaBnAGWHVfik0ZAuU0mg53bBeIXaSmOMaMwI
tIQgIdhOJyXet5TVeDWBlAKaJ9GeE473RMMs87hjBNMUkbNK2uPLfubgxdCs0x0L4WxuE9g6hACI
dxuO2hIHDJdwgbhhbhuJtSTTGC8IFUEJkWSsAI/XF4NkweNTNGi6hq5Jm7MghI02YaAU1DN6cisi
5fAjnlmBemEFKKSlazlYUzhuOgpLrcwjEoroMCkLYZrVWMLerxCiCWjpMqzLfyCh/YHEC6wHM7lz
7f5g8/m73+fyVDOknOHVAkBJAIjJJY/9SIT7RgT9wMD+JAMERTxfuwuOYUJ/sYA/7Qyin+pB6/4K
Uh+J8E7SewPAX1C3AwA/SB/GP8ojXnUXzC7YP8pz9R3cPd1FWMUFXo5olfzQp//YoPnveWo+0VO1
DoBQV4B+kf+wYEUFIkipAyeQOz8D0AEY1BKAP7EijVwMFn6V8MW++nD7h/ah2+9VV9uMiwHFYqvr
CPIPshz0q0TMPv7JIetgf0WJ7+7IwOTAoL9ofWagT6Q3cEPznA3r80sZlwLdDhGJUkBZNIHgPL1q
npEMJ4JClsxpMskzRix0DYUjbYn9ZYf3Mb7eZIBSnF7B+5ef+nut/X3c9ngH+pCw9UsEDNpghilp
xCjn+j13TGRnl/B5gNWM2mswsFhhmYPzAZSBCIvBR8pTDhjSZggGjCGPhUb/5frRpfsCn+Bmf1/Z
CUU+2Eg939iIqveIpB9I2pWzf07DUNHK+39gEDJ7Q7XsvHpku1/Md2DIOxw/xFraaNfdNdgqioBA
DnTQOXr9N0YKC36kSkQVPEGpQCbBTQQDTdyRIPV0369954d08O7uPC88fHs6qwSg8xYSRR1lX+B/
vRqVraou9UEnOeMU6ozWFHuhmmEDWwHs1nOV9mNZChlkSEGgYfddt8zfslrfg8cyx4N+W/RSWokZ
CxnaFzUpqvJmi3kPjyB3hNS5ew4VfKYP0V0chJBCM9rc4KRh/Geq8MLkZwKlS5GbmpwGjYXLLJzl
jzl/+1/4BEP9gHQV77pUQ/zojTBsjVdxdeYNJjyXa9aQ/Ua2+Dlijzi0T8ReCB98dBWLdVstMvZ2
145TnKRnLCUU6/D3eNKY9wDfY6K5PbHrz5i8tPMY8cOnijadbHV5AUXrrhuyl5dxlJ5ebvm+ZHTQ
PnvQb4IBRGQu9y/MDtsLutCOZbeepQ5QU9jU9FYGxuew2Z7a/2thaYy+GBgUcimdYtIPniV3WyiG
CUDzIiBAfAAOve4qvxHGIZhQXTeXAjA3M+FX1Ohzx0Bb1d0Ph7EOH0oWdaeEEhm9qWi1csYdC9LU
vGtpQutj0OgZ1IVnXPnnlNjE0abGRENKTW8S++iKTkZj4CGPjGOA8xjBdnnURVwDYQY+CE88le6D
bhx51NZdkfAXHdfIDOJHlz1x4EilAL0F+gC8Fwg+DmdJrXG8ohGBiccJjrufFkpLKDZPuBT5NbGP
fQYzGW+UmG53o88ELg+Vc6wX2HXZ4E0HHlezvaGN+6XuZdgJx4YUPESk0rwOazuRzYOx4bVGOUPH
V8QesSMbTQkw8x1DWEU0lSH9Q2CGbO5svMb1JhzEIYg2pFBjpITYXdJlmZsPj5PKqx4bgGKICfZT
oFay2WUZ5ktXYqb0ptF5iwtSDBhafj+XyIIQMD9RGDKN5HxjLsvrDF/IAtZV24NN1Pe+Ih97zgz3
C1F5fXmD6h5w9wFnrGzPghdqCoOtALKJQkzVoIlXA3n+RAegLyABdx/k+nN+vLbEyNcW4xuFkrTl
tOVa7w3W1ju+0vkAAos7cFTEGqLdMg+0YC+g52NoOp5kCl3zbhrfADK85uJnXh2A9+zJV6TJEjPc
DgPmkrNdkXfzSH1Oa4wvGVNXfGsQ5h2+TEQ2Zu8cXpyD4vk8ZxWZoLdENZ4P7w9n0TtfQ/prmDHw
Ih8wQ8gV+ICZyGJ22hm2x7wiBu6qq6qxgiTZvX+d7e1MNuw0jdqwWxn+Fo9t55sQE5rnfMJAzb47
0tPjxf15HjCK7k4yH35pu+S3czjNLR0IXxmhKSvH5HOai+Yvntb53s1wNvmobo/8tAwoW65b3oXn
cruB4Ov23ibU3ZzuJqZsTAUh/4wBjfrjI71F090PFfYRqpu8v59x6fuU+BAfrl018hfQkU55Yawf
o99ceXO/VmE8PmebCNHMhPUqTGFHa9bfNwuWZWcMb+eei2awkL5XdN1k4Nte+TGF60iuir5BhXAf
HlxeXWw+MDeL8pDfG+ZzqogzFbDujnKyDnPzar2rWT7hcRSV6Ys+UaZWwS+fz9h4EW1Hb2D5iNQD
+KFh/OdjzGfKjfz508kz602tsWYFI+vu3A80FzzaPqNtxcUKipY+eKZm+uLsdxXVhZKpwzA+eOci
NzGpBp1q5fBzA727jJ68GLXeuca8CezPR5hQw31+rcJjKmNeVJlr8kZ9xPGkW+KxXvb/oBPzVb81
zwe6ExAYJgx82s/H8tnMJWeHcrGdi09rh3NhpGRI1YqgbsHmlg3HEdUjoiBL3m1rEDDTDZrG7002
F20Pl/cZjulHlQuOjkwLPL4n5FQIHWz4M+aC++WihrqjbFllh5frfQWvm+X78PEsnzkuZ/F32asw
lRAyPX16MmPm/XEb+VfBOI/APE8N1E9VW9jc+4P4hxAfhh+lU/MQ3qIaBSB7xDhhwF1af/wejMwk
Ebm3dBn0A6+XsB5jp8B28fN0Fda4mgWIdIj8xAy9IUDigPSZ+s4/fKSxAMHTZs6toihTYwCDm524
j+54ba6Xif5d7lhmujr7754Jn+niJ5iIRPYyz4CCOOr2K2JO8q6i6cXIrfkVnVvQ43okqhHdR+wA
AwDIEX0CBAZkB8qh/PGhTDqV3y6U8FFG3PSo7Zg4PtaNJLHcgnX508eh0DQkQ+BwKiJj5Qfu6gu/
nWBkp35DEot6Cw0W+EyiQ03JZ+a4V90+aSF3/zT+0jVAgD1P8AqEYmRt5dfPx8T8V9nOcN0b248z
iEVI+VHtB1EIBPkfv7QWsGaLXrQK9vcVaAtRURKSFI3tAG+Yk73dmk7o7NWWjxFH4GXm1z9HDE0T
VkzU3Krtxzj+9/rBC4kRuMPzfzKbuRKzlFG4dUDYGaw6wdRtREoZaTnUFskCmKPMSxaIaAda9P3g
uS5BkMTULwgF8yzqNHYPQ3yIBDQQnNkiGreTwteQv8t4ZTXevtvyF7XYsaXf54PPa3mK3pQ9rGp6
uk53n651qGZ7rWtHErMkOx3PcHjctPz0fgIFqDjy0nhIDe9Zr5e+eUNbFmLQDQj0sDV5356005Nv
Y53o7PDhiSzF7ouRgXgMPanxiQHO/8UJCAQAjBGRgEB9sEDHHOqs4rMyHZ+b8b0lMSTDT5SUw98e
Q6zoWfZAtRUoHxakWHC2jgLX85K8JB+Kxav7QQLr2vlUG+uwSu6TFru0c3wg0GDnyyN2jwcnmlhM
9SmN99xPZpzecxOovqecNPO9qitdmTG2yTzZarNxnR74a52o4StKKJtetozwswdHU0Jyao6frBkA
CL9RkQFuk6bYE823wG1QJhWiNdAhjpHc58OmR3vm8hBcYmcA674oKXrSeY0rkPheW/6hMx92WBrN
DmwcW2cwMgT00uAuhBobbZjaKGjTYUXtdq7C4rggLPtWQpe9XQxWYaLVnChjYhyxFoUzO0ZLxEtu
UICFp/rso3uOFjoSO4WjqWD9xxE3Pzx1IhTiifmFWETpIcxrpyNp4vJrEQvDD9bBqCzgTxy8NjQh
Qh6GDBkCH5mQL9FrFgr5qC0PmH0U3gYDGFbIPFECMDJH5eJEAPAgDAAJQ4AB3Hbtrbcdod3OXt4x
8fCtJ9v6hkM25H9cP1M2oWOcfYk90P6zOBgOMlYnqckXXzw+4yDceGuqdXzw9e+pvmtsEzqjwmst
eAsQORutGNHdjFjWSpNYnkyE3xdKMpAPmFf3O/cDeX7FGw0vj4jlqGrZYvgfXPNpA5N2Yz8L1ARf
7P+sB+xTiKq5i8HWNGsdia1fj1vE8y2ABXMOCY8OJvB+QW6dx4LQGB6EYFpB+ejtH/ioHyr6ADaK
9Zc7GLASQIMBYqSKREj6VwP1qfV4ApD6h7YJANp0SKH7UyT3MBQBZAFAWQBYskURkkYMFisQIoAC
MJFgBB3QJAOaEAHYRS4HX2Dl7/PZsz0PkLqaep+1Odb039h4NC2BNV6zRMP7wP6+RbGUSSVPkFIH
zP7yAkjQB08+/p8jXUyHrM0k+6MP10n2y/11U/NE+ctRnCqvbwxU/9f6MszPJP23oYT/Wa7ZWbhG
iFg1QotHzA/1dSFjn9gUo/gM/z9WQxRAFAlJaRQbL1FggIP8uLZCsFAD+EPus0a8+Jp/k3ZgjERJ
spDz+ietIHrCfiIwbBvTx+xMbuJ7kfvH3p70pf5g71T/Lx6pZnlH2Pu8j24vWAQkX0SRkPMwgvMf
P+TZT8QUFfIHvfuDwDxAkU6huLQEPaEQq53pLS6AQUoxt3fwD9g+hXLGJ8A10FiE9jX6oPbPR3OV
S3hQUBIsgrIn9YD33pRPkYRkUojD9iFoOREqWHgP/d2NH7EmjqnBFFWEVHs9EkqIa4poQ9uK0102
8k1wbD2ovoQDrTxGWB3ASWPGoQd9xA1SQlvj0jeSAsHKhauMc2ZDC4HlTFyB4H0h9gGYnTD61BA6
KMnRA8wPc/yHefs/AelH+YYgmZ7h6h5XaHMU+T2yTsMeWS1qpMD4zAEAgxGK02DBLYkptVJcbiOA
YZkWrPkvf51+SP7kA7B/EA8kxHixV1YOhTu4yQvw403JbZgAbIkBlhc1XMS2hqakAWJkQCn7E0fI
HDLIt9S9/ECg5w95yIHaHd3+WHj4fz7/L1dAbfd4YX4fzYyS7gxkxPyRAQH/OAIpvDDAndi6Ommy
ZwAz/XysXgXyDLKMczHLUxIZGG8EZEHaqCER1go27e46Ot3GXTnhHOchGxmnRFM16I+CD+o/v/b1
cbvHt9q3/ulib4VZTOTv418Z1/RR9pWOLWplNo7Zt0HYAyA6kAY8QXb22ZAeVqCVQHiHjvPSQNrW
Q1cQsRsFzxzpxzgrCEgfjBwZK3RsWA0F7e8/H5TXWo8hs4YmwOW3IThccuJJCVe8+AWTgNBQ0NBC
BmZeuqJ7L27IXlbxoPRPhmfz/lSJn6e8DwPjeiqz0jSrjZ/8ewHZ2xB2Mm+jxv+3gzuNUnDBqup4
T6m/7eoDyWqGVtxY5rKY2dCdz2ExWL5Rt3JTzIT3fm206t3ND3HjaTfk78Vxryn4Gndn57EPWWVn
xSecxJYzm4oqZsKWF7UbFrQvKjaMTG41t047n+CBAoCJjgXEf9giLAifDA5Dzbc9zzW6DhjFrnMZ
nPzt3H6W5/X2/0FWMpObpJ/ic080O1uRb72joe4GBi9XG6P+NjS6dAxyzJheoiSJtBceEljLDzoz
trXpNyjsjK64TCWZ6Zf5EFxjD3jQo6W/cCeqYG++h7wUeu4/Pw5yMuoWg7DOLDxPpvrUDO8KFdsY
E51N3Vtnnw23fwSyvind6BQ8IdhYohHVETXtyLYcRCAKABkRERiIK3boONpupM1Nx9d22DB3TEJ9
QsUlszklLajYnK7phznYmzQi+vVuvoBQWZ9ppPJE+vxciNqmAXZPLwMzze3/5EPo3XZr4gYY+fhB
km05fnQfuUXfubG6+OLybPgRobG6vS5ivhYfMqNfJ9fjhj0KnzGrBjOh460nN7C3+gC8vukTQXU8
Kbr2cI2auVk/NbSAiAKgY6dTAQTrsdYqsxEkQAEPfo5Oo7jCA407dXIhz2aeLht6B+/xjs5URHfn
mT8CVjGlQxmt+Cwlaq0SDwGYTXfE86j9xCDOF81bbwgrosRi/BVMK3rjjHOsry2Jx4aeU6NGfz2N
e3seaisdHrj4MTRfD814jw+4k/SAVaaRvYRsLVc3OvDrwaY/AmG3m6Ve/4Acp2G4Xlv1sv+SHNOS
CVttnv6jDEDIVK0MrmNabG7o1R+zpOxH0KdeecqxJvL/K1WozKz1U7fE7f+4DMjnmpVmFRHi9aDJ
1w6sI0mmp6pIP2iJ11W03PWsLLUVcTI5b5Mp4TcBwy47OzlOCBCkX5WjcO2WWEhG6916YxXNQNbv
O2vGrLE9+isUfoqxsZnwEMdbTy/Z59R87n9UH77uT3jnfj+bkGsF1vNA8oovya5mISeaqolNn+iF
W8YC681ByN5yl/fLwERMYHceWw2NeCxvAwTTqfdrk76e09IHV495w9eNNBYQYQbx0ZsHz33O9oka
d7BjEOEvQSFh8ifNnlKrrCRcp2jQNCD8qb5LOgr7Av7iCjaMBts4Ycbm2nt5Re/DkSgwHl/KGcp5
Y3G8Wn8dHcyE13KDgPBr2m+Dm+qKHktIRxT2PuEdZ3TTh+O2hni489ee7nzw0Xmwg3RmjIdA/LSV
nNJmENpY7MND7hvE3OOx5zG+Zxl957fGyl6l/f94G8b8WQ2hvonfZ9GgHAeRAepF+AVnT3FXjd2e
IY4xmcZM/L7ytebqI8e/NfAB0aeOoM/qvOk9XzaW0nlfFqHA55kSoQc1obhWzYXy2eshEA4Y9ToP
lpPYM90nF8bq98Gtdy7TkJFwNeCtvDcRhk43ub0J721PPK14OBO+No9Bu4LUCkow3wN72+zIceuf
lDoizvr8ziFdfP9oDy/nqzNF7HOVgQF+QLHnNirLfdOkTo79naWJ0YvGfW85i9Mq+GDodzMAS274
eG13963LAyym0yjsLzlF4lP4nBHVgb8sRY0j72JfHsbnnuxyaS9JrI3sHidtl/B+END3zmK5p1Yo
5sNoSz8PpS+jmDqgNpRhTKuo6L4WcktK2jSEJ1vTMKeo70B/cBIFgvLog3zyKj4+l7HoOcergXg5
S/LP6uMDXzKa+9uu+B+60+ewJz4M9rBQD4iRjg15rCcbt8GXYMYylYfFOmVfoFTms7XOZxAkaQb8
BdjE7PvWOOZogM+fo5XWo5rzAPXJ4jC/dP1wqe6EmHg6S1IzOGLUmcg8Uzi83K3xIdACUF1A9gZg
GXofZaqs9QUanUfMUQO4PcrqIwirIMIoyIsgEBHuBpWQKFCi1BTAgoFsIYJA/P0HPURRFcwLkRRF
cwMMFVaWqqrbV7H9T8vz+74X5fj9PfwOTvHx8p+TSMTpAJN7nMDcUpSC4Z61k6LzpRai6zN2e1hf
qPP9O9qBnxwYzpd61y2yfa6bZx0cy+25Pm0xfiINzRwe+dgTviWJ8MpEXIPuMw/+fACL+20tpIW0
C2y2ktpbS2ltLaUtLaS2gNGhBLGltltLaQEsaS2ltLbLaS2y2ltltLbJEoNkC2khbZEsaW0LaW0t
pbS2yWWjWwBhYNGjQtstsjRsa2RLFAAaGhJiLtO2o2sHDC6BniLs4aXYgzDkEOkPwBKDMyIyBKZf
kf9CKoIn3HTObU7b7wevMOJunzzDd9a6GZW7HHrNocePf4sUgRQSJFD2hzXpEOeKSSQopOk9RQGS
rEXrZlBoc2lqQQiRJJN641oEcjf2fwcWrZoJUhcYRGAKuPboNzUj3hTp8YSBIwkiEhY1SgC9kisI
biDrAniRKJD2ojwzz4FiWT+Zexe0dwPLqaJBKAjBGRGRCh1RYEOXpHp7e3FhDq8MuzTLTt0x4/DI
rMgF9fdIG+SylMe3wsCatI0F6SnEh+kihiWMLmIs18P/w5FGoUdjOHw8WecKgnipNDPm8Nt8DOcy
NmeM4zV+72tQNf2PfcCvHHcWKXwCBxNjy60EfuwuHy+7HO9r2vSWX2Dt+w7+6k8TGKs208iicdOB
scRzCFCrvv9ARXAIg2I4f+mb2uvP7BiTz1hevaVjrvWaNy8z5D5vnQB22ZCE6YEklzyb1strob64
Zc2jWYs8XVnQb6ziejZ53k9heM9HrmZbYV7xmB3C4Pu0U7jgD+YSyYfauL7bV2lGOthKulrqMdmh
IW2vfIlJYtbYGsBe4Eti/qzhuBKbNCwkbf8YiBkX/aMIQMVBKlQClrPPXxDjyWNhy8cs7uDd5wTY
HgH6GAPma1kfLE/niDdyrz0wcYvP0KPcXh09qFVjhTzutbkYnPM/j5Eh8/rZ4Hk8CJ4drtUxjPGu
g5cGVyojWB3wDORbpP74NB2QxnKtYplEcl+ZF8qcY80664eKmI8eJ8rgKFVlhDt/PdRzHZ8bwNw9
tDccuVbttei2ON8XQ034D3nqHsHqSCe6EIFEZCsQSJRKIWyliFjLaPs8vK+Xw+bk5WB1UtFSsigI
ykBRqMQREqFIlKBFGICW1lFQUoRhCMggIAyO2t7r01sY3c+8VdwHnrkQdFmkj8iwGkcezhKLqnRp
1tIagFqlaPZZxnz5I78QNV+6yCN/NCWbhZFiVD0/HG/IbawEnQMG5qpuK2eGnenF2aFoRgD0NPO8
Ejvk2sVtf2QCfskIEZERkhAwZAGADIyMgQrbiseWB3nYZKn1p+TZ3GHwMj5SbRtMyGMIGNSrtQGi
lidAk/IiImweZ1N7qxk/e5uxNeZjw5VkdByB6+n7D33A67IHkntC4pd9R76I2WRhCb1zIInjgKYg
SRQhHhTrICQmwqlMilpL9oX38OOXNy5dHSdR2njtvlEPMKO8ut0efiH2gwfZvCE4Jk62m9KCoIlr
Vgqf1EIzti4jVkDfNjMnr2k9ruJwlanm559IEK2qallZOBguLRlHO8Qf1j4+K9savKWNevWHXaNs
iALy130JuVF8hRv2oUdyg5sHvOpE6O4NmOkWqwKbNCdhJTbJtKjGI1vvq2g84aFmd+3uPuYBfUvo
g+Ie9X4B50+gOsXoUoLoHDJHtDygpzGFo1ssFSES2oyURtpRgorAWJFE5dgvq3eLfcHkYh/cVSv0
k/bMEI/P3tkCxKI7NqoUXPhQNQ6iUE+MDfLwTI9shGRkVJECUZBED93oJFIEIhEFESRkGDGAhEYC
HcODilGAH9Ix0ghpD75UZAOfIzh7esTpOsOVF+9T0eZfcd6jmQRjEeY0U+X8SSSSyej8Ieo7dBRE
6S21YzLKjDCMohcyW4AsK1gKYM/YBPvgeIcAGicCwYUtGCdoIcwBGMDA+ZgsmAZBkEMIHvCgollL
0hPmB1ABxcJ2nWQQy5w9sdfmT53MMzzUn22J62mEBs00NB8dPYWCgBj1qO5LJJGWEbYxjINDIbdG
Epyk0DGDDILBQH+KzWEXSRW/oCB5iiixciJlVVKTvDT331kXL2Vn9OJCc3yCfLfiP3j8x1D949+w
+8MJncPsWwf8F4SQgKoSMSMUQkUFBGQJ9UPz2NiggIeAP7Qe76LgvNkdB8gU/OTb0HrJ/4TPiHiC
ZL7hIwISJtEWRBpEgIMAb+t+oLgBLGARiSE0gDmGYg4jYxU4cN+WE1LmIgCFI2APECUJjIaOwGwy
d3uLBnsZOWYySghvnDOA70jYUbrdCMSicJXqsnRtge6+rYyQQUPBS/7f7Ovk+9Vde8f9/PBueTmd
dU2z5ShbQVWA4T2b/X7kuLwinAaPD+ORlrlc1KbMil+2qN8NxiWPY9ByfwnJlo84bBGjuneRA/9i
BcXhR0MBH6PukklIQg3kUfTTQx6kyQFHJ+5e4DB3z+EDND6hQekIL6XXat/QnvsZGUN46g/OgvtK
zT8/0joocQ+z1ewdw7w6Qo3rzBGQgRniry2aH2lv12bpEQ0e4IIQIgCRBgAhCCEYLAYRCI6c9AB1
fnKucA16EecDNdEPw4uUAPvA94+u5zHDxycB8gD1vGAnGKtRpkIqL8/20u6AC3yGhKGJIQBjCAgx
ii7IoXLAhGoQazQ/WWaFZBYEJFCBg22FQEZAZFKkxiUlgjBNBYViMIaBSwmlGSLEVIyIqkYhMZYN
Q/wwteGSowEUCggHCGSTYwBHRjAp8POSCz9IsJ72B8j7rWvUqjN7A0Hb+Az94eQ4gaBZ7VA6DZ4S
0CMkWItwxRoTIVIFxkkZGQsIIfsD8AHEPMU9Wh/qB6OALsXIgHzV4AHY/rcaars+EkK9EldRJVOK
44H4xAGAgowBn2MmRIasu4PDa8kJVBjA4qgaUMwIJLNmMYiR8E3B2lJxT/IKSl9wcgeRowIDAiGm
ylS3y9a309VdYlthwGoB7EgWITlkGIFsugd8VuFtJvZNyQYkQrChLKwhJBYQJHqDpAaVULsPmTzP
qcAgP8/5rQnPz9XTC0az4ZdX8bnwLejPae0hsEsQNoSfO+tuuN6BRy0Ryw4BBdRiaChpHapLuaLN
sqZr+ah/dpnvNHz8mzM4YZqZNGuGgmZc7q7v4XN+XVaoE1u2seDuqy8DG0lVmDZqJHC6AEsYL+Zh
qoWQYQRkAKF2wMKXTNhOGKiIirFVERiMgxPkQqieSWPM5lHOMMImnchrMlSiS7SwR2MMR1rIYzQI
yAmnGQ26wIb991GOGt6NThNjMLzuGzJLqGE3FqC8UocG+MZbE4pibGCaz2aDerKmzdNOc286yY8J
KwM2TDAXQNSSpWQLSWJMOMht3RTUpUUxlkE54k53yZQRku+dYQ1OSlN6MyLKxm9oGjM44m3CcQMA
Q5wmqYcw5zgU0TEFIcMOIVhwaNyNmS7FRxjbZYmZjDFSUKWSjllGG4NmyI8UnABl4ITcsEZSMEFg
Wac3ZRNoPLkzLVdULN2FAOGCgRYRGcOEXQYZLFBqOtDMkOdYOtAsPNDW6USGoLDg4+zXXv8KfGqf
GY5VyVVZ6tFX5flzX1fcFVPrGny4rERgkqxf6qd3fM6v/NnOnd9R/dBcB0hZcQWdSbEJE8zIxwB2
HRlMmAQIF6DtF/FNG3To9qSIus2FbEVbm0KHeUYbyLKKCghkSxaqQRMC0WEtEgM4xYYaGao2a9OQ
qB97JoOJqGQxIzmiJo1KJKNkMGTFwp1yUxiPybwmGiHNDCTkMtrhYUsMBqCO2c4N0w2cUOEQZN2y
bQ4uBDHjCxdXM4lA0wM1ixLsHInqQ/CFGGdbYUWBgci1/ECghoJjDFjFKYFUCmWa1kmGEswwM5NG
9R1hDZdRU7ZnCbZwOcbzX2fuIE/P5woHYDtkDnu1J3QXuyacOCiDcLC5GwNJvA4zhCYysnCAYKs3
xhkG8JkIbEp3PsC6muvPA4212HYYTXFJcMyE7QNbeAwVkUGG55zUzDEiQduhM04KugNAheW5z8PL
w28I+BwQZ8om+cY0o04uLyFRTVmksx5zeIBvT+7Nq3C8a4PSaWduiIG4a9+D3zPvusbGdex50YtI
1nza2uqxsMeMr4r6GUnzxFob3lTe4nvXdvBnqHHB3ojxJ03j1frP6U+joUxzXtB0G9bHuhUnjOs+
+HGfeYcLJKJtSkc3u46OVY5srjr6gDoQ4AHIMbRP5KMxZx01t+Wb46rCgkFmDFJ0XaTM0Zm1BsOr
6W6vRFftp/WeNusJDmKXOcTzHeLzjL2FjRKf/bIZ1rgqfAAXXQaTm0ww4Oc69bgHc8iaxkHe50JG
RrA5gvIZI5br0shpfmj/lW/Aj8xfb74p4ydSKuGnuEjXH80uIzmuv2xqNNDg6in1ab0K5muq1tFD
y8LKMkDGsgHNgGFQMv2IdiLkDqDFQiQnh1cCb6DptwGy4b3vR/Jy3EE4tawvOL86HPeB1fQR0dqL
0UsjX0/wOxZWCaGaHk2Rm3y/jy3POiuA8H80INRfg8oVrpwyAacG2mjfSyMZbXiUPoetpt47leUl
MIjgff+oheNjlWE7T2WdadQ7D5mpw+GXMa+Ykca4aR+gEoAbAn7ZvKYVMVgzgPuChS+0YtrVdnxF
7e+DOWB4fi0/56DC1X3kZe+3bZX3pwibgTfpBdVGXRFHSlTn0IFHffcUDQk8awMYwCpsz8pkI2Q+
/iv2Bgc5958ie7keO6yFNmTptvwWFWOiuDPsHHdOIjuRnGxabaIVO9wD9574DyMSFJOUZ/1Avf7x
Iau9jFxMbOjj0/o+U8Gau0dR4Gaf4Y+83POJtMDj/M5cJnSSNnVqLPVphtUvI2JCSUMnO3SBTSgW
sYnAk+2Fdxh8sfTG42wPffrYxP0Jo+xp6yHy2wCKT9PgyN0NjvV8yPBz2HyujMVyi0s1sAyVZQbV
3WW+f2AgDIfED38QDGjr+YJNtuRne679yvH+/rQjMAjC6RtaPH5vUD9WLcLJaYataByblxOoLupy
qRiEyFc0P8IQiyCtlug1kHl9lrHGYGDDlJ0M5wc1ZWcX7JMKVhWzpHiamMWkdoAXTkE7BfIb0Nvz
zbVAUXmB9TY0mL6jnULtD2j6ZNOHHnox+DqPlFplDKuiHwdHoeK7JF2aIsDXB00x6/le9nTb02A+
Tx4kbecSzDbKOq0isy/8q8GCeM6sT4G69y/asY3N4TVxwB4isYbXowiiEDM48MXzWujPKF1o6jyf
OjG70Ojve2vvu7eXz/rBAAEAyVk1Hz1H5bJ3ctAa7qMnjGzc4x7ErFWhMAxxOvjaaV6vzqK9fD3O
8fMaNJzZxsB9/4wAT74Jy3dhFED2a5Hzx2ymem612LyIWRCH88HBn3GZjw43AjFIfHtwR4MToTwX
5K3fwbkc5ATWI2nqAV7A42OlZ1xEzvNpJi4v/iCAAIDNLzsKJa31vN4WZwpQNrHHD6xA9Opyg0uC
lCDZNXULIgWJFBx6nq6l0+VQj9gOCF2cRbvpN9IIO+6fTFLlJs1mkmnpVvCH3A4ScQ7U6DVLmMyi
x2dCiOQHh42t+eVjeZxznA959jozQ6DG0nfl8GsIFFyqm6CzCwidPndWLtwb95nl4PqGPusA7rGq
vBseh7I7fvsaS/a17ppEOe9cScxJ59yv/YAvTTzaryzwK87fvHU+Yn4GnhH5ldDViefGF62YgWz1
gOfha7a5YdUc+WDFD1UwzL0b/BqmrF2hi/aa9ttfrBSrm+76vDOTdEtsozA8IC3GoPsyydtCD9ju
HCvg6SjeBOxV9vWmnntI9eePWBzzfTmmGDMYvbAZ8A6dhl2zUEktWC4F4C45IYHt3BESGaEB9YQp
9GfdMz7vX+bN3cw4WyuUXWiAAAUKa6cHEoovBLtOFGY1hTYJEIRaW0m9aQUkRpqFoUTiUlgGpLBB
r12TAy1nNs4QutBGJncKLMBybgUJ7LNN4RjemZaQLihdSQsN0Roq0WNxLKTZ+77vf+Ze0k0yNEzU
0Sw79kaTFikvmUGYLEzIbVKaQc5kGkEKFlyEI0rgkMjr5unlPTyeHya/HuNXfKrxd/fiHhu8me2E
nEDuFuqYW5pm2M9eOzpbHvPcMZiLu8BYgXlc6MLMV9If3YHcAYscwvOJqB1RgPAg+kl+a64N7Udq
J4pHNkosBZFZqSd7Wipwk9KXAnoZs+k6C+XWVHaarEoY3vaMa6fekDnCvqDBfmB+0DIHgCH7fpkp
Pq+sy/+dP1w/mlJywKqIiJRmVjTYh+y6zQy1jQwYcJxEgMRREDlFLxQNYpiQhJIxBqLnD+qcRTAz
Yd4GZC9iYIrBJjP49fxf9E3wxn2m7hhvvkS8olbY1YlCmXybp7ujcb8GDMAKBpo6Zkyew51mX75+
QRVhLZCpE5ZCwREZGIwEGLBEDC1IT4Gez9hJ832aaSQkJ5VXq9Z7jyrph7DIM5jlllLZ+eePtnvM
D37TXzoVAucMKOwx4wBaTSuGTFRH8c/Y1pl0fRaVsJiOyr73l0zzPYn+FvXl65/qWLrzHetpxsdx
s2yod7HFJ0tL+VHmJvocq1w+Oqzw7YbP0ublX7KkbzyuQchlLlCBmHZZRObkGFZ8DGZYtWIL94H4
ECLjE81Hi9Nd+J84ncS/32IQ58f583265gwNd4y9PyFwGqe68C7q48wH/Vh+09sor3IqDGuJ7xs5
I/Z5TjcUhS4cFk7TVUXfquaYdV7qKFON2rrvQfntUOi6Sa0zeT0f7zZX94nrJXg3SfLVhxFD3mQ9
tZxeE2GyNq6Ih/ECA/dn8XkYMCeUIv3kKoKSxiZP5hjdqxUINfx93plEHuq0s5ms1WFqT+rIsb/B
FJ3PVPWRNYG9Pv+VlnJJmXqhQfyZOYp89sZUZntYhbPgvuAQBa51Ndg7vkKCUd2waz53+O+VjS57
0bgYy3YsZRH4NYDzmfhDYfp789kfUMAjBAwQMF0yXb2CHDYwOZRhtnzxLShI/Yfz9+x59gcewPgY
EGMhICERgjBRNICpRIRUO+KVFZLEAaSKkiQIqMjv6sue6oYiMUIyMZAioIIbsTh1mdbDXz8x0HUE
gEsOoOJY6PSx91l2CznVfBBTAhFbVwuI3qGi6hx1ilVno61hDN8OkNelxlDYwjftSsEecFRU8lSM
UPIPwMJIueoMZ+0wsfHwWZ75W6EwlD5lH+/WHh5bctzurdyOseyKJAiIQIIEgHLnx14N89Eph1oh
l2GX/mq8biunT3y/EVv8yH7DAH6CABgfxPxnxp4aGhqrp3dODs3c2sd22USB5fz77l1O1nh49ipu
8K4Wpo9EpbOVDLVQyzWBsc9+rsv2PL4tp4Z9Pbj6tvRO7fORp1J1lcNuk490JIRAPTGjIqDDfDp4
56eGHuIvA/9xSntt9ifULgfVftT2dYl+iMinOK0xJIQkif99KWN1BksSxwA5/UGIEVBBC59X0UeX
iJ6qgRj+IbwTAf43t9MU6/GC5YcUyGKSwjCwqwMTUBkcpYUYUgkQnaMoLGKwl2SVfccppAyFBE0D
Ol0DRC1XKIEYrhidIQAhP7/5hyLK98DYFUzff5+Yiv3caPo3qft3h7fT7I+MTe0xQx9pMrOV4b6u
rZ7niLU+33aFvtsWMf/eWNR0YaK5xur2ILngT2l6zivef95iu7fG7JPPg5K1rXcN7OznWTb/KqzY
SsaeIYecf6BFj5d/fvJDUfQCg1Fx8Yq0dxy/mWQM4nlUdY4R3vUJa9LPvXcOo2XcOgpKytSrSmc1
vlH3u+pCpD+cCvH8APuCBxTpT5BQF1hTktetXlEy4JxHWJ3vmTqlQ6H0vnL9h3iG8SjUIAhgxGAe
NA1FGoECdYFixCDzPNFdA/HnpuqCXkYJhIFRUyLDYX5dWrZuIlL5ixW720YCZ+/7/9xcxmUfssGC
JZ9hVA1VQgn/E5HiAcsSiwMQOCPC/OlhJ4+J5wv9sQ9QeI60R8iej0h4L+oIKbvvDmP1ocAKLim0
lEBSiIp66rO9LsF/7uvzVesRhyNfod3ojGQkkkVRYs+gafQSiQrX+RLEjj/JqzEP2ElUHkeYRiMR
5vI+HsT+I2Q9Q+CPZ0pnsEY+79ITPu902iKkFgjmIcmpRkPym8DhcXlqqmEGdwdQUBY5xidy2VCj
YHzmt0HcHEp/gHgvrBj7HYTDduKBiOcDYV2ioU8aRUqpKEqCQhGCEQL4HUL/gHeZr2HvMwtpPbv9
odOxvDimgUWhwMnkkvZmg4mjAPj9RvomkzMVwS9zDWYmqGlovfU2XRmqCiXu5HKMEBGIhtnBZb2/
R3P7U5OAPJO66DsfceYUnMNkDNMvRhLlvuhgDIkFwpv8o0HDfn1E4n/c++ii1BPgQD/+7FB8oXli
Ex97nhged9vT2dQE7VFU/Tc+w7w+0OkdQGcsbB8dlWh8oQOKCb5JJJJIjGMSMSMSMOtPF+OtH7NS
GPFchE+DrBuNrxjHmDDwDCePijHxageYf4ALJeXD2xfis8IQ8VI+j0e0ewdQcQ9okDI3LhHgnM9B
7/Ucp+rpfL3YLHfXJmbcae3+Df5cpgVSHegFIa/Eo/kJRCxyMIVNTkYBu4QyrCn4XtljYOOWuPLA
2hgamgFRDHfqA6w3u0CnSNjLPa4p77YlyYjiXMVDYlsLmOOCJvvKgTflQDOKc4YZp4IA840J+g5O
DtoMj2jl786cLH3E9YZyxPF4zrRnmeSs9bDW5xG1GXQQCMKMhhLCxhjYMJyMsMmSmchCDGDEtobU
DYcBHemjjMCmRyTGrkLbDfEHd5QGyDP5kgD8A4BRasiIoN0yAtjSDx5XwcajihiBFIITUxTMx5Y7
x3BbHkXKDHXC+OdSKkxoESloxZirGJKiRhNc0LYADYEKRgT6LF/e4ziIJBCvzd/FCNYqIg55gMKA
DEovGKOeZuyyWaJngOy1C9pvgVwM9xuMQyMQ14lg5U52ys6WKcopgWNIiFojHgoVgIbS29zCwY4l
kPSydMgYCqaQooNtTrqGSQZgUkbVFWl1qiCGOnDiSBvMTNCHKIVtvCzab4Owus7IGNqQVQii0Mjn
/ji5ADuB6YSrSmDUZGcjG2sq7NOTMTjIZgdeSBX/wjVy0mHCIF7N26YX5vgcjwQ4iDIzkkBkDMga
4lsnY8KPAXodLcKBMtHTUuUhLkbYkKFkCuVrF47gNjIKZIZbzwXhyJjHw4BliPjfHADmBjSqQlbC
+d28iHHt32dSTffMWcUsDR0ehge2cFTbKM83IteEbBAzguBxSBiq3kV2xoxSpsihfKtCEJvOSk1Q
uxxrxtw63LBCwHGcusfWw4Q80NZR7kvRqhw9GQAlLQwyoJKRL0PGDmUUlkRAYcZpqjQImAUKShTC
AuXtQ7ZA6G0TxpghKYxgpBhMAgTgLrpc1hb0dEFomBjFPZvyxIJiwEBDcRQOiXgaRzIZXHlLcr1Y
o5KDoZw4S1pxJ4tC047jrz9DQI9zENczt36RuhZd4gxcDHDAHvL22NigG1C0hopmByABGs1zDKQY
jDAlMEZFzyXMLaeOD1eBQUAQYKLFmEE0w3u+nfjM4hfN0nFwyOgoYlScDTc89eDc5pfHO+KG/B5h
kleTshxkCwcuSdBIQ1Mt0BE0375Y1jRrA4ZgmGW1eiX0NJ2Qvozv16rm07ib7XQVNjOe2F1Sd8KH
IkvYznNFGE8ZKA4UtKyceU8vMf12AJwTwWfmuM4EAwkUZjQ2HM5MBgYIu5QofBmilzOLlwQyTID4
YQgNGBkWmXBkiugIfIBjAa8opKSM69rxuLQ/J6YkxAFkntQm3jx3cIKBhw4Z602ntOJ0Z5jhxZ48
7CzXcShmdInSO8tZAkxgaWybHQLE0eGWu0EPoFGKI5AKEC4oZA1DwmZzL64jAQKYurHGEU0ymd4J
GBjlZMsr4787Y8narxe1mkcbAqSTvwWd7RvryTheDnxwmesKUV7hZxcNXRnrJHJry8tT05DfrTv1
wJtOiJHMhhiKoRgYJB2WkjfujSadVdEAMcIXkN4O+RkANgIkwCl7zPNyoBWyAzBmCoDBMZFR0hmo
mCUzWw8m6aw3lwx2vuwBv0VeTwgjtlj47UyEHnh4ncdc8EpfI8Pn5b9E7iLnZyZDADjinkWAOmXp
gOY4E4C2S2gYU+DvrA2zMQcad5AhMom6KtHEpaHUKRADkDCFFRO9Lm8BwESGueR0/IH+vfhXf0/s
4RET97TdCK/dIrDotFe6Bwisp1/daVTPXiOpd+OvJEjMEIGQYh0JXEngi0x14bgSKBkSgxJAV6Kp
2CI5fQKAQMER96xwPxiDpB+F6RnvdQqMr+ITqcGobFdZnAFMBkeXgxhCTBLHW5B0hCKQSQiDaG93
o2yXuczUyw1KapoYYZzkOYmfPdJNsU48a0ivWzlGJxE6S5rert/JgITcLVAhFjaHtDoQAxJMWYYz
5UzHaaMYoqrxDONMbuH5ugT0WC7s+eki7ofKBNGt+XsVX3PQEDWxPljHP6AzmQNWKb/otUZ2CPOq
c2cat7c1JiMK7igMgGH1o0AwFkx3G/DLUd+igcxhAGBvYQIQbpobamA7BKyNiHJQ4AoZZTEmeWgV
BxShJwSDYMNNYG3QVRA5kgKV1GXyWQ16tMmCAhlEmQMBhnRkMEAumoidYM8Oo0ZZgQYVIBvskAzu
UamqaQNs3bLEyDOA4pWBdAvNEUzc9f9T6SJA5GIEUfoJ/fX94j73xnKB5wpSPNCC1tSVMyFuKHIc
xqHEGMg3Y0a8mA5SEJyI4hiBBkdZj7zYsYsHESQpj4Q/EQUhaHKIwrk47d7waOJ0N5O+THKjpwFb
lnSafuaqHNm4riqnDKqsVWKmd5kx6SiurV4cMlamdXRESRfDJrIEqqKkW+LgiIrPS0VeE3zrISHH
PlvUdhVZxcncdeWswpEEYLq1TMhAhkAEpFKmmo52TtOoPCso/Q+lzP0O4fX2+vE15Mz6ZE00yiSg
Z8PXtLgkbUMDJYIja+ZmsXMA/mtgMMEZI47IHoMcQ3t56vFPXE7Cc9qeDgRTGSwVRYiABDhgng4+
VCIIJN3g9UQGPfMvPuRGZHibewnggZRel2zDi6mpd52IFDJk0DHdcwrUQ4GeXDXXWUbq374FbjXW
0kkSBJ3NUTcIVprsG7hEp4cD1KfMk2kMzMzXQ4jtT1YS9DIPJ5jWwCmCiVFDiuEaSmkEQ1KkFVyp
c6WSSDIuvtn4vHCI5xTCAsiiFjMGhIbAXOpJAwioAswBPeNZQLYDNWPASr6hYHEeIFlcNNrRQX3D
4OTyWDeYHwj1wZa7afdSdrTmZG/I3jcqk6hpCggYMoODayUmVR2RDPaF7AKZGMRLmQiAIYOQQAyJ
PM5gHWGjiyUno2InO5k+KTYsDImmgLI/jIQza5BwRJmB4oBAAszP64FMGC7KlfQ1t5e2wOZDg7hm
J5sTXdN/IzhYKbYcSVcqhVRKUpYKuPinBl7awnEk1EnEuG6cObJtpQjDAOs8TEvlLcxeNgbAYOuJ
pIkgNkOCFPHO7pE/Kl0tTWYWaLbR1iW1UNYpigG5loGJeiRpOFUW9VIkg74gukC8EAPDp8ZEIuBE
QBmQsFL4EPX8Jeq+bfoX3Tj3+EYww+32/qZnQtXP8nYa+V426nPfFDjOU2M7HghXqtWd3sGqnU7P
ecf62XvM9tsPuMTfQ9A5Eidhc9Px6zi9DXB7TenUllhpzzmu+GaehPWcL30Go3HMS9j4SZ97ctWy
qJvq/N5zlR8Muu+nyR1KPZ7CutzztdR3KLHOJnaLpPybtvbOnLzWQnqU0bQM17kKZyP9oBFIHwhA
WHCXkOS7kCKknB1+JYi8U4iOmXFERhIiHR9g6bx8C+GHyJB6k2NGo9Ra1C6wO5WNP+BMYGxWF5Fa
ZAdcpcaGU/1jvd1+huwy07I+VSOhuaUGyq4PheIZXTPOQw8wNCqimYWNc+wFQVrlHM0WEpMeJ7ew
t7RUZWzF5z+iy4uvnXyfg1mFY7SAkhK0g5V4e2HDArmiy4BW93j4a+OLbTDMrjNiHPDOeDIh7gpk
NgXoB8gPuOM7rkYse6B43xlvmQ4os5863bmdLrOXNDQUCyrIxCmj71eHtbXpBpUEROx3rzWsD4c0
w3HQGr1JOb5nflSG4rdML30zHAQV8X0tC8kFMYvSczaIu5b1MexDuAYAcKNWtHC8kBvgpvmDzWCD
XtiE9piREZXTipv6bxmcYWaivRnh2ICUH5b1BewuOSBewEiIvrXZa0astnLxHnHaMqPm/YhXacD+
MXtB9tPyhx9v+koJQY+1q9DTTOD/qXFAxzygzHl7g3y6oN80K9mJjsct8ejWUmu+VYg+xnZ4mhuu
ctgw5E70bzuUC7Lo8fSZ/vBVFiebYO/qRdmgmVQMfydY1s+QD8dDoIlb3h9rnnjaYw3eP0PmQIBL
+gDWeLWPEo+ebe7/wALcQC4/u7xlY5OvAnNhcy/c+xc7ELmAty+B3GPq/iRcJXlElPvEsM0NeeJ5
l5jznN8b2RWdCX7u+i+rM62gMVN0qhnpJ9g0bigakq3OH3/hx549cI1PbvSvhn1vTt26z15fP08f
kJ9ZQ8O2OK9kO/OzQi/Pqu/vPbv6en5zj335ndfKN/nSDTnd27c+eT8N6vpRe6v8/pz5fDFazw5e
K9esadJd5ebeHh9OlZ9dRzm+PX4V7dLeB+Nvf226vXv7qPb6Qx6z849z4d7/H1pr06eXXTstHzx4
2Tfv6p548+T8B4+fvvF3xsnnK4Tu55w78dLeUPeq7R5o63v8fHqfMHmfb389uYH4eHeeect8fH0h
69679YyXruvTpHn28/P0q66BHp177dZe3X0+CSrHle/qp9E8OucL0bWrVz1rHG/fHtXvrXl0358E
9Oir8dtVTy2dn0yvxj0u6Xn0RaLde/evhz1a7q/HHr5YXpmvksO2bdoTbbmfd0Phzv5X8/ii2nPw
8LO+Hh28uPB/HG2O/hPw8Mdse2mt8Hd67X6Szbaq+Ph3lH28N9uzfHHbrfqh+/f1vHnlwfj1ynx6
7+PwXafwfd2029MebdffW/wn0lmq7Xz6r13nI9vj4Ovankuvb1h7ZTVvC/NZ9O29vf4c+on37+UO
zq+/m0/CHl052v17w3UUHPlwcJtjyt79m0ocEkbRsJuEXQiZ4Qo/tHe5m4SesDvWexvIfSi4yoRI
C6aWIv4BCyBJkdmXrY2v+v/X2cmY9kYTtbZXQeVWyZEew+/Eb5QYdPl7Lyg4QN8G8nrIxcbCqN96
Rjj6bZ+rxr9XnRzONj0j4JRvG908tnCYipGFT1fWclDPWB55Zrrc6SQN588EzjApJEHqQG5Ornun
ZxhUm7AvUF8AV3AF3IvmAr/O3GkHcBORU+kRJbrbC878XWA4ZYSmjRHIC0fR6mC/x1N5wnjK4p0Q
82jPMlnH6B+c+Yxv+HGRYDut6+fWGG35xPUuZqEk5Xw6JVz8P4Hk9K8thvNmNK+Oj3NL0C9dXO91
WhaK43xRp75pefObgR5nzS+15zyqzVjIUe8yPcV4TNR75oLN9TNjTcYZPDB4VYXD9DezG7wOOY1K
8ZxiNPgSp+2y7x3fQdgFFMFzu9ZOejyehvJVcihpd3QcZuthha+jlxuKPIaEtj88zC+as5GfId92
9Hc7U0EluvKs/T82NHtMIG2PdsqYdt+WhxyKSoMJyBqVLkBN9J7NRl2Gs4cFqU5NJrSrGOggzYXt
9AX1ARW1WVRYLagVjDR0JywF1HhttUxPfzznaFRM6EsPKxOugZ0gvjANzwVZ5RK0N78rqo+cDNYz
VTvnOvjne35+epuhzWMX6eveht8761h+2/j8GhxzEIHDYGBvGn6NofcHPOpY7rzo7sHlkTJ5oJ61
hhUJNtYEpN6EVgRKQA3BA8kCgQAgEHvhueQ07rwfOuY+9UH5Itfphu0DuoeHcRnuDfQbIyuM1mnv
p9TRhuru4gfLEnzU0JnwNPiIWMbxCQIf6FMpHds2eMW9iiXQfu7wL/vIiwPPMLxcV8QYRj5mJ9Dt
WHFxeDtks4VQwxthiGH3pB5xSuyCT5UQo3sIR0jqnM9hyCiC+JD6kPQg9eD7I+XcZPjqfFvcxKyg
Y+ZJplbLDG2NZfG1yXNNiZzrM0NtUNZrets3qblyHSG0RIIby/Y59G8O/tvHlTrzpzrVxHGxirEG
DPJqCPkbfx60+jKSK8muPQetw48AenMIKjFEFNiAIkIhskpKQB1gOVglCyHhDEyacOmYYJmqwXRp
CKYLlgo2zXNUQeoQBDAUOA2hvuDwAsmGAG0FqCQwR2MA4Bs48QcinMNLJhDQGtu6yaCagTMsaG+i
waje0JhxdSNiBL2I7K7kINBBuYAYJiTW65JkBddEjhGxtQsugUTWmNHA3jrSjRGxqUU5ETgVwsOz
4scaIbF9tggbDNqTYspVw3Bql04GqW48BcEg2R2b6LHIqyb4GQkIzN2kRiaCWNit8xshwTDevVQM
IS7KRh2gHjNsLzYGOxUhrVK3yszFebTIcMihiZVsxm0CpTLXtKskMXY1Whgl1bxCxtuyN4XTCyYm
obs0xcbERKd8bJGbBiBcuxBTgga0ebmhSII9E6EjkOGHeHU5mbB1bhvRSCGrpiGMyMETgFkLRlap
mSE8AkGAgTUDkQHueNbtu5nbsHVxE9oqqKqoxioiPaHMkPHmdg7QzDdkajkWoMSyS9nTNHJuU8Eo
Q4oY6CIcKKqJOXUh5nlARDyD1eSd5ywjYMQDgF1xw1rdLtxRUdhAENyFFgo9pkZaQyLx6eXbbf1g
fPn6QU1iO8UZ7QZlR8jjEeXnlsJvGl3/ZUzPKs2eR/d/c3GfMYykN/d3AOXrHgtH2Oj10Y2PghNc
9feK836xOFMd15Z3gX7hPJdxpUcX0KNePkcNdH7RJeaULfa6OnQyk7zscv/MEA7OeJJrpCj/TwDi
ceO/Q5tNSJy8uCGfJgYQ/4VqpDxI2MgXbNqjci7n16BN+UPYdBz2pGLxyOYk4HzbNJjTk2bPIcoc
5ER8QEXfET/IYBcUc4gNmqVLZUSCpRFYQh5AgKO5/yuNub/cgQ568+jj6u68789a56ugDLFAb1nb
kYac7XpS161/qTYWprgTTOboD0XPO0o7QGYko8RsWLWOs/857J3zdFruAorvrIoYI2EzsNOhse6h
++T2D4hhm6N82JlpFX57c9qsEP+JAAD6QMEXg385tftaRW3+DXzB+ZlpVR83Gn1gR5lYHhAYoaHw
zD3AxNRCoSi53oVbHChTsHREHhp4pStagiBEXuAPQLn0oXA9nUqH/QYFwPWcfIfTR19tXUbhAwC6
to+etHbO69Ir0StohuxcfIAAF3uLd4KuA6eKMbOSrQF7XWtiABePkroPpakw54zsH422zEbOkJhc
zsQ0hJbeso+rr5hNtrEg+a5oJ3IOuvkxyjZfTNfjJ8D4QgsWSLEREUhBBgiLAkAgQD3oZmnLWmvl
vbMN4+WSBRz58xWv5X3Pn41cakiefGrg/Kpvx85MrjoxOjndcTL5RfB+Q9Neq9d/Q7+jwfu+U+W0
tstpbS2ltC2y2ESU1jn562a+6wedUgHgBBOKPkUTxgQGwnnH2rmY0JPNv67BGEVIBBjJIoQIMQkS
MixVCEgpFSRYggoEixAJEdvcJ+eS/pdF2ZRiowyFkmHjWfUhjjmJzN60yUJtkFgpCcGZ84moLJhY
oamIjBHAk4QmiYFcZSMwIShiBgwwBDTDMkxAiIgsBCKLJKTjQm2UGFBlHJHQkMhltANc+AM4DrCi
YBJgWx9zgQwC2g1Sudg0s4n9mN3MT3CCGIH+sxjiPICf4Dn/Cojj1NhZkT2Mfc5WqJBRwZKEB8YJ
Gf4l3rff4a/1PZnwCfcPqibNieCDEiLsxOF88NPETzm/hZYW3xQvq/JDMxSnsB7/RA6E00YZ7C6J
etGfAEZZ7K4wVgDOqCcRQPYLshTtk5hgf3YaYCtAe3Fb0MocHBa2Y675UnCDzjxxDwQzMgSP3YXv
13mIO/Sj4Jj4IhBvmEk2yEICxGBh5bibAlBkDEtWcGJjq8SUDWcOqdT3CQZhw5HUaHJDgDAMsCUD
CW0Alh9uGChdoX5h5HmRFGDwoneIB8+22zDimCaJTZHdx0bzqt4BSKDEPHJOfgQgPBvSgGZ6GBnH
YGSoquPCr292y9ENKmLAwqwMlM2cYDLMJZQqAIPfkoAYocCfXzhxibP8TLq2CSTgN66ycGCY4FNA
YMh/pYrGeGTHwnEuV/dVw3DLxBYqBh8zhsayowogFDD4V6FIx6Eh8uCb5vReEAYUuh+fr9vh9ewT
sPZXfN30C/YHGjqnFyzE5PU3QD/T6UmBaXoN+zwHPIU3HG3gxkQ+zat86M6V5/3YdzlZq+Wbyjm8
kDquaFcHd5h/l5l28PToGU/Dx7J4jxHiRKHmdOxfYWz6dQ7HNu2KSlMDA0UsZJMWj1UBS9EIODiA
JGmKAlIMQLgT8enKenfwHXfnt4QvkZ8h5OxYVo7Hps0XRUOEZdx9XCXpwib3yG4GBSMayKi3Pub7
9aHHHkEVq1+hrPbjGfDHaj2NjzB7n+T7/OGaPfqDUbkJf6wK5VXwHN8udh9JklJRSAh66992Lfk+
nTy9Q43JFgi58p0r4urHKUiK0f5D7gGCD2li8X1+5EXYZ098AmTdiYhAPD1+Le79KFOinGXjPWWc
3G3FHvnExl+mxN2+13xpZaVtNIhK3Dp0lKQXuQAN4tmaWyorKY095Z6AgRVgoYwHRKTxGFVjnFNq
MLx+oHcOQzBYsMKM4oFIDHCEWDdw2wkFEJVXapuDzAKMUWjtgrs1YdRMh1IKAB9yIwZhsiEgzti0
2AqlREpgCFk4nBOyGZ/yIkgi+wcxeT2+8LFjt38u/jeYyX5cwZQEjG8PB/Xugq4DpVD8Lxn5/Z/M
jrKzqz8BZBe0KOiF8sTjWisrqC6XpeyKqxP0CFjLi8mD2ShgrQnYebPV8fHHweuZuM+ORS+htwxj
cX3Qugvz5eOx8sfwCQjIFwSEIU3iLxUWnQbSRkT7PnLjIu4bWwQAHQyIGYBgGQQb7ufKyDhRbV9H
WuypKolBd4yTeiyxtDKWcMFKtB21DGnZ3BdjIwDABmQ41qVr7HJzjovzMqy+MMgDWIRYRSIGyOA9
sEZAUkUIkSICKMRiRCIMlPNeoRP8IIrEXeH0kCxZgBJBSDBGKEQIwQgKSCXH2PHmHuETYVwGtSEk
RkYEIBBIh5R8yjAIIQjRp8bjodwdPyjP8fiG8Opfk6cTem9Nx4HvG4WT5QX7AMk6PcoB9cCDBYwC
RWQZCKEVVkUIQYIKAMYczwGwyxsd+CJ7R4psm9N7125+oPveGp+4PCxcr68b4SiBzQ52zfOEMgKD
Awbb7WeCWL3vSBpqEjJLJgEasHfgQ/AekD4RMhTA3FGqEWitQosZgFzuDUA2kCIJGRYhCLAYDIki
xhmJ9CoCUgdaHrGIQSLEi6Bo/aJMvMixjIBJBUYqKRIsZAWQ2fdA4OuDYGbA7leH/o/58YQHRfr0
gcqC5gcnXjnBnj8kIQgEkIqRIoQWfYmRnnHKI5EhB/jtAH9/zCWinoqIH9f5kT9SD+oA/A/szB/L
kxjX3GPTtHmOuy6VyZ1o0IibTexRTDKB+X79tqqvAfUj8Q5iL1zsopVMAUlADAUPmoRUPh6APL/G
Zr+K4omdgPmxqIjJFGKgTwlGMP74bD8OHeBPCCwKD3wIQUgwB8jyCwoWkgrCMgpFCIxWCLAAP8tt
fp50gSHpbO6KGaYe92Lgch7Ap+XX20vSw2SSrlgsrnE6OAnBKnJHic6LGTWsDFktItNgwwf6WSWa
kQbZZShUYNEiESiULSTWU6xpz0GlDktmJeQ6Jo5IZABM3K7kiZ4QEzqgVNCAYIgvI7kHIDpC43M9
mSEYMUiSDIoQI6qCAhnAS46fkFBulhEWCsDWhTwooUkzO3aHeKiqxVRVgoAoQQkYIyAwIoxEWRFI
jEILJCDEgwFWKowEJJB0Gh+H5AUEjtH/Sftd4GRg7UP9SEBYom0QQ5P3GhxA+0OkcdOolKTuN/4H
rYwiMS5fX4Uf4OcVRxUQbH2Qy9kvCVnjWAcBNGMgUN0D/oLj9Bomzxzm+AoZdUuitXWzMASkdTkm
p34VemQ06gzaasuHCddaxhtL/NSycMm9lx1pylr3E1WDB2ZDqdGuDk1wZs3uDIRi8ak2hqmOKp4w
wayGZTXGzT4AJxOCFnBWQXIUsYZAMw9xkhLmDNZs65NRML2Q6hwIUZFr0liNir7ixZDJdjFS+Nws
4LcsQoFLiVSpYWCgi7FwIsBuOEhQakKL5sxn1n24bLzJtRhYayE5DbC0bGsERAjoOkDNPBP6G3DO
Jv3K01EKC5rsIAhDENxdx8gIQRkUEiJug1r/yf8+QfqnMU/5CPzH9k2/mI8OZw+A/0B7038p10U7
iuAJa50/pCAJgwFHoihEguHswMYixAGIyDA/nNnqyEUO5PtSRTBER8u1PeB5n10ceKnkQPIp4w4b
kexeYD9joTpMElgsDWZ1F7iXqknNxLDcmbOfZoMOUt5wko/N8ftBM3wXLr3ah95u7HbUQOoRG3tz
rieYXWcTJOAvDMQ4ZUTYU+jDOrrvHTOhCh2u87pqWMTXYyFKAxiy8P3mAhMHM+MQpIowyYnoiFMD
+e45euAw2cA2zpnVPDhl9EMDdkhx6uzOPv4NyHWuJoF66pQyaHiJjTPB6sm+QlHvzEBNW6ROSA42
lU9Mfb84GMwmAdJFETAfpZxgd3XMwHcl3ZE2rYQ7ZYThAh64k9SaZJqc2AiY1Yk5MIg9DJjMWguo
4Oqpyml1dWzB4M0RE3Q3u6+0/YhSfVDHCoQhILCCpScIGKnDQIumyYhMctwwru+t4OKFEjzwOjQo
mR+q2HNO5egyM+xEf1x/DYD2An92BpiQTxVCTejQYdhIGYHdkNBsOQw9BADiJOAORsZqlrujdaCQ
k0aMN4xLq4gXcUUVgSy4AFslFyNkAg3jG7eLgGGiJonkMmelOSM4pOupwb7tgxc72+gP6zvzGSRD
ABxAhAUDbgq7CExFopH6MOoOaTbDsG4qoDHW7MEWUsmHOdHOkQ4gw4GcpROGp6HseTtPHQd+Qh3h
J274ZADJ4MKdqTp3DBNQxM7dGjC6aBaBtZLO9GObtVgEubGBdEZnnje9gIkkMu0NdjYAZuaOtBWD
1oyDAhuWB3Jl9nqNmkhxJu8+eswe6b7vLhrLvQ4yQeDLWhc5bjIQ4RKZIBEjIR5u9Y0bc8BBIwQ4
UFCLALW3lkvA10MNYX1STyLE5DQB0xYxlSkRIsGTKNkdgosYkxSqOWWucN8MBLDDI1UVxCIAbUQS
CSJlkNZQTeQIlojQjGA0RjSNNtAe1ct4cCKkIAaAW35rREzE03qNCIiamEzMcRQYhkYt7JIg8V88
AkC+QByJIAdyQIkAjVcQEPgYB9IEAiGyDw3533IU1canvEtwMMwDdCAqc6E7R7A//qIOp7/tgf/9
9KCMYR8v96CsH60c8+hUM8kE/5wD/PKp/LT9xE4YLUdLGSwwbiX9n7SRhzn+lLB23HW9dJ21KLpB
JYq5FO61HyI4wcYH1bpyGsxiAmJLX24EST6CEh+FVghCIRWMY0iZsQDzBVQ9tgsCnjEIqEIpCCiy
KDggbEVUviC+VieVJt3qOj5RIEFgERGR3gb56MqAIlu/7/OK2ClIJ+DsrC57hwYpK4WSDknNqBwU
yOWGAkzE09/TZNzXllh3pKyCIeD+14FRAIia82AKJaR28chgeUGTWgTKJZjyxAwSCAGVX0bk4ZBk
seBRFoMkIDeEBQdbHEY1PdkQZjGuiBRmbDwLQZrZSCShbKQdwhaCrV5Y6FbWozxD96AMVzIusNYW
Fy1JXK9oGF8wso2tfa5yL0gEgbEQ3b9SVpe0TlFUypGrKQp/Q6DTrFZqcmIHQ1NoIRWQIiAMDL0F
MwdH0UumVUgCENObhw3HwQFDIJz0feByA45pU68nq+Dg6ARCxlfSypGCc+LkgyQxRFJQEZCRJKwl
IQG4YFOa78KhHY5AjSf3DrmNtNE1jxld6F0Wi1s9AILI+UUfU1Mh5AB4OUC+6R1AlgbbCFBZRoCB
D4GpifFLPJcQuQ5kP4twhzMU+dTcUBye85S1EYe5CkNZ1ddkDURhFIEWSKBIrAiEIBAzEOYpW2rl
EsMpYR4xjAtRVWQwZhCjKJDiTwQFVMMj9SAeZk+kRgokQsBZakqZA/UfML2sGu+UIkgQhCdNKnEC
wJR/KjBcsRP9oBGBxtmBdzMXdWtUL98HUKJEgxkTCB7WIIigMQisCIvkT2nac+hH1QKSWoc0MCSo
WhQKIYyINslVSIoUQ9/8msNQloojFBUOSgVBBiOkLq3BokiooiTDMlsLWYEmUQtBUcgwlEwpWjWA
IsVZkJWSsbSDWEPwMlIJDEDBDIohgJLIHKsA9YmatYqh2LBGSxFjh7730BpRJ0FsQgF4hTaBSqtJ
ARbK1TTBpNL2wE1qakuIkkEYLIgMAVGSRkGSRIqCwLIywZESAwhEEtlQBQhVBhRIRhIKqApK2MFA
7RYxJEYDKsSKSICAChBEgJGSTbCpGIxFEBkEYjASMFAikVEEJBIgJAEjNSJCp8IdCKCCoRhBIszv
NXLhCLFiRLeIUXF3vUcAF+oQHIYIaLkKHjBLZviCWNoosgEBiyDCSK8TyOoyDQPE/5BwNuoIB061
lOkolFDRWlkLAtfeWhMbBKYNWJMoN6qNCqD0wAIkGRTaAfubroAme3kd+tELh27gyOTefaPYOBug
K/YfgGY2FTyPyp4XT90EikIdwNYQyIB8RJD3PdVrQ/V9RdunximE9PF4a/oAx6A5zlBwoIIfyw8e
D9lpbS2hbYFtCSlstpbS2ltLaW0tpbS2ltLaW2FtltltC2ltLaW2W0tpbS2ltGtLoOjzEP0J7DcI
gHSkAGV19idOFRwkVD9AeLyFi+qukHZcQDbM1gHCj/5ApT7BE9MU3RWowUg1JRQhxJxkIh5b0jUE
KgAwQggGwKFiQiVDUOkWQPmEgEQQ+C9H8aP8mof2/6JrNttlKU7D3CgH1AJcA0xSH9JGV+kffBA2
SnmavvP2lF4m9IXEPpiTNVpqD02gWCkhbZMkkrP38KAkSIs3/aimSBMueRTnQG4xhCSQmQNdmwo0
ak/sZi57utYoLE0qU97YsD/H59v8Zr/oEyeQkiKxhFJBVCIDFkBjJED+L/d/BRRkJQEYEJGARgkE
k/7BPNPap8S6EUxDuB/EkA+EkZJPFi95agnuKCoMQhjbRL0Xgwh7aGgkn35W1V4bfT6fMT3uqVeo
UqCtogiFksW1PTAWxLEPDCB/nEnMYQ2/5mYhYhUS0FCxiLaVBSILB8nMBEpGxRMGsw0MgaE1qiW2
0SlBYRECW2EUkWQVtJRJJbLAbRpSaawYrIZbUliW0AFEW0bFUCyNLKMCKLWGsoKExSqioXx5bprM
yxYncIQFTsyGYNW/bzT8zH9n8u35f5dZnISWE4Vh/ZGUKJ/VYzn+qEbWvEIPgyHfua87cnzyziLs
WC64QICBbVMPNDM+2K8UFuDEAOfw35mTlVEixCIwjGMIrGQsYBFhFCLWBFkRAkMiHXuZmen6UMIb
xVKKWB2Y+eix7fum6MO/fdo3eMzn+a82gvgTwCKo++ScxzLvlv+uQqlShH8kHQYjHwTr4rC/K+Yt
IDD/cp7QVND19ssT5IregufX8uNv9oHfkq+OT41eHrOmPORTYbsH5uxrShTXeMdvcaV5xE1FqHig
zuBFpauucYpm9drtSA2nMABz4rWjobV/nIFCS5ok6uzBN8ayu7VqtNavlFR8MLaEz62QtHvsp2cz
RVdLgZ6qG0tUjER7zAwk5mH7Xjy44Ga8HOLWT5vfgrC+Igt+97cM2bNk6LHfPwgo8r3wXsG7QdZV
8Rf1/HxWx4/zWshMNhxnKDdJW5dw/x59+ZHPdQTa5uM/4AD/IdV99DzThyn5sZ+dfNjGPqphJoXn
PiP4NW+m0gmuvuVNk+KkXQrfw0z5zGGvKH4RL1MD77TI8Iirad17tUyIUzwHVpuQWhyycxO3zAJn
+IKPAGIntrjIbU3iOlfDiU6NLiUs1tYWnRH6VAkXDNQ14G6a8Opyo1Q6Oi2s0ah1ZsY7AoEC/tAm
B4ERcgFa+97LfV6jhik0TrN6zzDXHW7CooDVaVYJviAnijuKZjmMWVTxKWRKsg3EFht6WecRFwEw
GHRghMrQlc7EWNIN9gK0VwlbC845j1FaaEqgaaFbXz+8FjWqu0LvnN21brSKrAYB5WbxiGXCFhdw
vCcF7b5uHSlFZO1ToQcPUDxIiCPvPAtttfa2XPjuYmK0eE01ZOnFtcK8ANWQZIn7usaeTxHeAb32
szuNB6k7GJz/URE3MtWa1kalmjO+v7Yb3NzPhY0MKgv18U1aNx5T8HXlbFlGAM3E6HQ2yKHbFaxq
BkTyZjN3QwjpzzC9uZd3eFh5dBji4ryJ8HcOdVrIJb4l+eafuTvMZotiqRbU/cdnwMokxA6mZk+U
amOpzofWXC80gtXzGW5TqtSOCDyojjV1Jtc8cXnFi4w9CBfOqQiM8vQzsNoNEXSV5jVY8zpDbGHn
QUVoL0bmYNHpmz+xEUHPnfIvfGA0M7YGSMZiTzKuaaGzWnmgmWndiFQUSBCNs2DoxtULeG2zsZqL
VFzFw147aQWa9X7aNrOnOrXx/AizsUNUomEQHpL6Y2G2EsMhr9Tz2/iPYRjvvg+Fj0Xw59Fsa3Xf
FrWa1zW4zgVzzeuyaeRzAzrjH5NZrzlo3VaF5NC7bQ5gRG9ajyBEVBI5o2dTWmo9wASOFK7RntCQ
xDNX3jsI1i93fgtP+wRME+zOV8d96nMglzUK+3mX5QiptoTBqj29CejG9U1tdW4dv+2AD+8eEHf1
4JGHD+Nmqdp59jgxI1NCQ+u0WMMzLZL5sIfLvL3/QAFrPMv8vkvCrrla4f5jrLt9f7yJ9CYHEzjR
y2/OVOuYwesehhgzOhZ9WpFmkZaLnjlpsx5zqFrgyIbehEnqQoRegBYIkw7OBu2tkVUg0HYNy3Zj
Gyb/XnQyJ3jKzNaH1lvfMVMVI5j6EMTjK9xnI3nGhkcHAeOhm2VLxkno439ADGOebudZ23doi+Yk
SIYYkf4eGZGKFN+qyfwJWExzhaETGknhjzr5529XWc+UDxSN3FFjJ9UZGmW9DmpjS7gTwkPRnk37
WMWs+brUn8AVx4AEQ/CoM3ohWxWoS63R9ruR58dfPZb3P4duN1ilssx2xvDwjXpl+u9L266NX8MW
+ryeeuYXUDqdGsLuQ96sa5hFulNh1K33ux6Br+s1Hvle663PX2/lVTtBeYWrgQ4bN1px3XM4Gwb+
Rk4dl6Ag3lAd+tqPJRz5pjGsifbLeb8GW2apcxfLbltm3VjBvz6j0Aaa1B9IYQ6wPRzhSLRZGj3J
QFFDGIibrctMr1Ovf05cZRkHpyp9d57heduRd1IQqJOw5VW9xd4iDxFZ1qapJNJLb1OBqobYM4mM
qDktGxkbpKvGdV1d7OAgbIbGdnRpoDOg+v4ynX886tpob7rl96ORQM0QeFA8RdG3ZkpN323IdAYD
D8D+RGLyvnbV73dJ0uElye75ds8uDry6337ekPzjEYjIKQ//wSf+jMVVGRSAMiCsGIIIoONQ/uBh
YqH+MGooJ/ZEXkCFmHeOxORRegP50vHprk4Do1RswKlB48v83uRPPuionadu4bLZc4TUCv8y015D
XbI4XNGIHGzVRnWtpjPpiJTotT17M4xN4OZSk7t0GVNZPx+dkILCQzVBZ1/WAC8nI1tHGKigpdZQ
FJ4xRJ5D9bKK3tZBswDIHUo4azhggTR0tTT09wPcgUyIgMSRK2vY9Wij8QrmIaMFasBPoz9jK/Zn
MRy0MabacW9+s3yRrs6V6+49FZ6XAh7dFN0VaxVA67t5iOmHnWNbPmVHqXNBM5xGbxTjGE5/cBe6
PPgYY7rJq/LFP2PKaW94PWdtXnyR0X2EfZ6YVQ1yczznK6P8QNc22UbePn1sT/uBW3afIC8Crby0
523AMWD1+2gNwO3YAFoLiCXkw6Pdn4sqaTfFPqDjTWDM8XqhF2P4x+8jU3v9V+3s9pU4XKJ3QXCh
915Tkv5TJ6MMa7wEbfuU2nJHMck9e5GBrppq33FjznGzSNnOYbj+X/oAPLYNAWN/FopGTrnsVj4v
uehQfqCm7l/RHld5rZCx+wMS73nw4apCs5xryTcVvaTn6vgofQe4W9uc3ythN8xfSVxL5fkEPsmT
Qfq+yyMODGo4DDkctuLtwa/G+/bf9SPzTiRvDHljxvNWPquopjH4OgxV1tnHP1sEAAQFcdI1EW38
Z44mj56Xe8HjNr24YuuMV7yBmx7jlBBpQWNLk9AK/R31Afl+vNC+68z6WOd92HDjx0zNlwthOWmO
4sZig9xFE3DAkUUWMBEoiBUgEYhBWRFerwH9xKimZfgU30tN5QEDIAtN0ksmuclcF1p/QxKQjYJu
6b6bV6DT0ExbhRLl01zKZh0Z2n0i5cxwIyDTTwMud1c1jmcdPzkuJiuatsBm4M2PF7pzHuhe3rzG
NBvKR+f176u4Ernrcrz1fLDht9kYIACiLuLuOCcCKnITjGOYwqbf2C/QIAAgF2KkyHl/hIIpkhAF
OPHLOa8N27cgE22s8FoN32HYSKAxGCkEgSABy857k9xcANf7yDC4+7uT0D1AR3fDMfEaCSv5VKGw
2bQfkBe7AkhxFO385gyLqE8kWEFv66EqqTmWIf81g0sEP+b+b8f9L0fovYbEP0Tnm6SM+iNf9IYm
J/P3P4EcEDnEIzMlSpD9a/Sa3rrD80F+dPSlz+noFFRr1C/2oohaksAqjE+BXFiPEhuYPBhIWQvU
EooA9kXhzc1Wbwb3t23aT+Kj+vSEH7/ircW0oAYupu632t82aHqT1ECFU0QhLiWaL1SXCynQI4CV
JCFEFYJFdOWw2SDJ5j7FD0p6fa+AfoD7k8hyrFT59kPd0IXuGaPn+hB2AelMA888EoKD9kXvkFZB
ITkKCtEGWcmgpPqQUT+1flvzOgGIoByRTf/yJVggfs6AS4PNInT1p0/kn6neGvCc5ISTvDP6j9qY
YT6h6zoCQX+KwFO8P8QoMQc/X3BxEuHPjqON6/gJeUSFqkR/Aelf1hdDM7wnr9fjteWr1t8rJgqx
7ir/2RwEsVCViqTIrWwaWVGif22vB2KZxanEkknqjJFA/53Avakk3jUg+4AAhy+sTqsUtoAxQrSb
psWKXlyoRQMz9a9Gi0IFRXKbEf28sT2B6wfoOI8SJxAnrA9w/kKWxIrtjIMYSH0eNXgPXryyvD2U
vKHKeIcLeKhlEGdj8H0nFOtWwKp0eYBtsESJFV+VIgpX+AfWiQhIqyQkkEgwhAIASMGEkCAnz94c
UdfcHq8S8oMgh4eelqqDIiH2nnpf9mHdCxAhCRn0VeWMPGrSCd5NaKWAQW8V1ih3/oHuD2B7A3p+
sTpDzL/GB5eZSZH8AHLuDMqg6+tDZ60DQAIB6B3pSPn7+8eHi8h0W1XL65tlolBIhORPypLbiGBA
TiM0PLBHkpLMiQhyMDlnhJCIIBjJMZYIRiI4kmDCGMCWMAUkMGSYJADGQKySRZJ8sOK9+2TGXMz9
QmuStiRFYjakDpBGAUBARiuSkO/ajhRU1Y3tnZBuWMtkuMh7/zU/gT8KqAcUwgFNJ/IIG3U9ATvz
TvGHm+jPQLvIXRdTNhlJFsC3VKY6lzQ5E9GdEZjIr7Q7AWx6h6MwumXpyPZwsP0pwPKLtdFXnH7v
uTyT80e1AOkhkQPNA+uiHUnpXtH0B1B+iR6we4OlDuTtF9qHkpoia6K8Q4oj3IUHkHWMDrxTu8OE
7WCeIpAirIxQgBFAO8BllUgcxN6YMOYXLMFgMAysNrFmI92Y4pbGHpA8hxDxDZUU7EzCg+DB3Tzq
j3h6h+qHgP1A5B5puXoPYnkNdqYAfAPMMkcDmEiDCKHoJTBkjFqVBBkQKZUkUDzR9YeFzx9PXZzU
iaBSFJAaSKKIUoVBpsEfh6B+w66+wPBSKRA/EyOtNyeLsDGO+hqJLSpuwoMFELGMJKIEkpEgtRI0
DIhvS0WQiS8VKYkgf6a6pbZbSW0tpbYW0uBOOPkgeUsljBlKFgIJC2UqUhYSWUYsAX1VqSslYijC
llJEUlEFkRBjCMFSSAGRwKULAGQtLhKAVkPVEkNJIxRmpClG9ZDBJudYZSUCgvGpgYVP30KyGDEE
DakYBUD++yXYJZI8AiFiIoKqysmRiyVF4asSSkNUIGK6pWbupBCZFSRZIpDpADjJQQSkArjEhSmz
xBOofWA+tNw+lPQIHrTtQ+WMAgQjGDETy9wxsK+4PmF9NyPtTOiedWJeKqrrDA+4dQKPehhAHLxD
QMSBCKB1BwwQboGAiIHtUz9qnWovT6A9AcQ9g6w7kewYneHpB8RyAdAJX1+WSxYsNDKMWgDBGsUK
kP4RJXCMywoKA5YsWKCxZiFGfwTgP2ZHNXAFNEMSIWgWcOarYbyRLiHCRZKiaVJUqqENqk4JIBxs
ixghKbKLGTSsVSwv6A94S4pgUac5ZFUrILQCe/1YEtrlEt/l/+fxKr9ur815MG2nGxuNSoQjP4Z2
PA9gD7IqhAYiMQigIWeIBYPgp+PvfcP3JERgkTqHyC+sPQEyUXQNoNB9ikAwERf5YwIj5D86Dl9R
8w6AsWT/0iIAh0ofoCfVMA86fEdftS1uO4NvxAuDxDYHSgPIngH52UHI3ox+Ply+YxiZIneQotM/
mt5z7gwGuDPhTy+9/1OIcEHzpCRCRXxI1QSEApOpIH4Zj5eGavtQMAMxBD8Rtoja/aCmch1cAmDz
lgqPgeSYHI8lHDVpACkOJwF+37QkQhOhdHk+AFfMLuD4gcqHKP1+voC49KOsRWwHONgr6h9PTzkh
1P29VerhyacvuyQNrAkhCIfYAgEi5BPglmXWMoYOCEqEqSKMZAyIQZEEahUWRjBVVjKlBRakJvCj
BTBKQYVKn8aUGQWGCayuUlPHTjO6ovdj8QRDJg/RKRJID5M9Bl5m7sxHAkiOgDEFgIiwUUJIWlCx
gRSAKSLCxqSshbKSFQlKJJ4xpEgkCC0PqoFbwbBAbsXu6HGCXUIb6VqSmNiygFQWxFf9tZr257l6
x+xaHtDUbptq44A4h5h3njD4OP4O1dacQK4PnTydwdi8QjQ+UB5gA7mKiGoOx71Z40PLxQNg5h55
j2KvQNk9zwPFNwXDRQPEYndEKgJIEgJCKpAH62CysbCxIhUFPHyl7oQuQgxBIgn/atFkbBzEKw0i
FlYqKKbh1rYP95diEkhIRgMhEMzPusi5jD0Gqe8bn1+n7f7XKt32OMtEk+N6ZFLwLntGOH42bk5g
hQnAXiMIkhAhGLGMIRWKEGMWJGhgocvEjKLkl66UpT9E2cg8qj/TPfBSQmE/TBHcfA86GT84fAfU
J9g+oByTzD7j94+/z/d88h8LS2yS2ktpC2ltLbCRo2W2W2NGg0aNGjRo0bASxo0aCUGjRsELBo0a
NGjRo0aNGjRpbRo0aNjRo0aNGiRo+YfkmnUHH8dPR8uoU8IM7pQiFQEkggRLQqKIkWRSQRAigEWA
KAxFgKAoggSKAsSRIsARiIRYsAEYsRigMZCCqxIiBUlSChFAFUEEFiIRFRQEYICyCIKwgIilQlGS
KEQQBYjIoqrIEYrBBRYkFkiwIoRQAWQBSSsCxAEtJVYRgkUUYsYCiyAEIBKE8B5z6Pj7ufSxs6L4
9Ka0T8j1nt+kW4HmxCRQjIQF4hGCxIQkAjIH3QfeWNsqkBjBiQvvDLMIWFESeuWGSJ+qzWQootss
YXRcUVMGW0CgLC2BQ/5skD4//SmmAqm2VB31bMv9/vpPSnd6DusnYmgGpQWL3rF8QfUf9+VUSsBY
i01mYNCxKigwoR8hoQcQgF3cUMxaBqySsbJaNkXCdMKQsCReIXDmDkD0j9itzr+w5UfDzKfvTcPZ
1mwfMOSJ2o+w/M/CrimiBShx+wPZ1gfYPYgHnBCSSAQiwkiwGMIJqVNS96BAW3VRVEqE0sB85i4S
AqEESAqxEEYRhFUiCIQWKhIIoDfUZdgn1HSuR9q+1DnDagH2nv0+C+8fGfQME+PYn0B+3lEgBqDQ
LhPQB1JzYT5wDmRPqfOHtD0JwE6PWj8wnaIL3+gxmFnyBZihvTJiU3PsEGpDrBNB3+46BbBsR6g1
p6TyvSPcu/4kDvIiecJIp1p5h8Yp2CGg46gefLyhSiCenitAgmwPJeCbcsD0r7wCyWF+xsM+OiDE
gfJTcdo9/enoTSeT2+XFD6D4+1IQPYnMLenEPQp4nh6E9Cu0Do+YfMPiHzj1HT0w5h7GD/YARWCQ
iEH5yAwgfsqqKlAlyAJYhRgQtsLIG6YWicPLb+LAD4ib5JySxEhCFAWEH7ot42h1L4cA8kg92yAg
fBiiVd+2BxYBJNHeHiktR5DoH2pcDzKeZU2BgG3OXTcvvHQT5F3p4Dxb7U9w+s8XkHzDd84zLypy
D+gLJ1OacQN45Cbkwj6A5B6Xl1BXOvrR1p3I8wfEOtbh4BptDqLjdPA8gEISYrxh8Yfywd4AK+8e
RzICkf+hQh6VEfV8sOYydrBkkLeIcAPnUukSRh/c+CMg2GywkGAMkgwoosAkgn1Q9UAPZ+sP5bS2
lKqIitLVpbGKjFFRiIiDJgGw5SdZH+8POawR/5jxfgHF1TAEWoQIJ9gROYaCSSaUZA/Rff5lEUih
LJSqUyUwUwGFGCgiMAqQyGOGQDIpZKID58WX5r2UgGil6YU1ZAthIIQRJKkCUgwEwI+GpkBO0J0h
uVidd0QDpICOpXxo6xTvDMXakRLIENk83V/uf/aYyUMuQ4tG87ir828F3JZblz5SjyH89NLw+TGo
ymXmq92GdYPfCDGAQiSe8am4JaJYEWCFnInPv+zD/PovEYxIilTqgWnz7zblvDBcw1kbM7Gb0UUP
cj/L/UDvvk9KAAAc9h0DBSBSoHlskAkJ3GDuhAgKxJB8I+bSriER+SBxxHb/ycmzvxJDV1H+MWRY
RZAJJFCKEQYQQigBEFYAkQCOAfKaj4O4bQgLAgKDEAEYAxhFEVCMEkiIARiiCioJGJF39qODD+qM
n9kMn8EoxvPNy8xIv3J6jzB4ueGVFYlG2wKlts/20UBBZP22ElSAsBICxRVFZBZBIgIxAWCojGMY
ogjAUFGDGKLIMIskZBQioRGLCfENAAHBM4SwJ6GrlMQIVJF1jCk/zDogwTy8Tu/X/GH9oP/R/5f/
IY/uI0WKuDo17lANMNQsAQGgh0P56mk4OXIGccZy/6UO9zCcTkGKY3GW0Uj0jiZmlwIaSDATHNIy
2MlNIzTFTlUHNSGrSJiactsxRCimB/rWo/3bpx/mrJBUwNIJKFzU1RpL/cRYFyFBKsklMr2YLsWQ
JKDskMMWRK+faWqH92RzHU4WA4TT4tw4w30xjUnCC0UArWVIkGxDVEf66DLoA4Cb5OdaOkEWMdb3
RTnl0MBfL/OZodJ44mTHrDNrR6wHBzAaK7gaNWJ9Vj81U3kpggjNUVNmiHQSBG0CYYLvRT1hACRY
+BDkB0PrFkFoBEowjwhoMgEEin/msVQm1LwBqgUV8+6iRyS+vrKAdjuc3RqFJhryXdubXSy2UtlK
iI2lspRBqtPZMk/zJAFkk9zRJFDnNKr+SvwJH8UREPegSSQjB8VV3zwf2lgHNBIP8UIoXDyUCgEP
kU0DLeyw3gL/P8xlDGAwQhEEhFYEIwBRIhB+4EKCsiMnnZ/sYZEYoxYRSQSRYgwVooCgYhAEkQEU
BgqMIwIlgBQLgU4CYUCIaNz43Ig0VQ/vAhEgBbmC/X8WFKe8PdqV+kNguwA3jkn8QH2Ah+nROZHc
wHkDrQP4R/cGSbA5UNP2Qscn8qfb/I6+4ECRPGUIrtA5kA0iCyEGARGIwhEQIjtIBIQUVGIfZApQ
BPtlqGhRUchidxwGLIMCh/VfToOtPwy3XvIikC5GyVFgyJEAySMIj+GFVSRTyf909IbGauBsH+Kn
McxgZHrR/pAkSMQ9n6ghScSNgDzAUwCJbrEZ3oJ4wOAD/QcVIRCBuKNxYoDV8foJr3ffe+AC4kvP
gGIUHAfWHnBOCJ2AbBTLYTiWiYy8KQbJwIA+IDxpE0ENf20v6Yt0sIVqs/KaiYLt7g+/APifCFJ5
vps2ULyBMisKz9tsDhIHzobGHDNZQIIwyiOURkT+/OktBcCch4mLATfZb6lE8B4NJuF3CQFnUA47
esan/aUqb/96f1uiMG5AbhFPFNoQiSBCBue0LDk/TAp9SkiBEgSCQIQMoRA9lMsv+aeLBER0T3Ed
YeI7nnUdj2QyIJzDFkmw2QPYIAhyBQ7hprI4nn+9P8vbg9E/Ce6Cev5qFMRPUnEqSSa6GguV/RLQ
TSGRFPG+dQQGCSMQFUQPxH7gBkQEgJPbQKJCKSiSkkBiqEFgMBDqGlUaYRAhATylxpj47ANkuhLU
UokJc1N+r6ly+3X5eq2pfff0vr8kvhavo0UOi6mT+Lv/Fs8zdE7NOguu3adnStpU4SvlRXmG8tpL
gb4a7aGDoYbBesYYQDOLuGLHSMDPQBsiTiRiPjoZIAFGT8GwAPfagLN6phwBnOaVeYcw8uSptkPD
JOIcs5AYtSnawif3qtRbkV7DutJhEH+8dca0ZUFgGnlchCYetkmbGlevMzDas7CQVYVKFuJ41mSb
U7sodMkOQ4pqbhL5PDXtQ3pnclFUzEQxZEzcwipcB1gFF2FgNYYLtgjFTMJcwyjBgdZVjY9IPRCA
Hi+BITo6YH871/q/KrMta4eF3gawB3i98CESJyni1daB5gU5OJ3RBJc/RJLJTtxzc1AGCIt4/lE0
S5KGenMz2YIc2mXnuZ5Odgy7zrYibLDeT4GCPfglhRCf9UkkSRogHY1tBsDqNHBVG3kpAwrHvnmh
oQeXTdb3xHBIVWyAw1KSKfu+SgW3jUO07YEmX9oa7orRE/5oiB+aIgWLEDsopDohQbyr2CkNT+dD
zoZoWA/OHr6h4ASCiSAs+tAqe9kAqCyRYERDBJCVFBGBGDCAVkokQEAigRYsCMFFYAVAAUjGAkZC
oKKoIwlRZKhBQIgkYCATOkZBaIkJIixEVGAMiAYwJVWEIAyCklSMBABBKoNUUDUSgilQkQqOC/9Q
6kshqUNF9JQBCKIdgP9QFFiIAdQ/neQs5APdZdyQEywQQkQCwMIJ8Xh/YdxvC6BuHxbkZEqMDCfl
sIfY3B9ZZksQKXgUBQ6n+qaCtlUDGCn9jB/2A0kzTv8hFiJASIskgofxpAsiCRYMYsYpIsUgiAox
gMjEkEGKMSQFBFkk/wMJUYIgxGKokhGJAisgMCCwWL+6URYQAiQghEGIMhugoKlcKPxH1p7PKlEQ
ODMP4Px7IG5sabblkElrmMwMSZZkslrGLp68YiEvKUqoev8PuwqYgAZjTSSE5R5ov6DvT61+zmoI
QSQpIsXytkfRgAdz3xIkbHmjQiAhr65uIrAgbDkyNobAfyhl8EqjzqiXsXEgNiBcIuADBIVJElIk
wAn5yhhsI0Oy6rcbKfxDq160xR+Ache0JghOazXmoMlYp3QE+2BeYh5SBshmQqK/p19emRCrGmzN
fcGz5IWbB7kzMznLoW5zWB7cQ8EigdUUiRTCsQNXYDOnz8Hxs29aWsUJ9bAbCD4J1HOBEzQTPV/h
+385bUeD5FOdVf0H8Y0JygufUaPSqVAkVuRIBKKqBEjCBoykwkEkKErVaRWhJ8YQ1P7RO8/oesgQ
ZIuhmIeAmp1JynuIpipuIjNDsTc3IgsZH/YchdTp3CPrUxKsp0J3LcUNRBCC/vSDeCSAEiSIAoJE
iJBZBYKEHchJoMBkjkT6yI610xxXUgeZThB958PfzjCMjYtPzF27ELUmz6wc4If8w/apBikZAiQC
BC3WMHgP1q+sLKGs28gBRU2llaifBXsX+wO8kXrFf5AgSCSULU6SNiSAHwa6aCMBICQKDCEkI0kL
EQt4hFbCNh+XsR3p4D/Cvl8J5/x69v6OPN19AHxSBEY6jsDAQAgB4kDdWtqLOl1Vy3RLwdBzoJGG
GWWmmv/juoAOIz7kT4iqNyEAgpBiIAQgoxYBA7Q211h4KfFUQ/4zpPf5AYgnuTrDoHemoBCfUfR4
Lce1NwP80+4bie8+Y+T6R/mAV7eI5CvIOoBPt6V0HDuQmb1JA705r5gOIRAn7k5gd4bJ5B2B93SB
kjzD2JyPuEfJRO/zE8h5pcVMiAoCn1nnsh/DYo7w5Q4ptsb3zJxCd4eRfGeAadanUEApfAUzHATa
6bA+eXdk+u/x7r+ruvtbEOkBPTERjGEBgsVkD/MLh2eQZp7lsFbIj0j9E8n3h1oHlEoewPMIgWDA
/rDQA70LnYNw9XSvgB6Aw9KzAHOlBom8OofKp3PjR8ZQUPYpn5TpIEJzQwHDyJIycDeOYeoA8A2T
t4XQ+I9w9qvEO4OIfBFQ0CII8VOQWTo6j/ieCPmAdgnrE9gUb0A+4NQT4BB2Q8JBPWlxwE93UuZ7
QyD1L6ske815BoHw3AeAdg2r4bj3/RD3JPWHYPalJwCkH194e3Pr9nbp5YmcPmwqww+yAfgrAylI
fvduD5t1nFrGGv9g86pxvOBrMQY1CYyH79oxhsQ8z0ZiD52GCfcwLubu7y7gIAKIjYJgRqX3BhsB
QySOhe6bCWqxLWTYtMetU6TdQrEfPDE1AzIxtrptvlsVC62mCM36daagU5k6wPXx7pCfIHzRKt6w
9oMBeHzDkHUmKM+Bkpmn0EMwNxhEyDnAeZDhoEPGHt2kSAaCWT2goK94aIcE7eA/aHwHP1upgibh
oO8A606gPQ9CBmGR6kNwHAeCeqI+LydSj3jIVD5Ms1TYT8QNAYG2Qv3laMX5SybtpQeQ8R1eTxr5
Bwvj5fAOFLsHRLIdwAc3EOZ1BB3wObyeVAzYQSxQI2ikIpUqdHUbX8vWGKoZkQU8R2aAgEi6pET+
jep5J95ZLEDgUpQdCEIZIHYE8YCZJ+ufMTcHKeX2jx97wtpoNdQcE6T5VDrA604I+oNuYH0+5X2J
0rzTtTyU/YQBDNtBJwpQyPpieQ0pXWB5KA+HMc65OaGY+sA4JsT5X4Jyh0aPtAfl6hSwdoc6BSnW
nfBV+XXgHvNPIPEOb70bpXIcjJftGageJyj0AeP3ab0gYilksNSSBAhIdCD6QsBkrjcnOBzByq5Z
gcnEeTpDxhkegO8OAGO8zB6AE9Q9Q94KCu4dfSHuR9Id4bOVQ7A6A3964Dy9aG5A93sAgbet1z92
GGvu5Z+zx0tPL0lbYjBizu0xAPkSGH65xk2N+ng42Dr9x9zkPlTaffx+AzV7ZLFj1rJhQ7kqVoRV
kUiRgoLO9PcZKaaMA1QxlkwprczNNKW5aOMLbQpagu7JYsiiWxGrnnmQZFMlInSZMiCsVaWiIjHZ
SgyQoJLArLFogNYmKF3TpHj0V0WoOcKnToakhtq7Waut5x1138ePHlPB4a+BrLKURCpCiLjKDARE
iCIgsZI5iceKVkhtmJLAKitRaijctSDgqA/GKXAl7ki8OklR1q5DRuyTTHLN+2yYRON4IrMHVnvJ
u+2AJycUj2EserAFJOKHsxwn0oxT4r6E7OsgC7YFitUvp2TEhVF6oKfLfcgsAQwpJyOJAMgwAEGY
Ua8ZhMlsOCAEioYqkMotyEgiXywDDK+dKjqgBs2bLsYDEOyAFEDQGraMDDIsCYwJjDkI74hBcsiq
CkpagJV2FIBDy7OzPst2YYjcOB55g+1DAD4D7FuO7qPWvkdY+0I+sOCfBOQ9MTQPs1EsZBx945e8
VANAPS77hcEULr3icVX5gA6w5g1AMBwHiOkFBXUMGwYoBoHyC7XqA1eadgGidCTL1lhRJ9XX1jPU
zQysPbaB+HVrFEkYVJUeUC2yw1QlgKw/EbwmmVIgyM+wnEHRIMGCAQIosCAQSARIgQSLBSLFikCK
QSCJAgBAgsHT3whGMNTECER68+oLCFomAkDWAq7VMv9ZdJgTGiGZqwN1dQl3NsQ4m3RYSwxbxNYl
kQhmaDjAMIRYEKDJoxxMJcS4lGBodBc6JnhDDY8ShnAHQFk5GCAggIKeol+/gULlN4CdafLRzFH0
/zUXPQe+j9s9lf9Sf3sCf2Xq22ZZhDsehIIRDsATnU9Aer8SMGLEYLGDEYiiCIsWBEiGvkDo/7l7
dDf07/wYb/LF8n3pscUUo3JCJEIkRBBUgMGM/rPnRX56n8dMVczMAwKpKAsGQ7E4CrEN5D9ZxheJ
GLUhSDSj9u30Em+CVBo55FqkaQqeaBYigyCrF58+xEuRgHTq8PWcDMBf4cTz9IHWOrzwwSvBNifY
PgOm85YrzQ6IlmLC6pdZZIIDIYQyhCjBjBEUQgpGCKgsWAoJBZEFIjEGJxCm0SFlKUikFgMRhAwE
SIIKsUUmAwxiyBir+6GghIEC7JIqQiQigfOH1pklj0ojR9SSyMUQyTwN3Aoh86BUI0FO+y5kYHbG
ng74AcLzWKWiDReKUP0U5wuZZM0OhciyjJpGAE0whAIg2ZA0MaRjnWsN6zCHEt1DQWjJDQMOFdM1
bgk7M4TRuUIbisBdY0xC60cGGzeMOnJoliwowIgiSMgJqXGmMYUtUpMJS8INoMBMgCKEnSbQdUhy
ynss5Sbed0iyClAZJU7QDMy0aEUm5MrBmOSbzYS2TcatCODCKIfaa+Xl4+4+vox9MmV871WsTYyM
FB3hEkNkKCBxMG8GyPBgvFiFMTGQ5h1DADNoxJCkSTTAFCRSFwHFImdFI3apagJHArBRUaPQH8Ok
V6iKCeVNLGiBCIh2IGBvNEMwNXfibmHrKaIgQQKCRSJEiSQiOk2ilZpPOGii1w35Jsb9fj6kiRZJ
5P4vJdQvEkE/AGFiA0jTX/DISoQ+N/4rANGRSNEEwEhPVapH2/H3yFz6IYT2ZfDw1g5QMiCEahWQ
9IdvWnWlnt7IwOwCxh/vkCgSsz6YfJ5e8FP6bVGaFD1VhvIgZoGwWytiCDBkipIJICEu9b01Z3rk
sAO8WPhqvu43QocfcDYy/5ByG/fp/CzhAmIEYpEa1PxSRkoiSQFkBshumQEVISDEBZBgxY/KmJLm
06QUNhFkS2R844eBFJNMwCvwHrBy11/jxGNT+SvJcLPU9AfTJD+Q4/qPYlz6B9Y/SPx+fs/QG5Ps
NyZH3B/SB4+mDCESDCMSReoBTuQfoH6UYwhb6wmEFfy8uYmSg5oEUYAQWQpeiKZfZ6fK7Av9b5/n
+fWZuh6JTZD0L5/UljUQJivaURZPdKVTY66EMQ9x7vpSyWmI6fVKJUpCwsmjQFgm4hcIAwJ6h807
gN5f/QfwIVIUulDnh4gdz3CQYASKwCKkYgJFIIxIoNhSJEwrf+T5xN+n9gZYgazo0gQhj+lFkg8f
Xl14pknigL0h7E+Yfem30D6B90P5vzgShXgn8Hl5VSNbCAlG0BZWAIxokoC9qVEVIoplttrCyWIU
sGIRksqfGUU6XuK3IisCCMipCLCIlREIzB8AKRbwAEQDKNJxkJlsMm5KZLApKIGDG5kzAC0IMpIW
hTOkIFhLJ9qBCncjWeBUgRMmSJ+qEOI3QWh1iSKMgkBOgArb+YPi/qDw5PIGQp9aoh3jsA9u8fF4
t9Y+1L+QInzqh+lEYLr2wn8ZT+D+yAEzT9U9waynImZCigvp83EUyc0CQn9RMg9Pwj3mSOD/s/51
nDPO/8F3Fvrx9mRgxlMsWSXoEfw3AfQj7AyMSdpAetSH7DdrsT7SsgfnPMAoPUXgH8atejc5xdmn
jLJlAsXKHyz+xzpi0DR8o61t3N3AiFHtWDCHvTd9Jb9QnxD0BP1DjN9Y609D8361+sTLYj2OZTI7
qKiK+u0jC0LEgIJjCwd8z+Q0GGiCz7U+lBq8kYSIiEYiMIEVAfpWqRQi6xKUe4iMA8jVKn6wPrUE
yGazAObKCwin1L913eZBQigfzeMPqPAwAE8ulPy99kgQNQwBe4XtH+92LoHDsA8+lT0B7FPAA7Ue
tfaegKTRNg7/wYckFh8V1Dger2G+dWaZy3wI6sw7MM4SXGoZmBzCKeg2Q+D4GcSKGRvPbWaNWvWX
KfBzegUuNCZhhjEyHlxl0FFM+gACxc1wHFU15J1eoPr3Ho3DwDsCgYHBTnEOXl937Orz9vb4cxyE
YCCRUkv2FFJDwIL7UlgsV3EMqT5+k0L4piFJjndDQw1EM45x5UYWmSmVmk0gYRLClUBGFNJgGFT0
9fHnZMTza+jw+p0pq1Dh0z1vsTLcYVhjpjnrrrq6DskWMwSirUQjBGhVFIxnqM061L5mXNsmIGQC
jB07uqLXKsDKp2U4D34p6LlP8DQBMhEAQwM0MJJqxygFnCEC8Bsbt++g5AeoTxCeZJQ611pwMobD
tB5g8MkrhhMxO4MJ3hgTaDRoZBnxD2JoHCHjD3D1npHk7gOYbvIPkALAehOdfG5ew61t+QJ3I7A4
r2bUNRzJx7FOoPB4hJIOZ0lPbAKG9KIDVNiGowwyA4ZokyGAFPvhhs3SGrSGyyJSlJUYUlwL+QXQ
bIj9rB5LEELdJRsHqX/FYqwEIJEihAkjFSKEg5ifks+YT5BQZFkfqTiCD0TMkGQQwuyP2eXR554p
mCSHyPf2MMMtDLVzUPt/VTZvGlmhJFJCKcs3cpS/OYsfLoVJZoP/OH1CyGaCela6xO3eAAlkJHTv
8IFwLuQr/n/G2+9mplMpglcPiCgrtA+Ij6DZ4jzkgyAQgMIonA9z+C0oHiPZ+AB1AbgHkmaQNjqP
4GoesvxFRzgkkgxJpIUZWErCxKUsrJWoQUFGEAVjDOIm9bUshCFufyy1joP+dP8OVCsDqcEiSMfr
tYLRCorRmaKliCKb4zP8+HBrWuCXf4DZKwknCSLIYqCw56pjE4ODiaYhtkkqQYk1MNHIDP+lpPOR
ABkvbnnv/Rdo99rm3WXOudlNf97baGgyMjh/vGtcaW0VzqwlAS2nUY9gdwfP39P8Hj7/o+/5Psxj
7x8w8yCovjJAkCCc/laT5NdFMjpBjjxkEuRfRoZh7j5Pi/WDYOfBilVkMhTDKkmxgakImnMC0oUw
cLhAcpBCFVhRgM6nu7FZKkP40p17SGjkvnJ3OdJuyYjCSNEEIu6HuhlMnlroeIhixWFdABosryxB
cc9CWcgNsgPzTuB7j+9PqHpA5TNPwCipKWMDNZvVdZcLQJAIxGJEDGtMAnZcMg6VRS7zPZmGqfUa
T/D+Dkk8gNUWxAH8S59C/cPWvkGd3eqepsWZTKDziHOfJWyeGRuRmRlAkC0RYVax1MHxjXgb+mwc
F7xgdaj/3tZoIyMYBFqhdQp+HQnkR3ry9gFz15NyYIhvB+b7xAoYAHkkPmG9CgfMnlED+2EAioRj
EkjEiQiQIh197E1DEIxA7jTn6vV48gdSh4CBgsllyLWTQ8Q2LCMECR5zmJCcBbBaKLANAaG0zKI3
LAIEGfUQBC+K3XpRU6YJFgAxRYrLRJBWhhJClsNhfnEoRyUBpQwIhYHzCwWuIH+0GCxhCMMAwHUy
PaP1D4pk8luZ/t4h0PqHYIa6PINSrdTOWAdRGpjBxEJj7lD3jfIC5mqHfpGvKOz2imFAo3wDm1p5
wnUkdi8OQWxbinjAPamBX7SCbTYL8xIPWZB+4NgLQfSDySg7BaAMh+A9oG4yPJpPjmh9yGfSGwep
kqC9Pp3eefLbyw788+53J47WWTEqzTAMSFblqfFhM3rDX/tBRJCfZlNFCilKUQWVAWcQ9lCrQu2s
xbF6vUf9KLFsv3vNcMwj8xBpXU2MXVAuSwTjxowOkhQl8s1spt4EDGZwG9b0zQvO+JMNxnJbJPI3
d6OShHWmrTEmiZmOZCg2JP8Pa8LBDiWQN5ThqUw1TWZLW2xgdHGTA/JxDOQ0UzKLhOacGY75KFTi
8BVd24DgMRs2zNbdhgkqQNXAHbNKyK5L1l4pU1IRwULwmpouBTQwNCOooBQpxcyWXUyauGaMGpMk
jVI5Shygs43rEc7mZq8SS4jDBAXjRwG5IS7liDJHZCRtND4MN7ml3BKGrlbRCULhS6kzBbcDRjXB
hc61ig6d270TWo2C5brRoo4zRmid8potSOhk2JZmOcYaTSBoqO7RRiCiOrTC2A14wwTOZZMwsYio
PFqgocNkdAKzgS7iCGzcJEuBGAIdYGD0mt10WGJq4XBhtzYaUqXjbeGhTDONzhzZbazEOGFNSHPB
4CAFDbLcbqDHC8cxYUxSxhTREBmVCVBgESkhYNK7Zq3bd27dnu/Kxs3okOXacAvRJCoDwJIEgCOA
76wyMjGQGTENs1abDIcTEGYPtbGYnCSFkwLhvJhNSksDWURkkclk2xQoJJglgwESTjr34bed6vwT
tsOLeb3z8b4Jze6ZGUxMNGuE2ixfutOWU6lseWTlxkUTDJgeo1T3+ntGTPLtQ/XqiB3SxQgiG3of
AUQoeaFhkIhF3woZcNhmGsC+EJIqMHqggZENILIKiQYIshdQkvYBRpRCm7M4ygBnspW0UhOs68Xj
Y0lp0i/MnvDMDyJ6vgB8h4e8N4hDYdSHMicpvPkG4bg8gTtD4Ad4p4J0A0H7D1BmHILhtT5QD6B1
A9C9Q9QZdXWdaWXcPvNYmSUnJH1j1L2podSDAseQe8Nwj1+E7CSa2tYRi1sARxkphSX6xsBmtQDJ
iouqpUqshJITEMhPuLD7JohYKwQZFOClAkQkyAUz7ZQ1MoQh+xMXJwAOtiZq+xDPT1S5Y0KMUNCB
52wTAjcTO9RGEHNwlgbC5pAgWbty6KDkJNhcNEB78mpDqHReid4CxANxwvUVqCNbOxpnYlbBRlaR
JSUBIkYVNQfMYwsRECDobfrn+3p4yo6uYUxbB8X1f8lN7z3Kb89F0gJc3AbhAX1E9Z6aAgpWAtEG
IoNbCFpLIWpBk0HavZFNwL9XJe9qvZB+gcfauVQbyWhuUTOHWTMNCZlgaQrCSSE9n/ZFoRgRHRzD
iZYGEZHT7q+6ayFUF2/mRHAfvPIEyHlDlCAJyoRR3PoI8wuo7U/MU0FEo7+ui39rY6uU8ieJUQ5g
fcPFMa3x9tzzTMfC6Y8DkVCqbbHsQrcHtC47Ijd5QbfjMKIhZZVBgkYIY1hEgPgIIUIMSfaiasy5
m6JFG6b5TjACIIeUZbXSecbGMiiKoGChGjWyAwXmFhCsUVYAc2lBBbBCLALSn7ziTaEKxSsFNCZw
FwFpQnGakABBkDbCFElQkUWQpGAq4CFFP0k0QAgYSTLIUNSbCWBkEDRJhkwgca0a4Auxkw0ZSFqC
MBEiSBCDO8e+owFARCKCERiJBRgyKkBBVIiQQRAWDBgiqjFkWKG4feyUh1yRBIYhwAMY5CGv27Ak
npO05WImAEzAyBXuCm1AwCgNITESyJg9KQkEGQikxipEBSRGSIyCMASRYMF8w+g4/3FH59fha3bW
WVsrnbNdTaSQiBmREE5OuO+3m4UUEgTSs8NNxxKWGYrggZ/aj7w1GCJMqUKKFwRNARIIB+SBmvxg
EfK78A/AcFS4xQkFgMCJFT2EoJ+lIoFQ/0/GrQEIsVn7jC/oPvLCBsRiMQJ+snSNhiERf0/skkko
sbxIlMqUxPySKvm8wdRZVyXLmPuXyjkCvOhcoPOB6VtAJEBtRxVgH3xE7wIkSXIsIiEgkiKQiqhI
AKWnrkvVojeIsitmEiUQrCSsAqFQLGAZQmxMhAmmEhSxANDACZAQRCCwBYSAEgoBEtFO8QQtR542
fY/nS1w+gDRX9Bz6kHrAPYnYmhzG/m8bh7i0QIlCQrVRULRdRdimRI7kwgc0A0iBUEXB61ue5TZH
7Q3JzD2iQ7dQDhANA7DtAsZhEhPduHjJFYiEHYHpXQ+k5wsGB15bn8gNt4HEuNKB9IMgEgwdgrUC
GtNH6ljWdHpDG2LpsWIgQ6EsppIBB4rcO4FMQU/QaPbBiEJFkFkDzgVEixYP8LYkRGKioq/Ce4+4
sNaA/NZ+4bhe88uYg1oedfT/zNDCRI/NzZKKgyC3iAaghCPgEQTyQJBIRAkPvIrSRAkQ4UAV2AQz
DSmhT3AgfLvQXv6/mD6gLB4voPKhT4jy/WHuT5Bx6IGyHmKNMYwKL81poi2xIxIY176bXLChkSyc
H5Oa8ENpyMKLBExEEkPzPyCBdYhIoROQbYra9TKW7ozttdS+alg/NL0XNpXUlQimKWWgLUWDBkFY
iUgEuUL5gKHCwBsQajSmsyUtEmIeNXVoMa2FLU05GZiXSGLlkhojAiMBFRQRhzSxBGICCSIDAYxQ
FkkWRZBGDBEZBGIMGMkyM4Ey0y2QNsCsIiKCwkrIGoWUNRFqTEIMKShRrAAoogMVhICHwBkklSJq
W01mCwcLKCIAwkFgYhIsJUJIk9uJTIgwhGEQEiAwQFICqjZAGIv2RMp6oJgmilQihCETJWR9qlwu
rqQMFNrBAlFlhTVRYsijYwIOaVrAjkt6ihFfgqRUkCoKZLeJQiIEjYhEFiTUFkYImKAo7akIoKox
C2XYyAWKQlCkBAQkD7FTuU9A2BTSJ3pFUM2foRM25ACkfavYiB84BA/EwCLFiqIqxRgIqBBWRUD9
6yoA/SHdQZxvx2JZfVEuej0f13ULsV5YZmro8Ck4oTpHAda3kjESESgQAcqERAgEQgpCQYgSCzrR
45WxgpIdh3BAfuB81u6BwD0Bsth9weY7j2B6QNhw8g+IfYP2fuOsSQ/L3BS6w+aAekT0iZBtHpTL
4weamGePh7/bRi49cSoE6Dqfu1YIQ2Op8fK8PELnE4RjxSAlshp/3sklGKE7M0IoQz/upJjO0pKB
r56AHjAspoqmCSHTe1NB/Tkia0M1LJ5UuWkDGSPkWUTUZIqyCyCDAcYo6Y0XSAum7fTwjaEiSJCV
a29Dbk70pG9UKur3sygWHflgZ35/BeDok7fOSwoSzQQtzkIYbtrpb9g8tA8U4ApZbnSJfxdwadqZ
JQFD8/cFwz8YkY1yhDeH0DxV8ke1MXJJvEDuTgHIPcZJxA6E9yHxTReY9I+C5Invsp+ws9A9q+oH
VDqUhshvTsDIIlg0T7g7hDwUupyp50fBHu5jr7bcblvONvEgeSypOgDuzVMkW5ggA4uAxDMoC8kh
BgdwYUcvNcWyecMJRYCExVNAHRCwlNBZXPYUxAt7guGXlV/wiXO4Mh3gtwRcmInOnMJ1X9gC+0h9
UVsaAGxXyAX+t1gm/CjIK5m8KU2qSRVJH5SnQMKJylkMQISNB+SRJLHNyhlxHkeuH9CdpIkYRQhC
EJ0ngdhr3tC2SDIqlmKWYp60q0Icip2n+J4UXh5rlUNpSWWFLYiof3gwZghJBFiQBZgWxKsl01JI
iIkRhjIQSIVLTZtmxUB3Cm8G1G3cuMbUtLoVyZpmiEAICGywMDYhQImgjCLCKIIk0SyFTBCLJQNG
xENEhhEE0CA4l5EiSS/NrB0Uim0O/+tInaG7fPdei1V7bW8YnUhZfUOQL7nrU3+IA+YZIMAhIpIQ
JIign10I+4INgsCDPEEEIEWEUixPqADoPIKfONqYQE8xALhF5wzRLpiAF0beoGIbgsIpdCIfTQH7
h1QH0xU9g/IdBS3uA3j8gAP+UyPhsA/7kPIUdQ2JICNP9gFAxWEGWlksIHdsTk2Byo9wnAOrrTwK
ffb9f6oST+ELmwXokgKEzooGABIgJEmlHeeDdLQES6UdCUh2l4FQnoE7g5wsGEflYjz8T0w3/thX
/EHaqCCH92RA7Er5kA2CK7IHwT7Armp98kIQiRUgTpDCm0BIKRgkSEFZIRBSEVhFBhIRQYSEUGEE
hFTocEfqFwLoqAyDFRRERICSdoSHQfXD6+XsiQQkCKQQisghCKEK8cgtrKJVUrmIgCFoh516h7AM
Cn7foB/otkltCA0bIW0BsbLbJbSEZQUVGIiCCMSJBgyIIJEiCCRgxjBgyICRASJEEGCCCDIMBkQG
DEjBAYMHrRJpwlAEC0aQaiahdAgBwA/SE3/iI2PuVcKlJmakfN4GF1wGEEgEUfvYUQIsRIMJE6+V
QwEQWMJESQggwiCH1lhVVjASKgsIjI3CANRkPjBHaKkiKFpD9L8BLlyCkkWLEAgI7SE4qH4ywukV
kVPtGECgkhCxPCcgwFk0kCoA6UIVBJBAhEXQgkIjAIYHeifWD5AuIoLoRP66KA3nbrP47hdPbM39
8sn/I8WWRFdc3hBNbDntRUTVFNmTQtzEhQCgdRFPzpg1IjqL1iL86RKUkjQM+JsPiWq345jDOeCE
6OuoMQUQGQgQZECT7R8bA8RKDMsawo3R3VsXzSJEDviBUYYZGobWRVwDe0t7wEYB+CH86SJrWooL
FIyQRAQYMURQn0QjJSIxgMBVirGMAyyB+aNhGCuSN6sRJAEikdm1wOH1XSAkIfy/QD5BfsAwcl6n
ZOugPn0fRQH9YIQbW+/HvGKcuoICkgQjASgepD/UgByXr6FAtFhEncQoolbPeWQbQkW7AWRKZOhf
wPquoXj9kkKIgEgDNw+H46yvhBP84ny5gC5/URTzBzg8o4KIJ8Dyn7ezkYI7k3Q/rJJJCTtPGDF8
A4jCQiEIrCBAYBACJD50pKR/AfkQ7zzB6B1pW7mtvKKlyr0gFmIIdFCUYhVYcMIbdoRYX5tAflOI
0rGMBSKIwiMgjzIz8wUzIK2NWBU0wxkOHRjSIjCymYSkUYZTKZHC4cmaNXQhZgcGBRMZKxjDhnOF
FI6ocFgZhwDLCPOqhsZJD5YhMssM0VJkKYk4NXBmwDPzMCHc2bMJB7azNpKW02QLEnIMkMkRCYfP
xhCCmopG9BA0GKhZCCg2pIAiUUIAhzqo8uAIB2kQH/OIJKZJCRp2xaIgSKtoIURVCwQVbARUYWCQ
YRCElKu4Tlgz/D/DMUcAkORCyUYlIhyXGSmAdBO5+mQlbT6hChElGRuDCZInMshQRAUIz+uFNBgA
MGQpBJQQKDJLKIgqyU+F/D6BWftZPxfLRiYx/pz+Dd1pfeS3guQhAhLq2Omw3YB/vE1RQs2aLFe2
iQoYLh11ibh+r/ETrA7EhCHMU8wE20Bzav57AHQqD3KFKHWsRyBjISCKBBjIhmWAwD6KeYNgkSBl
6gIL9sQosIgj7CyjD5QPaCSE/oTj8pbEDygBuRsULIB7x4qOwfCIigbh32VLIj6ELMQD8gRKxRh6
T0GRfuMoJgGye9aATJIquKv60XLbgPgbuS7CAvJEEgRR3wSi5hDCWF/NBwoapbKDwQeUKgF/EyEJ
CMPwoD3x74Fx/Poom00RFPoCB0qh8TevzpaTsDoy1cw+XmKGz0CHkCqgsCZHX9SlfaARtCoyAnsd
FkhIEFiwIwDETrA9fsIwAQWCxgyEEYiKQEGAoCIBAikCBFIEDcm35Hkf6wP8/Y/9gQipCz2e6TUc
JtKNdYXAwoDxye+ipN6vAbN4HrJAnqhfaO8PIv0pvTfgyqhWUUBSQSpCKToNPQlUQ/wpMYIco0JA
a+sPECaJ9aI+B/H6SyjJpBZKl1G5DTAG2kY+Us0lqkF2pYfIjGFgzFbRkBUUwpEiDGZENxJJjDCy
Whlgz+Ij/MT9nE2SIIjBUAURgxAQgwbhl3jRm7BCJeAYRVP6lwggRobNExDaEokpSnJaohoiUAkg
F1fN0Qh8hS0n8YfeHYkLoJfmQWI84QEPiLyK9SdC/gn5h4e76tdtNPz6/0fo+PMcOT1km1bRE9hD
6p+tFjf7q5F//Pdo0E1yvrMMM5K78m2dmF2XjdxB/fzDJLB3PpYpra7yG9Hfd3CrdAGzCjMLet8z
Kwd+33PrZ7HphmUzbcLybBeFXnZBkwJmHGYpkSWrjhWlZ1ra5mY9PWAsuZcBJSskUBVOE/Tqye10
GByWOOYV78jKwLJuY9z9HpLljViCLtrNZt5GAf5ZFmpE3NCDdX8X+Q0HAIGRBANXEDLbjAHppS5k
NA8pFn6J2SE4c+zSszHGR079X1klmv7KCgNEfm4A+cbjZBejuRtqCE0lUelfEOfuHnH0B5BofDQ4
67DC3IcakaFdqXMecP2J8RGILBAD5/2lZeSDSxgIYWCAGz/4/u2+VERH/II0LCoYjas5ySuqV5Ca
ghMOnUdwLC3/HlDBlkKI1sZrAyZdcaw1+9N/2L1AnIRCHY8EpYh7gT/Yfd2B9w9IfoHmPxD3HyX2
mYfiv1B8RwMDEPYv8h+CaqfgGmfIeCtw8w5+YdHCEIYU3pRbZ94Fw9o/xnQNtrtA6D4Lw+fbS9kB
8xJCdfTQRQ/uBh/vA1BWSZZlh3MLklzWFmytOK3oE2IgQUugYtCa+0MFVNCDcUy1gBSn2GLgPcXH
4bCJ+gTpQdgZPU8Pkbg+mKlg1v0CYPKphp/zRRKP7iFRf2wLx9I/4061QhySEPbD/BYi5DLgQHhP
bLEv99OuFrv+tiywIkFFR8D+kQBDZZQ5iAbNiUp4D+ZHZAG4eeyefqNHBDzT0HBTzdsh+0QeqLD2
HuYkhIyMiEYAQiyEI/YG0TMQBDzcB9ag1AUkQEkNkAQ2fjPZT8fN+aasWx+f78rYxWlvX8fFi812
2Iu6BuOxUwDE2LCwnCOUUKWqRTq8ieJDyx/pnnJeSfLKZiSHv812ARCEJZo38n/E2VHnLWLACvKE
2Bp/fWC5yz5AOJIh9WqAgypFLIg1pAYJIEjGDBKaWouBokFkpHbF8/+m1JZqrbkRNeOJFAwqJcpN
v4fe4PwxkWo/gJuAF2oHYeg+lL3MHej+sOA/KHzGqCe0B9YfJ3Kw7lD7ciwJrTYvpH5uByuE/HJO
BhDBrDxC2MABsT712ocPSGQc4fj+tB6E+UFBXgipICgea7/Ge0LKlPorUhFDE3kgMjBFiEgcyHK4
l0yhGgMFlpT7+cAzv8j/69hYM5BXx8hXvPf3HUDszADtRROtLjgLvPDbt8NQO5EoO37PoeEsNmIw
IMlqSmnwZKKYwjIHgh1iMdPPB+349NO00UBsDqLY1lixal/FyA4difGWUh5Cy0GGQGRB1AyKixIO
DCcZgeZv17T1eWStHbQNsVCYyNW6lwhpBDIOFXheJelJ/v/32QuP82AK2ae+yUwNR6/pA7A/IfQ/
3uDzKR9fngFFNURQhBQioriCh9q0QIkLWiwSwRFPrSCUGav+R9PEfFfe7/8vAOwOd8f1+e1iAdtq
KjISdvbSEgdyaZnzIXLCSY42b+QPFAtmAsgCJpSAUMyYySUBFI94D2hZW5+ykyZRZocD8hhh4GQP
UoqKskP/H7A5M80809Qw+olcEr7Y7IFwuFEYwGQJzTf6r8gXSJIw9+QlxEdtZ+p/oHr9FhtIKIsi
oVDNhYqhLH/I54e66D0m9UN/PcgRC2rm/kk9Hwf1oJPN+FgLAXhRVARUv3sQ9o/yun5DxAoeJCjv
EoKbKM9ixoiatygko0GEEp2zwYZrRi6ggxkzQHlIZNiIB6U+oObywAjFjAA64I+s1mjBbHSoo4Kp
UIQj9I9aUxh+66hYxehseKxSWmArG0K6w2o2H3p1r9qfgHge8DrT7Ro7VfuHo/g6VV8h84UiG8gP
AIvHUA8QB+Pv/QP06+L+3v09/vSbwjpNIwqs6ho57nOCG0lhR1GpATdGKzlGEZJNiUT/oBwggQof
mB5EQGQQGRQg6TsTkch9w4g4DE/IE9YH6qdYH6g2OlOAYVEIG5ANQeNOQeXvR6w2nyeb1gcQfSDQ
dyakPEhcfsR2YAzDeOsDszHlBcAd11MAfeeB1r2IYBmnkmt9UX2aenn6z2UbvVas/HljK87efhzA
Qdpz9I8D2gecc0OYNE8QDyqYHSBsgeYZr6V7w9o+SZh0rkAbzuA4wFBXfqHajo+7b1MohUGf+TxK
Lo35dIV/ECCQTCQIE/eBkZ+QIYs949a94HKmA6fHenkgvNT2O9PWPZ6hh8EetMANn4HJOwC2QHBT
pEscl7vAOn05zQfNcE6Vd/tDyesfOPt4oG98qBSll+mAX5uQ5dtGYfUeLQf4z3OG3ClMhsUvIPUn
MHecyE0T2RYHoPcvpWIHYHqT2B3jwAwDYduwftKDwPTaEiMh4q+sKC3SnRQ7G/vv5eeXb6c0Pt6a
myUEgsJFIxgsi/bb+lD7UwQRZ7wtBEgKEIIofgNlP1aIVgxVNc3IgjAzMHKHNoJFPa98pFkPigci
HJbDVKEsA7jQw75iScxK0ZWVgWMUqjRgsIoLJQJUkQokYqCRlhRYUqMFJ9zCSmFltkiVjYJGBbKE
BS2URgxgLCTBMwouCGBgVIwVBkhLIspzhiiRTBgUlLbIgy0SjCwqlqRKFYpBRIktIMpElCIgWxax
khLIkLQsFaUpUEUFLZIwAUAowkKhSgoUBRosYUKUbSi0sQtsRICMKgDG2spgRFJTIQqKWIVBDMMT
AoURiQurLlJUsbCCkYFBkiWkFkRgUFshQLalskpbCBjMgkI5SSVRCjAKUUEpY2kKNEGS2DBqiJYN
SQoKSMCygjIUEWSKSKIFKAW5QpkJKFsqkoKaaqJREEIRUCIFJ/kdHP0c/NOvqvbGB12rQ1hsTkEt
BMs9cs9tts1dIBIYDWQWL4SSBRklYpFFEVAUBYIMWVlKLISsAWLIjBijDCyUiwRFgwiIpRJkyyti
iFiSxKNQEYFYVFaMAuMi/AZPWyHriTSOU9jOOKYmAgsFijGRgRRIGkJvKzdhiTaGM0CKsSAoM2m3
MoUYIxfwH5P1yYH4Uh9scUgkg7RWmJIADt9f77FrnALJ3QRbEFYDFhAUCEQWQA7og0RBCRCJE3wc
EFG0WRVqAAFEUBGjJYY0hllJIxk7MIHAIAFiAyCjCChAi1FM4olkSfQc/Pz4MBl6ubzp5fLl01Qe
Qtmh7Qy70fkTA+cNApIPUB4vmHaHsHYI9bCKdYdn9w52uJkvqMek0eIPAOPKHV8w9VjnQDsfebUP
AG2Y9I7EobG2BFgcqPSdY8U6zhICHLSAUR8OisiqiMVjIJBjkv5giTFBCAKz0hZCyJPqgVFixIS4
kCwHAD6xLAWUbhBGooUjFhDMECNlkQkYEIxVYIQidsKSNiXSCxEgG4BEIaII0LCV0OlEFyNQCn19
qEItjG2EJYy2WEIsQsHpMihFfSEFAp6hFayLB/YQhD+lppCSIxFNagTBBDUe9Ij9Ye/6QHIDUQBC
HwV0dDMH7WGCl2JoUCCMYCiEBBnXIIqgoiAiMEgQEipBhBI2VSAWaQIIe0Xx26fKRhGJBIz5pDgP
9SIKqqhT/VAiblAfUu7MiaiAh2wFwDVSVETy/55EWSeZZCkk9IwkCqogxVFiChAgeIClKYjBCEQI
d4ANh6v+Wy+QfEfkHYnzfrQFUU+cotPklIAUhBQgQF5k5UaBKBBOaISESKSBZgZXOlNAxfwKB9Am
gIeaKLgRiIpQZAkokIiwSMIgIMNSWsCMQVkUWQE88FGkiMnohe1ISeEFSpTJhQwaUKgKyEqxyUQL
YzizSFzMKCakxAaYQSsBa1KijqzUTICCUNGQwTDMyZhYRDBUZERRGmhmSCojhKrGFxpkD1Nnli2I
JFIIQYM96QDhv3en7esv9x+N/y2Tjs1JICEjFAgESFIRGUBQJXJorldCwEYsT9rvL6xDyJ+c8VFn
/3lQYlvN12HLoR+Ie4D50U/k+7PXHtRZvPoKLV/fBgQACQX30jUunpjnAWDP8D2QP6czANKn/723
PYBp1WwKUNj/N6ZpgomM8iYLVGf6hyjY/xoGh7Ij+liD/XAA8YGqjuRH6jIEiFj+3mm+ZDhwj7Iv
mT6jC9F9L00xjBjEYBAYRQuERI+VgdJizQlPaynB1JQMeQ+6aM+nUTRpMSmXgsNGXWsyGg6vGj7j
fOBzlnAe6fhK1/Z+B958glBSC0CeQAUYKXMLuP6DStWLPCb1tuh/UuYQkhJDkXNILkQ9cD+0ttA5
bHMnvDnbBqJ4QPAjXVQdtJRA7qAqAP3okZGm70B5i6mCA6f1Ua05f214pcZDTkNAWGQJ6McrJxiH
adyPYA2Ex2x0l3iRXxpVKkgNyqTkEMBEZSGUMQKLgqm80iHYxEjEg1TSQJBiAwiMCLIVCjBEIhIM
kGAKAwFVGMhFAEMdyHeIQSSZrqc8oMTbaksxDom5GOUENDQhXhN8Q2igicp3WObdyts4mDhnXXxT
eiof0HYfx/8+bZsNGkpek6UT+ljwo7bEh8p/QLBQZzwVmtyiB/vhb5+WG3bmHaM3/Tqs6vEhXm+I
6ojBIQhACFuYSZg8APFPAulUkpNZC0SnbYcQWAoay0/VTZknd/0ASa6HqmnUMCmtVzDLRLRSl5QN
aqgsVa6SgX8maCZ9ocb+k+mfTOueaSHZ7GrS2q1hWC0EsNWoIGHbAmKRguBlhm++s444Ditn/a0d
qw53ZX/5aoGbxDGjbDop1ozMjTFXHMXDkBmGzZohwwaCmogsmq2kZvubwBA6mC1EIIgIaU+X8FOY
88X9IP7VaQR6vE+uqKqmUSiqor2XP5YfeD+lP52Bfibg8hh9PvCksmABRIgJAihqED8xGfOi/wvQ
A0ZfzI/xB+gA/mH69O0/fKDQAoLEYS363cjQW4mIbwc0BgH4HFBSMkGAgDJAWKDBEREBBIySAkkR
CSMUIiioiiIjCALrEgAgXRcRRPeH8yRE+IoYCMghsYWDRIkuW6Qqu8BiDoCJYngVjIxEin4ekPoC
Us+7/40DBhBQH+YJdgU+YkhKhIhaEgt4aCqf1YsCQILIpIwjzgHiHer6ISIQYMgkGQL70GgbbrRf
xM6UIRWRkFtlSsCIpa1KiXgAwIqcIGRnDBGydgp/2gL/wMIkQT/stToealI7AXNQC/znyiQIG5H+
YP3AYDnAP1hh2DAhO9D3BGoEQgXStyfMB5PMocE6PSPd3xMN14R1qbiKUEQHYPwQsbr4ghYsni2V
BtFCEUIxUBJcpkKdCkoFmQ8VozrqTnFbm9EDNICgGTBAssEhcApDCQwqxhFIRhBCB8IIFKFmRYRD
/QOpbKl0PICf80yFgT5Q+tgLGIiwEIVIBUgkirGBBgkYSfPzTyVQf90gAB7Ij5wEP45JAjnoEi8x
vOo6kO8h+RCEHN/CDJ+Ip2wiRESIsFWDGCLCCpGJGDJCJCFilajOL2oiJZRsRUNfIznYL6K+gRN4
YTJAzbGZnRKCmCQbuz7Q/r3MFiGyUGf13iIqD+3924ZxcYOWqn4e7LX+fJrYmZZ5AgByFwrCyBFD
90Px+tPGSQJBiRjEiiRWEAOPLAZzPvD0K18hkCgr8mxOzIHz+c8ifziWMhp/Hn8IfaUEgHb+8gKo
rCRgMixRIDCKa0u3ICAUhSoXQ5+yJ/SAZLgX/WEjCDIrGIwFCMISIxEAQUSMJIIgMiMILBRBDzTr
3sKCKrlqksiSojA2nbVJKaqIGU1MNIpgwUNQNSwyEyBQvrMuSLFFisT2h+O86g2wZQQjIBFRDMEm
QoJzBQXIkQMAyDRBRIJQjYwZaeyzJGmRC0FkCzRES/wA/MFxQwGtMrLVFIFq+xLFsEpG2heTYFk0
imhWBRkKSIiga0jYsqAyIHWKWLEF/Ae1V6eqJ5jGh8KhA0rsWxypc/jLZAXCQgDCAkioSSHpOlF+
4gIqV+cP6EoR2ruiHw/4pT+kDX9DvKED/L1pRyHgnq+od4h1pgoxchhTVMUajR3r5PxDP2j1pALh
qHznMDv9QT8vj0gTzGCIKNaNVdwhALQmFgUIs0igTAxQC6KX7nUmtNDC1QEchMKSyCBiWZkkIB1B
ut24iwWlgYQsgGUHvgI+I5wf4G7Q0D/e8hDzD5j2Be51gYvIh2wENJ/jO3uf1e/+1PD+vaX3/or9
TBhh1NTggVUIUWZBBCDgxoauCq7j8XQYpP7BSbSEqCgP651/2aNAraH+xAof6gAunSN4GzMAKBYF
3GY7m96DjIIMshgXNjIEewPZZhxrjZc/F/X3mtHr45NtDXtZ6JXaWOatmPCBaFiBjisc8qLw5EMr
cWW154tzloVCPzqUezKzD5kI5MRlsTrD6PB4kzREQYZKGEaUKkzhavH+hwKlGSgYFsYJDMGsgjwI
2VScdD+zBw6Bi9KF1qyiAoEgEezbisAEC2g8gNxs1IQed3f3oakfQuvFrDSpZDwUMjlq9cQuhPXB
rORJOEznvm0NjFBQ545HZMvidQqcehs4zpODlJq/tz5Ex7CsXyCPbrb12tYHc9NBp0c8w7ZioMH/
x9p7DO7Nk4EsnrzrPMe/AWG+YWpxM3m2PWYzzkocu8JZxqQ3gxlQr2+N1uleTmmPOuxNCVtEDDkD
7TIQ+GdtRUYX+0gSeBBBHCdEys/V1InGuuA81YtE2ceWtKYyGxCUw73gzXWyiDNp08QQ4EkB86Gd
ztfJ0HCKRQEQbRpZS1SxBEKqeuCUyHpGdhnfi+MNXyTjKakM6893lPSyFe5SWdbZnkhstldiZqSd
8mnhJ7AYG0NDPAw2PRHSFP2+eQEeeybw01PUyHg9RLDR4bBVDUYTO/mROyZ3yYeoL0Z46JqYHrTl
Jxo1vY6fLjgdbnRhzuioIguXh9zgPOiGclJHmQFydWZY/8RlGStJRGkw3BbmZgWZHG+kwDGCkGD9
GQqyN1Z8lCA3JChxhSk7Oefc41c65H10CbYTkMKXVD154+kzbkFR+ZFQht1+PS3eb/JV+BixPJRk
XNDja4VWICUP7+jcLN1T5wucljQIa1pPwNQAPpnXoZMftwsz12F93GSICIrxRMxSJepAygyCGB0f
jw6bAMCgLgKAI/V9oaAo1GgbiBEAqkTIoBQshmJA4UUDGyIh/GA6oGwBI/QXdsEvYystWKW8V2I3
Y5EhBgYVjnxPoX9ELhQNoZmo/soNXiRhNKkOFopiDMCjJplD/sKjGgekDSa7A2EYoMMQ4rAXe3PP
EBRkR/ajZFHvlwhN8GkRy8N/uoXNGTnZujGpYv3BiTyZrqfXxgbabfb27eZ2ERERHCjDlmvJI+JY
gSkzgbFErRgF0LHESCjuSZIGJnYsJIC1Wm3fguEUwzBonfbkbl2go27SXwu13ajNhimRnxxvWOdq
jvzcnhnhibXTwDgXBBKBPdKGBByEIW8+EpOTOPkuja8Nh0J6erLAZHTgHMQEdwEBiwZmJQIJh7YS
R8fAgSWxWXJYTUltzqMdOVTBhclvtcDcWERwDJBGukCVpZGHfACHmw0bN0DIaRXdbcJasLuMiVkX
zHOswhmgDdQ1IKwpqA8orlmUcIJlrC2qlGjwzNpgGF9XhlEM1QTV0K6t3TcgQ7zwcHjoDcuN7ZjA
q4Uhia8+MxDwnDDwhtPj3w8U5YUICb+A6he5vY0A5wTYAgpANxSiGIXoLwQIwjfAUNxVybY2dsaY
wAd0idWTRqKKdUHJIS9guhCGHeLLRkDuYdhMAmk8wzgITAk0YgtUFyGrAd3dV8tC/X1UoVWtHQKL
/KHH8g+fr789dgqHYdw2POBcPpTu5h9neuZy36AsWDo+QbA8QDmD2DuNqHYeCD6QMxFfcD2DwVyD
CnpB2j6/AL+4OkOfpE6EcvPp1DxDghbmB4gdupafIoWyDzhYbcQGwjwDkvbycU4jpyJM4NjhfnHP
Ku6g8874wxRjO4Vbm823aWyHgyGYyGwHEFgZIKYMaMnODKmFMBkgNtGosUCKjAi7DbgmVlNSbjKN
C8DUpNEnAP3gFO+nyQ3wGjIZaJCZvELeizwDCpcnBpKULBtQ/EscOBTcMQA2Q1TaFiXMeYmyWiQw
gQsxP89f12CnfmoKFh1BIURib/8i4F97hSJsOwFCs7DA0w7QGdi5Otfm5wUE6CIID8BAZmAwYAkZ
J6vZmBEVDwzIaoZIS08mAylQxmpx/H0nyiO4RR8egbx7JNanF/aznICSFETGsB1I2EpPrRPrgbn8
95Qf42P4jBQBcPz8qT+T7atX8/6/6fzVD/cZGwvWcDRbhcSsq9bEwNTp7w8E9Y/0+yT+y0C2ltLa
W0tpbS2y2ltltLaUtjY0aNGjS2xo0aNGjRo0aNGjRo0aNjRsaNBLGjRoJQaNGxo0paCWNGjYljRo
0aNiWNBlBsSxoMoNiWNGjYljRo0aNBlBsSxsaNGjRo0aNGjRo0aNiWNGjRo0aNgljRo0aNGjRo0a
NGtGjS2jZRKJRKlFeA/ej9gHkfoPWaJ3AXfgkIRhEvcQ3kZEhsNXe8ro6noMm7kZnwTNLn3/DxNy
XA9gRDNAE8yEEoiwhUqSfGyFPKzTghRkEVBUZIqKrIiCxYiCiqNDJ6sAxJP810k9JOwn3AwCGW1H
kT4gnaHqV6U7Q617RPszD7g6j59IfOcLeq4DglimlEaIDPeGVguCH57AnGjjJiSDT97o1DRdXZu1
TCybEtUzmQJboNa28Gjj2IVB4/Bxjqsk1Qtt5kuEwp2zl31Lx365CMyGmScIbhEwZ1bO4nCwgSpJ
iBLmZJAWGIYZZC9uSzTuttpVsKkZBjCUj/GK/pH68zZ+Pxn2/bbr23vn9U3rtGb4IMijxCgTQS6P
FspKWqGpBXmCCFIkAjZSZZLdseIGC+s8iPW6A0exM0v6tAKCm/KigZEYnmblkrJR2jrDrQeia1Cf
8D7dmQskAN44+QV2cJlyPQf92iGJ7j22LJgZm5C4bHYlYTUKE5xpC3z4cWOgGyf6GI/VPr+ejVLW
/kLJsZybXc3Q3RHAevrfcca46yOvur4QNFNSdMC321TSBwgEIDWFA9+C3gixRjIrD9MC2bsWSFiw
+cHOMIOjjeEJzZQ0TIoZVH5mSfzROdUbIJ/VR189Kbft+1+3QwiOefVarUqn9eC3LexbLVqxInMg
472GWdFXrU36lxP3wAd/8KKqh+WfzE57txL4Oihd8YRvN5OtPA8Be/Yo+d+wJ8ofpAfANaHI9dDb
yAfpH3op5V6R3ps39KHMRKtifoySsWQUBQQkkFkASC4flQAUxUsQEkQiiUUiH4iAIepEVHi+aT0x
DRVhu4jrof3K0Qn5DG3MuYelYIWHQMw5yEkYJcKupBpMiPX6YVLWlkswoNtbrNEDIuxR8FinKhhL
sQyPSlJyHiTCGu48F1HDdRRy2pt8We3kOP2EQ9mzzwuZJQywpiSYIAjkEVGFUiIFFETxUggcqiOJ
AX9EttG0JCmYyaADxTpCiEUO1EVGmhHiA/YgQU0HYAbe0JyoIc0QOId5ZdYe6HMrqA8uijuLBXaI
Ah+cfvTHSiegfD+9NyeV+p+X8KO0Md9tu0Lh5DPkSIRIRIRCKcQ6laAfA8ENf3zmQDy7DXAAkA7g
oD8E2H+g+aAQPMJtQ07NCiB8saYD/lsosAFT/JuGAH4Q1CyTxBAsQoKV8AJ3pLiHHzpoWPEh35Qi
kJsgXdf6OFuZHiHIiWB7wf0r79fV0d31F6PsjX2c/sC7dd3UO17kfjk7M3+8lb2hsWdpbf8aLw8M
fUZGA/l/kODkLosjEBINSFYRBUPf/OGD+P4FdIpze1PkU4JF1cvcgeQJIsIMkgBEjBhED6aRKH6P
4QpLEQhAgKcgIUFBEGBtBsJPxEZET7ZqjCESlk/eBoZ+4mef3/lQw64MFYJESMiqijEUxkLIMLyU
xgwQQmbeMEANZnYTDIS6ynJaKXIcyDiclzWBNa4LeN5KHG8OcySHFpAURBN4EnEMshgKgsRSIMVF
gkYhKxkhChP4d5owLvYhYQqaN00houoGgSdAfqDgJnAlpWJFULAOYwZhBhD9Wa1IFgyBqPOAqLCC
JMkBOqFCHeRNSCbIgiiqiKvERiSIgjBWIDEBEBFpgQGFuo1RsMEfLvFIREO0kSIUMCMBZInRQeuC
f+EUfC2h/W6Go7J/TcJvTjCQA/NMUE7+NOcGQPzDHUiFi5TVRKYsZ9qM8QY+4scw5fgIAhjXYGoD
KAf2qwsGdlLlAoJ5w8AF5lLmSd9CM7myh8Xy4gUDtIMChBEAQrYRVIREYRU0Gnxw27FA2kiyIC8b
hxG6lKGh5aWjkqkn3gPxHruJf3gHAGjgfUUJgh2HuaS+ApX5wnFET6lt0N/zw1FUqWkhpDXD3wOi
EfrA5h+0O3z8r31RVUFtLaW2W0C2ktpLbGjRo2NGhVUhVUyiU01TXEfkRfvA5R0V6g16PbzB7g84
fWDmGfAe9SyGSnv/OP1+fadPVA99GdqOs/AOX4AfRH/FPwD9V+Y7K9fWA9/fz4ECbj3fs8/wbX4f
4Rjgz2USs4ucOoA5VdHy6o9hJgEmDBuJllgsucCP1ffGweiNhoycIDJSMjDgUYJGMsL0Z5a42UNS
8hFAF4MLwUvQhdgWFDw0mkgUayS6pDsZmAg9X2aob8GsWRC4QcZUTK2mphrvNVWrHBsIfK19T922
cVgM0CuH5IIggp2JP9kSAIFlRCCW3bkvg/TXxmbh0DAh0tkJAgMzBixKDeaoZvwjkFB5EEvmU77Q
koFO/jsB1124mJ9Xjrc5L6Zrakz0qq1ugUwvf7yC2U3buYywFjFGzO98m5Aw/CEqXkihIAZmQYoi
IM7CwSMyjItIB+UAQKZz2kWYMiinZjEoh57478A+WFmqXzQs58uxrO+zk2uG/24cYKatXyAIw4bG
CwhgNthNCAFEGg5IwD0ChlwOSG7RCt44MhWcTReYR6knbrZo6CYbYfwSPg30RcSIG7Dh+FRFfICG
HBleHwtOvvIYDH1jlQ29PmGPrP93bIjIJFiwGBOEDeYwrMDO4aw8zSQyF8FPR7D22Ged6h5Mga5t
sybGMhbOJQWayC7RscBbJo4OguGRfl2BkAUKAH3BqosQx9hHyhhjTGeL1zrC+514puTAzEatwTcY
hkbUPCNyBpNCCBhlAlDPIkS7GCknDkzAxBJSEhDoShWdd+Xt4TrU8/KmiR43DKEZlZYpm6TDgzHd
BIa0C7MXpZGGeKM6L+OXEcaqzvqTSJ3houV1ibuxDGrZGUIzNwaeDIrgrHr741sp6JQSABJwoDGR
b1qGFrAZwalIgOMsF8AgyCIQHmq8CCCCCMAWbZgT3jnvUg8QMGwGFswMOfM2WppIVeHxxAd+5QB9
0CFGZJpkUMApeiDRGyXwyyzwNTgbOrdKGh9BngHz3kywR9aOXBeKzSsvrfHOjg1Iu2nVKve1gmnX
bXDOLvO2ZJsNWGMGZKYInE5GCQ0CEYoIAah7DMO1uK5RkCeDgYoiN0bP6K6GgPBY/VgWbQQMp2pX
iDpIDM9lzyOi3Uob3pKZnaw2dXYI80vkHB0a1wHU8nvxGHeMCVhvrrQTAA8IIggwQChM5shez7Vv
xt7lbMadMRj2rCfqSDGKMwN779zN7M0m0HkN/JnRoGcws7iWHDvO/x128zdYPQut4WJq9YZTWVx4
aMu8Dtqg4ngeDoutmOKr67rPF+bDDfaSB6MgdJzTq20ZO0yhnxvDNNqxd2WhVTauBhiXL7rA5iRI
MIQYFnSN4CokAGQCwDLhmTDmI0TPITEGSb6/yl7GAvkTimvBdLtrJgYZXtKwlnCBQsix6woDvMrM
1LMmih+Ln7xZe8DckEviVmoO1kspglFZJkRFAgYiXz0ikpA5SwXEUZw4dzQQIbbwrgCCMzEK+nJx
vg5ZaEHSaZ1alM+ZvpG8SJXvLUmVVs59tqBMkhWEYAQalDBNIj4tEHIf5jg65n/zPB4SQhgt8g7E
8YG8Dg+rQB2cddcQm0N13NO95vyzYPmGzAkQRVITlIEqENDAzzso2VAuJdliwGCFEVMkb0NEAaik
L1Xj93rtptaNtk+nbcdjteTZpjFaKOoOOJwz9nWvvEPxSusLOia+OG/hQ1cxINhDUNyZXJCQIHIJ
9SPcmq8hhdD7Qs2kYHiHMPuX5HyFPYJ1oHqRHyMQ8g4BmOafFM094l/KPQW1B0vgvAeIFhfcAdQn
gBAuHRQBxDiqvnX8yGYbU1h7k1D3qeXjr1u0IyAdwkwiBT8DMRfh7bjyks4cwK/gWZ/Xe/0fV99i
+lpIgj6cGPSBIHyqGAwglCMCCDOkMEg5w1777OSTSfp+jAHcQTgKnZNIZQKYyEuiIFsLc0ECGG+F
9gumo7wocGBkSEKQKYpuBoTOFru+hDmXUgehqcanBq5lx0alMJ5044khS9VsZbGbnLARQwbRsBoR
dMJi1tKRuoSXvQIb1LANiQmQ7tg+fcVgiopBFEsMnXYDtJrQAkQ9DMyEPBb4RRqDqHxFq+JpQWDH
cDQ5mtAXkSXXcFBIhQuVN1xSloZkVbmSUqlIMC08d9HUASaTkQFgWgtJAvplSMGBkPUhk4MaFsw0
JDaHBAPKAYGtoXQwNTGwAbwg5jAdUiU5jTYxo6shC1xEgTCC4IgVANIi6BYKJOqSwiCCOoWHgGTO
oWxSAxJFCrEWRgxIPJIeRqEZOxVm5OQDZgaLKQk9XqRWIMBBRlvRUVkFRBjFklTke7GtUopWy1EO
DrRqAw6OOhJyCJKFggKDKFugaI4DSkSjIhZIHT6ywOBWf3zDXctkA00oCbKspmjMEBCiEIo0Zlgp
uIX+UnA/6HRruHSGg6Hu/HYt0YFFR4CIqOicoO8iybmFEkBJCIrBYAsgoAVRJCoAxgBCKwBIkgvs
X2DSiWIKqSCBr/CNgB84URWAiJr2eWaqX+EsuWyIioiwYCRWIjGKsjFUEKjaJaHYjs60Af0Bf64f
3JA2ie6UdMJFkhCMPsodYmw0PeBbI2kSDAdKlnp5ubQzOnpkCf9PRDGyAYT5h64aqCXIjjlkUFbR
BOxATOnBMkA/hOb2UH4pDyvVQNs0GMRCLECEAhE4DoCtwxWeqZQD3DJ9jWbE3lZxA7dhAQEYRIRg
yIjBkfxCFREkBE9kgZIJBmGSSBLv3AoK4XTqS8JEPIArgDQ6bjYqEYSHNPwxNU+qB3n4j4Bwo3b0
H2pBR1MRT5Yuvgf0mrSBfupJv719nxHGQ+nafSljt+o/Mb9VoqCWMaVowtAWRaIofSkMMcue11cA
yQYxTBhLBBARjAYKIJBqEKJFESCJBIwi6YYxEiIaugWQmEGlWySMliLEFRQWRiMGAtICQKNSNpSo
UimCUBYRYIgCwUSELRJRSSg4YflX1+Nv7vu6Fdc9Yla2YaW2QiSuhARMgqTSWRhJVWhYZAYTzImQ
SaTSWJIVlckRiAsnsIceYGw6kFJHjOD1N5dIe7tuiZ3GtkvKbHToHqw642aE3o2FzWYCcfHfaTRt
AQ6HlOECjNdc6w1Owy7om7kDgoa1YCKtNijMhsxEpQ8hKAzNNvJcByECxJTDPFspgS4mAyPegYiJ
sFnHU+op2ZAKCMRGIMGRgsjClA1FtY8R9pE/b+qgT+ObIiefzlJH1QoD9kLkPhAPiiUD0I9BZLDC
Wd/GKQCIRpH7vZIQ/FA+IrBZC2ixQSIKCySkFroWmn1jFMjxBgM7d1UDpgDK1JNsT55cJrqdOgpT
jRgb+ZDV4CvmnPIUnX4ihkNF0OChlB6vapz23onYoayYMDgi5xvnlC7Fo1tLpjZlFjAMRxuqGOWl
TbFRM4DimujmXVcMguYoLwkCJGmeSsk6APBmzWkJkC9gMEAj6KkUgq71NVKS0uBOjmSKogiiDBkC
DCAnhzQ6eydln9aosEHujQRkZH/h4KCYtBJ1wschs6QVsCZAlCWMMkYuFOrZkQmFFLaJZmDVrJya
ykLj7sIFgxBjIRZ+YKRFUckJkARA250c7h4cfaByJ+YVs9odn3vrAgEgelAPgfqHD7w8VPHy1C3e
fbVeuUR+0ekjIKkAQCMRZBevz0MYAxYwUQQZARqQpNwd1ZA4MzPwOhDVpCoBUaToZM4JxFEcLFBU
giM6bCQmEAxACWfhDuFAhuCDASLEFiAoCDGALCD8ncVEYr1zAzCEIyS/BUfVP1Yq/pFH6e8pUR98
RB0whwgYKgBKzaSYyFSENIFRaCAiJ/fRShlER4wzgPjXoZ92Pkwp9wew+wPlP8yGLgBQKRGChuQG
gaYSLCRLG0eDF6xiBF+0TegerXMmIHyiIaLMYijW6qCRhEqPxPjew/KR+uGstjaY3SqtCq4ho1su
ON2MmH/eNjGDlhC6bj2zzwUmoCkWMJiGNiK7NGRSZFggoIymFMczAMIZllYKtRZFqiqiKyCqSmUr
nJSZms6CkoZGkYVIVlpSIyFNbxEhgogJlpbCopqfrgwpIVVEWENM+Slf9xyFxbygxLWIqGMOVZjO
riqv9/QFn9c0YuCU7eMNNTS/uaKKpgdsyL2HvifC5geunWiwNTksxRh5dyxEh31hinOFIsFeKGmY
wcoKdB6HtIEnwmv4weB0jef8f93p/Trms2UH+5IHf7X2h9C/enD64gQYJ7CsxyYK8SZDHGhEayiU
gqQn51gGkQu/IHw96gH80St0sBYZYTZHKRYNZimXoCCYII/0jH1ZK38Cg/pw7HVRYcKFAqJhBcJi
kYNiZKGWPAzKiyqgaZ64hgjiJIwEOBLkpOLJTCJKCSpaCVYWqFlaKLAQrY6IC2wmU2WzFAUg6GWT
LSQxCYFC2AyshigkcNGSEwjlrqQzVDQGjQIClsVLYyGRCTAIwEQWCJMIwmZVTp0pWmkoDE1Qwss6
dMIjMSzVC5ONaA1pQLChBCsUrU1MrcarEYiWGOQlgiyKMhrJKRgq6IXNDNuwwtJpjLHK2DIituMx
hnGsiEHAlhbCojQKh3hJwfv9g5yn0/k/u/pNwkneAeSCwE8WFRFakSlIIxASSiQsth5BchiQsuBc
kIljlx9ICe4PkH9pkZg/wjxOsPMPMj2h94PWiGpP4kR4mCJ3KfQDyidBAzgYlV2BkifYHfkYVJ+H
kH/GcIaPm8+hheUD9o7AIPOP5eAByLmcoPeNDtQThFJGRSQAZGRBT6IIcxF98fvgIYhCBJJIgjOt
aOl+UihEAr2TpIe+XSRUhYhRjaPvC4YBELIk+KFj5oimKf1KUwR8tLJCjIq8fsaAYklJWGBXAC5L
/OM2jBBBRNpHQ2RYskP+sED5fwngPHS+nsvUFIgRLwaJGgYWQEQ/ZAYRBbYoIU36URAhZCkRAsJz
KhzHsOUfyDxAFeUDw1BuUPGJCJ3o+5T+qvF7/uTYerqJCZG4LraAgXIQ63se+GhFPrDDAIIvh6ry
GRBgkeZvxHZSBFl3fFzFfKQTch6fPNjkUWpUtFDxkU2sWMhJDzOWX13TiaLnJEsBUjA+szH7+1qR
tuEwNmAXLBAzawVOKUT4CAJwBTmN1wN5m1TCHKplFiEEIyEFABSLARAiMICCqkhEImQSxgMQhGQR
ZBFIsIsYkAZEYgwFSDkgt8y4FySBMAf/cWYBpVzGRkkkkin27P+10uQjJJBYKRWRFJIIoLIxg+st
CyA1AIQEkAH9QRUe9OCGZxDlHnC6cQ4GhAKSQIJEiEkAOzt+j0J04yB+rRTkSfxl0SnHTtNQ1T8o
6EoakKZgnTSJiaGmWSUo01ZpMBA+zM3N5gFe3QLEFOoAowYEwRfOSPag4RizB8LtgGaiQyUEutwG
XH9pYokEuC4oQwECWPeF+T7TaafKagQENqTVuDF/7odcIUpx+1NalWjeJCGOX40F24dzVPRb5D3m
szdqkaR1ilRCALE+j0v8oaNwyg6IinMp7n7CHAetYArsEJIRBSKpAVkCKQEkQIbSnS5+tLnVBCxI
xp6sj7yvuDZcDUaEcHiseLXASEyaoJEGVISFK0wkUCkgRIZKqB1RFEspkBQngA6DShHJhSZlmw2M
05SLq2qn1B4/7DBSmu0AbHeUlhIMVkIMgsgkViwVYIwUUh/KfIB936pwZfA+JY/deiXLli99vyBS
k81/wCvOZDEDqATmHnIvqIXIVJHywvEbMKKFqDTQpcKKtECljFEj0j9oeMPG94p2gZvID1GVGRae
7v7y0FpaH4Qm/KHP2ge2HgofRGDBIDBigS5/EM1APPNx5aCfil7SRRgJOyn1AEgBhF/7v6ftgn9t
Q1dLtU9xzfFfUpRf8A7U3gdydY4B9MVISkna+LX/L78kOmFJaIXhUyywlrXvjAGxQ+WD7ZvA4n6g
m7JX9N+u1cQ/uEeI4J6s+CbBzDmHQGKOSnmOaf5YaBmnsHyAfRjknz/L4Du+CdI8idwnWs8iHegG
sPAO5LpwHiAdw2U6B9QaKeNOA+MDndAIiB7iL6A8sPMSoUSBUJCQXq/inUnEPVvdoakFOUDnC1gT
4pxTap4Oxc/WIaalIQA5R6hFKTIE4tLjAhFeI/mFyyrx7wP0w2Tu+SB5D3/EOjmNo8ojvOY8gYDp
CDyBA6oFBCQeZIWDkZIT1WFAxNNjBdCFgpGKTSRQRCCwIWEiLFFQYkCEVhBRjJBEIQFhGMVqI2Ou
4BvDn9HGvU+TjfWusiSASEJIEIsSGkKIlOxBMQJu+Pkr0GCYoH/xYSLBIRGCxCAQI5mcACmzNBbR
BOzsiQUCCAowWCiCsikkiCQWEWCgoAKKQ/MSyFFBSLBUjD4kO9CTIpILBYIijBQUFYIKDBARZEYL
IoKkgkkSLGCxUYBAZGRVgsIsiCMFUVRWAsBIEQWIsUkVEEFYKAwYyISMIAxSCDJEYIMBBCAIgCEi
JEYERhIyQIySTLUfb7T4g+pMlE6WA4hxpucN6bA6g7+d7/lx5Tzh3h5wFWCniUTqDuDH+IqYiSAS
QwAnZyikESCQSBIWgdihomHcJZaRxIcRutKYQPSA3PsX1n8/uYbH0OZ9qFJTS96vtBD9g47RFIkF
Q/4QEFoYkYCdqeJCBEg6xQoZCKECJ/4aiwSSFlF3Bpjkkg4sdw2C8qJyphPENjETE2EUZFdS0UkR
jER0t0uUSMhTzgCfL7UY+ricoEUj81CE+pP8kK+dPNgELkQRh1orgRihMHhTbxEUaTMkPs+2gq1r
GYFgYR8RE9sX+wapS//qZW3tvnCxVhCjkVGmwW9KOa+CPrU9w9eWqeLw8dqiRKav8sGQYZN2T6z9
72chPP2pKCNaPxEogbyn1gdY8h/j4hhjDrpaRPrQiMnD7VPaPxU19MPmB93YB2p5BOx0S4gDkKdB
JvqFNJJFgChEYiQUkIgbgZLgYMKMIbzphAnGeoAuPpA/oTMAEP7SIonInd9p92aj+ggBGJBQkgqd
SxRyh7ushhEqWFI4USyZn2aA0B6H+b+CqhzUC1RjBUWhf4kPxYQLLL6zkDjZDlwYYyFJuhhfl9b/
sELISCIAAxkkEtrs+5mBhNzRz8CfsZJFIixFYHPxD6A+EDrsIqn1Np2suMtKVPKi4aukDEkStjBn
5JKFRIag0SUAWAE1ICgVkCHmyBJTCwEK6QLIJFe8ReYtq6/s5GI6czQoR1sC2VC4B+8mhD7eQiR+
TrU+4OlO1T1eA+jBD8bhxFg/mSYDWPpTeniBi8wJ7g8C3vBZ2A2QsXD/EyHRTQLj3Dp3fT7OHrK1
PsYIe9Yn+H+1aYJmXCfjQlDH/KZCeOp2Z3tiRL4v6pNXW961vjoYCD5QQLBhSCQA2gpC1IL6erxP
QAntg/IL6OGWiI+ZAUv1+MOGOBZ+7p4Qh0jY1CWCBIEgT4g+F+KG4dwtAoK48ND0FtpJYNlaDxxX
zQPrvacymwLD8nmG6WOKPnzIJ4x7RO8baxuF1tiAhunxDtSjWHmDUjteh4geUD5hwB0nBMVo9KvW
7D94Hi6CfID2r2h8QHQ+FBxEudBsCdsIIEBgk7QZRIDIBAIh/x/XQXSMgJVqAOUAEU8yRV9Yx/hB
gQ5sEQnjWPiYQhIECEkfgNqwSP85kojPv/1b9P5zWtkU3/AWgpZxkLcWftYH4GKQUyD+6hsxISBP
7oJUjP2nn/dzqAbQ4TEPQR/V6/Ep+pFiimZKYixRdbWa3crQZmf7f/TRrXDZZyixR0f7OrrY4BgG
CJxSiJa1pjRK1K1rWq76yY6QNfTk4Bd7SKC5ShyOuLNRVWKbpotKWlLSmXLRFalpS225nOZo0V/s
dAPm7ETngOjDQ8JZDRQojr/+tZupTmFYSHCPuymkFVU72ruEmhkvAdF2YZTLmSYXC47vGQuFTRd5
Yg6wTsmGp3bFMSDARYDG6oYixYs6bDQ8U6dGk0MKmf7+LvRuImGds1BNNWIa1cuZA0hqU6TIZWVk
Ysmtp/3uhNrlnfFOHfnZm9BKrAQUMLLEqL6fMHzTNf7OfV7dbFjpp2H2JRRHydefE9NHFzJOOMyV
3RsiW3l3gpQRgjOPNVGciGGjls0aKTWWod91cLS6KXLTKGM6tTCmlLTSGkGYUNFpiqYSjhQuWmUM
WlhiloYgylhhaYqmQYW35BJ7xEEQRBEEEN7GhSlDCHzhAAe4BD+YPZSe9PEll+CfcHsHNCI0Hzj+
Cfch9X8Q/eNkd66wSQA+xkGotFUSQlZYFIhahZUT9USWAojAwSWmKpSALRmJViB/ghz/An9CemZl
/m+f8b/omNQcgROQKNEtYiDaiIdYB/0+v12A8UFYQ9uAoDGKLFrWEPR78BYmYRmdlXbUda6rBRIw
fG5ZSFApvL/yGgGwRAFNJz+T+CUw2Q/2oMjIKqxIkYLFIB7oDBEQIlgmpCatRJZbbUoIxlDXcgmI
udTyT/O1Q/cZrb/WSBdcg2AhAEIo71YAaQRgME/E/EP8QjaVE/WGQmAWQsJQMLYUNSA6MDRDi8Qu
kU2+ZiWT2L/mHrRnuX/A0H4DsD9YvR+Tn8qcFwiduSbl3/iA2Ngpe/ITrXVzI3BoMZf4WLoe4MjN
JND5yisCICH6x5E6gnuiUGofgnAClzEQ6lCAkQgEEYBFgRGLBiQQihFgrEgfoH4J7hy6hTUugfBe
0FBX9a/PcSk+hKwFCcgdBzK9MfrIe46wpfJDEUJArE+6A9UE4bB+YPomDz8k/zQ6UMl/p1J5h5Bb
RH7Eudqm5DsG4Gzih8w8/0RYe6SiqoqqDmH9YaJuR8q/QeQOYP2oIHWPykOUfAbDiT5Ah79QPoD+
j6yH/VbLaW0tpbZbS2ltLaW0aNLaW0toAljZbZKWgZRKKqkJXmA5Q9A596d74E6eneDqsZLzhqH0
h8yGfv6K284Tuq5UI1PWECp1SsFFWrHgWEHBFWEUXFDEpUpiJQVCmMkSb1kJhGEIgMPhd5AlYNFB
jSBTo57XYmZqSG1d9dZCyAVgZlQJG0WpiEo8U9h7/ELulcHEqghcD9NhoXrp1A9SXTuyDpHxEMXB
nmnpTnb5RkQqK+se8aA1j6S4HwfgPfxEfcBwHsAh2p8oU/w0EgSE86nsDaG0TBglx9Qdq+ZU0APK
Gg/iPzj07g8qWwB0DojmprHuDwTTYB2D4QQIdQXQKBgFNBQxRYLBCgUg0JSINLSQpCoJAKpSkg0I
0kEoihYOYXBPAtfyQPuMr4f0qlhqox9J+clHvh++A3igfvg/UPkUbdCHiLjzD3hcLKfIfSBcMgh6
B9nvuH9BzL0uxXVmBAdyh7gfF5fdlNxO4PoRP09/v69mEPmT6DAyEpIT/IKqIKSCMIioiqiMVQEY
kAxgKEOGQKOwPtnvUPhQ4iwPEVAOnpkISHtTxDy/MHqXpF6U1Loj7R17P1e8Ht7U9iPsD5QN+jtC
Age9Egp2eueP7qLi1b50Asm4HWcocC/YIBPKmUSgaqC/tFgRFqHklgp9T8ErCarzYcMWhflHwBcN
lnxDJyNZmGD2pdz9YHtTO4Ef0HBHQ8yCbx+BGMThTOIQg4CkwBRhiDGDKiUjEkYkLE0LJLqUl5H5
UU/7LApxCigojEiWSFsksBDgYFAOGBDlhiMUZuFdLQr98U/k94YcG+Z0/+u1k4kH4m0EjCf2JSfF
gjYiX26kOgin+EXJNUR5xQ1TaH0BmHtUL0OYQPcHtXMPMr2rmRA1vaWcz1KH3WA5iRgtQZFQoH2h
QCe8PJMLcA9wdBY3kDrf7KQONjxP9LAU/qcyy2noqiEWH1/hZ87mRiX8YEnjw32PoCc0F/hwvTkB
BuHKtIHiD8A0M/Em0qj16/Ew5EwG4hxQfgkXj8SUugfqV+iSDlVJREr9xouqD9SQ7081Uq0ROqSL
rgCv50h8VfrDpHuVOo84dQbiGhuO0H7Fe8FO0PuT5R7x2h6APrvtX2DtDMPrH9H3h7QwrqF+IfeJ
+Y+gO3cHKpuAD0juH7cvF1Vj19XV5jl2Hha32FN2pXqIef2n3mz8OwvErNBvfJuBsYGDGIjBURRQ
vAZJSJyUnKew3Nx4OPxHPZfG36ErLVIJtLE/HgYbXthLrZJHdCG4Dely+4zKR3QXkLlItyJeWJYj
gmGDmfXr5z31t97mX3335R+DXhvb6C8dHXXXXIHR6hEh5JKyIMPP+nD0F9Zb1vnVMzCYHOWTUkH1
luz4HHyak1NnGQpfegxVMgjSwUQIESIlFfwPP+P2UZ/Yp4o7tQuGwJDwKR7osCIcIDdMFqZRyiW1
TDnWaELKBQzhBLF4x3+6Zh4Hd3Vj3+346AfgJA9ocMhnzT6A9wZUhph/5gkNHx44tuiZbmZY6A74
f+kGGOcD3n5Zn4T8dS0rYKuH1rE/MJQa6ocmcsVT6pSqiuS2hYWanKeUyUUPgDAXS9TIcOYykQio
6AfpDJyWE4bWTkfX+MlkLHDl/hUqrX0KWLACANJAIIU0QgwUpYs0NCkC7G4BRsllKTzJ3J7B5n1I
LlzwtENCcsEqCFQfUM/FLJk5G78HHJyAqAIAYgG756iZ+OQECMn4QH0Gdp6DQ8FCwJ8MzChSky5m
0AwCc+LFhI8Mjqm3LUQvLXOq3KcAlGzWoa67TfSsVGelKqct1atltCwoMY5qdYP56bQ3TDbJIDQo
RR0DsTAm82lAOjFLVSFoi7d/NVVZA5ufmshpBCIxFYhQIeLMCKDJJ5PnV6pxNF1RS0t89dZNfivx
DpH3mybbdc0jUq4UhC9DQHWDAtZXmscICEIcBkGfSvgHlD8weo+nxT9QuELhYPy+Y4/wVPceP2G8
NAN1h6gh86esdgCfBTpTYGB0H3IXDcFk9aXPrA2AcA18ZCbqr0BgPiah+QoD7g+f+4QPPKD9sfqK
Cw/XaVqbssRU18BPbA3LCBUUCAG0+3kC4t/O7c20vDNoQ1+88772x8sCwaGSMUzAKDuNhgNPaSHb
yazJrElGRcDYlgxP4FrpJB4regm0P4JR8eQaGoZJ48xTt574jvFwyTyShuzIsSfWfUfghN6CFw3L
6Q/erhvYbQOIRs7AWLBRCEQ6U+pQZC/AxT6gsIiRPR5Dx+wDiPyH3c/wPZ1X7ePXnYr16st6qPCJ
IRgjInsEZAkBDigsAeIWWoJuIDtBTsDt44TmQyGaKbBocEe081j1CbhD2exHLinHbyuqfaLgvMfo
9AOA+Ft31H4q8V6Q9QfAFxAnAPgHp7QD2B4hzC2YaoP2gexLByCwdqmgcB8r6gPq+qx6H0wvf8D1
Wt8gfeQYehDy+geA9HqCyWO1DlHvB+H4B5odSNexiSzQ1H5VYlJAYRCSDCSQOMPmHlohuQ+aAbD9
tD7/Sbx5p0oB7BtsfNV+IPSHaHMP5pFPtDPmTnAF9EE6SASD3IEQLKQSCwUUF9oBAC8FJEUkOwLg
J1gFhUDcI9qmy5j57LPkB+fYDmJ4QXkT3hgDquJrGByDO5DsHP3p494BsB1Ae4TINvhs8vZy8uvx
nUnwtr5Hr5rpZIEzo35YsDiNVhv5tVGWo6ykzNDQsewpCMCwRD4xV+l6GP20tLBg5OQYXNjdpuk7
DPGalqtqmaBDD6I8IT32PqDuP8Ug8EkjTF6uAkqnQWTJoY6hCMIwbjhgY6NVLEAgMHasaMIWLY9h
5aDJJzqnImnUeeDonjbyXiBrZzCEAcM5lOIcyIDu7GyYpC78FA4EyLxGKMIEKozw9kwcoGcpxoGB
AYRkYRFwQBv62LBgkI7oBgkXdVOcLGtaGlG62loQnt0Ortnb27y7+UTyHjNccc+XXl5e3xDnVkWR
ikVV+X1CdPF2zCzHM661pwZynsDCREvMnGQMAuYgcJwwN2obzcNQE4lA3KJvqaz9gWo/gOvuhu/X
Q2FEkCmhBBjAgBLdDWZZd3Q01db7dsmpDjnoMmAgTROCySkdfYjFInv26LgnwQTCek1aNx3BvN5L
EdydAIHp4p6qBfQ0mAZIiwOhlVIxUiEEIgQlECmN8YqyheIDPTSFQAOiqRSQDnqlBegcw63UFBuA
tk+I1AP5w3YbZPPeraimExuZbHQF4Exg3P4T+GJaVkHsPZfEP1qx+gSg11QzMoHzTcKxRyW0LCzX
L5RNKrB+6hlCWQMDdJQQQGSFikChLzBnIQJAn3hRYIqZtBSi4CAgWT6hL4HSVBQJ3OL2sKo2wtVV
Y2SlqUtBrRtUSy0acpuOa8zy3NyHW7JCZBcaAIhBuHMH3h0h7EPEHwDiOieInoB6igZ5lAorCbuK
GEzLjJLtKIQbdEOjGRxoxL4Ojlb9AQ5NYBbTW6GUVT3WTnVdVstspKHKK0ipA8rYQRhBATQiJCrE
VEdElCS0JUtB6Iq5kQDIGQIeNDipzh6lbplAIj4PFEFe08VQcLGi0IjRqZSmAtpRRVLRGNLTvZVy
iCJVESMrsD4849Y9SZrnnxnRCoVcKCF6KISRjDIYAUSShipqVOrg4bkIbY5WKkjJJJJOA4CnsU5/
VEfsPapYfqP3J8Q9YYtB94nl0psiPEPoP0HmnQBv80fmcg+g9YWDUonZ4iMJA6gNoD0fAMYD35nH
2zuEDWzn9y3gFp6Oi86XFTAQkjziaEgScETssBqSKPKH9ByWzwlkhIGdpiEYrmFm5106AG5NgaDH
WAVjPVduSBgzMDiYkYAkhMqSiMmQv275H6MU45Yq7D6wNnRwhhKmtBbiqQFLGOSJuJL2DJ3BjV/k
TI9Ihtd+8lVs9pAqi17SYbRAg4YvYEGobvQgHlrZCruUZGRjHTQlGdtSgqiXkuqZMDBFnqEoKgcb
xO3nQbB07kA5JkG9m0AMkgq6gxaTg9y6v0A96+Y+Il9PiHmJRx7KPb9nv0v9/rv6/iPej19sfkfu
QBsflc9QboqQCROAbHemgG9N+A+Q86/ePKPVfxJzhmG/WPUovh0Y7k1iGo4Kd/wFNZzoqehda0fr
fa5jtuPqHecTgnSP72ISBIwjCRitwdB1g+4T8QwHXr4A2HC8p6DwDN/NBiRGEhIxkIQIMhIIAqhB
ESEQUBZEgMEiSCALESRQFURIiDCICQYcu1uHf4oWsHtNU+7GleBzLJN9A+AOidp2BgOVZAYR8NLY
rWPDyB2D1dZDiHq9Ie48Vzk6E+QEHqT5KHvTYPBD1g+32j0r2nqGlOY7B1HF8g4m/H0h948zwUpG
B8OwD0GYG5DqHAdyegDoHvU8Rz76K5uyTunTXyfAAu1e9iWhUwgkokva8sXx8149wdbkZZWesPBA
MRck0Cd4B0j1BqB8hzE7hFebAMg7A9SFh8Y+MflXoDtDnE6FfYp4CHiXAYDtB3B4pkAHvOwO0O0b
j6E73gE80G4/uXrDZTQDsE5BsPrXeCRctxxB3g2HvS4cQ8TUfSPYHDZUQ9Yaevrlcae3uwqS2FpM
hVADyGAB8gX7fYu9e7ZDsDpXsB9AexOY9i/EO8ObyujXt9RR6vDsTgmwXDs8w7w6x+A8k1uB5AXX
qA8RxAoT1g9KPYPWOobK+oDkTJNwHL5Uy6w8g7h5R+TADgMxuPWgbQ2DopzKcE6sgsPEe/5ekHsO
nudqd6WXMOocl8YZeACbuwDQShzX2+X3T+eSCilfyREqILIAg/Y/OK2gDIsiDIoJ9B/xERtFM0IC
lyA/87JDSWr6qJjPrFQP6EoLQRD+b8lF/JB1n7UD85/yA+m/9bP2cifz70WugeY5aODvMK/1ghHZ
781sC/zQRAkQkAGQQJBXZAYEO47jIu2LGGST/IJ6yT+6lf+lw8/+Cw/6nK5i2lFikvYhlF//QDCC
kEggSCoRFQ/+ejn6CVXLi8tVJLwRqFhPJgPGHVkgOaJkfX9WHrJgikNUz/Rf9TOeYHHWpBAMNq5/
gXShLzZDVWkJElotAFwixRDkykkEUPQxe/JQZDiAofOfR9K/pwqpiCiZCGyIEgC98FdYISAH9UQH
YDsiJ8oVQCHFF83zoAeYoflATpFOpPgQHsXz+Z766PPBDpVJ2f/RVh5+awf/9Y/P3f0hR/Ofssf+
wf4YP8j/kFw/pyyhZStM/OGr0Wty/NX/3pu+XhyyOf4mDYSEBjpe223HC+M5/6U4Z59Aw5XG5oN4
rt0BoaCf4caDbJDmhoats5rbNmW0gySLMqHZXAysfQCRDycbwQKHI3jzyQP2Q/49yX9v9lysPMUB
0UhTzkirqH9F3hPT/+vty2f2f+NU7ai7tvw/L6Pz5T4yv6zv5ck+nNzhmEIEzoohRCqlEDSH8tU4
TgH8lzYePjz+viejlon9u3Xxy1mUYOYW89BUT9eMBJa50ky9NF8h2ez+3w+CaL49CRB7qgNzGUUe
PfZv7YfzJ/EKqoahANwOvh1+Fv5/6J+o3nzaz//zFBWSZTWasvQWoAbLBfgGAQWf///3////q///
/wYVx/Sg4B4KJQCB9Y73cQAQhOjyb3NxT1kU3TB0KqinbCq+RoAAeH19AA8AHr4AF5e1nznMNtqQ
BQKAAPg9A7XjiHiA3ajI7bdfa76B4PRbW29YM6ZsfXau4denqsTXJk7vX3hlQ7YfT0ptlBwN8Hnb
Ytn0Ap5DQXvdu6+73ezXrnbi9F90tx0QvRn3d3s583vO4dLO41CVUztoNdHQ6XAXzx93nfZ6K9ay
AONgb0Y26akcc7u6wvvtx9nvnlyxdZQKvWWw8AM8r7d27vuvp5733t9vY9O1kr2Uz3c6vph0b3a7
DbFoANSms4BuH12fffL77UOW9nSiOdnV0Y+7nSI+tVdu97sHxrYDp6NLM3wOenc7tzy8AAu9z27e
3LjQq26PO7vWvdlNuub7uHfWDqhtmUojgbn0+++d4Ln3Nvdzu7jkoAN5YOTptrYusA6G22xvA4Ce
27zr7nduwwjiLVkm2LZmw0AarS1ngbn03GbwKDc25YKG2VQomWAfR0pRLtWeA+8GTfbfe+vYPbF6
M2wkNsAaoG93KSXZraxwHvvBrAMARAOAAAQwqUX21c7nRS1dnQ5a6DRR330A0GigAa0N1l7ty+sp
Z6vAbQZhDngA+jLbABS+waKVTHoUu4CgABQPRl8amdWzd3IT58qiUvAe775QCh0FDQO7L17mg3e+
++jWOdCTnHyrPfPvHgBX2yKSpIAUd5X3Pe+7ke+Dw96FwYA9o97z3xgHgHg+8PttsvODAzbrFmbT
O++CklaAUWyihoWyFffIC+wZZAakVmu24BkIClRSO+d3pmrCWB6AaDbAc2ABs7tKpQdsFbu4UdNW
DBo19Og6zbSQG2FoCzNm21VTagM9zgrqgOQHDsAzVoVsLaQLfBK4HYW17s4VmwABUmxp3uiPeG2W
1r3YnSywWbSgO7uUpJQqKmjbaAAKDoAPe9cadAAAYaEAAEBAjIjQSEjKb1TRtIehDTIGT09UGpia
MEESJCNAaIxJQ9TCAaAGgAAGp6AIgIgRTxE2lPIaqP0TaaUZqae1INADQASaiEICE0AIwgZQo2jE
QeoBBgAARJRoEyTTKYATQaATKemponoFT9Daqe0oaGh5QKkiBAAQABNAhBGpM1U81PKn4qYQAA5c
0KhKO7oXP/Nf+P/GRfz8fHDyzyGPh/+/yCQD/3/+P+f/L/6/7f56X+x2/6O/sr/rT/nTZX9uj9zq
mMP54qv+0jamL/5t/srt3Yev/bvslP+m/NKpb/+4/z9Mt49zbZttQng+9x0PxTI/sNg0buTzWd7m
2P/9cG5tdzY2qe7m1PZybnwyejteQ5HsFV999XbU9np4/wr1rKzBPb4WtlP7Djj5bb48cs5Wr5+J
O9e9td2Rht5Z7x8X3hH5+HIrQW9L0HQQGg8CQ8j0KDoMCotyKDvMeh5HwNxcVHYMHcenae/Ze63z
Rr+8eOd7DrskN87sb7U+fR2+deD6w08NWrB4ZvS/qe/XgfKdoeVQa23T0jR48d2e3rz3u9/xq/0u
m/baXF40+Y7wM8KNl99fMcDz04c7H3Up7QpmBLz9Q6tXbglShUOEp2Sil29u6WKWUch3dRMFiEhy
gkmmpEa4hVdnVqmkE2sNZYlDDioZWp2uniJiXaEBDvVI+GOENTdWs0KWzcGHlJc4U1Dl0pXKCSKC
UjBqQqLd3cmauLarqXM2so6xUSys8K6S8CVWS5qComambag01aWimAtuHthdhmaapqMpAt1W4hUe
YCoXCspeqkUqyTDuXhWdRNUlMJLliRWLSnS1RmuFqVeFczH9ex9T9/0bf9BvjAIgdhL6MothgjKq
phqIFpKYQVSUkFkIFDIIwlJCmWylYSWMEShCBSQRCUrEaEoZdWW1KgpKYUyCrVQKgSlSkhSqMpIK
EhQgQ5oS85LsQMlLTSFIikAgYxiXG/LSlFzxzywUFCYqVlEKlEojQW9SqwUWVQ6dYvlxitnNpxyo
cGkBYfZFyOWWABY7TnXDIQDZgEA2ZSEIbsgWhLzTy2s3SqomHflnWswIBOXJnJAkEE4AQ3mQuBio
M2r0MvGsgsCsBmzBd7qWMoFa4C1jEkk3i5EVeLciVmVBwYQnD3RtvLavhpNFtcawzbcwS6R3dFpU
ujePbB6QG0OJSwWIlCIBFYEIERGQEibBp3h2CvUmICLAJZERlU2jGzITBRIaFFWTVu9RMthgUKSa
Jl6lTdOto9KghUR0KUlW6qJiBBiYwbZmlcEqywlvEohF0Ep3BdBMxJxbvJDtRuDiDirm6t3QNhHU
yhQsHt6REl5ibqDGEjBFphCZW0uxDBGSSFtaEi7aoQzNXIIVlL3aEQYVmWoFQ4kh7wRoYGMLa5dg
kIgTErkPCyYa3wyxlilyYcgq9ycYwcZuE4QC+UkgQ58WxUYCoxFGCxUYIjBRRVVgKKRZBRFFRYIi
rBRZFWMREkUhy4q1IG6AYuBSpFEYsFIKrGKxWESKiiixYiRYHfRPeh92B62Bxj93/j0G+hVkFZRN
kn8rw2WwKp/L74boN8ZFKIkh3UjUVowpCo9MB64OZJIkk0lMC7svrRtYZEW69dw+2KMVtt/I7/r9
K8f1Mn8/4vQJ2r+3y/TaIH7U/dq/6V8RvmjLUOzSCv+KBvU1S0yncOuWv2xgMFCAoVhSV/5v6JRD
OU3Y8sXcFUQ+g0gU4Jh/VggYUg2x/7lAJjPDSv/ULW1n+7Z4WvWsP+E2ff9fn6faX9NJpGjM/REC
BEB/eCIoh/oJBv/r+eCX+OXutWTp+b0zr9THLS2K1Vm5mYBMDJUkqAIkWRQBEYJDwtKAOE0cJjJE
otaiF1EGjEgxMKmjH+VwxRBC5t1mDCOzCPsryZ/x379KHCXjQ0NLjRRBqYV3TiDKvuiOXKSxM0jy
rctIqcYRAtGgS6AYwoaouEQ0JAZImxVcPF5hcFSqgCAM2mKFJhgZTbNRN6iJMBnNxGZQ3DAUsIbx
CkU3E4LxcgJAa1QsN4ON5UHC0cCRB3Q2QY7a4LgyqjsVBNqmqtL41QZQNjhBohVAZLCxvatnjagY
aKDcTgdkNg2o33oMR1VTjHDgxFo0UHAk2JissmxEtCNOAskYDxdF4sLhVb2LuzeJo2KIher0II2z
aMDZtNjOCO01sahmDN4hqXUEHd24KB3KBKoJvATamtkvYsN7DLvRgDhzm0uY2Bl1hDUTcquE2zXi
QB3wbqKU2xdlOMlQYtXukVlpsb+VycvV52OlDBtBpxdUJZAFlFZqtyyOUwQ9IqxcPOGmBQXChyIC
DF1DC5p5UwrASxIwcB2CKplCHmnElSCxv6bfI/bkYjgTve4VmTfZFbHSNBlRCpB374NHeVDHLibZ
1Ctw2gMLKwlHFF1WsUF0Vu7uM0xnDw0JTtRU4aqUDmt62LgJEnBSG3BiHGayMXG1TDepULYlVh0i
8b1Eb1Q1Qa0bF3dTLlsM1NJtsU5KJKFzRqAjFLQWRhYYLimRDKhJwCjJJwpowRf8oXYYcZl1rOVO
oYhxahAz/3PK2EDhSUehGkFehMC3+/CTtChHS4mDCwsLUcwa10s26hubY7SxV0q2g9pYGy8iQKCJ
dwwqoWYL0zS4hJVWnV24SHirmLdkVoopCB6LYRwqM4CAJBATDEugai7C4hoS8Jh7w8yk2qYh5kKZ
wz91DZAfpvU+AAcFpAO1Vvw71QwT1iKZAn26To+Hw6/TX4w8u+2fiZ8dNwg/TLTX/wXpg48of9/3
YUTsf5y+25eP78AAVIy6IkD1RP9i2WGAougzn9I/41ApA2QyoEymAnZ9PonrQofPGB/r0HH8JjX7
BMTkwf8nUYm/ZqlmKIdPYgCAiKNXyn/3ZSkicHhiktWWvvwx+IKkNAd2nL4kh/rJhuK7K4+2Dxa3
LLF1ypx39tdHNjh03Vj99c77+ijIE/SAaxJCMZBZEGQWRkkkHnvbb9KudP/Ot2unDqxy1HqXJERO
p/g6Uig7CxOEsNUQUgBDoIOc1sAAAte3oy/wlt+Qsjb7pkQPuvRuzHhZW1genXyvmokyuoH9dnnV
ICGHxK4ww00Nl94UsZohhIk7D/grSn/RMv8r+ztq1UH5b6rmOxNUrKSxEFVWnGyVaCMqCP8/6ZSv
6p4+yLUn/U+fwNtM3tq/T9OU/8oaoN67QkoIgUpDNjUCO2vPDRBO2w9FP7Z/Rq3vYpaDBKoNQmOW
9KRsoKlFX8/wj2U0EQfXd9fETOh9B4+oNMPwzgIK1UqgWqEURoUVOx6eLO+3Fn1//qvcU+XPnvz1
54oO/0vLtMe6o6jlhP7s3L+5wICoyIvmdf/Lvj5P9AuvxkqWRuFhwckcecQNnubRtP28cwkHgfk3
0SB+JS6MEDWfgbKOGp9vD90goPoLotVlrNUGftigsjigZ/Shq87e17uh/5JgdsNl9+k63uASwT8H
SnRyPkqfuRKj++fEXgAnOlbcOIyMuhOI/fd1W0XSZ3mXJQlPbiXaIYfH41W+ZzSfPQ5OP/U+Z1Gv
DQNdO+Xjfe0VrQJ9L4yzSMlPN2QoPFkZJ9Y03Zx/tH91VxvSioIEPaqHhAF45pfBeU8fNP2P5D2l
YkW/PMDsHB9bcU2Ev2MvCCR0wmewJN/5e2V4tZb4/+IX+MYwABJUT7EfN3VHPHHyfPFJpW655zh3
8XXl09GGHTjfr/bqEJ/UZBiBIgsYqkgiGcEpgEIJIwIsgoRIRhEEIxIpBGERhBiEUgAiSCMgHbmU
8uKo7mHGQ5ten9lX/Mab/NX1lZYfl/zx5L+PWW6hMyfxB+pgKLKeEATA6hokOiBAYDU5Yq5IfpPY
6fE39/LMLTW6Lp0o5Ej80Dj6FGRzjcooTFjeBu6e3Kz2qh+xgYw7xAgWfmvakj+fcCwfuiHaGFd+
rbChOB9ceeRZaezutwSyDcTwkExssq3xy2OjcjmaD+MezF46R3Q/RvXaX8LeFoB+9hR33Z8rp/oE
1MVRGC5WaWJCyvcycPdOvOlavxmMP7pIWEkcMy+naS/G2qfJyDvSYBiMQgZAaTWvsVoiTU/Rx0ZZ
BqU22XN0w/cbqR0w431Agv93riVj7eL2hz1r95DYJvSY1KA9iUfaUf8ShWdlVUtPsqe6bcNRL/G7
QChQhE3VTG1wH/0f+vu1XU4Ce5/0XL4ny/Q+t5KeY7Pq7K0fB7Jy3QR6I+YPV5V2cnbd1QTkIVXd
19gSBsIWln6WrF32G3xFG37hXyjLSmYcj195zYx5yO+LT9QnAx8pOOsZ/Yf1iBnBHsiY3InWeA0C
SVz8pYT/pWbjmFP5esevSun68wFgz5RXhampFSOBAgRAULCwOltJUZ3VESh8KHxPY4acIhVfki++
mIcE3Ib6MCS6A0nSwCRLuSoQx7wFbtNJhAxZCysSqp+q0QHdE3Ri0z9Z+Sq3pYGXtcuWtZ9FESG8
8r2ZfRHRuxKAzr5/QfNcMzhf90Qpg/Bk1YmZqQfPCgr6Y9awY36By+4IECID3Hm79IRG88D4Xf4+
bXRErN17FR6yHCJBzUr/c8lmQH5LRf7PWwqB7efhsvSVFMILlftyuPwe1g74TO/K1r50ZZZYV0Wh
djifxUOyDFg52pcZ0w/PGs6WoiUJLcq4CGJkk2SCkL3Qfa+FaPRd0yAhpyJy1fHROHPoYxm7TtBo
6hLQojj96WP5TWvG2QGK/ePtgYAwMA5BfKzwGwSxZfx02WdcHf601iEIhs+4Xfz/AqHrYoQfVBem
TplBnyR6DnvUHoZ6rwqMGhjDs7qFdB/yY5/rDj70mPbFeOtuoHBaNcQ8eAPMj9i/Dh9e/Kf6bMkl
eCWh6AxYxZ6UaB3VC/3UMmtSEPed4d9Ccce/sH96yN2A9Ts36aypxzr56XZKESKIhbVByYk0zon4
RQ9gCBAiArANuXEVdLUiGI41P9dERvyKRIXwo7bY+iFtEZS1mPUiopLH+3zt+u+j3qxlznHn4lPd
4yV+r4t5txJvl9DKrddoutpqEKSWfEqt7OqRs3we9Tk8jA4zpif+5zmRsYh9OWzFdPF9nyckMOXU
IuVEkJcB3PUrNfx9F+7Oo903XdRUeH31G4d4H7LcOppOphx0qbc6YNkjKslPkt3KTKKJ/4Ihxc/w
h+jFFlUfr4bUCIVdj+qp0Rtygi0HSOckd4BvqDwseEEYdDLsa+8+kzPMmqcEMhnEFfKo0Gn+vlGC
RYy/ayrQ0yr4l/yzBeQUeGVSONPolJJWpKGGVnDzXH3+M1efVtK2rRi0GZ8Iv6bJ+fH4Kv6J6QlX
6qPX5JEeE6g7lH/tQ0L+Zta+RX8Cu20fd0nCr2vu+VynEofV0EPpv938v+r+//eP9WCD/Vv6q3/X
/t/1ihEQpm2qWSUCwz0heVBeXZauggNVRabhEa3SluGYIrFmMVDOgWLRwllS8AoIsUkVbFGW5qcJ
VoloJYibaENNg1MNc0ohqm1WIVZZFCTdIFd0tVZ2NIrKrl1JZrmltDgukrEC0LqjoLmpcQ0oLqlu
iblSS62wsywM1awz1bK5DWyOKVaWKSzDxCPcUq2tiFM4eld7VlcXUOLaWxEOJe5D2yhFYtTvLWJh
poyFhJwqu+Ge4MGFSmULJMO5YMhRGE0Gh8QFuIhiwY1dGqkxDikdIw7gvNI9YLOVDIKp0aDSFCll
aiqhoASwhxMPEvK2r2YdmFmohKRSoiZVkaYRmlw4piLCq0olFSkzLxS16ZWWfMtmQhUnJEKqOFZR
G2MAAfs+cDGwFnCSSczlZanIYXLqADGEdFASjmaC5y2DMAxYUZDJmiiQqNaxo3N9EFkMjWQ1L2bZ
sGdTnwZ070ZCISpLpgbTOZjGIhmbFAwMBsWXIFTBvNizWhgYzUSy0l9RaNS8hovCZLlqMsWqZ5rM
2aIYCaNo7SpvcDYTdglyXqTFDsRCr2riE7/ECGzKQoSIJAgMYqDggSE8cYUVVYqjEUjYQDxGECbc
tuLRuqZ0Bu26tLVFKEtKRiILLoKi4Wrsw2rhwlmKq2UGG0u7LC5TSfdpwNVUplIYbbug64rqNSq6
3LUdVK05V01LEqmhWquqRLqkYjBWKpSoqxaYJVN0NULGyoqxKqmKdqLuNUViruINQpobaq7umlVZ
ttV6ac1wyUNsCk2bBuid7oTWM1bigMNJRVa1ReClHaikUW2hwlMlsM3Tlw23teMVhpUvVUrdLTNm
VG6jWyFN4qsYouqSpVJpl7FBhylOkuytNUxNXLlVQlUNUnF0FpKqpWUgRZ22jyn+/r2h/v6B7F9V
EuEFt/1uRjlf8G9ZMc3Mh77/1bydsf40ixt7VRPP87RDlSnLM3s0hQLfFWxv+T18+Yzg15/5bJLp
R//cylK03FIH8fLHQNzPdcOy7XkqfW20Whh0k5bP66Ii+bYcdtbK3XXxPBywx++1Hg2T9qPVbSUt
le1LbXRJ6MNaa4mvfd+716p1rMw/jh1p2OkgyK1OYyDcWUuQchRON+DgpXeE1Mdk6x2BxnVFcLUx
dWL06pml6LPf2bW9evV/tz0n3jF2m11aqTmC1VsNJcMfpOO8p6Q1k7o1zLcK72UxKQVYd1d+Yttr
JTpXb1sxvbTRbpOsrdc5mJ0ZeMGrdQMXlcl5BopJqUrB4t12fKWzOJhixcSygYq/FFk9nK1qOwoq
69dMcbM7vtiV+Xdm5eVk+MroekO7j6lBwPu9zLPofhqPr0NSlSrpHXPKraz4o6lVGDwt/DNI31WG
wQIiY2/BfDv9XYfXo1mn+ebiPbQWhxIvzKwaLonoXiEbmOh2s7ausU7P+L9/m8fdreq/DntYNRiE
HNfCzmxEGqbcZyGn9qvH1h9Zci/dr75lMkOZRpwSLnkqktt9ROuaos3C32k1qcNxdTtQWi0WDE8Y
1GlOMQDrkXXWdXneg8IUJdJbaEWVsppil4d81ikHGmclGMs1EpvhcnesHjL5UVB7HM7m51pmpg2N
zgYk93bF6aHvSSi33S8TDaUHg6wnGXgeMEsnqJ0TaecVTrs9Ll34kBN5wCjFLeb7mqrkxueFSXdY
DVDbOTwmASbDwZzrSwuGJL7TmuYvhMBeX4+K1ly3rDlzEWvOWvgjhmjZUOSWDgMt96w2hUpNzxct
MDwmJ5NaKc0bObLG0MuYLRJValYLJbwNE+8KOBE05JhnZOauedCbvT8IE1DQw75TRrrF2pNnfaSv
KfiLxoWs84fNksNBZ0e01ea5e/DxhOVTIHJ5TN80y70QpGgy2m1X/52AAsAB+W/6Lv8R9b6dYBnx
7dMPpj42r3FkX8/OvPTpX597e2FPf8eu7Td5+RVPnD/JEE9sFRQSKB/wQP+YQSILACKhIifxgSKV
BQqIpUUIQSokX73j9tgNkQh/kg9e0CIf16/HRFR9/9Kf5OaHkAB58fiQhXw+vxsvrtYtt8qVOGT4
MgS0CT+B+3ht8+P8vwJIbf9crgu4yubHMz4Fic1W+uNzj+X1hD40lVRRFaKqViNh/jf3qkN2aZMs
k+45ZAS6KQRKRfw7+Ff8QVXFwIQb7jp/q/wHP+HlOpjzDf/w6yb3V2XpD/QnybHePvOLU3u9//fh
Gj/XW9X/5mp6Gc8OgBlbj3r+42dhUJ6uPt/xuxxw/XGo9qR20S3aPD3KSep80Fj4sYzAo+TT+Cbv
Y3zM/0R0/w/xHQbs5OEDcbP6AfpR7Ve5o+POCfZbw+OuvuflNQ5whvx+nt3Lsh1GRqGx/DrLXTre
/jd6EDfHqiEgVVXKItUBSejXkGkxVQpkUVVjT/GrsIioIt1QiltSKKTk9ADZIPgVA9N55XiRJ3kX
WSM0VDE9Cy1PChJjjEsYNR5HWxkWkLlkUcZGBRK8m2V+922f9OTt5qxL9novHh9setDcnrJ7PZ5N
7fbdP/NhsPwjCB6phPaXtMIkibVi8iQCyn+hSh8BiAXEviJJFRIgIhBHFAVHGgAsjJ3GgDFFeCUb
HWVLDBMJEu7SwndCm9Q2Sili64zQiwgLjNi1JfkGFylwo1QibTa+yTUytIMlbV02bcBhRvUZTYWm
/TgwwhyQEigVBNwEVhiU5RqloGwoBoRAHSKoLjFRbMRTGCICdSZxZCQ0lRCWpAPtA9nLxEq0kWPX
0Pt6mB6FjFiYmHV2Wm2j5mDbvk3R4jw4ATbyV7mzkXkPjlSUc4nMwNDAzOB8epaeE6z2ckc9m05R
KNsizccZOJyQvyMjAjMwLHF2HpuJ4zU0qVW3Wbdh1b7pPkuce3ry74cnVrNQo1FScCwbMDdSL3MD
AWKko6O1icY205HIz2GSSwq5szHY6nLY5WY7VUH/exNI4m7eWiTl26Jngb+EczXqsYlcT77n+1P/
pCiSH7fM+lVP2/t937GUt+v4mN+R7MXBn7Wz/nfaEv/4wcP/PDKTX2naUf39vYS8KQ8EW7zxPE8j
Rke8xyP1PojMowPaRc20ayzLFMS781VZGjabxLFGeBcxsaZNpmZG9Y2li4wLkYBc1I2hhLGQqSxL
GJY2m9aZ6mBiZmFGZiYmhcyP8YFYF5NpjFsi81RoYarFsDYazQxUNVUE1VQT9xeCpeGYbgxzD75U
GWQ3WKN20xNVjUY4msXkTcajKxVyheRkYlkmozjCSYmSCoUY1cIRmWFls5wj9cM8JG01F9DYXMTY
SbtrabkNR+sbGRskZoz23P3JIRrNZcyKkZmgvDdkUWMpI2mMhHCJJmZjFoZP/C+ckyMTI0IwnArI
3RGvE3TUddSZQapJkhqLm6G5CxgaYSIYzDaUUWNpKwOG7QbM5DZGyaGhRsNhfZIo4ySEbUwLno2G
qNpsGrdRibIMD/BNRtrYUZGpCNzhrMaSfDPjEzLUbTUaommSSUWKiY5G7K5uNDQwLmBj24nBqai2
0wMxRVzWkqka7ly6MjLCNaNcvoX2GeRqkwNZbEo1FzusYmZqLyxlCtRmTJU0MomZnsNZRew0NC5/
D/py378K9FX1PpLwwgT6OIaOtYwB4IGLESkH8Cn887SNb+uVr6xeeYkqAAhUKp/2bMFJfMM3+QrR
X/prl6H/4AAIdt9mGfKdMn+kUxG7ppEKfhppcOl8sjXP2WiYNF+l/UbC/WQjAgpq3ywSECg4pPWB
6Lx6SOGNKtoCrG/6OO9d/j31tKtpREaWSAqBOOE2622aTZFnL/GEmXdGrBgWMg+Xj29/Rp1T2TyX
l3p6MWtHPCglInNLEUttFrLs7xVTi0gvMYL0ZDBVcwUgy1EutlrmUiEoOjLVi2ZntriGsOopyLQz
aNb2zVSzNWrQGqKoMk072rOom2UpUGIq1SWuQaa6SkLFjQFXdo01SK9wFsGxcuEcNDEu9hoFTTRL
uHW1u0WWSatQ4NXZSmg3LzBMEBVu7WWiEFqQ7KZVgyOryxgtMQhLejU4VXDfw/hSKCoXHPxEDDdj
ld/Tbl0nGFMIytuohpLKiQ2jZA5YQQNpwPV9VIbKSz0YQcYaldDXLIMb8b74Tk3ncXqWMEbBch0E
xiWL8ZX+U2pTjzM7bHuuwEIsUAy8W0UG9UHw/Tlb1aVF5UKFrvWG8VKEFLsaLirVXxindyOacXkc
Yzd2s46MURDqXvteGCphVQkiWUOxLEKEKBkFKrMlsLEoA4ohWYtSvSYaigcoVRBKpClEZBLsrugY
qFZmAMOpdXRWc4RFQqAiqogku6AkMkyzkrO2NGM0l4zgrRmXWLM1vcyuaUxgCiTom0yIOatLGF1d
lCS0tJltwcbFtan5uwYM+rFb/Szsw6bbWaZmuu2NJwiJu2XVPCC4eLxZvRw3tipz/nQ2BUzmdLkJ
cBCb+BY0mumJS6RmYJZaWFm+/JumBsI3sdSl0vdFlTexItJVaYFk1RxFJGiYZXl62VIu1SfeXg0F
Y8WzDY1mrYcgKmIYIDuQzJODu6ddzU4EOpoEzvk/AxJzIAzLTTAKlCHJUhRRcL2B254nP7PRpGZa
OLvGtS5NEwa0X/MkhIG36er9D93QIB08D63A8mAHjmpOjAD9boMqqqqqqqqKoqqqqqqqvS/PEDCq
qqqqqqqqqqqqqqqqqqvoyWSQNmAUhB/APw+X48q/w+ft0bfQQjoFor+bp+mPxQu60ZmApBH9yUA5
VA02qYVDLPPO6y5ZFVbDKsEFcr8q7gFthSWiWvCrIabcSiUESMN0kJYyJEDTA2uhb0ImJEGoA2IA
6EAS19DaBUEMpEiQJuCEpkBYTYSTbGSrC3DjajhK2ZQTTZqiqWocDAOQyQMslpN0IYQywiMUnJik
xWZtlo2zqqdEqGABilRMT65UQUQ60sZDQaZzIeYYQokyiYzKViaUtSh9FiYmBFoGxQusBMBlIC4Q
VAVCmkYKCsSVJQyIyLEZFFIRQRixRGEyQkwuvhxh+Wn59Oh0939+OWee9bPGPO2ynp3du0DEOwdw
Ng7CFgjCJLFkmwuaCjIthQtEuYGAiAEBgSA6AEBgNxsulDhIzZsuzGC1U81dBuk4C85re2ghbF1q
ttO/DMYyGAwHBqN1GSRkhYjOSUXhfUz3a4maswc996UFwZh/7CGtg103abEqWmv8rg15ttgC6I1b
TKq/4sy2YGSG2/G5Go/+uJwwkmJMQrjmexwxkChYD42kAmlMvdqA1gXACA4IAuS8OakDa9NgimGo
WFci2nLS934zhplddffa2L0Q3wH2pYByJW91jl5zp3AzgkAyYHWRrrDv2qHflmbBXPMmCGUKAUhz
QNc+zjGa8D/3OcFUSJzvBUKRuizi9qLfU0Zk3vpj6BFkgRYIx0EphQiilCSqKhzuimUltrRUKGm6
qF0UdBCmFNMBaGxKaS1qqFYjbTbKLqpdUNVVNXVMFEYLFFiICy0qkqhppgpSxKpEplVUVtGikYiq
sgFHv655eXo8M8cSvaaD/OHQ4Z384ZW+xyquRzDIQtoNBsGANmSYLQyN19K1aQxMbCyTsohLCiUT
OyTWkpJJHS5cuhrxkSYbC0C9EGvKSY3g07MNCMCiTOKSSGVCXKQUVIlFIJqosUUVCRRSKFEkKCTV
KFShDbcsS1CrsdOV+uAJiDAIiLAioQIqFlgCwqQhFIkoklFBrKiJRhYuUkopEouWkiKQwLmPZaIa
hKhlKLSKDGiFiwtCSaZY9lC7LO4OnhvDp1AbO5gCkSCsFYqdEDlYUHf00HVvHQJMt9uur657A1jo
CcAk7K9yxSSZmEatODCbMzSqNDlssKqGlSYNgJ2ztIA68jteIG4KApBO1dt8cZEE2uRFx12uDCoc
2em7hwTm4BoOARTakWVQXkkKKRRRRt2b8MNTStmMGtgak0DCSSIIMkQQwhUELQ72E7VPFGBj4p3b
r6NMChe+1vvUZ5khPMFjb7onQbbpl2P7uVba4oNs9+G8OHy14Af1IGwfcgG3lHvK3WDjXHdrWMsC
5iVJkYQox4TphGAySUVJSNV7XSIkjZeQXG6jMpJVw1FZ+UGrDHXrSEkaSYChaUa9CxlIsYlsTO8H
XCNlxmbDMsW669zG++5nliRmKCgvGMksNjA2yFsahNIWGsgtnLJ41hmw3gwF1uwtpBIDXn3f/IDn
12wsGSpZj1YEWjAkAvPxAwLAAZVyq4RHTvaW8B1CqhlbPfwxcMRmNIJhffbmp003b7b9BRFAFYWB
8xTQiZTIoLoXStwXnUe+jrMXkdTVY4ednSpDxb01116pK/7QJ/3/oA+tllCE14Y0RauTXxRWbj0v
gUYFocYts14Z0aKLa9JDDy0yNWmVZdOzdr2mJqRrKEq2kk1UW3sDYwBgWYm2mGJRijiGQJkGauN6
JZR156QMcJFL5TbWwLG7WBUBeSByA6/ZW1rtu6AcCNAEBZp7tdHplzF6lOASLAWCNa1qAIADDIpn
aw8x1ANJ3FtbzoH0lBPwJpjFgcL3wqdRIFKyAMdz0QeFjiqnGgDgSdyL77zgb8IuuF6mGajRGd+H
LHW9YRWm9DqPF0gEKE71raqX4A/gB2n53H1+Tia9rfRt63GmW7JxkvlHVmhxvlc3jGLGWXAkEA06
xIFDHr6Lft6e1gZ9pUDIIAbK3cSzPIsS1rJMNN7ZtxSaDM0sjhfA2fYctosNgLCBOW0Mk4QBsTGS
xxZFlTVEDQL1QeEL1C1+8SjTXXDAcYYcN+hlaaZG7IfCqBcd4UrsCTfJXW5N2TG2I83uZd1pAtcQ
EukycQBkrB41fX5eeQ9aZADdFolAw5X8HnlQGxnt+3u90vm+m51N5LCsRVioTr1iupndePHOQoug
zfgo9AFN2ets/3C70QsvMqhgj6D3dFwBU31JKOBuNIl9RUkxjRFYGvBjWJneQCKsqJFrPYFeFza2
ALg7cpKfIFWsYEqYBdLiXyB5dIWAboZyGdckptzA6dqK320G52sRgG2L2CARpRLaYxe14gysANn3
TqvHstwM6sNpKEI9VvRrVzsA4ADSUAEMAEuruimYCh+rUMe7i2UEd6AyrNfDaIbS9KMgUQICbqAW
ri/hghXMyBawDvR32LWtwg+NnPF0MxlAuYq47icsYfo6Vhv3FXb9E8Rvs+4i990LzGX3mVrELwmW
XyuOftawH8Bq1bgrDKXm4EkJIHRGgJJVbdLhMhYUBNBwF32DAXCFvCNZ3xyCTPZzraa7ejEga449
De/SdKvFhjtYBWQkhQZ23CwFDOufbfrsSPEm4YQ3Q26435BiWsgC+fM4YUQFAAaYAI+DKMb2ozlE
wQ+bi+z8rJMceBlacgeHxQGu5gSlR8FgOava1x5MyNyj1li1cIJ37fbvZxRzbEckpsWYMROUyd33
6vS+aSlxjAMGu8YgNeEakkoZOt+uTWJiKigzI187432tVcOXgj+jwKNkhGm1yu4bVSb79Bhnimci
hRyLHHPBmuZ4JMi2lReSWxsEa9hnxB11+Fa2CFssSNcWCAdpczIpMh5iQLgNfCNg/Nyo3rLn7OKf
N9VytfWP4AC4EZsCMA8BgF47AZS2ybtYVN0aO3bu3AI6kDXTALOAcDATZQejfdaEzjGwna47n7gV
cbTdVPJ+oBdurMqfAvxeXBV75x2hrFufVw4mHbsS0tu651+YGfzSZ6n13VYC93MR3DOfpFqTIZx5
fbsBoiIhixgdNijwPHjDUsnh3yGg7yBqTkQMBdVw78uVxEi7UvZswjXExbNhZW6iNWvTfqG7A47z
HRMbBW+BhrmgXprflttgG/FS9dggbgtEiJ/vSCTE0NTHx0I4U3mympWVtNuQMWRHR+H+QLNq2H5B
BhCJqNomQxKrQFxAeoB2jcN/wNMoH1pHUDSWtZE6AdAsGTeVO4y5bLECCIttEWgNGULDqoyU4Wj4
MIeLXkt5E3LVeolQLcx/gCPIXR1O1N+svKNv4AWtYYr7fSXDzepFl55GzJd0VH40TrUIa5/YC1rB
oAXbjN0YGKsg3kxkMWJuC9RoMCphbbgqjSMomepUSt1jdy2BsvuzNZJHKoxk1wYG7LSsAwPwAn08
GsCwEA+yyXAEASFbr5bJ9e9sYAQ4Gsz4ajDApiYyGWXZjcjlhtzNvBG+scgWzOluY/WwHEFR3hga
sNAVP0qge5DDFrhANix4u0GBcALM+2GAmLwnk33kWXqMuLIQbd6Rbq5W1l4z7xW5moFELlV8FsO3
DNW3nCyOMHmtoG1yZzdZv7Im6VyrrSoHy7cxwqup/YHcgWFl3yq1rW81u04WWrIpfCILFBuiCUAq
UCUSUgjYkkIokiLbMvC/Ll4xRc8HfH4UYU3XS8vnOGW4WYa8926Zky6edZvi6cKqVb4xHCG+HMpd
73V7lK1L8m5vfjMeG3UFiovoZgyKYvlpb4fJ49BIi770dPnXcaHddzpoUrRp6r9gLcuBuOF5GDfO
X7ieeA8LlM8MsczGm7inI0193pn6lOvqAuEVBvuVvoahH3iOg1ToRtLFzINcuPPD8gkk75plu/CI
2XBH4zpr54E1w9aSq7oX3BYYtVVgB+vwDAEsXhl83vysbdaz4uIVlvayKrX+QO5AptnWlKgIhxYd
GmLbUhs85bUacBEXu0uKQ/BtT91Sgyr1q22I7ob4+zW6KN0EtiCrJG0/1A2u+/iNXquaU6fTu2Mq
1z675vbHvrpN+YszfAIvRXIS+8xS+DadMMnqIhmFN2lfZ6muzLVlYbVNCrvdumMkdT9+ZxmhEzTe
KxPXlFYWgYjXWPB+Vi6915fm0rgZvGJFYuC1rKfkNy7l9AMlN26G9aNyOHjffco7Vd+bZozezVRR
O7zB+gHt49L8cNb2iWr17VEn++mRKEdHV12WFbsdhuc83ipW+WIKMq5kjtnLQc55eeoW/BlIumL1
isJ+ZTmMu+6KJEY26RM+O6L3qx2oV6iOLgz0J1h40WsZEY0QOBwWshWIiAIavYbtqbKIiIAhX5+Y
9dmRzo3C4/cCyq1Szb6DKbSBLbnFyNBn36hUhvrsX/GrstGc3jJep6B8AsHrs4TvVeKznQ7gfhsi
KRHyXb+eJ0DvX2j84TbHZuN3z+c742jYmbwuGMnK+Tz9AAL31XcNiLq+d4xqOwGTmNquPNvd5PNy
I3kdd5TUtUUu9DzX9Q8eNDav0LmdrfWS3HbU1wGA6B6B6BIDgfzAL8UY4HdY90Pe5XbTCcngWPwb
f7lT/2Po8j1P5kcD3OPb+z8HiuVJ5G42kwLQ7Z7HebzM69p39PSVVVSvMqyqqq2yeHD52BCM7yIe
J18DsJOZgfg+kPth6B8rnX3knCGs8jUdp58ZPA5DuPM7zwOxJ4/MGs3ULnM4ms6HbY91zcZ4GZ0N
u3yB8AAh7dJ+ecKb7MYq7+Goo7+nucGBb2NW5xhDXWs6H9wBIBdmc7XxoumtuLtAy4KuFOMTcu8m
nODZ3NuOMYZs7VihlwKQU27VMJQQhMGYb0OAkjNbxL25VSBp5MwkCw3hSJOWitbBXDyBMsMJiHFF
kOTBzV6uxqVWWjByQzthwYk1GYDV7Y5Kl75ElpBCucMWkNIjD4OYdcfjqYuJYvl9PjRmJjUVDzUu
zRIWHqYBDhoFPT3IQiYXOMADBSoRpLZi8RpnDO4MVQ1QqaypOBAOEAlCAiskWSkpigUwInGMAwvK
Ov5/JaHpsm/30hsfly9yj70SiMkyvVZAzn2b1yNuBhFi95cyjRoWKgsWklRRjc2SYIowkwMxQUXh
LVhiWMS5eQjCSWW52kY5DGSXLmJkXwLK/hE0+5h0SpZ37RWpKM2ICSUU8PgMAusAqyR45NhfPfGK
/MhJz6c3YOA4gWbBd6rkajMzIzKEqMdowRczMYxf/xMeG6szl1lkm7fbelzDQwNZQlQkjYWJYVWg
gQIKtBAIEQHSACkjQtZJNxa4wSSiOmMlicijHjXG5nkReC5YovQ1SKCxuaX0/eywyGCTVqLlF0mq
SiXIoKHK0NmJhdA17b3iNJbRLxIuhFRG1stwySWKo20ai5ZGzKQsc77MTbI68rtm+uzXvjf11c9W
lSTdRsNljWcpNxjc4TEsUUSUbdOtzHnlIaERdrrDXpz37b7cNe9RqlG0qJKZZVz420pz5r78M8tX
729eu4kyvpmGB0KLAgQLrlnNC8JiQ2104iCaYG2OQu5XQ4XOuJs425q26W3555tnUVl+YiRuMu0W
iN0EI185L9d/ZeSc3Lhq3c7aaaX0o0vBY59ueS4IMWIQXZJG78AiIgCF2N14fRtqquZm4XUcdmHR
6PuduhAj21DWncxadTej0xDDDqHbkREAQmkl50ty47qtna9tflkI1a2/tXtCyNlhqwXWso6WZ55S
+M423b8hqKKG/G/OrNZHOhUkvRtJgknWsS4jblu7UYRMNe+8g1lGShG0pC8EI2bO7IxNNNk8Om8R
uzEgEDjEHcGVIsDUkKEDYbilSNiwowsNdGEpIY0dc1jCCiTbxsFkyz7etsceJc1YQibZvLFEu5uB
gjZY3ZGBRmVYvbhIWuVQ0WtEqkRVFYarySZ4cbxDQ1ZrmWzfv44366+LibTYhmSyKKN1i4tRYiKK
FuHE22XEOFW30G8rm31plvyyUNQsEDfdSl5AvqTYGnxwAy9Qok1azxQEayAKVAMSoCAEDNBCg6Z2
6tbYBrIVTO4VsHfPbt5deNg1A73eIvEb6OOJgbTHXgZ8NWMvW63Vv43biqA7AYlQBJA7KPu4YCCj
DZCaN8daV6BzkDV6DQQB89TdlWoPK7C/dOeYzSa8pvu5eoHDTYKoFDNWFhSF00RKshVt8q875nl3
29Xfy5f40FkVVDuVQTjvumG7o4hnfhftarbX1y25unq3cs0+ovnWjEBRTv83cZVMEUmFbEPJseOg
dA9AN49MY6LjigS76Vpjjr4CMtgUBIFgIA4CGOGOOuajlG+iSxRgKKgSipUiEDQNcN1lH5hdQYBp
SoYMCtLZKF4uAGTQZwE9mQ4uBL8855ryGXZqECSHERLSSkk12Ly5WssGvKwYUGNDMsWE3ZWMWAsg
o7NvfsNetr5A1SDOKPTBXdlSIXjETdkI0iZBZWym7Al7FG83cvYwMkNRp0otUXFHIauBdAPTTMR+
BHZEa2B7ICi1ioCb+AF5g82Bn3ZrddeS41wmmuiwooSii5YsDAnGcQxz8AyQ13xvwFBKNpkO7458
rMY56DARkGSICCChW9VuY59pW5fbB4djPAZomSudwDSkAinNeF67ZhniA5X0hoYadduzHfjZy2Xc
rY5bb6smyDOpJqOViB3O1tbCBLte4G4lQXyIOSGE1WUF9r8XziTpsBSd4zrOr6bzWymZZ8JSLTRC
WtawFg4BfDPhczzV4DrxFVqqqOXS8cUi3linfmzTJLaJAc5nD8OGfDZnfU13ytpbhx0xPcO8/ZfW
6q40RylEKIEFWeGceoCCsABOcVPcjAYAsBRqLYC8SkioRiWJ9y4LlI6ZYo5/G/HKSdK7dslkv3L7
8BNKQZ6y0hRx7dd96FGOiX279uDIbsuWvDS+RcooiNRYvMLYGgBAEgAZfL8C8CgLa6cD3TbdU+Np
8kDah3J9AVALoTKTURsDaAQscn1+xArMo0EjQNRBQPLQPiZ8VJHGtbAHx7A2r3R+s3sCw+cbiJnn
8TxQUhitsXpVSUhLUERQgqNybQgRU1akqx2xtrYAFCIEjIHlWqbOrmgDFaRATJAiIFV5EoMji+ad
aMjsqt4H0CLl59lJ7asbwcvedFWse128Cl/G3JZz1p/yA3S8cbqo59AMA+4A8WcT6gbsmAwHLucs
qwbAK47MjqjMyMii2FXamdCdeJhajCQ1mkmvMWGKNtMjUcyJJgqIh13ZcdWhTdDWWgxcDEvINzdJ
lvzyyKqjAi1RKIjAg4mY023dEz1QB7yITACVXMhR4rPVa5uuUXSULGN0GVs7pq2ljA4nXrz7eGto
G6Q16bMFtZhwNOuOdr8dZYy5pJY6SMDYOmw2bcEzMjHwNu8wxc+puLam3j1uMcWzaHiWsNnsGzgI
gUAldaOqH1hVATt9NNYzF7sTrSQzczjgAzAw+iPXm82sUwA+EQK1GZpD2IiIAhciIgCFKstG2YtN
jjA2Y6yK2dZ2EVsvLpJKDlaOyyVqsaa7TvBQlGe4HT5A7gbMA0dyD0VvRTTXpuA6b453tx1LGeGv
DsYayMRfApcttG1C2fHdcFX0lgzRta/HowKghAgwNRTOgsNedNnZvNvDM0MaMCiNuzHXqrgbi4zq
LFtq4pUWFCZGajg2asjErQxtY147tt9UMcDKyQtmbzTXt4ErU1bsXg7tuG8TBjiMpAAkdIDBgYMi
AWi3vNccAUDnUcAVwJSAyAsiEs2Ysl9kBFdZ2EnHWig4AkggQB6ERbBSHLpQGaovs+Hk+O2q7SAU
HsEvpkOeBA5t1uexLBfhOG7he4bw355haqM5vvCj9nuQlSHK8249txrqNuyxicpY6FM72Gq2Ftu6
73u8yyeErukeFvoq+HsIgcKI9a6s2Y2F0pSl4KmFa7izbsjFKZFSdtJxLawB99wP2YYHoCOBxuAB
5krMowOZmtZ2o20lipG3nZrKjEokY1CL0gooOdIXSsCmoqJHAAwCm8Ijyo5Z9emnNnmBlBHbOluB
IJqEqKvZM+m8OBG4G46eKlwWSwmsCtQCDCKBr3Zbyyw9qK3trDEgHkAEBAHy7AKgB4ek/D7+sAQB
NwDADgaDzuJCptnVPqjFsMWHHTPTPDbbE47TGjjjGRQYsCrTeX374kxo0gUtNJTKogHvIAag11yo
ERamBZKTrqfRriIepATVKBji0AxCeGfUySOiMBvV09ywxVa4Ty4ATnhRohiBfRG0nj268e06rwaQ
JxPBZFMEVem2OXgqLG1lhlJuTk86LZTO9P1YQ2LZ8BTs3r95qk+D+huOg3NZsqbb2m/mwrPHuwxu
cHTM0KhqOaEbzUXMI2VJhhjWGO1sz2yjXVzRgkYWkmhqnWryMDWcrZIvN5v5337e5lw25cTdERuW
7XDhG1gixNuZc0MIxolNMGBKhYIBeygQXlUoMBIQIiGaZsG2QCTzInLCsDGHGGPBjtx26Y2TZyrC
jDmcpDC84Wam9MDiWRwNhVteFtpUMt8cePLTIZX4bsBEFmQ3ygpBmTk9l10tpmTA+b3rKl8Zscaa
FYNMKrvPORXL72MXr3sR5G1TE/Na7RPpYvC5kr40+6VIQVfac4Rnmdo7nrl93Skita2APx9/gDAH
POHYhsnr0cYjoKiYDguesN6xQEgegHgCQJASLi2hflt2RMuy5jczi52c+nATcVvM4dmmHD7mfFjp
pIuwNW6GJhsxgsXsN3I4ZZGJTM4Uru2eRXLE2NCN9bNbDXbrG4xciutbZBOXFx80BK3YWEu1o3EM
1gAexYYrWneO6A5cNpIW4a+G935TXqM9uCTibuOmWrpvNCjI6bvVAMgNmBYha0GYBDsrs557Zu+R
aGKMeIkcz7lrlfrXTZJtFA2sttK1E4JAifu+T6XsejK3p76ny/xD3f19o8e4U6pNt4faXFFV9cqG
x++UKjLKdcudCd5gC37jAZ/qwCl119IIY0PUZCACdoTOgMQzreazVJLsjAvjjlu6scDQzSS2434E
XkXLSCipDq2WlutjjSRfctJEs4DAGBbQDAYDc9ZJbRWsLZawMcoBNTi1SGgyjPLDPhia9hxwvpjm
ZWjVIbMZsLMjhxZmAM3a85AUWcd5lQHAA1yAPqGbTYAKcAkz73AxkYRjbStfDVh28v5zdINZmsX7
NtsdzWWAHbEAvZyoAgvSFrIG6gkeXdsp7lvTsYjhe171K7NSzxjSXZ/lXrf3z7LV6wvPKah7UAPf
HZhlXrenuy1DznVbtrtNEb0/u78TGuLAgbxTEQfmB+YH3+XXWs6XhWdVweOFaIWN2wsHrGMYAwDQ
dAFIiIAhUECBEA1eGS1g6Y2AObWZi9yMU6S1Ba6VwDLPB4sjf8hYLic5vvWl+yhcczYbvePvsX44
T2vmMvx5ql7zM8bdqe8w7pTRHWzd9Zl7+gFT8THjW7c82T3TzLPveul1CVlzOYhSLzW0QpLnKzM6
IgP72a63SjJlEr5WAo832PEzvtDzwr34ldzfifUY34TeKiZTXf7PfzTg+ysYyJ932dGhSU+h0n2L
0wbGb6QiQrrdFzhEbW5gP+4C3rH/N07zc1f6qcZ0V/Cnl19Nijv1raKsLn/lUFOPzAo9/VXxPtXF
0aMaoHfN22lOGwm1EuiVQ8ZmxrrYATC6DD4Tn6JoplGRq6Iplwc+5FM5QnvfEykR2c4nVX4W2YUD
/EEuoVsYzkIKyvtz3YauOO38odMzfizoluVv4TBs5M8UuecpU+66ScYoCVkO+T+VWSsUZOldFycv
ktAWHpANv8sJjX1MC8lvagti+8lLa72dkNFdRlrkYXd1xibw0SmNZSuPfPKxmeTTEEdCfprosnl8
4zErKJbqzbSr5jYzTjGLwBNdS4Oq3V9c1NAcB/0+vT/tvpTO9pA7vvedPEV60M5q/5338gLc559N
ueqac5d9pWN/PIiAkcuWS8V+1T4mBX2Bm7S/lVpoCb0fOgvUTD+aymvOwHxlOpt8s+H4N3HDvNwO
Pv6HWn7+zg5+9RyszL0k0kIXpD50XKDNFQX5d3Buj1LfR6sv0DWSBmBuB4Kw/ACgOtG61wnN92r5
dvmfjfD/I8Jph9jZ/Z/bva+8MZyaDdxeD3epqhyHxwb0SHO2Vd1WKPe98DbapiSh44+K1CXwQnPB
CKg8l1pRMRi+ynqZg4hdkw+3uBgCoGhEBkDq0Iep/RmeN5F7HdJ6FeXqUdnwav6N5kh5OJbE8DxP
X4IjVP4SadzKobiktSqV9dfE6+3JFO+voo6mJeDr6GhaWO8xO876NhidTRD24HmZnYm32WOutFj9
HE9zQ5m83IxPJDJG/AwTI4yO87MuEHlIXvVVWJton9G86nU+x25cDl7CpuOh5J4nwbUHM4SR2GB9
HadJE89nfDHLFPXT279FH6Gxsq4IRfBo5S1vQ2mpTtEMGxiv2IBuOXG1Q3HbkYbQc6dXaYb21k4O
QauKzfab3CViiVwb0Ub8G1nAYg6kyaLsUDKvg4YECEULZwRWQ7XZCG4FXch1TFhGloFMgd2U1Cvb
MmP566R41IOza2xraqcg7XNPb2yEJS2rTQeVguzwHlHELEO4/cALOMWAEUzWLkERboW1yUugnN06
znhWW12zXl42iyNPhbbScrEasUrEtIXp+CkRKqhaEBMVAMgwBwWKNMCjgWLmBaRRiXLlF5LGJcxk
WFzAvIWLQpJKP5LlwgQBAHr576tPN6dIRmd4ylyaMCstCQsnCfuyF8gEsBHCEhokiCXIAAIAwFAg
DFgHxLQ2vTGIyjAWzSasSjCMC15FxYrso90VJc1ljYUuVGSInbZr6ZF4JEMAgqjAgCGsBoIDAiqj
1KoihA4StgukMCkhKJv4XlyiioxkFRwP04N21UkxBMjMtBUJG0zukJKqJNDAzN2wm/S3DZtNcCKB
mpXNSoVag2Dc7ujHa/Dq485dvnDSlHE1ScUmOBuvyw4RNRuqRkY7rmrPhr1Gzlc76IQEqmRsIgEs
IAVQKsBaoB0AkBWTaft6r1IcEhq4HCOMZ4bjIzNLW255bMWLLXEsJVabrKFwX0LAC/m0142DAN0D
5wbbScxphtlppnusTOtKODHO/OY8tdbNEjKJnBQ1UaRm0NHNeoVrRVonOC3WX8kAHu0Y474VD4Sr
T9wRFZeUTpBWKLBz0fY9KI14z3AiBegH7nQw4k3oYFEMKs4VYtfty39jFfVotDTs7GRrMAxajOYF
y+F9VMczXnywS4ipCkkQooQooQipEaSMzIiNhjJqktsxgzKKkkEYipJY2FIuXOfWxc243DIpF7+5
S+wo4M5gWXRLnhvLRffzsWLmca76uERc0449uXDjbU5tkjOxtaVYouVHLPAwL0bLuNat9ms0MpNQ
3mFhUzMb0saijVRmazdrM+fLVr2a7BY1lrULlFFFgrOibd+WO0xLyFGmOZgRP7h2rWYABkHmLEmU
mR4wBC1qtZIAvWqvaw2lgtUk53FrgeAENyBACAg7oAgExvEYAwLABgEQBbgA7C+0TxtX9C8LWp2q
XO5YJEWnGl6ggCADzEMVgHZaqUrqFFSoytHtWhnWP0RfhpvPA1mwkvvVTsjCm2tt9q1rammGmmW/
lv8qNZxN1t2gN26PTnhJLb8ZDWarHddeEyLbLZZFqCkNXZsXOUWViYk03GRqytkYF5Fhhbly0JMM
Y25mhqP3ZE47CvXjc1azLHC5qMOmSSxhtNnGmBmVEmN+BmMIuRCM9/I4q8KmGGVrHfwwiMdmJt2m
tMR3ACVYFYCzH8GgIAWwA0QHUMDb73nsXjmMYzG3Kc1CoJAV2JGj0CxgROA1wBwMADNBLWAwWD9x
LtjKgVowBqYIOfmr1mwuQGABBgKFHvBJ8qu5F9e0FG9z/xfyP4gKmt/C1z1+5uwCPvuI9IVUB2hP
mUeF99yYjcnHLzIH+gLZUArM06mveisJbZGccCTOVrLwWN0kWLmUy0MOLDHLDMysafYuRqMSxXLP
8ml9EY4siixqNlzVpF7xJ0uWo1Z7senPPu0Nsgxn2QCADADbgGk+wMUH8HyHoDrnuvTZeD7JmmzY
OBxpQArBK2gHzRVG0B+xjIFAZAuBj2ANKm88LASx5tCzVyAAIAhTD0yDtB9Jmxi4n+AAGBgRHy4z
VFYe43dbketibWlosF4ZkGRN/EJL7JpQ7VovE1OuZpUovY98hpu18BJ2ccIRiv84jGztP8XbLHA8
iBxYPFFWVIwyFXycXwBIAxIByHFkYBbB8kBGPPZYgPPTj4sXKwiXslhb4gAHUbZYCgCBMkC8DAmA
OuvLpTK3IbTYEr2oCjGLzExz7eIXq77HG4DbnujCdxWQRICBAFXjxrCi1uEJTuj2uKUJXtE+wtxN
/CqgL2B2AGgXL1vN0AQouXqWFysBbKpn1N7wCEI/eQflzvrSFg1LEt4BWmnrPueHit0V41pjQyH7
+s6rv+YGAPuateWWcc2HSuUW4bmz2rXoaF4jWazXphhkc8OXpqKmVojlpjlr7cy+Zl1smyDgjbsw
F8LHb3XLiaXyueVHXvyouOlG2oS/QtqkWYwTCJarPzizpUwwBjARLs6swM82uuVyEosD2zMJvZKz
g3S+upjU9K1YyDoVNAQmQwLN+TA2MAkJpUx4QYxWMA0dM0eF4biyCAHAjDbX02A6Lpovc+NHxyNc
h70iazS6ul12UFGmC4QpaI1uvMf8FjvE+8wORq27Zu5Lr7eblfZWhgcjHnGei8tpstumwQxaJnIA
hqwOuEi94qsCsAOVAEZkTEuWOevO8k5NGozJgKHGhaKSggNXEGwEsbZPFJr8/62FtdvtvLxfud3D
ZnXQLPfrO4pEMVLZv+PfpHcDQhRf1YzzJ6+Y811LhfhjzdOdbSKltJfhmqFQuMd8LXPL7yvQh28C
01ec42i0KZNwvieLxyHV31ebONPfm01zr3Thfv1voFwvLX5nqfJ0xO41jT4trd50S963ZV3DsysR
6Q0hchNFkC/C81QELVAm+TPo82q1j1TXS9A6irKVbRTMMKA1103d4cTbFTNDPAetXHAwWmza2YMD
iY5ccelvF45Gtlog5Vjo8NjuBxyAa7T7Oo/TmEn6e1gOaDgKc2dzT9QF+WMaQomKGtxO9xD9z8gt
ZSrOM5TwX77OvoJv58DTz6PhAiqo1ueHHw/p+fDlgQ+NnLlffX/FrfWt12VbeVRtcOKGa4hs2i1w
jAcAfGG2x6gQlAkayIx6Y8t2Fab8jVgZSwwNUitTAZDnzxNZffmaaZamoxWFGBc1ljCjhRjG2xbK
HXjVXswhoEOlBQMJ05BYN+W1uA67a9HWTRMZ2G5k+cWspBBYwYYbaW0pfu8BytCIQfTC6vRpsAIi
FVW0oKmrCNffF5OB4W2tYlbMAKRjZU84IDW9lc01rM8J+/SltjTzQ5zR34dbgJ8Os79zNdgnLlkd
1OS7yPI5Hl/L5lctJtQz1u6O51dcfra230sdaUvGZm3jwAUgP40uBwBghobVi613VJGgKIYG3VGB
kS18eTDMtBkcboRqaljDpRs066o1X2aG3ExwtJgWsZ5W7sS0hsqDrkMJYjNqETQLGQtqblQsHzbC
9IH1gjgLUIgNkhNSjcKeZPLNb3WBrzu8S/mhjL/lpS3iAL36zoLlOqc0WOTng33IohfHmqv8Xy5T
fWc8Pkzf1l4LdKPIXKlkVM4jPPVanvPKvs8Fp2L6Jf8ATIoCRo0nd8Qt8UldLjE8x4AWAgBgfkDk
BzZzioamR3Ze/M1ADm763NzNO9Ga0OtoEAnqftEVD+0AAedY4jV7LV1uw2InDNmZXhvEVxpNb11O
gU+MVUVU/LruL3uFxeGebnLfo53MsFKbXplyKKeY4d0ycGzPLoQ2906uoU0uctUpUdPJcabj8Ab9
2xjNQmaT/fcD+QBD2IgTmb6/BFLT1PBrFdpM5WrjwA/XjeUtql/N1GmJMZJq175i+Gg0/Q8PXGui
4peSTTza6rPMVHDLm80WkxL73jAvoUmwswLq23+QbdxAxpa7F03SaNavCYAyB/L+wsM6Pfa9PB99
TzZlpMXkjT0eMye5UvHgo3lFedej7A+zEitOHnSTw1VsYyC2Rrqd8XcyvUPJXPn0w6Slc0T26rxm
wwbzec9ca/kB1+abU8vWtPf3OFxn3OHYknP0ZFF8AHM+5giRR/YBT1tkgQZjbqoC8/eXbKTpc1yp
epsotxvNHNCvxfnxPlKwKmvnUpGvBCtrDU2MbwuPyVNafWo+QOXbAIH5rzLCxir9Gvqlr40gqbnX
qpJUzdlLulCMRtK+vWtHjePYo31Az7ekSSd78yPJ5Frc9CSPOQP4AHKtnsa9KNopbesv0+UJx/Cv
N6VABbAJfppxXVNI8qkp9tfv5xnWfvzGcRMZrBvPUzv0C+o33u/ODflxGjWOTA4b5CM/fG0z4Uzl
ChJ8O8aF2mCyl3xGCFOtJ1NKxXa1dju18oB4m5DeWdNab72blibGvXVWLY+Wz778abnjQ410O3KK
j+U9CqRHo4mXKlVQ0wZIVvppIvt/sL+IurXeKMAnAoCs/pYa7V831x0cl/GapEjfDzrVZbl5wiVc
tdEuv5xU7B8GY7tnjc0+5pOg4BvLtfGcXZSxBdmnh7kzzeUFaF98fBpqJyk4Lsyi6MaXN+YnU3Q5
bmMWGAP30LW/zawMDmRhY3HU9i52Hif14nhO3wk/j6MEPAqH5KkfJqPY1HmbDUcjjDgaz6Q9LPYt
9PU8zXE19hxk+ncfR27DqeMjgn39pFFo5m8ot4G44mOcj22DsMi9FJoPC8hHps3RN5u/qSdxvNMG
wrE4nRhuPX5OQ9sEwmhjBmbzGeB1NxrLRJxPc9iZm01nkd+8vdsK9CtpY/k0NUHiajQqXPcyMseZ
obTDBSu84G7A5W1eXoHsXnueZyNyHZH3OETwkl56nU3HyZGHJD0kLOlex4idl/x8/LL23ufZx8/m
3T8W77KfYMqjwvsglxKRKfmMdtGBVDDogQsPjM0ICkMqCSKKnLJm0sFDhywvJo3STS5VlQDAYAxk
CtiGLsvWSbQxDloKwSnE1g0ZlF1OHS7YNYNhmbvaaGXteib5NtYCru6KxhAM5orkJVrlFzMIHXM0
pMQiCSZD1FF81azKVeCqvH0MkYGokJRAuMrbcFJyDngEiMkgSChu6dsNxtbajXTj4ZceE0LZRHLR
0y1FQ0F8c83ZO52ikA+4HtgCQGGB0AghdkYGRmyMCXMotjhReLAwKEMg5C4AgkCyGJBCgrwpxdcG
2O2x6sMkiQ6zMPKS3nFB5bAKIMeQBjAXeqmM4AGgYqVbOhLXil+68HhpdOVrJ2Z7+YDQeUkhxgvJ
xjPApRejXhq64HE2LG+TQ+lAESzABmCVnC6sUr93g8RlQCOaaYxE9gL3djKxgRuOWMO/GpuYD8ba
A8Q3DM5k9q4FDAFAKuKHRcCImn+TrIZrZQApg57Yo+gEjITzC5nMBZENYAsNSRgKndnO3BZAkCGm
4GWxXHlK5KfXvO5FaikyyWFTda9L4XJafSkc12rc1QRtpM6UloijXU0U+OrcqZRmc0dVn5ECkB9R
IgQECL7Wo4GOSJqgC6SHC2G9361gBuzvkG+BFMFd4UmVX5qGkDQBy5XZhYLtKkevHZNDdatxYV5d
VBy2UYii+nDfu0w3TO2ckWxM7STZgcTbsNnDUxR0pgCqjk8VW21EC19bZXcCJbhKC0fX94FQMA0C
Grr/kh2757h2NoJP39fBsNswk+I59NuvOudh9iKADWC4vQB65uc6UeFGQhM9XgRwF8VlvJhlU5W5
8NYDOBGA67aLAc+fRlOh37z13srJXN9alv1Y/IT29EJ+uJS69/xtl53VBiD/XdZFccxn6/cSw97p
R0zVOM4pDC5aIB1BB8AH8CuQDyBsOgBPAOU7eeBqSTAzOmrC0amJs4XgzGe+lyF7dgQGABawZ/Zu
B9EMOk2tGt7YROrAWxc9gGAh2taLKQVFAb8qCAbjICAS/NkBNrTr6HdMIAA8A2Ak30B7vQtZwzaI
TfkZFgS7lxYgOSD69ayYDm58tHV665WBy5TmQGU6xi+GGuYnwvmHsB6DADGSOY+Kg1U9+0+p1eHA
89dN/F3tTj5bHgnH8RYAYCu3yZ+l1rPvvaO/J5oQdKlbrKhlAqSL1lacTtEwfuBSy9oNmy36A+/q
fQjZUEAZAExiCAwWGzXF8pnqh5B1DIIXmr1e3psMmNFJtmQ6ACplSVo7fpT5BpvtwjGPxnNJCi29
IFbIBAMWgDtYc61gG3heBrGTPi71iqt+7Dgbz9T9YUWG/EA5yPrMLlvSTqhr3hzyof4LWAnB2s55
0hoYg/FKYsTQGJG+GBd8TUmi/AC9zAhCAmmTwrQKvLSgkIubpnJso1zcOWWaJTsRAKIgu7WoaO6A
WBSmMaL7TfvPnJcp8jMWcq4P0yed70rq+G9JhnhpNSHCmKwq6DX0wBIgVNwP3oTeG3EwwKVHV1lA
agc4AIIADLFzZiUnAZT49HLWK/UCc4AG2QM4+YSPzT8+0IFmXc1iMT94dVzkWFwGFx1cOxb7tPOC
3EjbgSkoLLvC/hOLxS5M31AD8cPkRZtKL/jQbMTyMAamM5PG8DUHAqdqz48csyV2pvGCBS9uAwUf
uC9oPm42fl+av1cboNyw3g5WOsKfH8wEzOaJPHx8fMlnJ2zciqt/qh/l2Z+06OsvOl3bTJbCWcpk
p06OUdUZTC/yBABQcYqhG9KCZFBADIiYRAKAWBQBpovUg+t5AgCCzrHR0Hru8PIijN+9zpvddF+G
6xptNJMsCpfLLpmZGcNVi3PUXv211G7RMHAvO3MuCPKB2YOR4gDwAd/iwNgN91vzW+1ftgFNGGmo
EQtghXhyeJUgFAGasLXKOAWUEAzu2stIFTGf+6ABc9aWIpOr5QD2sPlCJgIijKyiDgGIMI1ZvZgy
AwYcmXXrTkewABMPOPzScO6XTzpTv5mX/JvrGowX1GRf4lfFddgjPEtu51qre+7jp+eoH5AMEBN8
xwYKpxFg2TNCILaBEDZlZlkA36GOyDhvhLzPszuMkOfo1tYdQRhyLBA4rBVURQUAfVWrIbXgFgbO
huk6Ph0qGd2uWJ5AQUAzIDYgAQBBld9bE91nztSRDLJ1BTIc38+yYDDz5347Y17V0VSVmdtAe5pA
cpxBPr8YWjxr6h1ngzfTvOboQSL9/S1rW5qw9u+6MH8eKucI2j+O3y+WbvaxeAt9ANd76O6FLyol
8ue+YQp2bRc0Wrx4xQqjJb9Era1rSHEA2ulrtIGAAGAQBFAcG4Gg2LGQK6RHtxkzs9s0pUokbu4p
gLW1a0vieXArWPNiQPK152D18o7uXMyE0CU/Nn0veQgj0WZIJvJvHqgatW8lqd+vcZ9PPMwIV0Gu
fh6Q8f1Avffq+595rzY2+MJCfPUg3L7sCIgAY1qu/7S+JNetaBWJUcFyaOoDV1dtuoSorJ0GfDnt
46tmGu06h1kn3NkYTPFxwzhMTfxb+uRqYsBhABAEDCcAMuUzWXjrrpt/YSBn1mG48oHYUA2Ol2qA
ZiZwreo9rAgCAGLCzX2fs6WbVJSqqAXIIrsBg8dTPfi3oIRflBea3aqAizy0/IdbAbpfi7Aob2C5
y7VruD1uPr51APr535iuQUBfUOZTvwAmkmESjB3TBgVOgIG7C3tYNjucDwxVEGeCABRqYQgCAO7n
q0omToAQmNIHLGy913FVqct1HhizouWkqPpyB9wFfsAyQD9BhDcHJAU8uqeBqXsZBCKAEAMAZc9I
cogOUWcvgzOqgIhwdJKWEAKa9tt24oD2mHy4rAIJGdkHLICjc7/uxWAzwQyAaKWquIe71pcAWw5d
R5q+8oq/x/Pfok4YuX/eNG6SkNgNNSBEQKmR0fpp1diTGAmtS+kU2WQIBIIAQoUiJbUC4a7zzSGg
Rqow9ETwmVzfxaqtGQU3Dw6GmO4AA5KpsDp7Q1lPPCMNZxo1aK1jPBqUbYREpR7wTfDp6kqObLuU
E4uv+gP3BRaifHtrAGcEiL3wQ6s4QAKiOjcpjYxKI5n+A5owKiVKHrz27beR8P55cSbyG55sz8qo
jV3l3VFeFfqr0BNPF+5CfiNpEyoO88XHIfdTfk6zdeLrupZl5qK1WjTGmKpRNINRR3N2XZyXF3ng
vfeMTgKB0BAP74cPxkHV5SDJbpClrpFw+daWOPHALDeb/sB5zGs1vizdqv1H6j7jsB8EqafHMBix
12fN2SobF0hvg1YbU6baopVPKZG37TATyFcl1vv+QP2H/AH7efN92f0d/qk6uB5w/UmWg49Anz60
n5bH29NqlRtfjyExCEfg298bueVv2EbEEKf8fQHMEz7fm0VfD5N1POljVKaY5jwrssKsHfJsjzvo
fyN5PCdfi80bTv6Tac2OujMIZ322jJTbh5NF4regfta1vwB38o6VvAycgVy5b+S3gLy8iY+voszJ
3IfgCJ+m1xe1jGg0/sRNrZs5cPvOtcMza8lOfkVZCsQuW4D380+Aaltso8QS4jem7ho+Z+XKle8v
5Hw/kp8PbFxMG0fgxN83HkFHe9lwmtcZ0Y6Z/cC+Lzbb3ov6/GOvX28frMLB/TjYddWJeC2oBrHu
1z04R/WAxjq5dXOXBgB8HgMvN138p1pPLR6mjmfMq6tl5h33ULI1jm+S+53Nad0rUY3sQRT52oyT
KzOyPh6RGheOnNcc9N+vGnX1xz2268v1dG7SHQCll20vrtttPa9JGdxunCssatizDWKQHBjEZ0et
ipVxCT7rure1aqkRMgj58QB0BrHADAfkBPsA/MP5pI525plygaoUVJnSAixp0PDeAIrjZsLN0JVb
BASLrkqzdIu92jGenZH1Abe1edTBYLTRdggf+pffMz3tZvlXGB3uNgJplz3AmRY+4ytFlek73EHu
rf2nmfJs7/QlpyMfiT3J9HydpgYlkmcS0hz/UhHkfBLzKHkbGo4vk14w1yP2WjwPk7DvSfwfiep9
zxL8RrOptvcqb67zYUeh1N+SOR19SPQ7T2LHU74nMcvEo+jvLTdE5JusPuWnP7d0ixGZvO37I8jQ
+xsOJt5nTvOJ7kXfJid+RkTxLjkZI7Ou495YxDCyvCre5c+SPQ7+UjUZSYbzSGU6nkTwLm8rbrwW
G/xp5208ee6M5NGs0VlFG1t3PcjHtDVKF0ctbkYFfkYqKrITIaMBA7krbJl7WIGGUsVlpOaV4bMH
KswBBDmal6YQXtGW3cQFAjAiRITEZZpEZZobGEYhltadXhHioQLCNYRaEsjBHuod7kssI0CYV2VS
aYENbVcCbIR0UwFd6bfPGa4L4PKGRgTBKlceEPFgiKInTfv097KrTvDt77UsL9vxbvkJqh0W1+PP
VeAewLAvBAsDeWMDgYIve5hRgYQxowUmBRVkC5CUZQDEhiwyCSIN0FBmGumNpTeDF3lo3w1vWMOr
3xvlJZLma3ZCoIblZXySYZUF4Ulg2zt8TQBv46K++/RIG73BxjQED31ZFT1O5QWHegbzjja/1Vqy
BHn+XkPVvurBhEQyIALcMyYmK/aQbITLRs2MIZVR4HQLW3VXNtYSR96TIsgPBBgCESQxfYgG3sQY
oAiArCtmTFrgDvnMMFAmF+NzADqvhp7hZ/1ofLWEgeYoaHfSgBC3mwJxgBgo5pQCmUcjUgcsHBAX
fW+szOFJ2t2bEiSZ09iLWiIVu6248rLYVgjVD+T+W8fsB99nVev5f7hmc0D97j6jPxD5OTNMTWo0
PrZw7tm3Cum/TDOF61bc7ZmcGhgZEQwEql/wBgfZWAbpgJIBF9iU1HcONTFgBi1zFtAHjbCZQYrO
KwZfkDp6sGMSBtdAS31PdFpg1rADZDRWs1Du7jmAtrbaYzgn185gBQHgCHMyA5RtnrOi1rdhZLgI
YBahs7RxYZtaCAcAgMUrNmHgQU14CFb/j/IDhvV+IKqumumIWIM1O4Ghkc6mCJQFRomZ00E5WAFA
ALQqcwiBc0hcObzY/xJ9LCLeSzr8buzrrutNJxWJvelZqmzXpxnmvH91cOHBc/RyjXr43squWdVb
rzypsK4Z3LlGZJ6DLAXjAKC0oIpQZ8OO1Yc2btmFs0TXZhYYA0Fq+/mfDoBXYAwKAgFid6PD2qxq
LUARmXSrZ9X5q8C14EgC3K+FfoDvr6bdWDAcv44CaYiHkyFLSuKgtBB1ZBjuwAnJyyIDGtqQoxVr
Ngdl7yjVZwPrzHvnUGQM111CS5aMDXH+sY1nroQ+Lz3N9Nwn5nxCmEvyNUCHQ7ZUgcNI1d095t6v
AH3AKpaEsPglpiE3MYRioDgRVXrARJryDRalAefT/BXtIcWFl8L0wFxsAnFRAHyGpIG5+t1ukFgB
vxVZWnGa8v3tm2H2M+ONkZy04Lsgfm47oB+mLWpdF7PvyhwW9sClnuQrR+fAuqF5tpQLHQB6tNEr
j8lEngNMCr4DSJy10a0LiQ7xAjKuqpgsO5AIBQBBZuq22wkYIRNgq0Jodq4NbTZL+QG9Gwc2kbcS
ckdUqbwqLd2fN21dbMGLaqS2JboCVgNPybTUeBsjdpHfqtvwq9uVlt1seE0MSkljJkZF4ngmAY0j
PYcbWkNNzI5aaQzxRE3YuQW4VWc26sAKx0Sxjc5l2gcsb1Db0WaIkyrAvpvO10yrrFkgJABQIUuB
WViqQ5Ny70y2s/sAVRYioA6Cnks5XOV3sdsmuJ1AQA4txOeUS8YMX5AF3eAgsZjfFldfIiwwBFtg
Z4SJrsfWOoDOyqQpI0Msok927rXgiSxuhExkRPA1slDg97VvWffyAj7xMkXiJ14pc9LpXTXR1FNe
4UDagW/Wy2ZbOPhbcuyY3ybd2u0SX0NDcXNpZ3NeB3+uLDAjxUdZAv82Fq3UcEXcJ6QDaKNH8kd4
POnZha1u+Y529y3vcfYONBotYCWcipg1lAicCBeMWsFAUwNQkcz5w6L5vdhQrdhs+Vw7e73qidW1
jnNgVgT/RFoQUQm+REAul8idXQ0J11neKNnYiQFAgvCPfWmKRDkE5AT0pcWYBppQYbiMqiQ6NzdY
UrksRm2WpImaV/UlnFLriYtBW2uk1JZVlo7Wmhr44x37ZxWMG+XcF9sgh+oej2noTHW+t2cc2pJe
2uON5DhyxMTYaiixma74mJeJrvrd1gbDyK6mqcW+39kbh91rEWIAHe8uBnk24QXKzN4nmdZBAb3i
XgMK1ABLDflyYNsALNuC7oAXL5srtjKY3c61MyrjDrpgXVm7IxGiMOonFGSbElnX6AVd61h8fE90
rfPr0AxHyvKZaa+ab3b+34MLKt297fRBIy5p4M44vOVsKfzA5Ln/uBNyiFLBjt97ZH+ANGAfmtTJ
+5bBDJZ62ktWr2uq8BjgAgBsAMBgCiBgBb2O4KJdBDSIGcjYqaqk1i7zKsmZv2xQcJoqIISSDRWh
xUGFd09ohgtm1XxbMFetMLvQr1hc79hhQs18P5vyhJAwE91VhIe/GDc6/nJHh+5kc4T8PXiaoNAs
LB4KdeV+jj5yqQanT/K9GYOxqXxtxTe4MmhLo+qz54vukbc4fnHx+GVMC4zm+tfkA6VBFtKu+2o/
YDbGMDfA9sunTk8eU15sCwJAIBQMAXvlPsQMFsWCmFhhaPr8QNAT7Q7MjyJqvmeKAGBR1xRa6z5n
KizEAFOTe8G2IAJejUHZ/BkH5j460B5Fdwn15DaD6wz54BNQs/KHxfz8kxCFoWu82BrdhMBotrrM
AtDKktVHo5L6nqM1qKwlpIlN3GvjhNfGl84p7fJj5P3b5ReNxN+r9Kuc9T4/hyUYVM3a2g7WEF4S
8FilmQ1ZGT2YUyVbgdAOSA4D3DHSzrOGLXgUEI6lRN+DPDfp3Y57zDTDQjLfESwH1lVMs5rox8xi
dAn1cU0ergwMp8r7xYOx0Dm+tM3uMBBXEdHaIPkGvEZ5vlvY8g3iTxgEzUOXGHU9e/XW2odPG4E7
MFICJ5skDv3a8gm22lAHbMnhUDhtrqyanMtWwobTzee13YIaI838jzmB2sfce3NajeFfE7Go3cvv
tv+BRAiBECIEQUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU
UUUUUUUUUUUUUUUUehRSNUVVFVTVU1RTUZVNVTVFNRlU1VNVTVU1RQ1VzVXNVTUZRTUZRTVU1VNR
lFNRlU1VNVTVU1VNV6GquGqwynDjwy6L6rW2WfhMYu+Cf4zpA+n6r8s0Vrym9asnp52+AyJrLXLS
q+Iah814gHqXcqgnLXXSuW1b8OGNa2wxlX3tm+2bdjaq3d+JJAh2ISX7Q658deby8+jb157vmjX5
kckvpfBeSw3eY2eEwuc0iNc1NCNUpyxXN8KRHgnDc1i6YSEuJVGJMNh4ieCQWDZMntd7OSa+M3ij
fW5xgTwslgpzUS5fRRzb/7gU+Y3fDM/HIyusAD+YGgKAmfMhxFVXH0+ektc1Pu2LWhcJAwrGnDbm
ncnuvssp9+J0piMd4Wy03NptDwucAGx3kDNayTZ60FIXjv+/BvRxkd88z5JIQ6fk7TB1mkxqeArW
BybbuT9xw+TlmN6uhPGNPCskWOe9sr+gPsCkB/AuB1+zwBhurdp2UjcWSCmpnOk/pJxio+0VlrNT
9vL3LgMtvpZuudke1GWhMTdyeZ2D+1u3Sbn/e2fV7CRhdQneeXTGM7b8lhvPcJVZHIlp1zN78Gd9
LwI3YBtzqYahOdeH3f4A4guG8575hKrmpzGVx2ZM0WoN8dnWlYe5vU6xKJp9b32mnTafe35GjjTJ
wnPPsw0tldZFbLPPe1ykTzy788KUXUeDoPyDzQTpZumb1o5rOutLb/uB24sVYTmje1ixGjvzb6t2
bLv2vVzUQ003pfDdtlw3fHeD93MVGQG96ZvuNL+ASJ3EsdEwyvu8Hyvt10WckZejK52sf4QZWtHg
05OuRaLhJ57qnzq7EvMNuIG8Cl+GzZ5gBSKElhkjngEEc4aGe3D27b6z412e89t766zAdW/O/XPX
F7Lt5JU7crMPx6eFki5m6RTUkuGkvKe3q3q16ZvRdpfJAoDfW/rezcUmovaCDZqJk1xU9Z3sCZjD
/jbYPmaqcH/kAddZVlgrx5rBv4nmx4M8qsrncYnZbzOoxXi7V0BmvFTLk+8zCbjKyt7/wGcVW+SV
eLxbVzYRte0GAfgi6GAZfzCAgO0QRfIDeBuPtn6HgfxwNZifJlxN5lgefAdxab/7I3ORvFvnmW7/
5LT3k/k6m0/J+kadk1RPU3nnlzNpuOA7TWex4HgUR2lHwdPowO34OB6nA7DLxOhy1GXv5mOhqPFD
ieZjN0k2nU63Ylpv9SaGZ4nke/1gXLZTQvecqkOp7nU9S0jycLOfTZ99/G3Y3156JX8BD5PzMEP5
Bh57OILy5hkKz+ViaDOEODcAScLTJiyHEwMThExGZUMcYkgIsViMDLvhjDEwb2SyTBg4q11Ri1jj
lWNTk7pdZUCphaAIpVZkpMBIYq0OHNWFEMy3SFQr0aiCksrBXmSWW79hjAoA4CnEdYwPp+7f7VB3
8T+9FwDF0U2Vbmi+UdSsJYYu9QSGCoYFCBEAdfKNZgcDjQli5RykvgkqhtL3KMSLGJeSXxLyiUYy
1zCQwL0YFiwQghgMhQIXJMkoNVAYwUJYm8RgjQeHqdGGSbELBulth+H9yUK9bwEXSbcZ246y5mMJ
Gho3IUVvMca2bcmOX8XV+u3PDRmpkowxFv/f8U5tCREAQvoQA/Wjn1bF+jAQgBBUiIAWAAgYCLaD
UA5KsSqo69FAa5iCEjIZxadFg94eZyQ0osLITAMX9ALsv1ATXYyBYOqnYcL4V+rJBisGxct/EAfw
9pnQePpt70OUfuN3AzywsD11dbLnQ+wFgsBQIyBTcAX0AhSVvTNG0XRJQe7ibnHhRXhtyTueCKKK
KKKKKKKKKKKKKKKKKKKKKKPFSkUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUFFFFFFFFFGqlVUpjV
SqqVRUpjVSqKlMaKlVUpFjRUpFjVSqqVVSqqVRUpjVSqKlftG7lIoooooooooooooooooooooooo
oooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo
ooooooooooooosE8PTv338+uOPM71VeO3baeYJJjWfvhCqkn9u+A46rWqyKnV8m4tdWGgTA+QJEe
uvtNTjxVfkxKMZJYtI4mGWWWvdl4xkgOoFfGQLATlng/IRpNpjT0AoCAG1j1ULpsgvz230HSt8J5
U8eZycFbPKUHcK8AQuAKQ6HHe8dcmccvX2cc2cyVxCg2BIG2cQDnkJQCqr+QGOr5/K+gNxYYuAVg
blfnnG8TiAZ5ADgMB7wmTtGMGu0AQNgztvvMUQCBL6RjgB032NuPCYG6EzpjRnDL0vsmBM7lX34B
fpt0FcXhSV2IAf3tidQqRrvOIuONjWr+O8/I/E/k8CuLmbZmsQspxsk8YA6ggLAXG4rsQkRkDI8z
aZhfXfLKjI6G8zNJYuZGZgkljSmV9AjABAyBYIBx0uBBAozFU+b80AgDgJdoLAIAlkH7yAiu9TmL
28ge40+UA165pDZ9/RxIbaSTfCUd3PYxwmO7fzwi/du7sS7DLM0wxM+KXFm7suTKByLzpd1Cvm+v
BiZBT0Dz5Fhm/699VpHNNYVrqfD2oCd8Qe5A9+C4GRlE4PGPPlg5WG0jPJfw3xflabBlv404YTJb
62eLD70zO59qs82M6LIq1m4Gcw2RPmHF5shhpAuAVCKmFwFwjC9iGO76c90IAyLAOA50AYsJN4Y7
W751jz3Md0VrCwETfb4wCDvfHnfjegarQHfl59JU9wgtYBfnywMxC8aSwM0lgAjEaZE+BXW533wc
yPRIB/N80je04A2B1cclcgeWHSAvRGp3v+wBro5A5Akb0d3Z6O1eDuwgAJ0504P8AHktF4GNtr0/
1gdwXoAy7Z9aXPcUOGeNRIrB6s8df7zpZ6+/HNRU1Bdk2u+lA+oC9joT8tDQghAWMbCTBDI25YFk
lszKs+K5z028bcNqNWqRs2zuwWwC+eVXKm86LBTynequBgSQAtckxi95rJ4AiMAQD1VjQ39ADnIA
XBPkQdJylacvbWjgCHBnhLgKnjH7WYUDkC/sK85TeNtebAaASAy9vCAX6Xm9a/Ca8ryZ9wdxTDA9
ZHxwBMvpzh5tK94hV1ou6ZsAcLe+eNJDqsflKja1c9jWXe/TPiG3PP8AVvz239we4OxrvD2XKYdJ
O6UUh2rFmJyvLXTvIUkUFhEYRSRYKuA8gQQqIsXMTJiiWcsJGOWzstj05YMjlr65GvLfuLObIKUR
WMn0AfCWzHrbsMVre4CWmBRXNgwZQBjtmoA32h0dymXRCRABCNYGO4AIkw2sIGAHmAcC+T2VZI2j
AwE4ueeWXFjW4Edsu0LLk7+Atd9NhYMVt4fzt9chf7gfuAgViwsKBYuNpOi1O0b9EBJLIuCScuc3
lps5+UerZ+x0cuWqVUjaYRTZpaWxoS+oaV9JqeqdGu/YvsD8wB+wtb9g4tT7TIoqlnoposLXV6M5
7G50dt8hEm4VoMBgNWPoCA7535qpACYBuaWJbxOvN/aw/Meh3mAG9Aq4wBY+UF5+WBCAMwFuFn9y
XiBq1gMl1GOLWG1dnVmiaAoWtAV2sJg6VcGXWykFr2BYLYiwsdW2dF8pe3YQAZCYGAxmWjPu0Ake
PPM154HnrrXy/gfvGuM+m2PJ9HZ+bAcgvF6p1VD/IBnjVQfkr5Ws3fQTwIe1Mh95c23kAnMXkjRZ
iCvI35j+gfAPffE3Qr4nLm3jIxJgQpeCvDPhsQqgQBwFGAAwxiQJA4YBiPZPFeGi3ke2vVH8PZeq
AKmjO/SPRgIrYAhdEQzMA5ze4AhN7lsaprb4kBCJMPXJpJqcAb/gBLQgFlSBjbrZFx5OufO87Wr3
M+5wmv0D+MmBlvGxu/5o2d4mtnT+RzJKA7IvAuC1WX+6wQE8zWTutagVp3vCok5zlPfxoNOuoCMb
VKQlVobitcAC5NAkAgCAPLURKaTaGmRM7nnvy350Vjz6WcecWBmGCJeGgKllMAQAwCqMBCtveBx5
EdowEAbPIXrdN7K13xHERtPjgZduDNhayYxzjpiSMOeuLHdgN9F5WhWSAKwYDicbzGi6VwHH5KOF
lxXp99vzTDey73F+wAAWytMju63HJ5FgLMQFh8LQsCICF2wD7IGarBsx0FwTCgce7+AXO6Yx6ptn
QLFSEv5zcTdy0W50Vxi5sEE1WhH4tGY9gGiMY2miuoA7geQREhy6OzpNuElR0stdZanXjngbOW/Q
wkcTgUDCIEAqICKAQLAQmLX/CgvhlIb821beEVVmVZkAQFUyV1y3ykxqwDeChbO5i94jAP80oWta
/gCaAu6mMtBkewJtco9b24EEmT/TzDXUgJ1EUQfwA9xqAPzTBcFw2OG2TUG+/ia0XJ7qLAit5rGL
3Z+YnxvBNrdWsFuYrcQGvYmk778pJ5J17pAI2B51p1c8EuUv3OT1mOXHi1jmamAtakomcJzyV3zG
zfTGMYAwNpvO6VjAZl1phDuIxjAGWgwk0kZJb35MKt6Hfnd3NYzqitJHceYzJa1yOHN+IhL43U1u
tbuXJyyI7ZjqJrpobfXKywvL7K0UYaY21uDo0Z9Ect1HyqY+CNdrtX8iuZ152Zk44B+ox5HqRckv
7qJ36MQi+okzcbz7dFweBSeV6VyQxO9N5feR1oup99zPiP58A/UAPx3fKdP5ja8f58R0a/JCEt/R
LfJvJSabh/AkBcJz5OrkEQ8VG8fkAXGWo2vAKmgABAEP0BrVhxsdpGzNGZW25iGqQWQAn2ApWnvI
fby3iK9YNc2wS6vnzI9AK5jjoQNufVt6jbA+42kX1Ms/L4XXYTEt612ymxKa40Zx3OT3GJxz5CYz
D6XLQf7tiGjBRf9if+t9b59SsDgI/WjTr5AQJpojoI/VJv/hFYpfrCSh0Aytq1MVtXKxoi6ZEBiF
UU2FlxVjQCdF83mc1miXtOVRnWP6wNBKOlVh7croGxKLt8FRZypArxmh4Y18VWpmy+cXvPrTOXG1
r7ucjMztkDAImgIqC3XrXGL+zev5V8Z7wlGMVNlRztmvQN0GI6S2fsrWX8NcBSJxwzk6yZu+GFcj
GbyFgL+8z5NZY8BJFesetNfSbjXOYdaV6Lfzb6bmZrJZstfEIKdGFMVjJJxlzlHSAUYyYHpvkA+e
bw6L5645unKt4xYri6Tk6Tp0inEXZlwNmoGMZs7D3KY9bXNat/yHY5ZyvY7I2k5zR9aC4GCIBkkQ
3bKxatFygYq6smnuZyz50+eVxTooErv9PMr0uZiF2va4qPeZxkR3Jni+cbWZ5jOKzss81JW33gxK
HfDcUGSf0A6L5y+zHkYOM0/IrPnJ5fe/AhYKZTOV/b107jcvv1+eK9Tju6nydzx7C7fD5HU5noe5
gO88TceJxPE3HHUhv3+B4nhmJ2H5caR/BayqVvO07RrP0eh6SG42Sfok8UMHAzrxJsF71VVxmkfs
6JOCFHiN8nBD4/B2HaesjCdniZlp5ZbDicIT0jmWPNJtOw5JKQjqc52SeB+DgbUnM2GggWBkBANQ
KAVAEKjfG/UdCWe6IjzA9VO0GxDTTVFYgSF2hWIpSC8WjFgGwP0k4gMmBWCAoZQuKhyihRSSohVy
mBElwkjNKzAg0FQ3oN5ibYKKhvqtib25xDTjJW+d9WWVAYNIaBDYlhOKoQzBMiGsQGBeDQyIaM0i
rFuFKo4sSHh8Rh3cMKkMjVKpd/DjNrhwcAQoQKvMHCSIKOpdJA6jv115b+W18x118tsd1a5+iNKQ
2nk5zfd4rhbA/me7WBAW4AIsADFlAYXBgWOYXMTEvJa64ovRjFQYwUYlYDEuUlFhYwlRNe62WvQP
FIXUxCOZlGCl2cSe6Dy6GwilQmMODhEarjWNcaMABVVn7UZOXa3wqBPt1vfV0EnPptejn+fl51yx
1DkwD0aq0h4Pm62K2d0A/NDCdmEKSTrxsFk7+ioTwZPBC0tynhWPHXr5m7uHoeiSKAUycbd83z2m
oYE2YW7pKZ49KJ2Q5vB27G/Bz1LBgIN96Ccuer0DIO/aycDamKjHk43NgDPWWGS53IHBAg4nPVYw
G3gADJWs9Xe1gCrWAIICSsBFc0hYVrn8Sk/njGvN3LOtxW35rN7uwxkjGfE1Gwc8yKeiYuSRSfIC
3gBwH5IoTlEFGu07gwMSAAUpGGs1ksLWGsXwlV30TfJdZwYzJyZDsyeWKkWddvTc6AkJuwN3kk9C
HpEhlIcMyhs9NuwdMeeOBmwRjsLK28a1CNeYc1y4sMU82sGAypAXo9lR7iAmYFDA4UpdeGjQ9yIa
UOWKAANIgZgOgudtmrHVnM4pyF7IsZ6iSOe/plgUdLbNLX8Rnn0yFhSF676Dzzpmwc0NgBsEOOWb
41+egN882AY8gcMb5dr3O5XpMvCZNVD1pLuaRdG4s4mvvL4mRgEfTd9VYbAv+q2YAgE4e7GAhmDU
EMKqMkR3NU2LWTGvA2YCJslgWxWJthpvw2gpwqRu0LWk67jdu7bmRQz0sXv2a2GBjY5BYVAQ9N6r
K9vEKDMDQZxWxJvzrwrz37Yz7m31NwOE7pT3TSXoEuNOlXOqX4lg2AMby00NaOv+KebWB+uXja8A
yAMX0ormsR6MS1QBblFv7+GvPaR+0VrouMxKRzw28PWPo+mZbvTxezNqayKk9W51gDeKsecVGvMu
uHhZiGFr5A79yIRIEoD9ERPl2kcKg6iGprVs5IKRTGAVA6JLgKhtGQnKABNWBCTifv8E30U/mWK7
pKPcM+8b31zlZjJcU/zueTLI1LxlnYu4RcrklAA44F9Xjb7Ff01zEgf8gNxs84bEs38UwROcAmGo
GVAthwDDAVmEDIgHMAplWbiDc05HaCT5sl+TkJjXKdwVPnRtq6RqdskTT4XnNh9NSZAxtjZ9bKiA
iwuHb7xbJWGjtYjMECBHoixfOv6C1Qz5ZX15p25oOg1zv43CuV9GFJuJjZgvrIYFnr6JeRo8VYiA
0D0UW6ai1/nmd1W83fFMBQHjavq+txa1KBM6LePDmPIhsaITNcyABYCwKwsp8xtPHXzysJmEwgzo
jhtaZuXvdr92KIFt6h85GNLjVPo4ERsv4Iy5GeJ6gJ1yqZzj+QHc6PABWIWs+jACIegkXmiccze4
FwFEcn31xr8FlKo0ozsAtfE8wiAdyHz9ImVLNwN9UJ8c5CT53QSwoW1+1rCwE912vXAx5g8poprI
BjnXjtwL/O+5wppmIFgD5nMS2FPULJQfcy2PRtrMBDq+Pbjh7deuM7ghvbCTrz25PXtpSSg6mkad
4ie37+YG7W4xyu3L8dwi7cca4V6ip4LW7M5tdR0JyixMoMANemrW6772G3MdDenZx9AJxj8wIYSf
GTlxzZKepO92bmfC45E71e3bMk76vy25eX0atbLIEByQmZ9Z/fMyeUvGM/M8fHdwTNyW4bfdAfl5
LS5FoL18gWt3t673s4R2cRlcN7Bu2sQQy+9PudtkhGsbfD3nXZ1zyt5A3GaGENSosoOt75Td2Qtf
mdpO/FXT9PHVW+UY8JdMiYZMunmpOr34V8v3GtMmopI8rcf7gfmALhv13NwNkqDwktrBjOGB4WQI
ODdFaGtZ6KGgfK5EJnmVUqmoYA05gzjCljW1pqsoatskHXXESvAjMq2ON01Ptu4C1ZnJbXNov86o
FtFhPkh1I5Vn+wMQxcT36yT4iRNuYzsfMJeV+tyJrN7p83jMvv6urC8HvPvek6IuVa4bct3x5o6h
Luu9nLVC1vwtmCrPoHZ36sgfiBxqD38ClyAZGX1DEPL2Px1buUT2C80vnTf5IOLps/fmj0akWjza
z2Bb8zmeLBmd3vOswGNWakku+CO93xWi6CClWZR08owBSWilr25A1fvpayU1RG66JpR4sxHmTme/
MQOtZGOzq4muG0RHDumiA+3hERbnXzs2fiVyUORDpx4Wga9V5G74z95240kciLvrdQlxz/EAfMD1
sBgnHEi0KqHWA3HcJCqtEAMvKjzrBhVVmZzWNMvtmTpLfBV7Uq9LUOVNbeAGBu93z5vTLVINYXLf
g/mSynifCv86vq7aewXFoDi4Sc1BXioObp1S+B5x4abGdt5zEbzeJ43cS2hPYXlcfxkY0y9Jh/Kt
ZEcuTnRdRAflsi/KVWzn4AVV7w1La+VZwnB91tqk3WMSXk9Dw+ADiA9ASIDkAD+A5+rbfrjF14XH
p3kkrRosOu+2B3M/OSQIPYIEUdkbDS0sUydtoxnetErWNGt2+4IXQQG8DxOETl8JGpCuRdE02SGz
5n+QG6xhfweZka0mh3c6+PO83Q/hrrHLqNCq+m9rOUAP4eccxxe34T933Ja6+j7ctq0sJvW4mt61
LZLzYvtt/qoHwBddx4+Fji7/iBkex0mrz657f046LB9jyed8ogdzJAqvdFbaYpMUxBiWH+GueY6q
56eqS+m3zR8WjaoZp2WISyIr4MlVvMSfIXvN7nuhglY4zJm9X2l+OdLi7Fkd2yegAMB+XxefJ0fn
eRnW4f5lXD/BD4+YD/JytIdxi+NPYszF0mq9mLjEXTW0hqqrh5c/meLnjakL1DCPqBLCm553zode
3Kq1CPAZOp643IQsq5qacEyHBYXHnrF3HL36ODN49yy/1sAKA/wU6yhev73zWfSeGdNG5yq3Y03V
Y8g8njXur6L5EqvMQj6VMZvTDfzvzlLWyruA9cYU1wptfWE1xSi/lz3eq024LbHSTOMNnsSy3jnc
ZV9eEa0B4T0YTFZ1OMo6thaewHQAwHAfwdcdgrWuo2a7Or7bt+vZmv5fTjarVz08evN0tTR90bp3
T3rMZfnXxmiPT0F3ak5jlF55NCvs1zK3DX1zbsZ7yMTtD1cD2+swrxpUErGNzg9kOjaSydMVN621
saYdcxVcXs852ztOG1hZ57PN1/dwNNGda6149p4c2iiD6wIY5pZ2ZRDIamrRXt8od8tz6U8/Q+K/
uE+v9JJJmi5oj4QlMHwgJ3KviC5eBkUe9U35avqLmB5jjTBFgSMis0R41FbrnIl08ZcYIavqpy23
guY5BK+88neoHGZXKbpuZvFiJYCiha9FVZJa31AjxJMXFH+AAgGhEPcgBwHsdnb+TH+NxqOzzMCN
p8ke5gfz+ziXPiDWd5Y8keR0Mfo8/A6nrjs7jyibDDGqV2yfJ9/abDtPQo3HbgZTUcvg3eZ6m8u5
lfJ7mZ9I1GsfcxNhgEI2oouY+RtHHxJuNpSEdPTw8z1HeeB6EXk6Q0O6TYXO884bUzMefZ5Z+2bt
eV+798PVfsPy9VRzx8wr4V+iaRZRZSQ2yhmcXRx/B6WZyGcYt5OSQYhZiBKiLY0EyCLIygxjFI9B
jVsIOAEAWAGwr4fOMqsnE1GGas2wNsuAKdcODTqslHZTiGBCsHL2VCgRDuDbpQp0WLBcOgpZq3u8
TIYQVDXCh3KSyqttUAeAhEBsZAFADlhjBOMXd/v+Z/Ph5L/T01cTW1Z0nM497nW9zCynCLzYHCyA
ch9hjgCAMBAIXABDlC9pGBRgXGJgCyQwMLC6kuUYwsYkXMELmBgYlkiKKoEKCoDCIGnfHjttdVmX
Rji843sxrWC4WLEQhGEEASYoTAYJjdPrgC7UwcYqUzgWbOPHXu04au4u1RGtCgyt96vkVShON9eq
sxaRQAAowBsfcBcIUobww0T9B9CIDVu1YKKoLszWqv7nw/y+r2sA+SjoKAlzVQSVCZ5zrYXOVW/+
ZrsHDy9gdrWuQGT8+keZhhUGLAjhLbIC/vvLrEZSEWYluhbjPDkU6yvAZIWGJdoao0ixrer+UFbX
+HRcbmtf4AH9wL2z9jPZAIrWVOwBvjjw7Y3htkgaXIiZLj5iCcNLZ9M3F95nnINGyG1o7gMq9ghR
hA36yWvfakWI9AQg/Y25zIiCwiY3krMgCwiGUKLbT2AcA8iGUAnCrAIZy+lGxAV0oHAwLQCdpjh0
wJAYA6TAZr8d/CxXUjfNDD8NCLRDRfKLqysSs65PWKT8Gt6SsvGP4i1ppQJsaLpObhYktU8UccGy
Ejf7hoHeS8AgknzYRGDBxL5pdhtdz62LZy2RkGNgzU1ER0xzvDCJWrvIgytiTsBAQCOmLDdy9p/x
gCMgyAB6xIVNeXFgq23o5CYj6nDwRlxLzB4j9eozp9EGMgNp7lE5mbogtgC1r8cLB6lcCQGtbox6
95Atawp+bXGH5IFONJ/xXaP5AD+tB+fOrxZMt5jU+Pf5Ek8GyoaQXlaTot0IzZRzLiY8AQkql4U6
fDQOQB8gFgDUAE+p2AB6kQqtCQwVotabVMo2C0bY9WOS6cRgREwDSsmSkxbVshvZgBRIgDrXme6T
xgwpUIOOpgUjx2jl1yq4XxZwzUw0CLlXVYgGsO0bhYYQDt3xVdu7fxk/dd1zQwos5wXY1I569QWm
J7/DXDm7bNJ6EZt+ZHpLq8UMP3ToIvHnYfERqOWO6d6IqpvN1OQt9o46l7x/MB61+AGA/qB/kWMB
QLSBjHQHPsPQdgDgdKYiaZgSh7cBNAeI9RmFbe/OTJnbK+OJReNhAC8H1WwFTZeAZYCt5Zo0DSgQ
cBET11lDz9AEAt0kZQAz0lfHNTjACC1nQHNGN5UEXVgXvHkHRDorBtumZdbRqsSpR4dM5jPhYudV
/cDZie5lNTOf03GuVjcQpdedbTZ+KK9xqERziwHJsf+eIKfucgOAWYL8DwwEsdjBmxljp67JxgDa
iqbW908h5+YFb04fV3AwfwAQCRHVmfOzQKjR7NeArVwIQAuKgKAFKA1XWakWgLQ1OZCgeWQn2zvv
WegJAgAsAqDAxrVMfNSHh0kKNeVrLHUBdK1VY7HGGGxo8bFcDBFA0MhlSKO/EzcJ66ADYFwLY2UP
GNQcJPDn5YIn19UWd7dqPw2pZoz7V3boXvcLyG5pyzB0+M5I04rRo9xJuoxQH6AkB8QIUYXJRAKK
lowJQRXYphZZJyoG92cHkCJEA85uEFEMiaG40kxe74tE3jAPSnyZRmc5yTZEbJm6TDis/exw79IS
WFZMSlXmc/lpSaseUSJ3h0DhMSab89O+VNfL44yZp6HcZYYGJAnB5TTxTO9MWZBvTVv3PaV2kzdN
vX8gE5Hr56VOmD5znxfLJNv+wOgGAFgS1D+RBS8tuxS5whwverA5aPyc/iBJ4195+0MnPdQopRtd
JOD+plldKPeXPsQ6Ek0RB4gPo2/LL+d3t33ft730c1ptoM5juRwmadPZkjzHgmXfzvnG1O4fxN8a
r1cGKLgHLu2e1SyR8XpdbKuRSRhvVbAiuALAfVtA3d6T61nfZGYkMnPChm8ezp7+z0cupWtPu6hn
zifd1r2PHeI6vSa723rvnZ8G/nBWWfT0eMLebtQgAAO279FyUWG8Bt680RRQfJzrzk4rJm3D17oZ
8bD1fB3C/hAegIBnJ9PRELgUxgRdjSEpm1HYxJcMrVBeTGUfCMxadTNKTaxlK2gIWeyxk5X4H4Hy
A0chmDI3ovIhHdjmMpmVntaRg8luvdPPVTp11rww0++0rZMeInbQtMfnf73taV/sp3gfmaRfLHpi
4uVGNDmqGvU9ExaIxqDJkhYf3ZCfPL98aIkrXeRO1V5zzj74M5ktg9bWTPb7bnJxxq2dy0pljbYL
V2QmywmElhO8bagP9Af4AA1pnCcPpmZul1usY3mltawYECTgYM/BERAEFEAQAKuUvJUJqbFjWTwl
HTTaLmo9J6MIqv4TLt8MbkHcpx5qPMxwsJrktCyUTuqeoP9xeeNiVyp6dFXywsBvzG7tTP51cAu4
4k1NFKlhJLDjWYTh0RL2G1la8nfGzgLj+QH+nw7VvuK1LF3L+/C9EfNuz5y1XeiwUu9/ID6j5FZG
Xf55d25tqwlKJaj3ky3vzNakxYWz6Bll1wX74WIuicXeobR+vsr+Pj2/uRCa2jI8D3IlOAGWcHdV
84j1e84WKc6v1JR0xtUMxnRGfD1pNLfhd45JleaeGt3NwrQ6au9+nxe+J2VjF08xjr9nmcnhbv5j
AiDfgxVo2W4wXkdbxPOundJUB02VhMlK/3aqF27TndM870qKkW0Cu6xiF3nw7tXGRzxW8mStWuvz
AX7Aa43r0mSftBfMxBNWgVsJ2ScDHm/nvd4bMTx8ZxKNDM4qUdup5363pK4araXZOHhyl0iDhMhO
QEngUGV6SpJEXGTq/9xgCL87jKKCTV7vN/6/u/nyk/TrfXa0vYDKbL116aMc5OOJdoc8OSZqUaxy
pjXYMK2SEcur6TtExwp44WfUOkb8NjyvKHCxuOMR41lr4PVG8auHjSrcTAX0pXMIbxyTApJrJPMw
CHCtYCxoogAs5TkNob8au5kzOvLfviSkSzsZ4jeT52hdVL9OSc7+YUkt0qqnMNzE4MdJfhhHqvRn
2udqRbyaKd4BKA6gSiyypUdxLrOLLYdgdXrr1E61ZmZrdHSvoDO/W9K8pXi6LXhEiNyGlDIzTy+b
iMXgl6Tl5GDRH1cKXgS8P5ExEpPuQhZJt5zOs6rmJVeKWHbNOGeluWmWw7Mzhy1bi86+An1xPW0s
ecxP2c/0eJgku8Ct3ym84Pc7tDaWncPY11IZHacjCbjKceeBc1HcdpuPv/BrxR3h+zyORxnI7j9x
Rqo5m76PQ8dhR593cdotoUdeck9jVDM3nmRp9jbJHM1D62GQ5bjgZyRv3HD4OBx7cJ2HmHueO07g
B6AkB8APIioAp8+vfo3zERxHwlcdfcOYD7oFtadMgR65R7hFuFYLbG5mIsj+BsXcDGSgRGGIwmYD
RkFgIg0AoRiGequABhJQ2YSZtFmRNtbUCZxZZWs5izHK5MTGtZzM0aqwNs7OgEiSLmGFiZY0oK3Y
qFDl8OLmhaBVFtcrOC8mBU3KPAP7hhUwgFkZIUYP5e/5bazu0K/zSQd2tBr2ubZ7ZveqS0rE3KUx
QIRKqIRFQD9EANpqOBRgW43kMi+NFi8mJaIuXQpcxMChcwixcki5iYlS8kuUWGBdMblyjAwxLXkx
wLo3W40y20uUlJiqZIxDtJZ5o1EyhQd4EIopERUwEgQFd0u8munt2GMXPfLfpqFwOGTbAwMYG+xG
BLAd8r9gNbNAneKXwiAKtRECjmjloKlFSQbIKYCOxEBkwBfzj88W+FbXvBN7CxgP3tOgC4goZsbX
/OQNoBNZ4Spfla86AFHQAQFAURIcIGYwLCJAFm8MAisGAXPhP8l30Kvo/sasF26AV65/Pab/cwvz
C9f33TpuYqA+hrb7WjeeqDhsRrb0Rr7PYgj+duatAsLgGw18icES2NTQ8NhHt4AJ1re35mjo5rmA
MY0AZdfWu3aZkW+WjyjAA3XUAxVtq6zF1gWna4QioYYFa6zhM9bDGWNhoWgD40H1gwIMSSFgR8QC
9gFIBwJv5J7rBZ6gCgGvDVFkbvYAKBewD+i4CWDM+mOpzh1A9jP1kBAAUyU9t8vk51/rMWDkNWAI
CpMBAPFMcFDF05L29KBbOXs06YxWWE268LHfcymMNpM4CnloaJ0Ucuj/HnmJGruhuj6oAYA3vdD7
2NAhYERLldgVTh7VsDAsgBwDOBqGSdvMMfDPYG9YwMhhxvJcaEdXHfL1pIQa65YaDNrvcwtNRcIR
SW1cdmWcSbTQ0LKL67YGVs+evOeZRGn5NeaTE2BEB2BC0+Uj0Z0yKkdxM7+wBsBgTwEQB+1RYfK+
YYC0AYDCcrG/fjqIjSEjAWtgiTegBgVLSFK6pDWsm3zWboRm8aqed1WoG1qMBrEvV3uBpRlQ2lFv
+wGnCqhq7ZK8XUuITguACLtLYM04kDjATj0ZFfKAeDoRjGcxMmAJSMAeeNZjJYLd04spzh2HN4Ri
nkTj8d4gBwCweqMssJtYC5AWOu1XYiBoSLAV8Jsfm9ZUqTfs5A9855bywmdst4XgWNjyotbK4LaX
8Lb171UE98H4zumyur+r5Sht4c9kGNwMq5a924p/J7kxsWsQE3Aj6nKlmpKMQvkZTuGg7hPougUW
WMDZAWsBCvFXLeVjuovd7njdnh96hAGzAGx1CeEbiKFSRGt2QSqUw+vTEWBDAG9O+Pn1q73z4p8X
f0cASATEBnQHoLebpjzfITSkwD2AYA+PDOrOrCw9Xm7gPrvS3nWuAfOvrHLGYnuKFsHykCJ3tscu
6tBv5zBYjevK0eBQdU1QPe8BXxjHiOrjIxgbV0KZzAv9AfXACqg7kNoGmllhQALOHPTDBdRCt5YX
itsDQEAOQH8iNo8mkRpACF3vhjn14CiMYHWsAJFZuq81e1rHgauvdS14S1sQxgSAwEFeYwCAuAXd
VitXPWTSXsLXoxaxTg4a6JQBTnJ6vNTzvcZIGMYGqMa9T3bcY4kINAZGmjSx7MJOOX5FUvBiXXLt
4N+3yxFC0cBz3nJcyZa995wsNQsCc5XbW6ZqWjcb+QIdkEQBoFVfVuFsPM/OWcb1Gq+iou4fqp8J
jlnkxng4e8lj6Cac3z8Gb6F8zlmKw+JXhnDG+VRVMu8jzxl3ExJh95+Ukd3QPlJ7vcPhXETuUa93
PWMwT4gs85yUnGdc4b25NB5jmao0fk5wKxvYbU7zBzPNum1Z6gNvV6q+4C5McUwGbWzAH54/ADIF
Z8jesODgDJGFHTM2q329lhyBpkMhztZ/D++kyAfD+VcKbBDIgWF0ZmTZ+8iw59xPOav70UmpFeGw
xlL8u8zvOL6Qg8APf/UiV2YTfPj55qU2T/4A91e/zft/i0lFivbedRwNlGrEKnm0cyjlqvfO0NNj
iY1t2WrAGLt3mteJnSBpzzXBBeJrbhI4e7nGALWeNliDGQLA+ZAfr3Y7loRDUZAHNAoy3ZVUZOS+
wINW19XItCJUkctjmtfrfLp0pWpKlJNKa2X5AiQgyF9pW/ACrhyYry9+fd9tzFlZfdfXCqpT18lo
bHVu0TvD88LxPAG2x8TOxrdQWN4oF9ZRNaphYN9Fg6J94w5bHdQsCCGpLIWMGTmPUvrHNm28SNSI
1vlRu+Cwvu0jtxPZOq1fdd/uB9gLbln84KFtPyuw3npZak+rl0selktr73Y6HmqJFzWQY/uBN7l5
vR5JL3EcjAk0bh7McWq65vlzxj7VGeS2K1i9yRQMGSF7znNmVD3ycFB6q3jDynp+5CWzyJbUeYnI
Pzzt87uNqfDz2Bly14Iee6xzBlrW0vfeoNcY7g6HJez3GmMYZLir8zV4E71u1g8mSrYAWq16BI2Q
hoDMIgRCsccb8dVUEv4qoJsnDdrjfttlfvrfCTdxTTEYS/6snZCP2+ZK4z/EDVFzxqA7BzmiCZfG
HMh3KdjnHx7cTDdNs5LbT5M6nWNQ6zRddi1GEJsIOf6A2L13V8jO3ifJziDy0zzjsCGL5uIxJPbp
3A1A7rZSho+4NNbphFovSukMYSMoM0AiGps6VCXmqqS4baD/UlJm0k8I0BeS1MTdxi4RJfvcp0pP
Dub9yr6KN9wmIPStuZ8J82tZiA1LZHWvS4ZVrT6fYBQ/IHAD4A4VxF5iWjFhyst2w1oj22bCIP7+
Y5i2G0JumeUguC29RnN5c7zNJnlbK+AvN8/H4Gb813bK8k048x51x3Dn/oBXZ3NyUr5PXNF63oBE
QetS42dKbQxZQaFJiZNYjrTyq1jHgBNG6XuyxxnxeVjniI/rXHYZNYCJpBvzMgynKi7xOPYq+fYy
YPm+9/QBVwztv3s9tk9Y0vmdc9rZcHEaPWTJFmRvQXSuj+vt+y/O74xq22gTd7mkx2HTGZ1jsrPr
sAtBeDHRlcYeLPWf6AkQgZqGYrfWFtP0PM/tz57PjjjmgzorXbRvSS+Od1N4o2cfuBCdpI6iUt0r
O1zRMKpZZb9SinOor9Gdu4wm/dzj2p/UD1016w1XsWtl33jNqeQkt4fLTY8cq6i9UMjWu73MuVUf
P5+6fHz6a9a1/X506hmLX6aqinwBWtr5xpoKcS2jRGW3abkWxWBVeVLGqIVVvz5hKrL1qmb5/NvY
7Gd0JbgeuMAbgeANehAU62U/J1yybl3RbWugl2vRTFLdlMSdFSds6PIknhHw/rfRjA4IiLnk22dx
2anjyt9nQVnK9+1O9CDNEZui8xHEmtvvBeY6Ztft9gFjKyM1+hHrPY+x4HU+d506SJR4G6o54tpc
6Gn4Nkng9imh4nU5n8GEk1HcbDtN3qdiTmT5njnFUpWJiYJq+D5MTyPUnE+ZCNp8IehmcDtNOw9+
3yuex7HYbDkZnZ0PPmaSO+T5OUSeyTU9DYeh4nJJN53HYXMzlHkaHwSR2+57R2B4HYfc+SSPA8Wo
wiexp3eJ4pgtj8Ndt1vflfTsw59ti6/EwX4UdNFh65L4U/Uam2jiTaam7xip7HVPCy4qSClQMKc5
Ehi6MyhaDKFfGFD4TAQOUKkJhVZRVq0hEBcMXIqS7ODVLENA/YxISAuiVt3Vwsw9OyBLBikzMgLS
h0WEYmRDBMWAJAvH4BhQ7wJTVfDHW3bPGIYTtBWPvr5Wcv5a3ZNqTMLvs5IaeSBgbAfb8yAy4wBJ
D5DYVIuUXwMZGJRVxiFjEqLWLyTEIRTEwiY4yIYFy2JctC6OA2Bhg4BAIGCAnh2dnKc41KUZh6hT
KzMUkqlPqEgTZH7YxgYxKgEiARme1WsymBKAcXmg5IYgDJJnbxwGA5Dv0u5DhA8d+N/043duO15u
DSopjcIaZY7td+QY4RWlHKA1qIGAZnW7iA5eAPP44lRe+7EhMjMIBwmMYZk0JMpt4UdzGe7y3s3+
1b6DYKNJYSQ716kHcgIudlFwR7CCGRICAiF0SSlDgFZoC5ppHScr0IYmcJJpRyoNZiWGmS+GDZq1
abN/Pn+ufzf7wK85zHuiT65Lnz5w1Mm9Tyt03yNRC5vnzdOOFjq28Kaavy/Pb6eBETYNc57Zbs37
Oe7IYmXC5EM7+glbz5th5AIDgKMEALFgH1OocgWBOxRHX48KqZvEu/3uBex4bUfeFSmzerWw9IAs
i8nWCfAsAwDGDAKLZOeXzR0wFcWQI2R6niFr8wk6BmAQG3Tl7AGgF4JZW04ABLthYawAedDd3FB2
Lx7ADAEnPBuS15pI14+H2kSMOzmIXNZvqYnSoeK11t93HbAOOpPTW96zvEH9AQB/L9QcjmeqD6EO
cwjZy7vXqd82bIYjtcmchnXl3d+7FigAwDmwFA5uZkx6orAtgepvGBkgZA+QbvRROsOAZgU/NSfL
tV70DvZiA1D4ZmTmAIyBhFCMMJP3IOoLDKA90W7Pl+xit5i7Yue88+/GYEBjOt9A7dt7fq6msWF2
i1gGXsRjR251Zhqctcc52+eZEWOO+b01Nm0jc7GQ7fmBLZauvPDJubWUGVayCVGCtJ/kETQEA4A5
/REBnJmRc6OvosFjHjz7TvQgyPS1xkDIxjCDAQADJDNce/nZwL+BpNrzGvRwgCGwPUgC/aKoBAMs
q0MBNRUXEcgEZzBBI6dYatPjABTAwD8S053qT1NqK6myAp/ySXFS2xXhCC1vzF9X14l+AYfdSCbs
MBogNTT+YOf5C0ex8iXu1aN+HjuuZevkZx6+ZBj+MVz0Q2Nw7DLSjFI2u+hS5A9wROID7ACQDnGF
8kscEdomnC+h6PDTxDNIHRkLfSNTp6pr3Eo7GQDpd8+simbFkQCrhMm34/PDOIgBwLXP8lAZ2h4E
SBNgLOLDSInns59yVNttQAicswzh0GR74s9of2tawcNIDdmNHCcrhEg0CxQbmSltGCwfp7KN3CZ7
mOL4+uIWyO+sNMHJvm/H4s1ki5V844ORbELmeaTeNaZuf3gTUZtLdfyA+APw25D8CgSSy8cDuPAY
M+BgRuePR5mQsPXi9jIEAJ3HkPDysaNd5nYhaOMYQIl1md4b38MBYAcsQsLPtASGBVQ+3YYA0OoA
WShq4WkdgBoWzDJ9wY0T6e12s4CAaLZ0+dZ3WBudYTrDAEAaIDimBrceSg8z1LFy9LjuDN3w19TA
e5YOD4XTBZ2FyKSozdq60utqHNRsxR3FWEaqjgB4HnwA0DYBeSE+tUX1QyqId2nAxjAw9czJqDXt
MHzHPVQE217XBud71QA9Qp3+F3F9pjn2WNqW34Mm+6Y1b8n04Nx4My3in5hSJha7c7iOP2Oz0ax+
U62ZrtzAewQrXvFNyUi7WV5EkzlQXbDm9nfBaO47h4pLmqYadCc+rhcuE8jWixIftzxpw2cxyPH/
2AusbK3WFgaHVytg7gebumQzVdpuu5RJT4ctxuMkxm6Dss0jIuXzCd4egxcAmr3xHd96csmc2abj
2IClq7Y/oBs+ryKG+++d2exjXnnlNrDbNcKvsZXDFnzr4gtc1xNYZ+Zuc3RNdRdhELaAWAPj15zF
7aC9LmyjXdKoSeB+XuOKouKZ6g2fYqjtYA9iByoXXDmgG4H5/AG4DWkKAhQucoZAxhd17GiittBk
W4SP1nP39ku6X6dsFCWU53tQr/YzEbwe67WdfghjesbdXLGVlDg9MNo+g9yKwYul8I+SjU6FHSeq
F6Btdb4XSC96Lxvq5znYHXbz4uGkSUF0cxfi4xvUZveyyjsV/ERWvJOW+8yjHnaKHYO2qPLO7FOs
s3dzyQNWt+wFMg+xahN2fB70Q+XPZo9gcm7b9PLcIP6Q3ncXjM5JiNHMbRTJKRi0/oEaokGZrOdc
IhtTrC43WMxr6y7U4zKFepwuz71tld8XWoikVlDhlxyOZd9rfK9C5uscg2pm5CDfDwe9/Nmx7Lpc
vtRHX8p1M8cGSmc11KGtwgEnOcDGIA+MYtMm6ca1A5ViypqtV7SELHtJIRhhpigIDABAaEATGkRE
AQgt11STRcDN8ptmvCWNyVot/PPmMEVJURrr7fVaPoGVfk8iHq9XvrmCrCJSntcPs8P1s64WNfXQ
blHlzLmiHO8XIvnHkaEc5tlibqHRc0gvFaXDb7+4DyZo+yJouQGQ6k6wS9Xn2AxKHXrtPzXK179V
rX0mWxd0yxerQ9rfkbmE1XcdVmJa2vWu5rWLvpoZ8lp1ykc6dNWYmYbnTzTbSySglfYPvOkThJiI
/+CIFt/AMzB/ciFxoHID1M0xBjMVSZ6QYe57X2pPRcp03bR1k2kh2eqTaQo1SLSjW9VDq6baidjx
ao194xsMDq6LiiF3ud+5nsYHNo7dRUu2om+005NbB5jo0TJfjU+4/wB+wH2B9gaA4AA7gdgIVugs
cz5TRm2+dVb88vY+DIBjcTe57ab+9R76Rb5y9xw55+Ffg7VfK+IMTEqr77tlW5aspXV5bdYGS3xf
MksDgJF/pnkQEkcljYiEteoeewXF3H6AcwvAz8I3rA0G3H7AJYDHIq1qO8ttFe36VzE7fZbRwva5
4VbdAF7Tw/RaZYugbpqxFK7ANZmV5e9lR+ld7uvVH4rfxH1iuqvsYVfhzkDei/HncKUbGWWhcegD
RwZmC898y3C9xGUjffPZ+xgZvhWSKnDZvQ35fKc0llGUbEa7jhbYSnXn+IY343dHZKLWzdfEceEZ
PPhfOfI92SOSvor8BnY+vvhWsSt20zHi7rdb98hCaQNTX+BtMy+BRVfWBz61suRSHF1MrqrYuRqW
Ply3Zq1W/qnUVnSgk9xiIPHL3oJld9zUrxbxnlzzYjfrPeA7tHGw2nGpxmlEzI0rbul52rmemO/X
fXqz27+8sseZ7HgbDsN5viTeYlz2+AyO/I9u03Q2P1I5/oxPnafzE7BqORyNJPHoh3nucfM2GB0I
sb7aHzjJ8pwNf6PLIfuROyR59ksYnWTadkcEPGTea5DxMTtOwsFz1Ow7XE7A8k7LpNCixoZHP7Sf
PdDvKPI8OPn8ScZN55mJgbT3Dht9PwXterWqrcDbuOfD1Sb5FSRUGMPiyKKsICyUqqw+VfD+mH3/
47vPe/ngK+aD1qoJQqUIIERICEUvIAwAOW+szP1iEVh8CGVhMGUj3DFbmDVzjAEuKeGuWS4sWDKS
5wAMUR/T+1PJR6vGBQAAWH6oNlnRTptqymXSFSqNalTSsLtbhyrxgvE0GD0oiKe0ZLhboF1NFao4
x/WcAALjGMOHiVQMRgWGR2dIaHzxzdf56B4F3ttLDbY8Qf85G992+skDaq675zzNO+Lsmb0kIGxq
YXTqADOTpBTwZfBKz/2ClyBgf2feWdCt51AAw2lm2VZQ0tlLGEzxwxxUWxFSyqCRHNQQitqL73O4
tFUEipUREKgLhkZF9WM7FrTHC+FpgAImaqCZKmeagNKIFjHGKoJkGAAiZKLxyVVMlUEvQQGKoJnc
itpgqgl6uUUUclF0QQGlBsqgmKqCUAB/r2eJ+YIH+ICkQRQioEEWAqG5FvEW8AoiLIqSAEjIDJCI
xQBYEWRYwiSIgoRRRQESLCIIsFIsFjICKxkUVjJFFJEEUUVBiKqQWEUUVijBRkiiojBIgsigqkWC
igiCDCIkGKxAGCgogKMRBYpEYCgoRBWDJBEZGJBQVRgiiixVBQVUgMYJEYoMYsEEYQREUiRFkYiI
oqiIIAgiKKpCMjCQYiRVEemAi0K0rAIjTFoRgQGCtQIyhSQCA0wAKRZUUWkkEgEkSCBSEQShA7wl
VIkhYgUBBIFDJBQWAgwCxRYKCxYsWRSLILFWRRYQWEWAoCqsBQUFgJQjBgjJFYxBCCySiEYFDFIk
YDGC1IKEFIoRYCkFkFFkFCALAFBZBQFkIsFAUkFIKRQFkWChIChFgCgCwiwFSEJTAGMUAAEYElKK
oIipA/6+H+wk//NEgUqCPj/Z+okQ/vUg/2Qe6by5iXLn7JY/J+Bif4MTAzKMzE/uKMjQoUYlzMUW
MCwo0MDSKLkUZFhYomBhGIyLRYxMSjAWFyhhGAsYGBhGJSLGBGJiLDIYFjGSWGBQuXJKLGZdJYwL
EWKgwJYUSyFyxgLyFjIUWRiZlzAouZFixcxkLmAwFi5IZkWGBaJgKKMISxLFSKLSSyRiYmAxKMi5
cykGUksYmRiXMZBiksYmJhEuYlzGQsYliMi5iUFzAyC4sYGhLFFFzBJLGMkuUjEowQwFpAowFDEY
JLmAYFQuFi4tJLGJhCxiYRLGZQxLFC5EXLjAsUWLCxLFyLmMSZGRcoljIyLlChiTAyhLkwM4jAuS
jMXMyxmZiZDIoWiMDEWguXLyXkMRMjRZaqUtLUxkJjGbt1e1Zc4MS6GqGQYxYsioIxiJFFFjFEWT
KYltU3RRY0IlIIjGlplU01LzvADQZSKKiosVFWILCLBsIH8vS/7fyn6kPRR5+7Fq4Pj/T/zeQP9j
+5ilIZWbGA2/3IH0C7HOoEdtYlkO2jf3i85uef17UEg+EUT7XXlx+5yK6l7fZi+uIDbAs0F4OQow
CMkUEQkVRt/gTqj/4edeKNro8oZbg0f6be7x5skw76NH+E4qkVaaVaqhVaaVESpOEiSyFplf45pn
vqP+JS7Qvj+1h8uUMbdmOOnds4K5U8vI77ZgB/q8bMbTVDtg3E/prTAJYH5TcL1NiBcr9tsn+T/9
PL+59cLH6p756/PAcebqlnjpuoDIpvy8SvPxay7djVMgLO6dzfR7J/oa/7b+nogqKjzOcm7AiwMJ
RBTBfvR9g1j5WfL1/y49ot2VbYlXQ1d00tHt3hUkUr8C/p8PnefGbEoQPh6/h9R6e7P1bTA00kVz
f7rqqS7k63wr/P+baeFp230XMOci53fMPETlm7Xw2THP1ZgRAUNEYP9TwZiB0kMXcpgeNUIV/3U3
0Lp9e6/wP8vYO/eerUgwBADlAfyNwUVRGsBU/jNsYHl6ck43HYVC86juw9FOd0hI95fR/zNxfQPL
nXE/PeSZqilaFVlMpkWQKZTIHji5i8uRK+nLn6rPHn7aoN6TrT+ZEhPANU28gK0thJ334+s9cz/+
hfwl6/5L1LFf414MNW4zrsXi/x+Hjj5f05T4upgqu2ZMWvfA94a1eM8+HAvus7330LXLB8MHPwUT
WoM+/P1FrW/3AcYWGgltKxOahCAigse3x+nqkk+Afz94YRZBVPUbHwr+l0tbw7IfpJpFEfiB0xIK
KKCXVnzD5X/LY/19Awnq3bRBD7Awiw6YfiXIQb1hhsDxLqHr6Pwn0j76D3X/6uqqxEZj55nvKyWn
1cnLqs8Q8uW/OT4z6OAorE34CwExNzgcmPt9av9eZTAskx0fv7f5nqIUj9iMfZyLntQ+reJRrwZi
AX6UoM15HP1JlhgvHEqquP+/sJ8+oNx7NOHP/H4QbLED8nyugtn6X6oG/eSA/y/zBMqixT1gntv2
moO9H22r1+w/fH1V8bx9KPefD2xS80LDEKOPl3XX4a+OIlkytGBGsOPMOHgbPs8svWv5XnwckfSw
DwXzrrs9AB/SJQmE2/o0CDaDlhBBXHGVh4wYgTij4e0t09sSeJ5w/UuD0k8v0uyJeqHo5+tPVqAA
E59QIf4lsCB/BDv78NW/woqiHxsNbZV/M9SWATIZ92HzJhi9cJlhpi/zsy/JbJdP4qqR2Q+qR0vD
XhqfvhV4dh0+ympHWj2t17dW/qq6utJd2Q7czDwIfuxNEvM/y4mR5zd5QI+i7TWW5zh3Hc3T51UU
MpK/V96JWNmGD5X+uCWMJFkkUCLAPcnvXuMLpX3aungamiXN8H2MNfad3i+06Z7rX2rNeD8b8r30
+He533Q2nstzm8KvtzrayEsZMfXjfxxEu5pT01Zg6IIUzxQ7i5C7qw7yGcJBS2S4PKFKu6mscAKw
Gu/6CHhiIXNl32/TxwFi+3CfPYvJmofTA331QeDcPpwNQhBils/mQWW3u8BQHhZiphawvAMVrUOe
LNGD+zDWLr2cKBl4iw+5hnbkeIj4fUpD3BtYC4WB7gupdZiy+ipVVTTVVVU1TQB9lYQ21+HwwezD
6ilWTYgfbQwLU6taOVxvzBMM31Nefm9eD5Ifu6j3fe1U1Kx0/rq9Xltnz8Nvc3d3fKi9S9jCsPPC
BqZUqi17f02Oz3dNwJ6dU8x+t+uo2C6V+dxUSOVeN3lN9vI5y8yyLdJJZ4hkheBztniSH3qNG984
/WHURNydvMhR0pEHv7DvKyrsl3eHnPfx4/9363g+IhYP4kO48wO0bjsILEYqkkIQYjFCCgQAIolQ
BKIowhIQBgIgtQIwCogRQCqCggjFKVYlICQFIqowSIRUCIDGKDFBIBGKiRWAQEEeWJknWWBEUMz9
Cg7v8/w+RufLd/LYzvKCR/zVxpe0rIiBhULSUwMNMrFBZJCAbbpIySQhGEOHs/rvJ+13+/9MK6T/
f+1sf2l37TaZXftdhthtnd6Ct99/Nhr/cKO3hEOL9AAgoH/BBApWKo9IXA0iLIDA62kFLBL2zBUw
QBgEEQBttOu41rhe3DX6boFvXDhkNgEk1wnRxyqZO6/Ul+I1r/P5+US7kU18gpbA0updVpueS2kr
frPWOeW3VXc3E6UcPmmqWVgnMnmDPKQ0bzrKYfvNYxV9k5rGecdSiNtluYoy0FCYoGZX2n/MBNkv
6iwxezKlX81zamS82ybvwsivFtyrrNf9NgLAC0mUs1wG/5xFYfa0pQqQ+g3Tc2Emf/t+s+75mvb0
id++u10x5BLHI9f4LCwtYD0RUqxe78zjncjzzeM+ZRkjfmJxjJTve2NL0xsLsvJGQ/oBurCwXXTI
63DdP3Ot4W2HKDbrbTFxlKnC313T74ijPFrW6a/OXyW8JqWbS4e3zVVme4c9luZFwjtE8v3ILhRm
GqHTCZES/Xh1vPVGk13EZw665etwYCAfz6gcgOkyspbKbc7M0gMMuxL6a0dNGjQQXSGp1qsGbZQO
jfWdaK6rfnnkcK/W8KWLhjfjZ0niN48TLdStpTttSG2EPlA9z0pbetlc7ay5TeNC9T+8B7+/QEJv
fHYDkhrl153awwFyfBh+wrHmXruKdpN/CuWXvkLWKzrT1Esiir7Yadjzf3jQnO6nj86+22ZXXivs
XauHi71J4xc6r+gAHnhIfO67HUTc9fnj06hrnguaZnrbfuk6ni5TIlJrnOU+34AfXGAObZ8+wQTh
68LGFHe++Xxp/Cb0uZ+BtKhbMhnv/iA5Nm0zanTay5yeUIujo4NZz+PZvdrjmkeUwBfJsXmW3z26
PvtCz584JyhYQcQyC/qA38QMeI9NeZ5lnfpgP3DAF3Z8zCXzOSOmWR2BuiR451G7ePIzl8TnEl5p
nr+wHc85SdYLusLt3xrrP4/wDGUXnjy9D1wSv3k7Ovd1035n+dgOXRUKtly8uRjTZaiw+K93DZ12
/dqfEOsXzHNc1e48zCcmd/v9A/pOvS9SHr3Wzyvxs+n5c2/+AAt7hnKN/9tqfbafS/OhD19NF6nw
REr93OM5nmNT1Un92c8jUvjGEzo0OuY+dlM1nLo2dRze1xBzD6JO87fVLqXmoXvnvRnhc7rz3ySD
c/2FgeOzge8hHrOqlpgauDLPph8JrBEORnxjjGLrzjZHxc8iiua3nSHBhHS+tD9iBxmjWxYuRTE8
TUeI05BMmW1zOzKs+YLq3cTrLa8UjF8jqsx3RRjeAuh2v5C1v7c0PI2W2xw8jrNmV31dpztFC1jC
+73wr4msreXJGumUwz796mHXjxv8crO48vcLrRzfFNrzOZZnLGM5K7dAsBxSCHNV4kEqNuVPZwqu
bXo6qBYZCVZxcu65oadUAcQIERdSL4AAM7WsAQAfe/UiC+t+/MP9XRsE8DrmXGbPEzlV+t0W01ve
28zgx6Z38k1EKjenMYfmLz8gtNpH1b79u8A4yjBW3d3Pnhn0lTRUL8yRz7iKHgKKy3pJrp9wbs2J
18tb63Pq8ZHvETveJeYd2v7YdSusztlTq91hNP8YVvTLtpTW45oQX57K3L1ipvvesFxOa+ZBlvHS
2N9rjb82SnznZHoFl1HERmc967tqYt+Rmb4Qg1+qmkxzPIL+R3MeiIbbQjsu670zbkD7euSHsdz9
8D42oGgaupQ9d6yIoUKYMEKQpiAEgMESgDBAIqpEX+QHHTPfsrYZ4247Q8Qh2cFyov0zrUGIX+DY
TNXqcy77rQixKo1usFM31S7LCk60aUwBssaeanP7143NVRTxL5PPF5rcLcazg8OFNR1nGxRlJZqp
Wn6+5gfgfYtFSq+N7Y7/gmkT8pthWujIeXSuFpwVe2enP5YOvbz7+XvfG4fzYHXPRUUn5+kK+E/6
ED2hqK9+AvqDtdxcLR70XmV7xgIMjePruOGA6tWKeJDPJzaPLwyDZHM2Qgju9JiiSY/Tmb1iq3P7
0VOcLST+vW54NIQwGsqeB70ffGoz3ZjhTd40tAjP6H77C0Zaaqt8O+TrsXJ8h6DZe8wwWyCDjIzB
mXk0AMjEtf6+rZXHWj1V/BZPkkVKSyuzu17e/p3b+nHXq+SLbq7COzL9jsOp0OJvpx0hnXTfL9ZZ
nT8fz+6381de+HLWs+4Y9ar5Y58jXFIfLw0dx+9s+tEZ8Ajj/X0kXvnqq8eZapQYEqeC30zRLpTE
maOMzjFFI4W73E1qCN57+69J9fefng+vnzkdM4ya2Nw0/52vOgre9xK+ma6jN2rbocNNlw1nQdgG
zf42Ke6xqvU7yWcaasJUu8seVSTxjkanZSd00/chE3pOaVX3elvqQZR+UnVjnky2ddCmVK3w9ZW1
DVKC7WlKAYIPgiJejR+yAYAXuRdyA9b7gD48F42fu1l1Ws+qwwtUERnCCX7qAvd2lf0faT+J9H0f
MhxbD5Pc/BuhvP/b8SqlVFixYsWLFixYsWLFixYs/9yHd9HW3JUjo7ZuPEdf/nwR2Q5eJ4mo8YOv
Y7D0kkd4fX6ba9NWeJdt2yvK0JJfu6GD52XuARyxVErvD8qcBZgWQ1hCMYXPfvlUVUZJjFq0Wltg
chCBeH+YXCZv/IRbt+b8wT0XBzDbxC53SqqRf4VRBEUKCqCRSiFCH26Q+N4pkqgno89yhkH41eQJ
A9AEE4XCB9Op+zJEgrEHUiyYlZgCJkghfe6B/rCQYkA/0MDXVh5foYKJuN6QhJJDbUpA+4fmodqC
GqXoT/Buie5ynvK6bEjzDR2Fp0Kt/k+TKJ4viHvC/M+fl9hA7ZpGLFYwm8j7KxPqh/mTvYfplueP
MqfPDGB4/e33q7O5p1H/alSqpPSc3WHMYVtxuniikCI8vyG9gP+Yqd/Yg2fj460rZj8bCp/X5OSa
qrk5U1Q3q6XPDu3dhDi2G7Mq3/zsvhZhLbf2RoayBMDuI3ngeN1U+9okn/QqTXRgoZSDc7/ja/Un
8AyaV8emSc9jGL2kf5zL1mm0IeMrOQKhK5ggi83+IEBiwAYK8yVUQiyFmFE7jDtg9rt4YuYaTCdb
KmCii8w1ZS/DT9cbZgVBzuBoMRYsOPjOJJAhUDMA42Jrf+hzTTM0VRnfV4yZu8YWCyc6svEsktCr
xivckyyfxDWVQBP8A6HLygH+QYeKjznNAk3PMr9RD7h/oHcp3D/E5IHqAf0DQAQSwfqH+UsICrJA
IoSSb/E9QcKuhxHsD83TtT5RUoID2vac13MH7ez5/VUPWHlwDI6oyHhCwQLuabEbvnirWIfvJX+k
B2WzrxyP7zcB8eRy/t1/M1KMwkH/H+pb8RocWJT6AAIAh3A/PmHXNozzvRbY5zPReUah5jB8GLbo
6imxjFTr4Wx3yxiWNTaXLdakiS1ieC7ehnPIFOa748/21h13fUXWIJOTvfdZUBcMagYhhV0uY4GT
Z7ufX096tdmNH7fAzkz7r/YD9wGwErmW5j3W38HrYb2ZQHmqEZz55U41mVbSCWF51GkQe4jcBaNE
n3XLqITWTW7VclbG1oao8TKXcDR3Rn/4I0fON8C6w1XH62tZ065olwEVr0+ijnPIgq4nimQDAf9Y
GhYV/o11iL4OcfJT5zhs07xiFr7A9Te2Y6QAqPy+hznpSwjh3rPN52+O42VTyp481qwR5xWfqSl1
gssm8prN6PvgEnN8+Z0lQ5zsYjtc1AQo15iL2ykPu738XPF5nVROslfR2A/j4B/sLAUPjc46iOT1
vYjfHa48jMXqM5wc3hiQ7s9H4HB1vPwwyZo1dhbcl/PUaLajQji0PTPFq71uqNfG6jZ8kTu0mzUY
u2y/sN453B62kTkz4CFHY0KO78xkD92ALBu0evIRCjMthvZxpUjS8xeo5F2LYbNKeE1nuRmgFqX1
vb0ezzvbkkZ8fGIwR0Wru5dVM/uA6I3dHpNHMlBla9WLwlsTpcNXm1qdyJuEKjLmoMwgZAXW6z76
U+ARdwOgHOjYOqNMT1Yj1omomBCD4PbVmZtwX181d7fqBGa+vrZabtVmN5f8cZVYJ6mDmmmcI4XS
8Js0C3SG3Vi7d8wVWLcgV9xjF8sy+J+H0F/cAPgD2HUC7bU0WNNdFWupTwtpqVoNmZY5RZ0VKVYU
Vj7xs84wKPCxH0nU42eYz2shl1WJMyvXZ7niZue4rdzq+IcxslJmu19a7wg3FritBbHUxcs7vJcN
ZLJ9vnDMdwP+YBABMz4nNdW/kXrXd5WVd+5oMYPPZZFjzS82dyyeJMFhq7UZIHBwubqMw14IU+Yx
hIxYGJJiub4H5FguT3Jd1hI7mcb81WubA6Lr1O0txfZa71K/MD9wsI6S8JyTz0ykr4Th886rldjy
Om6qrgfB5p/K2u8LnKps9tO6i7RTXK+ffjkmZc96eueH3jvq7rjM8Zaw++pg9kaNTcSI87K5dt8W
4jm0xruc4G202rv/L94HebaeJS7wnK8wUXyeozKrsng1Ovc48Kgz+3V1HtbuScw+sXkbKnd7zfPd
EKOMaOwFj2T3MfYBJotcxLCPE21aomV07Wis6o6bTOFLsoB4HyA4gC9NIFKy6VokbWuR1TLR79Mu
lwPFL3F/ma/JKXfgw8cxybaBXW+sbSsYKtYxjLY8345FGU2ucJeXffPJ0ykOYk1pLlydLlmzrVi1
Rm5lPn7GZTfpJ2aaTmzFMsNIfOmXppG7o3S1Nzn+nNziSU6x2lh3F514udcuVb7djpy5ZGroUYbB
mTLp2/K/3GDxr9bI8fggaWrfzSHqNZPNdVgyr8LIqGtzzE61HhY0hSecKZJh8TPWYszzLtMiUntB
uLlhxS/UDF5V4Rj1GTrzw9L4kqIlIFaSMqk6fScItlvZbMKWzpauRXOpNIXd1nURUrnO4Uxk3/Ty
nqNP1O5Lc8EPfHvFLzb6Kj3qEfKXDBcWoCG2/i2MHcUutSWk4MWatXTxlsWqcDdDD25g96RgETy+
sv/1CkD0r1+oEtPgH1dPxKXjyX9LyHwED+95c769BIMMTVjOZBbucZnDHfZNjU+Luig1WMbS6BAS
OKcQ8X3N1587MLnGBhA7J0Fox+McE2vH3A6gEVlZzl96xrpR9Qyfdv18voejg1NrMbRVdeyDfX7q
o5pcfkmNKxfTjJLtby7Yb63BT9LF/QHXKwV9n5A9RdJ7wrWslL3iYxtmyuMAyF+NDL2bzWo1rJzx
fELOmbqVa2SYYdmLrNzY666y1w1+wO1mAbNXTMB/MFYIAFvE1eNL3ZGx89Vvni3+fEXH31GucOYL
GRDqB86Ab2leyqrYqiHjQ+c44azPOdZyalrMtssyMaz1vJ2XH32nXmdpi+a479M35KrmIoueGebu
dZPGHcVks55y8meJ0obhjsDwliBwbnaZzmVvw32xrPLHXhhe2n3PwRhEmG8qeG0zOsHbykTyPiJE
jRHUMTcJ4WR4Ow3HrIhmckn/j4UpKVPgxP4R+DsffyJI1+Uj17zniSM0qqplUSKqmoRZEE5BOvtE
r6O5tvPP6NkhHgbTbjN/mtiep+PqKV6d/bppSqlP9ZnoZu4r/7evNeuwxdpbgdfQy5H8Gr8SSEdz
E5yMCyk7QhH7NaH3NRZ4SP/KT1SYPuYcu2fye+5N9G2Q5wfweVCN+DCMolIUNPkEPQq4+kNk2X5B
807DeR+DKQjtPMOsh+PSH2Po7TnDt9zS3bZC5SbD39T0OZ9+vTx/ln+HF6eX89v/pEVDgqHpF7g5
HruugXVQXbtmGpUqVRQQyQzCGhz85GtMfYZ8fy9fDnP7UlMRgqXLYOZN6SnJZ3QE/T9/MELXaN1E
I/g9D/rCFzzrV778LDdXrLy5RvGuqi6uUP1XWruvMjh/7EKGSjZQLgnrHdMtQTdmIIMa55laNy8S
ozHhAbx2CorrWaTs3Q2jt155fU0SQ/nbpRnOOJru9hwH/oDq95BSUbRVPaSLonG2W3atjk+Nje7k
NZdMNqiTexuxlONkpeZjApMVnl9kp+sMcGVc7rXX+gG7udUs+uXktokznVH7zzmDiNFsz1BqwRia
M7jilwec30lxn+wWwA9gMJUXxgTwgurU5qe1R4yYiiLteqmnRFwXIYbawPhpC6/sBffF7qiH9wH5
9u/D4XPEv5jIXhBkEZTHPSv7rS61jSo5FMcbcwWNUsm2LnoTp/J4XGwzeR+gAtnC6Pu0v1G1ocfB
NHmgEsAMAbbmEG8BZvKP5d8YgqrRFTc3hN7Whq9NfFaVjmETH4JHhb6uYrXbrnmsPj1GLu4Mda7Y
0Zr2b9bpXz07YSTuITk76BrzPNCtnvtEJvg6xfN+ZcUzvLYwTf0AxwbfLLkrgft/xYZjM5828ZFJ
6T+GIx5j1O6TUswItmkA9fGvtn/qAldpZu0Tgp0WE5xIT6pi5XcXKvJjHcM+/vOUlMa+AR7rmeLH
mVz3GcIXX7nG0by4+xYeJWC2eiW6P54Rim848yBGsBzcuedg05emvsroFUzuwSj2PlBZ63u18Xz6
APSl3haYuXKi2DzQTeLmbxOT6vmtgdXecG+tBez4pcTQ7Sgr8c21vrZeDJ6pBOQ31fs9zhrxNa6d
8d6xTDF/ADtT8xbW15etlhOLjd0zf08KCPndYi6QIutXR8RtmlWzveerqjyt3q+q4WlGMeK55xOc
rBZdGUYhUuu6vviFljyG4bvSSZaBPyDES9ZK76y9fsAendRVJXSrTQ0tR63YbF+FgKA6gdwPU6tt
WqoNYutq/Ijif47rTlOPoOlpUrn795crVOoNi28MmIvpDyharq3RgHZ9RR6jYyeEC6wWQmywt9Jo
6xsLrrAogJWTGqrCJS1quYOkbMxCT9pgQetP2V5xsetEUfkYjw84vg3LAvKj+oF39Hgq+/W4fr2y
SX9xr0t4VNYx4lyLQdvz9X1jIdKi50o6N4O6ebSsLzmvN+YfRoojfd35Qyd8ou+57W3E7dx+AOxS
9hlGORvxuZU2zL22l5Tl6faI6DLvpou32NwmkiI19sYFkA/rawcDabxulXuINdFYs/PPj5CpOawq
eeONvvz2RjN+XgkFICrK9xnefqXLm4wXOV1D5WMLcSUzqVAPckMicIWdUs72uIk7tbyHx1cKfhVp
R4d6yjdy3KOAatHQWpTpMmbfjYiLdYHJAgCHYhwDALXFaz4wmMNVq5sKaqWxipNyvdc9gyrkG1aW
iu1lUOuchOFWCzus4nX5a2EZ+SvccOtZbOKzsV1HY8f+jkWLFixYsWLFixYsWLFixYsWLFixYsWL
FixYsWLFixYsWLFixYsWLFixYs/0wAmOxKVs4NM2BrZbMI/81tVXEPsBpaPyRfyMEveIbo7Nyjvd
+rtlu9efjtrpxjp7j2LJ7/A/jc+VyfihNMJ5I1NoBAwWxsUZRQIdemwqess79XL25jABXD1Klnel
APuBHmk6mHDouDLLuknPNsWm/RbbxkvrSkL4ets7ewrNktTg+Avc3uXSkbJLvzgXW2rXMgsa7jTK
fms4kaBPhaWdEKdl0xNWffIq3m388owLWsNZrbcljtDT2iaz/ABkaK6G2x7ZIfhXjblfMallxOuy
94541/mljeIRyKKaOVqNRri3nZtvdXw4Tl12Wuz1zs/DdM28Qk9OnjKQ0132z8KG08EEy/fPQMrE
oXawF/MgZCsqXsxjKrHI3JvqYF8ZjbVts3XV2XqSJn5W8W1eCyMxdvt9SR4I70a59xxwm+Ur8OSv
9lnmM44d2v0vrmxxnkVX7WA47wi9zwawmRgjnaAR2670E0stfWain3vc88eiP3XPM3rSmCB8Afng
D5/Hn7WfVqpFh8GjiimTDVIspBgVKALbVnoMKnxw7j60+m/qkv1mD2YTntXUCyNNjetU9rEQtCv1
P3J4smPJ70faNgyjf727sBr3b5HJg9pDe3rtwIfmtwONXOX0U3K9ez+QAoWTnNdOcdxyeeJ5kR0U
2M21Mc7Ku6UXyynUdCIbKyzRiL7s204nty+z+vV1pAAgC3MECAy5GJpEbwpZ732fatm404OGevRD
bJpWb1jLPqnbv7dVGOrkB3IhbsASEIDoB0TrayttFbQU1qdd0a1TGHThu6QjRlHTcAtO24CCzpQO
DLGqVlT8BqsPXwWAsFzRRBjyE/QeEt94m+dcx+L+rgVRVGHsLAC/8tVOmk7/S6WvWx5uc5j4+uwG
7mqrlEaG0q9ruF7cdNNmzLa2Xxrk7J9Huf4OEG013MTV4yG08vD2YVe1c17772vVrSzGSQjl6o19
60J8MkKEmU8BB9wkBuHQEvqM2V3Xh3G8+yp2L3hwxjpRz66B4/bfVEJeHUHkJppI5VZSrV9i0khH
kXZl7RXztUzkKwlvM2c4h0nn59o3EYvcResi4VQyAYh0BUTpMkf0f0dP0eSPk1RNQRJDp7efKuCZ
QbT5IoKhA9ROSqCWek/eIUfKNBYQ2YDaF6QY/av+oWDAzbsBCYhE8SJrJCPlV4q4RcOsPAQLaEhP
YEcxuuD4eI9DLWe/9az58TZm4cj8pgtzvb9fa01pJwknkckm5N38IeIcMZsO06ISbLFotSomopHl
KWA3HOQpaQJTyCgtcUkkV+YufU3mMNpYqSxB/ReHadxz/H+wnXj5H76Bka1jENX9Fy5oaCc51zNh
chhF4RCvlXUHwFzDWg9wRX5lvK/e3m8+eB7zPGT2HoQKYpFWAKjBRFZFFUEQFkPawlJ2EChwnVz4
GbFAUgW0xRQZdBKExdBcS2i2sVUOGmLDIJSYqZuhgumUgLgui4jsEqFLEjKoLTKGGCqKQWCgCqpB
1KJQxQRgFsBSmQtCmKKWwKXpyKWUNSlaWiqFa8MPt9Ly7fSy2/y/m6UtWvQKhL28KB0qlYhdQk6s
eqVv/WWp6mQwTgpr+rvfq09baBq7vtuwl0zVKp3qhZdwYaLdke/wq+kjvqGEn5LN/GYv3zGcytst
+8ldTAtLT2y/6Q6klf6/c2m7PUoYvzT82Ns2empVnuRFISlq8E2sXuZ66OIu2h34f++s0tFgp12f
yAgeKD7Ocn/BIz0v6YGMAYE08avW63VBa8qs/zA6Z2Pq3F9b5paX7LWcz8CAsQVyjjZK7I16DZiE
73MTovvl50jro3Umf+YHT6beOOeYTpRo9TeTPobeO7Vr6679/E6gcq/ZPHfTuPK0lqd+Zxc741sD
7AzrMmD767we84XhH6fD5eIdG+bVQ7fGU9zkZCxd7/AehKTzG7zNd06S20VRlhAiisEx2DvkhDi6
GppcLDPnkOgart/UDqcjZ5GmKqXOWXYbGtlPL8nr1+gGgD2OLu5aJajdrLrsfsBy5Lh/x3mt4qkj
guG27D1e7yayVQqVo7498A7xJLN+aOU2AWyTN1xhVpFvx006bS3x1wM9mDbEwiPNTcTwdXqdtf4X
4PTa3Y80pUpa195T38AfTjM+J78eN/R35D88qkyq+abNumd6febxODvWTliPFUaHj+P2u88yPqcX
1UptAvd9wS6vksgUb5jcfXuy7Ma2ZSkb0g/WwFrWyE+KtVtKVO83pFcNykfzcO21AJ8Rm64P33N4
0ImNaxzd5UD5LfF0XtdKVYQmauwEgPIHs0QFk1IECBQ12znQD1yTAnwr1n28RE4tT/daT5sVhGvf
lIsZztIJbt9XfZj711VOOa5LztM77PVza98YWmItYwc4B85m6X4HfF2V/fH1C5vrOaP7AsN5418R
pFKCBgVa387JXMryDS8c35fzZV1OKSRmlW8zpy3Tvm5HNVehjfuI4smy8PWqygxVuZzJbiuT5BJf
cv1xdUtsQHkECJr1yzPFZyuqLVOxc0xjLcvlddFXat723mq76e3Cv0mmrznfU2AtWFv5WA5KTvfb
1rzfk8OXOuM6KedeeJzDJm8LPiR3mM5w58dMShcVhfPIHSXbASYxBZj+6sTt0vNqul1BPOd96sYy
uv0H/RYCwAt73O7Y3zspTsapd849+c418MJ1pkkea9uy4IBtstA+V52QpH4gcAejE3dB8vG2/i1n
wW2y5iMa5V4KX/uAd4iyNhGfB3jeU+YAfa8O+Er4j9m+kV8dmnN6+EVYEXUmvW5vH52tawFgfezy
eG748LqYzol30uNtxjzw3xwHcI4zEiHd2XlxHG2X/MAtqu0bxorvgbh+XKFxruhfZj7OuaI8+X9r
yMC+6ib73o8YgEnQ7T/gBZTGca5FzPN9K68A4MXJGgtXDQRVLFyMRVQulZGqLuTe3jo4R2A4rnly
XF9V8sMK2Y62/sPURrivvSSBFvYjj9Vex0CLJpoFExCCLGsmSw7Rt0ryrUao2LThHJrWrRjpa/Df
cRvWWdmcmNYKb0q8Uxt/gC8VXp3irppMwb4ima+vzrWVnvb+XhdB0wrgi2QdLq/5Rrry/elOcV2B
EWA52MQOL2XVeP5NWZOU99wPYDA3kCQiMeZCiZPVLkwMgLJDmn62+0f9CBSkUQDCkJC/giJRgTzb
RWu46bbWUzpHL1wce7XShFpxiqPQeY+TxDEZWp5TgmOdvjgRD5iE1zzQ3TScIZ2jWQmNJm7lniQl
R39FjSpshzsbxkPrN5GZXfO7o7tryV5jwLzxIbsaM+eYEc8nKeNdmQj5B3zinc+dWB+gO5EBZkJ1
0S8J1c+0Ap2SPLo6aZGgB00gtdbYXL0WXvzxNYK58fVTvd0xD71rJw3G72+Mld9i6Eub8fuwkXe6
V5db56nPOUl9Zlv3nOpjhT77ifOjqVvniBjysP6zGqNhP5Af7AcH+BYZ4ex4WqrWfmcoveZyRrPj
tLd+4OdfDkyCp81nhHzYm+0jzCc3id7S79Mk1RHhscybpqru46mub5ucqei6+dTcmA/3E8xnjoXt
yxRelZVZk67U2FjiYnpPAZb11C/45IBgxijGDIiisUYIiqb7+XK+fmbWrTLbfDnjgbI/u6D1cD/Z
rP1876iqqjZSRqDI9Bvq75MApQRUOnntWfHXrwnuvx6L+y77uFVdJtdfp0G9LH0grCNXWa2uRXeo
rFznNe691RrG5C7arVR+/lJmKgknytD+eq0XUl9wsFffFbVzI/5++TpxwL0oJy0fbTOGY+xbnTWN
WgrmARDcyIo2ZHRItEhS9LViDAfOkpmd0phQ553y2G6ZNc5DKZ0HycGIIg5lkD2DgORjLaC0ctGg
ZpvDnaOd4avW6KmJDWUq9CcduuPRx9yqCoS/6h0mT59iQMRCgbww4gRGSf3tJZAFeWN35O550Xqr
Zje3DFtiyfL4iJphym9Of5j8mSoXYjONRNCqZSJ3QyEwdTm9zJRmo/MX64o3KSUp7dF31cOfBGuf
YHT/XXmA3V7rFEPR4Dp4x09ebK3XuU5o38reJ7hXiGCAf7AQLW6w+x90jsNf/4ekQ9eZ9SHM09uh
3mUdDxBuk5JcXb5xTiiTzep3Eaj2TJh0+uYX3Y1ha+8xcg/fH1QNXPSjJULs8wSPzBPUebD4PV7H
Yf3KP4N7/B6JN8JlJgLPVJNrtm7ztyLTuMU/I7fIh2I/o/J7nQj86zScnicRqYHKVzKmRwL3npiX
Jso/LUdn13d0/R7HedvnbJCpuPaHNvk5fuk/mibom8PooU+U0FsHHsdOPtnbgWtfa6owK3hQ0D3o
ZeycZZ8Q3KoJ6TUgXvn61GyGvtH8pOR6/xuNqDSuXR/y7Jp50xvlIqfk6HbrOl3eKOhY9/vzMTx3
dT+39oXYThOlPEeJzAaKAWAz81A8D3/jHPt0IvqCk0Sa9+5L6oGq/uUpSAQT8AYMiAaiDU/RgY9g
AAsSE1taRuTgNWarzdeG3Ydx2BkcCWCYOMZXBdIIDBhMRB71iWtvKXFi0BxEfgo8EFgsEoe8wkYW
1HSGJGDsJtYACMGhWtYCwAIRltTk8axdJh5uNAhZHOgg42tQ+IOmtLMtLSkasuDrfLRi43B4fedq
25jKgIZON5CSpys7wP5ti2R43s4h2Iz1oUZDiqBLymquhDDAgIIMQKj7G0sa5m/AwnMkkne+L30M
sK5tQSmcIcpgaQLuVEE4qZjIVVCoporsRa0iLD80l7gydkp8JxD5ILRBuRhzs74gC5YktZMclpXN
7UaJzjWJNNhuMVRF7AfP72+RNR6/w0fp/7Y5X9O/yDC4vY5OZwg1qs9uN9T0HC11ZujR0g+Dgivr
8CHE8br9HdtsYuBD/W/HQMMhpFa4a4XRlWr0V8X4uNVl62b5MeWtuHfnrG0qEgSQK/SwnJNb82Kp
ZBRURjGIKsFlJi6BbtCyVKFKFJMLNbXp5+b08uf3t7+mXTO1/nz9tOX8mUvw6NlYi7wv86LbTpdw
of+exCVc8ayms40b1TZmI/5cbDtnpXXrlGdxqMn4MTlrxXIakLh7aw+kjExOtH4p6Pc2Kk3rvB3k
jmTLs62+IO+U53+wEMBUvYCwh4p0IGYJRmeMssYxpaD8HY5NRpjRTVEJgwMmrCCDMNlyzo/Tp1Sc
NNPGzIuv0ovf7x+pUjxRTvz19+qfj2+3fx9da6d/vhx7fj2izjEz6+363O3dnx5Tp3ODdoxP8x+Y
nfrryF6e/jopseYx8SZbPSGce3OreIn5PxHpb5bNaRb4dlffqr16r7enYr76Z18i3qPPL29NN+jV
iWxp5h59p+MQHmPvt3tGfldKQw6uMX28/Lum1NeOflnvSvo/PhVVdq9NWwDNMw93zg7xY+YiPjl9
s9tOnzb13ZZ67eU7fN19ln03e5tc2x58OV546jvP3061Z55r6ht08FJvz7yRiXz8rXHaOIu8/B+G
eNLdu/E9lbKpY/jBVUijHAA5QuPpNznIM3WEW5FMYi1Bo+xALsDV1TdykGQtR3MM7gaEH+NYoFCU
dLxlNprOEXtHmTrpD8OsZPTpePstX40rJSeU3oCvgAtp2bGSeZoaVoxrfplpgfYAigB3A9gPfTI1
ri+q7rkPgDRgtvKT6x35pfWnXl3mVR/WedqnGs8ZbmHr2AL4SOR83UEoGeSR6wNSitlDDflsfIFt
nfT1p/ecbBmYKaqiYI3nMXbFvqqtshIOqxZzqKTnGyJ9AcaEQ0Ih6AgCIpcQ2jY4aOMJh219HMjO
O5wiy1NFW0c2rwuhcIslfZCwnF6y3NYyaLd8pMWH3OViDdu7WBfVebyc5sMeb3hbC+px49+oOMAm
Iox3CczasJnhkjdvs8dH9QKTgO8ocpLXMuFeHTrs/+z7Q/GP2nr5Skoni13snJdwIAfYgNAIuZir
kSvWN3xLa+NEANPDBXULzce9nmGAqe3RcnvGQLZGBJ+uoAqVa9vKy9x/bl+eMKzYNtoThma2NSjF
aus379eRbFs4JKWOis/G31nb2vv9vX3suM35+Imzj03cfGfftt26xd020r38+kp8u+z9+bb/XMXp
3M/f2479U5SardFtWmnw+Zx9UXNfQOYkSz+9ZRTPGlLL7feyvTsWH5Ul/NuAfyA4b425Z15VOCZH
M3xXA7PIC9JFR/xWDwQbpoclgCnpsjo7GHlMtzGOjNk1qWqFiPKkW89keOTYsOne9GoG8I2MquUy
A7VEurmsdSE/ah1fMGfmTbZ58IvNYvtSONVsro0UA9wLAgOQPkBlsMun0BUWwxRvn0YuEVcAN0UB
AhuvV22+sSrirJ0g2kpxe6jnv3dBy4pGE1cL4W4FpyuAgvYSjCRiJxRJpxPox5rhAJziMBNdHXyx
lmeylrJlW0eMn1RiqG4R9ke4WHPMtzusROja7v3ytwcYvkH+X8tpynvmFc/nvyOkwUW9z53QyBpC
2XxwFGE5cGqweX4WPl2C/O7vYO+1rK9LGRk+DM5IVkTMPyY7twO5+DWYnGXvXuynaXZebbp5Bd9S
71JcvGHgmb+4B5xjQF0fTZzvvzXzbceGRm85OxN+R5XPn9QP9gPj02MnXY59iL7xy/mLH3LGDy+v
Wt84vF+X5iIcWeohNV5GjAjt0SMdoW13EJR9d5ew34MwkYxach+c+o23fcKC4POcn2uLQDdidcwE
zwtQXfQaHyl5tVaHzBsOXt6fFXrY3iCZNFDGXLxb7gQA4DANiImAYAfl2uuzNDumjWKjfzJots+z
ms4W+LIM71lMJA+UwGmzr3Gs7adxd6r6jCdbAOsLC3ocvMnn6fDpuChQ39LC1q352cjO9NOS8u3n
vg/BTK7rOL18iiv71t93a2T+E1eXSsyutS+nDDRutx7jE+DxPc1930iJDNESH3kAPb64LFOgVUFA
jILCRZFIosgKBAWEkihIIwFiiLFKIhFrw97Nl5kcJMbmXrM8L/TTTXo0lVUNV0HBxKMh0KD9OJKI
ZjO/BvLDnVgmTBBFDeggPI8oD1ddQ8fF8bcPCd/b39h31rl41nll+9GX+P3KYjPTp95UgumJ1Khz
+JangeL5mC3BwR0rGeaQ46TL/fOH2zoRcG3GMKnC7h0vTFB66al5+uo6AF2J+DQsD/H9hQQOKyhr
0xoDtkS2Xxsp6wcN49+08vAqyKg85S0fFTku/Ez47+7Lhzstjyrp56ekyi/DeVvLOb9FtBtFWy1c
b+iTbO26/Thi6c8cTw0UWsUzNheUuafF93Qm/9lhZqVtfwn6sLWtzveaT05tlDB4xJ0rZVJ+FObR
rsCLJaEWhghuRDQEO+pf7THBAZre2itt8prsm0Yre5ZsakWnq5sW6vkdTYyUIK3Wxo34/K6r0tbC
b5rueHvOi6mevKKwkLnKvlzhH0uxvMTOgUxKUTJW/2AzX81P3f4bvmW3uz94+tdzJe+RtN12CozW
SJXE+5Lx7ugJf916nXn/o+WIrEViJkZGRkCHQLQVH7qc/N1eYepO5WJccfSDPqAgMkGQmgopGffN
1dXipUkC2STEEkYIjKtJexRWIUMh5tFiVK/E/vBn+IIB8XX34f0oz01V0FJ94F7MKwYlq/VsVvyu
+C6NMDDj73erHCWzs5unvW2/XbGtqKKGYujyxdiwqh5ftdi44S+uDDw4eygdeeEpnMTgtqILA4hN
ihnmJMtjDqiboysEfLOHQOQmkTZA74LBUKrS4ZAyhdK+GYImnQBWBOCTHKQEfnDBItcIcV8sKuhq
W/Vwh1s4RQyKiLzbBXwjlF0w6YcPC/b9NT7zwqC8rHlga2rWbY/zMk+9q/dOxJ8fHytufr8QcGsA
+lNVIz/DfwaltSv4KKdFc87/3ncfu3JckHlFyiarb7Z7qj8oLXOekPJ+Og7F44hWfCK30xruzs/O
RorZNqDhcggUlglK2VMKUcHjbIEqQbg8Ut/HtMIQ3Ehu8CIQf3ggB9MIhx9wTMGoz0xwFs5527v5
YFqS22NTZ3XxFifQD0AnLsn0QIv6aUcjEcur+/FPd7TsxT2pFjVyq1EyzG67G6a2lW01LzTtn+QD
NOmly0g/eX/Xgt9NC0SKckCUGNtY15evOTPjviaZLcs5ro07qiCWkUKcFLVTLtVCzDrhp341uYzf
FP/IR4fC6P9j77pUVFgiov3+tFic68m2mkRV373flRQMxVeyikiqk2A8Ut8PT+l+aYTJy3lIqoKC
yIqKPooPxZaIoq4qUZKMOWtRgzIwbUfjrxjB/dSkXefPVMtEGc10WHcFsnXhLNrZ4htiiXgf5s1a
LvQESvPSLmp9TxkRm5i8gi8gikB2XKlGVmREQBDjd19tEecmftWkK/mj3Y9vx3L+/qZ16bU713j9
2BZ473SrF/WPad49dDHsrbZfOd/NGzz46+PfGz5aN51VD21f1nv929oB9/7+/bz/EdfXXsrx3rKM
2ePW/Xj26bafy8fHMOfXHzYRfaqmwSLPT9fa+Xq7aP9Mzj58M13ju7aHnHft23Y/rHpF+viG++23
zzwvno13VvIz4TFzPaCU9+e0OcJv561t5+Wb8R3ZLRu9HVv3V7yxHz71+c+keuHQ+vwvr79ulJaS
xv27L9hubTGMTj79K7U8V4vwZ9s88+JJ8XxxSHXg8N+fj293eK/Hx6e2uGm3jw7LquuNs/R0eV2l
sNyqCXoJ1xXrjhFOrDweTJOqTDOE9r3QOaH0Q5pDmk9Hw524wOr1V5Thv67kPC6+5OXVT5R3Qwxp
DGKdE9k5oeUOfw33L1x6uqn2Q3w54BwiMmvroXCboG+Kd8S+PCPVLQyy4SkMXM7g6Pm+MMHXh3HP
VctfT1nytdhkyP5tS/m/4Jndlt/npOJj34X980rGd01SgQYxhzS54frCdbPEpQGQQp8ZV3dsq+2G
5RauR4IZDJvhey4zs2lkafxllKyncD/QJin4xTGi0Zlo2tNa160mHyPboNuDk6TWDOmsp8YhXdGp
LSJECENzMwQwEqc8hQFLARkkUkYwIKoNIoKqIj7z7c15KHIeE/9RKSXOpnlGmlkcj7mJsMPlqSfG
nuYmB8QT6JCfBUJ9ikROJX2P9NcjUbpg/y8Hli+4V6AUmQABlr7kP2yP4rAyQGZipMTYCGZ/PH75
79vY57OmrWm9PKs+n/g6pjD/t9qr6SNqYv7t+6u/dh6/vzslO+/NKpb98e35Zbx7m2zbahPB97jo
fimfvs3fHdOcy9WpPiUz85h74p6b437c+yq+++rtqez08fFetZWYJ7fC1sp9+OPltvjxyzlavn4k
717213ZGG3lnvHxfeEfn4citBb0vTpDTxLz6p0xW3NO8/Xn43vXszv6dp79l7rfNGv7x453sOuyQ
3zuxvtT59Hb514PrDTw1asHhm9L+p79eB8p2h5VBrbdPSNHjx3Z7evPe73/Gr/S6b9tpcXjT5jvA
zwo2X318xx59EREAQ48Pf2Tg/lgw1hox7Rh6zTQHpos1L2r2LUvdxFQYohailCNUyHmijK0y0RVO
zkNMUUaGFU1s72jUcQyQ0Ye2sLLo0KyYWirw5iEmphFQ0kvTIt2ZozVpVOCiNFQkOTIm1YmDDSlQ
ZW4tYg1b2LIcouGRXqZEzcnFvVYkGbU0LpcMqQrLCCHR2AhxBCUzF7MKjUjQCGEyQSbs3TSl3VxK
hk/vA1jGMAYGR+OUeKH5O+uj3E3xeo4l6VNntFLwbOpRKfWkR/DHlWykQaD6qbz06MI1VGV0PfK3
JoqtiIGExnASSyt1wcSHyh6FbzoVWEimqNNBTWt5yikMlyQ12eLu6lGXW9wa5xiOEQ1UbPdTiFbl
c3ucaxs6lJfQTdSc6NLq0FUO85ZG4elFNgMz0Nne+YjRw3H4WjiIbNDTcPkVfmd8asmeZxQKMyzc
LTaY0zrbyLxOOIuSviE2t+u2XDmz03//aqCZiqCcQDs9Yd4fEgkWpKU/Mg8onP9UfeX7zLF3el4t
s/T90KkKHM5sPyZv1+87WVKqLCHtIccJMPuWttvaLoLLUWpv8zHx2ZvrbJ2yl4nE7z/KEvUFSBsj
sLG+mKJvNh4SO/p3VHjo1J57t3cYpSYaQywpe0ZpidT0bfliiBzygBFQtJnzX0WEOIQa7duZT/mM
AgpWlAx0/AMPEv6ddXfV2EXjZbDarCl75wM1jGDImS5JAgkvGKbVM3ChkvBYRFC8DCCO/mop0NHK
s1AFq9yPtibqyqqpUYQgmxaPFsPo9Dxn4Psfx08z7ncYec2Phx/g7vCXTOaVnPOYXFD4n99F576G
zb209YZO2pmGqvxEw5+artaqblLko7cjxuLryQ5RpJ0n4/VMaBpAakIr3pRKy6IrYyhytNWC7WDl
Ll4AJ8CMzDiZUO2puYGlvDZub2OslD8shuGcZwmQEraBWS44FFouIhYWqojVULFhaWmLhwpStSmh
HDLRugWQrFFlYq4jgqlFVchaKoYEzKDbVSmoiMyluEvFYqhMTIGZgA1IFyizJiAJLKDNySwXJYU4
tjEQvVQS6nEvAogJfajOXYWajqaEbtKSqpJRQBiHENfmxkuN7gmxqwRvN0NCy2Cv9mJ/f1H6IITI
0FG6MIG9nvcwTV5TeZbXTXAqoL0B4YW8zzQIYdGbK651mtGYpqKo+hCKRj6ucvBIbUiF6AiXEQDp
pfRAIkSBFhF3Z8lU1l/6cMKJxB9tKziWmTMT9uo7nMBBIIVxLrbanJykf3tHuX6qBwm3wLGW3C5C
CBw8/QvyiMDvvbNz/hIAYgB02l3M9a2RQDmM6bdbx21nV1UuudZbspMtXcO4g3G1GIcMtYiGae4I
JZVEbd2uT2U4DdhfM8zpeTNTE8bQzcaLQxL/CICJSlyHWBuApagNQuXifOTxoPSbySBDkVLNu9Sd
SyKe4MG5zVVPT1ohbEV1VIov5rWEsDmXULhRpkC5LgFsqgZTAuNoULLDudVBkCKE7YtI1A5+0E1P
gHswucBDSLkQQ57vuYzY8noaZRhScLW4Wln/p7VS8YV1TI9czaefk7juMDT+DkfkrwSf+0qZ/+/C
emraeFghCH3D/J/SLFixYsWLFixYsWLFixYsWLFixYsWLFixYsYyP6gB5gn3NT2R98g/AP3BYPW6
83oDCsf3hiY8c6lrV+Loe/akFp/gmIu/yUWRwk5U/YDQC+1P07GNKAgNwFhoogW9SCH/fV7f4y4J
GH4BPodgXHtjAxDmRbKoJ8Lv9236e4/Y+HsMH9jdAxgf6kpBSKLBSCqqsEyaARkVH3/nt38fjt+3
jxucG22cbZ4t4iVN/gn8fxvW3+LWkM/UYDjkehxxvk5ZOV2vrrQla3L9OUOrs0966cgTrWqtKa5a
Eq6n3Au1WkoYg44UOYTJxheZZsawe8ob9+GN7G96zxJXjrvj/KPedVOl03NkJbNzxruEWpuaYwd+
e2AGhDsOayVXpaVf7gQ+HPJHstoYuiyJnhCsDEXLnX5u/rrSm5Tlt8afXZYv279KsN2NmSK+7/TS
TwfPLjafQBvOcMfexlNMTXeVOOYEeU69ruulTTfnFvok9JMLuku2h5n5Ih/cCMh7ei1OroLSOcC6
0brsq19WaQXCmZwNq+aOU20vzlcZJAbD8kvua4cdNk7QioiXjvwDmOD+QGNS+sb986rFlphh+F96
2cEq+QO+j5qeNXhbbCRpWBopjxGdcPlo/R1dyLoA4D+QEAOwH0CAjKwo/iiLs6O2NsrlFGKzw1HU
ZvG0hWlHmta1w5fNDnfkKxZx3Wc5T8zrJF4sgajJz3RHwobPer5U6uoEfsBneIbR8RwWt1Ca7dnj
EV72OjRewKled+wP5AeCKFq4ptFVTDrGlcKtCDsRWNQFYfosoVdBaz0pR7BCPH52sBi9uLU3Zu6L
wbboob539zjtU/A++quvoDADcXrtNI2JHGTGgGTRhnQL2k9zHbdLtM7TvF+5qZsLlnN01Gu2AtC4
3ntHKHW9l3eeN+Ma1RnnMB96jDxCMM7wb4dPKN02EAHIoj8KtLOccl+mMxrVbJip/zsAKxfbGjfe
tUF6XG2eHJcXO64Pc1lvHdVb9QPyAtoCBYCw9qT83rKQcoXUjPzZdj3eTW4v/oA9ajEn6YxcNVyl
i1CfDxyclmi+099kvdg84307cq/cMGz1HdE5s9dZK5qnL+IEtjfNMur4ymtJu/lzR13hCxk98g8O
6r3H2ekvvdepjJ9WPLpfzT4r6b+AFjfYzXTj3BKFwp+9q4+Y3j0pqZmr8fQDPYrZ58J1AKX3Saef
KS2TxyI7RurmZdVerjxOnoEOY0uI1nN3E0H6u/4AfxAUD6AA53rNrK1xdx2cl7csw/PmNYbdVHzX
u4Ub31xCPnGYv8dtavXLlqlXq5rGxud/gBeUvGK/rru+81yO/9X/Sv1zxJujkg7+l7em/hNgggdF
tt3hmYHKN3tBmvRW8qhfUkypbIURimtj4A6AERD9Rq9oyo8zpjKUveOtJN0kLtERS5NruuKE+o9Y
5xvjT10ZDJykL2ZnTiRdD3GFz4A8M4TAvqYrjZ7CZxhuJdwbpF8b2+SddW0rW9hVrgbr3nKtYBDn
4A+gFEMAEADHuMpmReSX1VZuTMRXBkkeHjH0J6uGN/B7TfUbvNEEjL1LEqEWNZ+KezJ8O6xG0lnn
m+uSpd7rgqbc1OshEyec5DdxOj5g9w5vuI5iI8taP7AOk/4wMLpG9ZpSAYrR79Iw0Rp2XFWcPkt9
a6AXIFUF5Ah2AxGRtJgXT10Li4+8+X8OGp5ybZ96L3b3GHu9/jIKmvl56uJcbpt7NJbPNYnlM8Pz
PCNOM+d91pJjWn1XC5y/DzWb/VgLRzIjL1d9SWlY1R+xzczosLKZitXCd8Ecvfy64nJBCOU10754
v5gfmAYsH5tH7XCZdm0HTqNurEctnm16jjUXTbd7zGaWceEiIbr6U13zWa84WMVHdVLVTeN1mCOa
ahWk2YSmyN9nPi7FHxzNdlUEt9aqv3ATkqaCvzOv6gX1vqvM/QGfBcA68Yr7BV/O1vQKA3GGTTx9
n5v5UZuk3e+Ky3ho2DvLt2FpDwjPndbjBZbudlfEmYnOVxpgjbDNUyMzc8l6CfnxbVGN7nE8Zrj2
z2+elRm4k+xrLnWwttM0kFCAYC1AU1TQ+OdIYm+r199vH220/AzOnMzKi8Rz559/l97itA80z/ec
NmiUY1rWHEb2qabBb3vETF5+85aV2F3mSRuHrJwt9KLC1kir548H+R1r/083hSkzEOYtUyrX0zTQ
8uklHAZDsvGUmxzkOA/se0+eOleW9NHQGY6hUAN7Nwjc2jOVZztYKyKsPYVvhkbbwc1W+hrbQEEB
ERE8wCL2T5A6r3NcaXkvl1MWw90bo41nnp1RqzZvd7azGwe6zqXfO2JuFIJZsjdKdkGpS42l0Pd8
ebTElhxlnw1gE2xliX6F5RjcQt10oalWq5tE3BAivdj75uq+oIiIoAwQLERbFyDPn3/bV+Dif+zf
qJwNvCKhFaoJ3yfY5yWBe+sec6y/QPqgihVEkURQzJkwNCesn3kgaXoNEgHghIjJCiK8gxPip0OU
nwdT4OjfKrcWmEj2IzjyN1t9LPCp/B3n5PW6bmbf5nIt8lPU8z2Ov6JrPcy4nDaW4xK8Pkt/JSEn
YYwsB6SSEbv83+hyP4nvJ5HTn0O0+TE1hw4lifC8EPCQ0OJeIj7z04pO4x3xU+ofb7eqNc/R17IK
X5PCSQinh5z/wlG76mLxOp9HoemR5n9jTXEd3mJickm7sesjedyT5JbE5+g35WRuWKuckE8u3ruA
vjTADCBAW2FuGmfsbcki3pk+H0/hPYTczeMQouYUj4+xrPiGw4FzZy+D8oeHMcIL85J1OZkeBynQ
xo8z7ZnUwTvMDvOw/BUfST+Tt7zod4dsHh8mhsQjDXB896ToeI/RR3Gn5P4O05RJtLI+l/j7Hift
J0Pc+ms+8OTz7TGSfjz+5RoRXZ96ztarSoeFVIQiSNSREK426/Z2YCD7VIAneERTHGkETKIIDA86
pC19s8rZ9GV2OGOWdj2kfl5OaO8W7wfc79Zv2RyWptq1KkYkgoAMncJTD7H2YsWLFixZ+6T1esDD
ApIoow+/jGiUVdmq52VDMbUs9S8IeJ+Tcfc/I9Pr9m37o71J4nDCYUfRs+8H4xP2Gq75rj95kkxg
frnzPXWfwcBm9OFUruq3s+qPg3HDmeB0PwdDzNZ4rHgfkdXvawfk7DpEV0PI8vp24nI9fEqZ+MKP
eT3MTB/foWPl/R3nE1XD/8YkJIfD+WuSTn9z2QtPPee4mJ/acjthnyOiS8TuRTVkePj2Y2dT6MzH
OJO89auOXsBaUL8wt8zusQ4B5V3+n3yEJy6wfR+RJUyg9JHzI3nwflyNJGEjnIbcD3LjgG3ZzeO3
cZennw0n0KOlblqXxq+gohAhJVFMCfGquvoq4ouhUqjJLnycXzSyqCY2ms7DQljtKOd/fzRyLH3G
E7NxU9TXOB03lSxj2UeXYVPE2G6T9ixrN8j0ajI8DykTxDjtP3Pk2Hj/9ZUhJJNZ5SLD+i3+Hn3d
ah7jwA8yNQhhjBIQjBZJGalVUtuMJN0304L08C8k8Dieh+D0MgesORJ6/V/D+EWLFixYsWLFixYs
WLFixYsWLFixYsWLFixZIyMj9UAz7w94fBDzDmXx4ofiCyEidbCFMhQkFCUykJSFNMkpikKD/Gif
WP18+vr3AIjbv6Ap8D8DyoEHgzBilZWrWtbeDkavdqcHTa7bXXbbXcah5drgUbjc8AEOr/WJcQBS
Cj7wSTBdR8SrBQg0HL1BygHyH+ZDCfJtSdS8jVFpW9JmfBuhI8Dvx6NX7NXnzLVhVXvRSqMXA9E/
g8JyN5+iOXyennR2k8yj+oFHae51kn9SIcUaYFTt9D9GJ4XdUI0+j9H3N54oljxs/mfkWov6u2bj
65wWPCRvK0NX8p6uhL/eUd9HQxPI8T1OKT1Kk3laI1HTZ7GO/3qwnD7Ynvaav5r3M+p2mqR64dW8
+53/GRkXmJ1Of2N75OZ4eh8/Y18fXg9tTw6/+JJIh2oDwBPDJxgyTMHgdyg4qk8QIK9oZa8mPjeF
4doBkiKUqgnMHSqXaCt50wk5yJjP2aGJ3ngPLKE7i5xMt5/YvPx8jsMzHWVP5+Dcf3Pb+W48JGs5
HE4cTE0K3ndo0RE9F52mqQ1nfqnU3neYn7PVkXPtJga4kSNh+tydy3cU6YHDuQ1UGKh/IVgsIXXS
ISPNFV5Bf9PsyMgQ+TSUU0FFDSUUlJRQUNFBQUUFJRQFDRS0FFA0NFBSUUUFRhQFDRTQVGFClJRQ
tJRQlJRSFJRRQ0UUFFCUlFJQ0UlBRQlJRVB9lXTw6jP4hObZCDYPd/ewiW8/GUdBKDqGgptEpahn
MFzBM+czyfhje73lIfqTYRuNafUkhHzbZkYcLmyS2YUGB58pUfhC4w1VQTggn7xUATETgx2/tJwH
KAaabon5xQkJALjLioltlUIyykrD7HMH8dNvTL77hVsT+x14NJllpn5dukBtbDHH34D/xIsUNASH
STLTJ9kwl0zClURsHn2of8fJeeSSTWzWV/LWb74742Yh90pVcBKecf6qcHaY62r/eB03H9RgozP8
pPbycTSPAzPE1OXEytP7f5/ycpITVJJGCJkCKh4MERQ6IPu6EOucTONnGfgOgxGzYn6PCOP+3VJk
ZwiI8pHWehFM5gPqooot3rLEcF12Fsjv7dyT+ylUVE0BxD1ClwvWE+cdyAwE9MD4x/nHjACQui6Q
uLf1xHnz95zyByN7ptAxepBAY0H4Cx0hC5LyfTxjCEkr7cYBGRJB67iMDJ1vufRYL7atBsOxqxDR
c+YzlGz2BUElP7qKbqK2y28JGctCyind1dMakZtGqS2LCkZUh33qJdygsjMWETiIdo1qBEByIyiC
LzQl6iYFxGMJhdwf6d3h2TCVCeskOy/kSRk8p/BNEUW6SC3Hf3Dcehg3nCSjdH7iL4qoJ+8Rn8Nf
2f2B+oewPXIiKqhGKKMjkqkBIyAQIJFUEjIgQCKkQUSRRFCRYRhFVjFhAgd1USFQQsUivz7+J5S2
ZSq8B9D0HrHYfw2rzI0s+2EvUXRZ5Tlln/k/W5k/HwRWyeifv/L7qD2fiT9BBQWDEIoKREXzAqtj
+Tsm1/9m+qkgiOzDCDz7dGhiPy7LbA+prPEJISpSgpiwhbJ3Own7fxD7nLfl5M6o3y6D2hrbgY+k
o3zjfk5Rkbwyo+fMGYj2n7go0Dn20mxeqSqNnmP3H9ix6A4icD8obgzJFUE4o0Tu8VuCMc1Q9wcA
3D1ocFQ6gx6Q5B+Yblrqs1ddNAdYGWYbfn5DBkCG0jQAKgisjBERIsIxRVVRYxF94f6WpcEnsBDg
P1D9gsqBAihxUP9A16eoYEIE41FEUIFMJGVPZ10Ow9OyvX8/Tls2P54ceeEiZ/9Yj1nRB+3PzHl/
bLZIR5HM5HjsI9qtUpvNlpIOpY/o/BtkxPcnHuP5LTzk3mR88TfOpzNZJkjb4FjmbDvOhiexSTme
uo8ztOhut4m7meUh6Z+pH16nIyRJJJf/cfElk8u83lpvj32lT3Pefc5nMudiazwK0JkAgHTb4555
wzisvwQEAPa5gF6Bl/MCD6JONZ0rRFh3aaVr0+c9Xvt17dvwbD6N58J3HqHgPtI8IlFj1MjAu/uU
zPSYSJ2muZHtZO78WndVHcO408ipkdSyNh9HofPoR7HwWMaeBl7w6bvmqUqkdzdvWk7NkcD0PQ3H
rDDCfc9Dp3weZ5lz7zv5nQ5HL7ktDsLyIe/I9TyvNx/o90eE75sfRaSx6+/wmJodwayPkzMDykTk
ZGkNDyOwue6/F94+TSS09TqdqWczhcjvk07fTrp3YwIGckPGHok91VGZeBvDQriIQFTvOQe006vm
Jib8MFKz7T8/RY/POJ9z5ND3Zmsx1KPB6SPk6aHeeJqOwfPQ89o1bOJtNkkhGZvCEeBc4HFDw2SP
wfY49qc4xOBqXN5xHicO8bJmajWb3pRyPGRzw6W6FGiTn59fN4nkenI3o8jt2Gh5Hhy3gZE9iAdu
7ZkYMH7aLXGXgBREPIEdhIBcXwj8dN/u9xllnln6m7ZANiKRrmp9IQ8Q1Mcq8yPQGh8SHm8RO04y
NXobpJ9feSaG8yKI9fyf8Qgl/WtUeItEh4Uebl7exvLvwOJ2H5OZnJPudSx3lIPmeNAxke//OSTs
kk/R5m/3MjG83Hf3YfR+rT6DqZeXljdy9yPo9pDNvrgdsO7Q6QfrVBodx0K+56nSR84e5OZ3GB3n
qEI2n69jQ9EeHlIdx5Ffk4HYdD1vDV2+Ei2BWf64Ojhl6+/mew9XuL8z9LwXiUlN1Y0n5VWsyriV
RRRPz0VbKgNFbWudVmZ92Mm0kOs7KxY35BhB3blRN5cZoTchHFpQZqVUq1jCAyijChFWLod27Bge
DQ4nPmh4mEEkk9oqSQi/3KPA08pKnHwNh2eJ3R3GqSWmRteR1Qg3Iz0O6Sb3aZJBJ3wxPXxNR5ni
dJJCO3aXOGZgEI2FHjQwkkIwLNDZ8GMkhFphtQ6lp3JNZkkiI1syeRRRRJRQSiihQoolCiiUUUKK
KFAooKKJRUqqqJFQbt//380ODBGctYmOmBdjEcjb+FUqZ+p/uR+z02H8fbP1geLY7v+K26oxpFFU
pCu2C5lNI9+ew9mv7HZNpO99FWPseEkhJC6H2Po8pMpH0UMjr+tOv7setp96XkCsLCEAacjS2vd+
msutYTGKym7J5MwwkNQkWCHHTf4efo6/R4cJdoChuYGrwoW4gPBgQRFDuOXOIV2WQweg6FQ54KlM
I9xmQBgGtiA1mAgvtpfXbaerLF/L3AK9gKTo+E6Tpwkdkg2228Px2O3GdJb8F3Ypfw8JLr2WeMCN
SUoShkFudXaB5BtYL3cB5CczyF2yKP1r/gwOEmD9Vw58jQ+xmMzofB4mcj5POT9mww9RgcuyPs9M
3Yk7sWIfdTp5e1Pt/i88TwB7qw+VA7dvlzFeRvHmiF6YplnXCGmuqRSRriTiV3Hn9jwbOw+i/gYS
LmP9Zh8UNTLaoSmFMZFhOH8FUE/a/s3mDAb3vHuMJ5FYRg4lSX2HZH6wjKt0khHQvcvifs+ZOw9P
I6noeDh5xxPywnp8fL+LmZH8ewKH9bNWDuCkNYPs+9zzp+QWxT8Q3zUa8u7+TQ/HohlMoh8mGBuk
f0ZR8/n+xaf2MNNX3Nh/c/mSYT4jBnVMSjAbD6I6fRhshyn7r67UPyXqNFmySQikX0SkNJ9sp5xk
k/RNvfDij/l5zcflD9yZHQ58j+p2HmeEiHecs0ajb/gyR9PR+565WtKtVNa+7VGqRkfDWJttj0gm
tlUeZ+AeBoNw8goIHLh2+77vHv8ejs5uqPohCFSiEkDISFgdT0VJ3QRkkkkDNc4noeZYkxNp1k52
Cpmex1MDd9bSNheZmjtPsYaHkajkNpi2fZHAxczZn6GJ8HM8PQqf1IRuNvgdNxv6HJJ2nscJIiDx
dSpEiz/OJ8x/2P2ef8S396ebY+uSGK5aG7Jugq4TwIsJ9LL6rv5P9SyjX2v5/YFGgAEEupCI/YQi
ySzgYm/9nA6H7E0PEwDUG6FlIpSIymkYlh9uOPpy/bl8jn8v1Ar8gdQKkRECIDQwH5/blWnOt6ut
fXVkWND5PlGVu1O6cxJFxIIEIJenb2Vy64hIVAnsvWQi2EkhFeRzNsFi8lGaFpLKaWJ8+jSSQjgf
cw/J2xsNlpkdmDSRif1K/vwTRG0/JMLn8yZ6zRIt6FPybJ0dbEWSe1o7vMIiyS1HuSdLzULJ2xLb
HnqKPsUP/lBpU0D8hp2cuIDLQ6xBU7kPz7JYp08p8mwwueY/+EKqUhkM6cuy0wgt3JJVH82YKw5W
M7FowoN5mh7eUkhGCJMEeSJKj+epRCgYVigFiiKosY4UMEAqWAJCIFEuv6mEkwUpShSl0iYMD0PP
8n7k/tPg0NInjieX2ncWm/XpOlJPtIfkwnsn6PRH4B2B7iBmAfUPxr8YP68ApB50fkETZT3P7FTc
ubT49fIuZeHaaz9GZGUjAeAsnkHf3d154Tm4flbsyzw9IZzWXwjCID3QomYh+NlelxCF6uCItUyt
WWXiAn//g1ti9Co0td9sXgblsr+66QWBhKUplAYEpttl2V41Yg6cBFulpooE3q7d6wmBwoiMZRKN
Yxy31ZqkHeq8YDs/ntUN3d2YB/bKLskIQ4RQNEAZAMMqpJkgojZUkhH36Hyfwd595J/X49tl3jXG
cdx7SfY2FzfIRsyPg/wbDsiWP7nFHI5NhyMj5P2a4mh1NXueHybjST+UeD59TtPZHYRqPb7lHmet
I7tSiRIesr3qQqh9lL2lrSi6UiTQq5zkDILXztSiD735wRFD5BFIchTPC/EDzZbFDzMTqbkwfEim
+TXKjKyHaVeV7oRYIjG+1/+z/C0XCJIaSWOz85spDL3apC2a0hpQvQ9H9rExoZSM7yIBGOrF6blW
STOQ5EQinKAzeJk2q5JL2J0kZuVwyUVXp/HP415+vbhnbswL2+lPJrV+lhiozFVSw2M/Jta1gLCf
bAANOWYniVpv+A9vg3m1trsQdJPHl6PktJpJT6HHkYJpkU9Ci/2zvEJakLqknWoUpxlFoYxGqKFK
YkIMjHbtULjA+gRscA4BZod7YYSSEZawZbi8XvVmubGC0FelSB+zH9INCPc7T9cT9lHhodhhsqb5
wBs2Hz8FTrzNg/LvLPjhnfh2l8d+N99cf5NshvMz0n/bIkizg8vg2GGMbJwLyJ/ip4SH95aN8IUe
RxzOU+idT6O469D5P4BoPI9/KexFWFkGScJKFFYMEgbDOxxPA0ylVXxalMO7vLs4JRKP3gXjIJwi
F8ZAcS+lAU3hQ/C4AtAUUIDBfGylIlr/YGV8vyYhVsAlWoo+6SzpAJqFTmIxmksZIBJvYGAuRIS1
P3J3oPUu7inwep6NpRiWJqZhtdyHfqGAVbfRcsUAXBUC8L27568QqT+TgcDrrPrzPz6nQ1GM8z2P
eR0kPI1ySWK29ntD1Ln4/Z8bz5M5/H52sruzr9weSadcflFTGA/vgB745xtA7D70fjOm0/94BQRJ
B9JCoOeXr+uXEWd3GIBFOD0h4DA/31tx7o1EkfRjPPzNXE8Ue05+5+fn3Nh5lj4L7JHYWnYex1Pz
IxyKm2HybDmfhPEdT9M6Oh0LnRzOhmUfk3+J5Goc5I1m88Tjt9rxibczcnkcDGSOR4SHT0SP/KG2
rId742I+LzN5v+8oynYaz0esP/ply0WVyLf6T6U/tujx9pF/7xpIR6pyP7bIcstcjKicv5rLLyMv
5U+x0hyf2k6FG2eX0f1qoIqtT91XaW03CQJIH7z/XdmTN4TGKuN3f/Uj9J9J9du0J4B0BYxwrHC7
4BQX2q+4t0D1gn3PaJJ+i/pBOT0PeR/ezaeyEeOE+ovjPr8FlpU0On8mwTD42Hz0nM2Gbs4H4Rij
LuyOyf3Lbjz3HZ4c9szrC0ilMgxke97K5HI3F5lJISQ4mV5vP+vluNnhlafajUhNvtvs/dSyHgGY
bt3o3L4RxRVQCdYesOgYAIQ/j/hFiwWKCgoP2CoUUBQ0UiUFFLSUUjSUUJQ0UpQUUDSUU0lFA0lF
IgUlFCFDRSUBRQNJRSFJRQLQUUNDRSFBRSpQ0UpSUUtJRSFBRQFDRQ0FFIoUlFI0lFCFJRSBSUUL
SUUJSUUUlFUv9FQ7w9SBgHADZ96B9wvRET0EBIwE/MJRF6keZe+ec82kSJGAIwUjVQnpZc5UdEuq
1rtcRqmSwRHxpLEiigpCgiO8/R/BckSGykVJ/3yXlXLQFVK/yarrpCbrpdmqgm8MVwXl3aGLCwdZ
fmGgGBMsW5BxigckBvDHl/a69Im0MoeuF7HDpOLkMSILICBGLgPp6fmH4Bc8Se9FOj8/xefc67Yu
26z+XLfSv9yf13amp3rqlSEkeBodl3T/Xe2zSGGxHVtid1V6lv5O4/LsPMJu5UVPCEitT1qsA49l
B6wgd+NCGN9OmehwhKzUh696C0AX1s0+zY0qf4gPvyA3sBZUIJ2oNJ1eM/8qWkSdd1Vxi4L5LEIM
HnO7TOvuU48wYYaHuzF0AYp7UI4BrhrKghKQcpJNZ/cuein+yY7TU5dEFKYAp9YDdAesMAOmCr0Q
iCep3mXewvTHAubrL3s1yVJpJMeKDgFHiEzovOokYnzXh3fie0MQ53vDQLYTihoeH+Zqb3fWOztj
/kKQoUy7xgflU61fr/CQgfbxVcA/AcQ6AyDe2YJ7O665kCQhEdH5AXaB3IIexQSG6T05E3Qku8lt
QYcH7vsG0vyDb4p2MbjdaCLxPUH39AM7Hr08E4mZ7MeMjofJ/If0aas8v58vp/Wz74P+TlyTVU+4
j43RLuqK+NY7UdCcMgjBYskWKQVbNnXT1PW2smWVGVKuW7eUhdDuK8d3YdvoTtMpJCPL6Pksd5Y6
eZrLaynrP5IeD/JrXJ6DWdU65vc1wfJ1O86HgTyfsbT77dxaHcqO007J8mw7zP+CT2OBkdhziSxk
cB3HTzxL8Awwqqq9vzDA+D2P8+B7Ytxw7PHszVBOMdUlHyfCHCTA+J7UoyeZca2HvdaGz/UkhF0R
EIggOuny/OwbiN5LIQozOutcGg0VOsQ29Hd+vIYkjA4nkHMIvq9IeL2SdlSD8fKfH7eH+NPf4+x/
piBJl0AeAfSxnfZc6OlXFcXuL4XrDIdTljny5devXHQ69v6+Xo6Sv6vdYYYCqiiqsRiowYIIIIgV
PmfMlPzhJCKQfnLoSR2R5FbT+jwOZs9j4P2eniUmh5nD/rPczmJhf7GxrpKYTZXYfouYexqnmjsO
h8v7Efc+wQjj5QpopIPUrQraVSohU8O9eujH3jsPiTC9NesU/rLsN5zMIK1ej7mZ0M0sjuMfDnzL
FIOCHeD5XUFGoqxiKMVREEIhGSkS9q63F6xrCz/s5ybfU+5ug/uezLtkjsYihOxqEnPQRRhhBixP
r2B4iGoHB/XZ9y/TrU53fHdLdyGMxKnhTM1LD7eBaGhmFaBQZv1avT9fqqglby8GtVA1r7B9Ovup
TRdPFPFhTRDhI7j7xhqwNsE5GvXKqopzrOpfYsjRBnHqeH0f3I1M6rntr8HjNb8eca5HKMD4PT1P
0dh+DfJH0cYjYcrG5jJOps/P8v1NvLLp4cfDOGOKepp6Dea6SfdNxRuJ+zw6cjxOiHiUekhHlI/k
7jH+ZMP5bjjDE9DYHZ5+nYfPE+C08jzPYwP4N0mJnDefAmR2GCHmYHodDqsBoGAFE4C1EA9mdYYy
pXv1p60fH0n3MRXKEXQkJSkzHoBgEzcKClIzpSeMDyY0AGCIlAXA03AwBA756Z9J3zSRDz8zYYFE
9jUaO4yNnV8BCM+hc+NRt83vZDkf4Q/6RGEmE9jw1aYoqdZ6HUcO49DxNDge/NB6Rs4HwepuLnr+
d5wLzxPjnU7TCJ5mR/JPvLnKeBzPmPhsPzJ3s571+4ccbGSZHA3nbE7z1hwKH6HA7zofjrDwN8kz
NZ3Q6n6bzvt+J7l7qV0NaLG/v5+n6fOnf5auzZalVFEJUAKkKgz4JCCEElWhVVQiPOpQl0FQVFSm
UxWMisBFgiiMBVGMWOKKjIq20CgqgKiEURUQEQoaWIix8uRCtCF8PqNp7S58Yj5YUgkgiEgiEgIs
oRVSqj4R+Ynoh8+uQ07i85n32I+j1NyFjb7oe50OzuPuVpAjzklIkLSx5naTAjUMDQ1R9HvwNmcy
Rz7PctLzkeus85LTI5ngWLnQo6Hj2m/pzOojkhW2lhXFU9rv/hgknleEEpldkn8RgT9SsULn5CI/
TU0mEeR/xEqGtm2INS8qoH+u+ScyUTj+kl/T1sd56nuehieHytOFEKU4RyR/CTkeskyY0KCAoFgy
QpkD+CSUwWAeG9ZrCU3Q/YWpVqYoaS7lVdCN/pC4fj0+/l0+nz+/4PNNPFffsfWHeQ6gi5vP9LmX
TBFegTAsPoPYMupAtI+rMWpEoROvaue4IaTmF/Xzv1dXT1dHV1eHRtBI/2Tm+MVD+85zqatFgwkA
Ioj/zJZLUO3id5dx6YceXLr16/OtVI6SYLeEIv5ndXoih+IFFjFBUWiIIDd0fyYUBjLrq7CYAPQt
mwdB88FwJ6lwgpgLIELhvdKVvZoqgk7VUEioInQHsEPBAyQ258mRkZGR/ql4esOpGhPiG8C1VRFI
h3Hl+eRaYOCTA/k/yfx/xymEjQN9lzAA12UIIHuT1s7ylX+6mBUPHK9UVhE/tCpMRinL3H3PxD1H
4uuAhd15DGYbbWL1w2TJa6opwWxf2P8qfRWqGXSb8f9z9GO0w/6d3GRD+xqPTjD7F4kYGh6mkhz9
irRS+qWzgjMuWC6kkhMln+JWB0OR0mGaDdFpF8zaWvVGMknS3/OAwA+UnsEFkWQ9dUIIMSC/M+AV
gHyiHX7YeCnHhX4yVETchFiESubtFC7I/dpB74V/Df/8qR9smfmex3i8yCEbD3j5/mfYO4CwUjqH
j+sSSBP07hNkcj0nuUQh8kCKGMWFqKkqqhUh4Cty3KoZNzimUkYKilWJUshUhH5n3P7mmGKiWyap
JhMJhbBUhJHIww/B9Fn/ByMc1CoH4n66Fkiex748EopQj1KaGZ5/6kyk3GTIfz0Psk3nadxRc7DF
J+Gn+o7T52tzGJJZayqkkI5Lr0C6JLQXLx4l4MZgtXFD+LZH/F/M+D5LrySdIYe3zLjf5HRrbzrs
7eHPedvUpaIi/yz5sJp464mGJn1VVfG8aKJQ+z+HY55/fWvz8HVPxxajOu+cMG1ysGUFy0SgJ5Nj
YHtW3hftj9st+W+W8l91buI5CIh/seCBcJvIdEOYTkgMQSQYhMIe50zdyHC4DGeK9NdPFfROMgnW
7dLKqrqnCqJHokkMBTooIwXIdkE+TCiUwub/3RBAMJQdVLFCmkC4Dn10YY8wI463RUOuysUXBtut
nGI3DqHIrw3sIE6z3II/ASqsDsvOt61fmnfVHAFhklwmRgjKJtZfn4YL68NelPbAOKnTne+FB57Q
BoysynstLBUR60rAshPrxhFKAdxDiF54geNMVQam8osbhWjJkmASIiJTRKFsKePkVPydv+T9j0+j
xQtMW3ukjv3nwfBsNp8He2ybDUR8noj8nM3nYY/k4GxJN+E/JzOdkn8nD4I7x4HM5HQ55FTpIYGt
PO57MZHMwmzzsRt0O2QiynKzaSiKgUUCFFCVJUknbLHtt1ZPlnRlnL4SrE6lskaPJVKwPqMZBBEx
Q+KZAlwdU+vyN3YJwf0+7IyMisWLFixYsWLFixYsWLFixYsWLFixYsWLFixYsWLFixYsWLFixYsW
LFixYsWLFixYsWLFixYsWLFixYrIyP6IIeoO9Q9PwEO0fQ+wOPpnWHOqnfSOww/RYsn4VMIkI8Sn
Z8yHJJLTaeIfmSfIP0D9vxf1r6goL/Pr4zExgv64Nm5VGcGEST9HHlh+OX5/WN+f2/Pr9zLDHzOX
DrUqU8Z5SPSOwfRlwYDVGAYM9VK/1vHSebXvrtuvcb8XiL1X5IhCE8ts91tq1021OZiRtRUDe876
FBuZAhdoNhh3I5wof8OxqeVDMa7aFIr9VIttVB/S791LyqlGdHSfP0VPE5c/4Pg4l9bZLVsT7oKL
JFWCkFUgqhFBGRYCyLCLAFAUFVQixYCkUAVUZBYIigpFUIoLCCyCICqoLIoqiwUWMQBVgqnRESG6
GokyfldoeB2yL4qczR6mNf3hDHNVQ+VTJc/BOYPHMHKiM+qNQqq4WekNvRi4LCES4ARKAKKEVFpa
ZAoRaWU1USUAq6B5heYnFESH3N5tP4Pk38Imk7rH7Iwbi0IGwWh0+Pkqqqqqqqqqqqqqqqqqqqqq
qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKqqqqqq
qqqqqqqqqqqqKqqqqqqqqqqqqqqqqqqqqqqqqqqqqqiiiiiiiiiiiiqKKooooooooooqqqqqqqqq
qqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqqor/EPzD0Q
D2nT6OHw50Tocd3l4fjtPDfibPqVKdh3n0ww/5QE52nuCg24/4hK8wj07qaNwUMSSvOAy5Wimr6M
OjC1aeZRmfboP7BlnJz4Q9jU8TTAxWno3HGvoo1znVVB7/5L3EiMA+Kl0/A9lXgVRVZAnT4XY/MK
KAP1CpSC6nygIe+jGMWS8Y5YDJmo4qoSQbjgSiELQbVJ7Q+oX2sVgHWlS5VBMGEtI3SWJd8JnkkX
ofymtJ8n715H3N/cdhb2hBMdj+xJwemHObIf8pSYs2MVTt3BjH5Pgt7yIVPgM5H2Lia+6326HyPz
P3+mLFixYsWLFixYsWLFiyqn+YNew8TsqT9obJwNkHgb33MJ7HoYnLQ7EFzM9ox1fdXYqcX4PiSf
B/k7PuH8AF6A9ECLIHQeY7vHn+77dcR/CkomphPlDaE6rki2bzCTREKP8l/or6qVZGLRhiQQCoIV
Qos36zOd3UDpZwcGuvLbO5WqDZNpdG8VZBcj8tJhjUQmkg4gtGjKuS4ZlgMhK2KIKtIJwk4PEjF0
oUtWsXhxDqq4U6SMO4RUcFApzmFG8DbIhEggLJedRiQbzSSLoI8QadwVSx5LBYiCxGKrjSGWynis
cis5IbQkhMSQMYLMAXUlySBB6dcYJjarc46bY562dJjlVY5XY7EvUxg1GYJJUxgxIGYANkkFiUKU
30pcIXEKS4iQo/L3h1P2PU2GR/J7zvP6kff+Xoe3X+x+TQ/k0iazD1O8xNR3mZ3TbqPc8T9cSprO
w5HA8TcmEH3OpG86WMjPzucz1Nfoc27YcDTeeZsPA37OiJN8kJ3eM21xyls6SzUsss99z8E8I4kT
h1sWWaM4C4WXYRNSuMsEvERQwBEUKDcXyEiRihFKI7zxLyRPxRORat1LV5onL+zfIF4cS4sYsqqV
SyOBgbcj/rVoj05SNMLVsMVQTYhmBkgUgN4ODEzKvvzCzAMCELMIIgyMm5ugfWRiRSZn3CEX7EdP
0fbb79hfORTUNlJVcuz/fqenyOgQ/Ih9Pp7+fpU63G5UpqqatvagpBUK+N/tv9/u6vLIKtbei5+p
VBJuAkO8GsVcm+n1lVRSNHpv5XhxiiOGoUlHhqr0VDSW6CEAt4QvhaByJ8AUxa+JWz1KyAQajGwf
LFwYBiwp8DfUfKHQlScpKidFDRM8aI6rI+NQQ8MDPPNeOKZ5uZfJKC9uLPGQOFGyyosauZkkCF4x
Ps5N9iGnjeuYIhVYqq48DTBSJJ3h/EZEsMFkNIQhINUkhHBY+JJ5Yn6PsXn5neepzT7G1Hj2GCTx
9rvGh6KTjVlX62F+VTHwNRfKdI+lYIh+cVJBA3EJ4lDu1Cf0qPfReyOBVWtJdE82G3D7FH5Ry6+x
xkkI+jt1l0baYFSe032k/k7MIIjBsqo4iR/yKA56CgudI8A+4qgnwRzDIsoPOO3ROGshS35R2y3L
mulQp0yRVCmVVcXKIl1ItMjJUYUoMSClFJQiSxJSyiqqmRugy4aDMTNGr7FNG9b+wOpXkaj+jodT
vNqMP33E5lfKF+p/ZFHM7Mp/hDn4OzPOsLXwPY/m5u/GVj2MofzY6Hgdjmd5oeqcKAqkTb/rE7vO
yEY585abHHkryJkiCWWFltqJKqEEwPOTv1q1q/JwLdh5I1e06UlTR5Hog/vOB2bJgEDZHkUcRX5n
Rjd9pclxGyrlXMxbMOVGwnqHGahED1EKP/R4hRgmX8fnzsXKr+Nz23RyfqXo86uzM+FaxUoiNGT5
54IX9NTn0VWvU1wgnE9zAv1s27yW1ipJCM1vwEahdw/aH4d4bjFVzu4hRco+4X6h6tfBtILJbods
7Q7tqN0nkY/nw7RefJJHgGJuM9HdPnZYWlXJKZpezCRRUn3OpxGeYtkwGBOsBp0DqDdcWeKQ+gLy
MyHZKek9LMu8/B0M5JvODnl7P7+/3cZDLbJDVmx2keU6S7Hy9j1OBw7N/+A1HkeRrgxMz3O3+JGL
UdDyPLr1P31OM9End7juOp5Go7TYaFoczTUd2EcDicZSeJgdhrPU7j0QyQfmc6czUe2yGrOvsGw/
TUd7jRUiG47ZhIR03oYt5+zfJDA3nx8M+v/vp/nJ6nd+TdDwjcczukTyO44bOC2iWCDABrWtXyoR
b99vXtjIUtpgR/BAiuCJb2PdCKlgZ1d4zrqQ/6wBkiDDmdRgitQwHoD1+sCRgCQBJIqwR6dwe5e9
AvHZW8f/ALzA6JOh1MNl/sR9jt+E78kk/R/3mOGonOFJ1zMMe0n2LGEH8SRh938e2ENH7/ji0T1Y
Ij5h5qdHO8DVARP6WH1Ov94SDQNWZwDA8TEwMZwOcPBtm2VE8z+af+pCyfoq5U6T/0qzqcJH95I4
H2Pl4vT065Pmkrf4VtfQRjMguPxEuDMPG7sfwQJECsvqdKQfMvXE2/Bw80cz75mEI6bqOC1rUorV
SylL5PT/vgrO3tDNLj/AuWKU7N1lxOSm+JUAtH+0P3Y9hJON6eq8MvYg/XXmDoDP83FyJIdPkG/N
BDFMIJq1jcAfA6VRPaj/3MLdfXXpLp2/wf36/6Pg+MGlZcfsP9jA1n4Pkbv3+TziWk/RzLliMIMj
bqNRgekO0t3eGh+DrOHiW26FXxQPfmZ5wCoSBIEqVa3ZzeOYnvJx/R5EtMDtKCEf2keqe5/v57DM
9ZPwXPWG43ex2jtLzUYGBf9H4LPAr4Mzah094dDA5DYYyW5ekHQ2neeMaz5kn2Ow0kPd3HE5ScIR
IuSHpClXxD4+g+D2sZGQT+aCECl9Iep3nadQ8Dw9zqaG+5uPE8u08TzNk4SB1VXRK9u/z8+8nnu7
vcFVdpoprFdS668MM88tKutrr1YXYY5Y45FtUfUGga91I/hDvUAWmtCxjV5FAjdRcWcIqFiItJY5
p3AnUeYc5Go7DWfc/Edh2l0I5cTcTY4J8GvE/kqGwYpe4QNOIS0bngWKFARN73BDXzKnlRY7dI8z
tLGohyCiKFCiUKKKFFFFCgookooIgwRGIqKogsi3+Ae73B8Q90NzxCEeH2PhgWPY9zYfm3/PwlUq
q8i5r+0jvp6U+D9G4zPAnoOJ09jzLTwPpJ5+E7zwMD7Hx8HQ/SSe5G+EPM+D5+M945B8VQeAY15B
ydTENVBL3cv5fqyMjIrFixYsWLFixYsWLFixSf6CNvz9SOZ3n9fXp5nL0kSnSuZr2nL02ms/Bj5n
l2XdQdc0lSEooqJEwEIB1rzKXtyWNZuSatvydhh+56E+TUeFzAM+DH9E1GpG2Q+xNx2Fzyt3n4OB
wGONVVfhifB5HWTVIh4Go/k/Xck4HgXnbke5qNDYd8nkX++9DV50UpPYvPyNfbIfgwOhY/RbAqeh
9XMKlP1GcFvpJwshz8kNbvy+nE4yH9+mWWedYd/bYvhjlfQ7CceKlVW9Hodh6o8TZB87DWayPY95
NXU9D2Pk6azmSfCEVJ9jWZDaejumUJqoPOk/ur7c0yqHgwJL7D3Ow7jCWMikcuw7/v2jvNh79p3n
t6apD88OlT8eh6yMZji5mh1Pz0x7p+6uw4VTxlYSvtDAeE9pCPvu/EPCj8o4FjM7jKPk4G6LyP4t
dd9zj0McVongV9H3OZ0k5G42StvA+TkSRvPmN3gd2htPOR74HufHNGcfg/Jw+DdPufc9mPGOZtNZ
+27yztdjtfD37e3i/O6VXjaPvQvRhY4X1NDdVSgkqqrD+hj771oA7Be/ENvMEoPXknacTqdTy+N4
1ydfQ7I6ncNXftOh+jxNXK5UzMDMK+ZPGT2MT1OhR7Heex5GvxDYZHE9YwPo8pgUYT9ieRr5qqle
Jxk9dA+fOJcfRlvfD7hvtvNRb2N/InnHA+ZsPqRPmGr9ag95JqPUwfPb2Ya7/b3x06+y1qsAQA+A
QIEZmjmQe+UJSG5u60AU+CPfHbt17dfhXQ5N9xxpNb1T0kwJqJI8DadfJJ9tZmOh1PEn0Udx9dfa
QrpJDU3HEOw+d4xLPGunqdsG8OZeT2O4yG89Ea/Dt9j1OZeaG0j5LHEsfBmcj/InsKSKkjOnye5y
1FmDiWPuczy2yOp9fr9ciPi09D0P8QUhQqR8Ynm1nNJhDYUajkeJ2l3ue5wOqToj6OBxg5TwKskI
JVClKKOh6nEvDQ5sXNB8ms9jJ0Q++mzYcvuj9GhNhyPY69x+DbHEko+59JPLV8evZxdHZZ6tnvy7
8c1L+EIYweMIZ+GOeFs7/VvnNjWGV7utZKJjBAdQgVg1fM3GIQAeV07Yr2X6HDam9OFEGAeA0gtU
q00Uq0IUxZSVTVDVTrpzK+SAkOnyuAyNYWIFzYyNcFUElVvsmsJiIs4ohRGRMVKEu6IXIkJPTIx7
zxMTbB3m/uni9TccTA0OB3zeZmstJ3mRwPQjtkm7Yfc9jzkeyTobLHCSdTzPUzOOcMjj4mUGP5wS
aH2Ncxxk1qvQvcgdB256PaXW77z+NxTgBhTRA4Vddi2wmWNzkwd6T4MN8OAvJJct5FTjsSxhBvLh
uEo1uRlu7j9HZJMGkryO72Pt3r56+B+Wde/1wAzh1A6WNVma1rVmKd3m0q/1xgAD/t3xmVNRbzSd
z2kmtieXQ/g3l5qb4PpmfvUcWUp54qk8g3n4kMj6r7yPyeTTB+SiT8mOx6J/oUN6GyT7Q/+IHg+c
MO6jtNC/GWMCeZwT/sVUqR9XkbC1pSvplG/zP68Fivzod/YcGOmH3PD9+52v+anE/b+Xos/jjH8H
QvIdYfgP6kbD5PaJ+HMz8z0OphtNO93ns5PM9+MjIqQ8LG/tQ5yT9MTaZ/8AwPc0kdT0Qce6q3PO
3S34wJ+3I5w7ByO84RL1HE8Nx8/s1H2knabI8T0Lnqeh9HU8DvHdPwep7UfJkZHmhvOPnI9DzT7n
kdh5HA9DLkVPEjA73ebJI0PA2HXA/fKpzkKQy4pOpyE2FzM9dhsK1Ho7XRu8MO3+x220hJIZ6Xzz
vhpdW7PxMsarTO2dtPYGnv6d5xJ68fFqSesO87TvPAz9ijPNOB5HTk+PAvPHsN5sN3rJ4vseB2n3
JxNkmAnenxJNyMjrw+DVI7j2PWSQjt5nccDjEnsYnl6dkk8jzPk4HeazPE7DJieZuO41IO45HnkX
OZskdsmnoaz4O48/I7j1N/o9DwP56TXJMi/iL0n/+LuSKcKEhRzGZrA=