Filter
Top Products
Example 2–VS COBOL II
The literal pool in VS COBOL II is part of the CGT. Having calculated the offset
from the start of the program, you should subtract the start of the CGT from your
calculated offset to get the offset within the CGT. In the listing, there is an MVC
instruction with the argument zero as the source, of the form:
MVC D1(L,R1),D2(R2) DFHEIV0 PGMLIT AT ...
where:
DFHEIV0
is the slot in working storage into which the argument zero is copied before
the BALR to the CICS stub
D2 is the decimal offset of the argument zero within the CGT (which you have
just calculated)
R2 is the CGT base register
Once you know the offset of the argument zero within the CGT, you can find the
MVC and hence the EXEC CICS command.
An example of finding an EXEC CICS command is given in Figure 16 on page 73.
72 CICS Transaction Affinities Utility Guide