Perhaps something like this??
/* REXX */
TRACE I
CONSOLE DEACTIVATE
CONSOLE ACTIVATE
COUNTER = 5
DO I = 1 TO COUNTER
CONSOLE "SYSCMD($DOFF1.SR) CART(OFFMESG2)"
GETCODE = GETMSG('PRTMSG.','SOL',OFFMESG2,,30)
IF GETCODE = 0
THEN DO
IF POS('STATUS=INACTIVE',PRTMSG.2) > 0
THEN I = COUNTER + 1
ELSE "CALL 'SYS1.LINKLIB(WAIT)' '00000200'"
END
END
CONSOLE DEACTIVATE
EXIT
--- [email protected] wrote:
From: Mark Pace <[email protected]>
To: [email protected]
Subject: REXX and the console
Date: Mon, 4 Jan 2016 15:34:25 -0500
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
_____________________________________________________________
Netscape. Just the Net You Need.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
