The function will be enabled by the existing CICS transactions. A user must enable the AP domain level 2 in order to include the Language Environment trace points. For more information on activating the CICS trace, see CICS Diagnosis Reference.
Every time CICS calls Language Environment, the feature trace is activated under the Extended Runtime Library Interface (ERTLI). The trace can bee seen in CICS transaction dumps. Feature trace entries are formatted in a similar way to CICS trace items. There are three formats: ABBREV, SHORT & FULL. The ABBREV version (Figure 1) just formats the heading line for each trace point and is laid out in a similar way to CICS trace entries.
00036 1 AP 1940 APLI ENTRY START_PROGRAM NAMETEST,CEDF,FULLAPI,EXEC,NO,0678FABC,00000000 , 00000000,1,NO =000334=
00036 1 AP 1948 APLI EVENT CALL-TO-LE/370 Thread_Initialization NAMETEST =000339=
00036 1 AP 1949 APLI EVENT RETURN-FROM-LE/370 Thread_Initialization OK NAMETEST =000340=
00036 1 AP 1948 APLI EVENT CALL-TO-LE/370 Rununit_Initialization NAMETEST =000343=
00036 1 FT 1014 Lang.Env. CEEZCREN EVENT CEEEVNT-ID(PRCINIT) R13(06C00E10), 00000000 =000344=
00036 1 FT 1013 Lang.Env. CEEZCREN EVENT CEEEVNT-ID(OPTP) R13(06C00E10), 06C049B0, 07500F28, 06C0403C, 06C010B4 =000345=
00036 1 FT 1101 Lang.Env. CEECRINI EVENT SET_ANCHOR R13(06C009B8), 06C06180, 00000002 =000346=
00036 1 FT 1018 Lang.Env. CEEZINV EVENT CEEEVNT-ID(ENCINIT) R13(06C06D80), 00000000, 06C0403C, 00000000, 06C041B4, 00000 =000347=
00036 1 FT 1008 Lang.Env. CEECRINV EVENT CEEEVNT-ID(MAININV) R13(06C06D80), 87500020, 00000001, 00000000, 00140050, 87500 =000348=
00036 1 AP 1948 APLI EVENT CALL-TO-LE/370 Rununit_End_Invocation NAMETEST =000386=
00036 1 AP 1949 APLI EVENT RETURN-FROM-LE/370 Rununit_End_Invocation OK NAMETEST =000387=
00036 1 AP 1948 APLI EVENT CALL-TO-LE/370 Rununit_Termination NAMETEST =000388=
00036 1 FT 1012 Lang.Env. CEEZDSEX EVENT CEEEVNT-ID(ENCTERM) R13(06C06D80), 06C0403C, 00000000 =000389=
00036 1 FT 1102 Lang.Env. CEECRTRM EVENT SET_ANCHOR R13(06C009B8), 00000000 =000390=
00036 1 AP 1949 APLI EVENT RETURN-FROM-LE/370 Rununit_Termination OK NAMETEST =000391=
00036 1 AP 1948 APLI EVENT CALL-TO-LE/370 Thread_Termination =000392=
00036 1 FT 1009 Lang.Env. CEEZDSPR EVENT CEEEVNT-ID(PRCTERM) R13(06C00A80), 00000000 =000393=
00036 1 AP 1949 APLI EVENT RETURN-FROM-LE/370 Thread_Termination OK =000394=
00036 1 AP 1941 APLI EXIT START_PROGRAM/OK ....,NO,NAMETEST =000395=The Domain Name field is replaced with a "Feature" short name (for example, Lang.Env.) and module name (for example, CEE.....) which are coded into the "Feature Trace" initialization (short name) and header formatting call (module name). See the following macro example.
The FULL version includes the heading from the ABBREV version and then dumps each captured block in Hex and Character formats. For an example, see Figure 2.
AP 1948 APLI EVENT CALL-TO-LE/370 - Rununit_Initialization Program_name(NAMETEST)
TASK-00036 KE_NUM-0026 TCB-006FA1D0 RET-868218FE TIME-05:58:55.2643333923 INTERVAL-00.0000020781 =000343=
1-0000 0000001E *.... *
2-0000 06878DE0 00140148 0005848C 0014014C 00045A4C 00140130 0014001C 067F3CE8 *.g.\......d....<..!<.........".Y*
0020 0678FAD8 06878F37 867F3DD0 *...Q.g..f".} *
3-0000 D5C1D4C5 E3C5E2E3 *NAMETEST *
4-0000 00000030 20000000 07500000 00001B00 87500020 00000000 06C03800 00000000 *.........&......g&.......{......*
0020 00140050 00000000 00000000 0678FABC *...&............ *
FT Lang.Env. 1014 CEEZCREN EVENT - CEEEVNT-ID(PRCINIT) R13(06C00E10), PARMS(00000000)
TASK-00036 KE_NUM-0026 TCB-006FA1D0 RET-06F092A0 TIME-05:58:55.2643970329 INTERVAL-00.0000636406 =000344=
0000 0000C9C2 D4404040 40404040 40404040 40404040 40404040 40404040 40404040 *..IBM *
0020 D3819587 A4818785 40C595A5 89999695 948595A3 40404040 40404040 4040F0F0 *Language Environment 00*
0040 F0F0F0F0 F0F0F0F1 C3C5C5C3 E3C6D4E3 D3819587 4BC595A5 4B000000 *00000001CEECTFMTLang.Env.... *
1-0000 06C00E10 00000011 00000000 *.{.......... *
FT Lang.Env. 1013 CEEZCREN EVENT - CEEEVNT-ID(OPTP) R13(06C00E10), PARMS(06C049B0, 07500F28, 06C0403C, 06C010B4)
TASK-00036 KE_NUM-0026 TCB-006FA1D0 RET-06F0A23A TIME-05:58:55.2644148454 INTERVAL-00.0000178125 =000345=
0000 0000C9C2 D4404040 40404040 40404040 40404040 40404040 40404040 40404040 *..IBM *
0020 D3819587 A4818785 40C595A5 89999695 948595A3 40404040 40404040 4040F0F0 *Language Environment 00*
0040 F0F0F0F0 F0F0F0F1 C3C5C5C3 E3C6D4E3 D3819587 4BC595A5 4B000000 *00000001CEECTFMTLang.Env.... *
1-0000 06C00E10 00000004 06C049B0 07500F28 06C0403C 06C010B4 *.{.......{...&...{ ..{.. *
FT Lang.Env. 1101 CEECRINI EVENT - SET_ANCHOR R13(06C009B8), PARMS(06C06180, 00000002)
TASK-00036 KE_NUM-0026 TCB-006FA1D0 RET-06F02F90 TIME-05:58:55.2644493767 INTERVAL-00.0000345312 =000346=
0000 0000C9C2 D4404040 40404040 40404040 40404040 40404040 40404040 40404040 *..IBM *
0020 D3819587 A4818785 40C595A5 89999695 948595A3 40404040 40404040 4040F0F0 *Language Environment 00*
0040 F0F0F0F0 F0F0F0F1 C3C5C5C3 E3C6D4E3 D3819587 4BC595A5 4B0092B4 *00000001CEECTFMTLang.Env..k. *
1-0000 06C009B8 06C06180 00000002 *.{...{/..... *
FT Lang.Env. 1018 CEEZINV EVENT - CEEEVNT-ID(ENCINIT) R13(06C06D80), PARMS(00000000, 06C0403C, 00000000, 06C041B4, 00000000,
01000000, 00000000, 00000000)
TASK-00036 KE_NUM-0026 TCB-006FA1D0 RET-06F0C9B4 TIME-05:58:55.2644710798 INTERVAL-00.0000217031 =000347=
0000 000AC9C2 D4404040 40404040 40404040 40404040 40404040 40404040 40404040 *..IBM *
0020 D3819587 A4818785 40C595A5 89999695 948595A3 40404040 40404040 4040F0F0 *Language Environment 00*
0040 F0F0F0F0 F0F0F0F1 C3C5C5C3 E3C6D4E3 D3819587 4BC595A5 4B0072B4 *00000001CEECTFMTLang.Env.... *
1-0000 06C06D80 00000012 00000000 06C0403C 00000000 06C041B4 00000000 01000000 *.{_..........{ ......{..........*
0020 00000000 00000000 *........ *
2-0000 D8C3C5E2 C9000000 00000000 00000000 D8C3C5E2 D6000000 00000000 00000000 *QCESI...........QCESO...........*
0020 D8C3C5E2 C5000000 00000000 00000000 *QCESE........... *
FT Lang.Env. 1008 CEECRINV EVENT - CEEEVNT-ID(MAININV) R13(06C06D80), PARMS(87500020, 00000001, 00000000, 00140050, 87500020)
TASK-00036 KE_NUM-0026 TCB-006FA1D0 RET-06F038D2 TIME-05:58:55.2645123298 INTERVAL-00.0000412500 =000348=
0000 0000C9C2 D4404040 40404040 40404040 40404040 40404040 40404040 40404040 *..IBM *
0020 D3819587 A4818785 40C595A5 89999695 948595A3 40404040 40404040 4040F0F0 *Language Environment 00*
0040 F0F0F0F0 F0F0F0F1 C3C5C5C3 E3C6D4E3 D3819587 4BC595A5 4B000000 *00000001CEECTFMTLang.Env.... *
1-0000 06C06D80 0000000E 87500020 00000001 00000000 00140050 87500020 *.{_.....g&.............&g&.. *
AP 1948 APLI EVENT CALL-TO-LE/370 - Rununit_End_Invocation Program_name(NAMETEST)
TASK-00036 KE_NUM-0026 TCB-006FA1D0 RET-868218FE TIME-05:58:55.2670554079 INTERVAL-00.0000107187 =000386=
1-0000 00000021 *.... *
2-0000 06878DEC 00140148 0005848C 0014014C 00045A4C 00140130 0014001C 067F3CE8 *.g........d....<..!<.........".Y*
0020 0678FAD8 80140390 *...Q.... *
3-0000 D5C1D4C5 E3C5E2E3 *NAMETEST *
4-0000 40000000 00000000 D5C1D4C5 0000036C D3F3F2F1 00000005 00000000 00000000 * .......NAME...%L321............*
0020 00000000 001402FC 00000000 00000000 00000000 00000000 00000000 00000000 *................................*The first block is used for the feature trace information. It contains the name of the off-line formatting module and the short name used in the formatted heading line. The other 6 blocks are available for user data.
The SHORT version is a cross between the ABBREV and FULL versions.