You might want to look at the data that your application program has in its storage areas. CICS® maintains a pointer to the chain of dynamic storage that the program uses, in field TCAPCDSA of the system area of the TCA.
You need to look in the appropriate programming language manual for details of the structure of the program’s acquired storage.
CICS does not support 64-bit addressing execution,
but programs can use storage at addresses which are only available
when CICS is running on 64-bit architecture machines. The CICS dump
formatter displays the contents of the 64-bit General Purpose Registers
captured when an abend occurs.
If DUMP(YES) is coded on the transaction definition, CICS system and transaction dumps are produced for failing C/370™ programs. The use of the relevant C/370 registers is as follows:
Register | Use |
---|---|
3 | In most circumstances, is the base register |
12 | Holds the address of the CICS TCA for the C/370 program |
13 | Holds the address of the register save area |
The dumped COBOL program can be found in the "program information for the current transaction" section of the dump, and is addressed by the LOAD_POINT parameter on the appropriate LDLD ACQUIRE_PROGRAM exit trace entry. The register save area INIT1+X'48' (covering registers 0 through 14) should have register 12 pointing to the program global table (PGT), register 13 pointing to the task global table (TGT), and some others to locations in the data area and compiled code of the program storage. If not, a CICS error is indicated.
For each invocation of the COBOL program, CICS copies the static TGT from program storage into CICS dynamic storage (the COBOL area) and uses the dynamic copy instead of the static one. CICS also copies working storage from program storage to the COBOL area, above the TGT. Task-related COBOL areas thus enable the single copy of a COBOL program to multithread as if it were truly reentrant.
The COBOL area is addressed by TCAPCDSA (alias TCAPCCA) in the system part of the TCA (and forms part of the transaction storage chain). The COBOL area contains:
The TGT is addressed by TCAPCHS in the system part of the TCA.
The TGT is used to hold intermediate values set at various stages during program execution. The first 18 words of the TGT constitute a standard save area, in which the program’s current registers are stored on any request for CICS service.