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