Understanding the COBOL-specific LEDATA output

The Language Environment IPCS VERBEXIT LEDATA generates formatted output of COBOL-specific control blocks from a system dump when the COMP(COBOL), COMP(ALL) or ALL parameter is specified and COBOL is active in the dump. The following example illustrates the COBOL-specific output produced. The system dump being formatted was obtained by specifying the TERMTHDACT(UADUMP) runtime option. Table 1 describes the information contained in the formatted output. For easy reference, the sections of the dump are numbered to correspond with the description of each section that follows.

 ********************************************************************************
                              COBOL ENVIRONMENT DATA
 ********************************************************************************


 [1]RUNCOM:  00049038
    +000000  IDENT:C3RUNCOM    LENGTH:000002D8   FLAGS:00860000
    +000010  RU_ID:000178B0    INVK_RSA:00005F80
    +000024  MAIN_PGM_ADDR:00007DE8        MAIN_PGM_CLLE:00049328
    +00002C  ITBNAB:00000000   PARM_ADDR:000179D0      NEXT_RUNCOM:00000000
    +000040  THDCOM:0001AA80   COBVEC:0001A1BC   SUBCOM:00000000
    +00004C  COBVEC2:0001A7FC        CAA:00018920      UPSI_SWITCHES:00000000
    +00007C  DUM_CLLE:0BF15BA8       1ST_FREE_CLLE:00000000
    +000088  HAT:0BF157A8      1ST_CLLE:00049488
    +000090  SORT_CONTROL_DCB:00000000     COBOL_ACTIVE:00000000
    +0000A4  IO_FLAGS:00000000       UNSTR_WRK:00000000
    +00011C  INSP_WRK:00000000       INSP_WRK1:00000000
    +00012C  DDNAME_SORT_CONTROL:........  LEN_UNSTR_WRK:00000000
    +000138  UNSTR_DELIMS:0000
    +000154  CEEINT_PLIST:000491B0 00000008 00000006 000491B4 00000000 00000000
    +00016C  ----------->:00000005 00000000 00000000 00000000 00000000
    +0001C8  MAIN_ID:CALLSUBX
    +000204  ------>:
    +000240  ------>:

 [2]THDCOM:  0001AA80
    +000000  IDENT:C3THDCOM    LENGTH:000001E8   FLAGS:81000000 00000100
    +000018  COBCOM:0001A108   COBVEC:0001A1BC   1ST_RUNCOM:00049038
    +000028  1ST_PROGRAM:CALLSUBX    SUBCOM:00000000
    +000034  CEEINT_PLIST:00000000 00000000 00000000 00000000 00000000 00000000
    +00004C  ----------->:00000000 00000000 00000000 00000000 00000000
    +000084  COBVEC2:0001A7FC        ITBLK:00000000    STT_BST:00000000
    +000098  CICS_EIB:00000000       SIBLING:00000000
    +0000AC  SORT_RETURN:00000000    INFO_MSG_LIMIT:0000
    +0000C8  R12_SAVE:00000000       STP_DUM_TGT:00000000
    +000180  LRR_COBCOM:00000000     CAA:00018920      DUM_THDCOM:00000000
    +00019C  ITBLK_TRAP_RSA:00000000       ITBLK_PLFPARMS:00000000
    +0001A4  ITBLK_BS2PARMS:00000000       ITBLK_NAB:00000000
    +0001AC  DUM_MAIN_DSA:00000000   BDY_RSA:00000000
    +0001D0  RRE_TAIL_RSA:00000000   ESTUB_TGT:00000000

 [3]COBCOM:  0001A108
    +000000  IDENT:C3COBCOM    LENGTH:00000978   VERSION:010900
    +000058  FLAGS:906000      ESM_ID:O    COBVEC:0001A1BC
    +000060  COBVEC2:0001A7FC
    +000064  LOADFG:00000100 00000000 80000000 00008000 00000000
    +000078  THDCOM:0001AA80   INSH:00000000     LRR_THDCOM:00000000
    +00009C  LRR_ITBLK:00000000      LRR_SUBCOM:00000000
    +0000A4  LRR_EPLF:00000000

 [4]  CLLE:  00049488
    +000000  PGMNAME:PARM5     OPEN_NON_EXT_FILES:0000       TGT_FLAGS:00
    +00000C  LANG_LST:00050F98       INFO_FLAGS:8891   LOAD_ADDR:8004FF88
    +000018  TGT_ADDR:00050248       LE_TOKEN:0BF150BC       FLAGS2:00

 [5]   TGT:  00050248
    +000048  IDENT:3TGT  LVL:05      FLAGS:40020220    RUNCOM:00049038
    +00005C  COBVEC:0001A7FC   #FCBS:00000000    WS_LEN:00000000
    +000070  SMG_WRK:00000000        CAA:00018920      LEN:00000154
    +00008C  EXT_FCBS:00000000       OUTDD:SYSOUT
    +0000AC  CALC_RSA:00000000 00000000 00000000 00000000 00000000 00000000
    +0000C4  ------->:00000000 00000000 00000000 00000000 00000000 00000000
    +0000DC  ------->:00000000       ABINF:000500A5    TESTINF:00000000
    +000100  PGMADDR:0004FF88        1STFCB:00000000   WS_ADDR:00000000
    +000118  1STEXTFCB:00000000

      CLLE:  00049440
    +000000  PGMNAME:PARM1     OPEN_NON_EXT_FILES:0000       TGT_FLAGS:00
    +00000C  LANG_LST:0004EF98       INFO_FLAGS:8891   LOAD_ADDR:8004DFE0
    +000018  TGT_ADDR:0004E258       LE_TOKEN:0BF150A0       FLAGS2:00

       TGT:  0004E258
    +000048  IDENT:3TGT  LVL:05      FLAGS:40020220    RUNCOM:00049038
    +00005C  COBVEC:0001A7FC   #FCBS:00000000    WS_LEN:00000000
    +000070  SMG_WRK:00000000        CAA:00018920      LEN:00000144
    +00008C  EXT_FCBS:00000000       OUTDD:SYSOUT
    +0000AC  CALC_RSA:00000000 00000000 00000000 00000000 00000000 00000000
    +0000C4  ------->:00000000 00000000 00000000 00000000 00000000 00000000
    +0000DC  ------->:00000000       ABINF:0004E0FD    TESTINF:00000000
    +000100  PGMADDR:0004DFE0        1STFCB:00000000   WS_ADDR:00000000
    +000118  1STEXTFCB:00000000

      CLLE:  00049370
    +000000  PGMNAME:PARM0     OPEN_NON_EXT_FILES:0000       TGT_FLAGS:00
    +00000C  LANG_LST:0004CF98       INFO_FLAGS:8891   LOAD_ADDR:8004BFF8
    +000018  TGT_ADDR:0004C260       LE_TOKEN:0BF15084       FLAGS2:00

       TGT:  0004C260
    +000048  IDENT:3TGT  LVL:05      FLAGS:40020220    RUNCOM:00049038
    +00005C  COBVEC:0001A7FC   #FCBS:00000000    WS_LEN:00000000
    +000070  SMG_WRK:00000000        CAA:00018920      LEN:00000140
    +00008C  EXT_FCBS:00000000       OUTDD:SYSOUT
    +0000AC  CALC_RSA:00000000 00000000 00000000 00000000 00000000 00000000
    +0000C4  ------->:00000000 00000000 00000000 00000000 00000000 00000000
    +0000DC  ------->:00000000       ABINF:0004C115    TESTINF:00000000
    +000100  PGMADDR:0004BFF8        1STFCB:00000000   WS_ADDR:00000000
    +000118  1STEXTFCB:00000000

      CLLE:  00049328
    +000000  PGMNAME:CALLSUBX  OPEN_NON_EXT_FILES:0000       TGT_FLAGS:00
    +00000C  LANG_LST:00000000       INFO_FLAGS:9881   LOAD_ADDR:80007DE8
    +000018  TGT_ADDR:00008220       LE_TOKEN:00000000       FLAGS2:00

       TGT:  00008220
    +000048  IDENT:3TGT  LVL:05      FLAGS:60020220    RUNCOM:00049038
    +00005C  COBVEC:0001A7FC   #FCBS:00000000    WS_LEN:0000002C
    +000070  SMG_WRK:00000000        CAA:00018920      LEN:00000150
    +00008C  EXT_FCBS:00000000       OUTDD:SYSOUT
    +0000AC  CALC_RSA:00000000 00000000 00000000 00000000 00000000 00000000
    +0000C4  ------->:00000000 00000000 00000000 00000000 00000000 00000000
    +0000DC  ------->:00000000       ABINF:00007F34    TESTINF:00000000
    +000100  PGMADDR:00007DE8        1STFCB:00000000   WS_ADDR:000083C0
    +000118  1STEXTFCB:00000000

 Exiting COBOL Environment Data

Table 1. Contents of COBOL-specific sections of LEDATA Output
Section Number and Heading	Contents
[1] RUNCOM	Formats the COBOL enclave-level control block (RUNCOM).
[2] THDCOM	Formats the COBOL process-level control block (THDCOM).
[3] COBCOM	Formats the COBOL region-level control block (COBCOM).
[4] CLLE	Formats the COBOL loaded program control blocks (CLLE).
[5] TGT	Formats the COBOL TGT control blocks.

Start of change The names of the control blocks have changed in Enterprise COBOL V5.1. Table 2 shows the correspondence with COBOL V4R2 and prior releases. End of change

Table 2. Contents of COBOL-specific sections of LEDATA Output (Enterprise COBOL V5.1 and later releases)
Section Number and Heading	Contents
[1] COBEDB	Corresponds to RUNCOM, formats the COBOL enclave-level control block.
[2] COBPCB	Corresponds to THDCOM, formats the COBOL process-level control block.
[3] COBRCB	Corresponds to COBCOM, formats the COBOL region-level control block.
[4] CLLE	Formats the COBOL loaded program control block (same name).
[5] COBDSACB	Corresponds to TGT, program-level control block.