You can buffer the input but that will not reduce CPU usage. What is the blocksize on the output? How much print output? How large is the output file? Can you send me the SYSOUT and JESLOG?
Ralph Bertrum Chief Technical Officer Critical Path Software, LLC 212-686-4350 Office ra...@turbotune.com www.turbotune.com ________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> on behalf of Ravikumar Srinivasan <00000532115e11a8-dmarc-requ...@listserv.ua.edu> Sent: Saturday, May 24, 2025 1:31 AM To: IBM-MAIN@LISTSERV.UA.EDU <IBM-MAIN@LISTSERV.UA.EDU> Subject: Re: LE routine IGZXLPKA consumes considerable CPU time Ralph, Thank you so much for your reply!! Below is the JCL of the job step //G EXEC PGM=IKJEFT1B,DYNAMNBR=20 //STEPLIB DD DSN=PROD.COBOL.LOADLIB,DISP=SHR // DD DSN=DB2.V12.SDSNLOAD,DISP=SHR // DD DSN=DB2.V12.SDSNLOD2,DISP=SHR //SYSOUT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSPRINT DD SYSOUT=* //DB2ERROR DD SYSOUT=* //SYSTSIN DD * DSN SYSTEM(DSN) RUN PROGRAM(Z0XX0XXK) - END //* //IN1 DD DSN=&&IN1,DISP=(OLD,DELETE) (RECFM=FB; LRECL=95; BLKSIZE= 27930) //LKUP1 DD DISP=(OLD,DELETE),DSN=&&LKUP1 (RECFM=FB; LRECL=10; BLKSIZE= 27990) //LKUP2 DD DISP=(OLD,DELETE),DSN=&&LKUP2 (RECFM=FB; LRECL=10; BLKSIZE= 27990) //OUT DD DSN=&&OUT,DISP=(,PASS), // DCB=(RECFM=FBA,BLKSIZE=0,LRECL=170,DSORG=PS), // SPACE=(CYL,(100,500),RLSE),BUFNO=30 //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* ---------------------------------------------------------------------- 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
