Communications Blocks and Error Detection › Communications Blocks › IDMS DB Communications Block › Layout of the IDMS DB Communications Block

Layout of the IDMS DB Communications Block

The following figure shows the layout of the 16-byte IDMS DB communications block. Note that the layout of the block differs for application programs running under CICS.

Note: For more information about the 18-byte IDMS DB communications block, see 18-Byte Communications Blocks.

                 ┌───────────────────────────────────────┐
                 │ IDMS DB 16-byte communications block  │
                 └───────────────────────────────────────┘
                                              Length      
                 Field           Data Type   (bytes)      Initial Value
  ┌──────────┐
 *│ 1      8 │   PROGRAM-NAME    Alphanumeric  8           Program Name
  ├────────┬─┘
  │ 9  12  │     ERROR-STATUS    Alphanumeric  4          '1400'
  ├────────┤
  │ 13  16 │     DBKEY           Binary        4(Fullword) 0000
  ├────────┴───┐
  │ 17      32 │ RECORD-NAME     Alphanumeric  16          Spaces
  ├────────────┤
  │ 33      48 │ AREA-NAME       Alphanumeric  16          Spaces
  ├────────────┤
  │ 49      64 │ ERROR-SET       Alphanumeric  16          Spaces
  ├────────────┤
  │ 65      80 │ ERROR-RECORD    Alphanumeric  16          Spaces
  ├────────────┤
  │ 81      96 │ ERROR-AREA      Alphanumeric  16          Spaces
  ├─────────┬──┘
**│ 97  100 │    PAGE-INFO       Binary        4(Fullword) 0000
  └─────────┘
  ┌──────────┐
  │ 97   196 │   IDBMSCOM-AREA   Alphanumeric  100         Low Values
  ├──────────┤
  │ 197  200 │   DIRECT-DBKEY    Binary        4(Fullword) 0000
  └──────────┘
  ┌─────────┐
  │ 201 207 │    DATABASE-STATUS Alphanumeric  7           Spaces
  ├─────┬───┘
  │ 208 │        FILLER          ...           1           ...
  ├─────┴───┐
  │ 209 212 │    RECORD-OCCUR    Binary        4(Fullword) 0000
  ├─────────┤
  │ 213 216 │    DML-SEQUENCE    Binary        4(Fullword) 0000
  └─────────┘

* word aligned

** PAGE_INFO_GROUP overlays bytes 97 and 98 and PAGE_INFO_DBK_FORMAT
  overlays bytes 99 and 100. Both of these fields are binary datatype,
  each with a length of two bytes. Suggested initial values for
  both are 00. Together these two fields represent PAGE_INFO.