Sample of JCL for Printing Dumps into Print and Partitioned Data Sets

The following JCL prints a dump, using IPCS, from the system dump data set into Print and Partitioned Data Sets:

Figure 1. Example JCL to Print a Dump with IPCS into Print and Partitioned Data Sets

//SUMDUMP2 JOB
//GTFPRNT  EXEC  PGM=IKJEFT01,DYNAMNBR=20,REGION=1500K                  
//DUMP     DD  DSN=SYS1.DUMP02,DISP=SHR                              
//SYSPROC  DD  DSN=SYS1.SBLSCLI0,DISP=SHR                               
//SYSTSPRT DD  SYSOUT=A                                                 
//IPCSDDIR DD  DSN=SYS4.DDIR,DISP=SHR                                   
//IPCSPRNT DD  SYSOUT=A                                                 
//IPCSTOC  DD  SYSOUT=A                                                 
//SYSTSIN  DD  *  
  ALLOC DDNAME(IPCSPDS) DSNAME('IPCSU1.SESS7.PDS') SHR 
  IPCSDDIR 'SYS4.DDIR'                                                  
  IPCS NOPARM                                                           
  SETDEF DDNAME(DUMP) LIST NOCONFIRM                                    
  SETDEF PRINT PDS                                                        
  VERBX  SUMDUMP
  SETDEF NOPRINT NOPDS                                                       
  FREE DDNAME(IPCSPDS)
  END                                                                   
/*