Formatting the trace data from an external trace of IMS Connect

	//STEP01  EXEC  PGM=IKJEFT01,REGION=0M,COND=(0,LT)              
	//STEPLIB  DD   DISP=SHR,DSN=IMSBLD.I11RTS19.CRESLIB            
	//SYSTSPRT DD   SYSOUT=*                                        
	//IPCSPRNT DD   SYSOUT=*                                        
	//IPCSPARM DD   DISP=SHR,DSN=SYS1.PARMLIB                       
	//SYSTSIN  DD   *                                               
	  ALLOC F(IPCSDDIR) DA('IMSTESTL.DDIR') SHR REUSE               
	  ALLOC F(INFILE)   DA('IMSTESTL.RCTR.GDG01.G0001V00') SHR REUSE
	  IPCS NOPARM                                                   
	  SETDEF DSN('IMSTESTL.RCTR.GDG01.G0001V00')                    
	  SETDEF NOPROBLEM PRINT NOTERMINAL                             
	  VERBX BPETRFM0 'TRACE(TYPE(ALL))'                             
	  END                                                           
	//