Hi experts,
I am working on a batch job step that invokes a COBOL program which in turn
invokes other COBOL programs. This particular job step takes about 12 minutes
of CPU time. It processes about 63 million input records.
I have setup an IBM APA profile for this job step. Split up of the CPU
utilization for the job step is given below.
LE routine IGZXLPKA consumes about 11% of CPU time.
CPU attribution shows "CALL WS-PGMA", takes about 9% of CPU time.
CPU attribution shows "CALL WS-PGMB", takes about 0.11% of CPU time.
As shown below from the source code, WS-PGMA is invoked after WS-PGMB. Both the
programs are invoked about 63 million times. Yet "CALL WS-PGMA" takes about 9%
of CPU time.
Can you please advise why call to WS-PGMA consumes such high CPU time compared
to call to WS-PGMB ?
Name Description Percent of CPU Time * 10.00% ±0.8%
*....1....2....3....4....5....6....7...
DB2SQL SQL Processing 64.77
SYSTEM System/OS Services 24.29
± DB2 DB2 Subsystem 12.34
± LERUNLIB Language Environment 11.13
Runtime
± IGZXLPKA COBOL Module 11.10
± IGZXLPIO COBOL Module 0.03
± MVS MVS System 0.78
± SVC SVC Routines 0.02
APPLCN Application Code 10.74
NOSYMB No Module Name 0.09
DATAMG DataMgmt Processing 0.08
002548 Attribution Offset 9.24
Source Statement in: 500-GET-RETXXX
072000 CALL WS-PGMA USING
072100 GRP-VAR1
072200 GRP-VAR2
00248C Attribution Offset 0.11
Source Statement in: 400-GET-CXXX
069900 CALL WS-PGMB USING
070000 GRP-VAR1
070100 SQLCA
070200 GRP-VAR3
070300 GRP-VAR4
Source code
-----------
IF SUCCESS
PERFORM 400-GET-CXXX
IF SUCCESS
PERFORM 500-GET-RETXXX
IF SUCCESS
PERFORM 600-BUILD-OUTPUT-REC
END-IF
END-IF
END-IF
400-GET-CXXX.
- - - - - - - - - - - -
CALL WS-PGMB USING
GRP-VAR1
SQLCA
GRP-VAR3
GRP-VAR4
500-GET-RETXXX.
- - - - - - - - - - - - -
CALL WS-PGMA USING
GRP-VAR1
GRP-VAR2
Thanks,
Ravikumar
This e-mail and any files transmitted with it are for the sole use of the
intended recipient(s) and may contain confidential and privileged information.
If you are not the intended recipient(s), please reply to the sender and
destroy all copies of the original message. Any unauthorized review, use,
disclosure, dissemination, forwarding, printing or copying of this email,
and/or any action taken in reliance on the contents of this e-mail is strictly
prohibited and may be unlawful. Where permitted by applicable law, this e-mail
and other e-mail communications sent to and from Cognizant e-mail addresses may
be monitored.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
