Important: The TIMEUSED macro is NOT throwing an error. In the assembler
routine, I changed the BNZ AGAIN to branch to an Abend: BNZ ABEND_0001....
It never branched to the abend label.
This routine returns different results when invoked Static versus Dynamic from
IBM COBOL 6.
The values from the Dynamic call appear to be correct.
05 WS-VALUE PIC 9(12)V9(6) COMP-5.
Dynamic: CALL WS-CPUTIME USING WS-VALUE returns:
00000000000000 V 002176 Run 1
00000000000000 V 204318 Run 1
00000000000000 V 205151 Run 2
00000000000000 V 406169 Run 2
00000000000000 V 406418 Run 3
00000000000000 V 596453 Run 3
00000000000000 V 596666 Run 4
00000000000000 V 787845 Run 4
Static: CALL 'CPUTIME' USING WS-VALUE returns: (Compiler option is
NODYNAM. Invoking in Batch)
00000000000000 V 000000 Run 1
04984731896912 V 019456
04984772785000 V 677376 Run 2
04997547254689 V 562624
04997556669257 V 875456 Run 3
05009620716996 V 263936
05009629513089 V 286144 Run 4
05021729707272 V 437760
I have run out of ideas on what could cause the results to be different when
the routine is invoked via a Static call.
This is the assembler routine.
TITLE 'Get CPU TIME in Microseconds'
CPUTIME CSECT
CPUTIME AMODE 31
CPUTIME RMODE ANY
* Start: Program Entry
STM R14,R12,12(R13) Save registers in callers's SaveArea
LR R12,R15 BASE REGISTER FOR THIS PGM = R12
@PSTART EQU CPUTIME
USING @PSTART,R12
ST R13,SaveArea+4 BACK CHAIN : CALLER'S IN OUR'S
LA R14,SaveArea
ST R14,8(,R13) FORWARD CHAIN: OUR'S INTO CALLER'S
LR R13,R14 PUT ADDRESS OF OUR SAVEAREA IN R13
*
*---------------------------------------------------------------------
* PROGRAM LOGIC
THISPGM EQU *
L R2,0(R1) Parm 1: PIC 9(12)V9(6) or 9(18) COMP-5.
AGAIN TIMEUSED STORADR=(R2),LINKAGE=SYSTEM,CPU=MIC
BNZ AGAIN
*
*---------------------------------------------------------------------
* Program Exit Successful CC = 00
DONE EQU *
XR R15,R15 RC=00
L R13,4(,R13) Restore Caller's savearea Address
L R14,12(,R13) Caller's Return Address
LM R0,R12,20(R13) Restore caller's R0 thru R12
BR R14
*-------------------------------------------------------------------
SAVEAREA DS 18F
DATA LTORG
COPY REGISTER
END
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
