Merge lp:~jontai/openvista-gtm-integration/gtm-packaging into lp:openvista-gtm-integration

[Jon Tai]

[Jon Tai (jontai)]

This branch includes Jeff's work on bug #327480. It also includes all the necessary infrastructure to build RPMs that include Jeff's patch, plus some work on the surrounding scripts.

[jeff.apple (jeff-apple)]

Seems OK

review: Approve

=== renamed file 'packages/rpm/fis-gtm.spec' => 'packages/rpm/fis-gtm-5.3003.spec'
--- packages/rpm/fis-gtm.spec	2009-02-13 12:00:25 +0000
+++ packages/rpm/fis-gtm-5.3003.spec	2009-02-25 20:22:02 +0000
@@ -15,7 +15,7 @@
 %define gtm_dist /opt/lsb-gtm/V5.3-003_i686
 %endif
 
-Name:		fis-gtm
+Name:		fis-gtm-5.3003
 Version:	5.3003
 Release:	1
 Summary:	High end TP schemaless database
@@ -25,14 +25,26 @@
 Group:		Applications/Databases
 Packager:	Jonathan Tai <[e-mail]>
 
-Requires:	/bin/sh, coreutils
+Provides:	fis-gtm
+
+Requires(pre):		/usr/sbin/groupadd
+Requires(post):		/usr/sbin/semanage, /sbin/restorecon
+Requires(postun):	/usr/sbin/semanage, /usr/sbin/groupdel
+
+Requires:	/bin/sh, coreutils, libicu, zlib, ncurses
 BuildRequires:	/bin/tcsh, libicu-devel, zlib-devel, ncurses-devel
 
 # The source for both i686 and x86_64 versions are both in this tarball, even
 # though the tarball is named i686_src
 Source:		gtm_V53003_linux_i686_src.tar.gz
 
-Patch1:		fis-gtm_noninteractive-configure.patch
+# Patch the configure script to pre-answer all of the prompts and set the
+# installation directory
+Patch1:		fis-gtm-5.3003_noninteractive-configure.patch
+
+# See https://bugs.launchpad.net/openvista-gtm-integration/+bug/327480
+Patch2:		fis-gtm-5.3003_zprompt.patch
+
 BuildRoot:	%{_tmppath}/%{name}-root
 
 %description
@@ -52,11 +64,17 @@
     exit 1
 fi
 
+if ! grep '^gtm:' /etc/group > /dev/null; then
+    echo "gtm group not found in /etc/group"
+    exit 1
+fi
+
 if [ `/usr/bin/id -u` -ne 0 ]; then
     echo "this RPM must be built as root"
     exit 1
 fi 
 %setup -c
+%patch2 -p0
 
 %build
 # GT.M needs to be built with tcsh, and with a bunch of environmental variables
@@ -102,14 +120,25 @@
 %defattr(-,-,-)
 /opt/lsb-gtm
 
+%pre
+/usr/sbin/groupadd gtm 2> /dev/null || :
+
 %post
-# For linux systems, attempt to execute the chcon command to allow use of the
-# libgtmshr shared library. This command is required on many modern SELinux
-# based systems but depends on the filesystem in use (requires context
-# support). For that reason, we attempt the command and if it works, great. If
-# it doesn't, oh well we tried.
-
-# FIXME: we get "chcon: can't apply partial context to unlabeled file /opt/lsb-gtm/V5.3-003_i686/libgtmshr.so" 
-#        on a system with SELinux disabled; need to test on a system with SELinux enabled
-#chcon -t texrel_shlib_t %{gtm_dist}/libgtmshr.so || :
-
+# GT.M's installation script just chcon directly, but it won't have any effect
+# on the target system (only on the build system, and then only if SELinux is
+# enabled on the build system).  On the target system, we should use semanage
+# to save the correct context for libgtmshr.so in the SELinux policy.  This
+# will ensure that the file has the correct context, even after relabling. 
+#
+# See http://fedoraproject.org/wiki/PackagingDrafts/SELinux
+/usr/sbin/semanage fcontext -a -t textrel_shlib_t %{gtm_dist}/libgtmshr.so 2>/dev/null || :
+/sbin/restorecon %{gtm_dist}/libgtmshr.so || :
+
+%postun
+# Remove libgtmshr.so from the SELinux policy if we're removing the package
+#
+# See http://fedoraproject.org/wiki/PackagingDrafts/SELinux
+if [ $1 -eq 0 ]; then
+    /usr/sbin/semanage fcontext -d -t textrel_shlib_t %{gtm_dist}/libgtmshr.so 2>/dev/null || :
+    /usr/sbin/groupdel gtm 2> /dev/null || :
+fi

=== renamed file 'packages/rpm/fis-gtm_noninteractive-configure.patch' => 'packages/rpm/fis-gtm-5.3003_noninteractive-configure.patch'
--- packages/rpm/fis-gtm_noninteractive-configure.patch	2009-02-13 12:00:25 +0000
+++ packages/rpm/fis-gtm-5.3003_noninteractive-configure.patch	2009-02-22 08:42:50 +0000
@@ -1,5 +1,5 @@
---- configure	2009-02-12 17:23:27.000000000 -0800
-+++ configure	2009-02-12 17:30:38.000000000 -0800
+--- configure	2009-02-21 23:56:05.000000000 -0800
++++ configure	2009-02-21 23:56:44.000000000 -0800
 @@ -104,7 +104,7 @@
  # create temporary file to test for valid user and group names
  touch tmp_owngrp
@@ -9,15 +9,19 @@
  if [ "$resp" = "" ] ; then
  	owner="bin"
  else
-@@ -118,7 +118,7 @@
+@@ -118,10 +118,10 @@
  fi
  
  $echo "Should execution of GT.M to be restricted to a group? (y or n) \c"
 -read resp
-+resp="n"
++resp="y"
  if [ "$resp" = "Y" -o "$resp" = "y" ] ; then
  	$echo "Enter group name? \c"
- 	read group
+-	read group
++	group="gtm"
+ 	if [ "$group" != "" ] ; then
+ 		chgrp $group tmp_owngrp 2> /dev/null
+ 		if [ 1 = "$?" ] ; then
 @@ -137,7 +137,7 @@
  rm tmp_owngrp
  

=== added file 'packages/rpm/fis-gtm-5.3003_zprompt.patch'
--- packages/rpm/fis-gtm-5.3003_zprompt.patch	1970-01-01 00:00:00 +0000
+++ packages/rpm/fis-gtm-5.3003_zprompt.patch	2009-04-07 01:39:18 +0000
@@ -0,0 +1,95 @@
+--- sr_port/gbldefs.c	2008-12-04 12:26:37.000000000 -0800
++++ sr_port/gbldefs.c	2009-04-06 18:27:35.000000000 -0700
+@@ -230,6 +230,13 @@
+ GBLDEF	boolean_t	dollar_ztexit_bool; /* Truth value of dollar_ztexit when coerced to boolean */
+ GBLDEF	boolean_t	dollar_zquit_anyway;
+ 
++#define DEFAULT_PROMPT	"GTM>"
++/* The prompt buffer size (31) below would allow at least 8 Unicode characters, but since most
++ * commonly used Unicode characters only occupy upto 3 bytes, the buffer would at least accommodate
++ * 10 Unicode characters in a prompt */
++GBLDEF char		prombuf[MAX_MIDENT_LEN] = DEFAULT_PROMPT;
++GBLDEF MSTR_DEF(gtmprompt, STR_LIT_LEN(DEFAULT_PROMPT), &prombuf[0]);
++
+ GBLDEF	mv_stent	*mv_chain;
+ GBLDEF	sgm_info	*first_sgm_info;	/* List of participating regions in the TP transaction with NO ftok ordering */
+ GBLDEF	sgm_info	*first_tp_si_by_ftok;	/* List of participating regions in the TP transaction sorted on ftok order */
+--- sr_port/gtm_env_init.c	2008-12-04 12:26:39.000000000 -0800
++++ sr_port/gtm_env_init.c	2009-04-06 18:27:35.000000000 -0700
+@@ -12,6 +12,8 @@
+ #include "mdef.h"
+ 
+ #include "gtm_logicals.h"
++#include "gtm_stdlib.h"
++#include "gtm_string.h"
+ #include "logical_truth_value.h"
+ #include "trans_numeric.h"
+ #include "gtmdbglvl.h"
+@@ -28,6 +30,9 @@
+ #include "gdskill.h"		/* needed for gdsfhead.h */
+ #include "gdsbt.h"		/* needed for gdsfhead.h */
+ #include "gdsfhead.h"		/* needed for MAXTOTALBLKS_MAX macro */
++#include "trans_log_name.h"
++#include "op.h"
++#include "svnames.h"
+ 
+ #ifdef DEBUG
+ #  define INITIAL_DEBUG_LEVEL GDL_Simple
+@@ -59,6 +64,9 @@
+ GBLREF	uint4		max_cache_entries;	/* Maximum number of cached indirect compilations */
+ GBLREF	boolean_t	gtm_tp_allocation_clue;	/* block# hint to start allocation for created blocks in TP */
+ 
++GBLREF char		prombuf[MAX_MIDENT_LEN];
++GBLREF mstr		gtmprompt;
++
+ #ifdef DEBUG
+ GBLREF	boolean_t	gtm_gvundef_fatal;
+ #endif
+@@ -69,6 +77,7 @@
+ 	mstr			val;
+ 	boolean_t		ret, is_defined;
+ 	uint4			tdbglvl, tmsock, reservesize, memsize, cachent;
++	char*			prompt_env_val;
+ 
+ 	if (!gtm_env_init_done)
+ 	{
+@@ -194,6 +203,12 @@
+ 		if (is_defined)
+ 			dollar_zquit_anyway = ret;
+ 
++		if (NULL!=(prompt_env_val=GETENV(GTM_PROMPT+1)) && strlen(prompt_env_val)<sizeof(prombuf)) {
++			val.addr = GTM_PROMPT;
++			val.len = sizeof(GTM_PROMPT) - 1;
++			TRANS_LOG_NAME(&val, &gtmprompt, prombuf, sizeof(prombuf), do_sendmsg_on_log2long);
++		}
++
+ 		/* Platform specific initializations */
+ 		gtm_env_init_sp();
+ 		gtm_env_init_done = TRUE;
+--- sr_port/op_svput.c	2008-07-11 11:47:38.000000000 -0700
++++ sr_port/op_svput.c	2009-04-06 18:27:35.000000000 -0700
+@@ -40,12 +40,8 @@
+ #include "getzdir.h"
+ #include "gtm_newintrinsic.h"
+ 
+-#define DEFAULT_PROMPT	"GTM>"
+-/* The prompt buffer size (31) below would allow at least 8 Unicode characters, but since most
+- * commonly used Unicode characters only occupy upto 3 bytes, the buffer would at least accommodate
+- * 10 Unicode characters in a prompt */
+-GBLDEF char		prombuf[MAX_MIDENT_LEN] = DEFAULT_PROMPT;
+-GBLDEF MSTR_DEF(gtmprompt, STR_LIT_LEN(DEFAULT_PROMPT), &prombuf[0]);
++GBLREF char		prombuf[MAX_MIDENT_LEN];
++GBLREF mstr		gtmprompt;
+ 
+ GBLREF gv_key		*gv_currkey;
+ GBLREF gv_namehead	*gv_target;
+--- sr_unix/gtm_logicals.h	2008-12-04 12:27:41.000000000 -0800
++++ sr_unix/gtm_logicals.h	2009-04-06 18:27:29.000000000 -0700
+@@ -65,6 +65,7 @@
+ #define GTM_MEMORY_RESERVE		"$gtm_memory_reserve"
+ #define GTM_ZQUIT_ANYWAY		"$gtm_zquit_anyway"
+ #define	GTM_NOUNDEF			"$gtm_noundef"
++#define	GTM_PROMPT			"$gtm_prompt"
+ 
+ /* -------------------------- Unix only --------------------------  */
+ 

=== modified file 'packages/rpm/openvista-utils.spec'
--- packages/rpm/openvista-utils.spec	2009-02-18 07:37:31 +0000
+++ packages/rpm/openvista-utils.spec	2009-02-26 04:11:01 +0000
@@ -8,11 +8,15 @@
 Group:		Applications/System
 Packager:	Jonathan Tai <[e-mail]>
 
-Requires:	/bin/bash, coreutils, openssh, /usr/bin/logger, /bin/tar, /usr/bin/bzip2, /usr/bin/find, vixie-cron, fis-gtm >= 5.3003, openvista-libs
-Prereq:		/sbin/chkconfig, /usr/sbin/useradd
+Requires(pre):		/usr/sbin/useradd
+Requires(post):		/sbin/chkconfig
+Requires(preun):	/sbin/chkconfig
+Requires(postun):	/usr/sbin/userdel
+
+Requires:	/bin/bash, coreutils, openssh, /usr/bin/logger, /bin/tar, /usr/bin/bzip2, /usr/bin/find, vixie-cron, fis-gtm, openvista-libs
 
 # RPM should have a suggests tag...
-# Suggests:	bash-completion, putty-utils
+# Suggests:	bash-completion, putty-tools
 
 Source:		openvista-utils-%{version}.tar.bz2
 BuildArch:	noarch
@@ -45,9 +49,9 @@
 install scripts/usr/bin/ovtied %{buildroot}%{_bindir}/
 install scripts/usr/bin/ovbackup %{buildroot}%{_bindir}/
 
-install -d %{buildroot}%{_sysconfdir}/init.d/
-install scripts/etc/init.d/openvista_early %{buildroot}%{_sysconfdir}/init.d/
-install scripts/etc/init.d/openvista %{buildroot}%{_sysconfdir}/init.d/
+install -d %{buildroot}%{_sysconfdir}/rc.d/init.d/
+install scripts/etc/init.d/openvista_early %{buildroot}%{_sysconfdir}/rc.d/init.d/
+install scripts/etc/init.d/openvista %{buildroot}%{_sysconfdir}/rc.d/init.d/
 
 install -d %{buildroot}%{_sysconfdir}/bash_completion.d/
 install -m 644 scripts/etc/bash_completion.d/openvista %{buildroot}%{_sysconfdir}/bash_completion.d/
@@ -71,8 +75,8 @@
 %{_bindir}/openvista
 %{_bindir}/ovtied
 %{_bindir}/ovbackup
-%{_sysconfdir}/init.d/openvista_early
-%{_sysconfdir}/init.d/openvista
+%{_sysconfdir}/rc.d/init.d/openvista_early
+%{_sysconfdir}/rc.d/init.d/openvista
 %{_sysconfdir}/bash_completion.d/openvista
 %config %{_sysconfdir}/cron.d/openvista
 %{_sysconfdir}/cron.daily/openvista
@@ -93,3 +97,8 @@
     /sbin/chkconfig --del openvista
 fi
 
+%postun
+if [ $1 = 0 ]; then
+    /usr/sbin/userdel openvista 2> /dev/null || :
+fi
+

=== renamed file 'packages/rpm/putty-utils.spec' => 'packages/rpm/putty-tools.spec'
--- packages/rpm/putty-utils.spec	2009-02-07 21:26:40 +0000
+++ packages/rpm/putty-tools.spec	2009-02-26 00:01:36 +0000
@@ -1,4 +1,4 @@
-Name:		putty-utils
+Name:		putty-tools
 Version:	0.60
 Release:	1
 Summary:	PuTTY command-line utilities
@@ -10,7 +10,7 @@
 Conflicts:	putty
 
 Source:		putty-%{version}.tar.gz
-Patch:		putty-utils_fix-make-install.patch
+Patch:		putty-tools_fix-make-install.patch
 BuildRoot:	%{_tmppath}/%{name}-root
 
 %description

=== renamed file 'packages/rpm/putty-utils_fix-make-install.patch' => 'packages/rpm/putty-tools_fix-make-install.patch'
=== modified file 'scripts/etc/init.d/openvista'
--- scripts/etc/init.d/openvista	2009-02-09 19:57:36 +0000
+++ scripts/etc/init.d/openvista	2009-03-02 20:04:16 +0000
@@ -47,6 +47,8 @@
 
     umask 007
 
+    cd "$root/$instance/tmp"
+
     # FIXME: check to see if routine exists; if not, fail gracefully
     # FIXME: logging?
     mumps -run ^ZINITS
@@ -62,12 +64,12 @@
 
     umask 007
 
+    cd "$root/$instance/tmp"
+
     # FIXME: check to see if routine exists; if not, fail gracefully
     # FIXME: logging?
     mumps -run ^ZINITK
 
-    # FIXME: wait a few seconds, then kill all mumps processes
-
     return $?
 }
 
