Teresa,
So far, in my testing, I am not finding what you describe. I will elaborate a bit more on our environment, and what I am seeing.
We are generating everything in Compatibility Mode, with Dynamic Link for everything we possibly can (exceptions are RI Triggers and Batch Managers, of course). We are also using COBOL 6.1, current PTF level P171018.
Since we do not regenerate everything, we have a mixed runtime environment of COBOL 6.1 (since Sept. 2017), COBOL 4.2, and COBOL 3.4.1. There might be a few modules older than that, but this covers most of our code.
Here is a sample program that is generated with Debug Trace Enabled, compiled with COBOL 6.1. I will show snippets of the source, listing (showing compile options), NCAL, and CICS load members.
source
IDENTIFICATION DIVISION.
PROGRAM-ID. JWEBE3F1.
****************************************************************
*
* Source Code Generated by
* CA Gen 8.6
*
* Copyright (c) 2020 CA Technologies. All rights reserved.
*
* Name: PS_S_E3F1_WEB_SVC_COBOL Date: 2020/04/23
* Target OS: MVS Time: 15:35:36
* Target DBMS: DB2 User: DOTOLJ
*
* Generation options:
* Debug trace option selected
* Data modeling constraint enforcement not selected
* Optimized import view initialization selected
* High performance view passing ignored for pstep
* LAST-STATEMENT-NUM execution selected
* Enforce default values with DBMS not selected
* Init unspecified optional fields to NULL not selected
* Dynamic link (z/OS) used bus sys default of "Compatibility"
*
****************************************************************
listing
PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.1.0 P171018 Date 04/23/2020 Time 15:35:40 Page 1
Invocation parameters:
S,X,MAP,OFF,DATA(31),NOSEQ,OPT(2),RENT,APOST,STGOPT,NONUM,SZ(8192K),NOD,NODYN,OBJ,NOWD,NOSSRANGE,NUMPROC(NOPFD),OPTFILE,SZ(14000),
NONAME
IGYOS4013-I The "SZ" option is no longer supported.
IGYOS4076-I The "FLAGMIG4/NOFLAGMIG4" option is no longer supported.
IGYOS4013-I The "SZ" option is no longer supported.
Options from SYSOPTF:
CODEPAGE(37)
DIAGTRUNC
FLAGMIG4
SSRANGE
TEST(NOEJPD)
TRUNC(STD)
XMLPARSE(XMLSS)
Options in effect:
NOADATA
NOADV
AFP(VOLATILE)
APOST
ARCH(11)
ARITH(COMPAT)
NOAWO
NOBLOCK0
BUFSIZE(30720)
NOCICS
CODEPAGE(37)
NOCOMPILE(S)
NOCOPYRIGHT
NOCURRENCY
DATA(31)
NODBCS
NODECK
DIAGTRUNC
DISPSIGN(COMPAT)
NODLL
NODUMP
NODYNAM
NOEXIT
NOEXPORTALL
FASTSRT
FLAG(I,I)
NOFLAGSTD
HGPR(PRESERVE)
NOINITCHECK
INLINE
INTDATE(ANSI)
LANGUAGE(EN)
LINECOUNT(60)
NOLIST
MAP(HEX)
PP 5655-EC6 IBM Enterprise COBOL for z/OS 6.1.0 P171018
MAXPCF(60000)
NOMDECK
NONAME
NSYMBOL(DBCS)
NONUMBER
NONUMCHECK
NUMPROC(NOPFD)
OBJECT
OFFSET
OPTIMIZE(2)
OUTDD(SYSOUT)
NOPARMCHECK
PGMNAME(COMPAT)
QUALIFY(COMPAT)
RENT
RMODE(AUTO)
NORULES
NOSERVICE
NOSEQUENCE
SOURCE
SPACE(1)
NOSQL
SQLCCSID
NOSQLIMS
SSRANGE(NOZLEN,ABD)
STGOPT
SUPPRESS
NOTERM
TEST(NOEJPD,SOURCE)
NOTHREAD
TRUNC(STD)
NOVBREF
VLR(STANDARD)
VSAMOPENFS(COMPAT)
NOWORD
XMLPARSE(XMLSS)
XREF(FULL)
ZONEDATA(PFD)
ZWB
NCAL
I found 1 instance of TIRTRCE in the NCAL
BROWSE DOTDFSD.IEFGEN.OBJLIBD(JWEBE3F1) Li CHARS 'TIRTRCE' found
Command ===> Scroll ===> CSR
*********************************************************** Top of Data ************************************************************
....................................................................................................................................
ì\}.q.}..Ú.......öù.....JWEBE3F1........JWEBE3F1N0003424646PS_S_E3F1_WEB_SVC_COBOL .........CA Gen 8.6COPYRIGHT (C) 2020 CA TECHNOLO
....................................................................................................................................
....................................................................................................................................
......ñáã.äåá+.à èá....à..!...ñáã.äåá+.èñ(á....à..Â...ãñ<<áê....à..¦...ãñ<<áê....à..Ê...ãñ<<áê....e..:...ãñ<<áê....e..ª....ãñ<<áê...
åá.....ì<....X....Ü.(áëë åá.....àî....,....Ù.(áëë åá.....ìî....,....Ú........ñáã.ëí&&<ñáà.....áè.................H.ã< å..... ë....,.
.|íè.åê|í&.ëäê|<<..áßë.....&ë..........U...2.|íè.åê|í&.ëäê|<<..áßë.....êã....,.....3.|íè.åê|í&.ëäê|<<..áßë.....((....Ê.....4......M.
ëã....}......RT..&ëèá&.íëá.ã ñ<íêá....0......PU.. ëß+ä.ïçá+. î ñ< â<á.ëã........... .. ëß+ä.ïçá+. ääá&èáà.ëã........... .. ëß+ä.ïç
T.................S...........T.....S....5=....S...T................S...T...........T.......S....S...T....Z................S...T....
.ÚcHÉ.ô.su.¡¡..Æð..mcËbÞ.«/BkF}X.ô.ðßå.õot{Å..öB.J'h¼.ºÇ,o.Blp.ÁçÀð>k¸.Nóòcµ{ô~.0F¬.ì*;y;Ñ`@ß#Wä.?$«s¢ì¾d.Fd.F¬...ÿx-..p©\.Þô.fþ.Á.R
÷\...h- £.R{ô!£z´ûÅ-+.Ô\f.Q.b.zè.AöJ2 z."mV.ì.´tV.q."ÐV.ì.Ú.oÕÈ8oFÅ...r¤ëiä.û¾ Ûɪ..gD`ìÐ&ý.Â7.K..°..§§ï..Uo.\szA..NlH.Û.y¡oâ¥-âùèRø
î..ñ+.åê|í&.ëäê|<<..áßë.....êå..|íè.áêê|ê.ç +à<ñ+å.....áî..|íè.ëáêîáê.<ñëè.ä|+èê|<.....áî..|íè.åê|í&.&<è.....êå..|íè.åê|í&.ëäê|<<..á
.....................ED ....Ø...........Ø...Ø.......Ø.......................................ED ....Ø...............Ø.......Ø......
EBE3F1...IGZXFCAL...TIRTRCE...IGZXPRS...IGZXCMSG...IGZXRTN...IGZXTREN...CEESG004...IGZXBS61........................IEWBCIE...IEWBLIT
.ç..NONE.......-SØ.À.............ç.............ØSØ.À.............ç.............µSØ.À.............ç..............S..À.............ç..
********************************************************* Bottom of Data **********************************************************
CICS load
I found 3 instances of TIRTRCE in the CICS load member.
First instance
BROWSE DOTDFSD.IEFGEN.CICS.LOADLIB(JWEBE3F1) Li CHARS 'TIRTRCE' found
Command ===> Scroll ===> CSR
....................TIRTRCE.......... ...........ì201605250239001 1 0 ........COBOL61 ....ì0C8ì01H..IGZXTREN......ì0C8ì02...IGZXRTN
Second and third instance
BROWSE DOTDFSD.IEFGEN.CICS.LOADLIB(JWEBE3F1) Li CHARS 'TIRTRCE' found
Command ===> Scroll ===> CSR
..RTAFAIL...TIRFCCAT...RTAFCCAT...RTAFCCAT...TIRFCHR...RTAFCHR...RTAFCHR...TIRFCYYD...RTAFCYYD...RTAFCYYD...TIRFCYYN...RTAFCYYN...RT
RTAVW2T...RTAVW2T...TIRTRCE...RTATRCE...RTATRCE...JWEBE3F1#C...JWEBE3F1#S...........................................................
W2SÊ..RTAVW2TÀ..TIRTRCEH..TI$CRUNCÊ..RTATRCEH..TIRCRUNC¦..C_CODE¦..C_@@PPA2¦..C_@@CSINIT¦..C_CEESG003¦..D_INFO¦..D_LINE¦..D_ABREV¦..
"....}....SYSLIB ...;.......ã...................f.{...."....J....SYSLIB ...;.......ã...................g.{...."....K....SYSLIB ..
..SYSLIB ...;.......ã...................õ.{....".........SYSLIB ...;.......ã...................}.{....".........SYSLIB ...;......