Using Rob Scott's IEFACTRT routine, here's how I tested with it on my test machine back in 2002: 1) Download Rob's source from http://www.mximvs.com/os390-misc.shtml 2) Changed all occurance of "IEFACTRT" to "ROBACTRT" 3) Added this to the end of the Assembler source: PUNCH ' INCLUDE AOSB3(IEFTB724) ' PUNCH ' ENTRY ROBACTRT ' PUNCH ' NAME ROBACTRT(R) ' END , 4) Added "//AOSB3 DD DISP=SHR,DSN=SYS1.AOSB3" to the assembly JCL 5) Assembled and linked it 6) Dynamically added it to my test machine via: SETPROG EXIT,ADD,EXITNAME=SYS.IEFACTRT,MODNAME=ROBACTRT, JOBNAME=IBMUSER*,DSNAME=IBMUSER.DAVE.LOAD 7) Ran Test job with jobname IBMUSERR --- Sample output from Rob Scott's IEFACTRT routine From the JES2 Job log: HTRT01I CPU (Total) Elapsed CPU (TCB) CPU (SRB) Service HTRT02I Jobname Stepname ProcStep RC I/O hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th hh:mm:ss.th Units HTRT03I IBMUSERR STEP01 129 187 00.02 01.63 00.02 00.00 1069 .. HTRT06I HTRT04I IBMUSERR Job Service Totals 187 00.02 01.64 00.02 00.00 1069 From the SYSMSGS: HTRT05I ------------------------------------------------------------------------ - Step Termination Statistics - - - - Program Name CEEULATR hh:mm:ss.th - - Step Name STEP01 Elapsed Time 01.63 - - Procedure Step TCB CPU Time 00.02 - - Return Code 129 SRB CPU Time 00.00 - - Total I/O 187 Total CPU Time 00.02 - - Service Units 1069 - - - - Region Size 4096K Pages Paged 0 - - Data/Hiperspace 0M Pages Swapped 0 - - ASID Swaps 0 Pages Stolen 0 - - VIO (In and Out) 0 - - - - --------Below 16Meg-------- --------Above 16Meg-------- - - Private Area 10216K Private Area 1735680K - - Max Allocated 640K Max Allocated 28K - - LSQA And SWA 328K LSQA And SWA 9016K - - - - DDName Unit Blksize I/O - - STEPLIB 3D90 6144 158 - - *System* 29 - - - ------------------------------------------------------------------------ IEF373I STEP/STEP01 /START 2002102.1423 IEF374I STEP/STEP01 /STOP 2002102.1423 CPU 0MIN 00.02SEC SRB 0MIN 00.00SEC VIRT 640K SYS 328K EXT 28K SYS 9016K