IBM SC34-6814-04 - Manual (Page 768)

This example shows 4 bytes of user data, typically the transaction ID, being moved
using the DFHAPPL.1 EMP. The data starts at offset 0, and the data length defaults
to the length specified in the application naming EMP in the MCT. In this example,
CICS monitoring domain uses the default length defined in the MCT, because
DATA2 is defined as a null value. For the DFHAPPL EMPs, CICS monitoring
domain requires you to specify both DATA1 and DATA2.
Figure 103 on page 747 shows a COBOL example of how to move a predefined
application name and a transaction identifier to the transaction monitoring area. This
example uses both EMP 1 and EMP 2 of the DFHAPPL EMPs, moving 4 bytes and
8 bytes respectively, which are the default lengths defined in the MCT.
DFHEISTG DSECT
EMPDATA1 DS
F Data area for DATA1 address
*
*
* Constants for DATA2 (null value) and ENTRYNAME
*
EMPDATA2 DC
F’0’
APPLNAME DC CL8’DFHAPPL’
*
LA Rn,tranid Set addr of tranid
ST Rn,EMPDATA1 Store tranid for EMP
EXEC CICS MONITOR POINT(1) ENTRYNAME(APPLNAME) C
DATA1(EMPDATA1) DATA2(EMPDATA2) NOHANDLE
Figure 102. EXEC CICS MONITOR commands for DFHAPPL EMPs (assembler)
746 Customization Guide