The Control Blocks for Active Routines section of the dump, shown
in Figure 1, displays the following
information for each active COBOL program:
- DSA
- Program name and date/time of compile
- COBOL compiler Version, Release, Modification, and User Level
- COBOL compile Options
COBOL control blocks TGT and CLLE. The layout of the
TGT can be found by looking at the compiler listing of the COBOL program.
For Enterprise COBOL V5.1 and later releases, the TGT is replaced
by COBDSACB. The CLLE is a COBOL control block that is allocated by
the COBOL runtime for each program. The CLLE is dumped for IBM® service personnel use.
Figure 1. Control block information
for active COBOL routines
⋮
Control Blocks for Active Routines:
DSA for COBDUMP2: 114841D0
+000000 FLAGS.... 0010 member... 4001 BKC...... 11484030 FWC...... 11484370 R14...... 91202C78
+000010 R15...... 912EF898 R0....... 11480BDC R1....... 114842C0 R2....... 114A4340 R3....... 11202BBC
+000024 R4....... 11202818 R5....... 11480100 R6....... 00000000 R7....... 00FDD100 R8....... 114A41D8
+000038 R9....... 11480AA0 R10...... 11202908 R11...... 11202AD4 R12...... 112129C0 reserved. 00000000
+00004C NAB...... 11484370 PNAB..... 00000000 reserved. 00000000 11480AA0
+000064 reserved. 11200398 reserved. 114803F0 MODE..... 00016108 reserved. 00000000
+000078 reserved. 11205F98 reserved. 00000000
Program COBDUMP2 was compiled 02/14/07 2:59:20 PM
COBOL Version = 03 Release = 04 Modification = 01 User Level = ' '
COBOL compile options
Compile Options for COBDUMP2:
ADV, ARITH(COMPAT), NOAWO, CODEPAGE(01140), DATA(31), NODATEPROC, DBCS,
NODLL, NODYNAM, NOEXPORTALL, NOFASTSRT, INTDATE(ANSI), NUMPROC(NOPFD),
NOOPTIMIZE, OUTDD(SYSOUT), PGMNAME(COMPAT), RENT, RMODE(ANY), NOSSRANGE,
TEST(STMT,SYM,NOSEPARATE), NOTHREAD, TRUNC(STD), YEARWINDOW(1900), ZWB
TGT for COBDUMP2: 11480AA0
+000000 11480AA0 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
+000020 11480AC0 - +00003F 11480ADF same as above
+000040 11480AE0 00000000 00000000 F3E3C7E3 00000000 06000000 42430260 11480100 000167FC |........3TGT...........-........|
+000060 11480B00 11480C20 00000001 00000174 00000000 00000000 114A4148 00000000 00000000 |................................|
+000080 11480B20 112129C0 00000180 00000000 00000000 00000000 00000001 E2E8E2D6 E4E34040 |........................SYSOUT |
+0000A0 11480B40 C9C7E9E2 D9E3C3C4 00000000 00000000 00000000 00000000 00000000 00000000 |IGZSRTCD........................|
+0000C0 11480B60 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 |................................|
+0000E0 11480B80 00000000 00000000 112028DC 00000000 11480C0C 11480A48 1120298B 11480BE0 |................................|
+000100 11480BA0 112027E0 11202910 11480C08 11202904 11480C08 114A41D8 00000000 00000000 |.......................Q........|
+000120 11480BC0 00000000 00000000 114A4158 114A41D8 00000000 114A4120 0001E038 00000000 |...............Q................|
+000140 11480BE0 00000000 11202D2C 07FE07FE 00000000 00000000 00001FFF 07FE0000 00000000 |................................|
+000160 11480C00 00000000 00000000 11480C50 40000000 00000000 00000000 11480D68 00000001 |...........& ...................|
CLLE for COBDUMP2: 11480A48
+000000 11480A48 C3D6C2C4 E4D4D7F2 00004100 00000000 84810000 112027E0 11480AA0 00000000 |COBDUMP2........da..............|
+000020 11480A68 00000000 114808E4 114809F0 114803F0 00000001 00000000 00000000 00000000 |.......U...0...0................|
⋮