Need pgm to list assigned variables in REXX 
Author Message
 Need pgm to list assigned variables in REXX

Hello All:

Several years ago (around 1988 - 1990) I obtained a
small assembler program that executed under CMS. When
called from a REXX exec it would give you a list of
all the assigned variables names.

I believe I downloaded the program from Compuserve but
I no longer have a Compuserve account.

If anyone knows of this program, has a copy of it, or
has one that does the same thing I would appreciate
getting a copy. Unfortunately I don't remember the name
of the program or author.


Thanks,

Mike Newell
The SAS Institute Inc.
SYSTEM 2000 Development/Support
Austin Regional Office
Austin, TX

http://www.*-*-*.com/



Fri, 09 Feb 2001 03:00:00 GMT  
 Need pgm to list assigned variables in REXX

Quote:
> When
> called from a REXX exec it would give you a list of
> all the assigned variables names.

Don't know whether this will help or not but REXXLIB for OS/2 from
http://www.quercus-sys.com has a VARDUMP()  that does exactly what you are
asking for. You might contact Charles Daney there.

 --------------------------------------------------------------
 Dick Goran             author, REXX Reference Summary Handbook
 C F S Nevada, Inc.     Contrib. Ed., Personal Systems Magazine
 953 E. Sahara Ave, Suite 9B                     [OS/2 Advisor]
 Las Vegas, NV 89104-3012

 702-732-3847 FAX                                    (remove ?)
                    http://www.cfsrexx.com



Fri, 09 Feb 2001 03:00:00 GMT  
 Need pgm to list assigned variables in REXX

Quote:


> > When
> > called from a REXX exec it would give you a list of
> > all the assigned variables names.

> Don't know whether this will help or not but REXXLIB for OS/2 from
> http://www.quercus-sys.com has a VARDUMP()  that does exactly what you are
> asking for. You might contact Charles Daney there.

On VM and MVS you can use pipelines. Pipelines is part of VM, it is a
billable add on for MVS.

--

Beyond Software, Inc.      http://www.beyond-software.com
"Transforming Legacy Applications"



Fri, 09 Feb 2001 03:00:00 GMT  
 Need pgm to list assigned variables in REXX

Quote:
>Hello All:

>Several years ago (around 1988 - 1990) I obtained a
>small assembler program that executed under CMS. When
>called from a REXX exec it would give you a list of
>all the assigned variables names.

>I believe I downloaded the program from Compuserve but
>I no longer have a Compuserve account.

>If anyone knows of this program, has a copy of it, or
>has one that does the same thing I would appreciate
>getting a copy. Unfortunately I don't remember the name
>of the program or author.


>Thanks,

>Mike Newell
>The SAS Institute Inc.
>SYSTEM 2000 Development/Support
>Austin Regional Office
>Austin, TX

>http://www.sas.com/software/system2000/

If your VM/CMS system includes Pipelines, try the
following REXXVARS routine.  To invoke it, just
call it from the appropriate place within your program.

/*- Rexx -*/
/*   REXXVARS EXEC
 Extract and sort all REXX variables, write to
 a disk file and browse the file.  Only the first
 31 characters of the variable name is shown.

 Usage:  REXXVARS <number <fn ft fm> >  < ( title-text >
      number  - the number of REXX variable pools to go
                        "back". 1 goes to the caller's variable
                        pool (the default).  2 goes to the pgm
                        that called the caller, and so forth.
       fn ft fm   - Location of the output disk file.
                        Defaults to 'REXXVARS SORTED' on the
                        mini-disk with the most freespace.
       title text - Any title text to assist in identifying
                        this particular invocation.

 Requires CMS pipelines

 Gary Richtmeyer - 02/03/93
*/

trace 'O'
parse source . . exfn exft exfm .
address command

delim = '01'x

'PIPE CMS Q DISK MAX |',
           'drop 1 |',
           'spec w3 1 |',
           'spec 1.1 1 |',
           'append literal |',
           'var workdisk'

/*----- handle command line parameters -----*/
parse upper arg chain fn ft fm . '('
parse            arg                          '(' ident
if \datatype(chain,'W') then chain=1
if fn = '' then fn = exfn
if ft = '' then ft = 'SORTED'
parse value fm workdisk 'A' with fm .
output_fid = fn ft fm
if ident \= '' then ident = 'Title:' strip(ident)

/*----- extract/sort variables & create the output file -----*/
'PIPE (end \)',
     'rexxvars' chain '|',             /* get all REXX variables    */
  'a: drop 1 |',                       /* drop the PARSE SOURCE     */
     'spec 3-* 1 |',                   /* drop identifier           */
     'join 1 /'delim'/ |',             /* combine var name & value  */
     'spec fs' delim 'f1 1 f2-* 32 |', /* name in 1-31, data in 32+ */
     'sort |',                         /* sort into varname seq.    */
  'b: faninany |',                     /* gather all records        */
     'literal' ident '|',              /* place identifier in front */
     '>' output_fid,                   /* write to disk             */
'\ a: |',                              /* copy PARSE SOURCE to disk */
     'spec /Parse Source:/ 1 word 2-* nw |',
     'b:'

if rc = 0 then 'BROWSE' output_fid
exit rc

--
-- Gary Richtmeyer, Tampa, Florida



Fri, 09 Feb 2001 03:00:00 GMT  
 Need pgm to list assigned variables in REXX


Quote:
>Hello All:

>Several years ago (around 1988 - 1990) I obtained a
>small assembler program that executed under CMS. When
>called from a REXX exec it would give you a list of
>all the assigned variables names.

I don't have access to it, but I remember seeing a program called REXXVAR
MODULE somewhere.
Also, CMS Pipelines has a REXXVARS stage command, so you can do:
   'PIPE REXXVARS | CONSOLE'
from your REXX exec to get a listing on your screen.

--
Vidar Tysse    -   aka  "vtsystem AT bgnett DOT no"



Sat, 10 Feb 2001 03:00:00 GMT  
 Need pgm to list assigned variables in REXX
Hello Again:

Thanks to those who told me about the
REXXVARS command. It works like a champ.

I've been in the MVS world for the past
six years or so, and have forgotten a lot
of what I used to know about CMS. Plus,
I'm sure that lots of stuff has been
added to CMS/REXX/VM, etc. since I last
was in that environment. It's time to
catch up.

Thanks again,

Mike Newell
Austin, TX



Sat, 10 Feb 2001 03:00:00 GMT  
 Need pgm to list assigned variables in REXX
Hello Again:

Thanks to those who told me about the
REXXVARS command. It works like a champ.

I've been in the MVS world for the past
six years or so, and have forgotten a lot
of what I used to know about CMS. Plus,
I'm sure that lots of stuff has been
added to CMS/REXX/VM, etc. since I last
was in that environment. It's time to
catch up.

Thanks again,

Mike Newell
Austin, TX



Sat, 10 Feb 2001 03:00:00 GMT  
 
 [ 9 post ] 

 Relevant Pages 

1. Need Example CICS/REXX doing CICS LINK with COMMAREA to non-REXX PGM

2. Introducing variables into REXX pgm via JCL

3. setting REXX-Variables from a COBOL-Pgm using IRXEXCOM

4. Problem with assigning variables of type List

5. Assigning a list to multiple variables?

6. assign list to list

7. passing parameter to an OS/2 rexx pgm

8. REXX/TELNET pgm wanted...

9. detecting pgm name from inside rexx

10. Adding help to VX-REXX pgm

11. Has anyone written a QMF Rexx pgm?

12. REXX pgm to count words in a file ...

 

 
Powered by phpBB® Forum Software