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
Copyright © 2014 CA.
All rights reserved.
|
|