There's nothing artificial about it. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 עַם יִשְׂרָאֵל חַי נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר
________________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of Bernd Oppolzer <[email protected]> Sent: Sunday, May 25, 2025 11:26 AM To: [email protected] <[email protected]> Subject: Re: LE routine IGZXLPKA consumes considerable CPU time External Message: Use Caution Jumping late into this thread, I would like to add some suggestions: - the RENT option is specified as a compiler options, which is used to create artificial reentrancy on programs which are otherwise non-reentrant, which involves the allocation of static variables in a dynamic area called WSA (writable static area). This area must then be initialized on first call. This is what COULD BE accomplished by a call to IGZ@SCH4 and IGZXMCPY (the latter shold be MEMCPY). So I would look if there are static variables which need initialization in the first of the two modules, and then try to find out if this initialization is really needed OR if the variables could be converted to automatic (or: if the RENT option is really needed, and what happens if it is changed to NORENT). This is still a wild guess ... to analyze this, I would need access to the complete sources involved (and the compile and binder listings). HTH, kind regards Bernd Am 23.05.2025 um 10:52 schrieb Ravikumar Srinivasan: > Hi Experts, > > Thank you so much for all your replies!!! > > The WS-PGMA do NOT have INITIAL coded in it. > > Compiler listing of WS-PGMA of shows there are only 4 BLL cells used in > WS-PGMA > > Both WS-PGMA and WS-PGMB are compiled using "IBM Enterprise COBOL for z/OS > 6.2.0". > I compared the compiler options of the both the programs. There is no > difference. > Below is the compiler options taken from the compiler listing. > > Options in effect: > NOADATA > NOADV > AFP(NOVOLATILE) > APOST > ARCH(12) > ARITH(COMPAT) > NOAWO > NOBLOCK0 > BUFSIZE(24576) > NOCICS > CODEPAGE(1140) > NOCOMPILE(S) > NOCOPYLOC > NOCOPYRIGHT > NOCURRENCY > DATA(31) > NODBCS > NODECK > NODEFINE > NODIAGTRUNC > DISPSIGN(COMPAT) > NODLL > NODUMP > NODYNAM > NOEXIT > NOEXPORTALL > NOFASTSRT > FLAG(W) > NOFLAGSTD > HGPR(PRESERVE) > NOINITCHECK > NOINITIAL > INLINE > INTDATE(ANSI) > LANGUAGE(EN) > LINECOUNT(60) > NOLIST > MAP(HEX) > MAXPCF(100000) > NOMDECK > NONAME > NSYMBOL(DBCS) > NONUMBER > NONUMCHECK > NUMPROC(NOPFD) > OBJECT > OFFSET > OPTIMIZE(1) > OUTDD(SYSOUT) > NOPARMCHECK > PGMNAME(COMPAT) > QUALIFY(COMPAT) > RENT > RMODE(AUTO) > NORULES > NOSERVICE > NOSEQUENCE > SOURCE > SPACE(1) > NOSQL > SQLCCSID > NOSQLIMS > NOSSRANGE > NOSTGOPT > SUPPRESS > NOTERM > TEST(NOEJPD,DWARF,SOURCE,NOSEPARATE) > NOTHREAD > TRUNC(STD) > NOVBREF > VLR(COMPAT) > VSAMOPENFS(COMPAT) > NOWORD > XMLPARSE(XMLSS) > XREF(FULL) > ZONEDATA(PFD) > ZWB > > As Ralph mentioned I expanded the C08 report. CSECTs IGZ@SCH4, IGZXMCPY from > IGZXLPKA is invoked during the call to WS-PGMA, but not for WS-PGMB. > > C08: CPU Usage Referred Attribution > ------------------------------------- > > Name Description Percent of CPU Time * 10.00% ±0.8% > >*....1....2....3....4....5....6....7....8 > Z0XX0XXK Application Program 12.89 > ± Z0XX0XXK CSECT in Z0XX0XXK 12.89 > ± 002548 Attribution Offset 9.24 - CALL TO WS-PGMA > in Z0XX0XXK > ± IGZXLPKA COBOL Module 9.23 > ± IGZ@SCH4 COBOL Module 6.80 > ± IGZXMCPY COBOL Module 2.34 > ± IGZXFCA4 COBOL Module 0.08 > ± 00000000_0001Bxxx Unresolv 0.00 > > ± 00248C Attribution Offset 0.11 - CALL TO WS-PGMB > in Z0XX0XXK > ± IGZXLPKA COBOL Module 0.11 > ± IGZXFCA4 COBOL Module 0.06 > ± IGZXFCAL COBOL Module 0.04 > > I tried to google IGZ@SCH4 and IGZXMCPY. I could not find any information on > them > > Thanks, > Ravikumar > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
