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