@@ -94,6 +96,10 @@
         for instance in `ls $root`; do
             action $"  Running shutdown hooks for $instance: " zinitk "$instance"
         done
+
+        sleep 10
+
+        killall mumps
         ;;
     *)
         echo "Usage: openvista {start|stop}"

=== modified file 'scripts/etc/init.d/openvista_early'
--- scripts/etc/init.d/openvista_early	2009-02-09 19:57:36 +0000
+++ scripts/etc/init.d/openvista_early	2009-03-04 07:25:38 +0000
@@ -63,11 +63,54 @@
       return $result
     fi
 
+    # After recovery, the database files may still need to be run down.  this
+    # was observed on our own OpenVista appliance and also tested on the
+    # WorldVistA VOE "four-slice toaster" appliance.  An easy (and somewhat
+    # reliable) way to trigger the not-rundown effect is to connect with CIS,
+    # then halt the machine by killing qemu.  Upon the next boot, the journal
+    # recovery will run, but attempts to access the database will result in
+    # not-rundown errors.  Adding a call to mupip rundown here seems to fix the
+    # issue.
+    mupip rundown -region DEFAULT 2>&1 \
+      | grep -v '^$' \
+      | logger -p user.info -t "GTM[$$]"
+
+    result=${PIPESTATUS[0]}
+
+    if [ $result -ne 0 ]; then
+      return $result
+    fi
+
     mupip set -journal="ENABLE,ON,BEFORE_IMAGES" -region DEFAULT 2>&1 \
       | grep -v '^$' \
       | logger -p user.info -t "GTM[$$]"
 
-    return ${PIPESTATUS[0]}
+    result=${PIPESTATUS[0]}
+
+    if [ $result -ne 0 ]; then
+      return $result
+    fi
+
+    mv -f "$root/$instance/globals/scratch.dat" "$root/$instance/globals/scratch.dat~"
+
+    result=$?
+
+    if [ $result -ne 0 ]; then
+      return $result
+    fi
+
+    mupip create -region=SCRATCH 2>&1 \
+      | grep -v '^$' \
+      | logger -p user.info -t "GTM[$$]"
+
+    result=${PIPESTATUS[0]}
+
+    if [ $result -ne 0 ]; then
+      return $result
+    fi
+
+    chmod 660 "$root/$instance/globals/scratch.dat"
+    return $?
 }
 
 case "$1" in

=== modified file 'scripts/usr/bin/ovbackup'
--- scripts/usr/bin/ovbackup	2009-02-12 22:38:17 +0000
+++ scripts/usr/bin/ovbackup	2009-03-01 09:15:33 +0000
@@ -43,8 +43,8 @@
 
 case "$num_backups" in
     ""|0|*[!0-9]*)
-        # num_backups was not set, blank, 0, or not an integer; set to default of 2
-        num_backups=2
+        # num_backups was not set, blank, 0, or not an integer; set to default of 3
+        num_backups=3
         ;;
 esac 
 

=== modified file 'scripts/usr/lib/openvista/functions'
--- scripts/usr/lib/openvista/functions	2009-02-18 07:37:31 +0000
+++ scripts/usr/lib/openvista/functions	2009-03-01 09:37:22 +0000
@@ -39,9 +39,10 @@
     fi
 
     export gtm_dist="$root/$instance/gtm"
-    export gtmroutines="$root/$instance/objects($root/$instance/routines/development $root/$instance/routines/hotfixes $root/$instance/routines/customer $root/$instance/routines/medsphere $root/$instance/routines/vendor $root/$instance/routines/foia) $root/$instance/gtm"
+    export gtmroutines="$root/$instance/objects($root/$instance/routines) $root/$instance/gtm"
     export gtmgbldir="$root/$instance/globals/mumps.gld"
     export gtm_zinterrupt='I $$JOBEXAM^ZU($ZPOSITION)'
+    export gtm_prompt="$instance>"
     export GTMXC_openvista='/usr/share/openvista/openvista.xc'
     export PATH="/usr/local/bin:/bin:/usr/bin:$root/$instance/gtm"
 

=== modified file 'scripts/usr/sbin/ovinstanceadd'
--- scripts/usr/sbin/ovinstanceadd	2009-02-12 00:05:08 +0000
+++ scripts/usr/sbin/ovinstanceadd	2009-03-01 09:37:22 +0000
@@ -55,13 +55,7 @@
 install -o root -g $user -m 2750 -d "$root/$instance"
 install -o root -g $user -m 2750 -d "$root/$instance/globals"
 install -o root -g $user -m 2770 -d "$root/$instance/journals"
-install -o root -g $user -m 2750 -d "$root/$instance/routines"
-install -o root -g $user -m 2770 -d "$root/$instance/routines/development"
-install -o root -g $user -m 2770 -d "$root/$instance/routines/hotfixes"
-install -o root -g $user -m 2770 -d "$root/$instance/routines/customer"
-install -o root -g $user -m 2770 -d "$root/$instance/routines/medsphere"
-install -o root -g $user -m 2770 -d "$root/$instance/routines/vendor"
-install -o root -g $user -m 2770 -d "$root/$instance/routines/foia"
+install -o root -g $user -m 2770 -d "$root/$instance/routines"
 install -o root -g $user -m 2770 -d "$root/$instance/objects"
 install -o root -g $user -m 2770 -d "$root/$instance/images" # FIXME: apache needs read/write access
 install -o root -g $user -m 2770 -d "$root/$instance/backups"

