Using the CICS Monitor Exit Interface › Use the EXEC CICS Command Level Program Coding Method › Get Field Data Correlation ID

Get Field Data Correlation ID

The get field data correlation ID function retrieves a correlation ID for the transaction.

Use the following CICS command level program example to code this function:

....+....1....+....2....+....3....+....4....+....5....+....6||7..
DFHEISTG	    DSECT ,
MEIC		   GSVCMEI GEN_COMMAREA,DSECT=NO
DSA_CorID	   DS	0CL130
DSA_CorID_Type	   DS	AL1
DSA_CorID_Len	   DS	AL1
DSA_CorID_Data	   DS	CL128

module   DFHEIENT

	MVC   MEIC_Function,=AL4(MEIC_GetField)	Function
	MVC   MEIC_F008_FldCode,=AL4(MEIC_F008_FC_CorID)

	EXEC CICS LINK PROGRAM('GSVCMEI')			X
	     COMMAREA(MEIC)					X
	     LENGTH(=AL2(MEIC_L))

	MVC   DSA_CorID,MEIC_F008_CorID

	EXEC CICS RETURN