10.3.1.1 Sample DSECT BEAOTM

The listing below is the DSECT BEAOTM macro referenced previously. A DSECT for the OTMA parameter area passed to the DFSYPRX0 exit is not provided by IBM.

Listing D‑3 DSECT BEAOTM

MACRO
BEAOTM
OTMAPARM DSECT OTMA SPECIFIC PARAMETER LIST
OTMLTERM DS CL8 ORIGINATING LTERM/TPIPE
OTMDEST DS CL8 DESTINATION NAME
OTMTRANS DS CL8 TRANSACTION NAME
OTMFLAGS DS X OTMA FLAGS
#OTMINP EQU X'80' INPUT OTMA MSG PREFIX EXISTS
OTMSYNCH DS X OTMA SYNCHRONIZATION LEVEL
OTMRESVD DS XL2 RESERVED
OTMUSER DS CL8 USER ID
OTMGROUP DS CL8 GROUP NAME
OTMRESV2 DS XL4 RESERVED
OTMCNAME DS CL16 ORIGINATING CLIENT NAME
OTMMSGCL DS A ADDRESS OF INPUT MESSAGE CTL
OTMSTATE DS A ADDRESS OF INPUT STATE DATA
OTMUSERD DS A ADDRESS OF INPUT USER DATA
OTMRSVD3 DS XL4 RESERVED
OTMCOVRD DS A ADDRESS OF OVERRIDING CLIENT NAME
*
MEND