=== added directory 'src/gtm'
=== added directory 'src/gtm/sr_port'
=== added file 'src/gtm/sr_port/gbldefs.c'
--- src/gtm/sr_port/gbldefs.c	1970-01-01 00:00:00 +0000
+++ src/gtm/sr_port/gbldefs.c	2009-04-07 01:13:36 +0000
@@ -0,0 +1,1012 @@
+/****************************************************************
+ *								*
+ *	Copyright 2001, 2008 Fidelity Information Services, Inc	*
+ *								*
+ *	This source code contains the intellectual property	*
+ *	of its copyright holder(s), and is made available	*
+ *	under a license.  If you do not know the terms of	*
+ *	the license, please stop and do not read further.	*
+ *								*
+ ****************************************************************/
+
+ /* General repository for global variable definitions. This keeps us from
+   pulling in modules and all their references when all we wanted was the
+   global data def.. */
+
+#include "mdef.h"
+
+#include "gtm_inet.h"
+#include "gtm_iconv.h"
+#include "gtm_socket.h"
+#include "gtm_unistd.h"
+#include "gtm_limits.h"
+
+#include <signal.h>
+#ifdef __MVS__
+#include "gtm_time.h"      /* required for fd_set */
+#endif
+#include <sys/time.h>
+#ifdef UNIX
+# include <sys/un.h>
+#endif
+#ifdef VMS
+# include <descrip.h>		/* Required for gtmsource.h */
+# include <ssdef.h>
+# include <fab.h>
+# include "desblk.h"
+#endif
+#include "cache.h"
+#include "hashtab_int4.h"
+#include "hashtab_int8.h"
+#include "hashtab_mname.h"
+#include "hashtab_objcode.h"
+#include "rtnhdr.h"
+#include "gdsroot.h"
+#include "gdskill.h"
+#include "ccp.h"
+#include "gtm_facility.h"
+#include "fileinfo.h"
+#include "gdsbt.h"
+#include "gdsfhead.h"
+#include "filestruct.h"
+#include "gdscc.h"
+#include "comline.h"
+#include "compiler.h"
+#include "cmd_qlf.h"
+#include "io.h"
+#include "iosp.h"
+#include "jnl.h"
+#include "lv_val.h"
+#include "sbs_blk.h"
+#include "mdq.h"
+#include "mprof.h"
+#include "mv_stent.h"
+#include "stack_frame.h"
+#include "stp_parms.h"
+#include "stringpool.h"
+#include "buddy_list.h"		/* needed for tp.h */
+#include "tp.h"
+#include "tp_frame.h"
+#include "mlkdef.h"
+#include "zshow.h"
+#include "zwrite.h"
+#include "zbreak.h"
+#include "fnpc.h"
+#include "mmseg.h"
+#ifndef VMS
+# include "gtmsiginfo.h"
+#endif
+#include "gtmimagename.h"
+#include "iotcpdef.h"
+#include "gt_timer.h"
+#include "iosocketdef.h"	/* needed for socket_pool and MAX_N_SOCKETS*/
+#include "ctrlc_handler_dummy.h"
+#include "unw_prof_frame_dummy.h"
+#include "op.h"
+#include "gtmsecshr.h"
+#include "error_trap.h"
+#include "patcode.h"	/* for pat_everything and sizeof_pat_everything */
+#include "source_file.h"	/* for REV_TIME_BUFF_LEN */
+#include "mupipbckup.h"
+#include "dpgbldir.h"
+#include "mmemory.h"
+#include "have_crit.h"
+
+/* FOR REPLICATION RELATED GLOBALS */
+#include "repl_msg.h"
+#include "gtmsource.h"
+#include "gtmrecv.h"
+
+/* FOR MERGE RELATED GLOBALS */
+#include "subscript.h"
+#include "lvname_info.h"
+#include "gvname_info.h"
+#include "op_merge.h"
+
+#ifdef UNIX
+/* The define of CHEXPAND below causes error.h to create GBLDEFs */
+#define CHEXPAND
+#include "error.h"
+
+#include "cli.h"
+#include "invocation_mode.h"
+#include "fgncal.h"
+#include "parse_file.h"		/* for MAX_FBUFF */
+#include "repl_sem.h"
+#include "gtm_zlib.h"
+#endif
+
+#include "jnl_typedef.h"
+
+#ifdef VMS
+#include "gtm_logicals.h"	/* for GTM_MEMORY_NOACCESS_COUNT */
+#endif
+
+#include "gds_blk_upgrade.h"	/* for UPGRADE_IF_NEEDED flag */
+#include "cws_insert.h"		/* for CWS_REORG_ARRAYSIZE */
+
+#ifdef UNICODE_SUPPORTED
+#include "gtm_icu_api.h"
+#include "gtm_utf8.h"
+#endif
+
+#define DEFAULT_ZERROR_STR	"Unprocessed $ZERROR, see $ZSTATUS"
+#define DEFAULT_ZERROR_LEN	(sizeof(DEFAULT_ZERROR_STR) - 1)
+
+GBLDEF	gd_region		*db_init_region;
+GBLDEF	sgmnt_data_ptr_t	cs_data;
+GBLDEF	sgmnt_addrs		*cs_addrs;
+
+GBLDEF	unsigned short	proc_act_type;
+GBLDEF	volatile bool	ctrlc_pending;
+GBLDEF	volatile int4	ctrap_action_is;
+GBLDEF	bool		out_of_time;
+GBLDEF	io_pair		io_curr_device;		/* current device	*/
+GBLDEF	io_pair		io_std_device;		/* standard device	*/
+GBLDEF	io_log_name	*dollar_principal;	/* pointer to log name GTM$PRINCIPAL if defined */
+GBLDEF	bool		prin_in_dev_failure = FALSE;
+GBLDEF	bool		prin_out_dev_failure = FALSE;
+GBLDEF	io_desc		*active_device;
+
+GBLDEF	bool		error_mupip = FALSE,
+			compile_time = FALSE,
+			file_backed_up = FALSE,
+			gv_replopen_error = FALSE,
+			gv_replication_error = FALSE,
+			incremental = FALSE,
+			jobpid = FALSE,
+			online = FALSE,
+			record = FALSE,
+			is_standalone = FALSE,
+			std_dev_outbnd = FALSE,
+			in_mupip_freeze = FALSE,
+	                in_backup = FALSE,
+	                view_debug1 = FALSE,
+	                view_debug2 = FALSE,
+	                view_debug3 = FALSE,
+	                view_debug4 = FALSE,
+	                dec_nofac;
+
+GBLDEF	boolean_t	is_updproc = FALSE,
+			is_updhelper = FALSE,
+			mupip_jnl_recover = FALSE,
+			repl_allowed = FALSE,
+			run_time = FALSE,
+			unhandled_stale_timer_pop = FALSE,
+			gtcm_connection = FALSE,
+			is_replicator = FALSE,	/* TRUE => this process can write jnl records to the jnlpool for replicated db */
+	                tp_in_use = FALSE,	/* TRUE => TP has been used by this process and is thus initialized */
+			dollar_truth = TRUE;
+
+GBLDEF	VSIG_ATOMIC_T	forced_exit = FALSE;	/* Asynchronous signal/interrupt handler sets this variable to TRUE,
+						 * hence the VSIG_ATOMIC_T type in the definition.
+						 */
+GBLDEF	intrpt_state_t	intrpt_ok_state = INTRPT_OK_TO_INTERRUPT;	/* any other value implies it is not ok to interrupt */
+
+GBLDEF	unsigned char	*msp,
+			*mubbuf,
+			*restart_ctxt,
+			*stackbase,
+			*stacktop,
+			*stackwarn,
+			*restart_pc;
+GBLDEF	int4		backup_close_errno,
+			backup_write_errno,
+			mubmaxblk,
+			forced_exit_err,
+			exit_state,
+			restore_read_errno;
+GBLDEF	volatile int4	outofband, crit_count = 0;
+GBLDEF	int		mumps_status = SS_NORMAL,
+			stp_array_size = 0;
+GBLDEF	gvzwrite_struct	gvzwrite_block;
+GBLDEF	io_log_name	*io_root_log_name;
+GBLDEF	lvzwrite_struct	lvzwrite_block;
+GBLDEF	mliteral	literal_chain;
+GBLDEF	mstr		*comline_base,
+			dollar_zsource,
+			*err_act,
+			**stp_array,
+			extnam_str,
+			env_gtm_env_xlate;
+GBLDEF MSTR_CONST(default_sysid, "gtm_sysid");
+GBLDEF int              (*gtm_env_xlate_entry)() = NULL;
+GBLDEF void             (*gtm_sigusr1_handler)() = NULL;
+GBLDEF	mval		dollar_zgbldir,
+			dollar_zstatus,
+			dollar_zstep = DEFINE_MVAL_LITERAL(MV_STR | MV_NM | MV_INT | MV_NUM_APPROX, 0, 0, 1, "B", 0, 0),
+			dollar_ztrap,
+			ztrap_pop2level = DEFINE_MVAL_LITERAL(MV_NM | MV_INT, 0, 0, 0, 0, 0, 0),
+			zstep_action,
+			dollar_system,
+			dollar_estack_delta = DEFINE_MVAL_LITERAL(MV_STR, 0, 0, 0, NULL, 0, 0),
+			dollar_etrap,
+			dollar_zerror = DEFINE_MVAL_LITERAL(MV_STR, 0, 0, DEFAULT_ZERROR_LEN, DEFAULT_ZERROR_STR, 0, 0),
+			dollar_zyerror,
+			dollar_ztexit = DEFINE_MVAL_LITERAL(MV_STR, 0, 0, 0, NULL, 0, 0);
+GBLDEF  uint4		dollar_zjob;
+GBLDEF	mval		dollar_zinterrupt;
+GBLDEF	boolean_t	dollar_zininterrupt;
+GBLDEF	boolean_t	dollar_ztexit_bool; /* Truth value of dollar_ztexit when coerced to boolean */
+GBLDEF	boolean_t	dollar_zquit_anyway;
+
+#define DEFAULT_PROMPT	"GTM>"
+/* The prompt buffer size (31) below would allow at least 8 Unicode characters, but since most
+ * commonly used Unicode characters only occupy upto 3 bytes, the buffer would at least accommodate
+ * 10 Unicode characters in a prompt */
+GBLDEF char		prombuf[MAX_MIDENT_LEN] = DEFAULT_PROMPT;
+GBLDEF MSTR_DEF(gtmprompt, STR_LIT_LEN(DEFAULT_PROMPT), &prombuf[0]);
+
+GBLDEF	mv_stent	*mv_chain;
+GBLDEF	sgm_info	*first_sgm_info;	/* List of participating regions in the TP transaction with NO ftok ordering */
+GBLDEF	sgm_info	*first_tp_si_by_ftok;	/* List of participating regions in the TP transaction sorted on ftok order */
+GBLDEF	spdesc		indr_stringpool,
+			rts_stringpool,
+			stringpool;
+GBLDEF	stack_frame	*frame_pointer;
+GBLDEF	stack_frame	*zyerr_frame = NULL;
+GBLDEF	symval		*curr_symval;
+GBLDEF	tp_frame	*tp_pointer;
+GBLDEF	tp_region	*halt_ptr,
+			*grlist;
+GBLDEF	trans_num	local_tn;	/* transaction number for THIS PROCESS (starts at 0 each time) */
+GBLDEF	gv_namehead	*gv_target;
+GBLDEF	gv_namehead	*gv_target_list;
+GBLDEF	gvt_container	*gvt_pending_list;	/* list of gvts that need to be re-examined/re-allocated when region is opened */
+GBLDEF	buddy_list	*gvt_pending_buddy_list;/* buddy_list for maintaining memory for gv_targets to be re-examined/allocated */
+
+GBLDEF	int4		exi_condition;
+GBLDEF	uint4		gtmDebugLevel;
+GBLDEF	caddr_t		smCallerId;			/* Caller of top level malloc/free */
+GBLDEF	int		process_exiting;
+GBLDEF	int4		dollar_zsystem;
+GBLDEF	int4		dollar_zeditor;
+GBLDEF	boolean_t	sem_incremented = FALSE;
+GBLDEF	boolean_t	new_dbinit_ipc = FALSE;
+GBLDEF	mval		**ind_result_array, **ind_result_sp, **ind_result_top;
+GBLDEF	mval		**ind_source_array, **ind_source_sp, **ind_source_top;
+GBLDEF	rtn_tabent	*rtn_fst_table, *rtn_names, *rtn_names_top, *rtn_names_end;
+GBLDEF	int4		break_message_mask;
+GBLDEF	bool		rc_locked = FALSE;
+GBLDEF	boolean_t	certify_all_blocks = FALSE;	/* If flag is set all blocks are checked after they are
+							 * written to the database.  Upon error we stay critical
+							 * and report.  This flag can be set via the MUMPS command
+							 * VIEW "GDSCERT":1. */
+GBLDEF	mval		curr_gbl_root;
+GBLDEF	gd_addr		*original_header;
+GBLDEF	hash_table_mname *gd_tab_ptr = NULL;
+GBLDEF	mem_list	*mem_list_head;
+GBLDEF	boolean_t	debug_mupip;
+GBLDEF	unsigned char	t_fail_hist[CDB_MAX_TRIES];
+GBLDEF	cache_rec_ptr_t	cr_array[((MAX_BT_DEPTH * 2) - 1) * 2];	/* Maximum number of blocks that can be in transaction */
+GBLDEF	unsigned int	cr_array_index;
+GBLDEF	boolean_t	need_core;		/* Core file should be created */
+GBLDEF	boolean_t	created_core;		/* core file was created */
+GBLDEF	boolean_t	core_in_progress;	/* creating core NOW */
+GBLDEF	boolean_t	dont_want_core;		/* Higher level flag overrides need_core set by lower level rtns */
+GBLDEF	boolean_t	exit_handler_active;	/* recursion prevention */
+GBLDEF	boolean_t	block_saved;
+#if defined(KEEP_zOS_EBCDIC) || defined(VMS)
+GBLDEF	iconv_t		dse_over_cvtcd = (iconv_t)0;
+#endif
+GBLDEF	gtm_chset_t	dse_over_chset = CHSET_M;
+GBLDEF	short int	last_source_column;
+GBLDEF	char		window_token;
+GBLDEF	mval		window_mval;
+GBLDEF	char		director_token;
+GBLDEF	mval		director_mval;
+LITDEF	MIDENT_DEF(zero_ident, 0, NULL);		/* the null mident */
+static char 		ident_buff1[sizeof(mident_fixed)];
+static char 		ident_buff2[sizeof(mident_fixed)];
+GBLDEF	MIDENT_DEF(window_ident, 0, &ident_buff1[0]);	/* the current identifier */
+GBLDEF	MIDENT_DEF(director_ident, 0, &ident_buff2[0]);	/* the look-ahead identifier */
+GBLDEF	char		*lexical_ptr;
+GBLDEF	int4		aligned_source_buffer[MAX_SRCLINE / sizeof(int4) + 1];
+GBLDEF	unsigned char	*source_buffer = (unsigned char *)aligned_source_buffer;
+GBLDEF	int4		source_error_found;
+GBLDEF	src_line_struct	src_head;
+GBLDEF	bool		code_generated;
+GBLDEF	short int	source_column, source_line;
+GBLDEF	bool		devctlexp;
+GBLDEF 	char		cg_phase;       /* code generation phase */
+/* Previous code generation phase: Only used by emit_code.c to initialize the push list at the
+ * beginning of each phase (bug fix: C9D12-002478) */
+GBLDEF 	char		cg_phase_last;
+
+GBLDEF	int		cmd_cnt;
+
+GBLDEF	command_qualifier	glb_cmd_qlf = { CQ_DEFAULT },
+				cmd_qlf = { CQ_DEFAULT };
+#ifdef __osf__
+#pragma pointer_size (save)
+#pragma pointer_size (long)
+#endif
+GBLDEF	char		**cmd_arg;
+#ifdef __osf__
+#pragma pointer_size (restore)
+#endif
+
+#ifndef __vax
+GBLDEF	fnpc_area	fnpca;			/* $piece cache structure area */
+#endif
+
+#ifdef UNIX
+GBLDEF	volatile uint4	heartbeat_counter = 0;
+#endif
+
+/* DEFERRED EVENTS */
+GBLDEF	int		dollar_zmaxtptime = 0;
+GBLDEF	bool		licensed = TRUE;
+
+#if defined(UNIX)
+GBLDEF	volatile int4		num_deferred;
+#elif defined(VMS)
+GBLDEF	volatile short		num_deferred;
+GBLDEF	int4 			lkid, lid;
+GBLDEF	desblk			exi_blk;
+GBLDEF	struct chf$signal_array	*tp_restart_fail_sig;
+GBLDEF	boolean_t		tp_restart_fail_sig_used;
+#else
+# error "Unsupported Platform"
+#endif
+
+GBLDEF	volatile	int4		fast_lock_count = 0;	/* Used in wcs_stale */
+
+/* REPLICATION RELATED GLOBALS */
+GBLDEF	gtmsource_options_t	gtmsource_options;
+GBLDEF	gtmrecv_options_t	gtmrecv_options;
+
+GBLDEF	unsigned char		*profstack_base, *profstack_top, *prof_msp, *profstack_warn;
+GBLDEF	unsigned char		*prof_stackptr;
+GBLDEF	boolean_t		is_tracing_on;
+GBLDEF	stack_frame_prof	*prof_fp;
+GBLDEF	void			(*tp_timeout_start_timer_ptr)(int4 tmout_sec) = tp_start_timer_dummy;
+GBLDEF	void			(*tp_timeout_clear_ptr)(void) = tp_clear_timeout_dummy;
+GBLDEF	void			(*tp_timeout_action_ptr)(void) = tp_timeout_action_dummy;
+GBLDEF	void			(*ctrlc_handler_ptr)() = ctrlc_handler_dummy;
+GBLDEF	int			(*op_open_ptr)(mval *v, mval *p, int t, mval *mspace) = op_open_dummy;
+GBLDEF	void			(*unw_prof_frame_ptr)(void) = unw_prof_frame_dummy;
+GBLDEF	boolean_t		mu_reorg_process = FALSE;	/* set to TRUE by MUPIP REORG */
+GBLDEF	boolean_t		mu_reorg_in_swap_blk = FALSE;	/* set to TRUE for the duration of the call to "mu_swap_blk" */
+GBLDEF	boolean_t		mu_rndwn_process = FALSE;
+GBLDEF	gv_key			*gv_currkey_next_reorg;
+GBLDEF	gv_namehead		*reorg_gv_target;
+
+#ifdef UNIX
+GBLDEF	struct sockaddr_un	gtmsecshr_sock_name;
+GBLDEF	struct sockaddr_un	gtmsecshr_cli_sock_name;
+GBLDEF	key_t			gtmsecshr_key;
+#endif
+GBLDEF	int			gtmsecshr_sockpath_len;
+GBLDEF	int			gtmsecshr_cli_sockpath_len;
+GBLDEF	mstr			gtmsecshr_pathname;
+GBLDEF	int			server_start_tries;
+GBLDEF	int			gtmsecshr_log_file;
+GBLDEF	int			gtmsecshr_sockfd = -1;
+GBLDEF	boolean_t		gtmsecshr_sock_init_done = FALSE;
+GBLDEF	char			muext_code[MUEXT_MAX_TYPES][2] =
+				{	{'0', '0'},
+					{'0', '1'},
+					{'0', '2'},
+					{'0', '3'},
+					{'0', '4'},
+					{'0', '5'},
+					{'0', '6'},
+					{'0', '7'},
+					{'0', '8'},
+					{'0', '9'},
+					{'1', '0'}
+				};
+GBLDEF	int			patch_is_fdmp;
+GBLDEF	int			patch_fdmp_recs;
+GBLDEF	boolean_t		horiz_growth = FALSE;
+GBLDEF	int4			prev_first_off, prev_next_off;
+				/* these two globals store the values of first_off and next_off in cse,
+				 * when there is a blk split at index level. This is to permit rollback
+				 * to intermediate states */
+GBLDEF	sm_uc_ptr_t		min_mmseg;
+GBLDEF	sm_uc_ptr_t		max_mmseg;
+GBLDEF	mmseg			*mmseg_head;
+GBLDEF	ua_list			*first_ua, *curr_ua;
+GBLDEF	char			*update_array, *update_array_ptr;
+GBLDEF	int			gv_fillfactor = 100,
+				rc_set_fragment;       /* Contains offset within data at which data fragment starts */
+GBLDEF	uint4			update_array_size = 0,
+				cumul_update_array_size = 0;    /* the current total size of the update array */
+GBLDEF	kill_set		*kill_set_tail;
+GBLDEF	boolean_t		pool_init = FALSE;
+GBLDEF	boolean_t		is_src_server = FALSE;
+GBLDEF	boolean_t		is_rcvr_server = FALSE;
+GBLDEF	jnl_format_buffer	*non_tp_jfb_ptr = NULL;
+GBLDEF	unsigned char		*non_tp_jfb_buff_ptr;
+GBLDEF	boolean_t		dse_running = FALSE;
+GBLDEF	jnlpool_addrs		jnlpool;
+GBLDEF	jnlpool_ctl_ptr_t	jnlpool_ctl;
+GBLDEF	jnlpool_ctl_struct	temp_jnlpool_ctl_struct;
+GBLDEF	jnlpool_ctl_ptr_t	temp_jnlpool_ctl = &temp_jnlpool_ctl_struct;
+GBLDEF	sm_uc_ptr_t		jnldata_base;
+GBLDEF	int4			jnlpool_shmid = INVALID_SHMID;
+GBLDEF	recvpool_addrs		recvpool;
+GBLDEF	int			recvpool_shmid = INVALID_SHMID;
+GBLDEF	int			gtmsource_srv_count = 0;
+GBLDEF	int			gtmrecv_srv_count = 0;
+
+/* The following _in_prog counters are needed to prevent deadlocks while doing jnl-qio (timer & non-timer). */
+GBLDEF	volatile int4		db_fsync_in_prog;
+GBLDEF	volatile int4		jnl_qio_in_prog;
+#ifdef UNIX
+GBLDEF	gtmsiginfo_t		signal_info;
+#ifndef MUTEX_MSEM_WAKE
+GBLDEF	int			mutex_sock_fd = -1;
+GBLDEF	struct sockaddr_un	mutex_sock_address;
+GBLDEF	struct sockaddr_un	mutex_wake_this_proc;
+GBLDEF	int			mutex_wake_this_proc_len;
+GBLDEF	int			mutex_wake_this_proc_prefix_len;
+GBLDEF	fd_set			mutex_wait_on_descs;
+#endif
+#endif
+GBLDEF	void			(*call_on_signal)();
+GBLDEF	gtmImageName		gtmImageNames[n_image_types] =
+{
+#define IMAGE_TABLE_ENTRY(A,B)	{LIT_AND_LEN(B)},
+#include "gtmimagetable.h"
+#undef IMAGE_TABLE_ENTRY
+};
+GBLDEF	enum gtmImageTypes	image_type;	/* initialized at startup i.e. in dse.c, lke.c, gtm.c, mupip.c, gtmsecshr.c etc. */
+GBLDEF	volatile boolean_t	semwt2long;
+
+#ifdef UNIX
+GBLDEF	parmblk_struct 		*param_list; /* call-in parameters block (defined in unix/fgncalsp.h)*/
+GBLDEF	unsigned int		invocation_mode = MUMPS_COMPILE; /* how mumps has been invoked */
+GBLDEF	char			cli_err_str[MAX_CLI_ERR_STR] = "";   /* Parse Error message buffer */
+GBLDEF	char			*cli_err_str_ptr = NULL;
+#endif
+
+/* this array is indexed by file descriptor */
+GBLDEF	boolean_t		*lseekIoInProgress_flags = (boolean_t *)0;
+
+#if defined(UNIX)
+/* Latch variable for Unix implementations. Used in SUN and HP */
+GBLDEF	global_latch_t		defer_latch;
+#endif
+
+GBLDEF	int			num_additional_processors;
+GBLDEF	int			gtm_errno = -1;		/* holds the errno (unix) in case of an rts_error */
+GBLDEF	int4			error_condition = 0;
+GBLDEF	global_tlvl_info	*global_tlvl_info_head;
+GBLDEF	buddy_list		*global_tlvl_info_list;
+GBLDEF	boolean_t		job_try_again;
+GBLDEF	volatile int4		gtmMallocDepth;		/* Recursion indicator */
+GBLDEF	d_socket_struct		*socket_pool;
+GBLDEF	boolean_t		disable_sigcont = FALSE;
+GBLDEF	boolean_t		mu_star_specified;
+GBLDEF	backup_reg_list		*mu_repl_inst_reg_list;
+
+#ifndef VMS
+GBLDEF	volatile int		suspend_status = NO_SUSPEND;
+#endif
+
+GBLDEF	gv_namehead		*reset_gv_target = INVALID_GV_TARGET;
+GBLDEF	VSIG_ATOMIC_T		util_interrupt = 0;
+GBLDEF	boolean_t		kip_incremented;
+GBLDEF	boolean_t		need_kip_incr;
+GBLDEF	int			merge_args = 0;
+GBLDEF	merge_glvn_ptr		mglvnp = NULL;
+GBLDEF	int			ztrap_form;
+GBLDEF	boolean_t		ztrap_new;
+GBLDEF	int4			wtfini_in_prog;
+/* items for $piece stats */
+#ifdef DEBUG
+GBLDEF	int	c_miss;				/* cache misses (debug) */
+GBLDEF	int	c_hit;				/* cache hits (debug) */
+GBLDEF	int	c_small;			/* scanned small string brute force */
+GBLDEF	int	c_small_pcs;			/* chars scanned by small scan */
+GBLDEF	int	c_pskip;			/* number of pieces "skipped" */
+GBLDEF	int	c_pscan;			/* number of pieces "scanned" */
+GBLDEF	int	c_parscan;			/* number of partial scans (partial cache hits) */
+GBLDEF	int	cs_miss;			/* cache misses (debug) */
+GBLDEF	int	cs_hit;				/* cache hits (debug) */
+GBLDEF	int	cs_small;			/* scanned small string brute force */
+GBLDEF	int	cs_small_pcs;			/* chars scanned by small scan */
+GBLDEF	int	cs_pskip;			/* number of pieces "skipped" */
+GBLDEF	int	cs_pscan;			/* number of pieces "scanned" */
+GBLDEF	int	cs_parscan;			/* number of partial scans (partial cache hits) */
+GBLDEF	int	c_clear;			/* cleared due to (possible) value change */
+GBLDEF	boolean_t	setp_work;
+#endif
+GBLDEF z_records	zbrk_recs = {NULL, NULL, NULL};
+
+#ifdef UNIX
+GBLDEF	ipcs_mesg	db_ipcs;		/* For requesting gtmsecshr to update ipc fields */
+GBLDEF	gd_region	*ftok_sem_reg = NULL;	/* Last region for which ftok semaphore is grabbed */
+GBLDEF	gd_region	*standalone_reg = NULL;	/* We have standalone access for this region */
+GBLDEF	int		gtm_non_blocked_write_retries; /* number of retries for non-blocked write to pipe */
+#endif
+
+#ifdef VMS
+/* Following global variables store the state of an erroring sys$qio just before a GTMASSERT in the CHECK_CHANNEL_STATUS macro */
+GBLDEF	uint4	check_channel_status = 0;	/* stores the qio return status */
+GBLDEF	uint4	check_channel_id = 0;		/* stores the qio channel id */
+#endif
+
+GBLDEF	boolean_t		write_after_image = FALSE;	/* true for after-image jnlrecord writing by recover/rollback */
+GBLDEF	int			iott_write_error;
+GBLDEF	boolean_t		recovery_success = FALSE; /* To Indicate successful recovery */
+GBLDEF	int4			write_filter;
+GBLDEF	int4			zdate_form = 0;
+GBLDEF	boolean_t		need_no_standalone = FALSE;
+
+GBLDEF	int4	zdir_form = ZDIR_FORM_FULLPATH; /* $ZDIR shows full path including DEVICE and DIRECTORY */
+GBLDEF	mval	dollar_zdir = DEFINE_MVAL_LITERAL(MV_STR, 0, 0, 0, NULL, 0, 0);
+
+GBLDEF	int * volatile		var_on_cstack_ptr = NULL; /* volatile pointer to int; volatile so that nothing gets optimized out */
+GBLDEF	boolean_t		gtm_environment_init = FALSE;
+GBLDEF	hash_table_int4		cw_stagnate;
+GBLDEF	boolean_t		cw_stagnate_reinitialized = FALSE;
+
+GBLDEF	uint4		pat_everything[] = { 0, 2, PATM_E, 1, 0, PAT_MAX_REPEAT, 0, PAT_MAX_REPEAT, 1 }; /* pattern = ".e" */
+GBLDEF	mstr_len_t	sizeof_pat_everything = SIZEOF(pat_everything);
+
+GBLDEF	uint4		*pattern_typemask;
+GBLDEF	pattern		*pattern_list;
+GBLDEF	pattern		*curr_pattern;
+
+/* Unicode related data */
+GBLDEF	boolean_t	gtm_utf8_mode;		/* Is GT.M running with Unicode Character Set; Set only after ICU initialization */
+GBLDEF	boolean_t	is_gtm_chset_utf8;	/* Is gtm_chset environment variable set to UTF8 */
+GBLDEF	boolean_t	utf8_patnumeric;	/* Should patcode N match non-ASCII numbers in pattern match ? */
+GBLDEF	boolean_t	badchar_inhibit = FALSE;/* Suppress malformed UTF-8 characters by default */
+GBLDEF  MSTR_DEF(dollar_zchset, 1, "M");
+GBLDEF  MSTR_DEF(dollar_zpatnumeric, 1, "M");
+
+/* Standard MUMPS pattern-match table.
+ * This table holds the current pattern-matching attributes of each ASCII character.
+ * Bits 0..23 of each entry correspond with the pattern-match characters, A..X.
+ */
+GBLDEF pattern mumps_pattern = {
+	(void *) 0,		/* flink */
+	(void *) 0,		/* typemask */
+	(void *) 0,		/* pat YZ name array */
+	(void *) 0,		/* pat YZ name-length array */
+	-1,			/* number of YZ patcodes */
+	1,			/* namlen */
+	{'M', '\0'}		/* name */
+};
+
+/* mapbit is used by pattab.c and patstr.c. Note that patstr.c uses only entries until PATM_X */
+GBLDEF	readonly uint4	mapbit[] =
+{
+	PATM_A, PATM_B, PATM_C, PATM_D, PATM_E, PATM_F, PATM_G, PATM_H,
+	PATM_I, PATM_J, PATM_K, PATM_L, PATM_M, PATM_N, PATM_O, PATM_P,
+	PATM_Q, PATM_R, PATM_S, PATM_T, PATM_U, PATM_V, PATM_W, PATM_X,
+	PATM_YZ1, PATM_YZ2, PATM_YZ3, PATM_YZ4
+};
+
+LITDEF	uint4	typemask[PATENTS] =
+{
+	PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C,	/* hex 00-07 : ASCII characters */
+	PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C,	/* hex 08-0F : ASCII characters */
+	PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C,	/* hex 10-17 : ASCII characters */
+	PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C,	/* hex 18-1F : ASCII characters */
+	PATM_P, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P,	/* hex 20-27 : ASCII characters */
+	PATM_P, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P,	/* hex 28-2F : ASCII characters */
+	PATM_N, PATM_N, PATM_N, PATM_N, PATM_N, PATM_N, PATM_N, PATM_N,	/* hex 30-37 : ASCII characters */
+	PATM_N, PATM_N, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P,	/* hex 38-3F : ASCII characters */
+	PATM_P, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U,	/* hex 40-47 : ASCII characters */
+	PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U,	/* hex 48-4F : ASCII characters */
+	PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U,	/* hex 50-57 : ASCII characters */
+	PATM_U, PATM_U, PATM_U, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P,	/* hex 58-5F : ASCII characters */
+	PATM_P, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L,	/* hex 60-67 : ASCII characters */
+	PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L,	/* hex 68-6F : ASCII characters */
+	PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L,	/* hex 70-77 : ASCII characters */
+	PATM_L, PATM_L, PATM_L, PATM_P, PATM_P, PATM_P, PATM_P, PATM_C,	/* hex 78-7F : ASCII characters */
+	PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C,	/* hex 80-87 : non-ASCII characters */
+	PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C,	/* hex 88-8F : non-ASCII characters */
+	PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C,	/* hex 90-97 : non-ASCII characters */
+	PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C, PATM_C,	/* hex 98-9F : non-ASCII characters */
+	PATM_P, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P,	/* hex A0-A7 : non-ASCII characters */
+	PATM_P, PATM_P, PATM_L, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P,	/* hex A8-AF : non-ASCII characters */
+	PATM_P, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P,	/* hex B0-B7 : non-ASCII characters */
+	PATM_P, PATM_P, PATM_L, PATM_P, PATM_P, PATM_P, PATM_P, PATM_P,	/* hex B8-BF : non-ASCII characters */
+	PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U,	/* hex C0-C7 : non-ASCII characters */
+	PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U,	/* hex C8-CF : non-ASCII characters */
+	PATM_P, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U,	/* hex D0-D7 : non-ASCII characters */
+	PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_U, PATM_P, PATM_L,	/* hex D8-DF : non-ASCII characters */
+	PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L,	/* hex E0-E7 : non-ASCII characters */
+	PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L,	/* hex E8-EF : non-ASCII characters */
+	PATM_P, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L,	/* hex F0-F7 : non-ASCII characters */
+	PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_L, PATM_P, PATM_C	/* hex F8-FF : non-ASCII characters */
+};
+
+GBLDEF	uint4		pat_allmaskbits;	/* universal set of valid pattern bit codes for currently active pattern table */
+
+/* globals related to caching of pattern evaluation match result.
+ * for a given <strptr, strlen, patptr, depth> tuple, we store the evaluation result.
+ * in the above,
+ *	<strptr, strlen>	uniquely identifies a substring of the input string.
+ *	<patptr>		identifies the pattern atom that we are matching with
+ *	<depth>			identifies the recursion depth of do_patalt() for this pattern atom ("repcnt" in code)
+ * note that <depth> is a necessity in the above because the same alternation pattern atom can have different
+ *	match or not-match status for the same input string depending on the repetition count usage of the pattern atom
+ * after a series of thoughts on an efficient structure for storing pattern evaluation, finally arrived at a simple
+ *	array of structures wherein for a given length (strlen) we have a fixed number of structures available.
+ * we allocate an array of structures, say, 1024 structures.
+ * this is a simple 1-1 mapping, wherein
+ *	for length 0, the available structures are the first 32 structures of the array,
+ *	for length 1, the available structures are the second 32 structures of the array.
+ *	...
+ *	for length 47, the available structures are the 47th 32 structures of the array.
+ *	for length 48 and above, the available structures are all the remaining structures of the array.
+ * whenever any new entry needs to be cached and there is no room among the available structures, we preempt the
+ *	most unfrequently used cache entry (to do this we do keep a count of every entry's frequency of usage)
+ * the assumption is that substrings of length > 48 (an arbitrary reasonable small number) won't be used
+ *	so frequently so that they have lesser entries to fight for among themselves than lower values of length.
+ * with the above caching in place, the program segment below took 15 seconds.
+ * it was found that if the array size is increased to 16384 (as opposed to 1024 as above) and the available
+ *	structures for each length increased proportionally (i.e. 16 times = 16*32 structures instead of 32 as above)
+ *	the performance improved to the extent of taking 3 seconds.
+ * but this raised an interesting question, that of "size" vs. "time" tradeoff.
+ * with increasing array size, we get better "time" performance due to better caching.
+ * but that has an overhead of increased "size" (memory) usage.
+ * to arrive at a compromise, a dynamic algorithm emerged. the process will allocate a small array
+ *	beginning at 1024 entries and grow to a max of 16384 entries as and when it deems the hit ratio is not good.
+ * the array only grows, i.e. there is no downsizing algorithm at play.
+ * the dynamic algorithm addresses to an extent both the "size" and "time" issues and finishes the below in 1 second.
+ * #defines for the dynamic algorithm growth can be found in patcode.h
+ */
+GBLDEF	int4		curalt_depth = -1;				/* depth of alternation nesting */
+GBLDEF	int4		do_patalt_calls[PTE_MAX_CURALT_DEPTH];		/* number of calls to do_patalt() */
+GBLDEF	int4		do_patalt_hits[PTE_MAX_CURALT_DEPTH];		/* number of pte_csh hits in do_patalt() */
+GBLDEF	int4		do_patalt_maxed_out[PTE_MAX_CURALT_DEPTH];	/* no. of pte_csh misses after maxing on allocation size */
+
+GBLDEF	pte_csh		*pte_csh_array[PTE_MAX_CURALT_DEPTH];		/* pte_csh array (per curalt_depth) */
+GBLDEF	int4		pte_csh_cur_size[PTE_MAX_CURALT_DEPTH];		/* current pte_csh size (per curalt_depth) */
+GBLDEF	int4		pte_csh_alloc_size[PTE_MAX_CURALT_DEPTH];	/* current allocated pte_csh size (per curalt_depth) */
+GBLDEF	int4		pte_csh_entries_per_len[PTE_MAX_CURALT_DEPTH];	/* current number of entries per len */
+GBLDEF	int4		pte_csh_tail_count[PTE_MAX_CURALT_DEPTH];	/* count of non 1-1 corresponding pte_csh_array members */
+
+GBLDEF	pte_csh		*cur_pte_csh_array;			/* copy of pte_csh_array corresponding to curalt_depth */
+GBLDEF	int4		cur_pte_csh_size;			/* copy of pte_csh_cur_size corresponding to curalt_depth */
+GBLDEF	int4		cur_pte_csh_entries_per_len;		/* copy of pte_csh_entries_per_len corresponding to curalt_depth */
+GBLDEF	int4		cur_pte_csh_tail_count;			/* copy of pte_csh_tail_count corresponding to curalt_depth */
+
+GBLDEF	readonly char	*before_image_lit[] = {"NOBEFORE_IMAGES", "BEFORE_IMAGES"};
+GBLDEF	readonly char	*jnl_state_lit[]    = {"DISABLED", "OFF", "ON"};
+GBLDEF	readonly char	*repl_state_lit[]   = {"OFF", "ON", "WAS_ON"};
+
+GBLDEF	boolean_t	crit_sleep_expired;		/* mutex.mar: signals that a timer waiting for crit has expired */
+GBLDEF	uint4		crit_deadlock_check_cycle;	/* compared to csa->crit_check_cycle to determine if a given region
+							   in a transaction legitimately has crit or not */
+GBLDEF	node_local_ptr_t	locknl;		/* if non-NULL, indicates node-local of interest to the LOCK_HIST macro */
+GBLDEF	boolean_t	in_mutex_deadlock_check;	/* if TRUE, mutex_deadlock_check() is part of our current C-stack trace */
+/* $ECODE and $STACK related variables.
+ * error_frame and skip_error_ret should ideally be part of dollar_ecode structure. since sr_avms/opp_ret.m64 uses these
+ * global variables and it was felt risky changing it to access a member of a structure, they are kept as separate globals */
+GBLDEF	stack_frame		*error_frame;		/* ptr to frame where last error occurred or was rethrown */
+GBLDEF	boolean_t		skip_error_ret;		/* set to TRUE by golevel(), used and reset by op_unwind() */
+GBLDEF	dollar_ecode_type	dollar_ecode;		/* structure containing $ECODE related information */
+GBLDEF	dollar_stack_type	dollar_stack;		/* structure containing $STACK related information */
+GBLDEF	boolean_t		ztrap_explicit_null;	/* whether $ZTRAP was explicitly set to NULL in the current frame */
+GBLDEF	int4			gtm_object_size;	/* Size of entire gtm object for compiler use */
+GBLDEF	int4			linkage_size;		/* Size of linkage section during compile */
+GBLDEF	uint4			lnkrel_cnt;		/* number of entries in linkage Psect to relocate */
+GBLDEF  int4			sym_table_size;		/* size of the symbol table during compilation */
+GBLDEF	boolean_t		disallow_forced_expansion, forced_expansion; /* Used in stringpool managment */
+GBLDEF	jnl_fence_control	jnl_fence_ctl;
+GBLDEF	jnl_process_vector	*prc_vec = NULL;		/* for current process */
+GBLDEF	jnl_process_vector	*originator_prc_vec = NULL;	/* for client/originator */
+LITDEF	char	*jrt_label[JRT_RECTYPES] =
+{
+#define JNL_TABLE_ENTRY(rectype, extract_rtn, label, update, fixed_size, is_replicated)	label,
+#include "jnl_rec_table.h"
+#undef JNL_TABLE_ENTRY
+};
+LITDEF	int	jrt_update[JRT_RECTYPES] =
+{
+#define JNL_TABLE_ENTRY(rectype, extract_rtn, label, update, fixed_size, is_replicated)	update,
+#include "jnl_rec_table.h"
+#undef JNL_TABLE_ENTRY
+};
+LITDEF	boolean_t	jrt_fixed_size[JRT_RECTYPES] =
+{
+#define JNL_TABLE_ENTRY(rectype, extract_rtn, label, update, fixed_size, is_replicated)	fixed_size,
+#include "jnl_rec_table.h"
+#undef JNL_TABLE_ENTRY
+};
+LITDEF	boolean_t	jrt_is_replicated[JRT_RECTYPES] =
+{
+#define JNL_TABLE_ENTRY(rectype, extract_rtn, label, update, fixed_size, is_replicated)	is_replicated,
+#include "jnl_rec_table.h"
+#undef JNL_TABLE_ENTRY
+};
+/* Change the initialization if struct_jrec_tcom in jnl.h changes */
+GBLDEF	struct_jrec_tcom	tcom_record = {{JRT_TCOM, TCOM_RECLEN, 0, 0, 0},
+					0, "", 0, {TCOM_RECLEN, JNL_REC_SUFFIX_CODE}};
+GBLDEF 	jnl_gbls_t		jgbl;
+GBLDEF short 		crash_count;
+GBLDEF trans_num	start_tn;
+GBLDEF cw_set_element	cw_set[CDB_CW_SET_SIZE];
+GBLDEF unsigned char	cw_set_depth, cw_map_depth;
+GBLDEF unsigned int	t_tries;
+GBLDEF uint4		t_err;
+GBLDEF int4		update_trans;	/* TRUE whenever a non-TP transaction needs to increment the database transaction number.
+					 * usually TRUE if cw_set_depth/cw_map_depth of the current non-TP transaction is non-zero,
+					 * but additionally TRUE in case of a redundant set in gvcst_put.c
+					 * can take on a special value T_COMMIT_STARTED in t_end/tp_tend hence is not "boolean_t"
+					 */
+GBLDEF	boolean_t	mu_rndwn_file_dbjnl_flush;	/* to indicate standalone access is available to shared memory so
+							 * wcs_recover() need not increment db curr_tn or write inctn record */
+
+GBLDEF	boolean_t	is_uchar_wcs_code[] = 	/* uppercase failure codes that imply database cache related problem */
+{	/* if any of the following failure codes are seen in the final retry, wc_blocked will be set to trigger cache recovery */
+#define	CDB_SC_NUM_ENTRY(code, value)
+#define CDB_SC_UCHAR_ENTRY(code, is_wcs_code, value)	is_wcs_code,
+#define	CDB_SC_LCHAR_ENTRY(code, is_wcs_code, value)
+#include "cdb_sc_table.h"
+#undef CDB_SC_NUM_ENTRY
+#undef CDB_SC_UCHAR_ENTRY
+#undef CDB_SC_LCHAR_ENTRY
+};
+
+GBLDEF	boolean_t	is_lchar_wcs_code[] = 	/* lowercase failure codes that imply database cache related problem */
+{	/* if any of the following failure codes are seen in the final retry, wc_blocked will be set to trigger cache recovery */
+#define	CDB_SC_NUM_ENTRY(code, value)
+#define CDB_SC_UCHAR_ENTRY(code, is_wcs_code, value)
+#define	CDB_SC_LCHAR_ENTRY(code, is_wcs_code, value)	is_wcs_code,
+#include "cdb_sc_table.h"
+#undef CDB_SC_NUM_ENTRY
+#undef CDB_SC_UCHAR_ENTRY
+#undef CDB_SC_LCHAR_ENTRY
+};
+
+GBLDEF	mval	last_fnquery_return_varname;			/* Return value of last $QUERY (on stringpool) (varname) */
+GBLDEF	mval	last_fnquery_return_sub[MAX_LVSUBSCRIPTS];	/* .. (subscripts) */
+GBLDEF	int	last_fnquery_return_subcnt	;		/* .. (count of subscripts) */
+
+GBLDEF	boolean_t	gvdupsetnoop = FALSE;	/* if TRUE, duplicate SETs do not change GDS block (and therefore no PBLK journal
+						 * records will be written) although the database transaction number will be
+						 * incremented and logical SET journal records will be written.
+						 */
+GBLDEF boolean_t	gtm_fullblockwrites;	/* Do full (not partial) database block writes T/F */
+UNIX_ONLY(GBLDEF int4	gtm_shmflags;)		/* Extra flags for shmat */
+#ifdef VMS
+GBLDEF	uint4	gtm_memory_noaccess_defined;	/* count of the number of GTM_MEMORY_NOACCESS_ADDR logicals which are defined */
+GBLDEF	uint4	gtm_memory_noaccess[GTM_MEMORY_NOACCESS_COUNT];	/* see VMS gtm_env_init_sp.c */
+#endif
+
+GBLDEF	volatile boolean_t	in_wcs_recover = FALSE;	/* TRUE if in wcs_recover(), used by "bt_put" and "generic_exit_handler" */
+
+/* Following definitions are related to white_box testing */
+GBLDEF	boolean_t	gtm_white_box_test_case_enabled = FALSE;
+GBLDEF	int		gtm_white_box_test_case_number = 0;
+GBLDEF	int		gtm_white_box_test_case_count = 0;
+GBLDEF	int 		gtm_wbox_input_test_case_count = 0; /* VMS allows maximum 31 characters for external identifer */
+
+GBLDEF	boolean_t	in_gvcst_incr = FALSE;	/* set to TRUE by gvcst_incr, set to FALSE by gvcst_put
+						 * distinguishes to gvcst_put, if the current db operation is a SET or $INCR */
+GBLDEF	mval		*post_incr_mval;	/* mval pointing to the post-$INCR value */
+GBLDEF	mval		increment_delta_mval;	/* mval holding the INTEGER increment value, set by gvcst_incr,
+						 * used by gvcst_put/gvincr_recompute_upd_array which is invoked by t_end */
+GBLDEF	boolean_t	is_dollar_incr = FALSE;	/* valid only if gvcst_put is in the call-stack (i.e. t_err == ERR_GVPUTFAIL);
+						 * is a copy of "in_gvcst_incr" just before it got reset to FALSE */
+GBLDEF	boolean_t	pre_incr_update_trans;	/* copy of "sgm_info_ptr->update_trans" before the $INCR */
+GBLDEF	int		indir_cache_mem_size;	/* Amount of memory currently in use by indirect cache */
+GBLDEF	hash_table_mname   rt_name_tbl;
+GBLDEF	hash_table_objcode cache_table;
+GBLDEF  int		cache_hits, cache_fails;
+
+/* The alignment feature is disabled due to some issues in stringpool garbage collection.
+ * TODO: When we sort out stringpool issues, change mstr_native_align to TRUE below */
+GBLDEF	boolean_t	mstr_native_align = FALSE;
+GBLDEF boolean_t	save_mstr_native_align;
+
+GBLDEF	mvar		*mvartab;
+GBLDEF	mvax		*mvaxtab,*mvaxtab_end;
+GBLDEF	mlabel		*mlabtab;
+GBLDEF	mline		mline_root;
+GBLDEF	mline		*mline_tail;
+GBLDEF	short int	block_level;
+GBLDEF	triple		t_orig;
+GBLDEF	int		mvmax, mlmax, mlitmax;
+static	char		routine_name_buff[sizeof(mident_fixed)], module_name_buff[sizeof(mident_fixed)];
+GBLDEF	MIDENT_DEF(routine_name, 0, &routine_name_buff[0]);
+GBLDEF	MIDENT_DEF(module_name, 0, &module_name_buff[0]);
+GBLDEF	char		rev_time_buf[REV_TIME_BUFF_LEN];
+GBLDEF	unsigned short	source_name_len;
+GBLDEF	short		object_name_len;
+UNIX_ONLY(
+	GBLDEF unsigned char	source_file_name[MAX_FBUFF + 1];
+	GBLDEF unsigned char	object_file_name[MAX_FBUFF + 1];
+	GBLDEF int		object_file_des;
+)
+VMS_ONLY(
+	GBLDEF char		source_file_name[PATH_MAX];
+	GBLDEF char		object_file_name[256];
+	GBLDEF struct FAB	obj_fab;	/* file access block for the object file */
+)
+
+GBLDEF	int4		curr_addr, code_size;
+GBLDEF	mident_fixed	zlink_mname;
+GBLDEF	boolean_t	in_op_fnnext = FALSE;	/* set to TRUE by op_fnnext, set to FALSE by op_fnorder */
+
+GBLDEF	sm_uc_ptr_t	reformat_buffer;
+GBLDEF	int		reformat_buffer_len;
+GBLDEF	volatile int	reformat_buffer_in_use;	/* used only in DEBUG mode */
+
+GBLDEF	boolean_t	mu_reorg_upgrd_dwngrd_in_prog;	/* TRUE if MUPIP REORG UPGRADE/DOWNGRADE is in progress */
+GBLDEF	boolean_t	mu_reorg_nosafejnl;		/* TRUE if NOSAFEJNL explicitly specified */
+GBLDEF	trans_num	mu_reorg_upgrd_dwngrd_blktn;	/* tn in blkhdr of current block processed by MUPIP REORG {UP,DOWN}GRADE */
+
+GBLDEF	inctn_opcode_t	inctn_opcode = inctn_invalid_op;
+GBLDEF	inctn_detail_t	inctn_detail;			/* holds detail to fill in to inctn jnl record */
+GBLDEF	uint4		region_open_count;		/* Number of region "opens" we have executed */
+
+GBLDEF	uint4		gtm_blkupgrade_flag = UPGRADE_IF_NEEDED;	/* by default upgrade only if necessary */
+GBLDEF	boolean_t	disk_blk_read;
+
+GBLDEF	boolean_t	gtm_dbfilext_syslog_disable = FALSE;	/* by default, log every file extension message */
+
+GBLDEF	int4		cws_reorg_remove_index;			/* see mu_swap_blk.c for comments on the need for these two */
+GBLDEF	block_id	cws_reorg_remove_array[CWS_REORG_REMOVE_ARRAYSIZE];
+
+GBLDEF	uint4		log_interval;
+
+#ifdef UNIX
+GBLDEF	uint4		gtm_principal_editing_defaults;	/* ext_cap flags if tt */
+GBLDEF	boolean_t	in_repl_inst_edit = FALSE;	/* used by an assert in repl_inst_read/repl_inst_write */
+GBLDEF	boolean_t	in_repl_inst_create;		/* used by repl_inst_read/repl_inst_write */
+GBLDEF	boolean_t	holds_sem[NUM_SEM_SETS][NUM_SRC_SEMS];	/* whether a particular replication semaphore is being held
+								 * by the current process or not. */
+GBLDEF	boolean_t	print_offset;		/* Set to TRUE if -DETAIL is specified in MUPIP REPLIC -JNLPOOL or -EDITINST */
+GBLDEF	boolean_t	in_mupip_ftok;		/* Used by an assert in repl_inst_read */
+GBLDEF	uint4		section_offset;		/* Used by PRINT_OFFSET_PREFIX macro in repl_inst_dump.c */
+
+GBLDEF	uint4		mutex_per_process_init_pid;	/* pid that invoked "mutex_per_process_init" */
+GBLDEF	boolean_t	gtm_quiet_halt;		/* Suppress FORCEDHALT message */
+#endif
+
+#ifdef UNICODE_SUPPORTED
+/* Unicode line terminators.  In addition to the following
+ * codepoints, the sequence CR LF is considered a single
+ * line terminator.
+ */
+LITDEF UChar32 u32_line_term[] =
+{
+	0x000A,			/* Line Feed */
+	0x000D,			/* Carraige Return */
+	0x0085,			/* Next Line - EBCDIC mostly */
+	0x000C,			/* Form Feed */
+	UTF_LINE_SEPARATOR,	/* Line Separator */
+	UTF_PARA_SEPARATOR,	/* Paragraph Separator */
+	0x0000
+};
+
+/* Given the first byte in a UTF-8 representation, the following array returns the total number of bytes in the encoding
+ *	00-7F : 1 byte
+ *	C2-DF : 2 bytes
+ *	E0-EF : 3 bytes
+ *	F0-F4 : 4 bytes
+ *  All others: 1 byte
+ * For details on the UTF-8 encoding see gtm_utf8.h
+ */
+LITDEF unsigned int utf8_bytelen[] =
+{
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 00-1F */
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 20-3F */
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 40-5F */
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 60-7F */
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* 80-9F */
+	1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* A0-BF */
+	1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, /* C0-DF */
+	3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 4, 4, 4, 4, 4, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* E0-FF */
+};
+
+/* Given the first byte in a UTF-8 representation, the following array returns the number of bytes to follow
+ *	00-7F :  0 byte
+ *	C2-DF :  1 byte
+ *	E0-EF :  2 bytes
+ *	F0-F4 :  3 bytes
+ *  All others: -1 bytes
+ * For details on the UTF-8 encoding see gtm_utf8.h
+ */
+LITDEF signed int utf8_followlen[] =
+{
+	 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 00-1F */
+	 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 20-3F */
+	 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 40-5F */
+	 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, /* 60-7F */
+	-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, /* 80-9F */
+	-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, /* A0-BF */
+	-1,-1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, /* C0-DF */
+	 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 3, 3, 3,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1,-1, /* E0-FF */
+};
+
+GBLDEF	gtm_wcswidth_fnptr_t	gtm_wcswidth_fnptr;	/* see comment in gtm_utf8.h about this typedef */
+#endif
+
+GBLDEF	uint4			gtm_max_sockets;	/* Maximum sockets per socket device supported by this process */
+GBLDEF	d_socket_struct		*newdsocket;		/* Commonly used temp socket area */
+
+GBLDEF	boolean_t		dse_all_dump;		/* TRUE if DSE ALL -DUMP is specified */
+GBLDEF	int			socketus_interruptus;	/* How many times socket reads have been interrutped */
+
+GBLDEF	int4			pending_errtriplecode;	/* if non-zero contains the error code to invoke ins_errtriple with */
+
+GBLDEF	uint4	process_id;
+GBLDEF	uint4	image_count;	/* not used in UNIX but defined to preserve VMS compatibility */
+
+GBLDEF  size_t  totalRmalloc;                           /* Total storage currently (real) malloc'd (includes extent blocks) */
+GBLDEF  size_t  totalAlloc;                             /* Total allocated (includes allocation overhead but not free space */
+GBLDEF  size_t  totalUsed;                              /* Sum of user allocated portions (totalAlloc - overhead) */
+
+GBLDEF	size_t	totalRallocGta;				/* Total storage currently (real) mmap alloc'd */
+GBLDEF	size_t  totalAllocGta;                          /* Total mmap allocated (includes allocation overhead but not free space */
+GBLDEF	size_t  totalUsedGta;                           /* Sum of "in-use" portions (totalAllocGta - overhead) */
+
+GBLDEF	volatile char		*outOfMemoryMitigation;	/* Cache that we will freed to help cleanup if run out of memory */
+GBLDEF	uint4			outOfMemoryMitigateSize;/* Size of above cache (in Kbytes) */
+
+GBLDEF	int 			mcavail;
+GBLDEF	mcalloc_hdr 		*mcavailptr, *mcavailbase;
+
+GBLDEF	uint4			max_cache_memsize;	/* Maximum bytes used for indirect cache object code */
+GBLDEF	uint4			max_cache_entries;	/* Maximum number of cached indirect compilations */
+
+GBLDEF  void            (*cache_table_relobjs)(void);   /* Function pointer to call cache_table_rebuild() */
+UNIX_ONLY(GBLDEF ch_ret_type (*ht_rhash_ch)();)         /* Function pointer to hashtab_rehash_ch */
+UNIX_ONLY(GBLDEF ch_ret_type (*jbxm_dump_ch)();)        /* Function pointer to jobexam_dump_ch */
+
+#ifdef VMS
+GBLDEF	boolean_t		tp_has_kill_t_cse; /* cse->mode of kill_t_write or kill_t_create got created in this transaction */
+#endif
+
+#ifdef DEBUG
+/* Set to TRUE in a few selected places before wcs_recover is called. Any other place that calls wcs_recover in the final
+ * retry will fail an assert as we dont want to call cache recovery while in the middle of a transaction and confuse ourselves
+ * enough to cause further restarts (which is an out-of-design situation while in the final retry).
+ */
+GBLDEF	boolean_t		ok_to_call_wcs_recover;
+GBLDEF	uint4			donot_commit;	/* see gdsfhead.h for purpose of this debug-only global */
+#endif
+
+GBLDEF	cache_rec_ptr_t	pin_fail_cr;			/* Pointer to the cache-record that we failed while pinning */
+GBLDEF	cache_rec	pin_fail_cr_contents;		/* Contents of the cache-record that we failed while pinning */
+GBLDEF	cache_rec_ptr_t	pin_fail_twin_cr;		/* Pointer to twin of the cache-record that we failed to pin */
+GBLDEF	cache_rec	pin_fail_twin_cr_contents;	/* Contents of twin of the cache-record that we failed to pin */
+GBLDEF	bt_rec_ptr_t	pin_fail_bt;			/* Pointer to bt of the cache-record that we failed to pin */
+GBLDEF	bt_rec		pin_fail_bt_contents;		/* Contents of bt of the cache-record that we failed to pin */
+GBLDEF	int4		pin_fail_in_crit;		/* Holder of crit at the time we failed to pin */
+GBLDEF	int4		pin_fail_wc_in_free;		/* Number of write cache records in free queue when we failed to pin */
+GBLDEF	int4		pin_fail_wcs_active_lvl;	/* Number of entries in active queue when we failed to pin */
+GBLDEF	int4		pin_fail_ref_cnt;		/* Reference count when we failed to pin */
+GBLDEF	int4		pin_fail_in_wtstart;		/* Count of processes in wcs_wtstart when we failed to pin */
+GBLDEF	int4		pin_fail_phase2_commit_pidcnt;	/* Number of processes in phase2 commit when we failed to pin */
+
+#ifdef DEBUG
+GBLDEF	boolean_t	gtm_gvundef_fatal;
+GBLDEF	boolean_t	in_op_gvget;			/* TRUE if op_gvget() is a call ancestor in the C-stack */
+GBLDEF	boolean_t	ready2signal_gvundef;		/* TRUE if GET operation is about to signal a GVUNDEF */
+#endif
+
+GBLDEF	boolean_t	gtm_tp_allocation_clue;		/* block# hint to start allocation for created blocks in TP */
+
+#ifdef UNIX
+GBLDEF	int4		gtm_zlib_cmp_level;		/* zlib compression level specified at process startup */
+GBLDEF	int4		repl_zlib_cmp_level;		/* zlib compression level currently in use in replication pipe.
+							 * This is a source-server specific variable and is non-zero only
+							 * if compression is enabled and works in the receiver server as well.
+							 */
+GBLDEF	zlib_cmp_func_t		zlib_compress_fnptr;
+GBLDEF	zlib_uncmp_func_t	zlib_uncompress_fnptr;
+#endif
+
+GBLDEF	mlk_stats_t	mlk_stats;			/* Process-private M-lock statistics */
+
+#ifdef UNIX
+/* Initialized blockalrm and block_sigsent can be used by all */
+GBLDEF	boolean_t	blocksig_initialized = FALSE;	/* set to TRUE when blockalrm and block_sigsent are initialized */
+GBLDEF	sigset_t	blockalrm;
+GBLDEF	sigset_t	block_sigsent;	/* block all signals that can be sent externally
+					  (SIGINT, SIGQUIT, SIGTERM, SIGTSTP, SIGCONT) */
+#endif
+

