/* REXX CVTINFO replacement */
 
   parse value mvsvar("SYSNAME") sysvar("SYSNODE") with,
               #tk_cpu           node          .
   say "SMFID="#tk_cpu  "NJENODE="node
 
exit
/* REXX */
smfid = SMFNAME()
node  = NODENAME()
say "SMFID="smfid  "NJENODE="node
exit