/* REXX */
/*trace ?r*/
/* */
/* */
/* */
/* */
/* */
/* */
Parse source opsys . exec_name .
LPAR      = SYSVAR('SYSNODE')
lpars     = "MZB MFOE MTY MCE"
Address TSO
Arg OPTION
say option lpar
If wordpos(lpar,lpars) > 1 then do
  say "XMIT" word(lpars,1)"."userid() "DA("OPTION")"
  "XMIT" word(lpars,1)"."userid() "DA("OPTION")"
  End
Else do x = 2 to words(lpars)
  say "XMIT" word(lpars,x)"."userid() "DA("OPTION")"
  "XMIT" word(lpars,x)"."userid() "DA("OPTION")"
  End
exit
