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

Reply via email to