12.7 Release

Author: swaohan

adecomm/_about.p

@@ -1,8 +1,8 @@
-/****************************************************************************
-*Copyright (C) 2005,2010-2013,2014,2015,2017,2020,2021 by Progress Software *
-*Corporation. All rights reserved.  Prior versions of this work may         *
-*contain portions contributed by participants of Possenet.                  *
-*****************************************************************************/
+/*********************************************************************************
+*Copyright (C) 2005,2010-2013,2014,2015,2017,2020,2021,2023 by Progress Software *
+*Corporation. All rights reserved.  Prior versions of this work may              *
+*contain portions contributed by participants of Possenet.                       *
+**********************************************************************************/
 /*
 Procedure:    adecomm/_about.p
 Author:       R. Ryan
@@ -226,8 +226,8 @@ DO WITH FRAME {&FRAME-NAME}:
 
  IF NOT SESSION:WINDOW-SYSTEM BEGINS "TTY":u THEN
   AboutText2 = AboutText2 +
-        "OpenEdge includes Infragistics Ultimate UI for Windows Forms 2021 Vol. 1. " +  
-        cCopyright + " 2021 Infragistics, Inc. " +  
+        "OpenEdge includes Infragistics Ultimate UI for Windows Forms 2022 Vol. 2. " +  
+        cCopyright + " 2023 Infragistics, Inc. " +  
         "All rights reserved." +
         CHR(10) + CHR(10).
 

adecomm/_auddat.p

@@ -1,5 +1,5 @@
 /*************************************************************/
-/* Copyright (c) 1984-2006,2008-2010,2015-2016 by Progress Software Corporation  */
+/* Copyright (c) 1984-2006,2008-2010,2015-2016,2023 by Progress Software Corporation  */
 /*                                                           */
 /* All rights reserved.  No part of this program or document */
 /* may be  reproduced in  any form  or by  any means without */
@@ -50,6 +50,7 @@
       fernando Dec  23, 2008 Support for encryption events
       fernando Jun  18, 2009 Support for encryption events
       fernando 01/05/2010    Expanding transaction id format
+      kberlia  02/07/2023    Corrected field name.
 ------------------------------------------------------------------------*/
 DEFINE INPUT  PARAMETER piReport   AS INTEGER     NO-UNDO.
 DEFINE INPUT  PARAMETER pcFileName AS CHARACTER   NO-UNDO.
@@ -652,9 +653,9 @@ PROCEDURE createDataSet:
         cTopFilter = (IF pcFilter EQ "All" THEN 
                         "" 
                       ELSE
-                        " WHERE (DATE(_client-session._auth-date-time) >= " +
+                        " WHERE (DATE(_client-session._Authentication-date-time) >= " +
                         ENTRY(1,pcFilter)                                   + 
-                        " AND DATE(_client-session._auth-date-time) <= "  +
+                        " AND DATE(_client-session._Authentication-date-time) <= "  +
                         ENTRY(2,pcFilter) + ") ").
 
         IF iTable > 1 THEN DO:

adedict/IDX/_newidx.p

@@ -1,5 +1,5 @@
 /*********************************************************************
-* Copyright (C) 2008-2014,2020 by Progress Software Corporation. All *
+* Copyright (C) 2008-2014,2020,2022 by Progress Software Corporation. All *
 * rights reserved.  Prior versions of this work may contain portions *
 * contributed by participants of Possenet.                           *
 *                                                                    *
@@ -47,6 +47,7 @@ History:
     fernando 10/03/07   Handle comma on the area name - OE00135682
     fernando 06/26/08 Removed encryption area from list 
     Kberlia  10/29/20 Added Argument in _pro_area_list.p to support default area. 
+    tmasood  10/14/22 Removed reference of _isdata.i
 ----------------------------------------------------------------------------*/
 
 
@@ -71,6 +72,7 @@ Define var curr_type  as CHARACTER NO-UNDO.
 define variable lNoArea as logical no-undo.
 define variable LastArea as character no-undo.
 define variable lAreaOk as logical no-undo.
+define variable hTable  as handle  no-undo.
 
 Define buffer x_File for dictdb._File.
 
