NAME OF MATCHING PL/S MODULE = NONE
DESCRIPTIVE NAME = Transient Data Control Intervals
CICS/ESA AP Domain
Licensed Materials - Property of IBM
Restricted Materials of IBM
5655-Y04
(C) Copyright IBM Corp. 1983, 1991
FUNCTION =
Copybook DFHTDCI provides dsect DFHTDCI which
describes
1. the TD control record for Control Interval 0
2. the queue control record for Control Interval
m where m > 0
3. the record definition field; i.e. the VSAM
RDF
4. the control interval definition field; i.e.
the VSAM CIDF
Each control interval on the intrapartition data
set is managed according to VSAM rules; i.e. the
format is
1. n records where n >= 1; the first record is
either the TD control record or a queue con-
trol record
2. free space
3. n record definition fields
4. the control interval definition field
LIFETIME =
The lifetime of the control blocks is essentially
that of the intrapartition data set.
STORAGE CLASS =
Not applicable.
LOCATION =
Not applicable.
INNER CONTROL BLOCKS =
There are no inner control blocks.
NOTES :
DEPENDENCIES =
S/370
RESTRICTIONS =
There are no restrictions.
MODULE TYPE =
Control block definition.
Table 1.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
DFHTDCI |
TD-VSAM CONTROL INT'VAL MAP |
| (0) |
.... .... |
|
TDFSTCI |
"*" MAP OF FIRST CI OF DATA SET |
| (0) |
CHARACTER |
10 |
TDID |
ID TO BE CHECKED WHEN RESTARTING. |
| (A) |
HALFWORD |
2 |
TDNUMCI |
NUMBER OF CIS USED TO SIZE CI BIT MAP. |
| (C) |
|
4 |
TDDATED |
DATE INFO FROM CSAJYDP |
| (10) |
FULLWORD |
4 |
TDRESRV (3) |
RESERVED |
| (10) |
.... .... |
|
TDCHREC |
"*" |
| (0) |
CHARACTER |
4 |
TDCHDI |
CHAIN RECORD DESTID |
| (4) |
FULLWORD |
4 |
TDCHFC |
CHAIN RECORD FORWARD CHAIN |
| (8) |
CHARACTER |
8 |
TDCHCLK |
CHAIN RECORD CONTROL INTERVAL GENERATION ID |
| (8) |
...1 .... |
|
TDCHL |
"*-TDCHREC" CHAIN RECORD LENGTH |
DATA RECORDS AND FREE SPACE
.
.
.
|
| (10) |
CHARACTER |
3 |
TDRDF (0) |
RECORD DEFINITION FIELD |
| (10) |
BITSTRING |
1 |
TDCF |
CONTROL FIELD (FLAG BYTE) |
FLAG BYTE VALUES:
|
| (10) |
.... .... |
|
TDRSINGL |
"X'00'" RDF GIVES LENGTH OF SINGLE RECORD. |
| (11) |
CHARACTER |
2 |
TDLENREC |
LENGTH OF RECORD |
| (11) |
.... ..11 |
|
TDRDFLN |
"*-TDRDF" LENGTH OF RDF |
| (13) |
CHARACTER |
4 |
TDCIDF (0) |
CI DEFINITION FIELD |
| (13) |
CHARACTER |
2 |
TDOUS |
OFFSET OF UNUSED SPACE |
| (15) |
CHARACTER |
2 |
TDLUS |
LENGTH OF UNUSED SPACE (L'CI-L'(CIDF+ RDFS)-TDOUS)) |
| (15) |
.... .1.. |
|
TDCIDFLN |
"*-TDCIDF" LENGTH OF CIDF |
| (15) |
...1 .111 |
|
TDCIEND |
"*" END OF CI |