" Or are you looking for a source scanner that will tell you" Yes I am looking for a source scanner.
> > > On Thu, Mar 8, 2012 at 3:33 AM, charles hottel <[email protected]>wrote: > >> //JOBNAME JOB (ACCT,ROOM),'HOTTEL TASKTIME',MSGCLASS=S,CLASS=K >> //PROCLIB JCLLIB ORDER=USERID.DVL.PROC >> // SET TITLE1='PFX.TASKTIME' >> //OUTPUT INCLUDE MEMBER=DESTCH >> //*-------------------------------------------------------------------* >> //* ASSEMBLY * >> //*-------------------------------------------------------------------* >> //STEP02 EXEC HLASMCL >> //ASM.SYSUT2 DD DSN=&&SYSUT2,UNIT=SYSDA, >> // SPACE=(1700,(600,100)) >> //ASM.SYSPUNCH DD DUMMY >> //ASM.SYSIN DD * >> TASKTIME TITLE 'GET CPU TIME IN MICROSECONDS SINCE TASK STARTED' >> TASKTIME AMODE 31 >> TASKTIME RMODE ANY >> TASKTIME START >> *---------------------------------------------------------------------* >> * 01 STARTED PIC S9(18) COMP. * >> * 01 ENDED PIC S9(18) COMP. * >> * 01 ELAPSED PIC S9(18) COMP. * >> * 01 RUNNING-TOTAL PIC S9(18) COMP VALUE ZERO. * >> * * >> * PERFORM X TIMES * >> * CALL 'TASKTIME' USING STARTED * >> * . . . CODE BEING TIMED * >> * CALL 'TASKTIME' USING ENDED * >> * COMPUTE ELAPSED = ENDED - STARTED * >> * DISPLAY ELAPSED ' CPU MICROSECONDS THIS ITERATION' * >> * ADD ELAPSED TO RUNNING-TOTAL * >> * END-PERFORM * >> * DISPLAY RUNNING-TOTAL ' IS TOTAL CPU FOR ALL ITERATIONS' * >> * * >> *---------------------------------------------------------------------* >> YREGS >> TASKTIME CSECT , >> SAVE (14,12),,TASKTIME.&SYSDATE..&SYSTIME >> LR R12,R15 BASE REG >> USING TASKTIME,R12 >> L R5,0(R1) POINT TO CALLER'S DBLWORD >> XR R15,R15 >> TIMEUSED STORADR=(5),LINKAGE=SYSTEM,CPU=MIC >> RETURN (14,12),RC=(15) >> END TASKTIME >> //LKED.SYSLMOD DD DSN=USERID.TOOLS.LOAD(TASKTIME),DISP=SHR >> //LKED.SYSIN DD * >> NAME TASKTIME(R) >> >> >> >> Charles Hottel >> >> -----Original Message----- >> From: IBM Mainframe Assembler List [mailto: >> [email protected]] >> On Behalf Of Jake anderson >> Sent: Wednesday, March 07, 2012 3:05 AM >> To: [email protected] >> Subject: CPU timeused >> >> Hello All, >> >> I am looking for a assembler source code which would help in measurng the >> CPU time taken for each statement in COBOL. Could anyone advise me if you >> have sample Code using which I can modify according to my requirement. >> >> Jake >> > >
