I use the ISFCALLS with ISFSLASH to run commands:
/* REXX */
begin = 'false'
cmd.0 = 1
cmd.1 = 'd omvs,l'
x=isfcalls("on")
"ALLOC F(O) DA(A7G.OUT) DSORG(PS) SPACE(2,0) TRACKS LRECL(132) RECFM(F,B) NEW"
ADDRESS SDSF ISFSLASH "("cmd.") (WAIT)"
do i=1 to isfulog.0
If POS('MAXPROCSYS',isfulog.i) <> 0 Then
BEGIN='TRUE'
If BEGIN = 'TRUE' Then
CALL PARSEMSGS(isfulog.i)
End
"EXECIO 0 DISKW O (FINIS"
"FREE F(O)"
x=isfcalls("off")
exit
/* This routine will parse out what we want from the messages */
PARSEMSGS:
ARG PRTMSG
PARSE VAR PRTMSG LIMIT MPCUR MPHIGH MPLIM .
out.0=4
out.1=LIMIT
out.2=" Current Usage: "MPCUR
out.3=" Highwater Usage: "MPHIGH
out.4=" System Limit: "MPLIM
"EXECIO * DISKW O (STEM out."
RETURN
That runs a d omvs,l command and captures the output.
ISFSLASH would be where I started.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of Mark Pace
Sent: Monday, January 04, 2016 3:34 PM
To: [email protected]
Subject: REXX and the console
I was hoping to be able to issue a command to the console, eg. D M, and capture
the output in a REXX exec. I though I might be able to use SDSF interface, but
as of yet I've been able to find that might work.
If it is in fact possible, could some give me a pointer where I might start
reading?
--
The postings on this site are my own and don’t necessarily represent Mainline’s
positions or opinions
Mark D Pace
Senior Systems Engineer
Mainline Information Systems
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] with the message: INFO IBM-MAIN
E-MAIL CONFIDENTIALITY NOTICE: This e-mail from Donegal Insurance Group may
contain CONFIDENTIAL and legally protected information. If you are not an
intended recipient, please do not copy, use or disclose this email or its
contents to others; and please notify us by calling toll free (800) 877-0600
x7880 or by replying to this message, and then delete it from your system.
Delivery of this email to an unintended recipient is not a waiver of any
attorney-client or other applicable privilege.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
