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 [email protected] with the message: INFO IBM-MAIN
