I am using listuser command on ISPF Commad shell
Command LISTUSER, I am getting output displayed
but I need this in the MF file. how I can do this?
Thanks
/* REXX exec to view the output of a TSO command */
/*** trace ?r ***************************************************** \| *
* (C) Copyright Robert AH Prins, 2007-2007 *
************************************************************************
* ------------------------------------------------------------------ *
* | Date | By | Remarks | *
* |------------+------+----------------------------------------------| *
* | | | | *
* |------------+------+----------------------------------------------| *
* | 2007-08-09 | RAHP | Give message for missing command | *
* |------------+------+----------------------------------------------| *
* | 2007-07-10 | RAHP | Initial version | *
* |------------+------+----------------------------------------------| *
************************************************************************
* VI is a REXX exec to view the output of a TSO command. *
************************************************************************
* Send questions, suggestions and/or bug reports to: *
* *
* robert(a)prino.org / robert.ah.prins(a)gmail.com *
* *
* Robert AH Prins *
* Ozkiniu gatve 48 *
* 08410 Vilnius *
* Lithuania *
************************************************************************
* This program is free software: you can redistribute it and/or *
* modify it under the terms of the GNU General Public License as *
* published by the Free Software Foundation, either version 3 of *
* the License, or (at your option) any later version. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
* GNU General Public License for more details. *
* *
* You should have received a copy of the GNU General Public License *
* along with this program. If not, see <http://www.gnu.org/licenses/> *
***********************************************************************/
parse source source
parse value source with . . moi .
"ispexec control errors return"
arg tsocmd
if strip(tsocmd) = '' then
do
say 'The' moi 'command needs a TSO command as parameter'
exit
end
dynds = 'dyn' || random(99999)
junk = msg(off)
"alloc f("dynds") new delete reu " ||,
"unit(sysda) " ||,
"space(150,150) tracks release " ||,
"recfm(f b) lrecl(140) blksize(0) "
junk = msg(on)
junk = outtrap(LINE.)
address tso tsocmd
junk = outtrap('off')
"execio" line.0 "diskw" dynds "(stem line. finis"
"ispexec lminit dataid(temp) ddname("dynds")"
"ispexec view dataid("temp")"
"ispexec lmfree dataid("temp")"
junk = msg(off)
"free fi("dynds")"