Using The Storage Function; Using The Syscpus Function; Using The Sysdsn Function - IBM TSO/E REXX User Manual

TSO/E External Functions
The SETLANG function can be used in REXX execs that run in any MVS address
space.

Using the STORAGE Function

You can use the STORAGE function to retrieve data from a particular address in
storage. You can also use the STORAGE function to place data into a particular
address in storage.
The STORAGE function can be used in REXX execs that run in any MVS address
space.

Using the SYSCPUS Function

The SYSCPUS function places, in a stem variable, information about those CPUs
that are on-line.
The SYSCPUS function runs in any MVS address space.
Example:
Consider a system with two on-line CPUs. Their serial numbers are FF0000149221
and FF1000149221. Assuming you issue the following sequence of statements
/* REXX */
x = SYSCPUS('cpus.')
SAY '0, if function performed okay: ' x
SAY 'Number of on-line CPUs is ' cpus.0
DO i = 1 TO CPUS.0
END
you get the following output:
0, if function performed okay: 0
Number of on-line CPUs is 2
CPU 1 has CPU info FF0000149221
CPU 2 has CPU info FF1000149221

Using the SYSDSN Function

The SYSDSN function determines if a specified data set is available for your use. If
the data set is available for your use, it returns "OK".
available = SYSDSN('myrexx.exec')
When a data set is not correct as specified or when a data set is not available, the
SYSDSN function returns one of the following messages:
v MEMBER SPECIFIED, BUT DATASET IS NOT PARTITIONED
v MEMBER NOT FOUND
v DATASET NOT FOUND
v ERROR PROCESSING REQUESTED DATASET
v PROTECTED DATASET
v VOLUME NOT ON SYSTEM
v UNAVAILABLE DATASET
126
z/OS V1R1.0 TSO/E REXX User's Guide
SAY 'CPU' i ' has CPU info ' cpus.i
/* ↑
/* |
/* 6 digits
/* available could be set to "OK" */
↑
4 digits = model number
= CPU ID
*/
*/
*/