RXS_PutEnvVar()

This subprocedure is used to set a job-level environment variable, or to modify an already existing environment variable.

Subprocedure Prototype

`D RXS_PutEnvVar... D PR Extproc('RXS_PutEnvVar') Opdesc`
`D pEnvVar Like(RXS_Var16Mv_t) Const D Options(*Varsize)`	Specifies the environment variable to be set. Must be in name=value format.

Example Code

Example 1: Setting an Environment Variable


*--------------------------------------------------------------
* This example code sets an environment variable. You can view 
* the results by running the following command:
*  WRKENVVAR
*--------------------------------------------------------------
H DFTACTGRP(*NO) BNDDIR('RXSBND') ACTGRP(*CALLER)

 /copy QRPGLECPY,RXSCB

D EnvVar          S                   Like(RXS_Var1Kv_t)
D Data            S                   Like(RXS_Var1Kv_t)

 /free

  EnvVar = 'IS_RPG_AWESOME=Yes';
  RXS_PutEnvVar( EnvVar );
  *INLR = *ON;
 /end-free