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

Reply via email to