MCH3601 When Changing Libraries

Well, I thought I was going to be able to set a job environment variable
that could be used for any program that was called within the job scope.
Apparently, I've missed something in my logic.

I'm developing a multi-client system that establishes library lists and
environment variables via a CL program:

PGM PARM(&CLT)
DCL VAR(&CLT) TYPE(*CHAR) LEN(13)
DCL VAR(&CLTP) TYPE(*DEC) LEN(13 0) VALUE(0)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCLF FILE(ETSSHARE/CLIENTS) RCDFMT(F_CLIENTS) +
OPNID(CLTFILE) ALWVARLEN(*YES) +
ALWNULL(*YES) ALWGRAPHIC(*YES)
CHGVAR VAR(&CLTP) VALUE(&CLT)
DOUNTIL (&CLTP = &CLTFILE_CLTKEY)
RCVF RCDFMT(F_CLIENTS) OPNID(CLTFILE)
MONMSG MSGID(CPF0864) EXEC(GOTO INVCLT)
ENDDO
RTVJOBA USER(&USER)
CHGLIBL LIBL(QGPL QTEMP KFLIB) CURLIB(ETSSHARE)
ADDLIBLE LIB(&CLTFILE_CLTPRGM)
ADDLIBLE LIB(&CLTFILE_CLTDATA)
ADDENVVAR ENVVAR('_ETS_CLIENT_ID') VALUE(&CLT) +
REPLACE(*YES)
ADDENVVAR ENVVAR('_ETS_PRGM_LIB') +
VALUE(&CLTFILE_CLTPRGM) REPLACE(*YES)
ADDENVVAR ENVVAR('_ETS_DATA_LIB') +
VALUE(&CLTFILE_CLTDATA) REPLACE(*YES)
CALL PGM(ETSSHARE/ETS01010)
RMVENVVAR ENVVAR('_ETS_CLIENT_ID')
RMVENVVAR ENVVAR('_ETS_PRGM_LIB')
RMVENVVAR ENVVAR('_ETS_DATA_LIB')
GOTO ENDPRG
INVCLT: SNDUSRMSG MSG('Client ID not defined in ETS program. +
Execution can not continue')
ENDPRG: ENDPGM

I have most of the programs and modules in a shared library, but some of
the functionality for specific clients will be stored in separate
libraries, i.e. the same program name in two different libraries. The
calls are fine since the library list is set before the initial program
in called. The problem I seem to be experiencing is using the same
service program across multiple libraries. All of the programs in the
shared library can call the functions without issue. As soon as a call
is made to a program in the secondary library that uses the same
functions, I get a pointer error when retrieving the environment
variable that was set for the job. Here's the code for that:

Program:
H nomain
H bnddir('QC2LE')

************************************************************************
**
** This program returns an environment variable's value.

************************************************************************
**

//--------------------------------------------------------------------
// Prototypes

//--------------------------------------------------------------------
/copy etsshare/prototypes,m_envvars

//--------------------------------------------------------------------
* **********************************************************
* Get environment variable.
* **********************************************************
P GetEnvVar B Export
*
D GetEnvVar PI 32767 varying
D EnvVarNam 64 options(*varsize) varying
const
*
D RtnVar s 32767 varying inz
* ---------------------------------------------------------
*
* Test for no input.
*
C if EnvVarNam = *blanks
C return *blanks
C endif
* ---------------------------------------------------------
*
* Get environment variable.
*
C eval pEnvVar = getenv(%trim(EnvVarNam))
*
C if pEnvVar <> *null
C eval RtnVar = %str(pEnvVar)
C else
C eval RtnVar = *blanks
C endif
*
C return RtnVar
*
P GetEnvVar E
**********************************************************
* Get environment variable as indcator.
* **********************************************************
P GetEnvVarInd B Export
*
D GetEnvVarInd PI like(StdInd)
D EnvVarNam 64 options(*varsize) varying
const
*
D RtnInd s like(StdInd) inz
* ---------------------------------------------------------
*
* Test for no input.
*
C if EnvVarNam = *blanks
C return *off
C endif
* ---------------------------------------------------------
*
* Get environment variable.
*
C eval pEnvVar = getenv(%trim(EnvVarNam))

*
C if pEnvVar <> *null
C eval RtnInd = %str(pEnvVar)
C else
C eval RtnInd = *off
C endif
*
C return RtnInd
*
P GetEnvVarInd E

Prototypes (i.e. /copy etsshare/prototypes,m_envvars):
* * * * * * * * * * * * * * * * * * * * * * * * * * *
* Standard type definitions.
* * * * * * * * * * * * * * * * * * * * * * * * * * *
D StdNulPtr S *
D StdInd S 1n Based( StdNulPtr )
D StdInt S 10i 0 Based( StdNulPtr )
D StdPtr S * Based( StdNulPtr )
D StdStr S 256 Based( StdNulPtr )
* * * * * * * * * * * * * * * * * * * * * * * * * * *
* Environment prototypes.
* * * * * * * * * * * * * * * * * * * * * * * * * * *
* ---------------------------------------------------------
*
* Put environment variable.
*
D putenv PR extproc('Qp0zPutEnvNoCCSID')
D like(StdInt)
D i_envVar like(StdPtr) value
D options(*string)
* ---------------------------------------------------------
*
* Get environment variable.
*
D getenv PR extproc('Qp0zGetEnvNoCCSID')
D like(StdPtr)
D i_envVar like(StdPtr) value
D options(*string)
* ---------------------------------------------------------
*
* Get environment variable.
*
D GetEnvVar PR 32767 varying
D EnvVarNam 64 varying const
D options(*varsize)
* ---------------------------------------------------------
*
* Get environment variable as indicator.
*
D GetEnvVarInd PR like(StdInd)
D EnvVarNam 64 varying const
D options(*varsize)
* ---------------------------------------------------------
*
* Delete environment variable.
*
D dltenv PR extproc('Qp0zDltEnv')
D like(StdPtr)
D i_envVar like(StdPtr) value
D options(*string)
* ---------------------------------------------------------
* ---------------------------------------------------------
*
* Environment variable workfields.
*
D EnvVarNam s 64 inz
D pEnvVar s like(StdPtr) inz
D EnvVar s 32767 based(pEnvVar)

The basic purpose is "idiot proof" prepared dynamic SQL queries
regardless of the current library list. For instance, $sqlstr = 'SELECT
somefield from ' + GetEnvVar('_ETS_DATA_LIB') + '/sometable';

It's an extra step for most, but I like to be thorough. :-) The
GetEnvVar('_ETS_DATA_LIB') call should return a value regardless of the
program library, correct? What have I missed in the process? Shouldn't
an environment variable at the job level be available to ANY program
called within the job scope?

Tom Armbruster