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

*--------------------------------------------------------------
* 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