=== added file 'src/gtm/sr_port/gtm_env_init.c'
--- src/gtm/sr_port/gtm_env_init.c	1970-01-01 00:00:00 +0000
+++ src/gtm/sr_port/gtm_env_init.c	2009-04-07 01:13:36 +0000
@@ -0,0 +1,216 @@
+/****************************************************************
+ *								*
+ *	Copyright 2004, 2008 Fidelity Information Services, Inc	*
+ *								*
+ *	This source code contains the intellectual property	*
+ *	of its copyright holder(s), and is made available	*
+ *	under a license.  If you do not know the terms of	*
+ *	the license, please stop and do not read further.	*
+ *								*
+ ****************************************************************/
+
+#include "mdef.h"
+
+#include "gtm_logicals.h"
+#include "gtm_stdlib.h"
+#include "gtm_string.h"
+#include "logical_truth_value.h"
+#include "trans_numeric.h"
+#include "gtmdbglvl.h"
+#include "iosp.h"
+#include "wbox_test_init.h"
+#include "gtm_env_init.h"	/* for gtm_env_init() and gtm_env_init_sp() prototype */
+#include "gt_timer.h"
+#include "io.h"
+#include "iotcpdef.h"
+#include "iosocketdef.h"
+#include "gtm_malloc.h"
+#include "cache.h"
+#include "gdsroot.h"		/* needed for gdsfhead.h */
+#include "gdskill.h"		/* needed for gdsfhead.h */
+#include "gdsbt.h"		/* needed for gdsfhead.h */
+#include "gdsfhead.h"		/* needed for MAXTOTALBLKS_MAX macro */
+#include "trans_log_name.h"
+#include "op.h"
+#include "svnames.h"
+
+#ifdef DEBUG
+#  define INITIAL_DEBUG_LEVEL GDL_Simple
+GBLDEF	boolean_t 	gtmdbglvl_inited;	/* gtmDebugLevel has been initialized */
+#else
+#  define INITIAL_DEBUG_LEVEL GDL_None
+#endif
+
+#ifdef FULLBLOCKWRITES
+#  define DEFAULT_FBW_FLAG TRUE
+#else
+#  define DEFAULT_FBW_FLAG FALSE
+#endif
+
+GBLREF	boolean_t	dollar_zquit_anyway;	/* if TRUE compile QUITs to not care whether or not they're from an extrinsic */
+GBLREF	boolean_t	gvdupsetnoop; 		/* if TRUE, duplicate SETs update journal but not database (except
+						   for curr_tn++) */
+GBLREF	uint4		gtmDebugLevel; 		/* Debug level (0 = using default sm module so with
+						   a DEBUG build, even level 0 implies basic debugging) */
+GBLREF	boolean_t	gtm_fullblockwrites;	/* Do full (not partial) database block writes T/F */
+GBLREF	boolean_t	certify_all_blocks;
+GBLREF	boolean_t	local_collseq_stdnull;  /* If true, standard null subscript collation will be used for local variables */
+GBLREF	uint4		gtm_blkupgrade_flag;	/* controls whether dynamic block upgrade is attempted or not */
+GBLREF	boolean_t	gtm_dbfilext_syslog_disable;	/* control whether db file extension message is logged or not */
+GBLREF	uint4		gtm_max_sockets;	/* Maximum sockets in a socket device that can be created by this process */
+GBLREF	bool		undef_inhibit;
+GBLREF	uint4		outOfMemoryMitigateSize;	/* Reserve that we will freed to help cleanup if run out of memory */
+GBLREF	uint4		max_cache_memsize;	/* Maximum bytes used for indirect cache object code */
+GBLREF	uint4		max_cache_entries;	/* Maximum number of cached indirect compilations */
+GBLREF	boolean_t	gtm_tp_allocation_clue;	/* block# hint to start allocation for created blocks in TP */
+
+GBLREF char		prombuf[MAX_MIDENT_LEN];
+GBLREF mstr		gtmprompt;
+
+#ifdef DEBUG
+GBLREF	boolean_t	gtm_gvundef_fatal;
+#endif
+
+void	gtm_env_init(void)
+{
+	static boolean_t	gtm_env_init_done = FALSE;
+	mstr			val;
+	boolean_t		ret, is_defined;
+	uint4			tdbglvl, tmsock, reservesize, memsize, cachent;
+	char*			prompt_env_val;
+
+	if (!gtm_env_init_done)
+	{
+		/* See if a debug level has been specified. Do this first since gtmDebugLevel needs
+		   to be initialized before any mallocs are done in the system.
+		*/
+		gtmDebugLevel = INITIAL_DEBUG_LEVEL;
+		val.addr = GTM_DEBUG_LEVEL_ENVLOG;
+		val.len = sizeof(GTM_DEBUG_LEVEL_ENVLOG) - 1;
+		if (tdbglvl = trans_numeric(&val, &is_defined, TRUE)) /* Note assignment!! */
+		{	/* Some kind of debugging was asked for.. */
+			tdbglvl |= GDL_Simple;			/* Make sure simple debugging turned on if any is */
+			if ((GDL_SmChkFreeBackfill | GDL_SmChkAllocBackfill) & tdbglvl)
+				tdbglvl |= GDL_SmBackfill;	/* Can't check it unless it's filled in */
+			if (GDL_SmStorHog & tdbglvl)
+				tdbglvl |= GDL_SmBackfill | GDL_SmChkAllocBackfill;
+			gtmDebugLevel |= tdbglvl;
+		}
+		DEBUG_ONLY(gtmdbglvl_inited = TRUE);
+
+		/* Duplicate Set Noop environment/logical */
+		val.addr = GTM_GVDUPSETNOOP;
+		val.len = sizeof(GTM_GVDUPSETNOOP) - 1;
+		assert(FALSE == gvdupsetnoop);	/* should have been set to FALSE in gbldefs.c */
+		ret = logical_truth_value(&val, FALSE, &is_defined);
+		if (is_defined)
+			gvdupsetnoop = ret; /* if the logical is not defined, we want gvdupsetnoop to take its default value */
+
+		/* NOUNDEF environment/logical */
+		val.addr = GTM_NOUNDEF;
+		val.len = sizeof(GTM_NOUNDEF) - 1;
+		assert(FALSE == undef_inhibit);	/* should have been set to FALSE at global variable definition time */
+		ret = logical_truth_value(&val, FALSE, &is_defined);
+		if (is_defined)
+			undef_inhibit = ret; /* if the logical is not defined, we want undef_inhibit to take its default value */
+
+#		ifdef DEBUG
+		/* GTM_GVUNDEF_FATAL environment/logical */
+		val.addr = GTM_GVUNDEF_FATAL;
+		val.len = sizeof(GTM_GVUNDEF_FATAL) - 1;
+		assert(FALSE == gtm_gvundef_fatal);	/* should have been set to FALSE in gbldefs.c */
+		ret = logical_truth_value(&val, FALSE, &is_defined);
+		if (is_defined)
+			gtm_gvundef_fatal = ret; /* if logical is not defined, we want gtm_gvundef_fatal to take default value */
+#		endif
+
+		/* Initialize variable that controls TP allocation clue (for created blocks) */
+		val.addr = GTM_TP_ALLOCATION_CLUE;
+		val.len = sizeof(GTM_TP_ALLOCATION_CLUE) - 1;
+		gtm_tp_allocation_clue = trans_numeric(&val, &is_defined, TRUE);
+		if (!is_defined)
+			gtm_tp_allocation_clue = MAXTOTALBLKS_MAX;
+
+		/* Full Database-block Write mode */
+		val.addr = GTM_FULLBLOCKWRITES;
+		val.len = sizeof(GTM_FULLBLOCKWRITES) - 1;
+		gtm_fullblockwrites = logical_truth_value(&val, FALSE, &is_defined);
+		if (!is_defined)
+			gtm_fullblockwrites = DEFAULT_FBW_FLAG;
+
+		/* GDS Block certification */
+		val.addr = GTM_GDSCERT;
+		val.len = sizeof(GTM_GDSCERT) - 1;
+		ret = logical_truth_value(&val, FALSE, &is_defined);
+		if (is_defined)
+			certify_all_blocks = ret; /* if the logical is not defined, we want to take default value */
+
+		/* Initialize null subscript's collation order */
+		val.addr = LCT_STDNULL;
+		val.len = sizeof(LCT_STDNULL) - 1;
+		ret = logical_truth_value(&val, FALSE, &is_defined);
+		if (is_defined)
+			local_collseq_stdnull = ret;
+
+		/* Initialize variables for white box testing. Even though these white-box test variables only control the
+		 * flow of the DBG builds, the PRO builds check on these variables (for example, in tp_restart.c to decide
+		 * whether to fork_n_core or not) so need to do this initialization for PRO builds as well.
+		 */
+		wbox_test_init();
+
+		/* Initialize variable that controls dynamic GT.M block upgrade */
+		val.addr = GTM_BLKUPGRADE_FLAG;
+		val.len = sizeof(GTM_BLKUPGRADE_FLAG) - 1;
+		gtm_blkupgrade_flag = trans_numeric(&val, &is_defined, TRUE);
+
+		/* Initialize whether database file extensions need to be logged in the operator log */
+		val.addr = GTM_DBFILEXT_SYSLOG_DISABLE;
+		val.len = sizeof(GTM_DBFILEXT_SYSLOG_DISABLE) - 1;
+		ret = logical_truth_value(&val, FALSE, &is_defined);
+		if (is_defined)
+			gtm_dbfilext_syslog_disable = ret; /* if the logical is not defined, we want to take default value */
+
+		/* Initialize maximum sockets in a single socket device createable by this process */
+		gtm_max_sockets = MAX_N_SOCKET;
+		val.addr = GTM_MAX_SOCKETS;
+		val.len = sizeof(GTM_MAX_SOCKETS) - 1;
+		if ((tmsock = trans_numeric(&val, &is_defined, TRUE)) && MAX_MAX_N_SOCKET > tmsock) /* Note assignment!! */
+			gtm_max_sockets = tmsock;
+
+		/* Initialize storage to allocate and keep in our back pocket in case run out of memory */
+		outOfMemoryMitigateSize = GTM_MEMORY_RESERVE_DEFAULT;
+		val.addr = GTM_MEMORY_RESERVE;
+		val.len = sizeof(GTM_MEMORY_RESERVE) - 1;
+		if (reservesize = trans_numeric(&val, &is_defined, TRUE)) /* Note assignment!! */
+			outOfMemoryMitigateSize = reservesize;
+
+		/* Initialize indirect cache limits (max memory, max entries) */
+		max_cache_memsize = MAX_CACHE_MEMSIZE * 1024;
+		val.addr = GTM_MAX_INDRCACHE_MEMORY;
+		val.len = sizeof(GTM_MAX_INDRCACHE_MEMORY) - 1;
+		if (memsize = trans_numeric(&val, &is_defined, TRUE)) /* Note assignment!! */
+			max_cache_memsize = memsize * 1024;
+		max_cache_entries = MAX_CACHE_ENTRIES;
+		val.addr = GTM_MAX_INDRCACHE_COUNT;
+		val.len = sizeof(GTM_MAX_INDRCACHE_COUNT) - 1;
+		if (cachent = trans_numeric(&val, &is_defined, TRUE)) /* Note assignment!! */
+			max_cache_entries = cachent;
+
+		/* Initialize ZQUIT to control funky QUIT compilation */
+		val.addr = GTM_ZQUIT_ANYWAY;
+		val.len = sizeof(GTM_ZQUIT_ANYWAY) - 1;
+		ret = logical_truth_value(&val, FALSE, &is_defined);
+		if (is_defined)
+			dollar_zquit_anyway = ret;
+
+		if (NULL!=(prompt_env_val=GETENV(GTM_PROMPT+1)) && strlen(prompt_env_val)<sizeof(prombuf)) {
+			val.addr = GTM_PROMPT;
+			val.len = sizeof(GTM_PROMPT) - 1;
+			TRANS_LOG_NAME(&val, &gtmprompt, prombuf, sizeof(prombuf), do_sendmsg_on_log2long);
+		}
+
+		/* Platform specific initializations */
+		gtm_env_init_sp();
+		gtm_env_init_done = TRUE;
+	}
+}

