Looks good. IS INITIAL in PGMA?
El jue, 22 may 2025, 8:02, Ravikumar Srinivasan < [email protected]> escribió: > 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 > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
