Expanding IGZXLPKA may tell you which CSECTS are being heavily used, which may help you dig down.
I cannot tell from your text whether the proga and progb are called the same number of times, or if there is logic so one is called many more times. The % time is the number of samples where the program was executing. It could be a thin program executed many times, or a fat program executed a few times. I've seen cases where one module was more expensive than another because the heap had to keep being expanded etc. As someone else suggested you check your rptstg reports. Please feel free to contact me offline Colin On Tue, 20 May 2025 at 08:41, Ravikumar Srinivasan < 00000532115e11a8-dmarc-requ...@listserv.ua.edu> wrote: > 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 lists...@listserv.ua.edu with the message: INFO IBM-MAIN > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
