IBM Transaction Server OS User Manual

Page 88

Advertising
background image

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

Advertising