RPGIV @ Work

A unique site for RPG and System i Lovers

Welcome!

Hi, this site will provide all what you need in System i and RPG developments.

My Name is Chamara Withanachchi, System i Expert and RPG Developer. And in the field for last 11 years.

I hope you will find lot of valuable information from this site

Display List of the Environment Variables Print E-mail
User Rating: / 1
PoorBest 
Written by Chamara Withanachchi   
Display List of the Environment Variables

Thanks to Scott Klement's post on SystemiNetwork


     H DFTACTGRP(*NO) ACTGRP(*NEW)

     D QUILNGTX        PR                  ExtPgm('QUILNGTX')
     D   text                     65535a   const options(*varsize)
     D   length                      10i 0 const
     D   msgid                        7a   const
     D   qualmsgf                    20a   const
     D   errorCode                   20i 0 const

     D Qp0zInitEnv     pr            10i 0 extproc('Qp0zInitEnv')

     D environ         s               *   import('environ')
     D env             s               *   dim(32767)
     D                                     based(environ)

     D x               s             10i 0
     D data            s          65535a   varying

      /free
         Qp0zInitEnv();

         for x = 1 to %elem(env);
            if env(x) = *null;
              leave;
            endif;
            data = %str(env(x));
            QUILNGTX( data: %len(Data): *blanks: *blanks: 0);
         endfor;

         *inlr = *on;
      /end-free 

User Comments

Please login or register to add comments

<Previous   Next>