--- freem/src/global_bltin.c	2025/03/09 15:20:18	1.3
+++ freem/src/global_bltin.c	2025/03/24 04:13:11	1.7
@@ -1,23 +1,11 @@
 /*
- *                            *
- *                           * *
- *                          *   *
- *                     ***************
- *                      * *       * *
- *                       *  MUMPS  *
- *                      * *       * *
- *                     ***************
- *                          *   *
- *                           * *
- *                            *
- *
- *   global.c
+ *   $Id: global_bltin.c,v 1.7 2025/03/24 04:13:11 snw Exp $
  *    freem database engine
  *
  *  
  *   Author: Serena Willis <snw@coherent-logic.com>
  *    Copyright (C) 1998 MUG Deutschland
- *    Copyright (C) 2020 Coherent Logic Development LLC
+ *    Copyright (C) 2020, 2025 Coherent Logic Development LLC
  *
  *
  *   This file is part of FreeM.
@@ -35,6 +23,22 @@
  *   You should have received a copy of the GNU Affero Public License
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *
+ *   $Log: global_bltin.c,v $
+ *   Revision 1.7  2025/03/24 04:13:11  snw
+ *   Replace action macro dat with fra_dat to avoid symbol conflict on OS/2
+ *
+ *   Revision 1.6  2025/03/24 01:33:30  snw
+ *   Guard declaration of time function in global_bltin.c for portability
+ *
+ *   Revision 1.5  2025/03/22 22:52:24  snw
+ *   Add STRLEN_GBL macro to manage global string length
+ *
+ *   Revision 1.4  2025/03/09 19:14:25  snw
+ *   First phase of REUSE compliance and header reformat
+ *
+ *
+ * SPDX-FileCopyrightText:  (C) 2025 Coherent Logic Development LLC
+ * SPDX-License-Identifier: AGPL-3.0-or-later
  **/
 
 #include <sys/types.h>
@@ -100,7 +104,7 @@ static void panic (void);
 #define BOTTOM   6
 #define DATA     8
 
-#if !defined(__OpenBSD__) && !defined(_AIX) && !defined(__osf__) && !defined(MSDOS) && !defined(__vax__)
+#if !defined(__OpenBSD__) && !defined(_AIX) && !defined(__osf__) && !defined(MSDOS) && !defined(__vax__) && !defined(__OS2__)
  long time ();
 #endif
 
@@ -689,7 +693,7 @@ reopen:
                 return;
             }
 
-            if (action == dat || action == zdata) {
+            if (action == fra_dat || action == zdata) {
                 data[0] = '0';
                 data[1] = EOL1;
         
@@ -1255,7 +1259,7 @@ s20:
             break;
 
 
-        case dat:
+        case fra_dat:
 
             data[0] = '0';
             data[1] = EOL1;
@@ -1611,6 +1615,7 @@ s20:
                         }
 
                         zref[j++] = ch0;
+
                         
                         if (j >= 252) {
                             zref[j] = EOL;