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 [email protected] with the message: INFO IBM-MAIN
