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
 

     D   EnvVar                            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
View as Markdown