Hello,

Is there an iWay function in Service Manager 6.1.2 which can retrieve the value of a Windows System Environment variable?

Thanks.

I don't think there is a function, but if you change your iSM startup script to include the variable in the java properties, like -Dwindir=%windir%, you might be able to use _sreg(windir).

Hi AK,

there is no direct function, but there's a _property() iFL... If you do

C:\> set > myvars.txt

You should be able to get the values from the file.

The easiest is probably to call the service that invokes OS commands:

Run OS Shell Command Service (com.ibi.agents.XDRunCmdAgent)

The command would be "cmd /C set" to get a list of all variables under /status/cmdoutput or "cmd /C set prompt" to get the value of the PROMPT variable....

<?xml version="1.0" encoding="UTF-8" ?>
<status>
	<command>cmd /C set prompt</command>
	<exitcode>0</exitcode>
	<cmdoutput>PROMPT=$P$G</cmdoutput>
</status>

Hope this helps!

Newbie.

I know nothing about Service Manager and iWay functions, but there is a WebFOCUS function, FGETENV, that is used to retrieve values from system environment variables. You could see if it works in iWay.

Syntax: How to Retrieve the Value of an Environment Variable

FGETENV(varlength, 'varname', outfieldlen, outfldformat);

where:

varlength=Integer  - Is the length of the environment variable name.

varname=Alphanumeric  - Is the name of the environment variable.

outfieldlen=Integer  - Is the length of the field in which the environment variable's value is stored.

outfldformat=Alphanumeric  - Is the format of the field in which the environment variable's value is stored.

WebFOCUS / iDM function FGETENV does not work in iSM.

One comment about FGETENV function in iDM is whenever the Windows environment variable value changes, iDM server has to be restarted to load the new value. If the server is not restarted the function always retrieves the old value. Looks like this function does not call the env var directly but rather calls the variables that are loaded in memory when the server is started.

I'm not sure your comment about FGETENV is quite correct; when you issue a set from a DOS prompt it's not going to affect the server running as a service or in its own DOS window.

However if you set an environment variable from withinthe running server, that would be fine. For example:

 -SET &RC= FPUTENV(9, 'IWAF_HOME', 7, 'C:\IWAF', 'I8');
-SET &IWH = FGETENV(9, 'IWAF_HOME', 20, 'A20');
-TYPE &IWH 

Or you can just write one:

Code: FunctionNodeGetEnv.java

package com.ibi.funcs;
import com.ibi.edaqm.*;

public class FunctionNodeGetEnv extends FunctionNode {

	public FunctionNodeGetEnv() {
		super("GetEnv");
	}
	
	public FunctionNodeGetEnv(String name) {
		super("GetEnv");
	}
	
	String getTypeName() {
		return "GetEnv";
	}
	
	public int getMinParms() { 
		return 1; 
	}
	
	public int getMaxParms() { 
		return 1; 
	}

	public XDNode getDesc()	{
		try {
			String info =
				"<func name='_getenv' class='string'>" +
				"<desc>Get Environment Variable value.</desc>" +
				"<parm name='string' type='string' req='yes'>Enviornment variable to return</parm>" +
				"</func>";
			XDDocument d = new XDDocument(null,info);
			return d.getRoot();
		} catch (Exception e) {
			return null;
		}
	}
	
	private FunctionNode[] parms;
	
	public void optimize(XDManager manager, com.ibi.common.IXLogger logger) throws XDException	{
		super.optimize(manager,logger);
		parms = getParms();
	}
	
	public String getXValue(XDDocument doc, com.ibi.common.ISpecRegManager srm, com.ibi.common.IXLogger logger) throws XDException	{
		/* Initialize return string */
		String eValue = null;

		/* Ensure there is 1 arguments in the function call */
		if (parms.length != 1) {
			throw new XDFunctionException("_GetEnv",1,"Function requires min 1 argument.");
		}
		
		/* Retrieve the in bound arguments */
		String arg1 = parms[0].getXValue(doc, srm, logger);

		/* Get the environment variable */
		try{
			eValue = System.getenv(arg1);
		}catch (Exception e){
			throw new XDFunctionException("_GetEnv",1,"_getenv failed.");
		}

		/* return environment variable if available */
		return (eValue == null ? " " : eValue);
	}
}
  

Code: GetEnvRegister.java

package com.ibi.funcs;

public class GetEnvRegister implements com.ibi.common.IComponentRegister {
	public GetEnvRegister() {
	}

	public void register (com.ibi.common.IComponentManager cm) {
		cm.addFunction("_getenv","com.ibi.funcs.FunctionNodeGetEnv");
	}
	public void unregister (com.ibi.common.IComponentManager cm) {
	}
}  

Manifest:

Name: IXTEComponent
Register: com.ibi.funcs.GetEnvRegister
  

Usage:

 _getenv('temp') 

Returns:

 C:\DOCUME~1\dhagen\LOCALS~1\Temp 

I haven't tried this, but many thanks to dhagen for a top quality answer!