Formatting component traces using a batch job

//jobname   DD (accounting),pgmname,CLASS=A,MSGCLASS=A
//DUMP    EXEC PGM=IKJEFT01 
//STEPLIB DD DISP=SHR,DSN=SYS1.MIGLIB
//SYSPRINT  DD SYSOUT=* 
//SYSUDUMP  DD SYSOUT=* 
//SYSTSPRT  DD SYSOUT=*  
//PRINTER   DD SYSOUT=* 
//SYSPROC   DD DISP=SHR,DSN=SYS1.CLIST
//          DD DISP=SHR,DSN=SYS1.SBLSCLI0  
//IPCSPARM  DD DISP=SHR,DSN=SYS1.PARMLIB
//          DD DISP=SHR,DSN=CPAC.PARMLIB  
//          DD DISP=SHR,DSN=SYS1.IBM.PARMLIB 
//IPCSPRNT  DD SYSOUT=*  
//IPCSTOC   DD SYSOUT=*   
//IPCSDDIR  DD DISP=SHR,DSN=userid.IPCS.DMPDIR 
//SYSTSIN   DD *
 IPCS NOPARM
 SETDEF DA('ctrace.dataset')
 CTRACE COMP(SYSTCPIP) SUBNAME((tcpiprocname)) OPTIONS((systcpip_options_string)) +  
  FULL LOCAL
 END
/*

Note: IPCSPARM DD should be modified as follows:
//IPCSPARM DD DISP=SHR,DSN=SYS1.PARMLIB     
//         DD DISP=SHR,DSN=CPAC.PARMLIB     
//         DD DISP=SHR,DSN=SYS1.IBM.PARMLIB 
                                            
These concatenations will be used to locate the BLSCECT member that 
is required by IPCS