@@ -507,21 +509,17 @@ do:
       do:   
                /* Before putting up this horrible message, check to see if
                   there's data in the table.  If there's no data the user 
-                  shouldn't need to worry.  _isdata.i won't compile unless 
-                  table is committed and in that case, we know there's no data
-                  either.  There's no way to suppress compile errors from showing
-                  up on the screen (e.g., NO-ERROR won't do it) so do output to 
-                  file to redirect them so the user won't see anything.
+                  shouldn't need to worry.
                */
-               run adecomm/_tmpfile.p (INPUT "", INPUT ".dct", OUTPUT tmpfile).
-               output to VALUE(tmpfile).
-               do ON STOP UNDO, LEAVE:
-                  run adedict/_isdata.i (OUTPUT is_data) VALUE(s_CurrTbl).
+               create buffer hTable for table s_CurrTbl no-error.
+               assign is_data = false.
+               if valid-handle(hTable) then do ON STOP UNDO, LEAVE:
+                  hTable:FIND-FIRST() no-error.
+                  if hTable:AVAILABLE then
+                    assign is_data = true. /* table is committed */
                end.
-               output close.
-               os-delete VALUE(tmpfile).
-               if compiler:error then
-                  is_data = false.  /* table isn't committed yet */
+               /* don't need the dynamic buffer anymore */
+               delete object hTable no-error.
                if is_data then
                do:
                   answer = yes.   /* set's yes as default button */

adeicon/u-logo.bmp

@@ -73,7 +73,7 @@ INTERFACE Ccs.BusinessLogic.IGetDataTableRequest:
                  field names require mapping etc.
                  Query Strings must be provided in the following format
                  CustNum = 42
-                 CustNum = 42 AND OrderStatus = “Ordered”
+                 CustNum = 42 AND OrderStatus = "Ordered"
     ------------------------------------------------------------------------------*/
     DEFINE PUBLIC PROPERTY QueryString AS CHARACTER NO-UNDO
     GET.

businesscomponents/Ccs/BusinessLogic/IGetDataTableRequest.cls

@@ -1,5 +1,5 @@
 /**********************************************************************************************
-*   Copyright (C) 2014-2019, 2021-2022 by Progress Software Corporation. All rights reserved. *
+*   Copyright (C) 2014-2019, 2021-2023 by Progress Software Corporation. All rights reserved. *
 *   Prior versions of this work may contain portions contributed by participants of Possenet. *
 ***********************************************************************************************/
 /*---------------------------------------------------------------------------------------------
@@ -561,16 +561,18 @@ CLASS OpenEdge.BusinessLogic.BusinessEntity ABSTRACT:
         DEFINE VAR hBeforeBuffer AS HANDLE NO-UNDO.
         DEFINE VAR lAvailable AS LOGICAL NO-UNDO.
         DEFINE VAR hBeforeQuery AS HANDLE EXTENT NO-UNDO.
+        DEFINE VAR cMessage AS CHAR NO-UNDO.
         DEFINE VAR cErrMessage AS CHAR NO-UNDO.
         DEFINE VAR appError AS Progress.Lang.AppError NO-UNDO.
 
         EXTENT(hBeforeQuery) = ProDataSet:NUM-BUFFERS.
 
-        cErrMessage = err:GetMessage(1).
-        // Check to see if ReturnValue set
-        IF (cErrMessage EQ ? OR LENGTH(cErrMessage) EQ 0) AND TYPE-OF(err, Progress.Lang.AppError) THEN DO:
+        IF err:NumMessages > 0 THEN DO:
+            cMessage = err:GetMessage(1).
+        END.
+        ELSE IF TYPE-OF(err, Progress.Lang.AppError) THEN DO:
             appError = CAST(err, Progress.Lang.AppError).
-            cErrMessage = appError:ReturnValue.
+            cMessage = appError:ReturnValue.
         END.
 
         // If UpdateMode was never set, don't bother setting REJECTED attributes.
@@ -592,19 +594,24 @@ CLASS OpenEdge.BusinessLogic.BusinessEntity ABSTRACT:
                     DO WHILE lAvailable:
                         hBeforeBuffer:REJECTED = TRUE.
                         IF hBeforeBuffer:ERROR EQ TRUE THEN DO:
-                           hBeforeBuffer:ERROR-STRING = GetRowErrorMessage(hBeforeBuffer, cErrMessage).
+                           hBeforeBuffer:ERROR-STRING = GetRowErrorMessage(hBeforeBuffer, cMessage).
                         END.
                         lAvailable = hBeforeQuery[iIndex]:GET-NEXT().
                     END.
                 END.
             END.
         END.
         ELSE DO:
-          cErrMessage = "Unable to call SAVE-ROW-CHANGES(). " + cErrMessage.
+          cErrMessage = SUBSTITUTE("Unable to call SAVE-ROW-CHANGES(). &1", cMessage).
         END.
 
         IF UpdateMode EQ UpdateModeEnum:CUD_NOBI OR UpdateMode EQ UpdateModeEnum:UNDEFINED THEN DO:
-            UNDO, THROW NEW Progress.Lang.AppError(cErrMessage, 0).
+            IF cErrMessage > "" THEN
+                UNDO, THROW NEW Progress.Lang.AppError(cErrMessage, 0).
+            ELSE IF err:NumMessages > 0 THEN
+                UNDO, THROW err.
+            ELSE
+                UNDO, THROW NEW Progress.Lang.AppError(cMessage, 0).
         END.
 
         FINALLY:

businesscomponents/OpenEdge/BusinessLogic/BusinessEntity.cls

@@ -37,17 +37,17 @@ INTERFACE Ccs.Common.ISessionManager INHERITS IManager:
 
     /* Establish the server session runtime.
        
-       @param handle The handle to the Client Principal object representing the client’s session identity 
+       @param handle The handle to the Client Principal object representing the client's session identity 
        @throws Progress.Lang.SysError, Progress.Lang.AppError */
     METHOD PUBLIC VOID establishRequestEnvironment( INPUT phClientPrincipal AS HANDLE ).
 
     /* Establish the server session runtime.
        
-       @param character A known string representing the client’s session identity 
+       @param character A known string representing the client's session identity 
        @throws Progress.Lang.SysError, Progress.Lang.AppError */
     METHOD PUBLIC VOID establishRequestEnvironment( INPUT pcSessionID AS CHARACTER ).
 
