Dyck, Lionel B. wrote:
>Nice - it does work - thank you. I don't know why I haven't been able to get
>outtrap to capture say's before. I will have to look closer. Great example.
Charles (Chuck) Hardee sample is working. In fact, OUTTRAP has been discussed
previously in IBM-MAIN.
Check Mark Zelden's website. There are some similar REXX programs which do the
same type of capturing.
I use this little example gem to do a nice LISTCAT of something in ISPF. I have
many such REXX programs getting info from ISPF, SDSF, etc. all of them using
OUTTRAP. This example has been heavely trimmed for posting here.
/* REXX */
ARG NAME
PROF NOPREF
ADDRESS TSO
IF NAME = '' THEN DO
SAY 'Please enter dataset name to list:'
PARSE UPPER PULL NAME
END
ADDRESS ISPEXEC "CONTROL ERRORS RETURN"
DDNM = USERID()'.DD'||RANDOM(1,99999)
JUNK = MSG(OFF)
/* ISSUE LISTCAT CMD AND TRAP OUTPUT */
JUNK=OUTTRAP(LINE.)
"LISTC ALL ENT("||NAME||")"
RETCODE = RC
JUNK=OUTTRAP('OFF')
ADDRESS ISPEXEC "LMINIT DATAID(LIST) DATASET("||DDNM||")"
ADDRESS ISPEXEC "BROWSE DATAID("||LIST")"
ADDRESS ISPEXEC "LMFREE DATAID("||LIST")"
"DELETE "||DDNM
JUNK = MSG(OFF)
ZDLMSG = 'LISTED RC='||RETCODE
ADDRESS ISPEXEC "VPUT ZDLMSG SHARED"
Groete / Greetings
Elardus Engelbrecht
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
