In SOLVE:Operations Automation calling REXX from a message rule, need to find out what the system name is. What is the recommended way to find out the z/OS SYSNAME from inside a REXX program?
Use an ADDRESS to set the MVS environment before using an MVS function.
For example:
address "MVS"
Say "Sysname="MVSVAR("SYSNAME")
Result:
Sysname=nnnn
NR3001 REXX PROCEDURE JMREXX COMPLETED. PID: 16118 RC: -
OR
Use an NCL proc to return the value. $NMOM02U is one that already exists:
address "NM"
"CALL PROC=$NMOM02U PARM1=GETSVARS PARM2=ZSYSNAME SHARE1=ZZZRETVAL"
say "Sysname="zzzretval