-    /* “End” the server session runtime and return it to a “safe” state.
+    /* "End" the server session runtime and return it to a "safe" state.
         
         @throws Progress.Lang.SysError, Progress.Lang.AppError */
     METHOD PUBLIC VOID endRequestEnvironment( ).

corelib/Ccs/Common/ISessionManager.cls

@@ -1,6 +1,6 @@
 &if 1=0 &then
 /************************************************
-Copyright (c) 2022 by Progress Software Corporation. All rights reserved.
+Copyright (c) 2022,2023 by Progress Software Corporation. All rights reserved.
 *************************************************/
 /** ------------------------------------------------------------------------
     File        : OpenEdge/Core/Assertion/assertequality.i
@@ -53,7 +53,23 @@ Copyright (c) 2022 by Progress Software Corporation. All rights reserved.
 
         // If sizes are equals then compare contents by use of hashing
         if message-digest("SHA-256", a) ne message-digest("SHA-256", b) then
-            return error new AssertionFailedError("Hashes of memptr values are not equal", 0).
+            return error new AssertionFailedError("Hashes of memptr values are not equal":u, 0).
+    &elseif "{&Datatype}" eq "raw" &then
+        // Use a simpler error message as raw values cannot be output directly.
+        if not (a eq b) then
+            return error new AssertionFailedError("Raw values are not equal":u, 0).
+    &elseif "{&Datatype}" eq "character" &then
+        if not (a eq b) then do:
+            if (length(a) + length(b)) ge 30000 then
+                // Use a simpler error message to avoid errors from too-long substitutions.
+                return error new AssertionFailedError("Character values are not equal":u, 0).
+            else
+                return error new AssertionFailedError(substitute(subMessage, a, b), 0).
+        end.
+    &elseif "{&Datatype}" eq "longchar" &then
+        // Always use a simpler error message to avoid errors from too-long substitutions.
+        if not (a eq b) then
+            return error new AssertionFailedError("Longchar values are not equal":u, 0).
     &else
         if not (a eq b) then
             return error new AssertionFailedError(substitute(subMessage, a, b), 0).
@@ -75,7 +91,23 @@ Copyright (c) 2022 by Progress Software Corporation. All rights reserved.
     &elseif "{&Datatype}" eq "memptr" &then
         // If both size and contents (hashes) match then values are considered equal.
         if get-size(a) eq get-size(b) and message-digest("SHA-256", a) eq message-digest("SHA-256", b) then
-            return error new AssertionFailedError(substitute(subMessage, "Hash of 'a'", "hash of 'b'"), 0).
+            return error new AssertionFailedError(substitute(subMessage, "Hash of 'a'":u, "hash of 'b'":u), 0).
+    &elseif "{&Datatype}" eq "raw" &then
+        // Use a simpler error message as raw values cannot be output directly.
+        if a eq b then
+            return error new AssertionFailedError("Raw values are equal":u, 0).
+    &elseif "{&Datatype}" eq "character" &then
+        if a eq b then do:
+            if (length(a) + length(b)) ge 30000 then
+                // Use a simpler error message to avoid errors from too-long substitutions.
+                return error new AssertionFailedError("Character values are equal":u, 0).
+            else
+                return error new AssertionFailedError(substitute(subMessage, a, b), 0).
+        end.
+    &elseif "{&Datatype}" eq "longchar" &then
+        // Always use a simpler error message to avoid errors from too-long substitutions.
+        if a eq b then
+            return error new AssertionFailedError("Longchar values are equal":u, 0).
     &else
         if a eq b then
             return error new AssertionFailedError(substitute(subMessage, a, b), 0).

corelib/OpenEdge/Core/Assertion/assertequality.i

@@ -117,6 +117,7 @@ Copyright (c) 2022 by Progress Software Corporation. All rights reserved.
     end method. // NotUnknownOrEmpty
 
     {&CommentShortArray}
+    {&_proparse_ prolint-nowarn(varusage)}
     method public static void NotNullOrEmpty (input pArgument as {&DataType} extent):
     &if "{&Datatype}" eq "Object" &then
         NotUnknown(pArgument, "argument":u).
@@ -129,6 +130,7 @@ Copyright (c) 2022 by Progress Software Corporation. All rights reserved.
     end method. // NotNullOrEmpty
 
     {&CommentLongArray}
+    {&_proparse_ prolint-nowarn(varusage)}
     method public static void NotNullOrEmpty (input pArgument as {&DataType} extent, input pcName as char):
     &if "{&Datatype}" eq "Object" &then
         NotUnknown(pArgument, "argument":u).
@@ -152,6 +154,7 @@ Copyright (c) 2022 by Progress Software Corporation. All rights reserved.
     end method. // NotUnknownOrEmpty
 
     {&CommentLongArray}
+    {&_proparse_ prolint-nowarn(varusage)}
     method public static void NotUnknownOrEmpty (input pArgument as {&DataType} extent, input pcName as char):
     &if "{&Datatype}" eq "Object" &then
         NotUnknown(pArgument, "argument":u).

corelib/OpenEdge/Core/Assertion/assertnotunknownorempty.i

@@ -114,11 +114,12 @@ class OpenEdge.Core.Collections.StringKeyedMap implements IStringKeyedMap:
        @return logical TRUE if a record exists with the given key; FALSE if there are no matching entries */
     method private logical FindMapRecord(input pKey as character, buffer pMap for StrKeyMap):
         release pMap.
-        
+
         if can-find(pMap
               where pMap.ParentMap eq int64(this-object)
                 and pMap.Key eq pKey                    )
         then
+            {&_proparse_ prolint-nowarn(findnoerror)}
             find pMap
            where pMap.ParentMap eq int64(this-object)
              and pMap.Key eq pKey.
@@ -241,7 +242,7 @@ class OpenEdge.Core.Collections.StringKeyedMap implements IStringKeyedMap:
         end.
 
         return true.
-    end.
+    end method.
 
     /* Returns true if this map contains all of the values in a collection.
        
@@ -268,7 +269,7 @@ class OpenEdge.Core.Collections.StringKeyedMap implements IStringKeyedMap:
         end.
 
         return false.
-    end.
+    end method.
 
     /* Returns true if this map maps one or more keys to the specified value.
        
@@ -315,7 +316,7 @@ class OpenEdge.Core.Collections.StringKeyedMap implements IStringKeyedMap:
     method public Progress.Lang.Object Get(input pKey as Progress.Lang.Object):
         Assert:IsType(pKey, get-class(String)).
 
-        return Get(cast(pKey, String)).
+        return get(cast(pKey, String)).
     end method.
 
     /** Retrieves the value for a particular key