As Gil noted, this is the old pre-API method of running SDSF out of Rexx. There's nothing essentially wrong with the technique except that you have to orchestrate a complete scenario like a line of domino tiles. If anything goes wrong, you have no way to intervene and change direction. The API allows you execute SDSF functions and take action based on what actually happens rather than solely on what you planned for.
. . J.O.Skip Robinson Southern California Edison Company Electric Dragon Team Paddler SHARE MVS Program Co-Manager 323-715-0595 Mobile 626-543-6132 Office ⇐=== NEW robin...@sce.com -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Peter Ten Eyck Sent: Monday, September 18, 2017 1:10 PM To: IBM-MAIN@LISTSERV.UA.EDU Subject: (External):Re: REXX and SDSF question This is now working for me. I added the SDSF command input on to see all DDs via TSO SDSF and ISPF SDSF: CHECKCICSSTATUS: ADDRESS TSO "ALLOC F(FILEOUT) UNIT(VIO) NEW REUSE", "CYLINDERS SPACE(10 10) RECFM(F B A)" "ALLOC FI(ISFOUT) SYSOUT(Q)" "ALLOC F(ISFIN) UNIT(VIO) NEW REUSE", "RECFM(F B) BLK(3120) LRECL(80)", "SPACE(5 5) CYLINDERS DSORG(PS)" QUEUE " DA ALL" QUEUE " OWNER *" QUEUE " SYSNAME ESA1" QUEUE " INPUT ON" QUEUE " PRE " CICSREGION QUEUE " FIND " CICSREGION QUEUE " ++?" QUEUE " FIND JESMSGLG" QUEUE " ++S" QUEUE " PRINT FILE FILEOUT" QUEUE " PRINT" QUEUE " PRINT CLOSE" QUEUE "" "EXECIO * DISKW ISFIN (FINIS" ADDRESS ISPEXEC "SELECT PGM(SDSF)" Thanks for all the suggestions. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
