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

Set Field Data Value for User ID

The SET_FIELD function sets or overrides the values for specific collected fields.

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

field   - Field Type Keywords
	    Valid values are:
	     CORID
	     LUNAME
	     OPERID
	     TERMINAL
	     UMBNAME
	     UMBTYPE
	     USERID

....+....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_UserID)
	MVC   MEIC_F005_UserID,=CL08'userid'         UserID

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

	EXEC CICS RETURN