CONTROL BLOCK NAME = DFHJCAPS
DESCRIPTIVE NAME = CICS TS Journal Control Area
Licensed Materials - Property of IBM
Restricted Materials of IBM
5655-Y04
(C) Copyright IBM Corp. 1987, 2015
FUNCTION =
The JCA contains the parameter lists that communicate
between a task requiring journalling services, and other
fields used internally by journalling.
LIFETIME =
A JCA is normally created on the first occasion that a
task requests a service of journalling, and persists until
the task terminates. ( Journalling also creates some JCAs
for internal purposes.) Creation involves DFHJCP, deletion
is incidental to deletion of the TCA.
STORAGE CLASS =
JCA ('9B'X)
LOCATION =
Addressed by TCAJCAAD in the user TCA.
INNER CONTROL BLOCKS =
None
NOTES :
DEPENDENCIES = S/370
RESTRICTIONS = None
MODULE TYPE = Control block definition
Table 1.
Offset Hex |
Type |
Len |
Name (Dim) |
Description |
(0) |
STRUCTURE |
54 |
DFHJCZDS |
JCA |
(0) |
HALFWORD |
2 |
JCZLEN |
Length of the JCA |
(2) |
CHARACTER |
6 |
JCZEYE |
JCA eyecatcher |
(8) |
BIT(8) |
1 |
JCZTR3 |
- type of request, byte 3 |
(9) |
BIT(8) |
1 |
JCZTR2 |
- type of request, byte 2 |
(A) |
BIT(8) |
1 |
JCZTR1 |
- type of request, byte 1 |
(B) |
BIT(8) |
1 |
JCZJCRC |
- return code |
(C) |
ADDRESS |
4 |
JCZADATA |
- A(user data) |
(10) |
ADDRESS |
4 |
JCZAPRFX |
- A(user prefix) |
(14) |
FULLWORD |
4 |
JCZFTOK |
force token |
(18) |
FULLWORD |
4 |
JCZFLEN |
- fullword L(user data) |
(18) |
HALFWORD |
2 |
* |
- section to allow 64K |
(1A) |
HALFWORD |
2 |
JCZLDATA |
- used with LENGTH |
(1C) |
HALFWORD |
2 |
JCZLPRFX |
- L(user prefix) |
(1E) |
HALFWORD |
2 |
JCZJNUM |
journal number as halfword |
(20) |
UNSIGNED |
1 |
JCZJFID |
- journal identifier |
(21) |
CHARACTER |
8 |
JCZJNAME |
journal name identifier |
(29) |
CHARACTER |
2 |
JCZDOMID |
calling domain identifier |
(2B) |
CHARACTER |
1 |
* |
Reserved |
JCA user prefix: terminal control segment
|
(2C) |
CHARACTER |
10 |
JCZUPTC |
origin of user prefix |
(2C) |
CHARACTER |
2 |
JCZJRTID |
- JC rec type (DFHFMIPS) |
(2C) |
BIT(8) |
1 |
JCZMODFN |
- module function |
(2D) |
BIT(8) |
1 |
JCZSVMID |
- module id |
(2E) |
HALFWORD |
2 |
JCZVSPIN |
LU6.1 inbound sequence number |
(30) |
HALFWORD |
2 |
JCZVSPON |
LU6.1 outbound sequence number |
(32) |
CHARACTER |
4 |
JCZUPTID |
Terminal ID |
Table 2.
Len |
Type |
Value |
Name |
Description |
JCZTR3 - CICS system request symbolic settings
|
1 |
HEX |
10 |
JCZTRANY |
Concerning addressing mode -- user data may be 'anywhere' |
JCZTR2 - Request-modifying symbolic settings
|
1 |
HEX |
01 |
JCZTROUT |
TYPE=OUTPUT (with OPEN) |
1 |
HEX |
01 |
JCZTRL |
LEAVE=YES (with CLOSE request) |
1 |
HEX |
01 |
JCZTRCR |
Conditional (WRITE) request |
1 |
HEX |
02 |
JCZTRIN |
TYPE=INPUT (with OPEN) |
1 |
HEX |
02 |
JCZTRSIO |
STARTIO=YES (with WRITE) |
1 |
HEX |
04 |
JCZTRPFX |
User prefix specified (WRITE) |
JCZTR1 - Request-type symbolic settings
|
1 |
HEX |
01 |
JCZTRWR |
TYPE=WRITE |
1 |
HEX |
02 |
JCZTRW |
TYPE=WAIT |
1 |
HEX |
03 |
JCZTRPUT |
TYPE=PUT (=WRITE, WAIT) |
JCZJCRC - return code symbolic settings
|
1 |
HEX |
00 |
JCZRCNR |
normal response |
1 |
HEX |
01 |
JCZRCIDE |
journal id error |
1 |
HEX |
02 |
JCZRCIRE |
invalid request |
1 |
HEX |
03 |
JCZRCSE |
status error |
1 |
HEX |
04 |
@NM00003 |
reserved |
1 |
HEX |
05 |
JCZRCNOE |
journal not open |
1 |
HEX |
06 |
JCZRCLE |
length error |
1 |
HEX |
07 |
JCZRCIOE |
I/O error |
1 |
HEX |
08 |
JCZRCEOF |
end of file (for input req) |
1 |
HEX |
09 |
JCZRCCR |
COND=YES, buffer full |
MISCELLANEOUS VALUES
|
1 |
HEX |
63 |
JCZJNMAX |
Max journalname = 99 |