=== added file 'src/gtm/sr_port/op_svput.c'
--- src/gtm/sr_port/op_svput.c	1970-01-01 00:00:00 +0000
+++ src/gtm/sr_port/op_svput.c	2009-04-07 01:13:36 +0000
@@ -0,0 +1,314 @@
+/****************************************************************
+ *								*
+ *	Copyright 2001, 2008 Fidelity Information Services, Inc	*
+ *								*
+ *	This source code contains the intellectual property	*
+ *	of its copyright holder(s), and is made available	*
+ *	under a license.  If you do not know the terms of	*
+ *	the license, please stop and do not read further.	*
+ *								*
+ ****************************************************************/
+
+#include "mdef.h"
+
+#include "gtm_stdlib.h"
+#include "gtm_string.h"
+
+#include "svnames.h"
+#include "io.h"
+#include "gdsroot.h"
+#include "gtm_facility.h"
+#include "fileinfo.h"
+#include "gdsbt.h"
+#include "gdsfhead.h"
+#include "indir_enum.h"
+#include "error.h"
+#include "stringpool.h"
+#include "op.h"
+#include "mvalconv.h"
+#include "zroutines.h"
+#include "dpgbldir.h"
+#include "dpgbldir_sysops.h"
+#include "gtmmsg.h"
+#include "ztrap_save_ctxt.h"
+#include "dollar_zlevel.h"
+#include "error_trap.h"
+#include "gtm_ctype.h"
+#include "setzdir.h"
+#include "rtnhdr.h"
+#include "stack_frame.h"
+#include "getzdir.h"
+#include "gtm_newintrinsic.h"
+
+GBLREF char		prombuf[MAX_MIDENT_LEN];
+GBLREF mstr		gtmprompt;
+
+GBLREF gv_key		*gv_currkey;
+GBLREF gv_namehead	*gv_target;
+GBLREF gd_addr		*gd_header;
+GBLREF gd_addr		*gd_targ_addr;
+GBLREF gd_binding	*gd_map;
+GBLREF gd_binding	*gd_map_top;
+GBLREF io_pair		io_curr_device;
+GBLREF mval		dollar_ztrap;
+GBLREF mval		dollar_zstatus;
+GBLREF mval		dollar_zgbldir;
+GBLREF mval		dollar_zstep;
+GBLREF mstr		dollar_zcompile;
+GBLREF mstr		dollar_zroutines;
+GBLREF mstr		dollar_zsource;
+GBLREF int		dollar_zmaxtptime;
+GBLREF int		ztrap_form;
+GBLREF mval		dollar_etrap;
+GBLREF mval		dollar_zerror;
+GBLREF mval		dollar_zyerror;
+GBLREF mval		dollar_system;
+GBLREF mval		dollar_zinterrupt;
+GBLREF boolean_t	ztrap_new;
+GBLREF stack_frame	*error_frame;
+GBLREF boolean_t	ztrap_explicit_null;		/* whether $ZTRAP was explicitly set to NULL in this frame */
+GBLREF int4		zdate_form;
+GBLREF mval		dollar_ztexit;
+GBLREF boolean_t	dollar_ztexit_bool;
+GBLREF boolean_t	dollar_zquit_anyway;
+
+void op_svput(int varnum, mval *v)
+{
+	int		i, ok, state;
+	char		*vptr;
+	error_def(ERR_INVECODEVAL);
+	error_def(ERR_SETECODE);
+	error_def(ERR_SYSTEMVALUE);
+
+	switch (varnum)
+	{
+	case SV_X:
+		MV_FORCE_NUM(v);
+		io_curr_device.out->dollar.x = (short)MV_FORCE_INT(v);
+		if ((short)(io_curr_device.out->dollar.x) < 0)
+			io_curr_device.out->dollar.x = 0;
+		break;
+	case SV_Y:
+		MV_FORCE_NUM(v);
+		io_curr_device.out->dollar.y = (short)MV_FORCE_INT(v);
+		if ((short)(io_curr_device.out->dollar.y) < 0)
+			io_curr_device.out->dollar.y = 0;
+		break;
+	case SV_ZCOMPILE:
+		MV_FORCE_STR(v);
+		if (dollar_zcompile.addr)
+			free (dollar_zcompile.addr);
+		dollar_zcompile.addr = (char *)malloc(v->str.len);
+		memcpy (dollar_zcompile.addr, v->str.addr, v->str.len);
+		dollar_zcompile.len = v->str.len;
+		break;
+	case SV_ZSTEP:
+		MV_FORCE_STR(v);
+		op_commarg(v,indir_linetail);
+		op_unwind();
+		dollar_zstep = *v;
+		break;
+	case SV_ZGBLDIR:
+		MV_FORCE_STR(v);
+		if ((dollar_zgbldir.str.len != v->str.len) || memcmp(dollar_zgbldir.str.addr, v->str.addr, dollar_zgbldir.str.len))
+		{
+			if (0 == v->str.len)
+			{
+			        /* set $zgbldir="" */
+	   			dpzgbini();
+				gd_header = NULL;
+	       		} else
+			{
+	   			gd_header = zgbldir(v);
+				/* update the gd_map */
+				SET_GD_MAP;
+	   			dollar_zgbldir.str.len = v->str.len;
+	   			dollar_zgbldir.str.addr = v->str.addr;
+	  			s2pool(&dollar_zgbldir.str);
+			}
+		   	if (NULL != gv_currkey)
+			{
+				gv_currkey->base[0] = '\0';
+				gv_currkey->prev = gv_currkey->end = 0;
+			} else if (NULL != gd_header)
+				gvinit();
+		   	if (NULL != gv_target)
+				gv_target->clue.end = 0;
+		}
+		break;
+	case SV_ZMAXTPTIME:
+		dollar_zmaxtptime = mval2i(v);
+		break;
+	case SV_ZROUTINES:
+		MV_FORCE_STR(v);
+		/* The string(v) should be parsed and loaded before setting $zroutines
+		 * to retain the old value in case errors occur while loading */
+		zro_load(&v->str);
+		if (dollar_zroutines.addr)
+			free (dollar_zroutines.addr);
+		dollar_zroutines.addr = (char *)malloc(v->str.len);
+		memcpy (dollar_zroutines.addr, v->str.addr, v->str.len);
+		dollar_zroutines.len = v->str.len;
+		break;
+	case SV_ZSOURCE:
+		MV_FORCE_STR(v);
+		dollar_zsource = v->str;
+		break;
+	case SV_ZTRAP:
+		MV_FORCE_STR(v);
+		if (ztrap_new)
+			op_newintrinsic(SV_ZTRAP);
+		dollar_ztrap.mvtype = MV_STR;
+		dollar_ztrap.str = v->str;
+		/* Setting either $ZTRAP or $ETRAP to empty causes any current error trapping to be canceled */
+		if (!v->str.len)
+		{
+			dollar_etrap.mvtype = MV_STR;
+			dollar_etrap.str = v->str;
+			ztrap_explicit_null = TRUE;
+		} else /* Ensure that $ETRAP and $ZTRAP are not both active at the same time */
+		{
+			ztrap_explicit_null = FALSE;
+			if (dollar_etrap.str.len > 0)
+				gtm_newintrinsic(&dollar_etrap);
+		}
+		if (ztrap_form & ZTRAP_POP)
+			ztrap_save_ctxt();
+		break;
+	case SV_ZSTATUS:
+		MV_FORCE_STR(v);
+		dollar_zstatus.mvtype = MV_STR;
+		dollar_zstatus.str = v->str;
+		break;
+	case SV_PROMPT:
+		MV_FORCE_STR(v);
+		MV_FORCE_LEN_STRICT(v); /* Ensure that direct mode prompt will not have BADCHARs,
+					   otherwise the BADCHAR error may fill up the filesystem */
+		if (v->str.len <= sizeof(prombuf))
+			gtmprompt.len = v->str.len;
+		else if (!gtm_utf8_mode)
+			gtmprompt.len = sizeof(prombuf);
+#ifdef UNICODE_SUPPORTED
+		else
+		{
+			UTF8_LEADING_BYTE(v->str.addr + sizeof(prombuf), v->str.addr, vptr);
+			gtmprompt.len = INTCAST(vptr - v->str.addr);
+		}
+#endif
+		memcpy(gtmprompt.addr, v->str.addr, gtmprompt.len);
+		break;
+	case SV_ECODE:
+		MV_FORCE_STR(v);
+		if (v->str.len)
+		{
+			/* Format must be like ,Mnnn,Mnnn,Zxxx,Uxxx,
+			 * Mnnn are ANSI standard error codes
+			 * Zxxx are implementation-specific codes
+			 * Uxxx are end-user defined codes
+			 * Note that there must be commas at the start and at the end
+			 */
+			for (state = 2, i = 0; (i < v->str.len) && (state <= 2); i++)
+			{
+				switch(state)
+				{
+				case 2: state = (v->str.addr[i] == ',') ? 1 : 101;
+					break;
+				case 1: state = ((v->str.addr[i] == 'M') ||
+				                 (v->str.addr[i] == 'U') ||
+					         (v->str.addr[i] == 'Z')) ? 0 : 101;
+					break;
+				case 0: state = (v->str.addr[i] == ',') ? 1 : 0;
+					break;
+				}
+			}
+			/* The above check would pass strings like ","
+			 * so double-check that there are at least three characters
+			 * (starting comma, ending comma, and something in between)
+			 */
+			if ((state != 1) || (v->str.len < 3))
+			{
+				/* error, ecode = M101 */
+				rts_error(VARLSTCNT(4) ERR_INVECODEVAL, 2, v->str.len, v->str.addr);
+			}
+		}
+		if (v->str.len > 0)
+		{
+			ecode_add(&v->str);
+			rts_error(VARLSTCNT(2) ERR_SETECODE, 0);
+		} else
+		{
+			NULLIFY_DOLLAR_ECODE;	/* reset $ECODE related variables to correspond to $ECODE = NULL state */
+			NULLIFY_ERROR_FRAME;	/* we are no more in error-handling mode */
+		}
+		break;
+	case SV_ETRAP:
+		MV_FORCE_STR(v);
+		dollar_etrap.mvtype = MV_STR;
+		dollar_etrap.str = v->str;
+		/* Setting either $ZTRAP or $ETRAP to empty causes any current error trapping to be canceled */
+		if (!v->str.len)
+		{
+			dollar_ztrap.mvtype = MV_STR;
+			dollar_ztrap.str = v->str;
+		} else if (dollar_ztrap.str.len > 0)
+		{	/* Ensure that $ETRAP and $ZTRAP are not both active at the same time */
+			assert(FALSE == ztrap_explicit_null);
+			gtm_newintrinsic(&dollar_ztrap);
+		}
+		ztrap_explicit_null = FALSE;
+		break;
+	case SV_ZERROR:
+		MV_FORCE_STR(v);
+		dollar_zerror.mvtype = MV_STR;
+		dollar_zerror.str = v->str;
+		break;
+	case SV_ZYERROR:
+		MV_FORCE_STR(v);
+		dollar_zyerror.mvtype = MV_STR;
+		dollar_zyerror.str = v->str;
+		break;
+	case SV_SYSTEM:
+		ok = 1;
+		if (!(v->mvtype & MV_STR))
+			ok = 0;
+		if (ok && v->str.addr[0] != '4')
+			ok = 0;
+		if (ok && v->str.addr[1] != '7')
+			ok = 0;
+		if ((' ' != v->str.addr[2]) && !ispunct(v->str.addr[2]))
+			ok = 0;
+		if (ok)
+			dollar_system.str = v->str;
+		else
+			rts_error(VARLSTCNT(4) ERR_SYSTEMVALUE, 2, v->str.len, v->str.addr);
+		break;
+	case SV_ZDIR:
+		setzdir(v, NULL); /* change directory to v */
+		getzdir(); /* update dollar_zdir with current working directory */
+		break;
+	case SV_ZINTERRUPT:
+		MV_FORCE_STR(v);
+		dollar_zinterrupt.mvtype = MV_STR;
+		dollar_zinterrupt.str = v->str;
+		break;
+	case SV_ZDATE_FORM:
+		MV_FORCE_NUM(v);
+		zdate_form = (short)MV_FORCE_INT(v);
+		break;
+	case SV_ZTEXIT:
+		MV_FORCE_STR(v);
+		dollar_ztexit.mvtype = MV_STR;
+		dollar_ztexit.str = v->str;
+		/* Coercing $ZTEXIT to boolean at SET command is more efficient than coercing before each
+		 * rethrow at TR/TRO. Since we want to maintain dollar_ztexit as a string, coercion should
+		 * not be performed on dollar_ztext, but on a temporary (i.e. parameter v) */
+		dollar_ztexit_bool = MV_FORCE_BOOL(v);
+		break;
+	case SV_ZQUIT:
+		dollar_zquit_anyway = MV_FORCE_BOOL(v);
+		break;
+	default:
+		GTMASSERT;
+	}
+	return;
+}

