Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
SYSTEM ID from REXX
245 views
Skip to first unread message
paulr
Jan 11, 1999, 3:00:00 AM1/11/99
to
A buddy of mine here at work needs to retrieve the system ID,
under MVS or OS/390, from a running REXX application. I thought that
was simple, and indeed, I *thought* I had seen an example of doing exactly
that in one the books on my desk at home.
under MVS or OS/390, from a running REXX application. I thought that
was simple, and indeed, I *thought* I had seen an example of doing exactly
that in one the books on my desk at home.
Obviously, it wasn't there, and I figured I would ask the assembled
experts. : )
Thanks
-Paul
Rick Humburg
Jan 11, 1999, 3:00:00 AM1/11/99
to
For the system id as recorded by SMF, you can use
/* */
Numeric Digits 16
cvt_address = C2D(Storage('10',4))
smca_address = C2D(Storage(D2X(cvt_address+X2D('C4')),4))
smf_sysid = Storage(D2X(smca_address+X2D('10')),4)
Say smf_sysid
Exit
Chris Lewis
Jan 11, 1999, 3:00:00 AM1/11/99
to
You can also try:
/* rexx */
sys_id = MVSVAR("SYSNAME")
say sys_id
exit
Hope this helps
Chris Lewis
0 new messages