A quick checklist: - DYN option? - Verify Rent/Reus modules implied - Check options. Run with RPTOPTS(ON) - Check Storage pool usage. Run with RPTSPG(ON) - IS INITIAL? - Large tables with values?
El mar, 20 may 2025, 9:40, Ravikumar Srinivasan < 00000532115e11a8-dmarc-requ...@listserv.ua.edu> escribió: > 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