=== added directory 'src/gtm/sr_unix'
=== added file 'src/gtm/sr_unix/gtm_logicals.h'
--- src/gtm/sr_unix/gtm_logicals.h	1970-01-01 00:00:00 +0000
+++ src/gtm/sr_unix/gtm_logicals.h	2009-02-13 06:21:27 +0000
@@ -0,0 +1,94 @@
+/****************************************************************
+ *								*
+ *	Copyright 2001, 2008 Fidelity Information Services, Inc	*
+ *								*
+ *	This source code contains the intellectual property	*
+ *	of its copyright holder(s), and is made available	*
+ *	under a license.  If you do not know the terms of	*
+ *	the license, please stop and do not read further.	*
+ *								*
+ ****************************************************************/
+
+/* gtm_logicals.h - Environment variables used by GT.M. */
+
+/* -------------------------- Common to Unix and VMS --------------------------  */
+
+#define	GTM_DIST_LOG			"$gtm_dist"
+
+/* Database */
+#define	GTM_GBLDIR			"$gtmgbldir"
+#define	GTM_ENV_XLATE			"$gtm_env_translate"
+#define	GTM_GVDUPSETNOOP		"$gtm_gvdupsetnoop"
+#define	GTM_GVUNDEF_FATAL		"$gtm_gvundef_fatal"
+#define	GTM_GDSCERT			"$gtm_gdscert"
+#define	GTM_BLKUPGRADE_FLAG		"$gtm_blkupgrade_flag"
+#define	GTM_DBFILEXT_SYSLOG_DISABLE	"$gtm_dbfilext_syslog_disable"
+#define	GTM_TP_ALLOCATION_CLUE		"$gtm_tp_allocation_clue"
+#define	GTM_TPRESTART_LOG_DELTA		"$gtm_tprestart_log_delta"
+#define	GTM_TPRESTART_LOG_LIMIT		"$gtm_tprestart_log_first"
+#define	GTM_FULLBLOCKWRITES		"$gtm_fullblockwrites"
+
+/* White-box testing */
+#define	GTM_WHITE_BOX_TEST_CASE_ENABLE	"$gtm_white_box_test_case_enable"
+#define	GTM_WHITE_BOX_TEST_CASE_NUMBER	"$gtm_white_box_test_case_number"
+#define	GTM_WHITE_BOX_TEST_CASE_COUNT	"$gtm_white_box_test_case_count"
+
+/* Indirection-cache */
+#define GTM_MAX_INDRCACHE_MEMORY	"$gtm_max_indrcache_memory"
+#define GTM_MAX_INDRCACHE_COUNT		"$gtm_max_indrcache_count"
+
+/* MUPIP BACKUP */
+# define GTM_BAK_TEMPDIR_LOG_NAME	"$GTM_BAKTMPDIR"
+
+/* Pattern match operator */
+#define	PAT_FILE			"$gtm_pattern_file"
+#define	PAT_TABLE			"$gtm_pattern_table"
+
+/* Alternative Collation */
+#define	CT_PREFIX			"$gtm_collate_"
+#define LCT_PREFIX			"$gtm_local_collate"
+#define LCT_STDNULL			"$gtm_lct_stdnull"
+
+/* Miscellaneous */
+#define	GTM_DEBUG_LEVEL_ENVLOG		"$gtmdbglvl"
+#define	GTM_PRINCIPAL			"$gtm_principal"
+#define	GTM_ZINTERRUPT			"$gtm_zinterrupt"
+#define	SYSID				"$gtm_sysid"
+#define	ZCOMPILE			"$gtmcompile"
+#define	GTM_ZROUTINES			"$gtmroutines"
+#define	ZYERROR				"$gtm_zyerror"
+#define	ZTRAP_FORM			"$gtm_ztrap_form"
+#define	ZTRAP_NEW			"$gtm_ztrap_new"
+#define	ZDATE_FORM			"$gtm_zdate_form"
+#define	DISABLE_ALIGN_STRINGS		"$gtm_disable_alignstr"
+#define GTM_MAX_SOCKETS			"$gtm_max_sockets"
+#define GTM_MEMORY_RESERVE		"$gtm_memory_reserve"
+#define GTM_ZQUIT_ANYWAY		"$gtm_zquit_anyway"
+#define	GTM_NOUNDEF			"$gtm_noundef"
+#define	GTM_PROMPT			"$gtm_prompt"
+
+/* -------------------------- Unix only --------------------------  */
+
+/* Database */
+#define	GTM_TMP_ENV			"$gtm_tmp"
+#define	GTM_SHMFLAGS			"$gtm_shmatflags"
+
+/* Replication */
+#define	GTM_REPL_INSTANCE		"$gtm_repl_instance"
+#define	GTM_REPL_INSTNAME		"$gtm_repl_instname"
+#define	GTM_REPL_INSTSECONDARY		"$gtm_repl_instsecondary"
+#define	GTM_ZLIB_CMP_LEVEL		"$gtm_zlib_cmp_level"
+#define GTM_EVENT_LOG_LIB_ENV		"$gtm_event_log_libpath"
+#define GTM_EVENT_LOG_RTN_ENV		"$gtm_event_log_rtn"
+
+/* Unicode */
+#define GTM_CHSET_ENV			"$gtm_chset"
+#define GTM_PATNUMERIC_ENV		"$gtm_patnumeric"
+#define GTM_BADCHAR_ENV			"$gtm_badchar"
+#define GTM_ICU_MINOR_ENV		"$gtm_icu_minorver"
+
+/* Miscellaneous */
+#define	GTM_LOG_ENV			"$gtm_log"
+#define	GTM_PRINCIPAL_EDITING		"$gtm_principal_editing"
+#define GTM_QUIET_HALT			"$gtm_quiet_halt"
+#define	GTM_NON_BLOCKED_WRITE_RETRIES	"$gtm_non_blocked_write_retries"