MACRO NAME = DFHCLT
DESCRIPTIVE NAME = CICS TS XRF Command List Table entry macro
FUNCTION =
This macro defines a Command List Table (CLT) for use with
CICS XRF.
EXTERNAL REFERENCES =
XRF Takeover Initiation program, DFHWTI
MACROS (Macro pass) =
DFHSYS - set globals
DFHPRMCK - operand syntax checking
DFHSMPT - generate SMP control statements
DFHCOVER - generate cover pages
DFHVM - generate version etc. constants
ROUTINES (Generated code) =
none
DATA AREAS (Generated code) =
DFHCLTDS (DSECT name)
CONTROL BLOCKS (Generated code) =
none
+++ COMMAND LIST TABLE
ENTRY FORMAT
The CLT contains the following:
o MVS System Operator commands and WTOs to be issued
during takeover by a CICS Alternate of a CICS Active.
o Identification data for the JES systems in use.
o Data used to verify authority to takeover.
The CLT load module is link-edited into an APF Authorized
library.
During takeover, the CICS Alternate calls the XRF
Takeover Initiation program to terminate the CICS
Active with an MVS System Operator command and to have
the commands specified in the CLT issued to, for example,
request MRO related systems to takeover.
Table 1.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
DFHCLTDS |
CLT DSECT |
TYPE=INITIAL generated fields
|
| (0) |
CHARACTER |
1 |
|
Reserved |
| (1) |
BITSTRING |
1 |
CLTIVER |
Version of CLT |
| (1) |
.... ...1 |
|
CLTIVER1 |
"X'01'" ..Version 1 |
| (2) |
BITSTRING |
1 |
CLTIJESX |
Type of JES |
| (2) |
.... ..1. |
|
CLTIJES2 |
"X'02'" ..JES2 |
| (2) |
.... ..11 |
|
CLTIJES3 |
"X'03'" ..JES3 |
| (3) |
CHARACTER |
1 |
CLTIJCHR |
JES identifier character |
| (4) |
ADDRESS |
4 |
CLTIIND1 |
Address of Index 1 |
| (4) |
.... 1... |
|
CLTJTAB |
"*" JES system identification |
| (8) |
CHARACTER |
4 |
CLTJMVS |
MVS system identifier |
| (C) |
CHARACTER |
4 |
CLTJJESN |
JES2 or JES3 subsystem name |
| (C) |
...1 .... |
|
CLTJJES |
"*" |
| (10) |
CHARACTER |
1 |
CLTJJ2ID |
JES2 shared spool member number |
| (10) |
.... 1..1 |
|
CLTJTBL2 |
"*-CLTJTAB" Length of table entry for JES2 |
| (10) |
CHARACTER |
8 |
CLTJJ3ID |
JES3 name on MAINPROC |
| (10) |
...1 .... |
|
CLTJTBL3 |
"*-CLTJTAB" Length of table entry for JES3 |
TYPE=LISTSTART generated fields
Table 2.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
CLTI1DS |
CLT Index 1 DSECT |
Index 1 entry
|
| (0) |
CHARACTER |
4 |
CLT1END (0) |
Zero if end of Index 1 |
| (0) |
CHARACTER |
8 |
CLT1SAPL |
Specific APPLID of Alternate |
| (8) |
CHARACTER |
8 |
CLT1CANN |
Jobname on termination command |
| (10) |
ADDRESS |
4 |
CLT1ADI2 |
Address of Index 2 for this |
| (10) |
...1 .1.. |
|
CLT1LEN |
"*-CLTI1DS" Length of Index 1 entry |
TYPE=COMMAND and TYPE=WTO generated fields
Table 3.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
CLTCDS |
CLT COMMAND/WTO entry DSECT |
| (0) |
BITSTRING |
1 |
CLTCTYPE |
Entry type |
| (0) |
.... ...1 |
|
CLTCCOM |
"X'01'" Type=COMMAND |
| (0) |
.... ..1. |
|
CLTCWTO |
"X'02'" Type=WTO |
| (1) |
BITSTRING |
1 |
CLTCCEC |
CEC indicator |
| (1) |
.... ...1 |
|
CLTCCSAM |
"X'01'" ..Same |
| (1) |
.... ..1. |
|
CLTCCSEP |
"X'02'" ..Separate |
| (2) |
CHARACTER |
1 |
CLTCDATA (0) |
TYPE=COMMAND
|
| (2) |
BITSTRING |
1 |
CLTCCOML |
Length of command |
| (3) |
CHARACTER |
1 |
CLTCTEXT (0) |
Start of command text |
TYPE=WTO
|
| (2) |
CHARACTER |
1 |
(2) |
Reserved |
| (4) |
ADDRESS |
4 |
CLTCADDR |
Address of WTO MF=L |
Table 4.
| Offset Hex |
Type |
Len |
Name (Dim) |
Description |
| (0) |
STRUCTURE |
0 |
CLTI2DS |
CLT Index 2 DSECT |
Index 2 entry
|
| (0) |
ADDRESS |
4 |
CLT2ADDR |
Address of COMMAND/WTO entry |
| (0) |
.... .1.. |
|
CLT2LEN |
"*-CLTI2DS" Length of Index 2 entry |