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

Set Field Data Correlation ID

This function sets 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

module   DFHEIENT

	MVC   MEIC_Function,=AL4(MEIC_SetField)       Function
	MVC   MEIC_F005_FldCode,=AL4(MEIC_F005_FC_CorID)
	MVI   MEIC_F005_CorID_Type,MEIC_F005_CorID_User
	MVI   MEIC_F005_CorID_Len,16

	MVC   MEIC_F005_CorID_Data(16),=CL16'1234567890123456'

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

	EXEC CICS RETURN