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 tolists...@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
