Anthony, Good eye. I'm betting you'll be getting the gold star for this one. ☺
Regards. -- Donald Grinsell, Systems Programmer Enterprise Technology Services Bureau SITSD/Montana Department of Administration 406.444.2983 (D) "I would like to see every single soldier on every single side, just take off your helmet, unbuckle your kit, lay down your rifle, and set down at the side of some shady lane, and say, nope, I aint a gonna kill nobody. Plenty of rich folks wants to fight. Give them the guns." ~ Woody Guthrie > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Cieri, Anthony > Sent: Monday, September 18, 2017 12:36 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: REXX and SDSF question > > > Are you accommodating for the different SYSNAMEs that you are > processing (LPARs) : > > QUEUE " SYSNAME ESA1" > > > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Barkow, Eileen > Sent: Monday, September 18, 2017 2:30 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: Re: REXX and SDSF question > > Is CICSREGION set properly? > What happens if you hard code the region name prefix? > Or try it in quotes and SET DISPLAY ON: > > QUEUE "SET DISPLAY ON" > QUEUE "PREFIX "CICSREGION" " > > -----Original Message----- > From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On > Behalf Of Peter Ten Eyck > Sent: Monday, September 18, 2017 12:43 PM > To: IBM-MAIN@LISTSERV.UA.EDU > Subject: REXX and SDSF question > > I have some rexx code that is working on one z/OS 2.2 LPAR and "partially" on > another. > > The code determines if a CICS region is running and if the desired messages > are found in the DD JESMSGLG. > > This code chunk is what goes out gets the SDSF output: > > CHECKCICSSTATUS: > ADDRESS TSO > "ALLOC F(FILEOUT) UNIT(VIO) NEW REUSE", "CYLINDERS SPACE(10 10) RECFM(F B > A)" > "ALLOC FI(ISFOUT) DUMMY" > "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 " 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)" > ADDRESS TSO > "EXECIO * DISKR FILEOUT (STEM REC. FINIS" > "FREE FI(ISFIN ISFOUT FILEOUT)" > > It returns all the output records in a stem variable REC. > > REC.0 contains the total number of records and REC.1 - REC.? > contains each record. > > This works fine on one LPAR and works for something's (possibly just jobs) on > another LPAR, but not STCs. > > Does anyone have a suggestion why I am not able to retrieve the output for > STCs on one of the LPARs? > > Scratching my head... > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > > ________________________________ > > This e-mail, including any attachments, may be confidential, privileged or > otherwise legally protected. It is intended only for the addressee. If you > received this e-mail in error or from someone who was not authorized to send > it to you, do not disseminate, copy or otherwise use this e-mail or its > attachments. Please notify the sender immediately by reply e-mail and delete > the e-mail from your system. > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, send email to > lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
