Use the CICS Monitor Exit Interface › Use the EXEC CICS Command Level Program Coding Method › Get Field Data Values for User ID

Get Field Data Values for User ID

The GET_FIELD function retrieves the values for specific collected fields.

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_UserID	   DS    CL8

module   DFHEIENT

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

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

	MVC   DSA_UserID,MEIC_F008_UserID		UserID

	EXEC CICS RETURN