Did you say which version of the COBOL compiler you're using? IBM Enterprise COBOL for z/OS v4 and earlier will value BLL cells to cover the entire range of each linkage item, even if those cells would never be used. Each cell is 4K. Your linkage items in WS-PGMA are 30,000,004 bytes each, which require 7,325 BLL cells each -- 14,650 cells in total. That's going to take time to set up in the program prologue logic.
COBOL v5 and later will only use one BLL for each linkage item. -----Original Message----- From: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> On Behalf Of Ravikumar Srinivasan Sent: Thursday, May 22, 2025 1:02 AM To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: LE routine IGZXLPKA consumes considerable CPU time [Some people who received this message don't often get email from 00000532115e11a8-dmarc-requ...@listserv.ua.edu. Learn why this is important at https://aka.ms/LearnAboutSenderIdentification ] Thank you so much for all your replies!! All COBOL prorgams are involved in this job have REUSE and REENTRANT attributes. Programs are compiled using "NODYNAM" option. Compile time options for WS-PGMA --------------------------------- NOADATA NOADV AFP(NOVOLATILE) APOST ARCH(12) ARITH(COMPAT) NOAWO NOBLOCK0 NOCICS NOCMPR2 CODEPAGE(01140) NOCOPYRIGHT NOCURR DATA(31) NODBCS NODECK DISPSIGN(COMPAT) NODLL DP NODUM NODYNAM NOEXP NOFASTSRT HGPR(PRESERVE) INLINE INTDATE(ANSI) LIB NOLIST MAP NOMDECK NONAME NONUM NONUMCHECK NUMCLS(PRIM) NUMPROC(NOPFD) OBJ OFFSET OPT(1) NOOPTFILE NOPARMCHECK PGMNAME(CO) QUALIFY(COMPAT) RENT RMODE(ANY) NOSEQ NOSERVICE SIZE SOURCE NOSQL NOSQLIMS NOSSR NOSTGOPT SUPPRESS NOTERM TEST(NOEJPD,DWARF,SOURCE,NOSEPARATE) NOTHREAD TRUNC(STD) NOVBREF VLR(COMPAT) NOWORD XP(XMLSS) XREF ZONEDATA(PFD) ZWB Compile time options for WS-PGMB --------------------------------- NOADATA NOADV AFP(NOVOLATILE) APOST ARCH(12) ARITH(COMPAT) NOAWO NOBLOCK0 NOCICS NOCMPR2 CODEPAGE(01140) NOCOPYRIGHT NOCURR DATA(31) NODBCS NODECK DISPSIGN(COMPAT) NODLL DP NODUM NODYNAM NOEXP NOFASTSRT HGPR(PRESERVE) INLINE INTDATE(ANSI) LIB NOLIST MAP NOMDECK NONAME NONUM NONUMCHECK NUMCLS(PRIM) NUMPROC(NOPFD) OBJ OFFSET OPT(1) NOOPTFILE NOPARMCHECK PGMNAME(CO) QUALIFY(COMPAT) RENT RMODE(ANY) NOSEQ NOSERVICE SIZE SOURCE NOSQL NOSQLIMS NOSSR NOSTGOPT SUPPRESS NOTERM TEST(NOEJPD,DWARF,SOURCE,NOSEPARATE) NOTHREAD TRUNC(STD) NOVBREF VLR(COMPAT) NOWORD XP(XMLSS) XREF ZONEDATA(PFD) ZWB Below is the length of the variables passed to WS-PGMA. CALL WS-PGMA USING GRP-VAR1 (length 265 bytes) GRP-VAR2 (length 426 bytes) Below two arrays are in working storage section of WS-PGMA. They do not have any VALUE clauses. 01 WS-ARRAY1. length 899,991 bytes 01 WS-ARRAY2. length 72,022 bytes Below two arrays are in linkage storage section of WS-PGMA. They do not have any VALUE clauses. 01 LS-VAR1. length 30,000,004 bytes 01 LS-VAR2. length 30,000,004 bytes Below is the LE options and storage report ------------------------------------------ COBOL Run-time Options Report 05/21/25 17:37:55 This report supplements Language Environment Options Report LAST WHERE SET OPTION ------------------------------------------------------------------------------- >From LE Option setting NOAMODE3164 >From LE Option setting NOSKIPDWARF >From LE Option setting NOQSAMBUFATL >From LE Option setting BUFFINITCHAR(DEFAULT) >From LE Option setting NOVSAMDYNAMICDIR >From LE Option setting NODISABLEUOPTREPORT End of COBOL Run-time Option Report Options Report for Enclave Z0XX0YYK 05/21/25 5:37:55 PM Language Environment V02 R05.00 LAST WHERE SET OPTION ---------------------------------------------------------------------------- IBM-supplied default ABPERC(NONE) IBM-supplied default ABTERMENC(ABEND) IBM-supplied default NOAIXBLD PARMLIB(CEEPRM00) ALL31(OFF) IBM-supplied default ANYHEAP(16384,8192,ANYWHERE,FREE) IBM-supplied default NOAUTOTASK IBM-supplied default BELOWHEAP(8192,4096,FREE) IBM-supplied default CBLOPTS(ON) IBM-supplied default CBLPSHPOP(ON) IBM-supplied default CBLQDA(OFF) IBM-supplied default CEEDUMP(60,SYSOUT=*,FREE=END,SPIN=UNALLOC) IBM-supplied default CHECK(ON) IBM-supplied default COUNTRY(US) PARMLIB(CEEPRM00) DEBUG IBM-supplied default DEPTHCONDLMT(10) IBM-supplied default DYNDUMP(*USERID,NODYNAMIC,TDUMP) IBM-supplied default ENVAR("") IBM-supplied default ERRCOUNT(0) IBM-supplied default ERRUNIT(6) IBM-supplied default FILEHIST PARMLIB(CEEPRM00) FILETAG(AUTOCVT,NOAUTOTAG) Default setting NOFLOW IBM-supplied default HEAP(32768,32768,ANYWHERE,KEEP,8192,4096) IBM-supplied default HEAPCHK(OFF,1,0,0,0,1024,0,1024,0) IBM-supplied default HEAPPOOLS(OFF,8,10,32,10,128,10,256,10,1024,10, IBM-supplied default HEAPZONES(0,ABEND,0,ABEND) IBM-supplied default INFOMSGFILTER(OFF,,,,) IBM-supplied default INQPCOPN IBM-supplied default INTERRUPT(OFF) PARMLIB(CEEPRM00) LIBSTACK(8192,4096,FREE) IBM-supplied default MSGFILE(SYSOUT,FBA,121,0,NOENQ) IBM-supplied default MSGQ(15) IBM-supplied default NATLANG(ENU) Ignored NONONIPTSTACK(See THREADSTACK) IBM-supplied default OCSTATUS IBM-supplied default PAGEFRAMESIZE(4K,4K,4K) IBM-supplied default NOPC IBM-supplied default PLITASKCOUNT(20) IBM-supplied default POSIX(OFF) IBM-supplied default PROFILE(OFF,"") IBM-supplied default PRTUNIT(6) IBM-supplied default PUNUNIT(7) IBM-supplied default RDRUNIT(5) IBM-supplied default RECPAD(OFF) DD:CEEOPTS RPTOPTS(ON) DD:CEEOPTS RPTSTG(ON) IBM-supplied default NORTEREUS IBM-supplied default NOSIMVRD PARMLIB(CEEPRM00) STACK(131072,131072,BELOW,KEEP,524288,131072) PARMLIB(CEEPRM00) STORAGE(NONE,NONE,NONE,8192) IBM-supplied default TERMTHDACT(TRACE,,96) IBM-supplied default NOTEST(ALL,"*","PROMPT","INSPPREF") IBM-supplied default THREADHEAP(4096,4096,ANYWHERE,KEEP) PARMLIB(CEEPRM00) THREADSTACK(OFF,4096,4096,BELOW,KEEP,131072,131 IBM-supplied default TRACE(OFF,4096,DUMP,LE=0) IBM-supplied default TRAP(ON,SPIE) IBM-supplied default UPSI(00000000) IBM-supplied default NOUSRHDLR(,) IBM-supplied default VCTRSAVE(OFF) IBM-supplied default XPLINK(OFF) IBM-supplied default XUFLOW(AUTO) Storage Report for Enclave Z0XX0YYK 05/21/25 5:37:55 PM Language Environment V02 R05.00 STACK statistics: Initial size: 131072 Increment size: 131072 Maximum used by all concurrent threads: 8456 Largest used by any thread: 8456 Number of segments allocated: 1 Number of segments freed: 0 THREADSTACK statistics: Initial size: 0 Increment size: 0 Maximum used by all concurrent threads: 0 Largest used by any thread: 0 Number of segments allocated: 0 Number of segments freed: 0 LIBSTACK statistics: Initial size: 8192 Increment size: 4096 Maximum used by all concurrent threads: 0 Largest used by any thread: 0 Number of segments allocated: 1 Number of segments freed: 0 THREADHEAP statistics: Initial size: 4096 Increment size: 4096 Maximum used by all concurrent threads: 0 Largest used by any thread: 0 Successful Get Heap requests: 0 Successful Free Heap requests: 0 Number of segments allocated: 0 Number of segments freed: 0 HEAP statistics: Initial size: 32768 Increment size: 32768 Total heap storage used (sugg. initial size): 62805600 Successful Get Heap requests: 25 Successful Free Heap requests: 0 Number of segments allocated: 5 Number of segments freed: 0 HEAP24 statistics: Initial size: 8192 Increment size: 4096 Total heap storage used (sugg. initial size): 304 Successful Get Heap requests: 3 Successful Free Heap requests: 3 Number of segments allocated: 1 Number of segments freed: 0 ANYHEAP statistics: Initial size: 16384 Increment size: 8192 Total heap storage used (sugg. initial size): 17360 Successful Get Heap requests: 28 Successful Free Heap requests: 4 Number of segments allocated: 2 Number of segments freed: 0 NXHEAP statistics: Initial size: 4096 Increment size: 4096 Total heap storage used (sugg. initial size): 0 Successful Get Heap requests: 0 Successful Free Heap requests: 0 Number of segments allocated: 0 Number of segments freed: 0 BELOWHEAP statistics: Initial size: 8192 Increment size: 4096 Total heap storage used (sugg. initial size): 4336 Successful Get Heap requests: 33 Successful Free Heap requests: 8 Number of segments allocated: 1 Number of segments freed: 0 Additional Heap statistics: Successful Create Heap requests: 0 Successful Discard Heap requests: 0 Total heap storage used: 0 Successful Get Heap requests: 0 Successful Free Heap requests: 0 Number of segments allocated: 0 Number of segments freed: 0 Largest number of threads concurrently active: 1 End of Storage Report C01: CPU Usage by Category -------------------------- 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 ± IGZ@SCH4 COBOL Module 7.73 ± IGZXMCPY COBOL Module 2.61 ± IGZXFCA4 COBOL Module 0.43 ± IGZXFCAL COBOL Module 0.31 ± IGZXLPIO COBOL Module 0.03 ± MVS MVS System 0.78 ± SVC SVC Routines 0.02 APPLCN Application Code 10.74 lllll NOSYMB No Module Name 0.09 DATAMG DataMgmt Processing 0.08 S03: Load Module Summary -------------------------- Module Locn Address Count Size(bytes) Attributes DDName Lo ACF9C000 LPA 00000000_1D23C2A8 1 343,384 RU RN APF CAZ00670 CSA 00000000_180B4E90 1 4,464 CAZ00681 CSA 00000000_181A1EF8 1 16,648 RU RN STEPLIB CA CAZ00978 CSA 00000000_1819CFA8 1 4,184 RU RN STEPLIB CA CEEBINIT JPA 00000000_0000D000 1 46,272 RU RN -VLF- CE CEEPLPKA PLPA 00000000_07D31000 1 2,250,480 CE DSNECP00 JPA 00000000_00032000 1 16,616 RU RN -VLF- DB DSNECP10 JPA 00000000_0003B000 1 421,584 RU RN -VLF- DB DSNGD001 JPA 00000000_1DB00000 1 1,461,336 RU RN STEPLIB DB DSNIDM JPA 00000000_1DD00000 1 14,325,496 RU RN STEPLIB DB DSNJL002 CSA 00000000_18FD9000 1 561,152 DSNSLD4 CSA 00000000_1939A000 1 49,152 DSNTLM JPA 00000000_1DAF04D0 1 36,512 RU RN STEPLIB DB DSNVRMEL CSA 00000000_193C89C0 1 5,696 DSNWVSR1 CSA 00000000_19284A40 1 17,856 DSNXEEZ CSA 00000000_18C0F948 1 9,912 DSNXGRDS JPA 00000000_1F600000 1 33,612,072 RU RN STEPLIB DB DSN3EPX CSA 00000000_1D09D000 1 46,000 DXRRLM60 JPA 00000000_1D900000 1 106,312 RU RN IAXKD NUC 00000000_0191A238 1 15,256 IAXPN NUC 00000000_01C1D260 1 8,256 IAXPQ NUC 00000000_01C23FE8 1 22,200 ICYEXIT NUC 00000000_01207F58 1 1,480 ICYRDWR NUC 00000000_011F4390 1 20,448 ICYSTOR NUC 00000000_0105E228 1 11,312 IDA019L1 PLPA 00000000_05FCD000 1 345,624 SY IDBPDTCC JPA 00000000_1DA50000 1 12,288 RU RN IEASMFEX NUC 00000000_00FE8EE0 1 2,424 IEAVEECT NUC 00000000_012A9690 1 300 IEAVEGAR NUC 00000000_014C2A30 1 6,944 IEAVEPS1 NUC 00000000_014F9D18 1 15,040 IEAVRT05 NUC 00000000_012D4C40 1 2,192 IEAVTSFR NUC 00000000_00FEAE00 1 2,520 IEAVTSFV NUC 00000000_014EE200 1 384 IECVEXCP NUC 00000000_00FF3060 1 12,550 IECVPST NUC 00000000_01120FD8 1 9,248 IECVXCCW NUC 00000000_0142F538 1 4,412 IFGDEBCK NUC 00000000_00FF9B20 1 476 IFG019RA PLPA 00000000_00EC2000 1 21,112 SY IGG019AA PLPA 00000000_00D74020 1 440 SY IGG019AI PLPA 00000000_00D60B10 1 392 SY IGG019AQ PLPA 00000000_00D68720 1 936 SY IGG019AR PLPA 00000000_00D60798 1 392 SY IGG019BK PLPA 00000000_00D92188 1 3,704 SY IGG019BX PLPA 00000000_06B35000 1 75,944 SY IGG019CW PLPA 00000000_00D70458 1 1,456 SY IGVCPOOL NUC 00000000_00FF7B88 1 2,208 IGZXLPIO JPA 00000000_0000B228 1 2,648 RU RN -VLF- CE IGZXLPKA JPA 00000000_1D9D1000 1 1,217,320 RU RN -VLF- CE IGZXLPKD JPA 00000000_1DAFB000 1 396,168 RU RN -VLF- CE IKJEFT01 PLPA 00000000_0709C000 1 65,472 SY IKJEFT02 PLPA 00000000_070AC000 1 43,872 SY IKJEFT09 PLPA 00000000_070C5000 1 10,936 SY IRARMFP1 NUC 00000000_016922F8 1 1,952 IRARMGLU NUC 00000000_00FDC3D8 1 370 PDTDIOC2 JPA 00000000_1E62D000 1 24,576 RU RN PDTDIUC2 JPA 00000000_1DA18000 1 53,248 RU RN PSACGEC2 JPA 00000000_1DA3E000 1 16,384 RU RN PSACUTC2 JPA 00000000_1DA32000 1 16,384 RU RN X0XX0YYK JPA 00000000_1D97A000 1 31,944 RU RN -VLF- PR X0XX0099 JPA 00000000_21999000 1 9,472 RU RN -VLF- PR WS-PGMB JPA 00000000_2180C000 1 53,248 RU RN STEPLIB PR XXXXXX02 JPA 00000000_2199D000 1 24,576 RU RN STEPLIB PR XXXX0479 JPA 00000000_21993000 1 16,384 RU RN STEPLIB PR WS-PGMA JPA 00000000_219A5000 1 28,672 RU RN STEPLIB PR XXXXX581 JPA 00000000_21902000 1 36,864 RU RN STEPLIB PR XXXXX012 JPA 00000000_21AA1000 1 14,920 RU RN -VLF- PR ---------------------------------------------------------------------- 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
